Initial commit by marcello Galli

diff --git a/LICENSE b/LICENSE
new file mode 100644 (file)
index 0000000..d144986
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,20 @@
+This legacy and unmaintained code should be 
+considered in the public domain. 
+
+No license was assigned to the software.
+
+It was developed in the context of a national program
+on medical physics by a scientific collaboration 
+between ENEA and the Bologna University,
+and neither can claim the ownership of the code.
+
+The program includes routines from the EGS4 package, developed at SLAC. 
+This software is copyrighted by Stanford University and the Canadian government;
+it is free for non commercial usage, see:
+(http://rcwww.kek.jp/research/egs/egs4_source.html).
+
+
+Reference for the EGS4 package:  
+ W.R. Nelson, H.Hirayama and D.W.O.Roger, 
+ The EGS4 Code System
+ SLAC Report-265 - December 1985

diff --git a/README.md b/README.md
new file mode 100644 (file)
index 0000000..d6027cc
--- /dev/null
+++ b/README.md
@@ -0,0 +1,29 @@
+EGS4CYL
+=======
+
+A Code for Montecarlo Simulation of a PET equipment
+---------------------------------------------------
+
+This is legacy FORTRAN program, written for
+VAX VMS machines, it was developed around 1994, in the 
+framework of the Italian collaboration: *Hirespet*,
+for the creation of an high spatial resolution
+tomograph. This code was used as a research tool.
+
+It simulates a simple cylindrical equipment, with
+a ring of detectors and was used to estimate
+the efficiency of different detector geometries
+and scintillation materials, as YAP:Ce. 
+
+The program uses the Higz and Hbook CERN routines for
+data visualization, and the EGS4 Montecarlo package.
+
+This code was more a research tool, than a stable,
+"production" software; was only used by a little
+group of scientists. 
+
+After some usage for specific tasks, this program
+was forgotten. It is saved here as an example of
+FORTRAN 77 programming on VAX VMS computer; to be
+included in the collection of the 
+[*Software Heritage*] project (https://www.softwareheritage.org/). 

diff --git a/code/README.md b/code/README.md
new file mode 100644 (file)
index 0000000..affb45a
--- /dev/null
+++ b/code/README.md
@@ -0,0 +1,95 @@
+Source code for EGS4CYL
+=======================
+
+The source code for EGS4CYL and the related material
+has been divided into different folders:
+
+- docs: usage instructions, and a scan of an ENEA
+        internal pubbilcation on the code. 
+        
+- exe: the executable code, compiled on a VMS Vax computer
+
+- input-output: the input to the code was given by some
+                files, with a rigid syntax.
+                Some input files are in this folder, along
+                with some output examples. 
+
+- procedures: some simple interactive or batch procedures where used
+              to compile and run the program on the VMS machines.
+              These simple procedure where written in the DCL
+              language, an interactive shell of the VMS operating system.
+              
+- source:  FORTRAN77 files. About eight thousand lines of code,
+           but some routines have more than a version and about
+           three thousand lines are from the EGS4 package.
+
+The EGS4 routines are assembled in an unique file: "egs4funl.for".
+User written routines have each its own file.
+The "petgraf.for" and "petsub.for" files contain the routines 
+for graphics, (written by S.Ferriani) other routines
+where mostly written by M.Galli.
+The main program is in the file: "egs4_cyl_2.for" 
+
+It is interesting to note, in this legacy FORTRAN 77, how some
+parts have still the fixed width syntax that was used when the FORTRAN
+statements where written using punched cards:  a character
+in the first column for comments, statements beginning in
+column 8 , all uppercase character etc.. Other parts 
+use the character: "!" for comment (a Vax FORTRAN extension),
+lowercase statements and indentation. 
+
+Different coding styles are sometime mixed in the same file: 
+it is clear that the code was developed using different 
+tools and editors, in different times and was subject
+to many changes. 
+
+This program lives in the transition phase from old FORTRAN
+style to new technologies. In the older parts (the EGS4 routines) 
+we also see an extensive use of the GOTO statement, while
+more recent routines use some structured constructs and 
+indentation. 
+
+Comments are scattered throughout the program without 
+a clear organization; are essentially personal notes 
+by the authors, written for themselves, to ease code maintenance. 
+
+This program was born as a research tool, and never reached
+the status of a "production" code, as is clearly shown by the
+heterogeneous coding style.
+
+There is an extensive use of COMMONS statements: memory 
+areas shared by some routines but not by others. 
+Commons are used here, mainly in the routines by M.Galli,
+to *isolate* sections of the program; a practice which became 
+common much later, with object programming and languages as 
+C++ and Java. 
+
+The EGS4 package, as used by EGS4CYL, is obsoleted,
+but a new version, has been developed: 
+[*EGSnrc*](https://nrc.canada.ca/en/research-development/products-services/software-applications/egsnrc-software-tool-model-radiation-transport),
+with improved accuracy for the particle transport computation and much easier to use.
+This new version is distributed under the terms 
+of the GNU Affero General Public Licence, and available from 
+[*github*](https://nrc-cnrc.github.io/EGSnrc/)  
+
+
+--------------------------------------------
+ 
+Reference for the EGS4 package:  
+ W.R. Nelson, H.Hirayama and D.W.O.Roger, 
+ The EGS4 Code System
+ SLAC Report-265 - December 1985
+
+------------------------------------------
+
+Reference for the EGS4CYL program: 
+(pdf file included in the Docs folder)
+
+EGS4CYL: 
+ S.Ferriani, M.Galli, D.Bollini
+ Un Codice per Simulazioni Montecarlo di un Apparato PET ad Alta Risoluzione Spaziale 
+ ENEA Report: RT/INN/95/17 ; ISSN/1120-5571
+
+-------------------------------------------------
+
+ 

diff --git a/code/docs/INN_95_17.pdf b/code/docs/INN_95_17.pdf
new file mode 100644 (file)
index 0000000..f031976
Binary files /dev/null and b/code/docs/INN_95_17.pdf differ

diff --git a/code/docs/egs4cyl.man b/code/docs/egs4cyl.man
new file mode 100644 (file)
index 0000000..a8cf01b
--- /dev/null
+++ b/code/docs/egs4cyl.man
@@ -0,0 +1,121 @@
+           uso di egs4_cyl : egs4 in geometria cilindrica
+
+ Input files:
+  
+ 1 - input della geometria : file CYL.DAT , logical unit ltydat=7 
+
+           scheda  formato               contenuto
+
+             1       *           NCASES ICHAR INIREG EKIN
+                                   NCASES = numero storie
+                                   ICHAR  = -1 per elettroni
+                                          =  1 per positroni
+                                   INIREG = regione della sorgente
+                                   EKIN   = E cinetica iniziale ( Mev)
+
+             2       *           ITCTS ISTSEED ISTARTSEED
+                                   ogni ITCTX storie stampa informazioni 
+                                   ISTSEED = numero storia iniziale,
+                                       se ISTSEED.NE.0 parte col seed ISTARTSEED
+                                   ISTARTSEED = seed iniziale 
+
+             3       *           NMED 
+                                    NMED= numero materiali
+     4:NMED schede   24A1        MEDIA 
+                                    nome del materiale 
+     5:NMED schede   *           MAT PCUT ECUT
+                                    MAT = numero del materiale
+                                    PCUT= E di inf. cutoff per fotoni 
+                                    ECUT= E di inf. cutoff per elettroni
+                                                nel materiale ( Mev )
+            6        *           NCYL ZMAX
+                                    NCYL= numero cilindri
+                                    ZMAX= meta altezza cilindro ( cm )  
+     7:NCYL schede  *            RTHICK INDMAT
+                                    RTHICK= spessore del cilindro
+                                    INDMAT= numero del materiale del cilindro
+
+
+ 2 - input specifiche istogrammi : file HIST_CYL.DAT , unit ltyfil=9 
+
+           scheda  formato               contenuto
+              1      *            ID NCHX XMIN XMAX VALMAX
+                                  (parametri da passare ad hbook)
+                                    ID   = numero istogramma
+                                    NCHX = numero canali
+                                    XMIN = valore del canale minimo
+                                    XMAX = valore del canale massimo
+                                    VALMAX = 0 (num.bits. usati da hbook
+                                                per ogni canale )
+              2      A80          TITLE
+                                  titolo istogramma
+
+  si mette una scheda tipo 1 ed una tipo 2    per ogni istogramma 
+  monodimensionale, segue una scheda tipo 1 con ID=0, seguono le
+  specifiche degli istogrammi bidimensionali:
+
+              3       *           ID NCHX XMIN XMAX NCHY YMIN YMAX VALMAX
+                                  sono parametri per hbook, analoghi al
+                                  caso unidimensionale, NCHX e' il numero 
+                                  di canali in X, NCHY i canali in Y e cosi via.
+
+              4      A80          TITLE
+                                  titolo dell'istogramma 
+
+ una scheda tipo 3 con ID=0 conclude l'input
+
+ 
+ 3 - input materiali (da pegs4 ) : file MAT3MEV.DAT , unit 12 
+
+ 4 - input da terminale                               unit ltyin=5
+
+ Output files:
+
+ 1 - output text                 : file OUT.DAT , unit ltyhis=10
+
+ 2 - lista materiali usati       : file HATCH.OUT , unit 8
+
+ 3 - istogrammi per hbook        : file HBOOK.OUT , unit hislun=20
+
+ 4 - traiettorie particell       : file PARTICLES.OUT , unit 50
+
+ 4 - output su terminale                             unit ltyout=6
+
+
+ Fortran files: 
+
+ 1 - egs4_cyl.for            main program
+ 
+     1-a  comm_cyl.for           commons included in main program
+     1-b  doublede.for           included in main, now void
+
+ 2 - init_cyl.for                inizializza logical unit numbers
+                                 legge num. storie, seed etc.
+                                 legge i materiali da ltyout=7 
+                                 legge la geometria da ltyout=7 
+
+ 3 - istin_cyl.for               apre la unit hislun=20, output ad
+                                   accesso diretto per Hbook
+                                 legge specifiche istogrammi da produrre
+                                   da ltyhis=10
+
+ 4 - source_cyl.for              sorgente, genera positroni nell'origine,
+                                 con distribuzione isotropa
+
+ 5 - howfar_cyl.for              routine geometrica:
+                                 calcolo zona in cui sono le particelle
+
+ 6 - ausgabe_cyl.for             prepara istogrammi per Hbook di PAW 
+                                 ( va modificata se si decide di fare
+                                   istogrammi di diverso tipo )
+
+ 7 - statend_cyl.for             statistiche finali del run
+
+
+ File da concatenare nel link:
+
+ 1 - egs4funl.for              egs4 subroutines
+  
+ 2 - cern$library: packlib     librerie del CERN
+                   genlib
+                   kernlib                    

diff --git a/code/docs/istruzioni_cyl_2.txt b/code/docs/istruzioni_cyl_2.txt
new file mode 100644 (file)
index 0000000..4d547a7
--- /dev/null
+++ b/code/docs/istruzioni_cyl_2.txt
@@ -0,0 +1,257 @@
+    istruzioni per portare questo egs4 cilindrico da una macchina
+    all'altra:
+
+ necessarie:
+ 1)  routines del CERN : paw,hbook,hplot , etc...
+ 2)  GKS ( per l'interfaccia grafica interattiva )
+     il programma links con quella dec , in
+      sys$common:[syslib]gksforbnd.olb 
+     oppure quelle cern: cern:[pro.lib]grafgks.olb
+
+ 3)  le routines fortran che costituiscono il programma:
+
+       comm_cyltot_2.for  : i common inclusi nelle routine in compilazione
+       comm_cyl_2.for     : solo alcuni dei commons
+       comm_yaps.for      : commons con specifiche dei rivelatori
+
+        egs4_cyl_2  : il main
+        init_cyl_2  : inizializza e legge l'input
+        yaps        : input con specifiche dei rivelatori
+        histin_cyl_2: legge le specifiche degli istogrammi prodotti per paw
+                      su file zebra ad accesso diretto
+        source_cyl_2 : sorgente
+        howfar_cyl_2a : howfar
+        howyaps       : parte di howfar che riguarda i rivelatori
+        ausgabe_cyl_2 : ausgabe
+        statend_cyl_2 : statistiche finali
+
+        pg_comm.for  : common per la grafica interattiva
+        guarda_2.for : routine per la grafica interattiva
+        petsub.for   : interfacce a routine grafiche da higz, 
+                       ( nella libreria petgra.olb su vax vms)
+        petgracom.for : common incluso in petsub.for 
+        pglib.olb     : moduli da higz 
+            (se si linka colla cern:[pro.lib]graflib.olb non servono )
+
+        egs4funl.for : tutte le altre routines dell' EGS4
+
+4)      il file di input con le specifiche dei materiali, prodotto da
+        PEGS4 : mat3mev.dat
+
+        un file di input generale :  cyl_2.dat
+        un file di input con le specifiche degli istogrammi : hist_cyl_2.dat
+        un file di input con la descrizione dei rivelatori : yaps.dat
+
+        In caso si modifichi il numero ed il tipo di istogrammi prodotti
+        occorre stare attenti al fatto che l'identificatore di alcuni
+        istogrammi e certi parametri delle n-tuple sono fissi nelle
+        routines ausgab e egs4_cyl_2, per cui occorre modificare le routines, 
+        non solo il file di input 
+
+5)      La procedura : for_cyl_2.com fa la compilazione di tutte le routines
+        ( escluse egs4funl, petsub ; che sono compilate una volta per tutte )
+
+6)      La procedura : link_cyl_2.com fa il link.
+        la versione per alfa vms e' diversa da quella per vax vms, e chiama
+        la procedura definizioni.com
+
+7)      La procedura : run_cyl_2.com definisce le unita di i/o e fa il run
+
+seguono le procedure stesse, in versione VAX VMS ( alla data del 7-sept-1994)
+
+---------------------------
+  FOR_CYL_2
+---------------------------
+$wr="write sys$output"
+$wr "     Compilation of user written routines for egs4: cyl. geometry"
+$wr "     con anche i rivelatori.
+$wr "        Questa variante include routines grafiche interattive "
+$wr "        Ed anche le n-tuple su unit 21 "
+$!
+$ if P1.eqs."DEBUG" 
+$ then
+$     FOR:=FOR/DEBUG/NOOPT
+$ endif
+$wr " compiling egs4_cyl_2 ..."
+$                                   for/nolist egs4_cyl_2
+$wr " compiling init_cyl_2 ..."
+$                                   for/nolist init_cyl_2
+$wr " compiling histin_cyl_2 ..."
+$                                   for/nolist histin_cyl_2
+$wr " compiling source_cyl_2 ..."
+$                                   for/nolist source_cyl_2
+$wr " compiling howfar_cyl_2a ..."
+$                                   for/nolist howfar_cyl_2a
+$wr " compiling ausgabe_cyl_2 ..."
+$                                   for/nolist ausgabe_cyl_2
+$wr " compiling statend_cyl_2 ..."
+$                                   for/nolist statend_cyl_2
+$wr "    all including: comm_cyltot_2.for"
+$wr "                   comm_yaps.for"
+$wr " compiling guarda_2.for"
+$wr "        including: pg_comm.for"
+$wr "                   comm_cyl_2.for"
+$                                   for/nolist guarda_2
+$wr " compiling yaps.for ..."
+$                                   for/nolist yaps
+$wr " compilink howyaps.for .."
+$                                   for/nolist howyaps
+$wr "       including: comm_yaps.for"
+$wr ""
+$wr " compilation ended :"
+$dir *.obj 
+---------------------------------------------
+
+---------------------------
+LINK_CYL_2
+---------------------------
+$IF P1 .eqs. "DEBUG"  then LINK:=LINK/DEBUG 
+$wr:=write sys$output
+$wr "          linking egs4 routiines for cyl. geom."
+$wr "          including interactive plots"
+$wr "          ed n-tuple" 
+$!
+$! define egs4f$disk sys$sysdevice:[galli.egs4]
+$! define pgsub      sys$sysdevice:[galli.pg]petsub.obj ! interface to higz
+$! define pglib      sys$sysdevice:[galli.pg]petgra.olb ! some higz routines
+$! define lib$            cern$library:packlib/lib,-
+$!                        cern$library:genlib/lib,- questa non e' usata
+$!                        cern$library:kernlib/lib
+$ define gksbnd      sys$common:[syslib]gksforbnd.olb !DecGKS fortran interface
+$!
+$write sys$output " linking all ..."
+$ cernlib
+$ link/nomap egs4_cyl_2,init_cyl_2,yaps,-
+             histin_cyl_2,source_cyl_2,-
+             guarda_2,-
+             howfar_cyl_2a,howyaps,ausgabe_cyl_2,-
+             statend_cyl_2,-
+             egs4funl,-
+             pgsub,pglib/lib, -
+             gksbnd/lib, -
+             'lib$'
+$ write sys$output " done ..."
+$ dir *.exe
+------------------------------------
+
+---------------------------
+RUN_CYL_2
+---------------------------
+$Wr:=write sys$output
+$!wr " running egs4 cyl. geometry, IF P2.EQS. PATHS prints particles path"
+$wr "                             IF P1.eqs. "" "" nodebug"
+$WR  " version egs4_cyl_2 including interactive plotting"
+$wr  " ed n-tuple  e rivelatori "
+$!
+$ if P1 .eqs. "" 
+$then 
+$  P1="NODEBUG"
+$else
+$  P1="DEBUG"
+$endif
+$ write sys$output " now running egs4_cyl_2 ..."
+$define  materiali bofi04$dkb100:[galli.egs4]mat3mev.dat
+$!                                    for005      ! terminal input
+$!                                    for006      ! terminal output
+$assign/user   cyl_2.dat              for007      ! geometry input
+$assign/user   yaps.dat               for013      ! geometria rivelatori
+$assign/user   hatch.out              for008      ! egs4 mateiral out list
+$assign/user   hist_cyl_2.dat         for009      ! histogram input
+$!assign/user   hist_cyl_2dum.dat         for009      ! histogram input
+$assign/user   cyl.out                for010      ! output
+$!                                    for011      ! ps metafile for plots
+$assign/user   materiali              for012      ! mat library
+$assign/user   hbook.out              for020      ! hbook output
+$assign/user   ntuple.out             for021      ! hbook output
+$assign/user   ntupley.out            for022      ! hbook output
+$! if P2 .eqs. "PATHS" 
+$! then
+$ assign/user   particles.out          for050      ! particle's path (for test)
+$! else
+$! assign/user   nl:                    for050      ! no particle's path 
+$! endif
+$assign/user sys$command sys$input                 ! user input from terminal
+$run/'P1' egs4_cyl_2
+$write sys$output " run ended ......"
+$write sys$output " printed output in:   CYL.OUT "
+$write sys$output " hatch   output in:   HATCH.OUT "
+$write sys$output " HBOOK   output in:   HBOOK.OUT "
+$write sys$output " Ntuple  output in:   ntuple.OUT "
+$if P2.eqs."PATHS" then write sys$output " particles paths in:  PARTICLES.OUT "
+$exit
+
+--------------------------------------------------------
+procedura per le definizioni specifiche per l'alpha boal01
+
+-------------------------
+DEFINIZIONI.COM
+-------------------------
+$! definizioni per l'alfa ( sono nella login in bofi04 )
+$
+$!                    per il link di egs4_cyl_2 :
+$ define pgsub petsub.obj                 ! interfacce ad higz
+$ define pglib cern:[pro.lib]graflib.olb  ! routine grafiche cern
+$! define gksbnd sys$common:[syslib]gksforbnd.olb  ! dec gks fortran interfaces
+$ define gksbnd  cern:[pro.lib]GRAFGKS.OLB
+$!                   per il run
+$ define materiali mat3mev.dat           ! materiali da pegs4
+$!
+--------------------------------------------------------
+
+procedura per il link sull'alfa doal01
+ 
+-------------------------
+LINK_CYL_2_ALPHA.COM
+-------------------------
+$IF P1 .eqs. "DEBUG"  then LINK:=LINK/DEBUG 
+$wr:=write sys$output
+$wr "          linking egs4 routiines for cyl. geom."
+$wr "          including interactive plots"
+$wr "          ed n-tuple" 
+$!
+$! define egs4f$disk sys$sysdevice:[galli.egs4]
+$! define pgsub      sys$sysdevice:[galli.pg]petsub.obj ! interface to higz
+$! define pglib      sys$sysdevice:[galli.pg]petgra.olb ! some higz routines
+$! define lib$            cern$library:packlib/lib,-
+$!                        cern$library:genlib/lib,- questa non e' usata
+$!                        cern$library:kernlib/lib
+$! define gksbnd      sys$common:[syslib]gksforbnd.olb !DecGKS fortran interface
+$!
+$@definizioni       ! definizioni specifiche per l'alfa eboal1
+$!
+$write sys$output " linking all ..."
+$ cernlib
+$ link/nomap egs4_cyl_2,init_cyl_2,yaps,-
+             histin_cyl_2,source_cyl_2,-
+             guarda_2,-
+             howfar_cyl_2a,howyaps,ausgabe_cyl_2,-
+             statend_cyl_2,-
+             egs4funl,-
+             pgsub,-
+             'lib$',-
+             cern:[pro.lib]packlib/lib,graflib/lib,grafx11/lib,grafx11/opt,-
+                           packlib/lib,kernlib/lib
+
+$ write sys$output " done ..."
+$ dir *.exe
+$ exit
+$!
+$! --------------- sotto il link usato per bofi04 : DEC VMS :
+$ link/nomap egs4_cyl_2,init_cyl_2,yaps,-
+             histin_cyl_2,source_cyl_2,-
+             guarda_2,-
+             howfar_cyl_2a,howyaps,ausgabe_cyl_2,-
+             statend_cyl_2,-
+             egs4funl,-
+             pgsub,pglib/lib, -
+             gksbnd/lib, -
+             'lib$'
+
+$ write sys$output " done ..."
+$ dir *.exe
+--------------------------------------
+
+ALTRE PROCEDURE di uso generale sono copy04.com e copyal2.com, che
+copiano le routine da una macchina all'altra per tenere allineate le
+versioni del programma sulle 2 macchine
+--------------------------------

diff --git a/code/exe/egs4_cyl_2.exe b/code/exe/egs4_cyl_2.exe
new file mode 100644 (file)
index 0000000..b860408
Binary files /dev/null and b/code/exe/egs4_cyl_2.exe differ

diff --git a/code/input-output/cyl.out b/code/input-output/cyl.out
new file mode 100644 (file)
index 0000000..2e2cb85
--- /dev/null
+++ b/code/input-output/cyl.out
@@ -0,0 +1,1667 @@
+1
+ .............................................................................................................................
+ .                                                                                                                           .
+ .   HBOOK   HBOOK  CERN            VERSION   4.21       HISTOGRAM AND PLOT INDEX                             18/09/94       .
+ .                                                                                                                           .
+ .............................................................................................................................
+ .                                                                                                                           .
+ .  NO                     TITLE                      ID  B/C  ENTRIES DIM   NCHA     LOWER       UPPER       ADDRESS LENGTH .
+ .                                                                                                                           .
+ .............................................................................................................................
+ .                                                                                                                           .
+ .                                                                                                                           .
+ .   1   Zona 1 : aria r=10cm : Distribuzione en     101  32      336  1  X   100  -0.100E+02   0.100E+02      989926    159 .
+ .      ergia ceduta lungo l' asse z                                                                                         .
+ .                                                                                                                           .
+ .   2   Zona 2 : aria r=1cm   : Distribuzione e     102  32      132  1  X   100  -0.100E+02   0.100E+02      989764    160 .
+ .      nergia ceduta lungo l' asse z                                                                                        .
+ .                                                                                                                           .
+ .   3   Zona 3 : aria       : Distribuzione ene     103  32      597  1  X   100  -0.100E+02   0.100E+02      989603    159 .
+ .      rgia ceduta lungo l' asse z                                                                                          .
+ .                                                                                                                           .
+ .   4   Zona 4 : YAP 1     : Distribuzione prof     104  32    32859  1  X   100  -0.100E+02   0.100E+02      989443    158 .
+ .      ondita energia ceduta                                                                                                .
+ .                                                                                                                           .
+ .   5   Zona 5 : YAP 2     : Distribuzione prof     105  32    49567  1  X   100  -0.100E+02   0.100E+02      989283    158 .
+ .      ondita energia ceduta                                                                                                .
+ .                                                                                                                           .
+ .   6   Zona 6 : YAP 3     : Distribuzione prof     106  32    38015  1  X   100  -0.100E+02   0.100E+02      989123    158 .
+ .      ondita energia ceduta                                                                                                .
+ .                                                                                                                           .
+ .   7   Zona 7 : YAP 4     : Distribuzione prof     107  32    35163  1  X   100  -0.100E+02   0.100E+02      988963    158 .
+ .      ondita energia ceduta                                                                                                .
+ .                                                                                                                           .
+ .   8   Zona 8 : fughe     : Distribuzione prof     108  32      210  1  X   100  -0.100E+02   0.100E+02      988803    158 .
+ .      ondita energia ceduta                                                                                                .
+ .                                                                                                                           .
+ .   9   Zona 9 : assorbimenti da parte dei coll     109  32        0  1  X   100  -0.100E+02   0.100E+02      988647    154 .
+ .      imatori                                                                                                              .
+ .                                                                                                                           .
+ .  10   Zona 10 : uscite dai rivelatori             110  32        0  1  X   100  -0.100E+02   0.100E+02      988495    150 .
+ .                                                                                                                           .
+ .                                                                                                                           .
+ .  11   DISTRIBUZIONE ANGOLO DECADIMENTO POSITR     501  32       69  1  X    72   0.000E+00   0.628E+01      988340    125 .
+ .      ONI                                                                                                                  .
+ .                                                                                                                           .
+ .  12   Zona 1 : Aria r=10cm : Distribuzione en     201  32      336  2  X    60  -0.300E+02   0.300E+02      988205   3903 .
+ .      ergia ceduta nel piano x-y                                        Y    60  -0.300E+02   0.300E+02      984340   3856 .
+ .                                                                                                                           .
+ .  13   Zona 2 : Aria r=1cm : Distribuzione ene     202  32      132  2  X    60  -0.300E+02   0.300E+02      984300   3903 .
+ .      rgia ceduta nel piano x-y                                         Y    60  -0.300E+02   0.300E+02      980435   3856 .
+ .                                                                                                                           .
+ .  14   Zona 3 : Aria Distribuzione energia ced     203  32      597  2  X    60  -0.300E+02   0.300E+02      980397   3901 .
+ .      uta nel piano x-y                                                 Y    60  -0.300E+02   0.300E+02      976532   3856 .
+ .                                                                                                                           .
+ .  15   Zona 4 : YAP 1 Distribuzione energia ce     204  32    32859  2  X    60  -0.300E+02   0.300E+02      976493   3902 .
+ .      duta nel piano del yap                                            Y    60  -0.300E+02   0.300E+02      972628   3856 .
+ .                                                                                                                           .
+ .  16   Zona 5 : YAP 2 Distribuzione energia ce     205  32    49567  2  X    60  -0.300E+02   0.300E+02      972589   3902 .
+ .      duta nel piano del yap                                            Y    60  -0.300E+02   0.300E+02      968724   3856 .
+ .                                                                                                                           .
+ .  17   Zona 6 : YAP 3 Distribuzione energia ce     206  32    38015  2  X    60  -0.300E+02   0.300E+02      968685   3902 .
+ .      duta nel piano del yap                                            Y    60  -0.300E+02   0.300E+02      964820   3856 .
+ .                                                                                                                           .
+ .  18   Zona 7 : YAP 4 Distribuzione energia ce     207  32    35163  2  X    60  -0.300E+02   0.300E+02      964781   3902 .
+ .      duta nel piano del yap                                            Y    60  -0.300E+02   0.300E+02      960916   3856 .
+ .                                                                                                                           .
+ .  19   Zona 8 : fughe dal sistema : distribuzi     208  32      210  2  X    60  -0.300E+02   0.300E+02      960880   3899 .
+ .      one in x-y                                                        Y    60  -0.300E+02   0.300E+02      957015   3856 .
+ .                                                                                                                           .
+ .  20   Zona 9 : assorbimento dei collimatori d     209  32        0  2  X    60  -0.300E+02   0.300E+02      956980   3898 .
+ .      istr x-y                                                          Y    60  -0.300E+02   0.300E+02      953115   3856 .
+ .                                                                                                                           .
+ .  21   Zona 10 : uscite dai rivelatori             210  32        0  2  X    60  -0.300E+02   0.300E+02      953084   3894 .
+ .                                                                        Y    60  -0.300E+02   0.300E+02      949219   3856 .
+ .                                                                                                                           .
+ .  22   DISTRIBUZIONE R-Z , PESATA SU ENERGIA -     700  32   156879  2  X    30   0.000E+00   0.300E+02      949185    757 .
+ .      -                                                                 Y    20  -0.100E+02   0.100E+02      948460    716 .
+ .                                                                                                                           .
+ .  23   DISTRIBUZIONE x-y , PESATA SU ENERGIA -     701  32   156879  2  X    60  -0.300E+02   0.300E+02      948426   3897 .
+ .      -                                                                 Y    60  -0.300E+02   0.300E+02      944561   3856 .
+ .                                                                                                                           .
+ .  24   DISTRIBUZIONE X-Y PUNTI DECADIMENTO POS     400  32       69  2  X    60  -0.300E+02   0.300E+02      944526   3898 .
+ .      ITRONE                                                            Y    60  -0.300E+02   0.300E+02      940661   3856 .
+ .                                                                                                                           .
+ .  25   DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPO     401  32       69  2  X    30   0.000E+00   0.300E+02      940626    758 .
+ .      SITRONE                                                           Y    20  -0.100E+02   0.100E+02      939901    716 .
+ .                                                                                                                           .
+ .  26   x,y,z punti decadimento del positrone       800               N                                       939842     47 .
+ .                                                                                                                           .
+ .                                                                                                                           .
+ .  27   energia persa nei rivelatori a ogni eve     801               N                                       939699     74 .
+ .      nto                                                                                                                  .
+ .                                                                                                                           .
+ .............................................................................................................................
+
+
+
+ MEMORY UTILISATION
+
+      MAXIMUM TOTAL SIZE OF COMMON /PAWC/          1000000
+1 Zona 1 : aria r=10cm : Distribuzione energia ceduta lungo l' asse z            
+ 
+ HBOOK     ID =       101                                        DATE  18/09/94              NO =     1
+ 
+        2.25                                                      -
+        2.2                                                       I
+        2.15                                                      I
+        2.1                                                       I
+        2.05                                                      I
+        2                                                         I
+        1.95                                                      I
+        1.9                                                       I
+        1.85                                                      I
+        1.8                                                       I
+        1.75                                                      I
+        1.7                                                       I
+        1.65                                                      I
+        1.6                                                       I
+        1.55                                                      I
+        1.5                                                       I
+        1.45                                                      I
+        1.4                                                       I
+        1.35                                                      I
+        1.3                                                       I
+        1.25                                                      I
+        1.2                                                       I
+        1.15                                                      I
+        1.1                                                       I
+        1.05                                                      I
+        1                                                         I
+         .95                                                      I
+         .9                                                       I
+         .85                                                      I
+         .8                                                       I
+         .75                                                      I
+         .7                                                       I
+         .65                                                     -I
+         .6                                                      II
+         .55                                                     II
+         .5                                                      II
+         .45                                                     II
+         .4                                                      II
+         .35                                                     II
+         .3                                                      II
+         .25                                                     II
+         .2                                                      II
+         .15                                                     II
+         .1                                             -        II
+         .05                             -          ----I  ------II-- ----- -
+ 
+ CHANNELS 100   0                                                                                                  1   
+           10   0        1         2         3         4         5         6         7         8         9         0   
+            1   1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890   
+ 
+ CONTENTS   1.                                                    2                                                 
+            0   0000000000000000000000000000000000000000000000000620000000000000000000000000000000000000000000000000
+            0   0000000000000000000000000200000000001111600313242310201101000000000000000000000000000000000000000000
+            0   0000000000000000000000000400000000000067300096871745207072308000000000000000000000000000000000000000
+            0   0000000000000000000000000300000000008094300760145633205431506000000000000000000000000000000000000000
+ 
+ LOW-EDGE       ---------------------------------------------------                                                 
+           10   1                                                                                                   
+            1.  0999998888877777666665555544444333332222211111         111112222233333444445555566666777778888899999
+            0   0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468
+ 
+ * ENTRIES =        336      * ALL CHANNELS = 0.3265E+01      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.2000E+00      * MEAN VALUE   =-0.8069E-01      * R . M . S = 0.6500E+00
+1 Zona 2 : aria r=1cm   : Distribuzione energia ceduta lungo l' asse z           
+ 
+ HBOOK     ID =       102                                        DATE  18/09/94              NO =     2
+ 
+        4                                                                             -
+        3.9                                                                           I
+        3.8                                                                           I
+        3.7                                                                           I
+        3.6                                                                           I
+        3.5                                                               -           I
+        3.4                                                               I           I
+        3.3                                                               I           I
+        3.2                                                               I           I
+        3.1                                                               I           I
+        3                                                                 I           I
+        2.9                                                               I           I
+        2.8                                                               I           I
+        2.7                                         -                    -I           I
+        2.6                                         I                    II           I
+        2.5                                         I                    II           I
+        2.4                                         I                    II           I
+        2.3                                         I  -                 II         - I
+        2.2                                         I  I                 II         I I
+        2.1                                         I  I                 II         I I
+        2                                           I  I                 II         I I
+        1.9                                         I  I                 II         I I
+        1.8                                         I  I                 II         I I
+        1.7                                         I  I                 II         I I
+        1.6                                         I  I                 II         I I
+        1.5                                         I  I                 II         I I
+        1.4                                         I  I                 II         I I
+        1.3                                         I  I                 II         I I
+        1.2                                         I  I                 II -       I I
+        1.1                                         I  I                 II I   -   I I
+        1                                           I  I                 II I   I   I I
+         .9                                -        I  I               - II I   I  -I I
+         .8                                I        I  I               I II I  -I  II I
+         .7                                I        I  I-          -   I II-I  II  II I
+         .6                                I   -  --I  II         -I   I I  I -II  II-I
+         .5                                I   I  I I  II         II  -I I  I I I  I  I
+         .4                                I  -I  I I- II-----    II- II I  I I I -I  I
+         .3                                I  II  I  I I     I    I I II I  I I I I   I -
+         .2                                I--II--I  I I     I--- I I-II I  I-I I I   I-I-
+         .1                              --I         I I        I I    I I      I I      I-
+ 
+ CHANNELS 100   0                                                                                                  1   
+           10   0        1         2         3         4         5         6         7         8         9         0   
+            1   1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890   
+ 
+ CONTENTS   1.                                      2  2                 23 1   1   2 3                             
+ *10**  2   0   0000000000000000000000000008113511556302633333111056314806461157003825912100000000000000000000000000
+            0   0000000000000000000000000591775066204204633222656006268204263655603632076930000000000000000000000000
+            0   0000000000000000000000000307566867013806320623391001503406138436605651197690000000000000000000000000
+            0   0000000000000000000000000438258329324405991718899023280005071667600039090030000000000000000000000000
+ 
+ LOW-EDGE       ---------------------------------------------------                                                 
+           10   1                                                                                                   
+            1.  0999998888877777666665555544444333332222211111         111112222233333444445555566666777778888899999
+            0   0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468
+ 
+ * ENTRIES =        132      * ALL CHANNELS = 0.3344E+00      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.2000E+00      * MEAN VALUE   = 0.7802E+00      * R . M . S = 0.2700E+01
+1 Zona 3 : aria       : Distribuzione energia ceduta lungo l' asse z             
+ 
+ HBOOK     ID =       103                                        DATE  18/09/94              NO =     3
+ 
+        6.8                             -
+        6.6                             I
+        6.4                             I
+        6.2                             I                                                  -
+        6                               I                                                  I
+        5.8                             I                                                  I
+        5.6                             I                                                  I
+        5.4                             I                                                  I
+        5.2                             I                                                  I
+        5                               I                                                  I
+        4.8                             I                                                  I
+        4.6                             I                                                  I
+        4.4                             I                                                  I
+        4.2                             I                                                  I
+        4                               I                                                  I
+        3.8                             I                                                  I
+        3.6                             I                                                  I
+        3.4                             I                                                  I
+        3.2                             I                                                  I
+        3                               I                                                  I
+        2.8                             I                                                  I
+        2.6                             I                                                  I
+        2.4                             I                                                  I
+        2.2                             I                                                  I
+        2                               I                                                  I
+        1.8                             I                                                  I
+        1.6                             I                                                  I
+        1.4                             I                                                  I
+        1.2                             I                                                  I
+        1                               I                                                  I
+         .8                             I                                                  I
+         .6                             I                                                  I
+         .4         -    -         -    I--     --                                         I
+         .2     -- -I    I--     --I    I I-----II-----------------------------------------I-  --------------------
+ 
+ CHANNELS 100   0                                                                                                  1   
+           10   0        1         2         3         4         5         6         7         8         9         0   
+            1   1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890   
+ 
+ CONTENTS   1.                          6                                                  6                        
+            0   1100200002000000000200006230110022000000100000000000000000000000000000010001000000001000100000100000
+            0   9401300001160000092500003143033166853238048355337468692526038454319284544378100401001264311010187070
+            0   1309000002380000068800008908161650799040424664753880859123305490619755814288000736627198650776708660
+            0   6801800007350000094000003631417092036486076744034817413122880624109059287628100517906400792279488000
+ 
+ LOW-EDGE       ---------------------------------------------------                                                 
+           10   1                                                                                                   
+            1.  0999998888877777666665555544444333332222211111         111112222233333444445555566666777778888899999
+            0   0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468
+ 
+ * ENTRIES =        597      * ALL CHANNELS = 0.1869E+02      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.2000E+00      * MEAN VALUE   =-0.4880E+00      * R . M . S = 0.5248E+01
+1 Zona 4 : YAP 1     : Distribuzione profondita energia ceduta                   
+ 
+ HBOOK     ID =       104                                        DATE  18/09/94              NO =     4
+ 
+       19.5                              -
+       19                                I
+       18.5                              I
+       18                                I
+       17.5                              I
+       17                                I
+       16.5                              I
+       16                                I
+       15.5                              I
+       15                                I
+       14.5                              I
+       14                                I
+       13.5                              I
+       13                                I
+       12.5                              I
+       12                                I
+       11.5                              I
+       11                                I
+       10.5                              I
+       10                                I
+        9.5                              I
+        9                                I
+        8.5                              I
+        8                                I
+        7.5                              I
+        7                                I
+        6.5                              I
+        6                                I
+        5.5                              I
+        5                                I
+        4.5                              I
+        4                                I
+        3.5                              I
+        3                                I-
+        2.5                              II
+        2                                II
+        1.5                              II-
+        1                                I I  -
+         .5                             -I I -I-
+ 
+ CHANNELS 100   0                                                                                                  1   
+           10   0        1         2         3         4         5         6         7         8         9         0   
+            1   1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890   
+ 
+ CONTENTS  10                            1                                                                          
+            1.                           921                                                                        
+            0   0000000000000000000000000153005400000000000000000000000000000000000000000000000000000000000000000000
+            0   0000000000000000000000000105071300000000000000000000000000000000000000000000000000000000000000000000
+            0   0000000000000000000000004744061500000000000000000000000000000000000000000000000000000000000000000000
+ 
+ LOW-EDGE       ---------------------------------------------------                                                 
+           10   1                                                                                                   
+            1.  0999998888877777666665555544444333332222211111         111112222233333444445555566666777778888899999
+            0   0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468
+ 
+ * ENTRIES =      32859      * ALL CHANNELS = 0.2400E+02      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.2000E+00      * MEAN VALUE   =-0.4811E+01      * R . M . S = 0.2339E+00
+1 Zona 5 : YAP 2     : Distribuzione profondita energia ceduta                   
+ 
+ HBOOK     ID =       105                                        DATE  18/09/94              NO =     5
+ 
+       29                                -
+       28                                I
+       27                                I
+       26                                I
+       25                                I
+       24                                I
+       23                                I
+       22                                I
+       21                                I
+       20                                I
+       19                                I
+       18                                I
+       17                                I
+       16                                I
+       15                                I
+       14                                I
+       13                                I
+       12                                I
+       11                                I
+       10                                I
+        9                                I
+        8                                I
+        7                                I
+        6                                I
+        5                                I
+        4                                I
+        3                                I--
+        2                                I I-
+        1                               -I  I-  -
+ 
+ CHANNELS 100   0                                                                                                  1   
+           10   0        1         2         3         4         5         6         7         8         9         0   
+            1   1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890   
+ 
+ CONTENTS  10                            2                                                                          
+            1.                           8221                                                                       
+            0   0000000000000000000000000195360050000000000000000000000000000000000000000000000000000000000000000000
+            0   0000000000000000000000000073490010000000000000000000000000000000000000000000000000000000000000000000
+            0   0000000000000000000000002475770010000000000000000000000000000000000000000000000000000000000000000000
+ 
+ LOW-EDGE       ---------------------------------------------------                                                 
+           10   1                                                                                                   
+            1.  0999998888877777666665555544444333332222211111         111112222233333444445555566666777778888899999
+            0   0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468
+ 
+ * ENTRIES =      49567      * ALL CHANNELS = 0.3617E+02      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.2000E+00      * MEAN VALUE   =-0.4798E+01      * R . M . S = 0.2398E+00
+1 Zona 6 : YAP 3     : Distribuzione profondita energia ceduta                   
+ 
+ HBOOK     ID =       106                                        DATE  18/09/94              NO =     6
+ 
+       25                                -
+       24                                I
+       23                                I
+       22                                I
+       21                                I
+       20                                I
+       19                                I
+       18                                I
+       17                                I
+       16                                I
+       15                                I
+       14                                I
+       13                                I
+       12                                I
+       11                                I
+       10                                I
+        9                                I
+        8                                I
+        7                                I
+        6                                I
+        5                                I
+        4                                I
+        3                                I -
+        2                                I-I
+        1                               -I I -   ---
+ 
+ CHANNELS 100   0                                                                                                  1   
+           10   0        1         2         3         4         5         6         7         8         9         0   
+            1   1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890   
+ 
+ CONTENTS  10                            2                                                                          
+            1.                           412                                                                        
+            0   0000000000000000000000000101090001110000000000000000000000000000000000000000000000000000000000000000
+            0   0000000000000000000000000226000004790000000000000000000000000000000000000000000000000000000000000000
+            0   0000000000000000000000003224020005070000000000000000000000000000000000000000000000000000000000000000
+ 
+ LOW-EDGE       ---------------------------------------------------                                                 
+           10   1                                                                                                   
+            1.  0999998888877777666665555544444333332222211111         111112222233333444445555566666777778888899999
+            0   0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468
+ 
+ * ENTRIES =      38015      * ALL CHANNELS = 0.2872E+02      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.2000E+00      * MEAN VALUE   =-0.4805E+01      * R . M . S = 0.2899E+00
+1 Zona 7 : YAP 4     : Distribuzione profondita energia ceduta                   
+ 
+ HBOOK     ID =       107                                        DATE  18/09/94              NO =     7
+ 
+       22.5                              -
+       22                                I
+       21.5                              I
+       21                                I
+       20.5                              I
+       20                                I
+       19.5                              I
+       19                                I
+       18.5                              I
+       18                                I
+       17.5                              I
+       17                                I
+       16.5                              I
+       16                                I
+       15.5                              I
+       15                                I
+       14.5                              I
+       14                                I
+       13.5                              I
+       13                                I
+       12.5                              I
+       12                                I
+       11.5                              I
+       11                                I
+       10.5                              I
+       10                                I
+        9.5                              I
+        9                                I
+        8.5                              I
+        8                                I
+        7.5                              I
+        7                                I
+        6.5                              I
+        6                                I
+        5.5                              I
+        5                                I
+        4.5                              I
+        4                                I
+        3.5                              I
+        3                                I
+        2.5                              I -
+        2                                I I
+        1.5                              I-I
+        1                                I I--
+         .5                             -I   I
+ 
+ CHANNELS 100   0                                                                                                  1   
+           10   0        1         2         3         4         5         6         7         8         9         0   
+            1   1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890   
+ 
+ CONTENTS  10                            2                                                                          
+            1.                           212                                                                        
+            0   0000000000000000000000000231950000000000000000000000000000000000000000000000000000000000000000000000
+            0   0000000000000000000000000860710000000000000000000000000000000000000000000000000000000000000000000000
+            0   0000000000000000000000008553910000000000000000000000000000000000000000000000000000000000000000000000
+ 
+ LOW-EDGE       ---------------------------------------------------                                                 
+           10   1                                                                                                   
+            1.  0999998888877777666665555544444333332222211111         111112222233333444445555566666777778888899999
+            0   0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468
+ 
+ * ENTRIES =      35163      * ALL CHANNELS = 0.2725E+02      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.2000E+00      * MEAN VALUE   =-0.4823E+01      * R . M . S = 0.1825E+00
+1 Zona 8 : fughe     : Distribuzione profondita energia ceduta                   
+ 
+ HBOOK     ID =       108                                        DATE  18/09/94              NO =     8
+ 
+        1.52                                                          -
+        1.48                                                          I
+        1.44                                                          I
+        1.4                                                           I
+        1.36                                                          I
+        1.32                                                          I
+        1.28                                                          I
+        1.24                                                          I
+        1.2                                                           I
+        1.16                                                          I
+        1.12                                                          I
+        1.08                                                          I
+        1.04                                                          I
+        1                                                             I
+         .96                                                          I
+         .92                                                          I
+         .88                                                          I
+         .84                                                          I
+         .8                                                           I
+         .76                                                          I
+         .72                                                          I
+         .68                                                          I
+         .64                                                          I
+         .6                                                           I
+         .56                                                          I
+         .52                                              -           I
+         .48                                              I           I
+         .44                                              I           I
+         .4                                               I           I
+         .36                                              I           I
+         .32                                              I           I
+         .28                                              I           I
+         .24                                              I           I
+         .2                                               I           I
+         .16                                              I           I
+         .12                                              I           I
+         .08                                              I           I
+         .04                                              I           I
+ 
+ CHANNELS 100   0                                                                                                  1   
+           10   0        1         2         3         4         5         6         7         8         9         0   
+            1   1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890   
+ 
+ CONTENTS   1.                                                        1                                             
+            0   0000000000000000000000000000000000000000005000000000004000000000000000000000000000000000000000000000
+            0   0000000000000000000000000000000000000000001000000000008000000000000000000000000000000000000000000000
+            0   0000000000000000000000000000000000000000001000000000006000000000000000000000000000000000000000000000
+            0   0000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000
+ 
+ LOW-EDGE       ---------------------------------------------------                                                 
+           10   1                                                                                                   
+            1.  0999998888877777666665555544444333332222211111         111112222233333444445555566666777778888899999
+            0   0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468
+ 
+ * ENTRIES =        210      * ALL CHANNELS = 0.1997E+01      * UNDERFLOW = 0.1354E+03      * OVERFLOW = 0.1286E+03
+ * BIN WID = 0.2000E+00      * MEAN VALUE   = 0.2859E+00      * R . M . S = 0.1047E+01
+ 
+ ****** HBOOK   NO ENTRIES FOR HISTOGRAM ID=         109                 
+ 
+ ****** HBOOK   NO ENTRIES FOR HISTOGRAM ID=         110                 
+1 DISTRIBUZIONE ANGOLO DECADIMENTO POSITRONI                                     
+ 
+ HBOOK     ID =       501                                        DATE  18/09/94              NO =    11
+ 
+       70
+       68                                           -
+       66                                           I
+       64                                           I
+       62                                           I
+       60                                           I
+       58                                           I
+       56                                           I
+       54                                           I
+       52                                           I
+       50                                           I
+       48                                           I
+       46                                           I
+       44                                           I
+       42                                           I
+       40                                           I
+       38                                           I
+       36                                           I
+       34                                           I
+       32                                           I
+       30                                           I
+       28                                           I
+       26                                           I
+       24                                           I
+       22                                           I
+       20                                           I
+       18                                           I
+       16                                           I
+       14                                           I
+       12                                           I
+       10                                           I
+        8                                           I
+        6                                           I
+        4                                           I
+        2                                -          I
+ 
+ CHANNELS  10   0        1         2         3         4         5         6         7     
+            1   123456789012345678901234567890123456789012345678901234567890123456789012   
+ 
+ CONTENTS  10                                       6                                   
+            1.                           1          8                                   
+ 
+ LOW-EDGE   1.              111111111112222222222223333333333344444444444455555555555666
+            0   001234566789012334567890012345677890123445678900123456778901234456789011
+            0   087643219875432098754310986542109765421087653219876432198754320986543109
+            0   074186307529631852074186307529631852074186307529631852074186307529631852
+            0   024791368024791368024791368024791368024791368024791368024791368024791368
+ 
+ * ENTRIES =         69      * ALL CHANNELS = 0.6900E+02      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.8722E-01      * MEAN VALUE   = 0.3170E+01      * R . M . S = 0.1147E+00
+1 Zona 1 : Aria r=10cm : Distribuzione energia ceduta nel piano x-y              
+ 
+ HBOOK     ID =       201                                        DATE  18/09/94              NO =    12
+ 
+ CHANNELS  10 U 0        1         2         3         4         5         6 O 
+            1 N 123456789012345678901234567890123456789012345678901234567890 V 
+            ********************************************************************
+   OVE      *                                                                  * OVE
+    29      *                                                                  *  60
+    28      *                                                                  *  59
+    27      *                                                                  *  58
+    26      *                                                                  *  57
+    25      *                                                                  *  56
+    24      *                                                                  *  55
+    23      *                                                                  *  54
+    22      *                                                                  *  53
+    21      *                                                                  *  52
+    20      *                                                                  *  51
+    19      *                                                                  *  50
+    18      *                                                                  *  49
+    17      *                                                                  *  48
+    16      *                                                                  *  47
+    15      *                                                                  *  46
+    14      *                                                                  *  45
+    13      *                                                                  *  44
+    12      *                                                                  *  43
+    11      *                                                                  *  42
+    10      *                                                                  *  41
+     9      *                               ..  .                              *  40
+     8      *                                 .                                *  39
+     7      *                                                                  *  38
+     6      *                            .                                     *  37
+     5      *                                                                  *  36
+     4      *                                                                  *  35
+     3      *                           .                                      *  34
+     2      *                                                                  *  33
+     1      *                                                                  *  32
+            *                                .+ .                              *  31
+ -   1      *                         .      .... .                            *  30
+ -   2      *                                 .                                *  29
+ -   3      *                                   ..                             *  28
+ -   4      *                                   .                              *  27
+ -   5      *                                                                  *  26
+ -   6      *                                                                  *  25
+ -   7      *                                                                  *  24
+ -   8      *                          .                                       *  23
+ -   9      *                                                                  *  22
+ -  10      *                                                                  *  21
+ -  11      *                                                                  *  20
+ -  12      *                                                                  *  19
+ -  13      *                                                                  *  18
+ -  14      *                                                                  *  17
+ -  15      *                                                                  *  16
+ -  16      *                                                                  *  15
+ -  17      *                                                                  *  14
+ -  18      *                                                                  *  13
+ -  19      *                                                                  *  12
+ -  20      *                                                                  *  11
+ -  21      *                                                                  *  10
+ -  22      *                                                                  *   9
+ -  23      *                                                                  *   8
+ -  24      *                                                                  *   7
+ -  25      *                                                                  *   6
+ -  26      *                                                                  *   5
+ -  27      *                                                                  *   4
+ -  28      *                                                                  *   3
+ -  29      *                                                                  *   2
+ -  30      *                                                                  *   1
+   UND      *                                                                  * UND
+            ********************************************************************
+ LOW-EDGE       ------------------------------                              
+           10   322222222221111111111                   11111111112222222222
+            1.  098765432109876543210987654321 12345678901234567890123456789
+ 
+  *                                                          I         I
+  * ENTRIES =      336                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I    3.265I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 Zona 2 : Aria r=1cm : Distribuzione energia ceduta nel piano x-y               
+ 
+ HBOOK     ID =       202                                        DATE  18/09/94              NO =    13
+ 
+ CHANNELS  10 U 0        1         2         3         4         5         6 O 
+            1 N 123456789012345678901234567890123456789012345678901234567890 V 
+            ********************************************************************
+   OVE      *                                                                  * OVE
+    29      *                                                                  *  60
+    28      *                                                                  *  59
+    27      *                                                                  *  58
+    26      *                                                                  *  57
+    25      *                                                                  *  56
+    24      *                                                                  *  55
+    23      *                                                                  *  54
+    22      *                                                                  *  53
+    21      *                                                                  *  52
+    20      *                                                                  *  51
+    19      *                                                                  *  50
+    18      *                                                                  *  49
+    17      *                                                                  *  48
+    16      *                                                                  *  47
+    15      *                                                                  *  46
+    14      *                                                                  *  45
+    13      *                                                                  *  44
+    12      *                                                                  *  43
+    11      *                                                                  *  42
+    10      *                                  ..                              *  41
+     9      *                              .                                   *  40
+     8      *                                                                  *  39
+     7      *                                                                  *  38
+     6      *                                                                  *  37
+     5      *                                                                  *  36
+     4      *                                                                  *  35
+     3      *                                                                  *  34
+     2      *                                                                  *  33
+     1      *                                                                  *  32
+            *                                                                  *  31
+ -   1      *                                                                  *  30
+ -   2      *                                                                  *  29
+ -   3      *                                                                  *  28
+ -   4      *                                                                  *  27
+ -   5      *                                                                  *  26
+ -   6      *                                          .                       *  25
+ -   7      *                                                                  *  24
+ -   8      *                                                                  *  23
+ -   9      *                                                                  *  22
+ -  10      *                           .          .                           *  21
+ -  11      *                                 .                                *  20
+ -  12      *                                                                  *  19
+ -  13      *                                                                  *  18
+ -  14      *                                                                  *  17
+ -  15      *                                                                  *  16
+ -  16      *                                                                  *  15
+ -  17      *                                                                  *  14
+ -  18      *                                                                  *  13
+ -  19      *                                                                  *  12
+ -  20      *                                                                  *  11
+ -  21      *                                                                  *  10
+ -  22      *                                                                  *   9
+ -  23      *                                                                  *   8
+ -  24      *                                                                  *   7
+ -  25      *                                                                  *   6
+ -  26      *                                                                  *   5
+ -  27      *                                                                  *   4
+ -  28      *                                                                  *   3
+ -  29      *                                                                  *   2
+ -  30      *                                                                  *   1
+   UND      *                                                                  * UND
+            ********************************************************************
+ LOW-EDGE       ------------------------------                              
+           10   322222222221111111111                   11111111112222222222
+            1.  098765432109876543210987654321 12345678901234567890123456789
+ 
+  *                                                          I         I
+  * ENTRIES =      132                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I     .334I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 Zona 3 : Aria Distribuzione energia ceduta nel piano x-y                       
+ 
+ HBOOK     ID =       203                                        DATE  18/09/94              NO =    14
+ 
+ CHANNELS  10 U 0        1         2         3         4         5         6 O 
+            1 N 123456789012345678901234567890123456789012345678901234567890 V 
+            ********************************************************************
+   OVE      *                                                                  * OVE
+    29      *                                                                  *  60
+    28      *                                                                  *  59
+    27      *                                                                  *  58
+    26      *                                                                  *  57
+    25      *                                                                  *  56
+    24      *                                                                  *  55
+    23      *                                                                  *  54
+    22      *                                                                  *  53
+    21      *                                                                  *  52
+    20      *                                                                  *  51
+    19      *                       . .  .       . .  .          .             *  50
+    18      *                         ..                                       *  49
+    17      *                                       . .                        *  48
+    16      *                                                                  *  47
+    15      *             .            .                 ..                    *  46
+    14      *                                                                  *  45
+    13      *                          . .                       .             *  44
+    12      *                                                                  *  43
+    11      *                         .      .              .    .             *  42
+    10      *                     .    . ..  ......                            *  41
+     9      *                          .   .  .    .                           *  40
+     8      *                    .   .             .                           *  39
+     7      *                    .    .   .                      .             *  38
+     6      *                        .     .          ..                       *  37
+     5      *                         .   .            .                       *  36
+     4      *                      . .  ..  .    ..                            *  35
+     3      *                         .   .   .  . .    .                      *  34
+     2      *                      .   ..  .. ..  .  .  .        .             *  33
+     1      *                   .  .     .  .. . ... . .         .             *  32
+            *             .        .   ...  .  ..      . .                     *  31
+ -   1      *                      .    .. ... ..  .    .        .             *  30
+ -   2      *                        ..  . ..  ..       .                      *  29
+ -   3      *             .     .  .    .    .... .     .                      *  28
+ -   4      *                      .     . . . .       .     .                 *  27
+ -   5      *                       .   .  ..  .  .   .                        *  26
+ -   6      *                 .     . .  .  . .    .   .                       *  25
+ -   7      *             .          .          . .    .                       *  24
+ -   8      *                        ..  .           ..                        *  23
+ -   9      *                          . .          ..                         *  22
+ -  10      *                           .. . .     .                           *  21
+ -  11      *                            . .......                             *  20
+ -  12      *                   .                                              *  19
+ -  13      *                ..                                                *  18
+ -  14      *                .          ..                                     *  17
+ -  15      *             .                                                    *  16
+ -  16      *             .                                                    *  15
+ -  17      *                  .     .           .               .             *  14
+ -  18      *                 ..                                               *  13
+ -  19      *                                         .                        *  12
+ -  20      *               .    .  .  .        .  .. .                        *  11
+ -  21      *                                                                  *  10
+ -  22      *                                                                  *   9
+ -  23      *                                                                  *   8
+ -  24      *                                                                  *   7
+ -  25      *                                                                  *   6
+ -  26      *                                                                  *   5
+ -  27      *                                                                  *   4
+ -  28      *                                                                  *   3
+ -  29      *                                                                  *   2
+ -  30      *                                                                  *   1
+   UND      *                                                                  * UND
+            ********************************************************************
+ LOW-EDGE       ------------------------------                              
+           10   322222222221111111111                   11111111112222222222
+            1.  098765432109876543210987654321 12345678901234567890123456789
+ 
+  *                                                          I         I
+  * ENTRIES =      597                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I   18.693I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 Zona 4 : YAP 1 Distribuzione energia ceduta nel piano del yap                  
+ 
+ HBOOK     ID =       204                                        DATE  18/09/94              NO =    15
+ 
+ CHANNELS  10 U 0        1         2         3         4         5         6 O 
+            1 N 123456789012345678901234567890123456789012345678901234567890 V 
+            ********************************************************************
+   OVE      *                                                                  * OVE
+    29      *                                                                  *  60
+    28      *                                                                  *  59
+    27      *                                                                  *  58
+    26      *                                                                  *  57
+    25      *                                                                  *  56
+    24      *                                                                  *  55
+    23      *                                                                  *  54
+    22      *                                                                  *  53
+    21      *                                                                  *  52
+    20      *                                                                  *  51
+    19      *                                                                  *  50
+    18      *                                                                  *  49
+    17      *                                                                  *  48
+    16      *                                                                  *  47
+    15      *                                                                  *  46
+    14      *                                                                  *  45
+    13      *                                                                  *  44
+    12      *                                                                  *  43
+    11      *                                                                  *  42
+    10      *                                                                  *  41
+     9      *                                              +                   *  40
+     8      *                                       .                          *  39
+     7      *                                .                                 *  38
+     6      *             +.    .            +                                 *  37
+     5      *                                .                                 *  36
+     4      *                                        .   . +                   *  35
+     3      *                                              .                   *  34
+     2      *             .                                                    *  33
+     1      *                                          .                       *  32
+            *                                                                  *  31
+ -   1      *                             +      .                             *  30
+ -   2      *                .                  . +.                           *  29
+ -   3      *                                   . .   .                        *  28
+ -   4      *                               .                                  *  27
+ -   5      *                              .  .                                *  26
+ -   6      *                                                                  *  25
+ -   7      *                            +                 ..                  *  24
+ -   8      *                  . .                  .                          *  23
+ -   9      *             .    ...                                             *  22
+ -  10      *                                  .                               *  21
+ -  11      *                                                                  *  20
+ -  12      *                                                                  *  19
+ -  13      *                                                                  *  18
+ -  14      *                                                                  *  17
+ -  15      *                                                                  *  16
+ -  16      *                                                                  *  15
+ -  17      *                                                                  *  14
+ -  18      *                                                                  *  13
+ -  19      *                                                                  *  12
+ -  20      *                                                                  *  11
+ -  21      *                                                                  *  10
+ -  22      *                                                                  *   9
+ -  23      *                                                                  *   8
+ -  24      *                                                                  *   7
+ -  25      *                                                                  *   6
+ -  26      *                                                                  *   5
+ -  27      *                                                                  *   4
+ -  28      *                                                                  *   3
+ -  29      *                                                                  *   2
+ -  30      *                                                                  *   1
+   UND      *                                                                  * UND
+            ********************************************************************
+ LOW-EDGE       ------------------------------                              
+           10   322222222221111111111                   11111111112222222222
+            1.  098765432109876543210987654321 12345678901234567890123456789
+ 
+  *                                                          I         I
+  * ENTRIES =    32859                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I   24.001I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 Zona 5 : YAP 2 Distribuzione energia ceduta nel piano del yap                  
+ 
+ HBOOK     ID =       205                                        DATE  18/09/94              NO =    16
+ 
+ CHANNELS  10 U 0        1         2         3         4         5         6 O 
+            1 N 123456789012345678901234567890123456789012345678901234567890 V 
+            ********************************************************************
+   OVE      *                                                                  * OVE
+    29      *                                                                  *  60
+    28      *                                                                  *  59
+    27      *                                                                  *  58
+    26      *                                                                  *  57
+    25      *                                                                  *  56
+    24      *                                                                  *  55
+    23      *                                                                  *  54
+    22      *                                                                  *  53
+    21      *                                                                  *  52
+    20      *                                                                  *  51
+    19      *                                                                  *  50
+    18      *                                                                  *  49
+    17      *                                                                  *  48
+    16      *                                                                  *  47
+    15      *                                                                  *  46
+    14      *                                                                  *  45
+    13      *                                                                  *  44
+    12      *                                                                  *  43
+    11      *                                                                  *  42
+    10      *                                                                  *  41
+     9      *             .   .               +                                *  40
+     8      *                 .               .   .                            *  39
+     7      *                                 .               .+.              *  38
+     6      *             .             + .   +                                *  37
+     5      *                                                  .               *  36
+     4      *                             .    .      ..       .               *  35
+     3      *                        . .                      .                *  34
+     2      *                          .              .                        *  33
+     1      *                                .         .                       *  32
+            *                        .               ..                        *  31
+ -   1      *                                       +  .                       *  30
+ -   2      *               .                                                  *  29
+ -   3      *                                             +                    *  28
+ -   4      *                             .              ..                    *  27
+ -   5      *               . ..     .  . +            .                       *  26
+ -   6      *                 . .   .   .                                      *  25
+ -   7      *                                                                  *  24
+ -   8      *                       .      ...        .                        *  23
+ -   9      *                       .         .       .                        *  22
+ -  10      *                                                                  *  21
+ -  11      *                                                                  *  20
+ -  12      *                                                                  *  19
+ -  13      *                                                                  *  18
+ -  14      *                                                                  *  17
+ -  15      *                                                                  *  16
+ -  16      *                                                                  *  15
+ -  17      *                                                                  *  14
+ -  18      *                                                                  *  13
+ -  19      *                                                                  *  12
+ -  20      *                                                                  *  11
+ -  21      *                                                                  *  10
+ -  22      *                                                                  *   9
+ -  23      *                                                                  *   8
+ -  24      *                                                                  *   7
+ -  25      *                                                                  *   6
+ -  26      *                                                                  *   5
+ -  27      *                                                                  *   4
+ -  28      *                                                                  *   3
+ -  29      *                                                                  *   2
+ -  30      *                                                                  *   1
+   UND      *                                                                  * UND
+            ********************************************************************
+ LOW-EDGE       ------------------------------                              
+           10   322222222221111111111                   11111111112222222222
+            1.  098765432109876543210987654321 12345678901234567890123456789
+ 
+  *                                                          I         I
+  * ENTRIES =    49567                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I   36.172I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 Zona 6 : YAP 3 Distribuzione energia ceduta nel piano del yap                  
+ 
+ HBOOK     ID =       206                                        DATE  18/09/94              NO =    17
+ 
+ CHANNELS  10 U 0        1         2         3         4         5         6 O 
+            1 N 123456789012345678901234567890123456789012345678901234567890 V 
+            ********************************************************************
+   OVE      *                                                                  * OVE
+    29      *                                                                  *  60
+    28      *                                                                  *  59
+    27      *                                                                  *  58
+    26      *                                                                  *  57
+    25      *                                                                  *  56
+    24      *                                                                  *  55
+    23      *                                                                  *  54
+    22      *                                                                  *  53
+    21      *                                                                  *  52
+    20      *                                                                  *  51
+    19      *                                                                  *  50
+    18      *                                                                  *  49
+    17      *                                                                  *  48
+    16      *                                                                  *  47
+    15      *                                                                  *  46
+    14      *                                                                  *  45
+    13      *                                                                  *  44
+    12      *                                                                  *  43
+    11      *                                                                  *  42
+    10      *                                                                  *  41
+     9      *                                    .                             *  40
+     8      *                                                                  *  39
+     7      *                                   .            .                 *  38
+     6      *                 .       .                      .                 *  37
+     5      *               .                                                  *  36
+     4      *                                .                                 *  35
+     3      *                                               .    +             *  34
+     2      *                              +           +    ..                 *  33
+     1      *                                 +             ..                 *  32
+            *               .           +             +    +                   *  31
+ -   1      *               .                                                  *  30
+ -   2      *                                      +                           *  29
+ -   3      *                                                                  *  28
+ -   4      *                 .               ..                               *  27
+ -   5      *                                +     ..                          *  26
+ -   6      *                           + +              .                     *  25
+ -   7      *                                             .                    *  24
+ -   8      *                                     .                            *  23
+ -   9      *               .             +                                    *  22
+ -  10      *               .                                                  *  21
+ -  11      *                                                                  *  20
+ -  12      *                                                                  *  19
+ -  13      *                                                                  *  18
+ -  14      *                                                                  *  17
+ -  15      *                                                                  *  16
+ -  16      *                                                                  *  15
+ -  17      *                                                                  *  14
+ -  18      *                                                                  *  13
+ -  19      *                                                                  *  12
+ -  20      *                                                                  *  11
+ -  21      *                                                                  *  10
+ -  22      *                                                                  *   9
+ -  23      *                                                                  *   8
+ -  24      *                                                                  *   7
+ -  25      *                                                                  *   6
+ -  26      *                                                                  *   5
+ -  27      *                                                                  *   4
+ -  28      *                                                                  *   3
+ -  29      *                                                                  *   2
+ -  30      *                                                                  *   1
+   UND      *                                                                  * UND
+            ********************************************************************
+ LOW-EDGE       ------------------------------                              
+           10   322222222221111111111                   11111111112222222222
+            1.  098765432109876543210987654321 12345678901234567890123456789
+ 
+  *                                                          I         I
+  * ENTRIES =    38015                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I   28.723I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 Zona 7 : YAP 4 Distribuzione energia ceduta nel piano del yap                  
+ 
+ HBOOK     ID =       207                                        DATE  18/09/94              NO =    18
+ 
+ CHANNELS  10 U 0        1         2         3         4         5         6 O 
+            1 N 123456789012345678901234567890123456789012345678901234567890 V 
+            ********************************************************************
+   OVE      *                                                                  * OVE
+    29      *                                                                  *  60
+    28      *                                                                  *  59
+    27      *                                                                  *  58
+    26      *                                                                  *  57
+    25      *                                                                  *  56
+    24      *                                                                  *  55
+    23      *                                                                  *  54
+    22      *                                                                  *  53
+    21      *                                                                  *  52
+    20      *                                                                  *  51
+    19      *                                                                  *  50
+    18      *                                                                  *  49
+    17      *                                                                  *  48
+    16      *                                                                  *  47
+    15      *                                                                  *  46
+    14      *                                                                  *  45
+    13      *                                                                  *  44
+    12      *                                                                  *  43
+    11      *                                                                  *  42
+    10      *                                                                  *  41
+     9      *               .         ..   .. ...                              *  40
+     8      *                     +          +                                 *  39
+     7      *                   +               .               .              *  38
+     6      *              +     .                             + .             *  37
+     5      *                    .          ..                   .             *  36
+     4      *                                                  ..              *  35
+     3      *                                                                  *  34
+     2      *                                                                  *  33
+     1      *                                               +                  *  32
+            *                                                                  *  31
+ -   1      *                       .              .                           *  30
+ -   2      *                    .     .         .                             *  29
+ -   3      *                           .                                      *  28
+ -   4      *                            +.     +                              *  27
+ -   5      *                             +           +.                       *  26
+ -   6      *                                                                  *  25
+ -   7      *                                                                  *  24
+ -   8      *                                   .                              *  23
+ -   9      *                                       .                          *  22
+ -  10      *                                                                  *  21
+ -  11      *                                                                  *  20
+ -  12      *                                                                  *  19
+ -  13      *                                                                  *  18
+ -  14      *                                                                  *  17
+ -  15      *                                                                  *  16
+ -  16      *                                                                  *  15
+ -  17      *                                                                  *  14
+ -  18      *                                                                  *  13
+ -  19      *                                                                  *  12
+ -  20      *                                                                  *  11
+ -  21      *                                                                  *  10
+ -  22      *                                                                  *   9
+ -  23      *                                                                  *   8
+ -  24      *                                                                  *   7
+ -  25      *                                                                  *   6
+ -  26      *                                                                  *   5
+ -  27      *                                                                  *   4
+ -  28      *                                                                  *   3
+ -  29      *                                                                  *   2
+ -  30      *                                                                  *   1
+   UND      *                                                                  * UND
+            ********************************************************************
+ LOW-EDGE       ------------------------------                              
+           10   322222222221111111111                   11111111112222222222
+            1.  098765432109876543210987654321 12345678901234567890123456789
+ 
+  *                                                          I         I
+  * ENTRIES =    35163                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I   27.252I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 Zona 8 : fughe dal sistema : distribuzione in x-y                              
+ 
+ HBOOK     ID =       208                                        DATE  18/09/94              NO =    19
+ 
+ CHANNELS  10 U 0        1         2         3         4         5         6 O 
+            1 N 123456789012345678901234567890123456789012345678901234567890 V 
+            ********************************************************************
+   OVE      * G   +     +   +    +                  .    +  + +              F * OVE
+    29      *                   +                                              *  60
+    28      *                                                                  *  59
+    27      *                                                                  *  58
+    26      *                                                                  *  57
+    25      *                                                                  *  56
+    24      *                                                                + *  55
+    23      *                    +                                             *  54
+    22      * +                   +                                            *  53
+    21      * +             +                                                  *  52
+    20      *              +                          +                        *  51
+    19      *                                                                  *  50
+    18      *                           .                                      *  49
+    17      *                                                                  *  48
+    16      * +                                                                *  47
+    15      *                                                                  *  46
+    14      *                                         +                        *  45
+    13      *              +                +                                  *  44
+    12      *        +               +                  +       +              *  43
+    11      *       +                                                          *  42
+    10      *                   +                                              *  41
+     9      *                +       +     +            +     +                *  40
+     8      *                                                      +  +      + *  39
+     7      * +                +                                           +   *  38
+     6      *                                                                  *  37
+     5      *                                  +                               *  36
+     4      * +       +                               +                        *  35
+     3      * 3                                    +          +  +             *  34
+     2      *                                                                  *  33
+     1      * +                            +     +   +                       + *  32
+            *                                                                + *  31
+ -   1      * +                               2                              + *  30
+ -   2      *           +                        +                             *  29
+ -   3      * +                        +                                     + *  28
+ -   4      *          +                       +          +           +        *  27
+ -   5      *                                                                  *  26
+ -   6      * 3       +                                                      + *  25
+ -   7      *                            +                                     *  24
+ -   8      *    +                    +             .                          *  23
+ -   9      *                                +                                 *  22
+ -  10      *                +        +            +                         + *  21
+ -  11      * +                                                              + *  20
+ -  12      * +                                                                *  19
+ -  13      *                  +            +                                  *  18
+ -  14      *           +    +                                                 *  17
+ -  15      *                                                                  *  16
+ -  16      *                   +                                            + *  15
+ -  17      *           +                                            +         *  14
+ -  18      *                                                                  *  13
+ -  19      *                                                                  *  12
+ -  20      *                                                                  *  11
+ -  21      *                    +                                             *  10
+ -  22      *                                                              +   *   9
+ -  23      *                                                             +    *   8
+ -  24      *                                                                  *   7
+ -  25      *                                                                  *   6
+ -  26      *                                          +                     + *   5
+ -  27      * +                                                                *   4
+ -  28      *                                                                  *   3
+ -  29      *                        +                         +          +    *   2
+ -  30      *                                                                  *   1
+   UND      * N  ++ +   +      +                        + 3  +               F * UND
+            ********************************************************************
+ LOW-EDGE       ------------------------------                              
+           10   322222222221111111111                   11111111112222222222
+            1.  098765432109876543210987654321 12345678901234567890123456789
+ 
+  *                                                    16.924I   13.273I   15.407
+  * ENTRIES =      210                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                       27.647I  117.055I   20.282
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                23.778I   16.53 I   15.065
+ 
+ ****** HBOOK   NO ENTRIES FOR HISTOGRAM ID=         209                 
+ 
+ ****** HBOOK   NO ENTRIES FOR HISTOGRAM ID=         210                 
+1 DISTRIBUZIONE R-Z , PESATA SU ENERGIA --                                       
+ 
+ HBOOK     ID =       700                                        DATE  18/09/94              NO =    22
+ 
+ CHANNELS  10 U 0        1         2         3 O 
+            1 N 123456789012345678901234567890 V 
+            **************************************
+   OVE      *     +3+++332+   3+3++++++5334++  * * OVE
+     9      *             .  ..     4+  +.. .    *  20
+     8      *                     ..2  + .       *  19
+     7      *        . .        .   +  ...2.     *  18
+     6      *             .   .     4. ...+3.    *  17
+     5      *   ..+........     .   .  .  ..     *  16
+     4      *             .. ..     ++..+ ..     *  15
+     3      *             ..        .+  .. ..    *  14
+     2      *             .. ..     +++...  .    *  13
+     1      *            ...       .+ + +.       *  12
+            *   2..     . ..    .. .+2. + .+     *  11
+ -   1      *   ... .  .   .       .3+.   .      *  10
+ -   2      *    . .. ..  ..      ..4. . ..    . *   9
+ -   3      *      ..    .... .    .++ +         *   8
+ -   4      *             ..       .6  ...       *   7
+ -   5      *            ...       .62+   ..     *   6
+ -   6      *   ..+..+.....         3.....       *   5
+ -   7      *    .     ...          .. .+        *   4
+ -   8      *                   .   3.+ +        *   3
+ -   9      *                   .   2...+  ..    *   2
+ -  10      *              .   .    .     .      *   1
+   UND      *   2         3 7   3 3.++5+   ++3 * * UND
+            **************************************
+ LOW-EDGE  10             11111111112222222222
+            1.   12345678901234567890123456789
+ 
+  *                                                          I   62.638I   65.953
+  * ENTRIES =   156879                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I  139.927I     .511
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I   41.41 I   93.961
+1 DISTRIBUZIONE x-y , PESATA SU ENERGIA --                                       
+ 
+ HBOOK     ID =       701                                        DATE  18/09/94              NO =    23
+ 
+ CHANNELS  10 U 0        1         2         3         4         5         6 O 
+            1 N 123456789012345678901234567890123456789012345678901234567890 V 
+            ********************************************************************
+   OVE      * G   +     +   +    +                  .    +  + +              F * OVE
+    29      *                   +                                              *  60
+    28      *                                                                  *  59
+    27      *                                                                  *  58
+    26      *                                                                  *  57
+    25      *                                                                  *  56
+    24      *                                                                + *  55
+    23      *                    +                                             *  54
+    22      * +                   +                                            *  53
+    21      * +             +                               .                  *  52
+    20      *              +2+   +. 23.+ .  .5...2 2+ 3+   . + + .             *  51
+    19      *                       . .  .       . .  .          .             *  50
+    18      *                         ...                                      *  49
+    17      *            2                          . .                        *  48
+    16      * +                                                                *  47
+    15      *            ..            .                 ..                    *  46
+    14      *                                         +           .            *  45
+    13      *              +           . .  +                    .3            *  44
+    12      *        +               +                  +       +              *  43
+    11      *       +                 .      .              .    ..            *  42
+    10      *                   + .    . ..  ......                            *  41
+     9      *                +       + .   2... .  .    +     +   .            *  40
+     8      *                    .   .        .    .              .+  +      + *  39
+     7      * +          .     + .    .   .                      ..        +   *  38
+     6      *                        .   . .          ..          .            *  37
+     5      *            2            .   .    +       .          .            *  36
+     4      * +       +            . .  ..  .    ..   +           2            *  35
+     3      * 3          2            . . .   .  . 2    .     +  +.            *  34
+     2      *            +         .   ..  .. ..  .  .  .        ..            *  33
+     1      * +                 .  .     . +.. . +.. + .         ..          + *  32
+            *            2.        .   ...  ..+..      . .        .          + *  31
+ -   1      * +          +         .  . .. ...2.. ..    .        .+          + *  30
+ -   2      *           +.           ..  . .. ...+      .         .            *  29
+ -   3      * +          ..     .  .   +.    ......     .         .          + *  28
+ -   4      *          + .         .     . . . +.      .  +  .    +   +        *  27
+ -   5      *            .          .   .  ..  .  .   .           ..           *  26
+ -   6      * 3       +..+    .     . .  .  . .    .   .                     + *  25
+ -   7      *            ..          .   +      . .    .                       *  24
+ -   8      *    +                   .2. .          ...                        *  23
+ -   9      *            +             . .   +      ..                         *  22
+ -  10      *            +   +        + .. . .     +                         + *  21
+ -  11      * +                          . .......                           + *  20
+ -  12      * +          .      .                                              *  19
+ -  13      *            .   ..+            +                     ..           *  18
+ -  14      *           ++   2          ..                        +            *  17
+ -  15      *            ..                                       +            *  16
+ -  16      *            +.     +                                            + *  15
+ -  17      *           +      .     .           .               ..  +         *  14
+ -  18      *                 ..                                               *  13
+ -  19      *                                         .           .            *  12
+ -  20      *            +  .    .  .  .        .  .. .           2            *  11
+ -  21      *              +.   +++ . .+.+2.++..2. .. +.    +  2..             *  10
+ -  22      *                                                              +   *   9
+ -  23      *                                                             +    *   8
+ -  24      *                                                                  *   7
+ -  25      *                                                                  *   6
+ -  26      *                                          +                     + *   5
+ -  27      * +                                                                *   4
+ -  28      *                                                                  *   3
+ -  29      *                        +                         +          +    *   2
+ -  30      *                                                                  *   1
+   UND      * N  ++ +   +      +                        + 3  +               F * UND
+            ********************************************************************
+ LOW-EDGE       ------------------------------                              
+           10   322222222221111111111                   11111111112222222222
+            1.  098765432109876543210987654321 12345678901234567890123456789
+ 
+  *                                                    16.924I   13.273I   15.407
+  * ENTRIES =   156879                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                       27.647I  255.496I   20.282
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                23.778I   16.53 I   15.065
+1 DISTRIBUZIONE X-Y PUNTI DECADIMENTO POSITRONE                                  
+ 
+ HBOOK     ID =       400                                        DATE  18/09/94              NO =    24
+ 
+ CHANNELS  10 U 0        1         2         3         4         5         6 O 
+            1 N 123456789012345678901234567890123456789012345678901234567890 V 
+            ********************************************************************
+   OVE      *                                                                  * OVE
+    29      *                                                                  *  60
+    28      *                                                                  *  59
+    27      *                                                                  *  58
+    26      *                                                                  *  57
+    25      *                                                                  *  56
+    24      *                                                                  *  55
+    23      *                                                                  *  54
+    22      *                                                                  *  53
+    21      *                                                                  *  52
+    20      *               +2   ++ 22 +     4  ++ 2+ 2+   +                   *  51
+    19      *                                                                  *  50
+    18      *                                                                  *  49
+    17      *            +                                                     *  48
+    16      *                                                                  *  47
+    15      *                                                                  *  46
+    14      *                                                     +            *  45
+    13      *                                                     2            *  44
+    12      *                                                                  *  43
+    11      *                                                                  *  42
+    10      *                                                                  *  41
+     9      *                                                                  *  40
+     8      *                                                                  *  39
+     7      *                                                                  *  38
+     6      *                                                                  *  37
+     5      *            2                                                     *  36
+     4      *                                                     2            *  35
+     3      *            2                                                     *  34
+     2      *            +                                                     *  33
+     1      *                                                                  *  32
+            *            2                                                     *  31
+ -   1      *            +                                        +            *  30
+ -   2      *            +                                        +            *  29
+ -   3      *                                                                  *  28
+ -   4      *                                                     +            *  27
+ -   5      *            +                                        +            *  26
+ -   6      *            +                                                     *  25
+ -   7      *                                                                  *  24
+ -   8      *                                                                  *  23
+ -   9      *            +                                                     *  22
+ -  10      *            +                                                     *  21
+ -  11      *                                                                  *  20
+ -  12      *                                                                  *  19
+ -  13      *            +                                                     *  18
+ -  14      *            +                                        2            *  17
+ -  15      *                                                     +            *  16
+ -  16      *                                                                  *  15
+ -  17      *                                                                  *  14
+ -  18      *                                                                  *  13
+ -  19      *                                                                  *  12
+ -  20      *            +                                        2            *  11
+ -  21      *              +    + +    + +2 +++ +     +     +  2               *  10
+ -  22      *                                                                  *   9
+ -  23      *                                                                  *   8
+ -  24      *                                                                  *   7
+ -  25      *                                                                  *   6
+ -  26      *                                                                  *   5
+ -  27      *                                                                  *   4
+ -  28      *                                                                  *   3
+ -  29      *                                                                  *   2
+ -  30      *                                                                  *   1
+   UND      *                                                                  * UND
+            ********************************************************************
+ LOW-EDGE       ------------------------------                              
+           10   322222222221111111111                   11111111112222222222
+            1.  098765432109876543210987654321 12345678901234567890123456789
+ 
+  *                                                          I         I
+  * ENTRIES =       69                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I   69    I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPOSITRONE                                 
+ 
+ HBOOK     ID =       401                                        DATE  18/09/94              NO =    25
+ 
+ CHANNELS  10 U 0        1         2         3 O 
+            1 N 123456789012345678901234567890 V 
+            **************************************
+   OVE      *                                    * OVE
+     9      *                       3   +        *  20
+     8      *                       2  +         *  19
+     7      *                          +  2      *  18
+     6      *                       3   + +2     *  17
+     5      *                                    *  16
+     4      *                       ++  + +      *  15
+     3      *                        +   + +     *  14
+     2      *                       +2+          *  13
+     1      *                       + + +        *  12
+            *                       ++  +        *  11
+ -   1      *                       2     +      *  10
+ -   2      *                       2+           *   9
+ -   3      *                       +  +         *   8
+ -   4      *                       5  +         *   7
+ -   5      *                       32           *   6
+ -   6      *                       3   +        *   5
+ -   7      *                       +  ++        *   4
+ -   8      *                       2 + +        *   3
+ -   9      *                       2+  +   +    *   2
+ -  10      *                                    *   1
+   UND      *                                    * UND
+            **************************************
+ LOW-EDGE  10             11111111112222222222
+            1.   12345678901234567890123456789
+ 
+  *                                                          I         I
+  * ENTRIES =       69                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I   69    I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+
+
+ ********************************************************
+ * NTUPLE ID=  800  ENTRIES=     69    x,y,z punti decadimento del positrone  
+ ********************************************************
+ *  Var numb  *   Name    *    Lower     *    Upper     *
+ ********************************************************
+ *      1     *  x-decay  * -.200220E+02 * 0.200165E+02 *
+ *      2     *  y-decay  * -.200132E+02 * 0.200193E+02 *
+ *      3     *  z-decay  * -.873869E+01 * 0.978190E+01 *
+ ********************************************************
+
+
+
+ ********************************************************
+ * NTUPLE ID=  801  ENTRIES=    800    energia persa nei rivelatori a ogni evento 
+ ********************************************************
+ *  Var numb  *   Name    *    Lower     *    Upper     *
+ ********************************************************
+ *      1     *  shower   * 0.100000E+01 * 0.200000E+03 *
+ *      2     *  rivelat  * 0.100000E+01 * 0.400000E+01 *
+ *      3     *  xmedio   * -.499991E+01 * 0.000000E+00 *
+ *      4     *  ymedio   * -.198235E+02 * 0.196352E+02 *
+ *      5     *  zmedio   * -.970737E+01 * 0.982341E+01 *
+ *      6     *  sigmax   * -.476837E-04 * 0.896375E+00 *
+ *      7     *  sigmay   * -.610352E-03 * 0.111468E+02 *
+ *      8     *  sigmaz   * -.335693E-03 * 0.310985E+01 *
+ *      9     *  etot     * 0.000000E+00 * 0.198803E+01 *
+ *     10     *  etot-po  * 0.000000E+00 * 0.923879E+00 *
+ *     11     *  etot-el  * 0.000000E+00 * 0.104180E+01 *
+ *     12     *  etot-ga  * 0.000000E+00 * 0.234354E+00 *
+ *     13     *  num-par  * 0.000000E+00 * 0.340000E+02 *
+ *     14     *  num-pos  * 0.000000E+00 * 0.100000E+01 *
+ *     15     *  num-ele  * 0.000000E+00 * 0.230000E+02 *
+ *     16     *  num-gam  * 0.000000E+00 * 0.100000E+02 *
+ ********************************************************
+
+
+
+ ===> Directory : //PAWC
+        101 (1)    Zona 1 : aria r=10cm : Distribuzione energia ceduta lungo l' asse z
+        102 (1)    Zona 2 : aria r=1cm   : Distribuzione energia ceduta lungo l' asse z   
+        103 (1)    Zona 3 : aria       : Distribuzione energia ceduta lungo l' asse z 
+        104 (1)    Zona 4 : YAP 1     : Distribuzione profondita energia ceduta   
+        105 (1)    Zona 5 : YAP 2     : Distribuzione profondita energia ceduta   
+        106 (1)    Zona 6 : YAP 3     : Distribuzione profondita energia ceduta   
+        107 (1)    Zona 7 : YAP 4     : Distribuzione profondita energia ceduta   
+        108 (1)    Zona 8 : fughe     : Distribuzione profondita energia ceduta   
+        109 (1)    Zona 9 : assorbimenti da parte dei collimatori 
+        110 (1)    Zona 10 : uscite dai rivelatori
+        501 (1)    DISTRIBUZIONE ANGOLO DECADIMENTO POSITRONI 
+        201 (2)    Zona 1 : Aria r=10cm : Distribuzione energia ceduta nel piano x-y  
+        202 (2)    Zona 2 : Aria r=1cm : Distribuzione energia ceduta nel piano x-y   
+        203 (2)    Zona 3 : Aria Distribuzione energia ceduta nel piano x-y   
+        204 (2)    Zona 4 : YAP 1 Distribuzione energia ceduta nel piano del yap  
+        205 (2)    Zona 5 : YAP 2 Distribuzione energia ceduta nel piano del yap  
+        206 (2)    Zona 6 : YAP 3 Distribuzione energia ceduta nel piano del yap  
+        207 (2)    Zona 7 : YAP 4 Distribuzione energia ceduta nel piano del yap  
+        208 (2)    Zona 8 : fughe dal sistema : distribuzione in x-y  
+        209 (2)    Zona 9 : assorbimento dei collimatori distr x-y
+        210 (2)    Zona 10 : uscite dai rivelatori
+        700 (2)    DISTRIBUZIONE R-Z , PESATA SU ENERGIA --   
+        701 (2)    DISTRIBUZIONE x-y , PESATA SU ENERGIA --   
+        400 (2)    DISTRIBUZIONE X-Y PUNTI DECADIMENTO POSITRONE  
+        401 (2)    DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPOSITRONE 
+        800 (N)    x,y,z punti decadimento del positrone  
+        801 (N)    energia persa nei rivelatori a ogni evento 
+
+
+ ===> Directory : //topw
+        101 (1)    Zona 1 : aria r=10cm : Distribuzione energia ceduta lungo l' asse z
+        201 (2)    Zona 1 : Aria r=10cm : Distribuzione energia ceduta nel piano x-y  
+        102 (1)    Zona 2 : aria r=1cm   : Distribuzione energia ceduta lungo l' asse z   
+        202 (2)    Zona 2 : Aria r=1cm : Distribuzione energia ceduta nel piano x-y   
+        103 (1)    Zona 3 : aria       : Distribuzione energia ceduta lungo l' asse z 
+        203 (2)    Zona 3 : Aria Distribuzione energia ceduta nel piano x-y   
+        104 (1)    Zona 4 : YAP 1     : Distribuzione profondita energia ceduta   
+        204 (2)    Zona 4 : YAP 1 Distribuzione energia ceduta nel piano del yap  
+        105 (1)    Zona 5 : YAP 2     : Distribuzione profondita energia ceduta   
+        205 (2)    Zona 5 : YAP 2 Distribuzione energia ceduta nel piano del yap  
+        106 (1)    Zona 6 : YAP 3     : Distribuzione profondita energia ceduta   
+        206 (2)    Zona 6 : YAP 3 Distribuzione energia ceduta nel piano del yap  
+        107 (1)    Zona 7 : YAP 4     : Distribuzione profondita energia ceduta   
+        207 (2)    Zona 7 : YAP 4 Distribuzione energia ceduta nel piano del yap  
+        108 (1)    Zona 8 : fughe     : Distribuzione profondita energia ceduta   
+        208 (2)    Zona 8 : fughe dal sistema : distribuzione in x-y  
+        109 (1)    Zona 9 : assorbimenti da parte dei collimatori 
+        209 (2)    Zona 9 : assorbimento dei collimatori distr x-y
+        110 (1)    Zona 10 : uscite dai rivelatori
+        210 (2)    Zona 10 : uscite dai rivelatori
+        501 (1)    DISTRIBUZIONE ANGOLO DECADIMENTO POSITRONI 
+        700 (2)    DISTRIBUZIONE R-Z , PESATA SU ENERGIA --   
+        701 (2)    DISTRIBUZIONE x-y , PESATA SU ENERGIA --   
+        400 (2)    DISTRIBUZIONE X-Y PUNTI DECADIMENTO POSITRONE  
+        401 (2)    DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPOSITRONE 
+
+
+ ===> Directory : //topw1
+        800 (N)    x,y,z punti decadimento del positrone  
+
+
+ ===> Directory : //topwy
+        801 (N)    energia persa nei rivelatori a ogni evento 
+
+
+ ENERGIA TOTALE POSITRONI    :=    302.2008    MEV
+ ENERGIA CINETICA TOTALE     :=    200.0000    MEV
+ ENERGIA TOTALE DEPOSITATA   :=    404.4013    MEV
+ NUMERO POSITRONI            :=         200
+ ENERGIA INIZIALE/DEPOSITATA :=    1.338187    
+
+
+
+ % FRACTION IN REGION   1=   0.8073228     MEV:    3.264824    
+ % FRACTION IN REGION   2=   0.8270055E-01 MEV:   0.3344421    
+ % FRACTION IN REGION   3=    4.622417     MEV:    18.69312    
+ % FRACTION IN REGION   4=    5.934879     MEV:    24.00073    
+ % FRACTION IN REGION   5=    8.944691     MEV:    36.17245    
+ % FRACTION IN REGION   6=    7.102716     MEV:    28.72348    
+ % FRACTION IN REGION   7=    6.738783     MEV:    27.25173    
+ % FRACTION IN REGION   8=    65.76649     MEV:    265.9606    
+ % FRACTION IN REGION   9=   0.0000000E+00 MEV:   0.0000000E+00
+ % FRACTION IN REGION  10=   0.0000000E+00 MEV:   0.0000000E+00
+
+
+ FRACTION OF ENERGY DEPOSITED  IN EACH REGION
+ region      total           e+          e-          gamma
+    1       0.81E-02     0.71E-02     0.96E-03     0.00E+00
+    2       0.83E-03     0.66E-03     0.17E-03     0.00E+00
+    3       0.46E-01     0.44E-01     0.25E-02     0.00E+00
+    4       0.59E-01     0.26E-01     0.28E-01     0.56E-02
+    5       0.89E-01     0.39E-01     0.42E-01     0.89E-02
+    6       0.71E-01     0.33E-01     0.31E-01     0.69E-02
+    7       0.67E-01     0.33E-01     0.29E-01     0.57E-02
+    8       0.66E+00     0.59E+00     0.16E-02     0.62E-01
+    9       0.00E+00     0.00E+00     0.00E+00     0.00E+00
+   10       0.00E+00     0.00E+00     0.00E+00     0.00E+00
+
+
+ Particelle assorbite in ogni regione
+ region        total           e+           e-          gamma
+    1             12            0           12            0
+    2              2            0            2            0
+    3             19            0           19            0
+    4            231           14          169           48
+    5            386           23          271           92
+    6            309           17          212           80
+    7            280           14          202           64
+    8            210          131           25           54
+    9              0            0            0            0
+   10              0            0            0            0
+
+
+ Posizione media energia assorbita:
+  zona       x medio           y medio           z medio
+    1       -0.63188E-01      0.11193         -0.12875    
+    2        0.71532E-01      -1.0525          0.75117    
+    3       -0.73921         -0.55522         -0.48853    
+    8        -48.297          -40.926          -89.189    
+    9        0.00000E+00      0.00000E+00      0.00000E+00
+
+
+ Posizione media assorbimenti nei rivelatori
+ zona  riv.    x medio           +-            y medio           +-            z medio           +-   
+    4   1     -4.8817         0.25221         -1.0041          11.081        -0.61163          5.8049    
+    5   2     -4.8604         0.25726          1.4468          10.171         0.63837          5.9657    
+    6   3     -4.8618         0.31187          2.3348          9.3791         -1.2977          4.0930    
+    7   4     -4.8810         0.21861        -0.13773E-01      10.392          3.0883          5.4679    

diff --git a/code/input-output/cyl_2.dat b/code/input-output/cyl_2.dat
new file mode 100644 (file)
index 0000000..2ef449a
--- /dev/null
+++ b/code/input-output/cyl_2.dat
@@ -0,0 +1,20 @@
+       5000           1         1        1.00                        ! N. storie , carica,regione,mev della sorgente
+        100           1       -122545931                               ! ogni 10 stampa, user seed:(SI se >0) e seed   
+         5                                                           ! numero materiali 
+WATER-3MEV-10KEV-02KEV
+ALUM-3MEV-10KEV-02KEV
+AIR-3MEV-10KEV-02KEV                                                 !         nomi materiali
+CD+TE-3MEV-10KEV-02KEV
+LEAD-3MEV-10KEV-02KEV
+         1     0.002     0.002
+         2     0.002     0.002                                      ! materiale, E inf. gamma e positroni 
+         3     0.002     0.002
+         4     0.002     0.002
+         5     0.002     0.002
+       2     5.                                                     ! num cylindri e meta altezza
+       10.         3                                                ! spessore , materiale del cilindro
+        1.         3
+        1    0   1  1 0 0    ! out.flags:interac.,paths,n-tuple decay,n-tuple yaps,cross.surf,unused
+  
+12345678901234567890123456789012345678901234567890123456789012345678901234567890
+         1         2         3         4         5         6         7         8

diff --git a/code/input-output/cyl_2_y.dat b/code/input-output/cyl_2_y.dat
new file mode 100644 (file)
index 0000000..9974f49
--- /dev/null
+++ b/code/input-output/cyl_2_y.dat
@@ -0,0 +1,20 @@
+        500       1         1        1.00                        ! N. storie , carica,regione,mev della sorgente
+        100         1       -122545931                               ! ogni 10 stampa, user seed:(SI se >0) e seed   
+         5                                                           ! numero materiali 
+WATER-3MEV-10KEV-02KEV
+ALUM-3MEV-10KEV-02KEV
+AIR-3MEV-10KEV-02KEV                                                 !         nomi materiali
+CD+TE-3MEV-10KEV-02KEV
+LEAD-3MEV-10KEV-02KEV
+         1     0.002     0.002
+         2     0.002     0.002                                      ! materiale, E inf. gamma e positroni 
+         3     0.002     0.002
+         4     0.002     0.002
+         5     0.002     0.002
+       2     2.1                                                     ! num cylindri e meta altezza
+       2.         1                                                ! spessore , materiale del cilindro
+       0.5        2
+        1    0   1  1 0 0                ! out.flags: interac., paths, n-tuple decay, n-tuple yaps, cross.surf
+  
+12345678901234567890123456789012345678901234567890123456789012345678901234567890
+         1         2         3         4         5         6         7         8

diff --git a/code/input-output/cyl_y.out b/code/input-output/cyl_y.out
new file mode 100644 (file)
index 0000000..147550e
--- /dev/null
+++ b/code/input-output/cyl_y.out
@@ -0,0 +1,2404 @@
+1
+ .............................................................................................................................
+ .                                                                                                                           .
+ .   HBOOK   HBOOK  CERN            VERSION   4.21       HISTOGRAM AND PLOT INDEX                             31/08/94       .
+ .                                                                                                                           .
+ .............................................................................................................................
+ .                                                                                                                           .
+ .  NO                     TITLE                      ID  B/C  ENTRIES DIM   NCHA     LOWER       UPPER       ADDRESS LENGTH .
+ .                                                                                                                           .
+ .............................................................................................................................
+ .                                                                                                                           .
+ .                                                                                                                           .
+ .   1   Zona 1 : H2O r=2cm : Distribuzione ener     101  32    43606  1  X    60  -0.300E+01   0.300E+01      989926    119 .
+ .      gia ceduta lungo l' asse z                                                                                           .
+ .                                                                                                                           .
+ .   2   Zona 2 : Al r=0.5cm   : Distribuzione e     102  32     5242  1  X    60  -0.300E+01   0.300E+01      989804    120 .
+ .      nergia ceduta lungo l' asse z                                                                                        .
+ .                                                                                                                           .
+ .   3   Zona 3 : aria       : Distribuzione ene     103  32      715  1  X    60  -0.300E+01   0.300E+01      989683    119 .
+ .      rgia ceduta lungo l' asse z                                                                                          .
+ .                                                                                                                           .
+ .   4   Zona 4 : YAP 1     : Distribuzione prof     104  32    14111  1  X    40  -0.200E+01   0.200E+01      989563     98 .
+ .      ondita energia ceduta                                                                                                .
+ .                                                                                                                           .
+ .   5   Zona 5 : YAP 2     : Distribuzione prof     105  32    12111  1  X    40  -0.200E+01   0.200E+01      989463     98 .
+ .      ondita energia ceduta                                                                                                .
+ .                                                                                                                           .
+ .   6   Zona 6 : YAP 3     : Distribuzione prof     106  32    19809  1  X    40  -0.200E+01   0.200E+01      989363     98 .
+ .      ondita energia ceduta                                                                                                .
+ .                                                                                                                           .
+ .   7   Zona 7 : YAP 4     : Distribuzione prof     107  32     9664  1  X    40  -0.200E+01   0.200E+01      989263     98 .
+ .      ondita energia ceduta                                                                                                .
+ .                                                                                                                           .
+ .   8   Zona 8 : YAP 5     : Distribuzione prof     108  32    14603  1  X    40  -0.200E+01   0.200E+01      989163     98 .
+ .      ondita energia ceduta                                                                                                .
+ .                                                                                                                           .
+ .   9   Zona 9 : YAP 6     : Distribuzione prof     109  32    17304  1  X    40  -0.200E+01   0.200E+01      989063     98 .
+ .      ondita energia ceduta                                                                                                .
+ .                                                                                                                           .
+ .  10   Zona 10 : fughe     : Distribuzione lun     110  32      664  1  X   100  -0.500E+01   0.500E+01      988966    155 .
+ .      go asse z                                                                                                            .
+ .                                                                                                                           .
+ .  11   Zona 11 : assorbimenti da parte dei col     111  32        0  1  X   100  -0.500E+01   0.500E+01      988810    154 .
+ .      limatori                                                                                                             .
+ .                                                                                                                           .
+ .  12   Zona 12 : part. uscenti dai rivelatori      112  32       14  1  X   100  -0.500E+01   0.500E+01      988656    152 .
+ .                                                                                                                           .
+ .                                                                                                                           .
+ .  13   Distribuzione angolo decadimento positr     501  32      400  1  X    72   0.000E+00   0.628E+01      988501    125 .
+ .      oni                                                                                                                  .
+ .                                                                                                                           .
+ .  14   Zona 1 : H2O r=0.5cm : Distribuzione en     201  32    43606  2  X   100  -0.100E+02   0.100E+02      988366  10463 .
+ .      ergia ceduta nel piano x-y                                        Y   100  -0.100E+02   0.100E+02      977941  10416 .
+ .                                                                                                                           .
+ .  15   Zona 2 : Al r=0.5cm : Distribuzione ene     202  32     5242  2  X   100  -0.100E+02   0.100E+02      977901  10463 .
+ .      rgia ceduta nel piano x-y                                         Y   100  -0.100E+02   0.100E+02      967476  10416 .
+ .                                                                                                                           .
+ .  16   Zona 3 : Aria Distribuzione energia ced     203  32      715  2  X   100  -0.100E+02   0.100E+02      967438  10461 .
+ .      uta nel piano x-y                                                 Y   100  -0.100E+02   0.100E+02      957013  10416 .
+ .                                                                                                                           .
+ .  17   Zona 4 : YAP 1 Distribuzione energia ce     204  32    14111  2  X    70  -0.210E+01   0.210E+01      956974   5242 .
+ .      duta nel piano del yap                                            Y    70  -0.210E+01   0.210E+01      951769   5196 .
+ .                                                                                                                           .
+ .  18   Zona 5 : YAP 2 Distribuzione energia ce     205  32    12111  2  X    70  -0.210E+01   0.210E+01      951730   5242 .
+ .      duta nel piano del yap                                            Y    70  -0.210E+01   0.210E+01      946525   5196 .
+ .                                                                                                                           .
+ .  19   Zona 6 : YAP 3 Distribuzione energia ce     206  32    19809  2  X    70  -0.210E+01   0.210E+01      946486   5242 .
+ .      duta nel piano del yap                                            Y    70  -0.210E+01   0.210E+01      941281   5196 .
+ .                                                                                                                           .
+ .  20   Zona 7 : YAP 4 Distribuzione energia ce     207  32     9664  2  X    70  -0.210E+01   0.210E+01      941242   5242 .
+ .      duta nel piano del yap                                            Y    70  -0.210E+01   0.210E+01      936037   5196 .
+ .                                                                                                                           .
+ .  21   Zona 8 : YAP 5 Distribuzione energia ce     208  32    14603  2  X    70  -0.210E+01   0.210E+01      935998   5242 .
+ .      duta nel piano del yap                                            Y    70  -0.210E+01   0.210E+01      930793   5196 .
+ .                                                                                                                           .
+ .  22   Zona 9 : YAP 6 Distribuzione energia ce     209  32    17304  2  X    70  -0.210E+01   0.210E+01      930754   5242 .
+ .      duta nel piano del yap                                            Y    70  -0.210E+01   0.210E+01      925549   5196 .
+ .                                                                                                                           .
+ .  23   Zona 10 : fughe dal sistema : distribuz     210  32      664  2  X    70  -0.210E+01   0.210E+01      925513   5239 .
+ .      ione in x-y                                                       Y    70  -0.210E+01   0.210E+01      920308   5196 .
+ .                                                                                                                           .
+ .  24   Zona 11 : assorbimento dei collimatori      211  32        0  2  X   100  -0.100E+02   0.100E+02      920270  10461 .
+ .      distribuzione x-y                                                 Y   100  -0.100E+02   0.100E+02      909845  10416 .
+ .                                                                                                                           .
+ .  25   Zona 12 : uscite dai rivelatori distrib     212  32       14  2  X   100  -0.100E+02   0.100E+02      909809  10459 .
+ .      uzione x-y                                                        Y   100  -0.100E+02   0.100E+02      899384  10416 .
+ .                                                                                                                           .
+ .  26   DISTRIBUZIONE R-Z , PESATA SU ENERGIA -     700  32   137843  2  X   100  -0.100E+02   0.100E+02      899350   3317 .
+ .      -                                                                 Y    30  -0.300E+01   0.300E+01      896065   3276 .
+ .                                                                                                                           .
+ .  27   DISTRIBUZIONE x-y , PESATA SU ENERGIA -     701  32   137843  2  X   100  -0.100E+02   0.100E+02      896031  10457 .
+ .      -                                                                 Y   100  -0.100E+02   0.100E+02      885606  10416 .
+ .                                                                                                                           .
+ .  28   DISTRIBUZIONE X-Y PUNTI DECADIMENTO POS     400  32      400  2  X   100  -0.100E+02   0.100E+02      885571  10458 .
+ .      ITRONE                                                            Y   100  -0.100E+02   0.100E+02      875146  10416 .
+ .                                                                                                                           .
+ .  29   DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPO     401  32      400  2  X   100  -0.100E+02   0.100E+02      875111   3318 .
+ .      SITRONE                                                           Y    30  -0.300E+01   0.300E+01      871826   3276 .
+ .                                                                                                                           .
+ .  30   x,y,z punti decadimento del positrone       800               N                                       871767     47 .
+ .                                                                                                                           .
+ .                                                                                                                           .
+ .  31   energia persa nei rivelatori a ogni eve     801               N                                       871624     74 .
+ .      nto                                                                                                                  .
+ .                                                                                                                           .
+ .............................................................................................................................
+
+
+
+ MEMORY UTILISATION
+
+      MAXIMUM TOTAL SIZE OF COMMON /PAWC/          1000000
+1 Zona 1 : H2O r=2cm : Distribuzione energia ceduta lungo l' asse z              
+ 
+ HBOOK     ID =       101                                        DATE  31/08/94              NO =     1
+ 
+      160                                     -
+      156                                     I
+      152                                     I
+      148                                     I
+      144                                     I
+      140                                     I
+      136                                     I
+      132                                     I
+      128                                     I
+      124                                     I
+      120                                     I
+      116                                     I
+      112                                     I
+      108                                     I
+      104                                     I
+      100                                    -I
+       96                                    II
+       92                                    II
+       88                                    II
+       84                                    II
+       80                                    II
+       76                                    II
+       72                                    II
+       68                                    II
+       64                                    II
+       60                                    II-
+       56                                    I I
+       52                                   -I I
+       48                                   I  I
+       44                                   I  I
+       40                                   I  I
+       36                                   I  I
+       32                                   I  I
+       28                                   I  I
+       24                                  -I  I
+       20                                  I   I
+       16                                  I   I-
+       12                                  I    I
+        8                                  I    I
+        4                 -----------------I    I------------------      -
+ 
+ CHANNELS  10   0        1         2         3         4         5         6   
+            1   123456789012345678901234567890123456789012345678901234567890   
+ 
+ CONTENTS 100                                 1                             
+           10                              259551                           
+            1.                  1       1 1117695                           
+            0   000000000000310805288185204201689628473205521132401000000000
+            0   000000000010769583684722126518752819719901229931422000000100
+ 
+ LOW-EDGE       -------------------------------                             
+            1.  322222222221111111111                   11111111112222222222
+            0   098765432109876543210987654321012345678901234567890123456789
+ 
+ * ENTRIES =      43606      * ALL CHANNELS = 0.4176E+03      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.1000E+00      * MEAN VALUE   = 0.1594E-02      * R . M . S = 0.2361E+00
+1 Zona 2 : Al r=0.5cm   : Distribuzione energia ceduta lungo l' asse z           
+ 
+ HBOOK     ID =       102                                        DATE  31/08/94              NO =     2
+ 
+        1.15                                   -
+        1.125                                  I
+        1.1                                    I
+        1.075                   -              I
+        1.05                    I              I
+        1.025                   I              I
+        1                       I              I
+         .975                   I              I
+         .95                    I              I   -
+         .925                   I              I   I
+         .9                     I              I   I
+         .875                   I              I   I
+         .85                    I              I   I
+         .825                   I             -I   I
+         .8                     I             II   I      -
+         .775                   I             II   I     -I
+         .75                    I             II   I     II
+         .725                   I             II   I     II
+         .7                     I             II   I     II
+         .675                   I             II   I     II
+         .65                    I             II   I     II
+         .625                   I             II   I     II
+         .6                     I             II   I     II   -
+         .575                   I         -   II   I     II   I
+         .55                    I  -      I  -II   I    -II   I
+         .525                   I  I      I  I I   I    I I   I
+         .5                     I  I      I  I I   I    I I   I
+         .475                   I  I      I  I I   I    I I   I
+         .45                    I  I      I- I I   I    I I   I
+         .425                   I  I      II I I   I -  I I   I
+         .4                     I  I      II I I   I I  I I   I
+         .375                   I  I      II I I-  I I  I I   I
+         .35                -   I  I      II-I  I  I I  I I   I  -
+         .325               I   I  I      I     I- I I  I I   I  I
+         .3                 I - I -I      I      I I I  I I   I  I
+         .275               I I I II     -I      I I I  I I   I  I
+         .25                I I I II     I       I I I  I I   I  I
+         .225               I I-I II-  - I       I I I  I I   I  I
+         .2                 I I I I I  I I       I I I  I I   I  I
+         .175               I I I I I  I I       I I I  I I   I  I
+         .15                I I I I I  I I       I I I- I I-  I- I
+         .125               I I I I I -I I       I I II I  I  II I
+         .1              -  I I I I I II I       I-I II I  I  II I
+         .075            I -I I I I I-II I         I-II I  I- II I
+         .05             I II I I I    I I            I I   I II I
+         .025            I II I I I    I I            I-I   I II I -
+ 
+ CHANNELS  10   0        1         2         3         4         5         6   
+            1   123456789012345678901234567890123456789012345678901234567890   
+ 
+ CONTENTS   1.                  1              1                            
+            0   000000000000302200252012025435813309041057710051030000000000
+            0   000000000906208150931521076442126083723026926073030000000000
+            0   000000000203702880675712011805875213126151385066090900000000
+            0   000000000304709080687040090079314185647226608040080300000000
+ 
+ LOW-EDGE       -------------------------------                             
+            1.  322222222221111111111                   11111111112222222222
+            0   098765432109876543210987654321012345678901234567890123456789
+ 
+ * ENTRIES =       5242      * ALL CHANNELS = 0.1323E+02      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.1000E+00      * MEAN VALUE   = 0.7838E-01      * R . M . S = 0.1007E+01
+1 Zona 3 : aria       : Distribuzione energia ceduta lungo l' asse z             
+ 
+ HBOOK     ID =       103                                        DATE  31/08/94              NO =     3
+ 
+ 
+ CHANNELS  10   0        1         2         3         4         5         6   
+            1   123456789012345678901234567890123456789012345678901234567890   
+ 
+ CONTENTS    .
+            0   000000000000000000000000000000000000000000000000000000000000
+            0   000000000000000000000000000000000000000000000000000000000000
+ 
+ LOW-EDGE       -------------------------------                             
+            1.  322222222221111111111                   11111111112222222222
+            0   098765432109876543210987654321012345678901234567890123456789
+ 
+ * ENTRIES =        715      * ALL CHANNELS = 0.0000E+00      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.1000E+00      * MEAN VALUE   = 0.0000E+00      * R . M . S = 0.0000E+00
+1 Zona 4 : YAP 1     : Distribuzione profondita energia ceduta                   
+ 
+ HBOOK     ID =       104                                        DATE  31/08/94              NO =     4
+ 
+        1.9                    -
+        1.85                   I
+        1.8                    I
+        1.75                   I
+        1.7                    I
+        1.65                   I
+        1.6                    I
+        1.55                   I
+        1.5                    I
+        1.45                 - I
+        1.4                  I I
+        1.35                 I I
+        1.3                  I I
+        1.25                 I I
+        1.2                  I I
+        1.15              -  I I   -
+        1.1               I  I I   I-
+        1.05              I  I I   II
+        1                 I  I I   II
+         .95              I  I I   II
+         .9               I  I I   II
+         .85              I  I I   II
+         .8               I  I I   II
+         .75              I -I I   II
+         .7               I II I   II       -
+         .65              I-II I-  II  -    I
+         .6               I  I II -II  I    I
+         .55              I  I II I I  I    I
+         .5               I  I II I I  I    I
+         .45              I  I II I I  I    I
+         .4               I  I II I I- I    I
+         .35              I  I II I  I I    I
+         .3               I  I II I  I-I    I
+         .25              I  I-II I    I    I
+         .2               I     I-I    I-   I
+         .15              I             I   I
+         .1               I             I   I
+         .05              I             I-  I
+ 
+ CHANNELS  10   0        1         2         3         4   
+            1   1234567890123456789012345678901234567890   
+ 
+ CONTENTS   1.            1  1 1   11                   
+            0   0000000000167428615103261000600000000000
+            0   0000000000022139196096606400900000000000
+            0   0000000000550517958111637600900000000000
+            0   0000000000175387127586448100100000000000
+ 
+ LOW-EDGE       --------------------                    
+            1.  21111111111                   1111111111
+            0   0987654321098765432101234567890123456789
+ 
+ * ENTRIES =      14111      * ALL CHANNELS = 0.1172E+02      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.1000E+00      * MEAN VALUE   =-0.2857E+00      * R . M . S = 0.4808E+00
+1 Zona 5 : YAP 2     : Distribuzione profondita energia ceduta                   
+ 
+ HBOOK     ID =       105                                        DATE  31/08/94              NO =     5
+ 
+        2.5               -
+        2.4               I
+        2.3               I
+        2.2               I
+        2.1               I
+        2                 I
+        1.9               I
+        1.8               I
+        1.7               I
+        1.6               I
+        1.5               I
+        1.4               I
+        1.3               I
+        1.2               I
+        1.1               I     -
+        1                 I     I
+         .9               I     I
+         .8               I     I         -
+         .7               I  -  I         I
+         .6               I -I  I-       -I
+         .5               I II -II       II
+         .4               I-II I I --- - II  -
+         .3               I  I I I-I I I II- I
+         .2               I  I I     I-I-I I I
+         .1               I  I-I           I I
+ 
+ CHANNELS  10   0        1         2         3         4   
+            1   1234567890123456789012345678901234567890   
+ 
+ CONTENTS   1.            2     1                       
+            0   0000000000435604052333131572030000000000
+            0   0000000000602868185436499731090000000000
+            0   0000000000079911689267780087080000000000
+            0   0000000000232483402311113313030000000000
+ 
+ LOW-EDGE       --------------------                    
+            1.  21111111111                   1111111111
+            0   0987654321098765432101234567890123456789
+ 
+ * ENTRIES =      12111      * ALL CHANNELS = 0.1010E+02      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.1000E+00      * MEAN VALUE   =-0.2559E+00      * R . M . S = 0.6074E+00
+1 Zona 6 : YAP 3     : Distribuzione profondita energia ceduta                   
+ 
+ HBOOK     ID =       106                                        DATE  31/08/94              NO =     6
+ 
+        2.8                   -
+        2.7                   I
+        2.6                   I
+        2.5                   I
+        2.4                   I
+        2.3                   I
+        2.2                   I
+        2.1                   I
+        2                     I
+        1.9                -  I
+        1.8               -I  I
+        1.7               II--I
+        1.6               I   I
+        1.5               I   I   -
+        1.4               I   I   I
+        1.3               I   I   I  -
+        1.2               I   I   I  I  -
+        1.1               I   I   I  I  I
+        1                 I   I   I  I  I
+         .9               I   I   I  I  I
+         .8               I   I - I  I  I
+         .7               I   I-I I  I  I -
+         .6               I     I-I  I- I I
+         .5               I       I  II I I
+         .4               I       I -II I-I
+         .3               I       I I I I I
+         .2               I       I-I I-I I
+         .1               I               I
+ 
+ CHANNELS  10   0        1         2         3         4   
+            1   1234567890123456789012345678901234567890   
+ 
+ CONTENTS   1.            11112   1  1  1               
+            0   0000000000786676754132511360000000000000
+            0   0000000000196131360814710590000000000000
+            0   0000000000834934530745367760000000000000
+            0   0000000000634979927224555310000000000000
+ 
+ LOW-EDGE       --------------------                    
+            1.  21111111111                   1111111111
+            0   0987654321098765432101234567890123456789
+ 
+ * ENTRIES =      19809      * ALL CHANNELS = 0.1754E+02      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.1000E+00      * MEAN VALUE   =-0.3652E+00      * R . M . S = 0.4783E+00
+1 Zona 7 : YAP 4     : Distribuzione profondita energia ceduta                   
+ 
+ HBOOK     ID =       107                                        DATE  31/08/94              NO =     7
+ 
+        1.32              -
+        1.28              I
+        1.24              I
+        1.2               I
+        1.16              I
+        1.12              I-
+        1.08              II
+        1.04              II
+        1                 II
+         .96              II
+         .92              II              -
+         .88              II              I
+         .84              II              I
+         .8               II              I
+         .76              II              I
+         .72              II -         -  I
+         .68              II I         I  I
+         .64              II I   -     I  I
+         .6               II I   I     I  I
+         .56              II I   I     I  I
+         .52              II I  -I -   I  I
+         .48              II I  II I   I  I
+         .44              II I  II I   I  I
+         .4               II-I- II I   I  I
+         .36              I   I II I   I -I
+         .32              I   I-II-I   I-II
+         .28              I        I   I  I
+         .24              I        I   I  I
+         .2               I        I   I  I
+         .16              I        I   I  I
+         .12              I        I   I  I
+         .08              I        I   I  I
+         .04              I        I- -I  I
+ 
+ CHANNELS  10   0        1         2         3         4   
+            1   1234567890123456789012345678901234567890   
+ 
+ CONTENTS   1.            11                            
+            0   0000000000203733462500073380000000000000
+            0   0000000000987170808000200380000000000000
+            0   0000000000543787285350139620000000000000
+            0   0000000000880434313010712960000000000000
+ 
+ LOW-EDGE       --------------------                    
+            1.  21111111111                   1111111111
+            0   0987654321098765432101234567890123456789
+ 
+ * ENTRIES =       9664      * ALL CHANNELS = 0.8294E+01      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.1000E+00      * MEAN VALUE   =-0.2995E+00      * R . M . S = 0.5629E+00
+1 Zona 8 : YAP 5     : Distribuzione profondita energia ceduta                   
+ 
+ HBOOK     ID =       108                                        DATE  31/08/94              NO =     8
+ 
+        1.48               -
+        1.44               I
+        1.4                I
+        1.36               I
+        1.32               I
+        1.28              -I
+        1.24              II
+        1.2               II
+        1.16              II
+        1.12              II -
+        1.08              II I
+        1.04              II I
+        1                 II I
+         .96              II I
+         .92              II I -
+         .88              II I I
+         .84              II I I  -
+         .8               II I I  I       -
+         .76              II I I  I-      I
+         .72              II I I  II      I
+         .68              II-I I  II      I
+         .64              I  I I -II      I
+         .6               I  I-I I I      I
+         .56              I    I I I      I
+         .52              I    I I I      I
+         .48              I    I I I  -   I
+         .44              I    I I I -I   I
+         .4               I    I I I II   I- -
+         .36              I    I I I II   II I
+         .32              I    I I I II   II I
+         .28              I    I I I II  -II I
+         .24              I    I I I-II  I I I
+         .2               I    I I    I  I I I
+         .16              I    I I    I  I I I
+         .12              I    I-I    I  I I I
+         .08              I           I  I I I
+         .04              I           I  I I I
+ 
+ CHANNELS  10   0        1         2         3         4   
+            1   1234567890123456789012345678901234567890   
+ 
+ CONTENTS   1.            11 1                          
+            0   0000000000246159168724400273030000000000
+            0   0000000000446091023202700578070000000000
+            0   0000000000211794138003200827000000000000
+            0   0000000000272275674118200095050000000000
+ 
+ LOW-EDGE       --------------------                    
+            1.  21111111111                   1111111111
+            0   0987654321098765432101234567890123456789
+ 
+ * ENTRIES =      14603      * ALL CHANNELS = 0.1114E+02      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.1000E+00      * MEAN VALUE   =-0.2907E+00      * R . M . S = 0.5604E+00
+1 Zona 9 : YAP 6     : Distribuzione profondita energia ceduta                   
+ 
+ HBOOK     ID =       109                                        DATE  31/08/94              NO =     9
+ 
+        2.1                    -
+        2.05                   I
+        2                      I
+        1.95                   I
+        1.9                    I
+        1.85                   I
+        1.8               -    I
+        1.75              I    I
+        1.7               I    I
+        1.65              I    I
+        1.6               I    I
+        1.55              I    I
+        1.5               I    I
+        1.45              I    I  -
+        1.4               I    I  I
+        1.35              I -  I  I
+        1.3               I I  I  I
+        1.25              I I  I  I
+        1.2               I I  I  I
+        1.15              I I  I  I
+        1.1               I I  I  I
+        1.05              I I  I  I
+        1                 I I- I  I
+         .95              I II I  I
+         .9               I II I  I
+         .85              I II I  I        -
+         .8               I-II I- I  -     I
+         .75              I  I II I  I -  -I
+         .7               I  I II I -I I  II
+         .65              I  I II I II I  II
+         .6               I  I II I II I  II-
+         .55              I  I II I II I- I I
+         .5               I  I II I II II I I
+         .45              I  I-II I II II I I
+         .4               I     I I-II II I I
+         .35              I     I I  I II I I
+         .3               I     I I  I II I I
+         .25              I     I I  I II I I
+         .2               I     I I  I II I I
+         .15              I     I I  I II I I
+         .1               I     I-I  I II I I
+         .05              I          I II I I
+ 
+ CHANNELS  10   0        1         2         3         4   
+            1   1234567890123456789012345678901234567890   
+ 
+ CONTENTS   1.            1 1  2  1                     
+            0   0000000000773940704367075078500000000000
+            0   0000000000594506880659003023800000000000
+            0   0000000000169335068108080074200000000000
+            0   0000000000557031603265009096600000000000
+ 
+ LOW-EDGE       --------------------                    
+            1.  21111111111                   1111111111
+            0   0987654321098765432101234567890123456789
+ 
+ * ENTRIES =      17304      * ALL CHANNELS = 0.1479E+02      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.1000E+00      * MEAN VALUE   =-0.2309E+00      * R . M . S = 0.5586E+00
+1 Zona 10 : fughe     : Distribuzione lungo asse z                               
+ 
+ HBOOK     ID =       110                                        DATE  31/08/94              NO =    10
+ 
+       80                                                                              -
+       78                                                                              I
+       76                                                                              I
+       74                                   -                                          I
+       72                                   I                                          I
+       70                                   I                                          I
+       68                                   I                                          I
+       66                                   I                                          I
+       64                                   I                                          I
+       62                                   I                                          I
+       60                                   I                                          I
+       58                                   I                                          I
+       56                                   I                                          I
+       54                                   I                                          I
+       52                                   I                                          I
+       50                                   I                                          I
+       48                                   I                                          I
+       46                                   I                                          I
+       44                                   I                                          I
+       42                                   I                                          I
+       40                                   I                                          I
+       38                                   I                                          I
+       36                                   I                                          I
+       34                                   I                                          I
+       32                                   I                                          I
+       30                                   I                                          I
+       28                                   I                                          I
+       26                                   I                                          I
+       24                                   I                                          I
+       22                                   I                                          I
+       20                                   I                                          I
+       18                                   I                                          I
+       16                                   I                                          I
+       14                                   I                                          I
+       12                                   I                                          I
+       10                                   I                                          I
+        8                                   I                                          I
+        6                                   I                                          I
+        4                                   I                                          I
+        2                                - -I                                          I --  -                   -
+ 
+ CHANNELS 100   0                                                                                                  1   
+           10   0        1         2         3         4         5         6         7         8         9         0   
+            1   1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890   
+ 
+ CONTENTS  10                               7                                          7                            
+            1.                           1  3                                          8                            
+            0   0000000000000000000000000005300000000000000000000000000000000000000000090150000000000000000000000500
+            0   0000000000000000000000000201800000000000000000000000000000000000000000050810060000000000000000000100
+            0   0000000000000000000000000201500000000000000000000000000000000000000000010510030000000000000000000100
+ 
+ LOW-EDGE       ---------------------------------------------------                                                 
+            1.  54444444444333333333322222222221111111111                   1111111111222222222233333333334444444444
+            0   0987654321098765432109876543210987654321098765432101234567890123456789012345678901234567890123456789
+ 
+ * ENTRIES =        664      * ALL CHANNELS = 0.1551E+03      * UNDERFLOW = 0.7612E+02      * OVERFLOW = 0.7050E+02
+ * BIN WID = 0.1000E+00      * MEAN VALUE   = 0.8121E-01      * R . M . S = 0.2166E+01
+ 
+ ****** HBOOK   NO ENTRIES FOR HISTOGRAM ID=         111                 
+1 Zona 12 : part. uscenti dai rivelatori                                         
+ 
+ HBOOK     ID =       112                                        DATE  31/08/94              NO =    12
+ 
+        3.8                                          -
+        3.7                                          I
+        3.6                                          I
+        3.5                                          I
+        3.4                                          I
+        3.3                                          I
+        3.2                                          I
+        3.1                                          I
+        3                                            I
+        2.9                                          I
+        2.8                                          I
+        2.7                                          I
+        2.6                                          I      -
+        2.5                                          I      I
+        2.4                                          I  -   I    -
+        2.3                                          I  I   I    I
+        2.2                                          I  I   I    I  -
+        2.1                                          I  I   I    I  I  -            -
+        2                                            I  I   I  - I  I  I            I
+        1.9                                          I  I - I  I I  I  I         -  I
+        1.8                                  -       I  I I I  I I  I  I         I  I
+        1.7                                  I       I  I I I  I I  I  I         I  I
+        1.6                                  I       I  I I I  I I  I  I         I  I
+        1.5                                  I       I  I I I  I I  I  I         I  I
+        1.4                                  I       I  I I I  I I  I  I         I  I
+        1.3                                  I       I  I I I  I I  I  I         I  I
+        1.2                                  I       I  I I I  I I  I  I         I  I-
+        1.1                                  I       I  I-I I  I I  I  I         I  II
+        1                                    I       I  I I I  I I  I  I         I  II
+         .9                                  I       I  I I I  I I  I  I         I  II
+         .8                                  I       I  I I I  I I  I  I         I  II
+         .7                                  I       I  I I I  I I  I  I         I  II
+         .6                                  I       I  I I I  I I  I  I         I  II
+         .5                                  I       I  I I I  I I  I  I         I  II
+         .4                                  I       I  I I I  I I  I  I         I  II
+         .3                                  I       I  I I I  I I  I  I         I  II
+         .2                                  I       I  I I I  I I  I  I         I  II
+         .1                                  I       I  I I I  I I  I  I         I  II
+ 
+ CHANNELS 100   0                                                                                                  1   
+           10   0        1         2         3         4         5         6         7         8         9         0   
+            1   1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890   
+ 
+ CONTENTS   1.                               1       3  211 2  1 2  2  2         1  21                              
+ *10**  1   0   0000000000000000000000000000070000000700308050090300100000000000080001000000000000000000000000000000
+            0   0000000000000000000000000000070000000700062080060000000400000000080057000000000000000000000000000000
+            0   0000000000000000000000000000050000000300253090010500500500000000040088000000000000000000000000000000
+            0   0000000000000000000000000000050000000900745030070800500500000000000081000000000000000000000000000000
+ 
+ LOW-EDGE       ---------------------------------------------------                                                 
+            1.  54444444444333333333322222222221111111111                   1111111111222222222233333333334444444444
+            0   0987654321098765432109876543210987654321098765432101234567890123456789012345678901234567890123456789
+ 
+ * ENTRIES =         14      * ALL CHANNELS = 0.2687E+01      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.1000E+00      * MEAN VALUE   =-0.1552E+00      * R . M . S = 0.1130E+01
+1 Distribuzione angolo decadimento positroni                                     
+ 
+ HBOOK     ID =       501                                        DATE  31/08/94              NO =    13
+ 
+      390                                           -
+      380                                           I
+      370                                           I
+      360                                           I
+      350                                           I
+      340                                           I
+      330                                           I
+      320                                           I
+      310                                           I
+      300                                           I
+      290                                           I
+      280                                           I
+      270                                           I
+      260                                           I
+      250                                           I
+      240                                           I
+      230                                           I
+      220                                           I
+      210                                           I
+      200                                           I
+      190                                           I
+      180                                           I
+      170                                           I
+      160                                           I
+      150                                           I
+      140                                           I
+      130                                           I
+      120                                           I
+      110                                           I
+      100                                           I
+       90                                           I
+       80                                           I
+       70                                           I
+       60                                           I
+       50                                           I
+       40                                           I
+       30                                           I
+       20                                           I
+       10                         ---- -----  - -   I
+ 
+ CHANNELS  10   0        1         2         3         4         5         6         7     
+            1   123456789012345678901234567890123456789012345678901234567890123456789012   
+ 
+ CONTENTS 100                                       3                                   
+           10                                       8                                   
+            1.                    1111 11211  1 1   8                                   
+ 
+ LOW-EDGE   1.              111111111112222222222223333333333344444444444455555555555666
+            0   001234566789012334567890012345677890123445678900123456778901234456789011
+            0   087643219875432098754310986542109765421087653219876432198754320986543109
+            0   074186307529631852074186307529631852074186307529631852074186307529631852
+            0   024791368024791368024791368024791368024791368024791368024791368024791368
+ 
+ * ENTRIES =        400      * ALL CHANNELS = 0.4000E+03      * UNDERFLOW = 0.0000E+00      * OVERFLOW = 0.0000E+00
+ * BIN WID = 0.8722E-01      * MEAN VALUE   = 0.3153E+01      * R . M . S = 0.1866E+00
+1 Zona 1 : H2O r=0.5cm : Distribuzione energia ceduta nel piano x-y              
+ 
+ HBOOK     ID =       201                                        DATE  31/08/94              NO =    14
+ 
+ CHANNELS 100 U 0                                                                                                  1 O 
+           10 N 0        1         2         3         4         5         6         7         8         9         0 V 
+            1 D 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 E 
+            ************************************************************************************************************
+   OVE      *                                                                                                          * OVE
+     9.8    *                                                                                                          * 100
+     9.6    *                                                                                                          *  99
+     9.4    *                                                                                                          *  98
+     9.2    *                                                                                                          *  97
+     9      *                                                                                                          *  96
+     8.8    *                                                                                                          *  95
+     8.6    *                                                                                                          *  94
+     8.4    *                                                                                                          *  93
+     8.2    *                                                                                                          *  92
+     8      *                                                                                                          *  91
+     7.8    *                                                                                                          *  90
+     7.6    *                                                                                                          *  89
+     7.4    *                                                                                                          *  88
+     7.2    *                                                                                                          *  87
+     7      *                                                                                                          *  86
+     6.8    *                                                                                                          *  85
+     6.6    *                                                                                                          *  84
+     6.4    *                                                                                                          *  83
+     6.2    *                                                                                                          *  82
+     6      *                                                                                                          *  81
+     5.8    *                                                                                                          *  80
+     5.6    *                                                                                                          *  79
+     5.4    *                                                                                                          *  78
+     5.2    *                                                                                                          *  77
+     5      *                                                                                                          *  76
+     4.8    *                                                                                                          *  75
+     4.6    *                                                                                                          *  74
+     4.4    *                                                                                                          *  73
+     4.2    *                                                                                                          *  72
+     4      *                                                                                                          *  71
+     3.8    *                                                                                                          *  70
+     3.6    *                                                                                                          *  69
+     3.4    *                                                                                                          *  68
+     3.2    *                                                                                                          *  67
+     3      *                                                                                                          *  66
+     2.8    *                                                                                                          *  65
+     2.6    *                                                                                                          *  64
+     2.4    *                                                                                                          *  63
+     2.2    *                                                                                                          *  62
+     2      *                                                                                                          *  61
+     1.8    *                                                   . .                                                    *  60
+     1.6    *                                                 .     .                                                  *  59
+     1.4    *                                              .      .     .                                              *  58
+     1.2    *                                               .      .                                                   *  57
+     1      *                                             .    .   ..   . .                                            *  56
+      .8    *                                              . .  .   .    .                                             *  55
+      .6    *                                             .  . .. .... .                                               *  54
+      .4    *                                                ...  .....  .                                             *  53
+      .2    *                                            . .   .+67+ . .  .                                            *  52
+            *                                            .    ..7**7. .   ..                                           *  51
+ -    .2    *                                                ...7**6..                                                 *  50
+ -    .4    *                                                 ...87.. .                                                *  49
+ -    .6    *                                            ...   .....  ..                                               *  48
+ -    .8    *                                                  .. .   ... .                                            *  47
+ -   1      *                                              .   ..   .. .  .                                            *  46
+ -   1.2    *                                              .   .    ...                                                *  45
+ -   1.4    *                                                . . ..   .                                                *  44
+ -   1.6    *                                               .. . . .   .                                               *  43
+ -   1.8    *                                                  .      .                                                *  42
+ -   2      *                                                  ..    .                                                 *  41
+ -   2.2    *                                                                                                          *  40
+ -   2.4    *                                                                                                          *  39
+ -   2.6    *                                                                                                          *  38
+ -   2.8    *                                                                                                          *  37
+ -   3      *                                                                                                          *  36
+ -   3.2    *                                                                                                          *  35
+ -   3.4    *                                                                                                          *  34
+ -   3.6    *                                                                                                          *  33
+ -   3.8    *                                                                                                          *  32
+ -   4      *                                                                                                          *  31
+ -   4.2    *                                                                                                          *  30
+ -   4.4    *                                                                                                          *  29
+ -   4.6    *                                                                                                          *  28
+ -   4.8    *                                                                                                          *  27
+ -   5      *                                                                                                          *  26
+ -   5.2    *                                                                                                          *  25
+ -   5.4    *                                                                                                          *  24
+ -   5.6    *                                                                                                          *  23
+ -   5.8    *                                                                                                          *  22
+ -   6      *                                                                                                          *  21
+ -   6.2    *                                                                                                          *  20
+ -   6.4    *                                                                                                          *  19
+ -   6.6    *                                                                                                          *  18
+ -   6.8    *                                                                                                          *  17
+ -   7      *                                                                                                          *  16
+ -   7.2    *                                                                                                          *  15
+ -   7.4    *                                                                                                          *  14
+ -   7.6    *                                                                                                          *  13
+ -   7.8    *                                                                                                          *  12
+ -   8      *                                                                                                          *  11
+ -   8.2    *                                                                                                          *  10
+ -   8.4    *                                                                                                          *   9
+ -   8.6    *                                                                                                          *   8
+ -   8.8    *                                                                                                          *   7
+ -   9      *                                                                                                          *   6
+ -   9.2    *                                                                                                          *   5
+ -   9.4    *                                                                                                          *   4
+ -   9.6    *                                                                                                          *   3
+ -   9.8    *                                                                                                          *   2
+ -  10      *                                                                                                          *   1
+   UND      *                                                                                                          * UND
+            ************************************************************************************************************
+ LOW-EDGE       ---------------------------------------------------                                                 
+           10   1                                                                                                   
+            1.  0999998888877777666665555544444333332222211111         111112222233333444445555566666777778888899999
+            0   0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468
+ 
+  *                                                          I         I
+  * ENTRIES =    43606                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I  417.553I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 Zona 2 : Al r=0.5cm : Distribuzione energia ceduta nel piano x-y               
+ 
+ HBOOK     ID =       202                                        DATE  31/08/94              NO =    15
+ 
+ CHANNELS 100 U 0                                                                                                  1 O 
+           10 N 0        1         2         3         4         5         6         7         8         9         0 V 
+            1 D 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 E 
+            ************************************************************************************************************
+   OVE      *                                                                                                          * OVE
+     9.8    *                                                                                                          * 100
+     9.6    *                                                                                                          *  99
+     9.4    *                                                                                                          *  98
+     9.2    *                                                                                                          *  97
+     9      *                                                                                                          *  96
+     8.8    *                                                                                                          *  95
+     8.6    *                                                                                                          *  94
+     8.4    *                                                                                                          *  93
+     8.2    *                                                                                                          *  92
+     8      *                                                                                                          *  91
+     7.8    *                                                                                                          *  90
+     7.6    *                                                                                                          *  89
+     7.4    *                                                                                                          *  88
+     7.2    *                                                                                                          *  87
+     7      *                                                                                                          *  86
+     6.8    *                                                                                                          *  85
+     6.6    *                                                                                                          *  84
+     6.4    *                                                                                                          *  83
+     6.2    *                                                                                                          *  82
+     6      *                                                                                                          *  81
+     5.8    *                                                                                                          *  80
+     5.6    *                                                                                                          *  79
+     5.4    *                                                                                                          *  78
+     5.2    *                                                                                                          *  77
+     5      *                                                                                                          *  76
+     4.8    *                                                                                                          *  75
+     4.6    *                                                                                                          *  74
+     4.4    *                                                                                                          *  73
+     4.2    *                                                                                                          *  72
+     4      *                                                                                                          *  71
+     3.8    *                                                                                                          *  70
+     3.6    *                                                                                                          *  69
+     3.4    *                                                                                                          *  68
+     3.2    *                                                                                                          *  67
+     3      *                                                                                                          *  66
+     2.8    *                                                                                                          *  65
+     2.6    *                                                                                                          *  64
+     2.4    *                                                    ..                                                    *  63
+     2.2    *                                                 ....  . .                                                *  62
+     2      *                                                  . ..  .                                                 *  61
+     1.8    *                                                ...    .. ..                                              *  60
+     1.6    *                                                            . .                                           *  59
+     1.4    *                                           ..                .                                            *  58
+     1.2    *                                             .                 .                                          *  57
+     1      *                                          .                  .                                            *  56
+      .8    *                                           .                   .                                          *  55
+      .6    *                                           .                  ..                                          *  54
+      .4    *                                          .                   ..                                          *  53
+      .2    *                                          .                    .                                          *  52
+            *                                        .                      .                                          *  51
+ -    .2    *                                          .                    ..                                         *  50
+ -    .4    *                                        .                                                                 *  49
+ -    .6    *                                                                .                                         *  48
+ -    .8    *                                          ..                  ..                                          *  47
+ -   1      *                                          .                    .                                          *  46
+ -   1.2    *                                                               .                                          *  45
+ -   1.4    *                                                               .                                          *  44
+ -   1.6    *                                           .                 .                                            *  43
+ -   1.8    *                                            .. ..           .                                             *  42
+ -   2      *                                               ..  .    .                                                 *  41
+ -   2.2    *                                              .. . .  . .. ..                                             *  40
+ -   2.4    *                                               .       . .                                                *  39
+ -   2.6    *                                                                                                          *  38
+ -   2.8    *                                                                                                          *  37
+ -   3      *                                                                                                          *  36
+ -   3.2    *                                                                                                          *  35
+ -   3.4    *                                                                                                          *  34
+ -   3.6    *                                                                                                          *  33
+ -   3.8    *                                                                                                          *  32
+ -   4      *                                                                                                          *  31
+ -   4.2    *                                                                                                          *  30
+ -   4.4    *                                                                                                          *  29
+ -   4.6    *                                                                                                          *  28
+ -   4.8    *                                                                                                          *  27
+ -   5      *                                                                                                          *  26
+ -   5.2    *                                                                                                          *  25
+ -   5.4    *                                                                                                          *  24
+ -   5.6    *                                                                                                          *  23
+ -   5.8    *                                                                                                          *  22
+ -   6      *                                                                                                          *  21
+ -   6.2    *                                                                                                          *  20
+ -   6.4    *                                                                                                          *  19
+ -   6.6    *                                                                                                          *  18
+ -   6.8    *                                                                                                          *  17
+ -   7      *                                                                                                          *  16
+ -   7.2    *                                                                                                          *  15
+ -   7.4    *                                                                                                          *  14
+ -   7.6    *                                                                                                          *  13
+ -   7.8    *                                                                                                          *  12
+ -   8      *                                                                                                          *  11
+ -   8.2    *                                                                                                          *  10
+ -   8.4    *                                                                                                          *   9
+ -   8.6    *                                                                                                          *   8
+ -   8.8    *                                                                                                          *   7
+ -   9      *                                                                                                          *   6
+ -   9.2    *                                                                                                          *   5
+ -   9.4    *                                                                                                          *   4
+ -   9.6    *                                                                                                          *   3
+ -   9.8    *                                                                                                          *   2
+ -  10      *                                                                                                          *   1
+   UND      *                                                                                                          * UND
+            ************************************************************************************************************
+ LOW-EDGE       ---------------------------------------------------                                                 
+           10   1                                                                                                   
+            1.  0999998888877777666665555544444333332222211111         111112222233333444445555566666777778888899999
+            0   0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468
+ 
+  *                                                          I         I
+  * ENTRIES =     5242                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I   13.227I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 Zona 3 : Aria Distribuzione energia ceduta nel piano x-y                       
+ 
+ HBOOK     ID =       203                                        DATE  31/08/94              NO =    16
+ 
+ CHANNELS 100 U 0                                                                                                  1 O 
+           10 N 0        1         2         3         4         5         6         7         8         9         0 V 
+            1 D 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 E 
+            ************************************************************************************************************
+   OVE      *                                                                                                          * OVE
+     9.8    *                                                                                                          * 100
+     9.6    *                                                                                                          *  99
+     9.4    *                                                                                                          *  98
+     9.2    *                                                                                                          *  97
+     9      *                                                                                                          *  96
+     8.8    *                                                                                                          *  95
+     8.6    *                                                                                                          *  94
+     8.4    *                                                                                                          *  93
+     8.2    *                                                                                                          *  92
+     8      *                                                                                                          *  91
+     7.8    *                                                                                                          *  90
+     7.6    *                                                                                                          *  89
+     7.4    *                                                                                                          *  88
+     7.2    *                                                                                                          *  87
+     7      *                                                                                                          *  86
+     6.8    *                                                                                                          *  85
+     6.6    *                                                                                                          *  84
+     6.4    *                                                                                                          *  83
+     6.2    *                                                                                                          *  82
+     6      *                                                                                                          *  81
+     5.8    *                                                                                                          *  80
+     5.6    *                                                                                                          *  79
+     5.4    *                                                                                                          *  78
+     5.2    *                                                                                                          *  77
+     5      *                                                                                                          *  76
+     4.8    *                                                                                                          *  75
+     4.6    *                                                                                                          *  74
+     4.4    *                                                                                                          *  73
+     4.2    *                                                                                                          *  72
+     4      *                                                                                                          *  71
+     3.8    *                                                                                                          *  70
+     3.6    *                                                                                                          *  69
+     3.4    *                                                                                                          *  68
+     3.2    *                                                                                                          *  67
+     3      *                                                                                                          *  66
+     2.8    *                                                                                                          *  65
+     2.6    *                                                                                                          *  64
+     2.4    *                                                                                                          *  63
+     2.2    *                                                                                                          *  62
+     2      *                                                                                                          *  61
+     1.8    *                                                                                                          *  60
+     1.6    *                                                                                                          *  59
+     1.4    *                                                                                                          *  58
+     1.2    *                                                                                                          *  57
+     1      *                                                                                                          *  56
+      .8    *                                                                                                          *  55
+      .6    *                                                                                                          *  54
+      .4    *                                                                                                          *  53
+      .2    *                                                                                                          *  52
+            *                                                                                                          *  51
+ -    .2    *                                                                                                          *  50
+ -    .4    *                                                                                                          *  49
+ -    .6    *                                                                                                          *  48
+ -    .8    *                                                                                                          *  47
+ -   1      *                                                                                                          *  46
+ -   1.2    *                                                                                                          *  45
+ -   1.4    *                                                                                                          *  44
+ -   1.6    *                                                                                                          *  43
+ -   1.8    *                                                                                                          *  42
+ -   2      *                                                                                                          *  41
+ -   2.2    *                                                                                                          *  40
+ -   2.4    *                                                                                                          *  39
+ -   2.6    *                                                                                                          *  38
+ -   2.8    *                                                                                                          *  37
+ -   3      *                                                                                                          *  36
+ -   3.2    *                                                                                                          *  35
+ -   3.4    *                                                                                                          *  34
+ -   3.6    *                                                                                                          *  33
+ -   3.8    *                                                                                                          *  32
+ -   4      *                                                                                                          *  31
+ -   4.2    *                                                                                                          *  30
+ -   4.4    *                                                                                                          *  29
+ -   4.6    *                                                                                                          *  28
+ -   4.8    *                                                                                                          *  27
+ -   5      *                                                                                                          *  26
+ -   5.2    *                                                                                                          *  25
+ -   5.4    *                                                                                                          *  24
+ -   5.6    *                                                                                                          *  23
+ -   5.8    *                                                                                                          *  22
+ -   6      *                                                                                                          *  21
+ -   6.2    *                                                                                                          *  20
+ -   6.4    *                                                                                                          *  19
+ -   6.6    *                                                                                                          *  18
+ -   6.8    *                                                                                                          *  17
+ -   7      *                                                                                                          *  16
+ -   7.2    *                                                                                                          *  15
+ -   7.4    *                                                                                                          *  14
+ -   7.6    *                                                                                                          *  13
+ -   7.8    *                                                                                                          *  12
+ -   8      *                                                                                                          *  11
+ -   8.2    *                                                                                                          *  10
+ -   8.4    *                                                                                                          *   9
+ -   8.6    *                                                                                                          *   8
+ -   8.8    *                                                                                                          *   7
+ -   9      *                                                                                                          *   6
+ -   9.2    *                                                                                                          *   5
+ -   9.4    *                                                                                                          *   4
+ -   9.6    *                                                                                                          *   3
+ -   9.8    *                                                                                                          *   2
+ -  10      *                                                                                                          *   1
+   UND      *                                                                                                          * UND
+            ************************************************************************************************************
+ LOW-EDGE       ---------------------------------------------------                                                 
+           10   1                                                                                                   
+            1.  0999998888877777666665555544444333332222211111         111112222233333444445555566666777778888899999
+            0   0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468
+ 
+  *                                                          I         I
+  * ENTRIES =      715                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I         I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 Zona 4 : YAP 1 Distribuzione energia ceduta nel piano del yap                  
+ 
+ HBOOK     ID =       204                                        DATE  31/08/94              NO =    17
+ 
+ CHANNELS  10 U 0        1         2         3         4         5         6         7 O 
+            1 N 1234567890123456789012345678901234567890123456789012345678901234567890 V 
+            ******************************************************************************
+   OVE      *                                                                            * OVE
+     2.04   *                                                                       .    *  70
+     1.98   *                                                                      .     *  69
+     1.92   *                                                                      .     *  68
+     1.86   *              .                 .                                           *  67
+     1.8    *                    .                                  .  .                 *  66
+     1.74   *                                                        .           .       *  65
+     1.68   *                  .                                                         *  64
+     1.62   *                                                                            *  63
+     1.56   *                                                                            *  62
+     1.5    *                                              .                             *  61
+     1.44   *                                                              .             *  60
+     1.38   *                                                                            *  59
+     1.32   *              ..        .   .                                               *  58
+     1.26   *                      .                                                     *  57
+     1.2    *                      .                                                     *  56
+     1.14   *                    .                                                       *  55
+     1.08   *                                                                            *  54
+     1.02   *        .                                                                   *  53
+      .96   *                     .    ..                                                *  52
+      .9    *                                                                            *  51
+      .84   *                                                                   .        *  50
+      .78   *                           .                                                *  49
+      .72   *                                                                            *  48
+      .66   *                                                                            *  47
+      .6    *                                           .                           .    *  46
+      .54   *                       .                                                    *  45
+      .48   *                                                                            *  44
+      .42   *                                                                            *  43
+      .36   *                                                     .                      *  42
+      .3    *                       .                .                                   *  41
+      .24   *                   .                                                        *  40
+      .18   *                                                                            *  39
+      .12   *                                                                            *  38
+      .06   *                                                                            *  37
+            *                                                 .                          *  36
+ -    .06   *                          .                                                 *  35
+ -    .12   *                          .                                                 *  34
+ -    .18   *                                                                            *  33
+ -    .24   *     .                                                                      *  32
+ -    .3    *   .                                                          .             *  31
+ -    .36   *     .                                                                      *  30
+ -    .42   *        ..                   .                   .                          *  29
+ -    .48   *                                                                            *  28
+ -    .54   *                                                                            *  27
+ -    .6    *                                            .                               *  26
+ -    .66   *                                                                            *  25
+ -    .72   *                            .                                               *  24
+ -    .78   *                            .                                               *  23
+ -    .84   *                                     ..          .                          *  22
+ -    .9    *                                                                            *  21
+ -    .96   *                                                                .           *  20
+ -   1.02   *                                          .                          .      *  19
+ -   1.08   *                 .                       .                                  *  18
+ -   1.14   *                 .                       .                                  *  17
+ -   1.2    *                                                   .                        *  16
+ -   1.26   *                               .  .                                         *  15
+ -   1.32   *                                  .                                         *  14
+ -   1.38   *                                                                            *  13
+ -   1.44   *                     .                           .                          *  12
+ -   1.5    *                                                                            *  11
+ -   1.56   *                                                                            *  10
+ -   1.62   *                        .                                                   *   9
+ -   1.68   *                                                                            *   8
+ -   1.74   *                                                       .                    *   7
+ -   1.8    *                                                         .                  *   6
+ -   1.86   *           .                                                                *   5
+ -   1.92   *                                                                            *   4
+ -   1.98   *                                                                            *   3
+ -   2.04   *                                                                            *   2
+ -   2.1    *                                                                            *   1
+   UND      *                                                                            * UND
+            ******************************************************************************
+ LOW-EDGE       ------------------------------------                                  
+            1.  2211111111111111111                                 111111111111111112
+            0   1099887665543322100998776654433211000112334456677899001223345566788990
+            0   0482604826048260482604826048260482606284062840628406284062840628406284
+ 
+  *                                                          I         I
+  * ENTRIES =    14111                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I   11.717I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 Zona 5 : YAP 2 Distribuzione energia ceduta nel piano del yap                  
+ 
+ HBOOK     ID =       205                                        DATE  31/08/94              NO =    18
+ 
+ CHANNELS  10 U 0        1         2         3         4         5         6         7 O 
+            1 N 1234567890123456789012345678901234567890123456789012345678901234567890 V 
+            ******************************************************************************
+   OVE      *                                                                            * OVE
+     2.04   *                                                                            *  70
+     1.98   *                                                                            *  69
+     1.92   *                                                                            *  68
+     1.86   *                                                                            *  67
+     1.8    *                                                                            *  66
+     1.74   *                                           .                                *  65
+     1.68   *                                                                            *  64
+     1.62   *                                                                            *  63
+     1.56   *                                                                            *  62
+     1.5    *                                      .                                     *  61
+     1.44   *                                       .                                    *  60
+     1.38   *                  .                   .             .                       *  59
+     1.32   *                                                                ..          *  58
+     1.26   *                                        .                                   *  57
+     1.2    *                                                                            *  56
+     1.14   *                     .                                                      *  55
+     1.08   *                                                                            *  54
+     1.02   *                                                                            *  53
+      .96   *                                .                                           *  52
+      .9    *                               .                                            *  51
+      .84   *                                                                            *  50
+      .78   *                                                                            *  49
+      .72   *                                    .                                       *  48
+      .66   *                   .                                                        *  47
+      .6    *                   . .                                                      *  46
+      .54   *            .                                                               *  45
+      .48   *                                                               .            *  44
+      .42   *                               .                                            *  43
+      .36   *                                                                            *  42
+      .3    *                              .                                             *  41
+      .24   *                                                                .           *  40
+      .18   *                      .                                                     *  39
+      .12   *                                                          .                 *  38
+      .06   *                                        .                                   *  37
+            *                                                                            *  36
+ -    .06   *                                                                            *  35
+ -    .12   *                                         ..                                 *  34
+ -    .18   *                                  .                                         *  33
+ -    .24   *       .                                                                    *  32
+ -    .3    *                                                                            *  31
+ -    .36   *                                                       .                    *  30
+ -    .42   *                                                       .                    *  29
+ -    .48   *                                                                            *  28
+ -    .54   *                                                                            *  27
+ -    .6    *            .                                                               *  26
+ -    .66   *                                   .                                        *  25
+ -    .72   *                                  .                                         *  24
+ -    .78   *                                                                            *  23
+ -    .84   *              .               .                                             *  22
+ -    .9    *                 .                                  .                       *  21
+ -    .96   *                                         .                                  *  20
+ -   1.02   *                                                                            *  19
+ -   1.08   *      .           .                                                         *  18
+ -   1.14   *                                                                            *  17
+ -   1.2    *                  .                                          .              *  16
+ -   1.26   *                                                                            *  15
+ -   1.32   *         .                              .                                   *  14
+ -   1.38   *                                  .                                         *  13
+ -   1.44   *                                                         .                  *  12
+ -   1.5    *                                          .. ..                             *  11
+ -   1.56   *                                            .                               *  10
+ -   1.62   *                                                           .                *   9
+ -   1.68   *                                         .                                  *   8
+ -   1.74   *                                                                            *   7
+ -   1.8    *                                                                            *   6
+ -   1.86   *                                                                            *   5
+ -   1.92   *                               .      .                                     *   4
+ -   1.98   *                                                                            *   3
+ -   2.04   *                                                                            *   2
+ -   2.1    *                                                                            *   1
+   UND      *                                                                            * UND
+            ******************************************************************************
+ LOW-EDGE       ------------------------------------                                  
+            1.  2211111111111111111                                 111111111111111112
+            0   1099887665543322100998776654433211000112334456677899001223345566788990
+            0   0482604826048260482604826048260482606284062840628406284062840628406284
+ 
+  *                                                          I         I
+  * ENTRIES =    12111                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I   10.098I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 Zona 6 : YAP 3 Distribuzione energia ceduta nel piano del yap                  
+ 
+ HBOOK     ID =       206                                        DATE  31/08/94              NO =    19
+ 
+ CHANNELS  10 U 0        1         2         3         4         5         6         7 O 
+            1 N 1234567890123456789012345678901234567890123456789012345678901234567890 V 
+            ******************************************************************************
+   OVE      *                                                                            * OVE
+     2.04   *                                                         .                  *  70
+     1.98   *                                                      .         .           *  69
+     1.92   *                                                                            *  68
+     1.86   *                                                                            *  67
+     1.8    *                                                                            *  66
+     1.74   *                                                      .                     *  65
+     1.68   *                                                          .          .. .   *  64
+     1.62   *                                                                            *  63
+     1.56   *                                                                      .     *  62
+     1.5    *              .                                                             *  61
+     1.44   *              .                                                             *  60
+     1.38   *                                                                            *  59
+     1.32   *               .                                                    . .     *  58
+     1.26   *                                                                   ...      *  57
+     1.2    *                                                                            *  56
+     1.14   *             .   .                                           .              *  55
+     1.08   *             .  .                                                           *  54
+     1.02   *                                                                            *  53
+      .96   *             .                                                              *  52
+      .9    *                                                                            *  51
+      .84   *                                                                            *  50
+      .78   *        .                                                                   *  49
+      .72   *                                                                            *  48
+      .66   *        .                                                                   *  47
+      .6    *                                        .                                   *  46
+      .54   *                                                                            *  45
+      .48   *                                                                            *  44
+      .42   *                                                                            *  43
+      .36   *                                                     .                      *  42
+      .3    *                                                                            *  41
+      .24   *                                                                            *  40
+      .18   *        .                            ..                  ..                 *  39
+      .12   *         .        .                  .                                      *  38
+      .06   *            .                                                               *  37
+            *             .   .                                                          *  36
+ -    .06   *                                                                            *  35
+ -    .12   *   .                           .                     .                      *  34
+ -    .18   *                               .                   . .                      *  33
+ -    .24   *                                                     .                      *  32
+ -    .3    *                                                                            *  31
+ -    .36   *                     ..                                                     *  30
+ -    .42   *                                                 .                          *  29
+ -    .48   *                                                                            *  28
+ -    .54   *                                                          .                 *  27
+ -    .6    *                                                                            *  26
+ -    .66   *                                                                            *  25
+ -    .72   *                        .          .                                        *  24
+ -    .78   *                                 .               .                          *  23
+ -    .84   *                     ..                                                     *  22
+ -    .9    *                       .                        ..                          *  21
+ -    .96   *                                            .                          .    *  20
+ -   1.02   *                                                                            *  19
+ -   1.08   *                                                                            *  18
+ -   1.14   *                                                                            *  17
+ -   1.2    *     .                                                                      *  16
+ -   1.26   *                                                 .                          *  15
+ -   1.32   *                                      .          .                          *  14
+ -   1.38   *     .                                .        .   .                        *  13
+ -   1.44   *                                           .                                *  12
+ -   1.5    *                                                                            *  11
+ -   1.56   *     .               .                                                      *  10
+ -   1.62   *                                                                            *   9
+ -   1.68   *                                                               .            *   8
+ -   1.74   *                                      .                                     *   7
+ -   1.8    *           .                                                            .   *   6
+ -   1.86   *                                    .                                       *   5
+ -   1.92   *                                                                            *   4
+ -   1.98   *                                                                            *   3
+ -   2.04   *                                                    .                       *   2
+ -   2.1    *                                                                            *   1
+   UND      *                                                                            * UND
+            ******************************************************************************
+ LOW-EDGE       ------------------------------------                                  
+            1.  2211111111111111111                                 111111111111111112
+            0   1099887665543322100998776654433211000112334456677899001223345566788990
+            0   0482604826048260482604826048260482606284062840628406284062840628406284
+ 
+  *                                                          I         I
+  * ENTRIES =    19809                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I   17.542I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 Zona 7 : YAP 4 Distribuzione energia ceduta nel piano del yap                  
+ 
+ HBOOK     ID =       207                                        DATE  31/08/94              NO =    20
+ 
+ CHANNELS  10 U 0        1         2         3         4         5         6         7 O 
+            1 N 1234567890123456789012345678901234567890123456789012345678901234567890 V 
+            ******************************************************************************
+   OVE      *                                                                            * OVE
+     2.04   *                                                     .                      *  70
+     1.98   *                                                        .                   *  69
+     1.92   *                                                                            *  68
+     1.86   *                                                                            *  67
+     1.8    *                                              ..                            *  66
+     1.74   *                                                                    .       *  65
+     1.68   *                                                                            *  64
+     1.62   *                      .                         .                           *  63
+     1.56   *                                                                            *  62
+     1.5    *                          .                                                 *  61
+     1.44   *                                                                            *  60
+     1.38   *                               .                                            *  59
+     1.32   *                                                                            *  58
+     1.26   *                                                                            *  57
+     1.2    *                       .                                                    *  56
+     1.14   *          .                                                                 *  55
+     1.08   *                                                                            *  54
+     1.02   *                                                                            *  53
+      .96   *                                  .    .   .                                *  52
+      .9    *                                 ..                                         *  51
+      .84   *                                .                                           *  50
+      .78   *                                                                            *  49
+      .72   *                                                                            *  48
+      .66   *                                                                            *  47
+      .6    *     .                                                                      *  46
+      .54   *                                                                            *  45
+      .48   *                                                        .                   *  44
+      .42   *         .                                                                  *  43
+      .36   *                                                                            *  42
+      .3    *            .                        .     .                                *  41
+      .24   *                                                                            *  40
+      .18   *                 .                                 ..                       *  39
+      .12   *                                                                            *  38
+      .06   *                                                                            *  37
+            *                                                   .                        *  36
+ -    .06   *                                                                       .    *  35
+ -    .12   *                                                  .                         *  34
+ -    .18   *                                                                            *  33
+ -    .24   *                                                                            *  32
+ -    .3    *                                                                            *  31
+ -    .36   *                                                                            *  30
+ -    .42   *                                                              .             *  29
+ -    .48   *                                                                            *  28
+ -    .54   *                                                     .                      *  27
+ -    .6    *                                                                            *  26
+ -    .66   *                                                                            *  25
+ -    .72   *                                                                            *  24
+ -    .78   *                                            .                               *  23
+ -    .84   *           .                                .                               *  22
+ -    .9    *                                                                            *  21
+ -    .96   *                                                                            *  20
+ -   1.02   *                                                                            *  19
+ -   1.08   *                                                                            *  18
+ -   1.14   *                                                                            *  17
+ -   1.2    *                                                                            *  16
+ -   1.26   *     .            .                                                         *  15
+ -   1.32   *                                                                            *  14
+ -   1.38   *                                        .                                   *  13
+ -   1.44   *                                                                            *  12
+ -   1.5    *                                                                            *  11
+ -   1.56   *                                                                            *  10
+ -   1.62   *                                                                            *   9
+ -   1.68   *                                                                            *   8
+ -   1.74   *                                                                            *   7
+ -   1.8    *                                                                            *   6
+ -   1.86   *                                                                            *   5
+ -   1.92   *                                                          .                 *   4
+ -   1.98   *                                        .                                   *   3
+ -   2.04   *                  .                                                         *   2
+ -   2.1    *                                                                .           *   1
+   UND      *                                                                            * UND
+            ******************************************************************************
+ LOW-EDGE       ------------------------------------                                  
+            1.  2211111111111111111                                 111111111111111112
+            0   1099887665543322100998776654433211000112334456677899001223345566788990
+            0   0482604826048260482604826048260482606284062840628406284062840628406284
+ 
+  *                                                          I         I
+  * ENTRIES =     9664                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I    8.294I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 Zona 8 : YAP 5 Distribuzione energia ceduta nel piano del yap                  
+ 
+ HBOOK     ID =       208                                        DATE  31/08/94              NO =    21
+ 
+ CHANNELS  10 U 0        1         2         3         4         5         6         7 O 
+            1 N 1234567890123456789012345678901234567890123456789012345678901234567890 V 
+            ******************************************************************************
+   OVE      *                                                                            * OVE
+     2.04   *                                                                            *  70
+     1.98   *                                                                            *  69
+     1.92   *                                                                            *  68
+     1.86   *                          .             .                                   *  67
+     1.8    *                                                        .                   *  66
+     1.74   *                                                                            *  65
+     1.68   *                                    .                                       *  64
+     1.62   *                                       .         .              .           *  63
+     1.56   *                                                 .              .           *  62
+     1.5    *                                                                  .         *  61
+     1.44   *                                                                            *  60
+     1.38   *                                .                       ..                  *  59
+     1.32   *             .                                                              *  58
+     1.26   *              .                                                             *  57
+     1.2    *             .                                                              *  56
+     1.14   *                                                                            *  55
+     1.08   *                                        .                                   *  54
+     1.02   *      .                                                                     *  53
+      .96   *                                                                            *  52
+      .9    *                                           .                                *  51
+      .84   *                                                                            *  50
+      .78   *                                          .                                 *  49
+      .72   *                                                                            *  48
+      .66   *                                                                            *  47
+      .6    *                                                                            *  46
+      .54   *                                                              .             *  45
+      .48   *                                        .  .     .     .                .   *  44
+      .42   *                                                     .       .              *  43
+      .36   *                       .                                         .          *  42
+      .3    *                  .                                 .                       *  41
+      .24   *             .                                      .  .                    *  40
+      .18   *             .                            .                                 *  39
+      .12   *               .                     .        .                             *  38
+      .06   *                                                       .                    *  37
+            *                                                                            *  36
+ -    .06   *                     .                                                      *  35
+ -    .12   *                         .          .                                       *  34
+ -    .18   *                                      .             .                       *  33
+ -    .24   *                                                    ..       .              *  32
+ -    .3    *                                                                            *  31
+ -    .36   *                                                                   .        *  30
+ -    .42   *                               .                     .                      *  29
+ -    .48   *                                                                            *  28
+ -    .54   *                                                                            *  27
+ -    .6    *                         .                                        .         *  26
+ -    .66   *                                                                            *  25
+ -    .72   *                                                      .                     *  24
+ -    .78   *                                                                            *  23
+ -    .84   *                                                   .                        *  22
+ -    .9    *                                                                            *  21
+ -    .96   *                                                                            *  20
+ -   1.02   *                                                                            *  19
+ -   1.08   *                                                                            *  18
+ -   1.14   *                                                                            *  17
+ -   1.2    *                                                               ..           *  16
+ -   1.26   *                                                                            *  15
+ -   1.32   *           ..                                                               *  14
+ -   1.38   *                                                                            *  13
+ -   1.44   *                                                                            *  12
+ -   1.5    *                                                                            *  11
+ -   1.56   *                                                                            *  10
+ -   1.62   *                                                                            *   9
+ -   1.68   *                                                                            *   8
+ -   1.74   *                                     .                                      *   7
+ -   1.8    *          .                          .                                      *   6
+ -   1.86   *                                                                            *   5
+ -   1.92   *                                                                            *   4
+ -   1.98   *                                     .                    ..                *   3
+ -   2.04   *                                                                            *   2
+ -   2.1    *                                                                            *   1
+   UND      *                                                                            * UND
+            ******************************************************************************
+ LOW-EDGE       ------------------------------------                                  
+            1.  2211111111111111111                                 111111111111111112
+            0   1099887665543322100998776654433211000112334456677899001223345566788990
+            0   0482604826048260482604826048260482606284062840628406284062840628406284
+ 
+  *                                                          I         I
+  * ENTRIES =    14603                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I   11.135I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 Zona 9 : YAP 6 Distribuzione energia ceduta nel piano del yap                  
+ 
+ HBOOK     ID =       209                                        DATE  31/08/94              NO =    22
+ 
+ CHANNELS  10 U 0        1         2         3         4         5         6         7 O 
+            1 N 1234567890123456789012345678901234567890123456789012345678901234567890 V 
+            ******************************************************************************
+   OVE      *                                                                            * OVE
+     2.04   *                                                    .                       *  70
+     1.98   *                                                                            *  69
+     1.92   *                                                                            *  68
+     1.86   *                                .                                .          *  67
+     1.8    *        .                     .                                 .           *  66
+     1.74   *                                                                            *  65
+     1.68   *                                                      .                     *  64
+     1.62   *                             .                                              *  63
+     1.56   *     ..                                ..        .                          *  62
+     1.5    *                                                                            *  61
+     1.44   *                                                                            *  60
+     1.38   *                                                                            *  59
+     1.32   *                                                                            *  58
+     1.26   *                                                                .           *  57
+     1.2    *                                                               ..           *  56
+     1.14   *                                                                     .      *  55
+     1.08   *                                                                            *  54
+     1.02   *                             .                                              *  53
+      .96   *                                              .       .                     *  52
+      .9    *                                                      .                     *  51
+      .84   *                                                                        .   *  50
+      .78   *                                                                            *  49
+      .72   *                                                    .                       *  48
+      .66   *                            .             .                                 *  47
+      .6    *                                                                            *  46
+      .54   *             .                                                              *  45
+      .48   *     .                      .                                               *  44
+      .42   *                                                                            *  43
+      .36   *                                                 .                          *  42
+      .3    *          .                                           ..                    *  41
+      .24   *                              .                             .               *  40
+      .18   *   .                     .                                           .      *  39
+      .12   *                                                                     .      *  38
+      .06   *                                                                            *  37
+            *   .                                                                        *  36
+ -    .06   *                                   .                .         .             *  35
+ -    .12   *                                                                            *  34
+ -    .18   *                                                                            *  33
+ -    .24   *               .                           +                                *  32
+ -    .3    *                                                                            *  31
+ -    .36   *     ..                                       .                             *  30
+ -    .42   *                             .                                              *  29
+ -    .48   *                             .  .                                           *  28
+ -    .54   *                                                                            *  27
+ -    .6    *                                                                            *  26
+ -    .66   *                                                                            *  25
+ -    .72   *               .                                           .                *  24
+ -    .78   *             .                                                              *  23
+ -    .84   *                                                                            *  22
+ -    .9    *                                  .                                         *  21
+ -    .96   *         .                                     .                .           *  20
+ -   1.02   *                                                                   .        *  19
+ -   1.08   *          .                             .           .                       *  18
+ -   1.14   *               .                                                            *  17
+ -   1.2    *                                                                    .       *  16
+ -   1.26   *                                                                   .        *  15
+ -   1.32   *                                                                            *  14
+ -   1.38   *      .                                                                     *  13
+ -   1.44   *         .                                                                  *  12
+ -   1.5    *                                                                            *  11
+ -   1.56   *                           .                                                *  10
+ -   1.62   *                                                                            *   9
+ -   1.68   *                                                                            *   8
+ -   1.74   *                                                                            *   7
+ -   1.8    *                                                                            *   6
+ -   1.86   *                        .                                                   *   5
+ -   1.92   *                                                                            *   4
+ -   1.98   *                                                                            *   3
+ -   2.04   *                                                                    .       *   2
+ -   2.1    *                                                                            *   1
+   UND      *                                                                            * UND
+            ******************************************************************************
+ LOW-EDGE       ------------------------------------                                  
+            1.  2211111111111111111                                 111111111111111112
+            0   1099887665543322100998776654433211000112334456677899001223345566788990
+            0   0482604826048260482604826048260482606284062840628406284062840628406284
+ 
+  *                                                          I         I
+  * ENTRIES =    17304                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I   14.788I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 Zona 10 : fughe dal sistema : distribuzione in x-y                             
+ 
+ HBOOK     ID =       210                                        DATE  31/08/94              NO =    23
+ 
+ CHANNELS  10 U 0        1         2         3         4         5         6         7 O 
+            1 N 1234567890123456789012345678901234567890123456789012345678901234567890 V 
+            ******************************************************************************
+   OVE      * *   .              ....   .           .  ..    .          ..   ..  .     * * OVE
+     2.04   *                                                                            *  70
+     1.98   *                                          .                                 *  69
+     1.92   *                                              .                           . *  68
+     1.86   *                                         .                                . *  67
+     1.8    * .                                  .           .                           *  66
+     1.74   *                                                   .         .              *  65
+     1.68   *                                                                 .          *  64
+     1.62   *                 .       .                           .      .               *  63
+     1.56   *                            ..                                              *  62
+     1.5    *                 .                                            .   .       . *  61
+     1.44   *                       .        . .   .  .    .            .                *  60
+     1.38   *                   .          .           .      .                          *  59
+     1.32   *           .                                     .                          *  58
+     1.26   *    .                               .          .       .         .  .     . *  57
+     1.2    *                                            .                               *  56
+     1.14   *          .  .        .                               .      +         .    *  55
+     1.08   *   .                                .                        .              *  54
+     1.02   *                .        .        .         ..       .   .                  *  53
+      .96   *                                    .       .   .             .             *  52
+      .9    *       .                          .       ..           .         .          *  51
+      .84   *                         .          .. .                                  . *  50
+      .78   *                 .     . .            .                .           .  .     *  49
+      .72   * .                                              .                           *  48
+      .66   *                              .                                             *  47
+      .6    *                           .       .  .                   .  .            . *  46
+      .54   *                           .                .              .            .   *  45
+      .48   *                         .      .                                 .         *  44
+      .42   * .                   .               .                                      *  43
+      .36   * .          .         .    .      .          .   +.        .                *  42
+      .3    *                        .            .              .                       *  41
+      .24   *                              .          .                                  *  40
+      .18   *                   .    .    .                   .  . . +                   *  39
+      .12   * .                       .      .    .                                      *  38
+      .06   *             .       .+..                 .                    .          . *  37
+            *                     .       .   .     .    .        .                      *  36
+ -    .06   * .                                .             .   .                       *  35
+ -    .12   *                    .                   ..  .          .    .       .     . *  34
+ -    .18   *      .    .         .        .        .      .   .    .                    *  33
+ -    .24   *               .                    ..  ..  .                               *  32
+ -    .3    *         .               .     . . .  .                .           .      . *  31
+ -    .36   *                      .     .        .      ..                            . *  30
+ -    .42   *                          +                        .  .          .  .       *  29
+ -    .48   *         .       .                              . .               .       + *  28
+ -    .54   *                     .          .   .   .                                   *  27
+ -    .6    *        .   .                 .          .                                  *  26
+ -    .66   *       .                    . .     .                .                      *  25
+ -    .72   *                  .                   .                                     *  24
+ -    .78   * .    .          .                                 .       .                *  23
+ -    .84   * .                .      .        .                    .                    *  22
+ -    .9    * .                        .        .     .                                . *  21
+ -    .96   *           + .                                                              *  20
+ -   1.02   * .                        .             . .                         +       *  19
+ -   1.08   *                         ..                                      .          *  18
+ -   1.14   * .         .           .                                                  . *  17
+ -   1.2    *                     .                   .          .                       *  16
+ -   1.26   *                                                              .             *  15
+ -   1.32   *          .             .     .        .              .                     *  14
+ -   1.38   *                                             .                    .         *  13
+ -   1.44   *                            .   .               . .                         *  12
+ -   1.5    *                          .                     .                         . *  11
+ -   1.56   * .                          +                           .                   *  10
+ -   1.62   * .             .              .                                             *   9
+ -   1.68   *                      .      .       .                                      *   8
+ -   1.74   *                                .             .                             *   7
+ -   1.8    *                                                                            *   6
+ -   1.86   *                      .                                                     *   5
+ -   1.92   *                              .                                             *   4
+ -   1.98   *                                     .  .                                   *   3
+ -   2.04   *              .                                              .              *   2
+ -   2.1    *                         .                           .                      *   1
+   UND      * *  .    .       .  ....   .             ..      +      .    .  + .       * * UND
+            ******************************************************************************
+ LOW-EDGE       ------------------------------------                                  
+            1.  2211111111111111111                                 111111111111111112
+            0   1099887665543322100998776654433211000112334456677899001223345566788990
+            0   0482604826048260482604826048260482606284062840628406284062840628406284
+ 
+  *                                                    40.243I    6.919I   39.326
+  * ENTRIES =      664                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                        6.184I  116.612I    5.935
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                39.356I    8.385I   38.8
+ 
+ ****** HBOOK   NO ENTRIES FOR HISTOGRAM ID=         211                 
+1 Zona 12 : uscite dai rivelatori distribuzione x-y                              
+ 
+ HBOOK     ID =       212                                        DATE  31/08/94              NO =    25
+ 
+ CHANNELS 100 U 0                                                                                                  1 O 
+           10 N 0        1         2         3         4         5         6         7         8         9         0 V 
+            1 D 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 E 
+            ************************************************************************************************************
+   OVE      *                                                                                                          * OVE
+     9.8    *                                                                                                          * 100
+     9.6    *                                                                                                          *  99
+     9.4    *                                                                                                          *  98
+     9.2    *                                                                                                          *  97
+     9      *                                                                                                          *  96
+     8.8    *                                                                                                          *  95
+     8.6    *                                                                                                          *  94
+     8.4    *                                                                                                          *  93
+     8.2    *                                                                                                          *  92
+     8      *                                                                                                          *  91
+     7.8    *                                                                                                          *  90
+     7.6    *                                                                                                          *  89
+     7.4    *                                                                                                          *  88
+     7.2    *                                                                                                          *  87
+     7      *                                                                                                          *  86
+     6.8    *                                                                                                          *  85
+     6.6    *                                                                                                          *  84
+     6.4    *                                                                                                          *  83
+     6.2    *                                                                                                          *  82
+     6      *                                                                                                          *  81
+     5.8    *                                                                                                          *  80
+     5.6    *                                                                                                          *  79
+     5.4    *                                                                                                          *  78
+     5.2    *                                                                                                          *  77
+     5      *                                                                                                          *  76
+     4.8    *                                                                                                          *  75
+     4.6    *                                                                                                          *  74
+     4.4    *                                                                                                          *  73
+     4.2    *                                                                                                          *  72
+     4      *                                                                                                          *  71
+     3.8    *                                                                                                          *  70
+     3.6    *                                                                                                          *  69
+     3.4    *                                                                                                          *  68
+     3.2    *                                                             .                                            *  67
+     3      *                                                                                                          *  66
+     2.8    *                                          .                                                               *  65
+     2.6    *                                       .                                                                  *  64
+     2.4    *                                                                   .                                      *  63
+     2.2    *                                                                                                          *  62
+     2      *                                                                                                          *  61
+     1.8    *                                                                                                          *  60
+     1.6    *                                                                                                          *  59
+     1.4    *                                                                        .                                 *  58
+     1.2    *                                                                                                          *  57
+     1      *                                  .                                                                       *  56
+      .8    *                                                                                                          *  55
+      .6    *                                  .                                    .                                  *  54
+      .4    *                                                                                                          *  53
+      .2    *                                                                                                          *  52
+            *                                                                                                          *  51
+ -    .2    *                                                                        .                                 *  50
+ -    .4    *                                                                                                          *  49
+ -    .6    *                                                                                                          *  48
+ -    .8    *                                                                                                          *  47
+ -   1      *                                                                        .                                 *  46
+ -   1.2    *                                                                                                          *  45
+ -   1.4    *                                                                       .                                  *  44
+ -   1.6    *                                                                                                          *  43
+ -   1.8    *                                                                                                          *  42
+ -   2      *                                                                                                          *  41
+ -   2.2    *                                                                                                          *  40
+ -   2.4    *                                                                                                          *  39
+ -   2.6    *                                                                                                          *  38
+ -   2.8    *                                                                                                          *  37
+ -   3      *                                        .                                                                 *  36
+ -   3.2    *                                                                                                          *  35
+ -   3.4    *                                                                                                          *  34
+ -   3.6    *                                                                                                          *  33
+ -   3.8    *                                                                                                          *  32
+ -   4      *                                                                                                          *  31
+ -   4.2    *                                                      .                                                   *  30
+ -   4.4    *                                              .                                                           *  29
+ -   4.6    *                                                                                                          *  28
+ -   4.8    *                                                                                                          *  27
+ -   5      *                                                                                                          *  26
+ -   5.2    *                                                                                                          *  25
+ -   5.4    *                                                                                                          *  24
+ -   5.6    *                                                                                                          *  23
+ -   5.8    *                                                                                                          *  22
+ -   6      *                                                                                                          *  21
+ -   6.2    *                                                                                                          *  20
+ -   6.4    *                                                                                                          *  19
+ -   6.6    *                                                                                                          *  18
+ -   6.8    *                                                                                                          *  17
+ -   7      *                                                                                                          *  16
+ -   7.2    *                                                                                                          *  15
+ -   7.4    *                                                                                                          *  14
+ -   7.6    *                                                                                                          *  13
+ -   7.8    *                                                                                                          *  12
+ -   8      *                                                                                                          *  11
+ -   8.2    *                                                                                                          *  10
+ -   8.4    *                                                                                                          *   9
+ -   8.6    *                                                                                                          *   8
+ -   8.8    *                                                                                                          *   7
+ -   9      *                                                                                                          *   6
+ -   9.2    *                                                                                                          *   5
+ -   9.4    *                                                                                                          *   4
+ -   9.6    *                                                                                                          *   3
+ -   9.8    *                                                                                                          *   2
+ -  10      *                                                                                                          *   1
+   UND      *                                                                                                          * UND
+            ************************************************************************************************************
+ LOW-EDGE       ---------------------------------------------------                                                 
+           10   1                                                                                                   
+            1.  0999998888877777666665555544444333332222211111         111112222233333444445555566666777778888899999
+            0   0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468
+ 
+  *                                                          I         I
+  * ENTRIES =       14                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I    2.687I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 DISTRIBUZIONE R-Z , PESATA SU ENERGIA --                                       
+ 
+ HBOOK     ID =       700                                        DATE  31/08/94              NO =    26
+ 
+ CHANNELS 100 U 0                                                                                                  1 O 
+           10 N 0        1         2         3         4         5         6         7         8         9         0 V 
+            1 D 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 E 
+            ************************************************************************************************************
+   OVE      *                                                        .                                               * * OVE
+     2.8    *                                                                                                          *  30
+     2.6    *                                                            .                                             *  29
+     2.4    *                                                                .                                         *  28
+     2.2    *                                                        .                                                 *  27
+     2      *                                                     +435853849433     ++3+2+.+..                         *  26
+     1.8    *                                                      .. .   .. .      ...  ...                           *  25
+     1.6    *                                                      .  . .  .. .     ...+.. .. .                        *  24
+     1.4    *                                                        .... . .       ...... .. .                        *  23
+     1.2    *                                                      ...  ..  ...      ...+ . .                          *  22
+     1      *                                                     .  .    . ...      ..+ .. .. .                       *  21
+      .8    *                                                        ...     ..       +.... ..                         *  20
+      .6    *                                                      ....   . ...     .... . . .                         *  19
+      .4    *                                                       ... . ....       +.... ....                        *  18
+      .2    *                                                     A3+ ........      ..+.+ ...+                         *  17
+            *                                                     **....  .....     ...+.. ... .                       *  16
+ -    .2    *                                                     *Z....  . ...     ...+.....                          *  15
+ -    .4    *                                                     I2...... . ..     ...++.. . ..                       *  14
+ -    .6    *                                                       ..........       + ....                            *  13
+ -    .8    *                                                       .... .... .     ....... .                          *  12
+ -   1      *                                                      ...  ..  ..      ..+... .. .                        *  11
+ -   1.2    *                                                        .. ... ...      .+.. .                            *  10
+ -   1.4    *                                                       .  ........     .+...  ..  .                       *   9
+ -   1.6    *                                                          . ....           ..+.                           *   8
+ -   1.8    *                                                       ..   .  . .       . ... . .                        *   7
+ -   2      *                                                               . .     .....   ..                         *   6
+ -   2.2    *                                                     +333684863432     .42.+2.++..                        *   5
+ -   2.4    *                                                                 .                                        *   4
+ -   2.6    *                                                                 +                                        *   3
+ -   2.8    *                                                                                                          *   2
+ -   3      *                                                                                                          *   1
+   UND      *                                                        .  . .                                          * * UND
+            ************************************************************************************************************
+ LOW-EDGE       ---------------------------------------------------                                                 
+           10   1                                                                                                   
+            1.  0999998888877777666665555544444333332222211111         111112222233333444445555566666777778888899999
+            0   0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468
+ 
+  *                                                          I     .214I   70.8
+  * ENTRIES =   137843                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I  661.67 I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I     .607I   75.512
+1 DISTRIBUZIONE x-y , PESATA SU ENERGIA --                                       
+ 
+ HBOOK     ID =       701                                        DATE  31/08/94              NO =    27
+ 
+ CHANNELS 100 U 0                                                                                                  1 O 
+           10 N 0        1         2         3         4         5         6         7         8         9         0 V 
+            1 D 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 E 
+            ************************************************************************************************************
+   OVE      * Y .                                                                                                    * * OVE
+     9.8    *                                                                                                          * 100
+     9.6    *                                                                                                          *  99
+     9.4    *                                                                                                          *  98
+     9.2    *                                                                                                          *  97
+     9      *                                                                                                          *  96
+     8.8    *                                                                                                          *  95
+     8.6    *                                                                                                          *  94
+     8.4    *                                                                                                          *  93
+     8.2    *                                                                                                          *  92
+     8      * .                                                                                                        *  91
+     7.8    *                                                                                                          *  90
+     7.6    *                                                                                                          *  89
+     7.4    *                                                                                                          *  88
+     7.2    *                                                                                                          *  87
+     7      *                                                                                                          *  86
+     6.8    *                                                                                                          *  85
+     6.6    *                                                                                                          *  84
+     6.4    *                                                                                                          *  83
+     6.2    *                                                                                                          *  82
+     6      *                                                                                                          *  81
+     5.8    *                                                                                                          *  80
+     5.6    *                                                                                                          *  79
+     5.4    *                                                           .                                              *  78
+     5.2    *                                                        .                                                 *  77
+     5      *                                                .            +                                            *  76
+     4.8    *                                           .     .         .      .                                       *  75
+     4.6    *                                             . .  .        . . . .. .                                     *  74
+     4.4    *                                        .      . ..     .  .   . .                                        *  73
+     4.2    *                                        .        .  .      .   . .                                        *  72
+     4      *                                     .   . .  . ..  ..   .      .                                         *  71
+     3.8    *                                  ...    ..    ....    ..     .  ..       .                               *  70
+     3.6    *                               .   . .  .. ..  .          .   . ...                                       *  69
+     3.4    *                                 . .. .   .                 ..+  .   .                                    *  68
+     3.2    *                                       . ..                  ...    .                                     *  67
+     3      *                                .     . .                      ..   ..                                    *  66
+     2.8    *                                .    .  ...                    .   . .                                    *  65
+     2.6    * .                                .. . +                          ..                                      *  64
+     2.4    *                                 .....              ...            .+  .                                  *  63
+     2.2    *                                   .           ......  . .            .                                   *  62
+     2      *                                                  . ... .              .                                  *  61
+     1.8    *                          .      ..             ......+.. ..           .. . .  .                          *  60
+     1.6    *                               . .            .  ..    . . ....            .                              *  59
+     1.4    *                           ..              .. ... .+ ++.   ...         .. .   .                           *  58
+     1.2    *                                 .         . . .    . .++ .  ...        .  .                              *  57
+     1      *                                . .       . ... ....+ .+ +.... .        . ...                             *  56
+      .8    *                                . .        .  . .. .+.+.. . .+...             .                           *  55
+      .6    *                            .     .        . .  .....+... ... ..       .  ... .                           *  54
+      .4    *                                 .       ..    .........+. +....         . .                              *  53
+      .2    *                          .     .       . . ......++77+.+.+  . .           .  .                           *  52
+            *                                .       .   .. +2..8**8. +  ....       . ...                              *  51
+ -    .2    *                             . . .        .. . +..+8**7...+.  ...       . .                               *  50
+ -    .4    *                              ..  .     .   . . ...+88++ +.  + .         .   ..                           *  49
+ -    .6    *                           .                .... +..... +..  .. +         .. .                            *  48
+ -    .8    *                             ....        ...  ..  +..+   ... ...       . ..     .                         *  47
+ -   1      *                            .  .  .      ..  +.. +.+..... .  .+..       . . .                             *  46
+ -   1.2    *                           ..     .      .  . . .+.   +...   . .       ......                             *  45
+ -   1.4    *                          .                 .   . . .. ...  .. .       . .                                *  44
+ -   1.6    *                              ... .        .  ....2.. . + .  .           .                              . *  43
+ -   1.8    *                                            .. .. ...  . .  .            .  .                             *  42
+ -   2      *                                 .             .. ....  .  .                .   .                         *  41
+ -   2.2    *                               .             ..+ . .  . .. ..           .                                 *  40
+ -   2.4    *                                               . .    ....           ..                                   *  39
+ -   2.6    *                                    ..                              ...                                   *  38
+ -   2.8    *                                   .  ..                         . ..   .                                 *  37
+ -   3      *                                   ..   . .                     . .   .                                   *  36
+ -   3.2    *                                        . .                           .                                   *  35
+ -   3.4    *                                     .   . ..                .   .. .. . ..                               *  34
+ -   3.6    *                                     . .   ...              ..  + ...                                     *  33
+ -   3.8    *                                     .    . . . .          ...   .. .     .                               *  32
+ -   4      *                              .        . .    ....      .       .                                         *  31
+ -   4.2    *                                          .. .. ..    ....  ..        ..                                  *  30
+ -   4.4    *                                             ..  ... .        ..                                          *  29
+ -   4.6    *                                       .     .     .  ...   .                                             *  28
+ -   4.8    *                                       ..   .         .   .   .. .                                        *  27
+ -   5      *                                          .   ...                                                         *  26
+ -   5.2    *                                                          .                                               *  25
+ -   5.4    *                                          .             .                                                 *  24
+ -   5.6    *                                              ..         . ..                                             *  23
+ -   5.8    *                                                         ..                                               *  22
+ -   6      *                                                                                                          *  21
+ -   6.2    *                                                                                                          *  20
+ -   6.4    *                                                                                                          *  19
+ -   6.6    *                                                                                                          *  18
+ -   6.8    *                                                                                                          *  17
+ -   7      *                                                                                                          *  16
+ -   7.2    *                                                                                                          *  15
+ -   7.4    *                                                                                                          *  14
+ -   7.6    *                                                                                                          *  13
+ -   7.8    *                                                                                                          *  12
+ -   8      *                                                                                                          *  11
+ -   8.2    *                                                                                                          *  10
+ -   8.4    *                                                                                                          *   9
+ -   8.6    *                                                                                                          *   8
+ -   8.8    *                                                                                                          *   7
+ -   9      *                                                                                                          *   6
+ -   9.2    *                                                                                                          *   5
+ -   9.4    *                                                                                                          *   4
+ -   9.6    *                                                                                                          *   3
+ -   9.8    *                                                                                                          *   2
+ -  10      *                                                                                                          *   1
+   UND      * *                                                                                                      * * UND
+            ************************************************************************************************************
+ LOW-EDGE       ---------------------------------------------------                                                 
+           10   1                                                                                                   
+            1.  0999998888877777666665555544444333332222211111         111112222233333444445555566666777778888899999
+            0   0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468
+ 
+  *                                                    34.55 I     .511I   36.903
+  * ENTRIES =   137843                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                        1.022I  662.491I     .502
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                36.549I         I   36.276
+1 DISTRIBUZIONE X-Y PUNTI DECADIMENTO POSITRONE                                  
+ 
+ HBOOK     ID =       400                                        DATE  31/08/94              NO =    28
+ 
+ CHANNELS 100 U 0                                                                                                  1 O 
+           10 N 0        1         2         3         4         5         6         7         8         9         0 V 
+            1 D 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 E 
+            ************************************************************************************************************
+   OVE      *                                                                                                          * OVE
+     9.8    *                                                                                                          * 100
+     9.6    *                                                                                                          *  99
+     9.4    *                                                                                                          *  98
+     9.2    *                                                                                                          *  97
+     9      *                                                                                                          *  96
+     8.8    *                                                                                                          *  95
+     8.6    *                                                                                                          *  94
+     8.4    *                                                                                                          *  93
+     8.2    *                                                                                                          *  92
+     8      *                                                                                                          *  91
+     7.8    *                                                                                                          *  90
+     7.6    *                                                                                                          *  89
+     7.4    *                                                                                                          *  88
+     7.2    *                                                                                                          *  87
+     7      *                                                                                                          *  86
+     6.8    *                                                                                                          *  85
+     6.6    *                                                                                                          *  84
+     6.4    *                                                                                                          *  83
+     6.2    *                                                                                                          *  82
+     6      *                                                                                                          *  81
+     5.8    *                                                                                                          *  80
+     5.6    *                                                                                                          *  79
+     5.4    *                                                                                                          *  78
+     5.2    *                                                                                                          *  77
+     5      *                                                                                                          *  76
+     4.8    *                                                                                                          *  75
+     4.6    *                                                                                                          *  74
+     4.4    *                                                                                                          *  73
+     4.2    *                                                                                                          *  72
+     4      *                                                                                                          *  71
+     3.8    *                                                                                                          *  70
+     3.6    *                                                                                                          *  69
+     3.4    *                                                                                                          *  68
+     3.2    *                                                                                                          *  67
+     3      *                                                                                                          *  66
+     2.8    *                                                                                                          *  65
+     2.6    *                                                                                                          *  64
+     2.4    *                                                                                                          *  63
+     2.2    *                                                                                                          *  62
+     2      *                                                                                                          *  61
+     1.8    *                                                                                                          *  60
+     1.6    *                                                                                                          *  59
+     1.4    *                                                                                                          *  58
+     1.2    *                                                                                                          *  57
+     1      *                                                                                                          *  56
+      .8    *                                                                                                          *  55
+      .6    *                                                                                                          *  54
+      .4    *                                                                                                          *  53
+      .2    *                                                   2GI+                                                   *  52
+            *                                                   K**K                                                   *  51
+ -    .2    *                                                   L**F                                                   *  50
+ -    .4    *                                                   2KH                                                    *  49
+ -    .6    *                                                                                                          *  48
+ -    .8    *                                                                                                          *  47
+ -   1      *                                                                                                          *  46
+ -   1.2    *                                                                                                          *  45
+ -   1.4    *                                                                                                          *  44
+ -   1.6    *                                                                                                          *  43
+ -   1.8    *                                                                                                          *  42
+ -   2      *                                                                                                          *  41
+ -   2.2    *                                                                                                          *  40
+ -   2.4    *                                                                                                          *  39
+ -   2.6    *                                                                                                          *  38
+ -   2.8    *                                                                                                          *  37
+ -   3      *                                                                                                          *  36
+ -   3.2    *                                                                                                          *  35
+ -   3.4    *                                                                                                          *  34
+ -   3.6    *                                                                                                          *  33
+ -   3.8    *                                                                                                          *  32
+ -   4      *                                                                                                          *  31
+ -   4.2    *                                                                                                          *  30
+ -   4.4    *                                                                                                          *  29
+ -   4.6    *                                                                                                          *  28
+ -   4.8    *                                                                                                          *  27
+ -   5      *                                                                                                          *  26
+ -   5.2    *                                                                                                          *  25
+ -   5.4    *                                                                                                          *  24
+ -   5.6    *                                                                                                          *  23
+ -   5.8    *                                                                                                          *  22
+ -   6      *                                                                                                          *  21
+ -   6.2    *                                                                                                          *  20
+ -   6.4    *                                                                                                          *  19
+ -   6.6    *                                                                                                          *  18
+ -   6.8    *                                                                                                          *  17
+ -   7      *                                                                                                          *  16
+ -   7.2    *                                                                                                          *  15
+ -   7.4    *                                                                                                          *  14
+ -   7.6    *                                                                                                          *  13
+ -   7.8    *                                                                                                          *  12
+ -   8      *                                                                                                          *  11
+ -   8.2    *                                                                                                          *  10
+ -   8.4    *                                                                                                          *   9
+ -   8.6    *                                                                                                          *   8
+ -   8.8    *                                                                                                          *   7
+ -   9      *                                                                                                          *   6
+ -   9.2    *                                                                                                          *   5
+ -   9.4    *                                                                                                          *   4
+ -   9.6    *                                                                                                          *   3
+ -   9.8    *                                                                                                          *   2
+ -  10      *                                                                                                          *   1
+   UND      *                                                                                                          * UND
+            ************************************************************************************************************
+ LOW-EDGE       ---------------------------------------------------                                                 
+           10   1                                                                                                   
+            1.  0999998888877777666665555544444333332222211111         111112222233333444445555566666777778888899999
+            0   0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468
+ 
+  *                                                          I         I
+  * ENTRIES =      400                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I  400    I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+1 DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPOSITRONE                                 
+ 
+ HBOOK     ID =       401                                        DATE  31/08/94              NO =    29
+ 
+ CHANNELS 100 U 0                                                                                                  1 O 
+           10 N 0        1         2         3         4         5         6         7         8         9         0 V 
+            1 D 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 E 
+            ************************************************************************************************************
+   OVE      *                                                                                                          * OVE
+     2.8    *                                                                                                          *  30
+     2.6    *                                                                                                          *  29
+     2.4    *                                                                                                          *  28
+     2.2    *                                                                                                          *  27
+     2      *                                                                                                          *  26
+     1.8    *                                                                                                          *  25
+     1.6    *                                                                                                          *  24
+     1.4    *                                                                                                          *  23
+     1.2    *                                                                                                          *  22
+     1      *                                                                                                          *  21
+      .8    *                                                                                                          *  20
+      .6    *                                                                                                          *  19
+      .4    *                                                                                                          *  18
+      .2    *                                                     IA                                                   *  17
+            *                                                     **                                                   *  16
+ -    .2    *                                                     **                                                   *  15
+ -    .4    *                                                     *C                                                   *  14
+ -    .6    *                                                                                                          *  13
+ -    .8    *                                                                                                          *  12
+ -   1      *                                                                                                          *  11
+ -   1.2    *                                                                                                          *  10
+ -   1.4    *                                                                                                          *   9
+ -   1.6    *                                                                                                          *   8
+ -   1.8    *                                                                                                          *   7
+ -   2      *                                                                                                          *   6
+ -   2.2    *                                                                                                          *   5
+ -   2.4    *                                                                                                          *   4
+ -   2.6    *                                                                                                          *   3
+ -   2.8    *                                                                                                          *   2
+ -   3      *                                                                                                          *   1
+   UND      *                                                                                                          * UND
+            ************************************************************************************************************
+ LOW-EDGE       ---------------------------------------------------                                                 
+           10   1                                                                                                   
+            1.  0999998888877777666665555544444333332222211111         111112222233333444445555566666777778888899999
+            0   0864208642086420864208642086420864208642086420864202468024680246802468024680246802468024680246802468
+ 
+  *                                                          I         I
+  * ENTRIES =      400                   PLOT       ---------I---------I---------
+  * SATURATION  AT=     INFINITY                             I  400    I
+  * SCALE  .,+,2,3,.,., A,B,           STATISTICS   ---------I---------I---------
+  * STEP = 1.00     * MINIMUM=0.000E+00                      I         I
+
+
+ ********************************************************
+ * NTUPLE ID=  800  ENTRIES=    400    x,y,z punti decadimento del positrone  
+ ********************************************************
+ *  Var numb  *   Name    *    Lower     *    Upper     *
+ ********************************************************
+ *      1     *  x-decay  * -.323644E+00 * 0.348436E+00 *
+ *      2     *  y-decay  * -.330288E+00 * 0.315043E+00 *
+ *      3     *  z-decay  * -.359211E+00 * 0.305658E+00 *
+ ********************************************************
+
+
+
+ ********************************************************
+ * NTUPLE ID=  801  ENTRIES=   2400    energia persa nei rivelatori a ogni evento 
+ ********************************************************
+ *  Var numb  *   Name    *    Lower     *    Upper     *
+ ********************************************************
+ *      1     *  shower   * 0.100000E+01 * 0.400000E+03 *
+ *      2     *  rivelat  * 0.100000E+01 * 0.600000E+01 *
+ *      3     *  xmedio   * -.995210E+00 * 0.989277E+00 *
+ *      4     *  ymedio   * -.209082E+01 * 0.208999E+01 *
+ *      5     *  zmedio   * -.208330E+01 * 0.205336E+01 *
+ *      6     *  sigmax   * -.953674E-06 * 0.860640E+00 *
+ *      7     *  sigmay   * -.452995E-05 * 0.115104E+01 *
+ *      8     *  sigmaz   * -.381470E-05 * 0.105580E+01 *
+ *      9     *  etot     * 0.000000E+00 * 0.101319E+01 *
+ *     10     *  etot-po  * 0.000000E+00 * 0.000000E+00 *
+ *     11     *  etot-el  * 0.000000E+00 * 0.983505E+00 *
+ *     12     *  etot-ga  * 0.000000E+00 * 0.788147E-01 *
+ *     13     *  num-par  * 0.000000E+00 * 0.120000E+02 *
+ *     14     *  num-pos  * 0.000000E+00 * 0.000000E+00 *
+ *     15     *  num-ele  * 0.000000E+00 * 0.100000E+02 *
+ *     16     *  num-gam  * 0.000000E+00 * 0.500000E+01 *
+ ********************************************************
+
+
+
+ ===> Directory : //PAWC
+        101 (1)    Zona 1 : H2O r=2cm : Distribuzione energia ceduta lungo l' asse z  
+        102 (1)    Zona 2 : Al r=0.5cm   : Distribuzione energia ceduta lungo l' asse z   
+        103 (1)    Zona 3 : aria       : Distribuzione energia ceduta lungo l' asse z 
+        104 (1)    Zona 4 : YAP 1     : Distribuzione profondita energia ceduta   
+        105 (1)    Zona 5 : YAP 2     : Distribuzione profondita energia ceduta   
+        106 (1)    Zona 6 : YAP 3     : Distribuzione profondita energia ceduta   
+        107 (1)    Zona 7 : YAP 4     : Distribuzione profondita energia ceduta   
+        108 (1)    Zona 8 : YAP 5     : Distribuzione profondita energia ceduta   
+        109 (1)    Zona 9 : YAP 6     : Distribuzione profondita energia ceduta   
+        110 (1)    Zona 10 : fughe     : Distribuzione lungo asse z   
+        111 (1)    Zona 11 : assorbimenti da parte dei collimatori
+        112 (1)    Zona 12 : part. uscenti dai rivelatori 
+        501 (1)    Distribuzione angolo decadimento positroni 
+        201 (2)    Zona 1 : H2O r=0.5cm : Distribuzione energia ceduta nel piano x-y  
+        202 (2)    Zona 2 : Al r=0.5cm : Distribuzione energia ceduta nel piano x-y   
+        203 (2)    Zona 3 : Aria Distribuzione energia ceduta nel piano x-y   
+        204 (2)    Zona 4 : YAP 1 Distribuzione energia ceduta nel piano del yap  
+        205 (2)    Zona 5 : YAP 2 Distribuzione energia ceduta nel piano del yap  
+        206 (2)    Zona 6 : YAP 3 Distribuzione energia ceduta nel piano del yap  
+        207 (2)    Zona 7 : YAP 4 Distribuzione energia ceduta nel piano del yap  
+        208 (2)    Zona 8 : YAP 5 Distribuzione energia ceduta nel piano del yap  
+        209 (2)    Zona 9 : YAP 6 Distribuzione energia ceduta nel piano del yap  
+        210 (2)    Zona 10 : fughe dal sistema : distribuzione in x-y 
+        211 (2)    Zona 11 : assorbimento dei collimatori distribuzione x-y   
+        212 (2)    Zona 12 : uscite dai rivelatori distribuzione x-y  
+        700 (2)    DISTRIBUZIONE R-Z , PESATA SU ENERGIA --   
+        701 (2)    DISTRIBUZIONE x-y , PESATA SU ENERGIA --   
+        400 (2)    DISTRIBUZIONE X-Y PUNTI DECADIMENTO POSITRONE  
+        401 (2)    DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPOSITRONE 
+        800 (N)    x,y,z punti decadimento del positrone  
+        801 (N)    energia persa nei rivelatori a ogni evento 
+
+
+ ===> Directory : //topw
+        101 (1)    Zona 1 : H2O r=2cm : Distribuzione energia ceduta lungo l' asse z  
+        201 (2)    Zona 1 : H2O r=0.5cm : Distribuzione energia ceduta nel piano x-y  
+        102 (1)    Zona 2 : Al r=0.5cm   : Distribuzione energia ceduta lungo l' asse z   
+        202 (2)    Zona 2 : Al r=0.5cm : Distribuzione energia ceduta nel piano x-y   
+        103 (1)    Zona 3 : aria       : Distribuzione energia ceduta lungo l' asse z 
+        203 (2)    Zona 3 : Aria Distribuzione energia ceduta nel piano x-y   
+        104 (1)    Zona 4 : YAP 1     : Distribuzione profondita energia ceduta   
+        204 (2)    Zona 4 : YAP 1 Distribuzione energia ceduta nel piano del yap  
+        105 (1)    Zona 5 : YAP 2     : Distribuzione profondita energia ceduta   
+        205 (2)    Zona 5 : YAP 2 Distribuzione energia ceduta nel piano del yap  
+        106 (1)    Zona 6 : YAP 3     : Distribuzione profondita energia ceduta   
+        206 (2)    Zona 6 : YAP 3 Distribuzione energia ceduta nel piano del yap  
+        107 (1)    Zona 7 : YAP 4     : Distribuzione profondita energia ceduta   
+        207 (2)    Zona 7 : YAP 4 Distribuzione energia ceduta nel piano del yap  
+        108 (1)    Zona 8 : YAP 5     : Distribuzione profondita energia ceduta   
+        208 (2)    Zona 8 : YAP 5 Distribuzione energia ceduta nel piano del yap  
+        109 (1)    Zona 9 : YAP 6     : Distribuzione profondita energia ceduta   
+        209 (2)    Zona 9 : YAP 6 Distribuzione energia ceduta nel piano del yap  
+        110 (1)    Zona 10 : fughe     : Distribuzione lungo asse z   
+        210 (2)    Zona 10 : fughe dal sistema : distribuzione in x-y 
+        111 (1)    Zona 11 : assorbimenti da parte dei collimatori
+        211 (2)    Zona 11 : assorbimento dei collimatori distribuzione x-y   
+        112 (1)    Zona 12 : part. uscenti dai rivelatori 
+        212 (2)    Zona 12 : uscite dai rivelatori distribuzione x-y  
+        501 (1)    Distribuzione angolo decadimento positroni 
+        700 (2)    DISTRIBUZIONE R-Z , PESATA SU ENERGIA --   
+        701 (2)    DISTRIBUZIONE x-y , PESATA SU ENERGIA --   
+        400 (2)    DISTRIBUZIONE X-Y PUNTI DECADIMENTO POSITRONE  
+        401 (2)    DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPOSITRONE 
+
+
+ ===> Directory : //topw1
+        800 (N)    x,y,z punti decadimento del positrone  
+
+
+ ===> Directory : //topwy
+        801 (N)    energia persa nei rivelatori a ogni evento 
+
+
+ ENERGIA TOTALE POSITRONI    :=    604.4023    MEV
+ ENERGIA CINETICA TOTALE     :=    400.0000    MEV
+ ENERGIA TOTALE DEPOSITATA   :=    808.8027    MEV
+ NUMERO POSITRONI            :=         400
+ ENERGIA INIZIALE/DEPOSITATA :=    1.338186    
+
+
+
+ % FRACTION IN REGION   1=    51.62600     MEV:    417.5525    
+ % FRACTION IN REGION   2=    1.635389     MEV:    13.22707    
+ % FRACTION IN REGION   3=   0.0000000E+00 MEV:   0.0000000E+00
+ % FRACTION IN REGION   4=    1.448668     MEV:    11.71687    
+ % FRACTION IN REGION   5=    1.248491     MEV:    10.09783    
+ % FRACTION IN REGION   6=    2.168939     MEV:    17.54244    
+ % FRACTION IN REGION   7=    1.025467     MEV:    8.294001    
+ % FRACTION IN REGION   8=    1.376759     MEV:    11.13526    
+ % FRACTION IN REGION   9=    1.828434     MEV:    14.78842    
+ % FRACTION IN REGION  10=    37.30964     MEV:    301.7614    
+ % FRACTION IN REGION  11=   0.0000000E+00 MEV:   0.0000000E+00
+ % FRACTION IN REGION  12=   0.3322132     MEV:    2.686949    
+
+
+ FRACTION OF ENERGY DEPOSITED  IN EACH REGION
+ region      total           e+          e-          gamma
+    1       0.52E+00     0.40E+00     0.12E+00     0.22E-04
+    2       0.16E-01     0.00E+00     0.16E-01     0.77E-05
+    3       0.00E+00     0.00E+00     0.00E+00     0.00E+00
+    4       0.14E-01     0.00E+00     0.13E-01     0.11E-02
+    5       0.12E-01     0.00E+00     0.12E-01     0.86E-03
+    6       0.22E-01     0.00E+00     0.20E-01     0.14E-02
+    7       0.10E-01     0.00E+00     0.96E-02     0.67E-03
+    8       0.14E-01     0.00E+00     0.13E-01     0.74E-03
+    9       0.18E-01     0.00E+00     0.17E-01     0.12E-02
+   10       0.37E+00     0.00E+00     0.22E-02     0.37E+00
+   11       0.00E+00     0.00E+00     0.00E+00     0.00E+00
+   12       0.33E-02     0.00E+00     0.00E+00     0.33E-02
+
+
+ Particelle assorbite in ogni regione
+ region        total           e+           e-          gamma
+    1           2675          388         2254           33
+    2            153            0          149            4
+    3              0            0            0            0
+    4            151            0          111           40
+    5            130            0           98           32
+    6            199            0          155           44
+    7            109            0           88           21
+    8            132            0          110           22
+    9            179            0          145           34
+   10            664            0           13          651
+   11              0            0            0            0
+   12             14            0            0           14
+
+
+ Posizione media energia assorbita:
+  zona       x medio           y medio           z medio
+    1       -0.40736E-02     -0.31444E-02     -0.36204E-02
+    2        0.28076          0.16671          0.80730E-01
+    3        0.00000E+00      0.00000E+00      0.00000E+00
+   10         54.936          -324.88          -111.91    
+   11        0.00000E+00      0.00000E+00      0.00000E+00
+
+
+ Posizione media assorbimenti nei rivelatori
+ zona  riv.    x medio           +-            y medio           +-            z medio           +-   
+    4   1    -0.27489         0.48161        -0.24298          1.1418         0.56094E-01      1.2023    
+    5   2    -0.25943         0.60958        -0.56319E-01     0.99200        -0.87325E-01      1.1113    
+    6   3    -0.36437         0.47881        -0.35843E-02      1.3305         0.32518E-02      1.1348    
+    7   4    -0.30772         0.55651        -0.76755E-01      1.1114         0.12972          1.2142    
+    8   5    -0.29308         0.55551         0.29030          1.0569         0.33783          1.0537    
+    9   6    -0.23685         0.55988         0.15549          1.2813         0.18729         0.96777    

diff --git a/code/input-output/dum.lis b/code/input-output/dum.lis
new file mode 100644 (file)
index 0000000..924745c
--- /dev/null
+++ b/code/input-output/dum.lis
@@ -0,0 +1,27 @@
+
+Directory DISK$PEOPLE:[BOLLINI]
+
+000README.TXT;4     AUSGABE_CYL_2.FOR;10                    AUSGABE_CYL_2.OBJ;6
+COMM_CYLTOT_2.FOR;12                    COMM_CYL_2.FOR;4    COMM_YAPS.FOR;8    
+COPY04.COM;1        CYL.OUT;357         CYL_2.DAT;28        CYL_2_Y.DAT;4      
+CYL_Y.OUT;8         DEFINIZIONI.COM;8   DUM.LIS;1           EGS4CYL.MAN;2      
+EGS4FUNL.FOR;1      EGS4FUNL.OBJ;1      EGS4_CYL_2.EXE;163  EGS4_CYL_2.FOR;21  
+EGS4_CYL_2.OBJ;7    FOR000.DAT;7        FOR006.DAT;1        FOR010.DAT;1       
+FOR020.DAT;1        FOR_CYL_2.COM;7     GUARDA_2.BAK;1      GUARDA_2.FOR;178   
+GUARDA_2.OBJ;142    HATCH.OUT;222       HBOOK.OUT;220       HBOOK_Y.OUT;5      
+HIGZ_WINDOWS.DAT;1  HISTIN_CYL_2.FOR;5  HISTIN_CYL_2.OBJ;6  HIST_CYL_2.DAT;4   
+HIST_CYL_2_Y.DAT;4  HOWFAR_CYL_2.FOR;2  HOWFAR_CYL_2A.FOR;35
+HOWFAR_CYL_2A.OBJ;12                    HOWYAPS.FOR;87      HOWYAPS.OBJ;6      
+INIT_CYL_2.FOR;14   INIT_CYL_2.OBJ;6    ISTRUZIONI_CYL_2.TXT;4
+LAST.KUMAC;5        LINK_CYL_2.COM;3    LINK_CYL_2_ALPHA.COM;2
+MAT3MEV.DAT;1       NETSERVER.LOG;4     NTUPLE.OUT;218      NTUPLEY.OUT;218    
+NTUPLEY_Y.OUT;5     NTUPLE_Y.OUT;5      PETGRACOM.FOR;1     PETGRAF.FOR;203    
+PETGRAF.INC;9       PETGRAF.NEW;1       PETGRAF.OBJ;55      PETGRAF.OLD;1      
+PETGRAF.ONC;1       PETGRAF_COM.INC;31  PETGRAF_COM.ONC;1   PETGRAF_DATA.INC;10
+PETGRAF_DATA.ONC;1  PETGRAF_HIGZ.INC;18 PETGRAF_HIGZ.ONC;1  PETSUB.FOR;122     
+PG_COMM.FOR;2       RUN_CYL_2.COM;10    RUN_CYL_2_Y.COM;8   SETDISPLAY.COM;1   
+SOURCE_CYL_2.FOR;3  SOURCE_CYL_2.OBJ;6  STATEND_CYL_2.FOR;19
+STATEND_CYL_2.OBJ;6 UCX$FTPSERVER.LOG;3 YAPS.DAT;13         YAPS.FOR;39        
+YAPS.OBJ;6          YAPS_Y.DAT;3        
+
+Total of 79 files.

diff --git a/code/input-output/for000.dat b/code/input-output/for000.dat
new file mode 100644 (file)
index 0000000..8e29e6b
--- /dev/null
+++ b/code/input-output/for000.dat
@@ -0,0 +1 @@
+ ***** ERROR in IACWK : Workstation is not open 

diff --git a/code/input-output/for006.dat b/code/input-output/for006.dat
new file mode 100644 (file)
index 0000000..e61aeba
--- /dev/null
+++ b/code/input-output/for006.dat
@@ -0,0 +1,366 @@
+%NONAME-W-NOMSG, Message number 00000000
+%TRACE-W-TRACEBACK, symbolic stack dump follows
+module name     routine name                     line       rel PC    abs PC\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

diff --git a/code/input-output/for010.dat b/code/input-output/for010.dat
new file mode 100644 (file)
index 0000000..3500c17
--- /dev/null
+++ b/code/input-output/for010.dat
@@ -0,0 +1,5 @@
+   PACKAGE COMPILED FROM PAM FILE=  
+   EGS4CR   2.00      850503 15.00  
+
+
+  OPEN ERROR! rivelatore ignorato, file:           0

diff --git a/code/input-output/for020.dat b/code/input-output/for020.dat
new file mode 100644 (file)
index 0000000..f02bffe
Binary files /dev/null and b/code/input-output/for020.dat differ

diff --git a/code/input-output/hatch.out b/code/input-output/hatch.out
new file mode 100644 (file)
index 0000000..b202975
--- /dev/null
+++ b/code/input-output/hatch.out
@@ -0,0 +1,3739 @@
+ DATA FOR MEDIUM #  3, WHICH IS: MEDIUM=AIR-3MEV-10KEV-02KEV    ,STERNCID=AIR-3MEV-10KEV-02KEV          
+ MIXT,RHO= 1.2050E-03,NE= 3,COMPOSITION IS :
+ ASYM=N ,Z= 7.,A=   14.007,PZ= 5.56876E-02,RHOZ= 7.80000E-01            
+ ASYM=O ,Z= 8.,A=   15.999,PZ= 1.31255E-02,RHOZ= 2.10000E-01            
+ ASYM=AR,Z=18.,A=   39.948,PZ= 2.35306E-04,RHOZ= 9.40000E-03            
+ ECHO READ:$LGN(RLC,AE,AP,UE,UP(IM))
+    3.05538E+04   5.21000E-01   2.00000E-03   3.51100E+00   3.00200E+00
+ ECHO READ:$LGN(MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE(IM)),IRAYL
+     0  200    0  150    0    0    0    0
+ ECHO READ:($LGN(DL(I,IM)/1,2,3,4,5,6/),I=1,6)
+    9.99982E-01  -2.10278E-01   4.82540E-02   9.95882E-01  -2.25707E-01
+    9.52000E-01   1.00022E+00  -1.78093E-01   3.43331E-02   1.01412E+00
+   -2.29840E-01   9.52000E-01   1.00034E+00  -1.61554E-01   2.47958E-02
+    1.02349E+00  -2.31963E-01   9.52000E-01   9.99982E-01  -2.10445E-01
+    4.82923E-02   9.95879E-01  -2.25886E-01   9.52000E-01   1.00022E+00
+   -1.78237E-01   3.43609E-02   1.01413E+00  -2.30025E-01   9.52000E-01
+    1.00034E+00  -1.61686E-01   2.48160E-02   1.02351E+00  -2.32152E-01
+    9.52000E-01
+ ECHO READ:DELCM(IM),($LGN(ALPHI,BPAR, DELPOS(I,IM)),I=1,2)
+    3.57494E+01   9.41119E-01   8.53762E-01   2.27992E+00   9.41133E-01
+    8.53759E-01   2.27182E+00
+ ECHO READ:$LGN(XR0,TEFF0,BLCC,XCC(IM))
+    8.97125E-02   7.46632E-05   2.67921E+05   4.89433E+00
+ ECHO READ:$LGN(EKE(IM)/0,1/)
+    1.21501E+02   2.59409E+01
+ ECHO READ:($LGN(ESIG,PSIG,EDEDX,PDEDX,EBR1,PBR1,PBR2, TMXS(I,IM)/0,1/),I=1,NEKE)
+    9.55616E+00   1.49603E+00   3.02292E+04   6.55946E+03  -1.81716E+03
+   -5.52574E+02  -2.40183E+03  -6.95855E+02   1.00000E+00   0.00000E+00
+   -1.78806E+01  -3.91646E+00   9.62855E+01   2.08703E+01   2.59730E-05
+    5.04073E-06   9.55616E+00   1.49603E+00   3.02292E+04   6.55946E+03
+   -1.81716E+03  -5.52574E+02  -2.40183E+03  -6.95855E+02   1.00000E+00
+    0.00000E+00  -1.78806E+01  -3.91646E+00   9.62855E+01   2.08703E+01
+    2.59730E-05   5.04073E-06   9.51049E+00   1.48603E+00   2.68987E+04
+    5.83038E+03  -1.74551E+03  -5.36889E+02  -2.29413E+03  -6.72279E+02
+    1.00000E+00   0.00000E+00  -5.34961E-01  -1.19357E-01   3.86660E+00
+    6.39018E-01   2.75971E-05   5.39626E-06   9.46618E+00   1.47625E+00
+    2.38507E+04   5.15747E+03  -1.67568E+03  -5.21473E+02  -2.19004E+03
+   -6.49297E+02   1.00000E+00   0.00000E+00  -1.77248E-01  -4.03846E-02
+    1.96137E+00   2.18400E-01   2.93327E-05   5.77943E-06   9.42118E+00
+    1.46623E+00   2.11031E+04   4.54566E+03  -1.60865E+03  -5.06547E+02
+   -2.09084E+03  -6.27210E+02   1.00000E+00   0.00000E+00  -8.56424E-02
+   -1.99871E-02   1.47399E+00   1.09875E-01   3.11838E-05   6.19163E-06
+    9.37622E+00   1.45613E+00   1.86158E+04   3.98704E+03  -1.54281E+03
+   -4.91760E+02  -1.99449E+03  -6.05569E+02   1.00000E+00   0.00000E+00
+   -4.87249E-02  -1.16956E-02   1.27805E+00   6.58653E-02   3.31413E-05
+    6.63126E-06   9.32915E+00   1.44547E+00   1.63771E+04   3.47984E+03
+   -1.48025E+03  -4.77587E+02  -1.90345E+03  -5.84944E+02   1.00000E+00
+    0.00000E+00  -3.02257E-02  -7.50452E-03   1.18022E+00   4.37045E-02
+    3.52238E-05   7.10306E-06   9.28597E+00   1.43560E+00   1.43568E+04
+    3.01811E+03  -1.41950E+03  -4.63703E+02  -1.81580E+03  -5.64913E+02
+    1.00000E+00   0.00000E+00  -1.96146E-02  -5.07933E-03   1.12450E+00
+    3.09705E-02   3.74341E-05   7.60822E-06   9.23942E+00   1.42487E+00
+    1.25405E+04   2.59928E+03  -1.36049E+03  -4.50095E+02  -1.73145E+03
+   -5.45463E+02   1.00000E+00   0.00000E+00  -1.29572E-02  -3.54425E-03
+    1.08983E+00   2.29733E-02   3.97767E-05   8.14839E-06   9.19320E+00
+    1.41411E+00   1.09079E+04   2.21945E+03  -1.30395E+03  -4.36941E+02
+   -1.65118E+03  -5.26787E+02   1.00000E+00   0.00000E+00  -8.48491E-03
+   -2.50376E-03   1.06686E+00   1.76283E-02   4.22698E-05   8.72843E-06
+    9.14997E+00   1.40396E+00   9.44240E+03   1.87543E+03  -1.24932E+03
+   -4.24116E+02  -1.57421E+03  -5.08718E+02   1.00000E+00   0.00000E+00
+   -5.31582E-03  -1.75980E-03   1.05084E+00   1.38693E-02   4.49121E-05
+    9.34871E-06   9.10357E+00   1.39297E+00   8.12692E+03   1.56379E+03
+   -1.19657E+03  -4.11619E+02  -1.50046E+03  -4.91244E+02   1.00000E+00
+    0.00000E+00  -2.97212E-03  -1.20457E-03   1.03925E+00   1.11265E-02
+    4.77143E-05   1.00126E-05   9.05911E+00   1.38234E+00   6.95105E+03
+    1.28265E+03  -1.14563E+03  -3.99440E+02  -1.42978E+03  -4.74349E+02
+    1.00000E+00   0.00000E+00  -1.17591E-03  -7.75127E-04   1.03061E+00
+    9.05768E-03   5.06908E-05   1.07242E-05   9.01336E+00   1.37130E+00
+    5.89996E+03   1.02902E+03  -1.09670E+03  -3.87636E+02  -1.36238E+03
+   -4.58082E+02   1.00000E+00   0.00000E+00   2.45192E-04  -4.32202E-04
+    1.02401E+00   7.46499E-03   5.38478E-05   1.14860E-05   8.96879E+00
+    1.36045E+00   4.96162E+03   8.00461E+02  -1.04924E+03  -3.76074E+02
+   -1.29750E+03  -4.42279E+02   1.00000E+00   0.00000E+00   1.40318E-03
+   -1.50145E-04   1.01881E+00   6.20029E-03   5.71926E-05   1.23007E-05
+    8.92353E+00   1.34931E+00   4.12684E+03   5.95209E+02  -1.00362E+03
+   -3.64858E+02  -1.23556E+03  -4.27051E+02   1.00000E+00   0.00000E+00
+    2.36820E-03   8.71361E-05   1.01471E+00   5.19055E-03   6.07453E-05
+    1.31743E-05   8.88025E+00   1.33857E+00   3.38474E+03   4.10988E+02
+   -9.59664E+02  -3.53945E+02  -1.17629E+03  -4.12337E+02   1.00000E+00
+    0.00000E+00   3.19350E-03   2.92004E-04   1.01136E+00   4.35876E-03
+    6.45035E-05   1.41072E-05   8.83440E+00   1.32708E+00   2.72644E+03
+    2.45995E+02  -9.17482E+02  -3.43372E+02  -1.11978E+03  -3.98174E+02
+    1.00000E+00   0.00000E+00   3.91169E-03   4.72007E-04   1.00861E+00
+    3.67067E-03   6.84928E-05   1.51070E-05   8.79408E+00   1.31688E+00
+    2.14543E+03   9.89566E+01  -8.76547E+02  -3.33013E+02  -1.06536E+03
+   -3.84402E+02   1.00000E+00   0.00000E+00   4.55094E-03   6.33790E-04
+    1.00635E+00   3.09703E-03   7.27224E-05   1.61775E-05   1.36887E+04
+    3.49753E+03   1.63271E+03  -3.20809E+01  -9.76552E+02  -3.58571E+02
+   -1.01338E+03  -3.71117E+02  -9.77949E+01  -2.52493E+01   5.12502E-03
+    7.80503E-04   1.00442E+00   2.60380E-03   7.72005E-05   1.73219E-05
+    1.14323E+04   2.91512E+03   1.18241E+03  -1.48308E+02  -9.20889E+02
+   -3.44204E+02  -9.63866E+02  -3.58337E+02  -1.15373E+00  -3.04676E-01
+    5.65369E-03   9.16961E-04   1.00278E+00   2.18168E-03   8.19560E-05
+    1.85494E-05   9.61664E+03   2.44175E+03   7.88258E+02  -2.51071E+02
+   -8.69789E+02  -3.30882E+02  -9.16205E+02  -3.45910E+02  -3.75785E-01
+   -1.01859E-01   6.14331E-03   1.04461E-03   1.00139E+00   1.81987E-03
+    8.69757E-05   1.98581E-05   8.14594E+03   2.05444E+03   4.44098E+02
+   -3.41706E+02  -8.22987E+02  -3.18556E+02  -8.70923E+02  -3.33985E+02
+   -1.79734E-01  -5.02282E-02   6.60543E-03   1.16631E-03   1.00018E+00
+    1.50136E-03   9.23136E-05   2.12638E-05   6.93892E+03   1.73330E+03
+    1.45449E+02  -4.21166E+02  -7.79332E+02  -3.06941E+02  -8.27407E+02
+   -3.22408E+02  -1.01422E-01  -2.93927E-02   7.04312E-03   1.28276E-03
+    9.99128E-01   1.22150E-03   9.79447E-05   2.27621E-05   5.94319E+03
+    1.46563E+03  -1.12073E+02  -4.90391E+02  -7.38660E+02  -2.96009E+02
+   -7.85934E+02  -3.11259E+02  -6.24629E-02  -1.89200E-02   7.46354E-03
+    1.39578E-03   9.98194E-01   9.71012E-04   1.03917E-04   2.43675E-05
+    5.11210E+03   1.23989E+03  -3.32862E+02  -5.50364E+02  -7.00318E+02
+   -2.85594E+02  -7.46117E+02  -3.00443E+02  -4.02887E-02  -1.28968E-02
+    7.86940E-03   1.50602E-03   9.97390E-01   7.51452E-04   1.10234E-04
+    2.60834E-05   4.41545E+03   1.04865E+03  -5.21570E+02  -6.02164E+02
+   -6.64413E+02  -2.75738E+02  -7.08315E+02  -2.90067E+02  -2.64950E-02
+   -9.11041E-03   8.26612E-03   1.61492E-03   9.96660E-01   5.51996E-04
+    1.16931E-04   2.79217E-05   3.82574E+03   8.85043E+02  -6.79656E+02
+   -6.46024E+02  -6.30140E+02  -2.66229E+02  -6.71866E+02  -2.79954E+02
+   -1.73172E-02  -6.56413E-03   8.65170E-03   1.72190E-03   9.96011E-01
+    3.72634E-04   1.23997E-04   2.98822E-05   3.32508E+03   7.44637E+02
+   -8.12869E+02  -6.83383E+02  -5.97913E+02  -2.57191E+02  -6.37306E+02
+   -2.70262E+02  -1.09022E-02  -4.76514E-03   9.03414E-03   1.82915E-03
+    9.95429E-01   2.08737E-04   1.31486E-04   3.19824E-05   2.89505E+03
+    6.22722E+02  -9.21497E+02  -7.14179E+02  -5.67090E+02  -2.48452E+02
+   -6.04076E+02  -2.60841E+02  -6.21451E-03  -3.43615E-03   9.40963E-03
+    1.93560E-03   9.94916E-01   6.18479E-05   1.39396E-04   3.42248E-05
+    2.52595E+03   5.16926E+02  -1.01005E+03  -7.39559E+02  -5.37874E+02
+   -2.40078E+02  -5.72457E+02  -2.51779E+02  -2.68545E-03  -2.42459E-03
+    9.78344E-03   2.04276E-03   9.94434E-01  -7.57637E-05   1.47765E-04
+    3.66236E-05   2.20540E+03   4.24017E+02  -1.08025E+03  -7.59905E+02
+   -5.10057E+02  -2.32016E+02  -5.42274E+02  -2.43030E+02   6.44088E-05
+   -1.62757E-03   1.01550E-02   2.15046E-03   9.94007E-01  -1.99459E-04
+    1.56607E-04   3.91866E-05   1.92768E+03   3.42612E+02  -1.13312E+03
+   -7.75402E+02  -4.83360E+02  -2.24191E+02  -5.13281E+02  -2.34532E+02
+    2.25358E-03  -9.85894E-04   1.05255E-02   2.25905E-03   9.93611E-01
+   -3.15424E-04   1.65943E-04   4.19228E-05   1.68500E+03   2.70666E+02
+   -1.17257E+03  -7.87103E+02  -4.58024E+02  -2.16679E+02  -4.85731E+02
+   -2.26364E+02   4.03785E-03  -4.56925E-04   1.08955E-02   2.36873E-03
+    9.93252E-01  -4.22112E-04   1.75819E-04   4.48508E-05   1.47265E+03
+    2.06982E+02  -1.19873E+03  -7.94943E+02  -4.33761E+02  -2.09403E+02
+   -4.59379E+02  -2.18461E+02   5.52775E-03  -1.01107E-05   1.12674E-02
+    2.48026E-03   9.92912E-01  -5.22615E-04   1.86233E-04   4.79740E-05
+    1.28630E+03   1.50450E+02  -1.21401E+03  -7.99581E+02  -4.10585E+02
+   -2.02372E+02  -4.34209E+02  -2.10825E+02   6.78089E-03   3.70087E-04
+    1.16348E-02   2.59173E-03   9.92621E-01  -6.12298E-04   1.97235E-04
+    5.13118E-05   1.12229E+03   1.00098E+02  -1.21937E+03  -8.01229E+02
+   -3.88455E+02  -1.95578E+02  -4.10212E+02  -2.03458E+02   7.87222E-03
+    7.05102E-04   1.20088E-02   2.70653E-03   9.92337E-01  -7.00427E-04
+    2.08855E-04   5.48791E-05   9.77824E+02   5.52178E+01  -1.21623E+03
+   -8.00250E+02  -3.67257E+02  -1.88993E+02  -3.87261E+02  -1.96328E+02
+    8.82468E-03   1.00101E-03   1.23818E-02   2.82242E-03   9.92083E-01
+   -7.77737E-04   2.21094E-04   5.86812E-05   8.50318E+02   1.51253E+01
+   -1.20593E+03  -7.97014E+02  -3.47027E+02  -1.82632E+02  -3.65392E+02
+   -1.89452E+02   9.67045E-03   1.26694E-03   1.27562E-02   2.94014E-03
+    9.91836E-01  -8.56593E-04   2.34017E-04   6.27446E-05   7.38245E+02
+   -2.05481E+01  -1.18889E+03  -7.91590E+02  -3.27648E+02  -1.76463E+02
+   -3.44489E+02  -1.82799E+02   1.04317E-02   1.50923E-03   1.31330E-02
+    3.06008E-03   9.91613E-01  -9.26172E-04   2.47632E-04   6.70782E-05
+    6.39168E+02  -5.24739E+01  -1.16673E+03  -7.84449E+02  -3.09147E+02
+   -1.70501E+02  -3.24576E+02  -1.76382E+02   1.11264E-02   1.73311E-03
+    1.35124E-02   3.18234E-03   9.91409E-01  -9.91112E-04   2.61994E-04
+    7.17064E-05   5.51725E+02  -8.10051E+01  -1.14017E+03  -7.75782E+02
+   -2.91457E+02  -1.64729E+02  -3.05578E+02  -1.70183E+02   1.17568E-02
+    1.93881E-03   1.38878E-02   3.30483E-03   9.91224E-01  -1.05296E-03
+    2.77123E-04   7.66428E-05   4.75017E+02  -1.06352E+02  -1.10935E+03
+   -7.65595E+02  -2.74550E+02  -1.59142E+02  -2.87462E+02  -1.64196E+02
+    1.23516E-02   2.13533E-03   1.42714E-02   3.43157E-03   9.91051E-01
+   -1.11172E-03   2.93056E-04   8.19079E-05   4.07410E+02  -1.28982E+02
+   -1.07550E+03  -7.54265E+02  -2.58361E+02  -1.53724E+02  -2.70155E+02
+   -1.58403E+02   1.29035E-02   2.32011E-03   1.46524E-02   3.55913E-03
+    9.90884E-01  -1.16583E-03   3.09831E-04   8.75229E-05   3.48175E+02
+   -1.49068E+02  -1.03910E+03  -7.41921E+02  -2.42904E+02  -1.48482E+02
+   -2.53673E+02  -1.52814E+02   1.34257E-02   2.49716E-03   1.50363E-02
+    3.68930E-03   9.90741E-01  -1.21531E-03   3.27481E-04   9.35078E-05
+    2.96547E+02  -1.66808E+02  -1.00045E+03  -7.28644E+02  -2.28131E+02
+   -1.43407E+02  -2.37949E+02  -1.47412E+02   1.39191E-02   2.66666E-03
+    1.54197E-02   3.82104E-03   9.90593E-01  -1.26479E-03   3.46062E-04
+    9.98918E-05   2.51500E+02  -1.82493E+02  -9.60319E+02  -7.14671E+02
+   -2.14031E+02  -1.38497E+02  -2.22978E+02  -1.42200E+02   1.43918E-02
+    2.83129E-03   1.58052E-02   3.95527E-03   9.90469E-01  -1.30964E-03
+    3.65601E-04   1.06695E-04   2.12581E+02  -1.96227E+02  -9.19001E+02
+   -7.00087E+02  -2.00552E+02  -1.33740E+02  -2.08701E+02  -1.37161E+02
+    1.48439E-02   2.99083E-03   1.61910E-02   4.09140E-03   9.90358E-01
+   -1.34674E-03   3.86125E-04   1.13939E-04   1.79040E+02  -2.08228E+02
+   -8.76759E+02  -6.84973E+02  -1.87685E+02  -1.29136E+02  -1.95104E+02
+   -1.32295E+02   1.52782E-02   3.14622E-03   1.65754E-02   4.22896E-03
+    9.90247E-01  -1.38849E-03   4.07712E-04   1.21663E-04   1.50417E+02
+   -2.18615E+02  -8.33934E+02  -6.69438E+02  -1.75391E+02  -1.24675E+02
+   -1.82138E+02  -1.27592E+02   1.57010E-02   3.29961E-03   1.69620E-02
+    4.36920E-03   9.90154E-01  -1.42096E-03   4.30376E-04   1.29885E-04
+    1.26243E+02  -2.27508E+02  -7.90893E+02  -6.53600E+02  -1.63662E+02
+   -1.20360E+02  -1.69797E+02  -1.23050E+02   1.61063E-02   3.44874E-03
+    1.73451E-02   4.51019E-03   9.90061E-01  -1.45497E-03   4.54173E-04
+    1.38641E-04   1.06006E+02  -2.35062E+02  -7.47840E+02  -6.37531E+02
+   -1.52461E+02  -1.16179E+02  -1.58033E+02  -1.18660E+02   1.65023E-02
+    3.59654E-03   1.77288E-02   4.65338E-03   9.89987E-01  -1.48280E-03
+    4.79140E-04   1.47960E-04   8.93618E+01  -2.41366E+02  -7.04983E+02
+   -6.21302E+02  -1.41791E+02  -1.12139E+02  -1.46851E+02  -1.14425E+02
+    1.68862E-02   3.74192E-03   1.81099E-02   4.79772E-03   9.89913E-01
+   -1.50909E-03   5.05347E-04   1.57885E-04   7.57960E+01  -2.46579E+02
+   -6.62576E+02  -6.05002E+02  -1.31610E+02  -1.08226E+02  -1.36201E+02
+   -1.10332E+02   1.72626E-02   3.88657E-03   1.84902E-02   4.94387E-03
+    9.89863E-01  -1.53074E-03   5.32809E-04   1.68438E-04   6.52354E+01
+   -2.50698E+02  -6.20631E+02  -5.88642E+02  -1.21889E+02  -1.04434E+02
+   -1.26053E+02  -1.06373E+02   1.76286E-02   4.02935E-03   1.88677E-02
+    5.09112E-03   9.89807E-01  -1.55238E-03   5.61601E-04   1.79670E-04
+    5.72397E+01  -2.53864E+02  -5.79332E+02  -5.72284E+02  -1.12635E+02
+   -1.00769E+02  -1.16409E+02  -1.02554E+02   1.79859E-02   4.17087E-03
+    1.92417E-02   5.23923E-03   9.89764E-01  -1.56939E-03   5.91753E-04
+    1.91611E-04   5.15081E+01  -2.56169E+02  -5.38888E+02  -5.56021E+02
+   -1.03811E+02  -9.72205E+01  -1.07229E+02  -9.88620E+01   1.83358E-02
+    4.31161E-03   1.96129E-02   5.38851E-03   9.89733E-01  -1.58176E-03
+    6.23315E-04   2.04305E-04   4.78570E+01  -2.57661E+02  -4.99280E+02
+   -5.39839E+02  -9.54021E+01  -9.37852E+01  -9.84959E+01  -9.52948E+01
+    1.86767E-02   4.45083E-03   1.99788E-02   5.53800E-03   9.89696E-01
+   -1.59413E-03   6.56358E-04   2.17803E-04   4.59792E+01  -2.58441E+02
+   -4.60701E+02  -5.23827E+02  -8.73993E+01  -9.04638E+01  -9.02001E+01
+   -9.18515E+01   1.90132E-02   4.59051E-03   2.03430E-02   5.68916E-03
+    9.89684E-01  -1.60031E-03   6.90916E-04   2.32146E-04   4.57705E+01
+   -2.58529E+02  -4.23056E+02  -5.07948E+02  -7.97690E+01  -8.72453E+01
+   -8.23015E+01  -8.85200E+01   1.93371E-02   4.72714E-03   2.06974E-02
+    5.83866E-03   9.89678E-01  -1.60496E-03   7.27036E-04   2.47381E-04
+    4.69545E+01  -2.58022E+02  -3.86548E+02  -4.92296E+02  -7.25130E+01
+   -8.41339E+01  -7.48017E+01  -8.53044E+01   1.96592E-02   4.86523E-03
+    2.10511E-02   5.99031E-03   9.89671E-01  -1.60650E-03   7.64771E-04
+    2.63561E-04   4.94086E+01  -2.56950E+02  -3.51146E+02  -4.76862E+02
+   -6.56075E+01  -8.11235E+01  -6.76745E+01  -8.21969E+01   1.99694E-02
+    5.00047E-03   2.13948E-02   6.14013E-03   9.89684E-01  -1.60341E-03
+    8.04194E-04   2.80748E-04   5.29363E+01  -2.55387E+02  -3.16896E+02
+   -4.61675E+02  -5.90367E+01  -7.82100E+01  -6.09050E+01  -7.91952E+01
+    2.02761E-02   5.13647E-03   2.17349E-02   6.29096E-03   9.89690E-01
+   -1.59877E-03   8.45336E-04   2.98992E-04   5.74392E+01  -2.53356E+02
+   -2.83776E+02  -4.46733E+02  -5.27847E+01  -7.53891E+01  -5.44681E+01
+   -7.62914E+01   2.05724E-02   5.27014E-03   2.20651E-02   6.43990E-03
+    9.89708E-01  -1.58949E-03   8.88235E-04   3.18345E-04   6.27274E+01
+   -2.50927E+02  -2.51863E+02  -4.32081E+02  -4.68465E+01  -7.26629E+01
+   -4.83652E+01  -7.34893E+01   2.08583E-02   5.40145E-03   2.23848E-02
+    6.58670E-03   9.89739E-01  -1.57712E-03   9.32986E-04   3.38891E-04
+    6.87187E+01  -2.48128E+02  -2.21131E+02  -4.17717E+02  -4.11980E+01
+   -7.00229E+01  -4.25672E+01  -7.07793E+01   2.11517E-02   5.53855E-03
+    2.27098E-02   6.73859E-03   9.89764E-01  -1.56475E-03   9.79593E-04
+    3.60675E-04   7.53147E+01  -2.44988E+02  -1.91561E+02  -4.03642E+02
+   -3.58350E+01  -6.74702E+01  -3.70692E+01  -6.81625E+01   2.14191E-02
+    5.66582E-03   2.30096E-02   6.88130E-03   9.89814E-01  -1.54156E-03
+    1.02815E-03   3.83785E-04   8.23857E+01  -2.41560E+02  -1.63172E+02
+   -3.89876E+02  -3.07375E+01  -6.49987E+01  -3.18482E+01  -6.56310E+01
+    2.16860E-02   5.79524E-03   2.33067E-02   7.02532E-03   9.89857E-01
+   -1.51991E-03   1.07866E-03   4.08277E-04   8.98431E+01  -2.37874E+02
+   -1.35958E+02  -3.76431E+02  -2.59005E+01  -6.26087E+01  -2.69008E+01
+   -6.31866E+01   2.19503E-02   5.92585E-03   2.35990E-02   7.16981E-03
+    9.89910E-01  -1.49517E-03   1.13121E-03   4.34244E-04   9.76266E+01
+   -2.33954E+02  -1.09869E+02  -3.63290E+02  -2.13089E+01  -6.02959E+01
+   -2.22086E+01  -6.08229E+01   2.21989E-02   6.05104E-03   2.38743E-02
+    7.30842E-03   9.89971E-01  -1.46270E-03   1.18583E-03   4.61757E-04
+    1.05639E+02  -2.29837E+02  -8.49417E+01  -3.50484E+02  -1.69534E+01
+   -5.80586E+01  -1.77620E+01  -5.85389E+01   2.24410E-02   6.17541E-03
+    2.41408E-02   7.44535E-03   9.90036E-01  -1.43024E-03   1.24259E-03
+    4.90911E-04   1.13841E+02  -2.25540E+02  -6.10966E+01  -3.37988E+02
+   -1.28220E+01  -5.58937E+01  -1.35491E+01  -5.63313E+01   2.26742E-02
+    6.29759E-03   2.43958E-02   7.57898E-03   9.90107E-01  -1.39158E-03
+    1.30150E-03   5.21780E-04   1.22149E+02  -2.21096E+02  -3.83382E+01
+   -3.25817E+02  -8.90412E+00  -5.37982E+01  -9.55763E+00  -5.41964E+01
+    2.28993E-02   6.41802E-03   2.46402E-02   7.70970E-03   9.90179E-01
+   -1.35292E-03   1.36263E-03   5.54476E-04   1.30521E+02  -2.16523E+02
+   -1.66437E+01  -3.13970E+02  -5.19522E+00  -5.17725E+01  -5.78144E+00
+   -5.21343E+01   2.31174E-02   6.53710E-03   2.48747E-02   7.83775E-03
+    9.90265E-01  -1.30654E-03   1.42602E-03   5.89095E-04   1.38908E+02
+   -2.11846E+02   4.00893E+00  -3.02448E+02  -1.67989E+00  -4.98116E+01
+   -2.20673E+00  -5.01401E+01   2.33241E-02   6.65242E-03   2.50952E-02
+    7.96077E-03   9.90352E-01  -1.25706E-03   1.49170E-03   6.25734E-04
+    1.47273E+02  -2.07077E+02   2.36847E+01  -2.91230E+02   1.64901E+00
+   -4.79138E+01   1.17679E+00  -4.82111E+01   2.35224E-02   6.76548E-03
+    2.53040E-02   8.07980E-03   9.90441E-01  -1.20603E-03   1.55971E-03
+    6.64508E-04   1.55560E+02  -2.02246E+02   4.23566E+01  -2.80346E+02
+    4.79742E+00  -4.60784E+01   4.37309E+00  -4.63479E+01   2.37108E-02
+    6.87531E-03   2.55003E-02   8.19424E-03   9.90537E-01  -1.15037E-03
+    1.63011E-03   7.05548E-04   1.63765E+02  -1.97354E+02   6.01086E+01
+   -2.69760E+02   7.77641E+00  -4.43019E+01   7.39602E+00  -4.45451E+01
+    2.38917E-02   6.98321E-03   2.56857E-02   8.30477E-03   9.90642E-01
+   -1.09007E-03   1.70289E-03   7.48949E-04   1.71830E+02  -1.92430E+02
+    7.69328E+01  -2.59491E+02   1.05927E+01  -4.25830E+01   1.02511E+01
+   -4.28027E+01   2.40622E-02   7.08724E-03   2.58577E-02   8.40979E-03
+    9.90738E-01  -1.02977E-03   1.77813E-03   7.94871E-04   1.79743E+02
+   -1.87484E+02   9.28799E+01  -2.49523E+02   1.32529E+01  -4.09201E+01
+    1.29465E+01  -4.11177E+01   2.42225E-02   7.18745E-03   2.60165E-02
+    8.50901E-03   9.90850E-01  -9.60189E-04   1.85582E-03   8.43436E-04
+    1.87490E+02  -1.82522E+02   1.07975E+02  -2.39854E+02   1.57662E+01
+   -3.93105E+01   1.54909E+01  -3.94880E+01   2.43736E-02   7.28418E-03
+    2.61631E-02   8.60292E-03   9.90955E-01  -8.93702E-04   1.93600E-03
+    8.94789E-04   1.95031E+02  -1.77570E+02   1.22245E+02  -2.30483E+02
+    1.81381E+01  -3.77528E+01   1.78911E+01  -3.79117E+01   2.45142E-02
+    7.37654E-03   2.62961E-02   8.69029E-03   9.91069E-01  -8.17943E-04
+    2.01869E-03   9.49090E-04   2.02381E+02  -1.72618E+02   1.35734E+02
+   -2.21395E+02   2.03748E+01  -3.62458E+01   2.01525E+01  -3.63881E+01
+    2.46475E-02   7.46642E-03   2.64193E-02   8.77329E-03   9.91180E-01
+   -7.42175E-04   2.10390E-03   1.00650E-03   2.09492E+02  -1.67698E+02
+    1.48451E+02  -2.12598E+02   2.24837E+01  -3.47868E+01   2.22842E+01
+   -3.49135E+01   2.47695E-02   7.55076E-03   2.65283E-02   8.84867E-03
+    9.91295E-01  -6.64865E-04   2.19164E-03   1.06719E-03   2.16384E+02
+   -1.62801E+02   1.60451E+02  -2.04070E+02   2.44702E+01  -3.33751E+01
+    2.42907E+01  -3.34875E+01   2.48819E-02   7.63068E-03   2.66250E-02
+    8.91740E-03   9.91416E-01  -5.79824E-04   2.28192E-03   1.13135E-03
+    2.23024E+02  -1.57949E+02   1.71741E+02  -1.95819E+02   2.63395E+01
+   -3.20091E+01   2.61780E+01  -3.21085E+01   2.49861E-02   7.70675E-03
+    2.67109E-02   8.98022E-03   9.91527E-01  -4.96329E-04   2.37474E-03
+    1.19918E-03   2.29426E+02  -1.53136E+02   1.82364E+02  -1.87833E+02
+    2.80985E+01  -3.06866E+01   2.79523E+01  -3.07743E+01   2.50789E-02
+    7.77660E-03   2.67837E-02   9.03487E-03   9.91647E-01  -4.08196E-04
+    2.47008E-03   1.27087E-03   2.35567E+02  -1.48381E+02   1.92342E+02
+   -1.80107E+02   2.97519E+01  -2.94063E+01   2.96201E+01  -2.94829E+01
+    2.51647E-02   7.84301E-03   2.68469E-02   9.08381E-03   9.91765E-01
+   -3.16970E-04   2.56795E-03   1.34665E-03   2.41457E+02  -1.43680E+02
+    2.01711E+02  -1.72629E+02   3.13039E+01  -2.81676E+01   3.11846E+01
+   -2.82343E+01   2.52399E-02   7.90305E-03   2.68975E-02   9.12423E-03
+    9.91876E-01  -2.27291E-04   2.66830E-03   1.42674E-03   2.47084E+02
+   -1.39045E+02   2.10485E+02  -1.65403E+02   3.27600E+01  -2.69685E+01
+    3.26515E+01  -2.70262E+01   2.53066E-02   7.95789E-03   2.69379E-02
+    9.15755E-03   9.91994E-01  -1.29881E-04   2.77111E-03   1.51140E-03
+    2.52456E+02  -1.34477E+02   2.18698E+02  -1.58418E+02   3.41248E+01
+   -2.58079E+01   3.40258E+01  -2.58574E+01   2.53645E-02   8.00718E-03
+    2.69683E-02   9.18340E-03   9.92105E-01  -3.55625E-05   2.87636E-03
+    1.60092E-03   2.57570E+02  -1.29980E+02   2.26375E+02  -1.51667E+02
+    3.54023E+01  -2.46844E+01   3.53121E+01  -2.47263E+01   2.54148E-02
+    8.05134E-03   2.69897E-02   9.20220E-03   9.92216E-01   6.33945E-05
+    2.98398E-03   1.69556E-03   2.62424E+02  -1.25562E+02   2.33543E+02
+   -1.45144E+02   3.65971E+01  -2.35968E+01   3.65146E+01  -2.36318E+01
+    2.54558E-02   8.08869E-03   2.70006E-02   9.21205E-03   9.92325E-01
+    1.62351E-04   3.09390E-03   1.79560E-03   2.67025E+02  -1.21223E+02
+    2.40221E+02  -1.38845E+02   3.77134E+01  -2.25441E+01   3.76374E+01
+   -2.25728E+01   2.54896E-02   8.12063E-03   2.70036E-02   9.21485E-03
+    9.92433E-01   2.62854E-04   3.20606E-03   1.90140E-03   2.71378E+02
+   -1.16961E+02   2.46433E+02  -1.32763E+02   3.87543E+01  -2.15251E+01
+    3.86839E+01  -2.15483E+01   2.55151E-02   8.14561E-03   2.69978E-02
+    9.20925E-03   9.92536E-01   3.64903E-04   3.32034E-03   2.01326E-03
+    2.75479E+02  -1.12790E+02   2.52206E+02  -1.26892E+02   3.97244E+01
+   -2.05382E+01   3.96592E+01  -2.05563E+01   2.55345E-02   8.16532E-03
+    2.69852E-02   9.19640E-03   9.92634E-01   4.63859E-04   3.43669E-03
+    2.13162E-03   2.79340E+02  -1.08702E+02   2.57556E+02  -1.21227E+02
+    4.06258E+01  -1.95840E+01   4.05651E+01  -1.95972E+01   2.55471E-02
+    8.17866E-03   2.69658E-02   9.17591E-03   9.92733E-01   5.69001E-04
+    3.55492E-03   2.25680E-03   2.82964E+02  -1.04701E+02   2.62508E+02
+   -1.15760E+02   4.14637E+01  -1.86590E+01   4.14066E+01  -1.86682E+01
+    2.55518E-02   8.18378E-03   2.69386E-02   9.14585E-03   9.92827E-01
+    6.72596E-04   3.67491E-03   2.38924E-03   2.86354E+02  -1.00792E+02
+    2.67082E+02  -1.10487E+02   4.22391E+01  -1.77651E+01   4.21854E+01
+   -1.77703E+01   2.55513E-02   8.18330E-03   2.69063E-02   9.10860E-03
+    9.92914E-01   7.73099E-04   3.79650E-03   2.52942E-03   2.89517E+02
+   -9.69767E+01   2.71292E+02  -1.05409E+02   4.29573E+01  -1.68986E+01
+    4.29065E+01  -1.69004E+01   2.55454E-02   8.17619E-03   2.68692E-02
+    9.06386E-03   9.92999E-01   8.75148E-04   3.91947E-03   2.67778E-03
+    2.92464E+02  -9.32480E+01   2.75166E+02  -1.00507E+02   4.36196E+01
+   -1.60606E+01   4.35712E+01  -1.60594E+01   2.55344E-02   8.16218E-03
+    2.68274E-02   9.01104E-03   9.93078E-01   9.75651E-04   4.04363E-03
+    2.83489E-03   2.95195E+02  -8.96143E+01   2.78714E+02  -9.57861E+01
+    4.42293E+01  -1.52495E+01   4.41829E+01  -1.52455E+01   2.55185E-02
+    8.14112E-03   2.67818E-02   8.95026E-03   9.93157E-01   1.07925E-03
+    4.16868E-03   3.00124E-03   2.97720E+02  -8.60738E+01   2.81956E+02
+   -9.12402E+01   4.47890E+01  -1.44648E+01   4.47445E+01  -1.44581E+01
+    2.54984E-02   8.11295E-03   2.67328E-02   8.88165E-03   9.93226E-01
+    1.17666E-03   4.29437E-03   3.17747E-03   3.00047E+02  -8.26256E+01
+    2.84912E+02  -8.68602E+01   4.53020E+01  -1.37043E+01   4.52590E+01
+   -1.36956E+01   2.54738E-02   8.07642E-03   2.66803E-02   8.80385E-03
+    9.93291E-01   1.27252E-03   4.42033E-03   3.36418E-03   3.02182E+02
+   -7.92690E+01   2.87594E+02  -8.26430E+01   4.57693E+01  -1.29697E+01
+    4.57278E+01  -1.29587E+01   2.54468E-02   8.03394E-03   2.66268E-02
+    8.71968E-03   9.93351E-01   1.36993E-03   4.54619E-03   3.56204E-03
+    3.04129E+02  -7.60101E+01   2.90016E+02  -7.85901E+01   4.61945E+01
+   -1.22583E+01   4.61537E+01  -1.22458E+01   2.54175E-02   7.98500E-03
+    2.65725E-02   8.62874E-03   9.93407E-01   1.46115E-03   4.67158E-03
+    3.77186E-03   3.05901E+02  -7.28397E+01   2.92198E+02  -7.46866E+01
+    4.65792E+01  -1.15700E+01   4.65395E+01  -1.15557E+01   2.53850E-02
+    7.92682E-03   2.65163E-02   8.52820E-03   9.93460E-01   1.55703E-03
+    4.79595E-03   3.99436E-03   3.07501E+02  -6.97656E+01   2.94150E+02
+   -7.09349E+01   4.69254E+01  -1.09048E+01   4.68864E+01  -1.08892E+01
+    2.53518E-02   7.86304E-03   2.64608E-02   8.42175E-03   9.93504E-01
+    1.64207E-03   4.91879E-03   4.23037E-03   3.08940E+02  -6.67811E+01
+    2.95888E+02  -6.73289E+01   4.72358E+01  -1.02607E+01   4.71972E+01
+   -1.02441E+01   2.53168E-02   7.79037E-03   2.64054E-02   8.30656E-03
+    9.93546E-01   1.72864E-03   5.03949E-03   4.48085E-03   3.10222E+02
+   -6.38892E+01   2.97423E+02  -6.38670E+01   4.75118E+01  -9.63804E+00
+    4.74739E+01  -9.62013E+00   2.52813E-02   7.71021E-03   2.63510E-02
+    8.18398E-03   9.93584E-01   1.81370E-03   5.15735E-03   4.74667E-03
+    3.11357E+02  -6.10844E+01   2.98772E+02  -6.05342E+01   4.77555E+01
+   -9.03627E+00   4.77178E+01  -9.01766E+00   2.52463E-02   7.62382E-03
+    2.62988E-02   8.05516E-03   9.93616E-01   1.89253E-03   5.27162E-03
+    5.02896E-03   3.12350E+02  -5.83737E+01   2.99941E+02  -5.73437E+01
+    4.79686E+01  -8.45411E+00   4.79314E+01  -8.43452E+00   2.52115E-02
+    7.52887E-03   2.62487E-02   7.91837E-03   9.93645E-01   1.97141E-03
+    5.38142E-03   5.32876E-03   3.13209E+02  -5.57518E+01   3.00945E+02
+   -5.42786E+01   4.81529E+01  -7.89174E+00   4.81159E+01  -7.87156E+00
+    2.51778E-02   7.42595E-03   2.62013E-02   7.77365E-03   9.93668E-01
+    2.04251E-03   5.48584E-03   5.64738E-03   3.13943E+02  -5.32152E+01
+    3.01794E+02  -5.13422E+01   4.83102E+01  -7.34797E+00   4.82733E+01
+   -7.32719E+00   2.51460E-02   7.31597E-03   2.61577E-02   7.62285E-03
+    9.93689E-01   2.11366E-03   5.58374E-03   5.98597E-03   3.14556E+02
+   -5.07660E+01   3.02501E+02  -4.85233E+01   4.84418E+01  -6.82272E+00
+    4.84050E+01  -6.80154E+00   2.51165E-02   7.19823E-03   2.61180E-02
+    7.46446E-03   9.93705E-01   2.17703E-03   5.67397E-03   6.34599E-03
+    3.15057E+02  -4.84051E+01   3.03072E+02  -4.58291E+01   4.85494E+01
+   -6.31545E+00   4.85126E+01  -6.29388E+00   2.50895E-02   7.07114E-03
+    2.60826E-02   7.29766E-03   9.93718E-01   2.24200E-03   5.75515E-03
+    6.72881E-03   3.15453E+02  -4.61246E+01   3.03521E+02  -4.32454E+01
+    4.86344E+01  -5.82544E+00   4.85977E+01  -5.80357E+00   2.50665E-02
+    6.93813E-03   2.60528E-02   7.12570E-03   9.93729E-01   2.30073E-03
+    5.82583E-03   7.13615E-03   3.15749E+02  -4.39283E+01   3.03854E+02
+   -4.07735E+01   4.86983E+01  -5.35240E+00   4.86616E+01  -5.33033E+00
+    2.50472E-02   6.79553E-03   2.60284E-02   6.94484E-03   9.93736E-01
+    2.35333E-03   5.88434E-03   7.56969E-03   3.15953E+02  -4.18170E+01
+    3.04082E+02  -3.84128E+01   4.87423E+01  -4.89551E+00   4.87057E+01
+   -4.87335E+00   2.50328E-02   6.64565E-03   2.60104E-02   6.75765E-03
+    9.93740E-01   2.40126E-03   5.92883E-03   8.03114E-03   3.16071E+02
+   -3.97827E+01   3.04212E+02  -3.61577E+01   4.87678E+01  -4.45520E+00
+    4.87312E+01  -4.43283E+00   2.50236E-02   6.48703E-03   2.59991E-02
+    6.56299E-03   9.93743E-01   2.44916E-03   5.95727E-03   8.52254E-03
+    3.16108E+02  -3.78270E+01   3.04254E+02  -3.40017E+01   4.87760E+01
+   -4.02993E+00   4.87394E+01  -4.00777E+00   2.50203E-02   6.31954E-03
+    2.59952E-02   6.36013E-03   9.93744E-01   2.49094E-03   5.96738E-03
+    9.04602E-03   3.16077E+02  -3.61688E+01   3.04219E+02  -3.21631E+01
+    4.87681E+01  -3.62040E+00   4.87315E+01  -3.59794E+00   2.50367E-02
+    5.47036E-03   2.60126E-02   5.45137E-03   9.93743E-01   2.52338E-03
+    5.95665E-03   9.60375E-03   3.15974E+02  -3.43952E+01   3.04107E+02
+   -3.02310E+01   4.87453E+01  -3.22492E+00   4.87086E+01  -3.20265E+00
+    2.50528E-02   5.19211E-03   2.60308E-02   5.13708E-03   9.93742E-01
+    2.55433E-03   5.92230E-03   1.01982E-02   3.15809E+02  -3.26832E+01
+    3.03929E+02  -2.83806E+01   4.87086E+01  -2.84380E+00   4.86720E+01
+   -2.82183E+00   2.50761E-02   4.95012E-03   2.60573E-02   4.86218E-03
+    9.93738E-01   2.58677E-03   5.86125E-03   1.08320E-02   3.15588E+02
+   -3.10449E+01   3.03691E+02  -2.66179E+01   4.86591E+01  -2.47720E+00
+    4.86225E+01  -2.45513E+00   2.51104E-02   4.69535E-03   2.60960E-02
+    4.57527E-03   9.93736E-01   2.60690E-03   5.77009E-03   1.15079E-02
+    3.15316E+02  -2.94746E+01   3.03401E+02  -2.49464E+01   4.85978E+01
+   -2.12350E+00   4.85612E+01  -2.10173E+00   2.51563E-02   4.43084E-03
+    2.61471E-02   4.28062E-03   9.93731E-01   2.63161E-03   5.64505E-03
+    1.22289E-02   3.14999E+02  -2.79811E+01   3.03064E+02  -2.33579E+01
+    4.85257E+01  -1.78351E+00   4.84892E+01  -1.76193E+00   2.52153E-02
+    4.15258E-03   2.62124E-02   3.97259E-03   9.93728E-01   2.64711E-03
+    5.48196E-03   1.29982E-02   3.14641E+02  -2.65527E+01   3.02687E+02
+   -2.18519E+01   4.84436E+01  -1.45574E+00   4.84071E+01  -1.43437E+00
+    2.52878E-02   3.86330E-03   2.62919E-02   3.65514E-03   9.93724E-01
+    2.66099E-03   5.27627E-03   1.38192E-02   3.14249E+02  -2.51945E+01
+    3.02276E+02  -2.04287E+01   4.83526E+01  -1.14088E+00   4.83162E+01
+   -1.11980E+00   2.53751E-02   3.56111E-03   2.63870E-02   3.32608E-03
+    9.93722E-01   2.66721E-03   5.02291E-03   1.46957E-02   3.13824E+02
+   -2.38970E+01   3.01835E+02  -1.90829E+01   4.82532E+01  -8.37673E-01
+    4.82170E+01  -8.16991E-01   2.54792E-02   3.24341E-03   2.64994E-02
+    2.98302E-03   9.93721E-01   2.67339E-03   4.71628E-03   1.56316E-02
+    3.13374E+02  -2.26688E+01   3.01368E+02  -1.78097E+01   4.81466E+01
+   -5.46435E-01   4.81104E+01  -5.25852E-01   2.55989E-02   2.91650E-03
+    2.66281E-02   2.63156E-03   9.93721E-01   2.67490E-03   4.35026E-03
+    1.66312E-02   3.12802E+02  -2.12576E+01   3.00786E+02  -1.63699E+01
+    4.80334E+01  -2.66789E-01   4.79973E+01  -2.46601E-01   2.54222E-02
+    3.35305E-03   2.64504E-02   3.07062E-03   9.93719E-01   2.67648E-03
+    3.91806E-03   1.76991E-02   3.12148E+02  -1.97801E+01   3.00121E+02
+   -1.48711E+01   4.79140E+01   2.77077E-03   4.78780E+01   2.26609E-02
+    2.50535E-02   4.18481E-03   2.60750E-02   3.91770E-03   9.93719E-01
+    2.67645E-03   3.41229E-03   1.88401E-02   3.11628E+02  -1.87021E+01
+    2.99596E+02  -1.37804E+01   4.77898E+01   2.60455E-01   4.77539E+01
+    2.80049E-01   2.51767E-02   3.92920E-03   2.62073E-02   3.64296E-03
+    9.93723E-01   2.66875E-03   2.82467E-03   2.00596E-02   3.11095E+02
+   -1.76767E+01   2.99061E+02  -1.27519E+01   4.76606E+01   5.08634E-01
+    4.76252E+01   5.27534E-01   2.53149E-02   3.66364E-03   2.63548E-02
+    3.35943E-03   9.93729E-01   2.65790E-03   2.14636E-03   2.13632E-02
+    3.10551E+02  -1.67032E+01   2.98518E+02  -1.17815E+01   4.75280E+01
+    7.45940E-01   4.74925E+01   7.64939E-01   2.54632E-02   3.39827E-03
+    2.65125E-02   3.07739E-03   9.93738E-01   2.64247E-03   1.36738E-03
+    2.27569E-02   3.10002E+02  -1.57847E+01   2.97977E+02  -1.08757E+01
+    4.73916E+01   9.74222E-01   4.73565E+01   9.92529E-01   2.56320E-02
+    3.11571E-03   2.66906E-02   2.77937E-03   9.93747E-01   2.62697E-03
+    4.76854E-04   2.42473E-02   3.09452E+02  -1.49204E+01   2.97437E+02
+   -1.00271E+01   4.72528E+01   1.19253E+00   4.72178E+01   1.21054E+00
+    2.58241E-02   2.81366E-03   2.68922E-02   2.46229E-03   9.93761E-01
+    2.60536E-03  -5.37017E-04   2.58415E-02   3.08902E+02  -1.41048E+01
+    2.96903E+02  -9.23537E+00   4.71115E+01   1.40201E+00   4.70767E+01
+    1.41972E+00   2.60296E-02   2.50908E-03   2.71068E-02   2.14422E-03
+    9.93775E-01   2.58523E-03  -1.68735E-03   2.75467E-02   3.08108E+02
+   -1.29911E+01   2.96130E+02  -8.15091E+00   4.69685E+01   1.60251E+00
+    4.69340E+01   1.61983E+00   2.54571E-02   3.31188E-03   2.65209E-02
+    2.96577E-03   9.93789E-01   2.56516E-03  -2.98872E-03   2.93716E-02
+    3.07537E+02  -1.22311E+01   2.95584E+02  -7.42496E+00   4.68240E+01
+    1.79469E+00   4.67900E+01   1.81161E+00   2.56141E-02   3.10304E-03
+    2.66851E-02   2.74737E-03   9.93809E-01   2.53887E-03  -4.45639E-03
+    3.13242E-02   3.06989E+02  -1.15383E+01   2.95065E+02  -6.76780E+00
+    4.66788E+01   1.97843E+00   4.66451E+01   1.99485E+00   2.58287E-02
+    2.83141E-03   2.69080E-02   2.46530E-03   9.93832E-01   2.50792E-03
+   -6.10788E-03   3.34141E-02   3.06445E+02  -1.08821E+01   2.94560E+02
+   -6.15910E+00   4.65333E+01   2.15400E+00   4.64997E+01   2.17023E+00
+    2.60652E-02   2.54607E-03   2.71519E-02   2.17102E-03   9.93855E-01
+    2.48012E-03  -7.96205E-03   3.56514E-02   3.05913E+02  -1.02693E+01
+    2.94067E+02  -5.59062E+00   4.63873E+01   2.32230E+00   4.63543E+01
+    2.33803E+00   2.63188E-02   2.25362E-03   2.74129E-02   1.87002E-03
+    9.93886E-01   2.44607E-03  -1.00394E-02   3.80465E-02   3.05281E+02
+   -9.57114E+00   2.93481E+02  -4.94311E+00   4.62419E+01   2.48284E+00
+    4.62092E+01   2.49818E+00   2.62166E-02   2.36647E-03   2.73082E-02
+    1.98562E-03   9.93911E-01   2.41672E-03  -1.23629E-02   4.06115E-02
+    3.04143E+02  -8.36614E+00   2.92393E+02  -3.79120E+00   4.60968E+01
+    2.63649E+00   4.60642E+01   2.65163E+00   2.44367E-02   4.25119E-03
+    2.54845E-02   3.91674E-03   9.93940E-01   2.38731E-03  -1.49567E-02
+    4.33580E-02   3.03611E+02  -7.82475E+00   2.91915E+02  -3.30517E+00
+    4.59525E+01   2.78337E+00   4.59204E+01   2.79792E+00   2.46075E-02
+    4.07740E-03   2.56607E-02   3.73742E-03   9.93973E-01   2.35333E-03
+   -1.78488E-02   4.63002E-02   3.03093E+02  -7.31720E+00   2.91460E+02
+   -2.85943E+00   4.58096E+01   2.92316E+00   4.57779E+01   2.93741E+00
+    2.47944E-02   3.89441E-03   2.58522E-02   3.55000E-03   9.94013E-01
+    2.31619E-03  -2.10683E-02   4.94519E-02   3.02595E+02  -6.84784E+00
+    2.91025E+02  -2.44860E+00   4.56679E+01   3.05679E+00   4.56368E+01
+    3.07054E+00   2.50122E-02   3.68906E-03   2.60749E-02   3.33986E-03
+    9.94053E-01   2.27602E-03  -2.46475E-02   5.28283E-02   3.02595E+02
+   -6.84784E+00   2.91025E+02  -2.44860E+00   4.56679E+01   3.05679E+00
+    4.56368E+01   3.07054E+00   2.50122E-02   3.68906E-03   2.60749E-02
+    3.33986E-03   9.94053E-01   2.27602E-03  -2.46475E-02   5.28283E-02
+ ECHO READ:EBINDA(IM),$LGN(GE(IM)/0,1/)
+    4.62792E-04   1.69413E+02   2.69387E+01
+ ECHO READ:($LGN(GMFP,GBR1,GBR2(I,IM)/0,1/),I=1,NGE)
+    1.04689E-03   1.60029E-04   0.00000E+00   0.00000E+00   7.77847E-02
+    1.25164E-02   1.04689E-03   1.60029E-04   0.00000E+00   0.00000E+00
+    7.77847E-02   1.25164E-02   1.16187E-03   1.78641E-04   0.00000E+00
+    0.00000E+00   3.37782E-02   5.39275E-03   1.29055E-03   1.99599E-04
+    0.00000E+00   0.00000E+00  -2.07659E-02  -3.49014E-03   1.42728E-03
+    2.22001E-04   0.00000E+00   0.00000E+00   6.98676E-03   1.05706E-03
+    1.58362E-03   2.47773E-04   0.00000E+00   0.00000E+00  -2.61171E-02
+   -4.40010E-03   1.74734E-03   2.74930E-04   0.00000E+00   0.00000E+00
+    4.11194E-02   6.75207E-03   1.93820E-03   3.06782E-04   0.00000E+00
+    0.00000E+00   8.49149E-03   1.30672E-03   2.14111E-03   3.40858E-04
+    0.00000E+00   0.00000E+00   4.97847E-02   8.24121E-03   2.38130E-03
+    3.81447E-04   0.00000E+00   0.00000E+00  -3.05470E-02  -5.33375E-03
+    2.62747E-03   4.23309E-04   0.00000E+00   0.00000E+00   3.34793E-02
+    5.55411E-03   2.91907E-03   4.73210E-04   0.00000E+00   0.00000E+00
+    1.28820E-02   2.02923E-03   3.31770E-03   5.41865E-04   0.00000E+00
+    0.00000E+00   4.07295E-02   6.82533E-03   1.01512E-03   1.42746E-04
+    0.00000E+00   0.00000E+00  -7.05894E-04  -3.56898E-04   3.71687E-03
+    6.14090E-04   0.00000E+00   0.00000E+00   7.24900E-02   1.24127E-02
+    4.14059E-03   6.88492E-04   0.00000E+00   0.00000E+00  -7.01388E-03
+   -1.54779E-03   4.58517E-03   7.67072E-04   0.00000E+00   0.00000E+00
+    2.17853E-02   3.54239E-03   5.07408E-03   8.54056E-04   0.00000E+00
+    0.00000E+00   5.71198E-02   9.82892E-03   5.62318E-03   9.52398E-04
+    0.00000E+00   0.00000E+00   6.37516E-02   1.10167E-02   6.27745E-03
+    1.07036E-03   0.00000E+00   0.00000E+00  -6.01869E-03  -1.56266E-03
+    6.96921E-03   1.19592E-03   0.00000E+00   0.00000E+00   7.31686E-02
+    1.28107E-02   7.73765E-03   1.33635E-03   0.00000E+00   0.00000E+00
+    5.95470E-02   1.03215E-02   8.58085E-03   1.49149E-03   0.00000E+00
+    0.00000E+00   6.54485E-02   1.14073E-02   9.51451E-03   1.66446E-03
+    0.00000E+00   0.00000E+00   7.18684E-02   1.25966E-02   1.05304E-02
+    1.85396E-03   0.00000E+00   0.00000E+00   1.05686E-01   1.89048E-02
+    1.17684E-02   2.08650E-03   0.00000E+00   0.00000E+00   6.03974E-02
+    1.03979E-02   1.31966E-02   2.35666E-03   0.00000E+00   0.00000E+00
+    6.55599E-02   1.13745E-02   1.46263E-02   2.62902E-03   0.00000E+00
+    0.00000E+00   1.02968E-01   1.85006E-02   1.62157E-02   2.93394E-03
+    0.00000E+00   0.00000E+00   1.30419E-01   2.37671E-02   1.80107E-02
+    3.28078E-03   0.00000E+00   0.00000E+00   1.25123E-01   2.27438E-02
+    2.04245E-02   3.75058E-03   0.00000E+00   0.00000E+00   1.40077E-01
+    2.56541E-02   2.34330E-02   4.34036E-03   0.00000E+00   0.00000E+00
+    1.58692E-01   2.93035E-02   2.60611E-02   4.85937E-03   0.00000E+00
+    0.00000E+00   2.20782E-01   4.15649E-02   2.91286E-02   5.46960E-03
+    0.00000E+00   0.00000E+00   1.95776E-01   3.65904E-02   3.24125E-02
+    6.12774E-03   0.00000E+00   0.00000E+00   2.41452E-01   4.57445E-02
+    3.61659E-02   6.88563E-03   0.00000E+00   0.00000E+00   2.37779E-01
+    4.50028E-02   4.02000E-02   7.70635E-03   0.00000E+00   0.00000E+00
+    2.91041E-01   5.58388E-02   4.47308E-02   8.63511E-03   0.00000E+00
+    0.00000E+00   3.20391E-01   6.18553E-02   4.91277E-02   9.54336E-03
+    0.00000E+00   0.00000E+00   3.29857E-01   6.38105E-02   5.40110E-02
+    1.05599E-02   0.00000E+00   0.00000E+00   3.95411E-01   7.74562E-02
+    6.00171E-02   1.18198E-02   0.00000E+00   0.00000E+00   3.93708E-01
+    7.70990E-02   6.61044E-02   1.31068E-02   0.00000E+00   0.00000E+00
+    5.14440E-01   1.02625E-01   7.35745E-02   1.46987E-02   0.00000E+00
+    0.00000E+00   4.74189E-01   9.40476E-02   8.09887E-02   1.62913E-02
+    0.00000E+00   0.00000E+00   5.87990E-01   1.18492E-01   8.99752E-02
+    1.82371E-02   0.00000E+00   0.00000E+00   6.46394E-01   1.31138E-01
+    9.96601E-02   2.03511E-02   0.00000E+00   0.00000E+00   7.08018E-01
+    1.44589E-01   1.10191E-01   2.26687E-02   0.00000E+00   0.00000E+00
+    7.42929E-01   1.52272E-01   1.20912E-01   2.50472E-02   0.00000E+00
+    0.00000E+00   8.68345E-01   1.80099E-01   1.33514E-01   2.78665E-02
+    0.00000E+00   0.00000E+00   8.95920E-01   1.86267E-01   1.46179E-01
+    3.07237E-02   0.00000E+00   0.00000E+00   1.02165E+00   2.14631E-01
+    1.60566E-01   3.39968E-02   0.00000E+00   0.00000E+00   1.08846E+00
+    2.29830E-01   1.75306E-01   3.73786E-02   0.00000E+00   0.00000E+00
+    1.21326E+00   2.58463E-01   1.90860E-01   4.09779E-02   0.00000E+00
+    0.00000E+00   1.34817E+00   2.89683E-01   2.08749E-01   4.51535E-02
+    0.00000E+00   0.00000E+00   1.40975E+00   3.04056E-01   2.25763E-01
+    4.91592E-02   0.00000E+00   0.00000E+00   1.57688E+00   3.43407E-01
+    2.47738E-01   5.43790E-02   0.00000E+00   0.00000E+00   1.68220E+00
+    3.68423E-01   2.68666E-01   5.93941E-02   0.00000E+00   0.00000E+00
+    1.82613E+00   4.02914E-01   2.89370E-01   6.44002E-02   0.00000E+00
+    0.00000E+00   1.96802E+00   4.37223E-01   3.10527E-01   6.95622E-02
+    0.00000E+00   0.00000E+00   2.11242E+00   4.72452E-01   3.32422E-01
+    7.49528E-02   0.00000E+00   0.00000E+00   2.24484E+00   5.05056E-01
+    3.54546E-01   8.04503E-02   0.00000E+00   0.00000E+00   2.37518E+00
+    5.37443E-01   3.75363E-01   8.56710E-02   0.00000E+00   0.00000E+00
+    2.52813E+00   5.75803E-01   3.97620E-01   9.13053E-02   0.00000E+00
+    0.00000E+00   2.63650E+00   6.03235E-01   4.21198E-01   9.73307E-02
+    0.00000E+00   0.00000E+00   2.80469E+00   6.46218E-01   4.41664E-01
+    1.02611E-01   0.00000E+00   0.00000E+00   2.91217E+00   6.73946E-01
+    4.59805E-01   1.07337E-01   0.00000E+00   0.00000E+00   3.01985E+00
+    7.01997E-01   4.75569E-01   1.11483E-01   0.00000E+00   0.00000E+00
+    3.11979E+00   7.28287E-01   4.89079E-01   1.15072E-01   0.00000E+00
+    0.00000E+00   3.20323E+00   7.50450E-01   5.02255E-01   1.18607E-01
+    0.00000E+00   0.00000E+00   3.24936E+00   7.62826E-01   5.11033E-01
+    1.20985E-01   0.00000E+00   0.00000E+00   3.29564E+00   7.75366E-01
+    5.18759E-01   1.23100E-01   0.00000E+00   0.00000E+00   3.31003E+00
+    7.79305E-01   5.22285E-01   1.24075E-01   0.00000E+00   0.00000E+00
+    3.31665E+00   7.81136E-01   5.23077E-01   1.24297E-01   0.00000E+00
+    0.00000E+00   3.30343E+00   7.77443E-01   5.23512E-01   1.24419E-01
+    0.00000E+00   0.00000E+00   3.26222E+00   7.65806E-01   5.20433E-01
+    1.23541E-01   0.00000E+00   0.00000E+00   3.24327E+00   7.60400E-01
+    5.15618E-01   1.22152E-01   0.00000E+00   0.00000E+00   3.16990E+00
+    7.39242E-01   5.07342E-01   1.19740E-01   0.00000E+00   0.00000E+00
+    3.08996E+00   7.15940E-01   4.97481E-01   1.16834E-01   0.00000E+00
+    0.00000E+00   2.99843E+00   6.88965E-01   4.87034E-01   1.13721E-01
+    0.00000E+00   0.00000E+00   2.89607E+00   6.58470E-01   4.73780E-01
+    1.09728E-01   0.00000E+00   0.00000E+00   2.79215E+00   6.27159E-01
+    4.61888E-01   1.06105E-01   0.00000E+00   0.00000E+00   2.67891E+00
+    5.92655E-01   4.48455E-01   1.01965E-01   0.00000E+00   0.00000E+00
+    2.57226E+00   5.59787E-01   4.36419E-01   9.82126E-02   0.00000E+00
+    0.00000E+00   2.46825E+00   5.27364E-01   4.22937E-01   9.39607E-02
+    0.00000E+00   0.00000E+00   2.35455E+00   4.91504E-01   4.08548E-01
+    8.93689E-02   0.00000E+00   0.00000E+00   2.24546E+00   4.56689E-01
+    3.97586E-01   8.58287E-02   0.00000E+00   0.00000E+00   2.13665E+00
+    4.21552E-01   3.84670E-01   8.16067E-02   0.00000E+00   0.00000E+00
+    2.03620E+00   3.88716E-01   3.72353E-01   7.75311E-02   0.00000E+00
+    0.00000E+00   1.93665E+00   3.55775E-01   3.60661E-01   7.36141E-02
+    0.00000E+00   0.00000E+00   1.83842E+00   3.22872E-01   3.50949E-01
+    7.03200E-02   0.00000E+00   0.00000E+00   1.75713E+00   2.95296E-01
+    3.42574E-01   6.74427E-02   0.00000E+00   0.00000E+00   1.68152E+00
+    2.69318E-01   3.35184E-01   6.48712E-02   0.00000E+00   0.00000E+00
+    1.61185E+00   2.45074E-01   3.28706E-01   6.25871E-02   0.00000E+00
+    0.00000E+00   1.55392E+00   2.24650E-01   3.23785E-01   6.08297E-02
+    0.00000E+00   0.00000E+00   1.50290E+00   2.06427E-01   3.18517E-01
+    5.89222E-02   0.00000E+00   0.00000E+00   1.44757E+00   1.86393E-01
+    3.13697E-01   5.71535E-02   0.00000E+00   0.00000E+00   1.39773E+00
+    1.68106E-01   3.09297E-01   5.55166E-02   0.00000E+00   0.00000E+00
+    1.35296E+00   1.51452E-01   3.05999E-01   5.42725E-02   0.00000E+00
+    0.00000E+00   1.31264E+00   1.36243E-01   3.03304E-01   5.32417E-02
+    0.00000E+00   0.00000E+00   1.27657E+00   1.22442E-01   3.00900E-01
+    5.23088E-02   0.00000E+00   0.00000E+00   1.24440E+00   1.09961E-01
+    2.99431E-01   5.17304E-02   0.00000E+00   0.00000E+00   1.21657E+00
+    9.90010E-02   2.98703E-01   5.14393E-02   0.00000E+00   0.00000E+00
+    1.19125E+00   8.88836E-02   2.97669E-01   5.10199E-02   0.00000E+00
+    0.00000E+00   1.16840E+00   7.96152E-02   2.97272E-01   5.08561E-02
+    0.00000E+00   0.00000E+00   1.14811E+00   7.12581E-02   2.97393E-01
+    5.09070E-02   0.00000E+00   0.00000E+00   1.13016E+00   6.37468E-02
+    2.97876E-01   5.11118E-02   0.00000E+00   0.00000E+00   1.11428E+00
+    5.70046E-02   2.98302E-01   5.12960E-02   0.00000E+00   0.00000E+00
+    1.09974E+00   5.07264E-02   2.99413E-01   5.17833E-02   0.00000E+00
+    0.00000E+00   1.08719E+00   4.52222E-02   3.00437E-01   5.22402E-02
+    0.00000E+00   0.00000E+00   1.07649E+00   4.04549E-02   3.02000E-01
+    5.29487E-02   0.00000E+00   0.00000E+00   1.06705E+00   3.61742E-02
+    3.03577E-01   5.36760E-02   0.00000E+00   0.00000E+00   1.05876E+00
+    3.23495E-02   3.05391E-01   5.45267E-02   0.00000E+00   0.00000E+00
+    1.05146E+00   2.89226E-02   3.07367E-01   5.54704E-02   0.00000E+00
+    0.00000E+00   1.04504E+00   2.58561E-02   3.09410E-01   5.64635E-02
+    0.00000E+00   0.00000E+00   1.03941E+00   2.31201E-02   3.11525E-01
+    5.75108E-02   0.00000E+00   0.00000E+00   1.03445E+00   2.06682E-02
+    3.13905E-01   5.87110E-02   0.00000E+00   0.00000E+00   1.03011E+00
+    1.84765E-02   3.16214E-01   5.98980E-02   0.00000E+00   0.00000E+00
+    1.02630E+00   1.65192E-02   3.18550E-01   6.11223E-02   0.00000E+00
+    0.00000E+00   1.02223E+00   1.43868E-02   3.21012E-01   6.24382E-02
+    0.00000E+00   0.00000E+00   1.01916E+00   1.27474E-02   3.23642E-01
+    6.38712E-02   0.00000E+00   0.00000E+00   1.01678E+00   1.14468E-02
+    3.26265E-01   6.53304E-02   0.00000E+00   0.00000E+00   1.01469E+00
+    1.02859E-02   3.28993E-01   6.68811E-02   0.00000E+00   0.00000E+00
+    1.01284E+00   9.23422E-03   3.31693E-01   6.84478E-02   0.00000E+00
+    0.00000E+00   1.01123E+00   8.29812E-03   3.34395E-01   7.00510E-02
+    0.00000E+00   0.00000E+00   1.00981E+00   7.45665E-03   3.37178E-01
+    7.17386E-02   0.00000E+00   0.00000E+00   1.00856E+00   6.70047E-03
+    3.39809E-01   7.33716E-02   0.00000E+00   0.00000E+00   1.00692E+00
+    5.68087E-03   3.42600E-01   7.51439E-02   0.00000E+00   0.00000E+00
+    1.00604E+00   5.12049E-03   3.45424E-01   7.69808E-02   0.00000E+00
+    0.00000E+00   1.00529E+00   4.63397E-03   3.48205E-01   7.88353E-02
+    0.00000E+00   0.00000E+00   1.00462E+00   4.19081E-03   3.51018E-01
+    8.07577E-02   0.00000E+00   0.00000E+00   1.00405E+00   3.79581E-03
+    3.53788E-01   8.27002E-02   0.00000E+00   0.00000E+00   1.00353E+00
+    3.43293E-03   3.56579E-01   8.47093E-02   0.00000E+00   0.00000E+00
+    1.00309E+00   3.11340E-03   3.59345E-01   8.67557E-02   0.00000E+00
+    0.00000E+00   1.00268E+00   2.81314E-03   3.62093E-01   8.88455E-02
+    0.00000E+00   0.00000E+00   1.00233E+00   2.54981E-03   3.64831E-01
+    9.09895E-02   0.00000E+00   0.00000E+00   1.00203E+00   2.31053E-03
+    3.71097E-01   9.60409E-02   0.00000E+00   0.00000E+00   1.01564E+00
+    1.32869E-02   3.70068E-01   9.51859E-02   0.00000E+00   0.00000E+00
+    1.00069E+00   8.60640E-04   3.72767E-01   9.75013E-02   0.00000E+00
+    0.00000E+00   1.00060E+00   7.80357E-04   3.75438E-01   9.98672E-02
+    0.00000E+00   0.00000E+00   1.00051E+00   7.04890E-04   3.78068E-01
+    1.02275E-01   0.00000E+00   0.00000E+00   1.00044E+00   6.42269E-04
+    3.80684E-01   1.04756E-01   0.00000E+00   0.00000E+00   1.00038E+00
+    5.79648E-04   3.83260E-01   1.07287E-01   0.00000E+00   0.00000E+00
+    1.00032E+00   5.26661E-04   3.85795E-01   1.09872E-01   0.00000E+00
+    0.00000E+00   1.00027E+00   4.73673E-04   3.88921E-01   1.13186E-01
+    0.00000E+00   0.00000E+00   1.00239E+00   2.71840E-03   3.90738E-01
+    1.15190E-01   0.00000E+00   0.00000E+00   1.00007E+00   1.62173E-04
+    3.93172E-01   1.17991E-01   0.00000E+00   0.00000E+00   1.00006E+00
+    1.47722E-04   3.95555E-01   1.20856E-01   0.00000E+00   0.00000E+00
+    1.00005E+00   1.36480E-04   3.97895E-01   1.23800E-01   0.00000E+00
+    0.00000E+00   1.00004E+00   1.25242E-04   4.00179E-01   1.26814E-01
+    0.00000E+00   0.00000E+00   1.00004E+00   1.18820E-04   4.02420E-01
+    1.29923E-01   0.00000E+00   0.00000E+00   1.00003E+00   1.04369E-04
+    4.04591E-01   1.33100E-01   0.00000E+00   0.00000E+00   1.00002E+00
+    8.99177E-05   4.06711E-01   1.36379E-01   0.00000E+00   0.00000E+00
+    1.00001E+00   8.51006E-05   4.08761E-01   1.39744E-01   0.00000E+00
+    0.00000E+00   1.00001E+00   7.86780E-05   4.10747E-01   1.43214E-01
+    0.00000E+00   0.00000E+00   1.00001E+00   7.38609E-05   4.12653E-01
+    1.46776E-01   0.00000E+00   0.00000E+00   1.00000E+00   6.26212E-05
+    4.14481E-01   1.50449E-01   0.00000E+00   0.00000E+00   9.99998E-01
+    5.61985E-05   4.16224E-01   1.54230E-01   0.00000E+00   0.00000E+00
+    9.99996E-01   5.13815E-05   4.17875E-01   1.58128E-01   0.00000E+00
+    0.00000E+00   9.99994E-01   4.65645E-05   4.19425E-01   1.62138E-01
+    0.00000E+00   0.00000E+00   9.99994E-01   4.65639E-05   4.20873E-01
+    1.66280E-01   0.00000E+00   0.00000E+00   9.99992E-01   4.17475E-05
+    4.22204E-01   1.70542E-01   0.00000E+00   0.00000E+00   9.99990E-01
+    3.69305E-05   4.23416E-01   1.74946E-01   0.00000E+00   0.00000E+00
+    9.99990E-01   3.69305E-05   4.24496E-01   1.79482E-01   0.00000E+00
+    0.00000E+00   9.99989E-01   3.05078E-05   4.25436E-01   1.84163E-01
+    0.00000E+00   0.00000E+00   9.99988E-01   2.89021E-05   4.26228E-01
+    1.88996E-01   0.00000E+00   0.00000E+00   9.99988E-01   2.72964E-05
+    4.26860E-01   1.93981E-01   0.00000E+00   0.00000E+00   9.99988E-01
+    2.56908E-05   4.27321E-01   1.99126E-01   0.00000E+00   0.00000E+00
+    9.99987E-01   2.08737E-05   4.27599E-01   2.04437E-01   0.00000E+00
+    0.00000E+00   9.99988E-01   2.40851E-05   4.27684E-01   2.09919E-01
+    0.00000E+00   0.00000E+00   9.99988E-01   1.92681E-05   4.27600E-01
+    2.13755E-01  -9.04078E-05   4.15168E-03   9.99988E-01   1.60565E-05
+    4.27264E-01   2.19459E-01  -9.93594E-05   4.30366E-03   9.99988E-01
+    1.60567E-05   4.26699E-01   2.25348E-01  -1.14703E-04   4.46346E-03
+    9.99988E-01   1.28454E-05   4.25890E-01   2.31423E-01  -1.36837E-04
+    4.62970E-03   9.99987E-01   1.60567E-05   4.24824E-01   2.37685E-01
+   -1.66282E-04   4.80264E-03   9.99988E-01   1.28454E-05   4.23483E-01
+    2.44151E-01  -2.03598E-04   4.98258E-03   9.99988E-01   1.12397E-05
+    4.21853E-01   2.50818E-01  -2.49377E-04   5.16981E-03   9.99988E-01
+    1.44511E-05   4.19915E-01   2.57697E-01  -3.04243E-04   5.36463E-03
+    9.99989E-01   9.63404E-06   4.17654E-01   2.64793E-01  -3.68858E-04
+    5.56735E-03   9.99989E-01   1.12397E-05   4.15050E-01   2.72108E-01
+   -4.43929E-04   5.77830E-03   9.99988E-01   1.12397E-05   4.14154E-01
+    2.74389E-01  -4.41171E-03   1.58747E-02   9.99990E-01   9.63404E-06
+    4.12183E-01   2.78973E-01  -6.86501E-03   2.15786E-02   9.99990E-01
+    6.42269E-06   4.08744E-01   2.86331E-01  -7.25248E-03   2.24079E-02
+    9.99990E-01   8.02826E-06   4.04933E-01   2.93888E-01  -7.68709E-03
+    2.32696E-02   9.99989E-01   8.02836E-06   4.00733E-01   3.01645E-01
+   -8.17183E-03   2.41648E-02   9.99992E-01   4.81702E-06   3.96119E-01
+    3.09617E-01  -8.70995E-03   2.50948E-02   9.99990E-01   6.42269E-06
+    3.91078E-01   3.17806E-01  -9.30480E-03   2.60609E-02   9.99990E-01
+    6.42269E-06   3.85593E-01   3.26207E-01  -9.95975E-03   2.70642E-02
+    9.99990E-01   6.42269E-06   3.86935E-01   3.24262E-01  -2.23548E-02
+    4.50290E-02   9.99900E-01   1.36482E-04   3.81948E-01   3.31122E-01
+   -2.47753E-02   4.83581E-02   1.00000E+00   0.00000E+00   3.75783E-01
+    3.39189E-01  -2.61765E-02   5.01917E-02   1.00000E+00   0.00000E+00
+    3.69192E-01   3.47415E-01  -2.76971E-02   5.20893E-02   1.00000E+00
+   -1.60567E-06   3.62164E-01   3.55796E-01  -2.93436E-02   5.40530E-02
+    9.99998E-01   1.60567E-06   3.54680E-01   3.64343E-01  -3.11224E-02
+    5.60846E-02   1.00000E+00   0.00000E+00   3.46740E-01   3.73043E-01
+   -3.30395E-02   5.81852E-02   1.00000E+00   0.00000E+00   3.38333E-01
+    3.81895E-01  -3.51016E-02   6.03561E-02   1.00000E+00   0.00000E+00
+    3.29444E-01   3.90903E-01  -3.73157E-02   6.25997E-02   1.00000E+00
+    0.00000E+00   3.20073E-01   4.00052E-01  -3.96880E-02   6.49161E-02
+    1.00000E+00   0.00000E+00   3.10210E-01   4.09347E-01  -4.22256E-02
+    6.73074E-02   1.00000E+00  -1.60567E-06   3.17416E-01   4.02786E-01
+   -6.68124E-02   8.96939E-02   9.99997E-01   1.60567E-06   3.17416E-01
+    4.02786E-01  -6.68124E-02   8.96939E-02   9.99997E-01   1.60567E-06
+ DATA FOR MEDIUM #  2, WHICH IS: MEDIUM=ALUM-3MEV-10KEV-02KEV   ,STERNCID=ALUM-3MEV-10KEV-02KEV         
+ ELEM,RHO=  2.702    ,NE= 1,COMPOSITION IS :
+ ASYM=AL,Z=13.,A=   26.982,PZ= 1.00000E+00,RHOZ= 2.69815E+01            
+ ECHO READ:$LGN(RLC,AE,AP,UE,UP(IM))
+    8.88722E+00   5.21000E-01   2.00000E-03   3.51100E+00   3.00200E+00
+ ECHO READ:$LGN(MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE(IM)),IRAYL
+     0  200    0  150    0    0    0    0
+ ECHO READ:($LGN(DL(I,IM)/1,2,3,4,5,6/),I=1,6)
+    9.99981E-01  -2.19279E-01   5.03195E-02   9.95706E-01  -2.35368E-01
+    9.52000E-01   1.00023E+00  -1.85862E-01   3.58308E-02   1.01473E+00
+   -2.39866E-01   9.52000E-01   1.00036E+00  -1.68669E-01   2.58879E-02
+    1.02452E+00  -2.42180E-01   9.52000E-01   9.99981E-01  -2.19810E-01
+    5.04414E-02   9.95695E-01  -2.35938E-01   9.52000E-01   1.00023E+00
+   -1.86320E-01   3.59193E-02   1.01477E+00  -2.40458E-01   9.52000E-01
+    1.00036E+00  -1.69090E-01   2.59524E-02   1.02458E+00  -2.42783E-01
+    9.52000E-01
+ ECHO READ:DELCM(IM),($LGN(ALPHI,BPAR, DELPOS(I,IM)),I=1,2)
+    2.95564E+01   9.41857E-01   8.53614E-01   2.29371E+00   9.41901E-01
+    8.53605E-01   2.26997E+00
+ ECHO READ:$LGN(XR0,TEFF0,BLCC,XCC(IM))
+    1.09552E-01   1.04935E-04   1.90631E+05   5.04144E+00
+ ECHO READ:$LGN(EKE(IM)/0,1/)
+    1.21501E+02   2.59409E+01
+ ECHO READ:($LGN(ESIG,PSIG,EDEDX,PDEDX,EBR1,PBR1,PBR2, TMXS(I,IM)/0,1/),I=1,NEKE)
+    9.91931E+00   1.55599E+00   1.90277E+04   4.12859E+03  -9.33733E+02
+   -2.88749E+02  -1.30169E+03  -3.78920E+02   1.00000E+00   0.00000E+00
+   -2.64604E+01  -5.79607E+00   8.69583E+01   1.88284E+01   2.64582E-05
+    5.12867E-06   9.91931E+00   1.55599E+00   1.90277E+04   4.12859E+03
+   -9.33733E+02  -2.88749E+02  -1.30169E+03  -3.78920E+02   1.00000E+00
+    0.00000E+00  -2.64604E+01  -5.79607E+00   8.69583E+01   1.88284E+01
+    2.64582E-05   5.12867E-06   9.87962E+00   1.54730E+00   1.69317E+04
+    3.66976E+03  -8.98752E+02  -2.81091E+02  -1.24401E+03  -3.66295E+02
+    1.00000E+00   0.00000E+00  -8.68785E-01  -1.93853E-01   3.83817E+00
+    6.32722E-01   2.80970E-05   5.48741E-06   9.83222E+00   1.53683E+00
+    1.50135E+04   3.24629E+03  -8.64541E+02  -2.73538E+02  -1.18823E+03
+   -3.53980E+02   1.00000E+00   0.00000E+00  -2.88968E-01  -6.58457E-02
+    1.95562E+00   2.17108E-01   2.98474E-05   5.87386E-06   9.78680E+00
+    1.52672E+00   1.32844E+04   2.86126E+03  -8.31588E+02  -2.66201E+02
+   -1.13504E+03  -3.42136E+02   1.00000E+00   0.00000E+00  -1.39812E-01
+   -3.26336E-02   1.47187E+00   1.09393E-01   3.17135E-05   6.28937E-06
+    9.74776E+00   1.51795E+00   1.17191E+04   2.50971E+03  -7.99074E+02
+   -2.58899E+02  -1.08332E+03  -3.30521E+02   1.00000E+00   0.00000E+00
+   -7.95795E-02  -1.91057E-02   1.27703E+00   6.56318E-02   3.36861E-05
+    6.73240E-06   9.69160E+00   1.50523E+00   1.03102E+04   2.19051E+03
+   -7.68104E+02  -2.51883E+02  -1.03443E+03  -3.19443E+02   1.00000E+00
+    0.00000E+00  -4.93843E-02  -1.22647E-02   1.17965E+00   4.35700E-02
+    3.57835E-05   7.20758E-06   9.65120E+00   1.49600E+00   9.03881E+03
+    1.89994E+03  -7.37923E+02  -2.44985E+02  -9.87327E+02  -3.08678E+02
+    1.00000E+00   0.00000E+00  -3.20389E-02  -8.30041E-03   1.12414E+00
+    3.08839E-02   3.80087E-05   7.71617E-06   9.60618E+00   1.48561E+00
+    7.89570E+03   1.63636E+03  -7.08503E+02  -2.38200E+02  -9.41954E+02
+   -2.98216E+02   1.00000E+00   0.00000E+00  -2.11512E-02  -5.78991E-03
+    1.08960E+00   2.29191E-02   4.03662E-05   8.25976E-06   9.55759E+00
+    1.47431E+00   6.86828E+03   1.39733E+03  -6.80237E+02  -2.31624E+02
+   -8.98753E+02  -2.88165E+02   1.00000E+00   0.00000E+00  -1.38377E-02
+   -4.08841E-03   1.06670E+00   1.75896E-02   4.28742E-05   8.84323E-06
+    9.51630E+00   1.46462E+00   5.94601E+03   1.18082E+03  -6.52834E+02
+   -2.25191E+02  -8.57292E+02  -2.78432E+02   1.00000E+00   0.00000E+00
+   -8.64913E-03  -2.87035E-03   1.05073E+00   1.38415E-02   4.55310E-05
+    9.46695E-06   9.46912E+00   1.45344E+00   5.11813E+03   9.84691E+02
+   -6.26300E+02  -2.18905E+02  -8.17545E+02  -2.69016E+02   1.00000E+00
+    0.00000E+00  -4.81274E-03  -1.96150E-03   1.03916E+00   1.11033E-02
+    4.83475E-05   1.01342E-05   9.42335E+00   1.44249E+00   4.37815E+03
+    8.07770E+02  -6.00596E+02  -2.12760E+02  -7.79422E+02  -2.59901E+02
+    1.00000E+00   0.00000E+00  -1.87212E-03  -1.25845E-03   1.03055E+00
+    9.04376E-03   5.13380E-05   1.08492E-05   9.37888E+00   1.43176E+00
+    3.71664E+03   6.48148E+02  -5.75848E+02  -2.06789E+02  -7.43038E+02
+   -2.51121E+02   1.00000E+00   0.00000E+00   4.57744E-04  -6.96231E-04
+    1.02396E+00   7.45108E-03   5.45085E-05   1.16142E-05   9.33162E+00
+    1.42025E+00   3.12609E+03   5.04302E+02  -5.51763E+02  -2.00922E+02
+   -7.07992E+02  -2.42585E+02   1.00000E+00   0.00000E+00   2.35350E-03
+   -2.34480E-04   1.01880E+00   6.19720E-03   5.78661E-05   1.24320E-05
+    9.28816E+00   1.40957E+00   2.60079E+03   3.75140E+02  -5.28561E+02
+   -1.95216E+02  -6.74522E+02  -2.34356E+02   1.00000E+00   0.00000E+00
+    3.93773E-03   1.55060E-04   1.01467E+00   5.17973E-03   6.14316E-05
+    1.33087E-05   9.24115E+00   1.39789E+00   2.13371E+03   2.59195E+02
+   -5.06135E+02  -1.89650E+02  -6.42462E+02  -2.26397E+02   1.00000E+00
+    0.00000E+00   5.28839E-03   4.90341E-04   1.01136E+00   4.35566E-03
+    6.52011E-05   1.42445E-05   9.19693E+00   1.38682E+00   1.71942E+03
+    1.55360E+02  -4.84569E+02  -1.84245E+02  -6.11880E+02  -2.18732E+02
+    1.00000E+00   0.00000E+00   6.46878E-03   7.86187E-04   1.00860E+00
+    3.66758E-03   6.92011E-05   1.52470E-05   9.15225E+00   1.37551E+00
+    1.35375E+03   6.28192E+01  -4.63582E+02  -1.78933E+02  -5.82413E+02
+   -2.11274E+02   1.00000E+00   0.00000E+00   7.51449E-03   1.05084E-03
+    1.00635E+00   3.09549E-03   7.34408E-05   1.63200E-05   8.61814E+03
+    2.20160E+03   1.03107E+03  -1.96488E+01  -5.31061E+02  -1.96179E+02
+   -5.54236E+02  -2.04074E+02  -9.61236E+01  -2.48221E+01   8.45968E-03
+    1.29240E-03   1.00442E+00   2.60225E-03   7.79274E-05   1.74667E-05
+    7.19813E+03   1.83507E+03   7.47713E+02  -9.27912E+01  -5.00342E+02
+   -1.88250E+02  -5.27388E+02  -1.97143E+02  -1.84775E+00  -4.88066E-01
+    9.32635E-03   1.51610E-03   1.00280E+00   2.18478E-03   8.26901E-05
+    1.86960E-05   6.05547E+03   1.53717E+03   4.99628E+02  -1.57469E+02
+   -4.72313E+02  -1.80943E+02  -5.01523E+02  -1.90400E+02  -6.07800E-01
+   -1.64798E-01   1.01308E-02   1.72584E-03   1.00140E+00   1.82142E-03
+    8.77156E-05   2.00062E-05   5.12993E+03   1.29342E+03   2.83032E+02
+   -2.14509E+02  -4.46773E+02  -1.74216E+02  -4.76938E+02  -1.83926E+02
+   -2.91725E-01  -8.15575E-02   1.08935E-02   1.92670E-03   1.00019E+00
+    1.50136E-03   9.30578E-05   2.14131E-05   4.37031E+03   1.09132E+03
+    9.50554E+01  -2.64523E+02  -4.23036E+02  -1.67901E+02  -4.53293E+02
+   -1.77635E+02  -1.64923E-01  -4.78208E-02   1.16037E-02   2.11563E-03
+    9.99147E-01   1.22459E-03   9.86918E-05   2.29120E-05   3.74366E+03
+    9.22866E+02  -6.70182E+01  -3.08092E+02  -4.00996E+02  -1.61977E+02
+   -4.30745E+02  -1.71573E+02  -1.01640E-01  -3.08095E-02   1.22990E-02
+    2.30254E-03   9.98219E-01   9.75651E-04   1.04664E-04   2.45174E-05
+    3.22063E+03   7.80795E+02  -2.05982E+02  -3.45838E+02  -3.80261E+02
+   -1.56344E+02  -4.09084E+02  -1.65690E+02  -6.55736E-02  -2.10127E-02
+    1.29649E-02   2.48343E-03   9.97415E-01   7.56090E-04   1.10979E-04
+    2.62329E-05   2.78220E+03   6.60445E+02  -3.24713E+02  -3.78431E+02
+   -3.60882E+02  -1.51024E+02  -3.88508E+02  -1.60041E+02  -4.31093E-02
+   -1.48462E-02   1.36166E-02   2.66231E-03   9.96673E-01   5.53542E-04
+    1.17672E-04   2.80699E-05   2.41107E+03   5.57479E+02  -4.24263E+02
+   -4.06050E+02  -3.42396E+02  -1.45896E+02  -3.68654E+02  -1.54533E+02
+   -2.81495E-02  -1.06957E-02   1.42500E-02   2.83806E-03   9.96048E-01
+    3.78818E-04   1.24731E-04   3.00284E-05   2.09597E+03   4.69112E+02
+   -5.08115E+02  -4.29565E+02  -3.25027E+02  -1.41025E+02  -3.49817E+02
+   -1.49250E+02  -1.76934E-02  -7.76346E-03   1.48748E-02   3.01326E-03
+    9.95467E-01   2.16468E-04   1.32209E-04   3.21257E-05   1.82534E+03
+    3.92388E+02  -5.76469E+02  -4.48943E+02  -3.08420E+02  -1.36316E+02
+   -3.31695E+02  -1.44113E+02  -1.00294E-02  -5.59069E-03   1.54972E-02
+    3.18973E-03   9.94947E-01   6.80327E-05   1.40105E-04   3.43643E-05
+    1.59305E+03   3.25803E+02  -6.32208E+02  -4.64919E+02  -2.92677E+02
+   -1.31804E+02  -3.14445E+02  -1.39168E+02  -4.27388E-03  -3.94094E-03
+    1.61080E-02   3.36482E-03   9.94458E-01  -6.95789E-05   1.48457E-04
+    3.67581E-05   1.39130E+03   2.67330E+02  -6.76414E+02  -4.77734E+02
+   -2.77688E+02  -1.27460E+02  -2.97962E+02  -1.34391E+02   2.18497E-04
+   -2.63885E-03   1.67185E-02   3.54176E-03   9.94050E-01  -1.90182E-04
+    1.57278E-04   3.93149E-05   1.21650E+03   2.16095E+02  -7.09695E+02
+   -4.87489E+02  -2.63294E+02  -1.23241E+02  -2.82121E+02  -1.29748E+02
+    3.79128E-03  -1.59164E-03   1.73245E-02   3.71937E-03   9.93648E-01
+   -3.07693E-04   1.66587E-04   4.20435E-05   1.06377E+03   1.70815E+02
+   -7.34553E+02  -4.94858E+02  -2.49623E+02  -1.19188E+02  -2.67063E+02
+   -1.25284E+02   6.70866E-03  -7.26737E-04   1.79322E-02   3.89953E-03
+    9.93290E-01  -4.12835E-04   1.76433E-04   4.49625E-05   9.30116E+02
+    1.30733E+02  -7.51013E+02  -4.99793E+02  -2.36529E+02  -1.15261E+02
+   -2.52647E+02  -1.20961E+02   9.13812E-03   1.83611E-06   1.85389E-02
+    4.08148E-03   9.92956E-01  -5.13337E-04   1.86812E-04   4.80749E-05
+    8.12843E+02   9.51525E+01  -7.60650E+02  -5.02717E+02  -2.24008E+02
+   -1.11462E+02  -2.38873E+02  -1.16781E+02   1.11971E-02   6.26504E-04
+    1.91473E-02   4.26606E-03   9.92659E-01  -6.03021E-04   1.97771E-04
+    5.13999E-05   7.09606E+02   6.34597E+01  -7.64047E+02  -5.03760E+02
+   -2.12040E+02  -1.07788E+02  -2.25732E+02  -1.12747E+02   1.29643E-02
+    1.16905E-03   1.97505E-02   4.45124E-03   9.92387E-01  -6.88058E-04
+    2.09344E-04   5.49527E-05   6.18683E+02   3.52135E+01  -7.62064E+02
+   -5.03145E+02  -2.00569E+02  -1.04224E+02  -2.13157E+02  -1.08840E+02
+    1.45402E-02   1.65863E-03   2.03728E-02   4.64458E-03   9.92127E-01
+   -7.68460E-04   2.21528E-04   5.87378E-05   5.38422E+02   9.97720E+00
+   -7.55604E+02  -5.01113E+02  -1.89610E+02  -1.00779E+02  -2.01168E+02
+   -1.05071E+02   1.59141E-02   2.09063E-03   2.09810E-02   4.83580E-03
+    9.91892E-01  -8.42678E-04   2.34390E-04   6.27819E-05   4.67880E+02
+   -1.24765E+01  -7.44907E+02  -4.97709E+02  -1.79104E+02  -9.74343E+01
+   -1.89704E+02  -1.01422E+02   1.71550E-02   2.48558E-03   2.15959E-02
+    5.03154E-03   9.91675E-01  -9.10710E-04   2.47935E-04   6.70933E-05
+    4.05516E+02  -3.25726E+01  -7.30955E+02  -4.93212E+02  -1.69064E+02
+   -9.41990E+01  -1.78773E+02  -9.78998E+01   1.82859E-02   2.84998E-03
+    2.22138E-02   5.23063E-03   9.91465E-01  -9.80289E-04   2.62220E-04
+    7.16964E-05   3.50477E+02  -5.05312E+01  -7.14267E+02  -4.87767E+02
+   -1.59452E+02  -9.10629E+01  -1.68339E+02  -9.44949E+01   1.93281E-02
+    3.19007E-03   2.28359E-02   5.43364E-03   9.91286E-01  -1.03750E-03
+    2.77261E-04   7.66042E-05   3.02193E+02  -6.64870E+01  -6.94875E+02
+   -4.81358E+02  -1.50261E+02  -8.80259E+01  -1.58387E+02  -9.12063E+01
+    2.02914E-02   3.50839E-03   2.34576E-02   5.63909E-03   9.91106E-01
+   -1.09625E-03   2.93097E-04   8.18373E-05   2.59631E+02  -8.07336E+01
+   -6.73589E+02  -4.74235E+02  -1.41449E+02  -8.50764E+01  -1.48871E+02
+   -8.80213E+01   2.11846E-02   3.80737E-03   2.40750E-02   5.84571E-03
+    9.90939E-01  -1.15037E-03   3.09765E-04   8.74163E-05   2.22350E+02
+   -9.33755E+01  -6.50675E+02  -4.66466E+02  -1.33030E+02  -8.22211E+01
+   -1.39805E+02  -8.49469E+01   2.20416E-02   4.09795E-03   2.47049E-02
+    6.05933E-03   9.90803E-01  -1.19830E-03   3.27297E-04   9.33614E-05
+    1.89842E+02  -1.04544E+02  -6.26378E+02  -4.58117E+02  -1.24975E+02
+   -7.94537E+01  -1.31153E+02  -8.19743E+01   2.28438E-02   4.37356E-03
+    2.53290E-02   6.27374E-03   9.90661E-01  -1.24623E-03   3.45746E-04
+    9.97001E-05   1.61482E+02  -1.14418E+02  -6.01131E+02  -4.49326E+02
+   -1.17276E+02  -7.67732E+01  -1.22908E+02  -7.91034E+01   2.36163E-02
+    4.64258E-03   2.59590E-02   6.49309E-03   9.90537E-01  -1.28954E-03
+    3.65142E-04   1.06454E-04   1.36981E+02  -1.23066E+02  -5.75139E+02
+   -4.40153E+02  -1.09914E+02  -7.41745E+01  -1.15042E+02  -7.63274E+01
+    2.43460E-02   4.90009E-03   2.65824E-02   6.71313E-03   9.90426E-01
+   -1.32973E-03   3.85508E-04   1.13642E-04   1.15873E+02  -1.30619E+02
+   -5.48565E+02  -4.30643E+02  -1.02878E+02  -7.16573E+01  -1.07547E+02
+   -7.36455E+01   2.50561E-02   5.15415E-03   2.72108E-02   6.93798E-03
+    9.90321E-01  -1.36684E-03   4.06924E-04   1.21304E-04   9.78293E+01
+   -1.37164E+02  -5.21630E+02  -4.20871E+02  -9.61506E+01  -6.92164E+01
+   -1.00397E+02  -7.10513E+01   2.57370E-02   5.40121E-03   2.78343E-02
+    7.16416E-03   9.90228E-01  -1.39931E-03   4.29400E-04   1.29459E-04
+    8.26264E+01  -1.42759E+02  -4.94546E+02  -4.10906E+02  -8.97260E+01
+   -6.68525E+01  -9.35864E+01  -6.85455E+01   2.64007E-02   5.64541E-03
+    2.84609E-02   7.39474E-03   9.90141E-01  -1.43332E-03   4.52993E-04
+    1.38139E-04   6.98745E+01  -1.47517E+02  -4.67465E+02  -4.00798E+02
+   -8.35843E+01  -6.45601E+01  -8.70909E+01  -6.61210E+01   2.70396E-02
+    5.88388E-03   2.90807E-02   7.62609E-03   9.90061E-01  -1.46116E-03
+    4.77738E-04   1.47376E-04   5.93961E+01  -1.51487E+02  -4.40501E+02
+   -3.90587E+02  -7.77304E+01  -6.23435E+01  -8.09145E+01  -6.37821E+01
+    2.76617E-02   6.11946E-03   2.96984E-02   7.86000E-03   9.90005E-01
+   -1.48435E-03   5.03704E-04   1.57209E-04   5.08495E+01  -1.54771E+02
+   -4.13816E+02  -3.80332E+02  -7.21382E+01  -6.01943E+01  -7.50281E+01
+   -6.15200E+01   2.82697E-02   6.35311E-03   3.03131E-02   8.09623E-03
+    9.89956E-01  -1.50445E-03   5.30902E-04   1.67661E-04   4.41932E+01
+   -1.57367E+02  -3.87435E+02  -3.70041E+02  -6.67965E+01  -5.81105E+01
+   -6.94157E+01  -5.93306E+01   2.88600E-02   6.58337E-03   3.09222E-02
+    8.33381E-03   9.89894E-01  -1.52610E-03   5.59415E-04   1.78783E-04
+    3.91583E+01  -1.59361E+02  -3.61443E+02  -3.59748E+02  -6.17058E+01
+   -5.60946E+01  -6.40811E+01  -5.72179E+01   2.94383E-02   6.81240E-03
+    3.15271E-02   8.57337E-03   9.89857E-01  -1.54156E-03   5.89261E-04
+    1.90604E-04   3.55452E+01  -1.60815E+02  -3.36000E+02  -3.49515E+02
+   -5.68478E+01  -5.41408E+01  -5.89987E+01  -5.51741E+01   2.99964E-02
+    7.03689E-03   3.21206E-02   8.81209E-03   9.89826E-01  -1.55393E-03
+    6.20495E-04   2.03165E-04   3.32463E+01  -1.61754E+02  -3.11078E+02
+   -3.39334E+02  -5.22166E+01  -5.22487E+01  -5.41633E+01  -5.31987E+01
+    3.05542E-02   7.26476E-03   3.27175E-02   9.05591E-03   9.89801E-01
+   -1.56321E-03   6.53185E-04   2.16519E-04   3.20540E+01  -1.62248E+02
+   -2.86810E+02  -3.29261E+02  -4.78032E+01  -5.04170E+01  -4.95658E+01
+   -5.12904E+01   3.10861E-02   7.48550E-03   3.32952E-02   9.29571E-03
+    9.89789E-01  -1.56939E-03   6.87362E-04   2.30705E-04   3.19212E+01
+   -1.62305E+02  -2.63122E+02  -3.19269E+02  -4.35934E+01  -4.86412E+01
+   -4.51870E+01  -4.94434E+01   3.16121E-02   7.70736E-03   3.38693E-02
+    9.53785E-03   9.89783E-01  -1.57249E-03   7.23074E-04   2.45768E-04
+    3.26589E+01  -1.61988E+02  -2.40146E+02  -3.09418E+02  -3.95866E+01
+   -4.69233E+01  -4.10274E+01  -4.76599E+01   3.21220E-02   7.92595E-03
+    3.44303E-02   9.77839E-03   9.89783E-01  -1.57403E-03   7.60373E-04
+    2.61760E-04   3.42042E+01  -1.61314E+02  -2.17876E+02  -2.99709E+02
+   -3.57708E+01  -4.52598E+01  -3.70719E+01  -4.59355E+01   3.26241E-02
+    8.14488E-03   3.49854E-02   1.00204E-02   9.89783E-01  -1.57094E-03
+    7.99327E-04   2.78743E-04   3.64160E+01  -1.60334E+02  -1.96330E+02
+   -2.90155E+02  -3.21376E+01  -4.36488E+01  -3.33132E+01  -4.42686E+01
+    3.31089E-02   8.35988E-03   3.55240E-02   1.02592E-02   9.89807E-01
+   -1.56321E-03   8.39967E-04   2.96764E-04   3.92486E+01  -1.59056E+02
+   -1.75481E+02  -2.80749E+02  -2.86772E+01  -4.20876E+01  -2.97369E+01
+   -4.26555E+01   3.35862E-02   8.57519E-03   3.60542E-02   1.04984E-02
+    9.89820E-01  -1.55393E-03   8.82333E-04   3.15877E-04   4.25767E+01
+   -1.57528E+02  -1.55401E+02  -2.71531E+02  -2.53899E+01  -4.05782E+01
+   -2.63450E+01  -4.10982E+01   3.40440E-02   8.78540E-03   3.65654E-02
+    1.07331E-02   9.89851E-01  -1.54156E-03   9.26510E-04   3.36160E-04
+    4.63386E+01  -1.55770E+02  -1.36071E+02  -2.62496E+02  -2.22597E+01
+   -3.91153E+01  -2.31218E+01  -3.95915E+01   3.44931E-02   8.99529E-03
+    3.70658E-02   1.09670E-02   9.89894E-01  -1.52300E-03   9.72514E-04
+    3.57662E-04   5.04932E+01  -1.53792E+02  -1.17454E+02  -2.53635E+02
+   -1.92863E+01  -3.76999E+01  -2.00627E+01  -3.81355E+01   3.49287E-02
+    9.20263E-03   3.75509E-02   1.11979E-02   9.89931E-01  -1.50290E-03
+    1.02042E-03   3.80462E-04   5.49407E+01  -1.51636E+02  -9.95915E+01
+   -2.44974E+02  -1.64573E+01  -3.63283E+01  -1.71559E+01  -3.67262E+01
+    3.53513E-02   9.40750E-03   3.80205E-02   1.14256E-02   9.89981E-01
+   -1.47971E-03   1.07024E-03   4.04620E-04   5.96336E+01  -1.49318E+02
+   -8.24712E+01  -2.36515E+02  -1.37716E+01  -3.50013E+01  -1.44012E+01
+   -3.53649E+01   3.57600E-02   9.60947E-03   3.84736E-02   1.16495E-02
+    9.90033E-01  -1.45188E-03   1.12207E-03   4.30229E-04   6.45308E+01
+   -1.46850E+02  -6.60492E+01  -2.28242E+02  -1.12205E+01  -3.37163E+01
+   -1.17863E+01  -3.40479E+01   3.61528E-02   9.80734E-03   3.89067E-02
+    1.18676E-02   9.90095E-01  -1.42250E-03   1.17591E-03   4.57349E-04
+    6.95741E+01  -1.44260E+02  -5.03637E+01  -2.20185E+02  -8.79868E+00
+   -3.24723E+01  -9.30812E+00  -3.27748E+01   3.65345E-02   1.00034E-02
+    3.93257E-02   1.20828E-02   9.90163E-01  -1.38695E-03   1.23185E-03
+    4.86082E-04   7.47352E+01  -1.41555E+02  -3.53521E+01  -2.12320E+02
+   -6.50066E+00  -3.12680E+01  -6.95784E+00  -3.15433E+01   3.68992E-02
+    1.01946E-02   3.97233E-02   1.22912E-02   9.90237E-01  -1.34828E-03
+    1.28989E-03   5.16496E-04   7.99633E+01  -1.38759E+02  -2.10342E+01
+   -2.04661E+02  -4.31965E+00  -3.01015E+01  -4.73072E+00  -3.03521E+01
+    3.72478E-02   1.03809E-02   4.01002E-02   1.24928E-02   9.90312E-01
+   -1.30808E-03   1.35009E-03   5.48699E-04   8.52357E+01  -1.35880E+02
+   -7.38137E+00  -1.97206E+02  -2.25324E+00  -2.89730E+01  -2.62275E+00
+   -2.92008E+01   3.75910E-02   1.05684E-02   4.04671E-02   1.26931E-02
+    9.90404E-01  -1.25860E-03   1.41252E-03   5.82790E-04   9.05129E+01
+   -1.32936E+02   5.61757E+00  -1.89953E+02  -2.94495E-01  -2.78803E+01
+   -6.26000E-01  -2.80870E+01   3.79075E-02   1.07450E-02   4.08032E-02
+    1.28806E-02   9.90485E-01  -1.21376E-03   1.47718E-03   6.18858E-04
+    9.57805E+01  -1.29932E+02   1.80038E+01  -1.82892E+02   1.56233E+00
+   -2.68217E+01   1.26486E+00  -2.70089E+01   3.82176E-02   1.09218E-02
+    4.11271E-02   1.30653E-02   9.90581E-01  -1.15810E-03   1.54411E-03
+    6.57017E-04   1.00990E+02  -1.26896E+02   2.97472E+01  -1.76046E+02
+    3.31960E+00  -2.57974E+01   3.05261E+00  -2.59669E+01   3.84957E-02
+    1.10839E-02   4.14151E-02   1.32332E-02   9.90676E-01  -1.10398E-03
+    1.61337E-03   6.97395E-04   1.06156E+02  -1.23815E+02   4.09253E+01
+   -1.69380E+02   4.98326E+00  -2.48053E+01   4.74378E+00  -2.49583E+01
+    3.87706E-02   1.12478E-02   4.16940E-02   1.33995E-02   9.90779E-01
+   -1.04214E-03   1.68496E-03   7.40085E-04   1.11240E+02  -1.20712E+02
+    5.15176E+01  -1.62915E+02   6.55647E+00  -2.38451E+01   6.34134E+00
+   -2.39833E+01   3.90478E-02   1.14169E-02   4.19698E-02   1.35678E-02
+    9.90877E-01  -9.80289E-04   1.75895E-03   7.85241E-04   1.16219E+02
+   -1.17600E+02   6.15550E+01  -1.56641E+02   8.04418E+00  -2.29152E+01
+    7.85122E+00  -2.30395E+01   3.92819E-02   1.15633E-02   4.21981E-02
+    1.37106E-02   9.90986E-01  -9.13803E-04   1.83532E-03   8.32982E-04
+    1.21098E+02  -1.14475E+02   7.10588E+01  -1.50554E+02   9.44976E+00
+   -2.20148E+01   9.27679E+00  -2.21264E+01   3.95145E-02   1.17123E-02
+    4.24202E-02   1.38528E-02   9.91097E-01  -8.42678E-04   1.91412E-03
+    8.83451E-04   1.25844E+02  -1.11359E+02   8.00358E+01  -1.44659E+02
+    1.07777E+01  -2.11427E+01   1.06222E+01  -2.12430E+01   3.97118E-02
+    1.18418E-02   4.26022E-02   1.39723E-02   9.91208E-01  -7.70011E-04
+    1.99537E-03   9.36808E-04   1.30470E+02  -1.08241E+02   8.85282E+01
+   -1.38937E+02   1.20302E+01  -2.02989E+01   1.18905E+01  -2.03883E+01
+    3.99114E-02   1.19764E-02   4.27818E-02   1.40933E-02   9.91320E-01
+   -6.92696E-04   2.07906E-03   9.93198E-04   1.34952E+02  -1.05141E+02
+    9.65342E+01  -1.33399E+02   1.32126E+01  -1.94810E+01   1.30872E+01
+   -1.95606E+01   4.00941E-02   1.21027E-02   4.29401E-02   1.42029E-02
+    9.91434E-01  -6.15387E-04   2.16522E-03   1.05280E-03   1.39288E+02
+   -1.02059E+02   1.04090E+02  -1.28029E+02   1.43265E+01  -1.86893E+01
+    1.42133E+01  -1.87602E+01   4.02560E-02   1.22178E-02   4.30730E-02
+    1.42973E-02   9.91552E-01  -5.33438E-04   2.25385E-03   1.11579E-03
+    1.43469E+02  -9.90041E+01   1.11196E+02  -1.22837E+02   1.53753E+01
+   -1.79230E+01   1.52735E+01  -1.79856E+01   4.04048E-02   1.23265E-02
+    4.31894E-02   1.43823E-02   9.91669E-01  -4.46851E-04   2.34496E-03
+    1.18236E-03   1.47501E+02  -9.59729E+01   1.17885E+02  -1.17807E+02
+    1.63630E+01  -1.71804E+01   1.62710E+01  -1.72355E+01   4.05363E-02
+    1.24254E-02   4.32848E-02   1.44541E-02   9.91780E-01  -3.61810E-04
+    2.43851E-03   1.25270E-03   1.51368E+02  -9.29781E+01   1.24165E+02
+   -1.12944E+02   1.72918E+01  -1.64611E+01   1.72087E+01  -1.65094E+01
+    4.06560E-02   1.25181E-02   4.33651E-02   1.45162E-02   9.91895E-01
+   -2.72131E-04   2.53452E-03   1.32704E-03   1.55075E+02  -9.00197E+01
+    1.30061E+02  -1.08238E+02   1.81639E+01  -1.57651E+01   1.80887E+01
+   -1.58070E+01   4.07560E-02   1.25979E-02   4.34224E-02   1.45620E-02
+    9.92012E-01  -1.79359E-04   2.63293E-03   1.40559E-03   1.58621E+02
+   -8.70993E+01   1.35589E+02  -1.03687E+02   1.89831E+01  -1.50904E+01
+    1.89149E+01  -1.51267E+01   4.08495E-02   1.26748E-02   4.34706E-02
+    1.46017E-02   9.92124E-01  -8.65870E-05   2.73374E-03   1.48860E-03
+    1.62003E+02  -8.42232E+01   1.40758E+02  -9.92899E+01   1.97510E+01
+   -1.44373E+01   1.96889E+01  -1.44684E+01   4.09216E-02   1.27362E-02
+    4.34954E-02   1.46228E-02   9.92244E-01   1.23696E-05   2.83691E-03
+    1.57635E-03   1.65222E+02  -8.13919E+01   1.45591E+02  -9.50401E+01
+    2.04706E+01  -1.38046E+01   2.04137E+01  -1.38311E+01   4.09827E-02
+    1.27900E-02   4.35072E-02   1.46332E-02   9.92349E-01   1.05142E-04
+    2.94238E-03   1.66909E-03   1.68278E+02  -7.86107E+01   1.50103E+02
+   -9.09332E+01   2.11439E+01  -1.31918E+01   2.10918E+01  -1.32139E+01
+    4.10307E-02   1.28336E-02   4.35039E-02   1.46301E-02   9.92455E-01
+    2.04098E-04   3.05006E-03   1.76710E-03   1.71176E+02  -7.58772E+01
+    1.54308E+02  -8.69674E+01   2.17730E+01  -1.25984E+01   2.17252E+01
+   -1.26164E+01   4.10673E-02   1.28682E-02   4.34884E-02   1.46155E-02
+    9.92563E-01   3.04601E-04   3.15993E-03   1.87074E-03   1.73916E+02
+   -7.31951E+01   1.58218E+02  -8.31402E+01   2.23603E+01  -1.20234E+01
+    2.23161E+01  -1.20380E+01   4.10898E-02   1.28902E-02   4.34581E-02
+    1.45859E-02   9.92663E-01   4.03557E-04   3.27185E-03   1.98029E-03
+    1.76497E+02  -7.05691E+01   1.61852E+02  -7.94432E+01   2.29080E+01
+   -1.14664E+01   2.28669E+01  -1.14778E+01   4.11029E-02   1.29035E-02
+    4.34175E-02   1.45445E-02   9.92762E-01   5.04060E-04   3.38576E-03
+    2.09617E-03   1.78929E+02  -6.79951E+01   1.65220E+02  -7.58780E+01
+    2.34169E+01  -1.09275E+01   2.33787E+01  -1.09358E+01   4.11027E-02
+    1.29033E-02   4.33638E-02   1.44877E-02   9.92860E-01   6.07656E-04
+    3.50148E-03   2.21869E-03   1.81210E+02  -6.54772E+01   1.68337E+02
+   -7.24362E+01   2.38906E+01  -1.04046E+01   2.38547E+01  -1.04104E+01
+    4.10961E-02   1.28960E-02   4.33038E-02   1.44215E-02   9.92948E-01
+    7.03520E-04   3.61892E-03   2.34831E-03   1.83344E+02  -6.30168E+01
+    1.71216E+02  -6.91176E+01   2.43290E+01  -9.89923E+00   2.42953E+01
+   -9.90249E+00   4.10771E-02   1.28740E-02   4.32319E-02   1.43386E-02
+    9.93037E-01   8.07115E-04   3.73786E-03   2.48545E-03   1.85335E+02
+   -6.06149E+01   1.73865E+02  -6.59213E+01   2.44848E+01  -9.71121E+00
+    2.44529E+01  -9.71230E+00   4.10512E-02   1.28429E-02   4.31543E-02
+    1.42450E-02   9.93119E-01   9.06072E-04   3.85816E-03   2.63058E-03
+    1.87188E+02  -5.82696E+01   1.76303E+02  -6.28375E+01   2.45123E+01
+   -9.67642E+00   2.44819E+01  -9.67568E+00   4.10162E-02   1.27986E-02
+    4.30684E-02   1.41363E-02   9.93198E-01   1.00503E-03   3.97958E-03
+    2.78422E-03   1.88908E+02  -5.59825E+01   1.78536E+02  -5.98664E+01
+    2.48546E+01  -9.22112E+00   2.48255E+01  -9.21850E+00   4.09750E-02
+    1.27437E-02   4.29779E-02   1.40159E-02   9.93272E-01   1.10398E-03
+    4.10183E-03   2.94685E-03   1.90496E+02  -5.37556E+01   1.80575E+02
+   -5.70073E+01   2.51687E+01  -8.78072E+00   2.51407E+01  -8.77657E+00
+    4.09267E-02   1.26761E-02   4.28823E-02   1.38818E-02   9.93342E-01
+    1.20140E-03   4.22471E-03   3.11914E-03   1.91958E+02  -5.15877E+01
+    1.82434E+02  -5.42524E+01   2.54560E+01  -8.35491E+00   2.54289E+01
+   -8.34942E+00   4.08738E-02   1.25975E-02   4.27835E-02   1.37354E-02
+    9.93405E-01   1.29571E-03   4.34781E-03   3.30160E-03   1.93301E+02
+   -4.94763E+01   1.84121E+02  -5.15999E+01   2.57173E+01  -7.94399E+00
+    2.56912E+01  -7.93711E+00   4.08160E-02   1.25067E-02   4.26823E-02
+    1.35764E-02   9.93464E-01   1.38849E-03   4.47080E-03   3.49494E-03
+    1.94525E+02  -4.74288E+01   1.85644E+02  -4.90517E+01   2.59546E+01
+   -7.54698E+00   2.59290E+01  -7.53911E+00   4.07549E-02   1.24045E-02
+    4.25800E-02   1.34052E-02   9.93518E-01   1.48125E-03   4.59328E-03
+    3.69992E-03   1.95639E+02  -4.54352E+01   1.87015E+02  -4.65982E+01
+    2.61690E+01  -7.16342E+00   2.61440E+01  -7.15446E+00   4.06900E-02
+    1.22883E-02   4.24766E-02   1.32201E-02   9.93569E-01   1.56940E-03
+    4.71477E-03   3.91724E-03   1.96644E+02  -4.35044E+01   1.88242E+02
+   -4.42402E+01   2.63616E+01  -6.79346E+00   2.63370E+01  -6.78367E+00
+    4.06238E-02   1.21613E-02   4.23743E-02   1.30235E-02   9.93613E-01
+    1.65599E-03   4.83472E-03   4.14771E-03   1.97547E+02  -4.16308E+01
+    1.89334E+02  -4.19756E+01   2.65338E+01  -6.43610E+00   2.65096E+01
+   -6.42556E+00   4.05566E-02   1.20218E-02   4.22738E-02   1.28150E-02
+    9.93654E-01   1.73946E-03   4.95255E-03   4.39224E-03   1.98353E+02
+   -3.98141E+01   1.90298E+02  -3.98006E+01   2.66866E+01  -6.09136E+00
+    2.66627E+01  -6.08018E+00   4.04887E-02   1.18686E-02   4.21754E-02
+    1.25930E-02   9.93690E-01   1.82143E-03   5.06760E-03   4.65173E-03
+    1.99064E+02  -3.80561E+01   1.91144E+02  -3.77098E+01   2.68211E+01
+   -5.75899E+00   2.67975E+01  -5.74722E+00   4.04218E-02   1.17033E-02
+    4.20806E-02   1.23589E-02   9.93720E-01   1.89717E-03   5.17913E-03
+    4.92725E-03   1.99687E+02  -3.63565E+01   1.91878E+02  -3.57073E+01
+    2.69386E+01  -5.43834E+00   2.69152E+01  -5.42597E+00   4.03575E-02
+    1.15278E-02   4.19915E-02   1.21157E-02   9.93748E-01   1.97141E-03
+    5.28628E-03   5.21979E-03   2.00226E+02  -3.47126E+01   1.92507E+02
+   -3.37860E+01   2.70399E+01  -5.12924E+00   2.70165E+01  -5.11662E+00
+    4.02947E-02   1.13361E-02   4.19067E-02   1.18567E-02   9.93771E-01
+    2.04251E-03   5.38814E-03   5.53063E-03   2.00685E+02  -3.31245E+01
+    1.93040E+02  -3.19450E+01   2.71260E+01  -4.83159E+00   2.71027E+01
+   -4.81848E+00   4.02364E-02   1.11345E-02   4.18294E-02   1.15894E-02
+    9.93791E-01   2.11057E-03   5.48364E-03   5.86087E-03   2.01069E+02
+   -3.15907E+01   1.93482E+02  -3.01804E+01   2.71978E+01  -4.54485E+00
+    2.71746E+01  -4.53154E+00   4.01821E-02   1.09177E-02   4.17587E-02
+    1.13076E-02   9.93806E-01   2.17239E-03   5.57163E-03   6.21199E-03
+    2.01382E+02  -3.01151E+01   1.93840E+02  -2.84937E+01   2.72564E+01
+   -4.26877E+00   2.72332E+01  -4.25521E+00   4.01335E-02   1.06886E-02
+    4.16966E-02   1.10146E-02   9.93820E-01   2.23427E-03   5.65079E-03
+    6.58527E-03   2.01629E+02  -2.86901E+01   1.94120E+02  -2.68780E+01
+    2.73024E+01  -4.00327E+00   2.72794E+01  -3.98951E+00   4.00914E-02
+    1.04460E-02   4.16437E-02   1.07097E-02   9.93829E-01   2.28836E-03
+    5.71969E-03   6.98237E-03   2.01814E+02  -2.73197E+01   1.94328E+02
+   -2.53346E+01   2.73369E+01  -3.74771E+00   2.73139E+01  -3.73380E+00
+    4.00568E-02   1.01900E-02   4.16009E-02   1.03926E-02   9.93836E-01
+    2.34250E-03   5.77672E-03   7.40495E-03   2.01941E+02  -2.60036E+01
+    1.94470E+02  -2.38614E+01   2.73606E+01  -3.50205E+00   2.73376E+01
+   -3.48804E+00   4.00305E-02   9.91718E-03   4.15688E-02   1.00600E-02
+    9.93840E-01   2.38580E-03   5.82008E-03   7.85463E-03   2.02015E+02
+   -2.47350E+01   1.94552E+02  -2.24543E+01   2.73743E+01  -3.26624E+00
+    2.73512E+01  -3.25224E+00   4.00147E-02   9.64386E-03   4.15497E-02
+    9.72977E-03   9.93843E-01   2.43215E-03   5.84779E-03   8.33349E-03
+    2.02038E+02  -2.35202E+01   1.94578E+02  -2.11119E+01   2.73786E+01
+   -3.03942E+00   2.73556E+01  -3.02542E+00   4.00090E-02   9.34721E-03
+    4.15429E-02   9.37688E-03   9.93844E-01   2.47084E-03   5.85764E-03
+    8.84343E-03   2.02018E+02  -2.24796E+01   1.94556E+02  -1.99590E+01
+    2.73745E+01  -2.82218E+00   2.73514E+01  -2.80803E+00   4.00265E-02
+    8.43639E-03   4.15619E-02   8.39010E-03   9.93843E-01   2.50173E-03
+    5.84719E-03   9.38675E-03   2.01954E+02  -2.13779E+01   1.94486E+02
+   -1.87571E+01   2.73624E+01  -2.61346E+00   2.73394E+01  -2.59951E+00
+    4.00496E-02   8.03699E-03   4.15881E-02   7.93610E-03   9.93841E-01
+    2.53114E-03   5.81374E-03   9.96567E-03   2.01852E+02  -2.03204E+01
+    1.94376E+02  -1.76130E+01   2.73431E+01  -2.41349E+00   2.73201E+01
+   -2.39958E+00   4.00873E-02   7.64503E-03   4.16308E-02   7.49283E-03
+    9.93839E-01   2.56049E-03   5.75428E-03   1.05829E-02   2.01715E+02
+   -1.93038E+01   1.94228E+02  -1.65183E+01   2.73173E+01  -2.22194E+00
+    2.72943E+01  -2.20813E+00   4.01392E-02   7.26079E-03   4.16893E-02
+    7.05950E-03   9.93836E-01   2.58217E-03   5.66553E-03   1.12409E-02
+    2.01548E+02  -1.83365E+01   1.94049E+02  -1.54858E+01   2.72855E+01
+   -2.03864E+00   2.72625E+01  -2.02489E+00   4.02115E-02   6.84343E-03
+    4.17698E-02   6.59507E-03   9.93833E-01   2.60069E-03   5.54382E-03
+    1.19427E-02   2.01353E+02  -1.74204E+01   1.93843E+02  -1.45111E+01
+    2.72483E+01  -1.86322E+00   2.72253E+01  -1.84966E+00   4.03061E-02
+    6.39714E-03   4.18742E-02   6.10288E-03   9.93829E-01   2.61618E-03
+    5.38509E-03   1.26915E-02   2.01134E+02  -1.65435E+01   1.93611E+02
+   -1.35847E+01   2.72063E+01  -1.69536E+00   2.71833E+01  -1.68191E+00
+    4.04196E-02   5.94413E-03   4.19985E-02   5.60638E-03   9.93826E-01
+    2.62697E-03   5.18494E-03   1.34904E-02   2.00894E+02  -1.57128E+01
+    1.93359E+02  -1.27148E+01   2.71600E+01  -1.53537E+00   2.71371E+01
+   -1.52211E+00   4.05560E-02   5.47222E-03   4.21468E-02   5.09359E-03
+    9.93824E-01   2.63164E-03   4.93842E-03   1.43432E-02   2.00635E+02
+   -1.49235E+01   1.93090E+02  -1.18931E+01   2.71099E+01  -1.38228E+00
+    2.70870E+01  -1.36922E+00   4.07186E-02   4.97618E-03   4.23221E-02
+    4.55822E-03   9.93823E-01   2.63783E-03   4.64011E-03   1.52537E-02
+    2.00362E+02  -1.41784E+01   1.92807E+02  -1.11211E+01   2.70565E+01
+   -1.23660E+00   2.70337E+01  -1.22369E+00   4.09067E-02   4.46249E-03
+    4.25239E-02   4.00724E-03   9.93824E-01   2.63625E-03   4.28411E-03
+    1.62259E-02   2.00005E+02  -1.32971E+01   1.92443E+02  -1.02211E+01
+    2.70003E+01  -1.09773E+00   2.69776E+01  -1.08502E+00   4.07729E-02
+    4.79285E-03   4.23935E-02   4.32967E-03   9.93822E-01   2.63938E-03
+    3.86379E-03   1.72644E-02   1.99592E+02  -1.23655E+01   1.92024E+02
+   -9.27614E+00   2.69415E+01  -9.65118E-01   2.69190E+01  -9.52650E-01
+    4.04372E-02   5.55043E-03   4.20547E-02   5.09382E-03   9.93823E-01
+    2.63780E-03   3.37202E-03   1.83739E-02   1.99280E+02  -1.17173E+01
+    1.91708E+02  -8.62076E+00   2.68811E+01  -8.39652E-01   2.68586E+01
+   -8.27381E-01   4.06537E-02   5.10103E-03   4.22855E-02   4.61475E-03
+    9.93828E-01   2.63010E-03   2.80070E-03   1.95596E-02   1.98961E+02
+   -1.11037E+01   1.91387E+02  -8.00277E+00   2.68188E+01  -7.19954E-01
+    2.67964E+01  -7.07832E-01   4.08962E-02   4.63499E-03   4.25428E-02
+    4.12030E-03   9.93835E-01   2.61460E-03   2.14134E-03   2.08267E-02
+    1.98639E+02  -1.05271E+01   1.91067E+02  -7.43090E+00   2.67554E+01
+   -6.06509E-01   2.67331E+01  -5.94733E-01   4.11705E-02   4.14432E-03
+    4.28313E-02   3.60411E-03   9.93843E-01   2.60227E-03   1.38427E-03
+    2.21812E-02   1.98314E+02  -9.98347E+00   1.90746E+02  -6.89407E+00
+    2.66911E+01  -4.98936E-01   2.66690E+01  -4.87358E-01   4.14650E-02
+    3.65123E-03   4.31404E-02   3.08687E-03   9.93854E-01   2.58213E-03
+    5.18818E-04   2.36297E-02   1.97992E+02  -9.47733E+00   1.90431E+02
+   -6.39857E+00   2.66263E+01  -3.97016E-01   2.66043E+01  -3.85636E-01
+    4.18025E-02   3.12063E-03   4.34923E-02   2.53346E-03   9.93865E-01
+    2.56361E-03  -4.66278E-04   2.51786E-02   1.97673E+02  -9.00500E+00
+    1.90122E+02  -5.94013E+00   2.65613E+01  -3.00628E-01   2.65395E+01
+   -2.89545E-01   4.21710E-02   2.57440E-03   4.38750E-02   1.96617E-03
+    9.93883E-01   2.53884E-03  -1.58383E-03   2.68352E-02   1.96940E+02
+   -7.97595E+00   1.89401E+02  -4.92926E+00   2.64962E+01  -2.09394E-01
+    2.64745E+01  -1.98459E-01   4.04776E-02   4.94902E-03   4.21390E-02
+    4.40060E-03   9.93891E-01   2.52650E-03  -2.84792E-03   2.86079E-02
+    1.96591E+02  -7.51244E+00   1.89069E+02  -4.48791E+00   2.64314E+01
+   -1.23202E-01   2.64100E+01  -1.12613E-01   4.07129E-02   4.63601E-03
+    4.23845E-02   4.07387E-03   9.93911E-01   2.50022E-03  -4.27328E-03
+    3.05041E-02   1.96262E+02  -7.09594E+00   1.88759E+02  -4.09480E+00
+    2.63674E+01  -4.21553E-02   2.63460E+01  -3.17154E-02   4.10318E-02
+    4.23250E-03   4.27150E-02   3.65567E-03   9.93933E-01   2.47235E-03
+   -5.87701E-03   3.25336E-02   1.95941E+02  -6.70851E+00   1.88461E+02
+   -3.73544E+00   2.63042E+01   3.40413E-02   2.62832E+01   4.41844E-02
+    4.13946E-02   3.79468E-03   4.30889E-02   3.20461E-03   9.93960E-01
+    2.43991E-03  -7.67726E-03   3.47059E-02   1.95631E+02  -6.35179E+00
+    1.88177E+02  -3.40765E+00   2.62421E+01   1.05685E-01   2.62212E+01
+    1.15581E-01   4.17931E-02   3.33532E-03   4.34983E-02   2.73250E-03
+    9.93985E-01   2.40896E-03  -9.69392E-03   3.70311E-02   1.95215E+02
+   -5.89152E+00   1.87787E+02  -2.97822E+00   2.61810E+01   1.73175E-01
+    2.61603E+01   1.82823E-01   4.16337E-02   3.51115E-03   4.33351E-02
+    2.91276E-03   9.94018E-01   2.37497E-03  -1.19492E-02   3.95207E-02
+    1.94283E+02  -4.90466E+00   1.86888E+02  -2.02622E+00   2.61211E+01
+    2.36505E-01   2.61007E+01   2.45955E-01   3.88567E-02   6.45166E-03
+    4.04916E-02   5.92364E-03   9.94033E-01   2.35794E-03  -1.44667E-02
+    4.21863E-02   1.93963E+02  -4.58014E+00   1.86603E+02  -1.73611E+00
+    2.60632E+01   2.95437E-01   2.60431E+01   3.04640E-01   3.91287E-02
+    6.17497E-03   4.07715E-02   5.63882E-03   9.94075E-01   2.31622E-03
+   -1.72730E-02   4.50413E-02   1.93655E+02  -4.27846E+00   1.86333E+02
+   -1.47207E+00   2.60069E+01   3.50601E-01   2.59870E+01   3.59507E-01
+    3.94254E-02   5.88450E-03   4.10752E-02   5.34160E-03   9.94106E-01
+    2.28372E-03  -2.03967E-02   4.80992E-02   1.93356E+02  -3.99589E+00
+    1.86075E+02  -1.22826E+00   2.59524E+01   4.02014E-01   2.59327E+01
+    4.10771E-01   3.97384E-02   5.58925E-03   4.13944E-02   5.04044E-03
+    9.94149E-01   2.24200E-03  -2.38688E-02   5.13746E-02   1.93356E+02
+   -3.99589E+00   1.86075E+02  -1.22826E+00   2.59524E+01   4.02014E-01
+    2.59327E+01   4.10771E-01   3.97384E-02   5.58925E-03   4.13944E-02
+    5.04044E-03   9.94149E-01   2.24200E-03  -2.38688E-02   5.13746E-02
+ ECHO READ:EBINDA(IM),$LGN(GE(IM)/0,1/)
+    1.56000E-03   1.69413E+02   2.69387E+01
+ ECHO READ:($LGN(GMFP,GBR1,GBR2(I,IM)/0,1/),I=1,NGE)
+    3.29480E-04   5.00737E-05   0.00000E+00   0.00000E+00   1.69154E-02
+    2.72188E-03   3.29480E-04   5.00737E-05   0.00000E+00   0.00000E+00
+    1.69154E-02   2.72188E-03   3.61130E-04   5.51972E-05   0.00000E+00
+    0.00000E+00   7.08556E-03   1.13064E-03   3.95886E-04   6.08575E-05
+    0.00000E+00   0.00000E+00  -4.67774E-03  -7.85092E-04   4.33526E-04
+    6.70248E-05   0.00000E+00   0.00000E+00   1.26673E-03   1.88893E-04
+    4.75087E-04   7.38760E-05   0.00000E+00   0.00000E+00  -5.65203E-03
+   -9.51664E-04   5.19959E-04   8.13187E-05   0.00000E+00   0.00000E+00
+    8.31534E-03   1.36503E-03   5.69755E-04   8.96293E-05   0.00000E+00
+    0.00000E+00   1.49024E-03   2.25975E-04   6.23725E-04   9.86927E-05
+    0.00000E+00   0.00000E+00   9.78023E-03   1.61814E-03   6.83806E-04
+    1.08846E-04   0.00000E+00   0.00000E+00  -6.44430E-03  -1.12359E-03
+    7.48332E-04   1.19818E-04   0.00000E+00   0.00000E+00   6.31950E-03
+    1.04694E-03   8.23362E-04   1.32659E-04   0.00000E+00   0.00000E+00
+    2.17269E-03   3.37279E-04   9.49059E-04   1.54307E-04   0.00000E+00
+    0.00000E+00   7.58980E-03   1.27026E-03   1.04537E-03   1.71002E-04
+    0.00000E+00   0.00000E+00   3.00537E-03   4.75610E-04   1.15027E-03
+    1.89303E-04   0.00000E+00   0.00000E+00   1.46893E-02   2.51397E-03
+    1.26782E-03   2.09943E-04   0.00000E+00   0.00000E+00  -1.86800E-03
+   -3.93418E-04   1.39547E-03   2.32504E-04   0.00000E+00   0.00000E+00
+    4.03999E-03   6.50803E-04   1.53579E-03   2.57470E-04   0.00000E+00
+    0.00000E+00   1.11451E-02   1.91491E-03   1.69063E-03   2.85201E-04
+    0.00000E+00   0.00000E+00   1.23253E-02   2.12628E-03   1.88376E-03
+    3.20021E-04   0.00000E+00   0.00000E+00  -1.72373E-03  -4.06710E-04
+    2.12151E-03   3.63176E-04   0.00000E+00   0.00000E+00   1.41998E-02
+    2.48358E-03   2.34396E-03   4.03827E-04   0.00000E+00   0.00000E+00
+    1.13785E-02   1.96801E-03   2.58905E-03   4.48921E-04   0.00000E+00
+    0.00000E+00   1.24490E-02   2.16498E-03   2.85962E-03   4.99046E-04
+    0.00000E+00   0.00000E+00   1.36095E-02   2.37997E-03   3.15723E-03
+    5.54561E-04   0.00000E+00   0.00000E+00   2.01274E-02   3.59581E-03
+    3.49161E-03   6.17372E-04   0.00000E+00   0.00000E+00   1.10540E-02
+    1.89146E-03   3.86281E-03   6.87587E-04   0.00000E+00   0.00000E+00
+    1.17947E-02   2.03158E-03   4.26518E-03   7.64237E-04   0.00000E+00
+    0.00000E+00   1.88902E-02   3.38324E-03   4.70961E-03   8.49502E-04
+    0.00000E+00   0.00000E+00   2.39661E-02   4.35707E-03   5.20220E-03
+    9.44685E-04   0.00000E+00   0.00000E+00   2.27079E-02   4.11394E-03
+    5.78717E-03   1.05853E-03   0.00000E+00   0.00000E+00   2.49132E-02
+    4.54315E-03   6.46440E-03   1.19130E-03   0.00000E+00   0.00000E+00
+    2.74394E-02   5.03839E-03   7.14719E-03   1.32614E-03   0.00000E+00
+    0.00000E+00   3.85607E-02   7.23461E-03   7.91001E-03   1.47789E-03
+    0.00000E+00   0.00000E+00   3.32626E-02   6.18062E-03   8.74616E-03
+    1.64547E-03   0.00000E+00   0.00000E+00   4.11053E-02   7.75243E-03
+    9.67593E-03   1.83320E-03   0.00000E+00   0.00000E+00   3.97559E-02
+    7.47996E-03   1.06963E-02   2.04080E-03   0.00000E+00   0.00000E+00
+    4.87788E-02   9.31562E-03   1.18265E-02   2.27248E-03   0.00000E+00
+    0.00000E+00   5.33135E-02   1.02452E-02   1.28751E-02   2.48908E-03
+    0.00000E+00   0.00000E+00   5.41636E-02   1.04208E-02   1.40849E-02
+    2.74092E-03   0.00000E+00   0.00000E+00   6.50151E-02   1.26796E-02
+    1.55350E-02   3.04511E-03   0.00000E+00   0.00000E+00   6.37777E-02
+    1.24201E-02   1.71064E-02   3.37734E-03   0.00000E+00   0.00000E+00
+    8.42178E-02   1.67417E-02   1.88725E-02   3.75370E-03   0.00000E+00
+    0.00000E+00   7.60577E-02   1.50027E-02   2.07788E-02   4.16318E-03
+    0.00000E+00   0.00000E+00   9.50687E-02   1.90863E-02   2.41194E-02
+    4.88650E-03   0.00000E+00   0.00000E+00   1.09055E-01   2.21146E-02
+    2.74712E-02   5.61815E-03   0.00000E+00   0.00000E+00   1.22818E-01
+    2.51190E-02   3.05282E-02   6.29087E-03   0.00000E+00   0.00000E+00
+    1.29677E-01   2.66282E-02   3.38809E-02   7.03475E-03   0.00000E+00
+    0.00000E+00   1.53050E-01   3.18142E-02   3.76384E-02   7.87538E-03
+    0.00000E+00   0.00000E+00   1.59209E-01   3.31920E-02   4.17513E-02
+    8.80321E-03   0.00000E+00   0.00000E+00   1.83680E-01   3.87125E-02
+    4.63353E-02   9.84606E-03   0.00000E+00   0.00000E+00   1.97983E-01
+    4.19664E-02   5.13666E-02   1.10004E-02   0.00000E+00   0.00000E+00
+    2.23853E-01   4.79018E-02   5.69134E-02   1.22840E-02   0.00000E+00
+    0.00000E+00   2.52840E-01   5.46095E-02   6.30998E-02   1.37279E-02
+    0.00000E+00   0.00000E+00   2.68812E-01   5.83377E-02   6.98216E-02
+    1.53106E-02   0.00000E+00   0.00000E+00   3.06867E-01   6.72977E-02
+    7.65787E-02   1.69156E-02   0.00000E+00   0.00000E+00   3.27849E-01
+    7.22816E-02   8.42871E-02   1.87628E-02   0.00000E+00   0.00000E+00
+    3.61157E-01   8.02635E-02   9.30116E-02   2.08723E-02   0.00000E+00
+    0.00000E+00   3.98788E-01   8.93623E-02   1.02557E-01   2.32011E-02
+    0.00000E+00   0.00000E+00   4.39835E-01   9.93768E-02   1.13015E-01
+    2.57760E-02   0.00000E+00   0.00000E+00   4.81568E-01   1.09652E-01
+    1.24432E-01   2.86129E-02   0.00000E+00   0.00000E+00   5.26560E-01
+    1.20832E-01   1.36794E-01   3.17134E-02   0.00000E+00   0.00000E+00
+    5.81579E-01   1.34630E-01   1.50347E-01   3.51444E-02   0.00000E+00
+    0.00000E+00   6.30885E-01   1.47112E-01   1.70238E-01   4.02275E-02
+    0.00000E+00   0.00000E+00   7.17202E-01   1.69170E-01   1.87371E-01
+    4.46477E-02   0.00000E+00   0.00000E+00   7.83279E-01   1.86219E-01
+    2.05684E-01   4.94182E-02   0.00000E+00   0.00000E+00   8.57210E-01
+    2.05477E-01   2.25360E-01   5.45939E-02   0.00000E+00   0.00000E+00
+    9.38370E-01   2.26825E-01   2.46451E-01   6.01963E-02   0.00000E+00
+    0.00000E+00   1.02493E+00   2.49820E-01   2.69152E-01   6.62865E-02
+    0.00000E+00   0.00000E+00   1.10958E+00   2.72528E-01   2.93123E-01
+    7.27820E-02   0.00000E+00   0.00000E+00   1.20565E+00   2.98562E-01
+    3.18635E-01   7.97655E-02   0.00000E+00   0.00000E+00   1.30117E+00
+    3.24707E-01   3.45317E-01   8.71442E-02   0.00000E+00   0.00000E+00
+    1.40558E+00   3.53580E-01   3.73184E-01   9.49302E-02   0.00000E+00
+    0.00000E+00   1.51352E+00   3.83741E-01   4.02419E-01   1.03184E-01
+    0.00000E+00   0.00000E+00   1.61857E+00   4.13399E-01   4.32920E-01
+    1.11887E-01   0.00000E+00   0.00000E+00   1.74063E+00   4.48227E-01
+    4.63728E-01   1.20772E-01   0.00000E+00   0.00000E+00   1.84966E+00
+    4.79670E-01   4.94683E-01   1.29795E-01   0.00000E+00   0.00000E+00
+    1.96231E+00   5.12506E-01   5.25683E-01   1.38931E-01   0.00000E+00
+    0.00000E+00   2.07282E+00   5.45073E-01   5.56528E-01   1.48121E-01
+    0.00000E+00   0.00000E+00   2.17804E+00   5.76424E-01   5.86277E-01
+    1.57084E-01   0.00000E+00   0.00000E+00   2.28274E+00   6.07969E-01
+    6.15396E-01   1.65956E-01   0.00000E+00   0.00000E+00   2.37571E+00
+    6.36296E-01   6.43533E-01   1.74627E-01   0.00000E+00   0.00000E+00
+    2.46897E+00   6.65034E-01   6.71437E-01   1.83326E-01   0.00000E+00
+    0.00000E+00   2.55646E+00   6.92309E-01   6.94799E-01   1.90694E-01
+    0.00000E+00   0.00000E+00   2.62314E+00   7.13340E-01   7.14984E-01
+    1.97136E-01   0.00000E+00   0.00000E+00   2.67995E+00   7.31471E-01
+    7.33321E-01   2.03058E-01   0.00000E+00   0.00000E+00   2.71667E+00
+    7.43328E-01   7.47431E-01   2.07670E-01   0.00000E+00   0.00000E+00
+    2.74494E+00   7.52570E-01   7.59609E-01   2.11700E-01   0.00000E+00
+    0.00000E+00   2.76249E+00   7.58377E-01   7.70470E-01   2.15338E-01
+    0.00000E+00   0.00000E+00   2.77165E+00   7.61446E-01   7.74535E-01
+    2.16717E-01   0.00000E+00   0.00000E+00   2.75556E+00   7.55988E-01
+    7.75558E-01   2.17068E-01   0.00000E+00   0.00000E+00   2.72505E+00
+    7.45506E-01   7.73596E-01   2.16385E-01   0.00000E+00   0.00000E+00
+    2.68200E+00   7.30527E-01   7.68903E-01   2.14731E-01   0.00000E+00
+    0.00000E+00   2.63200E+00   7.12898E-01   7.62381E-01   2.12401E-01
+    0.00000E+00   0.00000E+00   2.57310E+00   6.91857E-01   7.52935E-01
+    2.08982E-01   0.00000E+00   0.00000E+00   2.50139E+00   6.65896E-01
+    7.41490E-01   2.04782E-01   0.00000E+00   0.00000E+00   2.42419E+00
+    6.37568E-01   7.28396E-01   1.99911E-01   0.00000E+00   0.00000E+00
+    2.34304E+00   6.07382E-01   7.14717E-01   1.94751E-01   0.00000E+00
+    0.00000E+00   2.25865E+00   5.75548E-01   7.00436E-01   1.89287E-01
+    0.00000E+00   0.00000E+00   2.17315E+00   5.42835E-01   6.85588E-01
+    1.83525E-01   0.00000E+00   0.00000E+00   2.08810E+00   5.09830E-01
+    6.75832E-01   1.79684E-01   0.00000E+00   0.00000E+00   2.02130E+00
+    4.83527E-01   6.64048E-01   1.74975E-01   0.00000E+00   0.00000E+00
+    1.94636E+00   4.53578E-01   6.49079E-01   1.68903E-01   0.00000E+00
+    0.00000E+00   1.86448E+00   4.20364E-01   6.35096E-01   1.63144E-01
+    0.00000E+00   0.00000E+00   1.78630E+00   3.88170E-01   6.22179E-01
+    1.57742E-01   0.00000E+00   0.00000E+00   1.71240E+00   3.57269E-01
+    6.10274E-01   1.52685E-01   0.00000E+00   0.00000E+00   1.64321E+00
+    3.27870E-01   5.98510E-01   1.47607E-01   0.00000E+00   0.00000E+00
+    1.57699E+00   2.99288E-01   5.88627E-01   1.43272E-01   0.00000E+00
+    0.00000E+00   1.51669E+00   2.72839E-01   5.79688E-01   1.39286E-01
+    0.00000E+00   0.00000E+00   1.46272E+00   2.48775E-01   5.72260E-01
+    1.35918E-01   0.00000E+00   0.00000E+00   1.41322E+00   2.26332E-01
+    5.65619E-01   1.32855E-01   0.00000E+00   0.00000E+00   1.36825E+00
+    2.05590E-01   5.60069E-01   1.30251E-01   0.00000E+00   0.00000E+00
+    1.32745E+00   1.86447E-01   5.55479E-01   1.28060E-01   0.00000E+00
+    0.00000E+00   1.29059E+00   1.68849E-01   5.51680E-01   1.26213E-01
+    0.00000E+00   0.00000E+00   1.25744E+00   1.52732E-01   5.48644E-01
+    1.24709E-01   0.00000E+00   0.00000E+00   1.22770E+00   1.38008E-01
+    5.46609E-01   1.23683E-01   0.00000E+00   0.00000E+00   1.20104E+00
+    1.24562E-01   5.45044E-01   1.22879E-01   0.00000E+00   0.00000E+00
+    1.17728E+00   1.12347E-01   5.41979E-01   1.21272E-01   0.00000E+00
+    0.00000E+00   1.14907E+00   9.75687E-02   5.41173E-01   1.20843E-01
+    0.00000E+00   0.00000E+00   1.12880E+00   8.67368E-02   5.41972E-01
+    1.21278E-01   0.00000E+00   0.00000E+00   1.11372E+00   7.85158E-02
+    5.43096E-01   1.21903E-01   0.00000E+00   0.00000E+00   1.10029E+00
+    7.10430E-02   5.44699E-01   1.22814E-01   0.00000E+00   0.00000E+00
+    1.08834E+00   6.42558E-02   5.46536E-01   1.23880E-01   0.00000E+00
+    0.00000E+00   1.07774E+00   5.81013E-02   5.48637E-01   1.25127E-01
+    0.00000E+00   0.00000E+00   1.06834E+00   5.25241E-02   5.51088E-01
+    1.26614E-01   0.00000E+00   0.00000E+00   1.06000E+00   4.74669E-02
+    5.53443E-01   1.28074E-01   0.00000E+00   0.00000E+00   1.05187E+00
+    4.24219E-02   5.56311E-01   1.29896E-01   0.00000E+00   0.00000E+00
+    1.04545E+00   3.83435E-02   5.59410E-01   1.31912E-01   0.00000E+00
+    0.00000E+00   1.03981E+00   3.46777E-02   5.62592E-01   1.34033E-01
+    0.00000E+00   0.00000E+00   1.03484E+00   3.13620E-02   5.65956E-01
+    1.36333E-01   0.00000E+00   0.00000E+00   1.03045E+00   2.83610E-02
+    5.69376E-01   1.38731E-01   0.00000E+00   0.00000E+00   1.02657E+00
+    2.56426E-02   5.72938E-01   1.41295E-01   0.00000E+00   0.00000E+00
+    1.02316E+00   2.31891E-02   5.76557E-01   1.43973E-01   0.00000E+00
+    0.00000E+00   1.02016E+00   2.09669E-02   5.80235E-01   1.46771E-01
+    0.00000E+00   0.00000E+00   1.01752E+00   1.89582E-02   5.83976E-01
+    1.49699E-01   0.00000E+00   0.00000E+00   1.01520E+00   1.71435E-02
+    5.87744E-01   1.52737E-01   0.00000E+00   0.00000E+00   1.01315E+00
+    1.54915E-02   5.91311E-01   1.55702E-01   0.00000E+00   0.00000E+00
+    1.01082E+00   1.35519E-02   5.95179E-01   1.59018E-01   0.00000E+00
+    0.00000E+00   1.00935E+00   1.22962E-02   5.99048E-01   1.62446E-01
+    0.00000E+00   0.00000E+00   1.00807E+00   1.11594E-02   6.02892E-01
+    1.65966E-01   0.00000E+00   0.00000E+00   1.00695E+00   1.01302E-02
+    6.06755E-01   1.69628E-01   0.00000E+00   0.00000E+00   1.00596E+00
+    9.19087E-03   6.10589E-01   1.73396E-01   0.00000E+00   0.00000E+00
+    1.00510E+00   8.34629E-03   6.14388E-01   1.77270E-01   0.00000E+00
+    0.00000E+00   1.00434E+00   7.57556E-03   6.18102E-01   1.81207E-01
+    0.00000E+00   0.00000E+00   1.00354E+00   6.72295E-03   6.21686E-01
+    1.85162E-01   0.00000E+00   0.00000E+00   1.00264E+00   5.73707E-03
+    6.25419E-01   1.89457E-01   0.00000E+00   0.00000E+00   1.00222E+00
+    5.24894E-03   6.29084E-01   1.93862E-01   0.00000E+00   0.00000E+00
+    1.00185E+00   4.80572E-03   6.32702E-01   1.98415E-01   0.00000E+00
+    0.00000E+00   1.00153E+00   4.40275E-03   6.36235E-01   2.03077E-01
+    0.00000E+00   0.00000E+00   1.00125E+00   4.03024E-03   6.39694E-01
+    2.07877E-01   0.00000E+00   0.00000E+00   1.00096E+00   3.63203E-03
+    6.43020E-01   2.12743E-01   0.00000E+00   0.00000E+00   1.00064E+00
+    3.16317E-03   6.46335E-01   2.17869E-01   0.00000E+00   0.00000E+00
+    1.00048E+00   2.91430E-03   6.49545E-01   2.23139E-01   0.00000E+00
+    0.00000E+00   1.00034E+00   2.68629E-03   6.52660E-01   2.28584E-01
+    0.00000E+00   0.00000E+00   1.00022E+00   2.47595E-03   6.55623E-01
+    2.34120E-01   0.00000E+00   0.00000E+00   1.00006E+00   2.17569E-03
+    6.58452E-01   2.39802E-01   0.00000E+00   0.00000E+00   9.99885E-01
+    1.82565E-03   6.61202E-01   2.45769E-01   0.00000E+00   0.00000E+00
+    9.99828E-01   1.70362E-03   6.63810E-01   2.51927E-01   0.00000E+00
+    0.00000E+00   9.99780E-01   1.58962E-03   6.66257E-01   2.58256E-01
+    0.00000E+00   0.00000E+00   9.99738E-01   1.47881E-03   6.68547E-01
+    2.64809E-01   0.00000E+00   0.00000E+00   9.99703E-01   1.37927E-03
+    6.70653E-01   2.71551E-01   0.00000E+00   0.00000E+00   9.99674E-01
+    1.28614E-03   6.72569E-01   2.78515E-01   0.00000E+00   0.00000E+00
+    9.99650E-01   1.19944E-03   6.74272E-01   2.85668E-01   0.00000E+00
+    0.00000E+00   9.99619E-01   1.06938E-03   6.75758E-01   2.93061E-01
+    0.00000E+00   0.00000E+00   9.99599E-01   9.69826E-04   6.77012E-01
+    3.00720E-01   0.00000E+00   0.00000E+00   9.99589E-01   9.08811E-04
+    6.78014E-01   3.08623E-01   0.00000E+00   0.00000E+00   9.99582E-01
+    8.51006E-04   6.78744E-01   3.16778E-01   0.00000E+00   0.00000E+00
+    9.99577E-01   7.98019E-04   6.79186E-01   3.25200E-01   0.00000E+00
+    0.00000E+00   9.99575E-01   7.51455E-04   6.79436E-01   3.41499E-01
+    0.00000E+00   0.00000E+00   9.99744E-01   1.17696E-02   6.79528E-01
+    3.37307E-01  -1.63458E-04   7.50626E-03   1.00000E+00   1.60565E-06
+    6.79004E-01   3.46199E-01  -1.79526E-04   7.77907E-03   1.00000E+00
+   -1.60567E-06   6.78123E-01   3.55371E-01  -2.07055E-04   8.06578E-03
+    1.00000E+00   0.00000E+00   6.76864E-01   3.64825E-01  -2.46749E-04
+    8.36391E-03   1.00000E+00   1.60567E-06   6.75207E-01   3.74560E-01
+   -2.99521E-04   8.67386E-03   1.00000E+00  -1.60567E-06   6.73122E-01
+    3.84612E-01  -3.66372E-04   8.99622E-03   1.00000E+00   1.60567E-06
+    6.70592E-01   3.94960E-01  -4.48328E-04   9.33140E-03   1.00000E+00
+   -1.60567E-06   6.67587E-01   4.05631E-01  -5.46496E-04   9.67999E-03
+    9.99999E-01   1.60567E-06   6.64082E-01   4.16627E-01  -6.62040E-04
+    1.00425E-02   1.00000E+00   0.00000E+00   6.60051E-01   4.27955E-01
+   -7.96188E-04   1.04194E-02   1.00000E+00   0.00000E+00   6.61303E-01
+    4.24768E-01  -7.84299E-03   2.83507E-02   1.00000E+00   0.00000E+00
+    6.59993E-01   4.27814E-01  -1.21846E-02   3.84450E-02   1.00000E+00
+    0.00000E+00   6.55071E-01   4.38348E-01  -1.28508E-02   3.98708E-02
+    1.00000E+00   0.00000E+00   6.49630E-01   4.49137E-01  -1.35962E-02
+    4.13486E-02   1.00000E+00   0.00000E+00   6.43664E-01   4.60155E-01
+   -1.44252E-02   4.28797E-02   1.00000E+00   0.00000E+00   6.37137E-01
+    4.71433E-01  -1.53430E-02   4.44658E-02   1.00000E+00   0.00000E+00
+    6.30043E-01   4.82956E-01  -1.63544E-02   4.61085E-02   1.00000E+00
+    0.00000E+00   6.22360E-01   4.94725E-01  -1.74646E-02   4.78092E-02
+    1.00000E+00   0.00000E+00   6.34022E-01   4.77821E-01  -3.86361E-02
+    7.84942E-02   1.00000E+00   0.00000E+00   6.28769E-01   4.85046E-01
+   -4.26560E-02   8.40230E-02   1.00000E+00   0.00000E+00   6.21172E-01
+    4.94989E-01  -4.49040E-02   8.69647E-02   1.00000E+00   0.00000E+00
+    6.13144E-01   5.05006E-01  -4.73289E-02   8.99908E-02   1.00000E+00
+   -1.60567E-06   6.04680E-01   5.15103E-01  -4.99383E-02   9.31029E-02
+    9.99998E-01   1.60567E-06   5.95795E-01   5.25250E-01  -5.27387E-02
+    9.63014E-02   1.00000E+00   0.00000E+00   5.86482E-01   5.35456E-01
+   -5.57369E-02   9.95863E-02   1.00000E+00  -1.60567E-06   5.76754E-01
+    5.45697E-01  -5.89392E-02   1.02958E-01   9.99998E-01   1.60567E-06
+    5.66626E-01   5.55961E-01  -6.23519E-02   1.06416E-01   1.00000E+00
+    0.00000E+00   5.56109E-01   5.66228E-01  -6.59808E-02   1.09959E-01
+    1.00000E+00   0.00000E+00   5.45219E-01   5.76491E-01  -6.98321E-02
+    1.13589E-01   1.00000E+00  -1.60567E-06   5.77095E-01   5.47467E-01
+   -1.07703E-01   1.48070E-01   9.99997E-01   1.60567E-06   5.77095E-01
+    5.47467E-01  -1.07703E-01   1.48070E-01   9.99997E-01   1.60567E-06
+ DATA FOR MEDIUM #  4, WHICH IS: MEDIUM=CD+TE-3MEV-10KEV-02KEV  ,STERNCID=CD+TE-3MEV-10KEV-02KEV        
+ COMP,RHO=  6.060    ,NE= 2,COMPOSITION IS :
+ ASYM=CD,Z=48.,A=  112.400,PZ= 1.00000E+00,RHOZ= 1.12400E+02            
+ ASYM=TE,Z=52.,A=  127.600,PZ= 1.00000E+00,RHOZ= 1.27600E+02            
+ ECHO READ:$LGN(RLC,AE,AP,UE,UP(IM))
+    1.46952E+00   5.21000E-01   2.00000E-03   3.51100E+00   3.00200E+00
+ ECHO READ:$LGN(MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE(IM)),IRAYL
+     0  200    0  150    0    0    0    0
+ ECHO READ:($LGN(DL(I,IM)/1,2,3,4,5,6/),I=1,6)
+    9.99979E-01  -2.43973E-01   5.59862E-02   9.95222E-01  -2.61874E-01
+    9.52000E-01   1.00026E+00  -2.07238E-01   3.99519E-02   1.01643E+00
+   -2.67454E-01   9.52000E-01   1.00040E+00  -1.88277E-01   2.88974E-02
+    1.02737E+00  -2.70334E-01   9.52000E-01   9.99978E-01  -2.53143E-01
+    5.80904E-02   9.95043E-01  -2.71716E-01   9.52000E-01   1.00027E+00
+   -2.15200E-01   4.14867E-02   1.01706E+00  -2.77728E-01   9.52000E-01
+    1.00041E+00  -1.95591E-01   3.00200E-02   1.02844E+00  -2.80835E-01
+    9.52000E-01
+ ECHO READ:DELCM(IM),($LGN(ALPHI,BPAR, DELPOS(I,IM)),I=1,2)
+    1.88496E+01   9.43889E-01   8.53205E-01   2.32189E+00   9.44645E-01
+    8.53053E-01   2.01541E+00
+ ECHO READ:$LGN(XR0,TEFF0,BLCC,XCC(IM))
+    2.03649E-01   3.09893E-04   6.45506E+04   5.45344E+00
+ ECHO READ:$LGN(EKE(IM)/0,1/)
+    1.21501E+02   2.59409E+01
+ ECHO READ:($LGN(ESIG,PSIG,EDEDX,PDEDX,EBR1,PBR1,PBR2, TMXS(I,IM)/0,1/),I=1,NEKE)
+    1.19349E+01   1.87802E+00   6.11107E+03   1.32545E+03  -1.79651E+02
+   -5.89218E+01  -2.97656E+02  -8.78403E+01   1.00000E+00   0.00000E+00
+   -5.73267E+01  -1.25624E+01   5.11443E+01   1.09879E+01   3.01050E-05
+    5.80003E-06   1.19349E+01   1.87802E+00   6.11107E+03   1.32545E+03
+   -1.79651E+02  -5.89218E+01  -2.97656E+02  -8.78403E+01   1.00000E+00
+    0.00000E+00  -5.73267E+01  -1.25624E+01   5.11443E+01   1.09879E+01
+    3.01050E-05   5.80003E-06   1.18886E+01   1.86789E+00   5.43884E+03
+    1.17829E+03  -1.74201E+02  -5.77288E+01  -2.84928E+02  -8.50539E+01
+    1.00000E+00   0.00000E+00  -3.01394E+00  -6.72835E-01   3.65195E+00
+    5.91457E-01   3.18932E-05   6.19149E-06   1.18400E+01   1.85717E+00
+    4.82364E+03   1.04247E+03  -1.68783E+02  -5.65325E+01  -2.72592E+02
+   -8.23306E+01   1.00000E+00   0.00000E+00  -1.02904E+00  -2.34625E-01
+    1.91696E+00   2.08422E-01   3.37996E-05   6.61237E-06   1.17940E+01
+    1.84692E+00   4.26905E+03   9.18986E+02  -1.63485E+02  -5.53528E+01
+   -2.60805E+02  -7.97059E+01   1.00000E+00   0.00000E+00  -5.02757E-01
+   -1.17440E-01   1.45751E+00   1.06115E-01   3.58288E-05   7.06419E-06
+    1.17448E+01   1.83587E+00   3.76702E+03   8.06232E+02  -1.58153E+02
+   -5.41551E+01  -2.49314E+02  -7.71251E+01   1.00000E+00   0.00000E+00
+   -2.87581E-01  -6.91124E-02   1.27009E+00   6.40222E-02   3.79692E-05
+    7.54492E-06   1.16981E+01   1.82529E+00   3.31515E+03   7.03858E+02
+   -1.53022E+02  -5.29929E+01  -2.38433E+02  -7.46599E+01   1.00000E+00
+    0.00000E+00  -1.78846E-01  -4.44777E-02   1.17578E+00   4.26578E-02
+    4.02416E-05   8.05977E-06   1.16499E+01   1.81427E+00   2.90737E+03
+    6.10660E+02  -1.47936E+02  -5.18304E+01  -2.27922E+02  -7.22576E+01
+    1.00000E+00   0.00000E+00  -1.16155E-01  -3.01495E-02   1.12177E+00
+    3.03118E-02   4.26481E-05   8.60976E-06   1.16023E+01   1.80329E+00
+    2.54073E+03   5.26118E+02  -1.42902E+02  -5.06696E+01  -2.17772E+02
+   -6.99172E+01   1.00000E+00   0.00000E+00  -7.66504E-02  -2.10405E-02
+    1.08806E+00   2.25388E-02   4.51933E-05   9.19664E-06   1.15573E+01
+    1.79282E+00   2.21121E+03   4.49454E+02  -1.38015E+02  -4.95326E+01
+   -2.08095E+02  -6.76658E+01   1.00000E+00   0.00000E+00  -5.00224E-02
+   -1.48454E-02   1.06563E+00   1.73206E-02   4.78964E-05   9.82551E-06
+    1.15237E+01   1.78494E+00   1.91540E+03   3.80012E+02  -1.33214E+02
+   -4.84055E+01  -1.98786E+02  -6.54804E+01   1.00000E+00   0.00000E+00
+   -3.10777E-02  -1.03980E-02   1.05000E+00   1.36497E-02   5.07550E-05
+    1.04966E-05   1.14808E+01   1.77478E+00   1.64987E+03   3.17106E+02
+   -1.28503E+02  -4.72897E+01  -1.89836E+02  -6.33601E+01   1.00000E+00
+    0.00000E+00  -1.70472E-02  -7.07423E-03   1.03866E+00   1.09642E-02
+    5.37805E-05   1.12133E-05   1.14279E+01   1.76213E+00   1.41251E+03
+    2.60358E+02  -1.23890E+02  -4.61867E+01  -1.81241E+02  -6.13054E+01
+    1.00000E+00   0.00000E+00  -6.30688E-03  -4.50637E-03   1.03018E+00
+    8.93708E-03   5.69875E-05   1.19801E-05   1.13773E+01   1.74991E+00
+    1.20033E+03   2.09157E+02  -1.19404E+02  -4.51043E+01  -1.73023E+02
+   -5.93223E+01   1.00000E+00   0.00000E+00   2.21578E-03  -2.44977E-03
+    1.02369E+00   7.37222E-03   6.03823E-05   1.27993E-05   1.13252E+01
+    1.73722E+00   1.01090E+03   1.63017E+02  -1.14980E+02  -4.40269E+01
+   -1.65085E+02  -5.73887E+01   1.00000E+00   0.00000E+00   9.16340E-03
+   -7.57521E-04   1.01862E+00   6.13380E-03   6.39712E-05   1.36734E-05
+    1.12740E+01   1.72464E+00   8.42377E+02   1.21581E+02  -1.10682E+02
+   -4.29698E+01  -1.57491E+02  -5.55216E+01   1.00000E+00   0.00000E+00
+    1.49661E-02   6.69258E-04   1.01457E+00   5.14107E-03   6.77765E-05
+    1.46091E-05   1.12213E+01   1.71155E+00   6.92558E+02   8.43899E+01
+   -1.06482E+02  -4.19272E+01  -1.50203E+02  -5.37124E+01   1.00000E+00
+    0.00000E+00   1.99236E-02   1.89988E-03   1.01127E+00   4.32319E-03
+    7.17930E-05   1.56062E-05   1.11706E+01   1.69885E+00   5.59658E+02
+    5.10798E+01  -1.02411E+02  -4.09069E+01  -1.43241E+02  -5.19673E+01
+    1.00000E+00   0.00000E+00   2.42560E-02   2.98573E-03   1.00859E+00
+    3.64903E-03   7.60490E-05   1.66728E-05   1.11163E+01   1.68512E+00
+    4.42341E+02   2.13897E+01  -9.84041E+01  -3.98929E+01  -1.36513E+02
+   -5.02647E+01   1.00000E+00   0.00000E+00   2.80879E-02   3.95554E-03
+    1.00635E+00   3.08312E-03   8.05523E-05   1.78125E-05   2.77205E+03
+    7.07304E+02   3.38827E+02  -5.06500E+00  -1.22638E+02  -4.60864E+01
+   -1.30071E+02  -4.86183E+01  -8.58539E+01  -2.21975E+01   3.15637E-02
+    4.84383E-03   1.00445E+00   2.59761E-03   8.53112E-05   1.90288E-05
+    2.31660E+03   5.89746E+02   2.47901E+02  -2.85343E+01  -1.15247E+02
+   -4.41787E+01  -1.23922E+02  -4.70311E+01  -5.78503E+00  -1.53045E+00
+    3.47390E-02   5.66343E-03   1.00286E+00   2.18787E-03   9.03553E-05
+    2.03307E-05   1.95011E+03   4.94198E+02   1.68302E+02  -4.92867E+01
+   -1.08618E+02  -4.24503E+01  -1.17984E+02  -4.54831E+01  -2.02680E+00
+   -5.50648E-01   3.76960E-02   6.43435E-03   1.00148E+00   1.82915E-03
+    9.56694E-05   2.17161E-05   1.65324E+03   4.16015E+02   9.88046E+01
+   -6.75898E+01  -1.02659E+02  -4.08811E+01  -1.12334E+02  -4.39951E+01
+   -9.96384E-01  -2.79280E-01   4.04746E-02   7.16612E-03   1.00030E+00
+    1.51837E-03   1.01311E-04   2.32018E-05   1.40959E+03   3.51189E+02
+    3.84838E+01  -8.36381E+01  -9.71817E+01  -3.94238E+01  -1.06885E+02
+   -4.25454E+01  -5.69993E-01  -1.65836E-01   4.31068E-02   7.86642E-03
+    9.99270E-01   1.24160E-03   1.07250E-04   2.47820E-05   1.20858E+03
+    2.97156E+02  -1.35341E+01  -9.76219E+01  -9.21421E+01  -3.80691E+01
+   -1.01683E+02  -4.11469E+01  -3.53586E-01  -1.07662E-01   4.56379E-02
+    8.54682E-03   9.98367E-01   1.00039E-03   1.13538E-04   2.64723E-05
+    1.04080E+03   2.51583E+02  -5.81453E+01  -1.09740E+02  -8.74317E+01
+   -3.67896E+01  -9.66759E+01  -3.97868E+01  -2.28810E-01  -7.37697E-02
+    4.80774E-02   9.20944E-03   9.97576E-01   7.83922E-04   1.20177E-04
+    2.82756E-05   9.00154E+02   2.12974E+02  -9.62593E+01  -1.20201E+02
+   -8.30497E+01  -3.55867E+01  -9.19095E+01  -3.84785E+01  -1.50500E-01
+   -5.22731E-02   5.04506E-02   9.86091E-03   9.96864E-01   5.89105E-04
+    1.27202E-04   3.02042E-05   7.81099E+02   1.79944E+02  -1.28216E+02
+   -1.29067E+02  -7.88827E+01  -3.44306E+01  -8.73035E+01  -3.72007E+01
+   -9.80185E-02  -3.77128E-02   5.27662E-02   1.05033E-02   9.96227E-01
+    4.12835E-04   1.34603E-04   3.22574E-05   6.80004E+02   1.51592E+02
+   -1.55145E+02  -1.36620E+02  -7.49759E+01  -3.33350E+01  -8.29260E+01
+   -3.59730E+01  -6.11726E-02  -2.73798E-02   5.50459E-02   1.11427E-02
+    9.95671E-01   2.56669E-04   1.42431E-04   3.44528E-05   5.93172E+02
+    1.26975E+02  -1.77105E+02  -1.42846E+02  -7.12420E+01  -3.22765E+01
+   -7.87073E+01  -3.47770E+01  -3.41319E-02  -1.97136E-02   5.72842E-02
+    1.17772E-02   9.95170E-01   1.14419E-04   1.50686E-04   3.67929E-05
+    5.18642E+02   1.05612E+02  -1.95013E+02  -1.47979E+02  -6.77041E+01
+   -3.12624E+01  -7.46842E+01  -3.36238E+01  -1.36769E-02  -1.38504E-02
+    5.95265E-02   1.24199E-02   9.94700E-01  -2.01006E-05   1.59404E-04
+    3.92920E-05   4.53902E+02   8.68483E+01  -2.09228E+02  -1.52099E+02
+   -6.43325E+01  -3.02852E+01  -7.08351E+01  -3.25082E+01   2.24276E-03
+   -9.23631E-03   6.17187E-02   1.30553E-02   9.94298E-01  -1.37612E-04
+    1.68601E-04   4.19575E-05   3.97809E+02   7.04064E+01  -2.19940E+02
+   -1.55238E+02  -6.10887E+01  -2.93343E+01  -6.71270E+01  -3.14213E+01
+    1.49629E-02  -5.50784E-03   6.39137E-02   1.36987E-02   9.93908E-01
+   -2.50484E-04   1.78292E-04   4.47982E-05   3.48790E+02   5.58745E+01
+   -2.27945E+02  -1.57612E+02  -5.80062E+01  -2.84204E+01  -6.35992E+01
+   -3.03754E+01   2.53551E-02  -2.42695E-03   6.61078E-02   1.43492E-02
+    9.93574E-01  -3.49441E-04   1.88529E-04   4.78331E-05   3.05892E+02
+    4.30093E+01  -2.33262E+02  -1.59206E+02  -5.50460E+01  -2.75327E+01
+   -6.02157E+01  -2.93607E+01   3.39904E-02   1.62737E-04   6.82794E-02
+    1.50004E-02   9.93246E-01  -4.48397E-04   1.99305E-04   5.10648E-05
+    2.68249E+02   3.15887E+01  -2.36381E+02  -1.60152E+02  -5.22077E+01
+   -2.66715E+01  -5.69754E+01  -2.83777E+01   4.13390E-02   2.39227E-03
+    7.04693E-02   1.56649E-02   9.92974E-01  -5.31895E-04   2.10669E-04
+    5.45126E-05   2.35107E+02   2.14142E+01  -2.37507E+02  -1.60498E+02
+   -4.94904E+01  -2.58374E+01  -5.38813E+01  -2.74278E+01   4.76524E-02
+    4.33042E-03   7.26398E-02   1.63312E-02   9.92696E-01  -6.15387E-04
+    2.22655E-04   5.81920E-05   2.05911E+02   1.23442E+01  -2.36904E+02
+   -1.60311E+02  -4.68777E+01  -2.50257E+01  -5.09148E+01  -2.65062E+01
+    5.31913E-02   6.05114E-03   7.48197E-02   1.70084E-02   9.92461E-01
+   -6.89604E-04   2.35255E-04   6.21063E-05   1.80141E+02   4.24128E+00
+   -2.34868E+02  -1.59670E+02  -4.43765E+01  -2.42392E+01  -4.80826E+01
+   -2.56157E+01   5.81013E-02   7.59502E-03   7.69999E-02   1.76939E-02
+    9.92244E-01  -7.57637E-04   2.48540E-04   6.62836E-05   1.57484E+02
+   -2.96989E+00  -2.31464E+02  -1.58587E+02  -4.19701E+01  -2.34733E+01
+   -4.53698E+01  -2.47522E+01   6.24994E-02   8.99491E-03   7.91777E-02
+    1.83870E-02   9.92028E-01  -8.24123E-04   2.62513E-04   7.07311E-05
+    1.37453E+02  -9.42502E+00  -2.27027E+02  -1.57157E+02  -3.96656E+01
+   -2.27307E+01  -4.27795E+01  -2.39175E+01   6.64996E-02   1.02840E-02
+    8.13601E-02   1.90903E-02   9.91848E-01  -8.82879E-04   2.77229E-04
+    7.54735E-05   1.19771E+02  -1.51946E+01  -2.21698E+02  -1.55419E+02
+   -3.74529E+01  -2.20087E+01  -4.03031E+01  -2.31094E+01   7.01635E-02
+    1.14795E-02   8.35401E-02   1.98016E-02   9.91675E-01  -9.40088E-04
+    2.92706E-04   8.05233E-05   1.04255E+02  -2.03217E+01  -2.15510E+02
+   -1.53374E+02  -3.53307E+01  -2.13074E+01  -3.79362E+01  -2.23274E+01
+    7.35513E-02   1.25989E-02   8.57189E-02   2.05216E-02   9.91521E-01
+   -9.92659E-04   3.08980E-04   8.59012E-05   9.05794E+01  -2.48991E+01
+   -2.08711E+02  -1.51098E+02  -3.32916E+01  -2.06249E+01  -3.56719E+01
+   -2.15694E+01   7.67314E-02   1.36634E-02   8.79077E-02   2.12543E-02
+    9.91372E-01  -1.04059E-03   3.26088E-04   9.16275E-05   7.85890E+01
+   -2.89650E+01  -2.01398E+02  -1.48618E+02  -3.13368E+01  -1.99620E+01
+   -3.35095E+01  -2.08362E+01   7.96607E-02   1.46567E-02   9.00548E-02
+    2.19823E-02   9.91242E-01  -1.08543E-03   3.44059E-04   9.77215E-05
+    6.81392E+01  -3.25555E+01  -1.93630E+02  -1.45949E+02  -2.94626E+01
+   -1.93181E+01  -3.14441E+01  -2.01265E+01   8.24802E-02   1.56254E-02
+    9.22355E-02   2.27316E-02   9.91119E-01  -1.12718E-03   3.62948E-04
+    1.04211E-04   5.90165E+01  -3.57319E+01  -1.85560E+02  -1.43139E+02
+   -2.76661E+01  -1.86926E+01  -2.94722E+01  -1.94400E+01   8.51376E-02
+    1.65507E-02   9.43932E-02   2.34829E-02   9.91020E-01  -1.16275E-03
+    3.82783E-04   1.11118E-04   5.11337E+01  -3.85139E+01  -1.77248E+02
+   -1.40206E+02  -2.59437E+01  -1.80847E+01  -2.75883E+01  -1.87751E+01
+    8.76700E-02   1.74445E-02   9.65444E-02   2.42422E-02   9.90915E-01
+   -1.19830E-03   4.03585E-04   1.18459E-04   4.43373E+01  -4.09459E+01
+   -1.68755E+02  -1.37167E+02  -2.42933E+01  -1.74942E+01  -2.57905E+01
+   -1.81318E+01   9.00975E-02   1.83131E-02   9.86828E-02   2.50073E-02
+    9.90834E-01  -1.22923E-03   4.25430E-04   1.26276E-04   3.85266E+01
+   -4.30541E+01  -1.60139E+02  -1.34041E+02  -2.27111E+01  -1.69202E+01
+   -2.40732E+01  -1.75087E+01   9.24199E-02   1.91556E-02   1.00798E-01
+    2.57747E-02   9.90754E-01  -1.25860E-03   4.48332E-04   1.34584E-04
+    3.36278E+01  -4.48566E+01  -1.51480E+02  -1.30855E+02  -2.11972E+01
+   -1.63631E+01  -2.24352E+01  -1.69060E+01   9.46609E-02   1.99802E-02
+    1.02905E-01   2.65501E-02   9.90692E-01  -1.28025E-03   4.72340E-04
+    1.43418E-04   2.95168E+01  -4.63909E+01  -1.42811E+02  -1.27619E+02
+   -1.97460E+01  -1.58215E+01  -2.08706E+01  -1.63221E+01   9.68401E-02
+    2.07936E-02   1.05002E-01   2.73328E-02   9.90630E-01  -1.30344E-03
+    4.97492E-04   1.52806E-04   2.61333E+01  -4.76722E+01  -1.34188E+02
+   -1.24354E+02  -1.83596E+01  -1.52965E+01  -1.93805E+01  -1.57578E+01
+    9.89201E-02   2.15812E-02   1.07059E-01   2.81116E-02   9.90574E-01
+   -1.32354E-03   5.23856E-04   1.62790E-04   2.33712E+01  -4.87338E+01
+   -1.25651E+02  -1.21073E+02  -1.70323E+01  -1.47864E+01  -1.79591E+01
+   -1.52116E+01   1.00941E-01   2.23578E-02   1.09091E-01   2.88925E-02
+    9.90543E-01  -1.33746E-03   5.51437E-04   1.73389E-04   2.12171E+01
+   -4.95741E+01  -1.17210E+02  -1.17780E+02  -1.57615E+01  -1.42907E+01
+   -1.66018E+01  -1.46820E+01   1.02901E-01   2.31224E-02   1.11101E-01
+    2.96765E-02   9.90513E-01  -1.34828E-03   5.80316E-04   1.84655E-04
+    1.95831E+01  -5.02213E+01  -1.08894E+02  -1.14487E+02  -1.45475E+01
+   -1.38098E+01  -1.53090E+01  -1.41701E+01   1.04795E-01   2.38724E-02
+    1.13071E-01   3.04569E-02   9.90482E-01  -1.35911E-03   6.10512E-04
+    1.96613E-04   1.84051E+01  -5.06947E+01  -1.00751E+02  -1.11212E+02
+   -1.33867E+01  -1.33430E+01  -1.40766E+01  -1.36744E+01   1.06638E-01
+    2.46138E-02   1.15014E-01   3.12382E-02   9.90469E-01  -1.36684E-03
+    6.42075E-04   2.09307E-04   1.76483E+01  -5.10038E+01  -9.27802E+01
+   -1.07956E+02  -1.22778E+01  -1.28900E+01  -1.29022E+01  -1.31947E+01
+    1.08408E-01   2.53366E-02   1.16903E-01   3.20101E-02   9.90463E-01
+   -1.36838E-03   6.75070E-04   2.22786E-04   1.72533E+01  -5.11681E+01
+   -8.50093E+01  -1.04731E+02  -1.12185E+01  -1.24504E+01  -1.17838E+01
+   -1.27305E+01   1.10148E-01   2.60588E-02   1.18772E-01   3.27857E-02
+    9.90463E-01  -1.36838E-03   7.09529E-04   2.37088E-04   1.71924E+01
+   -5.11934E+01  -7.74265E+01  -1.01532E+02  -1.02066E+01  -1.20236E+01
+   -1.07177E+01  -1.22808E+01   1.11818E-01   2.67635E-02   1.20581E-01
+    3.35487E-02   9.90463E-01  -1.36530E-03   7.45492E-04   2.52257E-04
+    1.74164E+01  -5.10976E+01  -7.00763E+01  -9.83807E+01  -9.24097E+00
+   -1.16095E+01  -9.70290E+00  -1.18457E+01   1.13433E-01   2.74560E-02
+    1.22344E-01   3.43043E-02   9.90488E-01  -1.35756E-03   7.83012E-04
+    2.68345E-04   1.78969E+01  -5.08882E+01  -6.29467E+01  -9.52723E+01
+   -8.31988E+00  -1.12079E+01  -8.73708E+00  -1.14246E+01   1.15004E-01
+    2.81408E-02   1.24062E-01   3.50535E-02   9.90506E-01  -1.34828E-03
+    8.22153E-04   2.85409E-04   1.85928E+01  -5.05795E+01  -5.60482E+01
+   -9.22133E+01  -7.44114E+00  -1.08183E+01  -7.81807E+00  -1.10171E+01
+    1.16505E-01   2.88063E-02   1.25712E-01   3.57851E-02   9.90531E-01
+   -1.33591E-03   8.62943E-04   3.03497E-04   1.94905E+01  -5.01746E+01
+   -4.93762E+01  -8.92031E+01  -6.60249E+00  -1.04399E+01  -6.94240E+00
+   -1.06221E+01   1.17972E-01   2.94682E-02   1.27322E-01   3.65114E-02
+    9.90574E-01  -1.31891E-03   9.05416E-04   3.22658E-04   2.05474E+01
+   -4.96895E+01  -4.29464E+01  -8.62510E+01  -5.80430E+00  -1.00735E+01
+   -6.11087E+00  -1.02403E+01   1.19373E-01   3.01115E-02   1.28862E-01
+    3.72185E-02   9.90618E-01  -1.29881E-03   9.49655E-04   3.42969E-04
+    2.17420E+01  -4.91310E+01  -3.67596E+01  -8.33595E+01  -5.04313E+00
+   -9.71766E+00  -5.31941E+00  -9.87035E+00   1.20711E-01   3.07367E-02
+    1.30332E-01   3.79058E-02   9.90661E-01  -1.27871E-03   9.95674E-04
+    3.64478E-04   2.30616E+01  -4.85026E+01  -3.08001E+01  -8.05230E+01
+   -4.31852E+00  -9.37280E+00  -4.56754E+00  -9.51250E+00   1.21990E-01
+    3.13456E-02   1.31733E-01   3.85727E-02   9.90717E-01  -1.25087E-03
+    1.04354E-03   3.87262E-04   2.44827E+01  -4.78139E+01  -2.50764E+01
+   -7.77478E+01  -3.62770E+00  -9.03786E+00  -3.85184E+00  -9.16549E+00
+    1.23250E-01   3.19566E-02   1.33101E-01   3.92360E-02   9.90779E-01
+   -1.22150E-03   1.09327E-03   4.11374E-04   2.59828E+01  -4.70725E+01
+   -1.95895E+01  -7.50368E+01  -2.97102E+00  -8.71338E+00  -3.17285E+00
+   -8.83000E+00   1.24464E-01   3.25563E-02   1.34411E-01   3.98828E-02
+    9.90843E-01  -1.18903E-03   1.14495E-03   4.36906E-04   2.75440E+01
+   -4.62862E+01  -1.43341E+01  -7.23895E+01  -2.34626E+00  -8.39870E+00
+   -2.52775E+00  -8.50505E+00   1.25566E-01   3.31112E-02   1.35596E-01
+    4.04801E-02   9.90915E-01  -1.15346E-03   1.19857E-03   4.63919E-04
+    2.91516E+01  -4.54606E+01  -9.31267E+00  -6.98102E+01  -1.75194E+00
+   -8.09342E+00  -1.91517E+00  -8.19039E+00   1.26609E-01   3.36474E-02
+    1.36710E-01   4.10524E-02   9.90995E-01  -1.11327E-03   1.25423E-03
+    4.92505E-04   3.08024E+01  -4.45954E+01  -4.50371E+00  -6.72901E+01
+   -1.18694E+00  -7.79734E+00  -1.33369E+00  -7.88566E+00   1.27635E-01
+    3.41846E-02   1.37786E-01   4.16161E-02   9.91072E-01  -1.07151E-03
+    1.31191E-03   5.22733E-04   3.24752E+01  -4.37006E+01   8.35194E-02
+   -6.48366E+01  -6.50046E-01  -7.51016E+00  -7.81856E-01  -7.59052E+00
+    1.28585E-01   3.46928E-02   1.38772E-01   4.21432E-02   9.91162E-01
+   -1.02513E-03   1.37168E-03   5.54703E-04   3.41578E+01  -4.27817E+01
+    4.45542E+00  -6.24490E+01  -1.40469E-01  -7.23187E+00  -2.58920E-01
+   -7.30493E+00   1.29469E-01   3.51756E-02   1.39674E-01   4.26360E-02
+    9.91252E-01  -9.75651E-04   1.43359E-03   5.88511E-04   3.58480E+01
+   -4.18389E+01   8.62189E+00  -6.01247E+01   3.43429E-01  -6.96192E+00
+    2.37199E-01  -7.02817E+00   1.30313E-01   3.56464E-02   1.40518E-01
+    4.31070E-02   9.91341E-01  -9.24626E-04   1.49764E-03   6.24243E-04
+    3.75319E+01  -4.08790E+01   1.25885E+01  -5.78633E+01   8.02835E-01
+   -6.70001E+00   7.07490E-01  -6.76005E+00   1.31081E-01   3.60846E-02
+    1.41269E-01   4.35351E-02   9.91443E-01  -8.67417E-04   1.56388E-03
+    6.62007E-04   3.92015E+01  -3.99056E+01   1.63532E+01  -5.56688E+01
+    1.23829E+00  -6.44616E+00   1.15265E+00  -6.50054E+00   1.31797E-01
+    3.65019E-02   1.41952E-01   4.39331E-02   9.91539E-01  -8.10207E-04
+    1.63236E-03   7.01925E-04   4.08544E+01  -3.89200E+01   1.99350E+01
+   -5.35330E+01   1.65124E+00  -6.19990E+00   1.57445E+00  -6.24901E+00
+    1.32453E-01   3.68932E-02   1.42555E-01   4.42926E-02   9.91641E-01
+   -7.49906E-04   1.70306E-03   7.44086E-04   4.24809E+01  -3.79273E+01
+    2.33272E+01  -5.14624E+01   2.04227E+00  -5.96127E+00   1.97334E+00
+   -6.00555E+00   1.33055E-01   3.72605E-02   1.43089E-01   4.46184E-02
+    9.91746E-01  -6.84965E-04   1.77605E-03   7.88637E-04   4.40741E+01
+   -3.69314E+01   2.65433E+01  -4.94522E+01   2.41286E+00  -5.72961E+00
+    2.35096E+00  -5.76952E+00   1.33585E-01   3.75915E-02   1.43532E-01
+    4.48954E-02   9.91855E-01  -6.18479E-04   1.85133E-03   8.35691E-04
+    4.56368E+01  -3.59306E+01   2.95876E+01  -4.75021E+01   2.76331E+00
+   -5.50516E+00   2.70780E+00  -5.54095E+00   1.34071E-01   3.79031E-02
+    1.43918E-01   4.51430E-02   9.91963E-01  -5.48900E-04   1.92891E-03
+    8.85382E-04   4.71563E+01  -3.49325E+01   3.24663E+01  -4.56118E+01
+    3.09494E+00  -5.28736E+00   3.04511E+00  -5.31947E+00   1.34493E-01
+    3.81799E-02   1.44222E-01   4.53425E-02   9.92077E-01  -4.74686E-04
+    2.00883E-03   9.37865E-04   4.86388E+01  -3.39338E+01   3.51878E+01
+   -4.37780E+01   3.40839E+00  -5.07618E+00   3.36356E+00  -5.10488E+00
+    1.34865E-01   3.84309E-02   1.44465E-01   4.55059E-02   9.92186E-01
+   -4.02011E-04   2.09106E-03   9.93273E-04   5.00724E+01  -3.29421E+01
+    3.77516E+01  -4.20045E+01   3.70452E+00  -4.87134E+00   3.66424E+00
+   -4.89689E+00   1.35172E-01   3.86431E-02   1.44628E-01   4.56190E-02
+    9.92294E-01  -3.26248E-04   2.17565E-03   1.05178E-03   5.14614E+01
+   -3.19549E+01   4.01728E+01  -4.02837E+01   3.98399E+00  -4.67271E+00
+    3.94778E+00  -4.69539E+00   1.35433E-01   3.88287E-02   1.44733E-01
+    4.56932E-02   9.92405E-01  -2.47392E-04   2.26257E-03   1.11356E-03
+    5.27997E+01  -3.09770E+01   4.24492E+01  -3.86206E+01   4.24769E+00
+   -4.48004E+00   4.21501E+00  -4.50013E+00   1.35639E-01   3.89791E-02
+    1.44772E-01   4.57216E-02   9.92519E-01  -1.63897E-04   2.35183E-03
+    1.17878E-03   5.40891E+01  -3.00074E+01   4.45914E+01  -3.70098E+01
+    4.49617E+00  -4.29321E+00   4.46670E+00  -4.31087E+00   1.35790E-01
+    3.90925E-02   1.44746E-01   4.57023E-02   9.92628E-01  -8.34947E-05
+    2.44340E-03   1.24763E-03   5.53272E+01  -2.90487E+01   4.66032E+01
+   -3.54520E+01   4.73020E+00  -4.11197E+00   4.70358E+00  -4.12746E+00
+    1.35894E-01   3.91727E-02   1.44664E-01   4.56393E-02   9.92733E-01
+    0.00000E+00   2.53728E-03   1.32033E-03   5.65135E+01  -2.81019E+01
+    4.84919E+01  -3.39445E+01   4.95048E+00  -3.93617E+00   4.92638E+00
+   -3.94963E+00   1.35952E-01   3.92197E-02   1.44530E-01   4.55318E-02
+    9.92844E-01   8.81332E-05   2.63343E-03   1.39707E-03   5.76464E+01
+   -2.71689E+01   5.02593E+01  -3.24890E+01   5.15759E+00  -3.76562E+00
+    5.13568E+00  -3.77727E+00   1.35959E-01   3.92251E-02   1.44338E-01
+    4.53739E-02   9.92949E-01   1.73174E-04   2.73183E-03   1.47810E-03
+    5.87274E+01  -2.62496E+01   5.19146E+01  -3.10813E+01   5.35204E+00
+   -3.60024E+00   5.33206E+00  -3.61023E+00   1.35923E-01   3.91949E-02
+    1.44099E-01   4.51708E-02   9.93048E-01   2.59761E-04   2.83245E-03
+    1.56368E-03   5.97561E+01  -2.53449E+01   5.34605E+01  -2.97220E+01
+    5.53443E+00  -3.43985E+00   5.51620E+00  -3.44834E+00   1.35848E-01
+    3.91287E-02   1.43818E-01   4.49235E-02   9.93153E-01   3.49443E-04
+    2.93519E-03   1.65402E-03   6.07317E+01  -2.44571E+01   5.49025E+01
+   -2.84095E+01   5.70547E+00  -3.28420E+00   5.68879E+00  -3.29125E+00
+    1.35729E-01   3.90206E-02   1.43490E-01   4.46254E-02   9.93249E-01
+    4.39120E-04   3.04003E-03   1.74944E-03   6.16557E+01  -2.35855E+01
+    5.62462E+01  -2.71420E+01   5.86548E+00  -3.13324E+00   5.85014E+00
+   -3.13903E+00   1.35576E-01   3.88758E-02   1.43127E-01   4.42825E-02
+    9.93342E-01   5.25707E-04   3.14689E-03   1.85024E-03   6.25297E+01
+   -2.27301E+01   5.74952E+01  -2.59195E+01   6.01508E+00  -2.98681E+00
+    6.00088E+00  -2.99148E+00   1.35386E-01   3.86901E-02   1.42730E-01
+    4.38936E-02   9.93435E-01   6.16933E-04   3.25564E-03   1.95669E-03
+    6.33508E+01  -2.18947E+01   5.86540E+01  -2.47405E+01   6.15471E+00
+   -2.84478E+00   6.14152E+00  -2.84842E+00   1.35161E-01   3.84617E-02
+    1.42297E-01   4.34536E-02   9.93523E-01   7.06612E-04   3.36623E-03
+    2.06919E-03   6.41245E+01  -2.10756E+01   5.97278E+01  -2.36037E+01
+    6.28486E+00  -2.70698E+00   6.27261E+00  -2.70966E+00   1.34914E-01
+    3.82002E-02   1.41847E-01   4.29771E-02   9.93606E-01   7.94745E-04
+    3.47850E-03   2.18805E-03   6.48488E+01  -2.02760E+01   6.07204E+01
+   -2.25081E+01   6.40599E+00  -2.57327E+00   6.39447E+00  -2.57512E+00
+    1.34632E-01   3.78884E-02   1.41364E-01   4.24443E-02   9.93687E-01
+    8.82879E-04   3.59232E-03   2.31369E-03   6.55259E+01  -1.94954E+01
+    6.16363E+01  -2.14520E+01   6.51836E+00  -2.44371E+00   6.50756E+00
+   -2.44475E+00   1.34333E-01   3.75438E-02   1.40870E-01   4.18743E-02
+    9.93761E-01   9.71012E-04   3.70752E-03   2.44650E-03   6.61565E+01
+   -1.87349E+01   6.24780E+01  -2.04365E+01   6.62266E+00  -2.31789E+00
+    6.61238E+00  -2.31828E+00   1.34010E-01   3.71540E-02   1.40358E-01
+    4.12562E-02   9.93832E-01   1.05605E-03   3.82394E-03   2.58695E-03
+    6.67419E+01  -1.79939E+01   6.32506E+01  -1.94590E+01   6.71904E+00
+   -2.19592E+00   6.70930E+00  -2.19565E+00   1.33665E-01   3.67168E-02
+    1.39830E-01   4.05883E-02   9.93902E-01   1.14264E-03   3.94133E-03
+    2.73550E-03   6.72841E+01  -1.72727E+01   6.39579E+01  -1.85181E+01
+    6.80796E+00  -2.07764E+00   6.79862E+00  -2.07683E+00   1.33308E-01
+    3.62429E-02   1.39298E-01   3.98807E-02   9.93964E-01   1.22613E-03
+    4.05947E-03   2.89264E-03   6.77838E+01  -1.65720E+01   6.46024E+01
+   -1.76146E+01   6.88975E+00  -1.96297E+00   6.88078E+00  -1.96163E+00
+    1.32939E-01   3.57251E-02   1.38762E-01   3.91295E-02   9.94021E-01
+    1.30654E-03   4.17808E-03   3.05896E-03   6.82433E+01  -1.58910E+01
+    6.51885E+01  -1.67458E+01   6.96488E+00  -1.85160E+00   6.95619E+00
+   -1.84985E+00   1.32561E-01   3.51646E-02   1.38226E-01   3.83341E-02
+    9.94076E-01   1.38694E-03   4.29684E-03   3.23500E-03   6.86632E+01
+   -1.52308E+01   6.57189E+01  -1.59120E+01   7.03349E+00  -1.74374E+00
+    7.02510E+00  -1.74151E+00   1.32176E-01   3.45598E-02   1.37692E-01
+    3.74951E-02   9.94128E-01   1.46734E-03   4.41539E-03   3.42135E-03
+    6.90447E+01  -1.45924E+01   6.61965E+01  -1.51128E+01   7.09600E+00
+   -1.63913E+00   7.08780E+00  -1.63661E+00   1.31788E-01   3.39104E-02
+    1.37163E-01   3.66110E-02   9.94169E-01   1.54000E-03   4.53338E-03
+    3.61882E-03   6.93912E+01  -1.39726E+01   6.66252E+01  -1.43456E+01
+    7.15273E+00  -1.53765E+00   7.14471E+00  -1.53478E+00   1.31401E-01
+    3.32172E-02   1.36647E-01   3.56866E-02   9.94211E-01   1.61269E-03
+    4.65032E-03   3.82800E-03   6.97021E+01  -1.33753E+01   6.70075E+01
+   -1.36112E+01   7.20386E+00  -1.43941E+00   7.19598E+00  -1.43627E+00
+    1.31020E-01   3.24866E-02   1.36146E-01   3.47251E-02   9.94249E-01
+    1.68537E-03   4.76569E-03   4.04968E-03   6.99805E+01  -1.27974E+01
+    6.73465E+01  -1.29078E+01   7.24983E+00  -1.34401E+00   7.24208E+00
+   -1.34063E+00   1.30646E-01   3.17088E-02   1.35662E-01   3.37198E-02
+    9.94281E-01   1.75183E-03   4.87897E-03   4.28473E-03   7.02272E+01
+   -1.22410E+01   6.76440E+01  -1.22369E+01   7.29077E+00  -1.25167E+00
+    7.28310E+00  -1.24809E+00   1.30276E-01   3.08758E-02   1.35194E-01
+    3.26638E-02   9.94309E-01   1.81679E-03   4.98947E-03   4.53399E-03
+    7.04442E+01  -1.17051E+01   6.79042E+01  -1.15941E+01   7.32699E+00
+   -1.16218E+00   7.31941E+00  -1.15839E+00   1.29925E-01   3.00073E-02
+    1.34752E-01   3.15733E-02   9.94333E-01   1.87707E-03   5.09654E-03
+    4.79847E-03   7.06328E+01  -1.11901E+01   6.81283E+01  -1.09821E+01
+    7.35876E+00  -1.07544E+00   7.35124E+00  -1.07148E+00   1.29588E-01
+    2.90894E-02   1.34337E-01   3.04390E-02   9.94356E-01   1.93585E-03
+    5.19931E-03   5.07907E-03   7.07949E+01  -1.06956E+01   6.83196E+01
+   -1.03983E+01   7.38631E+00  -9.91416E-01   7.37881E+00  -9.87371E-01
+    1.29273E-01   2.81281E-02   1.33952E-01   2.92653E-02   9.94373E-01
+    1.98994E-03   5.29696E-03   5.37705E-03   7.09317E+01  -1.02223E+01
+    6.84799E+01  -9.84387E+00   7.40983E+00  -9.10060E-01   7.40238E+00
+   -9.05855E-01   1.28979E-01   2.71112E-02   1.33598E-01   2.80420E-02
+    9.94389E-01   2.04409E-03   5.38845E-03   5.69344E-03   7.10458E+01
+   -9.76716E+00   6.86125E+01  -9.31493E+00   7.42957E+00  -8.31292E-01
+    7.42213E+00  -8.27025E-01   1.28717E-01   2.60635E-02   1.33285E-01
+    2.67931E-02   9.94400E-01   2.08735E-03   5.47269E-03   6.02959E-03
+    7.11373E+01  -9.33563E+00   6.87184E+01  -8.81570E+00   7.44575E+00
+   -7.54994E-01   7.43833E+00  -7.50640E-01   1.28480E-01   2.49459E-02
+    1.33007E-01   2.54792E-02   9.94410E-01   2.13531E-03   5.54843E-03
+    6.38675E-03   7.12090E+01  -8.92207E+00   6.88008E+01  -8.34061E+00
+    7.45856E+00  -6.81176E-01   7.45115E+00  -6.76760E-01   1.28280E-01
+    2.37966E-02   1.32774E-01   2.41395E-02   9.94416E-01   2.17239E-03
+    5.61432E-03   6.76646E-03   7.12619E+01  -8.52992E+00   6.88611E+01
+   -7.89362E+00   7.46819E+00  -6.09787E-01   7.46079E+00  -6.05346E-01
+    1.28116E-01   2.25796E-02   1.32585E-01   2.27397E-02   9.94422E-01
+    2.21417E-03   5.66882E-03   7.17028E-03   7.12979E+01  -8.15744E+00
+    6.89019E+01  -7.47048E+00   7.47486E+00  -5.40628E-01   7.46746E+00
+   -5.36138E-01   1.27996E-01   2.13288E-02   1.32448E-01   2.13098E-02
+    9.94425E-01   2.24509E-03   5.71022E-03   7.59975E-03   7.13182E+01
+   -7.80565E+00   6.89249E+01  -7.07397E+00   7.47867E+00  -4.74828E-01
+    7.47127E+00  -4.70326E-01   1.27919E-01   2.00069E-02   1.32361E-01
+    1.98175E-02   9.94426E-01   2.27290E-03   5.73667E-03   8.05677E-03
+    7.13246E+01  -7.47305E+00   6.89321E+01  -6.70059E+00   7.47976E+00
+   -4.18243E-01   7.47236E+00  -4.13753E-01   1.27893E-01   1.86422E-02
+    1.32332E-01   1.82874E-02   9.94427E-01   2.30076E-03   5.74607E-03
+    8.54323E-03   7.13162E+01  -7.03538E+00   6.89230E+01  -6.22691E+00
+    7.47874E+00  -3.64999E-01   7.47134E+00  -3.60472E-01   1.27891E-01
+    1.87510E-02   1.32332E-01   1.82833E-02   9.94426E-01   2.32856E-03
+    5.73611E-03   9.06115E-03   7.12984E+01  -6.72692E+00   6.89033E+01
+   -5.88677E+00   7.47578E+00  -3.13917E-01   7.46839E+00  -3.09427E-01
+    1.27965E-01   1.74690E-02   1.32414E-01   1.68552E-02   9.94425E-01
+    2.35333E-03   5.70423E-03   9.61280E-03   7.12712E+01  -6.44520E+00
+    6.88735E+01  -5.57677E+00   7.47105E+00  -2.64757E-01   7.46366E+00
+   -2.60304E-01   1.28102E-01   1.60409E-02   1.32565E-01   1.52848E-02
+    9.94424E-01   2.36567E-03   5.64762E-03   1.02005E-02   7.12360E+01
+   -6.18364E+00   6.88348E+01  -5.29025E+00   7.46470E+00  -2.17706E-01
+    7.45732E+00  -2.13278E-01   1.28305E-01   1.45409E-02   1.32786E-01
+    1.36476E-02   9.94422E-01   2.37652E-03   5.56316E-03   1.08267E-02
+    7.11937E+01  -5.93993E+00   6.87889E+01  -5.02578E+00   7.45688E+00
+   -1.72629E-01   7.44950E+00  -1.68213E-01   1.28574E-01   1.29868E-02
+    1.33078E-01   1.19659E-02   9.94421E-01   2.38577E-03   5.44739E-03
+    1.14942E-02   7.11461E+01  -5.71557E+00   6.87374E+01  -4.78241E+00
+    7.44772E+00  -1.29411E-01   7.44035E+00  -1.25070E-01   1.28915E-01
+    1.13797E-02   1.33445E-01   1.02355E-02   9.94420E-01   2.39044E-03
+    5.29649E-03   1.22060E-02   7.10948E+01  -5.51066E+00   6.86822E+01
+   -4.56207E+00   7.43737E+00  -8.81080E-02   7.43002E+00  -8.38034E-02
+    1.29340E-01   9.68107E-03   1.33900E-01   8.42015E-03   9.94419E-01
+    2.39195E-03   5.10633E-03   1.29651E-02   7.10403E+01  -5.32212E+00
+    6.86239E+01  -4.36045E+00   7.42595E+00  -4.86004E-02   7.41861E+00
+   -4.43452E-02   1.29838E-01   7.95949E-03   1.34429E-01   6.58955E-03
+    9.94421E-01   2.38889E-03   4.87222E-03   1.37749E-02   7.09853E+01
+   -5.15429E+00   6.85655E+01  -4.18233E+00   7.41361E+00  -1.09348E-02
+    7.40629E+00  -6.75383E-03   1.30439E-01   6.12568E-03   1.35063E-01
+    4.65215E-03   9.94423E-01   2.38116E-03   4.58914E-03   1.46390E-02
+    7.09302E+01  -5.00361E+00   6.85072E+01  -4.02316E+00   7.40047E+00
+    2.49617E-02   7.39316E+00   2.91178E-02   1.31128E-01   4.24351E-03
+    1.35788E-01   2.67259E-03   9.94424E-01   2.37804E-03   4.25144E-03
+    1.55612E-02   7.07619E+01  -4.58786E+00   6.83366E+01  -3.60145E+00
+    7.38661E+00   5.92135E-02   7.37933E+00   6.32955E-02   1.30475E-01
+    5.85703E-03   1.35136E-01   4.28531E-03   9.94421E-01   2.38425E-03
+    3.85298E-03   1.65457E-02   7.05220E+01  -4.04671E+00   6.80947E+01
+   -3.05576E+00   7.37211E+00   9.19178E-02   7.36487E+00   9.59131E-02
+    1.28985E-01   9.21760E-03   1.33627E-01   7.68996E-03   9.94415E-01
+    2.39814E-03   3.38696E-03   1.75970E-02   7.04571E+01  -3.91198E+00
+    6.80285E+01  -2.91864E+00   7.35725E+00   1.22769E-01   7.35003E+00
+    1.26702E-01   1.29752E-01   7.62744E-03   1.34428E-01   6.02557E-03
+    9.94424E-01   2.38270E-03   2.84597E-03   1.87198E-02   7.03948E+01
+   -3.79219E+00   6.79659E+01  -2.79808E+00   7.34202E+00   1.52021E-01
+    7.33484E+00   1.55905E-01   1.30610E-01   5.97795E-03   1.35323E-01
+    4.30652E-03   9.94431E-01   2.36567E-03   2.22182E-03   1.99193E-02
+    7.03370E+01  -3.68893E+00   6.79087E+01  -2.69579E+00   7.32652E+00
+    1.79743E-01   7.31940E+00   1.83516E-01   1.31570E-01   4.25980E-03
+    1.36319E-01   2.52457E-03   9.94443E-01   2.34405E-03   1.50562E-03
+    2.12006E-02   7.02839E+01  -3.60002E+00   6.78570E+01  -2.60927E+00
+    7.31088E+00   2.05940E-01   7.30377E+00   2.09675E-01   1.32625E-01
+    2.49477E-03   1.37408E-01   7.01583E-04   9.94457E-01   2.32237E-03
+    6.87305E-04   2.25703E-02   7.02392E+01  -3.52961E+00   6.78143E+01
+   -2.54221E+00   7.29514E+00   2.30682E-01   7.28811E+00   2.34306E-01
+    1.33816E-01   6.21962E-04   1.38634E-01  -1.22614E-03   9.94474E-01
+    2.29612E-03  -2.43624E-04   2.40340E-02   7.02026E+01  -3.47534E+00
+    6.77807E+01  -2.49231E+00   7.27946E+00   2.53921E-01   7.27246E+00
+    2.57496E-01   1.35129E-01  -1.32470E-03   1.39982E-01  -3.22380E-03
+    9.94491E-01   2.26980E-03  -1.29923E-03   2.55989E-02   6.93000E+01
+   -2.20991E+00   6.68826E+01  -1.23301E+00   7.26355E+00   2.76239E-01
+    7.25662E+00   2.79727E-01   1.25380E-01   1.23457E-02   1.30025E-01
+    1.07388E-02   9.94460E-01   2.31313E-03  -2.49265E-03   2.72724E-02
+    6.91817E+01  -2.05237E+00   6.67693E+01  -1.08220E+00   7.24810E+00
+    2.96797E-01   7.24121E+00   3.00212E-01   1.25646E-01   1.19928E-02
+    1.30304E-01   1.03665E-02   9.94482E-01   2.28529E-03  -3.83759E-03
+    2.90616E-02   6.91167E+01  -1.97021E+00   6.67105E+01  -1.00777E+00
+    7.23291E+00   3.16016E-01   7.22607E+00   3.19368E-01   1.26585E-01
+    1.08040E-02   1.31270E-01   9.14531E-03   9.94503E-01   2.25743E-03
+   -5.35010E-03   3.09757E-02   6.90571E+01  -1.89820E+00   6.66584E+01
+   -9.44844E-01   7.21800E+00   3.33993E-01   7.21127E+00   3.37234E-01
+    1.27594E-01   9.58687E-03   1.32301E-01   7.90034E-03   9.94531E-01
+    2.22345E-03  -7.04722E-03   3.30235E-02   6.90040E+01  -1.83702E+00
+    6.66132E+01  -8.92781E-01   7.20352E+00   3.50700E-01   7.19684E+00
+    3.53879E-01   1.28675E-01   8.34091E-03   1.33404E-01   6.62967E-03
+    9.94561E-01   2.18940E-03  -8.94726E-03   3.52141E-02   6.88952E+01
+   -1.71691E+00   6.65135E+01  -7.82752E-01   7.18940E+00   3.66278E-01
+    7.18280E+00   3.69370E-01   1.29021E-01   7.95794E-03   1.33754E-01
+    6.24242E-03   9.94588E-01   2.15850E-03  -1.10710E-02   3.75586E-02
+    6.85063E+01  -1.30503E+00   6.61349E+01  -3.81772E-01   7.17568E+00
+    3.80807E-01   7.16915E+00   3.83826E-01   1.25757E-01   1.14147E-02
+    1.30423E-01   9.76997E-03   9.94605E-01   2.14147E-03  -1.34407E-02
+    4.00677E-02   6.84570E+01  -1.25478E+00   6.60963E+01  -3.42590E-01
+    7.16269E+00   3.94035E-01   7.15619E+00   3.97004E-01   1.26812E-01
+    1.03410E-02   1.31493E-01   8.68118E-03   9.94641E-01   2.10439E-03
+   -1.60807E-02   4.27536E-02   6.84158E+01  -1.21459E+00   6.60678E+01
+   -3.14680E-01   7.15023E+00   4.06227E-01   7.14385E+00   4.09084E-01
+    1.27960E-01   9.21760E-03   1.32652E-01   7.54694E-03   9.94681E-01
+    2.06571E-03  -1.90179E-02   4.56289E-02   6.83814E+01  -1.18214E+00
+    6.60464E+01  -2.94497E-01   7.13831E+00   4.17476E-01   7.13200E+00
+    4.20284E-01   1.29160E-01   8.08512E-03   1.33862E-01   6.40516E-03
+    9.94718E-01   2.03017E-03  -2.22812E-02   4.87074E-02   6.83814E+01
+   -1.18214E+00   6.60464E+01  -2.94497E-01   7.13831E+00   4.17476E-01
+    7.13200E+00   4.20284E-01   1.29160E-01   8.08512E-03   1.33862E-01
+    6.40516E-03   9.94718E-01   2.03017E-03  -2.22812E-02   4.87074E-02
+ ECHO READ:EBINDA(IM),$LGN(GE(IM)/0,1/)
+    2.96878E-02   1.69413E+02   2.69387E+01
+ ECHO READ:($LGN(GMFP,GBR1,GBR2(I,IM)/0,1/),I=1,NGE)
+    1.16570E-03   1.76462E-04   0.00000E+00   0.00000E+00   2.03558E-02
+    3.27548E-03   1.16570E-03   1.76462E-04   0.00000E+00   0.00000E+00
+    2.03558E-02   3.27548E-03   1.27011E-03   1.93363E-04   0.00000E+00
+    0.00000E+00   8.35115E-03   1.33219E-03   1.38410E-03   2.11928E-04
+    0.00000E+00   0.00000E+00  -5.73241E-03  -9.61418E-04   1.50630E-03
+    2.31951E-04   0.00000E+00   0.00000E+00   1.36109E-03   2.00833E-04
+    1.64082E-03   2.54126E-04   0.00000E+00   0.00000E+00  -6.77843E-03
+   -1.14096E-03   1.78447E-03   2.77952E-04   0.00000E+00   0.00000E+00
+    9.60456E-03   1.57640E-03   1.94362E-03   3.04514E-04   0.00000E+00
+    0.00000E+00   1.57229E-03   2.35872E-04   2.11444E-03   3.33200E-04
+    0.00000E+00   0.00000E+00   1.11100E-02   1.83756E-03   2.30454E-03
+    3.65324E-04   0.00000E+00   0.00000E+00  -7.61174E-03  -1.32615E-03
+    2.50621E-03   3.99619E-04   0.00000E+00   0.00000E+00   7.01569E-03
+    1.16129E-03   2.73679E-03   4.39078E-04   0.00000E+00   0.00000E+00
+    2.23251E-03   3.42727E-04   3.08275E-03   4.98663E-04   0.00000E+00
+    0.00000E+00   8.20923E-03   1.37208E-03   3.36811E-03   5.48125E-04
+    0.00000E+00   0.00000E+00   2.97454E-03   4.64724E-04   3.67540E-03
+    6.01734E-04   0.00000E+00   0.00000E+00   1.58261E-02   2.70679E-03
+    4.01874E-03   6.62024E-04   0.00000E+00   0.00000E+00  -2.55770E-03
+   -5.21327E-04  -1.78006E-02  -3.19449E-03   0.00000E+00   0.00000E+00
+   -2.67677E-02  -4.80039E-03  -2.85728E-03  -5.35852E-04   0.00000E+00
+    0.00000E+00  -1.95894E-03  -3.86537E-04   2.15743E-03   3.62270E-04
+    0.00000E+00   0.00000E+00   5.16836E-03   8.89946E-04  -2.46828E-04
+   -7.12089E-05   0.00000E+00   0.00000E+00  -4.61632E-03  -8.74198E-04
+    2.26038E-03   3.83877E-04   0.00000E+00   0.00000E+00   5.05742E-03
+    8.81695E-04  -5.61891E-03  -1.05600E-03   0.00000E+00   0.00000E+00
+   -7.99268E-03  -1.50311E-03   1.86703E-03   3.21339E-04   0.00000E+00
+    0.00000E+00   2.89420E-03   4.99970E-04  -1.04536E-03  -2.18197E-04
+    0.00000E+00   0.00000E+00  -1.44306E-03  -3.03532E-04   1.91013E-03
+    3.33115E-04   0.00000E+00   0.00000E+00   4.01614E-03   7.14821E-04
+    4.50968E-04   5.90269E-05   0.00000E+00   0.00000E+00  -4.23734E-04
+   -1.19163E-04   2.13396E-03   3.77380E-04   0.00000E+00   0.00000E+00
+    1.98979E-03   3.37375E-04   2.33348E-03   4.15387E-04   0.00000E+00
+    0.00000E+00   3.31230E-03   5.89308E-04   2.55162E-03   4.57238E-04
+    0.00000E+00   0.00000E+00   4.21179E-03   7.61878E-04   2.79025E-03
+    5.03348E-04   0.00000E+00   0.00000E+00   3.89297E-03   7.00272E-04
+    3.07343E-03   5.58462E-04   0.00000E+00   0.00000E+00   4.22491E-03
+    7.64876E-04   3.39903E-03   6.22292E-04   0.00000E+00   0.00000E+00
+    4.60309E-03   8.39015E-04   3.72240E-03   6.86151E-04   0.00000E+00
+    0.00000E+00   6.54230E-03   1.22197E-03   4.07718E-03   7.56729E-04
+    0.00000E+00   0.00000E+00   5.45614E-03   1.00589E-03   4.46483E-03
+    8.34422E-04   0.00000E+00   0.00000E+00   6.75269E-03   1.26574E-03
+    4.88961E-03   9.20193E-04   0.00000E+00   0.00000E+00   6.38154E-03
+    1.19080E-03   5.35385E-03   1.01464E-03   0.00000E+00   0.00000E+00
+    7.84035E-03   1.48758E-03   5.86215E-03   1.11884E-03   0.00000E+00
+    0.00000E+00   8.47619E-03   1.61793E-03   6.50489E-03   1.25160E-03
+    0.00000E+00   0.00000E+00   8.73814E-03   1.67204E-03   7.18023E-03
+    1.39218E-03   0.00000E+00   0.00000E+00   1.06449E-02   2.06896E-03
+    7.87727E-03   1.53841E-03   0.00000E+00   0.00000E+00   1.03267E-02
+    2.00219E-03   8.63906E-03   1.69947E-03   0.00000E+00   0.00000E+00
+    1.37004E-02   2.71549E-03   9.47741E-03   1.87812E-03   0.00000E+00
+    0.00000E+00   1.21843E-02   2.39240E-03   1.03927E-02   2.07473E-03
+    0.00000E+00   0.00000E+00   1.52687E-02   3.05493E-03   1.15128E-02
+    2.31727E-03   0.00000E+00   0.00000E+00   1.67134E-02   3.36774E-03
+    1.27079E-02   2.57812E-03   0.00000E+00   0.00000E+00   1.82224E-02
+    3.69713E-03   1.39574E-02   2.85308E-03   0.00000E+00   0.00000E+00
+    1.89111E-02   3.84869E-03   1.53254E-02   3.15661E-03   0.00000E+00
+    0.00000E+00   2.22403E-02   4.58736E-03   1.68297E-02   3.49317E-03
+    0.00000E+00   0.00000E+00   2.27084E-02   4.69209E-03   1.84768E-02
+    3.86473E-03   0.00000E+00   0.00000E+00   2.60534E-02   5.44669E-03
+    2.02855E-02   4.27620E-03   0.00000E+00   0.00000E+00   2.77003E-02
+    5.82135E-03   2.22665E-02   4.73071E-03   0.00000E+00   0.00000E+00
+    3.10868E-02   6.59833E-03   2.44381E-02   5.23323E-03   0.00000E+00
+    0.00000E+00   3.48503E-02   7.46922E-03   2.68233E-02   5.78996E-03
+    0.00000E+00   0.00000E+00   3.65287E-02   7.86099E-03   2.94308E-02
+    6.40390E-03   0.00000E+00   0.00000E+00   4.14890E-02   9.02888E-03
+    3.26570E-02   7.17022E-03   0.00000E+00   0.00000E+00   4.47583E-02
+    9.80545E-03   3.60219E-02   7.97657E-03   0.00000E+00   0.00000E+00
+    4.94359E-02   1.09264E-02   3.95751E-02   8.83572E-03   0.00000E+00
+    0.00000E+00   5.43587E-02   1.21167E-02   4.34719E-02   9.78645E-03
+    0.00000E+00   0.00000E+00   5.97387E-02   1.34293E-02   4.77463E-02
+    1.08388E-02   0.00000E+00   0.00000E+00   6.51774E-02   1.47683E-02
+    5.24329E-02   1.20034E-02   0.00000E+00   0.00000E+00   7.10700E-02
+    1.62325E-02   5.75637E-02   1.32901E-02   0.00000E+00   0.00000E+00
+    7.84238E-02   1.80768E-02   6.31919E-02   1.47149E-02   0.00000E+00
+    0.00000E+00   8.49377E-02   1.97258E-02   6.94152E-02   1.63053E-02
+    0.00000E+00   0.00000E+00   9.36538E-02   2.19533E-02   7.61764E-02
+    1.80497E-02   0.00000E+00   0.00000E+00   1.01958E-01   2.40958E-02
+    8.35699E-02   1.99757E-02   0.00000E+00   0.00000E+00   1.11531E-01
+    2.65895E-02   9.16540E-02   2.21021E-02   0.00000E+00   0.00000E+00
+    1.22246E-01   2.94080E-02   1.00492E-01   2.44498E-02   0.00000E+00
+    0.00000E+00   1.33905E-01   3.25049E-02   1.10159E-01   2.70432E-02
+    0.00000E+00   0.00000E+00   1.45503E-01   3.56164E-02   1.20707E-01
+    2.99014E-02   0.00000E+00   0.00000E+00   1.59119E-01   3.93061E-02
+   -7.27922E-01  -2.02394E-01   0.00000E+00   0.00000E+00  -9.87100E-01
+   -2.74448E-01   4.38266E-02   1.10256E-02   0.00000E+00   0.00000E+00
+    5.71561E-02   1.43301E-02   4.78813E-02   1.21585E-02   0.00000E+00
+    0.00000E+00   6.22455E-02   1.57521E-02   5.22962E-02   1.34050E-02
+    0.00000E+00   0.00000E+00   6.74503E-02   1.72216E-02   5.69786E-02
+    1.47410E-02   0.00000E+00   0.00000E+00   7.34944E-02   1.89461E-02
+   -2.23110E-01  -6.60314E-02   0.00000E+00   0.00000E+00  -2.98342E-01
+   -8.82846E-02   3.59525E-02   9.48591E-03   0.00000E+00   0.00000E+00
+    4.58239E-02   1.20405E-02   3.92588E-02   1.04602E-02   0.00000E+00
+    0.00000E+00   4.97845E-02   1.32076E-02   4.28617E-02   1.15337E-02
+    0.00000E+00   0.00000E+00   5.40093E-02   1.44664E-02   4.67859E-02
+    1.27160E-02   0.00000E+00   0.00000E+00   5.87169E-02   1.58847E-02
+    5.10599E-02   1.40183E-02   0.00000E+00   0.00000E+00   6.36365E-02
+    1.73837E-02   5.60409E-02   1.55533E-02   0.00000E+00   0.00000E+00
+    6.95267E-02   1.91989E-02   6.20131E-02   1.74151E-02   0.00000E+00
+    0.00000E+00   7.65246E-02   2.13804E-02   6.77671E-02   1.92298E-02
+    0.00000E+00   0.00000E+00   8.31036E-02   2.34554E-02   7.40350E-02
+    2.12301E-02   0.00000E+00   0.00000E+00   9.03287E-02   2.57611E-02
+    8.08625E-02   2.34351E-02   0.00000E+00   0.00000E+00   9.78428E-02
+    2.81879E-02   8.82918E-02   2.58635E-02   0.00000E+00   0.00000E+00
+    1.06209E-01   3.09226E-02   9.69113E-02   2.87156E-02   0.00000E+00
+    0.00000E+00   1.15854E-01   3.41140E-02   1.07262E-01   3.21832E-02
+    0.00000E+00   0.00000E+00   1.27402E-01   3.79825E-02   1.17234E-01
+    3.55659E-02   0.00000E+00   0.00000E+00   1.38301E-01   4.16798E-02
+    1.28083E-01   3.92931E-02   0.00000E+00   0.00000E+00   1.49983E-01
+    4.56930E-02   1.39879E-01   4.33978E-02   0.00000E+00   0.00000E+00
+    1.62533E-01   5.00603E-02   1.53253E-01   4.81125E-02   0.00000E+00
+    0.00000E+00   1.76833E-01   5.51017E-02   1.68292E-01   5.34848E-02
+    0.00000E+00   0.00000E+00   1.92750E-01   6.07875E-02   1.83709E-01
+    5.90659E-02   0.00000E+00   0.00000E+00   2.08664E-01   6.65483E-02
+    2.00428E-01   6.52010E-02   0.00000E+00   0.00000E+00   2.25786E-01
+    7.28313E-02   2.18535E-01   7.19369E-02   0.00000E+00   0.00000E+00
+    2.44182E-01   7.96748E-02   2.38127E-01   7.93274E-02   0.00000E+00
+    0.00000E+00   2.63768E-01   8.70631E-02   2.59295E-01   8.74261E-02
+    0.00000E+00   0.00000E+00   2.84676E-01   9.50618E-02   2.82135E-01
+    9.62900E-02   0.00000E+00   0.00000E+00   3.07026E-01   1.03736E-01
+    3.10298E-01   1.07380E-01   0.00000E+00   0.00000E+00   3.34824E-01
+    1.14682E-01   3.39767E-01   1.19155E-01   0.00000E+00   0.00000E+00
+    3.63234E-01   1.26034E-01   3.69409E-01   1.31179E-01   0.00000E+00
+    0.00000E+00   3.91226E-01   1.37389E-01   4.01232E-01   1.44284E-01
+    0.00000E+00   0.00000E+00   4.20787E-01   1.49562E-01   4.35322E-01
+    1.58541E-01   0.00000E+00   0.00000E+00   4.51929E-01   1.62587E-01
+    4.71753E-01   1.74018E-01   0.00000E+00   0.00000E+00   4.84683E-01
+    1.76501E-01   5.12777E-01   1.91724E-01   0.00000E+00   0.00000E+00
+    5.21545E-01   1.92411E-01   5.55962E-01   2.10667E-01   0.00000E+00
+    0.00000E+00   5.59431E-01   2.09029E-01   6.00455E-01   2.30507E-01
+    0.00000E+00   0.00000E+00   5.97687E-01   2.26088E-01   6.47516E-01
+    2.51845E-01   0.00000E+00   0.00000E+00   6.37243E-01   2.44023E-01
+    6.97107E-01   2.74715E-01   0.00000E+00   0.00000E+00   6.78223E-01
+    2.62922E-01   7.49181E-01   2.99148E-01   0.00000E+00   0.00000E+00
+    7.20345E-01   2.82686E-01   8.03644E-01   3.25156E-01   0.00000E+00
+    0.00000E+00   7.63447E-01   3.03268E-01   8.60368E-01   3.52731E-01
+    0.00000E+00   0.00000E+00   8.07363E-01   3.24618E-01   9.19166E-01
+    3.81841E-01   0.00000E+00   0.00000E+00   8.51825E-01   3.46629E-01
+    9.79855E-01   4.12449E-01   0.00000E+00   0.00000E+00   8.96400E-01
+    3.69110E-01   1.04213E+00   4.44455E-01   0.00000E+00   0.00000E+00
+    9.40990E-01   3.92029E-01   1.10470E+00   4.77240E-01   0.00000E+00
+    0.00000E+00   9.84067E-01   4.14599E-01   1.16861E+00   5.11389E-01
+    0.00000E+00   0.00000E+00   1.02679E+00   4.37431E-01   1.23347E+00
+    5.46750E-01   0.00000E+00   0.00000E+00   1.06868E+00   4.60267E-01
+    1.29842E+00   5.82891E-01   0.00000E+00   0.00000E+00   1.10900E+00
+    4.82701E-01   1.36304E+00   6.19607E-01   0.00000E+00   0.00000E+00
+    1.14723E+00   5.04423E-01   1.42680E+00   6.56612E-01   0.00000E+00
+    0.00000E+00   1.18311E+00   5.25246E-01   1.48921E+00   6.93633E-01
+    0.00000E+00   0.00000E+00   1.21621E+00   5.44883E-01   1.54982E+00
+    7.30396E-01   0.00000E+00   0.00000E+00   1.24612E+00   5.63024E-01
+    1.59324E+00   7.57340E-01   0.00000E+00   0.00000E+00   1.25928E+00
+    5.71192E-01   1.64677E+00   7.91339E-01   0.00000E+00   0.00000E+00
+    1.28063E+00   5.84748E-01   1.69814E+00   8.24755E-01   0.00000E+00
+    0.00000E+00   1.29898E+00   5.96687E-01   1.74613E+00   8.56743E-01
+    0.00000E+00   0.00000E+00   1.31354E+00   6.06392E-01   1.79052E+00
+    8.87081E-01   0.00000E+00   0.00000E+00   1.32418E+00   6.13661E-01
+    1.83101E+00   9.15481E-01   0.00000E+00   0.00000E+00   1.33097E+00
+    6.18423E-01   1.86755E+00   9.41786E-01   0.00000E+00   0.00000E+00
+    1.33396E+00   6.20576E-01   1.90001E+00   9.65799E-01   0.00000E+00
+    0.00000E+00   1.33332E+00   6.20102E-01   1.92841E+00   9.87404E-01
+    0.00000E+00   0.00000E+00   1.32928E+00   6.17029E-01   1.95284E+00
+    1.00653E+00   0.00000E+00   0.00000E+00   1.32209E+00   6.11403E-01
+    1.97207E+00   1.02203E+00   0.00000E+00   0.00000E+00   1.31099E+00
+    6.02452E-01   1.92400E+00   9.82079E-01   0.00000E+00   0.00000E+00
+    1.24787E+00   5.49997E-01   1.93853E+00   9.94542E-01   0.00000E+00
+    0.00000E+00   1.23534E+00   5.39246E-01   1.95059E+00   1.00522E+00
+    0.00000E+00   0.00000E+00   1.22143E+00   5.26934E-01   1.96040E+00
+    1.01421E+00   0.00000E+00   0.00000E+00   1.20650E+00   5.13253E-01
+    1.96827E+00   1.02167E+00   0.00000E+00   0.00000E+00   1.19075E+00
+    4.98325E-01   1.97440E+00   1.02770E+00   0.00000E+00   0.00000E+00
+    1.17451E+00   4.82365E-01   1.97907E+00   1.03245E+00   0.00000E+00
+    0.00000E+00   1.15802E+00   4.65549E-01   1.97686E+00   1.03012E+00
+    0.00000E+00   0.00000E+00   1.13750E+00   4.43795E-01   1.96529E+00
+    1.01734E+00   0.00000E+00   0.00000E+00   1.11153E+00   4.15137E-01
+    1.96807E+00   1.02055E+00   0.00000E+00   0.00000E+00   1.09664E+00
+    3.98011E-01   1.97031E+00   1.02323E+00   0.00000E+00   0.00000E+00
+    1.08226E+00   3.80721E-01   1.97220E+00   1.02562E+00   0.00000E+00
+    0.00000E+00   1.06847E+00   3.63378E-01   1.97384E+00   1.02778E+00
+    0.00000E+00   0.00000E+00   1.05538E+00   3.46104E-01   1.97158E+00
+    1.02464E+00   0.00000E+00   0.00000E+00   1.04059E+00   3.25571E-01
+    1.96332E+00   1.01256E+00   0.00000E+00   0.00000E+00   1.02295E+00
+    2.99771E-01   1.96584E+00   1.01646E+00   0.00000E+00   0.00000E+00
+    1.01310E+00   2.84535E-01   1.96841E+00   1.02068E+00   0.00000E+00
+    0.00000E+00   1.00404E+00   2.69663E-01   1.97110E+00   1.02538E+00
+    0.00000E+00   0.00000E+00   9.95762E-01   2.55193E-01   1.96723E+00
+    1.01815E+00   0.00000E+00   0.00000E+00   9.84311E-01   2.33792E-01
+    1.95941E+00   1.00244E+00   0.00000E+00   0.00000E+00   9.71414E-01
+    2.07891E-01   1.96361E+00   1.01156E+00   0.00000E+00   0.00000E+00
+    9.66397E-01   1.97000E-01   1.96778E+00   1.02139E+00   0.00000E+00
+    0.00000E+00   9.61951E-01   1.86508E-01   1.97185E+00   1.03192E+00
+    0.00000E+00   0.00000E+00   9.58051E-01   1.76419E-01   1.97582E+00
+    1.04329E+00   0.00000E+00   0.00000E+00   9.54669E-01   1.66743E-01
+    1.97962E+00   1.05546E+00   0.00000E+00   0.00000E+00   9.51776E-01
+    1.57481E-01   1.98322E+00   1.06854E+00   0.00000E+00   0.00000E+00
+    9.49340E-01   1.48626E-01   1.98288E+00   1.06712E+00   0.00000E+00
+    0.00000E+00   9.45424E-01   1.32176E-01   1.98410E+00   1.07318E+00
+    0.00000E+00   0.00000E+00   9.42952E-01   1.19876E-01   1.98701E+00
+    1.09092E+00   0.00000E+00   0.00000E+00   9.41916E-01   1.13555E-01
+    1.98937E+00   1.10960E+00   0.00000E+00   0.00000E+00   9.41152E-01
+    1.07521E-01   1.99113E+00   1.12923E+00   0.00000E+00   0.00000E+00
+    9.40637E-01   1.01772E-01   1.99222E+00   1.14988E+00   0.00000E+00
+    0.00000E+00   9.40349E-01   9.62890E-02   1.99234E+00   1.15779E+00
+    0.00000E+00   0.00000E+00   9.40170E-01   8.46495E-02   1.99369E+00
+    1.09565E+00  -8.06911E-04   3.70547E-02   9.40314E-01   7.80604E-02
+    1.99258E+00   1.11448E+00  -8.93760E-04   3.85293E-02   9.40539E-01
+    7.42367E-02   1.99071E+00   1.13397E+00  -1.04049E-03   4.00574E-02
+    9.40889E-01   7.05886E-02   1.98803E+00   1.15413E+00  -1.24939E-03
+    4.16264E-02   9.41352E-01   6.71171E-02   1.98449E+00   1.17492E+00
+   -1.52376E-03   4.32379E-02   9.41917E-01   6.37950E-02   1.98003E+00
+    1.19643E+00  -1.86717E-03   4.48938E-02   9.42574E-01   6.06318E-02
+    1.97461E+00   1.21858E+00  -2.28335E-03   4.65959E-02   9.43310E-01
+    5.76180E-02   1.96818E+00   1.24141E+00  -2.77623E-03   4.83461E-02
+    9.44116E-01   5.47534E-02   1.96069E+00   1.26492E+00  -3.34995E-03
+    5.01460E-02   9.44989E-01   5.20158E-02   1.95209E+00   1.28907E+00
+   -4.00880E-03   5.19974E-02   9.45915E-01   4.94178E-02   2.01175E+00
+    1.13726E+00  -3.01144E-02   1.18426E-01   9.47794E-01   4.46345E-02
+    2.04524E+00   1.05938E+00  -4.59458E-02   1.55233E-01   9.49157E-01
+    4.14649E-02   2.04123E+00   1.06798E+00  -4.81144E-02   1.59875E-01
+    9.50017E-01   3.96243E-02   2.03703E+00   1.07631E+00  -5.04813E-02
+    1.64568E-01   9.50904E-01   3.78666E-02   2.03272E+00   1.08426E+00
+   -5.30479E-02   1.69308E-01   9.51817E-01   3.61790E-02   2.02834E+00
+    1.09184E+00  -5.58159E-02   1.74092E-01   9.52750E-01   3.45669E-02
+    2.02391E+00   1.09903E+00  -5.87864E-02   1.78916E-01   9.53699E-01
+    3.30271E-02   2.01953E+00   1.10575E+00  -6.19588E-02   1.83775E-01
+    9.54665E-01   3.15466E-02   2.19371E+00   8.53287E-01  -1.21757E-01
+    2.70445E-01   9.56454E-01   2.89535E-02   2.21653E+00   8.21912E-01
+   -1.31274E-01   2.83534E-01   9.57398E-01   2.76545E-02   2.22303E+00
+    8.13408E-01  -1.35347E-01   2.88864E-01   9.58269E-01   2.65161E-02
+    2.23052E+00   8.04057E-01  -1.39522E-01   2.94073E-01   9.59148E-01
+    2.54194E-02   2.23912E+00   7.93793E-01  -1.43779E-01   2.99151E-01
+    9.60032E-01   2.43661E-02   2.24886E+00   7.82678E-01  -1.48101E-01
+    3.04087E-01   9.60917E-01   2.33526E-02   2.25982E+00   7.70665E-01
+   -1.52463E-01   3.08866E-01   9.61806E-01   2.23799E-02   2.27210E+00
+    7.57730E-01  -1.56841E-01   3.13475E-01   9.62695E-01   2.14438E-02
+    2.28575E+00   7.43902E-01  -1.61213E-01   3.17905E-01   9.63588E-01
+    2.05382E-02   2.30085E+00   7.29162E-01  -1.65549E-01   3.22140E-01
+    9.64476E-01   1.96711E-02   2.31744E+00   7.13522E-01  -1.69825E-01
+    3.26169E-01   9.65362E-01   1.88377E-02   2.60222E+00   4.54232E-01
+   -2.40197E-01   3.90243E-01   9.67071E-01   1.72802E-02   2.60222E+00
+    4.54232E-01  -2.40197E-01   3.90243E-01   9.67071E-01   1.72802E-02
+ DATA FOR MEDIUM #  5, WHICH IS: MEDIUM=LEAD-3MEV-10KEV-02KEV   ,STERNCID=LEAD-3MEV-10KEV-02KEV         
+ ELEM,RHO=  11.34    ,NE= 1,COMPOSITION IS :
+ ASYM=PB,Z=82.,A=  207.190,PZ= 1.00000E+00,RHOZ= 2.07190E+02            
+ ECHO READ:$LGN(RLC,AE,AP,UE,UP(IM))
+    5.61722E-01   5.21000E-01   2.00000E-03   3.51100E+00   3.00200E+00
+ ECHO READ:$LGN(MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE(IM)),IRAYL
+     0  200    0  150    0    0    0    0
+ ECHO READ:($LGN(DL(I,IM)/1,2,3,4,5,6/),I=1,6)
+    9.99978E-01  -2.54427E-01   5.83850E-02   9.95017E-01  -2.73094E-01
+    9.52000E-01   1.00027E+00  -2.16315E-01   4.17018E-02   1.01715E+00
+   -2.79168E-01   9.52000E-01   1.00042E+00  -1.96617E-01   3.01774E-02
+    1.02859E+00  -2.82308E-01   9.52000E-01   9.99976E-01  -2.78543E-01
+    6.39190E-02   9.94545E-01  -2.98980E-01   9.52000E-01   1.00029E+00
+   -2.37319E-01   4.57509E-02   1.01881E+00  -3.06275E-01   9.52000E-01
+    1.00046E+00  -2.15944E-01   3.31437E-02   1.03140E+00  -3.10058E-01
+    9.52000E-01
+ ECHO READ:DELCM(IM),($LGN(ALPHI,BPAR, DELPOS(I,IM)),I=1,2)
+    1.59966E+01   9.44751E-01   8.53032E-01   2.33006E+00   9.46747E-01
+    8.52630E-01   1.68084E+00
+ ECHO READ:$LGN(XR0,TEFF0,BLCC,XCC(IM))
+    2.95540E-01   5.91168E-04   3.38378E+04   5.73000E+00
+ ECHO READ:$LGN(EKE(IM)/0,1/)
+    1.21501E+02   2.59409E+01
+ ECHO READ:($LGN(ESIG,PSIG,EDEDX,PDEDX,EBR1,PBR1,PBR2, TMXS(I,IM)/0,1/),I=1,NEKE)
+    1.38378E+01   2.18057E+00   4.15774E+03   9.01448E+02  -9.28571E+01
+   -3.18232E+01  -1.73032E+02  -5.14711E+01   1.00000E+00   0.00000E+00
+   -6.80463E+01  -1.49172E+01   3.60754E+01   7.68879E+00   3.38669E-05
+    6.47600E-06   1.38378E+01   2.18057E+00   4.15774E+03   9.01448E+02
+   -9.28571E+01  -3.18232E+01  -1.73032E+02  -5.14711E+01   1.00000E+00
+    0.00000E+00  -6.80463E+01  -1.49172E+01   3.60754E+01   7.68879E+00
+    3.38669E-05   6.47600E-06   1.37859E+01   2.16920E+00   3.70100E+03
+    8.01462E+02  -9.05610E+01  -3.13206E+01  -1.65792E+02  -4.98861E+01
+    1.00000E+00   0.00000E+00  -4.80270E+00  -1.07266E+00   3.49096E+00
+    5.55774E-01   3.58038E-05   6.89999E-06   1.37311E+01   2.15710E+00
+    3.28299E+03   7.09179E+02  -8.82330E+01  -3.08067E+01  -1.58765E+02
+   -4.83347E+01   1.00000E+00   0.00000E+00  -1.67899E+00  -3.83037E-01
+    1.88220E+00   2.00610E-01   3.78648E-05   7.35502E-06   1.36789E+01
+    2.14548E+00   2.90617E+03   6.25273E+02  -8.59188E+01  -3.02913E+01
+   -1.52040E+02  -4.68374E+01   1.00000E+00   0.00000E+00  -8.27818E-01
+   -1.93510E-01   1.44437E+00   1.03118E-01   4.00554E-05   7.84278E-06
+    1.36228E+01   2.13287E+00   2.56505E+03   5.48660E+02  -8.35381E+01
+   -2.97566E+01  -1.45475E+02  -4.53629E+01   1.00000E+00   0.00000E+00
+   -4.75735E-01  -1.14434E-01   1.26371E+00   6.25425E-02   4.23621E-05
+    8.36087E-06   1.35690E+01   2.12069E+00   2.25801E+03   4.79099E+02
+   -8.12207E+01  -2.92316E+01  -1.39251E+02  -4.39528E+01   1.00000E+00
+    0.00000E+00  -2.96636E-01  -7.38577E-02   1.17221E+00   4.18120E-02
+    4.48076E-05   8.91492E-06   1.35139E+01   2.10810E+00   1.98094E+03
+    4.15773E+02  -7.88855E+01  -2.86980E+01  -1.33230E+02  -4.25766E+01
+    1.00000E+00   0.00000E+00  -1.92925E-01  -5.01544E-02   1.11957E+00
+    2.97815E-02   4.73932E-05   9.50586E-06   1.34572E+01   2.09502E+00
+    1.73181E+03   3.58329E+02  -7.65393E+01  -2.81569E+01  -1.27408E+02
+   -4.12342E+01   1.00000E+00   0.00000E+00  -1.27385E-01  -3.50418E-02
+    1.08661E+00   2.21832E-02   5.01236E-05   1.01354E-05   1.34029E+01
+    2.08239E+00   1.50790E+03   3.06235E+02  -7.42349E+01  -2.76208E+01
+   -1.21849E+02  -3.99410E+01   1.00000E+00   0.00000E+00  -8.31078E-02
+   -2.47408E-02   1.06464E+00   1.70717E-02   5.30194E-05   1.08091E-05
+    1.33482E+01   2.06955E+00   1.30689E+03   2.59046E+02  -7.19446E+01
+   -2.70832E+01  -1.16497E+02  -3.86844E+01   1.00000E+00   0.00000E+00
+   -5.16170E-02  -1.73480E-02   1.04930E+00   1.34688E-02   5.60775E-05
+    1.15270E-05   1.32921E+01   2.05626E+00   1.12645E+03   2.16301E+02
+   -6.96718E+01  -2.65448E+01  -1.11343E+02  -3.74634E+01   1.00000E+00
+    0.00000E+00  -2.82332E-02  -1.18084E-02   1.03815E+00   1.08296E-02
+    5.93090E-05   1.22926E-05   1.32377E+01   2.04324E+00   9.65164E+02
+    1.77739E+02  -6.74227E+01  -2.60070E+01  -1.06389E+02  -3.62789E+01
+    1.00000E+00   0.00000E+00  -1.02614E-02  -7.51167E-03   1.02984E+00
+    8.84121E-03   6.27297E-05   1.31105E-05   1.31836E+01   2.03019E+00
+    8.20988E+02   1.42948E+02  -6.52144E+01  -2.54741E+01  -1.01644E+02
+   -3.51341E+01   1.00000E+00   0.00000E+00   4.00231E-03  -4.06971E-03
+    1.02344E+00   7.29801E-03   6.63457E-05   1.39830E-05   1.31385E+01
+    2.01920E+00   6.92275E+02   1.11597E+02  -6.30148E+01  -2.49383E+01
+   -9.70569E+01  -3.40168E+01   1.00000E+00   0.00000E+00   1.56814E-02
+   -1.22493E-03   1.01843E+00   6.07814E-03   7.01635E-05   1.49129E-05
+    1.30985E+01   2.00936E+00   5.77772E+02   8.34425E+01  -6.08591E+01
+   -2.44083E+01  -9.26632E+01  -3.29364E+01   1.00000E+00   0.00000E+00
+    2.54630E-02   1.18018E-03   1.01446E+00   5.09933E-03   7.42059E-05
+    1.59069E-05   1.30381E+01   1.99438E+00   4.75954E+02   5.81679E+01
+   -5.87355E+01  -2.38811E+01  -8.84405E+01  -3.18882E+01   1.00000E+00
+    0.00000E+00   3.37550E-02   3.23853E-03   1.01122E+00   4.29536E-03
+    7.84667E-05   1.69646E-05   1.29761E+01   1.97885E+00   3.85628E+02
+    3.55290E+01  -5.66634E+01  -2.33618E+01  -8.44037E+01  -3.08763E+01
+    1.00000E+00   0.00000E+00   4.09856E-02   5.05075E-03   1.00855E+00
+    3.62892E-03   8.29758E-05   1.80947E-05   1.29222E+01   1.96520E+00
+    3.05912E+02   1.53545E+01  -5.46043E+01  -2.28407E+01  -8.04961E+01
+   -2.98876E+01   1.00000E+00   0.00000E+00   4.74257E-02   6.68064E-03
+    1.00635E+00   3.07075E-03   8.77409E-05   1.93007E-05   1.88874E+03
+    4.81374E+02   2.35547E+02  -2.62908E+00  -7.17020E+01  -2.72104E+01
+   -7.67519E+01  -2.89307E+01  -7.78539E+01  -2.01529E+01   5.32157E-02
+    8.16039E-03   1.00450E+00   2.59761E-03   9.27696E-05   2.05858E-05
+    1.57928E+03   4.01496E+02   1.73752E+02  -1.85793E+01  -6.72794E+01
+   -2.60688E+01  -7.31733E+01  -2.80069E+01  -8.42468E+00  -2.23213E+00
+    5.85313E-02   9.53240E-03   1.00292E+00   2.18942E-03   9.80937E-05
+    2.19601E-05   1.33024E+03   3.36571E+02   1.19641E+02  -3.26866E+01
+   -6.33508E+01  -2.50446E+01  -6.97147E+01  -2.71052E+01  -3.10946E+00
+   -8.46404E-01   6.34546E-02   1.08160E-02   1.00156E+00   1.83688E-03
+    1.03695E-04   2.34203E-05   1.12852E+03   2.83445E+02   7.23967E+01
+   -4.51286E+01  -5.98460E+01  -2.41216E+01  -6.64195E+01  -2.62374E+01
+   -1.56079E+00  -4.38552E-01   6.80874E-02   1.20360E-02   1.00040E+00
+    1.52919E-03   1.09634E-04   2.49845E-05   9.62953E+02   2.39395E+02
+    3.13938E+01  -5.60376E+01  -5.66457E+01  -2.32702E+01  -6.32386E+01
+   -2.53911E+01  -9.02506E-01  -2.63410E-01   7.24842E-02   1.32058E-02
+    9.99394E-01   1.26170E-03   1.15879E-04   2.66460E-05   8.26362E+02
+    2.02677E+02  -3.97568E+00  -6.55453E+01  -5.37158E+01  -2.24825E+01
+   -6.01979E+01  -2.45737E+01  -5.63228E-01  -1.72207E-01   7.66993E-02
+    1.43389E-02   9.98491E-01   1.02049E-03   1.22483E-04   2.84213E-05
+    7.12343E+02   1.71706E+02  -3.43071E+01  -7.37844E+01  -5.09878E+01
+   -2.17416E+01  -5.72682E+01  -2.37779E+01  -3.65667E-01  -1.18543E-01
+    8.07349E-02   1.54352E-02   9.97718E-01   8.10207E-04   1.29448E-04
+    3.03130E-05   6.16761E+02   1.45469E+02  -6.02293E+01  -8.09003E+01
+   -4.84576E+01  -2.10470E+01  -5.44777E+01  -2.30119E+01  -2.40716E-01
+   -8.42439E-02   8.46892E-02   1.65206E-02   9.97025E-01   6.20029E-04
+    1.36809E-04   3.23337E-05   5.35843E+02   1.23019E+02  -8.19678E+01
+   -8.69310E+01  -4.60556E+01  -2.03806E+01  -5.17767E+01  -2.22626E+01
+   -1.56598E-01  -6.09063E-02   8.85101E-02   1.75807E-02   9.96407E-01
+    4.48397E-04   1.44553E-04   3.44823E-05   4.67143E+02   1.03752E+02
+   -1.00280E+02  -9.20669E+01  -4.38071E+01  -1.97500E+01  -4.92086E+01
+   -2.15424E+01  -9.72094E-02  -4.42513E-02   9.23130E-02   1.86471E-02
+    9.95869E-01   2.95324E-04   1.52737E-04   3.67775E-05   4.08111E+02
+    8.70169E+01  -1.15235E+02  -9.63062E+01  -4.16582E+01  -1.91408E+01
+   -4.67303E+01  -2.08397E+01  -5.36229E-02  -3.18944E-02   9.59694E-02
+    1.96837E-02   9.95355E-01   1.51527E-04   1.61356E-04   3.92208E-05
+    3.57452E+02   7.24960E+01  -1.27424E+02  -9.98005E+01  -3.96226E+01
+   -1.85573E+01  -4.43652E+01  -2.01618E+01  -2.05192E-02  -2.24057E-02
+    9.96586E-02   2.07412E-02   9.94922E-01   2.78316E-05   1.70449E-04
+    4.18274E-05   3.13444E+02   5.97407E+01  -1.37103E+02  -1.02606E+02
+   -3.76817E+01  -1.79948E+01  -4.20995E+01  -1.95051E+01   5.34559E-03
+   -1.49090E-02   1.03288E-01   2.17930E-02   9.94520E-01  -8.96794E-05
+    1.80030E-04   4.46042E-05   2.75311E+02   4.85634E+01  -1.44404E+02
+   -1.04746E+02  -3.58130E+01  -1.74470E+01  -3.99153E+01  -1.88649E+01
+    2.59780E-02  -8.86145E-03   1.06879E-01   2.28456E-02   9.94155E-01
+   -1.97913E-04   1.90115E-04   4.75604E-05   2.41981E+02   3.86823E+01
+   -1.49869E+02  -1.06366E+02  -3.40351E+01  -1.69200E+01  -3.78353E+01
+   -1.82483E+01   4.28560E-02  -3.85767E-03   1.10466E-01   2.39090E-02
+    9.93828E-01  -2.93777E-04   2.00756E-04   5.07151E-05   2.12814E+02
+    2.99352E+01  -1.53498E+02  -1.07454E+02  -3.23258E+01  -1.64074E+01
+   -3.58381E+01  -1.76494E+01   5.69175E-02   3.59201E-04   1.14026E-01
+    2.49769E-02   9.93518E-01  -3.86549E-04   2.11947E-04   5.40709E-05
+    1.87210E+02   2.21674E+01  -1.55648E+02  -1.08106E+02  -3.06847E+01
+   -1.59095E+01  -3.39243E+01  -1.70687E+01   6.88306E-02   3.97365E-03
+    1.17577E-01   2.60541E-02   9.93246E-01  -4.68501E-04   2.23734E-04
+    5.76472E-05   1.64674E+02   1.52490E+01  -1.56432E+02  -1.08347E+02
+   -2.91117E+01  -1.54265E+01  -3.20950E+01  -1.65071E+01   7.91150E-02
+    7.13087E-03   1.21122E-01   2.71424E-02   9.92999E-01  -5.44261E-04
+    2.36153E-04   6.14596E-05   1.44814E+02   9.07887E+00  -1.56046E+02
+   -1.08227E+02  -2.75964E+01  -1.49558E+01  -3.03391E+01  -1.59616E+01
+    8.80845E-02   9.91741E-03   1.24642E-01   2.82361E-02   9.92764E-01
+   -6.18479E-04   2.49195E-04   6.55113E-05   1.27284E+02   3.56699E+00
+   -1.54683E+02  -1.07799E+02  -2.61435E+01  -1.44990E+01  -2.86623E+01
+   -1.54344E+01   9.60575E-02   1.24244E-02   1.28175E-01   2.93469E-02
+    9.92560E-01  -6.81873E-04   2.62932E-04   6.98309E-05   1.11867E+02
+   -1.34007E+00  -1.52393E+02  -1.07070E+02  -2.47437E+01  -1.40534E+01
+   -2.70534E+01  -1.49223E+01   1.03169E-01   1.46880E-02   1.31682E-01
+    3.04629E-02   9.92368E-01  -7.43721E-04   2.77364E-04   7.44244E-05
+    9.82362E+01  -5.73236E+00  -1.49399E+02  -1.06105E+02  -2.34011E+01
+   -1.36208E+01  -2.55171E+01  -1.44272E+01   1.09631E-01   1.67702E-02
+    1.35189E-01   3.15932E-02   9.92195E-01  -7.99384E-04   2.92551E-04
+    7.93181E-05   8.62015E+01  -9.65935E+00  -1.45802E+02  -1.04932E+02
+   -2.21098E+01  -1.31994E+01  -2.40460E+01  -1.39472E+01   1.15533E-01
+    1.86959E-02   1.38680E-01   3.27324E-02   9.92040E-01  -8.50409E-04
+    3.08504E-04   8.45237E-05   7.56377E+01  -1.31500E+01  -1.41620E+02
+   -1.03549E+02  -2.08690E+01  -1.27894E+01  -2.26398E+01  -1.34825E+01
+    1.20983E-01   2.04972E-02   1.42164E-01   3.38835E-02   9.91892E-01
+   -8.98341E-04   3.25264E-04   9.00619E-05   6.63255E+01  -1.62671E+01
+   -1.37020E+02  -1.02010E+02  -1.96752E+01  -1.23899E+01  -2.12924E+01
+   -1.30315E+01   1.26046E-01   2.21915E-02   1.45622E-01   3.50411E-02
+    9.91756E-01  -9.43180E-04   3.42863E-04   9.59526E-05   5.81612E+01
+   -1.90357E+01  -1.32069E+02  -1.00331E+02  -1.85292E+01  -1.20012E+01
+   -2.00054E+01  -1.25951E+01   1.30794E-01   2.38015E-02   1.49074E-01
+    3.62115E-02   9.91644E-01  -9.81835E-04   3.61332E-04   1.02215E-04
+    5.10379E+01  -2.14829E+01  -1.26813E+02  -9.85252E+01  -1.74280E+01
+   -1.16229E+01  -1.87743E+01  -1.21722E+01   1.35234E-01   2.53270E-02
+    1.52484E-01   3.73833E-02   9.91533E-01  -1.01894E-03   3.80727E-04
+    1.08879E-04   4.48229E+01  -2.36470E+01  -1.21350E+02  -9.66226E+01
+   -1.63718E+01  -1.12551E+01  -1.75989E+01  -1.17628E+01   1.39472E-01
+    2.68030E-02   1.55897E-01   3.85716E-02   9.91446E-01  -1.04987E-03
+    4.01071E-04   1.15963E-04   3.94489E+01  -2.55439E+01  -1.15721E+02
+   -9.46362E+01  -1.53572E+01  -1.08970E+01  -1.64748E+01  -1.13661E+01
+    1.43469E-01   2.82133E-02   1.59264E-01   3.97599E-02   9.91354E-01
+   -1.08234E-03   4.22386E-04   1.23486E-04   3.48114E+01  -2.72028E+01
+   -1.09967E+02  -9.25775E+01  -1.43836E+01  -1.05487E+01  -1.54010E+01
+   -1.09819E+01   1.47295E-01   2.95824E-02   1.62605E-01   4.09553E-02
+    9.91286E-01  -1.10553E-03   4.44752E-04   1.31488E-04   3.08452E+01
+   -2.86420E+01  -1.04132E+02  -9.04602E+01  -1.34492E+01  -1.02097E+01
+   -1.43744E+01  -1.06095E+01   1.50934E-01   3.09025E-02   1.65889E-01
+    4.21468E-02   9.91218E-01  -1.13182E-03   4.68173E-04   1.39985E-04
+    2.75028E+01  -2.98716E+01  -9.82631E+01  -8.83010E+01  -1.25534E+01
+   -9.88005E+00  -1.33947E+01  -1.02490E+01   1.54468E-01   3.22028E-02
+    1.69178E-01   4.33570E-02   9.91174E-01  -1.14728E-03   4.92707E-04
+    1.49013E-04   2.46885E+01  -3.09222E+01  -9.23954E+01  -8.61109E+01
+   -1.16940E+01  -9.55928E+00  -1.24581E+01  -9.89942E+00   1.57799E-01
+    3.34464E-02   1.72365E-01   4.45463E-02   9.91125E-01  -1.16583E-03
+    5.18381E-04   1.58595E-04   2.23745E+01  -3.17985E+01  -8.65514E+01
+   -8.38978E+01  -1.08718E+01  -9.24792E+00  -1.15654E+01  -9.56134E+00
+    1.61032E-01   3.46706E-02   1.75525E-01   4.57433E-02   9.91088E-01
+   -1.17975E-03   5.45270E-04   1.68778E-04   2.04809E+01  -3.25263E+01
+   -8.07676E+01  -8.16752E+01  -1.00834E+01  -8.94494E+00  -1.07131E+01
+   -9.23379E+00   1.64136E-01   3.58635E-02   1.78617E-01   4.69315E-02
+    9.91063E-01  -1.18903E-03   5.73373E-04   1.79578E-04   1.90028E+01
+   -3.31030E+01  -7.50479E+01  -7.94440E+01  -9.32785E+00  -8.65022E+00
+   -9.89863E+00  -8.91612E+00   1.67142E-01   3.70361E-02   1.81666E-01
+    4.81208E-02   9.91051E-01  -1.19521E-03   6.02772E-04   1.91046E-04
+    1.78783E+01  -3.35483E+01  -6.94121E+01  -7.72117E+01  -8.60502E+00
+   -8.36394E+00  -9.12247E+00  -8.60871E+00   1.70030E-01   3.81799E-02
+    1.84637E-01   4.92973E-02   9.91032E-01  -1.20140E-03   6.33484E-04
+    2.03209E-04   1.70629E+01  -3.38760E+01  -6.38959E+01  -7.49933E+01
+   -7.91336E+00  -8.08577E+00  -8.38207E+00  -8.31092E+00   1.72808E-01
+    3.92972E-02   1.87534E-01   5.04626E-02   9.91032E-01  -1.20140E-03
+    6.65556E-04   2.16108E-04   1.65368E+01  -3.40910E+01  -5.84897E+01
+   -7.27850E+01  -7.25144E+00  -7.81537E+00  -7.67572E+00  -8.02239E+00
+    1.75491E-01   4.03932E-02   1.90359E-01   5.16163E-02   9.91032E-01
+   -1.19985E-03   6.99053E-04   2.29792E-04   1.62526E+01  -3.42089E+01
+   -5.32268E+01  -7.06006E+01  -6.61876E+00  -7.55279E+00  -7.00276E+00
+   -7.74308E+00   1.78078E-01   4.14669E-02   1.93104E-01   5.27559E-02
+    9.91057E-01  -1.19212E-03   7.34007E-04   2.44299E-04   1.61997E+01
+   -3.42313E+01  -4.80885E+01  -6.84331E+01  -6.01348E+00  -7.29748E+00
+   -6.36067E+00  -7.47224E+00   1.80552E-01   4.25104E-02   1.95748E-01
+    5.38710E-02   9.91069E-01  -1.18594E-03   7.70453E-04   2.59672E-04
+    1.63389E+01  -3.41715E+01  -4.31051E+01  -6.62964E+01  -5.43529E+00
+   -7.04957E+00  -5.74923E+00  -7.21008E+00   1.82948E-01   4.35376E-02
+    1.98317E-01   5.49725E-02   9.91100E-01  -1.17511E-03   8.08443E-04
+    2.75961E-04   1.66528E+01  -3.40347E+01  -3.82748E+01  -6.41906E+01
+   -4.88331E+00  -6.80891E+00  -5.16677E+00  -6.95616E+00   1.85222E-01
+    4.45289E-02   2.00772E-01   5.60427E-02   9.91131E-01  -1.15965E-03
+    8.48038E-04   2.93223E-04   1.71171E+01  -3.38289E+01  -3.35962E+01
+   -6.21161E+01  -4.35602E+00  -6.57510E+00  -4.61202E+00  -6.71015E+00
+    1.87440E-01   4.55125E-02   2.03156E-01   5.71001E-02   9.91168E-01
+   -1.14109E-03   8.89267E-04   3.11506E-04   1.77148E+01  -3.35592E+01
+   -2.90746E+01  -6.00762E+01  -3.85233E+00  -6.34787E+00  -4.08335E+00
+   -6.47164E+00   1.89531E-01   4.64561E-02   2.05412E-01   5.81177E-02
+    9.91218E-01  -1.12099E-03   9.32160E-04   3.30856E-04   1.84226E+01
+   -3.32342E+01  -2.47162E+01  -5.80751E+01  -3.37244E+00  -6.12754E+00
+   -3.58070E+00  -6.24087E+00   1.91544E-01   4.73799E-02   2.07573E-01
+    5.91100E-02   9.91273E-01  -1.09625E-03   9.76800E-04   3.51351E-04
+    1.92249E+01  -3.28593E+01  -2.05224E+01  -5.61149E+01  -2.91437E+00
+   -5.91345E+00  -3.10214E+00  -6.01718E+00   1.93434E-01   4.82634E-02
+    2.09600E-01   6.00576E-02   9.91323E-01  -1.07151E-03   1.02319E-03
+    3.73034E-04   2.01131E+01  -3.24364E+01  -1.64826E+01  -5.41920E+01
+   -2.47787E+00  -5.70569E+00  -2.64709E+00  -5.80061E+00   1.95245E-01
+    4.91256E-02   2.11528E-01   6.09751E-02   9.91385E-01  -1.04059E-03
+    1.07141E-03   3.95985E-04   2.10675E+01  -3.19737E+01  -1.26035E+01
+   -5.23112E+01  -2.06137E+00  -5.50375E+00  -2.21371E+00  -5.59046E+00
+    1.96962E-01   4.99582E-02   2.13340E-01   6.18537E-02   9.91459E-01
+   -1.00657E-03   1.12146E-03   4.20251E-04   2.20760E+01  -3.14753E+01
+   -8.88749E+00  -5.04752E+01  -1.66509E+00  -5.30793E+00  -1.80225E+00
+   -5.38717E+00   1.98585E-01   5.07601E-02   2.15038E-01   6.26925E-02
+    9.91533E-01  -9.69466E-04   1.17342E-03   4.45928E-04   2.31309E+01
+   -3.09441E+01  -5.32268E+00  -4.86795E+01  -1.28772E+00  -5.11786E+00
+   -1.41102E+00  -5.19010E+00   2.00108E-01   5.15268E-02   2.16608E-01
+    6.34832E-02   9.91607E-01  -9.33903E-04   1.22730E-03   4.73067E-04
+    2.42164E+01  -3.03864E+01  -1.91660E+00  -4.69301E+01  -9.28367E-01
+   -4.93327E+00  -1.03925E+00  -4.99915E+00   2.01520E-01   5.22525E-02
+    2.18046E-01   6.42221E-02   9.91691E-01  -8.90615E-04   1.28317E-03
+    5.01767E-04   2.53297E+01  -2.98030E+01   1.34185E+00  -4.52224E+01
+   -5.86417E-01  -4.75407E+00  -6.86116E-01  -4.81409E+00   2.02853E-01
+    5.29511E-02   2.19375E-01   6.49186E-02   9.91777E-01  -8.44224E-04
+    1.34103E-03   5.32087E-04   2.64598E+01  -2.91987E+01   4.45186E+00
+   -4.35591E+01  -2.61270E-01  -4.58016E+00  -3.50851E-01  -4.63476E+00
+    2.04078E-01   5.36061E-02   2.20570E-01   6.55580E-02   9.91867E-01
+   -7.96292E-04   1.40095E-03   5.64131E-04   2.75970E+01  -2.85777E+01
+    7.41581E+00  -4.19402E+01   4.75981E-02  -4.41147E+00  -3.28536E-02
+   -4.46110E+00   2.05213E-01   5.42261E-02   2.21649E-01   6.61465E-02
+    9.91960E-01  -7.46813E-04   1.46294E-03   5.97989E-04   2.87362E+01
+   -2.79420E+01   1.02388E+01  -4.03656E+01   3.41252E-01  -4.24766E+00
+    2.69038E-01  -4.29269E+00   2.06239E-01   5.47984E-02   2.22590E-01
+    6.66718E-02   9.92056E-01  -6.92696E-04   1.52704E-03   6.33745E-04
+    2.98683E+01  -2.72966E+01   1.29210E+01  -3.88363E+01   6.20136E-01
+   -4.08868E+00   5.55345E-01  -4.12946E+00   2.07091E-01   5.52841E-02
+    2.23332E-01   6.70947E-02   9.92151E-01  -6.38579E-04   1.59327E-03
+    6.71503E-04   3.10114E+01  -2.66304E+01   1.54879E+01  -3.73401E+01
+    8.84870E-01  -3.93435E+00   8.26659E-01  -3.97130E+00   2.08108E-01
+    5.58771E-02   2.24206E-01   6.76044E-02   9.92254E-01  -5.78278E-04
+    1.66169E-03   7.11386E-04   3.21261E+01  -2.59656E+01   1.79123E+01
+   -3.58943E+01   1.13600E+00  -3.78460E+00   1.08380E+00  -3.81796E+00
+    2.08822E-01   5.63026E-02   2.24756E-01   6.79320E-02   9.92356E-01
+   -5.17976E-04   1.73227E-03   7.53478E-04   3.32152E+01  -2.53008E+01
+    2.02022E+01  -3.44967E+01   1.37404E+00  -3.63932E+00   1.32718E+00
+   -3.66942E+00   2.09366E-01   5.66349E-02   2.25114E-01   6.81508E-02
+    9.92458E-01  -4.56128E-04   1.80508E-03   7.97916E-04   3.42974E+01
+   -2.46244E+01   2.23864E+01  -3.31315E+01   1.59976E+00  -3.49822E+00
+    1.55773E+00  -3.52532E+00   2.09975E-01   5.70154E-02   2.25507E-01
+    6.83964E-02   9.92563E-01  -3.89642E-04   1.88011E-03   8.44814E-04
+    3.53532E+01  -2.39481E+01   2.44498E+01  -3.18098E+01   1.81345E+00
+   -3.36135E+00   1.77573E+00  -3.38568E+00   2.10449E-01   5.73191E-02
+    2.25746E-01   6.85495E-02   9.92665E-01  -3.24701E-04   1.95739E-03
+    8.94312E-04   3.63804E+01  -2.32736E+01   2.63996E+01  -3.05293E+01
+    2.01583E+00  -3.22844E+00   1.98194E+00  -3.25025E+00   2.10832E-01
+    5.75705E-02   2.25871E-01   6.86319E-02   9.92776E-01  -2.52032E-04
+    2.03692E-03   9.46541E-04   3.73817E+01  -2.25989E+01   2.82428E+01
+   -2.92874E+01   2.20720E+00  -3.09951E+00   2.17675E+00  -3.11901E+00
+    2.11124E-01   5.77675E-02   2.25889E-01   6.86438E-02   9.92881E-01
+   -1.80905E-04   2.11871E-03   1.00165E-03   3.83495E+01  -2.19296E+01
+    2.99787E+01  -2.80867E+01   2.38822E+00  -2.97429E+00   2.36086E+00
+   -2.99166E+00   2.11320E-01   5.79028E-02   2.25792E-01   6.85769E-02
+    9.92983E-01  -1.09780E-04   2.20276E-03   1.05979E-03   3.92895E+01
+   -2.12614E+01   3.16196E+01  -2.69206E+01   2.55912E+00  -2.85283E+00
+    2.53450E+00  -2.86823E+00   2.11476E-01   5.80137E-02   2.25640E-01
+    6.84683E-02   9.93092E-01  -3.24701E-05   2.28909E-03   1.12114E-03
+    4.01922E+01  -2.06018E+01   3.31598E+01  -2.57950E+01   2.72049E+00
+   -2.73490E+00   2.69830E+00  -2.74854E+00   2.11515E-01   5.80419E-02
+    2.25357E-01   6.82619E-02   9.93194E-01   4.17473E-05   2.37766E-03
+    1.18586E-03   4.10622E+01  -1.99477E+01   3.46093E+01  -2.47051E+01
+    2.87276E+00  -2.62043E+00   2.85272E+00  -2.63244E+00   2.11482E-01
+    5.80176E-02   2.24991E-01   6.79871E-02   9.93296E-01   1.17511E-04
+    2.46846E-03   1.25414E-03   4.18974E+01  -1.93009E+01   3.59699E+01
+   -2.36516E+01   3.01619E+00  -2.50935E+00   2.99810E+00  -2.51987E+00
+    2.11388E-01   5.79441E-02   2.24556E-01   6.76500E-02   9.93398E-01
+    1.97913E-04   2.56149E-03   1.32617E-03   4.26970E+01  -1.86628E+01
+    3.72469E+01  -2.26324E+01   3.15134E+00  -2.40149E+00   3.13496E+00
+   -2.41063E+00   2.11211E-01   5.78034E-02   2.24029E-01   6.72294E-02
+    9.93494E-01   2.73677E-04   2.65671E-03   1.40217E-03   4.34606E+01
+   -1.80341E+01   3.84417E+01  -2.16485E+01   3.27849E+00  -2.29677E+00
+    3.26360E+00  -2.30470E+00   2.10984E-01   5.76160E-02   2.23449E-01
+    6.67513E-02   9.93596E-01   3.57172E-04   2.75408E-03   1.48235E-03
+    4.41883E+01  -1.74151E+01   3.95591E+01  -2.06981E+01   3.39795E+00
+   -2.19518E+00   3.38442E+00  -2.20196E+00   2.10680E-01   5.73577E-02
+    2.22788E-01   6.61900E-02   9.93685E-01   4.34481E-04   2.85357E-03
+    1.56697E-03   4.48799E+01  -1.68068E+01   4.06026E+01  -1.97806E+01
+    3.51011E+00  -2.09656E+00   3.49772E+00  -2.10232E+00   2.10326E-01
+    5.70465E-02   2.22078E-01   6.55650E-02   9.93775E-01   5.13341E-04
+    2.95511E-03   1.65626E-03   4.55353E+01  -1.62105E+01   4.15746E+01
+   -1.88958E+01   3.61536E+00  -2.00077E+00   3.60403E+00  -2.00557E+00
+    2.09912E-01   5.66693E-02   2.21307E-01   6.48630E-02   9.93865E-01
+    5.95286E-04   3.05864E-03   1.75049E-03   4.61559E+01  -1.56249E+01
+    4.24805E+01  -1.80415E+01   3.71390E+00  -1.90781E+00   3.70348E+00
+   -1.91176E+00   2.09458E-01   5.62418E-02   2.20500E-01   6.41026E-02
+    9.93951E-01   6.74142E-04   3.16411E-03   1.84997E-03   4.67416E+01
+   -1.50517E+01   4.33212E+01  -1.72185E+01   3.80611E+00  -1.81755E+00
+    3.79647E+00  -1.82073E+00   2.08950E-01   5.57443E-02   2.19646E-01
+    6.32658E-02   9.94030E-01   7.54544E-04   3.27137E-03   1.95496E-03
+    4.72910E+01  -1.44927E+01   4.40998E+01  -1.64264E+01   3.89219E+00
+   -1.72998E+00   3.88324E+00  -1.73245E+00   2.08394E-01   5.51788E-02
+    2.18747E-01   6.23520E-02   9.94109E-01   8.33400E-04   3.38038E-03
+    2.06586E-03   4.78077E+01  -1.39457E+01   4.48207E+01  -1.56632E+01
+    3.97249E+00  -1.64497E+00   3.96418E+00  -1.64677E+00   2.07810E-01
+    5.45599E-02   2.17831E-01   6.13813E-02   9.94182E-01   9.10710E-04
+    3.49097E-03   2.18294E-03   4.82914E+01  -1.34118E+01   4.54865E+01
+   -1.49283E+01   4.04735E+00  -1.56234E+00   4.03952E+00  -1.56360E+00
+    2.07194E-01   5.38800E-02   2.16891E-01   6.03446E-02   9.94251E-01
+    9.88020E-04   3.60302E-03   2.30662E-03   4.87421E+01  -1.28923E+01
+    4.60994E+01  -1.42216E+01   4.11681E+00  -1.48226E+00   4.10947E+00
+   -1.48296E+00   2.06548E-01   5.31351E-02   2.15933E-01   5.92395E-02
+    9.94316E-01   1.06378E-03   3.71638E-03   2.43731E-03   4.91601E+01
+   -1.23879E+01   4.66610E+01  -1.35441E+01   4.18130E+00  -1.40444E+00
+    4.17434E+00  -1.40470E+00   2.05871E-01   5.23187E-02   2.14956E-01
+    5.80609E-02   9.94381E-01   1.13955E-03   3.83084E-03   2.57541E-03
+    4.95484E+01  -1.18967E+01   4.71762E+01  -1.28922E+01   4.24096E+00
+   -1.32896E+00   4.23433E+00  -1.32879E+00   2.05181E-01   5.14451E-02
+    2.13979E-01   5.68247E-02   9.94437E-01   1.21222E-03   3.94622E-03
+    2.72141E-03   4.99063E+01  -1.14204E+01   4.76465E+01  -1.22666E+01
+    4.29603E+00  -1.25570E+00   4.28970E+00  -1.25513E+00   2.04478E-01
+    5.05104E-02   2.13003E-01   5.55267E-02   9.94491E-01   1.28334E-03
+    4.06224E-03   2.87574E-03   5.02360E+01  -1.09580E+01   4.80744E+01
+   -1.16666E+01   4.34676E+00  -1.18458E+00   4.34067E+00  -1.18366E+00
+    2.03772E-01   4.95215E-02   2.12040E-01   5.41772E-02   9.94542E-01
+    1.35448E-03   4.17869E-03   3.03902E-03   5.05367E+01  -1.05125E+01
+    4.84613E+01  -1.10931E+01   4.39335E+00  -1.11551E+00   4.38745E+00
+   -1.11433E+00   2.03048E-01   4.84474E-02   2.11073E-01   5.27423E-02
+    9.94585E-01   1.41941E-03   4.29521E-03   3.21172E-03   5.08110E+01
+   -1.00813E+01   4.88106E+01  -1.05440E+01   4.43596E+00  -1.04853E+00
+    4.43025E+00  -1.04704E+00   2.02323E-01   4.73082E-02   2.10121E-01
+    5.12468E-02   9.94628E-01   1.48590E-03   4.41145E-03   3.39447E-03
+    5.10595E+01  -9.66543E+00   4.91242E+01  -1.00190E+01   4.47479E+00
+   -9.83549E-01   4.46922E+00  -9.81829E-01   2.01616E-01   4.61247E-02
+    2.09203E-01   4.97107E-02   9.94666E-01   1.54773E-03   4.52710E-03
+    3.58801E-03   5.12837E+01  -9.26418E+00   4.94046E+01  -9.51751E+00
+    4.51007E+00  -9.20438E-01   4.50462E+00  -9.18496E-01   2.00913E-01
+    4.48671E-02   2.08306E-01   4.81060E-02   9.94698E-01   1.60806E-03
+    4.64163E-03   3.79290E-03   5.14838E+01  -8.87983E+00   4.96530E+01
+   -9.04024E+00   4.54186E+00  -8.59345E-01   4.53652E+00  -8.57205E-01
+    2.00223E-01   4.35420E-02   2.07438E-01   4.64380E-02   9.94730E-01
+    1.66836E-03   4.75460E-03   4.00995E-03   5.16612E+01  -8.51170E+00
+    4.98716E+01  -8.58681E+00   4.57049E+00  -7.99936E-01   4.56522E+00
+   -7.97647E-01   1.99544E-01   4.21321E-02   2.06597E-01   4.46926E-02
+    9.94755E-01   1.71936E-03   4.86545E-03   4.23997E-03   5.18182E+01
+   -8.15754E+00   5.00632E+01  -8.15447E+00   4.59601E+00  -7.42390E-01
+    4.59080E+00  -7.39940E-01   1.98901E-01   4.06819E-02   2.05809E-01
+    4.29146E-02   9.94778E-01   1.77350E-03   4.97354E-03   4.48377E-03
+    5.19548E+01  -7.82020E+00   5.02290E+01  -7.74489E+00   4.61860E+00
+   -6.86594E-01   4.61343E+00  -6.84033E-01   1.98279E-01   3.91468E-02
+    2.05057E-01   4.10579E-02   9.94797E-01   1.82141E-03   5.07820E-03
+    4.74232E-03   5.20726E+01  -7.49858E+00   5.03710E+01  -7.35727E+00
+    4.63842E+00  -6.32473E-01   4.63330E+00  -6.29789E-01   1.97696E-01
+    3.75539E-02   2.04359E-01   3.91523E-02   9.94814E-01   1.86627E-03
+    5.17864E-03   5.01654E-03   5.21726E+01  -7.19341E+00   5.04908E+01
+   -6.99164E+00   4.65561E+00  -5.80006E-01   4.65052E+00  -5.77248E-01
+    1.97148E-01   3.58804E-02   2.03711E-01   3.71746E-02   9.94829E-01
+    1.91263E-03   5.27401E-03   5.30757E-03   5.22563E+01  -6.90375E+00
+    5.05906E+01  -6.64646E+00   4.67031E+00  -5.29174E-01   4.66525E+00
+   -5.26316E-01   1.96645E-01   3.41433E-02   2.03123E-01   3.51410E-02
+    9.94839E-01   1.94667E-03   5.36334E-03   5.61648E-03   5.23247E+01
+   -6.63075E+00   5.06715E+01  -6.32349E+00   4.68266E+00  -4.79900E-01
+    4.67761E+00  -4.76993E-01   1.96188E-01   3.23192E-02   2.02595E-01
+    3.30328E-02   9.94849E-01   1.98685E-03   5.44553E-03   5.94445E-03
+    5.23789E+01  -6.37562E+00   5.07354E+01  -6.02224E+00   4.69278E+00
+   -4.32146E-01   4.68775E+00  -4.29190E-01   1.95782E-01   3.04042E-02
+    2.02130E-01   3.08410E-02   9.94856E-01   2.01780E-03   5.51941E-03
+    6.29286E-03   5.24212E+01  -6.13151E+00   5.07850E+01  -5.73658E+00
+    4.70080E+00  -3.85941E-01   4.69577E+00  -3.82947E-01   1.95449E-01
+    2.84831E-02   2.01751E-01   2.86551E-02   9.94861E-01   2.04715E-03
+    5.58365E-03   6.66307E-03   5.24516E+01  -5.90656E+00   5.08204E+01
+   -5.47412E+00   4.70685E+00  -3.41167E-01   4.70182E+00  -3.38137E-01
+    1.95172E-01   2.64351E-02   2.01440E-01   2.63516E-02   9.94865E-01
+    2.07501E-03   5.63676E-03   7.05660E-03   5.24714E+01  -5.70053E+00
+    5.08436E+01  -5.23365E+00   4.71102E+00  -2.97812E-01   4.70600E+00
+   -2.94781E-01   1.94965E-01   2.42789E-02   2.01208E-01   2.39484E-02
+    9.94867E-01   2.09511E-03   5.67710E-03   7.47497E-03   5.24826E+01
+   -5.50789E+00   5.08565E+01  -5.01093E+00   4.71345E+00  -2.55913E-01
+    4.70843E+00  -2.52845E-01   1.94837E-01   2.20714E-02   2.01067E-01
+    2.15079E-02   9.94868E-01   2.11364E-03   5.70285E-03   7.91998E-03
+    5.24860E+01  -5.33201E+00   5.08604E+01  -4.80734E+00   4.71423E+00
+   -2.15319E-01   4.70921E+00  -2.12263E-01   1.94792E-01   1.97748E-02
+    2.01018E-01   1.89863E-02   9.94868E-01   2.13222E-03   5.71200E-03
+    8.39345E-03   5.24803E+01  -5.03478E+00   5.08542E+01  -4.48558E+00
+    4.71348E+00  -1.76006E-01   4.70845E+00  -1.72938E-01   1.94798E-01
+    1.95110E-02   2.01026E-01   1.85573E-02   9.94868E-01   2.15848E-03
+    5.70230E-03   8.89736E-03   5.24710E+01  -4.87444E+00   5.08437E+01
+   -4.30345E+00   4.71129E+00  -1.38082E-01   4.70626E+00  -1.35027E-01
+    1.94925E-01   1.73113E-02   2.01165E-01   1.61598E-02   9.94867E-01
+    2.16778E-03   5.67130E-03   9.43384E-03   5.24580E+01  -4.73920E+00
+    5.08289E+01  -4.14913E+00   4.70775E+00  -1.01343E-01   4.70273E+00
+   -9.83252E-02   1.95159E-01   1.48809E-02   2.01417E-01   1.35380E-02
+    9.94866E-01   2.17394E-03   5.61627E-03   1.00052E-02   5.24421E+01
+   -4.62120E+00   5.08107E+01  -4.01430E+00   4.70297E+00  -6.59303E-02
+    4.69795E+00  -6.29121E-02   1.95502E-01   1.23380E-02   2.01785E-01
+    1.08126E-02   9.94866E-01   2.18015E-03   5.53420E-03   1.06136E-02
+    5.24243E+01  -4.51902E+00   5.07904E+01  -3.89778E+00   4.69703E+00
+   -3.16783E-02   4.69201E+00  -2.86849E-02   1.95961E-01   9.69266E-03
+    2.02274E-01   7.99650E-03   9.94866E-01   2.17703E-03   5.42173E-03
+    1.12621E-02   5.24065E+01  -4.43467E+00   5.07699E+01  -3.80085E+00
+    4.69023E+00   3.95829E-04   4.68522E+00   3.33981E-03   1.96545E-01
+    6.93628E-03   2.02892E-01   5.07658E-03   9.94866E-01   2.17706E-03
+    5.27523E-03   1.19532E-02   5.23887E+01  -4.36366E+00   5.07494E+01
+   -3.71887E+00   4.68380E+00   2.60873E-02   4.67879E+00   2.90189E-02
+    1.97255E-01   4.10088E-03   2.03641E-01   2.08735E-03   9.94868E-01
+    2.17085E-03   5.09065E-03   1.26900E-02   5.23731E+01  -4.30979E+00
+    5.07314E+01  -3.65657E+00   4.67687E+00   5.00476E-02   4.67188E+00
+    5.29421E-02   1.98110E-01   1.14342E-03   2.04537E-01  -1.01199E-03
+    9.94870E-01   2.16160E-03   4.86352E-03   1.34757E-02   5.23624E+01
+   -4.27733E+00   5.07185E+01  -3.61718E+00   4.66939E+00   7.28820E-02
+    4.66441E+00   7.57270E-02   1.99147E-01  -2.02012E-03   2.05618E-01
+   -4.31121E-03   9.94874E-01   2.15077E-03   4.58895E-03   1.43138E-02
+    5.23563E+01  -4.26055E+00   5.07100E+01  -3.59418E+00   4.66143E+00
+    9.46267E-02   4.65646E+00   9.74469E-02   2.00345E-01  -5.29260E-03
+    2.06864E-01  -7.71393E-03   9.94879E-01   2.13683E-03   4.26155E-03
+    1.52079E-02   5.21422E+01  -3.73148E+00   5.04944E+01  -3.06124E+00
+    4.65296E+00   1.15545E-01   4.64802E+00   1.18303E-01   1.98327E-01
+   -3.05762E-04   2.04824E-01  -2.67262E-03   9.94867E-01   2.16469E-03
+    3.87540E-03   1.61620E-02   5.18023E+01  -2.96472E+00   5.01532E+01
+   -2.29172E+00   4.64412E+00   1.35496E-01   4.63919E+00   1.38229E-01
+    1.94356E-01   8.65131E-03   2.00793E-01   6.42054E-03   9.94847E-01
+    2.21105E-03   3.42390E-03   1.71805E-02   5.17826E+01  -2.92389E+00
+    5.01326E+01  -2.24890E+00   4.63510E+00   1.54212E-01   4.63020E+00
+    1.56872E-01   1.95511E-01   6.25441E-03   2.01994E-01   3.92930E-03
+    9.94856E-01   2.19098E-03   2.90001E-03   1.82679E-02   5.17706E+01
+   -2.90070E+00   5.01202E+01  -2.22512E+00   4.62590E+00   1.71887E-01
+    4.62101E+00   1.74534E-01   1.96843E-01   3.69423E-03   2.03370E-01
+    1.28334E-03   9.94870E-01   2.16776E-03   2.29580E-03   1.94290E-02
+    5.17620E+01  -2.88540E+00   5.01121E+01  -2.21070E+00   4.61652E+00
+    1.88662E-01   4.61169E+00   1.91222E-01   1.98279E-01   1.12487E-03
+    2.04849E-01  -1.36221E-03   9.94880E-01   2.14768E-03   1.60273E-03
+    2.06690E-02   5.17621E+01  -2.88556E+00   5.01132E+01  -2.21246E+00
+    4.60708E+00   2.04468E-01   4.60225E+00   2.07004E-01   1.99888E-01
+   -1.56822E-03   2.06501E-01  -4.12600E-03   9.94896E-01   2.12137E-03
+    8.11096E-04   2.19939E-02   5.17713E+01  -2.89994E+00   5.01237E+01
+   -2.22891E+00   4.59762E+00   2.19339E-01   4.59284E+00   2.21800E-01
+    2.01678E-01  -4.38156E-03   2.08332E-01  -7.00586E-03   9.94915E-01
+    2.09202E-03  -8.91243E-05   2.34093E-02   5.17908E+01  -2.92900E+00
+    5.01456E+01  -2.26134E+00   4.58818E+00   2.33338E-01   4.58343E+00
+    2.35763E-01   2.03658E-01  -7.31656E-03   2.10351E-01  -9.99881E-03
+    9.94933E-01   2.06571E-03  -1.10966E-03   2.49222E-02   5.08811E+01
+   -1.65328E+00   4.92385E+01  -9.89473E-01   4.57849E+00   2.46923E-01
+    4.57377E+00   2.49298E-01   1.90651E-01   1.09224E-02   1.97115E-01
+    8.56135E-03   9.94885E-01   2.13067E-03  -2.26275E-03   2.65392E-02
+    5.08188E+01  -1.57045E+00   4.91798E+01  -9.11297E-01   4.56923E+00
+    2.59243E-01   4.56456E+00   2.61556E-01   1.91294E-01   1.00670E-02
+    1.97776E-01   7.68233E-03   9.94907E-01   2.10439E-03  -3.56203E-03
+    2.82677E-02   5.08132E+01  -1.56321E+00   4.91782E+01  -9.09208E-01
+    4.56016E+00   2.70719E-01   4.55551E+00   2.73007E-01   1.92843E-01
+    8.10628E-03   1.99354E-01   5.68495E-03   9.94930E-01   2.07344E-03
+   -5.02257E-03   3.01160E-02   5.08103E+01  -1.55976E+00   4.91805E+01
+   -9.11990E-01   4.55132E+00   2.81397E-01   4.54673E+00   2.83599E-01
+    1.94446E-01   6.17246E-03   2.00981E-01   3.72172E-03   9.94959E-01
+    2.03945E-03  -6.66077E-03   3.20926E-02   5.08241E+01  -1.57578E+00
+    4.91997E+01  -9.34244E-01   4.54271E+00   2.91314E-01   4.53816E+00
+    2.93479E-01   1.96300E-01   4.03478E-03   2.02859E-01   1.55624E-03
+    9.94987E-01   2.00541E-03  -8.49432E-03   3.42067E-02   5.07017E+01
+   -1.44062E+00   4.90836E+01  -8.06007E-01   4.53434E+00   3.00546E-01
+    4.52985E+00   3.02648E-01   1.95940E-01   4.43220E-03   2.02484E-01
+    1.97141E-03   9.95009E-01   1.98224E-03  -1.05430E-02   3.64683E-02
+    4.99704E+01  -6.66271E-01   4.83593E+01  -3.90876E-02   4.52612E+00
+    3.09250E-01   4.52170E+00   3.11291E-01   1.85687E-01   1.52883E-02
+    1.92059E-01   1.30092E-02   9.94998E-01   1.99458E-03  -1.28280E-02
+    3.88878E-02   4.99614E+01  -6.57175E-01   4.83575E+01  -3.73069E-02
+    4.51855E+00   3.16960E-01   4.51414E+00   3.18964E-01   1.87103E-01
+    1.38478E-02   1.93490E-01   1.15540E-02   9.95032E-01   1.95904E-03
+   -1.53731E-02   4.14770E-02   4.99680E+01  -6.63599E-01   4.83729E+01
+   -5.22488E-02   4.51132E+00   3.24031E-01   4.50698E+00   3.25986E-01
+    1.88762E-01   1.22238E-02   1.95157E-01   9.92150E-03   9.95071E-01
+    1.92191E-03  -1.82035E-02   4.42478E-02   4.99701E+01  -6.65586E-01
+    4.83837E+01  -6.24420E-02   4.50450E+00   3.30480E-01   4.50018E+00
+    3.32397E-01   1.90315E-01   1.07589E-02   1.96715E-01   8.45157E-03
+    9.95108E-01   1.88483E-03  -2.13472E-02   4.72135E-02   4.99701E+01
+   -6.65586E-01   4.83837E+01  -6.24420E-02   4.50450E+00   3.30480E-01
+    4.50018E+00   3.32397E-01   1.90315E-01   1.07589E-02   1.96715E-01
+    8.45157E-03   9.95108E-01   1.88483E-03  -2.13472E-02   4.72135E-02
+ ECHO READ:EBINDA(IM),$LGN(GE(IM)/0,1/)
+    8.80040E-02   1.69413E+02   2.69387E+01
+ ECHO READ:($LGN(GMFP,GBR1,GBR2(I,IM)/0,1/),I=1,NGE)
+    1.89531E-03   2.84905E-04   0.00000E+00   0.00000E+00   2.47502E-02
+    3.98259E-03   1.89531E-03   2.84905E-04   0.00000E+00   0.00000E+00
+    2.47502E-02   3.98259E-03   2.04671E-03   3.09414E-04   0.00000E+00
+    0.00000E+00   9.83641E-03   1.56837E-03   2.21071E-03   3.36124E-04
+    0.00000E+00   0.00000E+00  -7.15298E-03  -1.19847E-03   2.38359E-03
+    3.64450E-04   0.00000E+00   0.00000E+00   1.36779E-03   1.97635E-04
+    2.57321E-03   3.95707E-04   0.00000E+00   0.00000E+00  -8.19494E-03
+   -1.37878E-03  -1.79019E-02  -3.00039E-03   0.00000E+00   0.00000E+00
+   -7.78431E-03  -1.31067E-03  -2.97044E-03  -5.08446E-04   0.00000E+00
+    0.00000E+00  -3.00131E-03  -5.12424E-04   8.90692E-04   1.39965E-04
+    0.00000E+00   0.00000E+00   3.27247E-03   5.41151E-04   9.66234E-04
+    1.52731E-04   0.00000E+00   0.00000E+00  -2.29681E-03  -3.99982E-04
+    1.04751E-03   1.66552E-04   0.00000E+00   0.00000E+00   2.03658E-03
+    3.36924E-04   1.15634E-03   1.85176E-04   0.00000E+00   0.00000E+00
+    6.30504E-04   9.62982E-05  -5.14798E-04  -1.02640E-04   0.00000E+00
+    0.00000E+00   6.24062E-04   9.51888E-05   1.21757E-03   1.97642E-04
+    0.00000E+00   0.00000E+00   7.14700E-04   1.10900E-04   1.32472E-03
+    2.16335E-04   0.00000E+00   0.00000E+00   3.96740E-03   6.78360E-04
+    1.44204E-03   2.36936E-04   0.00000E+00   0.00000E+00  -7.03520E-04
+   -1.41832E-04   5.87458E-04   8.58907E-05   0.00000E+00   0.00000E+00
+    5.82213E-06  -1.64578E-05   1.58852E-03   2.63995E-04   0.00000E+00
+    0.00000E+00   2.64171E-03   4.52505E-04   9.21383E-04   1.44512E-04
+    0.00000E+00   0.00000E+00   2.01255E-03   3.39825E-04   1.81792E-03
+    3.06154E-04   0.00000E+00   0.00000E+00  -6.54385E-04  -1.41014E-04
+    1.99138E-03   3.37639E-04   0.00000E+00   0.00000E+00   3.05241E-03
+    5.31811E-04   2.16796E-03   3.69908E-04   0.00000E+00   0.00000E+00
+    2.31416E-03   3.96901E-04   2.35999E-03   4.05239E-04   0.00000E+00
+    0.00000E+00   2.48964E-03   4.29188E-04   2.56885E-03   4.43932E-04
+    0.00000E+00   0.00000E+00   2.67660E-03   4.63824E-04   2.79593E-03
+    4.86291E-04   0.00000E+00   0.00000E+00   4.03499E-03   7.17215E-04
+    3.05051E-03   5.34111E-04   0.00000E+00   0.00000E+00   1.95202E-03
+    3.25951E-04   3.33689E-03   5.88283E-04   0.00000E+00   0.00000E+00
+    2.06376E-03   3.47089E-04   3.63377E-03   6.44837E-04   0.00000E+00
+    0.00000E+00   3.50340E-03   6.21334E-04   3.95691E-03   7.06832E-04
+    0.00000E+00   0.00000E+00   4.46145E-03   8.05138E-04   4.30904E-03
+    7.74874E-04   0.00000E+00   0.00000E+00   4.07814E-03   7.31072E-04
+    4.74438E-03   8.59602E-04   0.00000E+00   0.00000E+00   4.42279E-03
+    7.98149E-04   5.25496E-03   9.59696E-04   0.00000E+00   0.00000E+00
+    4.82563E-03   8.77123E-04   5.73555E-03   1.05460E-03   0.00000E+00
+    0.00000E+00   6.88905E-03   1.28460E-03   6.26127E-03   1.15919E-03
+    0.00000E+00   0.00000E+00   5.67621E-03   1.04332E-03   6.83355E-03
+    1.27388E-03   0.00000E+00   0.00000E+00   7.03101E-03   1.31485E-03
+    7.45881E-03   1.40013E-03   0.00000E+00   0.00000E+00   6.58992E-03
+    1.22579E-03   8.13953E-03   1.53862E-03   0.00000E+00   0.00000E+00
+    8.10258E-03   1.53353E-03   8.88263E-03   1.69095E-03   0.00000E+00
+    0.00000E+00   8.72663E-03   1.66145E-03   9.76937E-03   1.87412E-03
+    0.00000E+00   0.00000E+00   8.89203E-03   1.69562E-03   1.07108E-02
+    2.07009E-03   0.00000E+00   0.00000E+00   1.08026E-02   2.09331E-03
+    1.17009E-02   2.27779E-03   0.00000E+00   0.00000E+00   1.03822E-02
+    2.00513E-03   1.27783E-02   2.50558E-03   0.00000E+00   0.00000E+00
+    1.38225E-02   2.73251E-03   1.39593E-02   2.75725E-03   0.00000E+00
+    0.00000E+00   1.21354E-02   2.37297E-03   1.52427E-02   3.03292E-03
+    0.00000E+00   0.00000E+00   1.52325E-02   3.03824E-03   1.65839E-02
+    3.32333E-03   0.00000E+00   0.00000E+00   1.63696E-02   3.28445E-03
+    1.80652E-02   3.64668E-03   0.00000E+00   0.00000E+00   1.76011E-02
+    3.55326E-03   1.97152E-02   4.00979E-03   0.00000E+00   0.00000E+00
+    1.80878E-02   3.66035E-03   2.15102E-02   4.40803E-03   0.00000E+00
+    0.00000E+00   2.12315E-02   4.35789E-03   2.34715E-02   4.84683E-03
+    0.00000E+00   0.00000E+00   2.14442E-02   4.40546E-03   2.56049E-02
+    5.32810E-03   0.00000E+00   0.00000E+00   2.45208E-02   5.09952E-03
+    2.79329E-02   5.85771E-03   0.00000E+00   0.00000E+00   2.58564E-02
+    5.40336E-03  -1.57516E-01  -3.66906E-02   0.00000E+00   0.00000E+00
+   -1.51352E-01  -3.52543E-02   1.43979E-02   3.09114E-03   0.00000E+00
+    0.00000E+00   1.39461E-02   2.99650E-03   1.58583E-02   3.43201E-03
+    0.00000E+00   0.00000E+00   1.46888E-02   3.16985E-03   1.74638E-02
+    3.81003E-03   0.00000E+00   0.00000E+00   1.67260E-02   3.64951E-03
+   -3.37306E-02  -8.35001E-03   0.00000E+00   0.00000E+00  -3.25943E-02
+   -8.06536E-03  -5.38610E-03  -1.55755E-03   0.00000E+00   0.00000E+00
+   -5.40403E-03  -1.54950E-03   1.30079E-02   2.88994E-03   0.00000E+00
+    0.00000E+00   1.21268E-02   2.68928E-03   1.42100E-02   3.18325E-03
+    0.00000E+00   0.00000E+00   1.32555E-02   2.96466E-03   1.55224E-02
+    3.50636E-03   0.00000E+00   0.00000E+00   1.43800E-02   3.24153E-03
+    1.69541E-02   3.86211E-03   0.00000E+00   0.00000E+00   1.55917E-02
+    3.54261E-03   1.85161E-02   4.25385E-03   0.00000E+00   0.00000E+00
+    1.71226E-02   3.92657E-03   2.02201E-02   4.68522E-03   0.00000E+00
+    0.00000E+00   1.84369E-02   4.25928E-03   2.22785E-02   5.21126E-03
+    0.00000E+00   0.00000E+00   2.04016E-02   4.76136E-03   2.43523E-02
+    5.74630E-03   0.00000E+00   0.00000E+00   2.21185E-02   5.20431E-03
+    2.66094E-02   6.33427E-03   0.00000E+00   0.00000E+00   2.40993E-02
+    5.72032E-03   2.90727E-02   6.98219E-03   0.00000E+00   0.00000E+00
+    2.63175E-02   6.30379E-03   3.17596E-02   7.69594E-03   0.00000E+00
+    0.00000E+00   2.87247E-02   6.94322E-03   3.46919E-02   8.48259E-03
+    0.00000E+00   0.00000E+00   3.10956E-02   7.57928E-03   3.78884E-02
+    9.34877E-03   0.00000E+00   0.00000E+00   3.38963E-02   8.33819E-03
+    4.13752E-02   1.03032E-02   0.00000E+00   0.00000E+00   3.67535E-02
+    9.12029E-03   4.51754E-02   1.13541E-02   0.00000E+00   0.00000E+00
+    4.00167E-02   1.00227E-02   4.93168E-02   1.25112E-02   0.00000E+00
+    0.00000E+00   4.35466E-02   1.10090E-02   5.38729E-02   1.37976E-02
+    0.00000E+00   0.00000E+00   4.71956E-02   1.20392E-02   5.96713E-02
+    1.54521E-02   0.00000E+00   0.00000E+00   5.23084E-02   1.34981E-02
+    6.52144E-02   1.70506E-02   0.00000E+00   0.00000E+00   5.67529E-02
+    1.47798E-02   7.12564E-02   1.88119E-02   0.00000E+00   0.00000E+00
+    6.17186E-02   1.62273E-02   7.78440E-02   2.07532E-02   0.00000E+00
+    0.00000E+00   6.70828E-02   1.78080E-02   8.50219E-02   2.28918E-02
+    0.00000E+00   0.00000E+00   7.28050E-02   1.95130E-02   9.28403E-02
+    2.52474E-02   0.00000E+00   0.00000E+00   7.91793E-02   2.14335E-02
+    1.01356E-01   2.78421E-02   0.00000E+00   0.00000E+00   8.58434E-02
+    2.34639E-02   1.11292E-01   3.09042E-02   0.00000E+00   0.00000E+00
+    9.38297E-02   2.59251E-02   1.23223E-01   3.46234E-02   0.00000E+00
+    0.00000E+00   1.03333E-01   2.88877E-02   1.34692E-01   3.82405E-02
+    0.00000E+00   0.00000E+00   1.12246E-01   3.16989E-02   1.47179E-01
+    4.22257E-02   0.00000E+00   0.00000E+00   1.22028E-01   3.48204E-02
+    1.60779E-01   4.66176E-02   0.00000E+00   0.00000E+00   1.32201E-01
+    3.81059E-02   1.75563E-01   5.14504E-02   0.00000E+00   0.00000E+00
+    1.43514E-01   4.18039E-02   1.91204E-01   5.66258E-02   0.00000E+00
+    0.00000E+00   1.55269E-01   4.56933E-02   2.07414E-01   6.20560E-02
+    0.00000E+00   0.00000E+00   1.67182E-01   4.96844E-02   2.26031E-01
+    6.83711E-02   0.00000E+00   0.00000E+00   1.80944E-01   5.43525E-02
+    2.46207E-01   7.53029E-02   0.00000E+00   0.00000E+00   1.95627E-01
+    5.93969E-02   2.68055E-01   8.29054E-02   0.00000E+00   0.00000E+00
+    2.11330E-01   6.48613E-02   2.93060E-01   9.17208E-02   0.00000E+00
+    0.00000E+00   2.29438E-01   7.12452E-02   3.21345E-01   1.01825E-01
+    0.00000E+00   0.00000E+00   2.49732E-01   7.84944E-02   3.49705E-01
+    1.12091E-01   0.00000E+00   0.00000E+00   2.69497E-01   8.56498E-02
+    3.80307E-01   1.23321E-01   0.00000E+00   0.00000E+00   2.90654E-01
+    9.34129E-02   4.13290E-01   1.35591E-01   0.00000E+00   0.00000E+00
+    3.13270E-01   1.01826E-01   4.48800E-01   1.48986E-01   0.00000E+00
+    0.00000E+00   3.37207E-01   1.10856E-01   4.86959E-01   1.63585E-01
+    0.00000E+00   0.00000E+00   3.62608E-01   1.20574E-01   5.27889E-01
+    1.79469E-01   0.00000E+00   0.00000E+00   3.89590E-01   1.31045E-01
+    5.64982E-01   1.94075E-01   0.00000E+00   0.00000E+00   4.12743E-01
+    1.40162E-01   6.06287E-01   2.10581E-01   0.00000E+00   0.00000E+00
+    4.38324E-01   1.50385E-01  -4.26952E+00  -1.76715E+00   0.00000E+00
+    0.00000E+00  -3.31990E+00  -1.37403E+00   1.56681E-01   5.56575E-02
+    0.00000E+00   0.00000E+00   1.10976E-01   3.88798E-02   1.69244E-01
+    6.09114E-02   0.00000E+00   0.00000E+00   1.18682E-01   4.21028E-02
+    1.82742E-01   6.66457E-02   0.00000E+00   0.00000E+00   1.26847E-01
+    4.55711E-02   2.01262E-01   7.46390E-02   0.00000E+00   0.00000E+00
+    1.38519E-01   5.06088E-02   2.20276E-01   8.29796E-02   0.00000E+00
+    0.00000E+00   1.50155E-01   5.57129E-02   2.38287E-01   9.10108E-02
+    0.00000E+00   0.00000E+00   1.60742E-01   6.04341E-02   2.57636E-01
+    9.97837E-02   0.00000E+00   0.00000E+00   1.71904E-01   6.54948E-02
+    2.78404E-01   1.09362E-01   0.00000E+00   0.00000E+00   1.83735E-01
+    7.09512E-02   3.00665E-01   1.19807E-01   0.00000E+00   0.00000E+00
+    1.96212E-01   7.68054E-02   3.24510E-01   1.31193E-01   0.00000E+00
+    0.00000E+00   2.09369E-01   8.30878E-02   3.50012E-01   1.43590E-01
+    0.00000E+00   0.00000E+00   2.23229E-01   8.98260E-02   3.77255E-01
+    1.57078E-01   0.00000E+00   0.00000E+00   2.37809E-01   9.70439E-02
+    4.06323E-01   1.71738E-01   0.00000E+00   0.00000E+00   2.53070E-01
+    1.04741E-01   4.37289E-01   1.87654E-01   0.00000E+00   0.00000E+00
+    2.69092E-01   1.12976E-01   4.76213E-01   2.08048E-01   0.00000E+00
+    0.00000E+00   2.89816E-01   1.23834E-01   5.15099E-01   2.28827E-01
+    0.00000E+00   0.00000E+00   3.09774E-01   1.34499E-01   5.53851E-01
+    2.49954E-01   0.00000E+00   0.00000E+00   3.28887E-01   1.44919E-01
+    5.94905E-01   2.72798E-01   0.00000E+00   0.00000E+00   3.48773E-01
+    1.55984E-01   6.38317E-01   2.97463E-01   0.00000E+00   0.00000E+00
+    3.69372E-01   1.67687E-01   6.84117E-01   3.24045E-01   0.00000E+00
+    0.00000E+00   3.90695E-01   1.80064E-01   7.32314E-01   3.52635E-01
+    0.00000E+00   0.00000E+00   4.12684E-01   1.93108E-01   7.82918E-01
+    3.83329E-01   0.00000E+00   0.00000E+00   4.35257E-01   2.06799E-01
+    8.26601E-01   4.10435E-01   0.00000E+00   0.00000E+00   4.52717E-01
+    2.17633E-01   8.79827E-01   4.44241E-01   0.00000E+00   0.00000E+00
+    4.75189E-01   2.31906E-01   9.35713E-01   4.80594E-01   0.00000E+00
+    0.00000E+00   4.98308E-01   2.46944E-01   9.93655E-01   5.19217E-01
+    0.00000E+00   0.00000E+00   5.21702E-01   2.62539E-01   1.05352E+00
+    5.60133E-01   0.00000E+00   0.00000E+00   5.45223E-01   2.78615E-01
+    1.11516E+00   6.03360E-01   0.00000E+00   0.00000E+00   5.68797E-01
+    2.95147E-01   1.17839E+00   6.48887E-01   0.00000E+00   0.00000E+00
+    5.92265E-01   3.12045E-01   1.24297E+00   6.96664E-01   0.00000E+00
+    0.00000E+00   6.15503E-01   3.29236E-01   1.30868E+00   7.46651E-01
+    0.00000E+00   0.00000E+00   6.38386E-01   3.46643E-01   1.37523E+00
+    7.98748E-01   0.00000E+00   0.00000E+00   6.60751E-01   3.64151E-01
+    1.44165E+00   8.52292E-01   0.00000E+00   0.00000E+00   6.82097E-01
+    3.81359E-01   1.47546E+00   8.80391E-01   0.00000E+00   0.00000E+00
+    6.85292E-01   3.84016E-01   1.53883E+00   9.34734E-01   0.00000E+00
+    0.00000E+00   7.03738E-01   3.99834E-01   1.60177E+00   9.90490E-01
+    0.00000E+00   0.00000E+00   7.21195E-01   4.15297E-01   1.66394E+00
+    1.04742E+00   0.00000E+00   0.00000E+00   7.37548E-01   4.30274E-01
+    1.72503E+00   1.10535E+00   0.00000E+00   0.00000E+00   7.52679E-01
+    4.44620E-01   1.78471E+00   1.16399E+00   0.00000E+00   0.00000E+00
+    7.66521E-01   4.58221E-01   1.84264E+00   1.22308E+00   0.00000E+00
+    0.00000E+00   7.78990E-01   4.70939E-01   1.88412E+00   1.26705E+00
+    0.00000E+00   0.00000E+00   7.83118E-01   4.75314E-01   1.89789E+00
+    1.28224E+00   0.00000E+00   0.00000E+00   7.74098E-01   4.65361E-01
+    1.94550E+00   1.33702E+00   0.00000E+00   0.00000E+00   7.81311E-01
+    4.73661E-01   1.99075E+00   1.39140E+00   0.00000E+00   0.00000E+00
+    7.87281E-01   4.80835E-01   2.03349E+00   1.44517E+00   0.00000E+00
+    0.00000E+00   7.92023E-01   4.86801E-01   2.07361E+00   1.49811E+00
+    0.00000E+00   0.00000E+00   7.95596E-01   4.91516E-01   2.10090E+00
+    1.53598E+00   0.00000E+00   0.00000E+00   7.93611E-01   4.88762E-01
+    2.10714E+00   1.54511E+00   0.00000E+00   0.00000E+00   7.82920E-01
+    4.73122E-01   2.13776E+00   1.59248E+00   0.00000E+00   0.00000E+00
+    7.83319E-01   4.73738E-01   2.16592E+00   1.63869E+00   0.00000E+00
+    0.00000E+00   7.82981E-01   4.73182E-01   2.19166E+00   1.68369E+00
+    0.00000E+00   0.00000E+00   7.81989E-01   4.71450E-01   2.20187E+00
+    1.70277E+00   0.00000E+00   0.00000E+00   7.75142E-01   4.58654E-01
+    2.19957E+00   1.69814E+00   0.00000E+00   0.00000E+00   7.64030E-01
+    4.36335E-01   2.21800E+00   1.73816E+00   0.00000E+00   0.00000E+00
+    7.61957E-01   4.31838E-01   2.23455E+00   1.77721E+00   0.00000E+00
+    0.00000E+00   7.59691E-01   4.26489E-01   2.24928E+00   1.81532E+00
+    0.00000E+00   0.00000E+00   7.57317E-01   4.20347E-01   2.26230E+00
+    1.85259E+00   0.00000E+00   0.00000E+00   7.54907E-01   4.13449E-01
+    2.27367E+00   1.88897E+00   0.00000E+00   0.00000E+00   7.52537E-01
+    4.05863E-01   2.28348E+00   1.92461E+00   0.00000E+00   0.00000E+00
+    7.50274E-01   3.97640E-01   2.27982E+00   1.90926E+00   0.00000E+00
+    0.00000E+00   7.43955E-01   3.71093E-01   2.28004E+00   1.91037E+00
+    0.00000E+00   0.00000E+00   7.39892E-01   3.50878E-01   2.28577E+00
+    1.94533E+00   0.00000E+00   0.00000E+00   7.38521E-01   3.42512E-01
+    2.29020E+00   1.98025E+00   0.00000E+00   0.00000E+00   7.37424E-01
+    3.33850E-01   2.29333E+00   2.01525E+00   0.00000E+00   0.00000E+00
+    7.36626E-01   3.24946E-01   2.29518E+00   2.05042E+00   0.00000E+00
+    0.00000E+00   7.36148E-01   3.15837E-01   2.29490E+00   2.03249E+00
+    0.00000E+00   0.00000E+00   7.35746E-01   2.89634E-01   2.29837E+00
+    1.87315E+00  -1.43318E-03   6.58142E-02   7.35828E-01   2.85885E-01
+    2.29727E+00   1.89180E+00  -1.65762E-03   6.96249E-02   7.36312E-01
+    2.77663E-01   2.29553E+00   1.90991E+00  -2.03126E-03   7.35161E-02
+    7.37106E-01   2.69390E-01   2.29318E+00   1.92756E+00  -2.55645E-03
+    7.74607E-02   7.38211E-01   2.61092E-01   2.29025E+00   1.94478E+00
+   -3.23680E-03   8.14566E-02   7.39624E-01   2.52792E-01   2.28676E+00
+    1.96161E+00  -4.07582E-03   8.55024E-02   7.41341E-01   2.44515E-01
+    2.28273E+00   1.97809E+00  -5.07702E-03   8.95972E-02   7.43351E-01
+    2.36292E-01   2.27819E+00   1.99422E+00  -6.24347E-03   9.37391E-02
+    7.45648E-01   2.28136E-01   2.27315E+00   2.01005E+00  -7.57845E-03
+    9.79272E-02   7.48218E-01   2.20072E-01   2.26763E+00   2.02554E+00
+   -9.08484E-03   1.02160E-01   7.51049E-01   2.12117E-01   2.39736E+00
+    1.69543E+00  -4.65120E-02   1.97397E-01   7.53268E-01   2.06473E-01
+    2.47845E+00   1.50690E+00  -6.94747E-02   2.50785E-01   7.56000E-01
+    2.00121E-01   2.48811E+00   1.48624E+00  -7.31190E-02   2.58585E-01
+    7.59414E-01   1.92815E-01   2.49918E+00   1.46428E+00  -7.69550E-02
+    2.66190E-01   7.63040E-01   1.85624E-01   2.51175E+00   1.44107E+00
+   -8.09609E-02   2.73589E-01   7.66868E-01   1.78554E-01   2.52588E+00
+    1.41663E+00  -8.51136E-02   2.80766E-01   7.70880E-01   1.71621E-01
+    2.54168E+00   1.39099E+00  -8.93898E-02   2.87711E-01   7.75061E-01
+    1.64829E-01   2.55918E+00   1.36418E+00  -9.37634E-02   2.94410E-01
+    7.79401E-01   1.58183E-01   2.84822E+00   9.45253E-01  -1.54397E-01
+    3.82290E-01   7.86468E-01   1.47940E-01   2.90447E+00   8.67885E-01
+   -1.63839E-01   3.95276E-01   7.90988E-01   1.41723E-01   2.93644E+00
+    8.26061E-01  -1.67518E-01   4.00090E-01   7.95355E-01   1.36008E-01
+    2.97039E+00   7.83690E-01  -1.70970E-01   4.04399E-01   7.99829E-01
+    1.30426E-01   3.00629E+00   7.40864E-01  -1.74159E-01   4.08202E-01
+    8.04389E-01   1.24987E-01   3.04412E+00   6.97669E-01  -1.77047E-01
+    4.11500E-01   8.09032E-01   1.19684E-01   3.08381E+00   6.54183E-01
+   -1.79591E-01   4.14288E-01   8.13740E-01   1.14526E-01   3.12530E+00
+    6.10496E-01  -1.81757E-01   4.16568E-01   8.18498E-01   1.09515E-01
+    3.16853E+00   5.66693E-01  -1.83509E-01   4.18343E-01   8.23301E-01
+    1.04651E-01   3.21344E+00   5.22839E-01  -1.84811E-01   4.19614E-01
+    8.28130E-01   9.99338E-02   3.25991E+00   4.79049E-01  -1.85637E-01
+    4.20393E-01   8.32973E-01   9.53689E-02   3.60592E+00   1.64010E-01
+   -2.29716E-01   4.60526E-01   8.44963E-01   8.44520E-02   3.60592E+00
+    1.64010E-01  -2.29716E-01   4.60526E-01   8.44963E-01   8.44520E-02
+ DATA FOR MEDIUM #  1, WHICH IS: MEDIUM=WATER-3MEV-10KEV-02KEV  ,STERNCID=WATER-3MEV-10KEV-02KEV        
+ COMP,RHO=  1.000    ,NE= 2,COMPOSITION IS :
+ ASYM=H ,Z= 1.,A=    1.008,PZ= 1.00000E+00,RHOZ= 1.00797E+00            
+ ASYM=O ,Z= 8.,A=   15.999,PZ= 2.00000E+00,RHOZ= 3.19988E+01            
+ ECHO READ:$LGN(RLC,AE,AP,UE,UP(IM))
+    3.47257E+01   5.21000E-01   2.00000E-03   3.51100E+00   3.00200E+00
+ ECHO READ:$LGN(MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE(IM)),IRAYL
+     0  200    0  150    0    0    0    0
+ ECHO READ:($LGN(DL(I,IM)/1,2,3,4,5,6/),I=1,6)
+    9.99982E-01  -2.11119E-01   4.84469E-02   9.95866E-01  -2.26609E-01
+    9.52000E-01   1.00022E+00  -1.78818E-01   3.44729E-02   1.01418E+00
+   -2.30775E-01   9.52000E-01   1.00034E+00  -1.62218E-01   2.48977E-02
+    1.02358E+00  -2.32916E-01   9.52000E-01   9.99982E-01  -2.11303E-01
+    4.84892E-02   9.95862E-01  -2.26807E-01   9.52000E-01   1.00022E+00
+   -1.78977E-01   3.45035E-02   1.01419E+00  -2.30980E-01   9.52000E-01
+    1.00034E+00  -1.62363E-01   2.49200E-02   1.02361E+00  -2.33125E-01
+    9.52000E-01
+ ECHO READ:DELCM(IM),($LGN(ALPHI,BPAR, DELPOS(I,IM)),I=1,2)
+    3.50958E+01   9.41188E-01   8.53748E-01   2.28129E+00   9.41203E-01
+    8.53745E-01   2.27242E+00
+ ECHO READ:$LGN(XR0,TEFF0,BLCC,XCC(IM))
+    9.14548E-02   7.71165E-05   2.59397E+05   4.90938E+00
+ ECHO READ:$LGN(EKE(IM)/0,1/)
+    1.21501E+02   2.59409E+01
+ ECHO READ:($LGN(ESIG,PSIG,EDEDX,PDEDX,EBR1,PBR1,PBR2, TMXS(I,IM)/0,1/),I=1,NEKE)
+    9.58348E+00   1.50056E+00   2.94082E+04   6.38129E+03  -1.71251E+03
+   -5.22019E+02  -2.28131E+03  -6.61411E+02   1.00000E+00   0.00000E+00
+   -1.83302E+01  -4.01496E+00   9.58001E+01   2.07640E+01   2.60014E-05
+    5.04571E-06   9.58348E+00   1.50056E+00   2.94082E+04   6.38129E+03
+   -1.71251E+03  -5.22019E+02  -2.28131E+03  -6.61411E+02   1.00000E+00
+    0.00000E+00  -1.83302E+01  -4.01496E+00   9.58001E+01   2.07640E+01
+    2.60014E-05   5.04571E-06   9.53936E+00   1.49091E+00   2.61682E+04
+    5.67202E+03  -1.64546E+03  -5.07342E+02  -2.17918E+03  -6.39053E+02
+    1.00000E+00   0.00000E+00  -5.50955E-01  -1.22926E-01   3.86523E+00
+    6.38718E-01   2.76260E-05   5.40134E-06   9.49420E+00   1.48094E+00
+    2.32030E+04   5.01740E+03  -1.58010E+03  -4.92913E+02  -2.08048E+03
+   -6.17264E+02   1.00000E+00   0.00000E+00  -1.82581E-01  -4.16000E-02
+    1.96110E+00   2.18337E-01   2.93619E-05   5.78457E-06   9.45084E+00
+    1.47128E+00   2.05300E+04   4.42221E+03  -1.51732E+03  -4.78933E+02
+   -1.98641E+03  -5.96317E+02   1.00000E+00   0.00000E+00  -8.82227E-02
+   -2.05895E-02   1.47390E+00   1.09855E-01   3.12133E-05   6.19683E-06
+    9.40401E+00   1.46076E+00   1.81103E+04   3.87876E+03  -1.45563E+03
+   -4.65077E+02  -1.89503E+03  -5.75793E+02   1.00000E+00   0.00000E+00
+   -5.01954E-02  -1.20487E-02   1.27798E+00   6.58529E-02   3.31711E-05
+    6.63654E-06   9.35659E+00   1.45002E+00   1.59324E+04   3.38534E+03
+   -1.39697E+03  -4.51789E+02  -1.80868E+03  -5.56229E+02   1.00000E+00
+    0.00000E+00  -3.11381E-02  -7.73120E-03   1.18020E+00   4.36984E-02
+    3.52536E-05   7.10834E-06   9.31430E+00   1.44035E+00   1.39671E+04
+    2.93615E+03  -1.34000E+03  -4.38767E+02  -1.72554E+03  -5.37229E+02
+    1.00000E+00   0.00000E+00  -2.02055E-02  -5.23253E-03   1.12449E+00
+    3.09659E-02   3.74640E-05   7.61354E-06   9.26795E+00   1.42966E+00
+    1.22000E+04   2.52871E+03  -1.28462E+03  -4.25997E+02  -1.64550E+03
+   -5.18772E+02   1.00000E+00   0.00000E+00  -1.33467E-02  -3.65100E-03
+    1.08983E+00   2.29717E-02   3.98065E-05   8.15369E-06   9.22210E+00
+    1.41900E+00   1.06118E+04   2.15920E+03  -1.23154E+03  -4.13649E+02
+   -1.56934E+03  -5.01055E+02   1.00000E+00   0.00000E+00  -8.73870E-03
+   -2.57895E-03   1.06683E+00   1.76252E-02   4.22996E-05   8.73371E-06
+    9.17693E+00   1.40840E+00   9.18609E+03   1.82451E+03  -1.18023E+03
+   -4.01605E+02  -1.49630E+03  -4.83908E+02   1.00000E+00   0.00000E+00
+   -5.47486E-03  -1.81274E-03   1.05083E+00   1.38678E-02   4.49417E-05
+    9.35396E-06   9.13276E+00   1.39793E+00   7.90638E+03   1.52134E+03
+   -1.13067E+03  -3.89863E+02  -1.42631E+03  -4.67325E+02   1.00000E+00
+    0.00000E+00  -3.05859E-03  -1.24032E-03   1.03925E+00   1.11250E-02
+    4.77436E-05   1.00177E-05   9.08791E+00   1.38721E+00   6.76249E+03
+    1.24786E+03  -1.08279E+03  -3.78414E+02  -1.35923E+03  -4.51288E+02
+    1.00000E+00   0.00000E+00  -1.20822E-03  -7.97921E-04   1.03060E+00
+    9.05768E-03   5.07196E-05   1.07292E-05   9.04129E+00   1.37596E+00
+    5.73990E+03   1.00110E+03  -1.03680E+03  -3.67316E+02  -1.29524E+03
+   -4.35847E+02   1.00000E+00   0.00000E+00   2.55628E-04  -4.44686E-04
+    1.02400E+00   7.46499E-03   5.38762E-05   1.14909E-05   8.99630E+00
+    1.36500E+00   4.82710E+03   7.78760E+02  -9.92134E+02  -3.56438E+02
+   -1.23364E+03  -4.20844E+02   1.00000E+00   0.00000E+00   1.44853E-03
+   -1.54125E-04   1.01881E+00   6.20029E-03   5.72200E-05   1.23054E-05
+    8.95282E+00   1.35431E+00   4.01497E+03   5.79075E+02  -9.49215E+02
+   -3.45885E+02  -1.17486E+03  -4.06389E+02   1.00000E+00   0.00000E+00
+    2.44411E-03   9.06694E-05   1.01469E+00   5.18746E-03   6.07720E-05
+    1.31788E-05   8.90890E+00   1.34341E+00   3.29304E+03   3.99863E+02
+   -9.07823E+02  -3.35610E+02  -1.11856E+03  -3.92415E+02   1.00000E+00
+    0.00000E+00   3.29417E-03   3.01686E-04   1.01136E+00   4.36030E-03
+    6.45288E-05   1.41114E-05   8.86335E+00   1.33199E+00   2.65263E+03
+    2.39355E+02  -8.68098E+02  -3.25654E+02  -1.06490E+03  -3.78966E+02
+    1.00000E+00   0.00000E+00   4.03442E-03   4.87221E-04   1.00862E+00
+    3.67222E-03   6.85169E-05   1.51109E-05   8.81951E+00   1.32090E+00
+    2.08741E+03   9.63062E+01  -8.29529E+02  -3.15893E+02  -1.01322E+03
+   -3.65887E+02   1.00000E+00   0.00000E+00   4.69124E-03   6.53444E-04
+    1.00633E+00   3.09394E-03   7.27452E-05   1.61810E-05   1.33171E+04
+    3.40255E+03   1.58861E+03  -3.11690E+01  -9.28023E+02  -3.41065E+02
+   -9.63850E+02  -3.53268E+02  -9.77141E+01  -2.52286E+01   5.28553E-03
+    8.05333E-04   1.00442E+00   2.60534E-03   7.72213E-05   1.73250E-05
+    1.11220E+04   2.83596E+03   1.15057E+03  -1.44236E+02  -8.75008E+02
+   -3.27380E+02  -9.16823E+02  -3.41130E+02  -1.18758E+00  -3.13621E-01
+    5.82916E-03   9.45651E-04   1.00278E+00   2.18168E-03   8.19748E-05
+    1.85519E-05   9.35563E+03   2.37545E+03   7.67093E+02  -2.44212E+02
+   -8.26381E+02  -3.14703E+02  -8.71534E+02  -3.29323E+02  -3.86996E-01
+   -1.04900E-01   6.33359E-03   1.07716E-03   1.00140E+00   1.82142E-03
+    8.69918E-05   1.98599E-05   7.92489E+03   1.99866E+03   4.32306E+02
+   -3.32380E+02  -7.81884E+02  -3.02985E+02  -8.28519E+02  -3.17994E+02
+   -1.85121E-01  -5.17348E-02   6.81136E-03   1.20298E-03   1.00018E+00
+    1.49981E-03   9.23272E-05   2.12650E-05   6.75065E+03   1.68624E+03
+    1.41763E+02  -4.09684E+02  -7.40398E+02  -2.91947E+02  -7.87169E+02
+   -3.06993E+02  -1.04477E-01  -3.02788E-02   7.26012E-03   1.32237E-03
+    9.99122E-01   1.21995E-03   9.79552E-05   2.27624E-05   5.78198E+03
+    1.42585E+03  -1.08792E+02  -4.77034E+02  -7.01772E+02  -2.81563E+02
+   -7.47757E+02  -2.96399E+02  -6.43436E-02  -1.94905E-02   7.69443E-03
+    1.43912E-03   9.98213E-01   9.74104E-04   1.03924E-04   2.43669E-05
+    4.97347E+03   1.20624E+03  -3.23577E+02  -5.35376E+02  -6.65362E+02
+   -2.71674E+02  -7.09916E+02  -2.86120E+02  -4.14998E-02  -1.32854E-02
+    8.11333E-03   1.55291E-03   9.97390E-01   7.51452E-04   1.10237E-04
+    2.60817E-05   4.29573E+03   1.02020E+03  -5.07117E+02  -5.85760E+02
+   -6.31281E+02  -2.62317E+02  -6.73986E+02  -2.76257E+02  -2.72909E-02
+   -9.38504E-03   8.52180E-03   1.66504E-03   9.96660E-01   5.51996E-04
+    1.16930E-04   2.79188E-05   3.72206E+03   8.61035E+02  -6.60935E+02
+   -6.28433E+02  -5.98749E+02  -2.53293E+02  -6.39342E+02  -2.66645E+02
+   -1.78360E-02  -6.76186E-03   8.91919E-03   1.77529E-03   9.96011E-01
+    3.71087E-04   1.23991E-04   2.98781E-05   3.23500E+03   7.24445E+02
+   -7.90564E+02  -6.64786E+02  -5.68169E+02  -2.44717E+02  -6.06489E+02
+   -2.57431E+02  -1.12267E-02  -4.90837E-03   9.31359E-03   1.88590E-03
+    9.95442E-01   2.11829E-04   1.31475E-04   3.19767E-05   2.81664E+03
+    6.05839E+02  -8.96189E+02  -6.94733E+02  -5.38913E+02  -2.36422E+02
+   -5.74898E+02  -2.48475E+02  -6.39686E-03  -3.53908E-03   9.70055E-03
+    1.99560E-03   9.94910E-01   6.03017E-05   1.39379E-04   3.42175E-05
+    2.45758E+03   5.02918E+02  -9.82334E+02  -7.19426E+02  -5.11193E+02
+   -2.28477E+02  -5.44838E+02  -2.39859E+02  -2.76170E-03  -2.49711E-03
+    1.00855E-02   2.10595E-03   9.94434E-01  -7.57637E-05   1.47741E-04
+    3.66146E-05   2.14574E+03   4.12534E+02  -1.05064E+03  -7.39223E+02
+   -4.84791E+02  -2.20824E+02  -5.16134E+02  -2.31540E+02   7.34444E-05
+   -1.67538E-03   1.04694E-02   2.21722E-03   9.94013E-01  -1.97913E-04
+    1.56577E-04   3.91754E-05   1.87555E+03   3.33337E+02  -1.10207E+03
+   -7.54297E+02  -4.59455E+02  -2.13398E+02  -4.88562E+02  -2.23458E+02
+    2.32630E-03  -1.01503E-03   1.08498E-02   2.32872E-03   9.93611E-01
+   -3.15424E-04   1.65904E-04   4.19093E-05   1.63946E+03   2.63348E+02
+   -1.14050E+03  -7.65690E+02  -4.35403E+02  -2.06268E+02  -4.62362E+02
+   -2.15691E+02   4.16719E-03  -4.69271E-04   1.12325E-02   2.44218E-03
+    9.93259E-01  -4.20566E-04   1.75772E-04   4.48348E-05   1.43288E+03
+    2.01393E+02  -1.16591E+03  -7.73309E+02  -4.12377E+02  -1.99362E+02
+   -4.37295E+02  -2.08173E+02   5.69735E-03  -1.03885E-05   1.16131E-02
+    2.55629E-03   9.92918E-01  -5.21068E-04   1.86177E-04   4.79551E-05
+    1.25162E+03   1.46400E+02  -1.18076E+03  -7.77820E+02  -3.90373E+02
+   -1.92686E+02  -4.13353E+02  -2.00910E+02   6.99601E-03   3.83616E-04
+    1.19959E-02   2.67244E-03   9.92615E-01  -6.13844E-04   1.97168E-04
+    5.12899E-05   1.09205E+03   9.74129E+01  -1.18601E+03  -7.79427E+02
+   -3.69362E+02  -1.86236E+02  -3.90526E+02  -1.93902E+02   8.11831E-03
+    7.28162E-04   1.23801E-02   2.79039E-03   9.92337E-01  -6.98881E-04
+    2.08778E-04   5.48539E-05   9.51497E+02   5.37501E+01  -1.18292E+03
+   -7.78470E+02  -3.49231E+02  -1.79982E+02  -3.68690E+02  -1.87118E+02
+    9.09729E-03   1.03228E-03   1.27631E-02   2.90938E-03   9.92071E-01
+   -7.80830E-04   2.21003E-04   5.86520E-05   8.27461E+02   1.47501E+01
+   -1.17293E+03  -7.75326E+02  -3.30018E+02  -1.73941E+02  -3.47884E+02
+   -1.80576E+02   9.97031E-03   1.30679E-03   1.31499E-02   3.03100E-03
+    9.91842E-01  -8.53501E-04   2.33914E-04   6.27115E-05   7.18422E+02
+   -1.99560E+01  -1.15635E+03  -7.70050E+02  -3.11609E+02  -1.68081E+02
+   -3.27995E+02  -1.74245E+02   1.07536E-02   1.55609E-03   1.35376E-02
+    3.15439E-03   9.91620E-01  -9.24626E-04   2.47515E-04   6.70404E-05
+    6.22037E+02  -5.10157E+01  -1.13480E+03  -7.63103E+02  -2.94033E+02
+   -1.62418E+02  -3.09044E+02  -1.68139E+02   1.14668E-02   1.78594E-03
+    1.39269E-02   3.27984E-03   9.91422E-01  -9.89566E-04   2.61862E-04
+    7.16638E-05   5.36981E+02  -7.87711E+01  -1.10895E+03  -7.54670E+02
+   -2.77226E+02  -1.56933E+02  -2.90961E+02  -1.62238E+02   1.21218E-02
+    1.99966E-03   1.43172E-02   3.40721E-03   9.91218E-01  -1.05451E-03
+    2.76973E-04   7.65944E-05   4.62357E+02  -1.03429E+02  -1.07897E+03
+   -7.44762E+02  -2.61158E+02  -1.51624E+02  -2.73720E+02  -1.56541E+02
+    1.27360E-02   2.20261E-03   1.47134E-02   3.53815E-03   9.91051E-01
+   -1.11017E-03   2.92888E-04   8.18535E-05   3.96580E+02  -1.25447E+02
+   -1.04605E+03  -7.33745E+02  -2.45772E+02  -1.46474E+02  -2.57244E+02
+   -1.51026E+02   1.32988E-02   2.39099E-03   1.51022E-02   3.66827E-03
+    9.90890E-01  -1.16429E-03   3.09644E-04   8.74621E-05   3.38954E+02
+   -1.44985E+02  -1.01060E+03  -7.21725E+02  -2.31082E+02  -1.41493E+02
+   -2.41554E+02  -1.45706E+02   1.38389E-02   2.57414E-03   1.54991E-02
+    3.80286E-03   9.90735E-01  -1.21686E-03   3.27274E-04   9.34402E-05
+    2.88732E+02  -1.62243E+02  -9.73037E+02  -7.08818E+02  -2.17036E+02
+   -1.36667E+02  -2.26587E+02  -1.40563E+02   1.43474E-02   2.74885E-03
+    1.58945E-02   3.93870E-03   9.90599E-01  -1.26170E-03   3.45829E-04
+    9.98155E-05   2.44901E+02  -1.77504E+02  -9.33985E+02  -6.95221E+02
+   -2.03626E+02  -1.31998E+02  -2.12334E+02  -1.35600E+02   1.48342E-02
+    2.91833E-03   1.62914E-02   4.07689E-03   9.90469E-01  -1.30964E-03
+    3.65345E-04   1.06611E-04   2.07046E+02  -1.90864E+02  -8.93795E+02
+   -6.81035E+02  -1.90811E+02  -1.27474E+02  -1.98738E+02  -1.30802E+02
+    1.52991E-02   3.08244E-03   1.66882E-02   4.21695E-03   9.90358E-01
+   -1.34674E-03   3.85843E-04   1.13845E-04   1.74420E+02  -2.02538E+02
+   -8.52705E+02  -6.66331E+02  -1.78572E+02  -1.23096E+02  -1.85789E+02
+   -1.26169E+02   1.57491E-02   3.24345E-03   1.70863E-02   4.35938E-03
+    9.90247E-01  -1.38694E-03   4.07401E-04   1.21559E-04   1.46554E+02
+   -2.12647E+02  -8.11045E+02  -6.51219E+02  -1.66877E+02  -1.18853E+02
+   -1.73442E+02  -1.21689E+02   1.61806E-02   3.39997E-03   1.74813E-02
+    4.50271E-03   9.90154E-01  -1.42096E-03   4.30035E-04   1.29770E-04
+    1.23051E+02  -2.21296E+02  -7.69176E+02  -6.35815E+02  -1.55720E+02
+   -1.14747E+02  -1.61688E+02  -1.17365E+02   1.66011E-02   3.55473E-03
+    1.78785E-02   4.64885E-03   9.90061E-01  -1.45343E-03   4.53799E-04
+    1.38515E-04   1.03365E+02  -2.28644E+02  -7.27288E+02  -6.20178E+02
+   -1.45063E+02  -1.10769E+02  -1.50482E+02  -1.13182E+02   1.70081E-02
+    3.70662E-03   1.82729E-02   4.79606E-03   9.89993E-01  -1.48126E-03
+    4.78732E-04   1.47820E-04   8.71642E+01  -2.34779E+02  -6.85597E+02
+   -6.04391E+02  -1.34910E+02  -1.06925E+02  -1.39831E+02  -1.09149E+02
+    1.74033E-02   3.85629E-03   1.86654E-02   4.94467E-03   9.89919E-01
+   -1.50754E-03   5.04901E-04   1.57731E-04   7.39657E+01  -2.39850E+02
+   -6.44336E+02  -5.88534E+02  -1.25219E+02  -1.03201E+02  -1.29686E+02
+   -1.05250E+02   1.77904E-02   4.00505E-03   1.90567E-02   5.09505E-03
+    9.89857E-01  -1.53074E-03   5.32321E-04   1.68268E-04   6.36901E+01
+   -2.43859E+02  -6.03544E+02  -5.72622E+02  -1.15967E+02  -9.95915E+01
+   -1.20017E+02  -1.01478E+02   1.81682E-02   4.15241E-03   1.94460E-02
+    5.24695E-03   9.89814E-01  -1.54929E-03   5.61073E-04   1.79483E-04
+    5.59192E+01  -2.46936E+02  -5.63353E+02  -5.56705E+02  -1.07157E+02
+   -9.61027E+01  -1.10827E+02  -9.78388E+01   1.85349E-02   4.29766E-03
+    1.98302E-02   5.39908E-03   9.89764E-01  -1.56784E-03   5.91179E-04
+    1.91407E-04   5.03396E+01  -2.49181E+02  -5.24020E+02  -5.40886E+02
+   -9.87555E+01  -9.27235E+01  -1.02082E+02  -9.43215E+01   1.88965E-02
+    4.44305E-03   2.02134E-02   5.55318E-03   9.89733E-01  -1.58176E-03
+    6.22691E-04   2.04080E-04   4.67835E+01  -2.50633E+02  -4.85483E+02
+   -5.25143E+02  -9.07511E+01  -8.94534E+01  -9.37602E+01  -9.09217E+01
+    1.92457E-02   4.58573E-03   2.05888E-02   5.70657E-03   9.89715E-01
+   -1.59104E-03   6.55684E-04   2.17558E-04   4.49627E+01  -2.51389E+02
+   -4.47955E+02  -5.09568E+02  -8.31275E+01  -8.62894E+01  -8.58524E+01
+   -8.76395E+01   1.95923E-02   4.72958E-03   2.09639E-02   5.86224E-03
+    9.89696E-01  -1.59877E-03   6.90187E-04   2.31879E-04   4.47572E+01
+   -2.51475E+02  -4.11323E+02  -4.94116E+02  -7.58622E+01  -8.32250E+01
+   -7.83251E+01  -8.44650E+01   1.99280E-02   4.87118E-03   2.13306E-02
+    6.01691E-03   9.89678E-01  -1.60496E-03   7.26247E-04   2.47088E-04
+    4.59064E+01  -2.50982E+02  -3.75817E+02  -4.78891E+02  -6.89498E+01
+   -8.02613E+01  -7.11759E+01  -8.13997E+01   2.02566E-02   5.01209E-03
+    2.16922E-02   6.17196E-03   9.89678E-01  -1.60495E-03   7.63920E-04
+    2.63242E-04   4.82972E+01  -2.49941E+02  -3.41380E+02  -4.63879E+02
+   -6.23712E+01  -7.73932E+01  -6.43828E+01  -7.84378E+01   2.05781E-02
+    5.15227E-03   2.20480E-02   6.32705E-03   9.89690E-01  -1.60031E-03
+    8.03276E-04   2.80400E-04   5.17203E+01  -2.48422E+02  -3.08058E+02
+   -4.49102E+02  -5.61128E+01  -7.46179E+01  -5.79296E+01  -7.55761E+01
+    2.08915E-02   5.29121E-03   2.23959E-02   6.48133E-03   9.89684E-01
+   -1.60031E-03   8.44349E-04   2.98613E-04   5.61092E+01  -2.46443E+02
+   -2.75840E+02  -4.34567E+02  -5.01532E+01  -7.19294E+01  -5.17919E+01
+   -7.28073E+01   2.11983E-02   5.42959E-03   2.27372E-02   6.63534E-03
+    9.89715E-01  -1.58794E-03   8.87174E-04   3.17932E-04   6.12581E+01
+   -2.44079E+02  -2.44789E+02  -4.20311E+02  -4.44964E+01  -6.93322E+01
+   -4.59737E+01  -7.01361E+01   2.14965E-02   5.56655E-03   2.30700E-02
+    6.78810E-03   9.89746E-01  -1.57403E-03   9.31844E-04   3.38441E-04
+    6.70783E+01  -2.41359E+02  -2.14905E+02  -4.06344E+02  -3.91132E+01
+   -6.68161E+01  -4.04452E+01  -6.75521E+01   2.17879E-02   5.70269E-03
+    2.33949E-02   6.93996E-03   9.89777E-01  -1.56011E-03   9.78371E-04
+    3.60188E-04   7.34907E+01  -2.38307E+02  -1.86133E+02  -3.92649E+02
+   -3.40019E+01  -6.43832E+01  -3.52020E+01  -6.50565E+01   2.20655E-02
+    5.83487E-03   2.37055E-02   7.08779E-03   9.89814E-01  -1.54156E-03
+    1.02684E-03   3.83256E-04   8.03749E+01  -2.34967E+02  -1.58508E+02
+   -3.79254E+02  -2.91419E+01  -6.20270E+01  -3.02229E+01  -6.26423E+01
+    2.23381E-02   5.96704E-03   2.40093E-02   7.23512E-03   9.89863E-01
+   -1.51837E-03   1.07725E-03   4.07700E-04   8.76328E+01  -2.31383E+02
+   -1.32035E+02  -3.66174E+02  -2.45306E+01  -5.97484E+01  -2.55035E+01
+   -6.03105E+01   2.26209E-02   6.10678E-03   2.43200E-02   7.38862E-03
+    9.89913E-01  -1.49208E-03   1.12971E-03   4.33622E-04   9.52010E+01
+   -2.27570E+02  -1.06655E+02  -3.53391E+02  -2.01535E+01  -5.75435E+01
+   -2.10279E+01  -5.80561E+01   2.28714E-02   6.23291E-03   2.45981E-02
+    7.52870E-03   9.89974E-01  -1.46270E-03   1.18423E-03   4.61082E-04
+    1.02998E+02  -2.23564E+02  -8.24084E+01  -3.40935E+02  -1.60010E+01
+   -5.54105E+01  -1.67879E+01  -5.58780E+01   2.31149E-02   6.35803E-03
+    2.48674E-02   7.66701E-03   9.90046E-01  -1.42560E-03   1.24087E-03
+    4.90179E-04   1.10972E+02  -2.19386E+02  -5.92061E+01  -3.28777E+02
+   -1.20604E+01  -5.33455E+01  -1.27678E+01  -5.37712E+01   2.33592E-02
+    6.48606E-03   2.51337E-02   7.80656E-03   9.90111E-01  -1.39158E-03
+    1.29967E-03   5.20989E-04   1.19061E+02  -2.15059E+02  -3.70731E+01
+   -3.16938E+02  -8.32423E+00  -5.13474E+01  -8.96032E+00  -5.17349E+01
+    2.35891E-02   6.60903E-03   2.53835E-02   7.94018E-03   9.90194E-01
+   -1.34828E-03   1.36068E-03   5.53619E-04   1.27203E+02  -2.10614E+02
+   -1.59661E+01  -3.05412E+02  -4.78673E+00  -4.94154E+01  -5.35712E+00
+   -4.97673E+01   2.38134E-02   6.73149E-03   2.56244E-02   8.07175E-03
+    9.90274E-01  -1.30344E-03   1.42394E-03   5.88170E-04   1.35360E+02
+   -2.06063E+02   4.12768E+00  -2.94202E+02  -1.43368E+00  -4.75449E+01
+   -1.94588E+00  -4.78643E+01   2.40248E-02   6.84944E-03   2.58501E-02
+    8.19762E-03   9.90358E-01  -1.25706E-03   1.48949E-03   6.24735E-04
+    1.43500E+02  -2.01423E+02   2.32683E+01  -2.83290E+02   1.74124E+00
+   -4.57346E+01   1.28169E+00  -4.60241E+01   2.42284E-02   6.96547E-03
+    2.60642E-02   8.31973E-03   9.90448E-01  -1.20449E-03   1.55735E-03
+    6.63427E-04   1.51560E+02  -1.96723E+02   4.14304E+01  -2.72703E+02
+    4.74596E+00  -4.39833E+01   4.33311E+00  -4.42453E+01   2.44230E-02
+    7.07893E-03   2.62668E-02   8.43784E-03   9.90543E-01  -1.14882E-03
+    1.62762E-03   7.04383E-04   1.59543E+02  -1.91963E+02   5.87058E+01
+   -2.62401E+02   7.58879E+00  -4.22881E+01   7.21908E+00  -4.25246E+01
+    2.46071E-02   7.18873E-03   2.64555E-02   8.55033E-03   9.90649E-01
+   -1.08698E-03   1.70025E-03   7.47695E-04   1.67387E+02  -1.87175E+02
+    7.50709E+01  -2.52413E+02   1.02755E+01  -4.06482E+01   9.94296E+00
+   -4.08620E+01   2.47815E-02   7.29518E-03   2.66313E-02   8.65767E-03
+    9.90748E-01  -1.02667E-03   1.77532E-03   7.93517E-04   1.75090E+02
+   -1.82361E+02   9.05825E+01  -2.42716E+02   1.28143E+01  -3.90611E+01
+    1.25164E+01  -3.92533E+01   2.49466E-02   7.39836E-03   2.67948E-02
+    8.75984E-03   9.90856E-01  -9.60189E-04   1.85285E-03   8.41977E-04
+    1.82625E+02  -1.77535E+02   1.05269E+02  -2.33310E+02   1.52134E+01
+   -3.75246E+01   1.49460E+01  -3.76971E+01   2.51010E-02   7.49727E-03
+    2.69445E-02   8.85570E-03   9.90967E-01  -8.87517E-04   1.93285E-03
+    8.93220E-04   1.89960E+02  -1.72718E+02   1.19152E+02  -2.24193E+02
+    1.74766E+01  -3.60382E+01   1.72364E+01  -3.61930E+01   2.52461E-02
+    7.59258E-03   2.70816E-02   8.94580E-03   9.91075E-01  -8.17943E-04
+    2.01536E-03   9.47403E-04   1.97111E+02  -1.67899E+02   1.32277E+02
+   -2.15350E+02   1.96124E+01  -3.45994E+01   1.93963E+01  -3.47377E+01
+    2.53816E-02   7.68383E-03   2.72064E-02   9.02986E-03   9.91187E-01
+   -7.40629E-04   2.10037E-03   1.00468E-03   2.04030E+02  -1.63114E+02
+    1.44643E+02  -2.06795E+02   2.16260E+01  -3.32065E+01   2.14316E+01
+   -3.33298E+01   2.55062E-02   7.77000E-03   2.73176E-02   9.10674E-03
+    9.91304E-01  -6.60226E-04   2.18792E-03   1.06524E-03   2.10732E+02
+   -1.58350E+02   1.56321E+02  -1.98496E+02   2.35224E+01  -3.18587E+01
+    2.33480E+01  -3.19679E+01   2.56213E-02   7.85178E-03   2.74162E-02
+    9.17683E-03   9.91419E-01  -5.79824E-04   2.27799E-03   1.12926E-03
+    2.17195E+02  -1.53628E+02   1.67302E+02  -1.90472E+02   2.53074E+01
+   -3.05544E+01   2.51498E+01  -3.06512E+01   2.57284E-02   7.93008E-03
+    2.75047E-02   9.24152E-03   9.91533E-01  -4.93237E-04   2.37060E-03
+    1.19692E-03   2.23420E+02  -1.48947E+02   1.77637E+02  -1.82701E+02
+    2.69875E+01  -2.92912E+01   2.68454E+01  -2.93765E+01   2.58218E-02
+    8.00031E-03   2.75770E-02   9.29591E-03   9.91654E-01  -4.05104E-04
+    2.46572E-03   1.26844E-03   2.29394E+02  -1.44321E+02   1.87345E+02
+   -1.75185E+02   2.85660E+01  -2.80688E+01   2.84378E+01  -2.81434E+01
+    2.59092E-02   8.06803E-03   2.76412E-02   9.34558E-03   9.91768E-01
+   -3.16970E-04   2.56335E-03   1.34405E-03   2.35126E+02  -1.39747E+02
+    1.96459E+02  -1.67910E+02   3.00482E+01  -2.68858E+01   2.99320E+01
+   -2.69506E+01   2.59859E-02   8.12918E-03   2.76923E-02   9.38643E-03
+    9.91886E-01  -2.22652E-04   2.66346E-03   1.42395E-03   2.40600E+02
+   -1.35239E+02   2.04995E+02  -1.60881E+02   3.14399E+01  -2.57399E+01
+    3.13340E+01  -2.57961E+01   2.60539E-02   8.18518E-03   2.77333E-02
+    9.42016E-03   9.92000E-01  -1.29881E-04   2.76603E-03   1.50841E-03
+    2.45827E+02  -1.30793E+02   2.12987E+02  -1.54083E+02   3.27430E+01
+   -2.46315E+01   3.26468E+01  -2.46797E+01   2.61132E-02   8.23563E-03
+    2.77641E-02   9.44635E-03   9.92114E-01  -3.09239E-05   2.87103E-03
+    1.59772E-03   2.50801E+02  -1.26420E+02   2.20454E+02  -1.47518E+02
+    3.39639E+01  -2.35580E+01   3.38760E+01  -2.35988E+01   2.61630E-02
+    8.27941E-03   2.77840E-02   9.46380E-03   9.92220E-01   6.33945E-05
+    2.97839E-03   1.69211E-03   2.55523E+02  -1.22121E+02   2.27428E+02
+   -1.41171E+02   3.51055E+01  -2.25189E+01   3.50249E+01  -2.25530E+01
+    2.62046E-02   8.31729E-03   2.77945E-02   9.47345E-03   9.92334E-01
+    1.65443E-04   3.08803E-03   1.79191E-03   2.60000E+02  -1.17899E+02
+    2.33924E+02  -1.35043E+02   3.61719E+01  -2.15130E+01   3.60982E+01
+   -2.15408E+01   2.62388E-02   8.34951E-03   2.77969E-02   9.47563E-03
+    9.92439E-01   2.64400E-04   3.19992E-03   1.89745E-03   2.64233E+02
+   -1.13755E+02   2.39966E+02  -1.29128E+02   3.71668E+01  -2.05391E+01
+    3.70983E+01  -2.05617E+01   2.62643E-02   8.37449E-03   2.77900E-02
+    9.46891E-03   9.92544E-01   3.67995E-04   3.31392E-03   2.00904E-03
+    2.68224E+02  -1.09695E+02   2.45585E+02  -1.23413E+02   3.80939E+01
+   -1.95960E+01   3.80303E+01  -1.96136E+01   2.62831E-02   8.39368E-03
+    2.77758E-02   9.45442E-03   9.92640E-01   4.65405E-04   3.42996E-03
+    2.12709E-03   2.71980E+02  -1.05718E+02   2.50787E+02  -1.17904E+02
+    3.89554E+01  -1.86839E+01   3.88965E+01  -1.86966E+01   2.62943E-02
+    8.40556E-03   2.77542E-02   9.43156E-03   9.92741E-01   5.72093E-04
+    3.54789E-03   2.25195E-03   2.75505E+02  -1.01828E+02   2.55606E+02
+   -1.12586E+02   3.97564E+01  -1.77996E+01   3.97009E+01  -1.78086E+01
+    2.62995E-02   8.41122E-03   2.77262E-02   9.40064E-03   9.92832E-01
+    6.72596E-04   3.66758E-03   2.38406E-03   2.78804E+02  -9.80248E+01
+    2.60056E+02  -1.07456E+02   4.04979E+01  -1.69449E+01   4.04457E+01
+   -1.69500E+01   2.62976E-02   8.40909E-03   2.76916E-02   9.36073E-03
+    9.92920E-01   7.74645E-04   3.78884E-03   2.52385E-03   2.81882E+02
+   -9.43112E+01   2.64152E+02  -1.02514E+02   4.11845E+01  -1.61166E+01
+    4.11351E+01  -1.61184E+01   2.62908E-02   8.40083E-03   2.76525E-02
+    9.31362E-03   9.93007E-01   8.78240E-04   3.91150E-03   2.67185E-03
+    2.84746E+02  -9.06854E+01   2.67918E+02  -9.77478E+01   4.18175E+01
+   -1.53154E+01   4.17705E+01  -1.53141E+01   2.62784E-02   8.38517E-03
+    2.76085E-02   9.25800E-03   9.93085E-01   9.78743E-04   4.03534E-03
+    2.82854E-03   2.87404E+02  -8.71507E+01   2.71372E+02  -9.31538E+01
+    4.24009E+01  -1.45395E+01   4.23558E+01  -1.45356E+01   2.62614E-02
+    8.36256E-03   2.75606E-02   9.19427E-03   9.93160E-01   1.07615E-03
+    4.16004E-03   2.99443E-03   2.89861E+02  -8.37059E+01   2.74526E+02
+   -8.87314E+01   4.29361E+01  -1.37891E+01   4.28929E+01  -1.37827E+01
+    2.62395E-02   8.33188E-03   2.75090E-02   9.12190E-03   9.93231E-01
+    1.17821E-03   4.28541E-03   3.17020E-03   2.92124E+02  -8.03512E+01
+    2.77400E+02  -8.44702E+01   4.34267E+01  -1.30619E+01   4.33850E+01
+   -1.30533E+01   2.62142E-02   8.29438E-03   2.74551E-02   9.04192E-03
+    9.93297E-01   1.27407E-03   4.41103E-03   3.35641E-03   2.94201E+02
+   -7.70864E+01   2.80009E+02  -8.03702E+01   4.38739E+01  -1.23589E+01
+    4.38333E+01  -1.23483E+01   2.61855E-02   8.24916E-03   2.73990E-02
+    8.95379E-03   9.93359E-01   1.37148E-03   4.53655E-03   3.55373E-03
+    2.96095E+02  -7.39170E+01   2.82366E+02  -7.64257E+01   4.42804E+01
+   -1.16785E+01   4.42409E+01  -1.16663E+01   2.61542E-02   8.19682E-03
+    2.73418E-02   8.85801E-03   9.93413E-01   1.46269E-03   4.66159E-03
+    3.76299E-03   2.97820E+02  -7.08304E+01   2.84489E+02  -7.26283E+01
+    4.46485E+01  -1.10200E+01   4.46099E+01  -1.10061E+01   2.61204E-02
+    8.13638E-03   2.72836E-02   8.75395E-03   9.93464E-01   1.55548E-03
+    4.78562E-03   3.98486E-03   2.99375E+02  -6.78427E+01   2.86387E+02
+   -6.89795E+01   4.49799E+01  -1.03833E+01   4.49419E+01  -1.03682E+01
+    2.60853E-02   8.06898E-03   2.72256E-02   8.64257E-03   9.93512E-01
+    1.64516E-03   4.90811E-03   4.22022E-03   3.00775E+02  -6.49381E+01
+    2.88078E+02  -6.54717E+01   4.52768E+01  -9.76726E+00   4.52394E+01
+   -9.75083E+00   2.60488E-02   7.99321E-03   2.71680E-02   8.52297E-03
+    9.93551E-01   1.72864E-03   5.02847E-03   4.46999E-03   3.02022E+02
+   -6.21246E+01   2.89571E+02  -6.21040E+01   4.55411E+01  -9.17106E+00
+    4.55042E+01  -9.15384E+00   2.60117E-02   7.90957E-03   2.71116E-02
+    8.39581E-03   9.93589E-01   1.81370E-03   5.14600E-03   4.73508E-03
+    3.03126E+02  -5.93989E+01   2.90883E+02  -5.88630E+01   4.57725E+01
+   -8.59938E+00   4.57359E+01  -8.58117E+00   2.59750E-02   7.81878E-03
+    2.70571E-02   8.26109E-03   9.93620E-01   1.89253E-03   5.25996E-03
+    5.01658E-03   3.04092E+02  -5.67603E+01   2.92020E+02  -5.57588E+01
+    4.59573E+01  -8.09490E+00   4.59211E+01  -8.07580E+00   2.59388E-02
+    7.71992E-03   2.70051E-02   8.11918E-03   9.93650E-01   1.97141E-03
+    5.36945E-03   5.31552E-03   3.04928E+02  -5.42113E+01   2.92997E+02
+   -5.27784E+01   4.61127E+01  -7.62080E+00   4.60765E+01  -7.60131E+00
+    2.59037E-02   7.61295E-03   2.69560E-02   7.96920E-03   9.93674E-01
+    2.04406E-03   5.47356E-03   5.63323E-03   3.05641E+02  -5.17443E+01
+    2.93823E+02  -4.99212E+01   4.62447E+01  -7.16401E+00   4.62089E+01
+   -7.14372E+00   2.58707E-02   7.49886E-03   2.69108E-02   7.81293E-03
+    9.93693E-01   2.11057E-03   5.57119E-03   5.97084E-03   3.06238E+02
+   -4.93632E+01   2.94510E+02  -4.71814E+01   4.63550E+01  -6.72416E+00
+    4.63192E+01  -6.70358E+00   2.58393E-02   7.37348E-03   2.68689E-02
+    7.64575E-03   9.93711E-01   2.18012E-03   5.66115E-03   6.32979E-03
+    3.06725E+02  -4.70649E+01   2.95065E+02  -4.45593E+01   4.64448E+01
+   -6.30071E+00   4.64090E+01  -6.27973E+00   2.58119E-02   7.24417E-03
+    2.68328E-02   7.47567E-03   9.93723E-01   2.24045E-03   5.74210E-03
+    6.71154E-03   3.07110E+02  -4.48484E+01   2.95502E+02  -4.20460E+01
+    4.65155E+01  -5.89342E+00   4.64798E+01  -5.87215E+00   2.57875E-02
+    7.10377E-03   2.68014E-02   7.29487E-03   9.93733E-01   2.29763E-03
+    5.81257E-03   7.11768E-03   3.07398E+02  -4.27131E+01   2.95826E+02
+   -3.96446E+01   4.65683E+01  -5.50192E+00   4.65326E+01  -5.48045E+00
+    2.57676E-02   6.95638E-03   2.67763E-02   7.10840E-03   9.93740E-01
+    2.35178E-03   5.87091E-03   7.54993E-03   3.07596E+02  -4.06588E+01
+    2.96047E+02  -3.73473E+01   4.66046E+01  -5.12569E+00   4.65689E+01
+   -5.10412E+00   2.57526E-02   6.80036E-03   2.67575E-02   6.91386E-03
+    9.93745E-01   2.40281E-03   5.91527E-03   8.00999E-03   3.07710E+02
+   -3.86807E+01   2.96174E+02  -3.51555E+01   4.66255E+01  -4.76483E+00
+    4.65898E+01  -4.74316E+00   2.57431E-02   6.63643E-03   2.67459E-02
+    6.71292E-03   9.93748E-01   2.44916E-03   5.94362E-03   8.49996E-03
+    3.07747E+02  -3.67812E+01   2.96215E+02  -3.30581E+01   4.66321E+01
+   -4.41854E+00   4.65965E+01  -4.39677E+00   2.57397E-02   6.46097E-03
+    2.67418E-02   6.50088E-03   9.93749E-01   2.49094E-03   5.95370E-03
+    9.02184E-03   3.07716E+02  -3.51658E+01   2.96180E+02  -3.12685E+01
+    4.66258E+01  -4.08698E+00   4.65901E+01  -4.06531E+00   2.57560E-02
+    5.61435E-03   2.67592E-02   5.59416E-03   9.93748E-01   2.52183E-03
+    5.94300E-03   9.57793E-03   3.07616E+02  -3.34404E+01   2.96072E+02
+   -2.93911E+01   4.66074E+01  -3.76898E+00   4.65717E+01  -3.74731E+00
+    2.57723E-02   5.33234E-03   2.67776E-02   5.27546E-03   9.93746E-01
+    2.55433E-03   5.90876E-03   1.01706E-02   3.07456E+02  -3.17768E+01
+    2.95898E+02  -2.75913E+01   4.65781E+01  -3.46524E+00   4.65425E+01
+   -3.44377E+00   2.57964E-02   5.08188E-03   2.68050E-02   4.99095E-03
+    9.93743E-01   2.58368E-03   5.84789E-03   1.08025E-02   3.07241E+02
+   -3.01843E+01   2.95667E+02  -2.58777E+01   4.65390E+01  -3.17494E+00
+    4.65034E+01  -3.15357E+00   2.58316E-02   4.82131E-03   2.68446E-02
+    4.69747E-03   9.93740E-01   2.60690E-03   5.75701E-03   1.14763E-02
+    3.06977E+02  -2.86585E+01   2.95385E+02  -2.42521E+01   4.64908E+01
+   -2.89743E+00   4.64553E+01  -2.87626E+00   2.58788E-02   4.54874E-03
+    2.68973E-02   4.39378E-03   9.93736E-01   2.63007E-03   5.63235E-03
+    1.21950E-02   3.06669E+02  -2.72069E+01   2.95058E+02  -2.27095E+01
+    4.64348E+01  -2.63315E+00   4.63993E+01  -2.61217E+00   2.59393E-02
+    4.26333E-03   2.69643E-02   4.07793E-03   9.93733E-01   2.64401E-03
+    5.46977E-03   1.29620E-02   3.06321E+02  -2.58188E+01   2.94691E+02
+   -2.12439E+01   4.63717E+01  -2.38108E+00   4.63362E+01  -2.36020E+00
+    2.60139E-02   3.96554E-03   2.70462E-02   3.75100E-03   9.93731E-01
+    2.65635E-03   5.26472E-03   1.37805E-02   3.05940E+02  -2.44986E+01
+    2.94292E+02  -1.98643E+01   4.63023E+01  -2.14124E+00   4.62670E+01
+   -2.12085E+00   2.61036E-02   3.65518E-03   2.71437E-02   3.41344E-03
+    9.93726E-01   2.66875E-03   5.01214E-03   1.46542E-02   3.05527E+02
+   -2.32399E+01   2.93864E+02  -1.85565E+01   4.62276E+01  -1.91314E+00
+    4.61923E+01  -1.89285E+00   2.62103E-02   3.32971E-03   2.72589E-02
+    3.06183E-03   9.93726E-01   2.67030E-03   4.70646E-03   1.55873E-02
+    3.05089E+02  -2.20442E+01   2.93410E+02  -1.73173E+01   4.61484E+01
+   -1.69690E+00   4.61132E+01  -1.67691E+00   2.63318E-02   2.99791E-03
+    2.73897E-02   2.70486E-03   9.93725E-01   2.67336E-03   4.34160E-03
+    1.65837E-02   3.04536E+02  -2.06757E+01   2.92845E+02  -1.59210E+01
+    4.60653E+01  -1.49168E+00   4.60303E+01  -1.47199E+00   2.61618E-02
+    3.41784E-03   2.72190E-02   3.12653E-03   9.93724E-01   2.67494E-03
+    3.91076E-03   1.76482E-02   3.03900E+02  -1.92434E+01   2.92201E+02
+   -1.44674E+01   4.59791E+01  -1.29702E+00   4.59442E+01  -1.27782E+00
+    2.58020E-02   4.22960E-03   2.68528E-02   3.95264E-03   9.93723E-01
+    2.67645E-03   3.40659E-03   1.87856E-02   3.03394E+02  -1.81923E+01
+    2.91688E+02  -1.34044E+01   4.58906E+01  -1.11347E+00   4.58559E+01
+   -1.09457E+00   2.59220E-02   3.98052E-03   2.69821E-02   3.68432E-03
+    9.93728E-01   2.66721E-03   2.82087E-03   2.00012E-02   3.02876E+02
+   -1.71962E+01   2.91168E+02  -1.24035E+01   4.58004E+01  -9.40082E-01
+    4.57658E+01  -9.21379E-01   2.60637E-02   3.70814E-03   2.71334E-02
+    3.39345E-03   9.93733E-01   2.65635E-03   2.14468E-03   2.13006E-02
+    3.02350E+02  -1.62559E+01   2.90645E+02  -1.14687E+01   4.57091E+01
+   -7.76715E-01   4.56747E+01  -7.58408E-01   2.62277E-02   3.41475E-03
+    2.73071E-02   3.08270E-03   9.93743E-01   2.64092E-03   1.36827E-03
+    2.26897E-02   3.01818E+02  -1.53651E+01   2.90120E+02  -1.05907E+01
+    4.56171E+01  -6.22730E-01   4.55830E+01  -6.04819E-01   2.64018E-02
+    3.12340E-03   2.74906E-02   2.77555E-03   9.93753E-01   2.62388E-03
+    4.80550E-04   2.41755E-02   3.01284E+02  -1.45253E+01   2.89595E+02
+   -9.76431E+00   4.55253E+01  -4.78458E-01   4.54914E+01  -4.60943E-01
+    2.65979E-02   2.81506E-03   2.76966E-02   2.45175E-03   9.93766E-01
+    2.60227E-03  -5.29987E-04   2.57644E-02   3.00751E+02  -1.37351E+01
+    2.89079E+02  -8.99866E+00   4.54341E+01  -3.43080E-01   4.54003E+01
+   -3.25862E-01   2.68129E-02   2.49642E-03   2.79208E-02   2.11934E-03
+    9.93778E-01   2.58368E-03  -1.67667E-03   2.74643E-02   2.99959E+02
+   -1.26246E+01   2.88306E+02  -7.91579E+00   4.53438E+01  -2.16518E-01
+    4.53103E+01  -1.99696E-01   2.61776E-02   3.38716E-03   2.72706E-02
+    3.03115E-03   9.93795E-01   2.56206E-03  -2.97362E-03   2.92830E-02
+    2.99404E+02  -1.18867E+01   2.87775E+02  -7.20963E+00   4.52546E+01
+   -9.79677E-02   4.52215E+01  -8.15408E-02   2.63357E-02   3.17692E-03
+    2.74360E-02   2.81110E-03   9.93814E-01   2.53578E-03  -4.43655E-03
+    3.12292E-02   2.98873E+02  -1.12145E+01   2.87274E+02  -6.57543E+00
+    4.51678E+01   1.18747E-02   4.51349E+01   2.80046E-02   2.65618E-02
+    2.89074E-03   2.76705E-02   2.51439E-03   9.93837E-01   2.50792E-03
+   -6.08261E-03   3.33122E-02   2.98344E+02  -1.05758E+01   2.86781E+02
+   -5.98018E+00   4.50831E+01   1.13999E-01   4.50506E+01   1.29733E-01
+    2.67956E-02   2.60869E-03   2.79117E-02   2.22320E-03   9.93863E-01
+    2.47702E-03  -7.93059E-03   3.55421E-02   2.97829E+02  -9.98268E+00
+    2.86305E+02  -5.43150E+00   4.50008E+01   2.08896E-01   4.49687E+01
+    2.24234E-01   2.70573E-02   2.30691E-03   2.81811E-02   1.91268E-03
+    9.93889E-01   2.44452E-03  -1.00012E-02   3.79294E-02   2.97212E+02
+   -9.30198E+00   2.85732E+02  -4.79824E+00   4.49217E+01   2.96278E-01
+    4.48901E+01   3.11023E-01   2.69540E-02   2.42097E-03   2.80753E-02
+    2.02944E-03   9.93917E-01   2.41363E-03  -1.23168E-02   4.04857E-02
+    2.96084E+02  -8.10727E+00   2.84655E+02  -3.65900E+00   4.48458E+01
+    3.76726E-01   4.48139E+01   3.91569E-01   2.51117E-02   4.37170E-03
+    2.61874E-02   4.02845E-03   9.93942E-01   2.38731E-03  -1.49020E-02
+    4.32230E-02   2.95575E+02  -7.58962E+00   2.84196E+02  -3.19196E+00
+    4.47732E+01   4.50651E-01   4.47420E+01   4.64703E-01   2.53067E-02
+    4.17331E-03   2.63887E-02   3.82367E-03   9.93974E-01   2.35333E-03
+   -1.77844E-02   4.61554E-02   2.95071E+02  -7.09554E+00   2.83751E+02
+   -2.75652E+00   4.47041E+01   5.18233E-01   4.46732E+01   5.32185E-01
+    2.54921E-02   3.99182E-03   2.65789E-02   3.63755E-03   9.94019E-01
+    2.31155E-03  -2.09930E-02   4.92965E-02   2.94582E+02  -6.63488E+00
+    2.83328E+02  -2.35677E+00   4.46394E+01   5.79296E-01   4.46090E+01
+    5.92655E-01   2.57008E-02   3.79497E-03   2.67919E-02   3.43664E-03
+    9.94056E-01   2.27756E-03  -2.45599E-02   5.26612E-02   2.94582E+02
+   -6.63488E+00   2.83328E+02  -2.35677E+00   4.46394E+01   5.79296E-01
+    4.46090E+01   5.92655E-01   2.57008E-02   3.79497E-03   2.67919E-02
+    3.43664E-03   9.94056E-01   2.27756E-03  -2.45599E-02   5.26612E-02
+ ECHO READ:EBINDA(IM),$LGN(GE(IM)/0,1/)
+    5.32984E-04   1.69413E+02   2.69387E+01
+ ECHO READ:($LGN(GMFP,GBR1,GBR2(I,IM)/0,1/),I=1,NGE)
+    8.51133E-04   1.30019E-04   0.00000E+00   0.00000E+00   6.22213E-02
+    1.00121E-02   8.51133E-04   1.30019E-04   0.00000E+00   0.00000E+00
+    6.22213E-02   1.00121E-02   9.42922E-04   1.44877E-04   0.00000E+00
+    0.00000E+00   2.68960E-02   4.29371E-03   1.04530E-03   1.61550E-04
+    0.00000E+00   0.00000E+00  -1.66913E-02  -2.80478E-03   1.15470E-03
+    1.79475E-04   0.00000E+00   0.00000E+00   5.46514E-03   8.25496E-04
+    1.27892E-03   1.99952E-04   0.00000E+00   0.00000E+00  -2.08805E-02
+   -3.51759E-03   1.41017E-03   2.21722E-04   0.00000E+00   0.00000E+00
+    3.25850E-02   5.35047E-03   1.56148E-03   2.46975E-04   0.00000E+00
+    0.00000E+00   6.61464E-03   1.01621E-03   1.72333E-03   2.74155E-04
+    0.00000E+00   0.00000E+00   3.93070E-02   6.50634E-03   1.91232E-03
+    3.06091E-04   0.00000E+00   0.00000E+00  -2.43453E-02  -4.25003E-03
+    2.10851E-03   3.39454E-04   0.00000E+00   0.00000E+00   2.62992E-02
+    4.36222E-03   2.33824E-03   3.78768E-04   0.00000E+00   0.00000E+00
+    9.97717E-03   1.56897E-03   2.64799E-03   4.32117E-04   0.00000E+00
+    0.00000E+00   3.18350E-02   5.33349E-03   2.93885E-03   4.82533E-04
+    0.00000E+00   0.00000E+00   1.34617E-02   2.14874E-03   3.24902E-03
+    5.36644E-04   0.00000E+00   0.00000E+00   6.18206E-02   1.05854E-02
+    3.61565E-03   6.01024E-04   0.00000E+00   0.00000E+00  -6.12684E-03
+   -1.34590E-03   4.00312E-03   6.69507E-04   0.00000E+00   0.00000E+00
+    1.84619E-02   3.00009E-03   4.42962E-03   7.45389E-04   0.00000E+00
+    0.00000E+00   4.85873E-02   8.35986E-03   4.90768E-03   8.31008E-04
+    0.00000E+00   0.00000E+00   5.42018E-02   9.36538E-03   5.50002E-03
+    9.37803E-04   0.00000E+00   0.00000E+00  -5.12840E-03  -1.33162E-03
+    6.17161E-03   1.05970E-03   0.00000E+00   0.00000E+00   6.28243E-02
+    1.10026E-02   6.86057E-03   1.18561E-03   0.00000E+00   0.00000E+00
+    5.13323E-02   8.90247E-03   7.61917E-03   1.32518E-03   0.00000E+00
+    0.00000E+00   5.65088E-02   9.85490E-03   8.46056E-03   1.48106E-03
+    0.00000E+00   0.00000E+00   6.21511E-02   1.09002E-02   9.38035E-03
+    1.65263E-03   0.00000E+00   0.00000E+00   9.13296E-02   1.63431E-02
+    1.04613E-02   1.85567E-03   0.00000E+00   0.00000E+00   5.24186E-02
+    9.03408E-03   1.16651E-02   2.08339E-03   0.00000E+00   0.00000E+00
+    5.64207E-02   9.79110E-03   1.29379E-02   2.32584E-03   0.00000E+00
+    0.00000E+00   8.86081E-02   1.59227E-02   1.43528E-02   2.59730E-03
+    0.00000E+00   0.00000E+00   1.12268E-01   2.04620E-02   1.59481E-02
+    2.90555E-03   0.00000E+00   0.00000E+00   1.07793E-01   1.95972E-02
+    1.79923E-02   3.30340E-03   0.00000E+00   0.00000E+00   1.20030E-01
+    2.19789E-02   2.04786E-02   3.79084E-03   0.00000E+00   0.00000E+00
+    1.34852E-01   2.48844E-02   2.27673E-02   4.24280E-03   0.00000E+00
+    0.00000E+00   1.87896E-01   3.53596E-02   2.54219E-02   4.77089E-03
+    0.00000E+00   0.00000E+00   1.66112E-01   3.10260E-02   2.82778E-02
+    5.34327E-03   0.00000E+00   0.00000E+00   2.04984E-01   3.88165E-02
+    3.15305E-02   6.00005E-03   0.00000E+00   0.00000E+00   2.01524E-01
+    3.81179E-02   3.50429E-02   6.71463E-03   0.00000E+00   0.00000E+00
+    2.46834E-01   4.73359E-02   3.89831E-02   7.52233E-03   0.00000E+00
+    0.00000E+00   2.71639E-01   5.24207E-02   4.37840E-02   8.51402E-03
+    0.00000E+00   0.00000E+00   2.86258E-01   5.54406E-02   4.88506E-02
+    9.56869E-03   0.00000E+00   0.00000E+00   3.47653E-01   6.82205E-02
+    5.44656E-02   1.07466E-02   0.00000E+00   0.00000E+00   3.48351E-01
+    6.83669E-02   6.02752E-02   1.19749E-02   0.00000E+00   0.00000E+00
+    4.55207E-01   9.09591E-02   6.72886E-02   1.34695E-02   0.00000E+00
+    0.00000E+00   4.23097E-01   8.41166E-02   7.44207E-02   1.50014E-02
+    0.00000E+00   0.00000E+00   5.25241E-01   1.06057E-01   8.18971E-02
+    1.66203E-02   0.00000E+00   0.00000E+00   5.72250E-01   1.16236E-01
+    9.02757E-02   1.84492E-02   0.00000E+00   0.00000E+00   6.23919E-01
+    1.27514E-01   9.99855E-02   2.05859E-02   0.00000E+00   0.00000E+00
+    6.56166E-01   1.34610E-01   1.10012E-01   2.28105E-02   0.00000E+00
+    0.00000E+00   7.68448E-01   1.59523E-01   1.21699E-01   2.54251E-02
+    0.00000E+00   0.00000E+00   7.94963E-01   1.65455E-01   1.33634E-01
+    2.81177E-02   0.00000E+00   0.00000E+00   9.08676E-01   1.91108E-01
+    1.47145E-01   3.11914E-02   0.00000E+00   0.00000E+00   9.70876E-01
+    2.05258E-01   1.61167E-01   3.44084E-02   0.00000E+00   0.00000E+00
+    1.08529E+00   2.31507E-01   1.76080E-01   3.78593E-02   0.00000E+00
+    0.00000E+00   1.20977E+00   2.60314E-01   1.93121E-01   4.18368E-02
+    0.00000E+00   0.00000E+00   1.26957E+00   2.74271E-01   2.09735E-01
+    4.57487E-02   0.00000E+00   0.00000E+00   1.42509E+00   3.10888E-01
+    2.30543E-01   5.06912E-02   0.00000E+00   0.00000E+00   1.52368E+00
+    3.34306E-01   2.50827E-01   5.55519E-02   0.00000E+00   0.00000E+00
+    1.65931E+00   3.66810E-01   2.71313E-01   6.05053E-02   0.00000E+00
+    0.00000E+00   1.79585E+00   3.99824E-01   2.92481E-01   6.56699E-02
+    0.00000E+00   0.00000E+00   1.93640E+00   4.34114E-01   3.14570E-01
+    7.11085E-02   0.00000E+00   0.00000E+00   2.06779E+00   4.66464E-01
+    3.37158E-01   7.67211E-02   0.00000E+00   0.00000E+00   2.19906E+00
+    4.99083E-01   3.58949E-01   8.21861E-02   0.00000E+00   0.00000E+00
+    2.35335E+00   5.37778E-01   3.82210E-01   8.80747E-02   0.00000E+00
+    0.00000E+00   2.46816E+00   5.66842E-01   4.07476E-01   9.45317E-02
+    0.00000E+00   0.00000E+00   2.64207E+00   6.11284E-01   4.29785E-01
+    1.00287E-01   0.00000E+00   0.00000E+00   2.76035E+00   6.41800E-01
+    4.50239E-01   1.05616E-01   0.00000E+00   0.00000E+00   2.88068E+00
+    6.73146E-01   4.68720E-01   1.10477E-01   0.00000E+00   0.00000E+00
+    2.99552E+00   7.03353E-01   4.85238E-01   1.14864E-01   0.00000E+00
+    0.00000E+00   3.09617E+00   7.30090E-01   5.01396E-01   1.19199E-01
+    0.00000E+00   0.00000E+00   3.16188E+00   7.47718E-01   5.13540E-01
+    1.22490E-01   0.00000E+00   0.00000E+00   3.22850E+00   7.65770E-01
+    5.24526E-01   1.25497E-01   0.00000E+00   0.00000E+00   3.26420E+00
+    7.75543E-01   5.31460E-01   1.27415E-01   0.00000E+00   0.00000E+00
+    3.29219E+00   7.83283E-01   5.35548E-01   1.28557E-01   0.00000E+00
+    0.00000E+00   3.30003E+00   7.85473E-01   5.39005E-01   1.29533E-01
+    0.00000E+00   0.00000E+00   3.27938E+00   7.79642E-01   5.40661E-01
+    1.30005E-01   0.00000E+00   0.00000E+00   3.28985E+00   7.82631E-01
+    5.38211E-01   1.29299E-01   0.00000E+00   0.00000E+00   3.23302E+00
+    7.66241E-01   5.32011E-01   1.27492E-01   0.00000E+00   0.00000E+00
+    3.16733E+00   7.47094E-01   5.23792E-01   1.25070E-01   0.00000E+00
+    0.00000E+00   3.08744E+00   7.23550E-01   5.14518E-01   1.22306E-01
+    0.00000E+00   0.00000E+00   2.99398E+00   6.95704E-01   5.02099E-01
+    1.18565E-01   0.00000E+00   0.00000E+00   2.89656E+00   6.66355E-01
+    4.90559E-01   1.15049E-01   0.00000E+00   0.00000E+00   2.78711E+00
+    6.33004E-01   4.76812E-01   1.10812E-01   0.00000E+00   0.00000E+00
+    2.67974E+00   5.99916E-01   4.63725E-01   1.06732E-01   0.00000E+00
+    0.00000E+00   2.57041E+00   5.65834E-01   4.49851E-01   1.02356E-01
+    0.00000E+00   0.00000E+00   2.45575E+00   5.29671E-01   4.34867E-01
+    9.75747E-02   0.00000E+00   0.00000E+00   2.34440E+00   4.94136E-01
+    4.23096E-01   9.37731E-02   0.00000E+00   0.00000E+00   2.23189E+00
+    4.57800E-01   4.09274E-01   8.92553E-02   0.00000E+00   0.00000E+00
+    2.12709E+00   4.23543E-01   3.96111E-01   8.48999E-02   0.00000E+00
+    0.00000E+00   2.02355E+00   3.89284E-01   3.83676E-01   8.07340E-02
+    0.00000E+00   0.00000E+00   1.92197E+00   3.55253E-01   3.72791E-01
+    7.70414E-02   0.00000E+00   0.00000E+00   1.83435E+00   3.25529E-01
+    3.63250E-01   7.37638E-02   0.00000E+00   0.00000E+00   1.75237E+00
+    2.97367E-01   3.54737E-01   7.08013E-02   0.00000E+00   0.00000E+00
+    1.67648E+00   2.70959E-01   3.47024E-01   6.80821E-02   0.00000E+00
+    0.00000E+00   1.61159E+00   2.48083E-01   3.40889E-01   6.58908E-02
+    0.00000E+00   0.00000E+00   1.55359E+00   2.27365E-01   3.34737E-01
+    6.36637E-02   0.00000E+00   0.00000E+00   1.49338E+00   2.05568E-01
+    3.29090E-01   6.15916E-02   0.00000E+00   0.00000E+00   1.43899E+00
+    1.85608E-01   3.23925E-01   5.96704E-02   0.00000E+00   0.00000E+00
+    1.38999E+00   1.67382E-01   3.19932E-01   5.81635E-02   0.00000E+00
+    0.00000E+00   1.34575E+00   1.50694E-01   3.16607E-01   5.68918E-02
+    0.00000E+00   0.00000E+00   1.30609E+00   1.35519E-01   3.13630E-01
+    5.57361E-02   0.00000E+00   0.00000E+00   1.27068E+00   1.21776E-01
+    3.11679E-01   5.49682E-02   0.00000E+00   0.00000E+00   1.24002E+00
+    1.09701E-01   3.10515E-01   5.45029E-02   0.00000E+00   0.00000E+00
+    1.21206E+00   9.85321E-02   3.09070E-01   5.39169E-02   0.00000E+00
+    0.00000E+00   1.18680E+00   8.82825E-02   3.08311E-01   5.36042E-02
+    0.00000E+00   0.00000E+00   1.16432E+00   7.90280E-02   3.08126E-01
+    5.35271E-02   0.00000E+00   0.00000E+00   1.14442E+00   7.07058E-02
+    3.08341E-01   5.36182E-02   0.00000E+00   0.00000E+00   1.12682E+00
+    6.32298E-02   3.08497E-01   5.36857E-02   0.00000E+00   0.00000E+00
+    1.11057E+00   5.62146E-02   3.09403E-01   5.40831E-02   0.00000E+00
+    0.00000E+00   1.09659E+00   5.00841E-02   3.10266E-01   5.44676E-02
+    0.00000E+00   0.00000E+00   1.08475E+00   4.48047E-02   3.11705E-01
+    5.51203E-02   0.00000E+00   0.00000E+00   1.07429E+00   4.00631E-02
+    3.13175E-01   5.57983E-02   0.00000E+00   0.00000E+00   1.06510E+00
+    3.58209E-02   3.14907E-01   5.66109E-02   0.00000E+00   0.00000E+00
+    1.05700E+00   3.20215E-02   3.16818E-01   5.75236E-02   0.00000E+00
+    0.00000E+00   1.04988E+00   2.86227E-02   3.18814E-01   5.84938E-02
+    0.00000E+00   0.00000E+00   1.04364E+00   2.55848E-02   3.20896E-01
+    5.95247E-02   0.00000E+00   0.00000E+00   1.03815E+00   2.28712E-02
+    3.23262E-01   6.07177E-02   0.00000E+00   0.00000E+00   1.03333E+00
+    2.04402E-02   3.25566E-01   6.19019E-02   0.00000E+00   0.00000E+00
+    1.02911E+00   1.82709E-02   3.27899E-01   6.31246E-02   0.00000E+00
+    0.00000E+00   1.02466E+00   1.59395E-02   3.30375E-01   6.44477E-02
+    0.00000E+00   0.00000E+00   1.02128E+00   1.41315E-02   3.33029E-01
+    6.58948E-02   0.00000E+00   0.00000E+00   1.01862E+00   1.26832E-02
+    3.35681E-01   6.73700E-02   0.00000E+00   0.00000E+00   1.01628E+00
+    1.13842E-02   3.38449E-01   6.89432E-02   0.00000E+00   0.00000E+00
+    1.01423E+00   1.02185E-02   3.41190E-01   7.05336E-02   0.00000E+00
+    0.00000E+00   1.01243E+00   9.17321E-03   3.43940E-01   7.21648E-02
+    0.00000E+00   0.00000E+00   1.01086E+00   8.24021E-03   3.46774E-01
+    7.38834E-02   0.00000E+00   0.00000E+00   1.00947E+00   7.39573E-03
+    3.49428E-01   7.55308E-02   0.00000E+00   0.00000E+00   1.00759E+00
+    6.22680E-03   3.52279E-01   7.73412E-02   0.00000E+00   0.00000E+00
+    1.00661E+00   5.60701E-03   3.55170E-01   7.92219E-02   0.00000E+00
+    0.00000E+00   1.00579E+00   5.07232E-03   3.58018E-01   8.11206E-02
+    0.00000E+00   0.00000E+00   1.00507E+00   4.59383E-03   3.60897E-01
+    8.30883E-02   0.00000E+00   0.00000E+00   1.00443E+00   4.15709E-03
+    3.63736E-01   8.50794E-02   0.00000E+00   0.00000E+00   1.00387E+00
+    3.76048E-03   3.66598E-01   8.71390E-02   0.00000E+00   0.00000E+00
+    1.00338E+00   3.40884E-03   3.69432E-01   8.92361E-02   0.00000E+00
+    0.00000E+00   1.00294E+00   3.08289E-03   3.72253E-01   9.13820E-02
+    0.00000E+00   0.00000E+00   1.00256E+00   2.79708E-03   3.75060E-01
+    9.35798E-02   0.00000E+00   0.00000E+00   1.00222E+00   2.53051E-03
+    3.77847E-01   9.58265E-02   0.00000E+00   0.00000E+00   1.00193E+00
+    2.29290E-03   3.80617E-01   9.81291E-02   0.00000E+00   0.00000E+00
+    1.00171E+00   2.11146E-03   3.83363E-01   1.00484E-01   0.00000E+00
+    0.00000E+00   1.00147E+00   1.90433E-03   3.86086E-01   1.02896E-01
+    0.00000E+00   0.00000E+00   1.00127E+00   1.72770E-03   3.88765E-01
+    1.05349E-01   0.00000E+00   0.00000E+00   1.00109E+00   1.56393E-03
+    3.91436E-01   1.07882E-01   0.00000E+00   0.00000E+00   1.00093E+00
+    1.41620E-03   3.94067E-01   1.10466E-01   0.00000E+00   0.00000E+00
+    1.00079E+00   1.28133E-03   3.96657E-01   1.13109E-01   0.00000E+00
+    0.00000E+00   1.00067E+00   1.15930E-03   4.02064E-01   1.18841E-01
+    0.00000E+00   0.00000E+00   1.01022E+00   1.12815E-02   4.01636E-01
+    1.18367E-01   0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00
+    4.04142E-01   1.21251E-01   0.00000E+00   0.00000E+00   1.00000E+00
+    0.00000E+00   4.06592E-01   1.24196E-01   0.00000E+00   0.00000E+00
+    1.00000E+00   0.00000E+00   4.09001E-01   1.27226E-01   0.00000E+00
+    0.00000E+00   9.99998E-01  -1.60567E-06   4.11349E-01   1.30324E-01
+    0.00000E+00   0.00000E+00   1.00000E+00   1.60567E-06   4.13655E-01
+    1.33525E-01   0.00000E+00   0.00000E+00   9.99998E-01  -1.60567E-06
+    4.15889E-01   1.36794E-01   0.00000E+00   0.00000E+00   1.00000E+00
+    0.00000E+00   4.18069E-01   1.40165E-01   0.00000E+00   0.00000E+00
+    1.00000E+00   1.60567E-06   4.20177E-01   1.43626E-01   0.00000E+00
+    0.00000E+00   1.00000E+00   0.00000E+00   4.22219E-01   1.47194E-01
+    0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00   4.24179E-01
+    1.50858E-01   0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00
+    4.26061E-01   1.54637E-01   0.00000E+00   0.00000E+00   1.00000E+00
+    0.00000E+00   4.27852E-01   1.58523E-01   0.00000E+00   0.00000E+00
+    1.00000E+00   0.00000E+00   4.29550E-01   1.62530E-01   0.00000E+00
+    0.00000E+00   1.00000E+00   0.00000E+00   4.31143E-01   1.66652E-01
+    0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00   4.32632E-01
+    1.70914E-01   0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00
+    4.34000E-01   1.75295E-01   0.00000E+00   0.00000E+00   1.00000E+00
+    0.00000E+00   4.35245E-01   1.79819E-01   0.00000E+00   0.00000E+00
+    9.99999E-01  -1.60567E-06   4.36357E-01   1.84487E-01   0.00000E+00
+    0.00000E+00   1.00000E+00   1.60567E-06   4.37323E-01   1.89298E-01
+    0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00   4.38137E-01
+    1.94265E-01   0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00
+    4.38787E-01   1.99393E-01   0.00000E+00   0.00000E+00   1.00000E+00
+    0.00000E+00   4.39260E-01   2.04678E-01   0.00000E+00   0.00000E+00
+    1.00000E+00   0.00000E+00   4.39547E-01   2.10140E-01   0.00000E+00
+    0.00000E+00   1.00000E+00   0.00000E+00   4.39633E-01   2.15778E-01
+    0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00   4.39549E-01
+    2.19647E-01  -9.38290E-05   4.30879E-03   1.00000E+00   0.00000E+00
+    4.39204E-01   2.25508E-01  -1.03116E-04   4.46646E-03   1.00000E+00
+    0.00000E+00   4.38623E-01   2.31556E-01  -1.19034E-04   4.63224E-03
+    1.00000E+00   0.00000E+00   4.37793E-01   2.37794E-01  -1.41996E-04
+    4.80471E-03   1.00000E+00   0.00000E+00   4.36698E-01   2.44223E-01
+   -1.72541E-04   4.98411E-03   1.00000E+00   0.00000E+00   4.35320E-01
+    2.50866E-01  -2.11255E-04   5.17079E-03   1.00000E+00   0.00000E+00
+    4.33647E-01   2.57712E-01  -2.58741E-04   5.36500E-03   1.00000E+00
+    0.00000E+00   4.31659E-01   2.64771E-01  -3.15650E-04   5.56708E-03
+    1.00000E+00   0.00000E+00   4.29335E-01   2.72060E-01  -3.82680E-04
+    5.77737E-03   1.00000E+00   0.00000E+00   4.26663E-01   2.79570E-01
+   -4.60547E-04   5.99618E-03   1.00000E+00   0.00000E+00   4.25834E-01
+    2.81677E-01  -4.59346E-03   1.65128E-02   1.00000E+00   0.00000E+00
+    4.23869E-01   2.86248E-01  -7.14820E-03   2.24525E-02   1.00000E+00
+    0.00000E+00   4.20356E-01   2.93765E-01  -7.55061E-03   2.33138E-02
+    1.00000E+00  -1.60565E-06   4.16457E-01   3.01497E-01  -8.00200E-03
+    2.42087E-02   9.99998E-01   1.60567E-06   4.12162E-01   3.09428E-01
+   -8.50534E-03   2.51383E-02   1.00000E+00  -1.60567E-06   4.07449E-01
+    3.17573E-01  -9.06405E-03   2.61039E-02   9.99998E-01   1.60567E-06
+    4.02300E-01   3.25937E-01  -9.68149E-03   2.71068E-02   1.00000E+00
+    0.00000E+00   3.96696E-01   3.34521E-01  -1.03613E-02   2.81481E-02
+    1.00000E+00   0.00000E+00   3.98420E-01   3.32021E-01  -2.31638E-02
+    4.67034E-02   1.00000E+00   0.00000E+00   3.93320E-01   3.39036E-01
+   -2.56651E-02   5.01437E-02   1.00000E+00   0.00000E+00   3.87057E-01
+    3.47232E-01  -2.71124E-02   5.20375E-02   1.00000E+00   0.00000E+00
+    3.80365E-01   3.55584E-01  -2.86827E-02   5.39971E-02   1.00000E+00
+    0.00000E+00   3.73231E-01   3.64091E-01  -3.03822E-02   5.60241E-02
+    1.00000E+00  -1.60567E-06   3.65639E-01   3.72762E-01  -3.22179E-02
+    5.81207E-02   9.99998E-01   1.60565E-06   3.57593E-01   3.81578E-01
+   -3.41956E-02   6.02876E-02   1.00000E+00   0.00000E+00   3.49073E-01
+    3.90548E-01  -3.63223E-02   6.25267E-02   1.00000E+00   0.00000E+00
+    3.40070E-01   3.99670E-01  -3.86047E-02   6.48393E-02   1.00000E+00
+    0.00000E+00   3.30592E-01   4.08926E-01  -4.10493E-02   6.72265E-02
+    1.00000E+00   0.00000E+00   3.20619E-01   4.18324E-01  -4.36634E-02
+    6.96898E-02   1.00000E+00   0.00000E+00   3.28567E-01   4.11087E-01
+   -6.87622E-02   9.25423E-02   1.00000E+00  -1.60567E-06   3.28567E-01
+    4.11087E-01  -6.87622E-02   9.25423E-02   1.00000E+00  -1.60567E-06

diff --git a/code/input-output/hbook.out b/code/input-output/hbook.out
new file mode 100644 (file)
index 0000000..6d7905e
Binary files /dev/null and b/code/input-output/hbook.out differ

diff --git a/code/input-output/hbook_y.out b/code/input-output/hbook_y.out
new file mode 100644 (file)
index 0000000..23262fb
Binary files /dev/null and b/code/input-output/hbook_y.out differ

diff --git a/code/input-output/higz_windows.dat b/code/input-output/higz_windows.dat
new file mode 100644 (file)
index 0000000..9035446
--- /dev/null
+++ b/code/input-output/higz_windows.dat
@@ -0,0 +1 @@
+    0    0    0    0 -

diff --git a/code/input-output/hist_cyl_2.dat b/code/input-output/hist_cyl_2.dat
new file mode 100644 (file)
index 0000000..c62dd5a
--- /dev/null
+++ b/code/input-output/hist_cyl_2.dat
@@ -0,0 +1,82 @@
+       101       100        -10.      10.        0.
+ Zona 1 : aria r=10cm : Distribuzione energia ceduta lungo l' asse z  
+       102       100        -10.      10.        0.
+ Zona 2 : aria r=1cm   : Distribuzione energia ceduta lungo l' asse z  
+       103       100        -10.      10.        0.
+ Zona 3 : aria       : Distribuzione energia ceduta lungo l' asse z  
+       104       100        -10.      10.        0.
+ Zona 4 : YAP 1     : Distribuzione profondita energia ceduta
+       105       100        -10.      10.        0.
+ Zona 5 : YAP 2     : Distribuzione profondita energia ceduta
+       106       100        -10.      10.        0.
+ Zona 6 : YAP 3     : Distribuzione profondita energia ceduta
+       107       100        -10.      10.        0.
+ Zona 7 : YAP 4     : Distribuzione profondita energia ceduta
+       108       100        -10.      10.        0.
+ Zona 8 : fughe     : Distribuzione profondita energia ceduta
+       109       100        -10.      10.        0.
+ Zona 9 : assorbimenti da parte dei collimatori 
+       110       100        -10.      10.        0.
+ Zona 10 : uscite dai rivelatori 
+       501        72        0.        6.28       0.
+ DISTRIBUZIONE ANGOLO DECADIMENTO POSITRONI
+         0         0        0.        0.        0.
+       201        60     -30.      30.        60     -30.      30.        0.
+ Zona 1 : Aria r=10cm : Distribuzione energia ceduta nel piano x-y 
+       202        60     -30.      30.        60     -30.      30.        0.
+ Zona 2 : Aria r=1cm : Distribuzione energia ceduta nel piano x-y 
+       203        60     -30.      30.        60     -30.      30.        0.
+ Zona 3 : Aria Distribuzione energia ceduta nel piano x-y 
+       204        60     -30.      30.        60     -30.      30.        0.
+ Zona 4 : YAP 1 Distribuzione energia ceduta nel piano del yap
+       205        60     -30.      30.        60     -30.      30.        0.
+ Zona 5 : YAP 2 Distribuzione energia ceduta nel piano del yap
+       206        60     -30.      30.        60     -30.      30.        0.
+ Zona 6 : YAP 3 Distribuzione energia ceduta nel piano del yap
+       207        60     -30.      30.        60     -30.      30.        0.
+ Zona 7 : YAP 4 Distribuzione energia ceduta nel piano del yap
+       208        60     -30.      30.        60     -30.      30.        0.
+ Zona 8 : fughe dal sistema : distribuzione in x-y
+       209        60     -30.      30.        60     -30.      30.        0.
+ Zona 9 : assorbimento dei collimatori distr x-y 
+       210        60     -30.      30.        60     -30.      30.        0.
+ Zona 10 : uscite dai rivelatori 
+       700        30       0.      30.        20      -10.     10.        0.
+ DISTRIBUZIONE R-Z , PESATA SU ENERGIA --       
+       701        60     -30.      30.        60      -30.     30.        0.
+ DISTRIBUZIONE x-y , PESATA SU ENERGIA --       
+       400        60     -30.      30.        60     -30.      30.        0.
+ DISTRIBUZIONE X-Y PUNTI DECADIMENTO POSITRONE
+       401        30       0.      30.        20      -10.     10.        0.
+ DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPOSITRONE
+         0         0        0.        0.         0      0.     0.        0.    
+       800         3        10
+ x,y,z punti decadimento del positrone
+ x-decay         
+ y-decay         
+ z-decay         
+       801        16        10
+ energia persa nei rivelatori a ogni evento
+ shower
+ rivelatore
+ xmedio
+ ymedio
+ zmedio
+ sigmax
+ sigmay
+ sigmaz
+ etot
+ etot-positroni
+ etot-elettroni
+ etot-gamma
+ num-part
+ num-positroni
+ num-elettroni
+ num-gamma
+         0         0         0       0          0      
+FINE DEGLI HISTOGRAMMI BIDIMENSIONALI
+
+
+C----- TEMPLATE PER FORMATTED READ
+12345678901234567890123456789012345678901234567890123456789012345678901234567890
+         1         2         3         4         5         6         7         8

diff --git a/code/input-output/hist_cyl_2_y.dat b/code/input-output/hist_cyl_2_y.dat
new file mode 100644 (file)
index 0000000..a71e9aa
--- /dev/null
+++ b/code/input-output/hist_cyl_2_y.dat
@@ -0,0 +1,90 @@
+       101       60        -3.      3.        0.
+ Zona 1 : H2O r=2cm : Distribuzione energia ceduta lungo l' asse z  
+       102       60        -3.      3.        0.
+ Zona 2 : Al r=0.5cm   : Distribuzione energia ceduta lungo l' asse z  
+       103       60        -3.      3.        0.
+ Zona 3 : aria       : Distribuzione energia ceduta lungo l' asse z  
+       104       40        -2.      2.        0.
+ Zona 4 : YAP 1     : Distribuzione profondita energia ceduta
+       105       40        -2.      2.        0.
+ Zona 5 : YAP 2     : Distribuzione profondita energia ceduta
+       106       40        -2.      2.        0.
+ Zona 6 : YAP 3     : Distribuzione profondita energia ceduta
+       107       40        -2.      2.        0.
+ Zona 7 : YAP 4     : Distribuzione profondita energia ceduta
+       108       40        -2.      2.        0.
+ Zona 8 : YAP 5     : Distribuzione profondita energia ceduta
+       109       40        -2.      2.        0.
+ Zona 9 : YAP 6     : Distribuzione profondita energia ceduta
+       110       100        -5.      5.        0.
+ Zona 10 : fughe     : Distribuzione lungo asse z
+       111       100        -5.      5.        0.
+ Zona 11 : assorbimenti da parte dei collimatori 
+       112       100        -5.      5.        0.
+ Zona 12 : part. uscenti dai rivelatori 
+       501        72        0.        6.28       0.
+ Distribuzione angolo decadimento positroni
+         0         0        0.        0.        0.
+       201        100     -10.      10.        100     -10.      10.        0.
+ Zona 1 : H2O r=0.5cm : Distribuzione energia ceduta nel piano x-y 
+       202        100     -10.      10.        100     -10.      10.        0.
+ Zona 2 : Al r=0.5cm : Distribuzione energia ceduta nel piano x-y 
+       203        100     -10.      10.        100     -10.      10.        0.
+ Zona 3 : Aria Distribuzione energia ceduta nel piano x-y 
+       204        70     -2.1      2.1        70     -2.1      2.1        0.
+ Zona 4 : YAP 1 Distribuzione energia ceduta nel piano del yap
+       205        70     -2.1      2.1        70     -2.1      2.1        0.
+ Zona 5 : YAP 2 Distribuzione energia ceduta nel piano del yap
+       206        70     -2.1      2.1        70     -2.1      2.1        0.
+ Zona 6 : YAP 3 Distribuzione energia ceduta nel piano del yap
+       207        70     -2.1      2.1        70     -2.1      2.1        0.
+ Zona 7 : YAP 4 Distribuzione energia ceduta nel piano del yap
+       208        70     -2.1      2.1        70     -2.1      2.1        0.
+ Zona 8 : YAP 5 Distribuzione energia ceduta nel piano del yap
+       209        70     -2.1      2.1        70     -2.1      2.1        0.
+ Zona 9 : YAP 6 Distribuzione energia ceduta nel piano del yap
+       210        70     -2.1      2.1        70     -2.1      2.1        0.
+ Zona 10 : fughe dal sistema : distribuzione in x-y
+       211        100     -10.      10.        100     -10.      10.        0.        
+ Zona 11 : assorbimento dei collimatori distribuzione x-y 
+       212        100     -10.      10.        100     -10.      10.        0.        
+ Zona 12 : uscite dai rivelatori distribuzione x-y
+       700        100     -10.      10.        30     -3.      3.        0.        
+ DISTRIBUZIONE R-Z , PESATA SU ENERGIA --       
+       701        100     -10.      10.        100     -10.      10.        0.        
+ DISTRIBUZIONE x-y , PESATA SU ENERGIA --       
+       400        100     -10.      10.        100     -10.      10.        0.        
+ DISTRIBUZIONE X-Y PUNTI DECADIMENTO POSITRONE
+       401        100     -10.      10.        30     -3.      3.        0.        
+ DISTRIBUZIONE R-Z PUNTI DECADIMENTO PPOSITRONE
+         0         0        0.        0.         0      0.     0.        0.    
+       800         3        10
+ x,y,z punti decadimento del positrone
+ x-decay         
+ y-decay         
+ z-decay         
+       801        16        10
+ energia persa nei rivelatori a ogni evento
+ shower
+ rivelatore
+ xmedio
+ ymedio
+ zmedio
+ sigmax
+ sigmay
+ sigmaz
+ etot
+ etot-positroni
+ etot-elettroni
+ etot-gamma
+ num-part
+ num-positroni
+ num-elettroni
+ num-gamma
+         0         0         0       0          0      
+FINE DEGLI HISTOGRAMMI BIDIMENSIONALI
+
+
+C----- TEMPLATE PER FORMATTED READ
+12345678901234567890123456789012345678901234567890123456789012345678901234567890
+         1         2         3         4         5         6         7         8

diff --git a/code/input-output/last.kumac b/code/input-output/last.kumac
new file mode 100644 (file)
index 0000000..c130403
--- /dev/null
+++ b/code/input-output/last.kumac
@@ -0,0 +1,9 @@
+*** Begin of history file: Sun Aug  7 10:41:41 1994
+histo/file 50 cyl_2_y.dat
+histo/file 50 yaps_y.dat
+histo/file 50 hist_cyl_2.dat
+histo/file 50 hbook_y.out
+histo/list
+nt/list
+exit
+*** End   of history file: Sun Aug  7 10:45:45 1994

diff --git a/code/input-output/mat3mev.dat b/code/input-output/mat3mev.dat
new file mode 100644 (file)
index 0000000..f877a58
--- /dev/null
+++ b/code/input-output/mat3mev.dat
@@ -0,0 +1,5168 @@
+ MEDIUM=AIR-3MEV-10KEV-02KEV    ,STERNCID=AIR-3MEV-10KEV-02KEV    
+ MIXT,RHO= 1.2050E-03,NE= 3,            GASP= 1.0000E+00
+ ASYM=N ,Z= 7.,A=   14.007,PZ= 5.56876E-02,RHOZ= 7.80000E-01
+ ASYM=O ,Z= 8.,A=   15.999,PZ= 1.31255E-02,RHOZ= 2.10000E-01
+ ASYM=AR,Z=18.,A=   39.948,PZ= 2.35306E-04,RHOZ= 9.40000E-03
+    3.05538E+04   5.21000E-01   2.00000E-03   3.51100E+00   3.00200E+00
+     0  200    0  150    0    0    0    0
+    9.99982E-01  -2.10278E-01   4.82540E-02   9.95882E-01  -2.25707E-01
+    9.52000E-01   1.00022E+00  -1.78093E-01   3.43331E-02   1.01412E+00
+   -2.29840E-01   9.52000E-01   1.00034E+00  -1.61554E-01   2.47958E-02
+    1.02349E+00  -2.31963E-01   9.52000E-01   9.99982E-01  -2.10445E-01
+    4.82923E-02   9.95879E-01  -2.25886E-01   9.52000E-01   1.00022E+00
+   -1.78237E-01   3.43609E-02   1.01413E+00  -2.30025E-01   9.52000E-01
+    1.00034E+00  -1.61686E-01   2.48160E-02   1.02351E+00  -2.32152E-01
+    9.52000E-01
+    3.57494E+01   9.41119E-01   8.53762E-01   2.27992E+00   9.41133E-01
+    8.53759E-01   2.27182E+00
+    8.97125E-02   7.46632E-05   2.67921E+05   4.89433E+00
+    1.21501E+02   2.59409E+01
+    9.55616E+00   1.49603E+00   3.02292E+04   6.55946E+03  -1.81716E+03
+   -5.52574E+02  -2.40183E+03  -6.95855E+02   1.00000E+00   0.00000E+00
+   -1.78806E+01  -3.91646E+00   9.62855E+01   2.08703E+01   2.59730E-05
+    5.04073E-06   9.55616E+00   1.49603E+00   3.02292E+04   6.55946E+03
+   -1.81716E+03  -5.52574E+02  -2.40183E+03  -6.95855E+02   1.00000E+00
+    0.00000E+00  -1.78806E+01  -3.91646E+00   9.62855E+01   2.08703E+01
+    2.59730E-05   5.04073E-06   9.51049E+00   1.48603E+00   2.68987E+04
+    5.83038E+03  -1.74551E+03  -5.36889E+02  -2.29413E+03  -6.72279E+02
+    1.00000E+00   0.00000E+00  -5.34961E-01  -1.19357E-01   3.86660E+00
+    6.39018E-01   2.75971E-05   5.39626E-06   9.46618E+00   1.47625E+00
+    2.38507E+04   5.15747E+03  -1.67568E+03  -5.21473E+02  -2.19004E+03
+   -6.49297E+02   1.00000E+00   0.00000E+00  -1.77248E-01  -4.03846E-02
+    1.96137E+00   2.18400E-01   2.93327E-05   5.77943E-06   9.42118E+00
+    1.46623E+00   2.11031E+04   4.54566E+03  -1.60865E+03  -5.06547E+02
+   -2.09084E+03  -6.27210E+02   1.00000E+00   0.00000E+00  -8.56424E-02
+   -1.99871E-02   1.47399E+00   1.09875E-01   3.11838E-05   6.19163E-06
+    9.37622E+00   1.45613E+00   1.86158E+04   3.98704E+03  -1.54281E+03
+   -4.91760E+02  -1.99449E+03  -6.05569E+02   1.00000E+00   0.00000E+00
+   -4.87249E-02  -1.16956E-02   1.27805E+00   6.58653E-02   3.31413E-05
+    6.63126E-06   9.32915E+00   1.44547E+00   1.63771E+04   3.47984E+03
+   -1.48025E+03  -4.77587E+02  -1.90345E+03  -5.84944E+02   1.00000E+00
+    0.00000E+00  -3.02257E-02  -7.50452E-03   1.18022E+00   4.37045E-02
+    3.52238E-05   7.10306E-06   9.28597E+00   1.43560E+00   1.43568E+04
+    3.01811E+03  -1.41950E+03  -4.63703E+02  -1.81580E+03  -5.64913E+02
+    1.00000E+00   0.00000E+00  -1.96146E-02  -5.07933E-03   1.12450E+00
+    3.09705E-02   3.74341E-05   7.60822E-06   9.23942E+00   1.42487E+00
+    1.25405E+04   2.59928E+03  -1.36049E+03  -4.50095E+02  -1.73145E+03
+   -5.45463E+02   1.00000E+00   0.00000E+00  -1.29572E-02  -3.54425E-03
+    1.08983E+00   2.29733E-02   3.97767E-05   8.14839E-06   9.19320E+00
+    1.41411E+00   1.09079E+04   2.21945E+03  -1.30395E+03  -4.36941E+02
+   -1.65118E+03  -5.26787E+02   1.00000E+00   0.00000E+00  -8.48491E-03
+   -2.50376E-03   1.06686E+00   1.76283E-02   4.22698E-05   8.72843E-06
+    9.14997E+00   1.40396E+00   9.44240E+03   1.87543E+03  -1.24932E+03
+   -4.24116E+02  -1.57421E+03  -5.08718E+02   1.00000E+00   0.00000E+00
+   -5.31582E-03  -1.75980E-03   1.05084E+00   1.38693E-02   4.49121E-05
+    9.34871E-06   9.10357E+00   1.39297E+00   8.12692E+03   1.56379E+03
+   -1.19657E+03  -4.11619E+02  -1.50046E+03  -4.91244E+02   1.00000E+00
+    0.00000E+00  -2.97212E-03  -1.20457E-03   1.03925E+00   1.11265E-02
+    4.77143E-05   1.00126E-05   9.05911E+00   1.38234E+00   6.95105E+03
+    1.28265E+03  -1.14563E+03  -3.99440E+02  -1.42978E+03  -4.74349E+02
+    1.00000E+00   0.00000E+00  -1.17591E-03  -7.75127E-04   1.03061E+00
+    9.05768E-03   5.06908E-05   1.07242E-05   9.01336E+00   1.37130E+00
+    5.89996E+03   1.02902E+03  -1.09670E+03  -3.87636E+02  -1.36238E+03
+   -4.58082E+02   1.00000E+00   0.00000E+00   2.45192E-04  -4.32202E-04
+    1.02401E+00   7.46499E-03   5.38478E-05   1.14860E-05   8.96879E+00
+    1.36045E+00   4.96162E+03   8.00461E+02  -1.04924E+03  -3.76074E+02
+   -1.29750E+03  -4.42279E+02   1.00000E+00   0.00000E+00   1.40318E-03
+   -1.50145E-04   1.01881E+00   6.20029E-03   5.71926E-05   1.23007E-05
+    8.92353E+00   1.34931E+00   4.12684E+03   5.95209E+02  -1.00362E+03
+   -3.64858E+02  -1.23556E+03  -4.27051E+02   1.00000E+00   0.00000E+00
+    2.36820E-03   8.71361E-05   1.01471E+00   5.19055E-03   6.07453E-05
+    1.31743E-05   8.88025E+00   1.33857E+00   3.38474E+03   4.10988E+02
+   -9.59664E+02  -3.53945E+02  -1.17629E+03  -4.12337E+02   1.00000E+00
+    0.00000E+00   3.19350E-03   2.92004E-04   1.01136E+00   4.35876E-03
+    6.45035E-05   1.41072E-05   8.83440E+00   1.32708E+00   2.72644E+03
+    2.45995E+02  -9.17482E+02  -3.43372E+02  -1.11978E+03  -3.98174E+02
+    1.00000E+00   0.00000E+00   3.91169E-03   4.72007E-04   1.00861E+00
+    3.67067E-03   6.84928E-05   1.51070E-05   8.79408E+00   1.31688E+00
+    2.14543E+03   9.89566E+01  -8.76547E+02  -3.33013E+02  -1.06536E+03
+   -3.84402E+02   1.00000E+00   0.00000E+00   4.55094E-03   6.33790E-04
+    1.00635E+00   3.09703E-03   7.27224E-05   1.61775E-05   1.36887E+04
+    3.49753E+03   1.63271E+03  -3.20809E+01  -9.76552E+02  -3.58571E+02
+   -1.01338E+03  -3.71117E+02  -9.77949E+01  -2.52493E+01   5.12502E-03
+    7.80503E-04   1.00442E+00   2.60380E-03   7.72005E-05   1.73219E-05
+    1.14323E+04   2.91512E+03   1.18241E+03  -1.48308E+02  -9.20889E+02
+   -3.44204E+02  -9.63866E+02  -3.58337E+02  -1.15373E+00  -3.04676E-01
+    5.65369E-03   9.16961E-04   1.00278E+00   2.18168E-03   8.19560E-05
+    1.85494E-05   9.61664E+03   2.44175E+03   7.88258E+02  -2.51071E+02
+   -8.69789E+02  -3.30882E+02  -9.16205E+02  -3.45910E+02  -3.75785E-01
+   -1.01859E-01   6.14331E-03   1.04461E-03   1.00139E+00   1.81987E-03
+    8.69757E-05   1.98581E-05   8.14594E+03   2.05444E+03   4.44098E+02
+   -3.41706E+02  -8.22987E+02  -3.18556E+02  -8.70923E+02  -3.33985E+02
+   -1.79734E-01  -5.02282E-02   6.60543E-03   1.16631E-03   1.00018E+00
+    1.50136E-03   9.23136E-05   2.12638E-05   6.93892E+03   1.73330E+03
+    1.45449E+02  -4.21166E+02  -7.79332E+02  -3.06941E+02  -8.27407E+02
+   -3.22408E+02  -1.01422E-01  -2.93927E-02   7.04312E-03   1.28276E-03
+    9.99128E-01   1.22150E-03   9.79447E-05   2.27621E-05   5.94319E+03
+    1.46563E+03  -1.12073E+02  -4.90391E+02  -7.38660E+02  -2.96009E+02
+   -7.85934E+02  -3.11259E+02  -6.24629E-02  -1.89200E-02   7.46354E-03
+    1.39578E-03   9.98194E-01   9.71012E-04   1.03917E-04   2.43675E-05
+    5.11210E+03   1.23989E+03  -3.32862E+02  -5.50364E+02  -7.00318E+02
+   -2.85594E+02  -7.46117E+02  -3.00443E+02  -4.02887E-02  -1.28968E-02
+    7.86940E-03   1.50602E-03   9.97390E-01   7.51452E-04   1.10234E-04
+    2.60834E-05   4.41545E+03   1.04865E+03  -5.21570E+02  -6.02164E+02
+   -6.64413E+02  -2.75738E+02  -7.08315E+02  -2.90067E+02  -2.64950E-02
+   -9.11041E-03   8.26612E-03   1.61492E-03   9.96660E-01   5.51996E-04
+    1.16931E-04   2.79217E-05   3.82574E+03   8.85043E+02  -6.79656E+02
+   -6.46024E+02  -6.30140E+02  -2.66229E+02  -6.71866E+02  -2.79954E+02
+   -1.73172E-02  -6.56413E-03   8.65170E-03   1.72190E-03   9.96011E-01
+    3.72634E-04   1.23997E-04   2.98822E-05   3.32508E+03   7.44637E+02
+   -8.12869E+02  -6.83383E+02  -5.97913E+02  -2.57191E+02  -6.37306E+02
+   -2.70262E+02  -1.09022E-02  -4.76514E-03   9.03414E-03   1.82915E-03
+    9.95429E-01   2.08737E-04   1.31486E-04   3.19824E-05   2.89505E+03
+    6.22722E+02  -9.21497E+02  -7.14179E+02  -5.67090E+02  -2.48452E+02
+   -6.04076E+02  -2.60841E+02  -6.21451E-03  -3.43615E-03   9.40963E-03
+    1.93560E-03   9.94916E-01   6.18479E-05   1.39396E-04   3.42248E-05
+    2.52595E+03   5.16926E+02  -1.01005E+03  -7.39559E+02  -5.37874E+02
+   -2.40078E+02  -5.72457E+02  -2.51779E+02  -2.68545E-03  -2.42459E-03
+    9.78344E-03   2.04276E-03   9.94434E-01  -7.57637E-05   1.47765E-04
+    3.66236E-05   2.20540E+03   4.24017E+02  -1.08025E+03  -7.59905E+02
+   -5.10057E+02  -2.32016E+02  -5.42274E+02  -2.43030E+02   6.44088E-05
+   -1.62757E-03   1.01550E-02   2.15046E-03   9.94007E-01  -1.99459E-04
+    1.56607E-04   3.91866E-05   1.92768E+03   3.42612E+02  -1.13312E+03
+   -7.75402E+02  -4.83360E+02  -2.24191E+02  -5.13281E+02  -2.34532E+02
+    2.25358E-03  -9.85894E-04   1.05255E-02   2.25905E-03   9.93611E-01
+   -3.15424E-04   1.65943E-04   4.19228E-05   1.68500E+03   2.70666E+02
+   -1.17257E+03  -7.87103E+02  -4.58024E+02  -2.16679E+02  -4.85731E+02
+   -2.26364E+02   4.03785E-03  -4.56925E-04   1.08955E-02   2.36873E-03
+    9.93252E-01  -4.22112E-04   1.75819E-04   4.48508E-05   1.47265E+03
+    2.06982E+02  -1.19873E+03  -7.94943E+02  -4.33761E+02  -2.09403E+02
+   -4.59379E+02  -2.18461E+02   5.52775E-03  -1.01107E-05   1.12674E-02
+    2.48026E-03   9.92912E-01  -5.22615E-04   1.86233E-04   4.79740E-05
+    1.28630E+03   1.50450E+02  -1.21401E+03  -7.99581E+02  -4.10585E+02
+   -2.02372E+02  -4.34209E+02  -2.10825E+02   6.78089E-03   3.70087E-04
+    1.16348E-02   2.59173E-03   9.92621E-01  -6.12298E-04   1.97235E-04
+    5.13118E-05   1.12229E+03   1.00098E+02  -1.21937E+03  -8.01229E+02
+   -3.88455E+02  -1.95578E+02  -4.10212E+02  -2.03458E+02   7.87222E-03
+    7.05102E-04   1.20088E-02   2.70653E-03   9.92337E-01  -7.00427E-04
+    2.08855E-04   5.48791E-05   9.77824E+02   5.52178E+01  -1.21623E+03
+   -8.00250E+02  -3.67257E+02  -1.88993E+02  -3.87261E+02  -1.96328E+02
+    8.82468E-03   1.00101E-03   1.23818E-02   2.82242E-03   9.92083E-01
+   -7.77737E-04   2.21094E-04   5.86812E-05   8.50318E+02   1.51253E+01
+   -1.20593E+03  -7.97014E+02  -3.47027E+02  -1.82632E+02  -3.65392E+02
+   -1.89452E+02   9.67045E-03   1.26694E-03   1.27562E-02   2.94014E-03
+    9.91836E-01  -8.56593E-04   2.34017E-04   6.27446E-05   7.38245E+02
+   -2.05481E+01  -1.18889E+03  -7.91590E+02  -3.27648E+02  -1.76463E+02
+   -3.44489E+02  -1.82799E+02   1.04317E-02   1.50923E-03   1.31330E-02
+    3.06008E-03   9.91613E-01  -9.26172E-04   2.47632E-04   6.70782E-05
+    6.39168E+02  -5.24739E+01  -1.16673E+03  -7.84449E+02  -3.09147E+02
+   -1.70501E+02  -3.24576E+02  -1.76382E+02   1.11264E-02   1.73311E-03
+    1.35124E-02   3.18234E-03   9.91409E-01  -9.91112E-04   2.61994E-04
+    7.17064E-05   5.51725E+02  -8.10051E+01  -1.14017E+03  -7.75782E+02
+   -2.91457E+02  -1.64729E+02  -3.05578E+02  -1.70183E+02   1.17568E-02
+    1.93881E-03   1.38878E-02   3.30483E-03   9.91224E-01  -1.05296E-03
+    2.77123E-04   7.66428E-05   4.75017E+02  -1.06352E+02  -1.10935E+03
+   -7.65595E+02  -2.74550E+02  -1.59142E+02  -2.87462E+02  -1.64196E+02
+    1.23516E-02   2.13533E-03   1.42714E-02   3.43157E-03   9.91051E-01
+   -1.11172E-03   2.93056E-04   8.19079E-05   4.07410E+02  -1.28982E+02
+   -1.07550E+03  -7.54265E+02  -2.58361E+02  -1.53724E+02  -2.70155E+02
+   -1.58403E+02   1.29035E-02   2.32011E-03   1.46524E-02   3.55913E-03
+    9.90884E-01  -1.16583E-03   3.09831E-04   8.75229E-05   3.48175E+02
+   -1.49068E+02  -1.03910E+03  -7.41921E+02  -2.42904E+02  -1.48482E+02
+   -2.53673E+02  -1.52814E+02   1.34257E-02   2.49716E-03   1.50363E-02
+    3.68930E-03   9.90741E-01  -1.21531E-03   3.27481E-04   9.35078E-05
+    2.96547E+02  -1.66808E+02  -1.00045E+03  -7.28644E+02  -2.28131E+02
+   -1.43407E+02  -2.37949E+02  -1.47412E+02   1.39191E-02   2.66666E-03
+    1.54197E-02   3.82104E-03   9.90593E-01  -1.26479E-03   3.46062E-04
+    9.98918E-05   2.51500E+02  -1.82493E+02  -9.60319E+02  -7.14671E+02
+   -2.14031E+02  -1.38497E+02  -2.22978E+02  -1.42200E+02   1.43918E-02
+    2.83129E-03   1.58052E-02   3.95527E-03   9.90469E-01  -1.30964E-03
+    3.65601E-04   1.06695E-04   2.12581E+02  -1.96227E+02  -9.19001E+02
+   -7.00087E+02  -2.00552E+02  -1.33740E+02  -2.08701E+02  -1.37161E+02
+    1.48439E-02   2.99083E-03   1.61910E-02   4.09140E-03   9.90358E-01
+   -1.34674E-03   3.86125E-04   1.13939E-04   1.79040E+02  -2.08228E+02
+   -8.76759E+02  -6.84973E+02  -1.87685E+02  -1.29136E+02  -1.95104E+02
+   -1.32295E+02   1.52782E-02   3.14622E-03   1.65754E-02   4.22896E-03
+    9.90247E-01  -1.38849E-03   4.07712E-04   1.21663E-04   1.50417E+02
+   -2.18615E+02  -8.33934E+02  -6.69438E+02  -1.75391E+02  -1.24675E+02
+   -1.82138E+02  -1.27592E+02   1.57010E-02   3.29961E-03   1.69620E-02
+    4.36920E-03   9.90154E-01  -1.42096E-03   4.30376E-04   1.29885E-04
+    1.26243E+02  -2.27508E+02  -7.90893E+02  -6.53600E+02  -1.63662E+02
+   -1.20360E+02  -1.69797E+02  -1.23050E+02   1.61063E-02   3.44874E-03
+    1.73451E-02   4.51019E-03   9.90061E-01  -1.45497E-03   4.54173E-04
+    1.38641E-04   1.06006E+02  -2.35062E+02  -7.47840E+02  -6.37531E+02
+   -1.52461E+02  -1.16179E+02  -1.58033E+02  -1.18660E+02   1.65023E-02
+    3.59654E-03   1.77288E-02   4.65338E-03   9.89987E-01  -1.48280E-03
+    4.79140E-04   1.47960E-04   8.93618E+01  -2.41366E+02  -7.04983E+02
+   -6.21302E+02  -1.41791E+02  -1.12139E+02  -1.46851E+02  -1.14425E+02
+    1.68862E-02   3.74192E-03   1.81099E-02   4.79772E-03   9.89913E-01
+   -1.50909E-03   5.05347E-04   1.57885E-04   7.57960E+01  -2.46579E+02
+   -6.62576E+02  -6.05002E+02  -1.31610E+02  -1.08226E+02  -1.36201E+02
+   -1.10332E+02   1.72626E-02   3.88657E-03   1.84902E-02   4.94387E-03
+    9.89863E-01  -1.53074E-03   5.32809E-04   1.68438E-04   6.52354E+01
+   -2.50698E+02  -6.20631E+02  -5.88642E+02  -1.21889E+02  -1.04434E+02
+   -1.26053E+02  -1.06373E+02   1.76286E-02   4.02935E-03   1.88677E-02
+    5.09112E-03   9.89807E-01  -1.55238E-03   5.61601E-04   1.79670E-04
+    5.72397E+01  -2.53864E+02  -5.79332E+02  -5.72284E+02  -1.12635E+02
+   -1.00769E+02  -1.16409E+02  -1.02554E+02   1.79859E-02   4.17087E-03
+    1.92417E-02   5.23923E-03   9.89764E-01  -1.56939E-03   5.91753E-04
+    1.91611E-04   5.15081E+01  -2.56169E+02  -5.38888E+02  -5.56021E+02
+   -1.03811E+02  -9.72205E+01  -1.07229E+02  -9.88620E+01   1.83358E-02
+    4.31161E-03   1.96129E-02   5.38851E-03   9.89733E-01  -1.58176E-03
+    6.23315E-04   2.04305E-04   4.78570E+01  -2.57661E+02  -4.99280E+02
+   -5.39839E+02  -9.54021E+01  -9.37852E+01  -9.84959E+01  -9.52948E+01
+    1.86767E-02   4.45083E-03   1.99788E-02   5.53800E-03   9.89696E-01
+   -1.59413E-03   6.56358E-04   2.17803E-04   4.59792E+01  -2.58441E+02
+   -4.60701E+02  -5.23827E+02  -8.73993E+01  -9.04638E+01  -9.02001E+01
+   -9.18515E+01   1.90132E-02   4.59051E-03   2.03430E-02   5.68916E-03
+    9.89684E-01  -1.60031E-03   6.90916E-04   2.32146E-04   4.57705E+01
+   -2.58529E+02  -4.23056E+02  -5.07948E+02  -7.97690E+01  -8.72453E+01
+   -8.23015E+01  -8.85200E+01   1.93371E-02   4.72714E-03   2.06974E-02
+    5.83866E-03   9.89678E-01  -1.60496E-03   7.27036E-04   2.47381E-04
+    4.69545E+01  -2.58022E+02  -3.86548E+02  -4.92296E+02  -7.25130E+01
+   -8.41339E+01  -7.48017E+01  -8.53044E+01   1.96592E-02   4.86523E-03
+    2.10511E-02   5.99031E-03   9.89671E-01  -1.60650E-03   7.64771E-04
+    2.63561E-04   4.94086E+01  -2.56950E+02  -3.51146E+02  -4.76862E+02
+   -6.56075E+01  -8.11235E+01  -6.76745E+01  -8.21969E+01   1.99694E-02
+    5.00047E-03   2.13948E-02   6.14013E-03   9.89684E-01  -1.60341E-03
+    8.04194E-04   2.80748E-04   5.29363E+01  -2.55387E+02  -3.16896E+02
+   -4.61675E+02  -5.90367E+01  -7.82100E+01  -6.09050E+01  -7.91952E+01
+    2.02761E-02   5.13647E-03   2.17349E-02   6.29096E-03   9.89690E-01
+   -1.59877E-03   8.45336E-04   2.98992E-04   5.74392E+01  -2.53356E+02
+   -2.83776E+02  -4.46733E+02  -5.27847E+01  -7.53891E+01  -5.44681E+01
+   -7.62914E+01   2.05724E-02   5.27014E-03   2.20651E-02   6.43990E-03
+    9.89708E-01  -1.58949E-03   8.88235E-04   3.18345E-04   6.27274E+01
+   -2.50927E+02  -2.51863E+02  -4.32081E+02  -4.68465E+01  -7.26629E+01
+   -4.83652E+01  -7.34893E+01   2.08583E-02   5.40145E-03   2.23848E-02
+    6.58670E-03   9.89739E-01  -1.57712E-03   9.32986E-04   3.38891E-04
+    6.87187E+01  -2.48128E+02  -2.21131E+02  -4.17717E+02  -4.11980E+01
+   -7.00229E+01  -4.25672E+01  -7.07793E+01   2.11517E-02   5.53855E-03
+    2.27098E-02   6.73859E-03   9.89764E-01  -1.56475E-03   9.79593E-04
+    3.60675E-04   7.53147E+01  -2.44988E+02  -1.91561E+02  -4.03642E+02
+   -3.58350E+01  -6.74702E+01  -3.70692E+01  -6.81625E+01   2.14191E-02
+    5.66582E-03   2.30096E-02   6.88130E-03   9.89814E-01  -1.54156E-03
+    1.02815E-03   3.83785E-04   8.23857E+01  -2.41560E+02  -1.63172E+02
+   -3.89876E+02  -3.07375E+01  -6.49987E+01  -3.18482E+01  -6.56310E+01
+    2.16860E-02   5.79524E-03   2.33067E-02   7.02532E-03   9.89857E-01
+   -1.51991E-03   1.07866E-03   4.08277E-04   8.98431E+01  -2.37874E+02
+   -1.35958E+02  -3.76431E+02  -2.59005E+01  -6.26087E+01  -2.69008E+01
+   -6.31866E+01   2.19503E-02   5.92585E-03   2.35990E-02   7.16981E-03
+    9.89910E-01  -1.49517E-03   1.13121E-03   4.34244E-04   9.76266E+01
+   -2.33954E+02  -1.09869E+02  -3.63290E+02  -2.13089E+01  -6.02959E+01
+   -2.22086E+01  -6.08229E+01   2.21989E-02   6.05104E-03   2.38743E-02
+    7.30842E-03   9.89971E-01  -1.46270E-03   1.18583E-03   4.61757E-04
+    1.05639E+02  -2.29837E+02  -8.49417E+01  -3.50484E+02  -1.69534E+01
+   -5.80586E+01  -1.77620E+01  -5.85389E+01   2.24410E-02   6.17541E-03
+    2.41408E-02   7.44535E-03   9.90036E-01  -1.43024E-03   1.24259E-03
+    4.90911E-04   1.13841E+02  -2.25540E+02  -6.10966E+01  -3.37988E+02
+   -1.28220E+01  -5.58937E+01  -1.35491E+01  -5.63313E+01   2.26742E-02
+    6.29759E-03   2.43958E-02   7.57898E-03   9.90107E-01  -1.39158E-03
+    1.30150E-03   5.21780E-04   1.22149E+02  -2.21096E+02  -3.83382E+01
+   -3.25817E+02  -8.90412E+00  -5.37982E+01  -9.55763E+00  -5.41964E+01
+    2.28993E-02   6.41802E-03   2.46402E-02   7.70970E-03   9.90179E-01
+   -1.35292E-03   1.36263E-03   5.54476E-04   1.30521E+02  -2.16523E+02
+   -1.66437E+01  -3.13970E+02  -5.19522E+00  -5.17725E+01  -5.78144E+00
+   -5.21343E+01   2.31174E-02   6.53710E-03   2.48747E-02   7.83775E-03
+    9.90265E-01  -1.30654E-03   1.42602E-03   5.89095E-04   1.38908E+02
+   -2.11846E+02   4.00893E+00  -3.02448E+02  -1.67989E+00  -4.98116E+01
+   -2.20673E+00  -5.01401E+01   2.33241E-02   6.65242E-03   2.50952E-02
+    7.96077E-03   9.90352E-01  -1.25706E-03   1.49170E-03   6.25734E-04
+    1.47273E+02  -2.07077E+02   2.36847E+01  -2.91230E+02   1.64901E+00
+   -4.79138E+01   1.17679E+00  -4.82111E+01   2.35224E-02   6.76548E-03
+    2.53040E-02   8.07980E-03   9.90441E-01  -1.20603E-03   1.55971E-03
+    6.64508E-04   1.55560E+02  -2.02246E+02   4.23566E+01  -2.80346E+02
+    4.79742E+00  -4.60784E+01   4.37309E+00  -4.63479E+01   2.37108E-02
+    6.87531E-03   2.55003E-02   8.19424E-03   9.90537E-01  -1.15037E-03
+    1.63011E-03   7.05548E-04   1.63765E+02  -1.97354E+02   6.01086E+01
+   -2.69760E+02   7.77641E+00  -4.43019E+01   7.39602E+00  -4.45451E+01
+    2.38917E-02   6.98321E-03   2.56857E-02   8.30477E-03   9.90642E-01
+   -1.09007E-03   1.70289E-03   7.48949E-04   1.71830E+02  -1.92430E+02
+    7.69328E+01  -2.59491E+02   1.05927E+01  -4.25830E+01   1.02511E+01
+   -4.28027E+01   2.40622E-02   7.08724E-03   2.58577E-02   8.40979E-03
+    9.90738E-01  -1.02977E-03   1.77813E-03   7.94871E-04   1.79743E+02
+   -1.87484E+02   9.28799E+01  -2.49523E+02   1.32529E+01  -4.09201E+01
+    1.29465E+01  -4.11177E+01   2.42225E-02   7.18745E-03   2.60165E-02
+    8.50901E-03   9.90850E-01  -9.60189E-04   1.85582E-03   8.43436E-04
+    1.87490E+02  -1.82522E+02   1.07975E+02  -2.39854E+02   1.57662E+01
+   -3.93105E+01   1.54909E+01  -3.94880E+01   2.43736E-02   7.28418E-03
+    2.61631E-02   8.60292E-03   9.90955E-01  -8.93702E-04   1.93600E-03
+    8.94789E-04   1.95031E+02  -1.77570E+02   1.22245E+02  -2.30483E+02
+    1.81381E+01  -3.77528E+01   1.78911E+01  -3.79117E+01   2.45142E-02
+    7.37654E-03   2.62961E-02   8.69029E-03   9.91069E-01  -8.17943E-04
+    2.01869E-03   9.49090E-04   2.02381E+02  -1.72618E+02   1.35734E+02
+   -2.21395E+02   2.03748E+01  -3.62458E+01   2.01525E+01  -3.63881E+01
+    2.46475E-02   7.46642E-03   2.64193E-02   8.77329E-03   9.91180E-01
+   -7.42175E-04   2.10390E-03   1.00650E-03   2.09492E+02  -1.67698E+02
+    1.48451E+02  -2.12598E+02   2.24837E+01  -3.47868E+01   2.22842E+01
+   -3.49135E+01   2.47695E-02   7.55076E-03   2.65283E-02   8.84867E-03
+    9.91295E-01  -6.64865E-04   2.19164E-03   1.06719E-03   2.16384E+02
+   -1.62801E+02   1.60451E+02  -2.04070E+02   2.44702E+01  -3.33751E+01
+    2.42907E+01  -3.34875E+01   2.48819E-02   7.63068E-03   2.66250E-02
+    8.91740E-03   9.91416E-01  -5.79824E-04   2.28192E-03   1.13135E-03
+    2.23024E+02  -1.57949E+02   1.71741E+02  -1.95819E+02   2.63395E+01
+   -3.20091E+01   2.61780E+01  -3.21085E+01   2.49861E-02   7.70675E-03
+    2.67109E-02   8.98022E-03   9.91527E-01  -4.96329E-04   2.37474E-03
+    1.19918E-03   2.29426E+02  -1.53136E+02   1.82364E+02  -1.87833E+02
+    2.80985E+01  -3.06866E+01   2.79523E+01  -3.07743E+01   2.50789E-02
+    7.77660E-03   2.67837E-02   9.03487E-03   9.91647E-01  -4.08196E-04
+    2.47008E-03   1.27087E-03   2.35567E+02  -1.48381E+02   1.92342E+02
+   -1.80107E+02   2.97519E+01  -2.94063E+01   2.96201E+01  -2.94829E+01
+    2.51647E-02   7.84301E-03   2.68469E-02   9.08381E-03   9.91765E-01
+   -3.16970E-04   2.56795E-03   1.34665E-03   2.41457E+02  -1.43680E+02
+    2.01711E+02  -1.72629E+02   3.13039E+01  -2.81676E+01   3.11846E+01
+   -2.82343E+01   2.52399E-02   7.90305E-03   2.68975E-02   9.12423E-03
+    9.91876E-01  -2.27291E-04   2.66830E-03   1.42674E-03   2.47084E+02
+   -1.39045E+02   2.10485E+02  -1.65403E+02   3.27600E+01  -2.69685E+01
+    3.26515E+01  -2.70262E+01   2.53066E-02   7.95789E-03   2.69379E-02
+    9.15755E-03   9.91994E-01  -1.29881E-04   2.77111E-03   1.51140E-03
+    2.52456E+02  -1.34477E+02   2.18698E+02  -1.58418E+02   3.41248E+01
+   -2.58079E+01   3.40258E+01  -2.58574E+01   2.53645E-02   8.00718E-03
+    2.69683E-02   9.18340E-03   9.92105E-01  -3.55625E-05   2.87636E-03
+    1.60092E-03   2.57570E+02  -1.29980E+02   2.26375E+02  -1.51667E+02
+    3.54023E+01  -2.46844E+01   3.53121E+01  -2.47263E+01   2.54148E-02
+    8.05134E-03   2.69897E-02   9.20220E-03   9.92216E-01   6.33945E-05
+    2.98398E-03   1.69556E-03   2.62424E+02  -1.25562E+02   2.33543E+02
+   -1.45144E+02   3.65971E+01  -2.35968E+01   3.65146E+01  -2.36318E+01
+    2.54558E-02   8.08869E-03   2.70006E-02   9.21205E-03   9.92325E-01
+    1.62351E-04   3.09390E-03   1.79560E-03   2.67025E+02  -1.21223E+02
+    2.40221E+02  -1.38845E+02   3.77134E+01  -2.25441E+01   3.76374E+01
+   -2.25728E+01   2.54896E-02   8.12063E-03   2.70036E-02   9.21485E-03
+    9.92433E-01   2.62854E-04   3.20606E-03   1.90140E-03   2.71378E+02
+   -1.16961E+02   2.46433E+02  -1.32763E+02   3.87543E+01  -2.15251E+01
+    3.86839E+01  -2.15483E+01   2.55151E-02   8.14561E-03   2.69978E-02
+    9.20925E-03   9.92536E-01   3.64903E-04   3.32034E-03   2.01326E-03
+    2.75479E+02  -1.12790E+02   2.52206E+02  -1.26892E+02   3.97244E+01
+   -2.05382E+01   3.96592E+01  -2.05563E+01   2.55345E-02   8.16532E-03
+    2.69852E-02   9.19640E-03   9.92634E-01   4.63859E-04   3.43669E-03
+    2.13162E-03   2.79340E+02  -1.08702E+02   2.57556E+02  -1.21227E+02
+    4.06258E+01  -1.95840E+01   4.05651E+01  -1.95972E+01   2.55471E-02
+    8.17866E-03   2.69658E-02   9.17591E-03   9.92733E-01   5.69001E-04
+    3.55492E-03   2.25680E-03   2.82964E+02  -1.04701E+02   2.62508E+02
+   -1.15760E+02   4.14637E+01  -1.86590E+01   4.14066E+01  -1.86682E+01
+    2.55518E-02   8.18378E-03   2.69386E-02   9.14585E-03   9.92827E-01
+    6.72596E-04   3.67491E-03   2.38924E-03   2.86354E+02  -1.00792E+02
+    2.67082E+02  -1.10487E+02   4.22391E+01  -1.77651E+01   4.21854E+01
+   -1.77703E+01   2.55513E-02   8.18330E-03   2.69063E-02   9.10860E-03
+    9.92914E-01   7.73099E-04   3.79650E-03   2.52942E-03   2.89517E+02
+   -9.69767E+01   2.71292E+02  -1.05409E+02   4.29573E+01  -1.68986E+01
+    4.29065E+01  -1.69004E+01   2.55454E-02   8.17619E-03   2.68692E-02
+    9.06386E-03   9.92999E-01   8.75148E-04   3.91947E-03   2.67778E-03
+    2.92464E+02  -9.32480E+01   2.75166E+02  -1.00507E+02   4.36196E+01
+   -1.60606E+01   4.35712E+01  -1.60594E+01   2.55344E-02   8.16218E-03
+    2.68274E-02   9.01104E-03   9.93078E-01   9.75651E-04   4.04363E-03
+    2.83489E-03   2.95195E+02  -8.96143E+01   2.78714E+02  -9.57861E+01
+    4.42293E+01  -1.52495E+01   4.41829E+01  -1.52455E+01   2.55185E-02
+    8.14112E-03   2.67818E-02   8.95026E-03   9.93157E-01   1.07925E-03
+    4.16868E-03   3.00124E-03   2.97720E+02  -8.60738E+01   2.81956E+02
+   -9.12402E+01   4.47890E+01  -1.44648E+01   4.47445E+01  -1.44581E+01
+    2.54984E-02   8.11295E-03   2.67328E-02   8.88165E-03   9.93226E-01
+    1.17666E-03   4.29437E-03   3.17747E-03   3.00047E+02  -8.26256E+01
+    2.84912E+02  -8.68602E+01   4.53020E+01  -1.37043E+01   4.52590E+01
+   -1.36956E+01   2.54738E-02   8.07642E-03   2.66803E-02   8.80385E-03
+    9.93291E-01   1.27252E-03   4.42033E-03   3.36418E-03   3.02182E+02
+   -7.92690E+01   2.87594E+02  -8.26430E+01   4.57693E+01  -1.29697E+01
+    4.57278E+01  -1.29587E+01   2.54468E-02   8.03394E-03   2.66268E-02
+    8.71968E-03   9.93351E-01   1.36993E-03   4.54619E-03   3.56204E-03
+    3.04129E+02  -7.60101E+01   2.90016E+02  -7.85901E+01   4.61945E+01
+   -1.22583E+01   4.61537E+01  -1.22458E+01   2.54175E-02   7.98500E-03
+    2.65725E-02   8.62874E-03   9.93407E-01   1.46115E-03   4.67158E-03
+    3.77186E-03   3.05901E+02  -7.28397E+01   2.92198E+02  -7.46866E+01
+    4.65792E+01  -1.15700E+01   4.65395E+01  -1.15557E+01   2.53850E-02
+    7.92682E-03   2.65163E-02   8.52820E-03   9.93460E-01   1.55703E-03
+    4.79595E-03   3.99436E-03   3.07501E+02  -6.97656E+01   2.94150E+02
+   -7.09349E+01   4.69254E+01  -1.09048E+01   4.68864E+01  -1.08892E+01
+    2.53518E-02   7.86304E-03   2.64608E-02   8.42175E-03   9.93504E-01
+    1.64207E-03   4.91879E-03   4.23037E-03   3.08940E+02  -6.67811E+01
+    2.95888E+02  -6.73289E+01   4.72358E+01  -1.02607E+01   4.71972E+01
+   -1.02441E+01   2.53168E-02   7.79037E-03   2.64054E-02   8.30656E-03
+    9.93546E-01   1.72864E-03   5.03949E-03   4.48085E-03   3.10222E+02
+   -6.38892E+01   2.97423E+02  -6.38670E+01   4.75118E+01  -9.63804E+00
+    4.74739E+01  -9.62013E+00   2.52813E-02   7.71021E-03   2.63510E-02
+    8.18398E-03   9.93584E-01   1.81370E-03   5.15735E-03   4.74667E-03
+    3.11357E+02  -6.10844E+01   2.98772E+02  -6.05342E+01   4.77555E+01
+   -9.03627E+00   4.77178E+01  -9.01766E+00   2.52463E-02   7.62382E-03
+    2.62988E-02   8.05516E-03   9.93616E-01   1.89253E-03   5.27162E-03
+    5.02896E-03   3.12350E+02  -5.83737E+01   2.99941E+02  -5.73437E+01
+    4.79686E+01  -8.45411E+00   4.79314E+01  -8.43452E+00   2.52115E-02
+    7.52887E-03   2.62487E-02   7.91837E-03   9.93645E-01   1.97141E-03
+    5.38142E-03   5.32876E-03   3.13209E+02  -5.57518E+01   3.00945E+02
+   -5.42786E+01   4.81529E+01  -7.89174E+00   4.81159E+01  -7.87156E+00
+    2.51778E-02   7.42595E-03   2.62013E-02   7.77365E-03   9.93668E-01
+    2.04251E-03   5.48584E-03   5.64738E-03   3.13943E+02  -5.32152E+01
+    3.01794E+02  -5.13422E+01   4.83102E+01  -7.34797E+00   4.82733E+01
+   -7.32719E+00   2.51460E-02   7.31597E-03   2.61577E-02   7.62285E-03
+    9.93689E-01   2.11366E-03   5.58374E-03   5.98597E-03   3.14556E+02
+   -5.07660E+01   3.02501E+02  -4.85233E+01   4.84418E+01  -6.82272E+00
+    4.84050E+01  -6.80154E+00   2.51165E-02   7.19823E-03   2.61180E-02
+    7.46446E-03   9.93705E-01   2.17703E-03   5.67397E-03   6.34599E-03
+    3.15057E+02  -4.84051E+01   3.03072E+02  -4.58291E+01   4.85494E+01
+   -6.31545E+00   4.85126E+01  -6.29388E+00   2.50895E-02   7.07114E-03
+    2.60826E-02   7.29766E-03   9.93718E-01   2.24200E-03   5.75515E-03
+    6.72881E-03   3.15453E+02  -4.61246E+01   3.03521E+02  -4.32454E+01
+    4.86344E+01  -5.82544E+00   4.85977E+01  -5.80357E+00   2.50665E-02
+    6.93813E-03   2.60528E-02   7.12570E-03   9.93729E-01   2.30073E-03
+    5.82583E-03   7.13615E-03   3.15749E+02  -4.39283E+01   3.03854E+02
+   -4.07735E+01   4.86983E+01  -5.35240E+00   4.86616E+01  -5.33033E+00
+    2.50472E-02   6.79553E-03   2.60284E-02   6.94484E-03   9.93736E-01
+    2.35333E-03   5.88434E-03   7.56969E-03   3.15953E+02  -4.18170E+01
+    3.04082E+02  -3.84128E+01   4.87423E+01  -4.89551E+00   4.87057E+01
+   -4.87335E+00   2.50328E-02   6.64565E-03   2.60104E-02   6.75765E-03
+    9.93740E-01   2.40126E-03   5.92883E-03   8.03114E-03   3.16071E+02
+   -3.97827E+01   3.04212E+02  -3.61577E+01   4.87678E+01  -4.45520E+00
+    4.87312E+01  -4.43283E+00   2.50236E-02   6.48703E-03   2.59991E-02
+    6.56299E-03   9.93743E-01   2.44916E-03   5.95727E-03   8.52254E-03
+    3.16108E+02  -3.78270E+01   3.04254E+02  -3.40017E+01   4.87760E+01
+   -4.02993E+00   4.87394E+01  -4.00777E+00   2.50203E-02   6.31954E-03
+    2.59952E-02   6.36013E-03   9.93744E-01   2.49094E-03   5.96738E-03
+    9.04602E-03   3.16077E+02  -3.61688E+01   3.04219E+02  -3.21631E+01
+    4.87681E+01  -3.62040E+00   4.87315E+01  -3.59794E+00   2.50367E-02
+    5.47036E-03   2.60126E-02   5.45137E-03   9.93743E-01   2.52338E-03
+    5.95665E-03   9.60375E-03   3.15974E+02  -3.43952E+01   3.04107E+02
+   -3.02310E+01   4.87453E+01  -3.22492E+00   4.87086E+01  -3.20265E+00
+    2.50528E-02   5.19211E-03   2.60308E-02   5.13708E-03   9.93742E-01
+    2.55433E-03   5.92230E-03   1.01982E-02   3.15809E+02  -3.26832E+01
+    3.03929E+02  -2.83806E+01   4.87086E+01  -2.84380E+00   4.86720E+01
+   -2.82183E+00   2.50761E-02   4.95012E-03   2.60573E-02   4.86218E-03
+    9.93738E-01   2.58677E-03   5.86125E-03   1.08320E-02   3.15588E+02
+   -3.10449E+01   3.03691E+02  -2.66179E+01   4.86591E+01  -2.47720E+00
+    4.86225E+01  -2.45513E+00   2.51104E-02   4.69535E-03   2.60960E-02
+    4.57527E-03   9.93736E-01   2.60690E-03   5.77009E-03   1.15079E-02
+    3.15316E+02  -2.94746E+01   3.03401E+02  -2.49464E+01   4.85978E+01
+   -2.12350E+00   4.85612E+01  -2.10173E+00   2.51563E-02   4.43084E-03
+    2.61471E-02   4.28062E-03   9.93731E-01   2.63161E-03   5.64505E-03
+    1.22289E-02   3.14999E+02  -2.79811E+01   3.03064E+02  -2.33579E+01
+    4.85257E+01  -1.78351E+00   4.84892E+01  -1.76193E+00   2.52153E-02
+    4.15258E-03   2.62124E-02   3.97259E-03   9.93728E-01   2.64711E-03
+    5.48196E-03   1.29982E-02   3.14641E+02  -2.65527E+01   3.02687E+02
+   -2.18519E+01   4.84436E+01  -1.45574E+00   4.84071E+01  -1.43437E+00
+    2.52878E-02   3.86330E-03   2.62919E-02   3.65514E-03   9.93724E-01
+    2.66099E-03   5.27627E-03   1.38192E-02   3.14249E+02  -2.51945E+01
+    3.02276E+02  -2.04287E+01   4.83526E+01  -1.14088E+00   4.83162E+01
+   -1.11980E+00   2.53751E-02   3.56111E-03   2.63870E-02   3.32608E-03
+    9.93722E-01   2.66721E-03   5.02291E-03   1.46957E-02   3.13824E+02
+   -2.38970E+01   3.01835E+02  -1.90829E+01   4.82532E+01  -8.37673E-01
+    4.82170E+01  -8.16991E-01   2.54792E-02   3.24341E-03   2.64994E-02
+    2.98302E-03   9.93721E-01   2.67339E-03   4.71628E-03   1.56316E-02
+    3.13374E+02  -2.26688E+01   3.01368E+02  -1.78097E+01   4.81466E+01
+   -5.46435E-01   4.81104E+01  -5.25852E-01   2.55989E-02   2.91650E-03
+    2.66281E-02   2.63156E-03   9.93721E-01   2.67490E-03   4.35026E-03
+    1.66312E-02   3.12802E+02  -2.12576E+01   3.00786E+02  -1.63699E+01
+    4.80334E+01  -2.66789E-01   4.79973E+01  -2.46601E-01   2.54222E-02
+    3.35305E-03   2.64504E-02   3.07062E-03   9.93719E-01   2.67648E-03
+    3.91806E-03   1.76991E-02   3.12148E+02  -1.97801E+01   3.00121E+02
+   -1.48711E+01   4.79140E+01   2.77077E-03   4.78780E+01   2.26609E-02
+    2.50535E-02   4.18481E-03   2.60750E-02   3.91770E-03   9.93719E-01
+    2.67645E-03   3.41229E-03   1.88401E-02   3.11628E+02  -1.87021E+01
+    2.99596E+02  -1.37804E+01   4.77898E+01   2.60455E-01   4.77539E+01
+    2.80049E-01   2.51767E-02   3.92920E-03   2.62073E-02   3.64296E-03
+    9.93723E-01   2.66875E-03   2.82467E-03   2.00596E-02   3.11095E+02
+   -1.76767E+01   2.99061E+02  -1.27519E+01   4.76606E+01   5.08634E-01
+    4.76252E+01   5.27534E-01   2.53149E-02   3.66364E-03   2.63548E-02
+    3.35943E-03   9.93729E-01   2.65790E-03   2.14636E-03   2.13632E-02
+    3.10551E+02  -1.67032E+01   2.98518E+02  -1.17815E+01   4.75280E+01
+    7.45940E-01   4.74925E+01   7.64939E-01   2.54632E-02   3.39827E-03
+    2.65125E-02   3.07739E-03   9.93738E-01   2.64247E-03   1.36738E-03
+    2.27569E-02   3.10002E+02  -1.57847E+01   2.97977E+02  -1.08757E+01
+    4.73916E+01   9.74222E-01   4.73565E+01   9.92529E-01   2.56320E-02
+    3.11571E-03   2.66906E-02   2.77937E-03   9.93747E-01   2.62697E-03
+    4.76854E-04   2.42473E-02   3.09452E+02  -1.49204E+01   2.97437E+02
+   -1.00271E+01   4.72528E+01   1.19253E+00   4.72178E+01   1.21054E+00
+    2.58241E-02   2.81366E-03   2.68922E-02   2.46229E-03   9.93761E-01
+    2.60536E-03  -5.37017E-04   2.58415E-02   3.08902E+02  -1.41048E+01
+    2.96903E+02  -9.23537E+00   4.71115E+01   1.40201E+00   4.70767E+01
+    1.41972E+00   2.60296E-02   2.50908E-03   2.71068E-02   2.14422E-03
+    9.93775E-01   2.58523E-03  -1.68735E-03   2.75467E-02   3.08108E+02
+   -1.29911E+01   2.96130E+02  -8.15091E+00   4.69685E+01   1.60251E+00
+    4.69340E+01   1.61983E+00   2.54571E-02   3.31188E-03   2.65209E-02
+    2.96577E-03   9.93789E-01   2.56516E-03  -2.98872E-03   2.93716E-02
+    3.07537E+02  -1.22311E+01   2.95584E+02  -7.42496E+00   4.68240E+01
+    1.79469E+00   4.67900E+01   1.81161E+00   2.56141E-02   3.10304E-03
+    2.66851E-02   2.74737E-03   9.93809E-01   2.53887E-03  -4.45639E-03
+    3.13242E-02   3.06989E+02  -1.15383E+01   2.95065E+02  -6.76780E+00
+    4.66788E+01   1.97843E+00   4.66451E+01   1.99485E+00   2.58287E-02
+    2.83141E-03   2.69080E-02   2.46530E-03   9.93832E-01   2.50792E-03
+   -6.10788E-03   3.34141E-02   3.06445E+02  -1.08821E+01   2.94560E+02
+   -6.15910E+00   4.65333E+01   2.15400E+00   4.64997E+01   2.17023E+00
+    2.60652E-02   2.54607E-03   2.71519E-02   2.17102E-03   9.93855E-01
+    2.48012E-03  -7.96205E-03   3.56514E-02   3.05913E+02  -1.02693E+01
+    2.94067E+02  -5.59062E+00   4.63873E+01   2.32230E+00   4.63543E+01
+    2.33803E+00   2.63188E-02   2.25362E-03   2.74129E-02   1.87002E-03
+    9.93886E-01   2.44607E-03  -1.00394E-02   3.80465E-02   3.05281E+02
+   -9.57114E+00   2.93481E+02  -4.94311E+00   4.62419E+01   2.48284E+00
+    4.62092E+01   2.49818E+00   2.62166E-02   2.36647E-03   2.73082E-02
+    1.98562E-03   9.93911E-01   2.41672E-03  -1.23629E-02   4.06115E-02
+    3.04143E+02  -8.36614E+00   2.92393E+02  -3.79120E+00   4.60968E+01
+    2.63649E+00   4.60642E+01   2.65163E+00   2.44367E-02   4.25119E-03
+    2.54845E-02   3.91674E-03   9.93940E-01   2.38731E-03  -1.49567E-02
+    4.33580E-02   3.03611E+02  -7.82475E+00   2.91915E+02  -3.30517E+00
+    4.59525E+01   2.78337E+00   4.59204E+01   2.79792E+00   2.46075E-02
+    4.07740E-03   2.56607E-02   3.73742E-03   9.93973E-01   2.35333E-03
+   -1.78488E-02   4.63002E-02   3.03093E+02  -7.31720E+00   2.91460E+02
+   -2.85943E+00   4.58096E+01   2.92316E+00   4.57779E+01   2.93741E+00
+    2.47944E-02   3.89441E-03   2.58522E-02   3.55000E-03   9.94013E-01
+    2.31619E-03  -2.10683E-02   4.94519E-02   3.02595E+02  -6.84784E+00
+    2.91025E+02  -2.44860E+00   4.56679E+01   3.05679E+00   4.56368E+01
+    3.07054E+00   2.50122E-02   3.68906E-03   2.60749E-02   3.33986E-03
+    9.94053E-01   2.27602E-03  -2.46475E-02   5.28283E-02   3.02595E+02
+   -6.84784E+00   2.91025E+02  -2.44860E+00   4.56679E+01   3.05679E+00
+    4.56368E+01   3.07054E+00   2.50122E-02   3.68906E-03   2.60749E-02
+    3.33986E-03   9.94053E-01   2.27602E-03  -2.46475E-02   5.28283E-02
+    4.62792E-04   1.69413E+02   2.69387E+01
+    1.04689E-03   1.60029E-04   0.00000E+00   0.00000E+00   7.77847E-02
+    1.25164E-02   1.04689E-03   1.60029E-04   0.00000E+00   0.00000E+00
+    7.77847E-02   1.25164E-02   1.16187E-03   1.78641E-04   0.00000E+00
+    0.00000E+00   3.37782E-02   5.39275E-03   1.29055E-03   1.99599E-04
+    0.00000E+00   0.00000E+00  -2.07659E-02  -3.49014E-03   1.42728E-03
+    2.22001E-04   0.00000E+00   0.00000E+00   6.98676E-03   1.05706E-03
+    1.58362E-03   2.47773E-04   0.00000E+00   0.00000E+00  -2.61171E-02
+   -4.40010E-03   1.74734E-03   2.74930E-04   0.00000E+00   0.00000E+00
+    4.11194E-02   6.75207E-03   1.93820E-03   3.06782E-04   0.00000E+00
+    0.00000E+00   8.49149E-03   1.30672E-03   2.14111E-03   3.40858E-04
+    0.00000E+00   0.00000E+00   4.97847E-02   8.24121E-03   2.38130E-03
+    3.81447E-04   0.00000E+00   0.00000E+00  -3.05470E-02  -5.33375E-03
+    2.62747E-03   4.23309E-04   0.00000E+00   0.00000E+00   3.34793E-02
+    5.55411E-03   2.91907E-03   4.73210E-04   0.00000E+00   0.00000E+00
+    1.28820E-02   2.02923E-03   3.31770E-03   5.41865E-04   0.00000E+00
+    0.00000E+00   4.07295E-02   6.82533E-03   1.01512E-03   1.42746E-04
+    0.00000E+00   0.00000E+00  -7.05894E-04  -3.56898E-04   3.71687E-03
+    6.14090E-04   0.00000E+00   0.00000E+00   7.24900E-02   1.24127E-02
+    4.14059E-03   6.88492E-04   0.00000E+00   0.00000E+00  -7.01388E-03
+   -1.54779E-03   4.58517E-03   7.67072E-04   0.00000E+00   0.00000E+00
+    2.17853E-02   3.54239E-03   5.07408E-03   8.54056E-04   0.00000E+00
+    0.00000E+00   5.71198E-02   9.82892E-03   5.62318E-03   9.52398E-04
+    0.00000E+00   0.00000E+00   6.37516E-02   1.10167E-02   6.27745E-03
+    1.07036E-03   0.00000E+00   0.00000E+00  -6.01869E-03  -1.56266E-03
+    6.96921E-03   1.19592E-03   0.00000E+00   0.00000E+00   7.31686E-02
+    1.28107E-02   7.73765E-03   1.33635E-03   0.00000E+00   0.00000E+00
+    5.95470E-02   1.03215E-02   8.58085E-03   1.49149E-03   0.00000E+00
+    0.00000E+00   6.54485E-02   1.14073E-02   9.51451E-03   1.66446E-03
+    0.00000E+00   0.00000E+00   7.18684E-02   1.25966E-02   1.05304E-02
+    1.85396E-03   0.00000E+00   0.00000E+00   1.05686E-01   1.89048E-02
+    1.17684E-02   2.08650E-03   0.00000E+00   0.00000E+00   6.03974E-02
+    1.03979E-02   1.31966E-02   2.35666E-03   0.00000E+00   0.00000E+00
+    6.55599E-02   1.13745E-02   1.46263E-02   2.62902E-03   0.00000E+00
+    0.00000E+00   1.02968E-01   1.85006E-02   1.62157E-02   2.93394E-03
+    0.00000E+00   0.00000E+00   1.30419E-01   2.37671E-02   1.80107E-02
+    3.28078E-03   0.00000E+00   0.00000E+00   1.25123E-01   2.27438E-02
+    2.04245E-02   3.75058E-03   0.00000E+00   0.00000E+00   1.40077E-01
+    2.56541E-02   2.34330E-02   4.34036E-03   0.00000E+00   0.00000E+00
+    1.58692E-01   2.93035E-02   2.60611E-02   4.85937E-03   0.00000E+00
+    0.00000E+00   2.20782E-01   4.15649E-02   2.91286E-02   5.46960E-03
+    0.00000E+00   0.00000E+00   1.95776E-01   3.65904E-02   3.24125E-02
+    6.12774E-03   0.00000E+00   0.00000E+00   2.41452E-01   4.57445E-02
+    3.61659E-02   6.88563E-03   0.00000E+00   0.00000E+00   2.37779E-01
+    4.50028E-02   4.02000E-02   7.70635E-03   0.00000E+00   0.00000E+00
+    2.91041E-01   5.58388E-02   4.47308E-02   8.63511E-03   0.00000E+00
+    0.00000E+00   3.20391E-01   6.18553E-02   4.91277E-02   9.54336E-03
+    0.00000E+00   0.00000E+00   3.29857E-01   6.38105E-02   5.40110E-02
+    1.05599E-02   0.00000E+00   0.00000E+00   3.95411E-01   7.74562E-02
+    6.00171E-02   1.18198E-02   0.00000E+00   0.00000E+00   3.93708E-01
+    7.70990E-02   6.61044E-02   1.31068E-02   0.00000E+00   0.00000E+00
+    5.14440E-01   1.02625E-01   7.35745E-02   1.46987E-02   0.00000E+00
+    0.00000E+00   4.74189E-01   9.40476E-02   8.09887E-02   1.62913E-02
+    0.00000E+00   0.00000E+00   5.87990E-01   1.18492E-01   8.99752E-02
+    1.82371E-02   0.00000E+00   0.00000E+00   6.46394E-01   1.31138E-01
+    9.96601E-02   2.03511E-02   0.00000E+00   0.00000E+00   7.08018E-01
+    1.44589E-01   1.10191E-01   2.26687E-02   0.00000E+00   0.00000E+00
+    7.42929E-01   1.52272E-01   1.20912E-01   2.50472E-02   0.00000E+00
+    0.00000E+00   8.68345E-01   1.80099E-01   1.33514E-01   2.78665E-02
+    0.00000E+00   0.00000E+00   8.95920E-01   1.86267E-01   1.46179E-01
+    3.07237E-02   0.00000E+00   0.00000E+00   1.02165E+00   2.14631E-01
+    1.60566E-01   3.39968E-02   0.00000E+00   0.00000E+00   1.08846E+00
+    2.29830E-01   1.75306E-01   3.73786E-02   0.00000E+00   0.00000E+00
+    1.21326E+00   2.58463E-01   1.90860E-01   4.09779E-02   0.00000E+00
+    0.00000E+00   1.34817E+00   2.89683E-01   2.08749E-01   4.51535E-02
+    0.00000E+00   0.00000E+00   1.40975E+00   3.04056E-01   2.25763E-01
+    4.91592E-02   0.00000E+00   0.00000E+00   1.57688E+00   3.43407E-01
+    2.47738E-01   5.43790E-02   0.00000E+00   0.00000E+00   1.68220E+00
+    3.68423E-01   2.68666E-01   5.93941E-02   0.00000E+00   0.00000E+00
+    1.82613E+00   4.02914E-01   2.89370E-01   6.44002E-02   0.00000E+00
+    0.00000E+00   1.96802E+00   4.37223E-01   3.10527E-01   6.95622E-02
+    0.00000E+00   0.00000E+00   2.11242E+00   4.72452E-01   3.32422E-01
+    7.49528E-02   0.00000E+00   0.00000E+00   2.24484E+00   5.05056E-01
+    3.54546E-01   8.04503E-02   0.00000E+00   0.00000E+00   2.37518E+00
+    5.37443E-01   3.75363E-01   8.56710E-02   0.00000E+00   0.00000E+00
+    2.52813E+00   5.75803E-01   3.97620E-01   9.13053E-02   0.00000E+00
+    0.00000E+00   2.63650E+00   6.03235E-01   4.21198E-01   9.73307E-02
+    0.00000E+00   0.00000E+00   2.80469E+00   6.46218E-01   4.41664E-01
+    1.02611E-01   0.00000E+00   0.00000E+00   2.91217E+00   6.73946E-01
+    4.59805E-01   1.07337E-01   0.00000E+00   0.00000E+00   3.01985E+00
+    7.01997E-01   4.75569E-01   1.11483E-01   0.00000E+00   0.00000E+00
+    3.11979E+00   7.28287E-01   4.89079E-01   1.15072E-01   0.00000E+00
+    0.00000E+00   3.20323E+00   7.50450E-01   5.02255E-01   1.18607E-01
+    0.00000E+00   0.00000E+00   3.24936E+00   7.62826E-01   5.11033E-01
+    1.20985E-01   0.00000E+00   0.00000E+00   3.29564E+00   7.75366E-01
+    5.18759E-01   1.23100E-01   0.00000E+00   0.00000E+00   3.31003E+00
+    7.79305E-01   5.22285E-01   1.24075E-01   0.00000E+00   0.00000E+00
+    3.31665E+00   7.81136E-01   5.23077E-01   1.24297E-01   0.00000E+00
+    0.00000E+00   3.30343E+00   7.77443E-01   5.23512E-01   1.24419E-01
+    0.00000E+00   0.00000E+00   3.26222E+00   7.65806E-01   5.20433E-01
+    1.23541E-01   0.00000E+00   0.00000E+00   3.24327E+00   7.60400E-01
+    5.15618E-01   1.22152E-01   0.00000E+00   0.00000E+00   3.16990E+00
+    7.39242E-01   5.07342E-01   1.19740E-01   0.00000E+00   0.00000E+00
+    3.08996E+00   7.15940E-01   4.97481E-01   1.16834E-01   0.00000E+00
+    0.00000E+00   2.99843E+00   6.88965E-01   4.87034E-01   1.13721E-01
+    0.00000E+00   0.00000E+00   2.89607E+00   6.58470E-01   4.73780E-01
+    1.09728E-01   0.00000E+00   0.00000E+00   2.79215E+00   6.27159E-01
+    4.61888E-01   1.06105E-01   0.00000E+00   0.00000E+00   2.67891E+00
+    5.92655E-01   4.48455E-01   1.01965E-01   0.00000E+00   0.00000E+00
+    2.57226E+00   5.59787E-01   4.36419E-01   9.82126E-02   0.00000E+00
+    0.00000E+00   2.46825E+00   5.27364E-01   4.22937E-01   9.39607E-02
+    0.00000E+00   0.00000E+00   2.35455E+00   4.91504E-01   4.08548E-01
+    8.93689E-02   0.00000E+00   0.00000E+00   2.24546E+00   4.56689E-01
+    3.97586E-01   8.58287E-02   0.00000E+00   0.00000E+00   2.13665E+00
+    4.21552E-01   3.84670E-01   8.16067E-02   0.00000E+00   0.00000E+00
+    2.03620E+00   3.88716E-01   3.72353E-01   7.75311E-02   0.00000E+00
+    0.00000E+00   1.93665E+00   3.55775E-01   3.60661E-01   7.36141E-02
+    0.00000E+00   0.00000E+00   1.83842E+00   3.22872E-01   3.50949E-01
+    7.03200E-02   0.00000E+00   0.00000E+00   1.75713E+00   2.95296E-01
+    3.42574E-01   6.74427E-02   0.00000E+00   0.00000E+00   1.68152E+00
+    2.69318E-01   3.35184E-01   6.48712E-02   0.00000E+00   0.00000E+00
+    1.61185E+00   2.45074E-01   3.28706E-01   6.25871E-02   0.00000E+00
+    0.00000E+00   1.55392E+00   2.24650E-01   3.23785E-01   6.08297E-02
+    0.00000E+00   0.00000E+00   1.50290E+00   2.06427E-01   3.18517E-01
+    5.89222E-02   0.00000E+00   0.00000E+00   1.44757E+00   1.86393E-01
+    3.13697E-01   5.71535E-02   0.00000E+00   0.00000E+00   1.39773E+00
+    1.68106E-01   3.09297E-01   5.55166E-02   0.00000E+00   0.00000E+00
+    1.35296E+00   1.51452E-01   3.05999E-01   5.42725E-02   0.00000E+00
+    0.00000E+00   1.31264E+00   1.36243E-01   3.03304E-01   5.32417E-02
+    0.00000E+00   0.00000E+00   1.27657E+00   1.22442E-01   3.00900E-01
+    5.23088E-02   0.00000E+00   0.00000E+00   1.24440E+00   1.09961E-01
+    2.99431E-01   5.17304E-02   0.00000E+00   0.00000E+00   1.21657E+00
+    9.90010E-02   2.98703E-01   5.14393E-02   0.00000E+00   0.00000E+00
+    1.19125E+00   8.88836E-02   2.97669E-01   5.10199E-02   0.00000E+00
+    0.00000E+00   1.16840E+00   7.96152E-02   2.97272E-01   5.08561E-02
+    0.00000E+00   0.00000E+00   1.14811E+00   7.12581E-02   2.97393E-01
+    5.09070E-02   0.00000E+00   0.00000E+00   1.13016E+00   6.37468E-02
+    2.97876E-01   5.11118E-02   0.00000E+00   0.00000E+00   1.11428E+00
+    5.70046E-02   2.98302E-01   5.12960E-02   0.00000E+00   0.00000E+00
+    1.09974E+00   5.07264E-02   2.99413E-01   5.17833E-02   0.00000E+00
+    0.00000E+00   1.08719E+00   4.52222E-02   3.00437E-01   5.22402E-02
+    0.00000E+00   0.00000E+00   1.07649E+00   4.04549E-02   3.02000E-01
+    5.29487E-02   0.00000E+00   0.00000E+00   1.06705E+00   3.61742E-02
+    3.03577E-01   5.36760E-02   0.00000E+00   0.00000E+00   1.05876E+00
+    3.23495E-02   3.05391E-01   5.45267E-02   0.00000E+00   0.00000E+00
+    1.05146E+00   2.89226E-02   3.07367E-01   5.54704E-02   0.00000E+00
+    0.00000E+00   1.04504E+00   2.58561E-02   3.09410E-01   5.64635E-02
+    0.00000E+00   0.00000E+00   1.03941E+00   2.31201E-02   3.11525E-01
+    5.75108E-02   0.00000E+00   0.00000E+00   1.03445E+00   2.06682E-02
+    3.13905E-01   5.87110E-02   0.00000E+00   0.00000E+00   1.03011E+00
+    1.84765E-02   3.16214E-01   5.98980E-02   0.00000E+00   0.00000E+00
+    1.02630E+00   1.65192E-02   3.18550E-01   6.11223E-02   0.00000E+00
+    0.00000E+00   1.02223E+00   1.43868E-02   3.21012E-01   6.24382E-02
+    0.00000E+00   0.00000E+00   1.01916E+00   1.27474E-02   3.23642E-01
+    6.38712E-02   0.00000E+00   0.00000E+00   1.01678E+00   1.14468E-02
+    3.26265E-01   6.53304E-02   0.00000E+00   0.00000E+00   1.01469E+00
+    1.02859E-02   3.28993E-01   6.68811E-02   0.00000E+00   0.00000E+00
+    1.01284E+00   9.23422E-03   3.31693E-01   6.84478E-02   0.00000E+00
+    0.00000E+00   1.01123E+00   8.29812E-03   3.34395E-01   7.00510E-02
+    0.00000E+00   0.00000E+00   1.00981E+00   7.45665E-03   3.37178E-01
+    7.17386E-02   0.00000E+00   0.00000E+00   1.00856E+00   6.70047E-03
+    3.39809E-01   7.33716E-02   0.00000E+00   0.00000E+00   1.00692E+00
+    5.68087E-03   3.42600E-01   7.51439E-02   0.00000E+00   0.00000E+00
+    1.00604E+00   5.12049E-03   3.45424E-01   7.69808E-02   0.00000E+00
+    0.00000E+00   1.00529E+00   4.63397E-03   3.48205E-01   7.88353E-02
+    0.00000E+00   0.00000E+00   1.00462E+00   4.19081E-03   3.51018E-01
+    8.07577E-02   0.00000E+00   0.00000E+00   1.00405E+00   3.79581E-03
+    3.53788E-01   8.27002E-02   0.00000E+00   0.00000E+00   1.00353E+00
+    3.43293E-03   3.56579E-01   8.47093E-02   0.00000E+00   0.00000E+00
+    1.00309E+00   3.11340E-03   3.59345E-01   8.67557E-02   0.00000E+00
+    0.00000E+00   1.00268E+00   2.81314E-03   3.62093E-01   8.88455E-02
+    0.00000E+00   0.00000E+00   1.00233E+00   2.54981E-03   3.64831E-01
+    9.09895E-02   0.00000E+00   0.00000E+00   1.00203E+00   2.31053E-03
+    3.71097E-01   9.60409E-02   0.00000E+00   0.00000E+00   1.01564E+00
+    1.32869E-02   3.70068E-01   9.51859E-02   0.00000E+00   0.00000E+00
+    1.00069E+00   8.60640E-04   3.72767E-01   9.75013E-02   0.00000E+00
+    0.00000E+00   1.00060E+00   7.80357E-04   3.75438E-01   9.98672E-02
+    0.00000E+00   0.00000E+00   1.00051E+00   7.04890E-04   3.78068E-01
+    1.02275E-01   0.00000E+00   0.00000E+00   1.00044E+00   6.42269E-04
+    3.80684E-01   1.04756E-01   0.00000E+00   0.00000E+00   1.00038E+00
+    5.79648E-04   3.83260E-01   1.07287E-01   0.00000E+00   0.00000E+00
+    1.00032E+00   5.26661E-04   3.85795E-01   1.09872E-01   0.00000E+00
+    0.00000E+00   1.00027E+00   4.73673E-04   3.88921E-01   1.13186E-01
+    0.00000E+00   0.00000E+00   1.00239E+00   2.71840E-03   3.90738E-01
+    1.15190E-01   0.00000E+00   0.00000E+00   1.00007E+00   1.62173E-04
+    3.93172E-01   1.17991E-01   0.00000E+00   0.00000E+00   1.00006E+00
+    1.47722E-04   3.95555E-01   1.20856E-01   0.00000E+00   0.00000E+00
+    1.00005E+00   1.36480E-04   3.97895E-01   1.23800E-01   0.00000E+00
+    0.00000E+00   1.00004E+00   1.25242E-04   4.00179E-01   1.26814E-01
+    0.00000E+00   0.00000E+00   1.00004E+00   1.18820E-04   4.02420E-01
+    1.29923E-01   0.00000E+00   0.00000E+00   1.00003E+00   1.04369E-04
+    4.04591E-01   1.33100E-01   0.00000E+00   0.00000E+00   1.00002E+00
+    8.99177E-05   4.06711E-01   1.36379E-01   0.00000E+00   0.00000E+00
+    1.00001E+00   8.51006E-05   4.08761E-01   1.39744E-01   0.00000E+00
+    0.00000E+00   1.00001E+00   7.86780E-05   4.10747E-01   1.43214E-01
+    0.00000E+00   0.00000E+00   1.00001E+00   7.38609E-05   4.12653E-01
+    1.46776E-01   0.00000E+00   0.00000E+00   1.00000E+00   6.26212E-05
+    4.14481E-01   1.50449E-01   0.00000E+00   0.00000E+00   9.99998E-01
+    5.61985E-05   4.16224E-01   1.54230E-01   0.00000E+00   0.00000E+00
+    9.99996E-01   5.13815E-05   4.17875E-01   1.58128E-01   0.00000E+00
+    0.00000E+00   9.99994E-01   4.65645E-05   4.19425E-01   1.62138E-01
+    0.00000E+00   0.00000E+00   9.99994E-01   4.65639E-05   4.20873E-01
+    1.66280E-01   0.00000E+00   0.00000E+00   9.99992E-01   4.17475E-05
+    4.22204E-01   1.70542E-01   0.00000E+00   0.00000E+00   9.99990E-01
+    3.69305E-05   4.23416E-01   1.74946E-01   0.00000E+00   0.00000E+00
+    9.99990E-01   3.69305E-05   4.24496E-01   1.79482E-01   0.00000E+00
+    0.00000E+00   9.99989E-01   3.05078E-05   4.25436E-01   1.84163E-01
+    0.00000E+00   0.00000E+00   9.99988E-01   2.89021E-05   4.26228E-01
+    1.88996E-01   0.00000E+00   0.00000E+00   9.99988E-01   2.72964E-05
+    4.26860E-01   1.93981E-01   0.00000E+00   0.00000E+00   9.99988E-01
+    2.56908E-05   4.27321E-01   1.99126E-01   0.00000E+00   0.00000E+00
+    9.99987E-01   2.08737E-05   4.27599E-01   2.04437E-01   0.00000E+00
+    0.00000E+00   9.99988E-01   2.40851E-05   4.27684E-01   2.09919E-01
+    0.00000E+00   0.00000E+00   9.99988E-01   1.92681E-05   4.27600E-01
+    2.13755E-01  -9.04078E-05   4.15168E-03   9.99988E-01   1.60565E-05
+    4.27264E-01   2.19459E-01  -9.93594E-05   4.30366E-03   9.99988E-01
+    1.60567E-05   4.26699E-01   2.25348E-01  -1.14703E-04   4.46346E-03
+    9.99988E-01   1.28454E-05   4.25890E-01   2.31423E-01  -1.36837E-04
+    4.62970E-03   9.99987E-01   1.60567E-05   4.24824E-01   2.37685E-01
+   -1.66282E-04   4.80264E-03   9.99988E-01   1.28454E-05   4.23483E-01
+    2.44151E-01  -2.03598E-04   4.98258E-03   9.99988E-01   1.12397E-05
+    4.21853E-01   2.50818E-01  -2.49377E-04   5.16981E-03   9.99988E-01
+    1.44511E-05   4.19915E-01   2.57697E-01  -3.04243E-04   5.36463E-03
+    9.99989E-01   9.63404E-06   4.17654E-01   2.64793E-01  -3.68858E-04
+    5.56735E-03   9.99989E-01   1.12397E-05   4.15050E-01   2.72108E-01
+   -4.43929E-04   5.77830E-03   9.99988E-01   1.12397E-05   4.14154E-01
+    2.74389E-01  -4.41171E-03   1.58747E-02   9.99990E-01   9.63404E-06
+    4.12183E-01   2.78973E-01  -6.86501E-03   2.15786E-02   9.99990E-01
+    6.42269E-06   4.08744E-01   2.86331E-01  -7.25248E-03   2.24079E-02
+    9.99990E-01   8.02826E-06   4.04933E-01   2.93888E-01  -7.68709E-03
+    2.32696E-02   9.99989E-01   8.02836E-06   4.00733E-01   3.01645E-01
+   -8.17183E-03   2.41648E-02   9.99992E-01   4.81702E-06   3.96119E-01
+    3.09617E-01  -8.70995E-03   2.50948E-02   9.99990E-01   6.42269E-06
+    3.91078E-01   3.17806E-01  -9.30480E-03   2.60609E-02   9.99990E-01
+    6.42269E-06   3.85593E-01   3.26207E-01  -9.95975E-03   2.70642E-02
+    9.99990E-01   6.42269E-06   3.86935E-01   3.24262E-01  -2.23548E-02
+    4.50290E-02   9.99900E-01   1.36482E-04   3.81948E-01   3.31122E-01
+   -2.47753E-02   4.83581E-02   1.00000E+00   0.00000E+00   3.75783E-01
+    3.39189E-01  -2.61765E-02   5.01917E-02   1.00000E+00   0.00000E+00
+    3.69192E-01   3.47415E-01  -2.76971E-02   5.20893E-02   1.00000E+00
+   -1.60567E-06   3.62164E-01   3.55796E-01  -2.93436E-02   5.40530E-02
+    9.99998E-01   1.60567E-06   3.54680E-01   3.64343E-01  -3.11224E-02
+    5.60846E-02   1.00000E+00   0.00000E+00   3.46740E-01   3.73043E-01
+   -3.30395E-02   5.81852E-02   1.00000E+00   0.00000E+00   3.38333E-01
+    3.81895E-01  -3.51016E-02   6.03561E-02   1.00000E+00   0.00000E+00
+    3.29444E-01   3.90903E-01  -3.73157E-02   6.25997E-02   1.00000E+00
+    0.00000E+00   3.20073E-01   4.00052E-01  -3.96880E-02   6.49161E-02
+    1.00000E+00   0.00000E+00   3.10210E-01   4.09347E-01  -4.22256E-02
+    6.73074E-02   1.00000E+00  -1.60567E-06   3.17416E-01   4.02786E-01
+   -6.68124E-02   8.96939E-02   9.99997E-01   1.60567E-06   3.17416E-01
+    4.02786E-01  -6.68124E-02   8.96939E-02   9.99997E-01   1.60567E-06
+ MEDIUM=ALUM-3MEV-10KEV-02KEV   ,STERNCID=ALUM-3MEV-10KEV-02KEV   
+ ELEM,RHO= 2.7020E+00,NE= 1
+ ASYM=AL,Z=13.,A=   26.982,PZ= 1.00000E+00,RHOZ= 2.69815E+01
+    8.88722E+00   5.21000E-01   2.00000E-03   3.51100E+00   3.00200E+00
+     0  200    0  150    0    0    0    0
+    9.99981E-01  -2.19279E-01   5.03195E-02   9.95706E-01  -2.35368E-01
+    9.52000E-01   1.00023E+00  -1.85862E-01   3.58308E-02   1.01473E+00
+   -2.39866E-01   9.52000E-01   1.00036E+00  -1.68669E-01   2.58879E-02
+    1.02452E+00  -2.42180E-01   9.52000E-01   9.99981E-01  -2.19810E-01
+    5.04414E-02   9.95695E-01  -2.35938E-01   9.52000E-01   1.00023E+00
+   -1.86320E-01   3.59193E-02   1.01477E+00  -2.40458E-01   9.52000E-01
+    1.00036E+00  -1.69090E-01   2.59524E-02   1.02458E+00  -2.42783E-01
+    9.52000E-01
+    2.95564E+01   9.41857E-01   8.53614E-01   2.29371E+00   9.41901E-01
+    8.53605E-01   2.26997E+00
+    1.09552E-01   1.04935E-04   1.90631E+05   5.04144E+00
+    1.21501E+02   2.59409E+01
+    9.91931E+00   1.55599E+00   1.90277E+04   4.12859E+03  -9.33733E+02
+   -2.88749E+02  -1.30169E+03  -3.78920E+02   1.00000E+00   0.00000E+00
+   -2.64604E+01  -5.79607E+00   8.69583E+01   1.88284E+01   2.64582E-05
+    5.12867E-06   9.91931E+00   1.55599E+00   1.90277E+04   4.12859E+03
+   -9.33733E+02  -2.88749E+02  -1.30169E+03  -3.78920E+02   1.00000E+00
+    0.00000E+00  -2.64604E+01  -5.79607E+00   8.69583E+01   1.88284E+01
+    2.64582E-05   5.12867E-06   9.87962E+00   1.54730E+00   1.69317E+04
+    3.66976E+03  -8.98752E+02  -2.81091E+02  -1.24401E+03  -3.66295E+02
+    1.00000E+00   0.00000E+00  -8.68785E-01  -1.93853E-01   3.83817E+00
+    6.32722E-01   2.80970E-05   5.48741E-06   9.83222E+00   1.53683E+00
+    1.50135E+04   3.24629E+03  -8.64541E+02  -2.73538E+02  -1.18823E+03
+   -3.53980E+02   1.00000E+00   0.00000E+00  -2.88968E-01  -6.58457E-02
+    1.95562E+00   2.17108E-01   2.98474E-05   5.87386E-06   9.78680E+00
+    1.52672E+00   1.32844E+04   2.86126E+03  -8.31588E+02  -2.66201E+02
+   -1.13504E+03  -3.42136E+02   1.00000E+00   0.00000E+00  -1.39812E-01
+   -3.26336E-02   1.47187E+00   1.09393E-01   3.17135E-05   6.28937E-06
+    9.74776E+00   1.51795E+00   1.17191E+04   2.50971E+03  -7.99074E+02
+   -2.58899E+02  -1.08332E+03  -3.30521E+02   1.00000E+00   0.00000E+00
+   -7.95795E-02  -1.91057E-02   1.27703E+00   6.56318E-02   3.36861E-05
+    6.73240E-06   9.69160E+00   1.50523E+00   1.03102E+04   2.19051E+03
+   -7.68104E+02  -2.51883E+02  -1.03443E+03  -3.19443E+02   1.00000E+00
+    0.00000E+00  -4.93843E-02  -1.22647E-02   1.17965E+00   4.35700E-02
+    3.57835E-05   7.20758E-06   9.65120E+00   1.49600E+00   9.03881E+03
+    1.89994E+03  -7.37923E+02  -2.44985E+02  -9.87327E+02  -3.08678E+02
+    1.00000E+00   0.00000E+00  -3.20389E-02  -8.30041E-03   1.12414E+00
+    3.08839E-02   3.80087E-05   7.71617E-06   9.60618E+00   1.48561E+00
+    7.89570E+03   1.63636E+03  -7.08503E+02  -2.38200E+02  -9.41954E+02
+   -2.98216E+02   1.00000E+00   0.00000E+00  -2.11512E-02  -5.78991E-03
+    1.08960E+00   2.29191E-02   4.03662E-05   8.25976E-06   9.55759E+00
+    1.47431E+00   6.86828E+03   1.39733E+03  -6.80237E+02  -2.31624E+02
+   -8.98753E+02  -2.88165E+02   1.00000E+00   0.00000E+00  -1.38377E-02
+   -4.08841E-03   1.06670E+00   1.75896E-02   4.28742E-05   8.84323E-06
+    9.51630E+00   1.46462E+00   5.94601E+03   1.18082E+03  -6.52834E+02
+   -2.25191E+02  -8.57292E+02  -2.78432E+02   1.00000E+00   0.00000E+00
+   -8.64913E-03  -2.87035E-03   1.05073E+00   1.38415E-02   4.55310E-05
+    9.46695E-06   9.46912E+00   1.45344E+00   5.11813E+03   9.84691E+02
+   -6.26300E+02  -2.18905E+02  -8.17545E+02  -2.69016E+02   1.00000E+00
+    0.00000E+00  -4.81274E-03  -1.96150E-03   1.03916E+00   1.11033E-02
+    4.83475E-05   1.01342E-05   9.42335E+00   1.44249E+00   4.37815E+03
+    8.07770E+02  -6.00596E+02  -2.12760E+02  -7.79422E+02  -2.59901E+02
+    1.00000E+00   0.00000E+00  -1.87212E-03  -1.25845E-03   1.03055E+00
+    9.04376E-03   5.13380E-05   1.08492E-05   9.37888E+00   1.43176E+00
+    3.71664E+03   6.48148E+02  -5.75848E+02  -2.06789E+02  -7.43038E+02
+   -2.51121E+02   1.00000E+00   0.00000E+00   4.57744E-04  -6.96231E-04
+    1.02396E+00   7.45108E-03   5.45085E-05   1.16142E-05   9.33162E+00
+    1.42025E+00   3.12609E+03   5.04302E+02  -5.51763E+02  -2.00922E+02
+   -7.07992E+02  -2.42585E+02   1.00000E+00   0.00000E+00   2.35350E-03
+   -2.34480E-04   1.01880E+00   6.19720E-03   5.78661E-05   1.24320E-05
+    9.28816E+00   1.40957E+00   2.60079E+03   3.75140E+02  -5.28561E+02
+   -1.95216E+02  -6.74522E+02  -2.34356E+02   1.00000E+00   0.00000E+00
+    3.93773E-03   1.55060E-04   1.01467E+00   5.17973E-03   6.14316E-05
+    1.33087E-05   9.24115E+00   1.39789E+00   2.13371E+03   2.59195E+02
+   -5.06135E+02  -1.89650E+02  -6.42462E+02  -2.26397E+02   1.00000E+00
+    0.00000E+00   5.28839E-03   4.90341E-04   1.01136E+00   4.35566E-03
+    6.52011E-05   1.42445E-05   9.19693E+00   1.38682E+00   1.71942E+03
+    1.55360E+02  -4.84569E+02  -1.84245E+02  -6.11880E+02  -2.18732E+02
+    1.00000E+00   0.00000E+00   6.46878E-03   7.86187E-04   1.00860E+00
+    3.66758E-03   6.92011E-05   1.52470E-05   9.15225E+00   1.37551E+00
+    1.35375E+03   6.28192E+01  -4.63582E+02  -1.78933E+02  -5.82413E+02
+   -2.11274E+02   1.00000E+00   0.00000E+00   7.51449E-03   1.05084E-03
+    1.00635E+00   3.09549E-03   7.34408E-05   1.63200E-05   8.61814E+03
+    2.20160E+03   1.03107E+03  -1.96488E+01  -5.31061E+02  -1.96179E+02
+   -5.54236E+02  -2.04074E+02  -9.61236E+01  -2.48221E+01   8.45968E-03
+    1.29240E-03   1.00442E+00   2.60225E-03   7.79274E-05   1.74667E-05
+    7.19813E+03   1.83507E+03   7.47713E+02  -9.27912E+01  -5.00342E+02
+   -1.88250E+02  -5.27388E+02  -1.97143E+02  -1.84775E+00  -4.88066E-01
+    9.32635E-03   1.51610E-03   1.00280E+00   2.18478E-03   8.26901E-05
+    1.86960E-05   6.05547E+03   1.53717E+03   4.99628E+02  -1.57469E+02
+   -4.72313E+02  -1.80943E+02  -5.01523E+02  -1.90400E+02  -6.07800E-01
+   -1.64798E-01   1.01308E-02   1.72584E-03   1.00140E+00   1.82142E-03
+    8.77156E-05   2.00062E-05   5.12993E+03   1.29342E+03   2.83032E+02
+   -2.14509E+02  -4.46773E+02  -1.74216E+02  -4.76938E+02  -1.83926E+02
+   -2.91725E-01  -8.15575E-02   1.08935E-02   1.92670E-03   1.00019E+00
+    1.50136E-03   9.30578E-05   2.14131E-05   4.37031E+03   1.09132E+03
+    9.50554E+01  -2.64523E+02  -4.23036E+02  -1.67901E+02  -4.53293E+02
+   -1.77635E+02  -1.64923E-01  -4.78208E-02   1.16037E-02   2.11563E-03
+    9.99147E-01   1.22459E-03   9.86918E-05   2.29120E-05   3.74366E+03
+    9.22866E+02  -6.70182E+01  -3.08092E+02  -4.00996E+02  -1.61977E+02
+   -4.30745E+02  -1.71573E+02  -1.01640E-01  -3.08095E-02   1.22990E-02
+    2.30254E-03   9.98219E-01   9.75651E-04   1.04664E-04   2.45174E-05
+    3.22063E+03   7.80795E+02  -2.05982E+02  -3.45838E+02  -3.80261E+02
+   -1.56344E+02  -4.09084E+02  -1.65690E+02  -6.55736E-02  -2.10127E-02
+    1.29649E-02   2.48343E-03   9.97415E-01   7.56090E-04   1.10979E-04
+    2.62329E-05   2.78220E+03   6.60445E+02  -3.24713E+02  -3.78431E+02
+   -3.60882E+02  -1.51024E+02  -3.88508E+02  -1.60041E+02  -4.31093E-02
+   -1.48462E-02   1.36166E-02   2.66231E-03   9.96673E-01   5.53542E-04
+    1.17672E-04   2.80699E-05   2.41107E+03   5.57479E+02  -4.24263E+02
+   -4.06050E+02  -3.42396E+02  -1.45896E+02  -3.68654E+02  -1.54533E+02
+   -2.81495E-02  -1.06957E-02   1.42500E-02   2.83806E-03   9.96048E-01
+    3.78818E-04   1.24731E-04   3.00284E-05   2.09597E+03   4.69112E+02
+   -5.08115E+02  -4.29565E+02  -3.25027E+02  -1.41025E+02  -3.49817E+02
+   -1.49250E+02  -1.76934E-02  -7.76346E-03   1.48748E-02   3.01326E-03
+    9.95467E-01   2.16468E-04   1.32209E-04   3.21257E-05   1.82534E+03
+    3.92388E+02  -5.76469E+02  -4.48943E+02  -3.08420E+02  -1.36316E+02
+   -3.31695E+02  -1.44113E+02  -1.00294E-02  -5.59069E-03   1.54972E-02
+    3.18973E-03   9.94947E-01   6.80327E-05   1.40105E-04   3.43643E-05
+    1.59305E+03   3.25803E+02  -6.32208E+02  -4.64919E+02  -2.92677E+02
+   -1.31804E+02  -3.14445E+02  -1.39168E+02  -4.27388E-03  -3.94094E-03
+    1.61080E-02   3.36482E-03   9.94458E-01  -6.95789E-05   1.48457E-04
+    3.67581E-05   1.39130E+03   2.67330E+02  -6.76414E+02  -4.77734E+02
+   -2.77688E+02  -1.27460E+02  -2.97962E+02  -1.34391E+02   2.18497E-04
+   -2.63885E-03   1.67185E-02   3.54176E-03   9.94050E-01  -1.90182E-04
+    1.57278E-04   3.93149E-05   1.21650E+03   2.16095E+02  -7.09695E+02
+   -4.87489E+02  -2.63294E+02  -1.23241E+02  -2.82121E+02  -1.29748E+02
+    3.79128E-03  -1.59164E-03   1.73245E-02   3.71937E-03   9.93648E-01
+   -3.07693E-04   1.66587E-04   4.20435E-05   1.06377E+03   1.70815E+02
+   -7.34553E+02  -4.94858E+02  -2.49623E+02  -1.19188E+02  -2.67063E+02
+   -1.25284E+02   6.70866E-03  -7.26737E-04   1.79322E-02   3.89953E-03
+    9.93290E-01  -4.12835E-04   1.76433E-04   4.49625E-05   9.30116E+02
+    1.30733E+02  -7.51013E+02  -4.99793E+02  -2.36529E+02  -1.15261E+02
+   -2.52647E+02  -1.20961E+02   9.13812E-03   1.83611E-06   1.85389E-02
+    4.08148E-03   9.92956E-01  -5.13337E-04   1.86812E-04   4.80749E-05
+    8.12843E+02   9.51525E+01  -7.60650E+02  -5.02717E+02  -2.24008E+02
+   -1.11462E+02  -2.38873E+02  -1.16781E+02   1.11971E-02   6.26504E-04
+    1.91473E-02   4.26606E-03   9.92659E-01  -6.03021E-04   1.97771E-04
+    5.13999E-05   7.09606E+02   6.34597E+01  -7.64047E+02  -5.03760E+02
+   -2.12040E+02  -1.07788E+02  -2.25732E+02  -1.12747E+02   1.29643E-02
+    1.16905E-03   1.97505E-02   4.45124E-03   9.92387E-01  -6.88058E-04
+    2.09344E-04   5.49527E-05   6.18683E+02   3.52135E+01  -7.62064E+02
+   -5.03145E+02  -2.00569E+02  -1.04224E+02  -2.13157E+02  -1.08840E+02
+    1.45402E-02   1.65863E-03   2.03728E-02   4.64458E-03   9.92127E-01
+   -7.68460E-04   2.21528E-04   5.87378E-05   5.38422E+02   9.97720E+00
+   -7.55604E+02  -5.01113E+02  -1.89610E+02  -1.00779E+02  -2.01168E+02
+   -1.05071E+02   1.59141E-02   2.09063E-03   2.09810E-02   4.83580E-03
+    9.91892E-01  -8.42678E-04   2.34390E-04   6.27819E-05   4.67880E+02
+   -1.24765E+01  -7.44907E+02  -4.97709E+02  -1.79104E+02  -9.74343E+01
+   -1.89704E+02  -1.01422E+02   1.71550E-02   2.48558E-03   2.15959E-02
+    5.03154E-03   9.91675E-01  -9.10710E-04   2.47935E-04   6.70933E-05
+    4.05516E+02  -3.25726E+01  -7.30955E+02  -4.93212E+02  -1.69064E+02
+   -9.41990E+01  -1.78773E+02  -9.78998E+01   1.82859E-02   2.84998E-03
+    2.22138E-02   5.23063E-03   9.91465E-01  -9.80289E-04   2.62220E-04
+    7.16964E-05   3.50477E+02  -5.05312E+01  -7.14267E+02  -4.87767E+02
+   -1.59452E+02  -9.10629E+01  -1.68339E+02  -9.44949E+01   1.93281E-02
+    3.19007E-03   2.28359E-02   5.43364E-03   9.91286E-01  -1.03750E-03
+    2.77261E-04   7.66042E-05   3.02193E+02  -6.64870E+01  -6.94875E+02
+   -4.81358E+02  -1.50261E+02  -8.80259E+01  -1.58387E+02  -9.12063E+01
+    2.02914E-02   3.50839E-03   2.34576E-02   5.63909E-03   9.91106E-01
+   -1.09625E-03   2.93097E-04   8.18373E-05   2.59631E+02  -8.07336E+01
+   -6.73589E+02  -4.74235E+02  -1.41449E+02  -8.50764E+01  -1.48871E+02
+   -8.80213E+01   2.11846E-02   3.80737E-03   2.40750E-02   5.84571E-03
+    9.90939E-01  -1.15037E-03   3.09765E-04   8.74163E-05   2.22350E+02
+   -9.33755E+01  -6.50675E+02  -4.66466E+02  -1.33030E+02  -8.22211E+01
+   -1.39805E+02  -8.49469E+01   2.20416E-02   4.09795E-03   2.47049E-02
+    6.05933E-03   9.90803E-01  -1.19830E-03   3.27297E-04   9.33614E-05
+    1.89842E+02  -1.04544E+02  -6.26378E+02  -4.58117E+02  -1.24975E+02
+   -7.94537E+01  -1.31153E+02  -8.19743E+01   2.28438E-02   4.37356E-03
+    2.53290E-02   6.27374E-03   9.90661E-01  -1.24623E-03   3.45746E-04
+    9.97001E-05   1.61482E+02  -1.14418E+02  -6.01131E+02  -4.49326E+02
+   -1.17276E+02  -7.67732E+01  -1.22908E+02  -7.91034E+01   2.36163E-02
+    4.64258E-03   2.59590E-02   6.49309E-03   9.90537E-01  -1.28954E-03
+    3.65142E-04   1.06454E-04   1.36981E+02  -1.23066E+02  -5.75139E+02
+   -4.40153E+02  -1.09914E+02  -7.41745E+01  -1.15042E+02  -7.63274E+01
+    2.43460E-02   4.90009E-03   2.65824E-02   6.71313E-03   9.90426E-01
+   -1.32973E-03   3.85508E-04   1.13642E-04   1.15873E+02  -1.30619E+02
+   -5.48565E+02  -4.30643E+02  -1.02878E+02  -7.16573E+01  -1.07547E+02
+   -7.36455E+01   2.50561E-02   5.15415E-03   2.72108E-02   6.93798E-03
+    9.90321E-01  -1.36684E-03   4.06924E-04   1.21304E-04   9.78293E+01
+   -1.37164E+02  -5.21630E+02  -4.20871E+02  -9.61506E+01  -6.92164E+01
+   -1.00397E+02  -7.10513E+01   2.57370E-02   5.40121E-03   2.78343E-02
+    7.16416E-03   9.90228E-01  -1.39931E-03   4.29400E-04   1.29459E-04
+    8.26264E+01  -1.42759E+02  -4.94546E+02  -4.10906E+02  -8.97260E+01
+   -6.68525E+01  -9.35864E+01  -6.85455E+01   2.64007E-02   5.64541E-03
+    2.84609E-02   7.39474E-03   9.90141E-01  -1.43332E-03   4.52993E-04
+    1.38139E-04   6.98745E+01  -1.47517E+02  -4.67465E+02  -4.00798E+02
+   -8.35843E+01  -6.45601E+01  -8.70909E+01  -6.61210E+01   2.70396E-02
+    5.88388E-03   2.90807E-02   7.62609E-03   9.90061E-01  -1.46116E-03
+    4.77738E-04   1.47376E-04   5.93961E+01  -1.51487E+02  -4.40501E+02
+   -3.90587E+02  -7.77304E+01  -6.23435E+01  -8.09145E+01  -6.37821E+01
+    2.76617E-02   6.11946E-03   2.96984E-02   7.86000E-03   9.90005E-01
+   -1.48435E-03   5.03704E-04   1.57209E-04   5.08495E+01  -1.54771E+02
+   -4.13816E+02  -3.80332E+02  -7.21382E+01  -6.01943E+01  -7.50281E+01
+   -6.15200E+01   2.82697E-02   6.35311E-03   3.03131E-02   8.09623E-03
+    9.89956E-01  -1.50445E-03   5.30902E-04   1.67661E-04   4.41932E+01
+   -1.57367E+02  -3.87435E+02  -3.70041E+02  -6.67965E+01  -5.81105E+01
+   -6.94157E+01  -5.93306E+01   2.88600E-02   6.58337E-03   3.09222E-02
+    8.33381E-03   9.89894E-01  -1.52610E-03   5.59415E-04   1.78783E-04
+    3.91583E+01  -1.59361E+02  -3.61443E+02  -3.59748E+02  -6.17058E+01
+   -5.60946E+01  -6.40811E+01  -5.72179E+01   2.94383E-02   6.81240E-03
+    3.15271E-02   8.57337E-03   9.89857E-01  -1.54156E-03   5.89261E-04
+    1.90604E-04   3.55452E+01  -1.60815E+02  -3.36000E+02  -3.49515E+02
+   -5.68478E+01  -5.41408E+01  -5.89987E+01  -5.51741E+01   2.99964E-02
+    7.03689E-03   3.21206E-02   8.81209E-03   9.89826E-01  -1.55393E-03
+    6.20495E-04   2.03165E-04   3.32463E+01  -1.61754E+02  -3.11078E+02
+   -3.39334E+02  -5.22166E+01  -5.22487E+01  -5.41633E+01  -5.31987E+01
+    3.05542E-02   7.26476E-03   3.27175E-02   9.05591E-03   9.89801E-01
+   -1.56321E-03   6.53185E-04   2.16519E-04   3.20540E+01  -1.62248E+02
+   -2.86810E+02  -3.29261E+02  -4.78032E+01  -5.04170E+01  -4.95658E+01
+   -5.12904E+01   3.10861E-02   7.48550E-03   3.32952E-02   9.29571E-03
+    9.89789E-01  -1.56939E-03   6.87362E-04   2.30705E-04   3.19212E+01
+   -1.62305E+02  -2.63122E+02  -3.19269E+02  -4.35934E+01  -4.86412E+01
+   -4.51870E+01  -4.94434E+01   3.16121E-02   7.70736E-03   3.38693E-02
+    9.53785E-03   9.89783E-01  -1.57249E-03   7.23074E-04   2.45768E-04
+    3.26589E+01  -1.61988E+02  -2.40146E+02  -3.09418E+02  -3.95866E+01
+   -4.69233E+01  -4.10274E+01  -4.76599E+01   3.21220E-02   7.92595E-03
+    3.44303E-02   9.77839E-03   9.89783E-01  -1.57403E-03   7.60373E-04
+    2.61760E-04   3.42042E+01  -1.61314E+02  -2.17876E+02  -2.99709E+02
+   -3.57708E+01  -4.52598E+01  -3.70719E+01  -4.59355E+01   3.26241E-02
+    8.14488E-03   3.49854E-02   1.00204E-02   9.89783E-01  -1.57094E-03
+    7.99327E-04   2.78743E-04   3.64160E+01  -1.60334E+02  -1.96330E+02
+   -2.90155E+02  -3.21376E+01  -4.36488E+01  -3.33132E+01  -4.42686E+01
+    3.31089E-02   8.35988E-03   3.55240E-02   1.02592E-02   9.89807E-01
+   -1.56321E-03   8.39967E-04   2.96764E-04   3.92486E+01  -1.59056E+02
+   -1.75481E+02  -2.80749E+02  -2.86772E+01  -4.20876E+01  -2.97369E+01
+   -4.26555E+01   3.35862E-02   8.57519E-03   3.60542E-02   1.04984E-02
+    9.89820E-01  -1.55393E-03   8.82333E-04   3.15877E-04   4.25767E+01
+   -1.57528E+02  -1.55401E+02  -2.71531E+02  -2.53899E+01  -4.05782E+01
+   -2.63450E+01  -4.10982E+01   3.40440E-02   8.78540E-03   3.65654E-02
+    1.07331E-02   9.89851E-01  -1.54156E-03   9.26510E-04   3.36160E-04
+    4.63386E+01  -1.55770E+02  -1.36071E+02  -2.62496E+02  -2.22597E+01
+   -3.91153E+01  -2.31218E+01  -3.95915E+01   3.44931E-02   8.99529E-03
+    3.70658E-02   1.09670E-02   9.89894E-01  -1.52300E-03   9.72514E-04
+    3.57662E-04   5.04932E+01  -1.53792E+02  -1.17454E+02  -2.53635E+02
+   -1.92863E+01  -3.76999E+01  -2.00627E+01  -3.81355E+01   3.49287E-02
+    9.20263E-03   3.75509E-02   1.11979E-02   9.89931E-01  -1.50290E-03
+    1.02042E-03   3.80462E-04   5.49407E+01  -1.51636E+02  -9.95915E+01
+   -2.44974E+02  -1.64573E+01  -3.63283E+01  -1.71559E+01  -3.67262E+01
+    3.53513E-02   9.40750E-03   3.80205E-02   1.14256E-02   9.89981E-01
+   -1.47971E-03   1.07024E-03   4.04620E-04   5.96336E+01  -1.49318E+02
+   -8.24712E+01  -2.36515E+02  -1.37716E+01  -3.50013E+01  -1.44012E+01
+   -3.53649E+01   3.57600E-02   9.60947E-03   3.84736E-02   1.16495E-02
+    9.90033E-01  -1.45188E-03   1.12207E-03   4.30229E-04   6.45308E+01
+   -1.46850E+02  -6.60492E+01  -2.28242E+02  -1.12205E+01  -3.37163E+01
+   -1.17863E+01  -3.40479E+01   3.61528E-02   9.80734E-03   3.89067E-02
+    1.18676E-02   9.90095E-01  -1.42250E-03   1.17591E-03   4.57349E-04
+    6.95741E+01  -1.44260E+02  -5.03637E+01  -2.20185E+02  -8.79868E+00
+   -3.24723E+01  -9.30812E+00  -3.27748E+01   3.65345E-02   1.00034E-02
+    3.93257E-02   1.20828E-02   9.90163E-01  -1.38695E-03   1.23185E-03
+    4.86082E-04   7.47352E+01  -1.41555E+02  -3.53521E+01  -2.12320E+02
+   -6.50066E+00  -3.12680E+01  -6.95784E+00  -3.15433E+01   3.68992E-02
+    1.01946E-02   3.97233E-02   1.22912E-02   9.90237E-01  -1.34828E-03
+    1.28989E-03   5.16496E-04   7.99633E+01  -1.38759E+02  -2.10342E+01
+   -2.04661E+02  -4.31965E+00  -3.01015E+01  -4.73072E+00  -3.03521E+01
+    3.72478E-02   1.03809E-02   4.01002E-02   1.24928E-02   9.90312E-01
+   -1.30808E-03   1.35009E-03   5.48699E-04   8.52357E+01  -1.35880E+02
+   -7.38137E+00  -1.97206E+02  -2.25324E+00  -2.89730E+01  -2.62275E+00
+   -2.92008E+01   3.75910E-02   1.05684E-02   4.04671E-02   1.26931E-02
+    9.90404E-01  -1.25860E-03   1.41252E-03   5.82790E-04   9.05129E+01
+   -1.32936E+02   5.61757E+00  -1.89953E+02  -2.94495E-01  -2.78803E+01
+   -6.26000E-01  -2.80870E+01   3.79075E-02   1.07450E-02   4.08032E-02
+    1.28806E-02   9.90485E-01  -1.21376E-03   1.47718E-03   6.18858E-04
+    9.57805E+01  -1.29932E+02   1.80038E+01  -1.82892E+02   1.56233E+00
+   -2.68217E+01   1.26486E+00  -2.70089E+01   3.82176E-02   1.09218E-02
+    4.11271E-02   1.30653E-02   9.90581E-01  -1.15810E-03   1.54411E-03
+    6.57017E-04   1.00990E+02  -1.26896E+02   2.97472E+01  -1.76046E+02
+    3.31960E+00  -2.57974E+01   3.05261E+00  -2.59669E+01   3.84957E-02
+    1.10839E-02   4.14151E-02   1.32332E-02   9.90676E-01  -1.10398E-03
+    1.61337E-03   6.97395E-04   1.06156E+02  -1.23815E+02   4.09253E+01
+   -1.69380E+02   4.98326E+00  -2.48053E+01   4.74378E+00  -2.49583E+01
+    3.87706E-02   1.12478E-02   4.16940E-02   1.33995E-02   9.90779E-01
+   -1.04214E-03   1.68496E-03   7.40085E-04   1.11240E+02  -1.20712E+02
+    5.15176E+01  -1.62915E+02   6.55647E+00  -2.38451E+01   6.34134E+00
+   -2.39833E+01   3.90478E-02   1.14169E-02   4.19698E-02   1.35678E-02
+    9.90877E-01  -9.80289E-04   1.75895E-03   7.85241E-04   1.16219E+02
+   -1.17600E+02   6.15550E+01  -1.56641E+02   8.04418E+00  -2.29152E+01
+    7.85122E+00  -2.30395E+01   3.92819E-02   1.15633E-02   4.21981E-02
+    1.37106E-02   9.90986E-01  -9.13803E-04   1.83532E-03   8.32982E-04
+    1.21098E+02  -1.14475E+02   7.10588E+01  -1.50554E+02   9.44976E+00
+   -2.20148E+01   9.27679E+00  -2.21264E+01   3.95145E-02   1.17123E-02
+    4.24202E-02   1.38528E-02   9.91097E-01  -8.42678E-04   1.91412E-03
+    8.83451E-04   1.25844E+02  -1.11359E+02   8.00358E+01  -1.44659E+02
+    1.07777E+01  -2.11427E+01   1.06222E+01  -2.12430E+01   3.97118E-02
+    1.18418E-02   4.26022E-02   1.39723E-02   9.91208E-01  -7.70011E-04
+    1.99537E-03   9.36808E-04   1.30470E+02  -1.08241E+02   8.85282E+01
+   -1.38937E+02   1.20302E+01  -2.02989E+01   1.18905E+01  -2.03883E+01
+    3.99114E-02   1.19764E-02   4.27818E-02   1.40933E-02   9.91320E-01
+   -6.92696E-04   2.07906E-03   9.93198E-04   1.34952E+02  -1.05141E+02
+    9.65342E+01  -1.33399E+02   1.32126E+01  -1.94810E+01   1.30872E+01
+   -1.95606E+01   4.00941E-02   1.21027E-02   4.29401E-02   1.42029E-02
+    9.91434E-01  -6.15387E-04   2.16522E-03   1.05280E-03   1.39288E+02
+   -1.02059E+02   1.04090E+02  -1.28029E+02   1.43265E+01  -1.86893E+01
+    1.42133E+01  -1.87602E+01   4.02560E-02   1.22178E-02   4.30730E-02
+    1.42973E-02   9.91552E-01  -5.33438E-04   2.25385E-03   1.11579E-03
+    1.43469E+02  -9.90041E+01   1.11196E+02  -1.22837E+02   1.53753E+01
+   -1.79230E+01   1.52735E+01  -1.79856E+01   4.04048E-02   1.23265E-02
+    4.31894E-02   1.43823E-02   9.91669E-01  -4.46851E-04   2.34496E-03
+    1.18236E-03   1.47501E+02  -9.59729E+01   1.17885E+02  -1.17807E+02
+    1.63630E+01  -1.71804E+01   1.62710E+01  -1.72355E+01   4.05363E-02
+    1.24254E-02   4.32848E-02   1.44541E-02   9.91780E-01  -3.61810E-04
+    2.43851E-03   1.25270E-03   1.51368E+02  -9.29781E+01   1.24165E+02
+   -1.12944E+02   1.72918E+01  -1.64611E+01   1.72087E+01  -1.65094E+01
+    4.06560E-02   1.25181E-02   4.33651E-02   1.45162E-02   9.91895E-01
+   -2.72131E-04   2.53452E-03   1.32704E-03   1.55075E+02  -9.00197E+01
+    1.30061E+02  -1.08238E+02   1.81639E+01  -1.57651E+01   1.80887E+01
+   -1.58070E+01   4.07560E-02   1.25979E-02   4.34224E-02   1.45620E-02
+    9.92012E-01  -1.79359E-04   2.63293E-03   1.40559E-03   1.58621E+02
+   -8.70993E+01   1.35589E+02  -1.03687E+02   1.89831E+01  -1.50904E+01
+    1.89149E+01  -1.51267E+01   4.08495E-02   1.26748E-02   4.34706E-02
+    1.46017E-02   9.92124E-01  -8.65870E-05   2.73374E-03   1.48860E-03
+    1.62003E+02  -8.42232E+01   1.40758E+02  -9.92899E+01   1.97510E+01
+   -1.44373E+01   1.96889E+01  -1.44684E+01   4.09216E-02   1.27362E-02
+    4.34954E-02   1.46228E-02   9.92244E-01   1.23696E-05   2.83691E-03
+    1.57635E-03   1.65222E+02  -8.13919E+01   1.45591E+02  -9.50401E+01
+    2.04706E+01  -1.38046E+01   2.04137E+01  -1.38311E+01   4.09827E-02
+    1.27900E-02   4.35072E-02   1.46332E-02   9.92349E-01   1.05142E-04
+    2.94238E-03   1.66909E-03   1.68278E+02  -7.86107E+01   1.50103E+02
+   -9.09332E+01   2.11439E+01  -1.31918E+01   2.10918E+01  -1.32139E+01
+    4.10307E-02   1.28336E-02   4.35039E-02   1.46301E-02   9.92455E-01
+    2.04098E-04   3.05006E-03   1.76710E-03   1.71176E+02  -7.58772E+01
+    1.54308E+02  -8.69674E+01   2.17730E+01  -1.25984E+01   2.17252E+01
+   -1.26164E+01   4.10673E-02   1.28682E-02   4.34884E-02   1.46155E-02
+    9.92563E-01   3.04601E-04   3.15993E-03   1.87074E-03   1.73916E+02
+   -7.31951E+01   1.58218E+02  -8.31402E+01   2.23603E+01  -1.20234E+01
+    2.23161E+01  -1.20380E+01   4.10898E-02   1.28902E-02   4.34581E-02
+    1.45859E-02   9.92663E-01   4.03557E-04   3.27185E-03   1.98029E-03
+    1.76497E+02  -7.05691E+01   1.61852E+02  -7.94432E+01   2.29080E+01
+   -1.14664E+01   2.28669E+01  -1.14778E+01   4.11029E-02   1.29035E-02
+    4.34175E-02   1.45445E-02   9.92762E-01   5.04060E-04   3.38576E-03
+    2.09617E-03   1.78929E+02  -6.79951E+01   1.65220E+02  -7.58780E+01
+    2.34169E+01  -1.09275E+01   2.33787E+01  -1.09358E+01   4.11027E-02
+    1.29033E-02   4.33638E-02   1.44877E-02   9.92860E-01   6.07656E-04
+    3.50148E-03   2.21869E-03   1.81210E+02  -6.54772E+01   1.68337E+02
+   -7.24362E+01   2.38906E+01  -1.04046E+01   2.38547E+01  -1.04104E+01
+    4.10961E-02   1.28960E-02   4.33038E-02   1.44215E-02   9.92948E-01
+    7.03520E-04   3.61892E-03   2.34831E-03   1.83344E+02  -6.30168E+01
+    1.71216E+02  -6.91176E+01   2.43290E+01  -9.89923E+00   2.42953E+01
+   -9.90249E+00   4.10771E-02   1.28740E-02   4.32319E-02   1.43386E-02
+    9.93037E-01   8.07115E-04   3.73786E-03   2.48545E-03   1.85335E+02
+   -6.06149E+01   1.73865E+02  -6.59213E+01   2.44848E+01  -9.71121E+00
+    2.44529E+01  -9.71230E+00   4.10512E-02   1.28429E-02   4.31543E-02
+    1.42450E-02   9.93119E-01   9.06072E-04   3.85816E-03   2.63058E-03
+    1.87188E+02  -5.82696E+01   1.76303E+02  -6.28375E+01   2.45123E+01
+   -9.67642E+00   2.44819E+01  -9.67568E+00   4.10162E-02   1.27986E-02
+    4.30684E-02   1.41363E-02   9.93198E-01   1.00503E-03   3.97958E-03
+    2.78422E-03   1.88908E+02  -5.59825E+01   1.78536E+02  -5.98664E+01
+    2.48546E+01  -9.22112E+00   2.48255E+01  -9.21850E+00   4.09750E-02
+    1.27437E-02   4.29779E-02   1.40159E-02   9.93272E-01   1.10398E-03
+    4.10183E-03   2.94685E-03   1.90496E+02  -5.37556E+01   1.80575E+02
+   -5.70073E+01   2.51687E+01  -8.78072E+00   2.51407E+01  -8.77657E+00
+    4.09267E-02   1.26761E-02   4.28823E-02   1.38818E-02   9.93342E-01
+    1.20140E-03   4.22471E-03   3.11914E-03   1.91958E+02  -5.15877E+01
+    1.82434E+02  -5.42524E+01   2.54560E+01  -8.35491E+00   2.54289E+01
+   -8.34942E+00   4.08738E-02   1.25975E-02   4.27835E-02   1.37354E-02
+    9.93405E-01   1.29571E-03   4.34781E-03   3.30160E-03   1.93301E+02
+   -4.94763E+01   1.84121E+02  -5.15999E+01   2.57173E+01  -7.94399E+00
+    2.56912E+01  -7.93711E+00   4.08160E-02   1.25067E-02   4.26823E-02
+    1.35764E-02   9.93464E-01   1.38849E-03   4.47080E-03   3.49494E-03
+    1.94525E+02  -4.74288E+01   1.85644E+02  -4.90517E+01   2.59546E+01
+   -7.54698E+00   2.59290E+01  -7.53911E+00   4.07549E-02   1.24045E-02
+    4.25800E-02   1.34052E-02   9.93518E-01   1.48125E-03   4.59328E-03
+    3.69992E-03   1.95639E+02  -4.54352E+01   1.87015E+02  -4.65982E+01
+    2.61690E+01  -7.16342E+00   2.61440E+01  -7.15446E+00   4.06900E-02
+    1.22883E-02   4.24766E-02   1.32201E-02   9.93569E-01   1.56940E-03
+    4.71477E-03   3.91724E-03   1.96644E+02  -4.35044E+01   1.88242E+02
+   -4.42402E+01   2.63616E+01  -6.79346E+00   2.63370E+01  -6.78367E+00
+    4.06238E-02   1.21613E-02   4.23743E-02   1.30235E-02   9.93613E-01
+    1.65599E-03   4.83472E-03   4.14771E-03   1.97547E+02  -4.16308E+01
+    1.89334E+02  -4.19756E+01   2.65338E+01  -6.43610E+00   2.65096E+01
+   -6.42556E+00   4.05566E-02   1.20218E-02   4.22738E-02   1.28150E-02
+    9.93654E-01   1.73946E-03   4.95255E-03   4.39224E-03   1.98353E+02
+   -3.98141E+01   1.90298E+02  -3.98006E+01   2.66866E+01  -6.09136E+00
+    2.66627E+01  -6.08018E+00   4.04887E-02   1.18686E-02   4.21754E-02
+    1.25930E-02   9.93690E-01   1.82143E-03   5.06760E-03   4.65173E-03
+    1.99064E+02  -3.80561E+01   1.91144E+02  -3.77098E+01   2.68211E+01
+   -5.75899E+00   2.67975E+01  -5.74722E+00   4.04218E-02   1.17033E-02
+    4.20806E-02   1.23589E-02   9.93720E-01   1.89717E-03   5.17913E-03
+    4.92725E-03   1.99687E+02  -3.63565E+01   1.91878E+02  -3.57073E+01
+    2.69386E+01  -5.43834E+00   2.69152E+01  -5.42597E+00   4.03575E-02
+    1.15278E-02   4.19915E-02   1.21157E-02   9.93748E-01   1.97141E-03
+    5.28628E-03   5.21979E-03   2.00226E+02  -3.47126E+01   1.92507E+02
+   -3.37860E+01   2.70399E+01  -5.12924E+00   2.70165E+01  -5.11662E+00
+    4.02947E-02   1.13361E-02   4.19067E-02   1.18567E-02   9.93771E-01
+    2.04251E-03   5.38814E-03   5.53063E-03   2.00685E+02  -3.31245E+01
+    1.93040E+02  -3.19450E+01   2.71260E+01  -4.83159E+00   2.71027E+01
+   -4.81848E+00   4.02364E-02   1.11345E-02   4.18294E-02   1.15894E-02
+    9.93791E-01   2.11057E-03   5.48364E-03   5.86087E-03   2.01069E+02
+   -3.15907E+01   1.93482E+02  -3.01804E+01   2.71978E+01  -4.54485E+00
+    2.71746E+01  -4.53154E+00   4.01821E-02   1.09177E-02   4.17587E-02
+    1.13076E-02   9.93806E-01   2.17239E-03   5.57163E-03   6.21199E-03
+    2.01382E+02  -3.01151E+01   1.93840E+02  -2.84937E+01   2.72564E+01
+   -4.26877E+00   2.72332E+01  -4.25521E+00   4.01335E-02   1.06886E-02
+    4.16966E-02   1.10146E-02   9.93820E-01   2.23427E-03   5.65079E-03
+    6.58527E-03   2.01629E+02  -2.86901E+01   1.94120E+02  -2.68780E+01
+    2.73024E+01  -4.00327E+00   2.72794E+01  -3.98951E+00   4.00914E-02
+    1.04460E-02   4.16437E-02   1.07097E-02   9.93829E-01   2.28836E-03
+    5.71969E-03   6.98237E-03   2.01814E+02  -2.73197E+01   1.94328E+02
+   -2.53346E+01   2.73369E+01  -3.74771E+00   2.73139E+01  -3.73380E+00
+    4.00568E-02   1.01900E-02   4.16009E-02   1.03926E-02   9.93836E-01
+    2.34250E-03   5.77672E-03   7.40495E-03   2.01941E+02  -2.60036E+01
+    1.94470E+02  -2.38614E+01   2.73606E+01  -3.50205E+00   2.73376E+01
+   -3.48804E+00   4.00305E-02   9.91718E-03   4.15688E-02   1.00600E-02
+    9.93840E-01   2.38580E-03   5.82008E-03   7.85463E-03   2.02015E+02
+   -2.47350E+01   1.94552E+02  -2.24543E+01   2.73743E+01  -3.26624E+00
+    2.73512E+01  -3.25224E+00   4.00147E-02   9.64386E-03   4.15497E-02
+    9.72977E-03   9.93843E-01   2.43215E-03   5.84779E-03   8.33349E-03
+    2.02038E+02  -2.35202E+01   1.94578E+02  -2.11119E+01   2.73786E+01
+   -3.03942E+00   2.73556E+01  -3.02542E+00   4.00090E-02   9.34721E-03
+    4.15429E-02   9.37688E-03   9.93844E-01   2.47084E-03   5.85764E-03
+    8.84343E-03   2.02018E+02  -2.24796E+01   1.94556E+02  -1.99590E+01
+    2.73745E+01  -2.82218E+00   2.73514E+01  -2.80803E+00   4.00265E-02
+    8.43639E-03   4.15619E-02   8.39010E-03   9.93843E-01   2.50173E-03
+    5.84719E-03   9.38675E-03   2.01954E+02  -2.13779E+01   1.94486E+02
+   -1.87571E+01   2.73624E+01  -2.61346E+00   2.73394E+01  -2.59951E+00
+    4.00496E-02   8.03699E-03   4.15881E-02   7.93610E-03   9.93841E-01
+    2.53114E-03   5.81374E-03   9.96567E-03   2.01852E+02  -2.03204E+01
+    1.94376E+02  -1.76130E+01   2.73431E+01  -2.41349E+00   2.73201E+01
+   -2.39958E+00   4.00873E-02   7.64503E-03   4.16308E-02   7.49283E-03
+    9.93839E-01   2.56049E-03   5.75428E-03   1.05829E-02   2.01715E+02
+   -1.93038E+01   1.94228E+02  -1.65183E+01   2.73173E+01  -2.22194E+00
+    2.72943E+01  -2.20813E+00   4.01392E-02   7.26079E-03   4.16893E-02
+    7.05950E-03   9.93836E-01   2.58217E-03   5.66553E-03   1.12409E-02
+    2.01548E+02  -1.83365E+01   1.94049E+02  -1.54858E+01   2.72855E+01
+   -2.03864E+00   2.72625E+01  -2.02489E+00   4.02115E-02   6.84343E-03
+    4.17698E-02   6.59507E-03   9.93833E-01   2.60069E-03   5.54382E-03
+    1.19427E-02   2.01353E+02  -1.74204E+01   1.93843E+02  -1.45111E+01
+    2.72483E+01  -1.86322E+00   2.72253E+01  -1.84966E+00   4.03061E-02
+    6.39714E-03   4.18742E-02   6.10288E-03   9.93829E-01   2.61618E-03
+    5.38509E-03   1.26915E-02   2.01134E+02  -1.65435E+01   1.93611E+02
+   -1.35847E+01   2.72063E+01  -1.69536E+00   2.71833E+01  -1.68191E+00
+    4.04196E-02   5.94413E-03   4.19985E-02   5.60638E-03   9.93826E-01
+    2.62697E-03   5.18494E-03   1.34904E-02   2.00894E+02  -1.57128E+01
+    1.93359E+02  -1.27148E+01   2.71600E+01  -1.53537E+00   2.71371E+01
+   -1.52211E+00   4.05560E-02   5.47222E-03   4.21468E-02   5.09359E-03
+    9.93824E-01   2.63164E-03   4.93842E-03   1.43432E-02   2.00635E+02
+   -1.49235E+01   1.93090E+02  -1.18931E+01   2.71099E+01  -1.38228E+00
+    2.70870E+01  -1.36922E+00   4.07186E-02   4.97618E-03   4.23221E-02
+    4.55822E-03   9.93823E-01   2.63783E-03   4.64011E-03   1.52537E-02
+    2.00362E+02  -1.41784E+01   1.92807E+02  -1.11211E+01   2.70565E+01
+   -1.23660E+00   2.70337E+01  -1.22369E+00   4.09067E-02   4.46249E-03
+    4.25239E-02   4.00724E-03   9.93824E-01   2.63625E-03   4.28411E-03
+    1.62259E-02   2.00005E+02  -1.32971E+01   1.92443E+02  -1.02211E+01
+    2.70003E+01  -1.09773E+00   2.69776E+01  -1.08502E+00   4.07729E-02
+    4.79285E-03   4.23935E-02   4.32967E-03   9.93822E-01   2.63938E-03
+    3.86379E-03   1.72644E-02   1.99592E+02  -1.23655E+01   1.92024E+02
+   -9.27614E+00   2.69415E+01  -9.65118E-01   2.69190E+01  -9.52650E-01
+    4.04372E-02   5.55043E-03   4.20547E-02   5.09382E-03   9.93823E-01
+    2.63780E-03   3.37202E-03   1.83739E-02   1.99280E+02  -1.17173E+01
+    1.91708E+02  -8.62076E+00   2.68811E+01  -8.39652E-01   2.68586E+01
+   -8.27381E-01   4.06537E-02   5.10103E-03   4.22855E-02   4.61475E-03
+    9.93828E-01   2.63010E-03   2.80070E-03   1.95596E-02   1.98961E+02
+   -1.11037E+01   1.91387E+02  -8.00277E+00   2.68188E+01  -7.19954E-01
+    2.67964E+01  -7.07832E-01   4.08962E-02   4.63499E-03   4.25428E-02
+    4.12030E-03   9.93835E-01   2.61460E-03   2.14134E-03   2.08267E-02
+    1.98639E+02  -1.05271E+01   1.91067E+02  -7.43090E+00   2.67554E+01
+   -6.06509E-01   2.67331E+01  -5.94733E-01   4.11705E-02   4.14432E-03
+    4.28313E-02   3.60411E-03   9.93843E-01   2.60227E-03   1.38427E-03
+    2.21812E-02   1.98314E+02  -9.98347E+00   1.90746E+02  -6.89407E+00
+    2.66911E+01  -4.98936E-01   2.66690E+01  -4.87358E-01   4.14650E-02
+    3.65123E-03   4.31404E-02   3.08687E-03   9.93854E-01   2.58213E-03
+    5.18818E-04   2.36297E-02   1.97992E+02  -9.47733E+00   1.90431E+02
+   -6.39857E+00   2.66263E+01  -3.97016E-01   2.66043E+01  -3.85636E-01
+    4.18025E-02   3.12063E-03   4.34923E-02   2.53346E-03   9.93865E-01
+    2.56361E-03  -4.66278E-04   2.51786E-02   1.97673E+02  -9.00500E+00
+    1.90122E+02  -5.94013E+00   2.65613E+01  -3.00628E-01   2.65395E+01
+   -2.89545E-01   4.21710E-02   2.57440E-03   4.38750E-02   1.96617E-03
+    9.93883E-01   2.53884E-03  -1.58383E-03   2.68352E-02   1.96940E+02
+   -7.97595E+00   1.89401E+02  -4.92926E+00   2.64962E+01  -2.09394E-01
+    2.64745E+01  -1.98459E-01   4.04776E-02   4.94902E-03   4.21390E-02
+    4.40060E-03   9.93891E-01   2.52650E-03  -2.84792E-03   2.86079E-02
+    1.96591E+02  -7.51244E+00   1.89069E+02  -4.48791E+00   2.64314E+01
+   -1.23202E-01   2.64100E+01  -1.12613E-01   4.07129E-02   4.63601E-03
+    4.23845E-02   4.07387E-03   9.93911E-01   2.50022E-03  -4.27328E-03
+    3.05041E-02   1.96262E+02  -7.09594E+00   1.88759E+02  -4.09480E+00
+    2.63674E+01  -4.21553E-02   2.63460E+01  -3.17154E-02   4.10318E-02
+    4.23250E-03   4.27150E-02   3.65567E-03   9.93933E-01   2.47235E-03
+   -5.87701E-03   3.25336E-02   1.95941E+02  -6.70851E+00   1.88461E+02
+   -3.73544E+00   2.63042E+01   3.40413E-02   2.62832E+01   4.41844E-02
+    4.13946E-02   3.79468E-03   4.30889E-02   3.20461E-03   9.93960E-01
+    2.43991E-03  -7.67726E-03   3.47059E-02   1.95631E+02  -6.35179E+00
+    1.88177E+02  -3.40765E+00   2.62421E+01   1.05685E-01   2.62212E+01
+    1.15581E-01   4.17931E-02   3.33532E-03   4.34983E-02   2.73250E-03
+    9.93985E-01   2.40896E-03  -9.69392E-03   3.70311E-02   1.95215E+02
+   -5.89152E+00   1.87787E+02  -2.97822E+00   2.61810E+01   1.73175E-01
+    2.61603E+01   1.82823E-01   4.16337E-02   3.51115E-03   4.33351E-02
+    2.91276E-03   9.94018E-01   2.37497E-03  -1.19492E-02   3.95207E-02
+    1.94283E+02  -4.90466E+00   1.86888E+02  -2.02622E+00   2.61211E+01
+    2.36505E-01   2.61007E+01   2.45955E-01   3.88567E-02   6.45166E-03
+    4.04916E-02   5.92364E-03   9.94033E-01   2.35794E-03  -1.44667E-02
+    4.21863E-02   1.93963E+02  -4.58014E+00   1.86603E+02  -1.73611E+00
+    2.60632E+01   2.95437E-01   2.60431E+01   3.04640E-01   3.91287E-02
+    6.17497E-03   4.07715E-02   5.63882E-03   9.94075E-01   2.31622E-03
+   -1.72730E-02   4.50413E-02   1.93655E+02  -4.27846E+00   1.86333E+02
+   -1.47207E+00   2.60069E+01   3.50601E-01   2.59870E+01   3.59507E-01
+    3.94254E-02   5.88450E-03   4.10752E-02   5.34160E-03   9.94106E-01
+    2.28372E-03  -2.03967E-02   4.80992E-02   1.93356E+02  -3.99589E+00
+    1.86075E+02  -1.22826E+00   2.59524E+01   4.02014E-01   2.59327E+01
+    4.10771E-01   3.97384E-02   5.58925E-03   4.13944E-02   5.04044E-03
+    9.94149E-01   2.24200E-03  -2.38688E-02   5.13746E-02   1.93356E+02
+   -3.99589E+00   1.86075E+02  -1.22826E+00   2.59524E+01   4.02014E-01
+    2.59327E+01   4.10771E-01   3.97384E-02   5.58925E-03   4.13944E-02
+    5.04044E-03   9.94149E-01   2.24200E-03  -2.38688E-02   5.13746E-02
+    1.56000E-03   1.69413E+02   2.69387E+01
+    3.29480E-04   5.00737E-05   0.00000E+00   0.00000E+00   1.69154E-02
+    2.72188E-03   3.29480E-04   5.00737E-05   0.00000E+00   0.00000E+00
+    1.69154E-02   2.72188E-03   3.61130E-04   5.51972E-05   0.00000E+00
+    0.00000E+00   7.08556E-03   1.13064E-03   3.95886E-04   6.08575E-05
+    0.00000E+00   0.00000E+00  -4.67774E-03  -7.85092E-04   4.33526E-04
+    6.70248E-05   0.00000E+00   0.00000E+00   1.26673E-03   1.88893E-04
+    4.75087E-04   7.38760E-05   0.00000E+00   0.00000E+00  -5.65203E-03
+   -9.51664E-04   5.19959E-04   8.13187E-05   0.00000E+00   0.00000E+00
+    8.31534E-03   1.36503E-03   5.69755E-04   8.96293E-05   0.00000E+00
+    0.00000E+00   1.49024E-03   2.25975E-04   6.23725E-04   9.86927E-05
+    0.00000E+00   0.00000E+00   9.78023E-03   1.61814E-03   6.83806E-04
+    1.08846E-04   0.00000E+00   0.00000E+00  -6.44430E-03  -1.12359E-03
+    7.48332E-04   1.19818E-04   0.00000E+00   0.00000E+00   6.31950E-03
+    1.04694E-03   8.23362E-04   1.32659E-04   0.00000E+00   0.00000E+00
+    2.17269E-03   3.37279E-04   9.49059E-04   1.54307E-04   0.00000E+00
+    0.00000E+00   7.58980E-03   1.27026E-03   1.04537E-03   1.71002E-04
+    0.00000E+00   0.00000E+00   3.00537E-03   4.75610E-04   1.15027E-03
+    1.89303E-04   0.00000E+00   0.00000E+00   1.46893E-02   2.51397E-03
+    1.26782E-03   2.09943E-04   0.00000E+00   0.00000E+00  -1.86800E-03
+   -3.93418E-04   1.39547E-03   2.32504E-04   0.00000E+00   0.00000E+00
+    4.03999E-03   6.50803E-04   1.53579E-03   2.57470E-04   0.00000E+00
+    0.00000E+00   1.11451E-02   1.91491E-03   1.69063E-03   2.85201E-04
+    0.00000E+00   0.00000E+00   1.23253E-02   2.12628E-03   1.88376E-03
+    3.20021E-04   0.00000E+00   0.00000E+00  -1.72373E-03  -4.06710E-04
+    2.12151E-03   3.63176E-04   0.00000E+00   0.00000E+00   1.41998E-02
+    2.48358E-03   2.34396E-03   4.03827E-04   0.00000E+00   0.00000E+00
+    1.13785E-02   1.96801E-03   2.58905E-03   4.48921E-04   0.00000E+00
+    0.00000E+00   1.24490E-02   2.16498E-03   2.85962E-03   4.99046E-04
+    0.00000E+00   0.00000E+00   1.36095E-02   2.37997E-03   3.15723E-03
+    5.54561E-04   0.00000E+00   0.00000E+00   2.01274E-02   3.59581E-03
+    3.49161E-03   6.17372E-04   0.00000E+00   0.00000E+00   1.10540E-02
+    1.89146E-03   3.86281E-03   6.87587E-04   0.00000E+00   0.00000E+00
+    1.17947E-02   2.03158E-03   4.26518E-03   7.64237E-04   0.00000E+00
+    0.00000E+00   1.88902E-02   3.38324E-03   4.70961E-03   8.49502E-04
+    0.00000E+00   0.00000E+00   2.39661E-02   4.35707E-03   5.20220E-03
+    9.44685E-04   0.00000E+00   0.00000E+00   2.27079E-02   4.11394E-03
+    5.78717E-03   1.05853E-03   0.00000E+00   0.00000E+00   2.49132E-02
+    4.54315E-03   6.46440E-03   1.19130E-03   0.00000E+00   0.00000E+00
+    2.74394E-02   5.03839E-03   7.14719E-03   1.32614E-03   0.00000E+00
+    0.00000E+00   3.85607E-02   7.23461E-03   7.91001E-03   1.47789E-03
+    0.00000E+00   0.00000E+00   3.32626E-02   6.18062E-03   8.74616E-03
+    1.64547E-03   0.00000E+00   0.00000E+00   4.11053E-02   7.75243E-03
+    9.67593E-03   1.83320E-03   0.00000E+00   0.00000E+00   3.97559E-02
+    7.47996E-03   1.06963E-02   2.04080E-03   0.00000E+00   0.00000E+00
+    4.87788E-02   9.31562E-03   1.18265E-02   2.27248E-03   0.00000E+00
+    0.00000E+00   5.33135E-02   1.02452E-02   1.28751E-02   2.48908E-03
+    0.00000E+00   0.00000E+00   5.41636E-02   1.04208E-02   1.40849E-02
+    2.74092E-03   0.00000E+00   0.00000E+00   6.50151E-02   1.26796E-02
+    1.55350E-02   3.04511E-03   0.00000E+00   0.00000E+00   6.37777E-02
+    1.24201E-02   1.71064E-02   3.37734E-03   0.00000E+00   0.00000E+00
+    8.42178E-02   1.67417E-02   1.88725E-02   3.75370E-03   0.00000E+00
+    0.00000E+00   7.60577E-02   1.50027E-02   2.07788E-02   4.16318E-03
+    0.00000E+00   0.00000E+00   9.50687E-02   1.90863E-02   2.41194E-02
+    4.88650E-03   0.00000E+00   0.00000E+00   1.09055E-01   2.21146E-02
+    2.74712E-02   5.61815E-03   0.00000E+00   0.00000E+00   1.22818E-01
+    2.51190E-02   3.05282E-02   6.29087E-03   0.00000E+00   0.00000E+00
+    1.29677E-01   2.66282E-02   3.38809E-02   7.03475E-03   0.00000E+00
+    0.00000E+00   1.53050E-01   3.18142E-02   3.76384E-02   7.87538E-03
+    0.00000E+00   0.00000E+00   1.59209E-01   3.31920E-02   4.17513E-02
+    8.80321E-03   0.00000E+00   0.00000E+00   1.83680E-01   3.87125E-02
+    4.63353E-02   9.84606E-03   0.00000E+00   0.00000E+00   1.97983E-01
+    4.19664E-02   5.13666E-02   1.10004E-02   0.00000E+00   0.00000E+00
+    2.23853E-01   4.79018E-02   5.69134E-02   1.22840E-02   0.00000E+00
+    0.00000E+00   2.52840E-01   5.46095E-02   6.30998E-02   1.37279E-02
+    0.00000E+00   0.00000E+00   2.68812E-01   5.83377E-02   6.98216E-02
+    1.53106E-02   0.00000E+00   0.00000E+00   3.06867E-01   6.72977E-02
+    7.65787E-02   1.69156E-02   0.00000E+00   0.00000E+00   3.27849E-01
+    7.22816E-02   8.42871E-02   1.87628E-02   0.00000E+00   0.00000E+00
+    3.61157E-01   8.02635E-02   9.30116E-02   2.08723E-02   0.00000E+00
+    0.00000E+00   3.98788E-01   8.93623E-02   1.02557E-01   2.32011E-02
+    0.00000E+00   0.00000E+00   4.39835E-01   9.93768E-02   1.13015E-01
+    2.57760E-02   0.00000E+00   0.00000E+00   4.81568E-01   1.09652E-01
+    1.24432E-01   2.86129E-02   0.00000E+00   0.00000E+00   5.26560E-01
+    1.20832E-01   1.36794E-01   3.17134E-02   0.00000E+00   0.00000E+00
+    5.81579E-01   1.34630E-01   1.50347E-01   3.51444E-02   0.00000E+00
+    0.00000E+00   6.30885E-01   1.47112E-01   1.70238E-01   4.02275E-02
+    0.00000E+00   0.00000E+00   7.17202E-01   1.69170E-01   1.87371E-01
+    4.46477E-02   0.00000E+00   0.00000E+00   7.83279E-01   1.86219E-01
+    2.05684E-01   4.94182E-02   0.00000E+00   0.00000E+00   8.57210E-01
+    2.05477E-01   2.25360E-01   5.45939E-02   0.00000E+00   0.00000E+00
+    9.38370E-01   2.26825E-01   2.46451E-01   6.01963E-02   0.00000E+00
+    0.00000E+00   1.02493E+00   2.49820E-01   2.69152E-01   6.62865E-02
+    0.00000E+00   0.00000E+00   1.10958E+00   2.72528E-01   2.93123E-01
+    7.27820E-02   0.00000E+00   0.00000E+00   1.20565E+00   2.98562E-01
+    3.18635E-01   7.97655E-02   0.00000E+00   0.00000E+00   1.30117E+00
+    3.24707E-01   3.45317E-01   8.71442E-02   0.00000E+00   0.00000E+00
+    1.40558E+00   3.53580E-01   3.73184E-01   9.49302E-02   0.00000E+00
+    0.00000E+00   1.51352E+00   3.83741E-01   4.02419E-01   1.03184E-01
+    0.00000E+00   0.00000E+00   1.61857E+00   4.13399E-01   4.32920E-01
+    1.11887E-01   0.00000E+00   0.00000E+00   1.74063E+00   4.48227E-01
+    4.63728E-01   1.20772E-01   0.00000E+00   0.00000E+00   1.84966E+00
+    4.79670E-01   4.94683E-01   1.29795E-01   0.00000E+00   0.00000E+00
+    1.96231E+00   5.12506E-01   5.25683E-01   1.38931E-01   0.00000E+00
+    0.00000E+00   2.07282E+00   5.45073E-01   5.56528E-01   1.48121E-01
+    0.00000E+00   0.00000E+00   2.17804E+00   5.76424E-01   5.86277E-01
+    1.57084E-01   0.00000E+00   0.00000E+00   2.28274E+00   6.07969E-01
+    6.15396E-01   1.65956E-01   0.00000E+00   0.00000E+00   2.37571E+00
+    6.36296E-01   6.43533E-01   1.74627E-01   0.00000E+00   0.00000E+00
+    2.46897E+00   6.65034E-01   6.71437E-01   1.83326E-01   0.00000E+00
+    0.00000E+00   2.55646E+00   6.92309E-01   6.94799E-01   1.90694E-01
+    0.00000E+00   0.00000E+00   2.62314E+00   7.13340E-01   7.14984E-01
+    1.97136E-01   0.00000E+00   0.00000E+00   2.67995E+00   7.31471E-01
+    7.33321E-01   2.03058E-01   0.00000E+00   0.00000E+00   2.71667E+00
+    7.43328E-01   7.47431E-01   2.07670E-01   0.00000E+00   0.00000E+00
+    2.74494E+00   7.52570E-01   7.59609E-01   2.11700E-01   0.00000E+00
+    0.00000E+00   2.76249E+00   7.58377E-01   7.70470E-01   2.15338E-01
+    0.00000E+00   0.00000E+00   2.77165E+00   7.61446E-01   7.74535E-01
+    2.16717E-01   0.00000E+00   0.00000E+00   2.75556E+00   7.55988E-01
+    7.75558E-01   2.17068E-01   0.00000E+00   0.00000E+00   2.72505E+00
+    7.45506E-01   7.73596E-01   2.16385E-01   0.00000E+00   0.00000E+00
+    2.68200E+00   7.30527E-01   7.68903E-01   2.14731E-01   0.00000E+00
+    0.00000E+00   2.63200E+00   7.12898E-01   7.62381E-01   2.12401E-01
+    0.00000E+00   0.00000E+00   2.57310E+00   6.91857E-01   7.52935E-01
+    2.08982E-01   0.00000E+00   0.00000E+00   2.50139E+00   6.65896E-01
+    7.41490E-01   2.04782E-01   0.00000E+00   0.00000E+00   2.42419E+00
+    6.37568E-01   7.28396E-01   1.99911E-01   0.00000E+00   0.00000E+00
+    2.34304E+00   6.07382E-01   7.14717E-01   1.94751E-01   0.00000E+00
+    0.00000E+00   2.25865E+00   5.75548E-01   7.00436E-01   1.89287E-01
+    0.00000E+00   0.00000E+00   2.17315E+00   5.42835E-01   6.85588E-01
+    1.83525E-01   0.00000E+00   0.00000E+00   2.08810E+00   5.09830E-01
+    6.75832E-01   1.79684E-01   0.00000E+00   0.00000E+00   2.02130E+00
+    4.83527E-01   6.64048E-01   1.74975E-01   0.00000E+00   0.00000E+00
+    1.94636E+00   4.53578E-01   6.49079E-01   1.68903E-01   0.00000E+00
+    0.00000E+00   1.86448E+00   4.20364E-01   6.35096E-01   1.63144E-01
+    0.00000E+00   0.00000E+00   1.78630E+00   3.88170E-01   6.22179E-01
+    1.57742E-01   0.00000E+00   0.00000E+00   1.71240E+00   3.57269E-01
+    6.10274E-01   1.52685E-01   0.00000E+00   0.00000E+00   1.64321E+00
+    3.27870E-01   5.98510E-01   1.47607E-01   0.00000E+00   0.00000E+00
+    1.57699E+00   2.99288E-01   5.88627E-01   1.43272E-01   0.00000E+00
+    0.00000E+00   1.51669E+00   2.72839E-01   5.79688E-01   1.39286E-01
+    0.00000E+00   0.00000E+00   1.46272E+00   2.48775E-01   5.72260E-01
+    1.35918E-01   0.00000E+00   0.00000E+00   1.41322E+00   2.26332E-01
+    5.65619E-01   1.32855E-01   0.00000E+00   0.00000E+00   1.36825E+00
+    2.05590E-01   5.60069E-01   1.30251E-01   0.00000E+00   0.00000E+00
+    1.32745E+00   1.86447E-01   5.55479E-01   1.28060E-01   0.00000E+00
+    0.00000E+00   1.29059E+00   1.68849E-01   5.51680E-01   1.26213E-01
+    0.00000E+00   0.00000E+00   1.25744E+00   1.52732E-01   5.48644E-01
+    1.24709E-01   0.00000E+00   0.00000E+00   1.22770E+00   1.38008E-01
+    5.46609E-01   1.23683E-01   0.00000E+00   0.00000E+00   1.20104E+00
+    1.24562E-01   5.45044E-01   1.22879E-01   0.00000E+00   0.00000E+00
+    1.17728E+00   1.12347E-01   5.41979E-01   1.21272E-01   0.00000E+00
+    0.00000E+00   1.14907E+00   9.75687E-02   5.41173E-01   1.20843E-01
+    0.00000E+00   0.00000E+00   1.12880E+00   8.67368E-02   5.41972E-01
+    1.21278E-01   0.00000E+00   0.00000E+00   1.11372E+00   7.85158E-02
+    5.43096E-01   1.21903E-01   0.00000E+00   0.00000E+00   1.10029E+00
+    7.10430E-02   5.44699E-01   1.22814E-01   0.00000E+00   0.00000E+00
+    1.08834E+00   6.42558E-02   5.46536E-01   1.23880E-01   0.00000E+00
+    0.00000E+00   1.07774E+00   5.81013E-02   5.48637E-01   1.25127E-01
+    0.00000E+00   0.00000E+00   1.06834E+00   5.25241E-02   5.51088E-01
+    1.26614E-01   0.00000E+00   0.00000E+00   1.06000E+00   4.74669E-02
+    5.53443E-01   1.28074E-01   0.00000E+00   0.00000E+00   1.05187E+00
+    4.24219E-02   5.56311E-01   1.29896E-01   0.00000E+00   0.00000E+00
+    1.04545E+00   3.83435E-02   5.59410E-01   1.31912E-01   0.00000E+00
+    0.00000E+00   1.03981E+00   3.46777E-02   5.62592E-01   1.34033E-01
+    0.00000E+00   0.00000E+00   1.03484E+00   3.13620E-02   5.65956E-01
+    1.36333E-01   0.00000E+00   0.00000E+00   1.03045E+00   2.83610E-02
+    5.69376E-01   1.38731E-01   0.00000E+00   0.00000E+00   1.02657E+00
+    2.56426E-02   5.72938E-01   1.41295E-01   0.00000E+00   0.00000E+00
+    1.02316E+00   2.31891E-02   5.76557E-01   1.43973E-01   0.00000E+00
+    0.00000E+00   1.02016E+00   2.09669E-02   5.80235E-01   1.46771E-01
+    0.00000E+00   0.00000E+00   1.01752E+00   1.89582E-02   5.83976E-01
+    1.49699E-01   0.00000E+00   0.00000E+00   1.01520E+00   1.71435E-02
+    5.87744E-01   1.52737E-01   0.00000E+00   0.00000E+00   1.01315E+00
+    1.54915E-02   5.91311E-01   1.55702E-01   0.00000E+00   0.00000E+00
+    1.01082E+00   1.35519E-02   5.95179E-01   1.59018E-01   0.00000E+00
+    0.00000E+00   1.00935E+00   1.22962E-02   5.99048E-01   1.62446E-01
+    0.00000E+00   0.00000E+00   1.00807E+00   1.11594E-02   6.02892E-01
+    1.65966E-01   0.00000E+00   0.00000E+00   1.00695E+00   1.01302E-02
+    6.06755E-01   1.69628E-01   0.00000E+00   0.00000E+00   1.00596E+00
+    9.19087E-03   6.10589E-01   1.73396E-01   0.00000E+00   0.00000E+00
+    1.00510E+00   8.34629E-03   6.14388E-01   1.77270E-01   0.00000E+00
+    0.00000E+00   1.00434E+00   7.57556E-03   6.18102E-01   1.81207E-01
+    0.00000E+00   0.00000E+00   1.00354E+00   6.72295E-03   6.21686E-01
+    1.85162E-01   0.00000E+00   0.00000E+00   1.00264E+00   5.73707E-03
+    6.25419E-01   1.89457E-01   0.00000E+00   0.00000E+00   1.00222E+00
+    5.24894E-03   6.29084E-01   1.93862E-01   0.00000E+00   0.00000E+00
+    1.00185E+00   4.80572E-03   6.32702E-01   1.98415E-01   0.00000E+00
+    0.00000E+00   1.00153E+00   4.40275E-03   6.36235E-01   2.03077E-01
+    0.00000E+00   0.00000E+00   1.00125E+00   4.03024E-03   6.39694E-01
+    2.07877E-01   0.00000E+00   0.00000E+00   1.00096E+00   3.63203E-03
+    6.43020E-01   2.12743E-01   0.00000E+00   0.00000E+00   1.00064E+00
+    3.16317E-03   6.46335E-01   2.17869E-01   0.00000E+00   0.00000E+00
+    1.00048E+00   2.91430E-03   6.49545E-01   2.23139E-01   0.00000E+00
+    0.00000E+00   1.00034E+00   2.68629E-03   6.52660E-01   2.28584E-01
+    0.00000E+00   0.00000E+00   1.00022E+00   2.47595E-03   6.55623E-01
+    2.34120E-01   0.00000E+00   0.00000E+00   1.00006E+00   2.17569E-03
+    6.58452E-01   2.39802E-01   0.00000E+00   0.00000E+00   9.99885E-01
+    1.82565E-03   6.61202E-01   2.45769E-01   0.00000E+00   0.00000E+00
+    9.99828E-01   1.70362E-03   6.63810E-01   2.51927E-01   0.00000E+00
+    0.00000E+00   9.99780E-01   1.58962E-03   6.66257E-01   2.58256E-01
+    0.00000E+00   0.00000E+00   9.99738E-01   1.47881E-03   6.68547E-01
+    2.64809E-01   0.00000E+00   0.00000E+00   9.99703E-01   1.37927E-03
+    6.70653E-01   2.71551E-01   0.00000E+00   0.00000E+00   9.99674E-01
+    1.28614E-03   6.72569E-01   2.78515E-01   0.00000E+00   0.00000E+00
+    9.99650E-01   1.19944E-03   6.74272E-01   2.85668E-01   0.00000E+00
+    0.00000E+00   9.99619E-01   1.06938E-03   6.75758E-01   2.93061E-01
+    0.00000E+00   0.00000E+00   9.99599E-01   9.69826E-04   6.77012E-01
+    3.00720E-01   0.00000E+00   0.00000E+00   9.99589E-01   9.08811E-04
+    6.78014E-01   3.08623E-01   0.00000E+00   0.00000E+00   9.99582E-01
+    8.51006E-04   6.78744E-01   3.16778E-01   0.00000E+00   0.00000E+00
+    9.99577E-01   7.98019E-04   6.79186E-01   3.25200E-01   0.00000E+00
+    0.00000E+00   9.99575E-01   7.51455E-04   6.79436E-01   3.41499E-01
+    0.00000E+00   0.00000E+00   9.99744E-01   1.17696E-02   6.79528E-01
+    3.37307E-01  -1.63458E-04   7.50626E-03   1.00000E+00   1.60565E-06
+    6.79004E-01   3.46199E-01  -1.79526E-04   7.77907E-03   1.00000E+00
+   -1.60567E-06   6.78123E-01   3.55371E-01  -2.07055E-04   8.06578E-03
+    1.00000E+00   0.00000E+00   6.76864E-01   3.64825E-01  -2.46749E-04
+    8.36391E-03   1.00000E+00   1.60567E-06   6.75207E-01   3.74560E-01
+   -2.99521E-04   8.67386E-03   1.00000E+00  -1.60567E-06   6.73122E-01
+    3.84612E-01  -3.66372E-04   8.99622E-03   1.00000E+00   1.60567E-06
+    6.70592E-01   3.94960E-01  -4.48328E-04   9.33140E-03   1.00000E+00
+   -1.60567E-06   6.67587E-01   4.05631E-01  -5.46496E-04   9.67999E-03
+    9.99999E-01   1.60567E-06   6.64082E-01   4.16627E-01  -6.62040E-04
+    1.00425E-02   1.00000E+00   0.00000E+00   6.60051E-01   4.27955E-01
+   -7.96188E-04   1.04194E-02   1.00000E+00   0.00000E+00   6.61303E-01
+    4.24768E-01  -7.84299E-03   2.83507E-02   1.00000E+00   0.00000E+00
+    6.59993E-01   4.27814E-01  -1.21846E-02   3.84450E-02   1.00000E+00
+    0.00000E+00   6.55071E-01   4.38348E-01  -1.28508E-02   3.98708E-02
+    1.00000E+00   0.00000E+00   6.49630E-01   4.49137E-01  -1.35962E-02
+    4.13486E-02   1.00000E+00   0.00000E+00   6.43664E-01   4.60155E-01
+   -1.44252E-02   4.28797E-02   1.00000E+00   0.00000E+00   6.37137E-01
+    4.71433E-01  -1.53430E-02   4.44658E-02   1.00000E+00   0.00000E+00
+    6.30043E-01   4.82956E-01  -1.63544E-02   4.61085E-02   1.00000E+00
+    0.00000E+00   6.22360E-01   4.94725E-01  -1.74646E-02   4.78092E-02
+    1.00000E+00   0.00000E+00   6.34022E-01   4.77821E-01  -3.86361E-02
+    7.84942E-02   1.00000E+00   0.00000E+00   6.28769E-01   4.85046E-01
+   -4.26560E-02   8.40230E-02   1.00000E+00   0.00000E+00   6.21172E-01
+    4.94989E-01  -4.49040E-02   8.69647E-02   1.00000E+00   0.00000E+00
+    6.13144E-01   5.05006E-01  -4.73289E-02   8.99908E-02   1.00000E+00
+   -1.60567E-06   6.04680E-01   5.15103E-01  -4.99383E-02   9.31029E-02
+    9.99998E-01   1.60567E-06   5.95795E-01   5.25250E-01  -5.27387E-02
+    9.63014E-02   1.00000E+00   0.00000E+00   5.86482E-01   5.35456E-01
+   -5.57369E-02   9.95863E-02   1.00000E+00  -1.60567E-06   5.76754E-01
+    5.45697E-01  -5.89392E-02   1.02958E-01   9.99998E-01   1.60567E-06
+    5.66626E-01   5.55961E-01  -6.23519E-02   1.06416E-01   1.00000E+00
+    0.00000E+00   5.56109E-01   5.66228E-01  -6.59808E-02   1.09959E-01
+    1.00000E+00   0.00000E+00   5.45219E-01   5.76491E-01  -6.98321E-02
+    1.13589E-01   1.00000E+00  -1.60567E-06   5.77095E-01   5.47467E-01
+   -1.07703E-01   1.48070E-01   9.99997E-01   1.60567E-06   5.77095E-01
+    5.47467E-01  -1.07703E-01   1.48070E-01   9.99997E-01   1.60567E-06
+ MEDIUM=CD+TE-3MEV-10KEV-02KEV  ,STERNCID=CD+TE-3MEV-10KEV-02KEV  
+ COMP,RHO= 6.0600E+00,NE= 2
+ ASYM=CD,Z=48.,A=  112.400,PZ= 1.00000E+00,RHOZ= 1.12400E+02
+ ASYM=TE,Z=52.,A=  127.600,PZ= 1.00000E+00,RHOZ= 1.27600E+02
+    1.46952E+00   5.21000E-01   2.00000E-03   3.51100E+00   3.00200E+00
+     0  200    0  150    0    0    0    0
+    9.99979E-01  -2.43973E-01   5.59862E-02   9.95222E-01  -2.61874E-01
+    9.52000E-01   1.00026E+00  -2.07238E-01   3.99519E-02   1.01643E+00
+   -2.67454E-01   9.52000E-01   1.00040E+00  -1.88277E-01   2.88974E-02
+    1.02737E+00  -2.70334E-01   9.52000E-01   9.99978E-01  -2.53143E-01
+    5.80904E-02   9.95043E-01  -2.71716E-01   9.52000E-01   1.00027E+00
+   -2.15200E-01   4.14867E-02   1.01706E+00  -2.77728E-01   9.52000E-01
+    1.00041E+00  -1.95591E-01   3.00200E-02   1.02844E+00  -2.80835E-01
+    9.52000E-01
+    1.88496E+01   9.43889E-01   8.53205E-01   2.32189E+00   9.44645E-01
+    8.53053E-01   2.01541E+00
+    2.03649E-01   3.09893E-04   6.45506E+04   5.45344E+00
+    1.21501E+02   2.59409E+01
+    1.19349E+01   1.87802E+00   6.11107E+03   1.32545E+03  -1.79651E+02
+   -5.89218E+01  -2.97656E+02  -8.78403E+01   1.00000E+00   0.00000E+00
+   -5.73267E+01  -1.25624E+01   5.11443E+01   1.09879E+01   3.01050E-05
+    5.80003E-06   1.19349E+01   1.87802E+00   6.11107E+03   1.32545E+03
+   -1.79651E+02  -5.89218E+01  -2.97656E+02  -8.78403E+01   1.00000E+00
+    0.00000E+00  -5.73267E+01  -1.25624E+01   5.11443E+01   1.09879E+01
+    3.01050E-05   5.80003E-06   1.18886E+01   1.86789E+00   5.43884E+03
+    1.17829E+03  -1.74201E+02  -5.77288E+01  -2.84928E+02  -8.50539E+01
+    1.00000E+00   0.00000E+00  -3.01394E+00  -6.72835E-01   3.65195E+00
+    5.91457E-01   3.18932E-05   6.19149E-06   1.18400E+01   1.85717E+00
+    4.82364E+03   1.04247E+03  -1.68783E+02  -5.65325E+01  -2.72592E+02
+   -8.23306E+01   1.00000E+00   0.00000E+00  -1.02904E+00  -2.34625E-01
+    1.91696E+00   2.08422E-01   3.37996E-05   6.61237E-06   1.17940E+01
+    1.84692E+00   4.26905E+03   9.18986E+02  -1.63485E+02  -5.53528E+01
+   -2.60805E+02  -7.97059E+01   1.00000E+00   0.00000E+00  -5.02757E-01
+   -1.17440E-01   1.45751E+00   1.06115E-01   3.58288E-05   7.06419E-06
+    1.17448E+01   1.83587E+00   3.76702E+03   8.06232E+02  -1.58153E+02
+   -5.41551E+01  -2.49314E+02  -7.71251E+01   1.00000E+00   0.00000E+00
+   -2.87581E-01  -6.91124E-02   1.27009E+00   6.40222E-02   3.79692E-05
+    7.54492E-06   1.16981E+01   1.82529E+00   3.31515E+03   7.03858E+02
+   -1.53022E+02  -5.29929E+01  -2.38433E+02  -7.46599E+01   1.00000E+00
+    0.00000E+00  -1.78846E-01  -4.44777E-02   1.17578E+00   4.26578E-02
+    4.02416E-05   8.05977E-06   1.16499E+01   1.81427E+00   2.90737E+03
+    6.10660E+02  -1.47936E+02  -5.18304E+01  -2.27922E+02  -7.22576E+01
+    1.00000E+00   0.00000E+00  -1.16155E-01  -3.01495E-02   1.12177E+00
+    3.03118E-02   4.26481E-05   8.60976E-06   1.16023E+01   1.80329E+00
+    2.54073E+03   5.26118E+02  -1.42902E+02  -5.06696E+01  -2.17772E+02
+   -6.99172E+01   1.00000E+00   0.00000E+00  -7.66504E-02  -2.10405E-02
+    1.08806E+00   2.25388E-02   4.51933E-05   9.19664E-06   1.15573E+01
+    1.79282E+00   2.21121E+03   4.49454E+02  -1.38015E+02  -4.95326E+01
+   -2.08095E+02  -6.76658E+01   1.00000E+00   0.00000E+00  -5.00224E-02
+   -1.48454E-02   1.06563E+00   1.73206E-02   4.78964E-05   9.82551E-06
+    1.15237E+01   1.78494E+00   1.91540E+03   3.80012E+02  -1.33214E+02
+   -4.84055E+01  -1.98786E+02  -6.54804E+01   1.00000E+00   0.00000E+00
+   -3.10777E-02  -1.03980E-02   1.05000E+00   1.36497E-02   5.07550E-05
+    1.04966E-05   1.14808E+01   1.77478E+00   1.64987E+03   3.17106E+02
+   -1.28503E+02  -4.72897E+01  -1.89836E+02  -6.33601E+01   1.00000E+00
+    0.00000E+00  -1.70472E-02  -7.07423E-03   1.03866E+00   1.09642E-02
+    5.37805E-05   1.12133E-05   1.14279E+01   1.76213E+00   1.41251E+03
+    2.60358E+02  -1.23890E+02  -4.61867E+01  -1.81241E+02  -6.13054E+01
+    1.00000E+00   0.00000E+00  -6.30688E-03  -4.50637E-03   1.03018E+00
+    8.93708E-03   5.69875E-05   1.19801E-05   1.13773E+01   1.74991E+00
+    1.20033E+03   2.09157E+02  -1.19404E+02  -4.51043E+01  -1.73023E+02
+   -5.93223E+01   1.00000E+00   0.00000E+00   2.21578E-03  -2.44977E-03
+    1.02369E+00   7.37222E-03   6.03823E-05   1.27993E-05   1.13252E+01
+    1.73722E+00   1.01090E+03   1.63017E+02  -1.14980E+02  -4.40269E+01
+   -1.65085E+02  -5.73887E+01   1.00000E+00   0.00000E+00   9.16340E-03
+   -7.57521E-04   1.01862E+00   6.13380E-03   6.39712E-05   1.36734E-05
+    1.12740E+01   1.72464E+00   8.42377E+02   1.21581E+02  -1.10682E+02
+   -4.29698E+01  -1.57491E+02  -5.55216E+01   1.00000E+00   0.00000E+00
+    1.49661E-02   6.69258E-04   1.01457E+00   5.14107E-03   6.77765E-05
+    1.46091E-05   1.12213E+01   1.71155E+00   6.92558E+02   8.43899E+01
+   -1.06482E+02  -4.19272E+01  -1.50203E+02  -5.37124E+01   1.00000E+00
+    0.00000E+00   1.99236E-02   1.89988E-03   1.01127E+00   4.32319E-03
+    7.17930E-05   1.56062E-05   1.11706E+01   1.69885E+00   5.59658E+02
+    5.10798E+01  -1.02411E+02  -4.09069E+01  -1.43241E+02  -5.19673E+01
+    1.00000E+00   0.00000E+00   2.42560E-02   2.98573E-03   1.00859E+00
+    3.64903E-03   7.60490E-05   1.66728E-05   1.11163E+01   1.68512E+00
+    4.42341E+02   2.13897E+01  -9.84041E+01  -3.98929E+01  -1.36513E+02
+   -5.02647E+01   1.00000E+00   0.00000E+00   2.80879E-02   3.95554E-03
+    1.00635E+00   3.08312E-03   8.05523E-05   1.78125E-05   2.77205E+03
+    7.07304E+02   3.38827E+02  -5.06500E+00  -1.22638E+02  -4.60864E+01
+   -1.30071E+02  -4.86183E+01  -8.58539E+01  -2.21975E+01   3.15637E-02
+    4.84383E-03   1.00445E+00   2.59761E-03   8.53112E-05   1.90288E-05
+    2.31660E+03   5.89746E+02   2.47901E+02  -2.85343E+01  -1.15247E+02
+   -4.41787E+01  -1.23922E+02  -4.70311E+01  -5.78503E+00  -1.53045E+00
+    3.47390E-02   5.66343E-03   1.00286E+00   2.18787E-03   9.03553E-05
+    2.03307E-05   1.95011E+03   4.94198E+02   1.68302E+02  -4.92867E+01
+   -1.08618E+02  -4.24503E+01  -1.17984E+02  -4.54831E+01  -2.02680E+00
+   -5.50648E-01   3.76960E-02   6.43435E-03   1.00148E+00   1.82915E-03
+    9.56694E-05   2.17161E-05   1.65324E+03   4.16015E+02   9.88046E+01
+   -6.75898E+01  -1.02659E+02  -4.08811E+01  -1.12334E+02  -4.39951E+01
+   -9.96384E-01  -2.79280E-01   4.04746E-02   7.16612E-03   1.00030E+00
+    1.51837E-03   1.01311E-04   2.32018E-05   1.40959E+03   3.51189E+02
+    3.84838E+01  -8.36381E+01  -9.71817E+01  -3.94238E+01  -1.06885E+02
+   -4.25454E+01  -5.69993E-01  -1.65836E-01   4.31068E-02   7.86642E-03
+    9.99270E-01   1.24160E-03   1.07250E-04   2.47820E-05   1.20858E+03
+    2.97156E+02  -1.35341E+01  -9.76219E+01  -9.21421E+01  -3.80691E+01
+   -1.01683E+02  -4.11469E+01  -3.53586E-01  -1.07662E-01   4.56379E-02
+    8.54682E-03   9.98367E-01   1.00039E-03   1.13538E-04   2.64723E-05
+    1.04080E+03   2.51583E+02  -5.81453E+01  -1.09740E+02  -8.74317E+01
+   -3.67896E+01  -9.66759E+01  -3.97868E+01  -2.28810E-01  -7.37697E-02
+    4.80774E-02   9.20944E-03   9.97576E-01   7.83922E-04   1.20177E-04
+    2.82756E-05   9.00154E+02   2.12974E+02  -9.62593E+01  -1.20201E+02
+   -8.30497E+01  -3.55867E+01  -9.19095E+01  -3.84785E+01  -1.50500E-01
+   -5.22731E-02   5.04506E-02   9.86091E-03   9.96864E-01   5.89105E-04
+    1.27202E-04   3.02042E-05   7.81099E+02   1.79944E+02  -1.28216E+02
+   -1.29067E+02  -7.88827E+01  -3.44306E+01  -8.73035E+01  -3.72007E+01
+   -9.80185E-02  -3.77128E-02   5.27662E-02   1.05033E-02   9.96227E-01
+    4.12835E-04   1.34603E-04   3.22574E-05   6.80004E+02   1.51592E+02
+   -1.55145E+02  -1.36620E+02  -7.49759E+01  -3.33350E+01  -8.29260E+01
+   -3.59730E+01  -6.11726E-02  -2.73798E-02   5.50459E-02   1.11427E-02
+    9.95671E-01   2.56669E-04   1.42431E-04   3.44528E-05   5.93172E+02
+    1.26975E+02  -1.77105E+02  -1.42846E+02  -7.12420E+01  -3.22765E+01
+   -7.87073E+01  -3.47770E+01  -3.41319E-02  -1.97136E-02   5.72842E-02
+    1.17772E-02   9.95170E-01   1.14419E-04   1.50686E-04   3.67929E-05
+    5.18642E+02   1.05612E+02  -1.95013E+02  -1.47979E+02  -6.77041E+01
+   -3.12624E+01  -7.46842E+01  -3.36238E+01  -1.36769E-02  -1.38504E-02
+    5.95265E-02   1.24199E-02   9.94700E-01  -2.01006E-05   1.59404E-04
+    3.92920E-05   4.53902E+02   8.68483E+01  -2.09228E+02  -1.52099E+02
+   -6.43325E+01  -3.02852E+01  -7.08351E+01  -3.25082E+01   2.24276E-03
+   -9.23631E-03   6.17187E-02   1.30553E-02   9.94298E-01  -1.37612E-04
+    1.68601E-04   4.19575E-05   3.97809E+02   7.04064E+01  -2.19940E+02
+   -1.55238E+02  -6.10887E+01  -2.93343E+01  -6.71270E+01  -3.14213E+01
+    1.49629E-02  -5.50784E-03   6.39137E-02   1.36987E-02   9.93908E-01
+   -2.50484E-04   1.78292E-04   4.47982E-05   3.48790E+02   5.58745E+01
+   -2.27945E+02  -1.57612E+02  -5.80062E+01  -2.84204E+01  -6.35992E+01
+   -3.03754E+01   2.53551E-02  -2.42695E-03   6.61078E-02   1.43492E-02
+    9.93574E-01  -3.49441E-04   1.88529E-04   4.78331E-05   3.05892E+02
+    4.30093E+01  -2.33262E+02  -1.59206E+02  -5.50460E+01  -2.75327E+01
+   -6.02157E+01  -2.93607E+01   3.39904E-02   1.62737E-04   6.82794E-02
+    1.50004E-02   9.93246E-01  -4.48397E-04   1.99305E-04   5.10648E-05
+    2.68249E+02   3.15887E+01  -2.36381E+02  -1.60152E+02  -5.22077E+01
+   -2.66715E+01  -5.69754E+01  -2.83777E+01   4.13390E-02   2.39227E-03
+    7.04693E-02   1.56649E-02   9.92974E-01  -5.31895E-04   2.10669E-04
+    5.45126E-05   2.35107E+02   2.14142E+01  -2.37507E+02  -1.60498E+02
+   -4.94904E+01  -2.58374E+01  -5.38813E+01  -2.74278E+01   4.76524E-02
+    4.33042E-03   7.26398E-02   1.63312E-02   9.92696E-01  -6.15387E-04
+    2.22655E-04   5.81920E-05   2.05911E+02   1.23442E+01  -2.36904E+02
+   -1.60311E+02  -4.68777E+01  -2.50257E+01  -5.09148E+01  -2.65062E+01
+    5.31913E-02   6.05114E-03   7.48197E-02   1.70084E-02   9.92461E-01
+   -6.89604E-04   2.35255E-04   6.21063E-05   1.80141E+02   4.24128E+00
+   -2.34868E+02  -1.59670E+02  -4.43765E+01  -2.42392E+01  -4.80826E+01
+   -2.56157E+01   5.81013E-02   7.59502E-03   7.69999E-02   1.76939E-02
+    9.92244E-01  -7.57637E-04   2.48540E-04   6.62836E-05   1.57484E+02
+   -2.96989E+00  -2.31464E+02  -1.58587E+02  -4.19701E+01  -2.34733E+01
+   -4.53698E+01  -2.47522E+01   6.24994E-02   8.99491E-03   7.91777E-02
+    1.83870E-02   9.92028E-01  -8.24123E-04   2.62513E-04   7.07311E-05
+    1.37453E+02  -9.42502E+00  -2.27027E+02  -1.57157E+02  -3.96656E+01
+   -2.27307E+01  -4.27795E+01  -2.39175E+01   6.64996E-02   1.02840E-02
+    8.13601E-02   1.90903E-02   9.91848E-01  -8.82879E-04   2.77229E-04
+    7.54735E-05   1.19771E+02  -1.51946E+01  -2.21698E+02  -1.55419E+02
+   -3.74529E+01  -2.20087E+01  -4.03031E+01  -2.31094E+01   7.01635E-02
+    1.14795E-02   8.35401E-02   1.98016E-02   9.91675E-01  -9.40088E-04
+    2.92706E-04   8.05233E-05   1.04255E+02  -2.03217E+01  -2.15510E+02
+   -1.53374E+02  -3.53307E+01  -2.13074E+01  -3.79362E+01  -2.23274E+01
+    7.35513E-02   1.25989E-02   8.57189E-02   2.05216E-02   9.91521E-01
+   -9.92659E-04   3.08980E-04   8.59012E-05   9.05794E+01  -2.48991E+01
+   -2.08711E+02  -1.51098E+02  -3.32916E+01  -2.06249E+01  -3.56719E+01
+   -2.15694E+01   7.67314E-02   1.36634E-02   8.79077E-02   2.12543E-02
+    9.91372E-01  -1.04059E-03   3.26088E-04   9.16275E-05   7.85890E+01
+   -2.89650E+01  -2.01398E+02  -1.48618E+02  -3.13368E+01  -1.99620E+01
+   -3.35095E+01  -2.08362E+01   7.96607E-02   1.46567E-02   9.00548E-02
+    2.19823E-02   9.91242E-01  -1.08543E-03   3.44059E-04   9.77215E-05
+    6.81392E+01  -3.25555E+01  -1.93630E+02  -1.45949E+02  -2.94626E+01
+   -1.93181E+01  -3.14441E+01  -2.01265E+01   8.24802E-02   1.56254E-02
+    9.22355E-02   2.27316E-02   9.91119E-01  -1.12718E-03   3.62948E-04
+    1.04211E-04   5.90165E+01  -3.57319E+01  -1.85560E+02  -1.43139E+02
+   -2.76661E+01  -1.86926E+01  -2.94722E+01  -1.94400E+01   8.51376E-02
+    1.65507E-02   9.43932E-02   2.34829E-02   9.91020E-01  -1.16275E-03
+    3.82783E-04   1.11118E-04   5.11337E+01  -3.85139E+01  -1.77248E+02
+   -1.40206E+02  -2.59437E+01  -1.80847E+01  -2.75883E+01  -1.87751E+01
+    8.76700E-02   1.74445E-02   9.65444E-02   2.42422E-02   9.90915E-01
+   -1.19830E-03   4.03585E-04   1.18459E-04   4.43373E+01  -4.09459E+01
+   -1.68755E+02  -1.37167E+02  -2.42933E+01  -1.74942E+01  -2.57905E+01
+   -1.81318E+01   9.00975E-02   1.83131E-02   9.86828E-02   2.50073E-02
+    9.90834E-01  -1.22923E-03   4.25430E-04   1.26276E-04   3.85266E+01
+   -4.30541E+01  -1.60139E+02  -1.34041E+02  -2.27111E+01  -1.69202E+01
+   -2.40732E+01  -1.75087E+01   9.24199E-02   1.91556E-02   1.00798E-01
+    2.57747E-02   9.90754E-01  -1.25860E-03   4.48332E-04   1.34584E-04
+    3.36278E+01  -4.48566E+01  -1.51480E+02  -1.30855E+02  -2.11972E+01
+   -1.63631E+01  -2.24352E+01  -1.69060E+01   9.46609E-02   1.99802E-02
+    1.02905E-01   2.65501E-02   9.90692E-01  -1.28025E-03   4.72340E-04
+    1.43418E-04   2.95168E+01  -4.63909E+01  -1.42811E+02  -1.27619E+02
+   -1.97460E+01  -1.58215E+01  -2.08706E+01  -1.63221E+01   9.68401E-02
+    2.07936E-02   1.05002E-01   2.73328E-02   9.90630E-01  -1.30344E-03
+    4.97492E-04   1.52806E-04   2.61333E+01  -4.76722E+01  -1.34188E+02
+   -1.24354E+02  -1.83596E+01  -1.52965E+01  -1.93805E+01  -1.57578E+01
+    9.89201E-02   2.15812E-02   1.07059E-01   2.81116E-02   9.90574E-01
+   -1.32354E-03   5.23856E-04   1.62790E-04   2.33712E+01  -4.87338E+01
+   -1.25651E+02  -1.21073E+02  -1.70323E+01  -1.47864E+01  -1.79591E+01
+   -1.52116E+01   1.00941E-01   2.23578E-02   1.09091E-01   2.88925E-02
+    9.90543E-01  -1.33746E-03   5.51437E-04   1.73389E-04   2.12171E+01
+   -4.95741E+01  -1.17210E+02  -1.17780E+02  -1.57615E+01  -1.42907E+01
+   -1.66018E+01  -1.46820E+01   1.02901E-01   2.31224E-02   1.11101E-01
+    2.96765E-02   9.90513E-01  -1.34828E-03   5.80316E-04   1.84655E-04
+    1.95831E+01  -5.02213E+01  -1.08894E+02  -1.14487E+02  -1.45475E+01
+   -1.38098E+01  -1.53090E+01  -1.41701E+01   1.04795E-01   2.38724E-02
+    1.13071E-01   3.04569E-02   9.90482E-01  -1.35911E-03   6.10512E-04
+    1.96613E-04   1.84051E+01  -5.06947E+01  -1.00751E+02  -1.11212E+02
+   -1.33867E+01  -1.33430E+01  -1.40766E+01  -1.36744E+01   1.06638E-01
+    2.46138E-02   1.15014E-01   3.12382E-02   9.90469E-01  -1.36684E-03
+    6.42075E-04   2.09307E-04   1.76483E+01  -5.10038E+01  -9.27802E+01
+   -1.07956E+02  -1.22778E+01  -1.28900E+01  -1.29022E+01  -1.31947E+01
+    1.08408E-01   2.53366E-02   1.16903E-01   3.20101E-02   9.90463E-01
+   -1.36838E-03   6.75070E-04   2.22786E-04   1.72533E+01  -5.11681E+01
+   -8.50093E+01  -1.04731E+02  -1.12185E+01  -1.24504E+01  -1.17838E+01
+   -1.27305E+01   1.10148E-01   2.60588E-02   1.18772E-01   3.27857E-02
+    9.90463E-01  -1.36838E-03   7.09529E-04   2.37088E-04   1.71924E+01
+   -5.11934E+01  -7.74265E+01  -1.01532E+02  -1.02066E+01  -1.20236E+01
+   -1.07177E+01  -1.22808E+01   1.11818E-01   2.67635E-02   1.20581E-01
+    3.35487E-02   9.90463E-01  -1.36530E-03   7.45492E-04   2.52257E-04
+    1.74164E+01  -5.10976E+01  -7.00763E+01  -9.83807E+01  -9.24097E+00
+   -1.16095E+01  -9.70290E+00  -1.18457E+01   1.13433E-01   2.74560E-02
+    1.22344E-01   3.43043E-02   9.90488E-01  -1.35756E-03   7.83012E-04
+    2.68345E-04   1.78969E+01  -5.08882E+01  -6.29467E+01  -9.52723E+01
+   -8.31988E+00  -1.12079E+01  -8.73708E+00  -1.14246E+01   1.15004E-01
+    2.81408E-02   1.24062E-01   3.50535E-02   9.90506E-01  -1.34828E-03
+    8.22153E-04   2.85409E-04   1.85928E+01  -5.05795E+01  -5.60482E+01
+   -9.22133E+01  -7.44114E+00  -1.08183E+01  -7.81807E+00  -1.10171E+01
+    1.16505E-01   2.88063E-02   1.25712E-01   3.57851E-02   9.90531E-01
+   -1.33591E-03   8.62943E-04   3.03497E-04   1.94905E+01  -5.01746E+01
+   -4.93762E+01  -8.92031E+01  -6.60249E+00  -1.04399E+01  -6.94240E+00
+   -1.06221E+01   1.17972E-01   2.94682E-02   1.27322E-01   3.65114E-02
+    9.90574E-01  -1.31891E-03   9.05416E-04   3.22658E-04   2.05474E+01
+   -4.96895E+01  -4.29464E+01  -8.62510E+01  -5.80430E+00  -1.00735E+01
+   -6.11087E+00  -1.02403E+01   1.19373E-01   3.01115E-02   1.28862E-01
+    3.72185E-02   9.90618E-01  -1.29881E-03   9.49655E-04   3.42969E-04
+    2.17420E+01  -4.91310E+01  -3.67596E+01  -8.33595E+01  -5.04313E+00
+   -9.71766E+00  -5.31941E+00  -9.87035E+00   1.20711E-01   3.07367E-02
+    1.30332E-01   3.79058E-02   9.90661E-01  -1.27871E-03   9.95674E-04
+    3.64478E-04   2.30616E+01  -4.85026E+01  -3.08001E+01  -8.05230E+01
+   -4.31852E+00  -9.37280E+00  -4.56754E+00  -9.51250E+00   1.21990E-01
+    3.13456E-02   1.31733E-01   3.85727E-02   9.90717E-01  -1.25087E-03
+    1.04354E-03   3.87262E-04   2.44827E+01  -4.78139E+01  -2.50764E+01
+   -7.77478E+01  -3.62770E+00  -9.03786E+00  -3.85184E+00  -9.16549E+00
+    1.23250E-01   3.19566E-02   1.33101E-01   3.92360E-02   9.90779E-01
+   -1.22150E-03   1.09327E-03   4.11374E-04   2.59828E+01  -4.70725E+01
+   -1.95895E+01  -7.50368E+01  -2.97102E+00  -8.71338E+00  -3.17285E+00
+   -8.83000E+00   1.24464E-01   3.25563E-02   1.34411E-01   3.98828E-02
+    9.90843E-01  -1.18903E-03   1.14495E-03   4.36906E-04   2.75440E+01
+   -4.62862E+01  -1.43341E+01  -7.23895E+01  -2.34626E+00  -8.39870E+00
+   -2.52775E+00  -8.50505E+00   1.25566E-01   3.31112E-02   1.35596E-01
+    4.04801E-02   9.90915E-01  -1.15346E-03   1.19857E-03   4.63919E-04
+    2.91516E+01  -4.54606E+01  -9.31267E+00  -6.98102E+01  -1.75194E+00
+   -8.09342E+00  -1.91517E+00  -8.19039E+00   1.26609E-01   3.36474E-02
+    1.36710E-01   4.10524E-02   9.90995E-01  -1.11327E-03   1.25423E-03
+    4.92505E-04   3.08024E+01  -4.45954E+01  -4.50371E+00  -6.72901E+01
+   -1.18694E+00  -7.79734E+00  -1.33369E+00  -7.88566E+00   1.27635E-01
+    3.41846E-02   1.37786E-01   4.16161E-02   9.91072E-01  -1.07151E-03
+    1.31191E-03   5.22733E-04   3.24752E+01  -4.37006E+01   8.35194E-02
+   -6.48366E+01  -6.50046E-01  -7.51016E+00  -7.81856E-01  -7.59052E+00
+    1.28585E-01   3.46928E-02   1.38772E-01   4.21432E-02   9.91162E-01
+   -1.02513E-03   1.37168E-03   5.54703E-04   3.41578E+01  -4.27817E+01
+    4.45542E+00  -6.24490E+01  -1.40469E-01  -7.23187E+00  -2.58920E-01
+   -7.30493E+00   1.29469E-01   3.51756E-02   1.39674E-01   4.26360E-02
+    9.91252E-01  -9.75651E-04   1.43359E-03   5.88511E-04   3.58480E+01
+   -4.18389E+01   8.62189E+00  -6.01247E+01   3.43429E-01  -6.96192E+00
+    2.37199E-01  -7.02817E+00   1.30313E-01   3.56464E-02   1.40518E-01
+    4.31070E-02   9.91341E-01  -9.24626E-04   1.49764E-03   6.24243E-04
+    3.75319E+01  -4.08790E+01   1.25885E+01  -5.78633E+01   8.02835E-01
+   -6.70001E+00   7.07490E-01  -6.76005E+00   1.31081E-01   3.60846E-02
+    1.41269E-01   4.35351E-02   9.91443E-01  -8.67417E-04   1.56388E-03
+    6.62007E-04   3.92015E+01  -3.99056E+01   1.63532E+01  -5.56688E+01
+    1.23829E+00  -6.44616E+00   1.15265E+00  -6.50054E+00   1.31797E-01
+    3.65019E-02   1.41952E-01   4.39331E-02   9.91539E-01  -8.10207E-04
+    1.63236E-03   7.01925E-04   4.08544E+01  -3.89200E+01   1.99350E+01
+   -5.35330E+01   1.65124E+00  -6.19990E+00   1.57445E+00  -6.24901E+00
+    1.32453E-01   3.68932E-02   1.42555E-01   4.42926E-02   9.91641E-01
+   -7.49906E-04   1.70306E-03   7.44086E-04   4.24809E+01  -3.79273E+01
+    2.33272E+01  -5.14624E+01   2.04227E+00  -5.96127E+00   1.97334E+00
+   -6.00555E+00   1.33055E-01   3.72605E-02   1.43089E-01   4.46184E-02
+    9.91746E-01  -6.84965E-04   1.77605E-03   7.88637E-04   4.40741E+01
+   -3.69314E+01   2.65433E+01  -4.94522E+01   2.41286E+00  -5.72961E+00
+    2.35096E+00  -5.76952E+00   1.33585E-01   3.75915E-02   1.43532E-01
+    4.48954E-02   9.91855E-01  -6.18479E-04   1.85133E-03   8.35691E-04
+    4.56368E+01  -3.59306E+01   2.95876E+01  -4.75021E+01   2.76331E+00
+   -5.50516E+00   2.70780E+00  -5.54095E+00   1.34071E-01   3.79031E-02
+    1.43918E-01   4.51430E-02   9.91963E-01  -5.48900E-04   1.92891E-03
+    8.85382E-04   4.71563E+01  -3.49325E+01   3.24663E+01  -4.56118E+01
+    3.09494E+00  -5.28736E+00   3.04511E+00  -5.31947E+00   1.34493E-01
+    3.81799E-02   1.44222E-01   4.53425E-02   9.92077E-01  -4.74686E-04
+    2.00883E-03   9.37865E-04   4.86388E+01  -3.39338E+01   3.51878E+01
+   -4.37780E+01   3.40839E+00  -5.07618E+00   3.36356E+00  -5.10488E+00
+    1.34865E-01   3.84309E-02   1.44465E-01   4.55059E-02   9.92186E-01
+   -4.02011E-04   2.09106E-03   9.93273E-04   5.00724E+01  -3.29421E+01
+    3.77516E+01  -4.20045E+01   3.70452E+00  -4.87134E+00   3.66424E+00
+   -4.89689E+00   1.35172E-01   3.86431E-02   1.44628E-01   4.56190E-02
+    9.92294E-01  -3.26248E-04   2.17565E-03   1.05178E-03   5.14614E+01
+   -3.19549E+01   4.01728E+01  -4.02837E+01   3.98399E+00  -4.67271E+00
+    3.94778E+00  -4.69539E+00   1.35433E-01   3.88287E-02   1.44733E-01
+    4.56932E-02   9.92405E-01  -2.47392E-04   2.26257E-03   1.11356E-03
+    5.27997E+01  -3.09770E+01   4.24492E+01  -3.86206E+01   4.24769E+00
+   -4.48004E+00   4.21501E+00  -4.50013E+00   1.35639E-01   3.89791E-02
+    1.44772E-01   4.57216E-02   9.92519E-01  -1.63897E-04   2.35183E-03
+    1.17878E-03   5.40891E+01  -3.00074E+01   4.45914E+01  -3.70098E+01
+    4.49617E+00  -4.29321E+00   4.46670E+00  -4.31087E+00   1.35790E-01
+    3.90925E-02   1.44746E-01   4.57023E-02   9.92628E-01  -8.34947E-05
+    2.44340E-03   1.24763E-03   5.53272E+01  -2.90487E+01   4.66032E+01
+   -3.54520E+01   4.73020E+00  -4.11197E+00   4.70358E+00  -4.12746E+00
+    1.35894E-01   3.91727E-02   1.44664E-01   4.56393E-02   9.92733E-01
+    0.00000E+00   2.53728E-03   1.32033E-03   5.65135E+01  -2.81019E+01
+    4.84919E+01  -3.39445E+01   4.95048E+00  -3.93617E+00   4.92638E+00
+   -3.94963E+00   1.35952E-01   3.92197E-02   1.44530E-01   4.55318E-02
+    9.92844E-01   8.81332E-05   2.63343E-03   1.39707E-03   5.76464E+01
+   -2.71689E+01   5.02593E+01  -3.24890E+01   5.15759E+00  -3.76562E+00
+    5.13568E+00  -3.77727E+00   1.35959E-01   3.92251E-02   1.44338E-01
+    4.53739E-02   9.92949E-01   1.73174E-04   2.73183E-03   1.47810E-03
+    5.87274E+01  -2.62496E+01   5.19146E+01  -3.10813E+01   5.35204E+00
+   -3.60024E+00   5.33206E+00  -3.61023E+00   1.35923E-01   3.91949E-02
+    1.44099E-01   4.51708E-02   9.93048E-01   2.59761E-04   2.83245E-03
+    1.56368E-03   5.97561E+01  -2.53449E+01   5.34605E+01  -2.97220E+01
+    5.53443E+00  -3.43985E+00   5.51620E+00  -3.44834E+00   1.35848E-01
+    3.91287E-02   1.43818E-01   4.49235E-02   9.93153E-01   3.49443E-04
+    2.93519E-03   1.65402E-03   6.07317E+01  -2.44571E+01   5.49025E+01
+   -2.84095E+01   5.70547E+00  -3.28420E+00   5.68879E+00  -3.29125E+00
+    1.35729E-01   3.90206E-02   1.43490E-01   4.46254E-02   9.93249E-01
+    4.39120E-04   3.04003E-03   1.74944E-03   6.16557E+01  -2.35855E+01
+    5.62462E+01  -2.71420E+01   5.86548E+00  -3.13324E+00   5.85014E+00
+   -3.13903E+00   1.35576E-01   3.88758E-02   1.43127E-01   4.42825E-02
+    9.93342E-01   5.25707E-04   3.14689E-03   1.85024E-03   6.25297E+01
+   -2.27301E+01   5.74952E+01  -2.59195E+01   6.01508E+00  -2.98681E+00
+    6.00088E+00  -2.99148E+00   1.35386E-01   3.86901E-02   1.42730E-01
+    4.38936E-02   9.93435E-01   6.16933E-04   3.25564E-03   1.95669E-03
+    6.33508E+01  -2.18947E+01   5.86540E+01  -2.47405E+01   6.15471E+00
+   -2.84478E+00   6.14152E+00  -2.84842E+00   1.35161E-01   3.84617E-02
+    1.42297E-01   4.34536E-02   9.93523E-01   7.06612E-04   3.36623E-03
+    2.06919E-03   6.41245E+01  -2.10756E+01   5.97278E+01  -2.36037E+01
+    6.28486E+00  -2.70698E+00   6.27261E+00  -2.70966E+00   1.34914E-01
+    3.82002E-02   1.41847E-01   4.29771E-02   9.93606E-01   7.94745E-04
+    3.47850E-03   2.18805E-03   6.48488E+01  -2.02760E+01   6.07204E+01
+   -2.25081E+01   6.40599E+00  -2.57327E+00   6.39447E+00  -2.57512E+00
+    1.34632E-01   3.78884E-02   1.41364E-01   4.24443E-02   9.93687E-01
+    8.82879E-04   3.59232E-03   2.31369E-03   6.55259E+01  -1.94954E+01
+    6.16363E+01  -2.14520E+01   6.51836E+00  -2.44371E+00   6.50756E+00
+   -2.44475E+00   1.34333E-01   3.75438E-02   1.40870E-01   4.18743E-02
+    9.93761E-01   9.71012E-04   3.70752E-03   2.44650E-03   6.61565E+01
+   -1.87349E+01   6.24780E+01  -2.04365E+01   6.62266E+00  -2.31789E+00
+    6.61238E+00  -2.31828E+00   1.34010E-01   3.71540E-02   1.40358E-01
+    4.12562E-02   9.93832E-01   1.05605E-03   3.82394E-03   2.58695E-03
+    6.67419E+01  -1.79939E+01   6.32506E+01  -1.94590E+01   6.71904E+00
+   -2.19592E+00   6.70930E+00  -2.19565E+00   1.33665E-01   3.67168E-02
+    1.39830E-01   4.05883E-02   9.93902E-01   1.14264E-03   3.94133E-03
+    2.73550E-03   6.72841E+01  -1.72727E+01   6.39579E+01  -1.85181E+01
+    6.80796E+00  -2.07764E+00   6.79862E+00  -2.07683E+00   1.33308E-01
+    3.62429E-02   1.39298E-01   3.98807E-02   9.93964E-01   1.22613E-03
+    4.05947E-03   2.89264E-03   6.77838E+01  -1.65720E+01   6.46024E+01
+   -1.76146E+01   6.88975E+00  -1.96297E+00   6.88078E+00  -1.96163E+00
+    1.32939E-01   3.57251E-02   1.38762E-01   3.91295E-02   9.94021E-01
+    1.30654E-03   4.17808E-03   3.05896E-03   6.82433E+01  -1.58910E+01
+    6.51885E+01  -1.67458E+01   6.96488E+00  -1.85160E+00   6.95619E+00
+   -1.84985E+00   1.32561E-01   3.51646E-02   1.38226E-01   3.83341E-02
+    9.94076E-01   1.38694E-03   4.29684E-03   3.23500E-03   6.86632E+01
+   -1.52308E+01   6.57189E+01  -1.59120E+01   7.03349E+00  -1.74374E+00
+    7.02510E+00  -1.74151E+00   1.32176E-01   3.45598E-02   1.37692E-01
+    3.74951E-02   9.94128E-01   1.46734E-03   4.41539E-03   3.42135E-03
+    6.90447E+01  -1.45924E+01   6.61965E+01  -1.51128E+01   7.09600E+00
+   -1.63913E+00   7.08780E+00  -1.63661E+00   1.31788E-01   3.39104E-02
+    1.37163E-01   3.66110E-02   9.94169E-01   1.54000E-03   4.53338E-03
+    3.61882E-03   6.93912E+01  -1.39726E+01   6.66252E+01  -1.43456E+01
+    7.15273E+00  -1.53765E+00   7.14471E+00  -1.53478E+00   1.31401E-01
+    3.32172E-02   1.36647E-01   3.56866E-02   9.94211E-01   1.61269E-03
+    4.65032E-03   3.82800E-03   6.97021E+01  -1.33753E+01   6.70075E+01
+   -1.36112E+01   7.20386E+00  -1.43941E+00   7.19598E+00  -1.43627E+00
+    1.31020E-01   3.24866E-02   1.36146E-01   3.47251E-02   9.94249E-01
+    1.68537E-03   4.76569E-03   4.04968E-03   6.99805E+01  -1.27974E+01
+    6.73465E+01  -1.29078E+01   7.24983E+00  -1.34401E+00   7.24208E+00
+   -1.34063E+00   1.30646E-01   3.17088E-02   1.35662E-01   3.37198E-02
+    9.94281E-01   1.75183E-03   4.87897E-03   4.28473E-03   7.02272E+01
+   -1.22410E+01   6.76440E+01  -1.22369E+01   7.29077E+00  -1.25167E+00
+    7.28310E+00  -1.24809E+00   1.30276E-01   3.08758E-02   1.35194E-01
+    3.26638E-02   9.94309E-01   1.81679E-03   4.98947E-03   4.53399E-03
+    7.04442E+01  -1.17051E+01   6.79042E+01  -1.15941E+01   7.32699E+00
+   -1.16218E+00   7.31941E+00  -1.15839E+00   1.29925E-01   3.00073E-02
+    1.34752E-01   3.15733E-02   9.94333E-01   1.87707E-03   5.09654E-03
+    4.79847E-03   7.06328E+01  -1.11901E+01   6.81283E+01  -1.09821E+01
+    7.35876E+00  -1.07544E+00   7.35124E+00  -1.07148E+00   1.29588E-01
+    2.90894E-02   1.34337E-01   3.04390E-02   9.94356E-01   1.93585E-03
+    5.19931E-03   5.07907E-03   7.07949E+01  -1.06956E+01   6.83196E+01
+   -1.03983E+01   7.38631E+00  -9.91416E-01   7.37881E+00  -9.87371E-01
+    1.29273E-01   2.81281E-02   1.33952E-01   2.92653E-02   9.94373E-01
+    1.98994E-03   5.29696E-03   5.37705E-03   7.09317E+01  -1.02223E+01
+    6.84799E+01  -9.84387E+00   7.40983E+00  -9.10060E-01   7.40238E+00
+   -9.05855E-01   1.28979E-01   2.71112E-02   1.33598E-01   2.80420E-02
+    9.94389E-01   2.04409E-03   5.38845E-03   5.69344E-03   7.10458E+01
+   -9.76716E+00   6.86125E+01  -9.31493E+00   7.42957E+00  -8.31292E-01
+    7.42213E+00  -8.27025E-01   1.28717E-01   2.60635E-02   1.33285E-01
+    2.67931E-02   9.94400E-01   2.08735E-03   5.47269E-03   6.02959E-03
+    7.11373E+01  -9.33563E+00   6.87184E+01  -8.81570E+00   7.44575E+00
+   -7.54994E-01   7.43833E+00  -7.50640E-01   1.28480E-01   2.49459E-02
+    1.33007E-01   2.54792E-02   9.94410E-01   2.13531E-03   5.54843E-03
+    6.38675E-03   7.12090E+01  -8.92207E+00   6.88008E+01  -8.34061E+00
+    7.45856E+00  -6.81176E-01   7.45115E+00  -6.76760E-01   1.28280E-01
+    2.37966E-02   1.32774E-01   2.41395E-02   9.94416E-01   2.17239E-03
+    5.61432E-03   6.76646E-03   7.12619E+01  -8.52992E+00   6.88611E+01
+   -7.89362E+00   7.46819E+00  -6.09787E-01   7.46079E+00  -6.05346E-01
+    1.28116E-01   2.25796E-02   1.32585E-01   2.27397E-02   9.94422E-01
+    2.21417E-03   5.66882E-03   7.17028E-03   7.12979E+01  -8.15744E+00
+    6.89019E+01  -7.47048E+00   7.47486E+00  -5.40628E-01   7.46746E+00
+   -5.36138E-01   1.27996E-01   2.13288E-02   1.32448E-01   2.13098E-02
+    9.94425E-01   2.24509E-03   5.71022E-03   7.59975E-03   7.13182E+01
+   -7.80565E+00   6.89249E+01  -7.07397E+00   7.47867E+00  -4.74828E-01
+    7.47127E+00  -4.70326E-01   1.27919E-01   2.00069E-02   1.32361E-01
+    1.98175E-02   9.94426E-01   2.27290E-03   5.73667E-03   8.05677E-03
+    7.13246E+01  -7.47305E+00   6.89321E+01  -6.70059E+00   7.47976E+00
+   -4.18243E-01   7.47236E+00  -4.13753E-01   1.27893E-01   1.86422E-02
+    1.32332E-01   1.82874E-02   9.94427E-01   2.30076E-03   5.74607E-03
+    8.54323E-03   7.13162E+01  -7.03538E+00   6.89230E+01  -6.22691E+00
+    7.47874E+00  -3.64999E-01   7.47134E+00  -3.60472E-01   1.27891E-01
+    1.87510E-02   1.32332E-01   1.82833E-02   9.94426E-01   2.32856E-03
+    5.73611E-03   9.06115E-03   7.12984E+01  -6.72692E+00   6.89033E+01
+   -5.88677E+00   7.47578E+00  -3.13917E-01   7.46839E+00  -3.09427E-01
+    1.27965E-01   1.74690E-02   1.32414E-01   1.68552E-02   9.94425E-01
+    2.35333E-03   5.70423E-03   9.61280E-03   7.12712E+01  -6.44520E+00
+    6.88735E+01  -5.57677E+00   7.47105E+00  -2.64757E-01   7.46366E+00
+   -2.60304E-01   1.28102E-01   1.60409E-02   1.32565E-01   1.52848E-02
+    9.94424E-01   2.36567E-03   5.64762E-03   1.02005E-02   7.12360E+01
+   -6.18364E+00   6.88348E+01  -5.29025E+00   7.46470E+00  -2.17706E-01
+    7.45732E+00  -2.13278E-01   1.28305E-01   1.45409E-02   1.32786E-01
+    1.36476E-02   9.94422E-01   2.37652E-03   5.56316E-03   1.08267E-02
+    7.11937E+01  -5.93993E+00   6.87889E+01  -5.02578E+00   7.45688E+00
+   -1.72629E-01   7.44950E+00  -1.68213E-01   1.28574E-01   1.29868E-02
+    1.33078E-01   1.19659E-02   9.94421E-01   2.38577E-03   5.44739E-03
+    1.14942E-02   7.11461E+01  -5.71557E+00   6.87374E+01  -4.78241E+00
+    7.44772E+00  -1.29411E-01   7.44035E+00  -1.25070E-01   1.28915E-01
+    1.13797E-02   1.33445E-01   1.02355E-02   9.94420E-01   2.39044E-03
+    5.29649E-03   1.22060E-02   7.10948E+01  -5.51066E+00   6.86822E+01
+   -4.56207E+00   7.43737E+00  -8.81080E-02   7.43002E+00  -8.38034E-02
+    1.29340E-01   9.68107E-03   1.33900E-01   8.42015E-03   9.94419E-01
+    2.39195E-03   5.10633E-03   1.29651E-02   7.10403E+01  -5.32212E+00
+    6.86239E+01  -4.36045E+00   7.42595E+00  -4.86004E-02   7.41861E+00
+   -4.43452E-02   1.29838E-01   7.95949E-03   1.34429E-01   6.58955E-03
+    9.94421E-01   2.38889E-03   4.87222E-03   1.37749E-02   7.09853E+01
+   -5.15429E+00   6.85655E+01  -4.18233E+00   7.41361E+00  -1.09348E-02
+    7.40629E+00  -6.75383E-03   1.30439E-01   6.12568E-03   1.35063E-01
+    4.65215E-03   9.94423E-01   2.38116E-03   4.58914E-03   1.46390E-02
+    7.09302E+01  -5.00361E+00   6.85072E+01  -4.02316E+00   7.40047E+00
+    2.49617E-02   7.39316E+00   2.91178E-02   1.31128E-01   4.24351E-03
+    1.35788E-01   2.67259E-03   9.94424E-01   2.37804E-03   4.25144E-03
+    1.55612E-02   7.07619E+01  -4.58786E+00   6.83366E+01  -3.60145E+00
+    7.38661E+00   5.92135E-02   7.37933E+00   6.32955E-02   1.30475E-01
+    5.85703E-03   1.35136E-01   4.28531E-03   9.94421E-01   2.38425E-03
+    3.85298E-03   1.65457E-02   7.05220E+01  -4.04671E+00   6.80947E+01
+   -3.05576E+00   7.37211E+00   9.19178E-02   7.36487E+00   9.59131E-02
+    1.28985E-01   9.21760E-03   1.33627E-01   7.68996E-03   9.94415E-01
+    2.39814E-03   3.38696E-03   1.75970E-02   7.04571E+01  -3.91198E+00
+    6.80285E+01  -2.91864E+00   7.35725E+00   1.22769E-01   7.35003E+00
+    1.26702E-01   1.29752E-01   7.62744E-03   1.34428E-01   6.02557E-03
+    9.94424E-01   2.38270E-03   2.84597E-03   1.87198E-02   7.03948E+01
+   -3.79219E+00   6.79659E+01  -2.79808E+00   7.34202E+00   1.52021E-01
+    7.33484E+00   1.55905E-01   1.30610E-01   5.97795E-03   1.35323E-01
+    4.30652E-03   9.94431E-01   2.36567E-03   2.22182E-03   1.99193E-02
+    7.03370E+01  -3.68893E+00   6.79087E+01  -2.69579E+00   7.32652E+00
+    1.79743E-01   7.31940E+00   1.83516E-01   1.31570E-01   4.25980E-03
+    1.36319E-01   2.52457E-03   9.94443E-01   2.34405E-03   1.50562E-03
+    2.12006E-02   7.02839E+01  -3.60002E+00   6.78570E+01  -2.60927E+00
+    7.31088E+00   2.05940E-01   7.30377E+00   2.09675E-01   1.32625E-01
+    2.49477E-03   1.37408E-01   7.01583E-04   9.94457E-01   2.32237E-03
+    6.87305E-04   2.25703E-02   7.02392E+01  -3.52961E+00   6.78143E+01
+   -2.54221E+00   7.29514E+00   2.30682E-01   7.28811E+00   2.34306E-01
+    1.33816E-01   6.21962E-04   1.38634E-01  -1.22614E-03   9.94474E-01
+    2.29612E-03  -2.43624E-04   2.40340E-02   7.02026E+01  -3.47534E+00
+    6.77807E+01  -2.49231E+00   7.27946E+00   2.53921E-01   7.27246E+00
+    2.57496E-01   1.35129E-01  -1.32470E-03   1.39982E-01  -3.22380E-03
+    9.94491E-01   2.26980E-03  -1.29923E-03   2.55989E-02   6.93000E+01
+   -2.20991E+00   6.68826E+01  -1.23301E+00   7.26355E+00   2.76239E-01
+    7.25662E+00   2.79727E-01   1.25380E-01   1.23457E-02   1.30025E-01
+    1.07388E-02   9.94460E-01   2.31313E-03  -2.49265E-03   2.72724E-02
+    6.91817E+01  -2.05237E+00   6.67693E+01  -1.08220E+00   7.24810E+00
+    2.96797E-01   7.24121E+00   3.00212E-01   1.25646E-01   1.19928E-02
+    1.30304E-01   1.03665E-02   9.94482E-01   2.28529E-03  -3.83759E-03
+    2.90616E-02   6.91167E+01  -1.97021E+00   6.67105E+01  -1.00777E+00
+    7.23291E+00   3.16016E-01   7.22607E+00   3.19368E-01   1.26585E-01
+    1.08040E-02   1.31270E-01   9.14531E-03   9.94503E-01   2.25743E-03
+   -5.35010E-03   3.09757E-02   6.90571E+01  -1.89820E+00   6.66584E+01
+   -9.44844E-01   7.21800E+00   3.33993E-01   7.21127E+00   3.37234E-01
+    1.27594E-01   9.58687E-03   1.32301E-01   7.90034E-03   9.94531E-01
+    2.22345E-03  -7.04722E-03   3.30235E-02   6.90040E+01  -1.83702E+00
+    6.66132E+01  -8.92781E-01   7.20352E+00   3.50700E-01   7.19684E+00
+    3.53879E-01   1.28675E-01   8.34091E-03   1.33404E-01   6.62967E-03
+    9.94561E-01   2.18940E-03  -8.94726E-03   3.52141E-02   6.88952E+01
+   -1.71691E+00   6.65135E+01  -7.82752E-01   7.18940E+00   3.66278E-01
+    7.18280E+00   3.69370E-01   1.29021E-01   7.95794E-03   1.33754E-01
+    6.24242E-03   9.94588E-01   2.15850E-03  -1.10710E-02   3.75586E-02
+    6.85063E+01  -1.30503E+00   6.61349E+01  -3.81772E-01   7.17568E+00
+    3.80807E-01   7.16915E+00   3.83826E-01   1.25757E-01   1.14147E-02
+    1.30423E-01   9.76997E-03   9.94605E-01   2.14147E-03  -1.34407E-02
+    4.00677E-02   6.84570E+01  -1.25478E+00   6.60963E+01  -3.42590E-01
+    7.16269E+00   3.94035E-01   7.15619E+00   3.97004E-01   1.26812E-01
+    1.03410E-02   1.31493E-01   8.68118E-03   9.94641E-01   2.10439E-03
+   -1.60807E-02   4.27536E-02   6.84158E+01  -1.21459E+00   6.60678E+01
+   -3.14680E-01   7.15023E+00   4.06227E-01   7.14385E+00   4.09084E-01
+    1.27960E-01   9.21760E-03   1.32652E-01   7.54694E-03   9.94681E-01
+    2.06571E-03  -1.90179E-02   4.56289E-02   6.83814E+01  -1.18214E+00
+    6.60464E+01  -2.94497E-01   7.13831E+00   4.17476E-01   7.13200E+00
+    4.20284E-01   1.29160E-01   8.08512E-03   1.33862E-01   6.40516E-03
+    9.94718E-01   2.03017E-03  -2.22812E-02   4.87074E-02   6.83814E+01
+   -1.18214E+00   6.60464E+01  -2.94497E-01   7.13831E+00   4.17476E-01
+    7.13200E+00   4.20284E-01   1.29160E-01   8.08512E-03   1.33862E-01
+    6.40516E-03   9.94718E-01   2.03017E-03  -2.22812E-02   4.87074E-02
+    2.96878E-02   1.69413E+02   2.69387E+01
+    1.16570E-03   1.76462E-04   0.00000E+00   0.00000E+00   2.03558E-02
+    3.27548E-03   1.16570E-03   1.76462E-04   0.00000E+00   0.00000E+00
+    2.03558E-02   3.27548E-03   1.27011E-03   1.93363E-04   0.00000E+00
+    0.00000E+00   8.35115E-03   1.33219E-03   1.38410E-03   2.11928E-04
+    0.00000E+00   0.00000E+00  -5.73241E-03  -9.61418E-04   1.50630E-03
+    2.31951E-04   0.00000E+00   0.00000E+00   1.36109E-03   2.00833E-04
+    1.64082E-03   2.54126E-04   0.00000E+00   0.00000E+00  -6.77843E-03
+   -1.14096E-03   1.78447E-03   2.77952E-04   0.00000E+00   0.00000E+00
+    9.60456E-03   1.57640E-03   1.94362E-03   3.04514E-04   0.00000E+00
+    0.00000E+00   1.57229E-03   2.35872E-04   2.11444E-03   3.33200E-04
+    0.00000E+00   0.00000E+00   1.11100E-02   1.83756E-03   2.30454E-03
+    3.65324E-04   0.00000E+00   0.00000E+00  -7.61174E-03  -1.32615E-03
+    2.50621E-03   3.99619E-04   0.00000E+00   0.00000E+00   7.01569E-03
+    1.16129E-03   2.73679E-03   4.39078E-04   0.00000E+00   0.00000E+00
+    2.23251E-03   3.42727E-04   3.08275E-03   4.98663E-04   0.00000E+00
+    0.00000E+00   8.20923E-03   1.37208E-03   3.36811E-03   5.48125E-04
+    0.00000E+00   0.00000E+00   2.97454E-03   4.64724E-04   3.67540E-03
+    6.01734E-04   0.00000E+00   0.00000E+00   1.58261E-02   2.70679E-03
+    4.01874E-03   6.62024E-04   0.00000E+00   0.00000E+00  -2.55770E-03
+   -5.21327E-04  -1.78006E-02  -3.19449E-03   0.00000E+00   0.00000E+00
+   -2.67677E-02  -4.80039E-03  -2.85728E-03  -5.35852E-04   0.00000E+00
+    0.00000E+00  -1.95894E-03  -3.86537E-04   2.15743E-03   3.62270E-04
+    0.00000E+00   0.00000E+00   5.16836E-03   8.89946E-04  -2.46828E-04
+   -7.12089E-05   0.00000E+00   0.00000E+00  -4.61632E-03  -8.74198E-04
+    2.26038E-03   3.83877E-04   0.00000E+00   0.00000E+00   5.05742E-03
+    8.81695E-04  -5.61891E-03  -1.05600E-03   0.00000E+00   0.00000E+00
+   -7.99268E-03  -1.50311E-03   1.86703E-03   3.21339E-04   0.00000E+00
+    0.00000E+00   2.89420E-03   4.99970E-04  -1.04536E-03  -2.18197E-04
+    0.00000E+00   0.00000E+00  -1.44306E-03  -3.03532E-04   1.91013E-03
+    3.33115E-04   0.00000E+00   0.00000E+00   4.01614E-03   7.14821E-04
+    4.50968E-04   5.90269E-05   0.00000E+00   0.00000E+00  -4.23734E-04
+   -1.19163E-04   2.13396E-03   3.77380E-04   0.00000E+00   0.00000E+00
+    1.98979E-03   3.37375E-04   2.33348E-03   4.15387E-04   0.00000E+00
+    0.00000E+00   3.31230E-03   5.89308E-04   2.55162E-03   4.57238E-04
+    0.00000E+00   0.00000E+00   4.21179E-03   7.61878E-04   2.79025E-03
+    5.03348E-04   0.00000E+00   0.00000E+00   3.89297E-03   7.00272E-04
+    3.07343E-03   5.58462E-04   0.00000E+00   0.00000E+00   4.22491E-03
+    7.64876E-04   3.39903E-03   6.22292E-04   0.00000E+00   0.00000E+00
+    4.60309E-03   8.39015E-04   3.72240E-03   6.86151E-04   0.00000E+00
+    0.00000E+00   6.54230E-03   1.22197E-03   4.07718E-03   7.56729E-04
+    0.00000E+00   0.00000E+00   5.45614E-03   1.00589E-03   4.46483E-03
+    8.34422E-04   0.00000E+00   0.00000E+00   6.75269E-03   1.26574E-03
+    4.88961E-03   9.20193E-04   0.00000E+00   0.00000E+00   6.38154E-03
+    1.19080E-03   5.35385E-03   1.01464E-03   0.00000E+00   0.00000E+00
+    7.84035E-03   1.48758E-03   5.86215E-03   1.11884E-03   0.00000E+00
+    0.00000E+00   8.47619E-03   1.61793E-03   6.50489E-03   1.25160E-03
+    0.00000E+00   0.00000E+00   8.73814E-03   1.67204E-03   7.18023E-03
+    1.39218E-03   0.00000E+00   0.00000E+00   1.06449E-02   2.06896E-03
+    7.87727E-03   1.53841E-03   0.00000E+00   0.00000E+00   1.03267E-02
+    2.00219E-03   8.63906E-03   1.69947E-03   0.00000E+00   0.00000E+00
+    1.37004E-02   2.71549E-03   9.47741E-03   1.87812E-03   0.00000E+00
+    0.00000E+00   1.21843E-02   2.39240E-03   1.03927E-02   2.07473E-03
+    0.00000E+00   0.00000E+00   1.52687E-02   3.05493E-03   1.15128E-02
+    2.31727E-03   0.00000E+00   0.00000E+00   1.67134E-02   3.36774E-03
+    1.27079E-02   2.57812E-03   0.00000E+00   0.00000E+00   1.82224E-02
+    3.69713E-03   1.39574E-02   2.85308E-03   0.00000E+00   0.00000E+00
+    1.89111E-02   3.84869E-03   1.53254E-02   3.15661E-03   0.00000E+00
+    0.00000E+00   2.22403E-02   4.58736E-03   1.68297E-02   3.49317E-03
+    0.00000E+00   0.00000E+00   2.27084E-02   4.69209E-03   1.84768E-02
+    3.86473E-03   0.00000E+00   0.00000E+00   2.60534E-02   5.44669E-03
+    2.02855E-02   4.27620E-03   0.00000E+00   0.00000E+00   2.77003E-02
+    5.82135E-03   2.22665E-02   4.73071E-03   0.00000E+00   0.00000E+00
+    3.10868E-02   6.59833E-03   2.44381E-02   5.23323E-03   0.00000E+00
+    0.00000E+00   3.48503E-02   7.46922E-03   2.68233E-02   5.78996E-03
+    0.00000E+00   0.00000E+00   3.65287E-02   7.86099E-03   2.94308E-02
+    6.40390E-03   0.00000E+00   0.00000E+00   4.14890E-02   9.02888E-03
+    3.26570E-02   7.17022E-03   0.00000E+00   0.00000E+00   4.47583E-02
+    9.80545E-03   3.60219E-02   7.97657E-03   0.00000E+00   0.00000E+00
+    4.94359E-02   1.09264E-02   3.95751E-02   8.83572E-03   0.00000E+00
+    0.00000E+00   5.43587E-02   1.21167E-02   4.34719E-02   9.78645E-03
+    0.00000E+00   0.00000E+00   5.97387E-02   1.34293E-02   4.77463E-02
+    1.08388E-02   0.00000E+00   0.00000E+00   6.51774E-02   1.47683E-02
+    5.24329E-02   1.20034E-02   0.00000E+00   0.00000E+00   7.10700E-02
+    1.62325E-02   5.75637E-02   1.32901E-02   0.00000E+00   0.00000E+00
+    7.84238E-02   1.80768E-02   6.31919E-02   1.47149E-02   0.00000E+00
+    0.00000E+00   8.49377E-02   1.97258E-02   6.94152E-02   1.63053E-02
+    0.00000E+00   0.00000E+00   9.36538E-02   2.19533E-02   7.61764E-02
+    1.80497E-02   0.00000E+00   0.00000E+00   1.01958E-01   2.40958E-02
+    8.35699E-02   1.99757E-02   0.00000E+00   0.00000E+00   1.11531E-01
+    2.65895E-02   9.16540E-02   2.21021E-02   0.00000E+00   0.00000E+00
+    1.22246E-01   2.94080E-02   1.00492E-01   2.44498E-02   0.00000E+00
+    0.00000E+00   1.33905E-01   3.25049E-02   1.10159E-01   2.70432E-02
+    0.00000E+00   0.00000E+00   1.45503E-01   3.56164E-02   1.20707E-01
+    2.99014E-02   0.00000E+00   0.00000E+00   1.59119E-01   3.93061E-02
+   -7.27922E-01  -2.02394E-01   0.00000E+00   0.00000E+00  -9.87100E-01
+   -2.74448E-01   4.38266E-02   1.10256E-02   0.00000E+00   0.00000E+00
+    5.71561E-02   1.43301E-02   4.78813E-02   1.21585E-02   0.00000E+00
+    0.00000E+00   6.22455E-02   1.57521E-02   5.22962E-02   1.34050E-02
+    0.00000E+00   0.00000E+00   6.74503E-02   1.72216E-02   5.69786E-02
+    1.47410E-02   0.00000E+00   0.00000E+00   7.34944E-02   1.89461E-02
+   -2.23110E-01  -6.60314E-02   0.00000E+00   0.00000E+00  -2.98342E-01
+   -8.82846E-02   3.59525E-02   9.48591E-03   0.00000E+00   0.00000E+00
+    4.58239E-02   1.20405E-02   3.92588E-02   1.04602E-02   0.00000E+00
+    0.00000E+00   4.97845E-02   1.32076E-02   4.28617E-02   1.15337E-02
+    0.00000E+00   0.00000E+00   5.40093E-02   1.44664E-02   4.67859E-02
+    1.27160E-02   0.00000E+00   0.00000E+00   5.87169E-02   1.58847E-02
+    5.10599E-02   1.40183E-02   0.00000E+00   0.00000E+00   6.36365E-02
+    1.73837E-02   5.60409E-02   1.55533E-02   0.00000E+00   0.00000E+00
+    6.95267E-02   1.91989E-02   6.20131E-02   1.74151E-02   0.00000E+00
+    0.00000E+00   7.65246E-02   2.13804E-02   6.77671E-02   1.92298E-02
+    0.00000E+00   0.00000E+00   8.31036E-02   2.34554E-02   7.40350E-02
+    2.12301E-02   0.00000E+00   0.00000E+00   9.03287E-02   2.57611E-02
+    8.08625E-02   2.34351E-02   0.00000E+00   0.00000E+00   9.78428E-02
+    2.81879E-02   8.82918E-02   2.58635E-02   0.00000E+00   0.00000E+00
+    1.06209E-01   3.09226E-02   9.69113E-02   2.87156E-02   0.00000E+00
+    0.00000E+00   1.15854E-01   3.41140E-02   1.07262E-01   3.21832E-02
+    0.00000E+00   0.00000E+00   1.27402E-01   3.79825E-02   1.17234E-01
+    3.55659E-02   0.00000E+00   0.00000E+00   1.38301E-01   4.16798E-02
+    1.28083E-01   3.92931E-02   0.00000E+00   0.00000E+00   1.49983E-01
+    4.56930E-02   1.39879E-01   4.33978E-02   0.00000E+00   0.00000E+00
+    1.62533E-01   5.00603E-02   1.53253E-01   4.81125E-02   0.00000E+00
+    0.00000E+00   1.76833E-01   5.51017E-02   1.68292E-01   5.34848E-02
+    0.00000E+00   0.00000E+00   1.92750E-01   6.07875E-02   1.83709E-01
+    5.90659E-02   0.00000E+00   0.00000E+00   2.08664E-01   6.65483E-02
+    2.00428E-01   6.52010E-02   0.00000E+00   0.00000E+00   2.25786E-01
+    7.28313E-02   2.18535E-01   7.19369E-02   0.00000E+00   0.00000E+00
+    2.44182E-01   7.96748E-02   2.38127E-01   7.93274E-02   0.00000E+00
+    0.00000E+00   2.63768E-01   8.70631E-02   2.59295E-01   8.74261E-02
+    0.00000E+00   0.00000E+00   2.84676E-01   9.50618E-02   2.82135E-01
+    9.62900E-02   0.00000E+00   0.00000E+00   3.07026E-01   1.03736E-01
+    3.10298E-01   1.07380E-01   0.00000E+00   0.00000E+00   3.34824E-01
+    1.14682E-01   3.39767E-01   1.19155E-01   0.00000E+00   0.00000E+00
+    3.63234E-01   1.26034E-01   3.69409E-01   1.31179E-01   0.00000E+00
+    0.00000E+00   3.91226E-01   1.37389E-01   4.01232E-01   1.44284E-01
+    0.00000E+00   0.00000E+00   4.20787E-01   1.49562E-01   4.35322E-01
+    1.58541E-01   0.00000E+00   0.00000E+00   4.51929E-01   1.62587E-01
+    4.71753E-01   1.74018E-01   0.00000E+00   0.00000E+00   4.84683E-01
+    1.76501E-01   5.12777E-01   1.91724E-01   0.00000E+00   0.00000E+00
+    5.21545E-01   1.92411E-01   5.55962E-01   2.10667E-01   0.00000E+00
+    0.00000E+00   5.59431E-01   2.09029E-01   6.00455E-01   2.30507E-01
+    0.00000E+00   0.00000E+00   5.97687E-01   2.26088E-01   6.47516E-01
+    2.51845E-01   0.00000E+00   0.00000E+00   6.37243E-01   2.44023E-01
+    6.97107E-01   2.74715E-01   0.00000E+00   0.00000E+00   6.78223E-01
+    2.62922E-01   7.49181E-01   2.99148E-01   0.00000E+00   0.00000E+00
+    7.20345E-01   2.82686E-01   8.03644E-01   3.25156E-01   0.00000E+00
+    0.00000E+00   7.63447E-01   3.03268E-01   8.60368E-01   3.52731E-01
+    0.00000E+00   0.00000E+00   8.07363E-01   3.24618E-01   9.19166E-01
+    3.81841E-01   0.00000E+00   0.00000E+00   8.51825E-01   3.46629E-01
+    9.79855E-01   4.12449E-01   0.00000E+00   0.00000E+00   8.96400E-01
+    3.69110E-01   1.04213E+00   4.44455E-01   0.00000E+00   0.00000E+00
+    9.40990E-01   3.92029E-01   1.10470E+00   4.77240E-01   0.00000E+00
+    0.00000E+00   9.84067E-01   4.14599E-01   1.16861E+00   5.11389E-01
+    0.00000E+00   0.00000E+00   1.02679E+00   4.37431E-01   1.23347E+00
+    5.46750E-01   0.00000E+00   0.00000E+00   1.06868E+00   4.60267E-01
+    1.29842E+00   5.82891E-01   0.00000E+00   0.00000E+00   1.10900E+00
+    4.82701E-01   1.36304E+00   6.19607E-01   0.00000E+00   0.00000E+00
+    1.14723E+00   5.04423E-01   1.42680E+00   6.56612E-01   0.00000E+00
+    0.00000E+00   1.18311E+00   5.25246E-01   1.48921E+00   6.93633E-01
+    0.00000E+00   0.00000E+00   1.21621E+00   5.44883E-01   1.54982E+00
+    7.30396E-01   0.00000E+00   0.00000E+00   1.24612E+00   5.63024E-01
+    1.59324E+00   7.57340E-01   0.00000E+00   0.00000E+00   1.25928E+00
+    5.71192E-01   1.64677E+00   7.91339E-01   0.00000E+00   0.00000E+00
+    1.28063E+00   5.84748E-01   1.69814E+00   8.24755E-01   0.00000E+00
+    0.00000E+00   1.29898E+00   5.96687E-01   1.74613E+00   8.56743E-01
+    0.00000E+00   0.00000E+00   1.31354E+00   6.06392E-01   1.79052E+00
+    8.87081E-01   0.00000E+00   0.00000E+00   1.32418E+00   6.13661E-01
+    1.83101E+00   9.15481E-01   0.00000E+00   0.00000E+00   1.33097E+00
+    6.18423E-01   1.86755E+00   9.41786E-01   0.00000E+00   0.00000E+00
+    1.33396E+00   6.20576E-01   1.90001E+00   9.65799E-01   0.00000E+00
+    0.00000E+00   1.33332E+00   6.20102E-01   1.92841E+00   9.87404E-01
+    0.00000E+00   0.00000E+00   1.32928E+00   6.17029E-01   1.95284E+00
+    1.00653E+00   0.00000E+00   0.00000E+00   1.32209E+00   6.11403E-01
+    1.97207E+00   1.02203E+00   0.00000E+00   0.00000E+00   1.31099E+00
+    6.02452E-01   1.92400E+00   9.82079E-01   0.00000E+00   0.00000E+00
+    1.24787E+00   5.49997E-01   1.93853E+00   9.94542E-01   0.00000E+00
+    0.00000E+00   1.23534E+00   5.39246E-01   1.95059E+00   1.00522E+00
+    0.00000E+00   0.00000E+00   1.22143E+00   5.26934E-01   1.96040E+00
+    1.01421E+00   0.00000E+00   0.00000E+00   1.20650E+00   5.13253E-01
+    1.96827E+00   1.02167E+00   0.00000E+00   0.00000E+00   1.19075E+00
+    4.98325E-01   1.97440E+00   1.02770E+00   0.00000E+00   0.00000E+00
+    1.17451E+00   4.82365E-01   1.97907E+00   1.03245E+00   0.00000E+00
+    0.00000E+00   1.15802E+00   4.65549E-01   1.97686E+00   1.03012E+00
+    0.00000E+00   0.00000E+00   1.13750E+00   4.43795E-01   1.96529E+00
+    1.01734E+00   0.00000E+00   0.00000E+00   1.11153E+00   4.15137E-01
+    1.96807E+00   1.02055E+00   0.00000E+00   0.00000E+00   1.09664E+00
+    3.98011E-01   1.97031E+00   1.02323E+00   0.00000E+00   0.00000E+00
+    1.08226E+00   3.80721E-01   1.97220E+00   1.02562E+00   0.00000E+00
+    0.00000E+00   1.06847E+00   3.63378E-01   1.97384E+00   1.02778E+00
+    0.00000E+00   0.00000E+00   1.05538E+00   3.46104E-01   1.97158E+00
+    1.02464E+00   0.00000E+00   0.00000E+00   1.04059E+00   3.25571E-01
+    1.96332E+00   1.01256E+00   0.00000E+00   0.00000E+00   1.02295E+00
+    2.99771E-01   1.96584E+00   1.01646E+00   0.00000E+00   0.00000E+00
+    1.01310E+00   2.84535E-01   1.96841E+00   1.02068E+00   0.00000E+00
+    0.00000E+00   1.00404E+00   2.69663E-01   1.97110E+00   1.02538E+00
+    0.00000E+00   0.00000E+00   9.95762E-01   2.55193E-01   1.96723E+00
+    1.01815E+00   0.00000E+00   0.00000E+00   9.84311E-01   2.33792E-01
+    1.95941E+00   1.00244E+00   0.00000E+00   0.00000E+00   9.71414E-01
+    2.07891E-01   1.96361E+00   1.01156E+00   0.00000E+00   0.00000E+00
+    9.66397E-01   1.97000E-01   1.96778E+00   1.02139E+00   0.00000E+00
+    0.00000E+00   9.61951E-01   1.86508E-01   1.97185E+00   1.03192E+00
+    0.00000E+00   0.00000E+00   9.58051E-01   1.76419E-01   1.97582E+00
+    1.04329E+00   0.00000E+00   0.00000E+00   9.54669E-01   1.66743E-01
+    1.97962E+00   1.05546E+00   0.00000E+00   0.00000E+00   9.51776E-01
+    1.57481E-01   1.98322E+00   1.06854E+00   0.00000E+00   0.00000E+00
+    9.49340E-01   1.48626E-01   1.98288E+00   1.06712E+00   0.00000E+00
+    0.00000E+00   9.45424E-01   1.32176E-01   1.98410E+00   1.07318E+00
+    0.00000E+00   0.00000E+00   9.42952E-01   1.19876E-01   1.98701E+00
+    1.09092E+00   0.00000E+00   0.00000E+00   9.41916E-01   1.13555E-01
+    1.98937E+00   1.10960E+00   0.00000E+00   0.00000E+00   9.41152E-01
+    1.07521E-01   1.99113E+00   1.12923E+00   0.00000E+00   0.00000E+00
+    9.40637E-01   1.01772E-01   1.99222E+00   1.14988E+00   0.00000E+00
+    0.00000E+00   9.40349E-01   9.62890E-02   1.99234E+00   1.15779E+00
+    0.00000E+00   0.00000E+00   9.40170E-01   8.46495E-02   1.99369E+00
+    1.09565E+00  -8.06911E-04   3.70547E-02   9.40314E-01   7.80604E-02
+    1.99258E+00   1.11448E+00  -8.93760E-04   3.85293E-02   9.40539E-01
+    7.42367E-02   1.99071E+00   1.13397E+00  -1.04049E-03   4.00574E-02
+    9.40889E-01   7.05886E-02   1.98803E+00   1.15413E+00  -1.24939E-03
+    4.16264E-02   9.41352E-01   6.71171E-02   1.98449E+00   1.17492E+00
+   -1.52376E-03   4.32379E-02   9.41917E-01   6.37950E-02   1.98003E+00
+    1.19643E+00  -1.86717E-03   4.48938E-02   9.42574E-01   6.06318E-02
+    1.97461E+00   1.21858E+00  -2.28335E-03   4.65959E-02   9.43310E-01
+    5.76180E-02   1.96818E+00   1.24141E+00  -2.77623E-03   4.83461E-02
+    9.44116E-01   5.47534E-02   1.96069E+00   1.26492E+00  -3.34995E-03
+    5.01460E-02   9.44989E-01   5.20158E-02   1.95209E+00   1.28907E+00
+   -4.00880E-03   5.19974E-02   9.45915E-01   4.94178E-02   2.01175E+00
+    1.13726E+00  -3.01144E-02   1.18426E-01   9.47794E-01   4.46345E-02
+    2.04524E+00   1.05938E+00  -4.59458E-02   1.55233E-01   9.49157E-01
+    4.14649E-02   2.04123E+00   1.06798E+00  -4.81144E-02   1.59875E-01
+    9.50017E-01   3.96243E-02   2.03703E+00   1.07631E+00  -5.04813E-02
+    1.64568E-01   9.50904E-01   3.78666E-02   2.03272E+00   1.08426E+00
+   -5.30479E-02   1.69308E-01   9.51817E-01   3.61790E-02   2.02834E+00
+    1.09184E+00  -5.58159E-02   1.74092E-01   9.52750E-01   3.45669E-02
+    2.02391E+00   1.09903E+00  -5.87864E-02   1.78916E-01   9.53699E-01
+    3.30271E-02   2.01953E+00   1.10575E+00  -6.19588E-02   1.83775E-01
+    9.54665E-01   3.15466E-02   2.19371E+00   8.53287E-01  -1.21757E-01
+    2.70445E-01   9.56454E-01   2.89535E-02   2.21653E+00   8.21912E-01
+   -1.31274E-01   2.83534E-01   9.57398E-01   2.76545E-02   2.22303E+00
+    8.13408E-01  -1.35347E-01   2.88864E-01   9.58269E-01   2.65161E-02
+    2.23052E+00   8.04057E-01  -1.39522E-01   2.94073E-01   9.59148E-01
+    2.54194E-02   2.23912E+00   7.93793E-01  -1.43779E-01   2.99151E-01
+    9.60032E-01   2.43661E-02   2.24886E+00   7.82678E-01  -1.48101E-01
+    3.04087E-01   9.60917E-01   2.33526E-02   2.25982E+00   7.70665E-01
+   -1.52463E-01   3.08866E-01   9.61806E-01   2.23799E-02   2.27210E+00
+    7.57730E-01  -1.56841E-01   3.13475E-01   9.62695E-01   2.14438E-02
+    2.28575E+00   7.43902E-01  -1.61213E-01   3.17905E-01   9.63588E-01
+    2.05382E-02   2.30085E+00   7.29162E-01  -1.65549E-01   3.22140E-01
+    9.64476E-01   1.96711E-02   2.31744E+00   7.13522E-01  -1.69825E-01
+    3.26169E-01   9.65362E-01   1.88377E-02   2.60222E+00   4.54232E-01
+   -2.40197E-01   3.90243E-01   9.67071E-01   1.72802E-02   2.60222E+00
+    4.54232E-01  -2.40197E-01   3.90243E-01   9.67071E-01   1.72802E-02
+ MEDIUM=LEAD-3MEV-10KEV-02KEV   ,STERNCID=LEAD-3MEV-10KEV-02KEV   
+ ELEM,RHO= 1.1340E+01,NE= 1
+ ASYM=PB,Z=82.,A=  207.190,PZ= 1.00000E+00,RHOZ= 2.07190E+02
+    5.61722E-01   5.21000E-01   2.00000E-03   3.51100E+00   3.00200E+00
+     0  200    0  150    0    0    0    0
+    9.99978E-01  -2.54427E-01   5.83850E-02   9.95017E-01  -2.73094E-01
+    9.52000E-01   1.00027E+00  -2.16315E-01   4.17018E-02   1.01715E+00
+   -2.79168E-01   9.52000E-01   1.00042E+00  -1.96617E-01   3.01774E-02
+    1.02859E+00  -2.82308E-01   9.52000E-01   9.99976E-01  -2.78543E-01
+    6.39190E-02   9.94545E-01  -2.98980E-01   9.52000E-01   1.00029E+00
+   -2.37319E-01   4.57509E-02   1.01881E+00  -3.06275E-01   9.52000E-01
+    1.00046E+00  -2.15944E-01   3.31437E-02   1.03140E+00  -3.10058E-01
+    9.52000E-01
+    1.59966E+01   9.44751E-01   8.53032E-01   2.33006E+00   9.46747E-01
+    8.52630E-01   1.68084E+00
+    2.95540E-01   5.91168E-04   3.38378E+04   5.73000E+00
+    1.21501E+02   2.59409E+01
+    1.38378E+01   2.18057E+00   4.15774E+03   9.01448E+02  -9.28571E+01
+   -3.18232E+01  -1.73032E+02  -5.14711E+01   1.00000E+00   0.00000E+00
+   -6.80463E+01  -1.49172E+01   3.60754E+01   7.68879E+00   3.38669E-05
+    6.47600E-06   1.38378E+01   2.18057E+00   4.15774E+03   9.01448E+02
+   -9.28571E+01  -3.18232E+01  -1.73032E+02  -5.14711E+01   1.00000E+00
+    0.00000E+00  -6.80463E+01  -1.49172E+01   3.60754E+01   7.68879E+00
+    3.38669E-05   6.47600E-06   1.37859E+01   2.16920E+00   3.70100E+03
+    8.01462E+02  -9.05610E+01  -3.13206E+01  -1.65792E+02  -4.98861E+01
+    1.00000E+00   0.00000E+00  -4.80270E+00  -1.07266E+00   3.49096E+00
+    5.55774E-01   3.58038E-05   6.89999E-06   1.37311E+01   2.15710E+00
+    3.28299E+03   7.09179E+02  -8.82330E+01  -3.08067E+01  -1.58765E+02
+   -4.83347E+01   1.00000E+00   0.00000E+00  -1.67899E+00  -3.83037E-01
+    1.88220E+00   2.00610E-01   3.78648E-05   7.35502E-06   1.36789E+01
+    2.14548E+00   2.90617E+03   6.25273E+02  -8.59188E+01  -3.02913E+01
+   -1.52040E+02  -4.68374E+01   1.00000E+00   0.00000E+00  -8.27818E-01
+   -1.93510E-01   1.44437E+00   1.03118E-01   4.00554E-05   7.84278E-06
+    1.36228E+01   2.13287E+00   2.56505E+03   5.48660E+02  -8.35381E+01
+   -2.97566E+01  -1.45475E+02  -4.53629E+01   1.00000E+00   0.00000E+00
+   -4.75735E-01  -1.14434E-01   1.26371E+00   6.25425E-02   4.23621E-05
+    8.36087E-06   1.35690E+01   2.12069E+00   2.25801E+03   4.79099E+02
+   -8.12207E+01  -2.92316E+01  -1.39251E+02  -4.39528E+01   1.00000E+00
+    0.00000E+00  -2.96636E-01  -7.38577E-02   1.17221E+00   4.18120E-02
+    4.48076E-05   8.91492E-06   1.35139E+01   2.10810E+00   1.98094E+03
+    4.15773E+02  -7.88855E+01  -2.86980E+01  -1.33230E+02  -4.25766E+01
+    1.00000E+00   0.00000E+00  -1.92925E-01  -5.01544E-02   1.11957E+00
+    2.97815E-02   4.73932E-05   9.50586E-06   1.34572E+01   2.09502E+00
+    1.73181E+03   3.58329E+02  -7.65393E+01  -2.81569E+01  -1.27408E+02
+   -4.12342E+01   1.00000E+00   0.00000E+00  -1.27385E-01  -3.50418E-02
+    1.08661E+00   2.21832E-02   5.01236E-05   1.01354E-05   1.34029E+01
+    2.08239E+00   1.50790E+03   3.06235E+02  -7.42349E+01  -2.76208E+01
+   -1.21849E+02  -3.99410E+01   1.00000E+00   0.00000E+00  -8.31078E-02
+   -2.47408E-02   1.06464E+00   1.70717E-02   5.30194E-05   1.08091E-05
+    1.33482E+01   2.06955E+00   1.30689E+03   2.59046E+02  -7.19446E+01
+   -2.70832E+01  -1.16497E+02  -3.86844E+01   1.00000E+00   0.00000E+00
+   -5.16170E-02  -1.73480E-02   1.04930E+00   1.34688E-02   5.60775E-05
+    1.15270E-05   1.32921E+01   2.05626E+00   1.12645E+03   2.16301E+02
+   -6.96718E+01  -2.65448E+01  -1.11343E+02  -3.74634E+01   1.00000E+00
+    0.00000E+00  -2.82332E-02  -1.18084E-02   1.03815E+00   1.08296E-02
+    5.93090E-05   1.22926E-05   1.32377E+01   2.04324E+00   9.65164E+02
+    1.77739E+02  -6.74227E+01  -2.60070E+01  -1.06389E+02  -3.62789E+01
+    1.00000E+00   0.00000E+00  -1.02614E-02  -7.51167E-03   1.02984E+00
+    8.84121E-03   6.27297E-05   1.31105E-05   1.31836E+01   2.03019E+00
+    8.20988E+02   1.42948E+02  -6.52144E+01  -2.54741E+01  -1.01644E+02
+   -3.51341E+01   1.00000E+00   0.00000E+00   4.00231E-03  -4.06971E-03
+    1.02344E+00   7.29801E-03   6.63457E-05   1.39830E-05   1.31385E+01
+    2.01920E+00   6.92275E+02   1.11597E+02  -6.30148E+01  -2.49383E+01
+   -9.70569E+01  -3.40168E+01   1.00000E+00   0.00000E+00   1.56814E-02
+   -1.22493E-03   1.01843E+00   6.07814E-03   7.01635E-05   1.49129E-05
+    1.30985E+01   2.00936E+00   5.77772E+02   8.34425E+01  -6.08591E+01
+   -2.44083E+01  -9.26632E+01  -3.29364E+01   1.00000E+00   0.00000E+00
+    2.54630E-02   1.18018E-03   1.01446E+00   5.09933E-03   7.42059E-05
+    1.59069E-05   1.30381E+01   1.99438E+00   4.75954E+02   5.81679E+01
+   -5.87355E+01  -2.38811E+01  -8.84405E+01  -3.18882E+01   1.00000E+00
+    0.00000E+00   3.37550E-02   3.23853E-03   1.01122E+00   4.29536E-03
+    7.84667E-05   1.69646E-05   1.29761E+01   1.97885E+00   3.85628E+02
+    3.55290E+01  -5.66634E+01  -2.33618E+01  -8.44037E+01  -3.08763E+01
+    1.00000E+00   0.00000E+00   4.09856E-02   5.05075E-03   1.00855E+00
+    3.62892E-03   8.29758E-05   1.80947E-05   1.29222E+01   1.96520E+00
+    3.05912E+02   1.53545E+01  -5.46043E+01  -2.28407E+01  -8.04961E+01
+   -2.98876E+01   1.00000E+00   0.00000E+00   4.74257E-02   6.68064E-03
+    1.00635E+00   3.07075E-03   8.77409E-05   1.93007E-05   1.88874E+03
+    4.81374E+02   2.35547E+02  -2.62908E+00  -7.17020E+01  -2.72104E+01
+   -7.67519E+01  -2.89307E+01  -7.78539E+01  -2.01529E+01   5.32157E-02
+    8.16039E-03   1.00450E+00   2.59761E-03   9.27696E-05   2.05858E-05
+    1.57928E+03   4.01496E+02   1.73752E+02  -1.85793E+01  -6.72794E+01
+   -2.60688E+01  -7.31733E+01  -2.80069E+01  -8.42468E+00  -2.23213E+00
+    5.85313E-02   9.53240E-03   1.00292E+00   2.18942E-03   9.80937E-05
+    2.19601E-05   1.33024E+03   3.36571E+02   1.19641E+02  -3.26866E+01
+   -6.33508E+01  -2.50446E+01  -6.97147E+01  -2.71052E+01  -3.10946E+00
+   -8.46404E-01   6.34546E-02   1.08160E-02   1.00156E+00   1.83688E-03
+    1.03695E-04   2.34203E-05   1.12852E+03   2.83445E+02   7.23967E+01
+   -4.51286E+01  -5.98460E+01  -2.41216E+01  -6.64195E+01  -2.62374E+01
+   -1.56079E+00  -4.38552E-01   6.80874E-02   1.20360E-02   1.00040E+00
+    1.52919E-03   1.09634E-04   2.49845E-05   9.62953E+02   2.39395E+02
+    3.13938E+01  -5.60376E+01  -5.66457E+01  -2.32702E+01  -6.32386E+01
+   -2.53911E+01  -9.02506E-01  -2.63410E-01   7.24842E-02   1.32058E-02
+    9.99394E-01   1.26170E-03   1.15879E-04   2.66460E-05   8.26362E+02
+    2.02677E+02  -3.97568E+00  -6.55453E+01  -5.37158E+01  -2.24825E+01
+   -6.01979E+01  -2.45737E+01  -5.63228E-01  -1.72207E-01   7.66993E-02
+    1.43389E-02   9.98491E-01   1.02049E-03   1.22483E-04   2.84213E-05
+    7.12343E+02   1.71706E+02  -3.43071E+01  -7.37844E+01  -5.09878E+01
+   -2.17416E+01  -5.72682E+01  -2.37779E+01  -3.65667E-01  -1.18543E-01
+    8.07349E-02   1.54352E-02   9.97718E-01   8.10207E-04   1.29448E-04
+    3.03130E-05   6.16761E+02   1.45469E+02  -6.02293E+01  -8.09003E+01
+   -4.84576E+01  -2.10470E+01  -5.44777E+01  -2.30119E+01  -2.40716E-01
+   -8.42439E-02   8.46892E-02   1.65206E-02   9.97025E-01   6.20029E-04
+    1.36809E-04   3.23337E-05   5.35843E+02   1.23019E+02  -8.19678E+01
+   -8.69310E+01  -4.60556E+01  -2.03806E+01  -5.17767E+01  -2.22626E+01
+   -1.56598E-01  -6.09063E-02   8.85101E-02   1.75807E-02   9.96407E-01
+    4.48397E-04   1.44553E-04   3.44823E-05   4.67143E+02   1.03752E+02
+   -1.00280E+02  -9.20669E+01  -4.38071E+01  -1.97500E+01  -4.92086E+01
+   -2.15424E+01  -9.72094E-02  -4.42513E-02   9.23130E-02   1.86471E-02
+    9.95869E-01   2.95324E-04   1.52737E-04   3.67775E-05   4.08111E+02
+    8.70169E+01  -1.15235E+02  -9.63062E+01  -4.16582E+01  -1.91408E+01
+   -4.67303E+01  -2.08397E+01  -5.36229E-02  -3.18944E-02   9.59694E-02
+    1.96837E-02   9.95355E-01   1.51527E-04   1.61356E-04   3.92208E-05
+    3.57452E+02   7.24960E+01  -1.27424E+02  -9.98005E+01  -3.96226E+01
+   -1.85573E+01  -4.43652E+01  -2.01618E+01  -2.05192E-02  -2.24057E-02
+    9.96586E-02   2.07412E-02   9.94922E-01   2.78316E-05   1.70449E-04
+    4.18274E-05   3.13444E+02   5.97407E+01  -1.37103E+02  -1.02606E+02
+   -3.76817E+01  -1.79948E+01  -4.20995E+01  -1.95051E+01   5.34559E-03
+   -1.49090E-02   1.03288E-01   2.17930E-02   9.94520E-01  -8.96794E-05
+    1.80030E-04   4.46042E-05   2.75311E+02   4.85634E+01  -1.44404E+02
+   -1.04746E+02  -3.58130E+01  -1.74470E+01  -3.99153E+01  -1.88649E+01
+    2.59780E-02  -8.86145E-03   1.06879E-01   2.28456E-02   9.94155E-01
+   -1.97913E-04   1.90115E-04   4.75604E-05   2.41981E+02   3.86823E+01
+   -1.49869E+02  -1.06366E+02  -3.40351E+01  -1.69200E+01  -3.78353E+01
+   -1.82483E+01   4.28560E-02  -3.85767E-03   1.10466E-01   2.39090E-02
+    9.93828E-01  -2.93777E-04   2.00756E-04   5.07151E-05   2.12814E+02
+    2.99352E+01  -1.53498E+02  -1.07454E+02  -3.23258E+01  -1.64074E+01
+   -3.58381E+01  -1.76494E+01   5.69175E-02   3.59201E-04   1.14026E-01
+    2.49769E-02   9.93518E-01  -3.86549E-04   2.11947E-04   5.40709E-05
+    1.87210E+02   2.21674E+01  -1.55648E+02  -1.08106E+02  -3.06847E+01
+   -1.59095E+01  -3.39243E+01  -1.70687E+01   6.88306E-02   3.97365E-03
+    1.17577E-01   2.60541E-02   9.93246E-01  -4.68501E-04   2.23734E-04
+    5.76472E-05   1.64674E+02   1.52490E+01  -1.56432E+02  -1.08347E+02
+   -2.91117E+01  -1.54265E+01  -3.20950E+01  -1.65071E+01   7.91150E-02
+    7.13087E-03   1.21122E-01   2.71424E-02   9.92999E-01  -5.44261E-04
+    2.36153E-04   6.14596E-05   1.44814E+02   9.07887E+00  -1.56046E+02
+   -1.08227E+02  -2.75964E+01  -1.49558E+01  -3.03391E+01  -1.59616E+01
+    8.80845E-02   9.91741E-03   1.24642E-01   2.82361E-02   9.92764E-01
+   -6.18479E-04   2.49195E-04   6.55113E-05   1.27284E+02   3.56699E+00
+   -1.54683E+02  -1.07799E+02  -2.61435E+01  -1.44990E+01  -2.86623E+01
+   -1.54344E+01   9.60575E-02   1.24244E-02   1.28175E-01   2.93469E-02
+    9.92560E-01  -6.81873E-04   2.62932E-04   6.98309E-05   1.11867E+02
+   -1.34007E+00  -1.52393E+02  -1.07070E+02  -2.47437E+01  -1.40534E+01
+   -2.70534E+01  -1.49223E+01   1.03169E-01   1.46880E-02   1.31682E-01
+    3.04629E-02   9.92368E-01  -7.43721E-04   2.77364E-04   7.44244E-05
+    9.82362E+01  -5.73236E+00  -1.49399E+02  -1.06105E+02  -2.34011E+01
+   -1.36208E+01  -2.55171E+01  -1.44272E+01   1.09631E-01   1.67702E-02
+    1.35189E-01   3.15932E-02   9.92195E-01  -7.99384E-04   2.92551E-04
+    7.93181E-05   8.62015E+01  -9.65935E+00  -1.45802E+02  -1.04932E+02
+   -2.21098E+01  -1.31994E+01  -2.40460E+01  -1.39472E+01   1.15533E-01
+    1.86959E-02   1.38680E-01   3.27324E-02   9.92040E-01  -8.50409E-04
+    3.08504E-04   8.45237E-05   7.56377E+01  -1.31500E+01  -1.41620E+02
+   -1.03549E+02  -2.08690E+01  -1.27894E+01  -2.26398E+01  -1.34825E+01
+    1.20983E-01   2.04972E-02   1.42164E-01   3.38835E-02   9.91892E-01
+   -8.98341E-04   3.25264E-04   9.00619E-05   6.63255E+01  -1.62671E+01
+   -1.37020E+02  -1.02010E+02  -1.96752E+01  -1.23899E+01  -2.12924E+01
+   -1.30315E+01   1.26046E-01   2.21915E-02   1.45622E-01   3.50411E-02
+    9.91756E-01  -9.43180E-04   3.42863E-04   9.59526E-05   5.81612E+01
+   -1.90357E+01  -1.32069E+02  -1.00331E+02  -1.85292E+01  -1.20012E+01
+   -2.00054E+01  -1.25951E+01   1.30794E-01   2.38015E-02   1.49074E-01
+    3.62115E-02   9.91644E-01  -9.81835E-04   3.61332E-04   1.02215E-04
+    5.10379E+01  -2.14829E+01  -1.26813E+02  -9.85252E+01  -1.74280E+01
+   -1.16229E+01  -1.87743E+01  -1.21722E+01   1.35234E-01   2.53270E-02
+    1.52484E-01   3.73833E-02   9.91533E-01  -1.01894E-03   3.80727E-04
+    1.08879E-04   4.48229E+01  -2.36470E+01  -1.21350E+02  -9.66226E+01
+   -1.63718E+01  -1.12551E+01  -1.75989E+01  -1.17628E+01   1.39472E-01
+    2.68030E-02   1.55897E-01   3.85716E-02   9.91446E-01  -1.04987E-03
+    4.01071E-04   1.15963E-04   3.94489E+01  -2.55439E+01  -1.15721E+02
+   -9.46362E+01  -1.53572E+01  -1.08970E+01  -1.64748E+01  -1.13661E+01
+    1.43469E-01   2.82133E-02   1.59264E-01   3.97599E-02   9.91354E-01
+   -1.08234E-03   4.22386E-04   1.23486E-04   3.48114E+01  -2.72028E+01
+   -1.09967E+02  -9.25775E+01  -1.43836E+01  -1.05487E+01  -1.54010E+01
+   -1.09819E+01   1.47295E-01   2.95824E-02   1.62605E-01   4.09553E-02
+    9.91286E-01  -1.10553E-03   4.44752E-04   1.31488E-04   3.08452E+01
+   -2.86420E+01  -1.04132E+02  -9.04602E+01  -1.34492E+01  -1.02097E+01
+   -1.43744E+01  -1.06095E+01   1.50934E-01   3.09025E-02   1.65889E-01
+    4.21468E-02   9.91218E-01  -1.13182E-03   4.68173E-04   1.39985E-04
+    2.75028E+01  -2.98716E+01  -9.82631E+01  -8.83010E+01  -1.25534E+01
+   -9.88005E+00  -1.33947E+01  -1.02490E+01   1.54468E-01   3.22028E-02
+    1.69178E-01   4.33570E-02   9.91174E-01  -1.14728E-03   4.92707E-04
+    1.49013E-04   2.46885E+01  -3.09222E+01  -9.23954E+01  -8.61109E+01
+   -1.16940E+01  -9.55928E+00  -1.24581E+01  -9.89942E+00   1.57799E-01
+    3.34464E-02   1.72365E-01   4.45463E-02   9.91125E-01  -1.16583E-03
+    5.18381E-04   1.58595E-04   2.23745E+01  -3.17985E+01  -8.65514E+01
+   -8.38978E+01  -1.08718E+01  -9.24792E+00  -1.15654E+01  -9.56134E+00
+    1.61032E-01   3.46706E-02   1.75525E-01   4.57433E-02   9.91088E-01
+   -1.17975E-03   5.45270E-04   1.68778E-04   2.04809E+01  -3.25263E+01
+   -8.07676E+01  -8.16752E+01  -1.00834E+01  -8.94494E+00  -1.07131E+01
+   -9.23379E+00   1.64136E-01   3.58635E-02   1.78617E-01   4.69315E-02
+    9.91063E-01  -1.18903E-03   5.73373E-04   1.79578E-04   1.90028E+01
+   -3.31030E+01  -7.50479E+01  -7.94440E+01  -9.32785E+00  -8.65022E+00
+   -9.89863E+00  -8.91612E+00   1.67142E-01   3.70361E-02   1.81666E-01
+    4.81208E-02   9.91051E-01  -1.19521E-03   6.02772E-04   1.91046E-04
+    1.78783E+01  -3.35483E+01  -6.94121E+01  -7.72117E+01  -8.60502E+00
+   -8.36394E+00  -9.12247E+00  -8.60871E+00   1.70030E-01   3.81799E-02
+    1.84637E-01   4.92973E-02   9.91032E-01  -1.20140E-03   6.33484E-04
+    2.03209E-04   1.70629E+01  -3.38760E+01  -6.38959E+01  -7.49933E+01
+   -7.91336E+00  -8.08577E+00  -8.38207E+00  -8.31092E+00   1.72808E-01
+    3.92972E-02   1.87534E-01   5.04626E-02   9.91032E-01  -1.20140E-03
+    6.65556E-04   2.16108E-04   1.65368E+01  -3.40910E+01  -5.84897E+01
+   -7.27850E+01  -7.25144E+00  -7.81537E+00  -7.67572E+00  -8.02239E+00
+    1.75491E-01   4.03932E-02   1.90359E-01   5.16163E-02   9.91032E-01
+   -1.19985E-03   6.99053E-04   2.29792E-04   1.62526E+01  -3.42089E+01
+   -5.32268E+01  -7.06006E+01  -6.61876E+00  -7.55279E+00  -7.00276E+00
+   -7.74308E+00   1.78078E-01   4.14669E-02   1.93104E-01   5.27559E-02
+    9.91057E-01  -1.19212E-03   7.34007E-04   2.44299E-04   1.61997E+01
+   -3.42313E+01  -4.80885E+01  -6.84331E+01  -6.01348E+00  -7.29748E+00
+   -6.36067E+00  -7.47224E+00   1.80552E-01   4.25104E-02   1.95748E-01
+    5.38710E-02   9.91069E-01  -1.18594E-03   7.70453E-04   2.59672E-04
+    1.63389E+01  -3.41715E+01  -4.31051E+01  -6.62964E+01  -5.43529E+00
+   -7.04957E+00  -5.74923E+00  -7.21008E+00   1.82948E-01   4.35376E-02
+    1.98317E-01   5.49725E-02   9.91100E-01  -1.17511E-03   8.08443E-04
+    2.75961E-04   1.66528E+01  -3.40347E+01  -3.82748E+01  -6.41906E+01
+   -4.88331E+00  -6.80891E+00  -5.16677E+00  -6.95616E+00   1.85222E-01
+    4.45289E-02   2.00772E-01   5.60427E-02   9.91131E-01  -1.15965E-03
+    8.48038E-04   2.93223E-04   1.71171E+01  -3.38289E+01  -3.35962E+01
+   -6.21161E+01  -4.35602E+00  -6.57510E+00  -4.61202E+00  -6.71015E+00
+    1.87440E-01   4.55125E-02   2.03156E-01   5.71001E-02   9.91168E-01
+   -1.14109E-03   8.89267E-04   3.11506E-04   1.77148E+01  -3.35592E+01
+   -2.90746E+01  -6.00762E+01  -3.85233E+00  -6.34787E+00  -4.08335E+00
+   -6.47164E+00   1.89531E-01   4.64561E-02   2.05412E-01   5.81177E-02
+    9.91218E-01  -1.12099E-03   9.32160E-04   3.30856E-04   1.84226E+01
+   -3.32342E+01  -2.47162E+01  -5.80751E+01  -3.37244E+00  -6.12754E+00
+   -3.58070E+00  -6.24087E+00   1.91544E-01   4.73799E-02   2.07573E-01
+    5.91100E-02   9.91273E-01  -1.09625E-03   9.76800E-04   3.51351E-04
+    1.92249E+01  -3.28593E+01  -2.05224E+01  -5.61149E+01  -2.91437E+00
+   -5.91345E+00  -3.10214E+00  -6.01718E+00   1.93434E-01   4.82634E-02
+    2.09600E-01   6.00576E-02   9.91323E-01  -1.07151E-03   1.02319E-03
+    3.73034E-04   2.01131E+01  -3.24364E+01  -1.64826E+01  -5.41920E+01
+   -2.47787E+00  -5.70569E+00  -2.64709E+00  -5.80061E+00   1.95245E-01
+    4.91256E-02   2.11528E-01   6.09751E-02   9.91385E-01  -1.04059E-03
+    1.07141E-03   3.95985E-04   2.10675E+01  -3.19737E+01  -1.26035E+01
+   -5.23112E+01  -2.06137E+00  -5.50375E+00  -2.21371E+00  -5.59046E+00
+    1.96962E-01   4.99582E-02   2.13340E-01   6.18537E-02   9.91459E-01
+   -1.00657E-03   1.12146E-03   4.20251E-04   2.20760E+01  -3.14753E+01
+   -8.88749E+00  -5.04752E+01  -1.66509E+00  -5.30793E+00  -1.80225E+00
+   -5.38717E+00   1.98585E-01   5.07601E-02   2.15038E-01   6.26925E-02
+    9.91533E-01  -9.69466E-04   1.17342E-03   4.45928E-04   2.31309E+01
+   -3.09441E+01  -5.32268E+00  -4.86795E+01  -1.28772E+00  -5.11786E+00
+   -1.41102E+00  -5.19010E+00   2.00108E-01   5.15268E-02   2.16608E-01
+    6.34832E-02   9.91607E-01  -9.33903E-04   1.22730E-03   4.73067E-04
+    2.42164E+01  -3.03864E+01  -1.91660E+00  -4.69301E+01  -9.28367E-01
+   -4.93327E+00  -1.03925E+00  -4.99915E+00   2.01520E-01   5.22525E-02
+    2.18046E-01   6.42221E-02   9.91691E-01  -8.90615E-04   1.28317E-03
+    5.01767E-04   2.53297E+01  -2.98030E+01   1.34185E+00  -4.52224E+01
+   -5.86417E-01  -4.75407E+00  -6.86116E-01  -4.81409E+00   2.02853E-01
+    5.29511E-02   2.19375E-01   6.49186E-02   9.91777E-01  -8.44224E-04
+    1.34103E-03   5.32087E-04   2.64598E+01  -2.91987E+01   4.45186E+00
+   -4.35591E+01  -2.61270E-01  -4.58016E+00  -3.50851E-01  -4.63476E+00
+    2.04078E-01   5.36061E-02   2.20570E-01   6.55580E-02   9.91867E-01
+   -7.96292E-04   1.40095E-03   5.64131E-04   2.75970E+01  -2.85777E+01
+    7.41581E+00  -4.19402E+01   4.75981E-02  -4.41147E+00  -3.28536E-02
+   -4.46110E+00   2.05213E-01   5.42261E-02   2.21649E-01   6.61465E-02
+    9.91960E-01  -7.46813E-04   1.46294E-03   5.97989E-04   2.87362E+01
+   -2.79420E+01   1.02388E+01  -4.03656E+01   3.41252E-01  -4.24766E+00
+    2.69038E-01  -4.29269E+00   2.06239E-01   5.47984E-02   2.22590E-01
+    6.66718E-02   9.92056E-01  -6.92696E-04   1.52704E-03   6.33745E-04
+    2.98683E+01  -2.72966E+01   1.29210E+01  -3.88363E+01   6.20136E-01
+   -4.08868E+00   5.55345E-01  -4.12946E+00   2.07091E-01   5.52841E-02
+    2.23332E-01   6.70947E-02   9.92151E-01  -6.38579E-04   1.59327E-03
+    6.71503E-04   3.10114E+01  -2.66304E+01   1.54879E+01  -3.73401E+01
+    8.84870E-01  -3.93435E+00   8.26659E-01  -3.97130E+00   2.08108E-01
+    5.58771E-02   2.24206E-01   6.76044E-02   9.92254E-01  -5.78278E-04
+    1.66169E-03   7.11386E-04   3.21261E+01  -2.59656E+01   1.79123E+01
+   -3.58943E+01   1.13600E+00  -3.78460E+00   1.08380E+00  -3.81796E+00
+    2.08822E-01   5.63026E-02   2.24756E-01   6.79320E-02   9.92356E-01
+   -5.17976E-04   1.73227E-03   7.53478E-04   3.32152E+01  -2.53008E+01
+    2.02022E+01  -3.44967E+01   1.37404E+00  -3.63932E+00   1.32718E+00
+   -3.66942E+00   2.09366E-01   5.66349E-02   2.25114E-01   6.81508E-02
+    9.92458E-01  -4.56128E-04   1.80508E-03   7.97916E-04   3.42974E+01
+   -2.46244E+01   2.23864E+01  -3.31315E+01   1.59976E+00  -3.49822E+00
+    1.55773E+00  -3.52532E+00   2.09975E-01   5.70154E-02   2.25507E-01
+    6.83964E-02   9.92563E-01  -3.89642E-04   1.88011E-03   8.44814E-04
+    3.53532E+01  -2.39481E+01   2.44498E+01  -3.18098E+01   1.81345E+00
+   -3.36135E+00   1.77573E+00  -3.38568E+00   2.10449E-01   5.73191E-02
+    2.25746E-01   6.85495E-02   9.92665E-01  -3.24701E-04   1.95739E-03
+    8.94312E-04   3.63804E+01  -2.32736E+01   2.63996E+01  -3.05293E+01
+    2.01583E+00  -3.22844E+00   1.98194E+00  -3.25025E+00   2.10832E-01
+    5.75705E-02   2.25871E-01   6.86319E-02   9.92776E-01  -2.52032E-04
+    2.03692E-03   9.46541E-04   3.73817E+01  -2.25989E+01   2.82428E+01
+   -2.92874E+01   2.20720E+00  -3.09951E+00   2.17675E+00  -3.11901E+00
+    2.11124E-01   5.77675E-02   2.25889E-01   6.86438E-02   9.92881E-01
+   -1.80905E-04   2.11871E-03   1.00165E-03   3.83495E+01  -2.19296E+01
+    2.99787E+01  -2.80867E+01   2.38822E+00  -2.97429E+00   2.36086E+00
+   -2.99166E+00   2.11320E-01   5.79028E-02   2.25792E-01   6.85769E-02
+    9.92983E-01  -1.09780E-04   2.20276E-03   1.05979E-03   3.92895E+01
+   -2.12614E+01   3.16196E+01  -2.69206E+01   2.55912E+00  -2.85283E+00
+    2.53450E+00  -2.86823E+00   2.11476E-01   5.80137E-02   2.25640E-01
+    6.84683E-02   9.93092E-01  -3.24701E-05   2.28909E-03   1.12114E-03
+    4.01922E+01  -2.06018E+01   3.31598E+01  -2.57950E+01   2.72049E+00
+   -2.73490E+00   2.69830E+00  -2.74854E+00   2.11515E-01   5.80419E-02
+    2.25357E-01   6.82619E-02   9.93194E-01   4.17473E-05   2.37766E-03
+    1.18586E-03   4.10622E+01  -1.99477E+01   3.46093E+01  -2.47051E+01
+    2.87276E+00  -2.62043E+00   2.85272E+00  -2.63244E+00   2.11482E-01
+    5.80176E-02   2.24991E-01   6.79871E-02   9.93296E-01   1.17511E-04
+    2.46846E-03   1.25414E-03   4.18974E+01  -1.93009E+01   3.59699E+01
+   -2.36516E+01   3.01619E+00  -2.50935E+00   2.99810E+00  -2.51987E+00
+    2.11388E-01   5.79441E-02   2.24556E-01   6.76500E-02   9.93398E-01
+    1.97913E-04   2.56149E-03   1.32617E-03   4.26970E+01  -1.86628E+01
+    3.72469E+01  -2.26324E+01   3.15134E+00  -2.40149E+00   3.13496E+00
+   -2.41063E+00   2.11211E-01   5.78034E-02   2.24029E-01   6.72294E-02
+    9.93494E-01   2.73677E-04   2.65671E-03   1.40217E-03   4.34606E+01
+   -1.80341E+01   3.84417E+01  -2.16485E+01   3.27849E+00  -2.29677E+00
+    3.26360E+00  -2.30470E+00   2.10984E-01   5.76160E-02   2.23449E-01
+    6.67513E-02   9.93596E-01   3.57172E-04   2.75408E-03   1.48235E-03
+    4.41883E+01  -1.74151E+01   3.95591E+01  -2.06981E+01   3.39795E+00
+   -2.19518E+00   3.38442E+00  -2.20196E+00   2.10680E-01   5.73577E-02
+    2.22788E-01   6.61900E-02   9.93685E-01   4.34481E-04   2.85357E-03
+    1.56697E-03   4.48799E+01  -1.68068E+01   4.06026E+01  -1.97806E+01
+    3.51011E+00  -2.09656E+00   3.49772E+00  -2.10232E+00   2.10326E-01
+    5.70465E-02   2.22078E-01   6.55650E-02   9.93775E-01   5.13341E-04
+    2.95511E-03   1.65626E-03   4.55353E+01  -1.62105E+01   4.15746E+01
+   -1.88958E+01   3.61536E+00  -2.00077E+00   3.60403E+00  -2.00557E+00
+    2.09912E-01   5.66693E-02   2.21307E-01   6.48630E-02   9.93865E-01
+    5.95286E-04   3.05864E-03   1.75049E-03   4.61559E+01  -1.56249E+01
+    4.24805E+01  -1.80415E+01   3.71390E+00  -1.90781E+00   3.70348E+00
+   -1.91176E+00   2.09458E-01   5.62418E-02   2.20500E-01   6.41026E-02
+    9.93951E-01   6.74142E-04   3.16411E-03   1.84997E-03   4.67416E+01
+   -1.50517E+01   4.33212E+01  -1.72185E+01   3.80611E+00  -1.81755E+00
+    3.79647E+00  -1.82073E+00   2.08950E-01   5.57443E-02   2.19646E-01
+    6.32658E-02   9.94030E-01   7.54544E-04   3.27137E-03   1.95496E-03
+    4.72910E+01  -1.44927E+01   4.40998E+01  -1.64264E+01   3.89219E+00
+   -1.72998E+00   3.88324E+00  -1.73245E+00   2.08394E-01   5.51788E-02
+    2.18747E-01   6.23520E-02   9.94109E-01   8.33400E-04   3.38038E-03
+    2.06586E-03   4.78077E+01  -1.39457E+01   4.48207E+01  -1.56632E+01
+    3.97249E+00  -1.64497E+00   3.96418E+00  -1.64677E+00   2.07810E-01
+    5.45599E-02   2.17831E-01   6.13813E-02   9.94182E-01   9.10710E-04
+    3.49097E-03   2.18294E-03   4.82914E+01  -1.34118E+01   4.54865E+01
+   -1.49283E+01   4.04735E+00  -1.56234E+00   4.03952E+00  -1.56360E+00
+    2.07194E-01   5.38800E-02   2.16891E-01   6.03446E-02   9.94251E-01
+    9.88020E-04   3.60302E-03   2.30662E-03   4.87421E+01  -1.28923E+01
+    4.60994E+01  -1.42216E+01   4.11681E+00  -1.48226E+00   4.10947E+00
+   -1.48296E+00   2.06548E-01   5.31351E-02   2.15933E-01   5.92395E-02
+    9.94316E-01   1.06378E-03   3.71638E-03   2.43731E-03   4.91601E+01
+   -1.23879E+01   4.66610E+01  -1.35441E+01   4.18130E+00  -1.40444E+00
+    4.17434E+00  -1.40470E+00   2.05871E-01   5.23187E-02   2.14956E-01
+    5.80609E-02   9.94381E-01   1.13955E-03   3.83084E-03   2.57541E-03
+    4.95484E+01  -1.18967E+01   4.71762E+01  -1.28922E+01   4.24096E+00
+   -1.32896E+00   4.23433E+00  -1.32879E+00   2.05181E-01   5.14451E-02
+    2.13979E-01   5.68247E-02   9.94437E-01   1.21222E-03   3.94622E-03
+    2.72141E-03   4.99063E+01  -1.14204E+01   4.76465E+01  -1.22666E+01
+    4.29603E+00  -1.25570E+00   4.28970E+00  -1.25513E+00   2.04478E-01
+    5.05104E-02   2.13003E-01   5.55267E-02   9.94491E-01   1.28334E-03
+    4.06224E-03   2.87574E-03   5.02360E+01  -1.09580E+01   4.80744E+01
+   -1.16666E+01   4.34676E+00  -1.18458E+00   4.34067E+00  -1.18366E+00
+    2.03772E-01   4.95215E-02   2.12040E-01   5.41772E-02   9.94542E-01
+    1.35448E-03   4.17869E-03   3.03902E-03   5.05367E+01  -1.05125E+01
+    4.84613E+01  -1.10931E+01   4.39335E+00  -1.11551E+00   4.38745E+00
+   -1.11433E+00   2.03048E-01   4.84474E-02   2.11073E-01   5.27423E-02
+    9.94585E-01   1.41941E-03   4.29521E-03   3.21172E-03   5.08110E+01
+   -1.00813E+01   4.88106E+01  -1.05440E+01   4.43596E+00  -1.04853E+00
+    4.43025E+00  -1.04704E+00   2.02323E-01   4.73082E-02   2.10121E-01
+    5.12468E-02   9.94628E-01   1.48590E-03   4.41145E-03   3.39447E-03
+    5.10595E+01  -9.66543E+00   4.91242E+01  -1.00190E+01   4.47479E+00
+   -9.83549E-01   4.46922E+00  -9.81829E-01   2.01616E-01   4.61247E-02
+    2.09203E-01   4.97107E-02   9.94666E-01   1.54773E-03   4.52710E-03
+    3.58801E-03   5.12837E+01  -9.26418E+00   4.94046E+01  -9.51751E+00
+    4.51007E+00  -9.20438E-01   4.50462E+00  -9.18496E-01   2.00913E-01
+    4.48671E-02   2.08306E-01   4.81060E-02   9.94698E-01   1.60806E-03
+    4.64163E-03   3.79290E-03   5.14838E+01  -8.87983E+00   4.96530E+01
+   -9.04024E+00   4.54186E+00  -8.59345E-01   4.53652E+00  -8.57205E-01
+    2.00223E-01   4.35420E-02   2.07438E-01   4.64380E-02   9.94730E-01
+    1.66836E-03   4.75460E-03   4.00995E-03   5.16612E+01  -8.51170E+00
+    4.98716E+01  -8.58681E+00   4.57049E+00  -7.99936E-01   4.56522E+00
+   -7.97647E-01   1.99544E-01   4.21321E-02   2.06597E-01   4.46926E-02
+    9.94755E-01   1.71936E-03   4.86545E-03   4.23997E-03   5.18182E+01
+   -8.15754E+00   5.00632E+01  -8.15447E+00   4.59601E+00  -7.42390E-01
+    4.59080E+00  -7.39940E-01   1.98901E-01   4.06819E-02   2.05809E-01
+    4.29146E-02   9.94778E-01   1.77350E-03   4.97354E-03   4.48377E-03
+    5.19548E+01  -7.82020E+00   5.02290E+01  -7.74489E+00   4.61860E+00
+   -6.86594E-01   4.61343E+00  -6.84033E-01   1.98279E-01   3.91468E-02
+    2.05057E-01   4.10579E-02   9.94797E-01   1.82141E-03   5.07820E-03
+    4.74232E-03   5.20726E+01  -7.49858E+00   5.03710E+01  -7.35727E+00
+    4.63842E+00  -6.32473E-01   4.63330E+00  -6.29789E-01   1.97696E-01
+    3.75539E-02   2.04359E-01   3.91523E-02   9.94814E-01   1.86627E-03
+    5.17864E-03   5.01654E-03   5.21726E+01  -7.19341E+00   5.04908E+01
+   -6.99164E+00   4.65561E+00  -5.80006E-01   4.65052E+00  -5.77248E-01
+    1.97148E-01   3.58804E-02   2.03711E-01   3.71746E-02   9.94829E-01
+    1.91263E-03   5.27401E-03   5.30757E-03   5.22563E+01  -6.90375E+00
+    5.05906E+01  -6.64646E+00   4.67031E+00  -5.29174E-01   4.66525E+00
+   -5.26316E-01   1.96645E-01   3.41433E-02   2.03123E-01   3.51410E-02
+    9.94839E-01   1.94667E-03   5.36334E-03   5.61648E-03   5.23247E+01
+   -6.63075E+00   5.06715E+01  -6.32349E+00   4.68266E+00  -4.79900E-01
+    4.67761E+00  -4.76993E-01   1.96188E-01   3.23192E-02   2.02595E-01
+    3.30328E-02   9.94849E-01   1.98685E-03   5.44553E-03   5.94445E-03
+    5.23789E+01  -6.37562E+00   5.07354E+01  -6.02224E+00   4.69278E+00
+   -4.32146E-01   4.68775E+00  -4.29190E-01   1.95782E-01   3.04042E-02
+    2.02130E-01   3.08410E-02   9.94856E-01   2.01780E-03   5.51941E-03
+    6.29286E-03   5.24212E+01  -6.13151E+00   5.07850E+01  -5.73658E+00
+    4.70080E+00  -3.85941E-01   4.69577E+00  -3.82947E-01   1.95449E-01
+    2.84831E-02   2.01751E-01   2.86551E-02   9.94861E-01   2.04715E-03
+    5.58365E-03   6.66307E-03   5.24516E+01  -5.90656E+00   5.08204E+01
+   -5.47412E+00   4.70685E+00  -3.41167E-01   4.70182E+00  -3.38137E-01
+    1.95172E-01   2.64351E-02   2.01440E-01   2.63516E-02   9.94865E-01
+    2.07501E-03   5.63676E-03   7.05660E-03   5.24714E+01  -5.70053E+00
+    5.08436E+01  -5.23365E+00   4.71102E+00  -2.97812E-01   4.70600E+00
+   -2.94781E-01   1.94965E-01   2.42789E-02   2.01208E-01   2.39484E-02
+    9.94867E-01   2.09511E-03   5.67710E-03   7.47497E-03   5.24826E+01
+   -5.50789E+00   5.08565E+01  -5.01093E+00   4.71345E+00  -2.55913E-01
+    4.70843E+00  -2.52845E-01   1.94837E-01   2.20714E-02   2.01067E-01
+    2.15079E-02   9.94868E-01   2.11364E-03   5.70285E-03   7.91998E-03
+    5.24860E+01  -5.33201E+00   5.08604E+01  -4.80734E+00   4.71423E+00
+   -2.15319E-01   4.70921E+00  -2.12263E-01   1.94792E-01   1.97748E-02
+    2.01018E-01   1.89863E-02   9.94868E-01   2.13222E-03   5.71200E-03
+    8.39345E-03   5.24803E+01  -5.03478E+00   5.08542E+01  -4.48558E+00
+    4.71348E+00  -1.76006E-01   4.70845E+00  -1.72938E-01   1.94798E-01
+    1.95110E-02   2.01026E-01   1.85573E-02   9.94868E-01   2.15848E-03
+    5.70230E-03   8.89736E-03   5.24710E+01  -4.87444E+00   5.08437E+01
+   -4.30345E+00   4.71129E+00  -1.38082E-01   4.70626E+00  -1.35027E-01
+    1.94925E-01   1.73113E-02   2.01165E-01   1.61598E-02   9.94867E-01
+    2.16778E-03   5.67130E-03   9.43384E-03   5.24580E+01  -4.73920E+00
+    5.08289E+01  -4.14913E+00   4.70775E+00  -1.01343E-01   4.70273E+00
+   -9.83252E-02   1.95159E-01   1.48809E-02   2.01417E-01   1.35380E-02
+    9.94866E-01   2.17394E-03   5.61627E-03   1.00052E-02   5.24421E+01
+   -4.62120E+00   5.08107E+01  -4.01430E+00   4.70297E+00  -6.59303E-02
+    4.69795E+00  -6.29121E-02   1.95502E-01   1.23380E-02   2.01785E-01
+    1.08126E-02   9.94866E-01   2.18015E-03   5.53420E-03   1.06136E-02
+    5.24243E+01  -4.51902E+00   5.07904E+01  -3.89778E+00   4.69703E+00
+   -3.16783E-02   4.69201E+00  -2.86849E-02   1.95961E-01   9.69266E-03
+    2.02274E-01   7.99650E-03   9.94866E-01   2.17703E-03   5.42173E-03
+    1.12621E-02   5.24065E+01  -4.43467E+00   5.07699E+01  -3.80085E+00
+    4.69023E+00   3.95829E-04   4.68522E+00   3.33981E-03   1.96545E-01
+    6.93628E-03   2.02892E-01   5.07658E-03   9.94866E-01   2.17706E-03
+    5.27523E-03   1.19532E-02   5.23887E+01  -4.36366E+00   5.07494E+01
+   -3.71887E+00   4.68380E+00   2.60873E-02   4.67879E+00   2.90189E-02
+    1.97255E-01   4.10088E-03   2.03641E-01   2.08735E-03   9.94868E-01
+    2.17085E-03   5.09065E-03   1.26900E-02   5.23731E+01  -4.30979E+00
+    5.07314E+01  -3.65657E+00   4.67687E+00   5.00476E-02   4.67188E+00
+    5.29421E-02   1.98110E-01   1.14342E-03   2.04537E-01  -1.01199E-03
+    9.94870E-01   2.16160E-03   4.86352E-03   1.34757E-02   5.23624E+01
+   -4.27733E+00   5.07185E+01  -3.61718E+00   4.66939E+00   7.28820E-02
+    4.66441E+00   7.57270E-02   1.99147E-01  -2.02012E-03   2.05618E-01
+   -4.31121E-03   9.94874E-01   2.15077E-03   4.58895E-03   1.43138E-02
+    5.23563E+01  -4.26055E+00   5.07100E+01  -3.59418E+00   4.66143E+00
+    9.46267E-02   4.65646E+00   9.74469E-02   2.00345E-01  -5.29260E-03
+    2.06864E-01  -7.71393E-03   9.94879E-01   2.13683E-03   4.26155E-03
+    1.52079E-02   5.21422E+01  -3.73148E+00   5.04944E+01  -3.06124E+00
+    4.65296E+00   1.15545E-01   4.64802E+00   1.18303E-01   1.98327E-01
+   -3.05762E-04   2.04824E-01  -2.67262E-03   9.94867E-01   2.16469E-03
+    3.87540E-03   1.61620E-02   5.18023E+01  -2.96472E+00   5.01532E+01
+   -2.29172E+00   4.64412E+00   1.35496E-01   4.63919E+00   1.38229E-01
+    1.94356E-01   8.65131E-03   2.00793E-01   6.42054E-03   9.94847E-01
+    2.21105E-03   3.42390E-03   1.71805E-02   5.17826E+01  -2.92389E+00
+    5.01326E+01  -2.24890E+00   4.63510E+00   1.54212E-01   4.63020E+00
+    1.56872E-01   1.95511E-01   6.25441E-03   2.01994E-01   3.92930E-03
+    9.94856E-01   2.19098E-03   2.90001E-03   1.82679E-02   5.17706E+01
+   -2.90070E+00   5.01202E+01  -2.22512E+00   4.62590E+00   1.71887E-01
+    4.62101E+00   1.74534E-01   1.96843E-01   3.69423E-03   2.03370E-01
+    1.28334E-03   9.94870E-01   2.16776E-03   2.29580E-03   1.94290E-02
+    5.17620E+01  -2.88540E+00   5.01121E+01  -2.21070E+00   4.61652E+00
+    1.88662E-01   4.61169E+00   1.91222E-01   1.98279E-01   1.12487E-03
+    2.04849E-01  -1.36221E-03   9.94880E-01   2.14768E-03   1.60273E-03
+    2.06690E-02   5.17621E+01  -2.88556E+00   5.01132E+01  -2.21246E+00
+    4.60708E+00   2.04468E-01   4.60225E+00   2.07004E-01   1.99888E-01
+   -1.56822E-03   2.06501E-01  -4.12600E-03   9.94896E-01   2.12137E-03
+    8.11096E-04   2.19939E-02   5.17713E+01  -2.89994E+00   5.01237E+01
+   -2.22891E+00   4.59762E+00   2.19339E-01   4.59284E+00   2.21800E-01
+    2.01678E-01  -4.38156E-03   2.08332E-01  -7.00586E-03   9.94915E-01
+    2.09202E-03  -8.91243E-05   2.34093E-02   5.17908E+01  -2.92900E+00
+    5.01456E+01  -2.26134E+00   4.58818E+00   2.33338E-01   4.58343E+00
+    2.35763E-01   2.03658E-01  -7.31656E-03   2.10351E-01  -9.99881E-03
+    9.94933E-01   2.06571E-03  -1.10966E-03   2.49222E-02   5.08811E+01
+   -1.65328E+00   4.92385E+01  -9.89473E-01   4.57849E+00   2.46923E-01
+    4.57377E+00   2.49298E-01   1.90651E-01   1.09224E-02   1.97115E-01
+    8.56135E-03   9.94885E-01   2.13067E-03  -2.26275E-03   2.65392E-02
+    5.08188E+01  -1.57045E+00   4.91798E+01  -9.11297E-01   4.56923E+00
+    2.59243E-01   4.56456E+00   2.61556E-01   1.91294E-01   1.00670E-02
+    1.97776E-01   7.68233E-03   9.94907E-01   2.10439E-03  -3.56203E-03
+    2.82677E-02   5.08132E+01  -1.56321E+00   4.91782E+01  -9.09208E-01
+    4.56016E+00   2.70719E-01   4.55551E+00   2.73007E-01   1.92843E-01
+    8.10628E-03   1.99354E-01   5.68495E-03   9.94930E-01   2.07344E-03
+   -5.02257E-03   3.01160E-02   5.08103E+01  -1.55976E+00   4.91805E+01
+   -9.11990E-01   4.55132E+00   2.81397E-01   4.54673E+00   2.83599E-01
+    1.94446E-01   6.17246E-03   2.00981E-01   3.72172E-03   9.94959E-01
+    2.03945E-03  -6.66077E-03   3.20926E-02   5.08241E+01  -1.57578E+00
+    4.91997E+01  -9.34244E-01   4.54271E+00   2.91314E-01   4.53816E+00
+    2.93479E-01   1.96300E-01   4.03478E-03   2.02859E-01   1.55624E-03
+    9.94987E-01   2.00541E-03  -8.49432E-03   3.42067E-02   5.07017E+01
+   -1.44062E+00   4.90836E+01  -8.06007E-01   4.53434E+00   3.00546E-01
+    4.52985E+00   3.02648E-01   1.95940E-01   4.43220E-03   2.02484E-01
+    1.97141E-03   9.95009E-01   1.98224E-03  -1.05430E-02   3.64683E-02
+    4.99704E+01  -6.66271E-01   4.83593E+01  -3.90876E-02   4.52612E+00
+    3.09250E-01   4.52170E+00   3.11291E-01   1.85687E-01   1.52883E-02
+    1.92059E-01   1.30092E-02   9.94998E-01   1.99458E-03  -1.28280E-02
+    3.88878E-02   4.99614E+01  -6.57175E-01   4.83575E+01  -3.73069E-02
+    4.51855E+00   3.16960E-01   4.51414E+00   3.18964E-01   1.87103E-01
+    1.38478E-02   1.93490E-01   1.15540E-02   9.95032E-01   1.95904E-03
+   -1.53731E-02   4.14770E-02   4.99680E+01  -6.63599E-01   4.83729E+01
+   -5.22488E-02   4.51132E+00   3.24031E-01   4.50698E+00   3.25986E-01
+    1.88762E-01   1.22238E-02   1.95157E-01   9.92150E-03   9.95071E-01
+    1.92191E-03  -1.82035E-02   4.42478E-02   4.99701E+01  -6.65586E-01
+    4.83837E+01  -6.24420E-02   4.50450E+00   3.30480E-01   4.50018E+00
+    3.32397E-01   1.90315E-01   1.07589E-02   1.96715E-01   8.45157E-03
+    9.95108E-01   1.88483E-03  -2.13472E-02   4.72135E-02   4.99701E+01
+   -6.65586E-01   4.83837E+01  -6.24420E-02   4.50450E+00   3.30480E-01
+    4.50018E+00   3.32397E-01   1.90315E-01   1.07589E-02   1.96715E-01
+    8.45157E-03   9.95108E-01   1.88483E-03  -2.13472E-02   4.72135E-02
+    8.80040E-02   1.69413E+02   2.69387E+01
+    1.89531E-03   2.84905E-04   0.00000E+00   0.00000E+00   2.47502E-02
+    3.98259E-03   1.89531E-03   2.84905E-04   0.00000E+00   0.00000E+00
+    2.47502E-02   3.98259E-03   2.04671E-03   3.09414E-04   0.00000E+00
+    0.00000E+00   9.83641E-03   1.56837E-03   2.21071E-03   3.36124E-04
+    0.00000E+00   0.00000E+00  -7.15298E-03  -1.19847E-03   2.38359E-03
+    3.64450E-04   0.00000E+00   0.00000E+00   1.36779E-03   1.97635E-04
+    2.57321E-03   3.95707E-04   0.00000E+00   0.00000E+00  -8.19494E-03
+   -1.37878E-03  -1.79019E-02  -3.00039E-03   0.00000E+00   0.00000E+00
+   -7.78431E-03  -1.31067E-03  -2.97044E-03  -5.08446E-04   0.00000E+00
+    0.00000E+00  -3.00131E-03  -5.12424E-04   8.90692E-04   1.39965E-04
+    0.00000E+00   0.00000E+00   3.27247E-03   5.41151E-04   9.66234E-04
+    1.52731E-04   0.00000E+00   0.00000E+00  -2.29681E-03  -3.99982E-04
+    1.04751E-03   1.66552E-04   0.00000E+00   0.00000E+00   2.03658E-03
+    3.36924E-04   1.15634E-03   1.85176E-04   0.00000E+00   0.00000E+00
+    6.30504E-04   9.62982E-05  -5.14798E-04  -1.02640E-04   0.00000E+00
+    0.00000E+00   6.24062E-04   9.51888E-05   1.21757E-03   1.97642E-04
+    0.00000E+00   0.00000E+00   7.14700E-04   1.10900E-04   1.32472E-03
+    2.16335E-04   0.00000E+00   0.00000E+00   3.96740E-03   6.78360E-04
+    1.44204E-03   2.36936E-04   0.00000E+00   0.00000E+00  -7.03520E-04
+   -1.41832E-04   5.87458E-04   8.58907E-05   0.00000E+00   0.00000E+00
+    5.82213E-06  -1.64578E-05   1.58852E-03   2.63995E-04   0.00000E+00
+    0.00000E+00   2.64171E-03   4.52505E-04   9.21383E-04   1.44512E-04
+    0.00000E+00   0.00000E+00   2.01255E-03   3.39825E-04   1.81792E-03
+    3.06154E-04   0.00000E+00   0.00000E+00  -6.54385E-04  -1.41014E-04
+    1.99138E-03   3.37639E-04   0.00000E+00   0.00000E+00   3.05241E-03
+    5.31811E-04   2.16796E-03   3.69908E-04   0.00000E+00   0.00000E+00
+    2.31416E-03   3.96901E-04   2.35999E-03   4.05239E-04   0.00000E+00
+    0.00000E+00   2.48964E-03   4.29188E-04   2.56885E-03   4.43932E-04
+    0.00000E+00   0.00000E+00   2.67660E-03   4.63824E-04   2.79593E-03
+    4.86291E-04   0.00000E+00   0.00000E+00   4.03499E-03   7.17215E-04
+    3.05051E-03   5.34111E-04   0.00000E+00   0.00000E+00   1.95202E-03
+    3.25951E-04   3.33689E-03   5.88283E-04   0.00000E+00   0.00000E+00
+    2.06376E-03   3.47089E-04   3.63377E-03   6.44837E-04   0.00000E+00
+    0.00000E+00   3.50340E-03   6.21334E-04   3.95691E-03   7.06832E-04
+    0.00000E+00   0.00000E+00   4.46145E-03   8.05138E-04   4.30904E-03
+    7.74874E-04   0.00000E+00   0.00000E+00   4.07814E-03   7.31072E-04
+    4.74438E-03   8.59602E-04   0.00000E+00   0.00000E+00   4.42279E-03
+    7.98149E-04   5.25496E-03   9.59696E-04   0.00000E+00   0.00000E+00
+    4.82563E-03   8.77123E-04   5.73555E-03   1.05460E-03   0.00000E+00
+    0.00000E+00   6.88905E-03   1.28460E-03   6.26127E-03   1.15919E-03
+    0.00000E+00   0.00000E+00   5.67621E-03   1.04332E-03   6.83355E-03
+    1.27388E-03   0.00000E+00   0.00000E+00   7.03101E-03   1.31485E-03
+    7.45881E-03   1.40013E-03   0.00000E+00   0.00000E+00   6.58992E-03
+    1.22579E-03   8.13953E-03   1.53862E-03   0.00000E+00   0.00000E+00
+    8.10258E-03   1.53353E-03   8.88263E-03   1.69095E-03   0.00000E+00
+    0.00000E+00   8.72663E-03   1.66145E-03   9.76937E-03   1.87412E-03
+    0.00000E+00   0.00000E+00   8.89203E-03   1.69562E-03   1.07108E-02
+    2.07009E-03   0.00000E+00   0.00000E+00   1.08026E-02   2.09331E-03
+    1.17009E-02   2.27779E-03   0.00000E+00   0.00000E+00   1.03822E-02
+    2.00513E-03   1.27783E-02   2.50558E-03   0.00000E+00   0.00000E+00
+    1.38225E-02   2.73251E-03   1.39593E-02   2.75725E-03   0.00000E+00
+    0.00000E+00   1.21354E-02   2.37297E-03   1.52427E-02   3.03292E-03
+    0.00000E+00   0.00000E+00   1.52325E-02   3.03824E-03   1.65839E-02
+    3.32333E-03   0.00000E+00   0.00000E+00   1.63696E-02   3.28445E-03
+    1.80652E-02   3.64668E-03   0.00000E+00   0.00000E+00   1.76011E-02
+    3.55326E-03   1.97152E-02   4.00979E-03   0.00000E+00   0.00000E+00
+    1.80878E-02   3.66035E-03   2.15102E-02   4.40803E-03   0.00000E+00
+    0.00000E+00   2.12315E-02   4.35789E-03   2.34715E-02   4.84683E-03
+    0.00000E+00   0.00000E+00   2.14442E-02   4.40546E-03   2.56049E-02
+    5.32810E-03   0.00000E+00   0.00000E+00   2.45208E-02   5.09952E-03
+    2.79329E-02   5.85771E-03   0.00000E+00   0.00000E+00   2.58564E-02
+    5.40336E-03  -1.57516E-01  -3.66906E-02   0.00000E+00   0.00000E+00
+   -1.51352E-01  -3.52543E-02   1.43979E-02   3.09114E-03   0.00000E+00
+    0.00000E+00   1.39461E-02   2.99650E-03   1.58583E-02   3.43201E-03
+    0.00000E+00   0.00000E+00   1.46888E-02   3.16985E-03   1.74638E-02
+    3.81003E-03   0.00000E+00   0.00000E+00   1.67260E-02   3.64951E-03
+   -3.37306E-02  -8.35001E-03   0.00000E+00   0.00000E+00  -3.25943E-02
+   -8.06536E-03  -5.38610E-03  -1.55755E-03   0.00000E+00   0.00000E+00
+   -5.40403E-03  -1.54950E-03   1.30079E-02   2.88994E-03   0.00000E+00
+    0.00000E+00   1.21268E-02   2.68928E-03   1.42100E-02   3.18325E-03
+    0.00000E+00   0.00000E+00   1.32555E-02   2.96466E-03   1.55224E-02
+    3.50636E-03   0.00000E+00   0.00000E+00   1.43800E-02   3.24153E-03
+    1.69541E-02   3.86211E-03   0.00000E+00   0.00000E+00   1.55917E-02
+    3.54261E-03   1.85161E-02   4.25385E-03   0.00000E+00   0.00000E+00
+    1.71226E-02   3.92657E-03   2.02201E-02   4.68522E-03   0.00000E+00
+    0.00000E+00   1.84369E-02   4.25928E-03   2.22785E-02   5.21126E-03
+    0.00000E+00   0.00000E+00   2.04016E-02   4.76136E-03   2.43523E-02
+    5.74630E-03   0.00000E+00   0.00000E+00   2.21185E-02   5.20431E-03
+    2.66094E-02   6.33427E-03   0.00000E+00   0.00000E+00   2.40993E-02
+    5.72032E-03   2.90727E-02   6.98219E-03   0.00000E+00   0.00000E+00
+    2.63175E-02   6.30379E-03   3.17596E-02   7.69594E-03   0.00000E+00
+    0.00000E+00   2.87247E-02   6.94322E-03   3.46919E-02   8.48259E-03
+    0.00000E+00   0.00000E+00   3.10956E-02   7.57928E-03   3.78884E-02
+    9.34877E-03   0.00000E+00   0.00000E+00   3.38963E-02   8.33819E-03
+    4.13752E-02   1.03032E-02   0.00000E+00   0.00000E+00   3.67535E-02
+    9.12029E-03   4.51754E-02   1.13541E-02   0.00000E+00   0.00000E+00
+    4.00167E-02   1.00227E-02   4.93168E-02   1.25112E-02   0.00000E+00
+    0.00000E+00   4.35466E-02   1.10090E-02   5.38729E-02   1.37976E-02
+    0.00000E+00   0.00000E+00   4.71956E-02   1.20392E-02   5.96713E-02
+    1.54521E-02   0.00000E+00   0.00000E+00   5.23084E-02   1.34981E-02
+    6.52144E-02   1.70506E-02   0.00000E+00   0.00000E+00   5.67529E-02
+    1.47798E-02   7.12564E-02   1.88119E-02   0.00000E+00   0.00000E+00
+    6.17186E-02   1.62273E-02   7.78440E-02   2.07532E-02   0.00000E+00
+    0.00000E+00   6.70828E-02   1.78080E-02   8.50219E-02   2.28918E-02
+    0.00000E+00   0.00000E+00   7.28050E-02   1.95130E-02   9.28403E-02
+    2.52474E-02   0.00000E+00   0.00000E+00   7.91793E-02   2.14335E-02
+    1.01356E-01   2.78421E-02   0.00000E+00   0.00000E+00   8.58434E-02
+    2.34639E-02   1.11292E-01   3.09042E-02   0.00000E+00   0.00000E+00
+    9.38297E-02   2.59251E-02   1.23223E-01   3.46234E-02   0.00000E+00
+    0.00000E+00   1.03333E-01   2.88877E-02   1.34692E-01   3.82405E-02
+    0.00000E+00   0.00000E+00   1.12246E-01   3.16989E-02   1.47179E-01
+    4.22257E-02   0.00000E+00   0.00000E+00   1.22028E-01   3.48204E-02
+    1.60779E-01   4.66176E-02   0.00000E+00   0.00000E+00   1.32201E-01
+    3.81059E-02   1.75563E-01   5.14504E-02   0.00000E+00   0.00000E+00
+    1.43514E-01   4.18039E-02   1.91204E-01   5.66258E-02   0.00000E+00
+    0.00000E+00   1.55269E-01   4.56933E-02   2.07414E-01   6.20560E-02
+    0.00000E+00   0.00000E+00   1.67182E-01   4.96844E-02   2.26031E-01
+    6.83711E-02   0.00000E+00   0.00000E+00   1.80944E-01   5.43525E-02
+    2.46207E-01   7.53029E-02   0.00000E+00   0.00000E+00   1.95627E-01
+    5.93969E-02   2.68055E-01   8.29054E-02   0.00000E+00   0.00000E+00
+    2.11330E-01   6.48613E-02   2.93060E-01   9.17208E-02   0.00000E+00
+    0.00000E+00   2.29438E-01   7.12452E-02   3.21345E-01   1.01825E-01
+    0.00000E+00   0.00000E+00   2.49732E-01   7.84944E-02   3.49705E-01
+    1.12091E-01   0.00000E+00   0.00000E+00   2.69497E-01   8.56498E-02
+    3.80307E-01   1.23321E-01   0.00000E+00   0.00000E+00   2.90654E-01
+    9.34129E-02   4.13290E-01   1.35591E-01   0.00000E+00   0.00000E+00
+    3.13270E-01   1.01826E-01   4.48800E-01   1.48986E-01   0.00000E+00
+    0.00000E+00   3.37207E-01   1.10856E-01   4.86959E-01   1.63585E-01
+    0.00000E+00   0.00000E+00   3.62608E-01   1.20574E-01   5.27889E-01
+    1.79469E-01   0.00000E+00   0.00000E+00   3.89590E-01   1.31045E-01
+    5.64982E-01   1.94075E-01   0.00000E+00   0.00000E+00   4.12743E-01
+    1.40162E-01   6.06287E-01   2.10581E-01   0.00000E+00   0.00000E+00
+    4.38324E-01   1.50385E-01  -4.26952E+00  -1.76715E+00   0.00000E+00
+    0.00000E+00  -3.31990E+00  -1.37403E+00   1.56681E-01   5.56575E-02
+    0.00000E+00   0.00000E+00   1.10976E-01   3.88798E-02   1.69244E-01
+    6.09114E-02   0.00000E+00   0.00000E+00   1.18682E-01   4.21028E-02
+    1.82742E-01   6.66457E-02   0.00000E+00   0.00000E+00   1.26847E-01
+    4.55711E-02   2.01262E-01   7.46390E-02   0.00000E+00   0.00000E+00
+    1.38519E-01   5.06088E-02   2.20276E-01   8.29796E-02   0.00000E+00
+    0.00000E+00   1.50155E-01   5.57129E-02   2.38287E-01   9.10108E-02
+    0.00000E+00   0.00000E+00   1.60742E-01   6.04341E-02   2.57636E-01
+    9.97837E-02   0.00000E+00   0.00000E+00   1.71904E-01   6.54948E-02
+    2.78404E-01   1.09362E-01   0.00000E+00   0.00000E+00   1.83735E-01
+    7.09512E-02   3.00665E-01   1.19807E-01   0.00000E+00   0.00000E+00
+    1.96212E-01   7.68054E-02   3.24510E-01   1.31193E-01   0.00000E+00
+    0.00000E+00   2.09369E-01   8.30878E-02   3.50012E-01   1.43590E-01
+    0.00000E+00   0.00000E+00   2.23229E-01   8.98260E-02   3.77255E-01
+    1.57078E-01   0.00000E+00   0.00000E+00   2.37809E-01   9.70439E-02
+    4.06323E-01   1.71738E-01   0.00000E+00   0.00000E+00   2.53070E-01
+    1.04741E-01   4.37289E-01   1.87654E-01   0.00000E+00   0.00000E+00
+    2.69092E-01   1.12976E-01   4.76213E-01   2.08048E-01   0.00000E+00
+    0.00000E+00   2.89816E-01   1.23834E-01   5.15099E-01   2.28827E-01
+    0.00000E+00   0.00000E+00   3.09774E-01   1.34499E-01   5.53851E-01
+    2.49954E-01   0.00000E+00   0.00000E+00   3.28887E-01   1.44919E-01
+    5.94905E-01   2.72798E-01   0.00000E+00   0.00000E+00   3.48773E-01
+    1.55984E-01   6.38317E-01   2.97463E-01   0.00000E+00   0.00000E+00
+    3.69372E-01   1.67687E-01   6.84117E-01   3.24045E-01   0.00000E+00
+    0.00000E+00   3.90695E-01   1.80064E-01   7.32314E-01   3.52635E-01
+    0.00000E+00   0.00000E+00   4.12684E-01   1.93108E-01   7.82918E-01
+    3.83329E-01   0.00000E+00   0.00000E+00   4.35257E-01   2.06799E-01
+    8.26601E-01   4.10435E-01   0.00000E+00   0.00000E+00   4.52717E-01
+    2.17633E-01   8.79827E-01   4.44241E-01   0.00000E+00   0.00000E+00
+    4.75189E-01   2.31906E-01   9.35713E-01   4.80594E-01   0.00000E+00
+    0.00000E+00   4.98308E-01   2.46944E-01   9.93655E-01   5.19217E-01
+    0.00000E+00   0.00000E+00   5.21702E-01   2.62539E-01   1.05352E+00
+    5.60133E-01   0.00000E+00   0.00000E+00   5.45223E-01   2.78615E-01
+    1.11516E+00   6.03360E-01   0.00000E+00   0.00000E+00   5.68797E-01
+    2.95147E-01   1.17839E+00   6.48887E-01   0.00000E+00   0.00000E+00
+    5.92265E-01   3.12045E-01   1.24297E+00   6.96664E-01   0.00000E+00
+    0.00000E+00   6.15503E-01   3.29236E-01   1.30868E+00   7.46651E-01
+    0.00000E+00   0.00000E+00   6.38386E-01   3.46643E-01   1.37523E+00
+    7.98748E-01   0.00000E+00   0.00000E+00   6.60751E-01   3.64151E-01
+    1.44165E+00   8.52292E-01   0.00000E+00   0.00000E+00   6.82097E-01
+    3.81359E-01   1.47546E+00   8.80391E-01   0.00000E+00   0.00000E+00
+    6.85292E-01   3.84016E-01   1.53883E+00   9.34734E-01   0.00000E+00
+    0.00000E+00   7.03738E-01   3.99834E-01   1.60177E+00   9.90490E-01
+    0.00000E+00   0.00000E+00   7.21195E-01   4.15297E-01   1.66394E+00
+    1.04742E+00   0.00000E+00   0.00000E+00   7.37548E-01   4.30274E-01
+    1.72503E+00   1.10535E+00   0.00000E+00   0.00000E+00   7.52679E-01
+    4.44620E-01   1.78471E+00   1.16399E+00   0.00000E+00   0.00000E+00
+    7.66521E-01   4.58221E-01   1.84264E+00   1.22308E+00   0.00000E+00
+    0.00000E+00   7.78990E-01   4.70939E-01   1.88412E+00   1.26705E+00
+    0.00000E+00   0.00000E+00   7.83118E-01   4.75314E-01   1.89789E+00
+    1.28224E+00   0.00000E+00   0.00000E+00   7.74098E-01   4.65361E-01
+    1.94550E+00   1.33702E+00   0.00000E+00   0.00000E+00   7.81311E-01
+    4.73661E-01   1.99075E+00   1.39140E+00   0.00000E+00   0.00000E+00
+    7.87281E-01   4.80835E-01   2.03349E+00   1.44517E+00   0.00000E+00
+    0.00000E+00   7.92023E-01   4.86801E-01   2.07361E+00   1.49811E+00
+    0.00000E+00   0.00000E+00   7.95596E-01   4.91516E-01   2.10090E+00
+    1.53598E+00   0.00000E+00   0.00000E+00   7.93611E-01   4.88762E-01
+    2.10714E+00   1.54511E+00   0.00000E+00   0.00000E+00   7.82920E-01
+    4.73122E-01   2.13776E+00   1.59248E+00   0.00000E+00   0.00000E+00
+    7.83319E-01   4.73738E-01   2.16592E+00   1.63869E+00   0.00000E+00
+    0.00000E+00   7.82981E-01   4.73182E-01   2.19166E+00   1.68369E+00
+    0.00000E+00   0.00000E+00   7.81989E-01   4.71450E-01   2.20187E+00
+    1.70277E+00   0.00000E+00   0.00000E+00   7.75142E-01   4.58654E-01
+    2.19957E+00   1.69814E+00   0.00000E+00   0.00000E+00   7.64030E-01
+    4.36335E-01   2.21800E+00   1.73816E+00   0.00000E+00   0.00000E+00
+    7.61957E-01   4.31838E-01   2.23455E+00   1.77721E+00   0.00000E+00
+    0.00000E+00   7.59691E-01   4.26489E-01   2.24928E+00   1.81532E+00
+    0.00000E+00   0.00000E+00   7.57317E-01   4.20347E-01   2.26230E+00
+    1.85259E+00   0.00000E+00   0.00000E+00   7.54907E-01   4.13449E-01
+    2.27367E+00   1.88897E+00   0.00000E+00   0.00000E+00   7.52537E-01
+    4.05863E-01   2.28348E+00   1.92461E+00   0.00000E+00   0.00000E+00
+    7.50274E-01   3.97640E-01   2.27982E+00   1.90926E+00   0.00000E+00
+    0.00000E+00   7.43955E-01   3.71093E-01   2.28004E+00   1.91037E+00
+    0.00000E+00   0.00000E+00   7.39892E-01   3.50878E-01   2.28577E+00
+    1.94533E+00   0.00000E+00   0.00000E+00   7.38521E-01   3.42512E-01
+    2.29020E+00   1.98025E+00   0.00000E+00   0.00000E+00   7.37424E-01
+    3.33850E-01   2.29333E+00   2.01525E+00   0.00000E+00   0.00000E+00
+    7.36626E-01   3.24946E-01   2.29518E+00   2.05042E+00   0.00000E+00
+    0.00000E+00   7.36148E-01   3.15837E-01   2.29490E+00   2.03249E+00
+    0.00000E+00   0.00000E+00   7.35746E-01   2.89634E-01   2.29837E+00
+    1.87315E+00  -1.43318E-03   6.58142E-02   7.35828E-01   2.85885E-01
+    2.29727E+00   1.89180E+00  -1.65762E-03   6.96249E-02   7.36312E-01
+    2.77663E-01   2.29553E+00   1.90991E+00  -2.03126E-03   7.35161E-02
+    7.37106E-01   2.69390E-01   2.29318E+00   1.92756E+00  -2.55645E-03
+    7.74607E-02   7.38211E-01   2.61092E-01   2.29025E+00   1.94478E+00
+   -3.23680E-03   8.14566E-02   7.39624E-01   2.52792E-01   2.28676E+00
+    1.96161E+00  -4.07582E-03   8.55024E-02   7.41341E-01   2.44515E-01
+    2.28273E+00   1.97809E+00  -5.07702E-03   8.95972E-02   7.43351E-01
+    2.36292E-01   2.27819E+00   1.99422E+00  -6.24347E-03   9.37391E-02
+    7.45648E-01   2.28136E-01   2.27315E+00   2.01005E+00  -7.57845E-03
+    9.79272E-02   7.48218E-01   2.20072E-01   2.26763E+00   2.02554E+00
+   -9.08484E-03   1.02160E-01   7.51049E-01   2.12117E-01   2.39736E+00
+    1.69543E+00  -4.65120E-02   1.97397E-01   7.53268E-01   2.06473E-01
+    2.47845E+00   1.50690E+00  -6.94747E-02   2.50785E-01   7.56000E-01
+    2.00121E-01   2.48811E+00   1.48624E+00  -7.31190E-02   2.58585E-01
+    7.59414E-01   1.92815E-01   2.49918E+00   1.46428E+00  -7.69550E-02
+    2.66190E-01   7.63040E-01   1.85624E-01   2.51175E+00   1.44107E+00
+   -8.09609E-02   2.73589E-01   7.66868E-01   1.78554E-01   2.52588E+00
+    1.41663E+00  -8.51136E-02   2.80766E-01   7.70880E-01   1.71621E-01
+    2.54168E+00   1.39099E+00  -8.93898E-02   2.87711E-01   7.75061E-01
+    1.64829E-01   2.55918E+00   1.36418E+00  -9.37634E-02   2.94410E-01
+    7.79401E-01   1.58183E-01   2.84822E+00   9.45253E-01  -1.54397E-01
+    3.82290E-01   7.86468E-01   1.47940E-01   2.90447E+00   8.67885E-01
+   -1.63839E-01   3.95276E-01   7.90988E-01   1.41723E-01   2.93644E+00
+    8.26061E-01  -1.67518E-01   4.00090E-01   7.95355E-01   1.36008E-01
+    2.97039E+00   7.83690E-01  -1.70970E-01   4.04399E-01   7.99829E-01
+    1.30426E-01   3.00629E+00   7.40864E-01  -1.74159E-01   4.08202E-01
+    8.04389E-01   1.24987E-01   3.04412E+00   6.97669E-01  -1.77047E-01
+    4.11500E-01   8.09032E-01   1.19684E-01   3.08381E+00   6.54183E-01
+   -1.79591E-01   4.14288E-01   8.13740E-01   1.14526E-01   3.12530E+00
+    6.10496E-01  -1.81757E-01   4.16568E-01   8.18498E-01   1.09515E-01
+    3.16853E+00   5.66693E-01  -1.83509E-01   4.18343E-01   8.23301E-01
+    1.04651E-01   3.21344E+00   5.22839E-01  -1.84811E-01   4.19614E-01
+    8.28130E-01   9.99338E-02   3.25991E+00   4.79049E-01  -1.85637E-01
+    4.20393E-01   8.32973E-01   9.53689E-02   3.60592E+00   1.64010E-01
+   -2.29716E-01   4.60526E-01   8.44963E-01   8.44520E-02   3.60592E+00
+    1.64010E-01  -2.29716E-01   4.60526E-01   8.44963E-01   8.44520E-02
+ MEDIUM=POLY-3MEV-10KEV-02KEV   ,STERNCID=POLY-3MEV-10KEV-02KEV  
+ COMP,RHO= 1.0320E+00,NE= 2
+ ASYM=C ,Z= 6.,A=   12.011,PZ= 1.00000E+00,RHOZ= 1.20112E+01
+ ASYM=H ,Z= 1.,A=    1.008,PZ= 1.10000E+00,RHOZ= 1.10877E+00
+    4.25384E+01   5.21000E-01   2.00000E-03   2.65110E+01   2.60000E+01
+     0  200    0  149    0    0    0    0
+    9.99982E-01  -2.05911E-01   4.72518E-02   9.95968E-01  -2.21019E-01
+    9.52000E-01   1.00021E+00  -1.74328E-01   3.36073E-02   1.01382E+00
+   -2.24981E-01   9.52000E-01   1.00033E+00  -1.58108E-01   2.42669E-02
+    1.02299E+00  -2.27015E-01   9.52000E-01   9.99982E-01  -2.06006E-01
+    4.72737E-02   9.95966E-01  -2.21121E-01   9.52000E-01   1.00022E+00
+   -1.74410E-01   3.36231E-02   1.01383E+00  -2.25087E-01   9.52000E-01
+    1.00033E+00  -1.58183E-01   2.42784E-02   1.02300E+00  -2.27123E-01
+    9.52000E-01
+    3.94415E+01   9.40761E-01   8.53834E-01   2.27246E+00   9.40769E-01
+    8.53832E-01   2.26767E+00
+    8.12209E-02   6.31712E-05   3.16660E+05   4.81728E+00
+    8.81170E+01   1.86867E+01
+    9.38397E+00   1.46695E+00   3.82964E+04   8.31005E+03  -2.51186E+03
+   -7.61200E+02  -3.25918E+03  -9.44569E+02   1.00000E+00   0.00000E+00
+   -1.06651E+01  -2.34276E+00   7.55058E+01   1.63659E+01   2.61243E-05
+    5.07911E-06   9.38397E+00   1.46695E+00   3.82964E+04   8.31005E+03
+   -2.51186E+03  -7.61200E+02  -3.25918E+03  -9.44569E+02   1.00000E+00
+    0.00000E+00  -1.06651E+01  -2.34276E+00   7.55058E+01   1.63659E+01
+    2.61243E-05   5.07911E-06   9.32387E+00   1.45375E+00   3.26076E+04
+    7.06111E+03  -2.37516E+03  -7.31189E+02  -3.06014E+03  -9.00871E+02
+    1.00000E+00   0.00000E+00  -2.23560E-01  -5.04150E-02   2.57807E+00
+    3.55270E-01   2.83937E-05   5.57735E-06   9.25986E+00   1.43953E+00
+    2.75303E+04   5.93319E+03  -2.24180E+03  -7.01564E+02  -2.86796E+03
+   -8.58178E+02   1.00000E+00   0.00000E+00  -7.01266E-02  -1.63296E-02
+    1.50738E+00   1.17416E-01   3.09162E-05   6.13774E-06   9.19702E+00
+    1.42541E+00   2.31251E+04   4.94279E+03  -2.11441E+03  -6.72923E+02
+   -2.68637E+03  -8.17353E+02   1.00000E+00   0.00000E+00  -3.22109E-02
+   -7.80524E-03   1.24359E+00   5.81066E-02   3.36575E-05   6.75402E-06
+    9.14213E+00   1.41292E+00   1.93092E+04   4.07443E+03  -1.99366E+03
+   -6.45446E+02  -2.51594E+03  -7.78571E+02   1.00000E+00   0.00000E+00
+   -1.71319E-02  -4.37382E-03   1.13938E+00   3.43946E-02   3.66360E-05
+    7.43182E-06   9.06359E+00   1.39482E+00   1.60133E+04   3.31518E+03
+   -1.87882E+03  -6.18991E+02  -2.35548E+03  -7.41605E+02   1.00000E+00
+    0.00000E+00  -9.60843E-03  -2.64067E-03   1.08788E+00   2.25325E-02
+    3.98792E-05   8.17896E-06   9.00858E+00   1.38199E+00   1.31687E+04
+    2.65170E+03  -1.76950E+03  -5.93491E+02  -2.20422E+03  -7.06325E+02
+    1.00000E+00   0.00000E+00  -5.26546E-03  -1.62770E-03   1.05876E+00
+    1.57404E-02   4.33961E-05   8.99925E-06   8.94576E+00   1.36715E+00
+    1.07228E+04   2.07398E+03  -1.66549E+03  -5.68926E+02  -2.06175E+03
+   -6.72677E+02   1.00000E+00   0.00000E+00  -2.50962E-03  -9.76800E-04
+    1.04075E+00   1.14845E-02   4.72183E-05   9.90203E-06   8.88426E+00
+    1.35244E+00   8.62510E+03   1.57219E+03  -1.56695E+03  -5.45353E+02
+   -1.92799E+03  -6.40676E+02   1.00000E+00   0.00000E+00  -6.20742E-04
+   -5.24952E-04   1.02885E+00   8.63986E-03   5.13709E-05   1.08954E-05
+    8.82191E+00   1.33733E+00   6.83039E+03   1.13730E+03  -1.47313E+03
+   -5.22620E+02  -1.80183E+03  -6.10109E+02   1.00000E+00   0.00000E+00
+    7.56001E-04  -1.91345E-04   1.02059E+00   6.63610E-03   5.58742E-05
+    1.19866E-05   8.75816E+00   1.32169E+00   5.30295E+03   7.62313E+02
+   -1.38425E+03  -5.00799E+02  -1.68340E+03  -5.81031E+02   1.00000E+00
+    0.00000E+00   1.81058E-03   6.75533E-05   1.01462E+00   5.17144E-03
+    6.07667E-05   1.31877E-05   8.70017E+00   1.30726E+00   4.00598E+03
+    4.39671E+02  -1.29977E+03  -4.79782E+02  -1.57182E+03  -5.53274E+02
+    1.00000E+00   0.00000E+00   2.65960E-03   2.78762E-04   1.01017E+00
+    4.06431E-03   6.60748E-05   1.45082E-05   8.63862E+00   1.29174E+00
+    2.91053E+03   1.63481E+02  -1.21969E+03  -4.59595E+02  -1.46700E+03
+   -5.26848E+02   1.00000E+00   0.00000E+00   3.36639E-03   4.56962E-04
+    1.00675E+00   3.20222E-03   7.18246E-05   1.59578E-05   1.70899E+04
+    4.36679E+03   1.99015E+03  -7.17449E+01  -1.31904E+03  -4.84984E+02
+   -1.36834E+03  -5.01632E+02  -7.09914E+01  -1.83990E+01   3.97721E-03
+    6.13070E-04   1.00408E+00   2.52056E-03   7.80634E-05   1.75523E-05
+    1.33589E+04   3.40004E+03   1.22206E+03  -2.70770E+02  -1.21737E+03
+   -4.58640E+02  -1.27574E+03  -4.77639E+02  -4.54847E-01  -1.21847E-01
+    4.51955E-03   7.53602E-04   1.00195E+00   1.96700E-03   8.48286E-05
+    1.93053E-05   1.05844E+04   2.67100E+03   5.84999E+02  -4.38161E+02
+   -1.12684E+03  -4.34854E+02  -1.18869E+03  -4.54765E+02  -1.43154E-01
+   -3.99468E-02   5.01443E-03   8.83633E-04   1.00021E+00   1.51033E-03
+    9.21521E-05   2.12296E-05   8.48211E+03   2.11073E+03   6.16442E+01
+   -5.77641E+02  -1.04502E+03  -4.13046E+02  -1.10684E+03  -4.32951E+02
+   -6.54483E-02  -1.92377E-02   5.47496E-03   1.00637E-03   9.98779E-01
+    1.12941E-03   1.00083E-04   2.33432E-05   6.86200E+03   1.67271E+03
+   -3.63624E+02  -6.92617E+02  -9.70285E+02  -3.92842E+02  -1.02999E+03
+   -4.12173E+02  -3.45884E-02  -1.08943E-02   5.91101E-03   1.12426E-03
+    9.97576E-01   8.03060E-04   1.08670E-04   2.56649E-05   5.59649E+03
+    1.32554E+03  -7.04839E+02  -7.86224E+02  -9.01480E+02  -3.73966E+02
+   -9.57826E+02  -3.92377E+02  -1.92679E-02  -6.69142E-03   6.33011E-03
+    1.23924E-03   9.96565E-01   5.26834E-04   1.17962E-04   2.82140E-05
+    4.59258E+03   1.04603E+03  -9.74081E+02  -8.61185E+02  -8.37747E+02
+   -3.56221E+02  -8.90091E+02  -3.73518E+02  -1.05387E-02  -4.26105E-03
+    6.73834E-03   1.35289E-03   9.95692E-01   2.82909E-04   1.28010E-04
+    3.10116E-05   3.78702E+03   8.18355E+02  -1.18137E+03  -9.19770E+02
+   -7.78386E+02  -3.39444E+02  -8.26453E+02  -3.55532E+02  -5.08035E-03
+   -2.71835E-03   7.13690E-03   1.46554E-03   9.94939E-01   7.12841E-05
+    1.38875E-04   3.40824E-05   3.13244E+03   6.30507E+02  -1.33644E+03
+   -9.64270E+02  -7.23005E+02  -3.23552E+02  -7.66766E+02  -3.38403E+02
+   -1.40741E-03  -1.66432E-03   7.53214E-03   1.57896E-03   9.94293E-01
+   -1.15837E-04   1.50607E-04   3.74491E-05   2.59646E+03   4.74297E+02
+   -1.44716E+03  -9.96542E+02  -6.71227E+02  -3.08461E+02  -7.10806E+02
+   -3.22094E+02   1.20236E-03  -9.03703E-04   7.92506E-03   1.69348E-03
+    9.93714E-01  -2.82909E-04   1.63292E-04   4.11462E-05   2.15336E+03
+    3.43112E+02  -1.52014E+03  -1.01815E+03  -6.22642E+02  -2.94076E+02
+   -6.58240E+02  -3.06531E+02   3.14755E-03  -3.27808E-04   8.31604E-03
+    1.80923E-03   9.93210E-01  -4.33272E-04   1.76965E-04   4.51940E-05
+    1.78555E+03   2.32463E+02  -1.56191E+03  -1.03071E+03  -5.77102E+02
+   -2.80377E+02  -6.08992E+02  -2.91716E+02   4.65564E-03   1.25870E-04
+    8.70831E-03   1.92724E-03   9.92760E-01  -5.68045E-04   1.91727E-04
+    4.96350E-05   1.47772E+03   1.38344E+02  -1.57743E+03  -1.03546E+03
+   -5.34352E+02  -2.67306E+02  -5.62814E+02  -2.77597E+02   5.86990E-03
+    4.97144E-04   9.10171E-03   2.04753E-03   9.92359E-01  -6.91678E-04
+    2.07642E-04   5.45012E-05   1.22015E+03   5.82796E+01  -1.57139E+03
+   -1.03358E+03  -4.94223E+02  -2.54832E+02  -5.19549E+02  -2.64149E+02
+    6.87409E-03   8.09282E-04   9.49688E-03   2.17035E-03   9.92003E-01
+   -8.01946E-04   2.24787E-04   5.98305E-05   1.00358E+03  -1.01737E+01
+   -1.54746E+03  -1.02601E+03  -4.56502E+02  -2.42909E+02  -4.78982E+02
+   -2.51325E+02   7.73163E-03   1.08035E-03   9.89472E-03   2.29611E-03
+    9.91678E-01  -9.05531E-04   2.43253E-04   6.56676E-05   8.21608E+02
+   -6.86859E+01  -1.50934E+03  -1.01376E+03  -4.21084E+02  -2.31520E+02
+   -4.40995E+02  -2.39111E+02   8.47851E-03   1.32050E-03   1.02945E-02
+    2.42465E-03   9.91388E-01  -9.96863E-04   2.63120E-04   7.20554E-05
+    6.69108E+02  -1.18580E+02  -1.45992E+03  -9.97592E+02  -3.87856E+02
+   -2.20649E+02  -4.05457E+02  -2.27484E+02   9.14300E-03   1.53789E-03
+    1.06971E-02   2.55639E-03   9.91125E-01  -1.08263E-03   2.84496E-04
+    7.90490E-05   5.41298E+02  -1.61140E+02  -1.40129E+03  -9.78068E+02
+   -3.56598E+02  -2.10241E+02  -3.72130E+02  -2.16387E+02   9.74587E-03
+    1.73865E-03   1.11016E-02   2.69107E-03   9.90893E-01  -1.16059E-03
+    3.07453E-04   8.66934E-05   4.34963E+02  -1.97191E+02  -1.33604E+03
+   -9.55946E+02  -3.27298E+02  -2.00306E+02  -3.40979E+02  -2.05825E+02
+    1.02992E-02   1.92625E-03   1.15082E-02   2.82891E-03   9.90684E-01
+   -1.23188E-03   3.32123E-04   9.50576E-05   3.46703E+02  -2.27669E+02
+   -1.26582E+03  -9.31698E+02  -2.99792E+02  -1.90809E+02  -3.11830E+02
+   -1.95760E+02   1.08140E-02   2.10402E-03   1.19153E-02   2.96950E-03
+    9.90501E-01  -1.29537E-03   3.58586E-04   1.04195E-04   2.74461E+02
+   -2.53081E+02  -1.19192E+03  -9.05700E+02  -2.73981E+02  -1.81728E+02
+   -2.84555E+02  -1.86164E+02   1.12997E-02   2.27489E-03   1.23248E-02
+    3.11357E-03   9.90332E-01  -1.35440E-03   3.86963E-04   1.14178E-04
+    2.15572E+02  -2.74196E+02  -1.11613E+03  -8.78526E+02  -2.49803E+02
+   -1.73059E+02  -2.59081E+02  -1.77031E+02   1.17597E-02   2.43983E-03
+    1.27340E-02   3.26026E-03   9.90181E-01  -1.40897E-03   4.17378E-04
+    1.25084E-04   1.68668E+02  -2.91344E+02  -1.03903E+03  -8.50341E+02
+   -2.27121E+02  -1.64768E+02  -2.35252E+02  -1.68320E+02   1.21996E-02
+    2.60062E-03   1.31433E-02   3.40991E-03   9.90060E-01  -1.45353E-03
+    4.49929E-04   1.36983E-04   1.31792E+02  -3.05094E+02  -9.61863E+02
+   -8.21569E+02  -2.05876E+02  -1.56846E+02  -2.12992E+02  -1.60020E+02
+    1.26202E-02   2.75745E-03   1.35501E-02   3.56159E-03   9.89949E-01
+   -1.49474E-03   4.84751E-04   1.49967E-04   1.03808E+02  -3.15740E+02
+   -8.85118E+02  -7.92371E+02  -1.85990E+02  -1.49280E+02  -1.92212E+02
+   -1.52114E+02   1.30261E-02   2.91188E-03   1.39553E-02   3.71574E-03
+    9.89851E-01  -1.53038E-03   5.21967E-04   1.64126E-04   8.32416E+01
+   -3.23728E+02  -8.09687E+02  -7.63075E+02  -1.67380E+02  -1.42053E+02
+   -1.72813E+02  -1.44580E+02   1.34184E-02   3.06424E-03   1.43574E-02
+    3.87190E-03   9.89784E-01  -1.55823E-03   5.61711E-04   1.79561E-04
+    6.92311E+01  -3.29283E+02  -7.35812E+02  -7.33777E+02  -1.49969E+02
+   -1.35148E+02  -1.54710E+02  -1.37400E+02   1.38007E-02   3.21587E-03
+    1.47574E-02   4.03053E-03   9.89717E-01  -1.58273E-03   6.04108E-04
+    1.96376E-04   6.08093E+01  -3.32697E+02  -6.63930E+02  -7.04650E+02
+   -1.33685E+02  -1.28549E+02  -1.37816E+02  -1.30555E+02   1.41672E-02
+    3.36435E-03   1.51487E-02   4.18911E-03   9.89673E-01  -1.60055E-03
+    6.49287E-04   2.14683E-04   5.70729E+01  -3.34245E+02  -5.94443E+02
+   -6.75870E+02  -1.18475E+02  -1.22250E+02  -1.22071E+02  -1.24033E+02
+    1.45259E-02   3.51292E-03   1.55366E-02   4.34977E-03   9.89646E-01
+   -1.61280E-03   6.97400E-04   2.34610E-04   5.73329E+01  -3.34134E+02
+   -5.27461E+02  -6.47497E+02  -1.04265E+02  -1.16231E+02  -1.07391E+02
+   -1.17816E+02   1.48720E-02   3.65954E-03   1.59154E-02   4.51022E-03
+    9.89633E-01  -1.61837E-03   7.48581E-04   2.56289E-04   6.09371E+01
+   -3.32572E+02  -4.63280E+02  -6.19681E+02  -9.10110E+01  -1.10486E+02
+   -9.37266E+01  -1.11894E+02   1.52066E-02   3.80452E-03   1.62853E-02
+    4.67052E-03   9.89637E-01  -1.61726E-03   8.02963E-04   2.79858E-04
+    6.73469E+01  -3.29727E+02  -4.01871E+02  -5.92436E+02  -7.86412E+01
+   -1.04998E+02  -8.09976E+01  -1.06246E+02   1.55384E-02   3.95174E-03
+    1.66522E-02   4.83332E-03   9.89650E-01  -1.61058E-03   8.60696E-04
+    3.05473E-04   7.60151E+01  -3.25789E+02  -3.43398E+02  -5.65861E+02
+   -6.71103E+01  -9.97578E+01  -6.91536E+01  -1.00863E+02   1.58508E-02
+    4.09374E-03   1.70010E-02   4.99183E-03   9.89682E-01  -1.59721E-03
+    9.21912E-04   3.33294E-04   8.65651E+01  -3.20874E+02  -2.87833E+02
+   -5.39979E+02  -5.63635E+01  -9.47517E+01  -5.81325E+01  -9.57294E+01
+    1.61551E-02   4.23545E-03   1.73405E-02   5.14998E-03   9.89726E-01
+   -1.57605E-03   9.86749E-04   3.63496E-04   9.85267E+01  -3.15160E+02
+   -2.35259E+02  -5.14863E+02  -4.63641E+01  -8.99750E+01  -4.78941E+01
+   -9.08383E+01   1.64485E-02   4.37562E-03   1.76676E-02   5.30625E-03
+    9.89784E-01  -1.54819E-03   1.05536E-03   3.96274E-04   1.11646E+02
+   -3.08729E+02  -1.85544E+02  -4.90492E+02  -3.70546E+01  -8.54109E+01
+   -3.83771E+01  -8.61728E+01   1.67307E-02   4.51396E-03   1.79813E-02
+    5.46000E-03   9.89853E-01  -1.51590E-03   1.12787E-03   4.31819E-04
+    1.25567E+02  -3.01719E+02  -1.38745E+02  -4.66929E+02  -2.84002E+01
+   -8.10537E+01  -2.95416E+01  -8.17244E+01   1.70007E-02   4.64994E-03
+    1.82802E-02   5.61048E-03   9.89933E-01  -1.47358E-03   1.20441E-03
+    4.70356E-04   1.40084E+02  -2.94208E+02  -9.47086E+01  -4.44146E+02
+   -2.03596E+01  -7.68937E+01  -2.13447E+01  -7.74834E+01   1.72588E-02
+    4.78348E-03   1.85637E-02   5.75720E-03   9.90027E-01  -1.42568E-03
+    1.28512E-03   5.12114E-04   1.54950E+02  -2.86297E+02  -5.34049E+01
+   -4.22167E+02  -1.28916E+01  -7.29198E+01  -1.37407E+01  -7.34372E+01
+    1.75040E-02   4.91392E-03   1.88307E-02   5.89925E-03   9.90132E-01
+   -1.36999E-03   1.37010E-03   5.57336E-04   1.69957E+02  -2.78079E+02
+   -1.47701E+01  -4.01006E+02  -5.96705E+00  -6.91270E+01  -6.69814E+00
+   -6.95797E+01   1.77376E-02   5.04187E-03   1.90821E-02   6.03694E-03
+    9.90243E-01  -1.30873E-03   1.45952E-03   6.06311E-04   1.84985E+02
+   -2.69598E+02   2.13419E+01  -3.80627E+02   4.55648E-01  -6.55030E+01
+   -1.73933E-01  -6.58983E+01   1.79566E-02   5.16549E-03   1.93148E-02
+    6.16828E-03   9.90370E-01  -1.23745E-03   1.55343E-03   6.59298E-04
+    1.99869E+02  -2.60939E+02   5.50176E+01  -3.61035E+02   6.40160E+00
+   -6.20434E+01   5.85984E+00  -6.23877E+01   1.81630E-02   5.28553E-03
+    1.95301E-02   6.29354E-03   9.90497E-01  -1.16282E-03   1.65196E-03
+    7.16628E-04   2.14502E+02  -2.52151E+02   8.63233E+01  -3.42236E+02
+    1.19044E+01  -5.87388E+01   1.14382E+01  -5.90378E+01   1.83557E-02
+    5.40125E-03   1.97278E-02   6.41223E-03   9.90640E-01  -1.07706E-03
+    1.75521E-03   7.78635E-04   2.28777E+02  -2.43293E+02   1.15404E+02
+   -3.24191E+02   1.69893E+01  -5.55838E+01   1.65887E+01  -5.58421E+01
+    1.85337E-02   5.51174E-03   1.99060E-02   6.52281E-03   9.90782E-01
+   -9.89067E-04   1.86326E-03   8.45674E-04   2.42637E+02  -2.34399E+02
+    1.42361E+02  -3.06891E+02   2.16875E+01  -5.25685E+01   2.13425E+01
+   -5.27911E+01   1.86995E-02   5.61813E-03   2.00676E-02   6.62651E-03
+    9.90938E-01  -8.89937E-04   1.97616E-03   9.18135E-04   2.56006E+02
+   -2.25514E+02   1.67295E+02  -2.90319E+02   2.60193E+01  -4.96896E+01
+    2.57216E+01  -4.98806E+01   1.88494E-02   5.71773E-03   2.02089E-02
+    6.72044E-03   9.91092E-01  -7.87466E-04   2.09398E-03   9.96435E-04
+    2.68822E+02  -2.16682E+02   1.90305E+02  -2.74463E+02   3.00112E+01
+   -4.69387E+01   2.97548E+01  -4.71012E+01   1.89861E-02   5.81199E-03
+    2.03331E-02   6.80603E-03   9.91250E-01  -6.77199E-04   2.21676E-03
+    1.08104E-03   2.81067E+02  -2.07921E+02   2.11505E+02  -2.59294E+02
+    3.36826E+01  -4.43119E+01   3.34608E+01  -4.44498E+01   1.91087E-02
+    5.89968E-03   2.04392E-02   6.88194E-03   9.91415E-01  -5.61362E-04
+    2.34450E-03   1.17245E-03   2.92697E+02  -1.99268E+02   2.30988E+02
+   -2.44799E+02   3.70569E+01  -4.18014E+01   3.68646E+01  -4.19173E+01
+    1.92168E-02   5.98007E-03   2.05272E-02   6.94747E-03   9.91573E-01
+   -4.42184E-04   2.47723E-03   1.27119E-03   3.03709E+02  -1.90736E+02
+    2.48869E+02  -2.30945E+02   4.01523E+01  -3.94030E+01   3.99854E+01
+   -3.94992E+01   1.93126E-02   6.05431E-03   2.05999E-02   7.00375E-03
+    9.91738E-01  -3.15209E-04   2.61487E-03   1.37784E-03   3.14077E+02
+   -1.82355E+02   2.65221E+02  -2.17726E+02   4.29863E+01  -3.71121E+01
+    4.28407E+01  -3.71912E+01   1.93940E-02   6.12009E-03   2.06554E-02
+    7.04860E-03   9.91894E-01  -1.88235E-04   2.75741E-03   1.49307E-03
+    3.23797E+02  -1.74142E+02   2.80157E+02  -2.05107E+02   4.55778E+01
+   -3.49225E+01   4.54500E+01  -3.49865E+01   1.94627E-02   6.17813E-03
+    2.06955E-02   7.08252E-03   9.92056E-01  -5.23493E-05   2.90473E-03
+    1.61754E-03   3.32881E+02  -1.66104E+02   2.93751E+02  -1.93078E+02
+    4.79423E+01  -3.28302E+01   4.78296E+01  -3.28808E+01   1.95192E-02
+    6.22819E-03   2.07218E-02   7.10582E-03   9.92210E-01   8.46499E-05
+    3.05670E-03   1.75202E-03   3.41321E+02  -1.58263E+02   3.06095E+02
+   -1.81610E+02   5.00940E+01  -3.08314E+01   4.99937E+01  -3.08706E+01
+    1.95626E-02   6.26851E-03   2.07333E-02   7.11645E-03   9.92359E-01
+    2.23877E-04   3.21316E-03   1.89735E-03   3.49144E+02  -1.50617E+02
+    3.17270E+02  -1.70687E+02   5.20481E+01  -2.89212E+01   5.19584E+01
+   -2.89500E+01   1.95968E-02   6.30191E-03   2.07347E-02   7.11786E-03
+    9.92504E-01   3.64217E-04   3.37387E-03   2.05444E-03   3.56345E+02
+   -1.43189E+02   3.27352E+02  -1.60288E+02   5.38179E+01  -2.70958E+01
+    5.37369E+01  -2.71156E+01   1.96184E-02   6.32422E-03   2.07229E-02
+    7.10561E-03   9.92642E-01   5.06785E-04   3.53852E-03   2.22427E-03
+    3.62953E+02  -1.35975E+02   3.36418E+02  -1.50391E+02   5.54158E+01
+   -2.53515E+01   5.53417E+01  -2.53636E+01   1.96308E-02   6.33774E-03
+    2.07017E-02   7.08246E-03   9.92774E-01   6.50467E-04   3.70679E-03
+    2.40797E-03   3.68981E+02  -1.28987E+02   3.44533E+02  -1.40982E+02
+    5.68528E+01  -2.36853E+01   5.67846E+01  -2.36907E+01   1.96340E-02
+    6.34141E-03   2.06716E-02   7.04757E-03   9.92898E-01   7.95263E-04
+    3.87820E-03   2.60671E-03   3.74452E+02  -1.22223E+02   3.51772E+02
+   -1.32034E+02   5.72358E+01  -2.32118E+01   5.71725E+01  -2.32112E+01
+    1.96290E-02   6.33529E-03   2.06339E-02   7.00102E-03   9.93011E-01
+    9.34490E-04   4.05222E-03   2.82183E-03   3.79389E+02  -1.15688E+02
+    3.58191E+02  -1.23537E+02   5.82948E+01  -2.18099E+01   5.82354E+01
+   -2.18042E+01   1.96166E-02   6.31884E-03   2.05900E-02   6.94291E-03
+    9.93118E-01   1.07706E-03   4.22821E-03   3.05478E-03   3.83812E+02
+   -1.09386E+02   3.63855E+02  -1.15468E+02   5.92747E+01  -2.04139E+01
+    5.92182E+01  -2.04041E+01   1.95977E-02   6.29185E-03   2.05408E-02
+    6.87282E-03   9.93215E-01   1.21406E-03   4.40536E-03   3.30716E-03
+    3.87750E+02  -1.03315E+02   3.68818E+02  -1.07813E+02   6.01369E+01
+   -1.90843E+01   6.00829E+01  -1.90706E+01   1.95733E-02   6.25422E-03
+    2.04880E-02   6.79134E-03   9.93302E-01   1.34883E-03   4.58277E-03
+    3.58076E-03   3.91224E+02  -9.74739E+01   3.73137E+02  -1.00554E+02
+    6.08907E+01  -1.78173E+01   6.08385E+01  -1.78005E+01   1.95455E-02
+    6.20753E-03   2.04337E-02   6.70008E-03   9.93379E-01   1.47914E-03
+    4.75928E-03   3.87747E-03   3.94261E+02  -9.18647E+01   3.76860E+02
+   -9.36770E+01   6.15433E+01  -1.66119E+01   6.14926E+01  -1.65924E+01
+    1.95131E-02   6.14770E-03   2.03769E-02   6.59517E-03   9.93449E-01
+    1.60723E-03   4.93362E-03   4.19948E-03   3.96886E+02  -8.64853E+01
+    3.80037E+02  -8.71656E+01   6.21028E+01  -1.54651E+01   6.20531E+01
+   -1.54434E+01   1.94792E-02   6.07833E-03   2.03210E-02   6.48062E-03
+    9.93508E-01   1.72864E-03   5.10420E-03   4.54912E-03   3.99124E+02
+   -8.13323E+01   3.82712E+02  -8.10061E+01   6.25761E+01  -1.43754E+01
+    6.25273E+01  -1.43518E+01   1.94441E-02   5.99751E-03   2.02663E-02
+    6.35469E-03   9.93558E-01   1.84448E-03   5.26923E-03   4.92904E-03
+    4.01002E+02  -7.63994E+01   3.84931E+02  -7.51813E+01   6.29704E+01
+   -1.33401E+01   6.29221E+01  -1.33152E+01   1.94090E-02   5.90513E-03
+    2.02140E-02   6.21752E-03   9.93599E-01   1.95363E-03   5.42654E-03
+    5.34207E-03   4.02543E+02  -7.16930E+01   3.86731E+02  -6.96822E+01
+    6.32919E+01  -1.23581E+01   6.32440E+01  -1.23317E+01   1.93754E-02
+    5.80255E-03   2.01660E-02   6.07060E-03   9.93633E-01   2.05721E-03
+    5.57362E-03   5.79138E-03   4.03774E+02  -6.71992E+01   3.88151E+02
+   -6.44939E+01   6.35470E+01  -1.14264E+01   6.34994E+01  -1.13993E+01
+    1.93440E-02   5.68780E-03   2.01227E-02   5.91244E-03   9.93660E-01
+    2.15300E-03   5.70754E-03   6.28047E-03   4.04717E+02  -6.29199E+01
+    3.89230E+02  -5.96003E+01   6.37414E+01  -1.05439E+01   6.36939E+01
+   -1.05161E+01   1.93161E-02   5.56124E-03   2.00854E-02   5.74314E-03
+    9.93679E-01   2.24099E-03   5.82492E-03   6.81324E-03   4.05395E+02
+   -5.88527E+01   3.89997E+02  -5.49977E+01   6.38807E+01  -9.70889E+00
+    6.38333E+01  -9.68067E+00   1.92931E-02   5.42351E-03   2.00554E-02
+    5.56388E-03   9.93693E-01   2.32342E-03   5.92176E-03   7.39385E-03
+    4.05833E+02  -5.49846E+01   3.90488E+02  -5.06636E+01   6.39701E+01
+   -8.91964E+00   6.39228E+01  -8.89084E+00   1.92760E-02   5.27276E-03
+    2.00338E-02   5.37286E-03   9.93701E-01   2.39581E-03   5.99350E-03
+    8.02705E-03   4.06052E+02  -5.13183E+01   3.90732E+02  -4.65958E+01
+    6.40147E+01  -8.17400E+00   6.39673E+01  -8.14521E+00   1.92664E-02
+    5.11192E-03   2.00219E-02   5.17318E-03   9.93705E-01   2.46042E-03
+    6.03480E-03   8.71797E-03   4.06073E+02  -4.79731E+01   3.90755E+02
+   -4.29016E+01   6.40191E+01  -7.47107E+00   6.39717E+01  -7.44227E+00
+    1.92634E-02   4.63750E-03   2.00186E-02   4.64979E-03   9.93706E-01
+    2.51611E-03   6.03952E-03   9.47242E-03   4.05925E+02  -4.48400E+01
+    3.90593E+02  -3.94760E+01   6.39878E+01  -6.80899E+00   6.39404E+01
+   -6.78019E+00   1.92898E-02   4.07907E-03   2.00473E-02   4.04200E-03
+    9.93703E-01   2.56177E-03   6.00057E-03   1.02966E-02   4.05615E+02
+   -4.17634E+01   3.90258E+02  -3.61536E+01   6.39250E+01  -6.18625E+00
+    6.38777E+01  -6.15766E+00   1.93161E-02   3.81802E-03   2.00772E-02
+    3.74537E-03   9.93699E-01   2.60298E-03   5.90979E-03   1.11974E-02
+    4.05168E+02  -3.88681E+01   3.89779E+02  -3.30513E+01   6.38348E+01
+   -5.60108E+00   6.37875E+01  -5.57299E+00   1.93593E-02   3.53806E-03
+    2.01256E-02   3.43145E-03   9.93694E-01   2.63528E-03   5.75779E-03
+    1.21826E-02   4.04602E+02  -3.61445E+01   3.89179E+02  -3.01640E+01
+    6.37208E+01  -5.05255E+00   6.36736E+01  -5.02460E+00   1.94208E-02
+    3.24217E-03   2.01937E-02   3.10371E-03   9.93689E-01   2.65979E-03
+    5.53378E-03   1.32606E-02   4.03936E+02  -3.35948E+01   3.88478E+02
+   -2.74786E+01   6.35866E+01  -4.53887E+00   6.35395E+01  -4.51150E+00
+    1.95032E-02   2.92679E-03   2.02841E-02   2.75801E-03   9.93685E-01
+    2.67538E-03   5.22540E-03   1.44408E-02   4.03183E+02  -3.12030E+01
+    3.87694E+02  -2.49905E+01   6.34355E+01  -4.05906E+00   6.33886E+01
+   -4.03218E+00   1.96086E-02   2.59219E-03   2.03982E-02   2.39540E-03
+    9.93681E-01   2.68763E-03   4.81849E-03   1.57333E-02   4.02362E+02
+   -2.89744E+01   3.86846E+02  -2.26860E+01   6.32705E+01  -3.61111E+00
+    6.32238E+01  -3.58466E+00   1.97399E-02   2.23570E-03   2.05394E-02
+    2.01231E-03   9.93681E-01   2.68875E-03   4.29677E-03   1.71497E-02
+    4.01240E+02  -2.63135E+01   3.85704E+02  -1.99795E+01   6.30946E+01
+   -3.19403E+00   6.30480E+01  -3.16815E+00   1.92811E-02   3.32331E-03
+    2.00707E-02   3.12317E-03   9.93680E-01   2.69097E-03   3.64180E-03
+    1.87023E-02   4.00266E+02  -2.42660E+01   3.84719E+02  -1.79070E+01
+    6.29103E+01  -2.80643E+00   6.28642E+01  -2.78141E+00   1.93296E-02
+    3.22112E-03   2.01267E-02   3.00536E-03   9.93683E-01   2.68315E-03
+    2.83235E-03   2.04051E-02   3.99290E+02  -2.24191E+01   3.83740E+02
+   -1.60566E+01   6.27205E+01  -2.44754E+00   6.26745E+01  -2.42273E+00
+    1.94723E-02   2.95133E-03   2.02795E-02   2.71656E-03   9.93691E-01
+    2.66758E-03   1.84434E-03   2.22732E-02   3.98293E+02  -2.07077E+01
+    3.82751E+02  -1.43589E+01   6.25268E+01  -2.11500E+00   6.24814E+01
+   -2.09119E+00   1.96438E-02   2.65697E-03   2.04613E-02   2.40441E-03
+    9.93705E-01   2.64419E-03   6.50259E-04   2.43235E-02   3.97281E+02
+   -1.91173E+01   3.81760E+02  -1.28009E+01   6.23319E+01  -1.80841E+00
+    6.22868E+01  -1.78524E+00   1.98371E-02   2.35286E-03   2.06647E-02
+    2.08457E-03   9.93721E-01   2.61858E-03  -7.81271E-04   2.65746E-02
+    3.96168E+02  -1.75022E+01   3.80678E+02  -1.12310E+01   6.21374E+01
+   -1.52641E+00   6.20928E+01  -1.50381E+00   1.97942E-02   2.41513E-03
+    2.06242E-02   2.14333E-03   9.93743E-01   2.58850E-03  -2.48586E-03
+    2.90471E-02   3.95051E+02  -1.59979E+01   3.79603E+02  -9.78417E+00
+    6.19447E+01  -1.26707E+00   6.19008E+01  -1.24526E+00   1.97551E-02
+    2.46772E-03   2.05871E-02   2.19313E-03   9.93768E-01   2.55286E-03
+   -4.50390E-03   3.17634E-02   3.94041E+02  -1.47307E+01   3.78652E+02
+   -8.59002E+00   6.17560E+01  -1.03013E+00   6.17125E+01  -1.00888E+00
+    1.99913E-02   2.17124E-03   2.08320E-02   1.88572E-03   9.93801E-01
+    2.51388E-03  -6.88160E-03   3.47488E-02   3.93057E+02  -1.35731E+01
+    3.77735E+02  -7.51106E+00   6.15725E+01  -8.14136E-01   6.15295E+01
+   -7.93677E-01   2.02572E-02   1.85833E-03   2.11064E-02   1.56292E-03
+    9.93838E-01   2.46933E-03  -9.67121E-03   3.80308E-02   3.91848E+02
+   -1.22341E+01   3.76607E+02  -6.26274E+00   6.13949E+01  -6.17605E-01
+    6.13524E+01  -5.97646E-01   1.99166E-02   2.23542E-03   2.07573E-02
+    1.94924E-03   9.93874E-01   2.42811E-03  -1.29318E-02   4.16397E-02
+    3.90400E+02  -1.07217E+01   3.75254E+02  -4.84903E+00   6.12243E+01
+   -4.39324E-01   6.11827E+01  -4.20362E-01   1.89072E-02   3.29014E-03
+    1.97233E-02   3.02968E-03   9.93917E-01   2.38245E-03  -1.67308E-02
+    4.56094E-02   3.89448E+02  -9.77904E+00   3.74405E+02  -4.00902E+00
+    6.10625E+01  -2.79149E-01   6.10215E+01  -2.60828E-01   1.91048E-02
+    3.09463E-03   1.99267E-02   2.82846E-03   9.93970E-01   2.33233E-03
+   -2.11442E-02   4.99769E-02   3.88529E+02  -8.91564E+00   3.73604E+02
+   -3.25569E+00   6.09094E+01  -1.35368E-01   6.08692E+01  -1.17547E-01
+    1.93209E-02   2.89153E-03   2.01476E-02   2.62087E-03   9.94028E-01
+    2.27886E-03  -2.62587E-02   5.47836E-02   3.87654E+02  -8.13266E+00
+    3.72857E+02  -2.58790E+00   6.07657E+01  -6.84327E-03   6.07262E+01
+    1.02649E-02   1.95756E-02   2.66362E-03   2.04068E-02   2.38892E-03
+    9.94088E-01   2.22429E-03  -3.21715E-02   6.00746E-02   3.86815E+02
+   -7.41697E+00   3.72161E+02  -1.99253E+00   6.06323E+01   1.07283E-01
+    6.05933E+01   1.23749E-01   1.98397E-02   2.43807E-03   2.06740E-02
+    2.16069E-03   9.94150E-01   2.16971E-03  -3.89933E-02   6.59000E-02
+    3.85977E+02  -6.73150E+00   3.71472E+02  -1.43081E+00   6.05092E+01
+    2.07722E-01   6.04713E+01   2.23476E-01   2.00157E-02   2.29435E-03
+    2.08501E-02   2.01694E-03   9.94222E-01   2.11179E-03  -4.68492E-02
+    7.23153E-02   3.84512E+02  -5.58525E+00   3.70166E+02  -4.08886E-01
+    6.03967E+01   2.95686E-01   6.03594E+01   3.11013E-01   1.84728E-02
+    3.50155E-03   1.92724E-02   3.25133E-03   9.94288E-01   2.05944E-03
+   -5.58811E-02   7.93820E-02   3.83754E+02  -5.01612E+00   3.69580E+02
+    3.13650E-02   6.02948E+01   3.72246E-01   6.02584E+01   3.86788E-01
+    1.86690E-02   3.35418E-03   1.94695E-02   3.10336E-03   9.94366E-01
+    2.00264E-03  -6.62473E-02   8.71669E-02   3.83043E+02  -4.50287E+00
+    3.69047E+02   4.16299E-01   6.02045E+01   4.37328E-01   6.01689E+01
+    4.51513E-01   1.88821E-02   3.20037E-03   1.96826E-02   2.94948E-03
+    9.94447E-01   1.94361E-03  -7.81297E-02   9.57456E-02   3.82374E+02
+   -4.03810E+00   3.68568E+02   7.49338E-01   6.01246E+01   4.93001E-01
+    6.00898E+01   5.06402E-01   1.91159E-02   3.03782E-03   1.99156E-02
+    2.78753E-03   9.94527E-01   1.88791E-03  -9.17308E-02   1.05200E-01
+    3.81751E+02  -3.62009E+00   3.68138E+02   1.03733E+00   6.00559E+01
+    5.38979E-01   6.00219E+01   5.51881E-01   1.93624E-02   2.87263E-03
+    2.01604E-02   2.62341E-03   9.94616E-01   1.82888E-03  -1.07282E-01
+    1.15622E-01   3.81174E+02  -3.24656E+00   3.67767E+02   1.27741E+00
+    5.99980E+01   5.76546E-01   5.99649E+01   5.88807E-01   1.96409E-02
+    2.69247E-03   2.04366E-02   2.44475E-03   9.94700E-01   1.77319E-03
+   -1.25041E-01   1.27112E-01   3.80185E+02  -2.62896E+00   3.66984E+02
+    1.76671E+00   5.99504E+01   6.06271E-01   5.99183E+01   6.18033E-01
+    1.87423E-02   3.25439E-03   1.95165E-02   3.02018E-03   9.94787E-01
+    1.71861E-03  -1.45302E-01   1.39782E-01   3.78925E+02  -1.86593E+00
+    3.65943E+02   2.39686E+00   5.99127E+01   6.29011E-01   5.98811E+01
+    6.40488E-01   1.70588E-02   4.27304E-03   1.78003E-02   4.05856E-03
+    9.94874E-01   1.66515E-03  -1.68395E-01   1.53755E-01   3.78391E+02
+   -1.55285E+00   3.65628E+02   2.58162E+00   5.98853E+01   6.45121E-01
+    5.98550E+01   6.55814E-01   1.71566E-02   4.21568E-03   1.78941E-02
+    4.00357E-03   9.94970E-01   1.61058E-03  -1.94692E-01   1.69167E-01
+    3.77892E+02  -1.26943E+00   3.65355E+02   2.73674E+00   5.98679E+01
+    6.54958E-01   5.98380E+01   6.65437E-01   1.72642E-02   4.15453E-03
+    1.79970E-02   3.94513E-03   9.95061E-01   1.55823E-03  -2.24609E-01
+    1.86168E-01   3.77427E+02  -1.01280E+00   3.65123E+02   2.86505E+00
+    5.98587E+01   6.60091E-01   5.98299E+01   6.69857E-01   1.73770E-02
+    4.09233E-03   1.81042E-02   3.88599E-03   9.95157E-01   1.50476E-03
+   -2.58624E-01   2.04928E-01   3.77006E+02  -7.88117E-01   3.64936E+02
+    2.96485E+00   5.98592E+01   6.59806E-01   5.98310E+01   6.69358E-01
+    1.75113E-02   4.02038E-03   1.82328E-02   3.81711E-03   9.95255E-01
+    1.45353E-03  -2.97266E-01   2.25628E-01   3.76604E+02  -5.78257E-01
+    3.64772E+02   3.05039E+00   5.98678E+01   6.55315E-01   5.98404E+01
+    6.64368E-01   1.76221E-02   3.96267E-03   1.83368E-02   3.76295E-03
+    9.95349E-01   1.40341E-03  -3.41132E-01   2.48472E-01   3.76242E+02
+   -3.95199E-01   3.64647E+02   3.11369E+00   5.98843E+01   6.46974E-01
+    5.98580E+01   6.55529E-01   1.77619E-02   3.89187E-03   1.84699E-02
+    3.69553E-03   9.95447E-01   1.35328E-03  -3.90900E-01   2.73687E-01
+    3.75917E+02  -2.34952E-01   3.64566E+02   3.15361E+00   5.99076E+01
+    6.35498E-01   5.98819E+01   6.43695E-01   1.79176E-02   3.81509E-03
+    1.86180E-02   3.62244E-03   9.95549E-01   1.30539E-03  -4.47328E-01
+    3.01521E-01   3.75615E+02  -8.89625E-02   3.64508E+02   3.18155E+00
+    5.99384E+01   6.20599E-01   5.99136E+01   6.28441E-01   1.80650E-02
+    3.74422E-03   1.87573E-02   3.55554E-03   9.95638E-01   1.26084E-03
+   -5.11271E-01   3.32251E-01   3.75356E+02   3.19353E-02   3.64491E+02
+    3.18954E+00   5.99756E+01   6.03277E-01   5.99513E+01   6.10762E-01
+    1.82589E-02   3.65338E-03   1.89435E-02   3.46828E-03   9.95745E-01
+    1.21294E-03  -5.83681E-01   3.66178E-01   3.75107E+02   1.45420E-01
+    3.64492E+02   3.18897E+00   6.00195E+01   5.83246E-01   5.99958E+01
+    5.90446E-01   1.84269E-02   3.57660E-03   1.91022E-02   3.39574E-03
+    9.95834E-01   1.17062E-03  -6.65653E-01   4.03646E-01   3.74895E+02
+    2.40085E-01   3.64522E+02   3.17585E+00   6.00665E+01   5.62075E-01
+    6.00443E+01   5.68776E-01   1.86171E-02   3.49170E-03   1.92837E-02
+    3.31475E-03   9.95932E-01   1.12829E-03  -7.58390E-01   4.45022E-01
+    3.74295E+02   5.01270E-01   3.64166E+02   3.33039E+00   6.01204E+01
+    5.38765E-01   6.00982E+01   5.45323E-01   1.77472E-02   3.87078E-03
+    1.83946E-02   3.70218E-03   9.96021E-01   1.08708E-03  -8.63263E-01
+    4.90721E-01   3.73551E+02   8.18341E-01   3.63670E+02   3.54196E+00
+    6.01775E+01   5.14457E-01   6.01564E+01   5.20659E-01   1.64680E-02
+    4.41551E-03   1.70933E-02   4.25634E-03   9.96115E-01   1.04810E-03
+   -9.81803E-01   5.41199E-01   3.73346E+02   9.03882E-01   3.63706E+02
+    3.52657E+00   6.02391E+01   4.88724E-01   6.02188E+01   4.94569E-01
+    1.65158E-02   4.39563E-03   1.71314E-02   4.24043E-03   9.96209E-01
+    1.00912E-03  -1.11574E+00   5.96962E-01   3.73147E+02   9.84861E-01
+    3.63751E+02   3.50889E+00   6.03041E+01   4.62277E-01   6.02844E+01
+    4.67909E-01   1.65467E-02   4.38300E-03   1.71526E-02   4.23183E-03
+    9.96302E-01   9.71246E-04  -1.26701E+00   6.58568E-01   3.72972E+02
+    1.05500E+00   3.63816E+02   3.48266E+00   6.03719E+01   4.35261E-01
+    6.03528E+01   4.40536E-01   1.66045E-02   4.35999E-03   1.72002E-02
+    4.21283E-03   9.96391E-01   9.35604E-04  -1.43778E+00   7.26636E-01
+    3.72816E+02   1.11545E+00   3.63897E+02   3.45129E+00   6.04415E+01
+    4.08030E-01   6.04232E+01   4.13163E-01   1.66524E-02   4.34130E-03
+    1.72384E-02   4.19796E-03   9.96485E-01   8.99962E-04  -1.63051E+00
+    8.01848E-01   3.72671E+02   1.17077E+00   3.63994E+02   3.41422E+00
+    6.05136E+01   3.80515E-01   6.04962E+01   3.85219E-01   1.66983E-02
+    4.32379E-03   1.72733E-02   4.18460E-03   9.96569E-01   8.66547E-04
+   -1.84793E+00   8.84964E-01   3.72541E+02   1.21981E+00   3.64090E+02
+    3.37830E+00   6.05875E+01   3.52856E-01   6.05701E+01   3.57561E-01
+    1.67557E-02   4.30228E-03   1.73208E-02   4.16681E-03   9.96659E-01
+    8.33133E-04  -2.09313E+00   9.76819E-01   3.72413E+02   1.26601E+00
+    3.64199E+02   3.33838E+00   6.06616E+01   3.25697E-01   6.06451E+01
+    3.29974E-01   1.67855E-02   4.29132E-03   1.73396E-02   4.15989E-03
+    9.96743E-01   8.01946E-04  -2.36957E+00   1.07834E+00   3.72313E+02
+    1.30250E+00   3.64329E+02   3.29161E+00   6.07366E+01   2.98609E-01
+    6.07201E+01   3.02957E-01   1.68537E-02   4.26678E-03   1.73969E-02
+    4.13925E-03   9.96828E-01   7.71873E-04  -2.68114E+00   1.19056E+00
+    3.72217E+02   1.33615E+00   3.64452E+02   3.24770E+00   6.08113E+01
+    2.72163E-01   6.07962E+01   2.76083E-01   1.68981E-02   4.25105E-03
+    1.74310E-02   4.12717E-03   9.96908E-01   7.42914E-04  -3.03218E+00
+    1.31460E+00   3.72137E+02   1.36466E+00   3.64598E+02   3.19695E+00
+    6.08857E+01   2.46500E-01   6.08709E+01   2.50136E-01   1.69670E-02
+    4.22713E-03   1.74888E-02   4.10715E-03   9.96993E-01   7.13955E-04
+   -3.42758E+00   1.45173E+00   3.72048E+02   1.39432E+00   3.64721E+02
+    3.15475E+00   6.09596E+01   2.21266E-01   6.09453E+01   2.24901E-01
+    1.69951E-02   4.21760E-03   1.75065E-02   4.10113E-03   9.97073E-01
+    6.86109E-04  -3.87285E+00   1.60333E+00   3.71982E+02   1.41599E+00
+    3.64874E+02   3.10342E+00   6.10326E+01   1.96815E-01   6.10192E+01
+    2.00166E-01   1.70440E-02   4.20120E-03   1.75442E-02   4.08853E-03
+    9.97153E-01   6.60492E-04  -4.37410E+00   1.77095E+00   3.71925E+02
+    1.43538E+00   3.65032E+02   3.05210E+00   6.11033E+01   1.73648E-01
+    6.10899E+01   1.76927E-01   1.71151E-02   4.17785E-03   1.76042E-02
+    4.06880E-03   9.97229E-01   6.34874E-04  -4.93828E+00   1.95628E+00
+    3.71868E+02   1.45420E+00   3.65164E+02   3.00933E+00   6.11717E+01
+    1.51479E-01   6.11589E+01   1.54615E-01   1.71493E-02   4.16688E-03
+    1.76286E-02   4.06093E-03   9.97309E-01   6.09256E-04  -5.57307E+00
+    2.16122E+00   3.71827E+02   1.46731E+00   3.65337E+02   2.95515E+00
+    6.12387E+01   1.30236E-01   6.12268E+01   1.33087E-01   1.72002E-02
+    4.15070E-03   1.76680E-02   4.04844E-03   9.97380E-01   5.86980E-04
+   -6.28720E+00   2.38785E+00   3.71800E+02   1.47587E+00   3.65506E+02
+    2.90212E+00   6.13029E+01   1.10276E-01   6.12912E+01   1.13057E-01
+    1.72904E-02   4.12254E-03   1.77478E-02   4.02355E-03   9.97456E-01
+    5.63590E-04  -7.09037E+00   2.63848E+00   3.71800E+02   1.47587E+00
+    3.65506E+02   2.90212E+00   6.13029E+01   1.10276E-01   6.12912E+01
+    1.13057E-01   1.72904E-02   4.12254E-03   1.77478E-02   4.02355E-03
+    9.97456E-01   5.63590E-04  -7.09037E+00   2.63848E+00
+    2.83945E-04   1.31546E+02   2.08454E+01
+    1.72784E-03   2.64679E-04   0.00000E+00   0.00000E+00   1.26224E-01
+    2.03108E-02   1.72784E-03   2.64679E-04   0.00000E+00   0.00000E+00
+    1.26224E-01   2.03108E-02   1.99008E-03   3.07204E-04   0.00000E+00
+    0.00000E+00   1.34989E-02   2.03102E-03   2.27950E-03   3.54506E-04
+    0.00000E+00   0.00000E+00   1.47403E-02   2.23390E-03   2.61078E-03
+    4.09076E-04   0.00000E+00   0.00000E+00   1.60941E-02   2.45692E-03
+    3.00019E-03   4.73732E-04   0.00000E+00   0.00000E+00  -4.20665E-02
+   -7.19996E-03   3.40139E-03   5.40882E-04   0.00000E+00   0.00000E+00
+    1.42873E-01   2.37536E-02   3.93339E-03   6.30643E-04   0.00000E+00
+    0.00000E+00  -4.30182E-02  -7.61107E-03   4.46912E-03   7.21772E-04
+    0.00000E+00   0.00000E+00   1.00202E-01   1.67510E-02   5.18116E-03
+    8.43890E-04   0.00000E+00   0.00000E+00   7.59747E-02   1.25960E-02
+    6.00788E-03   9.86850E-04   0.00000E+00   0.00000E+00   4.20572E-02
+    6.73084E-03   6.89614E-03   1.14174E-03   0.00000E+00   0.00000E+00
+    4.60189E-02   7.42165E-03   7.91486E-03   1.32087E-03   0.00000E+00
+    0.00000E+00   5.03480E-02   8.18290E-03   9.05025E-03   1.52222E-03
+    0.00000E+00   0.00000E+00   1.15340E-01   1.97084E-02   1.04126E-02
+    1.76589E-03   0.00000E+00   0.00000E+00   6.68649E-02   1.10382E-02
+    1.19873E-02   2.04998E-03   0.00000E+00   0.00000E+00   1.45896E-01
+    2.52961E-02   1.38981E-02   2.39772E-03   0.00000E+00   0.00000E+00
+    8.97105E-02   1.50712E-02   1.58844E-02   2.76237E-03   0.00000E+00
+    0.00000E+00   1.84312E-01   3.24387E-02   1.82665E-02   3.20357E-03
+    0.00000E+00   0.00000E+00   1.64186E-01   2.87111E-02   2.08868E-02
+    3.69324E-03   0.00000E+00   0.00000E+00   2.36145E-01   4.21586E-02
+    2.45737E-02   4.38847E-03   0.00000E+00   0.00000E+00   2.18840E-01
+    3.88954E-02   2.82185E-02   5.08203E-03   0.00000E+00   0.00000E+00
+    3.08565E-01   5.59691E-02   3.26043E-02   5.92430E-03   0.00000E+00
+    0.00000E+00   2.51208E-01   4.49541E-02   3.74853E-02   6.87037E-03
+    0.00000E+00   0.00000E+00   3.54441E-01   6.49635E-02   4.50214E-02
+    8.34479E-03   0.00000E+00   0.00000E+00   3.78036E-01   6.95799E-02
+    5.18479E-02   9.69302E-03   0.00000E+00   0.00000E+00   4.70634E-01
+    8.78679E-02   5.97564E-02   1.12699E-02   0.00000E+00   0.00000E+00
+    5.33591E-01   1.00421E-01   6.85370E-02   1.30376E-02   0.00000E+00
+    0.00000E+00   6.56852E-01   1.25235E-01   7.86672E-02   1.50968E-02
+    0.00000E+00   0.00000E+00   7.45120E-01   1.43178E-01   9.03157E-02
+    1.74880E-02   0.00000E+00   0.00000E+00   7.43628E-01   1.42872E-01
+    9.80858E-02   1.90989E-02   0.00000E+00   0.00000E+00   9.65400E-01
+    1.88850E-01   1.11347E-01   2.18759E-02   0.00000E+00   0.00000E+00
+    1.04452E+00   2.05419E-01   1.26230E-01   2.50242E-02   0.00000E+00
+    0.00000E+00   1.12370E+00   2.22167E-01   1.42420E-01   2.84839E-02
+    0.00000E+00   0.00000E+00   1.24426E+00   2.47931E-01   1.60174E-01
+    3.23172E-02   0.00000E+00   0.00000E+00   1.47311E+00   2.97341E-01
+    1.80918E-01   3.68430E-02   0.00000E+00   0.00000E+00   1.63789E+00
+    3.33292E-01   2.01987E-01   4.14881E-02   0.00000E+00   0.00000E+00
+    1.79753E+00   3.68490E-01   2.23407E-01   4.62612E-02   0.00000E+00
+    0.00000E+00   2.01480E+00   4.16904E-01   2.46126E-01   5.13787E-02
+    0.00000E+00   0.00000E+00   2.21469E+00   4.61930E-01   2.69452E-01
+    5.66901E-02   0.00000E+00   0.00000E+00   2.41714E+00   5.08028E-01
+    2.93996E-01   6.23405E-02   0.00000E+00   0.00000E+00   2.58829E+00
+    5.47430E-01   3.15248E-01   6.72878E-02   0.00000E+00   0.00000E+00
+    2.84086E+00   6.06225E-01   3.40128E-01   7.31451E-02   0.00000E+00
+    0.00000E+00   2.96361E+00   6.35124E-01   3.62422E-01   7.84535E-02
+    0.00000E+00   0.00000E+00   3.22435E+00   6.97207E-01   3.84140E-01
+    8.36843E-02   0.00000E+00   0.00000E+00   3.32237E+00   7.20817E-01
+    3.98206E-01   8.71119E-02   0.00000E+00   0.00000E+00   3.48349E+00
+    7.60078E-01   4.11707E-01   9.04406E-02   0.00000E+00   0.00000E+00
+    3.56648E+00   7.80538E-01   4.21891E-01   9.29817E-02   0.00000E+00
+    0.00000E+00   3.61343E+00   7.92254E-01   4.25496E-01   9.38920E-02
+    0.00000E+00   0.00000E+00   3.64939E+00   8.01334E-01   4.26480E-01
+    9.41436E-02   0.00000E+00   0.00000E+00   3.63334E+00   7.97232E-01
+    4.25513E-01   9.38932E-02   0.00000E+00   0.00000E+00   3.56859E+00
+    7.80476E-01   4.19688E-01   9.23668E-02   0.00000E+00   0.00000E+00
+    3.48364E+00   7.58214E-01   4.08960E-01   8.95198E-02   0.00000E+00
+    0.00000E+00   3.37999E+00   7.30704E-01   3.97843E-01   8.65313E-02
+    0.00000E+00   0.00000E+00   3.24309E+00   6.93904E-01   3.82930E-01
+    8.24700E-02   0.00000E+00   0.00000E+00   3.09744E+00   6.54239E-01
+    3.69180E-01   7.86762E-02   0.00000E+00   0.00000E+00   2.93278E+00
+    6.08804E-01   3.51605E-01   7.37616E-02   0.00000E+00   0.00000E+00
+    2.77224E+00   5.63913E-01   3.38299E-01   6.99902E-02   0.00000E+00
+    0.00000E+00   2.62028E+00   5.20842E-01   3.24202E-01   6.59395E-02
+    0.00000E+00   0.00000E+00   2.46599E+00   4.76508E-01   3.09441E-01
+    6.16388E-02   0.00000E+00   0.00000E+00   2.30460E+00   4.29487E-01
+    2.94161E-01   5.71238E-02   0.00000E+00   0.00000E+00   2.15509E+00
+    3.85308E-01   2.80330E-01   5.29784E-02   0.00000E+00   0.00000E+00
+    2.01590E+00   3.43589E-01   2.69221E-01   4.95999E-02   0.00000E+00
+    0.00000E+00   1.88718E+00   3.04443E-01   2.58221E-01   4.62051E-02
+    0.00000E+00   0.00000E+00   1.77405E+00   2.69531E-01   2.48718E-01
+    4.32283E-02   0.00000E+00   0.00000E+00   1.67168E+00   2.37462E-01
+    2.40073E-01   4.04790E-02   0.00000E+00   0.00000E+00   1.57956E+00
+    2.08167E-01   2.34483E-01   3.86737E-02   0.00000E+00   0.00000E+00
+    1.49749E+00   1.81662E-01   2.28454E-01   3.66961E-02   0.00000E+00
+    0.00000E+00   1.42650E+00   1.58377E-01   2.21942E-01   3.45255E-02
+    0.00000E+00   0.00000E+00   1.35639E+00   1.35008E-01   2.18806E-01
+    3.34633E-02   0.00000E+00   0.00000E+00   1.30392E+00   1.17237E-01
+    2.15886E-01   3.24583E-02   0.00000E+00   0.00000E+00   1.25964E+00
+    1.01993E-01   2.14213E-01   3.18725E-02   0.00000E+00   0.00000E+00
+    1.22203E+00   8.88264E-02   2.13704E-01   3.16912E-02   0.00000E+00
+    0.00000E+00   1.19410E+00   7.88828E-02   2.12705E-01   3.13294E-02
+    0.00000E+00   0.00000E+00   1.16441E+00   6.81269E-02   2.12230E-01
+    3.11543E-02   0.00000E+00   0.00000E+00   1.13909E+00   5.87918E-02
+    2.12663E-01   3.13168E-02   0.00000E+00   0.00000E+00   1.11748E+00
+    5.06834E-02   2.12931E-01   3.14190E-02   0.00000E+00   0.00000E+00
+    1.09920E+00   4.36969E-02   2.13737E-01   3.17330E-02   0.00000E+00
+    0.00000E+00   1.08381E+00   3.77044E-02   2.15339E-01   3.23685E-02
+    0.00000E+00   0.00000E+00   1.07155E+00   3.28413E-02   2.16539E-01
+    3.28537E-02   0.00000E+00   0.00000E+00   1.06015E+00   2.82329E-02
+    2.18406E-01   3.36235E-02   0.00000E+00   0.00000E+00   1.05050E+00
+    2.42533E-02   2.20156E-01   3.43599E-02   0.00000E+00   0.00000E+00
+    1.04239E+00   2.08402E-02   2.22185E-01   3.52312E-02   0.00000E+00
+    0.00000E+00   1.03522E+00   1.77613E-02   2.24381E-01   3.61941E-02
+    0.00000E+00   0.00000E+00   1.02922E+00   1.51285E-02   2.26738E-01
+    3.72498E-02   0.00000E+00   0.00000E+00   1.02455E+00   1.30374E-02
+    2.29237E-01   3.83933E-02   0.00000E+00   0.00000E+00   1.02061E+00
+    1.12345E-02   2.31744E-01   3.95666E-02   0.00000E+00   0.00000E+00
+    1.01730E+00   9.68391E-03   2.34404E-01   4.08398E-02   0.00000E+00
+    0.00000E+00   1.01451E+00   8.35197E-03   2.37104E-01   4.21624E-02
+    0.00000E+00   0.00000E+00   1.01216E+00   7.19770E-03   2.39876E-01
+    4.35537E-02   0.00000E+00   0.00000E+00   1.01018E+00   6.20869E-03
+    2.42661E-01   4.49853E-02   0.00000E+00   0.00000E+00   1.00852E+00
+    5.35386E-03   2.45413E-01   4.64362E-02   0.00000E+00   0.00000E+00
+    1.00672E+00   4.40460E-03   2.48290E-01   4.79921E-02   0.00000E+00
+    0.00000E+00   1.00565E+00   3.82561E-03   2.51177E-01   4.95946E-02
+    0.00000E+00   0.00000E+00   1.00476E+00   3.32985E-03   2.54093E-01
+    5.12583E-02   0.00000E+00   0.00000E+00   1.00399E+00   2.89374E-03
+    2.56987E-01   5.29552E-02   0.00000E+00   0.00000E+00   1.00335E+00
+    2.51851E-03   2.64154E-01   5.72797E-02   0.00000E+00   0.00000E+00
+    1.02756E+00   1.71276E-02   2.62458E-01   5.62261E-02   0.00000E+00
+    0.00000E+00   1.00000E+00   0.00000E+00   2.65406E-01   5.81140E-02
+    0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00   2.68327E-01
+    6.00439E-02   0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00
+    2.71221E-01   6.20192E-02   0.00000E+00   0.00000E+00   9.99997E-01
+   -1.24248E-06   2.74100E-01   6.40503E-02   0.00000E+00   0.00000E+00
+    1.00000E+00   1.24248E-06   2.76958E-01   6.61371E-02   0.00000E+00
+    0.00000E+00   9.99997E-01  -1.24248E-06   2.79781E-01   6.82735E-02
+    0.00000E+00   0.00000E+00   1.00000E+00   1.24248E-06   2.82569E-01
+    7.04625E-02   0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00
+    2.85330E-01   7.27160E-02   0.00000E+00   0.00000E+00   1.00000E+00
+    0.00000E+00   2.88053E-01   7.50280E-02   0.00000E+00   0.00000E+00
+    1.00000E+00   0.00000E+00   2.90732E-01   7.73999E-02   0.00000E+00
+    0.00000E+00   1.00000E+00   0.00000E+00   2.93379E-01   7.98475E-02
+    0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00   2.95983E-01
+    8.23670E-02   0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00
+    2.98540E-01   8.49610E-02   0.00000E+00   0.00000E+00   1.00000E+00
+    0.00000E+00   3.01043E-01   8.76305E-02   0.00000E+00   0.00000E+00
+    1.00000E+00   0.00000E+00   3.03502E-01   9.03940E-02   0.00000E+00
+    0.00000E+00   1.00000E+00   0.00000E+00   3.05903E-01   9.32462E-02
+    0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00   3.08241E-01
+    9.61918E-02   0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00
+    3.10513E-01   9.92384E-02   0.00000E+00   0.00000E+00   1.00000E+00
+    0.00000E+00   3.12716E-01   1.02395E-01   0.00000E+00   0.00000E+00
+    1.00000E+00   0.00000E+00   3.14841E-01   1.05665E-01   0.00000E+00
+    0.00000E+00   9.99999E-01  -1.24248E-06   3.16878E-01   1.09050E-01
+    0.00000E+00   0.00000E+00   1.00000E+00   1.24248E-06   3.18827E-01
+    1.12570E-01   0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00
+    3.20675E-01   1.16222E-01   0.00000E+00   0.00000E+00   1.00000E+00
+    0.00000E+00   3.22410E-01   1.20010E-01   0.00000E+00   0.00000E+00
+    1.00000E+00   0.00000E+00   3.24025E-01   1.23951E-01   0.00000E+00
+    0.00000E+00   9.99999E-01  -1.24248E-06   3.25510E-01   1.28051E-01
+    0.00000E+00   0.00000E+00   1.00000E+00   1.24248E-06   3.26848E-01
+    1.32312E-01   0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00
+    3.28027E-01   1.36745E-01   0.00000E+00   0.00000E+00   1.00000E+00
+    0.00000E+00   3.29034E-01   1.41362E-01   0.00000E+00   0.00000E+00
+    1.00000E+00   0.00000E+00   3.29852E-01   1.46168E-01   0.00000E+00
+    0.00000E+00   1.00000E+00  -1.24248E-06   3.30463E-01   1.51176E-01
+    0.00000E+00   0.00000E+00   1.00000E+00   1.24248E-06   3.30850E-01
+    1.56390E-01   0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00
+    3.30992E-01   1.61823E-01   0.00000E+00   0.00000E+00   1.00000E+00
+    0.00000E+00   3.30891E-01   1.66470E-01  -6.46011E-05   2.96659E-03
+    1.00000E+00  -1.24248E-06   3.30487E-01   1.72270E-01  -7.45216E-05
+    3.10882E-03   1.00000E+00   0.00000E+00   3.29775E-01   1.78311E-01
+   -9.22550E-05   3.25946E-03   1.00000E+00   1.24248E-06   3.28733E-01
+    1.84601E-01  -1.18532E-04   3.41805E-03   1.00000E+00   0.00000E+00
+    3.27333E-01   1.91152E-01  -1.54208E-04   3.58502E-03   1.00000E+00
+    0.00000E+00   3.25548E-01   1.97975E-01  -2.00204E-04   3.76083E-03
+    1.00000E+00   0.00000E+00   3.23349E-01   2.05078E-01  -2.57523E-04
+    3.94596E-03   1.00000E+00   0.00000E+00   3.20706E-01   2.12468E-01
+   -3.34215E-04   4.16043E-03   1.00000E+00  -1.24248E-06   3.19416E-01
+    2.15651E-01  -4.79996E-03   1.51719E-02   9.99999E-01   1.24248E-06
+    3.15996E-01   2.23191E-01  -5.14780E-03   1.59389E-02   1.00000E+00
+    0.00000E+00   3.12071E-01   2.31018E-01  -5.55247E-03   1.67458E-02
+    1.00000E+00   0.00000E+00   3.07609E-01   2.39138E-01  -6.01892E-03
+    1.75947E-02   1.00000E+00   0.00000E+00   3.02581E-01   2.47555E-01
+   -6.55235E-03   1.84876E-02   1.00000E+00   0.00000E+00   2.96966E-01
+    2.56254E-01  -7.20102E-03   1.94926E-02   1.00000E+00   0.00000E+00
+    2.95287E-01   2.58675E-01  -1.72392E-02   3.39696E-02   1.00000E+00
+    0.00000E+00   2.88872E-01   2.67328E-01  -1.85162E-02   3.56921E-02
+    1.00000E+00   0.00000E+00   2.81832E-01   2.76247E-01  -1.99424E-02
+    3.74990E-02   1.00000E+00   0.00000E+00   2.74135E-01   2.85441E-01
+   -2.15284E-02   3.93931E-02   1.00000E+00   0.00000E+00   2.65757E-01
+    2.94903E-01  -2.32853E-02   4.13778E-02   1.00000E+00   0.00000E+00
+    2.56671E-01   3.04641E-01  -2.52253E-02   4.34565E-02   1.00000E+00
+    0.00000E+00   2.46847E-01   3.14653E-01  -2.73603E-02   4.56324E-02
+    1.00000E+00  -1.24248E-06   2.36259E-01   3.24939E-01  -2.97033E-02
+    4.79089E-02   9.99997E-01   1.24248E-06   2.30541E-01   3.30247E-01
+   -4.14319E-02   5.87973E-02   1.00000E+00   0.00000E+00   2.24048E-01
+    3.36018E-01  -5.26195E-02   6.87407E-02   1.00000E+00   0.00000E+00
+    2.12340E-01   3.45999E-01  -5.65613E-02   7.21008E-02   1.00000E+00
+    0.00000E+00   1.99959E-01   3.56139E-01  -6.08305E-02   7.55970E-02
+    1.00000E+00   0.00000E+00   1.86889E-01   3.66437E-01  -6.54438E-02
+    7.92322E-02   1.00000E+00   0.00000E+00   1.73135E-01   3.76880E-01
+   -7.04167E-02   8.30081E-02   1.00000E+00   0.00000E+00   1.64656E-01
+    3.83092E-01  -8.37810E-02   9.27989E-02   1.00000E+00   0.00000E+00
+    1.55412E-01   3.89634E-01  -9.66500E-02   1.01907E-01   1.00000E+00
+    0.00000E+00   1.41002E-01   3.99498E-01  -1.03472E-01   1.06576E-01
+    1.00000E+00   0.00000E+00   1.26124E-01   4.09357E-01  -1.10741E-01
+    1.11394E-01   1.00000E+00   0.00000E+00   1.10822E-01   4.19186E-01
+   -1.18469E-01   1.16358E-01   1.00000E+00  -1.24248E-06   1.05504E-01
+    4.22500E-01  -1.38616E-01   1.28911E-01   9.99997E-01   1.24248E-06
+    9.17996E-02   4.30791E-01  -1.49077E-01   1.35240E-01   1.00000E+00
+    0.00000E+00   7.68774E-02   4.39564E-01  -1.58752E-01   1.40929E-01
+    1.00000E+00   0.00000E+00   6.35953E-02   4.47161E-01  -1.70677E-01
+    1.47748E-01   1.00000E+00   0.00000E+00   6.45079E-02   4.46652E-01
+   -1.97231E-01   1.62527E-01   1.00000E+00   0.00000E+00   5.14830E-02
+    4.53713E-01  -2.08931E-01   1.68869E-01   1.00000E+00   0.00000E+00
+    3.88628E-02   4.60381E-01  -2.21087E-01   1.75292E-01   1.00000E+00
+    0.00000E+00   2.67330E-02   4.66631E-01  -2.33681E-01   1.81781E-01
+    1.00000E+00   0.00000E+00   1.52454E-02   4.72408E-01  -2.46683E-01
+    1.88319E-01   1.00000E+00   0.00000E+00   6.22726E-03   4.76838E-01
+   -2.61522E-01   1.95606E-01   1.00001E+00  -1.24247E-06   1.17938E-02
+    4.74166E-01  -2.87856E-01   2.08238E-01   9.99995E-01   1.24250E-06
+    4.61702E-03   4.77531E-01  -3.02174E-01   2.14952E-01   1.00000E+00
+    0.00000E+00  -1.26735E-03   4.80229E-01  -3.16715E-01   2.21621E-01
+    1.00000E+00   0.00000E+00  -5.69052E-03   4.82215E-01  -3.31419E-01
+    2.28219E-01   1.00000E+00   0.00000E+00   1.14310E-03   4.79213E-01
+   -3.53163E-01   2.37770E-01   1.00000E+00   0.00000E+00   1.31702E-02
+    4.74040E-01  -3.76591E-01   2.47850E-01   1.00001E+00  -1.24247E-06
+    1.58741E-02   4.72899E-01  -3.91528E-01   2.54146E-01   9.99995E-01
+    1.24250E-06   2.07493E-02   4.70884E-01  -4.06292E-01   2.60246E-01
+    1.00001E+00  -1.24247E-06   2.78866E-02   4.67993E-01  -4.20796E-01
+    2.66122E-01   9.99995E-01   1.24250E-06   3.74182E-02   4.64204E-01
+   -4.34952E-01   2.71747E-01   1.00000E+00   0.00000E+00   4.94861E-02
+    4.59500E-01  -4.48660E-01   2.77093E-01   1.00000E+00   0.00000E+00
+    6.41711E-02   4.53877E-01  -4.61829E-01   2.82134E-01   1.00001E+00
+   -1.24247E-06   8.16518E-02   4.47306E-01  -4.74391E-01   2.86856E-01
+    1.00000E+00   0.00000E+00   1.22910E-01   4.32072E-01  -4.97126E-01
+    2.95251E-01   9.99995E-01   1.24247E-06   1.47335E-01   4.23211E-01
+   -5.07952E-01   2.99179E-01   1.00000E+00   0.00000E+00   1.74686E-01
+    4.13457E-01  -5.17805E-01   3.02693E-01   1.00000E+00   0.00000E+00
+    2.04942E-01   4.02849E-01  -5.26592E-01   3.05773E-01   1.00000E+00
+    0.00000E+00   2.38137E-01   3.91403E-01  -5.34213E-01   3.08401E-01
+    1.00000E+00   0.00000E+00   2.74413E-01   3.79098E-01  -5.40669E-01
+    3.10591E-01   1.00000E+00   0.00000E+00   3.39847E-01   3.57257E-01
+   -5.56767E-01   3.15964E-01   1.00000E+00   0.00000E+00   3.82860E-01
+    3.43126E-01  -5.60118E-01   3.17065E-01   1.00000E+00   0.00000E+00
+    4.28542E-01   3.28352E-01  -5.61983E-01   3.17668E-01   1.00000E+00
+    0.00000E+00   4.76791E-01   3.12986E-01  -5.62285E-01   3.17764E-01
+    1.00001E+00  -1.24247E-06   5.27404E-01   2.97108E-01  -5.61009E-01
+    3.17364E-01   9.99995E-01   1.24250E-06   5.80323E-01   2.80754E-01
+   -5.58098E-01   3.16465E-01   1.00000E+00   0.00000E+00   5.80323E-01
+    2.80754E-01  -5.58098E-01   3.16465E-01   1.00000E+00   0.00000E+00
+ MEDIUM=SILIX-3MEV-10KEV-02KEV  ,STERNCID=SILIX-3MEV-10KEV-02KEV  
+ ELEM,RHO= 2.4000E+00,NE= 1
+ ASYM=SI,Z=14.,A=   28.088,PZ= 1.00000E+00,RHOZ= 2.80880E+01
+    9.09454E+00   5.21000E-01   2.00000E-03   3.51100E+00   3.00200E+00
+     0  200    0  150    0    0    0    0
+    9.99981E-01  -2.20505E-01   5.06008E-02   9.95682E-01  -2.36684E-01
+    9.52000E-01   1.00023E+00  -1.86921E-01   3.60350E-02   1.01482E+00
+   -2.41233E-01   9.52000E-01   1.00036E+00  -1.69640E-01   2.60368E-02
+    1.02466E+00  -2.43573E-01   9.52000E-01   9.99981E-01  -2.21127E-01
+    5.07435E-02   9.95670E-01  -2.37352E-01   9.52000E-01   1.00023E+00
+   -1.87458E-01   3.61386E-02   1.01486E+00  -2.41926E-01   9.52000E-01
+    1.00036E+00  -1.70132E-01   2.61124E-02   1.02474E+00  -2.44280E-01
+    9.52000E-01
+    2.88352E+01   9.41958E-01   8.53593E-01   2.29544E+00   9.42009E-01
+    8.53583E-01   2.26792E+00
+    1.12553E-01   1.09942E-04   1.81949E+05   5.06024E+00
+    1.21501E+02   2.59409E+01
+    9.97889E+00   1.56584E+00   1.78925E+04   3.88225E+03  -8.65690E+02
+   -2.68053E+02  -1.21167E+03  -3.52840E+02   1.00000E+00   0.00000E+00
+   -2.78001E+01  -6.08959E+00   8.54876E+01   1.85065E+01   2.65519E-05
+    5.14588E-06   9.97889E+00   1.56584E+00   1.78925E+04   3.88225E+03
+   -8.65690E+02  -2.68053E+02  -1.21167E+03  -3.52840E+02   1.00000E+00
+    0.00000E+00  -2.78001E+01  -6.08959E+00   8.54876E+01   1.85065E+01
+    2.65519E-05   5.14588E-06   9.93548E+00   1.55633E+00   1.59217E+04
+    3.45081E+03  -8.33384E+02  -2.60981E+02  -1.15804E+03  -3.41099E+02
+    1.00000E+00   0.00000E+00  -9.27036E-01  -2.06853E-01   3.83321E+00
+    6.31621E-01   2.81941E-05   5.50539E-06   9.88986E+00   1.54626E+00
+    1.41180E+04   3.05262E+03  -8.01778E+02  -2.54003E+02  -1.10615E+03
+   -3.29644E+02   1.00000E+00   0.00000E+00  -3.08549E-01  -7.03085E-02
+    1.95460E+00   2.16880E-01   2.99481E-05   5.89262E-06   9.84640E+00
+    1.53658E+00   1.24921E+04   2.69057E+03  -7.71344E+02  -2.47227E+02
+   -1.05668E+03  -3.18628E+02   1.00000E+00   0.00000E+00  -1.49318E-01
+   -3.48533E-02   1.47150E+00   1.09308E-01   3.18180E-05   6.30898E-06
+    9.80038E+00   1.52625E+00   1.10202E+04   2.36001E+03  -7.41296E+02
+   -2.40477E+02  -1.00858E+03  -3.07824E+02   1.00000E+00   0.00000E+00
+   -8.50108E-02  -2.04101E-02   1.27683E+00   6.55870E-02   3.37943E-05
+    6.75283E-06   9.75560E+00   1.51611E+00   9.69540E+03   2.05986E+03
+   -7.12664E+02  -2.33991E+02  -9.63094E+02  -2.97520E+02   1.00000E+00
+    0.00000E+00  -5.27413E-02  -1.30993E-02   1.17957E+00   4.35484E-02
+    3.58957E-05   7.22893E-06   9.70907E+00   1.50547E+00   8.49992E+03
+    1.78663E+03  -6.84759E+02  -2.27614E+02  -9.19276E+02  -2.87506E+02
+    1.00000E+00   0.00000E+00  -3.42230E-02  -8.86686E-03   1.12409E+00
+    3.08716E-02   3.81249E-05   7.73841E-06   9.66362E+00   1.49499E+00
+    7.42504E+03   1.53878E+03  -6.57546E+02  -2.21338E+02  -8.77067E+02
+   -2.77772E+02   1.00000E+00   0.00000E+00  -2.25922E-02  -6.18500E-03
+    1.08956E+00   2.29083E-02   4.04866E-05   8.28299E-06   9.61810E+00
+    1.48440E+00   6.45895E+03   1.31402E+03  -6.31395E+02  -2.15254E+02
+   -8.36868E+02  -2.68420E+02   1.00000E+00   0.00000E+00  -1.47749E-02
+   -4.36628E-03   1.06666E+00   1.75819E-02   4.29986E-05   8.86740E-06
+    9.57288E+00   1.47379E+00   5.59171E+03   1.11043E+03  -6.06038E+02
+   -2.09301E+02  -7.98298E+02  -2.59365E+02   1.00000E+00   0.00000E+00
+   -9.23567E-03  -3.06592E-03   1.05070E+00   1.38353E-02   4.56599E-05
+    9.49215E-06   9.52520E+00   1.46249E+00   4.81324E+03   9.26009E+02
+   -5.81479E+02  -2.03484E+02  -7.61303E+02  -2.50602E+02   1.00000E+00
+    0.00000E+00  -5.13679E-03  -2.09489E-03   1.03917E+00   1.11018E-02
+    4.84810E-05   1.01605E-05   9.48282E+00   1.45236E+00   4.11743E+03
+    7.59651E+02  -5.57682E+02  -1.97794E+02  -7.25833E+02  -2.42121E+02
+    1.00000E+00   0.00000E+00  -1.99091E-03  -1.34275E-03   1.03054E+00
+    9.04067E-03   5.14756E-05   1.08765E-05   9.43615E+00   1.44109E+00
+    3.49541E+03   6.09553E+02  -5.34768E+02  -1.92265E+02  -6.91976E+02
+   -2.33952E+02   1.00000E+00   0.00000E+00   4.96664E-04  -7.42484E-04
+    1.02396E+00   7.45108E-03   5.46508E-05   1.16426E-05   9.38941E+00
+    1.42971E+00   2.94012E+03   4.74298E+02  -5.12458E+02  -1.86831E+02
+   -6.59366E+02  -2.26008E+02   1.00000E+00   0.00000E+00   2.52317E-03
+   -2.48879E-04   1.01879E+00   6.19256E-03   5.80132E-05   1.24616E-05
+    9.34429E+00   1.41861E+00   2.44612E+03   3.52834E+02  -4.90963E+02
+   -1.81546E+02  -6.28212E+02  -2.18348E+02   1.00000E+00   0.00000E+00
+    4.21488E-03   1.67079E-04   1.01468E+00   5.18127E-03   6.15833E-05
+    1.33395E-05   9.29938E+00   1.40747E+00   2.00697E+03   2.43818E+02
+   -4.70186E+02  -1.76388E+02  -5.98375E+02  -2.10941E+02   1.00000E+00
+    0.00000E+00   5.66057E-03   5.25952E-04   1.01134E+00   4.35257E-03
+    6.53576E-05   1.42764E-05   9.25437E+00   1.39619E+00   1.61739E+03
+    1.46177E+02  -4.50197E+02  -1.71378E+02  -5.69906E+02  -2.03806E+02
+    1.00000E+00   0.00000E+00   6.92148E-03   8.41983E-04   1.00862E+00
+    3.67067E-03   6.93627E-05   1.52802E-05   9.20992E+00   1.38494E+00
+    1.27359E+03   5.91681E+01  -4.30745E+02  -1.66455E+02  -5.42480E+02
+   -1.96865E+02   1.00000E+00   0.00000E+00   8.03945E-03   1.12492E-03
+    1.00633E+00   3.09085E-03   7.36073E-05   1.63544E-05   8.10432E+03
+    2.07027E+03   9.70142E+02  -1.83853E+01  -4.94462E+02  -1.82739E+02
+   -5.16254E+02  -1.90163E+02  -9.58339E+01  -2.47481E+01   9.04873E-03
+    1.38286E-03   1.00442E+00   2.60380E-03   7.80985E-05   1.75023E-05
+    6.76907E+03   1.72563E+03   7.03672E+02  -8.71642E+01  -4.65828E+02
+   -1.75348E+02  -4.91262E+02  -1.83712E+02  -1.96658E+00  -5.19474E-01
+    9.97570E-03   1.62213E-03   1.00280E+00   2.18478E-03   8.28666E-05
+    1.87330E-05   5.69462E+03   1.44550E+03   4.70407E+02  -1.47979E+02
+   -4.39716E+02  -1.68541E+02  -4.67181E+02  -1.77434E+02  -6.48000E-01
+   -1.75707E-01   1.08360E-02   1.84642E-03   1.00140E+00   1.81987E-03
+    8.78970E-05   2.00444E-05   4.82431E+03   1.21630E+03   2.66717E+02
+   -2.01621E+02  -4.15930E+02  -1.62277E+02  -4.44296E+02  -1.71406E+02
+   -3.11240E-01  -8.70187E-02   1.16451E-02   2.05950E-03   1.00020E+00
+    1.50290E-03   9.32444E-05   2.14527E-05   4.11003E+03   1.02626E+03
+    8.99951E+01  -2.48641E+02  -3.93828E+02  -1.56396E+02  -4.22280E+02
+   -1.65549E+02  -1.75968E-01  -5.10285E-02   1.24171E-02   2.26488E-03
+    9.99153E-01   1.22459E-03   9.88830E-05   2.29529E-05   3.52078E+03
+    8.67866E+02  -6.24393E+01  -2.89617E+02  -3.73315E+02  -1.50882E+02
+   -4.01286E+02  -1.59906E+02  -1.08490E-01  -3.28895E-02   1.31504E-02
+    2.46201E-03   9.98231E-01   9.77197E-04   1.04860E-04   2.45597E-05
+    3.02897E+03   7.34276E+02  -1.93100E+02  -3.25108E+02  -3.54016E+02
+   -1.45640E+02  -3.81119E+02  -1.54427E+02  -6.99892E-02  -2.24316E-02
+    1.38653E-02   2.65620E-03   9.97409E-01   7.54544E-04   1.11181E-04
+    2.62765E-05   2.61671E+03   6.21109E+02  -3.04769E+02  -3.55762E+02
+   -3.35980E+02  -1.40689E+02  -3.61959E+02  -1.49168E+02  -4.60009E-02
+   -1.58467E-02   1.45658E-02   2.84848E-03   9.96691E-01   5.58181E-04
+    1.17878E-04   2.81148E-05   2.26773E+03   5.24286E+02  -3.98360E+02
+   -3.81727E+02  -3.18778E+02  -1.35917E+02  -3.43468E+02  -1.44038E+02
+   -3.00518E-02  -1.14218E-02   1.52342E-02   3.03394E-03   9.96048E-01
+    3.78818E-04   1.24942E-04   3.00748E-05   1.97144E+03   4.41197E+02
+   -4.77208E+02  -4.03840E+02  -3.02619E+02  -1.31385E+02  -3.25930E+02
+   -1.39120E+02  -1.88679E-02  -8.28544E-03   1.59102E-02   3.22352E-03
+    9.95473E-01   2.16468E-04   1.32425E-04   3.21733E-05   1.71695E+03
+    3.69048E+02  -5.41484E+02  -4.22062E+02  -2.87166E+02  -1.27004E+02
+   -3.09053E+02  -1.34335E+02  -1.07018E-02  -5.97033E-03   1.65676E-02
+    3.40987E-03   9.94953E-01   6.95789E-05   1.40326E-04   3.44132E-05
+    1.49853E+03   3.06439E+02  -5.93898E+02  -4.37086E+02  -2.72519E+02
+   -1.22806E+02  -2.92984E+02  -1.29729E+02  -4.54621E-03  -4.20590E-03
+    1.72247E-02   3.59824E-03   9.94471E-01  -6.80327E-05   1.48682E-04
+    3.68083E-05   1.30882E+03   2.51455E+02  -6.35469E+02  -4.49135E+02
+   -2.58571E+02  -1.18763E+02  -2.77636E+02  -1.25281E+02   2.50581E-04
+   -2.81560E-03   1.78766E-02   3.78719E-03   9.94050E-01  -1.90182E-04
+    1.57508E-04   3.93664E-05   1.14446E+03   2.03277E+02  -6.66774E+02
+   -4.58310E+02  -2.45177E+02  -1.14837E+02  -2.62882E+02  -1.20956E+02
+    4.06563E-03  -1.69734E-03   1.85239E-02   3.97692E-03   9.93654E-01
+   -3.06147E-04   1.66820E-04   4.20961E-05   1.00083E+03   1.60698E+02
+   -6.90144E+02  -4.65239E+02  -2.32457E+02  -1.11066E+02  -2.48855E+02
+   -1.16798E+02   7.18547E-03  -7.72446E-04   1.91753E-02   4.17003E-03
+    9.93296E-01  -4.11288E-04   1.76670E-04   4.50161E-05   8.75160E+02
+    1.23010E+02  -7.05629E+02  -4.69882E+02  -2.20271E+02  -1.07411E+02
+   -2.35428E+02  -1.12771E+02   9.77554E-03   4.30036E-06   1.98213E-02
+    4.36377E-03   9.92968E-01  -5.10245E-04   1.87052E-04   4.81295E-05
+    7.64881E+02   8.95508E+01  -7.14690E+02  -4.72632E+02  -2.08618E+02
+   -1.03876E+02  -2.22598E+02  -1.08878E+02   1.19760E-02   6.71899E-04
+    2.04719E-02   4.56115E-03   9.92671E-01  -5.99928E-04   1.98015E-04
+    5.14557E-05   6.67810E+02   5.97516E+01  -7.17877E+02  -4.73610E+02
+   -1.97482E+02  -1.00457E+02  -2.10357E+02  -1.05120E+02   1.38757E-02
+    1.25510E-03   2.11236E-02   4.76120E-03   9.92393E-01  -6.86512E-04
+    2.09590E-04   5.50092E-05   5.82296E+02   3.31853E+01  -7.16034E+02
+   -4.73038E+02  -1.86803E+02  -9.71396E+01  -1.98640E+02  -1.01480E+02
+    1.55226E-02   1.76675E-03   2.17670E-02   4.96108E-03   9.92127E-01
+   -7.68460E-04   2.21776E-04   5.87948E-05   5.06848E+02   9.46184E+00
+   -7.09954E+02  -4.71125E+02  -1.76604E+02  -9.39326E+01  -1.87471E+02
+   -9.79686E+01   1.70265E-02   2.23962E-03   2.24387E-02   5.17227E-03
+    9.91904E-01  -8.38039E-04   2.34640E-04   6.28398E-05   4.40498E+02
+   -1.16563E+01  -6.99885E+02  -4.67921E+02  -1.66823E+02  -9.08192E+01
+   -1.76790E+02  -9.45687E+01   1.83391E-02   2.65741E-03   2.30877E-02
+    5.37887E-03   9.91669E-01  -9.12256E-04   2.48186E-04   6.71514E-05
+    3.81852E+02  -3.05538E+01  -6.86787E+02  -4.63701E+02  -1.57476E+02
+   -8.78074E+01  -1.66607E+02  -9.12873E+01   1.95464E-02   3.04644E-03
+    2.37474E-02   5.59147E-03   9.91477E-01  -9.74104E-04   2.62472E-04
+    7.17549E-05   3.30103E+02  -4.74398E+01  -6.71087E+02  -4.58576E+02
+   -1.48529E+02  -8.48880E+01  -1.56885E+02  -8.81151E+01   2.06585E-02
+    3.40929E-03   2.44112E-02   5.80805E-03   9.91286E-01  -1.03750E-03
+    2.77512E-04   7.66625E-05   2.84694E+02  -6.24448E+01  -6.52854E+02
+   -4.52552E+02  -1.39971E+02  -8.20600E+01  -1.47612E+02  -8.50506E+01
+    2.16859E-02   3.74883E-03   2.50743E-02   6.02719E-03   9.91119E-01
+   -1.09316E-03   2.93349E-04   8.18956E-05   2.44678E+02  -7.58404E+01
+   -6.32838E+02  -4.45853E+02  -1.31765E+02  -7.93135E+01  -1.38744E+02
+   -8.20827E+01   2.26524E-02   4.07235E-03   2.57422E-02   6.25073E-03
+    9.90964E-01  -1.14573E-03   3.10015E-04   8.74741E-05   2.09614E+02
+   -8.77302E+01  -6.11308E+02  -4.38552E+02  -1.23925E+02  -7.66548E+01
+   -1.30297E+02  -7.92179E+01   2.35507E-02   4.37695E-03   2.64036E-02
+    6.47502E-03   9.90809E-01  -1.19676E-03   3.27544E-04   9.34181E-05
+    1.79047E+02  -9.82323E+01  -5.88448E+02  -4.30699E+02  -1.16423E+02
+   -7.40773E+01  -1.22233E+02  -7.64476E+01   2.44146E-02   4.67377E-03
+    2.70748E-02   6.70563E-03   9.90673E-01  -1.24314E-03   3.45989E-04
+    9.97555E-05   1.52378E+02  -1.07517E+02  -5.64718E+02  -4.22435E+02
+   -1.09255E+02  -7.15813E+01  -1.14550E+02  -7.37724E+01   2.52355E-02
+    4.95960E-03   2.77447E-02   6.93887E-03   9.90556E-01  -1.28490E-03
+    3.65382E-04   1.06508E-04   1.29343E+02  -1.15648E+02  -5.40275E+02
+   -4.13808E+02  -1.02396E+02  -6.91610E+01  -1.07219E+02  -7.11852E+01
+    2.60189E-02   5.23608E-03   2.84135E-02   7.17491E-03   9.90432E-01
+   -1.32818E-03   3.85743E-04   1.13694E-04   1.09476E+02  -1.22756E+02
+   -5.15296E+02  -4.04870E+02  -9.58435E+01  -6.68161E+01  -1.00234E+02
+   -6.86856E+01   2.67586E-02   5.50072E-03   2.90704E-02   7.40996E-03
+    9.90333E-01  -1.36375E-03   4.07151E-04   1.21354E-04   9.25347E+01
+   -1.28902E+02  -4.89964E+02  -3.95679E+02  -8.95759E+01  -6.45423E+01
+   -9.35690E+01  -6.62679E+01   2.75169E-02   5.77587E-03   2.97599E-02
+    7.66008E-03   9.90247E-01  -1.39622E-03   4.29619E-04   1.29505E-04
+    7.82216E+01  -1.34170E+02  -4.64501E+02  -3.86311E+02  -8.35914E+01
+   -6.23403E+01  -8.72208E+01  -6.39319E+01   2.82045E-02   6.02886E-03
+    3.04126E-02   7.90029E-03   9.90160E-01  -1.42714E-03   4.53201E-04
+    1.38183E-04   6.62329E+01  -1.38644E+02  -4.39032E+02  -3.76805E+02
+   -7.78690E+01  -6.02044E+01  -8.11666E+01  -6.16723E+01   2.88922E-02
+    6.28556E-03   3.10785E-02   8.14880E-03   9.90086E-01  -1.45497E-03
+    4.77935E-04   1.47414E-04   5.63784E+01  -1.42376E+02  -4.13680E+02
+   -3.67203E+02  -7.24161E+01  -5.81394E+01  -7.54097E+01  -5.94921E+01
+    2.95529E-02   6.53570E-03   3.17351E-02   8.39747E-03   9.90012E-01
+   -1.48280E-03   5.03889E-04   1.57243E-04   4.83352E+01  -1.45467E+02
+   -3.88597E+02  -3.57564E+02  -6.72054E+01  -5.61369E+01  -6.99224E+01
+   -5.73834E+01   3.02021E-02   6.78525E-03   3.23912E-02   8.64962E-03
+    9.89968E-01  -1.49981E-03   5.31074E-04   1.67690E-04   4.20811E+01
+   -1.47906E+02  -3.63780E+02  -3.47884E+02  -6.22275E+01  -5.41952E+01
+   -6.46907E+01  -5.53427E+01   3.08316E-02   7.03078E-03   3.30407E-02
+    8.90296E-03   9.89919E-01  -1.51991E-03   5.59569E-04   1.78805E-04
+    3.73439E+01  -1.49782E+02  -3.39350E+02  -3.38208E+02  -5.74839E+01
+   -5.23166E+01  -5.97172E+01  -5.33728E+01   3.14461E-02   7.27416E-03
+    3.36840E-02   9.15774E-03   9.89869E-01  -1.53692E-03   5.89396E-04
+    1.90618E-04   3.39445E+01  -1.51150E+02  -3.15426E+02  -3.28587E+02
+   -5.29576E+01  -5.04962E+01  -5.49803E+01  -5.14677E+01   3.20449E-02
+    7.51503E-03   3.43200E-02   9.41352E-03   9.89845E-01  -1.54929E-03
+    6.20611E-04   2.03172E-04   3.17801E+01  -1.52034E+02  -2.91990E+02
+   -3.19014E+02  -4.86400E+01  -4.87324E+01  -5.04710E+01  -4.96258E+01
+    3.26296E-02   7.75382E-03   3.49476E-02   9.66989E-03   9.89826E-01
+   -1.55702E-03   6.53275E-04   2.16516E-04   3.06623E+01  -1.52498E+02
+   -2.69165E+02  -3.09541E+02  -4.45265E+01  -4.70252E+01  -4.61838E+01
+   -4.78463E+01   3.32061E-02   7.99312E-03   3.55713E-02   9.92879E-03
+    9.89807E-01  -1.56475E-03   6.87427E-04   2.30690E-04   3.05342E+01
+   -1.52552E+02  -2.46893E+02  -3.00146E+02  -4.06041E+01  -4.53705E+01
+   -4.21020E+01  -4.61246E+01   3.37625E-02   8.22778E-03   3.61794E-02
+    1.01852E-02   9.89801E-01  -1.56785E-03   7.23111E-04   2.45742E-04
+    3.12275E+01  -1.52255E+02  -2.25298E+02  -2.90886E+02  -3.68681E+01
+   -4.37688E+01  -3.82234E+01  -4.44616E+01   3.43065E-02   8.46106E-03
+    3.67779E-02   1.04419E-02   9.89801E-01  -1.56784E-03   7.60379E-04
+    2.61721E-04   3.26794E+01  -1.51621E+02  -2.04353E+02  -2.81755E+02
+   -3.33120E+01  -4.22184E+01  -3.45351E+01  -4.28537E+01   3.48399E-02
+    8.69359E-03   3.73675E-02   1.06989E-02   9.89807E-01  -1.56475E-03
+    7.99297E-04   2.78688E-04   3.47583E+01  -1.50700E+02  -1.84091E+02
+   -2.72770E+02  -2.99253E+01  -4.07165E+01  -3.10304E+01  -4.12994E+01
+    3.53534E-02   8.92134E-03   3.79384E-02   1.09521E-02   9.89826E-01
+   -1.55702E-03   8.39901E-04   2.96693E-04   3.74199E+01  -1.49499E+02
+   -1.64493E+02  -2.63929E+02  -2.66985E+01  -3.92609E+01  -2.76952E+01
+   -3.97949E+01   3.58615E-02   9.15054E-03   3.85029E-02   1.12067E-02
+    9.89838E-01  -1.54929E-03   8.82224E-04   3.15787E-04   4.05516E+01
+   -1.48060E+02  -1.45607E+02  -2.55258E+02  -2.36342E+01  -3.78540E+01
+   -2.45329E+01  -3.83430E+01   3.63510E-02   9.37527E-03   3.90484E-02
+    1.14572E-02   9.89875E-01  -1.53383E-03   9.26359E-04   3.36050E-04
+    4.40887E+01  -1.46408E+02  -1.27434E+02  -2.46764E+02  -2.07162E+01
+   -3.64901E+01  -2.15264E+01  -3.69377E+01   3.68292E-02   9.59879E-03
+    3.95813E-02   1.17063E-02   9.89906E-01  -1.51682E-03   9.72312E-04
+    3.57528E-04   4.79932E+01  -1.44549E+02  -1.09932E+02  -2.38434E+02
+   -1.79426E+01  -3.51700E+01  -1.86729E+01  -3.55797E+01   3.72913E-02
+    9.81869E-03   4.00960E-02   1.19512E-02   9.89950E-01  -1.49517E-03
+    1.02016E-03   3.80303E-04   5.21747E+01  -1.42521E+02  -9.31285E+01
+   -2.30286E+02  -1.53054E+01  -3.38914E+01  -1.59627E+01  -3.42655E+01
+    3.77387E-02   1.00356E-02   4.05931E-02   1.21923E-02   9.90005E-01
+   -1.47353E-03   1.06993E-03   4.04436E-04   5.65858E+01  -1.40343E+02
+   -7.70342E+01  -2.22334E+02  -1.28010E+01  -3.26539E+01  -1.33928E+01
+   -3.29958E+01   3.81734E-02   1.02504E-02   4.10744E-02   1.24301E-02
+    9.90055E-01  -1.44569E-03   1.12170E-03   4.30012E-04   6.11916E+01
+   -1.38022E+02  -6.15922E+01  -2.14556E+02  -1.04217E+01  -3.14554E+01
+   -1.09541E+01  -3.17674E+01   3.85901E-02   1.04603E-02   4.15340E-02
+    1.26616E-02   9.90123E-01  -1.41322E-03   1.17548E-03   4.57101E-04
+    6.59356E+01  -1.35586E+02  -4.68440E+01  -2.06980E+02  -8.16397E+00
+   -3.02957E+01  -8.64253E+00  -3.05800E+01   3.89949E-02   1.06682E-02
+    4.19782E-02   1.28897E-02   9.90182E-01  -1.38076E-03   1.23134E-03
+    4.85797E-04   7.07864E+01  -1.33044E+02  -3.27317E+01  -1.99584E+02
+   -6.02032E+00  -2.91723E+01  -6.45019E+00  -2.94312E+01   3.93838E-02
+    1.08720E-02   4.24013E-02   1.31115E-02   9.90262E-01  -1.34055E-03
+    1.28931E-03   5.16173E-04   7.57074E+01  -1.30411E+02  -1.92625E+01
+   -1.92381E+02  -3.98657E+00  -2.80845E+01  -4.37329E+00  -2.83202E+01
+    3.97530E-02   1.10695E-02   4.28007E-02   1.33251E-02   9.90339E-01
+   -1.29726E-03   1.34944E-03   5.48334E-04   8.06584E+01  -1.27708E+02
+   -6.42822E+00  -1.85372E+02  -2.05889E+00  -2.70319E+01  -2.40623E+00
+   -2.72460E+01   4.01118E-02   1.12655E-02   4.31842E-02   1.35345E-02
+    9.90420E-01  -1.25397E-03   1.41177E-03   5.82376E-04   8.56220E+01
+   -1.24939E+02   5.79648E+00  -1.78553E+02  -2.31756E-01  -2.60125E+01
+   -5.43470E-01  -2.62068E+01   4.04509E-02   1.14546E-02   4.35434E-02
+    1.37349E-02   9.90509E-01  -1.20294E-03   1.47633E-03   6.18392E-04
+    9.05746E+01  -1.22115E+02   1.74417E+01  -1.71913E+02   1.49979E+00
+   -2.50253E+01   1.22014E+00  -2.52014E+01   4.07740E-02   1.16389E-02
+    4.38808E-02   1.39273E-02   9.90602E-01  -1.15192E-03   1.54317E-03
+    6.56496E-04   9.54805E+01  -1.19255E+02   2.84932E+01  -1.65471E+02
+    3.13930E+00  -2.40696E+01   2.88835E+00  -2.42290E+01   4.10812E-02
+    1.18179E-02   4.41975E-02   1.41119E-02   9.90701E-01  -1.09471E-03
+    1.61233E-03   6.96815E-04   1.00336E+02  -1.16360E+02   3.89984E+01
+   -1.59206E+02   4.69114E+00  -2.31443E+01   4.46591E+00  -2.32883E+01
+    4.13733E-02   1.19921E-02   4.44935E-02   1.42884E-02   9.90800E-01
+   -1.03595E-03   1.68381E-03   7.39439E-04   1.05107E+02  -1.13448E+02
+    4.89519E+01  -1.53131E+02   6.15886E+00  -2.22484E+01   5.95659E+00
+   -2.23783E+01   4.16364E-02   1.21527E-02   4.47552E-02   1.44482E-02
+    9.90905E-01  -9.71012E-04   1.75768E-03   7.84523E-04   1.09794E+02
+   -1.10518E+02   5.83931E+01  -1.47229E+02   7.54643E+00  -2.13811E+01
+    7.36514E+00  -2.14979E+01   4.18929E-02   1.23130E-02   4.50048E-02
+    1.46042E-02   9.91010E-01  -9.04525E-04   1.83393E-03   8.32186E-04
+    1.14388E+02  -1.07576E+02   6.73333E+01  -1.41503E+02   8.85850E+00
+   -2.05407E+01   8.69571E+00  -2.06457E+01   4.21508E-02   1.24782E-02
+    4.52507E-02   1.47616E-02   9.91122E-01  -8.34947E-04   1.91260E-03
+    8.82577E-04   1.18848E+02  -1.04647E+02   7.57767E+01  -1.35959E+02
+    1.00970E+01  -1.97273E+01   9.95074E+00  -1.98215E+01   4.23640E-02
+    1.26183E-02   4.54467E-02   1.48904E-02   9.91233E-01  -7.60734E-04
+    1.99371E-03   9.35840E-04   1.23201E+02  -1.01714E+02   8.37624E+01
+   -1.30578E+02   1.12660E+01  -1.89397E+01   1.11345E+01  -1.90239E+01
+    4.25758E-02   1.27609E-02   4.56366E-02   1.50183E-02   9.91341E-01
+   -6.86512E-04   2.07726E-03   9.92132E-04   1.27409E+02  -9.88030E+01
+    9.12863E+01  -1.25373E+02   1.23690E+01  -1.81767E+01   1.22509E+01
+   -1.82517E+01   4.27490E-02   1.28807E-02   4.57835E-02   1.51199E-02
+    9.91462E-01  -6.04563E-04   2.16327E-03   1.05163E-03   1.31490E+02
+   -9.59032E+01   9.83922E+01  -1.20323E+02   1.34082E+01  -1.74381E+01
+    1.33021E+01  -1.75045E+01   4.29205E-02   1.30026E-02   4.59236E-02
+    1.52195E-02   9.91573E-01  -5.25707E-04   2.25174E-03   1.11450E-03
+    1.35423E+02  -9.30295E+01   1.05076E+02  -1.15440E+02   1.43876E+01
+   -1.67226E+01   1.42917E+01  -1.67816E+01   4.30855E-02   1.31231E-02
+    4.60532E-02   1.53142E-02   9.91691E-01  -4.40666E-04   2.34267E-03
+    1.18095E-03   1.39212E+02  -9.01796E+01   1.11364E+02  -1.10711E+02
+    1.53086E+01  -1.60300E+01   1.52226E+01  -1.60816E+01   4.32202E-02
+    1.32244E-02   4.61490E-02   1.53862E-02   9.91808E-01  -3.50987E-04
+    2.43605E-03   1.25116E-03   1.42851E+02  -8.73629E+01   1.17271E+02
+   -1.06138E+02   1.61756E+01  -1.53587E+01   1.60974E+01  -1.54042E+01
+    4.33434E-02   1.33198E-02   4.62297E-02   1.54486E-02   9.91923E-01
+   -2.62854E-04   2.53187E-03   1.32536E-03   1.46336E+02  -8.45810E+01
+    1.22818E+02  -1.01710E+02   1.69898E+01  -1.47089E+01   1.69191E+01
+   -1.47483E+01   4.34485E-02   1.34038E-02   4.62885E-02   1.54957E-02
+    9.92034E-01  -1.73174E-04   2.63010E-03   1.40376E-03   1.49670E+02
+   -8.18352E+01   1.28011E+02  -9.74335E+01   1.77544E+01  -1.40792E+01
+    1.76902E+01  -1.41134E+01   4.35412E-02   1.34800E-02   4.63328E-02
+    1.55321E-02   9.92151E-01  -7.57637E-05   2.73071E-03   1.48661E-03
+    1.52850E+02  -7.91305E+01   1.32874E+02  -9.32975E+01   1.84710E+01
+   -1.34697E+01   1.84127E+01  -1.34989E+01   4.36183E-02   1.35458E-02
+    4.63588E-02   1.55543E-02   9.92263E-01   1.70082E-05   2.83367E-03
+    1.57417E-03   1.55879E+02  -7.64674E+01   1.37419E+02  -8.93010E+01
+    1.91427E+01  -1.28791E+01   1.90892E+01  -1.29039E+01   4.36795E-02
+    1.35995E-02   4.63670E-02   1.55615E-02   9.92371E-01   1.12873E-04
+    2.93891E-03   1.66672E-03   1.58751E+02  -7.38529E+01   1.41662E+02
+   -8.54399E+01   1.97712E+01  -1.23070E+01   1.97223E+01  -1.23278E+01
+    4.37253E-02   1.36412E-02   4.63577E-02   1.55530E-02   9.92479E-01
+    2.11829E-04   3.04639E-03   1.76454E-03   1.61477E+02  -7.12816E+01
+    1.45616E+02  -8.17101E+01   2.03584E+01  -1.17532E+01   2.03133E+01
+   -1.17702E+01   4.37656E-02   1.36792E-02   4.63420E-02   1.55383E-02
+    9.92584E-01   3.10786E-04   3.15602E-03   1.86795E-03   1.64054E+02
+   -6.87594E+01   1.49292E+02  -7.81108E+01   2.09068E+01  -1.12164E+01
+    2.08652E+01  -1.12301E+01   4.37855E-02   1.36986E-02   4.63052E-02
+    1.55022E-02   9.92685E-01   4.11288E-04   3.26769E-03   1.97727E-03
+    1.66481E+02  -6.62906E+01   1.52710E+02  -7.46343E+01   2.14179E+01
+   -1.06964E+01   2.13793E+01  -1.07071E+01   4.37955E-02   1.37088E-02
+    4.62574E-02   1.54536E-02   9.92784E-01   5.10245E-04   3.38136E-03
+    2.09289E-03   1.68767E+02  -6.38702E+01   1.55876E+02  -7.12824E+01
+    2.18932E+01  -1.01932E+01   2.18574E+01  -1.02009E+01   4.37945E-02
+    1.37078E-02   4.61995E-02   1.53922E-02   9.92878E-01   6.10748E-04
+    3.49682E-03   2.21514E-03   1.70912E+02  -6.15027E+01   1.58807E+02
+   -6.80469E+01   2.23354E+01  -9.70517E+00   2.23016E+01  -9.71061E+00
+    4.37820E-02   1.36940E-02   4.61298E-02   1.53153E-02   9.92971E-01
+    7.12797E-04   3.61398E-03   2.34446E-03   1.72919E+02  -5.91883E+01
+    1.61515E+02  -6.49254E+01   2.27448E+01  -9.23315E+00   2.27131E+01
+   -9.23622E+00   4.37603E-02   1.36690E-02   4.60514E-02   1.52249E-02
+    9.93056E-01   8.11754E-04   3.73267E-03   2.48129E-03   1.74790E+02
+   -5.69305E+01   1.64006E+02  -6.19203E+01   2.29286E+01  -9.01139E+00
+    2.28985E+01  -9.01248E+00   4.37298E-02   1.36321E-02   4.59655E-02
+    1.51213E-02   9.93141E-01   9.12256E-04   3.85268E-03   2.62609E-03
+    1.76533E+02  -5.47254E+01   1.66297E+02  -5.90201E+01   2.30049E+01
+   -8.91485E+00   2.29762E+01  -8.91411E+00   4.36920E-02   1.35842E-02
+    4.58732E-02   1.50045E-02   9.93217E-01   1.00967E-03   3.97381E-03
+    2.77936E-03   1.78150E+02  -5.25753E+01   1.68397E+02  -5.62276E+01
+    2.33222E+01  -8.49271E+00   2.32949E+01  -8.49023E+00   4.36423E-02
+    1.35182E-02   4.57709E-02   1.48684E-02   9.93293E-01   1.10862E-03
+    4.09579E-03   2.94161E-03   1.79643E+02  -5.04813E+01   1.70315E+02
+   -5.35386E+01   2.36132E+01  -8.08471E+00   2.35869E+01  -8.08080E+00
+    4.35903E-02   1.34453E-02   4.56683E-02   1.47245E-02   9.93359E-01
+    1.20295E-03   4.21836E-03   3.11348E-03   1.81019E+02  -4.84424E+01
+    1.72062E+02  -5.09480E+01   2.38796E+01  -7.68987E+00   2.38541E+01
+   -7.68472E+00   4.35316E-02   1.33583E-02   4.55606E-02   1.45650E-02
+    9.93424E-01   1.29881E-03   4.34116E-03   3.29550E-03   1.82280E+02
+   -4.64586E+01   1.73648E+02  -4.84559E+01   2.41220E+01  -7.30889E+00
+    2.40973E+01  -7.30245E+00   4.34672E-02   1.32571E-02   4.54499E-02
+    1.43909E-02   9.93484E-01   1.39312E-03   4.46384E-03   3.48836E-03
+    1.83431E+02  -4.45334E+01   1.75080E+02  -4.60593E+01   2.43420E+01
+   -6.94058E+00   2.43179E+01  -6.93316E+00   4.34002E-02   1.31449E-02
+    4.53389E-02   1.42051E-02   9.93538E-01   1.48434E-03   4.58603E-03
+    3.69284E-03   1.84478E+02  -4.26593E+01   1.76369E+02  -4.37530E+01
+    2.45410E+01  -6.58466E+00   2.45175E+01  -6.57625E+00   4.33297E-02
+    1.30188E-02   4.52272E-02   1.40053E-02   9.93588E-01   1.57249E-03
+    4.70719E-03   3.90959E-03   1.85423E+02  -4.08448E+01   1.77522E+02
+   -4.15367E+01   2.47196E+01  -6.24143E+00   2.46965E+01  -6.23223E+00
+    4.32566E-02   1.28784E-02   4.51156E-02   1.37908E-02   9.93631E-01
+    1.65753E-03   4.82684E-03   4.13949E-03   1.86271E+02  -3.90837E+01
+    1.78549E+02  -3.94075E+01   2.48795E+01  -5.90965E+00   2.48567E+01
+   -5.89976E+00   4.31824E-02   1.27244E-02   4.50058E-02   1.35629E-02
+    9.93671E-01   1.73946E-03   4.94439E-03   4.38339E-03   1.87028E+02
+   -3.73769E+01   1.79455E+02  -3.73639E+01   2.50214E+01  -5.58955E+00
+    2.49989E+01  -5.57901E+00   4.31111E-02   1.25636E-02   4.49021E-02
+    1.33292E-02   9.93708E-01   1.82143E-03   5.05913E-03   4.64220E-03
+    1.87697E+02  -3.57243E+01   1.80250E+02  -3.53985E+01   2.51463E+01
+   -5.28103E+00   2.51241E+01  -5.26995E+00   4.30369E-02   1.23801E-02
+    4.47981E-02   1.30721E-02   9.93739E-01   1.89872E-03   5.17036E-03
+    4.91698E-03   1.88283E+02  -3.41264E+01   1.80939E+02  -3.35176E+01
+    2.52554E+01  -4.98314E+00   2.52334E+01  -4.97151E+00   4.29667E-02
+    1.21886E-02   4.47016E-02   1.28089E-02   9.93766E-01   1.97296E-03
+    5.27723E-03   5.20875E-03   1.88788E+02  -3.25830E+01   1.81531E+02
+   -3.17114E+01   2.53495E+01  -4.69596E+00   2.53275E+01  -4.68413E+00
+    4.28988E-02   1.19814E-02   4.46102E-02   1.25297E-02   9.93789E-01
+    2.04251E-03   5.37881E-03   5.51874E-03   1.89220E+02  -3.10908E+01
+    1.82031E+02  -2.99809E+01   2.54295E+01  -4.41938E+00   2.54077E+01
+   -4.40701E+00   4.28357E-02   1.17631E-02   4.45267E-02   1.22411E-02
+    9.93809E-01   2.10903E-03   5.47405E-03   5.84811E-03   1.89581E+02
+   -2.96512E+01   1.82446E+02  -2.83252E+01   2.54963E+01  -4.15289E+00
+    2.54745E+01  -4.14037E+00   4.27764E-02   1.15265E-02   4.44501E-02
+    1.19356E-02   9.93825E-01   2.17394E-03   5.56180E-03   6.19824E-03
+    1.89875E+02  -2.82642E+01   1.82782E+02  -2.67398E+01   2.55507E+01
+   -3.89634E+00   2.55289E+01  -3.88363E+00   4.27240E-02   1.12797E-02
+    4.43834E-02   1.16208E-02   9.93836E-01   2.22963E-03   5.64075E-03
+    6.57052E-03   1.90106E+02  -2.69279E+01   1.83046E+02  -2.52235E+01
+    2.55935E+01  -3.64935E+00   2.55718E+01  -3.63634E+00   4.26779E-02
+    1.10138E-02   4.43257E-02   1.12882E-02   9.93846E-01   2.28681E-03
+    5.70945E-03   6.96651E-03   1.90280E+02  -2.56390E+01   1.83241E+02
+   -2.37727E+01   2.56256E+01  -3.41180E+00   2.56039E+01  -3.39879E+00
+    4.26418E-02   1.07459E-02   4.42809E-02   1.09562E-02   9.93853E-01
+    2.33786E-03   5.76633E-03   7.38790E-03   1.90400E+02  -2.44033E+01
+    1.83375E+02  -2.23889E+01   2.56476E+01  -3.18340E+00   2.56259E+01
+   -3.17024E+00   4.26138E-02   1.04561E-02   4.42468E-02   1.06028E-02
+    9.93858E-01   2.38580E-03   5.80956E-03   7.83631E-03   1.90468E+02
+   -2.32175E+01   1.83451E+02  -2.10721E+01   2.56603E+01  -2.96388E+00
+    2.56386E+01  -2.95072E+00   4.25953E-02   1.01359E-02   4.42247E-02
+    1.02211E-02   9.93860E-01   2.42751E-03   5.83719E-03   8.31377E-03
+    1.90490E+02  -2.20762E+01   1.83475E+02  -1.98124E+01   2.56644E+01
+   -2.75299E+00   2.56427E+01  -2.73978E+00   4.25892E-02   9.81996E-03
+    4.42175E-02   9.84576E-03   9.93861E-01   2.46775E-03   5.84701E-03
+    8.82228E-03   1.90471E+02  -2.11002E+01   1.83455E+02  -1.87296E+01
+    2.56605E+01  -2.55089E+00   2.56388E+01  -2.53763E+00   4.26070E-02
+    8.89493E-03   4.42368E-02   8.84178E-03   9.93860E-01   2.49709E-03
+    5.83659E-03   9.36399E-03   1.90412E+02  -2.00650E+01   1.83389E+02
+   -1.76009E+01   2.56493E+01  -2.35662E+00   2.56276E+01  -2.34346E+00
+    4.26309E-02   8.48007E-03   4.42641E-02   8.36952E-03   9.93859E-01
+    2.52805E-03   5.80324E-03   9.94126E-03   1.90316E+02  -1.90720E+01
+    1.83286E+02  -1.65257E+01   2.56314E+01  -2.17050E+00   2.56097E+01
+   -2.15744E+00   4.26703E-02   8.07149E-03   4.43087E-02   7.90662E-03
+    9.93856E-01   2.55430E-03   5.74396E-03   1.05566E-02   1.90188E+02
+   -1.81230E+01   1.83148E+02  -1.55042E+01   2.56073E+01  -1.99231E+00
+    2.55857E+01  -1.97934E+00   4.27280E-02   7.64387E-03   4.43734E-02
+    7.42662E-03   9.93853E-01   2.57753E-03   5.65547E-03   1.12126E-02
+    1.90031E+02  -1.72195E+01   1.82981E+02  -1.45394E+01   2.55777E+01
+   -1.82158E+00   2.55561E+01  -1.80862E+00   4.28081E-02   7.18195E-03
+    4.44622E-02   6.91445E-03   9.93850E-01   2.59605E-03   5.53413E-03
+    1.19123E-02   1.89849E+02  -1.63596E+01   1.82786E+02  -1.36236E+01
+    2.55431E+01  -1.65842E+00   2.55215E+01  -1.64571E+00   4.29053E-02
+    6.72358E-03   4.45696E-02   6.40777E-03   9.93847E-01   2.60845E-03
+    5.37588E-03   1.26589E-02   1.89644E+02  -1.55401E+01   1.82570E+02
+   -1.27578E+01   2.55040E+01  -1.50215E+00   2.54824E+01  -1.48954E+00
+    4.30274E-02   6.23607E-03   4.47033E-02   5.87406E-03   9.93844E-01
+    2.62233E-03   5.17632E-03   1.34554E-02   1.89419E+02  -1.47632E+01
+    1.82334E+02  -1.19441E+01   2.54609E+01  -1.35319E+00   2.54394E+01
+   -1.34072E+00   4.31728E-02   5.73285E-03   4.48613E-02   5.32775E-03
+    9.93842E-01   2.62546E-03   4.93056E-03   1.43056E-02   1.89178E+02
+   -1.40258E+01   1.82083E+02  -1.11770E+01   2.54143E+01  -1.21074E+00
+    2.53928E+01  -1.19847E+00   4.33465E-02   5.20289E-03   4.50484E-02
+    4.75642E-03   9.93840E-01   2.63319E-03   4.63318E-03   1.52132E-02
+    1.88923E+02  -1.33310E+01   1.81819E+02  -1.04553E+01   2.53646E+01
+   -1.07511E+00   2.53432E+01  -1.06294E+00   4.35471E-02   4.65489E-03
+    4.52638E-02   4.16833E-03   9.93842E-01   2.62852E-03   4.27827E-03
+    1.61825E-02   1.88585E+02  -1.24963E+01   1.81474E+02  -9.60400E+00
+    2.53123E+01  -9.45932E-01   2.52910E+01  -9.33958E-01   4.34073E-02
+    5.00034E-03   4.51272E-02   4.50584E-03   9.93841E-01   2.63319E-03
+    3.85928E-03   1.72177E-02   1.88193E+02  -1.16111E+01   1.81076E+02
+   -8.70615E+00   2.52575E+01  -8.22423E-01   2.52363E+01  -8.10697E-01
+    4.30550E-02   5.79521E-03   4.47720E-02   5.30710E-03   9.93841E-01
+    2.63161E-03   3.36902E-03   1.83237E-02   1.87901E+02  -1.10048E+01
+    1.80781E+02  -8.09233E+00   2.52013E+01  -7.05664E-01   2.51801E+01
+   -6.94136E-01   4.32840E-02   5.31992E-03   4.50162E-02   4.80039E-03
+    9.93846E-01   2.62082E-03   2.79956E-03   1.95056E-02   1.87604E+02
+   -1.04335E+01   1.80482E+02  -7.51868E+00   2.51434E+01  -5.94330E-01
+    2.51223E+01  -5.82950E-01   4.35466E-02   4.81512E-03   4.52943E-02
+    4.26593E-03   9.93852E-01   2.60842E-03   2.14226E-03   2.07688E-02
+    1.87303E+02  -9.89493E+00   1.80183E+02  -6.98361E+00   2.50844E+01
+   -4.88750E-01   2.50634E+01  -4.77667E-01   4.38326E-02   4.30358E-03
+    4.55951E-02   3.72761E-03   9.93858E-01   2.59608E-03   1.38767E-03
+    2.21188E-02   1.87002E+02  -9.39211E+00   1.79886E+02  -6.48676E+00
+    2.50246E+01  -3.88699E-01   2.50038E+01  -3.77765E-01   4.41566E-02
+    3.76120E-03   4.59348E-02   3.15915E-03   9.93872E-01   2.57440E-03
+    5.25003E-04   2.35627E-02   1.86702E+02  -8.92080E+00   1.79593E+02
+   -6.02570E+00   2.49644E+01  -2.94002E-01   2.49437E+01  -2.83364E-01
+    4.45142E-02   3.19901E-03   4.63075E-02   2.57308E-03   9.93883E-01
+    2.55588E-03  -4.56904E-04   2.51065E-02   1.86404E+02  -8.47816E+00
+    1.79303E+02  -5.59616E+00   2.49039E+01  -2.04295E-01   2.48833E+01
+   -1.93855E-01   4.48910E-02   2.64050E-03   4.66988E-02   1.99304E-03
+    9.93902E-01   2.53111E-03  -1.57083E-03   2.67578E-02   1.85689E+02
+   -7.47642E+00   1.78601E+02  -4.61180E+00   2.48434E+01  -1.19491E-01
+    2.48230E+01  -1.09199E-01   4.30839E-02   5.17448E-03   4.48464E-02
+    4.59069E-03   9.93909E-01   2.51877E-03  -2.83065E-03   2.85245E-02
+    1.85353E+02  -7.02953E+00   1.78280E+02  -4.18510E+00   2.47832E+01
+   -3.94839E-02   2.47631E+01  -2.94893E-02   4.32783E-02   4.91587E-03
+    4.50503E-02   4.31952E-03   9.93928E-01   2.49558E-03  -4.25134E-03
+    3.04145E-02   1.85049E+02  -6.64430E+00   1.77994E+02  -3.82247E+00
+    2.47238E+01   3.57726E-02   2.47037E+01   4.55692E-02   4.36309E-02
+    4.46964E-03   4.54154E-02   3.85735E-03   9.93953E-01   2.46308E-03
+   -5.84971E-03   3.24372E-02   1.84752E+02  -6.28616E+00   1.77718E+02
+   -3.49042E+00   2.46651E+01   1.06527E-01   2.46453E+01   1.16077E-01
+    4.40198E-02   4.00042E-03   4.58160E-02   3.37402E-03   9.93976E-01
+    2.43528E-03  -7.64401E-03   3.46023E-02   1.84464E+02  -5.95399E+00
+    1.77455E+02  -3.18599E+00   2.46073E+01   1.73173E-01   2.45877E+01
+    1.82425E-01   4.44393E-02   3.51671E-03   4.62469E-02   2.87726E-03
+    9.94004E-01   2.40278E-03  -9.65377E-03   3.69195E-02   1.84073E+02
+   -5.52261E+00   1.77090E+02  -2.78347E+00   2.45507E+01   2.35617E-01
+    2.45313E+01   2.44721E-01   4.42914E-02   3.68007E-03   4.60952E-02
+    3.04458E-03   9.94035E-01   2.36879E-03  -1.19014E-02   3.94007E-02
+    1.83182E+02  -4.57850E+00   1.76229E+02  -1.87185E+00   2.44954E+01
+    2.94246E-01   2.44761E+01   3.03152E-01   4.14566E-02   6.68175E-03
+    4.31929E-02   6.11778E-03   9.94053E-01   2.35021E-03  -1.44104E-02
+    4.20573E-02   1.82887E+02  -4.27852E+00   1.75966E+02  -1.60390E+00
+    2.44417E+01   3.48874E-01   2.44227E+01   3.57533E-01   4.17528E-02
+    6.38033E-03   4.34977E-02   5.80775E-03   9.94092E-01   2.31158E-03
+   -1.72070E-02   4.49024E-02   1.82600E+02  -3.99743E+00   1.75716E+02
+   -1.35926E+00   2.43895E+01   3.99931E-01   2.43708E+01   4.08293E-01
+    4.20754E-02   6.06453E-03   4.38274E-02   5.48500E-03   9.94128E-01
+    2.27599E-03  -2.03199E-02   4.79497E-02   1.82326E+02  -3.73900E+00
+    1.75479E+02  -1.13563E+00   2.43392E+01   4.47386E-01   2.43207E+01
+    4.55649E-01   4.24298E-02   5.73024E-03   4.41889E-02   5.14404E-03
+    9.94171E-01   2.23582E-03  -2.37800E-02   5.12138E-02   1.82326E+02
+   -3.73900E+00   1.75479E+02  -1.13563E+00   2.43392E+01   4.47386E-01
+    2.43207E+01   4.55649E-01   4.24298E-02   5.73024E-03   4.41889E-02
+    5.14404E-03   9.94171E-01   2.23582E-03  -2.37800E-02   5.12138E-02
+    1.83900E-03   1.69413E+02   2.69387E+01
+    2.91955E-04   4.43341E-05   0.00000E+00   0.00000E+00   1.42736E-02
+    2.29679E-03   2.91955E-04   4.43341E-05   0.00000E+00   0.00000E+00
+    1.42736E-02   2.29679E-03   3.19547E-04   4.88005E-05   0.00000E+00
+    0.00000E+00   5.95153E-03   9.49622E-04   3.49784E-04   5.37248E-05
+    0.00000E+00   0.00000E+00  -3.96366E-03  -6.65135E-04   3.82531E-04
+    5.90903E-05   0.00000E+00   0.00000E+00   1.04300E-03   1.55193E-04
+    4.18611E-04   6.50381E-05   0.00000E+00   0.00000E+00  -4.76589E-03
+   -8.02403E-04   4.57580E-04   7.15017E-05   0.00000E+00   0.00000E+00
+    6.95288E-03   1.14133E-03   5.00678E-04   7.86946E-05   0.00000E+00
+    0.00000E+00   1.22205E-03   1.84897E-04   5.47401E-04   8.65408E-05
+    0.00000E+00   0.00000E+00   8.14760E-03   1.34793E-03   5.99223E-04
+    9.52981E-05   0.00000E+00   0.00000E+00  -5.41585E-03  -9.44113E-04
+    6.54950E-04   1.04775E-04   0.00000E+00   0.00000E+00   5.23783E-03
+    8.67579E-04   7.19378E-04   1.15800E-04   0.00000E+00   0.00000E+00
+    1.77128E-03   2.74337E-04   8.25025E-04   1.33996E-04   0.00000E+00
+    0.00000E+00   6.25420E-03   1.04642E-03   9.07033E-04   1.48211E-04
+    0.00000E+00   0.00000E+00   2.43010E-03   3.83565E-04   9.96340E-04
+    1.63791E-04   0.00000E+00   0.00000E+00   1.20932E-02   2.06937E-03
+    1.09596E-03   1.81283E-04   0.00000E+00   0.00000E+00  -1.63041E-03
+   -3.40429E-04   1.20418E-03   2.00411E-04   0.00000E+00   0.00000E+00
+    3.24897E-03   5.21989E-04   1.32287E-03   2.21528E-04   0.00000E+00
+    0.00000E+00   9.08659E-03   1.56059E-03   1.45364E-03   2.44949E-04
+    0.00000E+00   0.00000E+00   1.00243E-02   1.72853E-03   1.61894E-03
+    2.74751E-04   0.00000E+00   0.00000E+00  -1.52514E-03  -3.53793E-04
+    1.82589E-03   3.12315E-04   0.00000E+00   0.00000E+00   1.15415E-02
+    2.01794E-03   2.01446E-03   3.46776E-04   0.00000E+00   0.00000E+00
+    9.20244E-03   1.59050E-03   2.22197E-03   3.84955E-04   0.00000E+00
+    0.00000E+00   1.00521E-02   1.74684E-03   2.45075E-03   4.27339E-04
+    0.00000E+00   0.00000E+00   1.09719E-02   1.91723E-03   2.70216E-03
+    4.74235E-04   0.00000E+00   0.00000E+00   1.62516E-02   2.90210E-03
+    2.98472E-03   5.27312E-04   0.00000E+00   0.00000E+00   8.83104E-03
+    1.50823E-03   3.29940E-03   5.86836E-04   0.00000E+00   0.00000E+00
+    9.41807E-03   1.61927E-03   3.63854E-03   6.51440E-04   0.00000E+00
+    0.00000E+00   1.51517E-02   2.71151E-03   4.01270E-03   7.23225E-04
+    0.00000E+00   0.00000E+00   1.92273E-02   3.49341E-03   4.42647E-03
+    8.03176E-04   0.00000E+00   0.00000E+00   1.81611E-02   3.28739E-03
+    4.92023E-03   8.99275E-04   0.00000E+00   0.00000E+00   1.99069E-02
+    3.62716E-03   5.49283E-03   1.01153E-03   0.00000E+00   0.00000E+00
+    2.19112E-02   4.02010E-03   6.06654E-03   1.12482E-03   0.00000E+00
+    0.00000E+00   3.08294E-02   5.78124E-03   6.70563E-03   1.25196E-03
+    0.00000E+00   0.00000E+00   2.64926E-02   4.91851E-03   7.40644E-03
+    1.39242E-03   0.00000E+00   0.00000E+00   3.27432E-02   6.17124E-03
+    8.18394E-03   1.54941E-03   0.00000E+00   0.00000E+00   3.15858E-02
+    5.93752E-03   9.03739E-03   1.72304E-03   0.00000E+00   0.00000E+00
+    3.87589E-02   7.39684E-03   9.98133E-03   1.91654E-03   0.00000E+00
+    0.00000E+00   4.23102E-02   8.12484E-03   1.11337E-02   2.15457E-03
+    0.00000E+00   0.00000E+00   4.40822E-02   8.49087E-03   1.23663E-02
+    2.41115E-03   0.00000E+00   0.00000E+00   5.36325E-02   1.04789E-02
+    1.36807E-02   2.68689E-03   0.00000E+00   0.00000E+00   5.29345E-02
+    1.03324E-02   1.51147E-02   2.99008E-03   0.00000E+00   0.00000E+00
+    6.98003E-02   1.38983E-02   1.67239E-02   3.33300E-03   0.00000E+00
+    0.00000E+00   6.35590E-02   1.25683E-02   1.84746E-02   3.70905E-03
+    0.00000E+00   0.00000E+00   7.94249E-02   1.59763E-02   2.07550E-02
+    4.20282E-03   0.00000E+00   0.00000E+00   8.82490E-02   1.78869E-02
+    2.31814E-02   4.73245E-03   0.00000E+00   0.00000E+00   9.74551E-02
+    1.98964E-02   2.56893E-02   5.28434E-03   0.00000E+00   0.00000E+00
+    1.02486E-01   2.10035E-02   2.84369E-02   5.89397E-03   0.00000E+00
+    0.00000E+00   1.20836E-01   2.50750E-02   3.15047E-02   6.58029E-03
+    0.00000E+00   0.00000E+00   1.25161E-01   2.60425E-02   3.48611E-02
+    7.33746E-03   0.00000E+00   0.00000E+00   1.44193E-01   3.03361E-02
+    3.85901E-02   8.18581E-03   0.00000E+00   0.00000E+00   1.54927E-01
+    3.27779E-02   4.26806E-02   9.12430E-03   0.00000E+00   0.00000E+00
+    1.74856E-01   3.73503E-02   4.71844E-02   1.01665E-02   0.00000E+00
+    0.00000E+00   1.97146E-01   4.25084E-02   5.21911E-02   1.13351E-02
+    0.00000E+00   0.00000E+00   2.08920E-01   4.52565E-02   5.76387E-02
+    1.26178E-02   0.00000E+00   0.00000E+00   2.38210E-01   5.21528E-02
+    6.44444E-02   1.42343E-02   0.00000E+00   0.00000E+00   2.59426E-01
+    5.71923E-02   7.15539E-02   1.59380E-02   0.00000E+00   0.00000E+00
+    2.88341E-01   6.41214E-02   7.90815E-02   1.77581E-02   0.00000E+00
+    0.00000E+00   3.18869E-01   7.15028E-02   8.73450E-02   1.97743E-02
+    0.00000E+00   0.00000E+00   3.52283E-01   7.96552E-02   9.64236E-02
+    2.20095E-02   0.00000E+00   0.00000E+00   3.86418E-01   8.80595E-02
+    1.06371E-01   2.44813E-02   0.00000E+00   0.00000E+00   4.23370E-01
+    9.72414E-02   1.17200E-01   2.71971E-02   0.00000E+00   0.00000E+00
+    4.68622E-01   1.08590E-01   1.29101E-01   3.02098E-02   0.00000E+00
+    0.00000E+00   5.09563E-01   1.18955E-01   1.44482E-01   3.41404E-02
+    0.00000E+00   0.00000E+00   5.72354E-01   1.35001E-01   1.59167E-01
+    3.79293E-02   0.00000E+00   0.00000E+00   6.25672E-01   1.48757E-01
+    1.75011E-01   4.20566E-02   0.00000E+00   0.00000E+00   6.85878E-01
+    1.64440E-01   1.92141E-01   4.65625E-02   0.00000E+00   0.00000E+00
+    7.52363E-01   1.81929E-01   2.10626E-01   5.14726E-02   0.00000E+00
+    0.00000E+00   8.23764E-01   2.00895E-01   2.30639E-01   5.68418E-02
+    0.00000E+00   0.00000E+00   8.94247E-01   2.19804E-01   2.51987E-01
+    6.26264E-02   0.00000E+00   0.00000E+00   9.74848E-01   2.41645E-01
+    2.74895E-01   6.88970E-02   0.00000E+00   0.00000E+00   1.05594E+00
+    2.63844E-01   2.99151E-01   7.56047E-02   0.00000E+00   0.00000E+00
+    1.14550E+00   2.88609E-01   3.24800E-01   8.27712E-02   0.00000E+00
+    0.00000E+00   1.23934E+00   3.14829E-01   3.52204E-01   9.05084E-02
+    0.00000E+00   0.00000E+00   1.33304E+00   3.41285E-01   3.84987E-01
+    9.98625E-02   0.00000E+00   0.00000E+00   1.45712E+00   3.76687E-01
+    4.15322E-01   1.08610E-01   0.00000E+00   0.00000E+00   1.55984E+00
+    4.06309E-01   4.46483E-01   1.17694E-01   0.00000E+00   0.00000E+00
+    1.66800E+00   4.37838E-01   4.78385E-01   1.27095E-01   0.00000E+00
+    0.00000E+00   1.77691E+00   4.69933E-01   5.10871E-01   1.36774E-01
+    0.00000E+00   0.00000E+00   1.88399E+00   5.01838E-01   5.43216E-01
+    1.46519E-01   0.00000E+00   0.00000E+00   1.99348E+00   5.34827E-01
+    5.75697E-01   1.56416E-01   0.00000E+00   0.00000E+00   2.09557E+00
+    5.65933E-01   6.07015E-01   1.66067E-01   0.00000E+00   0.00000E+00
+    2.19640E+00   5.97004E-01   6.37127E-01   1.75455E-01   0.00000E+00
+    0.00000E+00   2.28830E+00   6.25655E-01   6.66304E-01   1.84657E-01
+    0.00000E+00   0.00000E+00   2.37412E+00   6.52722E-01   6.93260E-01
+    1.93259E-01   0.00000E+00   0.00000E+00   2.45351E+00   6.78057E-01
+    7.18854E-01   2.01525E-01   0.00000E+00   0.00000E+00   2.51641E+00
+    6.98370E-01   7.41053E-01   2.08781E-01   0.00000E+00   0.00000E+00
+    2.57316E+00   7.16919E-01   7.61557E-01   2.15566E-01   0.00000E+00
+    0.00000E+00   2.62037E+00   7.32542E-01   7.80768E-01   2.22001E-01
+    0.00000E+00   0.00000E+00   2.65944E+00   7.45630E-01   7.93723E-01
+    2.26396E-01   0.00000E+00   0.00000E+00   2.67603E+00   7.51258E-01
+    8.03429E-01   2.29730E-01   0.00000E+00   0.00000E+00   2.67787E+00
+    7.51889E-01   8.09777E-01   2.31940E-01   0.00000E+00   0.00000E+00
+    2.66598E+00   7.47754E-01   8.14635E-01   2.33652E-01   0.00000E+00
+    0.00000E+00   2.65125E+00   7.42559E-01   8.17948E-01   2.34836E-01
+    0.00000E+00   0.00000E+00   2.62858E+00   7.34460E-01   8.14627E-01
+    2.33633E-01   0.00000E+00   0.00000E+00   2.58013E+00   7.16923E-01
+    8.08370E-01   2.31337E-01   0.00000E+00   0.00000E+00   2.52272E+00
+    6.95857E-01   7.99495E-01   2.28035E-01   0.00000E+00   0.00000E+00
+    2.45779E+00   6.71700E-01   7.88997E-01   2.24076E-01   0.00000E+00
+    0.00000E+00   2.38592E+00   6.44591E-01   7.76934E-01   2.19461E-01
+    0.00000E+00   0.00000E+00   2.30941E+00   6.15319E-01   7.63441E-01
+    2.14224E-01   0.00000E+00   0.00000E+00   2.23020E+00   5.84576E-01
+    7.56175E-01   2.11363E-01   0.00000E+00   0.00000E+00   2.17183E+00
+    5.61592E-01   7.45193E-01   2.06974E-01   0.00000E+00   0.00000E+00
+    2.09990E+00   5.32850E-01   7.29228E-01   2.00499E-01   0.00000E+00
+    0.00000E+00   2.01540E+00   4.98576E-01   7.13702E-01   1.94105E-01
+    0.00000E+00   0.00000E+00   1.93266E+00   4.64500E-01   6.98829E-01
+    1.87885E-01   0.00000E+00   0.00000E+00   1.85268E+00   4.31051E-01
+    6.84675E-01   1.81872E-01   0.00000E+00   0.00000E+00   1.77630E+00
+    3.98603E-01   6.70028E-01   1.75551E-01   0.00000E+00   0.00000E+00
+    1.70090E+00   3.66060E-01   6.57378E-01   1.70001E-01   0.00000E+00
+    0.00000E+00   1.63163E+00   3.35679E-01   6.45916E-01   1.64890E-01
+    0.00000E+00   0.00000E+00   1.56937E+00   3.07912E-01   6.35964E-01
+    1.60378E-01   0.00000E+00   0.00000E+00   1.51151E+00   2.81680E-01
+    6.26859E-01   1.56179E-01   0.00000E+00   0.00000E+00   1.45833E+00
+    2.57153E-01   6.18935E-01   1.52461E-01   0.00000E+00   0.00000E+00
+    1.40958E+00   2.34281E-01   6.12095E-01   1.49195E-01   0.00000E+00
+    0.00000E+00   1.36514E+00   2.13061E-01   6.06183E-01   1.46320E-01
+    0.00000E+00   0.00000E+00   1.32483E+00   1.93463E-01   6.01173E-01
+    1.43840E-01   0.00000E+00   0.00000E+00   1.28838E+00   1.75418E-01
+    5.97333E-01   1.41904E-01   0.00000E+00   0.00000E+00   1.25549E+00
+    1.58832E-01   5.94110E-01   1.40247E-01   0.00000E+00   0.00000E+00
+    1.22600E+00   1.43671E-01   5.88583E-01   1.37352E-01   0.00000E+00
+    0.00000E+00   1.19017E+00   1.24897E-01   5.86189E-01   1.36072E-01
+    0.00000E+00   0.00000E+00   1.16457E+00   1.11217E-01   5.85977E-01
+    1.35956E-01   0.00000E+00   0.00000E+00   1.14565E+00   1.00908E-01
+    5.86204E-01   1.36082E-01   0.00000E+00   0.00000E+00   1.12875E+00
+    9.15025E-02   5.87016E-01   1.36544E-01   0.00000E+00   0.00000E+00
+    1.11365E+00   8.29234E-02   5.88158E-01   1.37206E-01   0.00000E+00
+    0.00000E+00   1.10021E+00   7.51182E-02   5.89656E-01   1.38096E-01
+    0.00000E+00   0.00000E+00   1.08824E+00   6.80202E-02   5.91599E-01
+    1.39274E-01   0.00000E+00   0.00000E+00   1.07761E+00   6.15743E-02
+    5.93566E-01   1.40495E-01   0.00000E+00   0.00000E+00   1.06761E+00
+    5.53684E-02   5.96066E-01   1.42082E-01   0.00000E+00   0.00000E+00
+    1.05932E+00   5.01066E-02   5.98858E-01   1.43899E-01   0.00000E+00
+    0.00000E+00   1.05201E+00   4.53506E-02   6.01793E-01   1.45855E-01
+    0.00000E+00   0.00000E+00   1.04555E+00   4.10442E-02   6.04964E-01
+    1.48022E-01   0.00000E+00   0.00000E+00   1.03983E+00   3.71344E-02
+    6.08242E-01   1.50321E-01   0.00000E+00   0.00000E+00   1.03479E+00
+    3.35971E-02   6.11702E-01   1.52813E-01   0.00000E+00   0.00000E+00
+    1.03034E+00   3.03954E-02   6.15265E-01   1.55448E-01   0.00000E+00
+    0.00000E+00   1.02642E+00   2.74939E-02   6.18918E-01   1.58227E-01
+    0.00000E+00   0.00000E+00   1.02297E+00   2.48703E-02   6.22669E-01
+    1.61163E-01   0.00000E+00   0.00000E+00   1.01994E+00   2.24984E-02
+    6.26463E-01   1.64223E-01   0.00000E+00   0.00000E+00   1.01725E+00
+    2.03278E-02   6.29849E-01   1.67037E-01   0.00000E+00   0.00000E+00
+    1.01384E+00   1.74922E-02   6.33834E-01   1.70453E-01   0.00000E+00
+    0.00000E+00   1.01198E+00   1.59026E-02   6.37841E-01   1.74003E-01
+    0.00000E+00   0.00000E+00   1.01036E+00   1.44623E-02   6.41823E-01
+    1.77650E-01   0.00000E+00   0.00000E+00   1.00892E+00   1.31440E-02
+    6.45846E-01   1.81463E-01   0.00000E+00   0.00000E+00   1.00767E+00
+    1.19558E-02   6.49841E-01   1.85390E-01   0.00000E+00   0.00000E+00
+    1.00656E+00   1.08720E-02   6.53810E-01   1.89437E-01   0.00000E+00
+    0.00000E+00   1.00560E+00   9.88773E-03   6.57704E-01   1.93565E-01
+    0.00000E+00   0.00000E+00   1.00461E+00   8.84726E-03   6.61464E-01
+    1.97714E-01   0.00000E+00   0.00000E+00   1.00358E+00   7.70241E-03
+    6.65386E-01   2.02227E-01   0.00000E+00   0.00000E+00   1.00301E+00
+    7.05051E-03   6.69239E-01   2.06858E-01   0.00000E+00   0.00000E+00
+    1.00251E+00   6.44990E-03   6.73042E-01   2.11642E-01   0.00000E+00
+    0.00000E+00   1.00207E+00   5.89764E-03   6.76766E-01   2.16557E-01
+    0.00000E+00   0.00000E+00   1.00170E+00   5.40148E-03   6.80389E-01
+    2.21584E-01   0.00000E+00   0.00000E+00   1.00128E+00   4.82344E-03
+    6.83850E-01   2.26647E-01   0.00000E+00   0.00000E+00   1.00079E+00
+    4.11213E-03   6.87359E-01   2.32076E-01   0.00000E+00   0.00000E+00
+    1.00059E+00   3.79420E-03   6.90761E-01   2.37659E-01   0.00000E+00
+    0.00000E+00   1.00041E+00   3.50518E-03   6.94060E-01   2.43425E-01
+    0.00000E+00   0.00000E+00   1.00026E+00   3.23222E-03   6.97198E-01
+    2.49290E-01   0.00000E+00   0.00000E+00   1.00006E+00   2.87415E-03
+    7.00197E-01   2.55313E-01   0.00000E+00   0.00000E+00   9.99863E-01
+    2.46952E-03   7.03112E-01   2.61640E-01   0.00000E+00   0.00000E+00
+    9.99784E-01   2.29772E-03   7.05880E-01   2.68171E-01   0.00000E+00
+    0.00000E+00   9.99717E-01   2.14197E-03   7.08478E-01   2.74892E-01
+    0.00000E+00   0.00000E+00   9.99661E-01   1.99583E-03   7.10907E-01
+    2.81844E-01   0.00000E+00   0.00000E+00   9.99612E-01   1.85455E-03
+    7.13143E-01   2.89003E-01   0.00000E+00   0.00000E+00   9.99574E-01
+    1.73252E-03   7.15177E-01   2.96394E-01   0.00000E+00   0.00000E+00
+    9.99540E-01   1.61049E-03   7.16981E-01   3.03973E-01   0.00000E+00
+    0.00000E+00   9.99497E-01   1.42905E-03   7.18558E-01   3.11820E-01
+    0.00000E+00   0.00000E+00   9.99469E-01   1.28935E-03   7.19890E-01
+    3.19953E-01   0.00000E+00   0.00000E+00   9.99455E-01   1.20425E-03
+    7.20955E-01   3.28354E-01   0.00000E+00   0.00000E+00   9.99446E-01
+    1.13521E-03   7.21731E-01   3.37018E-01   0.00000E+00   0.00000E+00
+    9.99440E-01   1.05974E-03   7.22201E-01   3.45966E-01   0.00000E+00
+    0.00000E+00   9.99436E-01   9.97123E-04   7.22507E-01   3.65926E-01
+    0.00000E+00   0.00000E+00   9.99660E-01   1.55991E-02   7.22674E-01
+    3.58266E-01  -1.76680E-04   8.11345E-03   1.00000E+00   0.00000E+00
+    7.22118E-01   3.67691E-01  -1.94025E-04   8.40794E-03   1.00000E+00
+    0.00000E+00   7.21185E-01   3.77409E-01  -2.23740E-04   8.71741E-03
+    1.00000E+00   0.00000E+00   7.19852E-01   3.87425E-01  -2.66580E-04
+    9.03917E-03   1.00000E+00   0.00000E+00   7.18096E-01   3.97740E-01
+   -3.23535E-04   9.37369E-03   1.00000E+00   0.00000E+00   7.15889E-01
+    4.08380E-01  -3.95668E-04   9.72151E-03   1.00000E+00   0.00000E+00
+    7.13209E-01   4.19342E-01  -4.84101E-04   1.00832E-02   1.00000E+00
+    0.00000E+00   7.10026E-01   4.30641E-01  -5.90006E-04   1.04592E-02
+    1.00000E+00   0.00000E+00   7.06316E-01   4.42281E-01  -7.14643E-04
+    1.08503E-02   1.00000E+00   0.00000E+00   7.02048E-01   4.54274E-01
+   -8.59345E-04   1.12569E-02   1.00000E+00   0.00000E+00   7.03879E-01
+    4.49616E-01  -8.44415E-03   3.05572E-02   1.00000E+00   0.00000E+00
+    7.02827E-01   4.52061E-01  -1.31144E-02   4.14154E-02   1.00000E+00
+   -1.60567E-06   6.97686E-01   4.63064E-01  -1.38275E-02   4.29417E-02
+    9.99998E-01   1.60565E-06   6.92015E-01   4.74309E-01  -1.46249E-02
+    4.45227E-02   1.00000E+00   0.00000E+00   6.85797E-01   4.85791E-01
+   -1.55115E-02   4.61601E-02   1.00000E+00   0.00000E+00   6.79007E-01
+    4.97527E-01  -1.64924E-02   4.78553E-02   1.00000E+00   0.00000E+00
+    6.71630E-01   5.09509E-01  -1.75728E-02   4.96101E-02   1.00000E+00
+   -1.60567E-06   6.63642E-01   5.21744E-01  -1.87583E-02   5.14259E-02
+    9.99998E-01   1.60567E-06   6.77830E-01   5.01182E-01  -4.14893E-02
+    8.43714E-02   1.00000E+00   0.00000E+00   6.72746E-01   5.08173E-01
+   -4.57781E-02   9.02700E-02   1.00000E+00   0.00000E+00   6.65057E-01
+    5.18234E-01  -4.81580E-02   9.33843E-02   1.00000E+00   0.00000E+00
+    6.56951E-01   5.28350E-01  -5.07224E-02   9.65845E-02   1.00000E+00
+    0.00000E+00   6.48435E-01   5.38507E-01  -5.34785E-02   9.98716E-02
+    1.00000E+00   0.00000E+00   6.39505E-01   5.48706E-01  -5.64333E-02
+    1.03246E-01   1.00000E+00   0.00000E+00   6.30175E-01   5.58928E-01
+   -5.95926E-02   1.06708E-01   1.00000E+00  -1.60567E-06   6.20464E-01
+    5.69153E-01  -6.29628E-02   1.10256E-01   9.99998E-01   1.60567E-06
+    6.10384E-01   5.79368E-01  -6.65495E-02   1.13890E-01   1.00000E+00
+    0.00000E+00   5.99950E-01   5.89555E-01  -7.03584E-02   1.17610E-01
+    1.00000E+00  -1.60567E-06   5.89182E-01   5.99703E-01  -7.43948E-02
+    1.21413E-01   9.99997E-01   1.60567E-06   6.24716E-01   5.67348E-01
+   -1.13000E-01   1.56564E-01   1.00000E+00  -1.60567E-06   6.24716E-01
+    5.67348E-01  -1.13000E-01   1.56564E-01   1.00000E+00  -1.60567E-06
+ MEDIUM=WATER-3MEV-10KEV-02KEV  ,STERNCID=WATER-3MEV-10KEV-02KEV  
+ COMP,RHO= 1.0000E+00,NE= 2
+ ASYM=H ,Z= 1.,A=    1.008,PZ= 1.00000E+00,RHOZ= 1.00797E+00
+ ASYM=O ,Z= 8.,A=   15.999,PZ= 2.00000E+00,RHOZ= 3.19988E+01
+    3.47257E+01   5.21000E-01   2.00000E-03   3.51100E+00   3.00200E+00
+     0  200    0  150    0    0    0    0
+    9.99982E-01  -2.11119E-01   4.84469E-02   9.95866E-01  -2.26609E-01
+    9.52000E-01   1.00022E+00  -1.78818E-01   3.44729E-02   1.01418E+00
+   -2.30775E-01   9.52000E-01   1.00034E+00  -1.62218E-01   2.48977E-02
+    1.02358E+00  -2.32916E-01   9.52000E-01   9.99982E-01  -2.11303E-01
+    4.84892E-02   9.95862E-01  -2.26807E-01   9.52000E-01   1.00022E+00
+   -1.78977E-01   3.45035E-02   1.01419E+00  -2.30980E-01   9.52000E-01
+    1.00034E+00  -1.62363E-01   2.49200E-02   1.02361E+00  -2.33125E-01
+    9.52000E-01
+    3.50958E+01   9.41188E-01   8.53748E-01   2.28129E+00   9.41203E-01
+    8.53745E-01   2.27242E+00
+    9.14548E-02   7.71165E-05   2.59397E+05   4.90938E+00
+    1.21501E+02   2.59409E+01
+    9.58348E+00   1.50056E+00   2.94082E+04   6.38129E+03  -1.71251E+03
+   -5.22019E+02  -2.28131E+03  -6.61411E+02   1.00000E+00   0.00000E+00
+   -1.83302E+01  -4.01496E+00   9.58001E+01   2.07640E+01   2.60014E-05
+    5.04571E-06   9.58348E+00   1.50056E+00   2.94082E+04   6.38129E+03
+   -1.71251E+03  -5.22019E+02  -2.28131E+03  -6.61411E+02   1.00000E+00
+    0.00000E+00  -1.83302E+01  -4.01496E+00   9.58001E+01   2.07640E+01
+    2.60014E-05   5.04571E-06   9.53936E+00   1.49091E+00   2.61682E+04
+    5.67202E+03  -1.64546E+03  -5.07342E+02  -2.17918E+03  -6.39053E+02
+    1.00000E+00   0.00000E+00  -5.50955E-01  -1.22926E-01   3.86523E+00
+    6.38718E-01   2.76260E-05   5.40134E-06   9.49420E+00   1.48094E+00
+    2.32030E+04   5.01740E+03  -1.58010E+03  -4.92913E+02  -2.08048E+03
+   -6.17264E+02   1.00000E+00   0.00000E+00  -1.82581E-01  -4.16000E-02
+    1.96110E+00   2.18337E-01   2.93619E-05   5.78457E-06   9.45084E+00
+    1.47128E+00   2.05300E+04   4.42221E+03  -1.51732E+03  -4.78933E+02
+   -1.98641E+03  -5.96317E+02   1.00000E+00   0.00000E+00  -8.82227E-02
+   -2.05895E-02   1.47390E+00   1.09855E-01   3.12133E-05   6.19683E-06
+    9.40401E+00   1.46076E+00   1.81103E+04   3.87876E+03  -1.45563E+03
+   -4.65077E+02  -1.89503E+03  -5.75793E+02   1.00000E+00   0.00000E+00
+   -5.01954E-02  -1.20487E-02   1.27798E+00   6.58529E-02   3.31711E-05
+    6.63654E-06   9.35659E+00   1.45002E+00   1.59324E+04   3.38534E+03
+   -1.39697E+03  -4.51789E+02  -1.80868E+03  -5.56229E+02   1.00000E+00
+    0.00000E+00  -3.11381E-02  -7.73120E-03   1.18020E+00   4.36984E-02
+    3.52536E-05   7.10834E-06   9.31430E+00   1.44035E+00   1.39671E+04
+    2.93615E+03  -1.34000E+03  -4.38767E+02  -1.72554E+03  -5.37229E+02
+    1.00000E+00   0.00000E+00  -2.02055E-02  -5.23253E-03   1.12449E+00
+    3.09659E-02   3.74640E-05   7.61354E-06   9.26795E+00   1.42966E+00
+    1.22000E+04   2.52871E+03  -1.28462E+03  -4.25997E+02  -1.64550E+03
+   -5.18772E+02   1.00000E+00   0.00000E+00  -1.33467E-02  -3.65100E-03
+    1.08983E+00   2.29717E-02   3.98065E-05   8.15369E-06   9.22210E+00
+    1.41900E+00   1.06118E+04   2.15920E+03  -1.23154E+03  -4.13649E+02
+   -1.56934E+03  -5.01055E+02   1.00000E+00   0.00000E+00  -8.73870E-03
+   -2.57895E-03   1.06683E+00   1.76252E-02   4.22996E-05   8.73371E-06
+    9.17693E+00   1.40840E+00   9.18609E+03   1.82451E+03  -1.18023E+03
+   -4.01605E+02  -1.49630E+03  -4.83908E+02   1.00000E+00   0.00000E+00
+   -5.47486E-03  -1.81274E-03   1.05083E+00   1.38678E-02   4.49417E-05
+    9.35396E-06   9.13276E+00   1.39793E+00   7.90638E+03   1.52134E+03
+   -1.13067E+03  -3.89863E+02  -1.42631E+03  -4.67325E+02   1.00000E+00
+    0.00000E+00  -3.05859E-03  -1.24032E-03   1.03925E+00   1.11250E-02
+    4.77436E-05   1.00177E-05   9.08791E+00   1.38721E+00   6.76249E+03
+    1.24786E+03  -1.08279E+03  -3.78414E+02  -1.35923E+03  -4.51288E+02
+    1.00000E+00   0.00000E+00  -1.20822E-03  -7.97921E-04   1.03060E+00
+    9.05768E-03   5.07196E-05   1.07292E-05   9.04129E+00   1.37596E+00
+    5.73990E+03   1.00110E+03  -1.03680E+03  -3.67316E+02  -1.29524E+03
+   -4.35847E+02   1.00000E+00   0.00000E+00   2.55628E-04  -4.44686E-04
+    1.02400E+00   7.46499E-03   5.38762E-05   1.14909E-05   8.99630E+00
+    1.36500E+00   4.82710E+03   7.78760E+02  -9.92134E+02  -3.56438E+02
+   -1.23364E+03  -4.20844E+02   1.00000E+00   0.00000E+00   1.44853E-03
+   -1.54125E-04   1.01881E+00   6.20029E-03   5.72200E-05   1.23054E-05
+    8.95282E+00   1.35431E+00   4.01497E+03   5.79075E+02  -9.49215E+02
+   -3.45885E+02  -1.17486E+03  -4.06389E+02   1.00000E+00   0.00000E+00
+    2.44411E-03   9.06694E-05   1.01469E+00   5.18746E-03   6.07720E-05
+    1.31788E-05   8.90890E+00   1.34341E+00   3.29304E+03   3.99863E+02
+   -9.07823E+02  -3.35610E+02  -1.11856E+03  -3.92415E+02   1.00000E+00
+    0.00000E+00   3.29417E-03   3.01686E-04   1.01136E+00   4.36030E-03
+    6.45288E-05   1.41114E-05   8.86335E+00   1.33199E+00   2.65263E+03
+    2.39355E+02  -8.68098E+02  -3.25654E+02  -1.06490E+03  -3.78966E+02
+    1.00000E+00   0.00000E+00   4.03442E-03   4.87221E-04   1.00862E+00
+    3.67222E-03   6.85169E-05   1.51109E-05   8.81951E+00   1.32090E+00
+    2.08741E+03   9.63062E+01  -8.29529E+02  -3.15893E+02  -1.01322E+03
+   -3.65887E+02   1.00000E+00   0.00000E+00   4.69124E-03   6.53444E-04
+    1.00633E+00   3.09394E-03   7.27452E-05   1.61810E-05   1.33171E+04
+    3.40255E+03   1.58861E+03  -3.11690E+01  -9.28023E+02  -3.41065E+02
+   -9.63850E+02  -3.53268E+02  -9.77141E+01  -2.52286E+01   5.28553E-03
+    8.05333E-04   1.00442E+00   2.60534E-03   7.72213E-05   1.73250E-05
+    1.11220E+04   2.83596E+03   1.15057E+03  -1.44236E+02  -8.75008E+02
+   -3.27380E+02  -9.16823E+02  -3.41130E+02  -1.18758E+00  -3.13621E-01
+    5.82916E-03   9.45651E-04   1.00278E+00   2.18168E-03   8.19748E-05
+    1.85519E-05   9.35563E+03   2.37545E+03   7.67093E+02  -2.44212E+02
+   -8.26381E+02  -3.14703E+02  -8.71534E+02  -3.29323E+02  -3.86996E-01
+   -1.04900E-01   6.33359E-03   1.07716E-03   1.00140E+00   1.82142E-03
+    8.69918E-05   1.98599E-05   7.92489E+03   1.99866E+03   4.32306E+02
+   -3.32380E+02  -7.81884E+02  -3.02985E+02  -8.28519E+02  -3.17994E+02
+   -1.85121E-01  -5.17348E-02   6.81136E-03   1.20298E-03   1.00018E+00
+    1.49981E-03   9.23272E-05   2.12650E-05   6.75065E+03   1.68624E+03
+    1.41763E+02  -4.09684E+02  -7.40398E+02  -2.91947E+02  -7.87169E+02
+   -3.06993E+02  -1.04477E-01  -3.02788E-02   7.26012E-03   1.32237E-03
+    9.99122E-01   1.21995E-03   9.79552E-05   2.27624E-05   5.78198E+03
+    1.42585E+03  -1.08792E+02  -4.77034E+02  -7.01772E+02  -2.81563E+02
+   -7.47757E+02  -2.96399E+02  -6.43436E-02  -1.94905E-02   7.69443E-03
+    1.43912E-03   9.98213E-01   9.74104E-04   1.03924E-04   2.43669E-05
+    4.97347E+03   1.20624E+03  -3.23577E+02  -5.35376E+02  -6.65362E+02
+   -2.71674E+02  -7.09916E+02  -2.86120E+02  -4.14998E-02  -1.32854E-02
+    8.11333E-03   1.55291E-03   9.97390E-01   7.51452E-04   1.10237E-04
+    2.60817E-05   4.29573E+03   1.02020E+03  -5.07117E+02  -5.85760E+02
+   -6.31281E+02  -2.62317E+02  -6.73986E+02  -2.76257E+02  -2.72909E-02
+   -9.38504E-03   8.52180E-03   1.66504E-03   9.96660E-01   5.51996E-04
+    1.16930E-04   2.79188E-05   3.72206E+03   8.61035E+02  -6.60935E+02
+   -6.28433E+02  -5.98749E+02  -2.53293E+02  -6.39342E+02  -2.66645E+02
+   -1.78360E-02  -6.76186E-03   8.91919E-03   1.77529E-03   9.96011E-01
+    3.71087E-04   1.23991E-04   2.98781E-05   3.23500E+03   7.24445E+02
+   -7.90564E+02  -6.64786E+02  -5.68169E+02  -2.44717E+02  -6.06489E+02
+   -2.57431E+02  -1.12267E-02  -4.90837E-03   9.31359E-03   1.88590E-03
+    9.95442E-01   2.11829E-04   1.31475E-04   3.19767E-05   2.81664E+03
+    6.05839E+02  -8.96189E+02  -6.94733E+02  -5.38913E+02  -2.36422E+02
+   -5.74898E+02  -2.48475E+02  -6.39686E-03  -3.53908E-03   9.70055E-03
+    1.99560E-03   9.94910E-01   6.03017E-05   1.39379E-04   3.42175E-05
+    2.45758E+03   5.02918E+02  -9.82334E+02  -7.19426E+02  -5.11193E+02
+   -2.28477E+02  -5.44838E+02  -2.39859E+02  -2.76170E-03  -2.49711E-03
+    1.00855E-02   2.10595E-03   9.94434E-01  -7.57637E-05   1.47741E-04
+    3.66146E-05   2.14574E+03   4.12534E+02  -1.05064E+03  -7.39223E+02
+   -4.84791E+02  -2.20824E+02  -5.16134E+02  -2.31540E+02   7.34444E-05
+   -1.67538E-03   1.04694E-02   2.21722E-03   9.94013E-01  -1.97913E-04
+    1.56577E-04   3.91754E-05   1.87555E+03   3.33337E+02  -1.10207E+03
+   -7.54297E+02  -4.59455E+02  -2.13398E+02  -4.88562E+02  -2.23458E+02
+    2.32630E-03  -1.01503E-03   1.08498E-02   2.32872E-03   9.93611E-01
+   -3.15424E-04   1.65904E-04   4.19093E-05   1.63946E+03   2.63348E+02
+   -1.14050E+03  -7.65690E+02  -4.35403E+02  -2.06268E+02  -4.62362E+02
+   -2.15691E+02   4.16719E-03  -4.69271E-04   1.12325E-02   2.44218E-03
+    9.93259E-01  -4.20566E-04   1.75772E-04   4.48348E-05   1.43288E+03
+    2.01393E+02  -1.16591E+03  -7.73309E+02  -4.12377E+02  -1.99362E+02
+   -4.37295E+02  -2.08173E+02   5.69735E-03  -1.03885E-05   1.16131E-02
+    2.55629E-03   9.92918E-01  -5.21068E-04   1.86177E-04   4.79551E-05
+    1.25162E+03   1.46400E+02  -1.18076E+03  -7.77820E+02  -3.90373E+02
+   -1.92686E+02  -4.13353E+02  -2.00910E+02   6.99601E-03   3.83616E-04
+    1.19959E-02   2.67244E-03   9.92615E-01  -6.13844E-04   1.97168E-04
+    5.12899E-05   1.09205E+03   9.74129E+01  -1.18601E+03  -7.79427E+02
+   -3.69362E+02  -1.86236E+02  -3.90526E+02  -1.93902E+02   8.11831E-03
+    7.28162E-04   1.23801E-02   2.79039E-03   9.92337E-01  -6.98881E-04
+    2.08778E-04   5.48539E-05   9.51497E+02   5.37501E+01  -1.18292E+03
+   -7.78470E+02  -3.49231E+02  -1.79982E+02  -3.68690E+02  -1.87118E+02
+    9.09729E-03   1.03228E-03   1.27631E-02   2.90938E-03   9.92071E-01
+   -7.80830E-04   2.21003E-04   5.86520E-05   8.27461E+02   1.47501E+01
+   -1.17293E+03  -7.75326E+02  -3.30018E+02  -1.73941E+02  -3.47884E+02
+   -1.80576E+02   9.97031E-03   1.30679E-03   1.31499E-02   3.03100E-03
+    9.91842E-01  -8.53501E-04   2.33914E-04   6.27115E-05   7.18422E+02
+   -1.99560E+01  -1.15635E+03  -7.70050E+02  -3.11609E+02  -1.68081E+02
+   -3.27995E+02  -1.74245E+02   1.07536E-02   1.55609E-03   1.35376E-02
+    3.15439E-03   9.91620E-01  -9.24626E-04   2.47515E-04   6.70404E-05
+    6.22037E+02  -5.10157E+01  -1.13480E+03  -7.63103E+02  -2.94033E+02
+   -1.62418E+02  -3.09044E+02  -1.68139E+02   1.14668E-02   1.78594E-03
+    1.39269E-02   3.27984E-03   9.91422E-01  -9.89566E-04   2.61862E-04
+    7.16638E-05   5.36981E+02  -7.87711E+01  -1.10895E+03  -7.54670E+02
+   -2.77226E+02  -1.56933E+02  -2.90961E+02  -1.62238E+02   1.21218E-02
+    1.99966E-03   1.43172E-02   3.40721E-03   9.91218E-01  -1.05451E-03
+    2.76973E-04   7.65944E-05   4.62357E+02  -1.03429E+02  -1.07897E+03
+   -7.44762E+02  -2.61158E+02  -1.51624E+02  -2.73720E+02  -1.56541E+02
+    1.27360E-02   2.20261E-03   1.47134E-02   3.53815E-03   9.91051E-01
+   -1.11017E-03   2.92888E-04   8.18535E-05   3.96580E+02  -1.25447E+02
+   -1.04605E+03  -7.33745E+02  -2.45772E+02  -1.46474E+02  -2.57244E+02
+   -1.51026E+02   1.32988E-02   2.39099E-03   1.51022E-02   3.66827E-03
+    9.90890E-01  -1.16429E-03   3.09644E-04   8.74621E-05   3.38954E+02
+   -1.44985E+02  -1.01060E+03  -7.21725E+02  -2.31082E+02  -1.41493E+02
+   -2.41554E+02  -1.45706E+02   1.38389E-02   2.57414E-03   1.54991E-02
+    3.80286E-03   9.90735E-01  -1.21686E-03   3.27274E-04   9.34402E-05
+    2.88732E+02  -1.62243E+02  -9.73037E+02  -7.08818E+02  -2.17036E+02
+   -1.36667E+02  -2.26587E+02  -1.40563E+02   1.43474E-02   2.74885E-03
+    1.58945E-02   3.93870E-03   9.90599E-01  -1.26170E-03   3.45829E-04
+    9.98155E-05   2.44901E+02  -1.77504E+02  -9.33985E+02  -6.95221E+02
+   -2.03626E+02  -1.31998E+02  -2.12334E+02  -1.35600E+02   1.48342E-02
+    2.91833E-03   1.62914E-02   4.07689E-03   9.90469E-01  -1.30964E-03
+    3.65345E-04   1.06611E-04   2.07046E+02  -1.90864E+02  -8.93795E+02
+   -6.81035E+02  -1.90811E+02  -1.27474E+02  -1.98738E+02  -1.30802E+02
+    1.52991E-02   3.08244E-03   1.66882E-02   4.21695E-03   9.90358E-01
+   -1.34674E-03   3.85843E-04   1.13845E-04   1.74420E+02  -2.02538E+02
+   -8.52705E+02  -6.66331E+02  -1.78572E+02  -1.23096E+02  -1.85789E+02
+   -1.26169E+02   1.57491E-02   3.24345E-03   1.70863E-02   4.35938E-03
+    9.90247E-01  -1.38694E-03   4.07401E-04   1.21559E-04   1.46554E+02
+   -2.12647E+02  -8.11045E+02  -6.51219E+02  -1.66877E+02  -1.18853E+02
+   -1.73442E+02  -1.21689E+02   1.61806E-02   3.39997E-03   1.74813E-02
+    4.50271E-03   9.90154E-01  -1.42096E-03   4.30035E-04   1.29770E-04
+    1.23051E+02  -2.21296E+02  -7.69176E+02  -6.35815E+02  -1.55720E+02
+   -1.14747E+02  -1.61688E+02  -1.17365E+02   1.66011E-02   3.55473E-03
+    1.78785E-02   4.64885E-03   9.90061E-01  -1.45343E-03   4.53799E-04
+    1.38515E-04   1.03365E+02  -2.28644E+02  -7.27288E+02  -6.20178E+02
+   -1.45063E+02  -1.10769E+02  -1.50482E+02  -1.13182E+02   1.70081E-02
+    3.70662E-03   1.82729E-02   4.79606E-03   9.89993E-01  -1.48126E-03
+    4.78732E-04   1.47820E-04   8.71642E+01  -2.34779E+02  -6.85597E+02
+   -6.04391E+02  -1.34910E+02  -1.06925E+02  -1.39831E+02  -1.09149E+02
+    1.74033E-02   3.85629E-03   1.86654E-02   4.94467E-03   9.89919E-01
+   -1.50754E-03   5.04901E-04   1.57731E-04   7.39657E+01  -2.39850E+02
+   -6.44336E+02  -5.88534E+02  -1.25219E+02  -1.03201E+02  -1.29686E+02
+   -1.05250E+02   1.77904E-02   4.00505E-03   1.90567E-02   5.09505E-03
+    9.89857E-01  -1.53074E-03   5.32321E-04   1.68268E-04   6.36901E+01
+   -2.43859E+02  -6.03544E+02  -5.72622E+02  -1.15967E+02  -9.95915E+01
+   -1.20017E+02  -1.01478E+02   1.81682E-02   4.15241E-03   1.94460E-02
+    5.24695E-03   9.89814E-01  -1.54929E-03   5.61073E-04   1.79483E-04
+    5.59192E+01  -2.46936E+02  -5.63353E+02  -5.56705E+02  -1.07157E+02
+   -9.61027E+01  -1.10827E+02  -9.78388E+01   1.85349E-02   4.29766E-03
+    1.98302E-02   5.39908E-03   9.89764E-01  -1.56784E-03   5.91179E-04
+    1.91407E-04   5.03396E+01  -2.49181E+02  -5.24020E+02  -5.40886E+02
+   -9.87555E+01  -9.27235E+01  -1.02082E+02  -9.43215E+01   1.88965E-02
+    4.44305E-03   2.02134E-02   5.55318E-03   9.89733E-01  -1.58176E-03
+    6.22691E-04   2.04080E-04   4.67835E+01  -2.50633E+02  -4.85483E+02
+   -5.25143E+02  -9.07511E+01  -8.94534E+01  -9.37602E+01  -9.09217E+01
+    1.92457E-02   4.58573E-03   2.05888E-02   5.70657E-03   9.89715E-01
+   -1.59104E-03   6.55684E-04   2.17558E-04   4.49627E+01  -2.51389E+02
+   -4.47955E+02  -5.09568E+02  -8.31275E+01  -8.62894E+01  -8.58524E+01
+   -8.76395E+01   1.95923E-02   4.72958E-03   2.09639E-02   5.86224E-03
+    9.89696E-01  -1.59877E-03   6.90187E-04   2.31879E-04   4.47572E+01
+   -2.51475E+02  -4.11323E+02  -4.94116E+02  -7.58622E+01  -8.32250E+01
+   -7.83251E+01  -8.44650E+01   1.99280E-02   4.87118E-03   2.13306E-02
+    6.01691E-03   9.89678E-01  -1.60496E-03   7.26247E-04   2.47088E-04
+    4.59064E+01  -2.50982E+02  -3.75817E+02  -4.78891E+02  -6.89498E+01
+   -8.02613E+01  -7.11759E+01  -8.13997E+01   2.02566E-02   5.01209E-03
+    2.16922E-02   6.17196E-03   9.89678E-01  -1.60495E-03   7.63920E-04
+    2.63242E-04   4.82972E+01  -2.49941E+02  -3.41380E+02  -4.63879E+02
+   -6.23712E+01  -7.73932E+01  -6.43828E+01  -7.84378E+01   2.05781E-02
+    5.15227E-03   2.20480E-02   6.32705E-03   9.89690E-01  -1.60031E-03
+    8.03276E-04   2.80400E-04   5.17203E+01  -2.48422E+02  -3.08058E+02
+   -4.49102E+02  -5.61128E+01  -7.46179E+01  -5.79296E+01  -7.55761E+01
+    2.08915E-02   5.29121E-03   2.23959E-02   6.48133E-03   9.89684E-01
+   -1.60031E-03   8.44349E-04   2.98613E-04   5.61092E+01  -2.46443E+02
+   -2.75840E+02  -4.34567E+02  -5.01532E+01  -7.19294E+01  -5.17919E+01
+   -7.28073E+01   2.11983E-02   5.42959E-03   2.27372E-02   6.63534E-03
+    9.89715E-01  -1.58794E-03   8.87174E-04   3.17932E-04   6.12581E+01
+   -2.44079E+02  -2.44789E+02  -4.20311E+02  -4.44964E+01  -6.93322E+01
+   -4.59737E+01  -7.01361E+01   2.14965E-02   5.56655E-03   2.30700E-02
+    6.78810E-03   9.89746E-01  -1.57403E-03   9.31844E-04   3.38441E-04
+    6.70783E+01  -2.41359E+02  -2.14905E+02  -4.06344E+02  -3.91132E+01
+   -6.68161E+01  -4.04452E+01  -6.75521E+01   2.17879E-02   5.70269E-03
+    2.33949E-02   6.93996E-03   9.89777E-01  -1.56011E-03   9.78371E-04
+    3.60188E-04   7.34907E+01  -2.38307E+02  -1.86133E+02  -3.92649E+02
+   -3.40019E+01  -6.43832E+01  -3.52020E+01  -6.50565E+01   2.20655E-02
+    5.83487E-03   2.37055E-02   7.08779E-03   9.89814E-01  -1.54156E-03
+    1.02684E-03   3.83256E-04   8.03749E+01  -2.34967E+02  -1.58508E+02
+   -3.79254E+02  -2.91419E+01  -6.20270E+01  -3.02229E+01  -6.26423E+01
+    2.23381E-02   5.96704E-03   2.40093E-02   7.23512E-03   9.89863E-01
+   -1.51837E-03   1.07725E-03   4.07700E-04   8.76328E+01  -2.31383E+02
+   -1.32035E+02  -3.66174E+02  -2.45306E+01  -5.97484E+01  -2.55035E+01
+   -6.03105E+01   2.26209E-02   6.10678E-03   2.43200E-02   7.38862E-03
+    9.89913E-01  -1.49208E-03   1.12971E-03   4.33622E-04   9.52010E+01
+   -2.27570E+02  -1.06655E+02  -3.53391E+02  -2.01535E+01  -5.75435E+01
+   -2.10279E+01  -5.80561E+01   2.28714E-02   6.23291E-03   2.45981E-02
+    7.52870E-03   9.89974E-01  -1.46270E-03   1.18423E-03   4.61082E-04
+    1.02998E+02  -2.23564E+02  -8.24084E+01  -3.40935E+02  -1.60010E+01
+   -5.54105E+01  -1.67879E+01  -5.58780E+01   2.31149E-02   6.35803E-03
+    2.48674E-02   7.66701E-03   9.90046E-01  -1.42560E-03   1.24087E-03
+    4.90179E-04   1.10972E+02  -2.19386E+02  -5.92061E+01  -3.28777E+02
+   -1.20604E+01  -5.33455E+01  -1.27678E+01  -5.37712E+01   2.33592E-02
+    6.48606E-03   2.51337E-02   7.80656E-03   9.90111E-01  -1.39158E-03
+    1.29967E-03   5.20989E-04   1.19061E+02  -2.15059E+02  -3.70731E+01
+   -3.16938E+02  -8.32423E+00  -5.13474E+01  -8.96032E+00  -5.17349E+01
+    2.35891E-02   6.60903E-03   2.53835E-02   7.94018E-03   9.90194E-01
+   -1.34828E-03   1.36068E-03   5.53619E-04   1.27203E+02  -2.10614E+02
+   -1.59661E+01  -3.05412E+02  -4.78673E+00  -4.94154E+01  -5.35712E+00
+   -4.97673E+01   2.38134E-02   6.73149E-03   2.56244E-02   8.07175E-03
+    9.90274E-01  -1.30344E-03   1.42394E-03   5.88170E-04   1.35360E+02
+   -2.06063E+02   4.12768E+00  -2.94202E+02  -1.43368E+00  -4.75449E+01
+   -1.94588E+00  -4.78643E+01   2.40248E-02   6.84944E-03   2.58501E-02
+    8.19762E-03   9.90358E-01  -1.25706E-03   1.48949E-03   6.24735E-04
+    1.43500E+02  -2.01423E+02   2.32683E+01  -2.83290E+02   1.74124E+00
+   -4.57346E+01   1.28169E+00  -4.60241E+01   2.42284E-02   6.96547E-03
+    2.60642E-02   8.31973E-03   9.90448E-01  -1.20449E-03   1.55735E-03
+    6.63427E-04   1.51560E+02  -1.96723E+02   4.14304E+01  -2.72703E+02
+    4.74596E+00  -4.39833E+01   4.33311E+00  -4.42453E+01   2.44230E-02
+    7.07893E-03   2.62668E-02   8.43784E-03   9.90543E-01  -1.14882E-03
+    1.62762E-03   7.04383E-04   1.59543E+02  -1.91963E+02   5.87058E+01
+   -2.62401E+02   7.58879E+00  -4.22881E+01   7.21908E+00  -4.25246E+01
+    2.46071E-02   7.18873E-03   2.64555E-02   8.55033E-03   9.90649E-01
+   -1.08698E-03   1.70025E-03   7.47695E-04   1.67387E+02  -1.87175E+02
+    7.50709E+01  -2.52413E+02   1.02755E+01  -4.06482E+01   9.94296E+00
+   -4.08620E+01   2.47815E-02   7.29518E-03   2.66313E-02   8.65767E-03
+    9.90748E-01  -1.02667E-03   1.77532E-03   7.93517E-04   1.75090E+02
+   -1.82361E+02   9.05825E+01  -2.42716E+02   1.28143E+01  -3.90611E+01
+    1.25164E+01  -3.92533E+01   2.49466E-02   7.39836E-03   2.67948E-02
+    8.75984E-03   9.90856E-01  -9.60189E-04   1.85285E-03   8.41977E-04
+    1.82625E+02  -1.77535E+02   1.05269E+02  -2.33310E+02   1.52134E+01
+   -3.75246E+01   1.49460E+01  -3.76971E+01   2.51010E-02   7.49727E-03
+    2.69445E-02   8.85570E-03   9.90967E-01  -8.87517E-04   1.93285E-03
+    8.93220E-04   1.89960E+02  -1.72718E+02   1.19152E+02  -2.24193E+02
+    1.74766E+01  -3.60382E+01   1.72364E+01  -3.61930E+01   2.52461E-02
+    7.59258E-03   2.70816E-02   8.94580E-03   9.91075E-01  -8.17943E-04
+    2.01536E-03   9.47403E-04   1.97111E+02  -1.67899E+02   1.32277E+02
+   -2.15350E+02   1.96124E+01  -3.45994E+01   1.93963E+01  -3.47377E+01
+    2.53816E-02   7.68383E-03   2.72064E-02   9.02986E-03   9.91187E-01
+   -7.40629E-04   2.10037E-03   1.00468E-03   2.04030E+02  -1.63114E+02
+    1.44643E+02  -2.06795E+02   2.16260E+01  -3.32065E+01   2.14316E+01
+   -3.33298E+01   2.55062E-02   7.77000E-03   2.73176E-02   9.10674E-03
+    9.91304E-01  -6.60226E-04   2.18792E-03   1.06524E-03   2.10732E+02
+   -1.58350E+02   1.56321E+02  -1.98496E+02   2.35224E+01  -3.18587E+01
+    2.33480E+01  -3.19679E+01   2.56213E-02   7.85178E-03   2.74162E-02
+    9.17683E-03   9.91419E-01  -5.79824E-04   2.27799E-03   1.12926E-03
+    2.17195E+02  -1.53628E+02   1.67302E+02  -1.90472E+02   2.53074E+01
+   -3.05544E+01   2.51498E+01  -3.06512E+01   2.57284E-02   7.93008E-03
+    2.75047E-02   9.24152E-03   9.91533E-01  -4.93237E-04   2.37060E-03
+    1.19692E-03   2.23420E+02  -1.48947E+02   1.77637E+02  -1.82701E+02
+    2.69875E+01  -2.92912E+01   2.68454E+01  -2.93765E+01   2.58218E-02
+    8.00031E-03   2.75770E-02   9.29591E-03   9.91654E-01  -4.05104E-04
+    2.46572E-03   1.26844E-03   2.29394E+02  -1.44321E+02   1.87345E+02
+   -1.75185E+02   2.85660E+01  -2.80688E+01   2.84378E+01  -2.81434E+01
+    2.59092E-02   8.06803E-03   2.76412E-02   9.34558E-03   9.91768E-01
+   -3.16970E-04   2.56335E-03   1.34405E-03   2.35126E+02  -1.39747E+02
+    1.96459E+02  -1.67910E+02   3.00482E+01  -2.68858E+01   2.99320E+01
+   -2.69506E+01   2.59859E-02   8.12918E-03   2.76923E-02   9.38643E-03
+    9.91886E-01  -2.22652E-04   2.66346E-03   1.42395E-03   2.40600E+02
+   -1.35239E+02   2.04995E+02  -1.60881E+02   3.14399E+01  -2.57399E+01
+    3.13340E+01  -2.57961E+01   2.60539E-02   8.18518E-03   2.77333E-02
+    9.42016E-03   9.92000E-01  -1.29881E-04   2.76603E-03   1.50841E-03
+    2.45827E+02  -1.30793E+02   2.12987E+02  -1.54083E+02   3.27430E+01
+   -2.46315E+01   3.26468E+01  -2.46797E+01   2.61132E-02   8.23563E-03
+    2.77641E-02   9.44635E-03   9.92114E-01  -3.09239E-05   2.87103E-03
+    1.59772E-03   2.50801E+02  -1.26420E+02   2.20454E+02  -1.47518E+02
+    3.39639E+01  -2.35580E+01   3.38760E+01  -2.35988E+01   2.61630E-02
+    8.27941E-03   2.77840E-02   9.46380E-03   9.92220E-01   6.33945E-05
+    2.97839E-03   1.69211E-03   2.55523E+02  -1.22121E+02   2.27428E+02
+   -1.41171E+02   3.51055E+01  -2.25189E+01   3.50249E+01  -2.25530E+01
+    2.62046E-02   8.31729E-03   2.77945E-02   9.47345E-03   9.92334E-01
+    1.65443E-04   3.08803E-03   1.79191E-03   2.60000E+02  -1.17899E+02
+    2.33924E+02  -1.35043E+02   3.61719E+01  -2.15130E+01   3.60982E+01
+   -2.15408E+01   2.62388E-02   8.34951E-03   2.77969E-02   9.47563E-03
+    9.92439E-01   2.64400E-04   3.19992E-03   1.89745E-03   2.64233E+02
+   -1.13755E+02   2.39966E+02  -1.29128E+02   3.71668E+01  -2.05391E+01
+    3.70983E+01  -2.05617E+01   2.62643E-02   8.37449E-03   2.77900E-02
+    9.46891E-03   9.92544E-01   3.67995E-04   3.31392E-03   2.00904E-03
+    2.68224E+02  -1.09695E+02   2.45585E+02  -1.23413E+02   3.80939E+01
+   -1.95960E+01   3.80303E+01  -1.96136E+01   2.62831E-02   8.39368E-03
+    2.77758E-02   9.45442E-03   9.92640E-01   4.65405E-04   3.42996E-03
+    2.12709E-03   2.71980E+02  -1.05718E+02   2.50787E+02  -1.17904E+02
+    3.89554E+01  -1.86839E+01   3.88965E+01  -1.86966E+01   2.62943E-02
+    8.40556E-03   2.77542E-02   9.43156E-03   9.92741E-01   5.72093E-04
+    3.54789E-03   2.25195E-03   2.75505E+02  -1.01828E+02   2.55606E+02
+   -1.12586E+02   3.97564E+01  -1.77996E+01   3.97009E+01  -1.78086E+01
+    2.62995E-02   8.41122E-03   2.77262E-02   9.40064E-03   9.92832E-01
+    6.72596E-04   3.66758E-03   2.38406E-03   2.78804E+02  -9.80248E+01
+    2.60056E+02  -1.07456E+02   4.04979E+01  -1.69449E+01   4.04457E+01
+   -1.69500E+01   2.62976E-02   8.40909E-03   2.76916E-02   9.36073E-03
+    9.92920E-01   7.74645E-04   3.78884E-03   2.52385E-03   2.81882E+02
+   -9.43112E+01   2.64152E+02  -1.02514E+02   4.11845E+01  -1.61166E+01
+    4.11351E+01  -1.61184E+01   2.62908E-02   8.40083E-03   2.76525E-02
+    9.31362E-03   9.93007E-01   8.78240E-04   3.91150E-03   2.67185E-03
+    2.84746E+02  -9.06854E+01   2.67918E+02  -9.77478E+01   4.18175E+01
+   -1.53154E+01   4.17705E+01  -1.53141E+01   2.62784E-02   8.38517E-03
+    2.76085E-02   9.25800E-03   9.93085E-01   9.78743E-04   4.03534E-03
+    2.82854E-03   2.87404E+02  -8.71507E+01   2.71372E+02  -9.31538E+01
+    4.24009E+01  -1.45395E+01   4.23558E+01  -1.45356E+01   2.62614E-02
+    8.36256E-03   2.75606E-02   9.19427E-03   9.93160E-01   1.07615E-03
+    4.16004E-03   2.99443E-03   2.89861E+02  -8.37059E+01   2.74526E+02
+   -8.87314E+01   4.29361E+01  -1.37891E+01   4.28929E+01  -1.37827E+01
+    2.62395E-02   8.33188E-03   2.75090E-02   9.12190E-03   9.93231E-01
+    1.17821E-03   4.28541E-03   3.17020E-03   2.92124E+02  -8.03512E+01
+    2.77400E+02  -8.44702E+01   4.34267E+01  -1.30619E+01   4.33850E+01
+   -1.30533E+01   2.62142E-02   8.29438E-03   2.74551E-02   9.04192E-03
+    9.93297E-01   1.27407E-03   4.41103E-03   3.35641E-03   2.94201E+02
+   -7.70864E+01   2.80009E+02  -8.03702E+01   4.38739E+01  -1.23589E+01
+    4.38333E+01  -1.23483E+01   2.61855E-02   8.24916E-03   2.73990E-02
+    8.95379E-03   9.93359E-01   1.37148E-03   4.53655E-03   3.55373E-03
+    2.96095E+02  -7.39170E+01   2.82366E+02  -7.64257E+01   4.42804E+01
+   -1.16785E+01   4.42409E+01  -1.16663E+01   2.61542E-02   8.19682E-03
+    2.73418E-02   8.85801E-03   9.93413E-01   1.46269E-03   4.66159E-03
+    3.76299E-03   2.97820E+02  -7.08304E+01   2.84489E+02  -7.26283E+01
+    4.46485E+01  -1.10200E+01   4.46099E+01  -1.10061E+01   2.61204E-02
+    8.13638E-03   2.72836E-02   8.75395E-03   9.93464E-01   1.55548E-03
+    4.78562E-03   3.98486E-03   2.99375E+02  -6.78427E+01   2.86387E+02
+   -6.89795E+01   4.49799E+01  -1.03833E+01   4.49419E+01  -1.03682E+01
+    2.60853E-02   8.06898E-03   2.72256E-02   8.64257E-03   9.93512E-01
+    1.64516E-03   4.90811E-03   4.22022E-03   3.00775E+02  -6.49381E+01
+    2.88078E+02  -6.54717E+01   4.52768E+01  -9.76726E+00   4.52394E+01
+   -9.75083E+00   2.60488E-02   7.99321E-03   2.71680E-02   8.52297E-03
+    9.93551E-01   1.72864E-03   5.02847E-03   4.46999E-03   3.02022E+02
+   -6.21246E+01   2.89571E+02  -6.21040E+01   4.55411E+01  -9.17106E+00
+    4.55042E+01  -9.15384E+00   2.60117E-02   7.90957E-03   2.71116E-02
+    8.39581E-03   9.93589E-01   1.81370E-03   5.14600E-03   4.73508E-03
+    3.03126E+02  -5.93989E+01   2.90883E+02  -5.88630E+01   4.57725E+01
+   -8.59938E+00   4.57359E+01  -8.58117E+00   2.59750E-02   7.81878E-03
+    2.70571E-02   8.26109E-03   9.93620E-01   1.89253E-03   5.25996E-03
+    5.01658E-03   3.04092E+02  -5.67603E+01   2.92020E+02  -5.57588E+01
+    4.59573E+01  -8.09490E+00   4.59211E+01  -8.07580E+00   2.59388E-02
+    7.71992E-03   2.70051E-02   8.11918E-03   9.93650E-01   1.97141E-03
+    5.36945E-03   5.31552E-03   3.04928E+02  -5.42113E+01   2.92997E+02
+   -5.27784E+01   4.61127E+01  -7.62080E+00   4.60765E+01  -7.60131E+00
+    2.59037E-02   7.61295E-03   2.69560E-02   7.96920E-03   9.93674E-01
+    2.04406E-03   5.47356E-03   5.63323E-03   3.05641E+02  -5.17443E+01
+    2.93823E+02  -4.99212E+01   4.62447E+01  -7.16401E+00   4.62089E+01
+   -7.14372E+00   2.58707E-02   7.49886E-03   2.69108E-02   7.81293E-03
+    9.93693E-01   2.11057E-03   5.57119E-03   5.97084E-03   3.06238E+02
+   -4.93632E+01   2.94510E+02  -4.71814E+01   4.63550E+01  -6.72416E+00
+    4.63192E+01  -6.70358E+00   2.58393E-02   7.37348E-03   2.68689E-02
+    7.64575E-03   9.93711E-01   2.18012E-03   5.66115E-03   6.32979E-03
+    3.06725E+02  -4.70649E+01   2.95065E+02  -4.45593E+01   4.64448E+01
+   -6.30071E+00   4.64090E+01  -6.27973E+00   2.58119E-02   7.24417E-03
+    2.68328E-02   7.47567E-03   9.93723E-01   2.24045E-03   5.74210E-03
+    6.71154E-03   3.07110E+02  -4.48484E+01   2.95502E+02  -4.20460E+01
+    4.65155E+01  -5.89342E+00   4.64798E+01  -5.87215E+00   2.57875E-02
+    7.10377E-03   2.68014E-02   7.29487E-03   9.93733E-01   2.29763E-03
+    5.81257E-03   7.11768E-03   3.07398E+02  -4.27131E+01   2.95826E+02
+   -3.96446E+01   4.65683E+01  -5.50192E+00   4.65326E+01  -5.48045E+00
+    2.57676E-02   6.95638E-03   2.67763E-02   7.10840E-03   9.93740E-01
+    2.35178E-03   5.87091E-03   7.54993E-03   3.07596E+02  -4.06588E+01
+    2.96047E+02  -3.73473E+01   4.66046E+01  -5.12569E+00   4.65689E+01
+   -5.10412E+00   2.57526E-02   6.80036E-03   2.67575E-02   6.91386E-03
+    9.93745E-01   2.40281E-03   5.91527E-03   8.00999E-03   3.07710E+02
+   -3.86807E+01   2.96174E+02  -3.51555E+01   4.66255E+01  -4.76483E+00
+    4.65898E+01  -4.74316E+00   2.57431E-02   6.63643E-03   2.67459E-02
+    6.71292E-03   9.93748E-01   2.44916E-03   5.94362E-03   8.49996E-03
+    3.07747E+02  -3.67812E+01   2.96215E+02  -3.30581E+01   4.66321E+01
+   -4.41854E+00   4.65965E+01  -4.39677E+00   2.57397E-02   6.46097E-03
+    2.67418E-02   6.50088E-03   9.93749E-01   2.49094E-03   5.95370E-03
+    9.02184E-03   3.07716E+02  -3.51658E+01   2.96180E+02  -3.12685E+01
+    4.66258E+01  -4.08698E+00   4.65901E+01  -4.06531E+00   2.57560E-02
+    5.61435E-03   2.67592E-02   5.59416E-03   9.93748E-01   2.52183E-03
+    5.94300E-03   9.57793E-03   3.07616E+02  -3.34404E+01   2.96072E+02
+   -2.93911E+01   4.66074E+01  -3.76898E+00   4.65717E+01  -3.74731E+00
+    2.57723E-02   5.33234E-03   2.67776E-02   5.27546E-03   9.93746E-01
+    2.55433E-03   5.90876E-03   1.01706E-02   3.07456E+02  -3.17768E+01
+    2.95898E+02  -2.75913E+01   4.65781E+01  -3.46524E+00   4.65425E+01
+   -3.44377E+00   2.57964E-02   5.08188E-03   2.68050E-02   4.99095E-03
+    9.93743E-01   2.58368E-03   5.84789E-03   1.08025E-02   3.07241E+02
+   -3.01843E+01   2.95667E+02  -2.58777E+01   4.65390E+01  -3.17494E+00
+    4.65034E+01  -3.15357E+00   2.58316E-02   4.82131E-03   2.68446E-02
+    4.69747E-03   9.93740E-01   2.60690E-03   5.75701E-03   1.14763E-02
+    3.06977E+02  -2.86585E+01   2.95385E+02  -2.42521E+01   4.64908E+01
+   -2.89743E+00   4.64553E+01  -2.87626E+00   2.58788E-02   4.54874E-03
+    2.68973E-02   4.39378E-03   9.93736E-01   2.63007E-03   5.63235E-03
+    1.21950E-02   3.06669E+02  -2.72069E+01   2.95058E+02  -2.27095E+01
+    4.64348E+01  -2.63315E+00   4.63993E+01  -2.61217E+00   2.59393E-02
+    4.26333E-03   2.69643E-02   4.07793E-03   9.93733E-01   2.64401E-03
+    5.46977E-03   1.29620E-02   3.06321E+02  -2.58188E+01   2.94691E+02
+   -2.12439E+01   4.63717E+01  -2.38108E+00   4.63362E+01  -2.36020E+00
+    2.60139E-02   3.96554E-03   2.70462E-02   3.75100E-03   9.93731E-01
+    2.65635E-03   5.26472E-03   1.37805E-02   3.05940E+02  -2.44986E+01
+    2.94292E+02  -1.98643E+01   4.63023E+01  -2.14124E+00   4.62670E+01
+   -2.12085E+00   2.61036E-02   3.65518E-03   2.71437E-02   3.41344E-03
+    9.93726E-01   2.66875E-03   5.01214E-03   1.46542E-02   3.05527E+02
+   -2.32399E+01   2.93864E+02  -1.85565E+01   4.62276E+01  -1.91314E+00
+    4.61923E+01  -1.89285E+00   2.62103E-02   3.32971E-03   2.72589E-02
+    3.06183E-03   9.93726E-01   2.67030E-03   4.70646E-03   1.55873E-02
+    3.05089E+02  -2.20442E+01   2.93410E+02  -1.73173E+01   4.61484E+01
+   -1.69690E+00   4.61132E+01  -1.67691E+00   2.63318E-02   2.99791E-03
+    2.73897E-02   2.70486E-03   9.93725E-01   2.67336E-03   4.34160E-03
+    1.65837E-02   3.04536E+02  -2.06757E+01   2.92845E+02  -1.59210E+01
+    4.60653E+01  -1.49168E+00   4.60303E+01  -1.47199E+00   2.61618E-02
+    3.41784E-03   2.72190E-02   3.12653E-03   9.93724E-01   2.67494E-03
+    3.91076E-03   1.76482E-02   3.03900E+02  -1.92434E+01   2.92201E+02
+   -1.44674E+01   4.59791E+01  -1.29702E+00   4.59442E+01  -1.27782E+00
+    2.58020E-02   4.22960E-03   2.68528E-02   3.95264E-03   9.93723E-01
+    2.67645E-03   3.40659E-03   1.87856E-02   3.03394E+02  -1.81923E+01
+    2.91688E+02  -1.34044E+01   4.58906E+01  -1.11347E+00   4.58559E+01
+   -1.09457E+00   2.59220E-02   3.98052E-03   2.69821E-02   3.68432E-03
+    9.93728E-01   2.66721E-03   2.82087E-03   2.00012E-02   3.02876E+02
+   -1.71962E+01   2.91168E+02  -1.24035E+01   4.58004E+01  -9.40082E-01
+    4.57658E+01  -9.21379E-01   2.60637E-02   3.70814E-03   2.71334E-02
+    3.39345E-03   9.93733E-01   2.65635E-03   2.14468E-03   2.13006E-02
+    3.02350E+02  -1.62559E+01   2.90645E+02  -1.14687E+01   4.57091E+01
+   -7.76715E-01   4.56747E+01  -7.58408E-01   2.62277E-02   3.41475E-03
+    2.73071E-02   3.08270E-03   9.93743E-01   2.64092E-03   1.36827E-03
+    2.26897E-02   3.01818E+02  -1.53651E+01   2.90120E+02  -1.05907E+01
+    4.56171E+01  -6.22730E-01   4.55830E+01  -6.04819E-01   2.64018E-02
+    3.12340E-03   2.74906E-02   2.77555E-03   9.93753E-01   2.62388E-03
+    4.80550E-04   2.41755E-02   3.01284E+02  -1.45253E+01   2.89595E+02
+   -9.76431E+00   4.55253E+01  -4.78458E-01   4.54914E+01  -4.60943E-01
+    2.65979E-02   2.81506E-03   2.76966E-02   2.45175E-03   9.93766E-01
+    2.60227E-03  -5.29987E-04   2.57644E-02   3.00751E+02  -1.37351E+01
+    2.89079E+02  -8.99866E+00   4.54341E+01  -3.43080E-01   4.54003E+01
+   -3.25862E-01   2.68129E-02   2.49642E-03   2.79208E-02   2.11934E-03
+    9.93778E-01   2.58368E-03  -1.67667E-03   2.74643E-02   2.99959E+02
+   -1.26246E+01   2.88306E+02  -7.91579E+00   4.53438E+01  -2.16518E-01
+    4.53103E+01  -1.99696E-01   2.61776E-02   3.38716E-03   2.72706E-02
+    3.03115E-03   9.93795E-01   2.56206E-03  -2.97362E-03   2.92830E-02
+    2.99404E+02  -1.18867E+01   2.87775E+02  -7.20963E+00   4.52546E+01
+   -9.79677E-02   4.52215E+01  -8.15408E-02   2.63357E-02   3.17692E-03
+    2.74360E-02   2.81110E-03   9.93814E-01   2.53578E-03  -4.43655E-03
+    3.12292E-02   2.98873E+02  -1.12145E+01   2.87274E+02  -6.57543E+00
+    4.51678E+01   1.18747E-02   4.51349E+01   2.80046E-02   2.65618E-02
+    2.89074E-03   2.76705E-02   2.51439E-03   9.93837E-01   2.50792E-03
+   -6.08261E-03   3.33122E-02   2.98344E+02  -1.05758E+01   2.86781E+02
+   -5.98018E+00   4.50831E+01   1.13999E-01   4.50506E+01   1.29733E-01
+    2.67956E-02   2.60869E-03   2.79117E-02   2.22320E-03   9.93863E-01
+    2.47702E-03  -7.93059E-03   3.55421E-02   2.97829E+02  -9.98268E+00
+    2.86305E+02  -5.43150E+00   4.50008E+01   2.08896E-01   4.49687E+01
+    2.24234E-01   2.70573E-02   2.30691E-03   2.81811E-02   1.91268E-03
+    9.93889E-01   2.44452E-03  -1.00012E-02   3.79294E-02   2.97212E+02
+   -9.30198E+00   2.85732E+02  -4.79824E+00   4.49217E+01   2.96278E-01
+    4.48901E+01   3.11023E-01   2.69540E-02   2.42097E-03   2.80753E-02
+    2.02944E-03   9.93917E-01   2.41363E-03  -1.23168E-02   4.04857E-02
+    2.96084E+02  -8.10727E+00   2.84655E+02  -3.65900E+00   4.48458E+01
+    3.76726E-01   4.48139E+01   3.91569E-01   2.51117E-02   4.37170E-03
+    2.61874E-02   4.02845E-03   9.93942E-01   2.38731E-03  -1.49020E-02
+    4.32230E-02   2.95575E+02  -7.58962E+00   2.84196E+02  -3.19196E+00
+    4.47732E+01   4.50651E-01   4.47420E+01   4.64703E-01   2.53067E-02
+    4.17331E-03   2.63887E-02   3.82367E-03   9.93974E-01   2.35333E-03
+   -1.77844E-02   4.61554E-02   2.95071E+02  -7.09554E+00   2.83751E+02
+   -2.75652E+00   4.47041E+01   5.18233E-01   4.46732E+01   5.32185E-01
+    2.54921E-02   3.99182E-03   2.65789E-02   3.63755E-03   9.94019E-01
+    2.31155E-03  -2.09930E-02   4.92965E-02   2.94582E+02  -6.63488E+00
+    2.83328E+02  -2.35677E+00   4.46394E+01   5.79296E-01   4.46090E+01
+    5.92655E-01   2.57008E-02   3.79497E-03   2.67919E-02   3.43664E-03
+    9.94056E-01   2.27756E-03  -2.45599E-02   5.26612E-02   2.94582E+02
+   -6.63488E+00   2.83328E+02  -2.35677E+00   4.46394E+01   5.79296E-01
+    4.46090E+01   5.92655E-01   2.57008E-02   3.79497E-03   2.67919E-02
+    3.43664E-03   9.94056E-01   2.27756E-03  -2.45599E-02   5.26612E-02
+    5.32984E-04   1.69413E+02   2.69387E+01
+    8.51133E-04   1.30019E-04   0.00000E+00   0.00000E+00   6.22213E-02
+    1.00121E-02   8.51133E-04   1.30019E-04   0.00000E+00   0.00000E+00
+    6.22213E-02   1.00121E-02   9.42922E-04   1.44877E-04   0.00000E+00
+    0.00000E+00   2.68960E-02   4.29371E-03   1.04530E-03   1.61550E-04
+    0.00000E+00   0.00000E+00  -1.66913E-02  -2.80478E-03   1.15470E-03
+    1.79475E-04   0.00000E+00   0.00000E+00   5.46514E-03   8.25496E-04
+    1.27892E-03   1.99952E-04   0.00000E+00   0.00000E+00  -2.08805E-02
+   -3.51759E-03   1.41017E-03   2.21722E-04   0.00000E+00   0.00000E+00
+    3.25850E-02   5.35047E-03   1.56148E-03   2.46975E-04   0.00000E+00
+    0.00000E+00   6.61464E-03   1.01621E-03   1.72333E-03   2.74155E-04
+    0.00000E+00   0.00000E+00   3.93070E-02   6.50634E-03   1.91232E-03
+    3.06091E-04   0.00000E+00   0.00000E+00  -2.43453E-02  -4.25003E-03
+    2.10851E-03   3.39454E-04   0.00000E+00   0.00000E+00   2.62992E-02
+    4.36222E-03   2.33824E-03   3.78768E-04   0.00000E+00   0.00000E+00
+    9.97717E-03   1.56897E-03   2.64799E-03   4.32117E-04   0.00000E+00
+    0.00000E+00   3.18350E-02   5.33349E-03   2.93885E-03   4.82533E-04
+    0.00000E+00   0.00000E+00   1.34617E-02   2.14874E-03   3.24902E-03
+    5.36644E-04   0.00000E+00   0.00000E+00   6.18206E-02   1.05854E-02
+    3.61565E-03   6.01024E-04   0.00000E+00   0.00000E+00  -6.12684E-03
+   -1.34590E-03   4.00312E-03   6.69507E-04   0.00000E+00   0.00000E+00
+    1.84619E-02   3.00009E-03   4.42962E-03   7.45389E-04   0.00000E+00
+    0.00000E+00   4.85873E-02   8.35986E-03   4.90768E-03   8.31008E-04
+    0.00000E+00   0.00000E+00   5.42018E-02   9.36538E-03   5.50002E-03
+    9.37803E-04   0.00000E+00   0.00000E+00  -5.12840E-03  -1.33162E-03
+    6.17161E-03   1.05970E-03   0.00000E+00   0.00000E+00   6.28243E-02
+    1.10026E-02   6.86057E-03   1.18561E-03   0.00000E+00   0.00000E+00
+    5.13323E-02   8.90247E-03   7.61917E-03   1.32518E-03   0.00000E+00
+    0.00000E+00   5.65088E-02   9.85490E-03   8.46056E-03   1.48106E-03
+    0.00000E+00   0.00000E+00   6.21511E-02   1.09002E-02   9.38035E-03
+    1.65263E-03   0.00000E+00   0.00000E+00   9.13296E-02   1.63431E-02
+    1.04613E-02   1.85567E-03   0.00000E+00   0.00000E+00   5.24186E-02
+    9.03408E-03   1.16651E-02   2.08339E-03   0.00000E+00   0.00000E+00
+    5.64207E-02   9.79110E-03   1.29379E-02   2.32584E-03   0.00000E+00
+    0.00000E+00   8.86081E-02   1.59227E-02   1.43528E-02   2.59730E-03
+    0.00000E+00   0.00000E+00   1.12268E-01   2.04620E-02   1.59481E-02
+    2.90555E-03   0.00000E+00   0.00000E+00   1.07793E-01   1.95972E-02
+    1.79923E-02   3.30340E-03   0.00000E+00   0.00000E+00   1.20030E-01
+    2.19789E-02   2.04786E-02   3.79084E-03   0.00000E+00   0.00000E+00
+    1.34852E-01   2.48844E-02   2.27673E-02   4.24280E-03   0.00000E+00
+    0.00000E+00   1.87896E-01   3.53596E-02   2.54219E-02   4.77089E-03
+    0.00000E+00   0.00000E+00   1.66112E-01   3.10260E-02   2.82778E-02
+    5.34327E-03   0.00000E+00   0.00000E+00   2.04984E-01   3.88165E-02
+    3.15305E-02   6.00005E-03   0.00000E+00   0.00000E+00   2.01524E-01
+    3.81179E-02   3.50429E-02   6.71463E-03   0.00000E+00   0.00000E+00
+    2.46834E-01   4.73359E-02   3.89831E-02   7.52233E-03   0.00000E+00
+    0.00000E+00   2.71639E-01   5.24207E-02   4.37840E-02   8.51402E-03
+    0.00000E+00   0.00000E+00   2.86258E-01   5.54406E-02   4.88506E-02
+    9.56869E-03   0.00000E+00   0.00000E+00   3.47653E-01   6.82205E-02
+    5.44656E-02   1.07466E-02   0.00000E+00   0.00000E+00   3.48351E-01
+    6.83669E-02   6.02752E-02   1.19749E-02   0.00000E+00   0.00000E+00
+    4.55207E-01   9.09591E-02   6.72886E-02   1.34695E-02   0.00000E+00
+    0.00000E+00   4.23097E-01   8.41166E-02   7.44207E-02   1.50014E-02
+    0.00000E+00   0.00000E+00   5.25241E-01   1.06057E-01   8.18971E-02
+    1.66203E-02   0.00000E+00   0.00000E+00   5.72250E-01   1.16236E-01
+    9.02757E-02   1.84492E-02   0.00000E+00   0.00000E+00   6.23919E-01
+    1.27514E-01   9.99855E-02   2.05859E-02   0.00000E+00   0.00000E+00
+    6.56166E-01   1.34610E-01   1.10012E-01   2.28105E-02   0.00000E+00
+    0.00000E+00   7.68448E-01   1.59523E-01   1.21699E-01   2.54251E-02
+    0.00000E+00   0.00000E+00   7.94963E-01   1.65455E-01   1.33634E-01
+    2.81177E-02   0.00000E+00   0.00000E+00   9.08676E-01   1.91108E-01
+    1.47145E-01   3.11914E-02   0.00000E+00   0.00000E+00   9.70876E-01
+    2.05258E-01   1.61167E-01   3.44084E-02   0.00000E+00   0.00000E+00
+    1.08529E+00   2.31507E-01   1.76080E-01   3.78593E-02   0.00000E+00
+    0.00000E+00   1.20977E+00   2.60314E-01   1.93121E-01   4.18368E-02
+    0.00000E+00   0.00000E+00   1.26957E+00   2.74271E-01   2.09735E-01
+    4.57487E-02   0.00000E+00   0.00000E+00   1.42509E+00   3.10888E-01
+    2.30543E-01   5.06912E-02   0.00000E+00   0.00000E+00   1.52368E+00
+    3.34306E-01   2.50827E-01   5.55519E-02   0.00000E+00   0.00000E+00
+    1.65931E+00   3.66810E-01   2.71313E-01   6.05053E-02   0.00000E+00
+    0.00000E+00   1.79585E+00   3.99824E-01   2.92481E-01   6.56699E-02
+    0.00000E+00   0.00000E+00   1.93640E+00   4.34114E-01   3.14570E-01
+    7.11085E-02   0.00000E+00   0.00000E+00   2.06779E+00   4.66464E-01
+    3.37158E-01   7.67211E-02   0.00000E+00   0.00000E+00   2.19906E+00
+    4.99083E-01   3.58949E-01   8.21861E-02   0.00000E+00   0.00000E+00
+    2.35335E+00   5.37778E-01   3.82210E-01   8.80747E-02   0.00000E+00
+    0.00000E+00   2.46816E+00   5.66842E-01   4.07476E-01   9.45317E-02
+    0.00000E+00   0.00000E+00   2.64207E+00   6.11284E-01   4.29785E-01
+    1.00287E-01   0.00000E+00   0.00000E+00   2.76035E+00   6.41800E-01
+    4.50239E-01   1.05616E-01   0.00000E+00   0.00000E+00   2.88068E+00
+    6.73146E-01   4.68720E-01   1.10477E-01   0.00000E+00   0.00000E+00
+    2.99552E+00   7.03353E-01   4.85238E-01   1.14864E-01   0.00000E+00
+    0.00000E+00   3.09617E+00   7.30090E-01   5.01396E-01   1.19199E-01
+    0.00000E+00   0.00000E+00   3.16188E+00   7.47718E-01   5.13540E-01
+    1.22490E-01   0.00000E+00   0.00000E+00   3.22850E+00   7.65770E-01
+    5.24526E-01   1.25497E-01   0.00000E+00   0.00000E+00   3.26420E+00
+    7.75543E-01   5.31460E-01   1.27415E-01   0.00000E+00   0.00000E+00
+    3.29219E+00   7.83283E-01   5.35548E-01   1.28557E-01   0.00000E+00
+    0.00000E+00   3.30003E+00   7.85473E-01   5.39005E-01   1.29533E-01
+    0.00000E+00   0.00000E+00   3.27938E+00   7.79642E-01   5.40661E-01
+    1.30005E-01   0.00000E+00   0.00000E+00   3.28985E+00   7.82631E-01
+    5.38211E-01   1.29299E-01   0.00000E+00   0.00000E+00   3.23302E+00
+    7.66241E-01   5.32011E-01   1.27492E-01   0.00000E+00   0.00000E+00
+    3.16733E+00   7.47094E-01   5.23792E-01   1.25070E-01   0.00000E+00
+    0.00000E+00   3.08744E+00   7.23550E-01   5.14518E-01   1.22306E-01
+    0.00000E+00   0.00000E+00   2.99398E+00   6.95704E-01   5.02099E-01
+    1.18565E-01   0.00000E+00   0.00000E+00   2.89656E+00   6.66355E-01
+    4.90559E-01   1.15049E-01   0.00000E+00   0.00000E+00   2.78711E+00
+    6.33004E-01   4.76812E-01   1.10812E-01   0.00000E+00   0.00000E+00
+    2.67974E+00   5.99916E-01   4.63725E-01   1.06732E-01   0.00000E+00
+    0.00000E+00   2.57041E+00   5.65834E-01   4.49851E-01   1.02356E-01
+    0.00000E+00   0.00000E+00   2.45575E+00   5.29671E-01   4.34867E-01
+    9.75747E-02   0.00000E+00   0.00000E+00   2.34440E+00   4.94136E-01
+    4.23096E-01   9.37731E-02   0.00000E+00   0.00000E+00   2.23189E+00
+    4.57800E-01   4.09274E-01   8.92553E-02   0.00000E+00   0.00000E+00
+    2.12709E+00   4.23543E-01   3.96111E-01   8.48999E-02   0.00000E+00
+    0.00000E+00   2.02355E+00   3.89284E-01   3.83676E-01   8.07340E-02
+    0.00000E+00   0.00000E+00   1.92197E+00   3.55253E-01   3.72791E-01
+    7.70414E-02   0.00000E+00   0.00000E+00   1.83435E+00   3.25529E-01
+    3.63250E-01   7.37638E-02   0.00000E+00   0.00000E+00   1.75237E+00
+    2.97367E-01   3.54737E-01   7.08013E-02   0.00000E+00   0.00000E+00
+    1.67648E+00   2.70959E-01   3.47024E-01   6.80821E-02   0.00000E+00
+    0.00000E+00   1.61159E+00   2.48083E-01   3.40889E-01   6.58908E-02
+    0.00000E+00   0.00000E+00   1.55359E+00   2.27365E-01   3.34737E-01
+    6.36637E-02   0.00000E+00   0.00000E+00   1.49338E+00   2.05568E-01
+    3.29090E-01   6.15916E-02   0.00000E+00   0.00000E+00   1.43899E+00
+    1.85608E-01   3.23925E-01   5.96704E-02   0.00000E+00   0.00000E+00
+    1.38999E+00   1.67382E-01   3.19932E-01   5.81635E-02   0.00000E+00
+    0.00000E+00   1.34575E+00   1.50694E-01   3.16607E-01   5.68918E-02
+    0.00000E+00   0.00000E+00   1.30609E+00   1.35519E-01   3.13630E-01
+    5.57361E-02   0.00000E+00   0.00000E+00   1.27068E+00   1.21776E-01
+    3.11679E-01   5.49682E-02   0.00000E+00   0.00000E+00   1.24002E+00
+    1.09701E-01   3.10515E-01   5.45029E-02   0.00000E+00   0.00000E+00
+    1.21206E+00   9.85321E-02   3.09070E-01   5.39169E-02   0.00000E+00
+    0.00000E+00   1.18680E+00   8.82825E-02   3.08311E-01   5.36042E-02
+    0.00000E+00   0.00000E+00   1.16432E+00   7.90280E-02   3.08126E-01
+    5.35271E-02   0.00000E+00   0.00000E+00   1.14442E+00   7.07058E-02
+    3.08341E-01   5.36182E-02   0.00000E+00   0.00000E+00   1.12682E+00
+    6.32298E-02   3.08497E-01   5.36857E-02   0.00000E+00   0.00000E+00
+    1.11057E+00   5.62146E-02   3.09403E-01   5.40831E-02   0.00000E+00
+    0.00000E+00   1.09659E+00   5.00841E-02   3.10266E-01   5.44676E-02
+    0.00000E+00   0.00000E+00   1.08475E+00   4.48047E-02   3.11705E-01
+    5.51203E-02   0.00000E+00   0.00000E+00   1.07429E+00   4.00631E-02
+    3.13175E-01   5.57983E-02   0.00000E+00   0.00000E+00   1.06510E+00
+    3.58209E-02   3.14907E-01   5.66109E-02   0.00000E+00   0.00000E+00
+    1.05700E+00   3.20215E-02   3.16818E-01   5.75236E-02   0.00000E+00
+    0.00000E+00   1.04988E+00   2.86227E-02   3.18814E-01   5.84938E-02
+    0.00000E+00   0.00000E+00   1.04364E+00   2.55848E-02   3.20896E-01
+    5.95247E-02   0.00000E+00   0.00000E+00   1.03815E+00   2.28712E-02
+    3.23262E-01   6.07177E-02   0.00000E+00   0.00000E+00   1.03333E+00
+    2.04402E-02   3.25566E-01   6.19019E-02   0.00000E+00   0.00000E+00
+    1.02911E+00   1.82709E-02   3.27899E-01   6.31246E-02   0.00000E+00
+    0.00000E+00   1.02466E+00   1.59395E-02   3.30375E-01   6.44477E-02
+    0.00000E+00   0.00000E+00   1.02128E+00   1.41315E-02   3.33029E-01
+    6.58948E-02   0.00000E+00   0.00000E+00   1.01862E+00   1.26832E-02
+    3.35681E-01   6.73700E-02   0.00000E+00   0.00000E+00   1.01628E+00
+    1.13842E-02   3.38449E-01   6.89432E-02   0.00000E+00   0.00000E+00
+    1.01423E+00   1.02185E-02   3.41190E-01   7.05336E-02   0.00000E+00
+    0.00000E+00   1.01243E+00   9.17321E-03   3.43940E-01   7.21648E-02
+    0.00000E+00   0.00000E+00   1.01086E+00   8.24021E-03   3.46774E-01
+    7.38834E-02   0.00000E+00   0.00000E+00   1.00947E+00   7.39573E-03
+    3.49428E-01   7.55308E-02   0.00000E+00   0.00000E+00   1.00759E+00
+    6.22680E-03   3.52279E-01   7.73412E-02   0.00000E+00   0.00000E+00
+    1.00661E+00   5.60701E-03   3.55170E-01   7.92219E-02   0.00000E+00
+    0.00000E+00   1.00579E+00   5.07232E-03   3.58018E-01   8.11206E-02
+    0.00000E+00   0.00000E+00   1.00507E+00   4.59383E-03   3.60897E-01
+    8.30883E-02   0.00000E+00   0.00000E+00   1.00443E+00   4.15709E-03
+    3.63736E-01   8.50794E-02   0.00000E+00   0.00000E+00   1.00387E+00
+    3.76048E-03   3.66598E-01   8.71390E-02   0.00000E+00   0.00000E+00
+    1.00338E+00   3.40884E-03   3.69432E-01   8.92361E-02   0.00000E+00
+    0.00000E+00   1.00294E+00   3.08289E-03   3.72253E-01   9.13820E-02
+    0.00000E+00   0.00000E+00   1.00256E+00   2.79708E-03   3.75060E-01
+    9.35798E-02   0.00000E+00   0.00000E+00   1.00222E+00   2.53051E-03
+    3.77847E-01   9.58265E-02   0.00000E+00   0.00000E+00   1.00193E+00
+    2.29290E-03   3.80617E-01   9.81291E-02   0.00000E+00   0.00000E+00
+    1.00171E+00   2.11146E-03   3.83363E-01   1.00484E-01   0.00000E+00
+    0.00000E+00   1.00147E+00   1.90433E-03   3.86086E-01   1.02896E-01
+    0.00000E+00   0.00000E+00   1.00127E+00   1.72770E-03   3.88765E-01
+    1.05349E-01   0.00000E+00   0.00000E+00   1.00109E+00   1.56393E-03
+    3.91436E-01   1.07882E-01   0.00000E+00   0.00000E+00   1.00093E+00
+    1.41620E-03   3.94067E-01   1.10466E-01   0.00000E+00   0.00000E+00
+    1.00079E+00   1.28133E-03   3.96657E-01   1.13109E-01   0.00000E+00
+    0.00000E+00   1.00067E+00   1.15930E-03   4.02064E-01   1.18841E-01
+    0.00000E+00   0.00000E+00   1.01022E+00   1.12815E-02   4.01636E-01
+    1.18367E-01   0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00
+    4.04142E-01   1.21251E-01   0.00000E+00   0.00000E+00   1.00000E+00
+    0.00000E+00   4.06592E-01   1.24196E-01   0.00000E+00   0.00000E+00
+    1.00000E+00   0.00000E+00   4.09001E-01   1.27226E-01   0.00000E+00
+    0.00000E+00   9.99998E-01  -1.60567E-06   4.11349E-01   1.30324E-01
+    0.00000E+00   0.00000E+00   1.00000E+00   1.60567E-06   4.13655E-01
+    1.33525E-01   0.00000E+00   0.00000E+00   9.99998E-01  -1.60567E-06
+    4.15889E-01   1.36794E-01   0.00000E+00   0.00000E+00   1.00000E+00
+    0.00000E+00   4.18069E-01   1.40165E-01   0.00000E+00   0.00000E+00
+    1.00000E+00   1.60567E-06   4.20177E-01   1.43626E-01   0.00000E+00
+    0.00000E+00   1.00000E+00   0.00000E+00   4.22219E-01   1.47194E-01
+    0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00   4.24179E-01
+    1.50858E-01   0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00
+    4.26061E-01   1.54637E-01   0.00000E+00   0.00000E+00   1.00000E+00
+    0.00000E+00   4.27852E-01   1.58523E-01   0.00000E+00   0.00000E+00
+    1.00000E+00   0.00000E+00   4.29550E-01   1.62530E-01   0.00000E+00
+    0.00000E+00   1.00000E+00   0.00000E+00   4.31143E-01   1.66652E-01
+    0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00   4.32632E-01
+    1.70914E-01   0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00
+    4.34000E-01   1.75295E-01   0.00000E+00   0.00000E+00   1.00000E+00
+    0.00000E+00   4.35245E-01   1.79819E-01   0.00000E+00   0.00000E+00
+    9.99999E-01  -1.60567E-06   4.36357E-01   1.84487E-01   0.00000E+00
+    0.00000E+00   1.00000E+00   1.60567E-06   4.37323E-01   1.89298E-01
+    0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00   4.38137E-01
+    1.94265E-01   0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00
+    4.38787E-01   1.99393E-01   0.00000E+00   0.00000E+00   1.00000E+00
+    0.00000E+00   4.39260E-01   2.04678E-01   0.00000E+00   0.00000E+00
+    1.00000E+00   0.00000E+00   4.39547E-01   2.10140E-01   0.00000E+00
+    0.00000E+00   1.00000E+00   0.00000E+00   4.39633E-01   2.15778E-01
+    0.00000E+00   0.00000E+00   1.00000E+00   0.00000E+00   4.39549E-01
+    2.19647E-01  -9.38290E-05   4.30879E-03   1.00000E+00   0.00000E+00
+    4.39204E-01   2.25508E-01  -1.03116E-04   4.46646E-03   1.00000E+00
+    0.00000E+00   4.38623E-01   2.31556E-01  -1.19034E-04   4.63224E-03
+    1.00000E+00   0.00000E+00   4.37793E-01   2.37794E-01  -1.41996E-04
+    4.80471E-03   1.00000E+00   0.00000E+00   4.36698E-01   2.44223E-01
+   -1.72541E-04   4.98411E-03   1.00000E+00   0.00000E+00   4.35320E-01
+    2.50866E-01  -2.11255E-04   5.17079E-03   1.00000E+00   0.00000E+00
+    4.33647E-01   2.57712E-01  -2.58741E-04   5.36500E-03   1.00000E+00
+    0.00000E+00   4.31659E-01   2.64771E-01  -3.15650E-04   5.56708E-03
+    1.00000E+00   0.00000E+00   4.29335E-01   2.72060E-01  -3.82680E-04
+    5.77737E-03   1.00000E+00   0.00000E+00   4.26663E-01   2.79570E-01
+   -4.60547E-04   5.99618E-03   1.00000E+00   0.00000E+00   4.25834E-01
+    2.81677E-01  -4.59346E-03   1.65128E-02   1.00000E+00   0.00000E+00
+    4.23869E-01   2.86248E-01  -7.14820E-03   2.24525E-02   1.00000E+00
+    0.00000E+00   4.20356E-01   2.93765E-01  -7.55061E-03   2.33138E-02
+    1.00000E+00  -1.60565E-06   4.16457E-01   3.01497E-01  -8.00200E-03
+    2.42087E-02   9.99998E-01   1.60567E-06   4.12162E-01   3.09428E-01
+   -8.50534E-03   2.51383E-02   1.00000E+00  -1.60567E-06   4.07449E-01
+    3.17573E-01  -9.06405E-03   2.61039E-02   9.99998E-01   1.60567E-06
+    4.02300E-01   3.25937E-01  -9.68149E-03   2.71068E-02   1.00000E+00
+    0.00000E+00   3.96696E-01   3.34521E-01  -1.03613E-02   2.81481E-02
+    1.00000E+00   0.00000E+00   3.98420E-01   3.32021E-01  -2.31638E-02
+    4.67034E-02   1.00000E+00   0.00000E+00   3.93320E-01   3.39036E-01
+   -2.56651E-02   5.01437E-02   1.00000E+00   0.00000E+00   3.87057E-01
+    3.47232E-01  -2.71124E-02   5.20375E-02   1.00000E+00   0.00000E+00
+    3.80365E-01   3.55584E-01  -2.86827E-02   5.39971E-02   1.00000E+00
+    0.00000E+00   3.73231E-01   3.64091E-01  -3.03822E-02   5.60241E-02
+    1.00000E+00  -1.60567E-06   3.65639E-01   3.72762E-01  -3.22179E-02
+    5.81207E-02   9.99998E-01   1.60565E-06   3.57593E-01   3.81578E-01
+   -3.41956E-02   6.02876E-02   1.00000E+00   0.00000E+00   3.49073E-01
+    3.90548E-01  -3.63223E-02   6.25267E-02   1.00000E+00   0.00000E+00
+    3.40070E-01   3.99670E-01  -3.86047E-02   6.48393E-02   1.00000E+00
+    0.00000E+00   3.30592E-01   4.08926E-01  -4.10493E-02   6.72265E-02
+    1.00000E+00   0.00000E+00   3.20619E-01   4.18324E-01  -4.36634E-02
+    6.96898E-02   1.00000E+00   0.00000E+00   3.28567E-01   4.11087E-01
+   -6.87622E-02   9.25423E-02   1.00000E+00  -1.60567E-06   3.28567E-01
+    4.11087E-01  -6.87622E-02   9.25423E-02   1.00000E+00  -1.60567E-06

diff --git a/code/input-output/netserver.log b/code/input-output/netserver.log
new file mode 100644 (file)
index 0000000..87277f5
--- /dev/null
+++ b/code/input-output/netserver.log
@@ -0,0 +1,95 @@
+$ on control_y then goto fine
+$ on error then goto finb
+$ NODE = F$GETSYI("NODENAME")
+$! PER MOTIVI DI SICUREZZA NON SI PUO'INTERROMPERE QUESTA PROCEDURA
+$! -----------------------------------------
+$!           SYlogin.com
+$!           last update : 11-jul-1994
+$! -----------------------------------------
+$!
+$! This command procedure is always run when anybody on the entire system
+$! logs in. It is equivalent to LOGIN.COM except that the instructions
+$! contained herein are executed everytime anyone on the VMS system
+$! logs in to their account.
+$!
+$! For interactive processes, turn on Control T, and set the terminal type
+$!
+$ IF (F$MODE() .EQS. "INTERACTIVE") THEN SET CONTROL=T
+$ IF (F$MODE() .EQS. "INTERACTIVE") THEN SET TERMINAL/INQUIRE
+$!
+$! For MicroVAX systems only, use the command MOUNT/NOASSIST.
+$!
+$ IF (.NOT. F$TRNLNM("SYS$MICROVAX")) THEN GOTO SKIP_MICROVAX_COMMANDS
+$SKIP_MICROVAX_COMMANDS:
+$!
+$! ----------------------------------------------
+$! Place your site-specific LOGIN commands below
+$! ----------------------------------------------
+$!
+$set prot=(s:rwed,o:rwed,g:rwe,w:re)/default
+$!
+$! code e comandi di stampa
+$!
+$!            Code e comandi di stampa
+$!
+$ LASER       :== PRINT/QUEUE=LASER /FORM=0
+$ LASERP      :== PRINT/QUEUE=LASER /FORM=10
+$ LASERL      :== PRINT/QUEUE=LASER/NOFEED /FORM=11
+$ LASRESET    :== PRINT/QUEUE=LASER /FORM=12
+$!
+$ PORT        :=/PARAMS=(DATA_TYPE=ANSI,PAGE_ORIENTATION=PORTRAIT)   
+$ LAND        :=/PARAMS=(DATA_TYPE=ANSI,PAGE_ORIENTATION=LANDSCAPE)
+$ POSTP       == "PRINT/NOFLAG/NOBURST/NOTRAILER/QUEUE=cps_ansi"+PORT
+$ POSTL       == "PRINT/NOFLAG/NOBURST/NOTRAILER/QUEUE=cps_ansi"+LAND
+$!
+$ POSTSCRIPT:==print/noflag/noburst/notrailer/noheader -
+              /queue=cps_ps
+$ CPS       :==print/noflag/noburst/notrailer/noheader -
+              /queue=cps_ps
+$ ANSI       :==print/noflag/noburst/notrailer/noheader -
+              /queue=cps_ansi
+$!  
+$ PSTOP       :== STOP/ABORT SYS$PRINT
+$ LSTOP       :== STOP/ABORT LASER
+$ CPSSTOP     :== STOP/ABORT cps
+$!
+$ LJSTOP      :== STOP/ABORT LJ250
+$ LJ250       :== PRINT/QUEUE=LJ250
+$!
+$ STAMPA_TIB  :== PRINT/QUEUE=STAMPA_TIB
+$ STAMPA_STOP :== STOP/ABORT STAMPA_TIB
+$! ------------------------------------------------
+$!       comandi vari : 
+$!
+$ CLEAR       :==@SYS$MANAGER:MARC_CLEAR.COM 
+$!
+$texup:==@soft$disk:[vax.tex]texmio.com 
+$!
+$@CERN:[000000]CERN_SETUP.COM              ! 24-MAY-1994 PER CERNLIB
+$ SET NOVERIFY
+CERN_SETUP:  "PRO" library selected.
+LIB$ = CERN:[PRO.LIB]PACKLIB/LIB,KERNLIB/LIB,SYS$LIBRARY:VAXCRTL/LIB
+ Tools definition in progress ......
+
+ see tool$disk:[tools]000readme.txt for a list of tools....
+ see soft$disk:[vax]000readme.txt for a software list ...
+
+SETting UP XV (v 3.00)...
+X11R5 directory is $4$DKA300:[TOOLS.X11R5.]
+%DCL-I-SUPERSEDE, previous value of E$ has been superseded
+
+        --------------------------------------------------------
+
+        Connect request received at  3-JAN-1995 18:41:34.08
+            from remote process BOFI04::"0=GALLI"
+            for object "SYS$COMMON:[SYSEXE]FAL.EXE"
+
+        --------------------------------------------------------
+
+  BOLLINI      job terminated at  3-JAN-1995 18:48:17.25
+\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

diff --git a/code/input-output/ntuple.out b/code/input-output/ntuple.out
new file mode 100644 (file)
index 0000000..2fcda8a
Binary files /dev/null and b/code/input-output/ntuple.out differ

diff --git a/code/input-output/ntuple_y.out b/code/input-output/ntuple_y.out
new file mode 100644 (file)
index 0000000..9d35c25
Binary files /dev/null and b/code/input-output/ntuple_y.out differ

diff --git a/code/input-output/ntupley.out b/code/input-output/ntupley.out
new file mode 100644 (file)
index 0000000..6a53db9
Binary files /dev/null and b/code/input-output/ntupley.out differ

diff --git a/code/input-output/ntupley_y.out b/code/input-output/ntupley_y.out
new file mode 100644 (file)
index 0000000..a5552d2
Binary files /dev/null and b/code/input-output/ntupley_y.out differ

diff --git a/code/input-output/ucx$ftpserver.log b/code/input-output/ucx$ftpserver.log
new file mode 100644 (file)
index 0000000..4a505af
--- /dev/null
+++ b/code/input-output/ucx$ftpserver.log
@@ -0,0 +1,86 @@
+$ on control_y then goto fine
+$ on error then goto finb
+$ NODE = F$GETSYI("NODENAME")
+$! PER MOTIVI DI SICUREZZA NON SI PUO'INTERROMPERE QUESTA PROCEDURA
+$! -----------------------------------------
+$!           SYlogin.com
+$!           last update : 11-jul-1994
+$! -----------------------------------------
+$!
+$! This command procedure is always run when anybody on the entire system
+$! logs in. It is equivalent to LOGIN.COM except that the instructions
+$! contained herein are executed everytime anyone on the VMS system
+$! logs in to their account.
+$!
+$! For interactive processes, turn on Control T, and set the terminal type
+$!
+$ IF (F$MODE() .EQS. "INTERACTIVE") THEN SET CONTROL=T
+$ IF (F$MODE() .EQS. "INTERACTIVE") THEN SET TERMINAL/INQUIRE
+$!
+$! For MicroVAX systems only, use the command MOUNT/NOASSIST.
+$!
+$ IF (.NOT. F$TRNLNM("SYS$MICROVAX")) THEN GOTO SKIP_MICROVAX_COMMANDS
+$ SKIP_MICROVAX_COMMANDS:
+$!
+$! ----------------------------------------------
+$! Place your site-specific LOGIN commands below
+$! ----------------------------------------------
+$!
+$ set prot=(s:rwed,o:rwed,g:rwe,w:re)/default
+$!
+$! code e comandi di stampa
+$!
+$!            Code e comandi di stampa
+$!
+$ LASER       :== PRINT/QUEUE=LASER /FORM=0
+$ LASERP      :== PRINT/QUEUE=LASER /FORM=10
+$ LASERL      :== PRINT/QUEUE=LASER/NOFEED /FORM=11
+$ LASRESET    :== PRINT/QUEUE=LASER /FORM=12
+$!
+$ PORT        :=/PARAMS=(DATA_TYPE=ANSI,PAGE_ORIENTATION=PORTRAIT)   
+$ LAND        :=/PARAMS=(DATA_TYPE=ANSI,PAGE_ORIENTATION=LANDSCAPE)
+$ POSTP       == "PRINT/NOFLAG/NOBURST/NOTRAILER/QUEUE=cps_ansi"+PORT
+$ POSTL       == "PRINT/NOFLAG/NOBURST/NOTRAILER/QUEUE=cps_ansi"+LAND
+$!
+$ POSTSCRIPT:==print/noflag/noburst/notrailer/noheader -
+              /queue=cps_ps
+$ CPS       :==print/noflag/noburst/notrailer/noheader -
+              /queue=cps_ps
+$ ANSI       :==print/noflag/noburst/notrailer/noheader -
+              /queue=cps_ansi
+$!  
+$ PSTOP       :== STOP/ABORT SYS$PRINT
+$ LSTOP       :== STOP/ABORT LASER
+$ CPSSTOP     :== STOP/ABORT cps
+$!
+$ LJSTOP      :== STOP/ABORT LJ250
+$ LJ250       :== PRINT/QUEUE=LJ250
+$!
+$ STAMPA_TIB  :== PRINT/QUEUE=STAMPA_TIB
+$ STAMPA_STOP :== STOP/ABORT STAMPA_TIB
+$! ------------------------------------------------
+$!       comandi vari : 
+$!
+$ CLEAR       :==@SYS$MANAGER:MARC_CLEAR.COM 
+$!
+$ TEXUP       :==@soft$disk:[vax.tex]texmio.com 
+$!
+$ @CERN:[000000]CERN_SETUP.COM              ! 24-MAY-1994 PER CERNLIB
+$ SET NOVERIFY
+CERN_SETUP:  "PRO" library selected.
+LIB$ = CERN:[PRO.LIB]PACKLIB/LIB,KERNLIB/LIB,SYS$LIBRARY:VAXCRTL/LIB
+ Tools definition in progress ......
+
+ see tool$disk:[tools]000readme.txt for a list of tools....
+ see soft$disk:[vax]000readme.txt for a software list ...
+
+SETting UP XV (v 3.00)...
+X11R5 directory is $4$DKA300:[TOOLS.X11R5.]
+%DCL-I-SUPERSEDE, previous value of E$ has been superseded
+  BOLLINI      job terminated at  9-AUG-1994 11:23:51.77
+\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

diff --git a/code/input-output/yaps.dat b/code/input-output/yaps.dat
new file mode 100644 (file)
index 0000000..7790e99
--- /dev/null
+++ b/code/input-output/yaps.dat
@@ -0,0 +1,6 @@
+ -4   0.  0.0   10. 40. 20.  3  5         ! num cyl,r,z,dx,dy,dz,med,medyap
+  0.0 -1.0                                 ! ang. coll. , flag uscite yap
+ 20   0.   0.   10. 40  20   5               !  r , z dx ,dy ,dz ,medyap
+ 20   0.  90.   10. 40  20   5
+ 20   0. 180.   10. 40  20   5
+ 20   0. 270.   10. 40  20   5

diff --git a/code/input-output/yaps_y.dat b/code/input-output/yaps_y.dat
new file mode 100644 (file)
index 0000000..b8ad8bd
--- /dev/null
+++ b/code/input-output/yaps_y.dat
@@ -0,0 +1,4 @@
+   6   0.  0.0   2. 4.2 4.2  3  4         ! num riv.,r,z,dx,dy,dz,med,medyap
+  0.0 0.0                                 ! ang. coll. , flag uscite yap
+
+

diff --git a/code/procedures/copy04.com b/code/procedures/copy04.com
new file mode 100644 (file)
index 0000000..73a6276
--- /dev/null
+++ b/code/procedures/copy04.com
@@ -0,0 +1,21 @@
+$!   copia/conf da bofi04 un file di egs4 cilindro
+$!   il primo parametro e' il nome del file,
+$!   il secondo la password su bofi04
+$!
+$ASKP:
+$ if P2.eqs."" 
+$ then 
+$    inquire P2 " give password for bofi04"
+$    goto ASKP
+$ endif
+$!
+$ASKF:
+$ if P1.eqs."" 
+$ then 
+$    inquire P1 " give file to be copied from bofi04"
+$    goto ASKF
+$endif
+$!
+$copy/log/conf  bofi04"galli ''P2'"::bofi04$dkb100:[galli.egs4.cyl]'P1' * 
+$write sys$output " "
+$write sys$output " done ..."

diff --git a/code/procedures/definizioni.com b/code/procedures/definizioni.com
new file mode 100644 (file)
index 0000000..0422d5e
--- /dev/null
+++ b/code/procedures/definizioni.com
@@ -0,0 +1,10 @@
+$! definizioni per l'alfa ( sono nella login in bofi04 )
+$
+$!                    per il link di egs4_cyl_2 :
+$ define pgsub petsub.obj                 ! interfacce ad higz
+$ define pglib cern:[pro.lib]graflib.olb  ! routine grafiche cern
+$! define gksbnd sys$common:[syslib]gksforbnd.olb  ! dec gks fortran interfaces
+$ define gksbnd  cern:[pro.lib]GRAFGKS.OLB
+$!                   per il run
+$ define materiali mat3mev.dat           ! materiali da pegs4
+$!

diff --git a/code/procedures/for_cyl_2.com b/code/procedures/for_cyl_2.com
new file mode 100644 (file)
index 0000000..d4d1c11
--- /dev/null
+++ b/code/procedures/for_cyl_2.com
@@ -0,0 +1,48 @@
+$wr="write sys$output"
+$wr "     Compilation of user written routines for egs4: cyl. geometry"
+$wr "     con anche i rivelatori.
+$wr "        Questa variante include routines grafiche interattive "
+$wr "        Ed anche le n-tuple su unit 21 "
+$!
+$ if P1.eqs."DEBUG" 
+$ then
+$     FOR:=FOR/DEBUG/NOOPT
+$ endif
+$wr " compiling egs4_cyl_2 ..."
+$                                   for/nolist egs4_cyl_2
+$wr " compiling init_cyl_2 ..."
+$                                   for/nolist init_cyl_2
+$wr " compiling histin_cyl_2 ..."
+$                                   for/nolist histin_cyl_2
+$wr " compiling source_cyl_2 ..."
+$                                   for/nolist source_cyl_2
+$wr " compiling howfar_cyl_2a ..."
+$                                   for/nolist howfar_cyl_2a
+$wr " compiling ausgabe_cyl_2 ..."
+$                                   for/nolist ausgabe_cyl_2
+$wr " compiling statend_cyl_2 ..."
+$                                   for/nolist statend_cyl_2
+$wr "    all including: comm_cyltot_2.for"
+$wr "                   comm_yaps.for"
+$wr " compiling guarda_2.for"
+$!wr "        including: pg_comm.for"
+$!wr "                   comm_cyl_2.for"
+$wr "         now including: comm_cyl_2.for"
+$wr "                        comm_yaps.for"
+$wr "                        petgraf.inc"
+$                                   for/nolist guarda_2
+$wr " compiling yaps.for ..."
+$                                   for/nolist yaps
+$wr " compilink howyaps.for .."
+$                                   for/nolist howyaps
+$wr "       including: comm_yaps.for"
+$wr ""
+$wr " compilation ended :"
+$wr "         files not re-compiled: interfaces to highz :"
+$wr "             petgraf.for , including: petgraf.inc,petgraf_com.inc"
+$wr "                                      petgraf_data.inc"
+$wr "                                      petgraf_higz.inc" 
+$wr "             egs4funl.for : egs4 routines"
+$wr " "
+$dir *.obj 
+  

diff --git a/code/procedures/link_cyl_2.com b/code/procedures/link_cyl_2.com
new file mode 100644 (file)
index 0000000..f6e94be
--- /dev/null
+++ b/code/procedures/link_cyl_2.com
@@ -0,0 +1,47 @@
+$!           version 26-oct-1994
+$IF P1 .eqs. "DEBUG"  then LINK:=LINK/DEBUG 
+$wr:=write sys$output
+$wr "          linking egs4 routiines for cyl. geom."
+$wr "          including interactive plots"
+$wr "          ed n-tuple" 
+$!
+$! define egs4f$disk sys$sysdevice:[galli.egs4]
+$! define pgsub      sys$sysdevice:[galli.pg]petsub.obj ! interface to higz
+$! define pglib      sys$sysdevice:[galli.pg]petgra.olb ! some higz routines
+$! define lib$            cern$library:packlib/lib,-
+$!                        cern$library:genlib/lib,- questa non e' usata
+$!                        cern$library:kernlib/lib
+$! define gksbnd      sys$common:[syslib]gksforbnd.olb !DecGKS fortran interface
+$!
+$!@definizioni       ! definizioni specifiche per l'alfa eboal1
+$!
+$write sys$output " linking all ..."
+$ cernlib mathlib,packlib,graflib/x11,packlib,mathlib
+$ link/nomap egs4_cyl_2,init_cyl_2,yaps,-
+             histin_cyl_2,source_cyl_2,-
+             guarda_2,-
+             howfar_cyl_2a,howyaps,ausgabe_cyl_2,-
+             statend_cyl_2,-
+             egs4funl,-
+             petgraf.obj, -
+            cern$mgr:gethostname, -
+             'lib$'  
+$!             pgsub,-    old graph. interfaces to highz
+$!
+$ write sys$output " done ..."
+$ dir *.exe
+$ exit
+$!
+$! --------------- sotto il link usato per bofi04 : DEC VMS :
+$ link/nomap egs4_cyl_2,init_cyl_2,yaps,-
+             histin_cyl_2,source_cyl_2,-
+             guarda_2,-
+             howfar_cyl_2a,howyaps,ausgabe_cyl_2,-
+             statend_cyl_2,-
+             egs4funl,-
+             pgsub,pglib/lib, -
+             gksbnd/lib, -
+             'lib$'
+
+$ write sys$output " done ..."
+$ dir *.exe

diff --git a/code/procedures/link_cyl_2_alpha.com b/code/procedures/link_cyl_2_alpha.com
new file mode 100644 (file)
index 0000000..caa13a4
--- /dev/null
+++ b/code/procedures/link_cyl_2_alpha.com
@@ -0,0 +1,49 @@
+$!           version 26-oct-1994
+$IF P1 .eqs. "DEBUG"  then LINK:=LINK/DEBUG 
+$wr:=write sys$output
+$wr "          linking egs4 routiines for cyl. geom."
+$wr "          including interactive plots"
+$wr "          ed n-tuple" 
+$!
+$! define egs4f$disk sys$sysdevice:[galli.egs4]
+$! define pgsub      sys$sysdevice:[galli.pg]petsub.obj ! interface to higz
+$! define pglib      sys$sysdevice:[galli.pg]petgra.olb ! some higz routines
+$! define lib$            cern$library:packlib/lib,-
+$!                        cern$library:genlib/lib,- questa non e' usata
+$!                        cern$library:kernlib/lib
+$! define gksbnd      sys$common:[syslib]gksforbnd.olb !DecGKS fortran interface
+$!
+$@definizioni       ! definizioni specifiche per l'alfa eboal1
+$!
+$write sys$output " linking all ..."
+$ cernlib
+$ link/nomap egs4_cyl_2,init_cyl_2,yaps,-
+             histin_cyl_2,source_cyl_2,-
+             guarda_2,-
+             howfar_cyl_2a,howyaps,ausgabe_cyl_2,-
+             statend_cyl_2,-
+             egs4funl,-
+             petgraf.obj, -
+             'lib$',-
+             cern:[pro.lib]packlib/lib,graflib/lib,grafx11/lib,grafx11/opt,-
+                           packlib/lib,kernlib/lib
+$!
+$!             pgsub,-    old graph. interfaces to highz
+$!
+$ write sys$output " done ..."
+$ dir *.exe
+$ exit
+$!
+$! --------------- sotto il link usato per bofi04 : DEC VMS :
+$ link/nomap egs4_cyl_2,init_cyl_2,yaps,-
+             histin_cyl_2,source_cyl_2,-
+             guarda_2,-
+             howfar_cyl_2a,howyaps,ausgabe_cyl_2,-
+             statend_cyl_2,-
+             egs4funl,-
+             pgsub,pglib/lib, -
+             gksbnd/lib, -
+             'lib$'
+
+$ write sys$output " done ..."
+$ dir *.exe

diff --git a/code/procedures/run_cyl_2.com b/code/procedures/run_cyl_2.com
new file mode 100644 (file)
index 0000000..27fff25
--- /dev/null
+++ b/code/procedures/run_cyl_2.com
@@ -0,0 +1,48 @@
+$Wr:=write sys$output
+$!wr " running egs4 cyl. geometry, IF P2.EQS. PATHS prints particles path"
+$wr "                             IF P1.eqs. "" "" nodebug"
+$WR  " version egs4_cyl_2 including interactive plotting"
+$wr  " ed n-tuple  e rivelatori "
+$!
+$ if P1 .eqs. "" 
+$then 
+$  P1="NODEBUG"
+$else
+$  P1="DEBUG"
+$endif
+$ write sys$output " now running egs4_cyl_2 ..."
+$!define  materiali bofi04$dkb100:[galli.egs4]mat3mev.dat  ! definito a parte
+$!                                                           per l'alfa
+$!                                                   in definizioni.com
+$!                                    for005      ! terminal input
+$!                                    for006      ! terminal output
+$assign/user   cyl_2.dat              for007      ! geometry input
+$assign/user   yaps.dat               for013      ! geometria rivelatori
+$assign/user   hatch.out              for008      ! egs4 mateiral out list
+$assign/user   hist_cyl_2.dat         for009      ! histogram input
+$!assign/user   hist_cyl_2dum.dat         for009      ! histogram input
+$assign/user   cyl.out                for010      ! output
+$!                                    for011      ! ps metafile for plots
+$assign/user   materiali              for012      ! mat library
+$assign/user   hbook.out              for020      ! hbook output
+$assign/user   ntuple.out             for021      ! hbook output
+$assign/user   ntupley.out            for022      ! hbook output
+$!
+$!
+$ define materiali mat3mev.dat           ! materiali da pegs
+$!
+$! if P2 .eqs. "PATHS" 
+$! then
+$ assign/user   particles.out          for050      ! particle's path (for test)
+$! else
+$! assign/user   nl:                    for050      ! no particle's path 
+$! endif
+$assign/user sys$command sys$input                 ! user input from terminal
+$run/'P1' egs4_cyl_2
+$write sys$output " run ended ......"
+$write sys$output " printed output in:   CYL.OUT "
+$write sys$output " hatch   output in:   HATCH.OUT "
+$write sys$output " HBOOK   output in:   HBOOK.OUT "
+$write sys$output " Ntuple  output in:   ntuple.OUT "
+$if P2.eqs."PATHS" then write sys$output " particles paths in:  PARTICLES.OUT "
+$exit

diff --git a/code/procedures/run_cyl_2_y.com b/code/procedures/run_cyl_2_y.com
new file mode 100644 (file)
index 0000000..a1dacbc
--- /dev/null
+++ b/code/procedures/run_cyl_2_y.com
@@ -0,0 +1,44 @@
+$!         caso con 6 yaps di 4.2*4.2*2cm attorno a cilindretto di r=2cm
+$!         ed Al di 0.5cm
+$!
+$Wr:=write sys$output
+$!wr " running egs4 cyl. geometry, IF P2.EQS. PATHS prints particles path"
+$wr "                             IF P1.eqs. "" "" nodebug"
+$WR  " version egs4_cyl_2 including interactive plotting"
+$wr  " ed n-tuple  e rivelatori "
+$!
+$ if P1 .eqs. "" 
+$then 
+$  P1="NODEBUG"
+$else
+$  P1="DEBUG"
+$endif
+$ write sys$output " now running egs4_cyl_2 ..."
+$define  materiali  mat3mev.dat
+$!                                    for005      ! terminal input
+$!                                    for006      ! terminal output
+$assign/user   cyl_2_y.dat              for007      ! geometry input
+$assign/user   yaps_y.dat               for013      ! geometria rivelatori
+$assign/user   hatch.out              for008      ! egs4 mateiral out list
+$assign/user   hist_cyl_2_y.dat         for009      ! histogram input
+$assign/user   cyl_y.out                for010      ! output
+$!                                    for011      ! ps metafile for plots
+$assign/user   materiali              for012      ! mat library
+$assign/user   hbook_y.out              for020      ! hbook output
+$assign/user   ntuple_y.out             for021      ! hbook output
+$assign/user   ntupley_y.out            for022      ! hbook output
+$! if P2 .eqs. "PATHS" 
+$! then
+$ assign/user   particles.out          for050      ! particle's path (for test)
+$! else
+$! assign/user   nl:                    for050      ! no particle's path 
+$! endif
+$assign/user sys$command sys$input                 ! user input from terminal
+$run/'P1' egs4_cyl_2
+$write sys$output " run ended ......"
+$write sys$output " printed output in:   CYL.OUT "
+$write sys$output " hatch   output in:   HATCH.OUT "
+$write sys$output " HBOOK   output in:   HBOOK.OUT "
+$write sys$output " Ntuple  output in:   ntuple.OUT "
+$if P2.eqs."PATHS" then write sys$output " particles paths in:  PARTICLES.OUT "
+$exit

diff --git a/code/procedures/setdisplay.com b/code/procedures/setdisplay.com
new file mode 100644 (file)
index 0000000..a2c46e9
--- /dev/null
+++ b/code/procedures/setdisplay.com
@@ -0,0 +1 @@
+$set display/create/node='p1'/transport=tcpip/server=0

diff --git a/code/source/000readme.txt b/code/source/000readme.txt
new file mode 100644 (file)
index 0000000..87e813b
--- /dev/null
+++ b/code/source/000readme.txt
@@ -0,0 +1,12 @@
+  Grafica associata al egs4 cilindrico per PET - version 24-1-1994
+
+ main.for:             test grafico
+ petgradef.for         file included in main.for
+ 
+ link.com              istruzioni per il link
+
+ petsub.for            librerie grafiche di Ferriani
+ petsub.obj 
+
+ petgracom.for         file included in petsub.for
+

diff --git a/code/source/ausgabe_cyl_2.for b/code/source/ausgabe_cyl_2.for
new file mode 100644 (file)
index 0000000..39771e0
--- /dev/null
+++ b/code/source/ausgabe_cyl_2.for
@@ -0,0 +1,279 @@
+c
+C                FILE AUSGABE_CYL_2.FOR del 6-sept-1994
+        SUBROUTINE AUSGAB(IARG)
+C-----------------------------------------------------------C
+C       POSITRONS , CYL GEOMETRY 
+C       version 9-may-1994 : added tuple delle posizioni di decay del 
+C       positrone
+C-----------------------------------------------------------C
+       INCLUDE 'COMM_CYLtot_2.FOR'
+       include 'comm_yaps.for'
+C-----------------------------------------------------------C
+       DIMENSION TUPLA(3)
+       dimension tuplay(16)
+c
+c      per le sommatorie delle energie perse nei yaps
+c      da mettere nelle n-tuple dei yaps
+c            parameter mypmax max num yaps, fissato da comm_yaps.for
+       dimension xmedio(mypmax),ymedio(mypmax),zmedio(mypmax)
+       dimension x2medio(mypmax),y2medio(mypmax),z2medio(mypmax)
+       dimension energiag(mypmax),energiae(mypmax),energiap(mypmax)
+       dimension energia(mypmax),numero(mypmax)
+       dimension numeroe(mypmax),numerop(mypmax),numerog(mypmax)
+c       
+C ----------------------------------------------------- 
+C
+C   Calls for Positron annih, iarg=13,14 ( iausfl(14,15)=1 )
+C     Chiamata da electr dopo decaduto il positrone
+C     per vedere dove decade, ( posizione dei gamma )
+C     l'angolo fra i gamma ed altro
+C
+      IF(IARG.EQ.13.OR.IARG.EQ.14) THEN
+C
+C                   Posizione in cui avviene il decadimento
+C        .......... --------------------------------------- ....
+         RADPAR=SQRT(X(NP)*X(NP) + Y(NP)*Y(NP)) 
+C        .........  X-Y DISTRIBUTION ov decay points
+         CALL HFILL(400,X(NP),Y(NP),1.)
+C        ...........Z-R DISTRIBUTION OF DECAY POINTS
+         CALL HFILL(401,RADPAR,Z(NP),1.)
+C        ........... tuple x,y,z di decay del positrone
+         IF(N51DECAY.GT.0) THEN 
+           TUPLA(1)=X(NP)
+           TUPLA(2)=Y(NP)
+           TUPLA(3)=Z(NP)
+           if(noutflag3.gt.0) CALL HFN(800,TUPLA)
+         ENDIF
+C
+C        ...........  Angolo fra i due gamma ...............
+C                     ----------------------
+C
+         NP1=NP-1
+         NP2=NP
+C 
+C        ............   Normalizzo i coseni direttori dei 2 gamma
+         ANORM=1./SQRT(U(NP1)*U(NP1)+V(NP1)*V(NP1)+W(NP1)*W(NP1))
+         UN1=U(NP1)*ANORM
+         VN1=V(NP1)*ANORM
+         WN1=W(NP1)*ANORM
+         ANORM=1./SQRT(U(NP2)*U(NP2)+V(NP2)*V(NP2)+W(NP2)*W(NP2))
+         UN2=U(NP2)*ANORM
+         VN2=V(NP2)*ANORM
+         WN2=W(NP2)*ANORM
+C        ............ angolo fra i 2 gamma         
+         ANGLE=UN1*UN2+VN1*VN2+WN1*WN2
+C                Correction for precision problems .. argument to acos >1
+C         IF(ABS(ANGLE).GT.1.) TYPE*,' ACOS ARG=',ANGLE
+         IF(ABS(ANGLE).GT.1.) ANGLE=SIGN(1.,ANGLE)
+         ANGLE=ACOS(ANGLE)
+C
+         CALL HFILL(501,ANGLE,0.,1.) 
+C
+         RETURN
+      ENDIF
+C
+C-----------------------------------------------------------C
+C           Other calls to ausgabe:
+C  KEEP A RUNNING SUM OF THE ENERGY DEPOSITED IN EACH REGION    
+C  PRINT OUT THE FIRST NLINES OF STACK INFORMATION, ETC.    
+C-----------------------------------------------------------C
+C      
+C--------------STATISTICS OF REGIONS ( common /epersa/ ) 
+c              energia persa nelle regioni
+C
+      i=ir(np)             ! numero della regione
+      iyap=ir(np)-ncyl-1   ! numero del rivelatore
+      if(nyp.gt.0.and.iyap.gt.0.and.iyap.le.nyp) then   ! se e' un yap
+      call inyapsys(iyap,x(np),y(np),z(np),xnelyap,ynelyap,znelyap)
+c     mi calcolo le coordinate della particella nel sistema del yap
+      endif
+c
+      ESUM(I)=ESUM(I) + EDEP             ! total lost energy
+c                                          energia persa divisa per particelle
+      if(iq(np).eq.0) then 
+      esumgam(IR(NP)) = esumgam(IR(NP)) + EDEP  ! gamma
+      else IF (IQ(NP).EQ.-1) then
+      esumele(IR(NP)) = esumele(IR(NP)) + EDEP  ! elettroni
+      else IF (IQ(NP).EQ. 1) then
+      esumpos(IR(NP)) = esumpos(IR(NP)) + EDEP  ! positroni
+      endif
+c
+      dexm(i)=dexm(i)+edep*x(np)                   ! posizione media
+      deym(i)=deym(i)+edep*y(np)     
+      dezm(i)=dezm(i)+edep*z(np)     
+c
+      if(iarg.gt.0.and.iarg.le.4) then               ! assorbimenti
+        numerotot(i)=numerotot(i)+1
+        if(iq(np).eq.0) then 
+        numerogam(i)=numerogam(i)+1
+        else if(iq(np).eq.1) then 
+        numeropos(i)=numeropos(i)+1
+        else if(iq(np).eq.-1) then 
+        numeroele(i)=numeroele(i)+1
+        endif
+      endif
+c              
+      if(nyp.gt.0.and.iyap.gt.0.and.iyap.le.nyp) then   ! se e' un yap
+        dexmypi(iyap)=dexmypi(iyap)+edep*xnelyap     ! posizione media
+        deymypi(iyap)=deymypi(iyap)+edep*ynelyap     ! nel sistema di coord
+        dezmypi(iyap)=dezmypi(iyap)+edep*znelyap     ! del rivelatore
+        desxmypi(iyap)=desxmypi(iyap)+edep*xnelyap**2     ! media di x**2
+        desymypi(iyap)=desymypi(iyap)+edep*ynelyap**2     ! nel rivelatore
+        deszmypi(iyap)=deszmypi(iyap)+edep*znelyap**2
+        if(iq(np).eq.0) then     
+        dexmypig(iyap)=dexmypig(iyap)+edep*xnelyap     ! gamma 
+        deymypig(iyap)=deymypig(iyap)+edep*ynelyap    
+        dezmypig(iyap)=dezmypig(iyap)+edep*znelyap    
+        desxmypig(iyap)=desxmypig(iyap)+edep*xnelyap**2
+        desymypig(iyap)=desymypig(iyap)+edep*ynelyap**2
+        deszmypig(iyap)=deszmypig(iyap)+edep*znelyap**2
+        else if(iq(np).eq.1) then 
+        dexmypip(iyap)=dexmypip(iyap)+edep*xnelyap      ! positrons
+        deymypip(iyap)=deymypip(iyap)+edep*ynelyap     
+        dezmypip(iyap)=dezmypip(iyap)+edep*znelyap     
+        desxmypip(iyap)=desxmypip(iyap)+edep*xnelyap**2
+        desymypip(iyap)=desymypip(iyap)+edep*ynelyap**2
+        deszmypip(iyap)=deszmypip(iyap)+edep*znelyap**2
+        else if(iq(np).eq.-1) then 
+        dexmypie(iyap)=dexmypie(iyap)+edep*xnelyap     ! electrons
+        deymypie(iyap)=deymypie(iyap)+edep*ynelyap     
+        dezmypie(iyap)=dezmypie(iyap)+edep*znelyap     
+        desxmypie(iyap)=desxmypie(iyap)+edep*xnelyap**2
+        desymypie(iyap)=desymypie(iyap)+edep*ynelyap**2
+        deszmypie(iyap)=deszmypie(iyap)+edep*znelyap**2
+        endif
+      endif    
+C    
+c     
+C-----------------------------------------------------------C
+C
+C     FILL HISTOGRAMS                         --------------C
+C
+      RADPAR  =  SQRT(Y(NP)*Y(NP)+X(NP)*X(NP))
+C      
+      CALL HFILL(700,RADPAR,Z(NP),EDEP)       !   distr. r-z
+      CALL HFILL(701,X(NP),Y(NP),EDEP)        !   x-y distr.
+C
+      if(nyp.gt.0.and.iyap.gt.0.and.iyap.le.nyp) then        ! distr dei yaps
+      CALL HFILL(100+IR(NP),xnelyap,0.,EDEP)    ! profondita' nel yap 
+      call hfill(200+ir(np),ynelyap,znelyap,edep) ! hist. nelle yap coord.y-z
+      else
+      CALL HFILL(100+IR(NP),Z(NP),0.,EDEP)    ! z distr. per regione
+      CALL HFILL(200+IR(NP),X(NP),Y(NP),EDEP) ! xy distr. per reg.
+      endif
+C-----------------------------------------------------------C          
+      if(noutflag4.gt.0.and.nyp.gt.0.and.iyap.gt.0.and.
+     1  iyap.le.nyp) then            ! se e' yap, ci sono i yap e voglio n-tuple
+c
+      xmedio(iyap)=xmedio(iyap)+edep*xnelyap
+      ymedio(iyap)=ymedio(iyap)+edep*ynelyap
+      zmedio(iyap)=zmedio(iyap)+edep*znelyap
+      x2medio(iyap)=x2medio(iyap)+edep*xnelyap**2
+      y2medio(iyap)=y2medio(iyap)+edep*ynelyap**2
+      z2medio(iyap)=z2medio(iyap)+edep*znelyap**2
+c
+      energia(iyap)=energia(iyap)+edep
+      if(iq(np).eq.-1) then
+        energiae(iyap)=energiae(iyap)+edep
+      else if(iq(np).eq.1) then
+        energiap(iyap)=energiap(iyap)+edep
+      else if(iq(np).eq.0) then
+        energiag(iyap)=energiag(iyap)+edep
+      endif
+c
+      if(iarg.gt.0.and.iarg.le.4) then
+      numero(iyap)=numero(iyap)+1
+        if(iq(np).eq.-1) then
+          numeroe(iyap)=numeroe(iyap)+1
+        else if(iq(np).eq.1) then
+          numerop(iyap)=numerop(iyap)+1
+        else if(iq(np).eq.0) then
+          numerog(iyap)=numerog(iyap)+1
+        endif
+      endif
+      endif    ! se si fanno le n-tuple dei rivelatori 
+c
+C
+      RETURN    
+c
+      entry ausgabzero
+c     ------------------------------
+c     azzera i dati per le n-tuple
+c     ------------------------------
+c
+      do 60 i=1,nyp
+      xmedio(i)=0.0
+      ymedio(i)=0.0
+      zmedio(i)=0.0
+      x2medio(i)=0.0
+      y2medio(i)=0.0
+      z2medio(i)=0.0
+      energia(i)=0.0
+      energiae(i)=0.0
+      energiap(i)=0.0
+      energiag(i)=0.0
+      numero(i)=0
+      numeroe(i)=0
+      numerop(i)=0
+      numerog(i)=0
+   60 continue
+c
+      return
+c
+      entry ausgabhfn
+c     ------------------------------
+c     riempie il file delle n-tuple, poi
+c     azzera i dati per le n-tuple
+c     ------------------------------
+c
+      do 70 i=1,nyp
+      if(energia(i).ne.0.0) then
+           energiadii=energia(i)
+      else
+           energiadii=1.
+      endif
+      tuplay(1)=ishower
+      tuplay(2)=i
+c
+      tuplay(3)=xmedio(i)/energiadii
+      tuplay(4)=ymedio(i)/energiadii
+      tuplay(5)=zmedio(i)/energiadii
+c      
+      tuplay(6)=x2medio(i)/energiadii-tuplay(3)**2
+      tuplay(7)=y2medio(i)/energiadii-tuplay(4)**2
+      tuplay(8)=z2medio(i)/energiadii-tuplay(5)**2
+c
+      if(tuplay(6).gt.0) tuplay(6)=sqrt(tuplay(6))
+      if(tuplay(7).gt.0) tuplay(7)=sqrt(tuplay(7))
+      if(tuplay(8).gt.0) tuplay(8)=sqrt(tuplay(8))
+c
+      tuplay(9)=energia(i)
+      tuplay(10)=energiap(i)
+      tuplay(11)=energiae(i)
+      tuplay(12)=energiag(i)
+c
+      tuplay(13)=numero(i)
+      tuplay(14)=numerop(i)
+      tuplay(15)=numeroe(i)
+      tuplay(16)=numerog(i)
+c
+      call hfn(801,tuplay)    ! stores n-tuples
+c 
+      xmedio(i)=0.0           ! zero shower array
+      ymedio(i)=0.0
+      zmedio(i)=0.0
+      x2medio(i)=0.0
+      y2medio(i)=0.0
+      z2medio(i)=0.0
+      energia(i)=0.0
+      energiae(i)=0.0
+      energiap(i)=0.0
+      energiag(i)=0.0
+      numero(i)=0
+      numeroe(i)=0
+      numerop(i)=0
+      numerog(i)=0
+   70 continue
+      return
+c
+      END   

diff --git a/code/source/comm_cyl_2.for b/code/source/comm_cyl_2.for
new file mode 100644 (file)
index 0000000..7877f35
--- /dev/null
+++ b/code/source/comm_cyl_2.for
@@ -0,0 +1,18 @@
+C------------------------------------------------------------------C
+C     comm_cyl_2.for       version 26-7-1994 :
+C                           ADDED N11INTER, N50PATHS, N51DECAY
+C     COMMONS FOR EGS4, CYL VERSION, 
+C     from comm_cyl.for : commons for egs4 cyl, 
+C     only /cylgeom/ and /iounit/ to be included in petgra routines
+C------------------------------------------------------------------C
+      PARAMETER MXCYL=99
+      integer traccia
+      COMMON    /CYLGEOM/   NCYL,RTHICK(MXCYL),RCYL(MXCYL),
+     1                      RCYLSQ(MXCYL),INDMAT(99),ZMAX
+     2                      ,traccia
+C
+      integer hislun,HISLUN1,HISLUNY
+      COMMON    /IOUNIT/    LTYIN,LTYOUT,LTYFIL,LTYHIS,LTYDAT  
+     A,                     HISLUN,metalun,N11INTER,N50PATHS,N51DECAY
+     B,                     hislun1,HISLUNY,n13
+C

diff --git a/code/source/comm_cyltot_2.for b/code/source/comm_cyltot_2.for
new file mode 100644 (file)
index 0000000..350d4e7
--- /dev/null
+++ b/code/source/comm_cyltot_2.for
@@ -0,0 +1,121 @@
+C           FILE COMM_CYLTOT_2.FOR    - data: 5-aug-1994
+C------------------------------------------------------------------C
+C     COMMONS FOR EGS4, CYL VERSION, TUTTI I COMMON,
+C      ESISTE UN FILE COMM_CYL_2 CON SOLO /IOUNIT/ E CYL
+C       last version 11-may-1994 : pramettrizzato il paw space /pawc/
+C       AGGIUNTO OUTFLAG1,outflag2, outflag3
+c       6-may-1994 : added output flags to /iounit/
+C------------------------------------------------------------------C
+C
+      CHARACTER * 4         MEDIA 
+C
+C   -------  COMMONS NEEDED  --------------------------------------C 
+C      
+      COMMON    /RANDOM /   IXX
+      COMMON    /BOUNDS /   ECUT(200),PCUT(200),VACDST    
+      COMMON    /MEDIA  /   NMED,RLC(10),RLDU(10),RHO(10)
+     A                     ,MSGE(10),MGE(10),MSEKE(10),MEKE(10)
+     B                     ,MLEKE(10),MCMFP(10),MRANGE(10),IRAYLM(10)    
+      COMMON    /MISC   /   KMPI,KMPO,DUNIT,NOSCAT,MED(200)
+     A                     ,RHOR(200),IRAYLR(200)    
+      COMMON    /MEDIAC /   MEDIA(24,10)    
+      COMMON    /TXDATA /   ISHOWER,IQI,EI,XI,YI,ZI,UI,VI,WI,IRI,WTI,
+     A                      EVKIN,ICODE,ISQGAM
+C---
+      COMMON    /USEFUL /   PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE 
+C--
+      PARAMETER MXCYL=99        ! numero max di cilindri
+      integer traccia
+      COMMON    /CYLGEOM/   NCYL,RTHICK(MXCYL),RCYL(MXCYL),
+     1                      RCYLSQ(MXCYL),ZMAX,traccia
+C------------------------------------------------------------------C
+c         profile contiene le energie perse nelle varie zone
+c         ora e' inutilizzato , questo e total sono rimpiazzati
+c         dal common epersa
+c      COMMON/PROFILE/DEODX(mxreg),
+c     A      DEXRY(mxreg) ,DEDEL(mxreg) ,DEPRI(mxreg)
+c     A      TOTODX(mxreg),
+c     A      TOTXRY(mxreg),TOTDEL(mxreg),TOTPRI(mxreg),
+c      common/totals/  ESUM(mxreg),
+C -----------------------------------------------------------
+      parameter mxreg=99        ! numero max di regioni
+      common /epersa/ numerotot(mxreg),
+     1      numeropos(mxreg),numeroele(mxreg),numerogam(mxreg),
+     2      esum(mxreg),
+     3      esumpos(mxreg),esumele(mxreg),esumgam(mxreg),
+     4      dexm(mxreg),deym(mxreg),dezm(mxreg),
+     4      dexme(mxreg),deyme(mxreg),dezme(mxreg),
+     4      dexmp(mxreg),deymp(mxreg),dezmp(mxreg),
+     4      dexmg(mxreg),deymg(mxreg),dezmg(mxreg),
+     5      dexmypi(mxreg),deymypi(mxreg),dezmypi(mxreg),
+     5      dexmypip(mxreg),deymypip(mxreg),dezmypip(mxreg),
+     5      dexmypie(mxreg),deymypie(mxreg),dezmypie(mxreg),
+     5      dexmypig(mxreg),deymypig(mxreg),dezmypig(mxreg),
+     6      desxmypi(mxreg),desymypi(mxreg),deszmypi(mxreg),
+     6      desxmypip(mxreg),desymypip(mxreg),deszmypip(mxreg),
+     6      desxmypie(mxreg),desymypie(mxreg),deszmypie(mxreg),
+     6      desxmypig(mxreg),desymypig(mxreg),deszmypig(mxreg)
+c           -------------------------------------------------
+c           numerotot = numero totale di particelle prodotte
+c           numeropos,ele,gam = num. di positroni, elettroni,gamma
+c           esum= energia tot persa nelle zone
+c           esumele,pos,gam = energia persa da elettroni, positroni e gamma
+c           dexm,ym,zm= sum( x * de )= x medio di e persa
+c           dexme , p, g = stesso separato per elett. pos. e gamma. 
+c           dexmypi = per ogni yap, nel suo sistema di riferimento.
+c           dexmypi e,p g = separapo per e+,e-,gamma 
+c           desxmypi = media di x**2 pesata su e, per i yap , nel loro sistema
+c           desxmypi = separato per e+,e-, gamma 
+c           ------------------------------------------------------
+
+      COMMON    /RUNPAR /   NCASES,ITCTX,TOTKE,TOTEI,EKIN,NREG,INIREG
+     A                      ,ICHAR
+C--
+C
+      COMMON    /IOUNIT/    LTYIN,LTYOUT,LTYFIL,LTYHIS,LTYDAT  
+     A,                     HISLUN,metalun,n11inter,n50paths,n51decay
+     B,                     Hislun1,HISLUNY,n13
+       INTEGER LTYIN,LTYOUT,LTYFIL,LTYHIS,LTYDAT,HISLUN,metalun
+       INTEGER HISLUN1,HISLUNY
+C
+C
+C------------------------------------------------------------------C
+C      
+      COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),
+     A             DNEAR(40),WT(40),IQ(40),IR(40),NP    
+C------------------------------------------------------------------C
+      COMMON/EPCONT/EDEP,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP,IDISC,IROLD
+     *,IRNEW,RHOF,EOLD,ENEW,EKE,ELKE,BETA2,BETA,GLE,TSCAT,IAUSFL(25)
+C------------------------------------------------------------------C
+      DOUBLE PRECISION E,EDEP,ESUM
+      DOUBLE PRECISION PZERO,PRM,PRMT2
+C-----BLANK COMMON FOR HBOOK4 + PAW -------------------------------C
+C
+C
+       COMMON  HMEMOR (40000 )
+       parameter mspazio_paw=1000000
+       COMMON /PAWC/ PAWCSPACE(mspazio_paw)       
+C
+C------------------------------------------------------------------C
+C           common con varie quantita'
+C        iciclo e' per ogni ist. numero restiruito da hrout
+C        direttorio il nome del direttorio degli istogrammi
+C        direttorio1 il nome del direttorio delle N-TUPLE
+C        iseed il seed iniziale del random number generator
+C        dello shower corrente.
+C        istseed in numero dello shower iniziale (se .ne.0 )
+C        istartseed il seed dello shower iniziale (if .ne.0)
+       CHARACTER*8 DIRETTORIO,DIRETTORIO1,DIRETTORIOY
+       PARAMETER MISTOGRAMMI=1000
+       COMMON/VARI/ICICLO(MISTOGRAMMI),
+     1              ISEED,ISTSEED,ISTARTSEED,
+     2              NOUTFLAG1,NOUTFLAG2,NOUTFLAG3,
+     3              NOUTFLAG4,NOUTFLAG5,NOUTFLAG6,
+     4              DIRETTORIO,DIRETTORIO1,DIRETTORIOY
+
+C ----------------------------------------------
+C------------------------------------------------------------------C
+C           common per vettore identificativi istogrammi da plottare
+C
+       common /pethist/ idhist(4),nhisto
+C

diff --git a/code/source/comm_yaps.for b/code/source/comm_yaps.for
new file mode 100644 (file)
index 0000000..5114974
--- /dev/null
+++ b/code/source/comm_yaps.for
@@ -0,0 +1,71 @@
+C      version 5-aug-1994          file comm_yaps.for
+C -------------------------------- common / YAPS / ----------------------
+C      IL COMMON /YAPS/ descrive il rivelatore, composto di cristalli
+C      a forma di piastrelle, posti attorno all'asse del cilindro che
+c      rappresenta l'oggetto da misurare.
+c      Questi sono identificati da: distanza del centro del cristallo
+c                                      dal centro del sistema
+c                                 : dimensioni x,y,z del rivelatore con:
+C                     z : direzione lungo asse cilindro
+c                     y : direzione tangente al cilindro
+c                     x : direzione radiale (spessore del rivelatore)
+C      Il common contiene anche tutte le grandezze relative alla geometria
+c      del rivelatore usate dal programma.
+c
+c 
+c       ----------------------------------------------
+c       nypmax= parameter mypmax =numero massimo di rivelatori
+C       nyp = numero di rivelatori
+c       ryp = raggio anello di rivelatori
+c               ( distanza centro-sistema - centro faccia interna del rivelatore )
+c       zyp = posizione z anello di rivelatori
+c       dxyp, dyyp , dzyp = semidimensioni del rivelatore: 
+c       
+c       rypi,zypi,dxpi,dyyp,dzyp: stesso per i singoli rivelatori,
+c             in input vengono letti ryp,zyp ... ma nel programma
+c             vengono sempre usati rypi,zypi ... in modo da contemplare
+C             il caso ( ancora non completamente implementato) che
+c             non siano disposti su un anello
+c       angypi : per ogni cristallo: angolo fra asse x e retta fra centro
+c                e centro del rivelatore , antiorario.
+c       x0ypi,y0ypi,z0ypi: posizione del centro del rivelatore,
+c       xorigypi,yorigypi,zorigypi: posizione del centro del cilindro
+C                                   nel sistema del rivelatore
+c       trasf(3,3,i): matrice di trasformazione alle coordinate del
+c                     rivelatore i
+c       rultimo : limite r oltre cui le particelle sono perse
+C       zultimo : limite z oltre cui le particelle sono perse
+c       rultimosq=rultimo**2 (in common per non ricalcolarlo sempre)
+c       upperlimite = un limite sup per le dimensioni del sistema
+c                        ( serve in howyaps , qui per non ricalcolarlo sempre)
+c          rultimo e zultimo li calcola read_yaps, upperlimite anche
+c
+c       angcol = angolo di incidenza max ammesso (collimatore geometrico)
+c                Se <=0 il collimatore non c'e'.
+c       angcoldar = angcol in radianti
+c       escono =0 se c'e' il collimatore le particelle che escono dal 
+c                 rivelatore verso il collimatore ( faccia +x ) sono
+c                 fatte assorbire dal collimatore, le altre sono perse 
+c                 Se il collimatore non c'e' restano nel sistema
+c              <0 le particelle che escono dal rivelatore restano nel sistema
+c              >0 le particelle che escono dal rivelatore vanno nella
+c                 zona collimatore ( anche se non c'e' il collimatore)
+c                
+c       ----------------------------------------------
+
+       parameter mypmax=20        ! numero massimo di rivelatori
+       data nypmax/mypmax/
+       common/yaps/nypmax,nyp,ryp,zyp,dxyp,dyyp,dzyp,
+     1             rypi(mypmax),zypi(mypmax),angypi(mypmax),
+     2             dxypi(mypmax),dyypi(mypmax),dzypi(mypmax),
+     3             x0ypi(mypmax),y0ypi(mypmax),z0ypi(mypmax),
+     4             xorigypi(mypmax),yorigypi(mypmax),zorigypi(mypmax),
+     5             trasf(3,3,mypmax),rultimo,zultimo,rultimosq,
+     6             upperlimite,
+     7             angcol,angcolrad,escono
+C --------------------------fine common / YAPS / ----------------------
+c        common /yapscorr/ con alcuni dati sulla particella nel yap
+c
+      common/yapscorr/xnelcyl,ynelcyl,znelcyl,xnelyap,ynelyap,znelyap,
+     1                angcosvd,numeroyap,numfaccia
+c ------------------------------------------------------------------

diff --git a/code/source/egs4_cyl_2.for b/code/source/egs4_cyl_2.for
new file mode 100644 (file)
index 0000000..a75e55b
--- /dev/null
+++ b/code/source/egs4_cyl_2.for
@@ -0,0 +1,238 @@
+        PROGRAM   EGS4CYL
+C      file EGS4_cyl_2.for       del 5-sept-1994 
+C...........................................................*
+C      update: 11-may 1995 : cliude file n-tuple 
+C      EGS4 MAIN PROGRAM FOR CYLINDRICAL GEOMETRY           *
+C      Modified BY M.GALLI SEPT. 1993 . 
+C               last revision 9-nov-1993
+C      MODIFIED FROM :EGS4PLAN.FOR  BY   D.BOLLINI - 010190 C
+C-----------------------------------------------------------C
+C
+       INCLUDE 'COMM_CYLtot_2.FOR'
+       include 'comm_yaps.for'
+C
+       logical ifine/.false./        ! user given stop flag ( routine guarda)
+       logical aperta/.false./       ! workstation open flag (routine guarda)
+C
+C       
+C-----------------------------------------------------------C
+C
+C  STEP 1.  PRE-HATCH-CALL-INITIALIZATION   
+C
+            WRITE(LTYOUT,6075)
+ 6075       FORMAT(1H ,'   ENTERING INIT_CYL SUBROUTINE ')
+C
+            CALL  INIT_CYL
+C      
+C           ---------------------------------
+            WRITE(LTYOUT,6076)
+ 6076 FORMAT(4x,'ENTERING READ_YAPS SUBROUTINE : detector geometry')
+C
+            CALL  READ_YAPS 
+C-----------------------------------------------------------C
+C  STEP 2.  HISTOGRAM INIZIALIZATION
+C
+            WRITE(LTYOUT,6077)
+ 6077       FORMAT(1H ,'   ENTERING HISTIN_CYL SUBROUTINE ')
+C
+            CALL HISTIN_CYL
+C            
+C           auxiliary call to ausgabe, before and after a call to annih
+C            IAUSFL(13)=1    ! not needed, e+ final position=gamma initial pos.
+            IAUSFL(14)=1     ! ausgabe call for positron annih. at rest
+            IAUSFL(15)=1     ! call per produzione di coppie
+C
+C-----------------------------------------------------------C
+C  STEP 3.  HATCH-CALL
+C
+            WRITE(LTYOUT,6080)
+ 6080       FORMAT(1H ,'   ENTERING HATCH SUBROUTINE ')
+C--
+C
+            CALL HATCH    
+C
+C-----------------------------------------------------------C
+C  STEP 4.  SHOWER-CALL
+C
+C     ----------------------------- optional setting of
+C                     random number generator seed, to start
+C                     with an input-given shower
+c        il common/random/ixx contiene il seed corrente del
+c        random number generator, che e' la routine rndm (v104) del CERN
+c        questo generatore ha un periodo dipendente dal numero di bit della
+c        macchina, per macchine IBM e' circa 5.10**8 ( che puo' essere poco)
+C        questo common non viene mai usato, se non forse per ingannare il
+c        compilatore.  
+      IF(ISTSEED.GT.0) THEN                ! seed user-chosen
+         ixx=istartseed
+      else
+         call rdmout(ixx)                  ! seed chiesto al generatore stesso
+      endif
+         call rdmin(ixx)                   ! imposto il seed
+         CALL RDMOUT(ISEED)                ! lo leggo per le stampe
+         WRITE(LTYOUT,7003) ISTSEED,ISTARTSEED,ISEED
+         WRITE(LTYHIS,7003) ISTSEED,ISTARTSEED,ISEED
+         if(noutflag5.ge.2.or.noutflag2.gt.0)
+     1   WRITE(50,7003)ISTSEED,ISTARTSEED,ISEED
+ 7003    FORMAT(' STARTING SIMULATION FROM SHOWER:',I5,
+     1          ' SEED :',I30,'=',I30)
+C
+      STARTTIME=SECNDS(0.0)
+      TIME0=STARTTIME
+      TIMETOT=0.0  
+c 
+      if(nyp.gt.0.and.noutflag4.gt.0) call ausgabzero 
+c                ! zero n-tuple arrays ( entry in ausgabe )
+c
+      DO 600  I=1,NCASES
+C     Ishower is in common /txdata/ to be passed to ausgab and ..?
+c     lo uso per numerare  gli eventi quando non parto dal primo
+      ISHOWER=I+istseed-1
+C      
+      CALL RDMOUT(ISEED)                ! lo leggo per le stampe
+      if(noutflag5.ge.2.or.noutflag2.gt.0) write(50,*)
+     1' ===========>> Beginning shower',Ishower,' seed:',ISEED
+      type*,' beginning shower',Ishower,' seed:',ISEED
+C
+C     ----------------------- source particle
+      CALL SOURCE_CYL
+C------------------------------------------------------------C
+C
+             if(i.ne.1.and.itctx.ne.0.and.mod(i,itctx).eq.0.
+     2          AND.N11INTER.GT.0)  
+     1       call guarda(ifine,aperta)          ! plot interattivo 
+C
+c          ---------------------------------
+C            GENERATION OF AN E_M SHOWER   -----------------C
+C
+             CALL SHOWER(IQI,EI,XI,YI,ZI,UI,VI,WI,IRI,WTI)
+C      
+C-----------------------------------------------------------C
+           if(nyp.gt.0.and.noutflag4.gt.0) call ausgabhfn  
+c                        ! out n-tuples of this run
+C
+C
+C-----TIMING EVERY ITCXT EVENTS ----------------------
+      IF  (  ITCTX.NE.0.AND. MOD(I,ITCTX).EQ.0  ) THEN
+          TIME1=SECNDS(TIME0)
+          TIMEMED = TIME1/ITCTX 
+          TIMETOT=TIMETOT+TIME1 
+          TIME0=STARTTIME+TIMETOT
+          WRITE(LTYOUT,6087) Ishower,TIMETOT,TIMEMED
+          if(noutflag5.ge.2.or.noutflag2.gt.0)     
+     1    WRITE(50,6087) Ishower,TIMETOT,TIMEMED
+ 6087     FORMAT(1X,'ENDED SHOWER =>:',I8,' time tot:',F12.3,
+     1       ' shower average time:',F12.3)
+      ENDIF
+C
+C------------------------------------------------------------C
+          if(ifine) goto 700 ! stop flag set by user in guarda routine
+  600     CONTINUE
+C------------------------------------------------------------C
+C  END OF SHOWER-CALL LOOP  
+C-----------------------------------------------------------C
+C
+c  700     CONTINUE
+c          if(aperta.AND.N11INTER.GT.0)
+c     1        call guarda(-1,ifine,aperta)
+c          
+C
+C         PRINT HISTOGRAMS
+C------   NEW HBOOK 4 FOR PAW ------------------------------C
+C
+700         WRITE(LTYOUT,6083)
+ 6083       FORMAT(1H ,'   ENTERING HISTDO : print all histograms')
+          CALL HISTDO
+          call hldir(' ',' ')   ! listo gli istogrammi in memoria
+C
+C         ------------------------- output for paw on unit hislun=20
+C         
+          write(ltyout,6084) hislun
+ 6084     format(' WRITING HISTOGRAMS ON UNIT HISLUN ,'I3,'.....')
+C
+          CALL HCDIR(DIRETTORIO,' ')          ! punto al file 
+C
+          DO 90 I=1,nreg               ! nreg=nyp+ncyl+2   set by read_yaps
+                  identif=100+i
+                  write(ltyout,6086) identif
+ 6086     format(' writing histogram:',I10,'   .....')
+          CALL HROUT(100+I,ICICLO(100+I),' ')  ! riempio 1 dim r
+                  identif=200+i
+                  write(ltyout,6086) identif
+          CALL HROUT(200+I,ICICLO(100+I),' ')  ! riempio 2 dim x-y
+  90      CONTINUE    
+                  identif=501
+                  write(ltyout,6086) identif
+          CALL HROUT(501,ICICLO(501),' ')      ! riempio 1 dim amgolo gamma dec.
+C
+                  identif=700
+                  write(ltyout,6086) identif
+          CALL HROUT(700,ICICLO(700),' ')      ! 2 dim r-z
+                  identif=701
+                  write(ltyout,6086) identif
+          CALL HROUT(701,ICICLO(701),' ')      ! 2 dim x-y
+                  identif=400
+                  write(ltyout,6086) identif
+          CALL HROUT(400,ICICLO(400),' ')      ! riempio 2 dim x-y decay points
+                  identif=401
+                  write(ltyout,6086) identif
+          CALL HROUT(401,ICICLO(401),' ')      ! riempio 2 dim r-z decay points
+C
+c          if(noutflag3.gt.0) then
+c                  identif=800
+c                  write(ltyout,6086) identif
+c              CALL HROUT(800,ICICLO(800),' ')   ! 3-tuple x,y,z di decadimento
+c           endif
+C      
+          CALL HLDIR(DIRETTORIO,' ')           ! listo contenuto
+C            chiudo i files GZ per PAW
+          CALL HREND(DIRETTORIO)           ! istogrammi 
+          CLOSE(UNIT=HISLUN)
+          write(ltyout,6088) hislun
+ 6088     format(' chiso il file hislun=',I3)
+
+c
+C         ------------------------- output for paw on unit hislun1=51
+          if(noutflag3.gt.0) then 
+            write(ltyout,6090) HISLUN1
+ 6090       format(' WRITING N-TUPLE ON FILE HISLUN1 ',I3,'...')
+C
+            CALL HCDIR(DIRETTORIO1,' ')          ! punto al file colle ntuple
+C          
+            identif=800
+            write(ltyout,6092) IDENTIF
+ 6092       FORMAT(' writing n-tuple ',I5)
+            CALL HROUT(800,ICICLO(800),' ')      ! 3-tuple x,y,z di decadimento
+            CALL HLDIR(DIRETTORIO1,' ')          ! listo contenuto file n-tuple
+            CALL HREND(DIRETTORIO1)          ! n-tuple 
+            CLOSE(UNIT=HISLUN1)
+          write(ltyout,6094) hislun1
+ 6094     format(' chiso il file hislun1=',I3)
+          ENDIF
+C         ------------------------- output for paw on unit hisluny=52 per yaps
+          if(noutflag4.gt.0.and.nyp.gt.0) then 
+            write(ltyout,6096) HISLUNy
+ 6096       format(' WRITING N-TUPLE ON FILE HISLUNy ',I3,'...')
+C
+            CALL HCDIR(DIRETTORIOy,' ')          ! punto al file colle ntuple
+C          
+            identif=801
+            write(ltyout,6092) IDENTIF
+            CALL HROUT(801,ICICLO(801),' ')      ! yap interactions
+            CALL HLDIR(DIRETTORIOy,' ')          ! listo contenuto file n-tuple
+            CALL HREND(DIRETTORIOy)          ! n-tuple 
+            CLOSE(UNIT=HISLUNY)
+          write(ltyout,6098) hisluny
+ 6098     format(' chiso il file hisluny=',I3)
+          ENDIF
+C
+C         PRINT FINAL STATISTICS ---------------------------C
+C
+            WRITE(LTYOUT,6085)
+ 6085       FORMAT(1H ,'   ENTERING STATEND_CYL SUBROUTINE ')
+          CALL STATEND_CYL
+C
+C-----------------------------------------------------------C           
+      STOP  
+C-----------------------------------------------------C 
+      END   

diff --git a/code/source/egs4funl.for b/code/source/egs4funl.for
new file mode 100644 (file)
index 0000000..4e72042
--- /dev/null
+++ b/code/source/egs4funl.for
@@ -0,0 +1,2680 @@
+      SUBROUTINE EGS4T ( LUN)   
+C.  
+C.  
+C.    ******************************************************************    
+C.    *                                                                *    
+C.    *                                                                *    
+C.    *       PRINT PAM TITLE ON LUN                                   *    
+C.    *                                                                *    
+C.    *                                                                *    
+C.    ******************************************************************    
+C.  
+      WRITE (LUN,1000)  
+      RETURN    
+ 1000 FORMAT (2H  ,' PACKAGE COMPILED FROM PAM FILE=  ',/,
+     +        2H  ,' EGS4CR   2.00      850503 15.00  ',//)
+      END   
+      SUBROUTINE EGS4BD
+C                                  VERSION 4.XX  --  22 FEB 1985/0000   
+C  ******************************************************************   
+C    COPYRIGHT (C) BY THE BOARD OF TRUSTEES OF THE LELAND STANFORD  
+C    JUNIOR UNIVERSITY, 1985.  ALL RIGHTS RESERVED. 
+C  ******************************************************************   
+C   
+C    AUTHORS:      WALTER R. NELSON 
+C                  RADIATION PHYSICS GROUP  
+C                  STANFORD LINEAR ACCELERATOR CENTER   
+C                  STANFORD, CA 94305   
+C                  U.S.A.   
+C   
+C                  HIDEO HIRAYAMA   
+C                  NATIONAL LABORATORY FOR HIGH ENERGY PHYSICS (KEK)    
+C                  OHO-MACHI, TSUKUBA-GUN, IBARAKI, 
+C                  JAPAN    
+C   
+C                  DAVID W. O. ROGERS   
+C                  DIVISION OF PHYSICS  
+C                  NATIONAL RESEARCH COUNCIL OF CANADA  
+C                  OTTAWA K1A 0R6   
+C                  CANADA   
+C   
+C  ******************************************************************   
+      COMMON/BOUNDS/ECUT(200),PCUT(200),VACDST    
+      COMMON/BREMPR/DL1(6,10),DL2(6,10),DL3(6,10),DL4(6,10),DL5(6,10),DL    
+     *6(6,10),DELCM(10), ALPHI(2,10),BPAR(2,10),DELPOS(2,10),PWR2I(50)  
+      COMMON/ELECIN/EKELIM,ICOMP,EKE0(10),EKE1(10),CMFP0(10),CMFP1(10),R    
+     *ANGE0(10),RANGE1(10), XR0(10),TEFF0(10),BLCC(10),XCC(10),PICMP0(1,    
+     *10),PICMP1(1,10),EICMP0(1,10),EICMP1(1,10),MPEEM(1,10), ESIG0(150,    
+     *10),ESIG1(150,10),PSIG0(150,10),PSIG1(150,10),EDEDX0(150,10),EDEDX    
+     *1(150,10),PDEDX0(150,10),PDEDX1(150,10),EBR10(150,10),EBR11(150,10    
+     *),PBR10(150,10),PBR11(150,10),PBR20(150,10),PBR21(150,10),TMXS0(15    
+     *0,10),TMXS1(150,10),CMFPE0(1,10),CMFPE1(1,10),CMFPP0(1,10),CMFPP1(    
+     *1,10),ERANG0(1,10),ERANG1(1,10),PRANG0(1,10),PRANG1(1,10),CXC2E0(1    
+     *,10),CXC2E1(1,10),CXC2P0(1,10),CXC2P1(1,10),CLXAE0(1,10),CLXAE1(1,    
+     *10),CLXAP0(1,10),CLXAP1(1,10), THR0(1,1),THR1(1,1),THR2(1,1),THRI0    
+     *(1,1),THRI1(1,1),THRI2(1,1),FSTEP(16),FSQR(16),MSMAP(200), VERT1(1    
+     *000),VERT2(100,16),MSTEPS,JRMAX,MXV1, MXV2,NBLC,NRNTH,NRNTHI,BLC0,    
+     *BLC1,RTHR0,RTHR1,RTHRI0,RTHRI1    
+      COMMON/EPCONT/EDEP,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, IDISC,IROLD,IR    
+     *NEW,RHOF,EOLD,ENEW,EKE,ELKE,BETA2,BETA, GLE,TSCAT,IAUSFL(25)  
+      DOUBLE PRECISION EDEP 
+      COMMON/MEDIA/NMED,RLC(10),RLDU(10),RHO(10),MSGE(10),MGE(10),MSEKE(    
+     *10),MEKE(10),MLEKE(10),MCMFP(10),MRANGE(10),IRAYLM(10)    
+      COMMON/MEDIAC/MEDIA(24,10)    
+      CHARACTER*4 MEDIA 
+      COMMON/MISC/KMPI,KMPO,DUNIT,NOSCAT,MED(200),RHOR(200),IRAYLR(200)
+      COMMON/MULTS/NG21,B0G21,B1G21,G210(7),G211(7),G212(7), NG22,B0G22,    
+     *B1G22,G220(8),G221(8),G222(8), NG31,B0G31,B1G31,G310(11),G311(11),    
+     *G312(11), NG32,B0G32,B1G32,G320(25),G321(25),G322(25), NBGB,B0BGB,    
+     *B1BGB,BGB0(8),BGB1(8),BGB2(8) 
+      COMMON/PATHCM/NPTH,B0PTH,B1PTH,PTH0(6),PTH1(6),PTH2(6)    
+      COMMON/PHOTIN/EBINDA(10),GE0(10),GE1(10), MPGEM(1,10),GMFP0(200,10    
+     *),GMFP1(200,10),GBR10(200,10),GBR11(200,10),GBR20(200,10),GBR21(20    
+     *0,10), NGR(10),RCO0(10),RCO1(10),RSCT0(100, 10),RSCT1(100, 10),COH    
+     *E0(200,10),COHE1(200,10)  
+      COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),DNEAR(40),W    
+     *T(40),IQ(40),IR(40),NP    
+      DOUBLE PRECISION E    
+      COMMON/THRESH/RMT2,RMSQ,ESCD2,AP(10),AE(10),UP(10),UE(10),TE(10),T    
+     *HMOLL(10) 
+      COMMON/UPHIIN/SINC0,SINC1,SIN0(1002),SIN1(1002)   
+      COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2   
+      COMMON/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE 
+      DOUBLE PRECISION PZERO,PRM,PRMT2  
+C  DEFAULT REPLACEMENT PRODUCES THE FOLLOWING:  
+C  COMIN/BOUNDS,BREMPR,ELECIN,EPCONT,MEDIA,MISC,MULTS,PATHCM,PHOTIN,    
+C    STACK,THRESH,UPHIIN,UPHIOT,USEFUL/;    
+C  MUST USE COMMON/RANDOM/ INSTEAD OF COMIN/RANDOM/ BECAUSE 
+C  OF FORTRAN RESTRICTION ON 'BLOCK DATA VS. LOCAL DATA'.   
+      COMMON/RANDOM/IXX 
+      CHARACTER*4 MEDIA1(24)    
+      EQUIVALENCE(MEDIA1(1),MEDIA(1,1)) 
+C  DATA INITIALIZATION FOR THE ABOVE COMMON BLOCKS  
+C  BOUNDS   
+      DATA ECUT/200*0./,PCUT/200*0./,VACDST/1.E8/ 
+C  ELECIN   
+      DATA EKELIM/0./,ICOMP/1/  
+C  EPCONT   
+      DATA IAUSFL/5*1,20*0/,RHOF/1.0/   
+C  MEDIA    
+      DATA NMED/1/,MEDIA1/'N','A','I',' ',' ',' ',' ',' ',' ',' ',' ',' 
+     *',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '/    
+      DATA IRAYLM/10*0/ 
+C  MISC 
+      DATA KMPI/12/,KMPO/8/,DUNIT/1./,NOSCAT/0/ 
+      DATA MED/200*1/,RHOR/200*0./,IRAYLR/200*0/ 
+C  MULTS    
+      DATA NG21/ 7/,B0G21/ 2.0000E+00/,B1G21/ 5.0000E+00/   
+      DATA G210( 1),G211( 1),G212( 1)/-9.9140E-04, 2.7672E+00,-1.1544E+0    
+     *0/    
+      DATA G210( 2),G211( 2),G212( 2)/-9.9140E-04, 2.7672E+00,-1.1544E+0    
+     *0/    
+      DATA G210( 3),G211( 3),G212( 3)/-7.1017E-02, 3.4941E+00,-3.0773E+0    
+     *0/    
+      DATA G210( 4),G211( 4),G212( 4)/-7.3556E-02, 3.5487E+00,-3.1989E+0    
+     *0/    
+      DATA G210( 5),G211( 5),G212( 5)/ 3.6658E-01, 2.1162E+00,-2.0311E+0    
+     *0/    
+      DATA G210( 6),G211( 6),G212( 6)/ 1.4498E+00,-5.9717E-01,-3.2951E-0    
+     *1/    
+      DATA G210( 7),G211( 7),G212( 7)/ 1.4498E+00,-5.9717E-01,-3.2951E-0    
+     *1/    
+      DATA NG22/ 8/,B0G22/ 2.0000E+00/,B1G22/ 6.0000E+00/   
+      DATA G220( 1),G221( 1),G222( 1)/-5.2593E-04, 1.4285E+00,-1.2670E+0    
+     *0/    
+      DATA G220( 2),G221( 2),G222( 2)/-5.2593E-04, 1.4285E+00,-1.2670E+0    
+     *0/    
+      DATA G220( 3),G221( 3),G222( 3)/-6.4819E-02, 2.2033E+00,-3.6399E+0    
+     *0/    
+      DATA G220( 4),G221( 4),G222( 4)/ 3.7427E-02, 1.6630E+00,-2.9362E+0    
+     *0/    
+      DATA G220( 5),G221( 5),G222( 5)/ 6.1955E-01,-6.2713E-01,-6.7859E-0    
+     *1/    
+      DATA G220( 6),G221( 6),G222( 6)/ 1.7584E+00,-4.0390E+00, 1.8810E+0    
+     *0/    
+      DATA G220( 7),G221( 7),G222( 7)/ 2.5694E+00,-6.0484E+00, 3.1256E+0    
+     *0/    
+      DATA G220( 8),G221( 8),G222( 8)/ 2.5694E+00,-6.0484E+00, 3.1256E+0    
+     *0/    
+      DATA NG31/ 11/,B0G31/ 2.0000E+00/,B1G31/ 9.0000E+00/  
+      DATA G310( 1),G311( 1),G312( 1)/ 4.9437E-01, 1.9124E-02, 1.8375E+0    
+     *0/    
+      DATA G310( 2),G311( 2),G312( 2)/ 4.9437E-01, 1.9124E-02, 1.8375E+0    
+     *0/    
+      DATA G310( 3),G311( 3),G312( 3)/ 5.3251E-01,-6.1555E-01, 4.5595E+0    
+     *0/    
+      DATA G310( 4),G311( 4),G312( 4)/ 6.6810E-01,-2.2056E+00, 8.9293E+0    
+     *0/    
+      DATA G310( 5),G311( 5),G312( 5)/-3.8262E+00, 2.5528E+01,-3.3862E+0    
+     *1/    
+      DATA G310( 6),G311( 6),G312( 6)/ 4.2335E+00,-1.0604E+01, 6.6702E+0    
+     *0/    
+      DATA G310( 7),G311( 7),G312( 7)/ 5.0694E+00,-1.4208E+01, 1.0456E+0    
+     *1/    
+      DATA G310( 8),G311( 8),G312( 8)/ 1.4563E+00,-3.3275E+00, 2.2601E+0    
+     *0/    
+      DATA G310( 9),G311( 9),G312( 9)/-3.2852E-01, 1.2938E+00,-7.3254E-0    
+     *1/    
+      DATA G310(10),G311(10),G312(10)/-2.2489E-01, 1.0713E+00,-6.1358E-0    
+     *1/    
+      DATA G310(11),G311(11),G312(11)/-2.2489E-01, 1.0713E+00,-6.1358E-0    
+     *1/    
+      DATA NG32/ 25/,B0G32/ 2.0000E+00/,B1G32/ 2.3000E+01/  
+      DATA G320( 1),G321( 1),G322( 1)/ 2.9907E-05, 4.7318E-01, 6.5921E-0    
+     *1/    
+      DATA G320( 2),G321( 2),G322( 2)/ 2.9907E-05, 4.7318E-01, 6.5921E-0    
+     *1/    
+      DATA G320( 3),G321( 3),G322( 3)/ 2.5820E-03, 3.5853E-01, 1.9776E+0    
+     *0/    
+      DATA G320( 4),G321( 4),G322( 4)/-5.3270E-03, 4.9418E-01, 1.4528E+0    
+     *0/    
+      DATA G320( 5),G321( 5),G322( 5)/-6.6341E-02, 1.4422E+00,-2.2407E+0    
+     *0/    
+      DATA G320( 6),G321( 6),G322( 6)/-3.6027E-01, 4.7190E+00,-1.1380E+0    
+     *1/    
+      DATA G320( 7),G321( 7),G322( 7)/-2.7953E+00, 2.6694E+01,-6.0986E+0    
+     *1/    
+      DATA G320( 8),G321( 8),G322( 8)/-3.6091E+00, 3.4125E+01,-7.7512E+0    
+     *1/    
+      DATA G320( 9),G321( 9),G322( 9)/ 1.2491E+01,-7.1103E+01, 9.4496E+0    
+     *1/    
+      DATA G320(10),G321(10),G322(10)/ 1.9637E+01,-1.1371E+02, 1.5794E+0    
+     *2/    
+      DATA G320(11),G321(11),G322(11)/ 2.1692E+00,-2.5019E+01, 4.5340E+0    
+     *1/    
+      DATA G320(12),G321(12),G322(12)/-1.6682E+01, 6.2067E+01,-5.5257E+0    
+     *1/    
+      DATA G320(13),G321(13),G322(13)/-2.1539E+01, 8.2651E+01,-7.7065E+0    
+     *1/    
+      DATA G320(14),G321(14),G322(14)/-1.4344E+01, 5.5193E+01,-5.0867E+0    
+     *1/    
+      DATA G320(15),G321(15),G322(15)/-5.4990E+00, 2.3874E+01,-2.3140E+0    
+     *1/    
+      DATA G320(16),G321(16),G322(16)/ 3.1029E+00,-4.4708E+00, 2.1318E-0    
+     *1/    
+      DATA G320(17),G321(17),G322(17)/ 6.0961E+00,-1.3670E+01, 7.2823E+0    
+     *0/    
+      DATA G320(18),G321(18),G322(18)/ 8.6179E+00,-2.0950E+01, 1.2536E+0    
+     *1/    
+      DATA G320(19),G321(19),G322(19)/ 7.5064E+00,-1.7956E+01, 1.0520E+0    
+     *1/    
+      DATA G320(20),G321(20),G322(20)/ 5.9838E+00,-1.4065E+01, 8.0342E+0    
+     *0/    
+      DATA G320(21),G321(21),G322(21)/ 4.4959E+00,-1.0456E+01, 5.8462E+0    
+     *0/    
+      DATA G320(22),G321(22),G322(22)/ 3.2847E+00,-7.6709E+00, 4.2445E+0    
+     *0/    
+      DATA G320(23),G321(23),G322(23)/ 1.9514E+00,-4.7505E+00, 2.6452E+0    
+     *0/    
+      DATA G320(24),G321(24),G322(24)/ 4.8808E-01,-1.6910E+00, 1.0459E+0    
+     *0/    
+      DATA G320(25),G321(25),G322(25)/ 4.8808E-01,-1.6910E+00, 1.0459E+0    
+     *0/    
+      DATA NBGB/ 8/,B0BGB/ 1.5714E+00/,B1BGB/ 2.1429E-01/   
+      DATA BGB0( 1),BGB1( 1),BGB2( 1)/-1.0724E+00, 2.8203E+00,-3.5669E-0    
+     *1/    
+      DATA BGB0( 2),BGB1( 2),BGB2( 2)/ 3.7136E-01, 1.4560E+00,-2.8072E-0    
+     *2/    
+      DATA BGB0( 3),BGB1( 3),BGB2( 3)/ 1.1396E+00, 1.1910E+00,-5.2070E-0    
+     *3/    
+      DATA BGB0( 4),BGB1( 4),BGB2( 4)/ 1.4908E+00, 1.1267E+00,-2.2565E-0    
+     *3/    
+      DATA BGB0( 5),BGB1( 5),BGB2( 5)/ 1.7342E+00, 1.0958E+00,-1.2705E-0    
+     *3/    
+      DATA BGB0( 6),BGB1( 6),BGB2( 6)/ 1.9233E+00, 1.0773E+00,-8.1806E-0    
+     *4/    
+      DATA BGB0( 7),BGB1( 7),BGB2( 7)/ 2.0791E+00, 1.0649E+00,-5.7197E-0    
+     *4/    
+      DATA BGB0( 8),BGB1( 8),BGB2( 8)/ 2.0791E+00, 1.0649E+00,-5.7197E-0    
+     *4/    
+      DATA NPTH/ 6/,B0PTH/ 2.0000E+00/,B1PTH/ 1.8182E+01/   
+      DATA PTH0( 1),PTH1( 1),PTH2( 1)/ 1.0000E+00, 9.8875E-01, 2.5026E+0    
+     *0/    
+      DATA PTH0( 2),PTH1( 2),PTH2( 2)/ 1.0000E+00, 9.8875E-01, 2.5026E+0    
+     *0/    
+      DATA PTH0( 3),PTH1( 3),PTH2( 3)/ 1.0060E+00, 7.8657E-01, 4.2387E+0    
+     *0/    
+      DATA PTH0( 4),PTH1( 4),PTH2( 4)/ 1.0657E+00,-2.5051E-01, 8.7681E+0    
+     *0/    
+      DATA PTH0( 5),PTH1( 5),PTH2( 5)/ 1.6971E+00,-7.5600E+00, 2.9946E+0    
+     *1/    
+      DATA PTH0( 6),PTH1( 6),PTH2( 6)/ 1.6971E+00,-7.5600E+00, 2.9946E+0    
+     *1/    
+C  RANDOM   
+      DATA IXX/123456789/   
+C  THRESH   
+      DATA RMT2/1.022007/,RMSQ/.2611245/    
+C  UPHIOT   
+      DATA PI/3.141593/,TWOPI/6.283185/,PI5D2/7.853982/ 
+C  USEFUL   
+      DATA RM/.5110034/ 
+C--------------------------------------------------
+C
+      CONTINUE
+      RETURN
+C  ******************************************************************   
+C  ********************* END OF EGS4 BLOCK DATA *********************   
+C  ******************************************************************   
+      END   
+      SUBROUTINE ANNIH  
+C                                  VERSION 4.XX  --   7 MAR 1985/2345   
+C  ******************************************************************   
+C     GAMMA SPECTRUM FOR TWO GAMMA IN-FLIGHT POSITRON ANNIHILATION. 
+C     USING SCHEME BASED ON HEITLER'S P269-27O FORMULAE 
+C     THIS ROUTINE SHOULD GIVE THE CORRECT DISTRIBUTION, BUT MORE   
+C     THOUGHT COULD BE PUT INTO DEVISING A FASTER SCHEME.  HOWEVER, 
+C     SINCE POSITRON ANNIHILATION IN FLIGHT IS RELATIVELY INFREQUENT    
+C     THIS MAY NOT BE WORTHWHILE.   
+C  ******************************************************************   
+      DOUBLE PRECISION PAVIP,PESG1,PESG2    
+      COMMON/QDEBUG/QDEBUG  
+      LOGICAL QDEBUG    
+      COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),DNEAR(40),W    
+     *T(40),IQ(40),IR(40),NP    
+      DOUBLE PRECISION E    
+      COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2   
+      COMMON/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE 
+      DOUBLE PRECISION PZERO,PRM,PRMT2  
+      COMMON/RANDOM/IXX 
+C  DEFAULT REPLACEMENT PRODUCES THE FOLLOWING:  
+C  COMIN/DEBUG,STACK,UPHIOT,USEFUL,RANDOM/; 
+      PAVIP=E(NP)+PRM   
+C  PRECISE AVAILABLE ENERGY OF INCIDENT POSITRON    
+      AVIP=PAVIP    
+C  AVAILABLE ENERGY OF INCIDENT POSITRON    
+      A=AVIP/RM 
+      AI=1.0/A  
+      G=A-1.0   
+      T=G-1.0   
+      P=SQRT(A*T)   
+      POT=P/T   
+C     SAMPLE 1/EP FROM EP=EP0 TO 1.0-EP0    
+      EP0=1.0/(A+P) 
+131   CONTINUE  
+      RNNO01=RNDM(IXX)  
+      EP=EP0*EXP(RNNO01*ALOG((1.0-EP0)/EP0))    
+C     NOW DECIDE WHETHER TO ACCEPT  
+      RNNO02=RNDM(IXX)  
+      REJF=1.0-EP+AI*AI*(2.0*G-1.0/EP)  
+      IF((RNNO02.LE.REJF))GO TO132  
+      GO TO 131 
+132   CONTINUE  
+C     THIS COMPLETES SAMPLING OF A DISTRIBUTION WHICH IS ASYMMETRIC 
+C     ABOUT EP=1/2, BUT WHICH WHEN SYMMETRIZED IS THE SYMMETRIC 
+C     ANNIHILATION DISTRIBUTION. PICK EP IN (1/2,1-EP0).    
+      EP=AMAX1(EP,1.0-EP)   
+C     SET UP ENERGIES   
+      ESG1=AVIP*EP  
+C  ENERGY OF SECONDARY GAMMA 1  
+      PESG1=ESG1    
+C  PRECISE ENERGY OF SECONDARY GAMMA 1  
+      E(NP)=PESG1   
+      PESG2=PAVIP-PESG1 
+      E(NP+1)=PESG2 
+      ESG2=PESG2    
+      IQ(NP)=0  
+C     SET UP COORD FOR HIGHER ENERGY GAMMA  
+      COSTHE=(ESG1-RM)*POT/ESG1 
+      SINTHE=SQRT(1.0-COSTHE*COSTHE)    
+      CALL UPHI(2,1)    
+C     SET UP LOWER ENERGY GAMMA 
+      NP=NP+1   
+      IQ(NP)=0  
+      COSTHE=(ESG2-RM)*POT/ESG2 
+      SINTHE=-SQRT(1.0-COSTHE*COSTHE)   
+      CALL UPHI(3,2)    
+      RETURN    
+C  END OF SUBROUTINE ANNIH  
+      END   
+      SUBROUTINE BHABHA 
+C                                  VERSION 4.XX  --   7 MAR 1985/2345   
+C  ******************************************************************   
+C     DISCRETE BHABHA SCATTERING (A CALL TO THIS ROUTINE) HAS BEEN  
+C     ARBITRARILY DEFINED AND CALCULATED TO MEAN BHABHA SCATTERINGS 
+C     WHICH IMPART TO THE SECONDARY ELECTRON SUFFICIENT ENERGY THAT 
+C     IT BE TRANSPORTED DISCRETELY, I.E. E=AE OR T=TE.  IT IS NOT   
+C     GUARANTEED THAT THE FINAL POSITRON WILL HAVE THIS MUCH ENERGY 
+C     HOWEVER.  THE EXACT BHABHA DIFFERENTIAL CROSS SECTION IS USED.    
+C  ******************************************************************   
+      DOUBLE PRECISION PEIP,PEKSE2,PESE1,PESE2  
+      DOUBLE PRECISION PEKIN,H1,DCOSTH  
+      COMMON/QDEBUG/QDEBUG  
+      LOGICAL QDEBUG    
+      COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),DNEAR(40),W    
+     *T(40),IQ(40),IR(40),NP    
+      DOUBLE PRECISION E    
+      COMMON/THRESH/RMT2,RMSQ,ESCD2,AP(10),AE(10),UP(10),UE(10),TE(10),T    
+     *HMOLL(10) 
+      COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2   
+      COMMON/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE 
+      DOUBLE PRECISION PZERO,PRM,PRMT2  
+      COMMON/RANDOM/IXX 
+C  DEFAULT REPLACEMENT PRODUCES THE FOLLOWING:  
+C  COMIN/DEBUG,STACK,THRESH,UPHIOT,USEFUL,RANDOM/;  
+      PEIP=E(NP)    
+C  PRECISE ENERGY OF INCIDENT POSITRON  
+      EIP=PEIP  
+C  ENERGY OF INCIDENT POSITRON  
+      PEKIN=PEIP-PRM    
+C  PRECISE K.E. OF INCIDENT POSITRON    
+      EKIN=PEKIN    
+      T0=EKIN/RM    
+      E0=T0+1.  
+      YY=1./(T0+2.) 
+      E02=E0*E0 
+      BETAI2=E02/(E02-1.)   
+      EP0=TE(MEDIUM)/EKIN   
+      EP0C=1.-EP0   
+      Y2=YY*YY  
+      YP=1.-2.*YY   
+      YP2=YP*YP 
+      B4=YP2*YP 
+      B3=B4+YP2 
+      B2=YP*(3.+Y2) 
+C     SAMPLE BR FROM MINIMUM(EP0) TO 1. 
+      B1=2.-Y2  
+141   CONTINUE  
+      RNNO03=RNDM(IXX)  
+      BR=EP0/(1.-EP0C*RNNO03)   
+C     APPLY REJECTION FUNCTION  
+      RNNO04=RNDM(IXX)  
+      REJF2=EP0C*(BETAI2-BR*(B1-BR*(B2-BR*(B3-BR*B4)))) 
+      IF((RNNO04.LE.REJF2))GO TO142 
+      GO TO 141 
+142   CONTINUE  
+C     IF E- GOT MORE THAN E+, MOVE THE E+ POINTER AND REFLECT B 
+      IF ((BR.LT.0.5)) THEN 
+      IQ(NP+1)=-1   
+      ELSE  
+      IQ(NP)=-1 
+      IQ(NP+1)=1    
+      BR=1.-BR  
+      END IF    
+C  THE ABOVE PUTS E+ ON TOP OF STACK IF IT HAS LESS ENERGY  
+C     DIVIDE UP THE ENERGY  
+      BR=AMAX1(BR,0.0)  
+C  AVOIDS POSSIBLE NEGATIVE NUMBER DUE TO ROUND-OFF 
+      PEKSE2=BR*EKIN    
+C  PRECISE KINETIC ENERGY OF SECONDARY 'ELECTRON' 2 
+      PESE1=PEIP-PEKSE2 
+C  PRECISE ENERGY OF SECONDARY 'ELECTRON' 1 
+      PESE2=PEKSE2+PRM  
+C  PRECISE ENERGY OF SECONDARY 'ELECTRON' 2 
+      ESE1=PESE1    
+      ESE2=PESE2    
+      E(NP)=PESE1   
+      E(NP+1)=PESE2 
+C     BHABHA ANGLES ARE UNIQUELY DETERMINED BY KINEMATICS   
+      H1=(PEIP+PRM)/PEKIN   
+C     DIRECTION COSINE CHANGE FOR 'OLD' ELECTRON    
+      DCOSTH=H1*(PESE1-PRM)/(PESE1+PRM) 
+      SINTHE=DSQRT(1.D0-DCOSTH) 
+      COSTHE=DSQRT(DCOSTH)  
+      CALL UPHI(2,1)    
+      NP=NP+1   
+      DCOSTH=H1*(PESE2-PRM)/(PESE2+PRM) 
+      SINTHE=-DSQRT(1.D0-DCOSTH)    
+      COSTHE=DSQRT(DCOSTH)  
+      CALL UPHI(3,2)    
+      RETURN    
+C  END OF SUBROUTINE BHABHA 
+      END   
+      SUBROUTINE BREMS  
+C                                  VERSION 4.XX  --   7 MAR 1985/2345   
+C  ******************************************************************   
+C     FOR ELECTRON ENERGY GREATER THAN 5.0 MEV, THE BETHE-HEITLER   
+C     CROSS SECTION IS EMPLOYED.    
+C  ******************************************************************   
+      DOUBLE PRECISION PEIE,PESG,PESE   
+      COMMON/QDEBUG/QDEBUG  
+      LOGICAL QDEBUG    
+      COMMON/BREMPR/DL1(6,10),DL2(6,10),DL3(6,10),DL4(6,10),DL5(6,10),DL    
+     *6(6,10),DELCM(10), ALPHI(2,10),BPAR(2,10),DELPOS(2,10),PWR2I(50)  
+      COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),DNEAR(40),W    
+     *T(40),IQ(40),IR(40),NP    
+      DOUBLE PRECISION E    
+      COMMON/THRESH/RMT2,RMSQ,ESCD2,AP(10),AE(10),UP(10),UE(10),TE(10),T    
+     *HMOLL(10) 
+      COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2   
+      COMMON/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE 
+      DOUBLE PRECISION PZERO,PRM,PRMT2  
+      COMMON/RANDOM/IXX 
+C  DEFAULT REPLACEMENT PRODUCES THE FOLLOWING:  
+C  COMIN/DEBUG,BREMPR,STACK,THRESH,UPHIOT,USEFUL,RANDOM/;   
+      DATA AI2LN2/0.7213475/    
+C  1./(2.*ALOG(2.)) 
+      PEIE=E(NP)    
+C  PRECISE ENERGY OF INCIDENT 'ELECTRON'    
+      EIE=PEIE  
+C  ENERGY OF INCIDENT 'ELECTRON'    
+C     DECIDE WHICH DISTRIBUTION TO USE (B-H COULOMB CORRECTED IS    
+C     USED FROM 50 TO 20000 MEV, B-H IS USED 1.5 TO 50 MEV) 
+      NP=NP+1   
+      IF ((EIE.LT.50.0)) THEN   
+      LVX=1 
+      LVL0=0    
+      ELSE  
+      LVX=2 
+      LVL0=3    
+      END IF    
+C     THE METHOD OF BUTCHER AND MESSEL FOR SAMPLING A CLASS OF  
+C     FACTORIZABLE FREQUENCY DISTRIBUTIONS IS USED. 
+C     OUR 'BR' VARIABLE IS THE SAME AS THEIR 'EPSILON' VARIABLE.    
+C     SEE BUTCHER AND MESSEL,NUCL.PHYS.,VOL.20,PP23,24. 
+C     COMPUTE NUMBER OF SUBDISTRIBUTIONS NEEDED TO PRODUCE PHOTONS  
+C     OF MINIMUM DISCRETE TRANSPORT ENRGY AP, IN CASE THE (1-BR)/BR 
+C     PART OF THE DISTRIBUTION IS USED. 
+C     ILOG2(X) IS THAT INTEGER FUNCTION OF X SUCH THAT . . .    
+C     2**(ILOG2(X)-1) .LE. X .LT. 2**(ILOG2(X)) 
+C  VARIOUS REJECTIONS CAN CAUSE RESAMPLE    
+      ABREMS=FLOAT(IFIX(1.44269*ALOG(EIE/AP(MEDIUM))))  
+151   CONTINUE  
+C     DECIDE WHETHER TO SAMPLE FROM THE (1-BR)/BR OR THE 2*BR PART  
+C     OF THE DISTRIBUTION.  
+      RNNO06=RNDM(IXX)  
+      IF ((0.5.LT.((ABREMS*ALPHI(LVX,MEDIUM)+0.5)*RNNO06))) THEN    
+C     USE THE (1-BR)/BR PART.  WHICH SUBDISTRIBUTION?   
+      RNNO07=RNDM(IXX)  
+      IDISTR=ABREMS*RNNO07  
+C     THIS CHOOSES IDISTR AT RANDOM FROM THE SET    
+C     (0,1,2, . . . , NBREMS - 1 )  
+      P=PWR2I(IDISTR+1) 
+C     SELECT SCREENING REJECTION FUNCTION   
+C     LVL=1    UNCOULOMB CORRECTED     A(DELTA) 
+C     LVL=2    UNCOULOMB CORRECTED     B(DELTA) 
+C     LVL=3    UNCOULOMB CORRECTED     C(DELTA) 
+C     LVL=4      COULOMB CORRECTED     A(DELTA) 
+C     LVL=5      COULOMB CORRECTED     B(DELTA) 
+C     LVL=6      COULOMB CORRECTED     C(DELTA) 
+      LVL=LVL0+1    
+C     USE A(DELTA), EITHER BORN OR COULOMB CORRECTED, DEPENDING ON  
+C     WHETHER LVL HAS BEEN PREVIOUSLY SET TO 0 OR 3.    
+C     ALL SUBDISTRIBUTIONS ARE SAMPLED BY FIRST SAMPLING FROM   
+C              (1./LOG(2.))*(1.-BR)/BR     IF 0.5 .LE. BR .LE. 1.   
+C              1./LOG(2.)                  IF   BR.LT. 0.5  
+C     AND THEN TAKING BR = BR*P 
+C     AI2LN2 IS ACTUALLY 1./(2.*LOG(2.)), WHICH IS THE PROBABILITY  
+C     THAT BR IS LESS THAN 0.5 IN THE ELEMENTARY DISTRIBUTION ABOVE.    
+      RNNO08=RNDM(IXX)  
+      IF ((RNNO08.GE.AI2LN2)) THEN  
+161   CONTINUE  
+      RNNO09=RNDM(IXX)  
+C  IF REJECTED FOR SUBDISTRIBUTION  
+      RNNO10=RNDM(IXX)  
+      RNNO11=RNDM(IXX)  
+      H=AMAX1(RNNO10,RNNO11)    
+      BR=1.0-0.5*H  
+      IF((RNNO09.LE.0.5/BR))GO TO162    
+C  REJECTION CONDITION  
+      GO TO 161 
+162   CONTINUE  
+C  END BR.GE.0.5 PART   
+C  SAMPLE BR.LT.0.5 PART    
+      ELSE  
+      RNNO12=RNDM(IXX)  
+      BR=RNNO12*0.5 
+      END IF    
+C  END OF BR.LT.0.5 PART    
+C     PRODUCT ENERGY FRACTION CHOSEN    
+      BR=BR*P   
+C  END (1-BR)/BR PART   
+      ELSE  
+C  USE THE 2*BR PART    
+      RNNO13=RNDM(IXX)  
+      RNNO14=RNDM(IXX)  
+      BR=AMAX1(RNNO13,RNNO14)   
+      LVL=LVL0+2    
+C  USE B(DELTA) FOR SCREENING FUNCTION  
+      END IF    
+C  END OF 2*BR PART OF DISTRIBUTION 
+C     ENERGY OF NEW PHOTON  
+C  ENERGY OF SECONDARY GAMMA    
+C     AP=0.256 MEV  ---  RM=0.511 MEV   
+C     AP IS SELECTED IN THE ROUTINE PEGS.   
+C     MINIMUM HARDNESS REQUIREMENT, CORRESPONDING TO LOWER BOUND    
+C     CHOICE FOR TOTAL CROSS SECTION INTEGRAL   
+C  TRY  
+      ESG=EIE*BR    
+      IF((ESG.LT.AP(MEDIUM)))GO TO151   
+      PESG=ESG  
+C  PRECISE ENERGY OF SECONDARY GAMMA    
+      PESE=PEIE-PESG    
+C  PRECISE ENERGY OF SECONDARY 'ELECTRON'   
+C  ENERGY OF SECONDARY 'ELECTRON'   
+C     THE ELECTRON MUST HAVE A MINIMUM ENERGY EQUAL TO 0.511 MEV    
+C  TRY  
+      ESE=PESE  
+      IF((ESE.LT.RM))GO TO151   
+C     DELTA=136.0*EXP(ZG)*RM*EE/(E*(1.0-EE))    
+C          =DELCM*EE/(E*(1.0-EE))=DELCM*DEL 
+C     WHERE E=ELECTRON INCIDENT ENERGY(MEV), AND EE=(PHOTON ENERGY)/E   
+C     ZG IS DEFINED IN THE PROGRAM SHINP, AND IS A WEIGHTED AVERAGE 
+C     OF LOG(Z**(-1./3.))  OVER THE VARIOUS TYPES OF ATOMS IN THE   
+C     MOLECULE (BUTCHER AND MESSEL, OP.CIT., P.17-19,22-24).    
+C     A(DELTA) AND B(DELTA) MUST ALWAYS BE POSITIVE 
+C  TRY  
+      DEL = BR/ESE  
+      IF((DEL.GE.DELPOS(LVX,MEDIUM)))GO TO151   
+      DELTA = DELCM(MEDIUM)*DEL 
+      IF ((DELTA.LT.1.0)) THEN  
+      REJF=DL1(LVL,MEDIUM)+DELTA*(DL2(LVL,MEDIUM)+DELTA*DL3(LVL,MEDIUM))    
+      ELSE  
+      REJF=DL4(LVL,MEDIUM)+DL5(LVL,MEDIUM)*ALOG(DELTA+DL6(LVL,MEDIUM))  
+      END IF    
+      RNSCRN=RNDM(IXX)  
+C  GET RANDOM NUMBER FOR SCREENING REJECTION    
+      IF((RNSCRN.LE.REJF))GO TO152  
+      GO TO 151 
+152   CONTINUE  
+C  LOOP UNTIL VALUE ACCEPTED    
+C     SET UP THE NEW PHOTON 
+      THETA=RM/EIE  
+C  DEFAULT IS: THETA=RM/EIE;    
+C  NOW GET LOWEST ENERGY PARTICLE ON TOP OF STACK AND SET CHARGES   
+      CALL UPHI(1,3)    
+      IF ((ESG.LE.ESE)) THEN    
+      IQ(NP)=0  
+C  SET PHOTON CHARGE    
+      E(NP)=PESG    
+      E(NP-1)=PESE  
+C  PHOTON TOP,ELECTRON BOTTOM   
+C  MUST PUT ELECTRON ON TOP 
+      ELSE  
+      IQ(NP)=IQ(NP-1)   
+C  TRANSFER CHARGE FROM INCOMING 'ELECTRON' 
+      IQ(NP-1)=0    
+      E(NP)=PESE    
+      E(NP-1)=PESG  
+C  ELECTRON TOP,PHOTON BOTTOM   
+      T=U(NP)   
+      U(NP)=U(NP-1) 
+      U(NP-1)=T 
+C  SWAP U   
+      T=V(NP)   
+      V(NP)=V(NP-1) 
+      V(NP-1)=T 
+C  SWAP V   
+      T=W(NP)   
+      W(NP)=W(NP-1) 
+      W(NP-1)=T 
+C  SWAP W   
+      END IF    
+C  END OF SWAPPING  
+      RETURN    
+C  END OF SUBROUTINE BREMS  
+      END   
+      SUBROUTINE COMPT  
+C                                  VERSION 4.XX  --   7 MAR 1985/2345   
+C  ******************************************************************   
+C     BUTCHER AND MESSEL'S CROSS SECTION EXPRESSION IS USED 
+C     (BUTCHER AND MESSEL, OP.CIT., P. 17-19,25), BUT THE   
+C     1/EPSILON PART IS NOT SAMPLED IN THE WAY THAT THEY DO.    
+C     THIS ROUTINE CALLS THEIR 'EPSILON' VARIABLE BY THE NAME 'BR'. 
+C     BR=FINAL PHOTON ENERGY /INITIAL PHOTON ENERGY.    
+C     BR0 = MINIMUM BR = 1./(1.+2.*(E(NP)/RM))  
+C     MAXIMUM BR IS 1.  
+C     BUTCHER AND MESSEL'S EXPRESSION FOR THE DIFFERENTIAL CROSS    
+C     SECTION IS PROPORTIONAL TO    
+C          (1./BR+BR)*(1.-BR*SINTHE**2/(1.+BR*BR))  
+C     WE SHALL SAMPLE FROM THE FIRST FACTOR FROM THE INTERVAL (BR0,1)   
+C     AND USE THE SECOND FACTOR AS A REJECTION FUNCTION.    
+C  ******************************************************************   
+      DOUBLE PRECISION PEIG,PESG,PESE   
+      COMMON/QDEBUG/QDEBUG  
+      LOGICAL QDEBUG    
+      COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),DNEAR(40),W    
+     *T(40),IQ(40),IR(40),NP    
+      DOUBLE PRECISION E    
+      COMMON/THRESH/RMT2,RMSQ,ESCD2,AP(10),AE(10),UP(10),UE(10),TE(10),T    
+     *HMOLL(10) 
+      COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2   
+      COMMON/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE 
+      DOUBLE PRECISION PZERO,PRM,PRMT2  
+      COMMON/RANDOM/IXX 
+C  DEFAULT REPLACEMENT PRODUCES THE FOLLOWING:  
+C  COMIN/DEBUG,STACK,THRESH,UPHIOT,USEFUL,RANDOM/;  
+      PEIG=E(NP)    
+C  PRECISE ENERGY OF INCIDENT GAMMA 
+      EIG=PEIG  
+C  ENERGY OF INCIDENT GAMMA 
+      EGP=EIG/RM    
+C     BR0I IS THE INVERSE OF BR0    
+      BR0I=1.+2.*EGP    
+      ALPH1=ALOG(BR0I)  
+      ALPH2=EGP*(BR0I+1.)/(BR0I*BR0I)   
+C     DUE TO REJECTION, SOME EXPRESSIONS WHICH ONLY APPEAR ONCE IN  
+C     THE CODE BELOW, MAY ACTUALLY BE NEEDED MORE THAN ONCE.    
+C  RETRY IF REJECTED    
+      SUMALP = ALPH1+ALPH2  
+171   CONTINUE  
+C     WHICH PART OF  1./BR + BR TO SAMPLE FROM ?    
+      RNNO15=RNDM(IXX)  
+      IF ((ALPH1.GE.SUMALP*RNNO15)) THEN    
+C  USE 1/BR PART OF DISTRIBUTION    
+      RNNO16=RNDM(IXX)  
+      BR=EXP(ALPH1*RNNO16)/BR0I 
+C  END OF 1/BR PART 
+      ELSE  
+C  USE LINEAR ( BR ) PART OF DISTRIBUTION   
+      BRP=RNDM(IXX) 
+      RNNO18=RNDM(IXX)  
+      IF ((EGP.GE.(EGP+1.)*RNNO18)) THEN    
+      RNNO19=RNDM(IXX)  
+      BRP=AMAX1(BRP,RNNO19) 
+      END IF    
+      BR=((BR0I-1.)*BRP+1.)/BR0I    
+      END IF    
+C  END SAMPLING OF LINEAR PART  
+C     BR=FINAL PHOTON ENERGY FRACTION   
+      ESG=BR*EIG    
+C  ENERGY OF SECONDARY GAMMA    
+C     THE COMPTON ANGLES FOR PHOTON AND RECOIL ELECTRON ARE UNIQUELY    
+C     DETERMINED BY THE CONSERVATION LAWS   
+      A1MIBR = 1.-BR    
+      TEMP=RM*A1MIBR/ESG    
+C     THE AMAX1 IN THE FF. IS TO PREVENT SINTHE.LT.0 FROM TRUNC ERROR   
+      SINTHE=AMAX1(0.0,TEMP*(2.0-TEMP)) 
+C     COMPARE REJECTION FUNCTION WITH RANDOM NUMBER.    
+      RNNO20=RNDM(IXX)  
+      REJF3=1.0-BR*SINTHE/(1.0+BR*BR)   
+      IF((RNNO20.LE.REJF3))GO TO172 
+      GO TO 171 
+172   CONTINUE  
+C  LOOP UNTIL ACCEPTED  
+      SINTHE=SQRT(SINTHE)   
+      COSTHE=1.0-TEMP   
+C     THE RECOIL ELECTRON IS ADDED TO THE SHOWER MEMORY.  THE EXTRA 
+C     REST MASS ENERGY WILL BE DISCARDED WHEN THE   
+C     ELECTRON IS THROWN AWAY.  
+      PESG=ESG  
+C  PRECISE ENERGY OF SECONDARY GAMMA    
+      PESE=PEIG-PESG+PRM    
+C  PRECISE ENERGY OF SECONDARY ELECTRON 
+      ESE=PESE  
+C  ENERGY OF SECONDARY ELECTRON 
+C     DIRECTION COSINE CHANGE FOR OLD PHOTON    
+      CALL UPHI(2,1)    
+C     RELATED CHANGE AND (X,Y,Z) SETUP FOR NEW ELECTRON 
+      NP=NP+1   
+C  WE NOW POINT AT ELECTRON 
+C     PSQ HERE IS THE MOMENTUM SQUARED. 
+      PSQ=ESE**2-RMSQ   
+      IF ((PSQ.LE.0.0)) THEN    
+C     THE ABOVE IS TO AVOID DIVISION BY ZERO IN  CASE TRUNCATION    
+C     ERRORS MAKE BR=1 AND HENCE E(NP)=RM, AND PSQ=0    
+      COSTHE=0. 
+      SINTHE=-1.    
+C  END PSQ.LE.0 CASE    
+C  OK TO DIVIDE, PSQ IS POSITIVE    
+      ELSE  
+      COSTHE=(ESE+ESG)*A1MIBR/SQRT(PSQ) 
+      SINTHE=-SQRT(AMAX1(0.0,1.0-COSTHE*COSTHE))    
+      END IF    
+C  END OF PSQ.GT.0 CASE 
+C  NOW GET LOWEST ENERGY PARTICLE ON TOP OF STACK AND SET CHARGES   
+      CALL UPHI(3,2)    
+      IF ((ESE.LE.ESG)) THEN    
+      IQ(NP)=-1 
+C  ELECTRON IS ON TOP   
+      E(NP)=PESE    
+      E(NP-1)=PESG  
+C  SET ENERGIES 
+C  MUST PUT GAMMA ON TOP    
+      ELSE  
+      IQ(NP)=0  
+      IQ(NP-1)=-1   
+      E(NP)=PESG    
+      E(NP-1)=PESE  
+C  SET ENERGIES 
+      T=U(NP)   
+      U(NP)=U(NP-1) 
+      U(NP-1)=T 
+C  SWAP U   
+      T=V(NP)   
+      V(NP)=V(NP-1) 
+      V(NP-1)=T 
+C  SWAP V   
+      T=W(NP)   
+      W(NP)=W(NP-1) 
+      W(NP-1)=T 
+C  SWAP W   
+      END IF    
+C  END OF SWAPPING  
+      RETURN    
+C  END OF SUBROUTINE COMPT  
+      END   
+      SUBROUTINE ELECTR(IRCODE) 
+C                                  VERSION 4.XX  --   7 MAR 1985/2345   
+C  ******************************************************************   
+      DOUBLE PRECISION PEIE 
+      COMMON/QDEBUG/QDEBUG  
+      LOGICAL QDEBUG    
+      COMMON/BOUNDS/ECUT(200),PCUT(200),VACDST    
+      COMMON/ELECIN/EKELIM,ICOMP,EKE0(10),EKE1(10),CMFP0(10),CMFP1(10),R    
+     *ANGE0(10),RANGE1(10), XR0(10),TEFF0(10),BLCC(10),XCC(10),PICMP0(1,    
+     *10),PICMP1(1,10),EICMP0(1,10),EICMP1(1,10),MPEEM(1,10), ESIG0(150,    
+     *10),ESIG1(150,10),PSIG0(150,10),PSIG1(150,10),EDEDX0(150,10),EDEDX    
+     *1(150,10),PDEDX0(150,10),PDEDX1(150,10),EBR10(150,10),EBR11(150,10    
+     *),PBR10(150,10),PBR11(150,10),PBR20(150,10),PBR21(150,10),TMXS0(15    
+     *0,10),TMXS1(150,10),CMFPE0(1,10),CMFPE1(1,10),CMFPP0(1,10),CMFPP1(    
+     *1,10),ERANG0(1,10),ERANG1(1,10),PRANG0(1,10),PRANG1(1,10),CXC2E0(1    
+     *,10),CXC2E1(1,10),CXC2P0(1,10),CXC2P1(1,10),CLXAE0(1,10),CLXAE1(1,    
+     *10),CLXAP0(1,10),CLXAP1(1,10), THR0(1,1),THR1(1,1),THR2(1,1),THRI0    
+     *(1,1),THRI1(1,1),THRI2(1,1),FSTEP(16),FSQR(16),MSMAP(200), VERT1(1    
+     *000),VERT2(100,16),MSTEPS,JRMAX,MXV1, MXV2,NBLC,NRNTH,NRNTHI,BLC0,    
+     *BLC1,RTHR0,RTHR1,RTHRI0,RTHRI1    
+      COMMON/EPCONT/EDEP,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, IDISC,IROLD,IR    
+     *NEW,RHOF,EOLD,ENEW,EKE,ELKE,BETA2,BETA, GLE,TSCAT,IAUSFL(25)  
+      DOUBLE PRECISION EDEP 
+      COMMON/MEDIA/NMED,RLC(10),RLDU(10),RHO(10),MSGE(10),MGE(10),MSEKE(    
+     *10),MEKE(10),MLEKE(10),MCMFP(10),MRANGE(10),IRAYLM(10)    
+      COMMON/MEDIAC/MEDIA(24,10)    
+      CHARACTER*4 MEDIA 
+      COMMON/MISC/KMPI,KMPO,DUNIT,NOSCAT,MED(200),RHOR(200),IRAYLR(200)
+      COMMON/PATHCM/NPTH,B0PTH,B1PTH,PTH0(6),PTH1(6),PTH2(6)    
+      COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),DNEAR(40),W    
+     *T(40),IQ(40),IR(40),NP    
+      DOUBLE PRECISION E    
+      COMMON/THRESH/RMT2,RMSQ,ESCD2,AP(10),AE(10),UP(10),UE(10),TE(10),T    
+     *HMOLL(10) 
+      COMMON/UPHIIN/SINC0,SINC1,SIN0(1002),SIN1(1002)   
+      COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2   
+      COMMON/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE 
+      DOUBLE PRECISION PZERO,PRM,PRMT2  
+      COMMON/RANDOM/IXX 
+C  DEFAULT REPLACEMENT PRODUCES THE FOLLOWING:  
+C  COMIN/DEBUG,BOUNDS,ELECIN,EPCONT,MEDIA,MISC,PATHCM,  
+C    STACK,THRESH,UPHIIN,UPHIOT,USEFUL,USER,RANDOM/;    
+      IRCODE=1  
+C  SET UP NORMAL RETURN-WHICH MEANS THERE IS A PHOTON   
+C     WITH LESS AVAILABLE ENERGY THAN THE LOWEST ENERGY ELECTRON,   
+C     SO RETURN TO SHOWER SO IT CAN CALL PHOTON TO FOLLOW IT.   
+      IROLD=IR(NP)  
+C  INITIALIZE PREVIOUS REGION   
+      IRL=IR(NP)    
+C  REGION NUMBER IN LOCAL VARIABLE. 
+C  GET MEDIUM OF CURRENT PARTICLE   
+C  GO ONCE THROUGH THIS LOOP FOR EACH   
+      MEDIUM=MED(IRL)   
+180   CONTINUE  
+181   CONTINUE  
+C    'NEW' ELECTRON WHOSE CHARGE AND ENERGY HAS NOT BEEN CHECKED    
+      LELEC=IQ(NP)  
+C  SAVE CHARGE IN LOCAL VARIABLE    
+      PEIE=E(NP)    
+C  PRECISE ENERGY OF INCIDENT ELECTRON  
+C  ENERGY INCIDENT ELECTRON 
+      EIE=PEIE  
+      IF ((EIE.LE.ECUT(IRL))) THEN  
+      GO TO 190 
+      END IF    
+C  GO THROUGH THIS LOOP EACH TIME WE RECOMPUTE  
+      MEDIUM=MED(IRL)   
+200   CONTINUE  
+C        DISTANCE TO AN INTERACTION.    
+C  NOT VACUUM. MUST SAMPLE TO SEE HOW FAR   
+201   CONTINUE  
+      IF ((MEDIUM.NE.0)) THEN   
+C                   TO NEXT INTERACTION 
+      RNNE1=RNDM(IXX)   
+      IF ((RNNE1.EQ.0.0)) THEN  
+      RNNE1=1.E-30  
+      END IF    
+      DEMFP=-ALOG(RNNE1)    
+C  THE DEFAULT (MACRO) FOR THE ABOVE IS: $RANDOMSET RNNE1;  
+C                                        DEMFP=-ALOG(RNNE1);    
+      EKE=EIE-RM    
+      ELKE=ALOG(EKE)    
+C  PREPARE TO APPROXIMATE CROSS SECTION 
+      LELKE=EKE1(MEDIUM)*ELKE+EKE0(MEDIUM)  
+      IF ((LELEC.LT.0)) THEN    
+      SIG0=ESIG1(LELKE,MEDIUM)*ELKE+ESIG0(LELKE,MEDIUM) 
+C  E+   
+      ELSE  
+      SIG0=PSIG1(LELKE,MEDIUM)*ELKE+PSIG0(LELKE,MEDIUM) 
+      END IF    
+      END IF    
+C  END NON-VACUUM TEST  
+C  HERE FOR EACH CHECK WITH USER GEOMETRY   
+210   CONTINUE  
+C     COMPUTE SIZE OF MAXIMUM ACCEPTABLE STEP, WHICH IS LIMITED 
+C     BY MULTIPLE SCATTERING OR OTHER APPROXIMATIONS.   
+C  VACUUM   
+211   CONTINUE  
+      IF ((MEDIUM.EQ.0)) THEN   
+      TSTEP=VACDST  
+      USTEP=TSTEP   
+      TUSTEP=USTEP  
+C  NON-VACUUM   
+      ELSE  
+      RHOF=RHOR(IRL)/RHO(MEDIUM)    
+C  DENSITY RATIO SCALING TEMPLATE   
+C  THIS CAN HAPPEN IF THE THRESHOLD FOR BREMS,  
+      SIG=SIG0*RHOF 
+      IF ((SIG.LE.0.0)) THEN    
+C     (AP+RM), IS GREATER THAN AE.  MOLLER THRESHOLD IS 2*AE-RM.    
+C     IF SIG IS ZERO, WE ARE BELOW THE THRESHOLDS FOR BOTH  
+C     BREMSSTRAHLUNG AND MOLLER.  IN THIS CASE WE WILL JUST LOSE    
+C     ENERGY BY IONIZATION LOSS UNTIL WE GO BELOW CUT-OFF.  
+C     DO NOT ASSUME RANGE IS AVAILABLE, SO JUST ASK FOR STEP SAME AS    
+C     VACUUM.  ELECTRON TRANSPORT WILL REDUCE INTO LITTLE STEPS.    
+      TSTEP=VACDST  
+      ELSE  
+      TSTEP=DEMFP/SIG   
+      END IF    
+C  END SIG IF-ELSE  
+      TMXS=TMXS1(LELKE,MEDIUM)*ELKE+TMXS0(LELKE,MEDIUM) 
+      TP=200.*TEFF0(MEDIUM) 
+      TMXS=AMIN1(TMXS,TP)   
+      TMXS=TMXS/RHOF    
+C     COMPUTE THE RANGE TO ECUT(IRL)-$ENEPS.  DO NOT GO MORE    
+C     THAN RANGE.   
+C  ELECTRON 
+      TUSTEP=AMIN1(TSTEP,TMXS)  
+      IF ((LELEC.LT.0)) THEN    
+      DEDX0=EDEDX1(LELKE,MEDIUM)*ELKE+EDEDX0(LELKE,MEDIUM)  
+C  POSITRON 
+      ELSE  
+      DEDX0=PDEDX1(LELKE,MEDIUM)*ELKE+PDEDX0(LELKE,MEDIUM)  
+      END IF    
+      DEDX=RHOF*DEDX0   
+      RANGE=(EIE-ECUT(IRL)+0.001)/DEDX  
+      BETA2=AMAX1(1.E-8,1.-RMSQ/EIE**2) 
+      TSCAT=RLDU(MEDIUM)*(EIE*BETA2*0.094315)**2    
+C  0.094315=2/ESUBS 
+      TSCAT=TSCAT/RHOF  
+      TUSTEP=AMIN1(TUSTEP,0.3*TSCAT,RANGE)  
+C  TUSTEP RESTRICTION MACRO TEMPLATE    
+      USTEP=TUSTEP*(1.-TUSTEP/TSCAT)    
+C  PATH LENGTH CORRECTION MACRO TEMPLATE    
+      END IF    
+C  END NON-VACUUM TEST  
+C  ADDITIONAL TUSTEP RESTRICTION IN EM FIELD    
+C  ADDITIONAL USTEP RESTRICTION IN EM FIELD 
+      IRNEW=IR(NP)  
+C  DEFAULT NEW REGION IS OLD REGION 
+      IDISC=0   
+C  DEFAULT IS NO DISCARD    
+      USTEP0=USTEP  
+      IF ((USTEP.GT.DNEAR(NP))) THEN    
+      CALL HOWFAR   
+      END IF    
+C  DEFAULT IS NULL  
+C     NOW SEE IF USER REQUESTED DISCARD 
+C  USER REQUESTED IMMEDIATE DISCARD 
+      IF ((IDISC.GT.0)) THEN    
+      GO TO 220 
+      END IF    
+C  NEGATIVE USTEP---PROBABLE TRUNCATION PROBLEM AT  
+      IF ((USTEP.LE.0.0)) THEN  
+C     A BOUNDARY, WHICH MEANS WE ARE NOT IN THE REGION WE THINK WE  
+C     ARE IN.  THE DEFAULT MACRO ASSUMES THAT USER HAS SET IRNEW TO 
+C     THE REGION WE ARE REALLY MOST LIKELY TO BE IN.  A MESSAGE IS  
+C     WRITTEN OUT WHENEVER USTEP IS LESS THAN -1.E-4    
+      IF ((USTEP.LT.-1.E-4)) THEN   
+      WRITE(6,230)USTEP 
+230   FORMAT(' NEGATIVE USTEP=',G20.10) 
+      END IF    
+      USTEP=0.0 
+      END IF    
+C     DO FAST STEP  
+C  STEP IN VACUUM   
+      IF ((USTEP.EQ.0.0.OR.MEDIUM.EQ.0)) THEN   
+      IF ((USTEP.NE.0.0)) THEN  
+      VSTEP=USTEP   
+      TVSTEP=VSTEP  
+      EDEP=PZERO    
+C  NO ENERGY LOSS IN VACUUM 
+C  ADDITIONAL VACUUM TRANSPORT IN EM FIELD  
+      IARG=0    
+      IF ((IAUSFL(IARG+1).NE.0)) THEN   
+      CALL AUSGAB(IARG) 
+      END IF    
+      X(NP)=X(NP)+U(NP)*VSTEP   
+      Y(NP)=Y(NP)+V(NP)*VSTEP   
+      Z(NP)=Z(NP)+W(NP)*VSTEP   
+      DNEAR(NP)=DNEAR(NP)-VSTEP 
+      IROLD=IR(NP)  
+C  SAVE PREVIOUS REGION 
+C  END OF VACUUM STEP   
+      END IF    
+      IR(NP)=IRNEW  
+C  GET NEW REGION IF ANY.   
+      IRL=IRNEW 
+C  GET NEW MEDIUM, IF ANY.  
+      MEDIUM=MED(IRL)   
+      IF ((EIE.LE.ECUT(IRL))) THEN  
+      GO TO 190 
+      END IF    
+      IF ((USTEP.NE.0.0)) THEN  
+      IARG=5    
+      IF ((IAUSFL(IARG+1).NE.0)) THEN   
+      CALL AUSGAB(IARG) 
+      END IF    
+      END IF    
+      GO TO 201 
+      END IF    
+C  GO TRY ANOTHER BIG STEP IN (POSSIBLY) NEW MEDIUM 
+      VSTEP=USTEP   
+      IF ((USTEP.EQ.USTEP0)) THEN   
+      TVSTEP=TUSTEP 
+      ELSE  
+      VSTP=VSTEP/TSCAT  
+      IPTH=B0PTH+B1PTH*VSTP 
+      IF ((IPTH.GT.NPTH)) THEN  
+      WRITE(6,240)VSTP,IPTH,NPTH    
+240   FORMAT(' OUT OF BOUNDS IPTH: VSTP,IPTH,NPTH=',1PG15.6,2I10)   
+      STOP  
+      END IF    
+      PTH=PTH0(IPTH)+VSTP*(PTH1(IPTH)+VSTP*PTH2(IPTH))  
+      TVSTEP=PTH*VSTEP  
+      END IF    
+C  PATH LENGTH CORRECTION MACRO TEMPLATE    
+C  ADDITIONAL PATH LENGTH CORRECTION IN EM FIELD    
+C     NOW TAKE IONIZATION LOSSES INTO ACCOUNT   
+C  DEFAULT IS NULL  
+      DE=DEDX*TVSTEP    
+C     THE FOLLOWING MACRO TEMPLATE ALLOWSS THE USER TO CHANGE THE   
+C     IONIZATION LOSS (E.G., TO INCLUDE 'LANDAU SAMPLING'). 
+C     DEFAULT IS NULL.  
+      EDEP=DE   
+C  ENERGY DEPOSITION VARIABLE FOR USER  
+C  E-LOSS OR -GAIN IN EM FIELD  
+      EKEF=EKE-DE   
+      EOLD=EIE  
+C  SAVE OLD VALUE   
+      ENEW=EOLD-DE  
+C  ENERGY AT END OF TRANSPORT   
+C     NOW MULTIPLE SCATTERING   
+      CALL MSCAT    
+C  SAMPLE THE MULTIPLE SCATTERING ANGLE 
+C     WE NOW KNOW DISTANCE AND AMOUNT OF ENERGY LOSS FOR THIS STEP, 
+C     AND THE ANGLE BY WHICH THE ELECTRON WILL BE SCATTERED. HENCE, 
+C     IT IS TIME TO CALL THE USER AND INFORM HIM OF THIS TRANSPORT, 
+C     AFTER WHICH WE WILL DO IT.    
+C     NOW TRANSPORT,DEDUCT ENERGY LOSS, AND DO MULTIPLE SCATTER.    
+      IARG=0    
+      IF ((IAUSFL(IARG+1).NE.0)) THEN   
+      CALL AUSGAB(IARG) 
+      END IF    
+      X(NP)=X(NP)+U(NP)*VSTEP   
+      Y(NP)=Y(NP)+V(NP)*VSTEP   
+      Z(NP)=Z(NP)+W(NP)*VSTEP   
+      DNEAR(NP)=DNEAR(NP)-VSTEP 
+      IROLD=IR(NP)  
+C  SAVE PREVIOUS REGION 
+      CALL UPHI(2,1)    
+C     NOW DONE WITH MULTIPLE SCATTERING_    
+C     NOW UPDATE ENERGY AND SEE IF BELOW CUT    
+      PEIE=PEIE-EDEP    
+      EIE=PEIE  
+      E(NP)=PEIE    
+      IF ((EIE.LE.ECUT(IRL))) THEN  
+      GO TO 190 
+      END IF    
+      MEDOLD=MEDIUM 
+      IF ((MEDIUM.NE.0)) THEN   
+      EKEOLD=EKE    
+      EKE=EIE-RM    
+C  UPDATE KINETIC ENERGY    
+      ELKE=ALOG(EKE)    
+      LELKE=EKE1(MEDIUM)*ELKE+EKE0(MEDIUM)  
+C  GET UPDATED INTERVAL 
+      END IF    
+C  REGION CHANGE    
+      IF ((IRNEW.NE.IROLD)) THEN    
+      IR(NP)=IRNEW  
+      IRL=IRNEW 
+      MEDIUM=MED(IRL)   
+      END IF    
+      IF ((EIE.LE.ECUT(IRL))) THEN  
+      GO TO 190 
+      END IF    
+C     AFTER TRANSPORT CALL TO USER  
+      IARG=5    
+      IF ((IAUSFL(IARG+1).NE.0)) THEN   
+      CALL AUSGAB(IARG) 
+      END IF    
+C     NOW CHECK FOR DEFERRED DISCARD REQUEST.  MAY HAVE BEEN SET    
+C     BY EITHER HOWFAR, OR ONE OF THE TRANSPORT AUSGAB CALLS    
+      IF((IDISC.LT.0))GO TO 220 
+      IF((MEDIUM.NE.MEDOLD))GO TO 201   
+      DEMFP=AMAX1(0.,DEMFP-TVSTEP*SIG)  
+      IF(((DEMFP.LE.1.E-6)))GO TO212    
+      GO TO 211 
+212   CONTINUE  
+C  END USTEP LOOP   
+C     COMPUTE FINAL SIGMA TO SEE IF RESAMPLE IS NEEDED. 
+C     THIS WILL TAKE THE ENERGY VARIATION OF THE SIGMA INTO 
+C     ACCOUNT USING THE FICTITIOUS SIGMA METHOD.    
+C  ELECTRON 
+      IF ((LELEC.LT.0)) THEN    
+      SIGF=ESIG1(LELKE,MEDIUM)*ELKE+ESIG0(LELKE,MEDIUM) 
+C  POSITRON 
+      ELSE  
+      SIGF=PSIG1(LELKE,MEDIUM)*ELKE+PSIG0(LELKE,MEDIUM) 
+      END IF    
+      RFICT=RNDM(IXX)   
+      IF(((RFICT.LE.SIGF/SIG0)))GO TO202    
+      GO TO 201 
+202   CONTINUE  
+C  END TSTEP LOOP   
+C     NOW SAMPLE ELECTRON INTERACTION   
+C  E-,CHECK BRANCHING RATIO.    
+      IF ((LELEC.LT.0)) THEN    
+C  =BREMS/TOTAL 
+      EBR1=EBR11(LELKE,MEDIUM)*ELKE+EBR10(LELKE,MEDIUM) 
+C  IT WAS BREMSSTRAHLUNG    
+      RNNO24=RNDM(IXX)  
+      IF ((RNNO24.LE.EBR1)) THEN    
+      GO TO 250 
+C  IT WAS MOLLER, BUT FIRST CHECK THE KINEMATICS.   
+C  NOT ENOUGH ENERGY FOR MOLLER, SO 
+      ELSE  
+C     FORCE IT TO BE A BREMSSTRAHLUNG---PROVIDED OK KINEMATICALLY.  
+      IF ((E(NP).LE.THMOLL(MEDIUM))) THEN   
+      IF ((EBR1.LE.0.0)) THEN   
+      GO TO 180 
+      END IF    
+C  BREMS. NOT ALLOWED EITHER    
+      GO TO 250 
+      END IF    
+      IARG=8    
+      IF ((IAUSFL(IARG+1).NE.0)) THEN   
+      CALL AUSGAB(IARG) 
+      END IF    
+      CALL MOLLER   
+C     THE FOLLOWING MACRO TEMPLATE ALLOWS THE USER TO CHANGE THE    
+C     PARTICLE SELECTION SCHEME (E.G., ADDING IMPORTANCE SAMPLING   
+C     SUCH AS SPLITTING, LEADING PARTICLE SELECTION, ETC.). 
+C     (DEFAULT MACRO IS TEMPLATE $PARTICLE-SELECTION-ELECTR'    
+C     WHICH IN TURN HAS THE 'NULL' REPLACEMENT ';') 
+      IARG=9    
+      IF ((IAUSFL(IARG+1).NE.0)) THEN   
+      CALL AUSGAB(IARG) 
+      END IF    
+      END IF    
+      GO TO 180 
+      END IF    
+C  ELECTRON IS LOWEST ENERGY-FOLLOW IT  
+C     ELSE E+ INTERACTION. PBR1=BREMS/(BREMS+BHABHA+ANNIH)  
+      PBR1=PBR11(LELKE,MEDIUM)*ELKE+PBR10(LELKE,MEDIUM) 
+      RNNO25=RNDM(IXX)  
+      IF ((RNNO25.LT.PBR1)) THEN    
+      GO TO 250 
+      END IF    
+C  IT WAS BREMSSTRAHLUNG    
+C     ELSE DECIDE BETWEEN BHABHA AND ANNIHILATION   
+C     PBR2 IS (BREMS+BHABHA)/(BREMS+BHABHA+ANNIH)   
+C  IT IS BHABHA 
+      PBR2=PBR21(LELKE,MEDIUM)*ELKE+PBR20(LELKE,MEDIUM) 
+      IF ((RNNO25.LT.PBR2)) THEN    
+      IARG=10   
+      IF ((IAUSFL(IARG+1).NE.0)) THEN   
+      CALL AUSGAB(IARG) 
+      END IF    
+      CALL BHABHA   
+C     THE FOLLOWING MACRO TEMPLATE ALLOWS THE USER TO CHANGE THE    
+C     PARTICLE SELECTION SCHEME (E.G., ADDING IMPORTANCE SAMPLING   
+C     SUCH AS SPLITTING, LEADING PARTICLE SELECTION, ETC.). 
+C     (DEFAULT MACRO IS TEMPLATE $PARTICLE-SELECTION-ELECTR'    
+C     WHICH IN TURN HAS THE 'NULL' REPLACEMENT ';') 
+      IARG=11   
+      IF ((IAUSFL(IARG+1).NE.0)) THEN   
+      CALL AUSGAB(IARG) 
+      END IF    
+C  IT IS IN-FLIGHT ANNIHILATION 
+      ELSE  
+      IARG=12   
+      IF ((IAUSFL(IARG+1).NE.0)) THEN   
+      CALL AUSGAB(IARG) 
+      END IF    
+      CALL ANNIH    
+C     THE FOLLOWING MACRO TEMPLATE ALLOWS THE USER TO CHANGE THE    
+C     PARTICLE SELECTION SCHEME (E.G., ADDING IMPORTANCE SAMPLING   
+C     SUCH AS SPLITTING, LEADING PARTICLE SELECTION, ETC.). 
+C     (DEFAULT MACRO IS TEMPLATE $PARTICLE-SELECTION-ELECTR'    
+C     WHICH IN TURN HAS THE 'NULL' REPLACEMENT ';') 
+      IARG=13   
+      IF ((IAUSFL(IARG+1).NE.0)) THEN   
+      CALL AUSGAB(IARG) 
+      END IF    
+      GO TO 182 
+C  I.E., IN ORDER TO RETURN TO SHOWER   
+C     AFTER ANNIHILATION THE GAMMAS ARE BOUND TO BE THE LOWEST ENERGY   
+C     PARTICLES, SO RETURN AND FOLLOW THEM. 
+      END IF    
+C  END PBR2 ELSE    
+      GO TO 181 
+182   CONTINUE  
+C  :NEWELECTRON:    
+C  I.E., RETURN TO SHOWER   
+C  ---------------------------------------------    
+C  BREMSSTRAHLUNG-CALL SECTION  
+C  ---------------------------------------------    
+      RETURN    
+250   IARG=6    
+      IF ((IAUSFL(IARG+1).NE.0)) THEN   
+      CALL AUSGAB(IARG) 
+      END IF    
+      CALL BREMS    
+C     THE FOLLOWING MACRO TEMPLATE ALLOWS THE USER TO CHANGE THE    
+C     PARTICLE SELECTION SCHEME (E.G., ADDING IMPORTANCE SAMPLING   
+C     SUCH AS SPLITTING, LEADING PARTICLE SELECTION, ETC.). 
+C     (DEFAULT MACRO IS TEMPLATE $PARTICLE-SELECTION-ELECTR'    
+C     WHICH IN TURN HAS THE 'NULL' REPLACEMENT ';') 
+      IARG=7    
+      IF ((IAUSFL(IARG+1).NE.0)) THEN   
+      CALL AUSGAB(IARG) 
+      END IF    
+C  PHOTON WAS SELECTED. 
+      IF ((IQ(NP).EQ.0)) THEN   
+      RETURN    
+C  I.E., RETURN TO SHOWER   
+C  ELECTRON WAS SELECTED    
+      ELSE  
+      GO TO 180 
+      END IF    
+C  ---------------------------------------------    
+C  ELECTRON CUTOFF ENERGY DISCARD SECTION   
+C  ---------------------------------------------    
+190   IF ((EIE.GT.AE(MEDIUM))) THEN 
+      IDR=1 
+      IF ((LELEC.LT.0)) THEN    
+      EDEP=PEIE-PRM 
+      ELSE  
+      EDEP=PEIE-PRM 
+      END IF    
+      ELSE  
+      IDR=2 
+      EDEP=PEIE-PRM 
+      END IF    
+      IARG=IDR  
+      IF ((IAUSFL(IARG+1).NE.0)) THEN   
+      CALL AUSGAB(IARG) 
+      END IF    
+C  IT'S A POSITRON. PRODUCE ANNIH. GAMMAS IF EDEP LT PEIE   
+C  FIRST PICK RANDOM DIRECTION FOR  GAMMA   
+      IF ((LELEC.GT.0)) THEN    
+      IF ((EDEP.LT.PEIE)) THEN  
+      COSTHE=RNDM(IXX)  
+      FLIP=RNDM(IXX)    
+      IF ((FLIP.LE.0.5)) THEN   
+      COSTHE=-COSTHE    
+      END IF    
+      SINTHE=SQRT(1.0-COSTHE**2)    
+      E(NP)=PRM 
+      IQ(NP)=0  
+      U(NP)=0.  
+      V(NP)=0.  
+      W(NP)=1.  
+C  MAKE GO ALONG Z-AXIS 
+      CALL UPHI(2,1)    
+C  UPHI WILL PICK RANDOM AZIMUTHAL ANGLE    
+C     THE FOLLOWING MACRO TEMPLATE ALLOWS THE USER TO CHANGE THE    
+C     PARTICLE SELECTION SCHEME (E.G., ADDING IMPORTANCE SAMPLING   
+C     SUCH AS SPLITTING, LEADING PARTICLE SELECTION, ETC.). 
+C     (DEFAULT MACRO IS TEMPLATE $PARTICLE-SELECTION-ELECTR'    
+C     WHICH IN TURN HAS THE 'NULL' REPLACEMENT ';') 
+C     NOW SET UP SECOND GAMMA IN OPPOSITE DIRECTION.    
+      NP=NP+1   
+      E(NP)=PRM 
+      IQ(NP)=0  
+      X(NP)=X(NP-1) 
+      Y(NP)=Y(NP-1) 
+      Z(NP)=Z(NP-1) 
+      IR(NP)=IR(NP-1)   
+      WT(NP)=WT(NP-1)   
+      DNEAR(NP)=DNEAR(NP-1) 
+      U(NP)=-U(NP-1)    
+      V(NP)=-V(NP-1)    
+      W(NP)=-W(NP-1)    
+      IARG=14   
+      IF ((IAUSFL(IARG+1).NE.0)) THEN   
+      CALL AUSGAB(IARG) 
+      END IF    
+C     NOW DISCARD THE POSITRON AND TAKE NORMAL RETURN TO FOLLOW 
+C     THE ANNIHILATION GAMMAS.  
+      RETURN    
+C  I.E., RETURN TO SHOWER   
+      END IF    
+      END IF    
+C  END OF POSITRON BLOCK    
+      NP=NP-1   
+      IRCODE=2  
+C  TELL SHOWER A NEGATRON OR UN-ANNIHILATED 
+C     POSITRON HAS BEEN DISCARDED   
+C  I.E., RETURN TO SHOWER   
+C  ---------------------------------------------    
+C  USER REQUESTED ELECTRON DISCARD SECTION  
+C  ---------------------------------------------    
+      RETURN    
+220   IF ((LELEC.LT.0)) THEN    
+      EDEP=PEIE-PRM 
+      ELSE  
+      EDEP=PEIE+PRM 
+      END IF    
+      IARG=3    
+      IF ((IAUSFL(IARG+1).NE.0)) THEN   
+      CALL AUSGAB(IARG) 
+      END IF    
+      IRCODE=2  
+      NP=NP-1   
+      RETURN    
+C  I.E., RETURN TO SHOWER   
+C  END OF SUBROUTINE ELECTR 
+      END   
+      SUBROUTINE HATCH  
+C                                  VERSION 4.XX  --   7 MAR 1985/2345   
+C  ******************************************************************   
+C     SETUP WHICH THE USER IS EXPECTED TO DO BEFORE CALLING HATCH IS:   
+C       1. SET 'NMED' TO THE NUMBER OF MEDIA TO BE USED.    
+C       2. SET THE ARRAY 'MEDIA', WHICH CONTAINS THE NAMES OF THE   
+C          MEDIA THAT ARE DESIRED.  THE CHARACTER FORMAT IS A1, SO  
+C          THAT MEDIA(IB,IM) CONTAINS THE IB'TH BYTE OF THE NAME OF 
+C          THE IM'TH MEDIUM IN A1 FORMAT.   
+C       3. SET 'DUNIT', THE DISTANCE UNIT TO BE USED.   
+C          DUNIT.GT.0 MEANS VALUE OF DUNIT IS LENGTH OF DISTANCE UNIT   
+C          CENTIMETERS.  DUNIT.LT.0 MEANS USE THE RADIATION LENGTH OF   
+C          THE ABS(DUNIT)'TH MEDIUM FOR THE DISTANCE UNIT.  
+C       4. FILL THE ARRAY 'MED' WITH THE MEDIUM INDICES FOR THE 
+C          REGIONS. 
+C       5. FILL ARRAYS 'ECUT' AND 'PCUT' WITH THE ELECTRON AND PHOTON   
+C          CUT-OFF ENERGIES FOR EACH REGION RESPECTIVELY.  SETUP WILL   
+C          RAISE THESE IF NECESSARY TO MAKE THEM AT LEAST AS LARGE AS   
+C          THE REGION'S MEDIUM'S AE AND AP RESPECTIVELY.    
+C       6. FILL 'MED' ARRAY.  MED(IR) IS THE MEDIUM INDEX FOR REGION    
+C          IR.  A ZERO MEDIUM INDEX MEANS THE REGION IS IN A VACUUM.    
+C       7. FILL THE ARRAY 'IRAYLR' WITH 1 FOR EACH REGION IN WHICH  
+C          RAYLEIGH (COHERENT) SCATTERING IS TO BE INCLUDED.    
+C  ******************************************************************   
+      CHARACTER*4 MBUF(72),MDLABL(8)    
+      DIMENSION ZEROS(3),LOK(10)    
+C  NOTE: ABOVE IS ZEROS OF SINE, 0,PI,TWOPI 
+      COMMON/QDEBUG/QDEBUG  
+      LOGICAL QDEBUG    
+      COMMON/BOUNDS/ECUT(200),PCUT(200),VACDST    
+      COMMON/BREMPR/DL1(6,10),DL2(6,10),DL3(6,10),DL4(6,10),DL5(6,10),DL    
+     *6(6,10),DELCM(10), ALPHI(2,10),BPAR(2,10),DELPOS(2,10),PWR2I(50)  
+      COMMON/ELECIN/EKELIM,ICOMP,EKE0(10),EKE1(10),CMFP0(10),CMFP1(10),R    
+     *ANGE0(10),RANGE1(10), XR0(10),TEFF0(10),BLCC(10),XCC(10),PICMP0(1,    
+     *10),PICMP1(1,10),EICMP0(1,10),EICMP1(1,10),MPEEM(1,10), ESIG0(150,    
+     *10),ESIG1(150,10),PSIG0(150,10),PSIG1(150,10),EDEDX0(150,10),EDEDX    
+     *1(150,10),PDEDX0(150,10),PDEDX1(150,10),EBR10(150,10),EBR11(150,10    
+     *),PBR10(150,10),PBR11(150,10),PBR20(150,10),PBR21(150,10),TMXS0(15    
+     *0,10),TMXS1(150,10),CMFPE0(1,10),CMFPE1(1,10),CMFPP0(1,10),CMFPP1(    
+     *1,10),ERANG0(1,10),ERANG1(1,10),PRANG0(1,10),PRANG1(1,10),CXC2E0(1    
+     *,10),CXC2E1(1,10),CXC2P0(1,10),CXC2P1(1,10),CLXAE0(1,10),CLXAE1(1,    
+     *10),CLXAP0(1,10),CLXAP1(1,10), THR0(1,1),THR1(1,1),THR2(1,1),THRI0    
+     *(1,1),THRI1(1,1),THRI2(1,1),FSTEP(16),FSQR(16),MSMAP(200), VERT1(1    
+     *000),VERT2(100,16),MSTEPS,JRMAX,MXV1, MXV2,NBLC,NRNTH,NRNTHI,BLC0,    
+     *BLC1,RTHR0,RTHR1,RTHRI0,RTHRI1    
+      COMMON/MEDIA/NMED,RLC(10),RLDU(10),RHO(10),MSGE(10),MGE(10),MSEKE(    
+     *10),MEKE(10),MLEKE(10),MCMFP(10),MRANGE(10),IRAYLM(10)    
+      COMMON/MEDIAC/MEDIA(24,10)    
+      CHARACTER*4 MEDIA 
+      COMMON/MISC/KMPI,KMPO,DUNIT,NOSCAT,MED(200),RHOR(200),IRAYLR(200)
+      COMMON/PHOTIN/EBINDA(10),GE0(10),GE1(10), MPGEM(1,10),GMFP0(200,10    
+     *),GMFP1(200,10),GBR10(200,10),GBR11(200,10),GBR20(200,10),GBR21(20    
+     *0,10), NGR(10),RCO0(10),RCO1(10),RSCT0(100, 10),RSCT1(100, 10),COH    
+     *E0(200,10),COHE1(200,10)  
+      COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),DNEAR(40),W    
+     *T(40),IQ(40),IR(40),NP    
+      DOUBLE PRECISION E    
+      COMMON/THRESH/RMT2,RMSQ,ESCD2,AP(10),AE(10),UP(10),UE(10),TE(10),T    
+     *HMOLL(10) 
+      COMMON/UPHIIN/SINC0,SINC1,SIN0(1002),SIN1(1002)   
+      COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2   
+      COMMON/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE 
+      DOUBLE PRECISION PZERO,PRM,PRMT2  
+      COMMON/RANDOM/IXX 
+C  DEFAULT REPLACEMENT PRODUCES THE FOLLOWING:  
+C  COMIN/DEBUG,BOUNDS,BREMPR,ELECIN,MEDIA,MISC,PHOTIN,STACK,    
+C    THRESH,UPHIIN,UPHIOT,USEFUL,USER,RANDOM/;  
+      DATA MDLABL/' ','M','E','D','I','U','M','='/,LMDL/8/,LMDN/24/,DUNI    
+     *TO/1./    
+C     FORMAT STATEMENTS USED MULTIPLE TIMES IN SETUP    
+      DATA I1ST/1/,NSINSS/37/,MXSINC/1002/,ISTEST/0/,NRNA/1000/ 
+260   FORMAT(1X,14I5)   
+270   FORMAT(1X,1P5E14.5)   
+280   FORMAT(72A1)  
+      IF ((I1ST.NE.0)) THEN 
+      I1ST=0    
+C  RESET FIRST TIME FLAG    
+C     DO FIRST TIME INITIALIZATION  
+C  DEFAULT IS NULL  
+C     SET UP ENERGY PRECISION VARIABLES 
+      PRM=RM    
+C  PRECISE REST MASS    
+      PRMT2=2.D0*PRM    
+C  TWICE THE PRECISION REST MASS    
+      PZERO=0.0D0   
+C  PRECISE ZERO 
+C     NOW CONSTRUCT PIECEWISE LINEAR FIT TO SINE FUNCTION OVER THE  
+C     INTERVAL (0,5*PI/2).  DIVIDE THIS INTERVAL INTO MXSINC SUB-   
+C     INTERVALS.  EACH OF THESE SUBINTERVALS IS THEN SUBDIVIDED INTO    
+C     NSINSS SUB-SUB-INTERVALS.  THE ANGLES AT THE BOUNDARIES OF    
+C     THESE SUB-SUB-INTERVALS AND THEIR SINES ARE USED TO COMPUTE   
+C     LEAST SQUARES COEFFICIENTS FOR THE SUBINTERVAL.  AN EXTRA 
+C     SUBINTERVAL ON EACH SIDE OF THE INTERVAL (0,5*PI/2) IS INCLUDED   
+C     FOR GOOD MEASURE. 
+      NISUB=MXSINC-2    
+      FNSSS=NSINSS  
+      WID=PI5D2/FLOAT(NISUB)    
+      WSS=WID/(FNSSS-1.0)   
+      ZEROS(1)=0.   
+      ZEROS(2)=PI   
+C  LOOP OVER SUBINTERVALS   
+      ZEROS(3)=TWOPI    
+      DO 291 ISUB=1,MXSINC  
+      SX=0. 
+      SY=0. 
+      SXX=0.    
+      SXY=0.    
+C  ZERO SUMS    
+      XS0=WID*FLOAT(ISUB-2) 
+      XS1=XS0+WID   
+C  LOWER & UPPER LIMITS 
+C     NOW CHECK TO SEE IF ANY ZEROS ARE IN THE INTERVAL 
+      IZ=0  
+      DO 301 IZZ=1,3    
+      IF (((XS0.LE.ZEROS(IZZ)).AND.(ZEROS(IZZ).LE.XS1))) THEN   
+      IZ=IZZ    
+      GO TO302  
+      END IF    
+301   CONTINUE  
+302   CONTINUE  
+C  END OF LOOP OVER ZEROS   
+      IF ((IZ.EQ.0)) THEN   
+      XSI=XS0   
+      ELSE  
+      XSI=ZEROS(IZ) 
+      END IF    
+C  LOOP OVER SUB-SUBINTERVALS   
+      DO 311 ISS=1,NSINSS   
+      XS=WID*FLOAT(ISUB-2)+WSS*FLOAT(ISS-1)-XSI 
+C  ANGLE VALUE  
+      YS=SIN(XS+XSI)    
+C  SINE OF ANGLE    
+      SX=SX+XS  
+C  ACCUMULATE SUMS  
+      SY=SY+YS  
+      SXX=SXX+XS*XS 
+      SXY=SXY+XS*YS 
+311   CONTINUE  
+312   CONTINUE  
+C  END SUB-SUBINTERVAL LOOP 
+C     NOW COMPUTE LEAST SQUARES COEFFICIENTS    
+C  FORCE FIT THROUGH SINES' ZEROS,  
+      IF ((IZ.NE.0)) THEN   
+C               FOR SMALL REL.ERR.&GOOD 
+C     VALUES OF SINTHE/THETA NEAR ZERO  
+      SIN1(ISUB)=SXY/SXX    
+      SIN0(ISUB)=-SIN1(ISUB)*XSI    
+C  DO FULL LEAST SQUARES    
+      ELSE  
+      DEL=FNSSS*SXX-SX*SX   
+      SIN1(ISUB)=(FNSSS*SXY-SY*SX)/DEL  
+      SIN0(ISUB)=(SY*SXX-SX*SXY)/DEL - SIN1(ISUB)*XSI   
+      END IF    
+291   CONTINUE  
+292   CONTINUE  
+C  END SUB-INTERVAL LOOP    
+      SINC0=2.0 
+C  SET COEFFICIENTS WHICH DETERMINE INTERVAL    
+C     NOW TEST FIT, IF REQUESTED    
+      SINC1=1.0/WID 
+      IF ((ISTEST.NE.0)) THEN   
+C     FIRST TEST AT POINTS PREVIOUSLY COMPUTED, EXCLUDING   
+C     END SUBINTERVALS  
+      ADEV=0.   
+      RDEV=0.   
+      S2C2MN=10.    
+      S2C2MX=0. 
+      DO 321 ISUB=1,NISUB   
+      DO 331 ISS=1,NSINSS   
+      THETA=WID*FLOAT(ISUB-1)+WSS*FLOAT(ISS-1)  
+      CTHET=PI5D2-THETA 
+      SINTHE=SIN(THETA) 
+      COSTHE=SIN(CTHET) 
+      SINT=SIN(THETA)   
+      COST=COS(THETA)   
+      ASD=ABS(SINTHE-SINT)  
+      ACD=ABS(COSTHE-COST)  
+      ADEV=AMAX1(ADEV,ASD,ACD)  
+      IF((SINT.NE.0.0))RDEV=AMAX1(RDEV,ASD/ABS(SINT))   
+      IF((COST.NE.0.0))RDEV=AMAX1(RDEV,ACD/ABS(COST))   
+      S2C2=SINTHE**2+COSTHE**2  
+      S2C2MN=AMIN1(S2C2MN,S2C2) 
+      S2C2MX=AMAX1(S2C2MX,S2C2) 
+      IF ((ISUB.LT.11)) THEN    
+      WRITE(6,340)THETA,SINTHE,SINT,COSTHE,COST 
+340   FORMAT(1P5E20.7)  
+      END IF    
+331   CONTINUE  
+332   CONTINUE  
+321   CONTINUE  
+322   CONTINUE  
+C  END OF FIXED INTERVAL TEST-OUTPUT RESULTS    
+      WRITE(6,350)MXSINC,NSINSS 
+350   FORMAT(' SINE TESTS,MXSINC,NSINSS=',2I5)  
+      WRITE(6,360)ADEV,RDEV,S2C2MN,S2C2MX   
+360   FORMAT(' ADEV,RDEV,S2C2(MN,MX) =',1P4E16.8)   
+C     NOW DO RANDOM TEST    
+      ADEV=0.   
+      RDEV=0.   
+      S2C2MN=10.    
+      S2C2MX=0. 
+      DO 371 IRN=1,NRNA 
+      THETA=RNDM(IXX)   
+      THETA=THETA*PI5D2 
+      CTHET=PI5D2-THETA 
+      SINTHE=SIN(THETA) 
+      COSTHE=SIN(CTHET) 
+      SINT=SIN(THETA)   
+      COST=COS(THETA)   
+      ASD=ABS(SINTHE-SINT)  
+      ACD=ABS(COSTHE-COST)  
+      ADEV=AMAX1(ADEV,ASD,ACD)  
+      IF((SINT.NE.0.0))RDEV=AMAX1(RDEV,ASD/ABS(SINT))   
+      IF((COST.NE.0.0))RDEV=AMAX1(RDEV,ACD/ABS(COST))   
+      S2C2=SINTHE**2+COSTHE**2  
+      S2C2MN=AMIN1(S2C2MN,S2C2) 
+      S2C2MX=AMAX1(S2C2MX,S2C2) 
+371   CONTINUE  
+372   CONTINUE  
+C  END RANDOM ANGLE LOOP    
+      WRITE(6,380)NRNA  
+380   FORMAT(' TEST AT ',I7,' RANDOM ANGLES IN (0,5*PI/2)') 
+      WRITE(6,390)ADEV,RDEV,S2C2MN,S2C2MX   
+390   FORMAT(' ADEV,RDEV,S2C2(MN,MX) =',1P4E16.8)   
+      END IF    
+C  END OF SINE TABLE TEST   
+C     NOW FILL IN POWER OF TWO TABLE.  PWR2I(I)=1/2**(I-1)  
+      P=1.  
+      DO 401 I=1,50 
+      PWR2I(I)=P    
+      P=P/2.    
+401   CONTINUE  
+402   CONTINUE  
+      END IF    
+C  END OF FIRST TIME INITIALIZATION 
+C  FILL IRAYLM ARRAY BASED ON IRAYLR INPUTS 
+      DO 411 J=1,NMED   
+420   CONTINUE  
+      DO 421 I=1,200   
+      IF ((IRAYLR(I).EQ.1.AND.MED(I).EQ.J)) THEN    
+C  REGION I = MEDIUM J AND WE WANT RAYLEIGH SCATTERING, SO  
+C  SET FLAG TO PICK UP DATA FOR MEDIUM J AND TRY NEXT MEDIUM.   
+      IRAYLM(J)=1   
+      GO TO 422 
+      END IF    
+C  END OF REGION-LOOP   
+421   CONTINUE  
+422   CONTINUE  
+C  END OF MEDIA-LOOP    
+411   CONTINUE  
+412   CONTINUE  
+C     NOW SEARCH FILE FOR DATA FOR REQUESTED MATERIALS  
+      OPEN ( UNIT=KMPI, STATUS='OLD', READONLY, SHARED )    
+      REWIND KMPI   
+C  NUMBER OF MEDIA FOUND    
+      NM=0  
+      DO 431 IM=1,NMED  
+C  SET FLAG TELLING WHICH MEDIA ARE OK  
+C  NOW TELL USER IF RAYLEIGH OPTION HAS BEEN REQUESTED  
+      LOK(IM)=0 
+      IF ((IRAYLM(IM).EQ.1)) THEN   
+      WRITE(6,440)IM    
+440   FORMAT(' RAYLEIGH OPTION REQUESTED FOR MEDIUM NUMBER',I3,/)   
+      END IF    
+431   CONTINUE  
+432   CONTINUE  
+C  MEDIUM SEARCH LOOP   
+450   CONTINUE  
+C  MEDIUM HEADER SEARCH LOOP    
+451   CONTINUE  
+460   CONTINUE  
+461   CONTINUE  
+C     FIRST LOOK FOR MEDIUM HEADER  
+      READ(KMPI,280,END=470)MBUF    
+      DO 481 IB=1,LMDL  
+      IF((MBUF(IB).NE.MDLABL(IB)))GO TO 461 
+481   CONTINUE  
+482   CONTINUE  
+C     HEADER MATCHES. NOW SEE IF IT IS ONE OF REQUESTED MEDIA   
+490   CONTINUE  
+      DO 491 IM=1,NMED  
+      DO 501 IB=1,LMDN  
+      IL=LMDL+IB    
+      IF((MBUF(IL).NE.MEDIA(IB,IM)))GO TO 491   
+      IF((IB.EQ.LMDN))GO TO 462 
+501   CONTINUE  
+502   CONTINUE  
+491   CONTINUE  
+492   CONTINUE  
+C  END :MDNAME: DO  
+C     NOT IN NAME TABLE, SO IGNORE IT   
+      GO TO 461 
+462   CONTINUE  
+C  MDLOOK   
+C     'IM' IS THE INDEX OF THE MEDIUM READY TO BE READ  
+      IF((LOK(IM).NE.0))GO TO 460   
+C  WE ALREADY HAVE THIS ONE 
+      LOK(IM)=1 
+C  SET FOUND FLAG AND STEP MEDIUM COUNTER   
+C     NOW READY TO READ IN DATA FOR THIS MEDIUM 
+      NM=NM+1   
+      WRITE(KMPO,510)IM,MBUF    
+C     NOW PUT OUT LINES SHOWING COMPOSITION OF MEDIUM   
+510   FORMAT(' DATA FOR MEDIUM #',I3,', WHICH IS:',72A1)    
+      READ(KMPI,520)(MBUF(I),I=1,5),RHO(IM),NE  
+520   FORMAT(5A1,5X,F11.0,4X,I2)    
+      WRITE(KMPO,530)(MBUF(I),I=1,5),RHO(IM),NE 
+530   FORMAT(5A1,',RHO=',1PG11.4, ',NE=',I2,',COMPOSITION IS :')    
+      DO 541 IE=1,NE    
+      READ(KMPI,280)MBUF    
+      WRITE(KMPO,280)MBUF   
+541   CONTINUE  
+542   CONTINUE  
+C     MEDIA AND THRESH  
+      WRITE(KMPO,550)   
+550   FORMAT(' ECHO READ:$LGN(RLC,AE,AP,UE,UP(IM))')    
+      READ(KMPI,270)RLC(IM),AE(IM),AP(IM),UE(IM),UP(IM) 
+      WRITE(KMPO,270)RLC(IM),AE(IM),AP(IM),UE(IM),UP(IM)    
+      TE(IM)=AE(IM)-RM  
+C     ACTUAL ARRAY SIZES FROM PEGS  
+      THMOLL(IM)=TE(IM)*2. + RM 
+      WRITE(KMPO,560)   
+560   FORMAT(' ECHO READ:$LGN(MSGE,MGE,MSEKE,MEKE,MLEKE,MCMFP,MRANGE(IM)    
+     *),IRAYL') 
+      READ(KMPI,260)MSGE(IM),MGE(IM),MSEKE(IM),MEKE(IM),MLEKE(IM),MCMFP(    
+     *IM),MRANGE(IM),IRAYL  
+      WRITE(KMPO,260)MSGE(IM),MGE(IM),MSEKE(IM),MEKE(IM),MLEKE(IM),MCMFP    
+     *(IM),MRANGE(IM),IRAYL 
+      NSGE=MSGE(IM) 
+      NGE=MGE(IM)   
+      NSEKE=MSEKE(IM)   
+      NEKE=MEKE(IM) 
+      NLEKE=MLEKE(IM)   
+      NCMFP=MCMFP(IM)   
+C     BREMPR    
+      NRANGE=MRANGE(IM) 
+      WRITE(KMPO,570)   
+570   FORMAT(' ECHO READ:($LGN(DL(I,IM)/1,2,3,4,5,6/),I=1,6)')  
+      READ(KMPI,270)(DL1(I,IM),DL2(I,IM),DL3(I,IM),DL4(I,IM),DL5(I,IM),D    
+     *L6(I,IM),I=1,6)   
+      WRITE(KMPO,270)(DL1(I,IM),DL2(I,IM),DL3(I,IM),DL4(I,IM),DL5(I,IM),    
+     *DL6(I,IM),I=1,6)  
+      WRITE(KMPO,580)   
+580   FORMAT(' ECHO READ:DELCM(IM),($LGN(ALPHI,BPAR, DELPOS(I,IM)),I=1,2    
+     *)')   
+      READ(KMPI,270)DELCM(IM),(ALPHI(I,IM),BPAR(I,IM),DELPOS(I,IM),I=1,2    
+     *) 
+C     ELECIN    
+      WRITE(KMPO,270)DELCM(IM),(ALPHI(I,IM),BPAR(I,IM),DELPOS(I,IM),I=1,    
+     *2)    
+      WRITE(KMPO,590)   
+590   FORMAT(' ECHO READ:$LGN(XR0,TEFF0,BLCC,XCC(IM))') 
+      READ(KMPI,270)XR0(IM),TEFF0(IM),BLCC(IM),XCC(IM)  
+      WRITE(KMPO,270)XR0(IM),TEFF0(IM),BLCC(IM),XCC(IM) 
+      WRITE(KMPO,600)   
+600   FORMAT(' ECHO READ:$LGN(EKE(IM)/0,1/)')   
+      READ(KMPI,270)EKE0(IM),EKE1(IM)   
+      WRITE(KMPO,270)EKE0(IM),EKE1(IM)  
+      WRITE(KMPO,610)   
+610   FORMAT(' ECHO READ:($LGN(ESIG,PSIG,EDEDX,PDEDX,EBR1,PBR1,PBR2, TMX    
+     *S(I,IM)/0,1/),I=1,NEKE)') 
+      READ(KMPI,270)(ESIG0(I,IM),ESIG1(I,IM),PSIG0(I,IM),PSIG1(I,IM),EDE    
+     *DX0(I,IM),EDEDX1(I,IM),PDEDX0(I,IM),PDEDX1(I,IM),EBR10(I,IM),EBR11    
+     *(I,IM),PBR10(I,IM),PBR11(I,IM),PBR20(I,IM),PBR21(I,IM),TMXS0(I,IM)    
+     *,TMXS1(I,IM),I=1,NEKE)    
+C     PHOTIN    
+      WRITE(KMPO,270)(ESIG0(I,IM),ESIG1(I,IM),PSIG0(I,IM),PSIG1(I,IM),ED    
+     *EDX0(I,IM),EDEDX1(I,IM),PDEDX0(I,IM),PDEDX1(I,IM),EBR10(I,IM),EBR1    
+     *1(I,IM),PBR10(I,IM),PBR11(I,IM),PBR20(I,IM),PBR21(I,IM),TMXS0(I,IM    
+     *),TMXS1(I,IM),I=1,NEKE)   
+      WRITE(KMPO,620)   
+620   FORMAT(' ECHO READ:EBINDA(IM),$LGN(GE(IM)/0,1/)') 
+      READ(KMPI,270)EBINDA(IM),GE0(IM),GE1(IM)  
+      WRITE(KMPO,270)EBINDA(IM),GE0(IM),GE1(IM) 
+      WRITE(KMPO,630)   
+630   FORMAT(' ECHO READ:($LGN(GMFP,GBR1,GBR2(I,IM)/0,1/),I=1,NGE)')    
+      READ(KMPI,270)(GMFP0(I,IM),GMFP1(I,IM),GBR10(I,IM),GBR11(I,IM),GBR    
+     *20(I,IM),GBR21(I,IM),I=1,NGE) 
+C     PHOTIN (CONTINUED)---OPTIONAL RAYLEIGH SCATTERING INPUT   
+      WRITE(KMPO,270)(GMFP0(I,IM),GMFP1(I,IM),GBR10(I,IM),GBR11(I,IM),GB    
+     *R20(I,IM),GBR21(I,IM),I=1,NGE)    
+      IF ((IRAYLM(IM).EQ.1.AND.IRAYL.NE.1)) THEN    
+      WRITE(6,640)IM    
+640   FORMAT(' STOPPED IN HATCH: REQUESTED RAYLEIGH OPTION FOR MEDIUM',I    
+     *3, /,' BUT RAYLEIGH DATA NOT INCLUDED IN DATA CREATED BY PEGS.')  
+      STOP  
+      END IF    
+      IF ((IRAYL.EQ.1)) THEN    
+      WRITE(KMPO,650)   
+650   FORMAT(' ECHO READ:NGR(IM)')  
+      READ(KMPI,260)NGR(IM) 
+      WRITE(KMPO,260)NGR(IM)    
+      NGRIM=NGR(IM) 
+      WRITE(KMPO,660)   
+660   FORMAT(' ECHO READ:$LGN(RCO(IM)/0,1/)')   
+      READ(KMPI,270)RCO0(IM),RCO1(IM)   
+      WRITE(KMPO,270)RCO0(IM),RCO1(IM)  
+      WRITE(KMPO,670)   
+670   FORMAT(' ECHO READ:($LGN(RSCT(I,IM)/0,1/),I=1,NGRIM)')    
+      READ(KMPI,270)(RSCT0(I,IM),RSCT1(I,IM),I=1,NGRIM) 
+      WRITE(KMPO,270)(RSCT0(I,IM),RSCT1(I,IM),I=1,NGRIM)    
+      WRITE(KMPO,680)   
+680   FORMAT(' ECHO READ:($LGN(COHE(I,IM)/0,1/),I=1,NGE)')  
+      READ(KMPI,270)(COHE0(I,IM),COHE1(I,IM),I=1,NGE)   
+      WRITE(KMPO,270)(COHE0(I,IM),COHE1(I,IM),I=1,NGE)  
+      IF ((IRAYLM(IM).NE.1)) THEN   
+      WRITE(6,690)IM    
+690   FORMAT(' RAYLEIGH DATA AVAILABLE FOR MEDIUM',I3, ' BUT OPTION NOT 
+     *REQUESTED.',/)    
+      END IF    
+      END IF    
+C     THAT'S ALL FOR THIS MEDIUM    
+      IF((NM.GE.NMED))GO TO452  
+      GO TO 451 
+452   CONTINUE  
+C  LOOP UNTIL WE HAVE ENOUGH.  END :MEDIUM: LOOP    
+C     WE NOW HAVE DATA FOR ALL MEDIA REQUESTED.  NOW DO DISTANCE UNIT   
+C     CHANGE.  DATA FROM PEGS IS IN UNITS OF RADIATION LENGTHS. 
+C     EGS IS RUN IN UNITS OF 'DUNIT' CENTIMETERS, IF DUNIT.GT.0 
+C     OR IN UNITS OF RLC(-DUNIT) CENTIMETERS IF DUNIT.LT.0. 
+C     THAT IS, A NEGATIVE DUNIT MEANS UNIT IS TO BE THE RADIATION   
+C     LENGTH OF THE MEDIUM WHOSE INDEX IS -DUNIT    
+C  SAVE REQUESTED   
+      DUNITR=DUNIT  
+      IF ((DUNIT.LT.0.0)) THEN  
+      ID=MAX0(1,MIN0(10,IFIX(-DUNIT)))  
+      DUNIT=RLC(ID) 
+      END IF    
+      IF ((DUNIT.NE.1.0)) THEN  
+      WRITE(6,700)DUNITR,DUNIT  
+700   FORMAT(' DUNIT REQUESTED&USED ARE:',1P2E14.5,'(CM.)') 
+      END IF    
+      DO 711 IM=1,NMED  
+      DFACT=RLC(IM)/DUNIT   
+C  CONVERTS RL TO DUNITS    
+C  CONVERT RL**-1 TO DUNITS**-1 
+      DFACTI=1.0/DFACT  
+      I=1   
+      GO TO 723 
+721   I=I+1 
+723   IF(I-(MEKE(IM)).GT.0)GO TO 722    
+      ESIG0(I,IM)=ESIG0(I,IM)*DFACTI    
+      ESIG1(I,IM)=ESIG1(I,IM)*DFACTI    
+      PSIG0(I,IM)=PSIG0(I,IM)*DFACTI    
+      PSIG1(I,IM)=PSIG1(I,IM)*DFACTI    
+      EDEDX0(I,IM)=EDEDX0(I,IM)*DFACTI  
+      EDEDX1(I,IM)=EDEDX1(I,IM)*DFACTI  
+      PDEDX0(I,IM)=PDEDX0(I,IM)*DFACTI  
+      PDEDX1(I,IM)=PDEDX1(I,IM)*DFACTI  
+      TMXS0(I,IM)=TMXS0(I,IM)*DFACT 
+      TMXS1(I,IM)=TMXS1(I,IM)*DFACT 
+      GO TO 721 
+722   CONTINUE  
+      I=1   
+      GO TO 733 
+731   I=I+1 
+733   IF(I-(MLEKE(IM)).GT.0)GO TO 732   
+      ERANG0(I,IM)=ERANG0(I,IM)*DFACT   
+      ERANG1(I,IM)=ERANG1(I,IM)*DFACT   
+      PRANG0(I,IM)=PRANG0(I,IM)*DFACT   
+      PRANG1(I,IM)=PRANG1(I,IM)*DFACT   
+      GO TO 731 
+732   CONTINUE  
+      TEFF0(IM)=TEFF0(IM)*DFACT 
+      BLCC(IM)=BLCC(IM)*DFACTI  
+      XCC(IM)=XCC(IM)*SQRT(DFACTI)  
+      RLDU(IM)=RLC(IM)/DUNIT    
+      I=1   
+      GO TO 743 
+741   I=I+1 
+743   IF(I-(MGE(IM)).GT.0)GO TO 742 
+      GMFP0(I,IM)=GMFP0(I,IM)*DFACT 
+      GMFP1(I,IM)=GMFP1(I,IM)*DFACT 
+      GO TO 741 
+742   CONTINUE  
+711   CONTINUE  
+712   CONTINUE  
+C  END IM DO    
+C     SCALE VACDST.  UNDO PREVIOUS SCALE, THEN DO NEW.  
+      VACDST=VACDST*DUNITO/DUNIT    
+C  SAVE OLD DUNIT   
+C     NOW MAKE SURE ECUT AND PCUT ARE NOT LOWER THAN ANY AE OR AP   
+C     ALSO SET DEFAULT DENSITIES    
+      DUNITO=DUNIT  
+      DO 751 JR=1,200  
+C  IT IS LEGAL NON-VACUUM MEDIUM.   
+      MD=MED(JR)    
+      IF (((MD.GE.1).AND.(MD.LE.NMED))) THEN    
+      ECUT(JR)=AMAX1(ECUT(JR),AE(MD))   
+C     USE STANDARD DENSITY FOR REGIONS NOT SPECIALLY SET UP 
+      PCUT(JR)=AMAX1(PCUT(JR),AP(MD))   
+      IF ((RHOR(JR).EQ.0.0)) THEN   
+      RHOR(JR)=RHO(MD)  
+      END IF    
+      END IF    
+751   CONTINUE  
+752   CONTINUE  
+C     SETUP IS NOW COMPLETE 
+      IF ((NMED.EQ.1)) THEN 
+      WRITE(6,760)  
+760   FORMAT('    EGS4 SUCCESSFULLY ''HATCHED'' FOR ONE MEDIUM.')
+      ELSE  
+      WRITE(6,770)NMED  
+770   FORMAT('    EGS4 SUCCESSFULLY ''HATCHED'' FOR ',I5,' MEDIA.')
+      END IF    
+      RETURN    
+470   WRITE(6,780)KMPI  
+780   FORMAT(' END OF FILE ON UNIT ',I2,//, ' PROGRAM STOPPED IN HATCH B    
+     *ECAUSE THE',/, ' FOLLOWING NAMES WERE NOT RECOGNIZED:',/) 
+      DO 791 IM=1,NMED  
+      IF ((LOK(IM).NE.1)) THEN  
+      WRITE(6,800)(MEDIA(I,IM),I=1,LMDN)    
+800   FORMAT(40X,'''',24A1,'''')    
+      END IF    
+791   CONTINUE  
+792   CONTINUE  
+      STOP  
+C  END OF SUBROUTINE HATCH  
+      END   
+      SUBROUTINE MOLLER 
+C                                  VERSION 4.XX  --   7 MAR 1985/2345   
+C  ******************************************************************   
+C     DISCRETE MOLLER SCATTERING (A CALL TO THIS ROUTINE) HAS BEEN  
+C     ARBITRARILY DEFINED AND CALCULATED TO MEAN MOLLER SCATTERINGS 
+C     WHICH IMPART TO THE SECONDARY ELECTRON SUFFICIENT ENERGY THAT 
+C     IT BE TRANSPORTED DISCRETELY.  THE THRESHOLD TO TRANSPORT AN  
+C     ELECTRON DISCRETELY IS A TOTAL ENERGY OF AE OR A KINETIC ENERGY   
+C     OF TE=AE-RM.  SINCE THE KINETIC ENERGY TRANSFER IS ALWAYS, BY 
+C     DEFINITION, LESS THAN HALF OF THE INCIDENT KINETIC ENERGY, THIS   
+C     IMPLIES THAT THE INCIDENT ENERGY, EIE, MUST BE LARGER THAN    
+C     THMOLL=TE*2+RM.  THE REST OF THE COLLISION CONTRIBUTION IS    
+C     SUBTRACTED CONTINUOUSLY FROM THE ELECTRON AS IONIZATION   
+C     LOSS DURING TRANSPORT.    
+C  ******************************************************************   
+      DOUBLE PRECISION PEIE,PEKSE2,PESE1,PESE2  
+      DOUBLE PRECISION PEKIN,H1,DCOSTH  
+      COMMON/QDEBUG/QDEBUG  
+      LOGICAL QDEBUG    
+      COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),DNEAR(40),W    
+     *T(40),IQ(40),IR(40),NP    
+      DOUBLE PRECISION E    
+      COMMON/THRESH/RMT2,RMSQ,ESCD2,AP(10),AE(10),UP(10),UE(10),TE(10),T    
+     *HMOLL(10) 
+      COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2   
+      COMMON/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE 
+      DOUBLE PRECISION PZERO,PRM,PRMT2  
+      COMMON/RANDOM/IXX 
+C  DEFAULT REPLACEMENT PRODUCES THE FOLLOWING:  
+C  COMIN/DEBUG,STACK,THRESH,UPHIOT,USEFUL,RANDOM/;  
+      IRCODE=1  
+C  SET FOR NORMAL RETURN    
+      PEIE=E(NP)    
+C  PRECISE ENERGY OF INCIDENT ELECTRON  
+      EIE=PEIE  
+C  ENERGY OF INCIDENT ELECTRON  
+      PEKIN=PEIE-PRM    
+C  PRECISE K.E. OF INCIDENT ELECTRON    
+      EKIN=PEKIN    
+      T0=EKIN/RM    
+      E0=T0+1.0 
+      EXTRAE = EIE - THMOLL(MEDIUM) 
+      E02=E0*E0 
+      BETAI2=E02/(E02-1.0)  
+      EP0=TE(MEDIUM)/EKIN   
+      G1=(1.-2.*EP0)*BETAI2 
+      G2=T0*T0/E02  
+C     H.H.NAGEL HAS CONSTRUCTED A FACTORIZATION OF THE FREQUENCY    
+C     DISTRIBUTION FUNCTION FOR THE MOLLER DIFFERENTIAL CROSS   
+C     SECTION USED AS SUGGESTED BY BUTCHER AND MESSEL.  
+C     (H.H.NAGEL, OP.CIT., P. 53-55)    
+C     HOWEVER, A MUCH SIMPLER SAMPLING METHOD WHICH DOES NOT BECOME 
+C     VERY INEFFICIENT NEAR THMOLL IS THE FOLLOWING. . .    
+C     LET BR=EKS/EKIN,  WHERE EKS IS KINETIC ENERGY TRANSFERED TO THE   
+C     SECONDARY ELECTRON AND EKIN IS THE INCIDENT KINETIC ENERGY.   
+C     MODIFIED (7 FEB 1974) TO USE THE TRUE MOLLER CROSS SECTION.   
+C     THAT IS, INSTEAD OF THE E+ E- AVERAGE GIVEN IN THE ROSSI  
+C     FORMULA USED BY NAGEL.  THE SAMPLING SCHEME IS THAT   
+C     USED BY MESSEL AND CRAWFORD (EPSDF 1970 P.13) 
+C     FIRST SAMPLE (1/BR**2) OVER (TE/EKIN,1/2) . . .   
+C   TO RETRY IF REJECTED    
+      G3=(2.*T0+1.)/E02 
+811   CONTINUE  
+      RNNO27=RNDM(IXX)  
+      BR = TE(MEDIUM)/(EKIN-EXTRAE*RNNO27)  
+C     USE MESSEL AND CRAWFORDS REJECTION FUNCTION.  
+      R=BR/(1.-BR)  
+      RNNO28=RNDM(IXX)  
+      REJF4=G1*(1.+G2*BR*BR+R*(R-G3))   
+      IF((RNNO28.LE.REJF4))GO TO812 
+      GO TO 811 
+812   CONTINUE  
+C  TRY UNTIL ACCEPTED. END REJECTION LOOP   
+      PEKSE2=BR*EKIN    
+C  PRECISE KINETIC ENERGY OF SECONDARY ELECTRON #2  
+      PESE1=PEIE-PEKSE2 
+C  PRECISE ENERGY OF SECONDARY ELECTRON #1  
+      PESE2=PEKSE2+PRM  
+C  PRECISE ENERGY OF SECONDARY ELECTRON #2  
+      ESE1=PESE1    
+C  ENERGY OF SECONDARY ELECTRON 1   
+      ESE2=PESE2    
+C  ENERGY OF SECONDARY ELECTRON 2   
+      E(NP)=PESE1   
+      E(NP+1)=PESE2 
+C     SINCE BR.LE.0.5, E(NP+1) MUST BE .LE. E(NP).  
+C     MOLLER ANGLES ARE UNIQUELY DETERMINED BY KINEMATICS   
+      H1=(PEIE+PRM)/PEKIN   
+C     DIRECTION COSINE CHANGE FOR 'OLD' ELECTRON    
+      DCOSTH=H1*(PESE1-PRM)/(PESE1+PRM) 
+      SINTHE=DSQRT(1.D0-DCOSTH) 
+      COSTHE=DSQRT(DCOSTH)  
+      CALL UPHI(2,1)    
+C     RELATED CHANGE AND (X,Y,Z) SETUP FOR 'NEW' ELECTRON   
+      NP=NP+1   
+      IQ(NP)=-1 
+      DCOSTH=H1*(PESE2-PRM)/(PESE2+PRM) 
+      SINTHE=-DSQRT(1.D0-DCOSTH)    
+      COSTHE=DSQRT(DCOSTH)  
+      CALL UPHI(3,2)    
+      RETURN    
+C  END OF SUBROUTINE MOLLER 
+      END   
+      SUBROUTINE MSCAT  
+C                                  VERSION 4.XX  --   7 MAR 1985/2345   
+C  ******************************************************************   
+      COMMON/QDEBUG/QDEBUG  
+      LOGICAL QDEBUG    
+      COMMON/ELECIN/EKELIM,ICOMP,EKE0(10),EKE1(10),CMFP0(10),CMFP1(10),R    
+     *ANGE0(10),RANGE1(10), XR0(10),TEFF0(10),BLCC(10),XCC(10),PICMP0(1,    
+     *10),PICMP1(1,10),EICMP0(1,10),EICMP1(1,10),MPEEM(1,10), ESIG0(150,    
+     *10),ESIG1(150,10),PSIG0(150,10),PSIG1(150,10),EDEDX0(150,10),EDEDX    
+     *1(150,10),PDEDX0(150,10),PDEDX1(150,10),EBR10(150,10),EBR11(150,10    
+     *),PBR10(150,10),PBR11(150,10),PBR20(150,10),PBR21(150,10),TMXS0(15    
+     *0,10),TMXS1(150,10),CMFPE0(1,10),CMFPE1(1,10),CMFPP0(1,10),CMFPP1(    
+     *1,10),ERANG0(1,10),ERANG1(1,10),PRANG0(1,10),PRANG1(1,10),CXC2E0(1    
+     *,10),CXC2E1(1,10),CXC2P0(1,10),CXC2P1(1,10),CLXAE0(1,10),CLXAE1(1,    
+     *10),CLXAP0(1,10),CLXAP1(1,10), THR0(1,1),THR1(1,1),THR2(1,1),THRI0    
+     *(1,1),THRI1(1,1),THRI2(1,1),FSTEP(16),FSQR(16),MSMAP(200), VERT1(1    
+     *000),VERT2(100,16),MSTEPS,JRMAX,MXV1, MXV2,NBLC,NRNTH,NRNTHI,BLC0,    
+     *BLC1,RTHR0,RTHR1,RTHRI0,RTHRI1    
+      COMMON/EPCONT/EDEP,TSTEP,TUSTEP,USTEP,TVSTEP,VSTEP, IDISC,IROLD,IR    
+     *NEW,RHOF,EOLD,ENEW,EKE,ELKE,BETA2,BETA, GLE,TSCAT,IAUSFL(25)  
+      DOUBLE PRECISION EDEP 
+      COMMON/MISC/KMPI,KMPO,DUNIT,NOSCAT,MED(200),RHOR(200),IRAYLR(200)
+      COMMON/MULTS/NG21,B0G21,B1G21,G210(7),G211(7),G212(7), NG22,B0G22,    
+     *B1G22,G220(8),G221(8),G222(8), NG31,B0G31,B1G31,G310(11),G311(11),    
+     *G312(11), NG32,B0G32,B1G32,G320(25),G321(25),G322(25), NBGB,B0BGB,    
+     *B1BGB,BGB0(8),BGB1(8),BGB2(8) 
+      COMMON/STACK/E(40),X(40),Y(40),Z(40),U(40),V(40),W(40),DNEAR(40),W    
+     *T(40),IQ(40),IR(40),NP    
+      DOUBLE PRECISION E    
+      COMMON/THRESH/RMT2,RMSQ,ESCD2,AP(10),AE(10),UP(10),UE(10),TE(10),T    
+     *HMOLL(10) 
+      COMMON/UPHIIN/SINC0,SINC1,SIN0(1002),SIN1(1002)   
+      COMMON/UPHIOT/THETA,SINTHE,COSTHE,SINPHI, COSPHI,PI,TWOPI,PI5D2   
+      COMMON/USEFUL/PZERO,PRM,PRMT2,RM,MEDIUM,MEDOLD,IBLOBE 
+      DOUBLE PRECISION PZERO,PRM,PRMT2  
+      COMMON/RANDOM/IXX 
+C  DEFAULT REPLACEMENT PRODUCES THE FOLLOWING:  
+C  COMIN/DEBUG,ELECIN,EPCONT,MISC,MULTS,STACK,THRESH,UPHIIN,    
+C    UPHIOT,USEFUL,RANDOM/; 
+      VSTEFF=TVSTEP*RHOF    
+C  ACCOUNT FOR ALTERED DENSITY  
+C     GET MOLIERE'S LOWER CASE B PARAMETER, BLC 
+      OMEGA0=BLCC(MEDIUM)*VSTEFF/BETA2  
+      IF ((OMEGA0.LE.1.0)) THEN 
+      SINTHE=0.0    
+      COSTHE=1.0    
+      THETA=0.0 
+      NOSCAT=NOSCAT+1   
+      RETURN    
+      END IF    
+C  DEFAULT IS A CHECK ON OMEGA0.LE.1.0  IF TRUE,    
+C                   THEN [SINTHE=0.0; COSTHE=1.0; THETA=0.0; RETURN;]   
+C                   OTHERWISE, CONTINUE ON. 
+C     NOW CONVERT TO MOLIERE'S BIG B    
+C     1.30685=2-LN 2,  1.530394=2/(2-LN 2)  
+      BLC=ALOG(OMEGA0)  
+      IF ((BLC.LE.1.30685)) THEN    
+      B=1.530394*BLC    
+C  BELOW TRANSCENDENTAL LIMIT   
+      ELSE  
+      IB=B0BGB+BLC*B1BGB    
+      IF ((IB.GT.NBGB)) THEN    
+      WRITE(6,820)IB    
+820   FORMAT(' NBGB<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   

diff --git a/code/source/guarda_2.for b/code/source/guarda_2.for
new file mode 100644 (file)
index 0000000..5dbc92e
--- /dev/null
+++ b/code/source/guarda_2.for
@@ -0,0 +1,409 @@
+         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
+

diff --git a/code/source/histin_cyl_2.for b/code/source/histin_cyl_2.for
new file mode 100644 (file)
index 0000000..6097559
--- /dev/null
+++ b/code/source/histin_cyl_2.for
@@ -0,0 +1,143 @@
+C      file histin_cyl_2.for  del 5-sept-1994
+C       
+       SUBROUTINE HISTIN_CYL  
+C      --------------------
+C
+C-------------------------------------------------------C  
+C      POSITRONS, CYL. GEOM.  HISTOGRAM INITIALIZATION
+C-------------------------------------------------------C
+       INCLUDE 'COMM_CYLtot_2.FOR'
+C-------------------------------------------------------C
+          CHARACTER*80 TITLE
+          CHARACTER*8 TAGS(10)
+          CHARACTER*80 TITLEy
+          CHARACTER*8 TAGSy(20)
+C-------------------------------------------------------C
+C-------------------------------------------------------C
+C          WRITE(LTYOUT,6080)
+C 6080     FORMAT(1X,'   ENTERING HISTIN_CYL  ')
+C-------------------------------------------------------C
+C         SET PARAMETER FOR HBOOK PACKAGE --------------C
+C          
+C          CALL HLIMIT( 100000 )   ! memory allocation for hbook
+          CALL HLIMIT( mspazio_paw )   ! parameter def. in comm_cyl 
+          CALL HOUTPU( LTYHIS )   ! hbook output unit (10)
+          CALL HERMES( LTYHIS )   ! hbook error output unit (10)
+C-------------------------------------------------------
+C         ALLOCATION FOR OUTPUT TO PAW ( UNIT 20 )----
+C
+          OPEN(UNIT=HISLUN,FORM='UNFORMATTED',RECL=1024,  !  opening file
+     1         ACCESS='DIRECT',STATUS='NEW')           
+C          CALL HROPEN(HISLUN,'topw','HBOOK.OUT','N',1024,ISTAT)
+          CALL HRFILE(HISLUN,'topw','N')       ! assegna il file ad hbook
+C                      definendo il nome hbook del file( top directory)  topw
+          CALL HCDIR(DIRETTORIO,'R')           ! metto in direttorio il nome dir
+C                              corrente del file (il main dir: //PAWC )
+          CALL HCDIR('//PAWC',' ')  ! Ripunto al dir del comm /pawc/
+C
+C-------------------------------------------------------
+C         LOOP PER LETTURA SPECIFICHE ISTOGRAMMI 1 -DIM 
+C 
+  100     READ(LTYFIL,*,ERR=990,END=992)
+     A    ID,NCHX,XMIN,XMAX,VALMAX
+C          TYPE *,ID,NCHX,XMIN,XMAX,VALMAX
+          IF(ID)  120,120,110
+  110     READ(LTYFIL,9000,ERR=990,END=992) TITLE
+C-------------------------------------------------------C
+C-------- BOOK MONODIMENSIONAL HISTOGRAMS IN //PAWC ----C
+C-------------------------------------------------------C
+          CALL HBOOK1(ID,TITLE,NCHX,XMIN,XMAX,VALMAX)
+          GOTO 100
+C         ----------------------------------------------
+C         LOOP PER LETTURA SPECIFICHE ISTOGRAMMI 2 -DIM 
+C
+  120     READ(LTYFIL,*,ERR=990,END=992)
+     A    ID,NCHX,XMIN,XMAX,NCHY,YMIN,YMAX,VALMAX
+C          TYPE *,ID,NCHX,XMIN,XMAX,NCHY,YMIN,YMAX,VALMAX
+          IF(ID)  140,140,130
+  130     READ(LTYFIL,9000,ERR=990,END=992) TITLE
+C-------------------------------------------------------C
+C-------  BOOK ISTOGRAMMI 2-D IN //PAWC ----------------C
+C-------------------------------------------------------C
+          CALL HBOOK2(ID,TITLE,NCHX,XMIN,XMAX,
+     A                         NCHY,YMIN,YMAX,VALMAX)
+C-------------------------------------------------------C
+          GOTO 120
+  140     CONTINUE
+C         ------------------------------------------
+C         ------ LOOP PER LETTURA SPECIFICHE N-TUPLE 
+C         ------------------------------------------
+          if(noutflag3.le.0) goto 160
+C
+          OPEN(UNIT=HISLUN1,FORM='UNFORMATTED',RECL=1024,  
+     1         ACCESS='DIRECT',STATUS='NEW')           
+          CALL HRFILE(HISLUN1,'topw1','N')  ! assegna il file ad hbook
+          CALL HCDIR(DIRETTORIO1,'R')       ! metto in direttorio il dir
+          CALL HCDIR('//PAWC',' ')  ! Ripunto al dir del comm /pawc/
+C
+          READ(LTYFIL,*,ERR=990,END=992)  ID,NVAR,NPRIME  
+          READ(LTYFIL,9000,ERR=990,END=992) TITLE
+          READ(LTYFIL,9990,ERR=990,END=992) (TAGS(J),J=1,NVAR)
+
+          IF(NVAR.GT.10) THEN
+            WRITE(LTYOUT,*) ' ERROR, N-TUPLE MAX:',I2
+            NVAR=10
+          ENDIF
+c         ............................. booking con overflow su topw1
+          CALL HBOOKN(ID,TITLE,NVAR,direttorio1,NPRIME,TAGS)
+  160     CONTINUE
+c         ----------------------------------------- yaps events
+          if(noutflag4.le.0) goto 170
+          OPEN(UNIT=HISLUNy,FORM='UNFORMATTED',RECL=1024,  
+     1         ACCESS='DIRECT',STATUS='NEW')           
+          CALL HRFILE(HISLUNy,'topwy','N')  ! assegna il file ad hbook
+          CALL HCDIR(DIRETTORIOy,'R')       ! metto in direttorio il dir
+          CALL HCDIR('//PAWC',' ')  ! Ripunto al dir del comm /pawc/
+C
+  165     READ(LTYFIL,*,ERR=990,END=992) ID,NVAR,NPRIME  
+C
+          READ(LTYFIL,9000,ERR=990,END=992) TITLEy
+          READ(LTYFIL,9990,ERR=990,END=992) (TAGSy(J),J=1,NVAR)
+          if(id.eq.800) then
+             type *,' Warning ! Flag for positron decay n-tuple if OFF'
+             type *,' but I found paw ID=800 in histogram input file'
+             type *,' Skipping some lines ....... '
+             goto 165
+          endif          
+          IF(NVAR.GT.20) THEN
+            WRITE(LTYOUT,*) ' ERROR, N-TUPLE MAX:',I2
+            NVAR=10
+          ENDIF
+c         ................................. booking con overflow su topwy
+          CALL HBOOKN(ID,TITLEy,NVAR,direttorioy,NPRIME,TAGSy)
+  170     CONTINUE
+C
+C          --------------------------- lista dati del file GZ DI HBOOK
+           CALL HLDIR('//PAWC',' ')
+C           CALL HLDIR(DIRETTORIO,' ')  ! sono ancora vuoti
+C           CALL HLDIR(DIRETTORIO1,' ')
+C           CALL HLDIR(DIRETTORIOy,' ')
+           CALL HCDIR('//PAWC',' ')  ! Ripunto al dir del comm /pawc/
+C
+C          WRITE(LTYOUT,6081)
+C 6081     FORMAT(1X,'   END OF   HISTIN_CYL  ')
+C-------------------------------------------------------C
+          RETURN
+C-------------------------------------------------------C
+C------   ERROR SECTION --------------------------------C
+ 990      WRITE(LTYOUT,9900)
+ 9900     FORMAT(1H ,' ERROR IN READING FILE LTYFIL ',//)
+          TYPE *,ID,NCHX,XMIN,XMAX,NCHY,YMIN,YMAX,VALMAX
+          TYPE *,TITLE 
+          RETURN 
+C
+  992     WRITE(LTYOUT,9920)LTYFIL
+ 9920     FORMAT(1H ,' EOF IN READING FILE LTYFIL: ',I3,// )
+          RETURN
+C-------------------------------------------------------C
+C 9001 FORMAT(I10,I10,2F10.0,F10.0)
+C 9004 FORMAT(I10,I10,2F10.0,I10,2F10.0,F10.0)
+ 9000 FORMAT(A80)
+ 9990 format(A8)
+C-------------------------------------------------------C
+          END

diff --git a/code/source/howfar_cyl_2.for b/code/source/howfar_cyl_2.for
new file mode 100644 (file)
index 0000000..6535acf
--- /dev/null
+++ b/code/source/howfar_cyl_2.for
@@ -0,0 +1,678 @@
+      SUBROUTINE HOWFAR 
+C----------------------------------------------------------C
+C       versione 6 june 1994
+C      howfar_cyl_2 : modificato per includere i rivelatori
+C      howfar_cyl_1 : modified to draw particle's tracks
+C      CASE FOR CYL GEOMETRY - SEPT 93 BY M.GALLI 
+C----------------------------------------------------------C
+       INCLUDE 'DOUBLEDE.FOR'
+       INCLUDE 'COMM_CYL.FOR'
+C       INCLUDE 'EGS4COMM.FOR'
+       dimension traccia1(3),traccia2(3)
+C
+       DATA ALITTLE/0.0000/  ! 1mm/1000
+C      ....ALITTLE is a little quantity, used to put a particle
+C          crossing a boundary into the new region, instead of
+C          on the boundary. Altrimenti si dovrebbe lavorare in
+C          doppia precisione nel calcolo delle intersezioni coi
+C          cilindri, per evitare che si ritrovi la particella
+C          per sbaglio nella vecchia regione, anche dopo il boundary
+C          crossing.(se sbaglia regione va anche in loop)
+C          THIS CAN BE A BAD APPROX. we must have :
+C                  alittle << mean free path in the new region.
+       DATA USTEPMIN/1.E-6/
+C                se ustep << x,y , = precisione macchina,
+C                lo step e' in ogni modo nullo. Allora metto uno step 
+C                minimo= dimensioni apparato/precisione
+       LOGICAL NONESCE /.FALSE./
+C                Questo flag, se true, attiva un meccanismo che ritarda
+C                l'uscita delle particelle dal sistema, una particella
+C                che sta uscendo e' mantenuta nel sistema, dandogli un
+C                ustep=distanza dal confine * escestep,
+C                la seconda volta che cerca di uscire la si lascia andare.
+C                Ci sono delle ambiguita' in questo meccanismo, non ho 
+C                modo di riconoscere veramente la particella al successivo
+C                ingresso in howfar, ad esempio se ho vietato l'uscita ad
+C                un positrone e lui annichila, permettero' a uno dei fotoni
+C                prodotti di uscire subito, scambiandolo per il positrone,
+C                poiche' ha nello stack la sua posizione.
+       DATA ESCESTEP /0.5 /
+C                fattore di cui e' ridotto ustep
+       DATA NPESCE /0/ 
+C                contatore del vettore delle tentate uscite (USCI)
+       PARAMETER MSTACK=40
+       LOGICAL USCI(MSTACK)
+       DATA USCI /MSTACK*.FALSE./
+C                vettore associato allo stack, per ogni particella si 
+C                ricorda se ha tentato una uscita
+C
+C                  --------------------------------------------
+       LOGICAL TOOUTR,TOOUTZ,TONEXTR,TOPREVR,TOSAMER 
+C
+       TOOUTR=.FALSE.
+       TOOUTZ=.FALSE.
+       TONEXTR=.FALSE.
+       TOPREVR=.FALSE.
+       TOSAMER=.FALSE.
+C
+C      reset del vettore delle tentate uscite, elimina particelle
+C      non piu' esistenti perche' assorbite dal mezzo
+       IF(NONESCE.AND.NP.GT.NPESCE) THEN
+         DO 1 I=NP+1,NPESCE
+    1    USCI(I)=.FALSE.
+       ENDIF
+C      .....................................
+       ERRESQ=X(NP)*X(NP)+Y(NP)*Y(NP)
+       ERRE=SQRT(ERRESQ)
+C
+C      ##################################### ******** for testing
+       if(noutflag2.gt.0) then
+       write(50,8000)np,e(np),iq(np),ir(np),erre
+ 8000  format(' HOWFAR : part.:===>',I2,' E=',G13.7,' q=',I2,
+     1       ' region:',I2,17X,' r:',G13.7)
+       write(50,8010) x(np),y(np),z(np),u(np),v(np),w(np),ustep
+ 8010  format(' x,y,z,u,v,w,step=',10X,G14.8,1x,g14.8,1x,5G14.8)
+       endif
+C 
+C    I due casi estremi di particella gia' fuori sono considerati subito
+C----------------------TEST MIN.Z AND MAX.Z ---------------C 
+           IF(ABS(Z(NP)).GE.ZMAX) THEN
+c              IDISC=1
+c              IRNEW=NCYL+2
+              call howyaps
+              goto 500           ! RETURN
+           ENDIF
+C----------------------TEST MAX-R -------------------------C
+C           IF(ERRE.GE.RCYL(NCYL)) THEN
+           IF(ERREsq.GE.RCYLsq(NCYL)) THEN
+c              IDISC=1
+c              IRNEW=NCYL+1
+              call howyaps
+              goto 500           ! RETURN
+           ENDIF
+C
+C----------------------LOOKS FOR ACTUAL REGION-------------C
+C                      Dovrebbe essere nella regione IR(NP) 
+C          the external boundary of each region belongs to the region           
+           DO 10 I=1,NCYL
+C           IF(ERRE.LE.RCYL(I)) THEN   
+           IF(ERREsq.LE.RCYLsq(I)) THEN   
+             NR=I
+             GOTO 100
+           ENDIF
+   10      CONTINUE
+C                   Allora e' fuori cilindro
+c              IDISC=1
+c              IRNEW=NCYL+1
+              call howyaps
+              goto 500               ! RETURN
+ 100       CONTINUE
+C          case of wrong region, happens on cyl. boundary, where the
+C          particles position is ambiguous. The particles is returned to
+C          Howfar in the real region, whitout mouving.
+           IF(NR.NE.IR(NP)) THEN
+              IF(IR(NP).GT.1) THEN
+                 IF(ERREsq.EQ.RCYLsq(IR(NP)-1)) THEN
+C          .......... exactly on boundary, and assigned to the next region,
+C          this may be right, if the particles is set here by howfar,
+C          due to boundary crossing. 
+                 NR=IR(NP)
+         type*,' Warning, particle on int. boundary but in region',NR
+         if(noutflag2.gt.0) then
+         write(50,*)' Warning, particle on int.bound. but in region',NR
+         endif
+                 ELSE
+C             ................. WRONG REGION !
+                 TYPE *,' WARNING ! region:',NR,' instead of',IR(NP)
+                 if(noutflag2.gt.0) then
+                 write(50,*)' WARNING ! region:',NR,' instead of',IR(NP)
+                 endif
+                 IRNEW=NR
+                 USTEP=0.
+                 goto 500           ! RETURN
+                 ENDIF
+              ELSE               
+                 TYPE *,' WARNING ! region:',NR,' instead of',IR(NP)
+                 if(noutflag2.gt.0) then
+                 write(50,*)' WARNING ! region:',NR,' instead of',IR(NP)
+                 endif
+                 IRNEW=NR
+                 USTEP=0.
+                 goto 500           ! RETURN
+              ENDIF
+           ENDIF
+C
+C          ...................... COMPUTE POSITION AT NEXT STEP
+C          ...................... U,V,W are the projections of ustep
+C          .....normalizing U,V,W  ( obtained by tables)     serve ????
+           ANORM=1./SQRT(U(NP)*U(NP)+V(NP)*V(NP)+W(NP)*W(NP))
+           UN=U(NP)*ANORM
+           VN=V(NP)*ANORM
+           WN=W(NP)*ANORM
+C              --------------------- test
+C            if(anorm.ne.1.) then
+C               type 5559,ANORM,U(NP),V(NP),W(NP),UN,vn,wn
+C 5559          format(' anorm,'G20.12/' u,v,w, new u,v,w:',3(1x,G20.12))
+C            endif
+           U(NP)=UN        ! in questo modo quando ricalcola il nuovo step
+           V(NP)=VN        ! egs4 e' coerente con howfar 
+           W(NP)=WN
+C
+C           UN=U(NP)
+C           VN=V(NP)
+C           WN=W(NP)
+C
+           XNEW=X(NP)+USTEP*UN
+           YNEW=Y(NP)+USTEP*VN 
+           ZNEW=Z(NP)+USTEP*WN 
+C
+           RNEWSQ=XNEW*XNEW+YNEW*YNEW
+           RNEW=SQRT(RNEWSQ)
+C
+C      ##################################### ******** for testing
+       if(noutflag2.gt.0) then
+       write(50,8030)xnew,ynew,znew,rnew
+ 8030  format(' going to:xnew,ynew,znew,r=',4G15.8)
+       endif
+ 9999      continue        ! per l'uso del debugger
+C
+C          -------------------------------- FIND DESTINATION REGION
+C
+C                   ..................... test z destination
+           IF(ABS(ZNEW).GE.ZMAX) THEN 
+                  TOOUTZ=.TRUE.
+C                 ........ distance, along the fly-line, to ZMAX:z cyl. limits
+                  ZMAX1=SIGN(ZMAX,ZNEW)
+                  IF(WN.NE.0.0) THEN
+                    RZINT=(ZMAX1-Z(NP))/WN
+                  ELSE
+                    TYPE *,' error! can''t go out with W=0'
+                    RZINT=ZMAX1*RCYL(NCYL)
+                    TOOUTZ=.FALSE.
+                  ENDIF
+           ENDIF
+C
+C                   ..................... test radial destination
+C                   intersect with near cyl. surfaces
+ 9100      continue                             ! ===========> LOOK AT RZINT
+C      ##################################### ******** for testing
+           if(tooutz.and.noutflag2.gt.0) 
+     1            write(50,*)' totoutz,rzint=',tooutz,rzint
+C
+C          ......................... if going out of the region looks
+C                            for intersection with cyl. boundary
+C          GE: don't look for intersec if going on boundary( belong to prev.reg.
+           IF(RNEW.GT.RCYL(NR))
+     1     TONEXTR=INTERSEC(X(NP),Y(NP),Z(NP),XNEW,YNEW,ZNEW,
+     2                      RCYLSQ(NR),XX1,YY1,ZZ1,DISTAN1)
+ 9200      continue                             ! ===========> LOOK AT INTRSEC.
+C
+C      ##################################### ******** for testing
+      if(tonextr.and.noutflag2.gt.0) 
+     1         write(50,8050)tonextr,xx1,yy1,zz1,distan1
+ 8050 format(' tonextr,xx1,yy1,zz1,distan1',L,2x,4G14.8)
+C
+           IF(NR.NE.1) THEN
+           IF(RNEW.LE.RCYL(NR-1))
+     1       TOPREVR=INTERSEC(X(NP),Y(NP),Z(NP),XNEW,YNEW,ZNEW,
+     2                      RCYLSQ(NR-1),XX2,YY2,ZZ2,DISTAN2)
+           ENDIF
+C
+ 9300      continue                             ! ===========> LOOK AT INTRSEC.
+C
+C      ##################################### ******** for testing
+      if(toprevr.and.noutflag2.gt.0) 
+     1      write(50,8060)toprevr,xx2,yy2,zz2,distan2
+ 8060 format(' toprevr,xx2,yy2,zz2,distan2',L,1x,4G13.7)
+C
+C                     IF INTERSECTING 2 CYL CHOSES THE NEARER
+           IF(TONEXTR.AND.TOPREVR) THEN
+                  IF(DISTAN1.LT.DISTAN2) THEN
+                    TOPREVR=.FALSE.
+                    STEPNEW=DISTAN1
+                  ELSE
+                    TONEXTR=.FALSE.
+                    STEPNEW=DISTAN2
+                  ENDIF
+           ENDIF
+C          .......................  assign new step..
+           IF(TONEXTR) THEN
+                  XX=XX1
+                  YY=YY1
+                  ZZ=ZZ1
+                  STEPNEW=DISTAN1
+           ELSE IF(TOPREVR) THEN
+                  XX=XX2
+                  YY=YY2
+                  ZZ=ZZ2
+                  STEPNEW=DISTAN2
+           ELSE
+C          ....................... else same r region
+                  TOSAMER=.TRUE.
+                  IF(TOOUTZ) STEPNEW=SQRT( 
+     1                 (XX-X(NP))**2 + (YY-Y(NP))**2 +(ZZ-Z(NP))**2 )
+           ENDIF
+C          -------------------- The case of going out of Z and also 
+C                          in a new R region is considered below
+C          (the case of going out of r , and also going out of z in 
+C           the same point is considered as an r exit.)
+C
+           IF(TOOUTZ) THEN
+                  IF(ABS(RZINT).LE.STEPNEW) THEN
+                       TOOUTZ=.TRUE.
+                       TOPREVR=.FALSE.
+                       TONEXTR=.FALSE.
+                       TOSAMER=.FALSE.
+                  ELSE
+                       TOOUTZ=.FALSE.
+                  ENDIF
+           ENDIF
+C
+C
+C          ------------------------------------- EXIT DELAY 
+C          meccanismo che ritarda l'uscita di particelle dal sistema,
+C          quando una particella ( riconosciuta dalla sua posizione
+C          nello stack) cerca di uscire dal sistema e' tenuta dentro
+C          per forza, dandogli uno step pari alla distanza dal bordo
+C          del sistema * escestep, la seconda volta che cerca di uscire
+C          la si lascia andare. USCI e' un vettore logico che e' true
+C          se ad una particella e' gia' stato vietato di uscire una volta.
+           IF(NONESCE) THEN
+                IF(USCI(NP).OR.TOSAMER.OR.TONEXTR.OR.TOPREVR) THEN
+C                   casi in cui il meccanismo non si usa, reset del flag
+                    USCI(NP)=.FALSE.
+                ELSE 
+                    IF(TOOUTZ) THEN
+                      TOTOUTZ=.FALSE.
+                      USTEP=RZINT*ESCESTEP
+                    ELSE         ! if(tooutr) then
+                      TOTOUTR=.FALSE.
+                      USTEP=STEPNEW*ESCESTEP
+                    ENDIF
+                    TOSAMER=.TRUE.
+                    USCI(NP)=.TRUE.
+                    NPESCE=NP
+C                   redefine, using new step,all data needed for tosamer=.true
+                    XNEW=X(NP)+USTEP*UN
+                    YNEW=Y(NP)+USTEP*VN 
+                    ZNEW=Z(NP)+USTEP*WN 
+                    RNEWSQ=XNEW*XNEW+YNEW*YNEW
+                    RNEW=SQRT(RNEWSQ)
+                ENDIF
+           ENDIF
+C      
+C          ------------------------------------- FINAL SETTINGS 
+C          when crossing a boundary the particle is put INSIDE the
+C          new region, by adding ALITTLE, ( a little quantity),
+C          if the step is very little maybe alittle>>stepnew, in this
+C          this case we must add a quantity < stepnew to avoid 
+C          breakdow of some approximation in subr. electr
+C
+           IF(TOOUTZ) THEN
+                IDISC=-1
+                IRNEW=NCYL+1
+C                USTEP=RZINT    + RZINT*ALITTLE
+                USTEP=MAX(RZINT,USTEPMIN)
+                goto 500            ! RETURN
+           ELSE IF(TOOUTR) THEN
+                IDISC=-1
+                IRNEW=NCYL+1
+C               must go a bit into new region, the boundary belongs
+C               to the previous one
+C                USTEP=STEPNEW  + STEPNEW*ALITTLE
+                USTEP=MAX(STEPNEW,USTEPMIN)
+                goto 500           !   RETURN
+           ELSE IF(TOPREVR) THEN
+                IRNEW=NR-1
+C                USTEP=STEPNEW  + STEPNEW*ALITTLE
+                USTEP=MAX(STEPNEW,USTEPMIN)
+C                DNEAR(NP)=      USTEPMIN
+           ELSE IF(TONEXTR) THEN
+                IRNEW=NR+1
+C                USTEP=STEPNEW  + STEPNEW*ALITTLE
+                USTEP=MAX(STEPNEW,USTEPMIN)
+C                DNEAR(NP)=      USTEPMIN
+           ELSE IF(TOSAMER) THEN
+                RNEW=SQRT(RNEWSQ)
+                DNEAR(NP)=MIN(ZMAX-ZNEW,ZNEW+ZMAX,RCYL(NR)-RNEW)
+                IF(NR.NE.1) DNEAR(NP)=MIN(DNEAR(NP),RNEW-RCYL(NR-1))
+           ELSE
+                TYPE*,' che succede ? non si verifica nulla ?' 
+           ENDIF
+C
+C------------------------------- STEP TESTING AT BOUNDARY CROSSING
+C ...............................................................
+C          correct ustep to avoid errors due to approx.
+C          this may be used instead of ustep=stepnew + alittle
+C          Siccome i casi di errore non sono statisticamente
+C          significativi una approx. qui non disturba, come puo'
+C          accadere aggiungendo alitte tutte le volte che si attraversa
+C          un cilindro.  
+C          Procedo guardando che r avra' il prossimo ingresso in howfar,
+C          se sbaglia regione aggiungo qualcosa.
+           IF(TONEXTR.OR.TOPREVR) THEN
+                IGIRO=0
+   20           CONTINUE
+                XNEW=X(NP)+USTEP*UN
+                YNEW=Y(NP)+USTEP*VN 
+C               ZNEW=Z(NP)+USTEP*WN 
+                RNEWSQ=XNEW*XNEW+YNEW*YNEW
+                RNEW=SQRT(RNEWSQ)
+C               errore nel next entry in howfar nel cercare la regione
+                IF(TONEXTR) THEN
+C                 regione che sta attraversando=  irnew-1
+                  ERROR=RCYL(IRNEW-1)-RNEW
+                ELSE
+                  ERROR=RNEW-RCYL(IRNEW)
+                ENDIF
+C
+                if(noutflag2.gt.0) then
+                WRITE(50,8070) XNEW,YNEW,RNEWSQ,RNEW,USTEP,ERROR
+ 8070           FORMAT(' test: next x,y,r2,r,ustep,error:',6G14.8)
+                endif
+                IF(ERROR.GT.0.0) THEN
+C                IF(ERROR.GE.0.0) THEN
+C                   IF(ERROR.EQ.0.) USTEP=USTEP+USTEPMIN
+                   USTEP_ORIGINALE=USTEP
+                   correzione=2.*ERROR/SQRT(1.-WN*WN)
+C                  se applico una correzione dell'ordine dello step 
+C                  alcune approx in egs4 saltano e il programma si ferma
+                   if( abs(correzione).gt.abs(ustep*0.1) ) then
+                     type *,' WARNING :too big correction not applied!'
+                     go to 500
+                   endif
+C                   USTEPNUOVO=USTEP+2.*ERROR/SQRT(1.-WN*WN)
+                   USTEPNUOVO=USTEP+correzione
+                   TYPE 8075,ustep,ustepnuovo,correzione,igiro
+                   if(noutflag2.gt.0) then
+                   WRITE(50,8075) USTEP,USTEPNUOVO,USTEP-USTEPNUOVO,IGIRO
+ 8075              FORMAT(' WARN! old ustep:',G14.8,' new:',G14.8,
+     1                    ' corr:',G14.8,' iter.:',I3)
+                   endif
+                   USTEP=USTEPNUOVO
+                   IGIRO=IGIRO+1
+                   IF(IGIRO.EQ.1) THEN
+                     ERROR1=ERROR
+                     GOTO 20 
+                   ELSE IF(ERROR.GT.ERROR1) THEN
+                     if(noutflag2.gt.0) then
+                     WRITE(50,*) ' ERROR, WRONG INTERSECTION FOUND'
+                     WRITE(50,*) ' CORRECTION IMPOSSIBLE !'
+                     endif
+                     TYPE*,' ERROR, WRONG INTERSECTION FOUND'
+                     TYPE*, ' CORRECTION IMPOSSIBLE !'
+                     USTEP=USTEP_ORIGINALE
+                     GOTO 499
+                   ELSE IF(IGIRO.LT.10) THEN
+                     GOTO 20
+                   ENDIF
+                ENDIF
+          ENDIF
+  499     CONTINUE
+C ...............................................................
+C---------------------------------------------------------C
+C      ##################################### ******** for testing
+       if(noutflag2.gt.0) then
+       write(50,8080)tooutz,tooutr,toprevr,tonextr,tosamer
+ 8080  format(' outz:',L,'  outr:',L,'  prevr:',L,
+     1       '  nextr:',L,'  samer:',L)
+       write(50,8090)stepnew,rzint,irnew,ustep,idisc,dnear(np)
+ 8090  format(' stepnew:',G13.7,' rzint:',G13.7,
+     2       ' irnew,ustep,idisc,dnear:',I3,1X,G13.7,I3,1X,G13.7)
+       endif
+C
+c      got to 500 ! RETURN
+C---------------------------------------------------------C
+  500 continue
+      if(traccia) then     ! if requested draws particle path
+        traccia1(1)=x(np)
+        traccia1(2)=y(np)
+        traccia1(3)=z(np)
+        traccia2(1)=x(np)+ustep*u(np)
+        traccia2(2)=y(np)+ustep*v(np)
+        traccia2(3)=z(np)+ustep*w(np)
+         
+        call pg_trackxyzr(traccia1,traccia2,3)
+      endif
+      RETURN
+      END   
+C
+         FUNCTION INTERSEC(X,Y,Z,XNEW,YNEW,ZNEW,RTOGOSQ,
+     1                       XX,YY,ZZ,DISTANCE)
+C         FUNCTION INTERSEC(Xqq,Yqq,Zqq,XNEWqq,YNEWqq,ZNEWqq,RTOGOSQqq,
+C     1                       XXqq,YYqq,ZZqq,DISTANCEqq)
+C      ================== double precision for testing
+C         implicit real*8 (a-h,o-z)
+C         real*4 xqq,yqq,zqq,xnewqq,ynewqq,znewqq,rtogosqqq
+C         real*4 xxqq,yyqq,zzqq,distanceqq
+C      ========================================================     
+C        ------------------------------------------------------
+C        FINDS PARTICLE-PATH AND CYL SURF. INTERSECTION
+C        Looks for the intersection on the same side of xnew
+C        if 2 intersections are found on the same side 
+C        chose the nearer to x.
+C        If the intersection is found xx,yy,zz is the intersection
+C        point, distance its distance from x, and intersec is
+C        TRUE, otherwise intersec is FALSE.
+C        --------------------------------------------------------
+         LOGICAL INTERSEC,SOL1,SOL2
+         DATA PRECISION /1.E-6/       
+C
+C        ==================================== testing double precision
+C         x=xqq
+C         y=yqq
+C         z=zqq
+C         xnew=xnewqq
+C         ynew=ynewqq
+C         znew=znewqq
+C         rtogosq=rtogosqqq
+C        ===========================================================
+C        ------------------- Case of X .ne .XNEW, particle running in a plane
+C                             with x = constant
+         XXTEST=XNEW-X           ! possibile testare semplicemente V
+         IF(XXTEST.NE.0.0) THEN  
+            AA=(YNEW-Y) / XXTEST
+            A=1.+(AA*AA)
+            B=(Y-AA*X) * AA
+            C=(Y-AA*X)**2 - RTOGOSQ 
+            DISCR=B*B-A*C
+ 9999 continue
+C           ............................... case of two solution
+            IF(DISCR.GT.0.0) THEN
+                     DISCR=SQRT(DISCR)
+                     X1= (DISCR-B)/A
+                     X2=-(DISCR+B)/A
+C                    ................. looks for the good solution:
+C                    the one in the particle direction (between x and xnew)
+C                    (note that if  x1=xnew and xnew-x <0, 
+C                    we have a wrong answer if x1=xnew is not tested )
+C                    x1=x in a particle on boundary, intersection = false
+                     IF(SIGN(1.,X1-X).EQ.SIGN(1.,XNEW-X1).
+     1                     OR.X1.EQ.XNEW) THEN
+C     1                    OR.X1.EQ.X.OR.X1.EQ.XNEW) THEN
+                          SOL1=.TRUE.
+C                         Caso indistinguibile da x1=x
+                          IF(ABS(X1-X).LT.PRECISION) SOL1=.FALSE.
+                     ELSE
+                          SOL1=.FALSE.
+                     ENDIF
+                     IF(SIGN(1.0,X2-X).EQ.SIGN(1.0,XNEW-X2).
+     1                    OR.X2.EQ.XNEW) THEN
+C     1                    OR.X2.EQ.X.OR.X2.EQ.XNEW) THEN
+                          SOL2=.TRUE.
+C                         Caso indistinguibile da x1=x
+                          IF(ABS(X2-X).LT.PRECISION) SOL2=.FALSE.
+                     ELSE
+                          SOL2=.FALSE.
+                     ENDIF
+C
+C                         .................... if both solution on the same side
+C                                              looks for the one nearer to x
+                     IF(SOL1.AND.SOL2) THEN
+                          Y1=Y+AA*(X1-X)
+                          Y2=Y+AA*(X2-X)
+                          Z1=Z+(ZNEW-Z)/XXTEST *(X1-X)
+                          Z2=Z+(ZNEW-Z)/XXTEST *(X2-X)
+                          DIST1=(Y1-Y)**2 + (X1-X)**2 +(Z1-Z)**2
+                          DIST2=(Y2-Y)**2 + (X2-X)**2 +(Z2-Z)**2
+                          IF(DIST1.LT.DIST2) THEN
+                             XX=X1
+                             YY=Y1
+                             ZZ=Z1
+                             DISTANCE=SQRT(DIST1)
+                             INTERSEC=.TRUE.
+                          ELSE IF(DIST1.GT.DIST2) THEN
+                             XX=X2
+                             YY=Y2
+                             ZZ=Z2
+                             DISTANCE=SQRT(DIST2)
+                             INTERSEC=.TRUE.
+                          ELSE
+                             TYPE*,' something wrong,2 solution'
+                             type*,' on same side and at same distance'
+                             INTERSEC=.FALSE.
+                             RETURN
+                          ENDIF
+C                    .............................. if only x1 on the good side
+                     ELSE IF(SOL1) THEN
+                          XX=X1                           
+                          YY=Y+AA*(XX-X)
+                          ZZ=Z+(ZNEW-Z)/XXTEST *(XX-X)                          
+                          DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + 
+     1                                                  (ZZ-Z)**2 )
+                          INTERSEC=.TRUE.
+C                    .............................. if only x2 on the good side
+                     ELSE IF(SOL2) THEN 
+                          XX=X2
+                          YY=Y+AA*(XX-X)
+                          ZZ=Z+(ZNEW-Z)/XXTEST *(XX-X)
+                          DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + 
+     1                                                  (ZZ-Z)**2 )
+                          INTERSEC=.TRUE.
+                     ELSE
+C                         .............. no good solutions, both intersections
+C                                       on the wrong side
+                          INTERSEC=.FALSE.
+                          RETURN
+                     ENDIF
+C           ............................ only one intersection, traject. tangent
+C                            to cyl. surf ( we are in the case of a particle
+C                            not running along the y axis, i.e. with constant x)
+            ELSE IF(DISCR.EQ.0.0) THEN
+ 9998 continue
+C           
+                     TYPE *,' Particle tangent to cyl. boundary'
+                     XX=-B/A
+                     IF(SIGN(1.0,XX-X).EQ.SIGN(1.0,XNEW-XX).
+     1                   OR.XX.EQ.X.OR.XX.EQ.XNEW) THEN
+                         YY=Y+AA*(XX-X)
+                         ZZ=Z+(ZNEW-Z)/XXTEST *(XX-X)
+                         DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + 
+     1                                                (ZZ-Z)**2 )
+                         INTERSEC=.TRUE.
+                     ELSE
+                         INTERSEC=.FALSE.
+                         RETURN
+                     ENDIF
+            ELSE 
+ 9997 continue
+C           ............ discr <0   ===> no intersection
+                     INTERSEC=.FALSE.
+                     RETURN
+            ENDIF
+         ELSE
+C        ------------------- Case of X=XNEW, particle running in a plane
+C                                    with constant X
+            XX=XNEW
+            YYTEST=YNEW-Y        ! possibile testare semplicemente V
+            IF(YYTEST.EQ.0.0) THEN
+C                               else running with x,y constant, along z
+                   IF(RTOGOSQ.EQ.XX*XX+YY*YY) THEN
+C                  .......... if running along cyl. surface
+                      YY=Y
+                      ZZ=Z
+                      DISTANCE=0.
+                      INTERSEC=.TRUE.
+                      GOTO 999
+                   ELSE
+C                  ............. no intersection
+                      INTERSEC=.FALSE.
+                      RETURN
+                   ENDIF
+            ENDIF
+            YY1=RTOGOSQ-XX*XX
+            IF(YY1.LT.0.0) THEN
+C                  ..................... no solution = no intersection
+                   INTERSEC=.FALSE.
+                   RETURN
+            ENDIF
+            YY1=SQRT(YY1)
+            YY2=-YY1
+C           ................. looks for the solutions on the good side of y
+            IF(SIGN(1.0,YY1-Y).EQ.SIGN(1.0,YNEW-YY1).
+     1             OR.YY1.EQ.YNEW) THEN
+C     1             OR.YY1.EQ.Y.OR.YY1.EQ.YNEW) THEN
+                   SOL1=.TRUE.
+C                  indistinguibile da yy1=y
+                   IF(ABS(YY1-Y).LT.PRECISION) SOL1=.FALSE.
+            ELSE
+                   SOL1=.FALSE.
+            ENDIF
+            IF(SIGN(1.0,YY2-Y).EQ.SIGN(1.0,YNEW-YY2).
+     1             OR.YY2.EQ.YNEW) THEN
+C     1             OR.YY2.EQ.Y.OR.YNEW.EQ.YY2) THEN
+                   SOL2=.TRUE.
+C                  indistinguibile da yy1=y
+                   IF(ABS(YY2-Y).LT.PRECISION) SOL2=.FALSE.
+            ELSE
+                   SOL2=.FALSE.
+            ENDIF
+C           ................. two good solutions, find the nearer one
+ 9996 continue
+            IF(SOL1.AND.SOL2) THEN
+                   ZZ1=Z+(ZNEW-Z)/YYTEST *(YY1-Y)
+                   ZZ2=Z+(ZNEW-Z)/YYTEST *(YY2-Y)
+                   DIST1=(ZZ1-Z)**2 + (YY1-Y)**2
+                   DIST2=(ZZ2-Z)**2 + (YY2-Y)**2
+                   IF(DIST1.LT.DIST2) THEN
+                       YY=YY1
+                       ZZ=ZZ1
+                       DISTANCE=SQRT(DIST1)
+                       INTERSEC=.TRUE.
+                   ELSE IF(DIST2.LT.DIST1) THEN
+                       YY=YY2
+                       ZZ=ZZ2
+                       DISTANCE=SQRT(DIST2)
+                       INTERSEC=.TRUE.
+                   ELSE
+                       TYPE*,' something wrong 2 good sol. same side'
+                       TYPE*,' same distance ?'
+                       INTERSEC=.FALSE.
+                       RETURN
+                   ENDIF
+            ELSE IF(SOL1) THEN
+                   YY=YY1
+                   ZZ=Z+(ZNEW-Z)/YYTEST *(YY-Y)
+                   DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + (ZZ-Z)**2 )
+                   INTERSEC=.TRUE.
+            ELSE IF(SOL2) THEN      
+                   YY=YY2
+                   ZZ=Z+(ZNEW-Z)/YYTEST *(YY-Y)
+                   DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + (ZZ-Z)**2 )
+                   INTERSEC=.TRUE.
+            ELSE 
+                   INTERSEC=.FALSE.
+                   RETURN
+            ENDIF
+C        ----------------------------
+         ENDIF
+C
+ 999   CONTINUE
+C      ================================= testing double prec
+C                   xxqq=xx
+C                   yyqq=yy
+C                   zzqq=zz
+C                   distanceqq=distance
+C      =====================================
+          RETURN
+          END

diff --git a/code/source/howfar_cyl_2a.for b/code/source/howfar_cyl_2a.for
new file mode 100644 (file)
index 0000000..c6f5ffd
--- /dev/null
+++ b/code/source/howfar_cyl_2a.for
@@ -0,0 +1,905 @@
+c                        file howfar_cyl_2a del 25-oct-1994
+      SUBROUTINE HOWFAR 
+C----------------------------------------------------------C
+C       27-7-1994
+C      versione howfar_cyl_2a : inserite le call per i rivelatori
+C      Versione howfar_cyl_1a : intersec modificata per evitare
+C                               divisioni per numeri piccoli
+C                            - resta solo meccanismo che evita
+C                              di porre particelle vicino al bordo
+C                              
+C      howfar_cyl_1 : modified to draw particle's tracks
+C      CASE FOR CYL GEOMETRY - SEPT 93 BY M.GALLI 
+C----------------------------------------------------------C
+       INCLUDE 'COMM_CYLtot_2.FOR'
+       include 'comm_yaps.for'
+       dimension traccia1(3),traccia2(3)
+c
+c ---------------------------------------------------------
+C      test della posizione ove si trova la particella:
+c      le regioni 1 .. ncyl sono i cilindri concentrici.
+c      la regione ncyl+1 e' la regione esterna ai cilindri,
+c                         delimitata da rcyl(ncyl) e zmax
+c      le regioni da nctyl+1 a ncyl+1+nyp sono i rivelatori
+c      la regione ncyl+1+nyp+1       e' fuori del sistema,
+c                            delimitata da rultimo e zultimo
+c -----------------------------------------------------------
+c      se la particella e' nei cilindri viene chiamate howcyls 
+c      se la particella e' fuori cilindri viene chiamata howyaps
+c      se la particella e' fuori del sistema viene eliminata
+c  ----------------------------
+c      Il bordo esterno del cilindro ne fa parte, l'interno no
+c      Il limite z del cilindro ne fa parte
+c      Le facce dei rivelatori non ne fanno parte
+c        Nonostante tutto ci sono ambiguita' geometriche ai bordi,
+c      sono quindi introdotti meccanismi correttivi che impediscono ad una 
+c      particella di stare troppo vicino al bordo nei cilindri.
+c         Nei rivelatori le particelle entranti sono poste un po' dentro il
+c      rivelatore, le uscenti sul bordo.
+c
+C      ##################################### ******** for testing
+       if(noutflag2.gt.0) then
+       write(6,8000)np,e(np),iq(np),ir(np),erre
+       write(50,8000)np,e(np),iq(np),ir(np),erre
+ 8000  format(' HOWFAR : part.:===>',I2,' E=',G13.7,' q=',I2,
+     1       ' region:',I2,17X,' r:',G13.7)
+       write(6,8010) x(np),y(np),z(np),u(np),v(np),w(np),ustep
+       write(50,8010) x(np),y(np),z(np),u(np),v(np),w(np),ustep
+ 8010  format(' x,y,z,u,v,w,step=',10X,G14.8,1x,g14.8,1x,5G14.8)
+       endif
+C  ---------------------------------------
+       ERRESQ=X(NP)*X(NP)+Y(NP)*Y(NP)
+       ERRE=SQRT(ERRESQ)
+C
+c       ................... guardo se e' fuori sistema, nei
+c                           cilindri oppure nella zona dei rivelatori
+c
+           if(ABS(Z(NP)).Gt.Zultimo.or.erresq.gt.rultimosq) THEN
+              idisc=1                      ! si trova fuori
+              irnew=ncyl+nyp+2
+              ir(np)=irnew  ! idisc=1=discard immediato, assegnerebbe alla
+c                             regione vecchia nelle somme in ausgabe
+           else IF(ABS(Z(NP)).Gt.ZMAX.or.erresq.gt.rcylsq(ncyl)) THEN
+              call howyaps(erre,erresq)    ! si trova nella zona dei yaps
+           else if(abs(Z(NP)).lt.ZMAX.and.erresq.lt.rcylsq(ncyl)) THEN
+              call howcyls(erre,erresq)    ! si trova nei cilindri      
+           else if(abs(Z(NP)).eq.ZMAX.or.erresq.eq.rcylsq(ncyl)) THEN  
+c          sul bordo decido in base ad ir(np), cioe' ove la ho messa al giro prime
+              if(ir(np).eq.ncyl+1) then
+                 call howyaps(erre,erresq)    ! si trova nella zona dei yaps
+              else  if(ir(np).le.ncyl) then
+                 call howcyls(erre,erresq)    ! si trova nei cilindri      
+              else
+                 type *,' WARNING :HOWFAR:confine cyl.ma ir=',ir(np)
+                 if(noutflag5.gt.2)
+     1           write(50,*)' WARNING :HOWFAR:confine cyl ma ir=',ir(np)
+                 idisc=1                      ! LA SCARTO
+                 irnew=ncyl+nyp+2
+                 ir(np)=irnew  ! per idisc=1 egs4 non sposta la part.
+                 call parla(-12)
+                 call parla(-20)
+              endif
+           else                                         
+              type *,' WARNING :HOWFAR:ne fuori ne dentro cyl?',IR(NP)
+                 if(noutflag5.gt.2)
+     1     write(50,*)' WARNING :HOWFAR:ne fuori ne dentro cyl?',IR(NP)
+                 idisc=1                      ! LA SCARTO
+                 irnew=ncyl+nyp+2
+                 ir(np)=irnew  ! per idisc=1 egs4 non sposta la part.
+                 call parla(12)
+                 call parla(-20)
+           ENDIF
+           if(traccia .gt. 0) then     ! if requested draws particle path
+           traccia1(1)=x(np)
+           traccia1(2)=y(np)
+           traccia1(3)=z(np)
+           traccia2(1)=x(np)+ustep*u(np)
+           traccia2(2)=y(np)+ustep*v(np)
+           traccia2(3)=z(np)+ustep*w(np)
+         
+          call pg_trackxyzr(10,traccia1,traccia2,3)
+          call iuwk(10,2)  ! scarica su video il buffer
+      endif
+c
+           return
+           end
+       SUBROUTINE HOWCYLS(erre,erresq)
+c      -----------------------------------------------
+c      tratta la geometria per la zona a cilindri concentrici
+c      -------------------------------------------------------
+c
+       INCLUDE 'COMM_CYLtot_2.FOR'
+       include 'comm_yaps.for'
+c      ----------------------
+C
+c       data nsave/0/         ! per tests
+c       DATA ALITTLE/0.00001/  ! 1mm/1000       ! ALITTLE UNUSED NOW !
+C      ....ALITTLE is a little quantity, used to put a particle
+C          crossing a boundary into the new region, instead of
+C          on the boundary. Altrimenti si dovrebbe lavorare in
+C          doppia precisione nel calcolo delle intersezioni coi
+C          cilindri, per evitare che si ritrovi la particella
+C          per sbaglio nella vecchia regione, anche dopo il boundary
+C          crossing.(se sbaglia regione va anche in loop)
+C          THIS CAN BE A BAD APPROX. we must have :
+C                  alittle << mean free path in the new region.
+       data aminimo/1.e-3/   ! min distanza da boundary surf. 
+       DATA USTEPMIN/1.E-6/
+C                se ustep << x,y , = precisione macchina,
+C                lo step e' in ogni modo nullo. Allora metto uno step 
+C                minimo= dimensioni apparato/precisione
+c       LOGICAL NONESCE /.FALSE./      ! UNUSED NOW
+C                Questo flag, se true, attiva un meccanismo che ritarda
+C                l'uscita delle particelle dal sistema, una particella
+C                che sta uscendo e' mantenuta nel sistema, dandogli un
+C                ustep=distanza dal confine * escestep,
+C                la seconda volta che cerca di uscire la si lascia andare.
+C                Ci sono delle ambiguita' in questo meccanismo, non ho 
+C                modo di riconoscere veramente la particella al successivo
+C                ingresso in howfar, ad esempio se ho vietato l'uscita ad
+C                un positrone e lui annichila, permettero' a uno dei fotoni
+C                prodotti di uscire subito, scambiandolo per il positrone,
+C                poiche' ha nello stack la sua posizione.
+c       DATA ESCESTEP /0.5 /
+C                fattore di cui e' ridotto ustep
+c       DATA NPESCE /0/ 
+C                contatore del vettore delle tentate uscite (USCI)
+c       PARAMETER MSTACK=40
+c       LOGICAL USCI(MSTACK)
+c       DATA USCI /MSTACK*.FALSE./
+C                vettore associato allo stack, per ogni particella si 
+C                ricorda se ha tentato una uscita
+C
+C                  --------------------------------------------
+       LOGICAL TOOUTR,TOOUTZ,TONEXTR,TOPREVR,TOSAMER 
+C
+c       nsave=nsave+1        ! PER TEST
+c       if(nsave.gt.1754) noutflag2=1
+C
+C----------------------LOOKS FOR ACTUAL REGION-------------C
+C                      Dovrebbe essere nella regione IR(NP) 
+C          the external boundary of each region belongs to the region           
+           DO 10 I=1,NCYL
+c           IF(ERRE-RCYL(I) .LE.0.0 ) THEN
+c           IF(ERRE.Lt.RCYL(I)) THEN   
+            IF(ERREsq.LE.RCYLsq(I)) THEN   
+             NR=I
+             GOTO 100
+           ENDIF
+   10      CONTINUE
+C                   Allora e' fuori cilindro doveva accorgersene howfar
+               TYPE *,' WARNING ! doveva essere nei rivelatori!!!'
+                 if(noutflag5.gt.2)
+     1         write(50,*)' WARNING ! doveva essere nei rivelatori!!!'
+                 call parla(12)
+               if(noutflag2.gt.0) then
+               write(50,*)' WARNING ! region:',NR,' instead of',IR(NP)
+               write(6,8000)np,e(np),iq(np),ir(np),erre
+               write(50,8000)np,e(np),iq(np),ir(np),erre
+               write(6,8010) x(np),y(np),z(np),u(np),v(np),w(np),ustep
+               write(50,8010) x(np),y(np),z(np),u(np),v(np),w(np),ustep
+ 8000  format(' HOWFAR : part.:===>',I2,' E=',G13.7,' q=',I2,
+     1       ' region:',I2,17X,' r:',G13.7)
+ 8010  format(' x,y,z,u,v,w,step=',10X,G14.8,1x,g14.8,1x,5G14.8)
+              endif
+c              IDISC=1
+c              IRNEW=NCYL+1
+              if(ir(np).gt.ncyl) then
+                call howyaps(erre,erresq)                   ! for yaps
+                goto 500               ! RETURN
+              else
+                irnew=ncyl+1
+                ustep=0
+                goto 500
+              endif
+ 100       CONTINUE
+c=======================
+C          case of wrong region, happens on cyl. boundary, where the
+C          particles position is ambiguous. The particles is returned to
+C          Howfar in the real region, whitout mouving.
+c=======================
+
+       TOOUTR=.FALSE.
+       TOOUTZ=.FALSE.
+       TONEXTR=.FALSE.
+       TOPREVR=.FALSE.
+       TOSAMER=.FALSE.
+C
+c-------------------------------------------------------- ORA INATTIVO
+C      reset del vettore delle tentate uscite, elimina particelle
+C      non piu' esistenti perche' assorbite dal mezzo
+c       IF(NONESCE.AND.NP.GT.NPESCE) THEN
+c         DO 1 I=NP+1,NPESCE
+c    1    USCI(I)=.FALSE.
+c       ENDIF
+c--------------------------------------------------------
+C      .....................................
+C             LOOP PER CORREZIONE DA ERRATA POSIZIONE DI INPUT
+c       numgiri=0
+c  2    CONTINUE
+C            ===========================
+           IF(NR.NE.IR(NP)) THEN
+c                if(noutflag2.le.0) THEN
+c                   noutflag2=noutflag2+1
+c                   TYPE *, 'ERRORE A NSAVE=',NSAVE
+c                   write(50,*) 'ERRORE A NSAVE=',NSAVE
+c                   TYPE *, ' WARNING NR.NE.IR(NP) attivo stampe'
+c                   write(50,*) ' WARNING NR.NE.IR(NP) attivo stampe'
+c                endif
+             IF(IR(NP).GT.1) THEN
+                 IF(ERREsq.EQ.RCYLsq(IR(NP)-1)) THEN
+C                 .......... exactly on boundary, and assigned to the next region,(questa)
+C                  this may be right, if the particles is set here by howfar,
+C                  due to boundary crossing. 
+                 NR=IR(NP)
+         type*,' Warning, particle on int. boundary but in region',NR
+         if(noutflag2.gt.0.or.noutflag5.gt.2) then
+         write(50,*)' Warning, particle on int.bound. but in region',NR
+         endif
+c                 
+                 ELSE
+C             ................. WRONG REGION !
+c
+                 TYPE *,' WARNING ! region:',NR,' instead of',IR(NP)
+                 call parla(-14)
+                 if(noutflag2.gt.0.or.noutflag5.gt.2)
+     1     write(50,*)' WARNING ! region:',NR,' instead of',IR(NP)
+c        ----> begin if su noutflag
+                 if(noutflag2.gt.0) then
+                 write(6,8000)np,e(np),iq(np),ir(np),erre
+                 write(50,8000)np,e(np),iq(np),ir(np),erre
+               write(6,8010) x(np),y(np),z(np),u(np),v(np),w(np),ustep
+               write(50,8010) x(np),y(np),z(np),u(np),v(np),w(np),ustep
+               XNEW=X(NP)+USTEP*U(np)
+               YNEW=Y(NP)+USTEP*V(np) 
+               ZNEW=Z(NP)+USTEP*W(np) 
+               RNEWSQ=XNEW*XNEW+YNEW*YNEW
+               RNEW=SQRT(RNEWSQ)
+               write(6,8030)xnew,ynew,znew,rnew
+               write(50,8030)xnew,ynew,znew,rnew
+C               type *,' ----------------'
+C                 write(6,*) ' PARTICELLA PRECEDENTE:'
+C                 write(50,*)' PARTICELLA PRECEDENTE:'
+C               write(6,8010) xsav,ysav,zsav,usav,vsav,wsav,ustepsav 
+C               write(50,8010)xsav,ysav,zsav,usav,vsav,wsav,ustepsav  
+C               write(6,8030)xnewsav,ynewsav,znewsav,rnewsav
+C               write(50,8030)xnewsav,ynewsav,znewsav,rnewsav
+C                 write(6,*) ' prec errore:',errorsav,' ========='
+C                 write(50,*) ' prec errore:',errorsav,' ========='
+c               ----------------------------------------------------
+                 endif        ! SU NOUTFLAG2
+c        ----> ending if su noutflag
+c
+c                  ---------------> scarto la particella fuori posto
+                  idisc=1
+                  irnew=ncyl+nyp+2
+                  ir(np)=irnew  ! per idisc=1 egs4 non sposta la part.
+                  call parla(-20)
+c
+c                 IRNEW=NR
+c                 USTEP=ustepmin
+c                 USTEP=0.         ! interagisce di nuovo ove era e rientra qui
+                 goto 500           ! RETURN
+                 ENDIF
+              ELSE               ! crede di essere nella regione 1  
+                 TYPE *,' WARNING ! region:',NR,' instead of',IR(NP)
+                 call parla(-14)
+                 if(noutflag2.gt.0.or.noutflag5.gt.2) 
+     1         write(50,*)' WARNING ! region:',NR,' instead of',IR(NP)
+c
+c        ----> begin if su noutflag
+                 if(noutflag2.gt.0) then
+                 write(6,8000)np,e(np),iq(np),ir(np),erre
+                 write(50,8000)np,e(np),iq(np),ir(np),erre
+               write(6,8010) x(np),y(np),z(np),u(np),v(np),w(np),ustep
+               write(50,8010) x(np),y(np),z(np),u(np),v(np),w(np),ustep
+               XNEW=X(NP)+USTEP*U(np)
+               YNEW=Y(NP)+USTEP*V(np) 
+               ZNEW=Z(NP)+USTEP*W(np) 
+               RNEWSQ=XNEW*XNEW+YNEW*YNEW
+               RNEW=SQRT(RNEWSQ)
+               write(6,8030)xnew,ynew,znew,rnew
+               write(50,8030)xnew,ynew,znew,rnew
+               type *,' ----------------'
+                 endif   ! di noutflag2 
+c        ----> ending if su noutflag
+c                  ---------------> scarto la particella fuori posto
+                  idisc=1
+                  irnew=ncyl+nyp+2
+                  ir(np)=irnew  ! per idisc=1 egs4 non sposta la part.
+                  call parla(-20)
+c
+c                 IRNEW=NR
+c                 ustep=0.        ! interagisce di nuovo ove era e rientra qui
+c                 USTEP=ustepmin
+                 goto 500           ! RETURN
+              ENDIF        ! if su nr=1 oppure  ne 1
+           ENDIF           ! end di if su wrong region
+C
+C          ...................... COMPUTE POSITION AT NEXT STEP
+C          ...................... U,V,W are the projections of ustep
+C          .....normalizing U,V,W  ( obtained by tables)     serve ????
+c           ANORM=1./SQRT(U(NP)*U(NP)+V(NP)*V(NP)+W(NP)*W(NP))
+c           UN=U(NP)*ANORM
+c           VN=V(NP)*ANORM
+c           WN=W(NP)*ANORM
+C              --------------------- test
+C            if(anorm.ne.1.) then
+C               type 5559,ANORM,U(NP),V(NP),W(NP),UN,vn,wn
+C 5559          format(' anorm,'G20.12/' u,v,w, new u,v,w:',3(1x,G20.12))
+C            endif
+c           U(NP)=UN        ! in questo modo quando ricalcola il nuovo step
+c           V(NP)=VN        ! egs4 e' coerente con howfar 
+c           W(NP)=WN
+C        ------------------------------------------------------
+           UN=U(NP)
+           VN=V(NP)
+           WN=W(NP)
+C
+           XNEW=X(NP)+USTEP*UN
+           YNEW=Y(NP)+USTEP*VN 
+           ZNEW=Z(NP)+USTEP*WN 
+C
+           RNEWSQ=XNEW*XNEW+YNEW*YNEW
+           RNEW=SQRT(RNEWSQ)
+C
+C      ##################################### ******** for testing
+       if(noutflag2.gt.0) then
+       write(6,8030)xnew,ynew,znew,rnew
+       write(50,8030)xnew,ynew,znew,rnew
+ 8030  format(' going to:xnew,ynew,znew,r=',4G15.8)
+       endif
+ 9999      continue        ! per l'uso del debugger
+C
+C          -------------------------------- FIND DESTINATION REGION
+C
+C                   ..................... test z destination
+           IF(ABS(ZNEW).GE.ZMAX) THEN 
+                  TOOUTZ=.TRUE.
+C                 ........ distance, along the fly-line, to ZMAX:z cyl. limits
+                  ZMAX1=SIGN(ZMAX,ZNEW)
+                  IF(WN.NE.0.0) THEN
+                    RZINT=(ZMAX1-Z(NP))/WN
+                  ELSE
+                    TYPE *,' error! can''t go out with W=0'
+                    RZINT=ZMAX1*RCYL(NCYL)
+                    TOOUTZ=.FALSE.
+                  ENDIF
+           ENDIF
+C
+C                   ..................... test radial destination
+C                   intersect with near cyl. surfaces
+ 9100      continue                             ! ===========> LOOK AT RZINT
+C      ##################################### ******** for testing
+           if(tooutz.and.noutflag2.gt.0) then
+                 write(6,*)' totoutz,rzint=',tooutz,rzint
+                 write(50,*)' totoutz,rzint=',tooutz,rzint
+           endif
+C
+C          ......................... if going out of the region looks
+C                            for intersection with cyl. boundary
+C          GE: don't look for intersec if going on boundary( belong to prev.reg.
+           IF(RNEW.GT.RCYL(NR))
+     1     TONEXTR=INTERSEC(X(NP),Y(NP),Z(NP),XNEW,YNEW,ZNEW,
+     2                      RCYLSQ(NR),XX1,YY1,ZZ1,DISTAN1)
+ 9200      continue                             ! ===========> LOOK AT INTRSEC.
+C
+C      ##################################### ******** for testing
+      if(tonextr.and.noutflag2.gt.0) then
+              write(6,8050)tonextr,xx1,yy1,zz1,distan1
+              write(50,8050)tonextr,xx1,yy1,zz1,distan1
+      endif
+ 8050 format(' tonextr,xx1,yy1,zz1,distan1',L,2x,4G14.8)
+C
+           IF(NR.NE.1) THEN
+           IF(RNEW.LE.RCYL(NR-1))
+     1       TOPREVR=INTERSEC(X(NP),Y(NP),Z(NP),XNEW,YNEW,ZNEW,
+     2                      RCYLSQ(NR-1),XX2,YY2,ZZ2,DISTAN2)
+           ENDIF
+C
+ 9300      continue                             ! ===========> LOOK AT INTRSEC.
+C
+C      ##################################### ******** for testing
+      if(toprevr.and.noutflag2.gt.0) then
+         write(6,8060)toprevr,xx2,yy2,zz2,distan2
+         write(50,8060)toprevr,xx2,yy2,zz2,distan2
+      endif
+ 8060 format(' toprevr,xx2,yy2,zz2,distan2',L,1x,4G13.7)
+C
+C                     IF INTERSECTING 2 CYL CHOSES THE NEARER
+           IF(TONEXTR.AND.TOPREVR) THEN
+                  IF(DISTAN1.LT.DISTAN2) THEN
+                    TOPREVR=.FALSE.
+                    STEPNEW=DISTAN1
+                  ELSE
+                    TONEXTR=.FALSE.
+                    STEPNEW=DISTAN2
+                  ENDIF
+           ENDIF
+C          .......................  assign new step..
+           IF(TONEXTR) THEN
+                  XX=XX1
+                  YY=YY1
+                  ZZ=ZZ1
+                  STEPNEW=DISTAN1
+           ELSE IF(TOPREVR) THEN
+                  XX=XX2
+                  YY=YY2
+                  ZZ=ZZ2
+                  STEPNEW=DISTAN2
+           ELSE
+C          ....................... else same r region
+                  TOSAMER=.TRUE.
+                  IF(TOOUTZ) STEPNEW=SQRT( 
+     1                 (XX-X(NP))**2 + (YY-Y(NP))**2 +(ZZ-Z(NP))**2 )
+           ENDIF
+C          -------------------- The case of going out of Z and also 
+C                          in a new R region is considered below
+C          (the case of going out of r , and also going out of z in 
+C           the same point is considered as an r exit.)
+C
+           IF(TOOUTZ) THEN
+                  IF(ABS(RZINT).LE.STEPNEW) THEN
+                       TOOUTZ=.TRUE.
+                       TOPREVR=.FALSE.
+                       TONEXTR=.FALSE.
+                       TOSAMER=.FALSE.
+                  ELSE
+                       TOOUTZ=.FALSE.
+                  ENDIF
+           ENDIF
+C
+C
+C          ------------------------------------- EXIT DELAY 
+C          meccanismo che ritarda l'uscita di particelle dal sistema,
+C          quando una particella ( riconosciuta dalla sua posizione
+C          nello stack) cerca di uscire dal sistema e' tenuta dentro
+C          per forza, dandogli uno step pari alla distanza dal bordo
+C          del sistema * escestep, la seconda volta che cerca di uscire
+C          la si lascia andare. USCI e' un vettore logico che e' true
+C          se ad una particella e' gia' stato vietato di uscire una volta.
+c           IF(NONESCE) THEN
+c                IF(USCI(NP).OR.TOSAMER.OR.TONEXTR.OR.TOPREVR) THEN
+cC                   casi in cui il meccanismo non si usa, reset del flag
+c                    USCI(NP)=.FALSE.
+c                ELSE 
+c                    IF(TOOUTZ) THEN
+c                      TOTOUTZ=.FALSE.
+c                      USTEP=RZINT*ESCESTEP
+c                    ELSE         ! if(tooutr) then
+c                      TOTOUTR=.FALSE.
+c                      USTEP=STEPNEW*ESCESTEP
+c                    ENDIF
+c                    TOSAMER=.TRUE.
+c                    USCI(NP)=.TRUE.
+c                    NPESCE=NP
+cC                   redefine, using new step,all data needed for tosamer=.true
+c                    XNEW=X(NP)+USTEP*UN
+c                    YNEW=Y(NP)+USTEP*VN 
+c                    ZNEW=Z(NP)+USTEP*WN 
+c                    RNEWSQ=XNEW*XNEW+YNEW*YNEW
+c                    RNEW=SQRT(RNEWSQ)
+c                ENDIF
+c           ENDIF
+C      
+C          ------------------------------------- FINAL SETTINGS 
+c          THE FOLLOWING OLD CORRECTION HAS BEEN SUPERSEEDED BY NEW ONE !
+C          when crossing a boundary the particle is put INSIDE the
+C          new region, by adding ALITTLE, ( a little quantity),
+C          if the step is very little maybe alittle>>stepnew, in this
+C          this case we must add a quantity < stepnew to avoid 
+C          breakdow of some approximation in subr. electr
+C
+           IF(TOOUTZ) THEN
+c               va nella zona fuori cilindri 
+                IRNEW=NCYL+1
+c                USTEP=RZINT    + RZINT*ALITTLE
+                USTEP=MAX(RZINT,USTEPMIN)
+                call parla(15)
+c                goto 500            ! RETURN
+           ELSE IF(TOOUTR) THEN
+c               va nella zona fuori cilindri 
+                IRNEW=NCYL+1
+C               must go a bit into new region, the boundary belongs
+C               to the previous one
+c                USTEP=STEPNEW  + STEPNEW*ALITTLE
+                USTEP=MAX(STEPNEW,USTEPMIN)
+                call parla(16)
+c                goto 500           !   RETURN
+           ELSE IF(TOPREVR) THEN
+                IRNEW=NR-1
+c                USTEP=STEPNEW  + STEPNEW*ALITTLE
+                USTEP=MAX(STEPNEW,USTEPMIN)
+C                DNEAR(NP)=      USTEPMIN
+                 call parla(17)
+           ELSE IF(TONEXTR) THEN
+                IRNEW=NR+1
+c                USTEP=STEPNEW  + STEPNEW*ALITTLE
+                USTEP=MAX(STEPNEW,USTEPMIN)
+C                DNEAR(NP)=      USTEPMIN
+                 call parla(18)
+           ELSE IF(TOSAMER) THEN
+                RNEW=SQRT(RNEWSQ)
+c                DNEAR(NP)=MIN(ZMAX-ZNEW,ZNEW+ZMAX,RCYL(NR)-RNEW)
+c                IF(NR.NE.1) DNEAR(NP)=MIN(DNEAR(NP),RNEW-RCYL(NR-1))
+                DNEAR(NP)=MIN(abs(ZMAX-ZNEW),abs(ZNEW+ZMAX),
+     1                        abs(RCYL(NR)-RNEW))
+                IF(NR.NE.1) DNEAR(NP)=MIN(DNEAR(NP),
+     1                        abs(RNEW-RCYL(NR-1))  )
+     1
+           ELSE
+                TYPE*,' che succede ? non si verifica nulla ?' 
+           ENDIF
+C
+C ...............................................................
+C ------------------------------------ altra correzione (z)
+C      vieto ad una particelle che esce da sopra o sotto i cilindri
+c      di essere appiccicata al bordo zmax
+       if(tooutz)       then
+         z(np)=z(np)+sign(aminimo,w(np)) ! se uso z(np) ho ambiguita' per z=0
+         goto 498              ! non fa le correzioni sotto
+       else                     ! se non sta uscendo lo tengo dentro z
+         zmaxsegno=sign(zmax,z(np))
+         errore=abs(z(np)-zmaxsegno)
+         if(errore.lt.aminimo) z(np)=z(np)-sign(aminimo,z(np))
+       endif
+C ------------------------------------ altra correzione (radiale)
+C      per particelle entro la zona dei cilindri o uscenti di lato:
+c      vieto ad una particella di essere piu' vicina di
+C                                  tanto al limite di un cilindro
+       XNEW=X(NP)+USTEP*UN
+       YNEW=Y(NP)+USTEP*VN 
+       ZNEW=Z(NP)+USTEP*WN 
+       RNEWSQ=XNEW*XNEW+YNEW*YNEW
+       RNEW=SQRT(RNEWSQ)
+       if(noutflag2.gt.0) then
+       write(6,8030)xnew,ynew,znew,rnew
+       write(50,8030)xnew,ynew,znew,rnew
+       endif
+c
+       if(tosamer) then         ! prossimo r
+         irpross=nr
+       else
+         irpross=irnew
+       endif
+c
+       angolo=atan2(ynew,xnew)    ! aggiungo o tolgo vettore radiale
+c
+       if(.not.tooutr) then       ! se esce non c'e' rcyl(ncyl+1)
+            errore=abs(rcyl(irpross)-rnew)       ! dist da superficie esterna
+            if(errore.lt.aminimo) then
+              x(np)=x(np)-aminimo*cos(angolo)
+              y(np)=y(np)-aminimo*sin(angolo)
+            endif
+       endif
+       if(irpross.ne.1) then
+            errore=abs(rnew-rcyl(irpross-1))       ! dist da sup. interna
+            if(errore.lt.aminimo) then        ! se troppo vicino allontano
+              x(np)=x(np)+aminimo*cos(angolo)
+              y(np)=y(np)+aminimo*sin(angolo)
+            endif
+       endif
+  498  continue
+c
+       if(noutflag2.gt.0) then
+       XNEW=X(NP)+USTEP*UN
+       YNEW=Y(NP)+USTEP*VN 
+       ZNEW=Z(NP)+USTEP*WN 
+       RNEWSQ=XNEW*XNEW+YNEW*YNEW
+       RNEW=SQRT(RNEWSQ)
+       write(6,8030)xnew,ynew,znew,rnew
+       write(50,8030)xnew,ynew,znew,rnew
+       endif
+C---------------------------------------------------------C
+C      ##################################### ******** for testing
+       if(noutflag2.gt.0) then
+       write(6,8080)tooutz,tooutr,toprevr,tonextr,tosamer
+       write(50,8080)tooutz,tooutr,toprevr,tonextr,tosamer
+ 8080  format(' outz:',L,'  outr:',L,'  prevr:',L,
+     1       '  nextr:',L,'  samer:',L)
+       write(6,8090)stepnew,rzint,irnew,ustep,idisc,dnear(np)
+       write(50,8090)stepnew,rzint,irnew,ustep,idisc,dnear(np)
+ 8090  format(' stepnew:',G13.7,' rzint:',G13.7,
+     2       ' irnew,ustep,idisc,dnear:',I3,1X,G13.7,I3,1X,G13.7)
+       endif
+C
+c      got to 500 ! RETURN
+C---------------------------------------------------------C
+  500 continue
+C      --------------------------> saves input values for testing purposes
+c       xsav=x(np)
+c       ysav=y(np)
+c       zsav=z(np)
+c       erresav=erre
+c       usav=u(np)
+c       vsav=v(np)
+c       wsav=w(np)
+c       ustepsav=ustep
+c       xnewsav=xnew
+c       ynewsav=ynew
+c       znewsav=znew
+c       rnewsav=rnew
+c       errorsav=errore
+c      ------------------------------------------------------------
+      if(noutflag2.gt.5) noutflag2=0
+      if(noutflag2.gt.0) noutflag2=noutflag2+1
+      RETURN
+      END   
+C
+         FUNCTION INTERSEC(X,Y,Z,XNEW,YNEW,ZNEW,RTOGOSQ,
+     1                       XX,YY,ZZ,DISTANCE)
+C      ========================================================     
+C      riscritta jun-1994
+C        ------------------------------------------------------
+C         FUNCTION INTERSEC(Xqq,Yqq,Zqq,XNEWqq,YNEWqq,ZNEWqq,RTOGOSQqq,
+C     1                       XXqq,YYqq,ZZqq,DISTANCEqq)
+C      ================== double precision for testing
+C         implicit real*8 (a-h,o-z)
+C         real*4 xqq,yqq,zqq,xnewqq,ynewqq,znewqq,rtogosqqq
+C         real*4 xxqq,yyqq,zzqq,distanceqq
+C      ========================================================     
+C        ------------------------------------------------------
+C        FINDS PARTICLE-PATH AND CYL SURF. INTERSECTION
+C        Looks for the intersection on the same side of xnew
+C        if 2 intersections are found on the same side 
+C        chose the nearer to x.
+C        If the intersection is found xx,yy,zz is the intersection
+C        point, distance its distance from x, and intersec is
+C        TRUE, otherwise intersec is FALSE.
+C        --------------------------------------------------------
+         LOGICAL INTERSEC,SOL1,SOL2
+         DATA PRECISION /1.E-6/       ! WARNING distances < precision are zero !
+C
+C        ==================================== testing double precision
+C         x=xqq
+C         y=yqq
+C         z=zqq
+C         xnew=xnewqq
+C         ynew=ynewqq
+C         znew=znewqq
+C         rtogosq=rtogosqqq
+C        ===========================================================
+         YYTEST=YNEW-Y
+         XXTEST=XNEW-X           
+         ABSXT=ABS(XXTEST)
+         ABSYT=ABS(YYTEST)
+         IF(ABSXT.GT.ABSYT.AND.ABSXT.gt.precision) THEN
+C         IF(abs(XXTEST).gt.precision) THEN  
+c         IF(XXTEST.NE.0.0) THEN   ! cosi' il test su precision sotto non fa
+c                                    trovare alcuna intersezione se xxtext<1.e-6
+            AA=(YYTEST) / XXTEST
+            A=1.+(AA*AA)
+            B=(Y-AA*X) * AA
+            C=(Y-AA*X)**2 - RTOGOSQ 
+            DISCR=B*B-A*C
+ 9999 continue
+C           ............................... case of two solution
+            IF(DISCR.GT.0.0) THEN
+                     DISCR=SQRT(DISCR)
+                     X1= (DISCR-B)/A
+                     X2=-(DISCR+B)/A
+C                    ................. looks for the good solution:
+C                    the one in the particle direction (between x and xnew)
+C                    (note that if  x1=xnew and xnew-x <0, 
+C                    we have a wrong answer if x1=xnew is not tested )
+C                    x1=x in a particle on boundary, intersection = false
+                     IF(SIGN(1.,X1-X).EQ.SIGN(1.,XNEW-X1).
+     1                     OR.X1.EQ.XNEW) THEN
+C     1                    OR.X1.EQ.X.OR.X1.EQ.XNEW) THEN
+                          SOL1=.TRUE.
+C                         Caso indistinguibile da x1=x
+                          IF(ABS(X1-X).LT.PRECISION) SOL1=.FALSE.
+                     ELSE
+                          SOL1=.FALSE.
+                     ENDIF
+                     IF(SIGN(1.0,X2-X).EQ.SIGN(1.0,XNEW-X2).
+     1                    OR.X2.EQ.XNEW) THEN
+C     1                    OR.X2.EQ.X.OR.X2.EQ.XNEW) THEN
+                          SOL2=.TRUE.
+C                         Caso indistinguibile da x1=x
+                          IF(ABS(X2-X).LT.PRECISION) SOL2=.FALSE.
+                     ELSE
+                          SOL2=.FALSE.
+                     ENDIF
+C
+C                         .................... if both solution on the same side
+C                                              looks for the one nearer to x
+                     IF(SOL1.AND.SOL2) THEN
+                          Y1=Y+AA*(X1-X)
+                          Y2=Y+AA*(X2-X)
+                          Z1=Z+(ZNEW-Z)/XXTEST *(X1-X)
+                          Z2=Z+(ZNEW-Z)/XXTEST *(X2-X)
+                          DIST1=(Y1-Y)**2 + (X1-X)**2 +(Z1-Z)**2
+                          DIST2=(Y2-Y)**2 + (X2-X)**2 +(Z2-Z)**2
+                          IF(DIST1.LT.DIST2) THEN
+                             XX=X1
+                             YY=Y1
+                             ZZ=Z1
+                             DISTANCE=SQRT(DIST1)
+                             INTERSEC=.TRUE.
+                          ELSE IF(DIST1.GT.DIST2) THEN
+                             XX=X2
+                             YY=Y2
+                             ZZ=Z2
+                             DISTANCE=SQRT(DIST2)
+                             INTERSEC=.TRUE.
+                          ELSE
+                             TYPE*,' something wrong,2 solution'
+                             type*,' on same side and at same distance'
+                             INTERSEC=.FALSE.
+                             RETURN
+                          ENDIF
+C                    .............................. if only x1 on the good side
+                     ELSE IF(SOL1) THEN
+                          XX=X1                           
+                          YY=Y+AA*(XX-X)
+                          ZZ=Z+(ZNEW-Z)/XXTEST *(XX-X)                          
+                          DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + 
+     1                                                  (ZZ-Z)**2 )
+                          INTERSEC=.TRUE.
+C                    .............................. if only x2 on the good side
+                     ELSE IF(SOL2) THEN 
+                          XX=X2
+                          YY=Y+AA*(XX-X)
+                          ZZ=Z+(ZNEW-Z)/XXTEST *(XX-X)
+                          DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + 
+     1                                                  (ZZ-Z)**2 )
+                          INTERSEC=.TRUE.
+                     ELSE
+C                         .............. no good solutions, both intersections
+C                                       on the wrong side
+                          INTERSEC=.FALSE.
+                          RETURN
+                     ENDIF
+C           ............................ only one intersection, traject. tangent
+C                            to cyl. surf ( we are in the case of a particle
+C                            not running along the y axis, i.e. with constant x)
+            ELSE IF(DISCR.EQ.0.0) THEN
+ 9998 continue
+C           
+                     TYPE *,' Particle tangent to cyl. boundary'
+                     XX=-B/A
+                     IF(SIGN(1.0,XX-X).EQ.SIGN(1.0,XNEW-XX).
+     1                   OR.XX.EQ.X.OR.XX.EQ.XNEW) THEN
+                         YY=Y+AA*(XX-X)
+                         ZZ=Z+(ZNEW-Z)/XXTEST *(XX-X)
+                         DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + 
+     1                                                (ZZ-Z)**2 )
+                         INTERSEC=.TRUE.
+                     ELSE
+                         INTERSEC=.FALSE.
+                         RETURN
+                     ENDIF
+            ELSE 
+ 9997 continue
+C           ............ discr <0   ===> no intersection
+                     INTERSEC=.FALSE.
+                     RETURN
+            ENDIF
+          ELSE IF(ABSYT.GT.PRECISION) THEN           !solves in Y
+            AA=XXTEST/YYTEST
+            A=1.+(AA*AA)
+            B=(X-AA*Y) * AA
+            C=(X-AA*Y)**2 - RTOGOSQ 
+            DISCR=B*B-A*C
+C           ............................... case of two solution
+            IF(DISCR.GT.0.0) THEN
+                     DISCR=SQRT(DISCR)
+                     Y1= (DISCR-B)/A
+                     Y2=-(DISCR+B)/A
+C                    ................. looks for the good solution:
+C           ................. looks for the solutions on the good side of y
+               IF(SIGN(1.0,Y1-Y).EQ.SIGN(1.0,YNEW-Y1).
+     1             OR.Y1.EQ.YNEW) THEN
+C     1             OR.Y1.EQ.Y.OR.Y1.EQ.YNEW) THEN
+                   SOL1=.TRUE.
+C                  indistinguibile da y1=y
+                   IF(ABS(Y1-Y).LT.PRECISION) SOL1=.FALSE.
+               ELSE
+                   SOL1=.FALSE.
+               ENDIF
+               IF(SIGN(1.0,Y2-Y).EQ.SIGN(1.0,YNEW-Y2).
+     1             OR.Y2.EQ.YNEW) THEN
+C     1             OR.Y2.EQ.Y.OR.YNEW.EQ.Y2) THEN
+                   SOL2=.TRUE.
+C                  indistinguibile da y1=y
+                   IF(ABS(Y2-Y).LT.PRECISION) SOL2=.FALSE.
+               ELSE
+                   SOL2=.FALSE.
+               ENDIF
+C           ................. two good solutions, find the nearer one
+ 9996 continue
+               IF(SOL1.AND.SOL2) THEN
+                   X1=X+AA*(y1-y)
+                   X2=X+AA*(y2-y)
+                   Z1=Z+(ZNEW-Z)/YYTEST *(Y1-Y)
+                   Z2=Z+(ZNEW-Z)/YYTEST *(Y2-Y)
+                   DIST1=(X1-X)**2 + (Z1-Z)**2 + (Y1-Y)**2
+                   DIST2=(X2-X)**2 + (Z2-Z)**2 + (Y2-Y)**2
+                   IF(DIST1.LT.DIST2) THEN
+                       YY=Y1
+                       XX=X1
+                       ZZ=Z1
+                       DISTANCE=SQRT(DIST1)
+                       INTERSEC=.TRUE.
+                   ELSE IF(DIST1.GT.DIST2) THEN
+                       YY=Y2
+                       XX=X2
+                       ZZ=Z2
+                       DISTANCE=SQRT(DIST2)
+                       INTERSEC=.TRUE.
+                   ELSE
+                       TYPE*,' something wrong 2 good sol. same side'
+                       TYPE*,' same distance ?'
+                       INTERSEC=.FALSE.
+                       RETURN
+                   ENDIF
+               ELSE IF(SOL1) THEN
+                   YY=Y1
+                   XX=X+AA*(Y1-Y)
+                   ZZ=Z+(ZNEW-Z)/YYTEST *(Y1-Y)
+                   DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + (ZZ-Z)**2 )
+                   INTERSEC=.TRUE.
+                ELSE IF(SOL2) THEN      
+                   YY=Y2
+                   XX=X+AA*(Y2-Y)
+                   ZZ=Z+(ZNEW-Z)/YYTEST *(Y2-Y)
+                   DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + (ZZ-Z)**2 )
+                   INTERSEC=.TRUE.
+                ELSE 
+                   INTERSEC=.FALSE.
+                   RETURN
+                ENDIF
+            ELSE IF(DISCR.EQ.0.0) THEN
+C           
+                TYPE *,' Particle tangent to cyl. boundary'
+                YY=-B/A
+                IF(SIGN(1.0,YY-Y).EQ.SIGN(1.0,YNEW-YY).
+     1              OR.YY.EQ.Y.OR.YY.EQ.YNEW) THEN
+                    XX=X+AA*(YY-Y)
+                    ZZ=Z+(ZNEW-Z)/YYTEST *(YY-Y)
+                    DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + 
+     1                                                (ZZ-Z)**2 )
+                    INTERSEC=.TRUE.
+                 ELSE
+                    INTERSEC=.FALSE.
+                    RETURN
+                ENDIF
+            ELSE 
+C           ............ discr <0   ===> no intersection
+                    INTERSEC=.FALSE.
+                    RETURN
+            ENDIF
+C        ----------------------------
+         ELSE       ! XXTEST AND YYTEST < PRECISION
+c                    lo step e' inosservabile .....
+C                    faccio un semplice test per decidere se interseca,
+C                    se la trovo metto l'intersezione nel nel nuovo punto
+c                    Questo semplice test non considera il caso in cui la
+C                    traiettoria incontra piu volte la superficie.
+                     RSQ=XX*XX+YY*YY
+                     RSQNEW=XNEW*XNEW+YNEW*YNEW
+                     IF(( RSQ.LE.RTOGOSQ. AND.
+     1                          RTOGOSQ.LE.RSQNEW) .OR.
+     2                  (RSQ.GT.RTOGOSQ .AND.
+     3                          RTOGOSQ.GT.RSQNEW) ) THEN 
+                         XX=XNEW
+                         YY=YNEW
+                         ZZ=ZNEW
+                         DISTANCE=SQRT( (XX-X)**2 + (YY-Y)**2 + 
+     1                                                (ZZ-Z)**2 )
+                         INTERSEC=.TRUE.
+                      ELSE
+                         INTERSEC=.FALSE.
+                      ENDIF
+          ENDIF
+C
+ 999   CONTINUE
+C      ================================= testing double prec
+C                   xxqq=xx
+C                   yyqq=yy
+C                   zzqq=zz
+C                   distanceqq=distance
+C      =====================================
+          RETURN
+          END

diff --git a/code/source/howyaps.for b/code/source/howyaps.for
new file mode 100644 (file)
index 0000000..0099f31
--- /dev/null
+++ b/code/source/howyaps.for
@@ -0,0 +1,831 @@
+c                     file howyaps.for del 14-sept-1994
+      subroutine howyaps(erre,erresq)
+C----------------------------------------------------------C
+C     parte di howfar che descrive la geometria fuori del
+C     cilindro, nella zona dei rivelatori
+c
+c   Il bordo dei rivelatori non ne fa parte, 
+c     per evitare ambiguita' al bordo :
+c         - una particella entrante la metto dentro il yap 
+c           della grandezza PRECISION ( precisione macchina )
+c           ( tolgo ad x(np),y(np),z(np) un vettorino
+c           che nel sistema del rivelatore punta a 45 gradi
+c           dagli assi, nel quadrante ove c'e' l'intersezione
+c           della traiettoria colla superficie del rivelatore
+c         - una particella uscente la metto sul bordo.
+c           non posso metterla fuori del rivelatore perche' potrebbe
+c           finire in un rivelatore vicino se i rivelatori
+c           si toccano o quasi.
+C----------------------------------------------------------C
+       INCLUDE 'COMM_CYLtot_2.FOR'
+       include 'comm_yaps.for'
+c
+       data precision/1.e-4/  ! definisce una min distanza dal bordo 
+c                               per particelle che escono od
+c                               entrano nei rivelatori 
+       data aminimo /1.e-4/   ! min dist da bordo cyl per part. rientranti
+c                               nel cyl ( vedi howcyls routine )
+c
+       logical rientra        ! vero se rientra nei cilindri dal lato
+       logical cyldatop       ! vero se rientra nei cilindri da sopra
+       logical cyldabot       ! vero se rientra nei cilindri da sotto
+       logical attravz        ! routine che definisce cyldator e cyldabot
+c
+       LOGICAL INYAP(mypmax)  !    yaps trovati in traiettoria  
+c                                       mypmax: parametro del common 
+       dimension distyap(mypmax) !    distanze dal bordo del yap
+       dimension xdist(mypmax),ydist(mypmax),zdist(mypmax) ! ove incontra il bordo
+       dimension xdistp(mypmax),ydistp(mypmax),zdistp(mypmax) !  questo nel rif.yap
+       dimension x1p(mypmax),y1p(mypmax),z1p(mypmax)  ! point x in yap coord
+       dimension x2p(mypmax),y2p(mypmax),z2p(mypmax)  ! point xnew in yap coord
+       dimension intersyap(mypmax)                     ! faccia yap attraversata
+C
+c      ..................... flag per correggere una sola volta errori di
+c                            regione ed evitare eventuali loop
+c       data hocorretto/0/
+c
+c       real*8 distyap,xdist,ydist,zdist
+c       real*8 xdistp,ydistp,zdistp
+c       real*8 erre,erresq
+c       REAL*8 RNEW,RNEWSQ
+C
+c       ERRESQ=X(NP)*X(NP)+Y(NP)*Y(NP)
+c       ERRE=SQRT(ERRESQ)
+c         ---------------------------- CASO DI PARTICELLA FUORI
+C                                     LO FA GIA LA HOWFAR ?
+c       IF(ERRESQ.GE.RULTIMOSQ) THEN 
+c       IDISC=1
+c       IRNEW=NCYL+NYP+2
+c       ir(np)=irnew  ! egs4 non lo fa per discard immediato    
+c       GOTO 500
+c       ENDIF
+c
+C        -------------------------- CALCOLO DOVE VA LA PARTICELLA
+       UN=U(NP)
+       VN=V(NP)
+       WN=W(NP)
+C
+       XNEW=X(NP)+USTEP*UN
+       YNEW=Y(NP)+USTEP*VN 
+       ZNEW=Z(NP)+USTEP*WN 
+C
+       RNEWSQ=XNEW*XNEW+YNEW*YNEW
+       RNEW=SQRT(RNEWSQ)
+C
+c      -----------------------------------------   calcolo le coord x ed xnew
+C                                                  nel sistema del yap
+       do 5 ip=1,nyp
+       call inyapsys(ip,x(np),y(np),z(np),x1p(ip),y1p(ip),z1p(ip))
+       call inyapsys(ip,xnew,ynew,znew,x2p(ip),y2p(ip),z2p(ip))
+    5  continue
+C      ---------------------------------  guardo se parte da dentro un yap
+       idove=0
+       do 10 ip=1,nyp
+       if(abs(x1p(ip)).lt.dxypi(ip).and.
+     1    abs(y1p(ip)).lt.dyypi(ip).and.
+     1    abs(z1p(ip)).lt.dzypi(ip) ) then
+         if(idove.gt.0) then
+           write(ltyout,*) ' warning! part. in 2 yaps:',ip,idove
+           if(noutflag5.ge.2) 
+     1     write(ltyout,*) ' warning! part. in 2 yaps:',ip,idove
+         endif
+         idove=ip
+       endif
+   10  continue
+       nr=ncyl+1 + idove         ! il yap in cui e' oppure ncyl+1 
+c            controllo la posizione
+c
+c      ---------> begin if on nr
+c
+       if(nr.ne.ir(np)) then
+          irnp=ir(np)
+c         se e' sul bordo di un yap per uscirne allora idove .ne. 0
+c         ma ir(np)=ncyl+1 , non  ncyl+1+idove, tuttavia non e' un errore.
+c         Controllo se siamo in questo caso.
+c          ---------> begin if on idove ..........................
+          if(idove.gt.0.and.
+     1      (abs(x1p(idove)).eq.dxypi(idove).or.
+     1       abs(y1p(idove)).eq.dyypi(idove).or.
+     1       abs(z1p(idove)).eq.dzypi(idove) )    )then
+c                 ORA CHE IL BORDO FA PARTE DELLA ZONA FUORI
+C                 QUESTO CASO NON SI DEVE PIU' VERIFICARE
+       type *,' Particella al bordo yap ENTRANTE ?'          
+       type *,' WARNING ! questo non dovrebbe succedere!'
+c
+       if(noutflag5.gt.2) then
+       write(50,*)' Particella al bordo yap ENTRANTE ?'          
+       write(50,*)' WARNING ! questo non dovrebbe succedere!'
+       endif
+                    nr=ir(np)
+                    idove=0
+c     ............... else su posizione part. idove
+c             se e' in un yap e' ammesso che capiti sul
+c             bordo senza accorgersene
+c
+       else    if( idove.eq.0.and.                         ! lo trova fuori
+     1      (irnp.gt.ncyl+1.and.irnp.le.ncyl+1+nyp).and.   ! e' nei yaps
+     1      (abs(x1p(irnp-ncyl-1)).eq.dxypi(irnp-ncyl-1).or.   ! e' sul bordo
+     1       abs(y1p(irnp-ncyl-1)).eq.dyypi(irnp-ncyl-1).or.
+     1       abs(z1p(irnp-ncyl-1)).eq.dzypi(irnp-ncyl-1))    )then
+c
+       type *,' Warning! : particella al bordo yap: pos.ambigua '          
+       if(noutflag5.gt.2) then
+       write(50,*)' Warning! : particella al bordo yap: pos.ambigua '
+       endif
+       call parla(23)
+       irnew= ncyl+1            ! provo a correggere
+       ustep=0.0
+       goto 500
+c         ------ > else on idove
+          else                      ! qui si e' un errore
+      write(ltyout,*)' warning, wrong region',nr,' instead of:',ir(np)
+      call parla(-21)
+      if(noutflag5.gt.2)
+     1write(50,*)' warning, wrong region',nr,' instead of:',ir(np)
+c
+c      hocorretto=hocorretto+1
+c      if(hocorretto.lt.3) then
+c        irnew=nr      ! cerco di correggere, dicendogli di cambiare zona
+c        ustep=0
+c      else
+        hocorretto=0
+        idisc=1       ! se ho gia corretto la scarto 
+        irnew=ncyl+nyp+2
+        ir(np)=irnew  ! egs4 non lo fa per discard immediato    
+        call parla(-20)
+c      endif
+        goto 500     
+c
+c         -----------> ending if on idove
+          endif
+c      -----------> ending if on nr
+c       else
+c          hocorretto=0  ! if nr is OK resets this flag
+       endif
+c      --------------------------------------- guardo se attraversa un yap
+       do 15 ip=1,nyp
+   15  inyap(ip)=.false.
+c
+       if(idove.gt.0) then    !se e' dentro un yap puo attraversare solo quello 
+          i1=idove
+          i2=idove
+       else                   ! altrimenti li provo tutti
+          i1=1
+          i2=nyp
+       endif
+c
+       ustep2=ustep*ustep
+       do 20 ip=i1,i2
+       call guardaatt(x1p(ip),y1p(ip),z1p(ip),x2p(ip),y2p(ip),z2p(ip),
+     1                ustep,ustep2,distyap(ip),
+     1                xdistp(ip),ydistp(ip),zdistp(ip),inyap(ip),ip,
+     1                intersyap(ip))
+c
+   20  continue
+c
+c      ------------------------------------ cerco il primo yap che attraversa
+       attrav=upperlimite    ! un limite max per le dimensioni del sistema
+       iattrav=0
+       do 30 ip=i1,i2
+       if(inyap(ip)) then 
+         if(attrav.gt.distyap(ip) ) then
+c
+           if(distyap(ip).eq.0.0.and.nr.eq.ncyl+1) goto 30 
+c          caso di particella posta sul bordo del yap per uscirne,
+c          (nr=numero cyl+1) allora il bordo non conta come
+c          intersezione. 
+c
+           iattrav=ip
+           attrav=distyap(ip)
+         endif
+       endif
+   30  continue
+c
+c      ---------------------------controllo che non stia rientrando nella
+c                                 zona dei cilindri
+c                                (se non e' partito da dentro un yap)
+c               questo caso e' in genere raro, e forse non fisico,
+c               vista la presenza del collimatore, ma lo devo includere 
+c               per evitare problemi geometrici, con particelle 
+c               trovate fuori posto etc etc .
+       if(idove.ne.0) then       ! se e' dentro un yap deve uscirne prima
+c           rientra=.false.
+c           cyldatop=.false.
+c           cyldabot=.false.
+            goto 300              ! non controllo se rientra nei cyl
+       endif
+c
+       rientra=intersec(x(np),y(np),z(np),xnew,ynew,znew,rcylsq(ncyl),
+     1                   xx,yy,zz,dd)
+       if(rientra) then
+         if(dd.gt.ustep.or.abs(zz).gt.zmax) rientra=.false.
+c        intersec non contempla questi casi , attravz invece si.
+       endif
+c
+       cyldatop=attravz(x(np),y(np),z(np),xnew,ynew,znew,
+     1                 ustep,ustep2,dcyltp,xcyltp,ycyltp,zcyltp,
+     2                 zmax,rcylsq(ncyl))
+       cyldabot=attravz(x(np),y(np),z(np),xnew,ynew,znew,
+     1                 ustep,ustep2,dcylbt,xcylbt,ycylbt,zcylbt,
+     2                 -zmax,rcylsq(ncyl))
+c
+       if(.not.(rientra.or.cyldatop.or.cyldabot)) goto 300 ! niente intesez.
+       call parla(1)
+c                                                     inutile continuare
+c      ................... cerca l'intersezione piu' vicina alla partenza
+c
+       ddmin=upperlimite        ! una dimensiona max del sistema
+c
+       if(rientra) ddmin=dd 
+c
+       if(cyldatop.and.dcyltp.lt.ddmin) then   ! attravz testa ustep ed rcyl
+           ddmin=dcyltp
+           rientra=.false.
+       else
+           cyldatop=.false.
+       endif
+c
+       if(cyldabot.and.dcylbt.lt.ddmin) then   
+           ddmin=dcylbt
+           rientra=.false.
+           cyldatop=.false.
+       else
+           cyldabot=.false.
+       endif
+c           ....................... e qui 1 e 1 solo e' vero ( il primo cross)
+c               se interseca anche un rivelatore controllo se lo trova prima
+          if(iattrav.gt.0.and.distyap(iattrav).lt.ddmin) then 
+c            rientra=.false.
+c            cyldabot=.false.
+c            cyldatop=.false.
+c            ddmin=attrav
+             goto 300
+          endif
+c
+          if (rientra) then
+             irnew=ncyl
+             ustep=dd
+c    ................... meccanismo correttivo per non stare sul bordo del cyl.
+C                stesso meccanismo di howcyls , ma qui e' tutto piu' semplice
+             XNEW=X(NP)+USTEP*UN
+             YNEW=Y(NP)+USTEP*VN 
+             ZNEW=Z(NP)+USTEP*WN 
+c
+             angolo=atan2(ynew,xnew)    ! tolgo vettore radiale
+             x(np)=x(np)-aminimo*cos(angolo)
+             y(np)=y(np)-aminimo*sin(angolo)
+C    ........................ 
+             call parla(2)
+             goto 500
+          else if(cyldatop) then
+             ddcp=xcyltp*xcyltp+ycyltp+ycyltp
+             call parla(3)
+          else if (cyldabot) then
+             ddcp=xcylbt*xcylbt+ycylbt+ycylbt
+             call parla(4)
+          endif
+c             .............. arriva qui solo se (cyldatop o cyldabot)
+c         if(cyldatop.or.cyldabot) then
+c
+             do 35 i=1,ncyl                 ! cerca in che cilindro finisce
+             if(ddcp.le.rcylsq(i)) then
+               irnuovo=i
+               goto 350
+             endif
+   35        continue
+             type *,' WARNING : HOWYAPS:'
+             type*,' Entra nel cyl ma non trovo quale!'
+             type*,' Lo metto nell''ultimo, poi protesta'
+             if(noutflag5.gt.2) then
+             write(50,*)' WARNING : HOWYAPS:'
+             write(50,*)' Entra nel cyl ma non trovo quale!'
+             write(50,*)' Lo metto nell''ultimo, poi protesta'
+             endif
+             irnew=ncyl
+             ustep=ddmin
+             goto 500
+  350        continue
+             irnew=irnuovo
+             ustep=ddmin
+c    ................... meccanismo correttivo per non stare sul bordo del cyl.
+C                stesso meccanismo di howcyls , ma qui e' tutto piu' semplice
+             XNEW=X(NP)+USTEP*UN
+             YNEW=Y(NP)+USTEP*VN 
+             ZNEW=Z(NP)+USTEP*WN 
+c
+             angolo=atan2(ynew,xnew)    ! tolgo vettore radiale
+             x(np)=x(np)-aminimo*cos(angolo)
+             y(np)=y(np)-aminimo*sin(angolo)
+C    ........................ 
+c    ....................... e in piu' non lo faccio stare esattamente
+c                            sul bordo z
+             if(cyldatop) then 
+                 z(np)=z(np)-aminimo 
+             else ! if(cyldabot)
+                 z(np)=z(np)+aminimo
+             endif
+c    ..............................................
+             goto 500
+c         endif 
+c 
+ 300   continue
+c      -------------------------------- assegno il nuovo materiale
+       if(iattrav.le.0) then       ! non attraversa rivelatori
+c                                  ! guardo se sta uscendo dal sistema
+          if(rnewsq.ge.rultimosq.or.znew.ge.zultimo) then
+             irnew=ncyl+2+nyp         ! numero zona dei lost
+             idisc=-1                 ! scarto la particella
+             call parla(5)
+          else if(idove.ne.0) then  ! e' e resta in un yap, calcolo dnear.
+c                          come min fra le dist. dalle 6 facce del rivelatore
+             distsurf1=abs(dxypi(idove)-x1p(idove))             
+             distsurf2=abs(-dxypi(idove)-x1p(idove))             
+             distsurf3=abs(dyypi(idove)-y1p(idove))             
+             distsurf4=abs(-dyypi(idove)-y1p(idove))             
+             distsurf5=abs(dzypi(idove)-z1p(idove))             
+             distsurf6=abs(-dzypi(idove)-z1p(idove))             
+             dnear(np)=min(distsurf1,distsurf2,distsurf3,
+     1                     distsurf4,distsurf5,distsurf6)
+c         else                  ! e' nella zona esterna ai yaps, non fo nulla
+c          irnew=ir(np)         ! che non esce lo ho testato sopra...
+c          ustep va bene come e'
+          endif
+       else                        ! attraversa un yap
+c         ho vari casi: 1 : che stia uscendo dal yap 
+c                       2 : che stia entrando nel yap
+c            uso il numero di regione di partenza per distinguere
+          numeroyap=iattrav
+          numfaccia=intersyap(iattrav)      ! li passo via common per output
+c
+          if(iattrav+ncyl+1.eq.ir(np)) then  ! era gia' nel yap, ne sta uscendo
+c                                              --------------------------------
+c
+c              ................ test sul flag escono ,se puo' uscire o no.
+               if(escono.lt.0.) then  ! chi esce torna nel sistema
+                 irnew=ncyl+1
+                 ustep=distyap(iattrav)     ! bordo
+c
+C                qui c'e' il problema di particelle che diffondono sulla
+c                superficie del rivelatore ed escono restando praticamente
+c                sul bordo. La loro posizione non viene riconosciuta bene
+c                da questa routine. Una azione correttiva non e' semplice,
+c                non posso allontanarle dal centro del rivelatore perche' 
+c                l'insieme dei rivelatori non e' una forma compatta, 
+c                potrei finire in un altro rivelatore.
+c                Procedo cosi': per la faccia 2 avvicino al centro del 
+c                sistema, per le faccie 1,3,4 allontano dal centro,
+c                per le facce 5,6 allontano dal centro in z.
+                 if(numfaccia.eq.6) then
+                    z(np)=z(np)-precision
+                 else if(numfaccia.eq.5) then
+                    z(np)=z(np)+precision
+                 else if(numfaccia.eq.1.or.numfaccia.eq.3.or.
+     1                   numfaccia.eq.4) then
+                    XNEW=X(NP)+USTEP*UN
+                    YNEW=Y(NP)+USTEP*VN 
+                    angolo=atan2(ynew,xnew)    ! aggiungo vettore radiale
+                    x(np)=x(np)+precision*cos(angolo)
+                    y(np)=y(np)+precision*sin(angolo)
+                 else if(numfaccia.eq.2) then 
+                    XNEW=X(NP)+USTEP*UN
+                    YNEW=Y(NP)+USTEP*VN 
+                    angolo=atan2(ynew,xnew)    ! tolgo vettore radiale
+                    x(np)=x(np)-precision*cos(angolo)
+                    y(np)=y(np)-precision*sin(angolo)
+                  endif
+c
+               else if(escono.gt.0) then ! chi esce va nel collimatore, per cui
+c                                       e' eliminato e messo in zona nyp+ncyl+4,
+c                                         sempre, anche se il coll. non c'e'
+c                                         a limitare gli ingressi ( uscite
+c                                         inibite )
+                 idisc=1       ! discard immediato
+c                 irnew=ncyl+nyp+3
+                 irnew=ncyl+nyp+4  ! pseudo-zona per uscite dai yaps
+                 ir(np)=irnew  ! egs4 non lo fa per discard immediato    
+                 call parla(22)
+                 goto 500 ! salto le correzioni per non stare sulle facce
+c
+               else         ! if (escono.eq.0) then
+c                 if(angcol.gt.0.and.numfaccia.eq.2) then ! assorbito nel coll.
+                 if(numfaccia.eq.2) then ! assorbito nel coll.
+c                    irnew=ncyl+nyp+3
+                    irnew=ncyl+nyp+4  ! questa e' la zona apposita 
+                    ir(np)=irnew  ! egs4 non lo fa per discard immediato    
+                    idisc=1
+                    call parla(22)
+                    goto 500 ! salto le correzioni per non stare sulle facce
+c
+                 else               ! torna nel sistema
+                    irnew=ncyl+1
+                    ustep=distyap(iattrav)     ! bordo
+c                   e anche qui faccio tutte le correzioni per non stare
+c                   attaccato alle facce dei rivelatori
+                    if(numfaccia.eq.6) then
+                       z(np)=z(np)-precision
+                    else if(numfaccia.eq.5) then
+                       z(np)=z(np)+precision
+                    else if(numfaccia.eq.1.or.numfaccia.eq.3.or.
+     1                   numfaccia.eq.4) then
+                       XNEW=X(NP)+USTEP*UN
+                       YNEW=Y(NP)+USTEP*VN 
+                       angolo=atan2(ynew,xnew)    ! aggiungo vettore radiale
+                       x(np)=x(np)+precision*cos(angolo)
+                       y(np)=y(np)+precision*sin(angolo)
+                    endif       ! sulle facce per le correzioni
+                 endif          ! su esistenza coll. e faccia 
+               endif            !  su flag escono
+c
+               call parla(6)
+c
+          else          ! sta entrando nel yap, lo metto sul bordo
+c                       -------------------------------------------
+               if(angcol.le.0.0) then   ! il collimatore non c'e'
+                  ustep=distyap(iattrav)    
+                  irnew=iattrav+1+ncyl
+               else                     ! collimatore geometrico,
+c                                         controllo l'angolo ammesso
+                if(numfaccia.eq.2) then  ! il coll. e' sulla faccia 2
+                cosvd=(abs(x1p(iattrav)-xdistp(iattrav)))/
+     1                      distyap(iattrav)
+                angcosvd=acos(cosvd) !e' meglio testare il cos, risparmia acos!
+                  if(angcosvd.gt.angcolrad) then ! assorbita dal coll.
+                    irnew=ncyl+nyp+3
+                    idisc=1
+                    ir(np)=irnew  ! egs4 non lo fa per discard immediato    
+                    call parla(19)
+                    goto 500       ! al return 
+                  else       ! entra da altri angoli
+                    ustep=distyap(iattrav)    
+                    irnew=iattrav+1+ncyl
+                  endif
+                else    ! entra da altre facce
+                  ustep=distyap(iattrav)    
+                  irnew=iattrav+1+ncyl
+               endif    ! sulle facce del collimatore
+               endif    ! sull'esistenza collimatore 
+c                                         
+               call parla(7)
+c              .................. meccanismo correttivo per evitare
+c                                 ambiguita'. Correggo x,y,z per
+c                                 far finire la particella un po' dentro
+c                                 il rivelatore.
+c                 Sottraggo un vettore che punta dal centro del yap
+c                 verso il quadrante della zona di intersezione.
+c
+               xcorrin=sign(precision,xdistp(iattrav))
+               ycorrin=sign(precision,ydistp(iattrav))
+               zcorrin=sign(precision,zdistp(iattrav))
+c                  porto il vettore nel sistema del cilindro
+               call incylsys0(iattrav,xcorrin,ycorrin,zcorrin,
+     1                       xcorr,ycorr,zcorr)
+c                  ora correggo.......
+               x(np)=x(np)-xcorr
+               y(np)=y(np)-ycorr
+               z(np)=z(np)-zcorr
+c              ......................................
+          endif  ! ( se entra o esce da un rivelatore )
+       ENDIF ! (se attraversa un rivelatore o no )
+c
+  500  continue
+       return
+       end  
+c             
+       SUBROUTINE guardaatt(x1,y1,z1,x2,y2,z2,
+     1   ustep,ustep2,distyap,xdistp,ydistp,zdistp,inyap,ip,intersec)
+C      ------------------------------------------------------------
+c      calcola l'intersezione fra il segmento per x,y,z - xnew,ynew,znew
+c      e il parallelepipedo ip
+c      Il punto di partenza e di arrivo del segmento possono essere
+c      punti di intersezione ( caso di una particella messa sul bordo
+c      nel giro precedente che torna indietro, uscendo di nuovo dal yap) ?
+c
+c      dist e' la distanza di x,y,z dall'intersezione,
+c      inyap e' vero se l'intersezione esiste
+c      xdist,ydistzdist e' il punto di intersezione (coord del yap)
+c      intersec e' la faccia intersecata
+c      QUESTA ROUTINE NON E' OTTIMIZZATA, CI SI PUO RISPARMIARE IL LOOP 50
+C      FACENDO I TEST SUBITO.
+c      --------------------------------------------------------------
+       include 'comm_yaps.for'
+c
+c       real*8 distyap,xdist,ydist,zdist
+       logical inyap,logcross
+       logical x2gtx1,z2gtz1,y2gty1
+c
+       dimension xcross(6),ycross(6),zcross(6),logcross(6),dcrosssq(6) 
+c       real*8 xcross(6),ycross(6),zcross(6),dcrosssq(6) 
+c       real*8 x2x1,y2y1,z2z1,t
+c
+       d2(x,y,z,x1,y1,z1)=(x-x1)**2+(y-y1)**2+(z-z1)**2       
+       cp(t,x2x1,x1)=t*x2x1+x1
+c
+c      ----------------------------------------
+c
+       x2x1=x2-x1
+       y2y1=y2-y1
+       z2z1=z2-z1
+c
+       if(x2.gt.x1) then    ! servono sotto per vedere 
+         x2gtx1=.true.       ! se l'intersezione e' fra x1 ed x2
+       else
+         x2gtx1=.false.
+       endif
+       if(y2.gt.y1) then
+         y2gty1=.true.
+       else
+         y2gty1=.false.
+       endif
+       if(z2.gt.z1) then
+         z2gtz1=.true.
+       else
+         z2gtz1=.false.
+       endif
+
+c
+c      -- CALCOLA LE INTERSEZIONI DEL SEGMENTO FRA X,Y,X ED XNEW,YNEW,ZNEW
+C         CON I SEI PIANI CHE DELIMITANO IL RIVELATORE -------
+C
+c      ------------------- cerca intersez col piano x=-dxypi e col x=dxypi
+c
+       if(x2x1.eq.0.0) then           ! no intersection corre parallelo al piano
+           logcross(1)=.false.
+           logcross(2)=.false.
+       else                           ! calcolo intersez. piano x=dxypi
+           xcross(1)=dxypi(ip)
+           if(x2gtx1)then 
+            if(xcross(1).lt.x1.or.xcross(1).gt.x2) goto 101 ! int.fuori segmento
+           else
+            if(xcross(1).gt.x1.or.xcross(1).lt.x2) goto 101 ! int.fuori segmento
+           endif
+           t=(dxypi(ip)-x1)/x2x1       
+           ycross(1)=cp(t,y2y1,y1)
+           if(abs(ycross(1)).gt.dyypi(ip)) goto 101  ! intersezione in y e' out
+           zcross(1)=cp(t,z2z1,z1)
+           if(abs(zcross(1)).gt.dzypi(ip)) goto 101   ! intersezione in z e' out
+           dcrosssq(1)=d2(xcross(1),ycross(1),zcross(1),x1,y1,z1)
+           if(dcrosssq(1).gt.ustep2) goto 101            ! inters. oltre ustep
+           logcross(1)=.true.
+           goto 100
+ 101       logcross(1)=.false.
+ 100       continue
+           xcross(2)=-dxypi(ip)            ! intersez. piano x=-dxypi
+           if(x2gtx1) then
+            if(xcross(2).lt.x1.or.xcross(2).gt.x2) goto 102 ! int.fuori segmento
+           else
+            if(xcross(2).gt.x1.or.xcross(2).lt.x2) goto 102 ! int.fuori segmento
+           endif
+           t=(-dxypi(ip)-x1)/x2x1     
+           ycross(2)=cp(t,y2y1,y1)
+           if(abs(ycross(2)).gt.dyypi(ip)) goto 102  ! intersezione in y e' out
+           zcross(2)=cp(t,z2z1,z1)
+           if(abs(zcross(2)).gt.dzypi(ip)) goto 102   ! intersezione in z e' out
+           dcrosssq(2)=d2(xcross(2),ycross(2),zcross(2),x1,y1,z1)
+           if(dcrosssq(2).gt.ustep2) goto 102            ! inters. oltre ustep
+           logcross(2)=.true.
+           goto 200
+  102      logcross(2)=.false.
+  200      continue
+       endif
+c
+c      ------------------- cerca intersez col piano y=-dyypi e col y=dyypi
+c
+       if(y2y1.eq.0.0) then           ! no intersection corre parallelo al piano
+           logcross(3)=.false.
+           logcross(4)=.false.
+       else                              ! intersez. piano y=dyypi
+           ycross(3)=dyypi(ip)
+           if(y2gty1) then
+            if(ycross(3).lt.y1.or.ycross(3).gt.y2) goto103 ! fuori segmento
+           else
+            if(ycross(3).gt.y1.or.ycross(3).lt.y2) goto103 ! fuori segmento
+           endif
+           t=(dyypi(ip)-y1)/y2y1                    
+           xcross(3)=cp(t,x2x1,x1)
+           if(abs(xcross(3)).gt.dxypi(ip)) goto 103   ! x intersection fuori yap
+           zcross(3)=cp(t,z2z1,z1)
+           if( abs(zcross(3)).gt.dzypi(ip)) goto 103  ! z intersec. fuori
+           dcrosssq(3)=d2(xcross(3),ycross(3),zcross(3),x1,y1,z1)
+           if(dcrosssq(3).gt.ustep2) goto 103         !intersec.oltre ustep
+           logcross(3)=.true.
+           goto 300
+ 103       logcross(3)=.false.    
+ 300       continue
+           ycross(4)=-dyypi(ip)     ! intersez. piano y=-dyypi
+           if(y2gty1) then
+            if(ycross(4).lt.y1.or.ycross(4).gt.y2)goto 104
+           else
+            if(ycross(4).gt.y1.or.ycross(4).lt.y2)goto 104
+           endif
+           t=(-dyypi(ip)-y1)/y2y1     
+           xcross(4)=cp(t,x2x1,x1)
+           if(abs(xcross(4)).gt.dxypi(ip)) goto 104
+           zcross(4)=cp(t,z2z1,z1)
+           if(abs(zcross(4)).gt.dzypi(ip)) goto 104     ! intersez nel yap
+           dcrosssq(4)=d2(xcross(4),ycross(4),zcross(4),x1,y1,z1)
+           if(dcrosssq(4).gt.ustep2) goto 104       ! inters.oltre ustep
+           logcross(4)=.true.
+           goto 400
+ 104       logcross(4)=.false.
+ 400       continue
+       endif
+c
+c      ------------------- cerca intersez col piano z=-dzypi e col z=dzypi
+c
+       if(z2z1.eq.0.0) then           ! no intersection corre parallelo al piano
+           logcross(5)=.false.
+           logcross(6)=.false.
+       else                           ! intersez. piano x=dzypi
+           zcross(5)=dzypi(ip)
+           if(z2gtz1)then
+            if(zcross(5).lt.z1.or.zcross(5).gt.z2)goto 105
+           else
+            if(zcross(5).gt.z1.or.zcross(5).lt.z2)goto 105
+           endif
+           t=(dzypi(ip)-z1)/z2z1       
+           xcross(5)=cp(t,x2x1,x1)
+           if(abs(xcross(5)).gt.dxypi(ip)) goto 105
+           ycross(5)=cp(t,y2y1,y1)
+           if(abs(ycross(5)).gt.dyypi(ip)) goto 105     ! intersez nel yap
+           dcrosssq(5)=d2(xcross(5),ycross(5),zcross(5),x1,y1,z1)
+           if(dcrosssq(5).gt.ustep2) goto 105        ! inters.oltre ustep
+           logcross(5)=.true.
+           goto 500
+ 105       logcross(5)=.false.
+ 500       continue
+           zcross(6)=-dzypi(ip)        ! intersez. piano z=-dzypi
+           if(z2gtz1) then
+            if(zcross(6).lt.z1.or.zcross(6).gt.z2) goto 106
+           else
+            if(zcross(6).gt.z1.or.zcross(6).lt.z2) goto 106
+           endif
+           t=(-dzypi(ip)-z1)/z2z1      
+           xcross(6)=cp(t,x2x1,x1)
+           if(abs(xcross(6)).gt.dxypi(ip)) goto 106   ! intersez nel yap
+           ycross(6)=cp(t,y2y1,y1)
+           if(abs(ycross(6)).gt.dyypi(ip)) goto 106
+           dcrosssq(6)=d2(xcross(6),ycross(6),zcross(6),x1,y1,z1)
+           if(dcrosssq(6).gt.ustep2) goto 106      ! inters.oltre ustep
+           logcross(6)=.true.
+           goto 600
+ 106       logcross(6)=.false.
+ 600       continue
+       endif
+c
+C      ---------------------- ed ora fra tutte le intersezioni trovate
+c      -----------------------sceglie quella piu' vicina al punto di partenza
+       distminsq=upperlimite ! limite max del sistema 
+       intersec=0
+       do 50 j=1,6
+       if(logcross(j).and.dcrosssq(j).lt.distminsq) then
+          intersec=j
+          distminsq=dcrosssq(j)
+       endif
+   50  continue
+c
+       if(intersec.gt.0) then            ! passa alla subr. calling le
+           distyap=sqrt(distminsq)         ! posizioni in cui c'e' l'intersez.
+           xdistp=xcross(intersec)                         
+           ydistp=ycross(intersec)                         
+           zdistp=zcross(intersec)                         
+           inyap=.true.
+       else
+           inyap=.false.
+       endif
+c
+       return
+       end
+c
+       function attravz(x1,y1,z1,x2,y2,z2,ustep,ustep2,
+     1         ddp,xxp,yyp,zzp,zpiano,erresq)   
+c      --------------------------------------------------------
+c      Serve per guardarese una particella rientra nei cilindri da
+c      sopra o da sotto.   Cerca l'intersezione della retta
+c      individuata da x1,y1,z1  ed x2,y2,z2, col piano z=zpiano.
+c      Se trova l'intersezione, e' piu' vicina all'origine di erresq,
+c      e prima di ustep, allora attravz e' vero, xxp,yyp,zzp e'
+c      il punto di intersezione e ddp la distanza di questo da x1,y1,z1
+c      Altimenti attravz e' falso.
+c      ---------------------------------------------------------------
+c
+       logical attravz
+c
+       d2(x,y,z,x1,y1,z1)=(x-x1)**2+(y-y1)**2+(z-z1)**2       
+       cp(t,x2x1,x1)=t*x2x1+x1
+c      .............................
+c
+       zzp=zpiano
+       if(z2.gt.z1) then
+         if(zzp.lt.z1.or.zzp.gt.z2) goto 100 ! fuori segmento
+       else                                  ! questo test dipende da come
+         if(zzp.gt.z1.or.zzp.lt.z2) goto 100 ! e' orientato il segmento
+       endif 
+c
+       z2z1=z2-z1
+       if(z2z1.eq.0.0) goto 100 ! se corre sul piano lo penso fuori,
+c                                 cosi' semplifico. Howyaps trovera'
+c                                 una intersezione col lato del cilindro
+       x2x1=x2-x1
+       y2y1=y2-y1
+       t=(zpiano-z1)/z2z1
+       xxp=cp(t,x2x1,x1)
+       yyp=cp(t,y2y1,y1)
+       rp=xxp*xxp+yyp*yyp
+       if(rp.gt.erresq) goto 100     ! fuori raggio del cilindro
+       ddp=d2(x1,y1,z1,xxp,yyp,zzp)
+       if(ddp.gt.ustep2) goto 100  ! potrei usare solo questo test e
+c      non fare quello sopra su z1 e z2.In questo caso ho alcuni casi in cui
+c      mi risparmio conti, ma negli altri faccio in piu' il test su z1,z2
+c                                                                 
+       attravz=.true.
+       ddp=sqrt(ddp)
+       return
+ 100   continue
+       attravz=.false.
+       return
+       end       
+c
+       subroutine parla(kparla)
+c      ------------------------------------
+c      dice dove e' una particella e cosa sta facendo
+c      ( se noutflag5>0 )
+c      se noutflag5=1 o >2 stampa su 6
+c      se noutflag5=2 o >2 stampa su 50
+c      se kparla<0 fa stampa in ogni caso ...
+c      ---------------------------------------------
+       include 'comm_cyltot_2.for'
+       include 'comm_yaps.for'
+c
+       logical dico
+c
+       parameter maxavvisi=23
+       character *40,avviso(maxavvisi)
+       data avviso(1)/' particella che forse rientra nei cyl'/
+       data avviso(2)/' particella che rientra di lato'/
+       data avviso(3)/' particella che rientra da sopra'/
+       data avviso(4)/' particella che rientra da sotto'/
+       data avviso(5)/' particella che esce dal sistema'/
+       data avviso(6)/' particella che esce da un rivelatore'/
+       data avviso(7)/' particella che entra in un rivelatore'/
+       data avviso(8)/' particella che va nel cyl precedente'/
+       data avviso(9)/' particella che va nel cyl successivo'/
+       data avviso(10)/' particella che esce di lato dai cyl'/
+       data avviso(11)/' particella che esce da z dai cyl'/
+       data avviso(12)/' Howyaps non sa se e'' nei cyl o fuori'/
+       data avviso(13)/' howcyls trova part nei rivelatori'/
+       data avviso(14)/' howcyls trova part. nel cyl sbagliato'/
+       data avviso(15)/' particella esce dai cyl da z'/
+       data avviso(16)/' particella esce dai cyl da r'/
+       data avviso(17)/' particella va nel prec. cyl '/
+       data avviso(18)/' particella va nel succ. cyl '/
+       data avviso(19)/' particella nel collimatore'/
+       data avviso(20)/' particella scartata .....'/
+       data avviso(21)/' howyaps trova part. in reg. errata'/
+       data avviso(22)/' part. che esce dai rivelatori'/
+       data avviso(23)/' part. a bordo rivel., messa fuori'/
+c       
+       if(kparla.lt.0) then
+         k=-kparla
+         dico=.true.
+       else
+         k=kparla
+         dico=.false.
+       endif
+c
+       if(noutflag5.le.0.and.(.not.dico)) return
+c
+       erre=x(np)**2+y(np)**2
+       erre=sqrt(erre)
+       XNEW=X(NP)+USTEP*U(np)
+       YNEW=Y(NP)+USTEP*V(np) 
+       ZNEW=Z(NP)+USTEP*W(np) 
+       RNEWSQ=XNEW*XNEW+YNEW*YNEW
+       RNEW=SQRT(RNEWSQ)
+c
+  900  format(5x,'---->',A40)
+ 1000  format(5x,'part.:',I3,' ir=',I3,' irnew=',i3,
+     1        ' carica:',I2,' E=',G12.5,' r=',g12.5)
+ 1100  format(5x,'da x=',G12.5,' y=',G12.5,' z=',g12.5,
+     1 ' step=',g12.5,' u,v,w=',3g12.5)
+ 1200  format(5x,'a: x=',g12.5,' y=',g12.5,' z=',g12.5,
+     1         'rnew=',g12.5,' angcoll=',g12.5,
+     2         ' yap=',i2,' faccia yap=',i2)
+c
+       if(noutflag5.eq.1.or.noutflag5.ge.3.or.dico) then 
+       write(6,900) avviso(k)
+       write(6,1000) np,ir(np),irnew,iq(np),e(np),erre
+       write(6,1100) x(np),y(np),z(np),ustep,u(np),v(np),w(np)
+       write(6,1200) xnew,ynew,znew,rnew,angcosvd*57.29578,
+     1       numeroyap,numfaccia
+       endif
+c
+       if(noutflag5.eq.2.or.noutflag5.ge.3) then 
+       write(50,900) avviso(k)
+       write(50,1000) np,ir(np),irnew,iq(np),e(np),erre
+       write(50,1100) x(np),y(np),z(np),ustep,u(np),v(np),w(np)
+       write(50,1200) xnew,ynew,znew,rnew,angcosvd*57.29578,
+     1       numeroyap,numfaccia
+       endif
+c
+       return
+       end 

diff --git a/code/source/init_cyl_2.for b/code/source/init_cyl_2.for
new file mode 100644 (file)
index 0000000..3cb9e92
--- /dev/null
+++ b/code/source/init_cyl_2.for
@@ -0,0 +1,254 @@
+C                             file init_cyl_2.for del 12-sept-1994
+       SUBROUTINE INIT_CYL
+C-----------------------------------------------------------------C
+C      CYLINDER 
+C        26-jul-1994 : aggiunto hisluny=22 ( l.u. per n-tuple yaps)
+C        11-may-1994 : aggiunto hislun1=21 ( l.u. per n-tuple )
+C      VERSION INIT_CYL_1 : 9-MAY-1994 : OUTPUT OPTIONS ADDED
+C-----------------------------------------------------------------C
+       INCLUDE 'COMM_CYLtot_2.FOR'
+
+c      -----------------------------
+c       parameter mxreg     ! max num. of regions fissato in comm_cyltot_2
+       dimension ecutletto(mxreg),pcutletto(mxreg)
+       dimension indmat(mxreg)
+c
+C-----------------------------------------------------------------C
+C----------- I.O UNIT DEFINITION----------------------------------C
+c non tutte sono definite qui, alcune sono definite nelle routine che le usano
+C
+       DATA LTYIN,LTYOUT,LTYFIL,LTYHIS,LTYDAT,HISLUN
+     A      /5,6,9,10,7,20/
+c                          ! 5 - terminal input
+c                          ! 6 - terminal output
+c                          ! 7 - input geometria cilindro
+c                          ! 9 - input istogrammi
+c                          ! 8 - output list di hatch
+c                          ! 10 - output file
+c                          ! 11 - ps metafile per plots
+c                          ! 12 - input materiali da pegs4
+       data n13 /13/       ! 13 - file di input geometria rivelatori
+c                          ! 20 - output per paw-hbook
+       DATA HISLUN1 /21/   ! 21 - file n-tuple
+       DATA HISLUNy /22/   ! 22 - file n-tuple rivelatori
+c                          ! 50 - paths particelle ( per tests )
+c                          
+C-----------------------------------------------------------------C
+C----------     PRINT EXECUTING VERSION --------------------------C
+       CALL EGS4T(LTYHIS)
+       CALL EGS4T(LTYOUT)
+C.
+C            WRITE(LTYOUT,6080)
+C 6080       FORMAT(1X,'   ENTERING EGS4INIT ' )
+C
+c --------------------------------------------------
+c           zero some arrays ( for each region )
+      do 1 i=1,mxreg
+      pcut(i)=0.0
+      ecut(i)=0.0
+      med(i)=0
+c               ed azzero tutto il common /epersa/ con i final results
+      numerotot(i)=0 
+      numeropos(i)=0
+      numeroele(i)=0 
+      numerogam(i)=0 
+  1   continue
+c                il resto lo annullo in modo veloce:
+      numerofloat=(4+3*12)*mxreg    ! numero di real da annullare in /epersa/
+      call zero(numerofloat,esum(1))
+c
+C             zero tot energy 
+      TOTKE = 0.   ! solo cinetica
+      TOTEI = 0.   ! compresa la massa
+C
+C-----READ RUNNING DATA ------------------------------------------C
+C
+      READ(LTYDAT,*,ERR=700,END=700) NCASES, ICHAR, INIREG, EKIN
+c      WRITE(TLYOUT,7001)  NCASES, ICHAR, INIREG, EKIN
+c7001 FORMAT(' Numero di casi:',I3,' carica:',I2,
+C     1                        ' inizial.reg:',I2,' Ekin:',G15.5)
+      READ(LTYDAT,*,ERR=700,END=700) ITCTX, ISTSEED, ISTARTSEED
+C
+      WRITE(LTYOUT,7002) ITCTX
+      WRITE(LTYHIS,7002) ITCTX
+ 7002 FORMAT(' print time each step ITCTX',I6)
+C7000 FORMAT(3I10,E20.5)
+C--
+      WRITE(LTYOUT,6051) EKIN,NCASES,INIREG,ICHAR
+      WRITE(LTYHIS,6050) EKIN,NCASES,INIREG,ICHAR
+ 6050 FORMAT(1H ,' EKIN =',E20.3,3X,' NCASES = ',I8,3X,' INIREG=',I3,
+     A           ' CHARGE = ',I3//)
+ 6051 FORMAT(' EKIN =',E20.3,3X,' NCASES = ',I8,3X,' INIREG=',I3,
+     A           ' CHARGE = ',I3)
+C--
+C-----------------------------------------------------------------C
+C   MEDIA  TO BE PROCESSED IN HATCH ------------------------------C
+C
+      READ(LTYDAT,*,ERR=700,END=700) NMED
+      WRITE(LTYHIS,5000) NMED
+      WRITE(LTYOUT,5000) NMED
+ 5000 FORMAT(/' Number of media:',I3)
+C7002 FORMAT(I10)
+C
+      DO 400 J=1,NMED
+      READ(LTYDAT,7004,ERR=700,END=700) (MEDIA(I,J),I=1,24)
+ 7004 FORMAT(24A1)
+  400 CONTINUE
+      DO 402 J=1,NMED
+      READ(LTYDAT,*,ERR=700,END=700)
+     1           MAT,PCUTletto(MAT),ECUTletto(MAT)
+C7006 FORMAT(I10,2F10.3)
+  402 CONTINUE
+C----------------------- ADD TO THE E CUT THE MASS ENERGY -------C  
+      WRITE(LTYOUT,5010)
+      WRITE(LTYHIS,5010)
+ 5010 FORMAT(2X,' Media',9X,' Material ',18X,' Pcut',10X,' Ecut')
+C
+      DO 406 J=1,NMED
+      ECUTletto(J) = ECUTletto(J) + RM
+      WRITE(LTYHIS,6020) J,
+     1(MEDIA(I,J),I=1,24),PCUTletto(J),ECUTletto(J)
+      WRITE(LTYOUT,6020) J,
+     1 (MEDIA(I,J),I=1,24),PCUTletto(J),ECUTletto(J)
+ 6020 FORMAT(1X,I5,5X,24A1,2(3X,G12.4))
+  406 CONTINUE
+c---------------------------------------------------------------C
+C READ CYL GEOMETRY  ----------------------------------------C
+C             NCYL = NUMBER OF CYL, SHELLS, ZMAX=HALF CYL. HEIGTH
+C
+      READ(LTYDAT,*,ERR=700,END=700 ) NCYL,ZMAX
+C
+      WRITE(LTYHIS,6010) NCYL,ZMAX
+      WRITE(LTYOUT,6010) NCYL,ZMAX
+ 6010 FORMAT(/' Number of cyls:',I5,5X,' Half cyl. height:',G12.4)
+C
+      DO 500 K=1,NCYL
+      READ(LTYDAT,*,ERR=700,END=700) RTHICK(K),INDMAT(K)
+  500 CONTINUE
+C7020 FORMAT(2F10.0,I10)
+C
+C     ........................ external radius for each zone
+C     zone 1
+      RCYL(1)=RTHICK(1)
+      RCYLSQ(1)=RCYL(1)*RCYL(1)
+C
+      WRITE(LTYOUT,5100)
+      WRITE(LTYHIS,5100)
+ 5100 FORMAT(' region deltaR',9X,'R',9X,'R**2',10X,
+     1         ' material',22X,'pcut',9X,'ecut')
+      K=1
+      WRITE(LTYHIS,6100) K,RTHICK(K),RCYL(K),RCYLSQ(K),
+     1                     INDMAT(K),(MEDIA(J,INDMAT(K)),  J=1,24),
+     2             PCUTletto(INDMAT(K)),ECUTletto(INDMAT(K))
+      WRITE(LTYOUT,6100) K,RTHICK(K),RCYL(K),RCYLSQ(K),
+     1                     INDMAT(K),(MEDIA(J,INDMAT(K)),  J=1,24),
+     2             PCUTletto(INDMAT(K)),ECUTletto(INDMAT(K))
+C
+C     ..............  zones 1... NCYL
+      DO 510 K=2,NCYL
+      RCYL(K)=RCYL(K-1)+RTHICK(K)
+      RCYLSQ(K)=RCYL(K)*RCYL(K) 
+      WRITE(LTYHIS,6100) K,RTHICK(K),RCYL(K),RCYLSQ(K),
+     1                     INDMAT(K),(MEDIA(J,INDMAT(K)),  J=1,24),
+     2             PCUTletto(INDMAT(K)),ECUTletto(INDMAT(K))
+      WRITE(LTYOUT,6100) K,RTHICK(K),RCYL(K),RCYLSQ(K),
+     1                     INDMAT(K),(MEDIA(J,INDMAT(K)),  J=1,24),
+     2             PCUTletto(INDMAT(K)),ECUTletto(INDMAT(K))
+ 6100 FORMAT(1X,I4,3G12.4,3X,I3,1X,24A1,2G12.4)
+C
+  510 CONTINUE
+C
+C     SELECT MAXIMUN RADIAL DIMENSION 
+      RGRAPH = RTHICK(NCYL)            !   mi serve ??????
+C
+C---------------------------------------------------------------C
+C  fisso le grandezze per gli shower , via comm /misc/ e bounds 
+c  pcutletto,ecutletto,indmat sono variabili locali 
+C
+      DO 600 K=1,NCYL
+      MED(K)=INDMAT(K)
+      pcut(k)=pcutletto(med(k))
+      ecut(k)=ecutletto(med(k))
+  600 CONTINUE
+C     ....... REGION NCYL+1 TO MARK zone out of cyls, 
+c             nyp regions for yaps, region ncyl+nyp+2 per le uscite 
+c             ncyl+nyp+3 the collimator
+c             ncyl+nyl+4 uscite dai rivelatori
+C             all these are set in  read_yaps 
+c      NREG=NCYL+2+nyp
+c      MED(NCYL+2+nyp)=0
+C
+C     ---------------------------------------
+C     ....................... READS THE OUTPUT OPTIONS  
+      READ(LTYDAT,*,ERR=700,END=700) NOUTFLAG1,NOUTFLAG2,NOUTFLAG3,
+     1                               NOUTFLAG4,NOUTFLAG5,NOUTFLAG6
+      write(LTYout,7350)   NOUTFLAG1,NOUTFLAG2,NOUTFLAG3,
+     1                               NOUTFLAG4,NOUTFLAG5,NOUTFLAG6
+ 7350 format(' flag grafica interattiva           =',I2/
+     1       ' flag stampa percorsi particelle    =',i2/
+     2       ' flag produzione n-tuple            =',I2/
+     2       ' flag produzione n-tuple rivelatori =',I2/
+     2       ' flag stampa attraversamento zone   =',I2/
+     3       ' altri flags ( non usati ora )      =',I2)
+      IF(NOUTFLAG1.GT.0) THEN
+         N11INTER=11
+      ELSE
+         N11INTER=0
+      ENDIF 
+      IF(NOUTFLAG2.GT.0.or.noutflag5.gt.0) THEN ! sets the logical unit number
+         N50PATHS=50                    ! for paths printings
+      ELSE
+         N50PATHS=0
+      ENDIF
+      IF(NOUTFLAG3.GT.0) THEN           ! sets the logical unit number for
+         N51DECAY=51                    ! e+ decay n-tuple 
+      ELSE
+         N51DECAY=0
+      ENDIF               
+C-----------------------------------------------------------------C
+C     DISTANCES WILL BE IN  CM -----------------------------------C
+      DUNIT=  1.00
+C-----------------------------------------------------------------C 
+C--------------------------------------------------------------C
+C
+C          DETERMINATION-OF-INCIDENT-PARTICLE-PROPERTIES
+C          INCIDENT PARTICLE IS A ELECTRON
+C
+      IQI=ICHAR
+C     
+C     INCIDENT PARTICLE IS GENERATED IN REGION INIREG
+C 
+      IRI=INIREG
+C     
+C     WEIGHT FACTOR--------NOT USED IN CALCULATION, BUT 
+C     IS A PARAMETER IN SUBROUTINE SHOWER; HENCE DEFINE  
+C     AS UNITY   
+C     
+      WTI=1.0   
+C-----------------------------------------------------------C
+C      
+C     AN OUTPUTING PARAMETER, INVENTED TO MARK THE 
+C     INCIDENT PARTICLES    
+C
+      ICODE=-1  
+C
+C-----------------------------------------------------------C
+C
+            WRITE(LTYOUT,6081)
+ 6081       FORMAT(1X,'   END OF EGS4INIT ' )
+      RETURN
+C--------------------------------------------------------------C
+  700 WRITE(LTYOUT,6077)
+ 6077 FORMAT(1X,' ERROR DURING UNIT # 7 READ '//)
+      RETURN
+      END
+c
+      subroutine zero(n,a)
+c     ---------------------------
+c     azzera un vettore
+c     --------------------------
+      dimension a(n)
+      do 10 i=1,n
+ 10   a(i)=0.0
+      return
+      end      

diff --git a/code/source/petgracom.for b/code/source/petgracom.for
new file mode 100644 (file)
index 0000000..56c9aa2
--- /dev/null
+++ b/code/source/petgracom.for
@@ -0,0 +1,22 @@
+C
+       INTEGER*4       WKID    ! workstation identifier
+       INTEGER*4       WTYPE   ! workstation type
+       INTEGER*4       CONID   ! connection identifier
+       INTEGER*4       ERR_FILE! unit number of the error file
+       INTEGER*4       TNFULL  ! transformation number full screen viewport 
+       INTEGER*4       TNVPTL  ! transformation number Top Left viewport 
+       INTEGER*4       TNVPTR  ! transformation number Top Right viewport 
+       INTEGER*4       TNVPBL  ! transformation number Bottom Left viewport 
+       INTEGER*4       TNVPBR  ! transformation number Bottom Right viewport 
+
+       REAL*4          SCALE_X ! x y factor for workstation window and
+       REAL*4          SCALE_Y ! viewport for using the whole display
+       REAL*4          VPTL(4) ! points for the Top Left viewport
+       REAL*4          VPTR(4) ! points for the Top Right viewport
+       REAL*4          VPBL(4) ! points for the Bottom Left viewport
+       REAL*4          VPBR(4) ! points for the Bottom Right viewport
+C
+       COMMON/PETGRA/  WKID,WTYPE,CONID,ERR_FILE,
+     *                 SCALE_X,SCALE_Y,
+     *                 TNFULL,TNVPTL,TNVPTR,TNVPBL,TNVPBR,
+     *                 VPTL,VPTR,VPBL,VPBR

diff --git a/code/source/petgraf.for b/code/source/petgraf.for
new file mode 100644 (file)
index 0000000..ebdfa83
--- /dev/null
+++ b/code/source/petgraf.for
@@ -0,0 +1,478 @@
+c
+       subroutine      pg_init(chopt)
+C
+C      pg_init .......
+C
+C------------------------------------------------------------------------
+C
+       include 'petgraf_com.inc'
+C
+C-------
+c
+       integer*4       iw,ih
+       character*2     chopt
+C
+c      CALL MZPAW      (NWPAW,'M')
+
+       call Iginit     (0)
+       call iopks      (err_file)
+       call Igzset     (chopt)
+
+C      The following for the display size
+
+       i=ixopnds(0,dummy)
+       if (i.eq.-1) write (6,*) '*** ERROR *** Cannot open Dispay'
+       call ixgetge    (-1,ii,kk,iw,ih)
+       dspsize = jmin0 (iw,ih)
+       
+C
+       return
+       end
+C
+C------------------------------------------------------------------------
+c
+       subroutine      pg_open(kwkid,kwtype)
+C
+C      pg_open .......
+C
+C------------------------------------------------------------------------
+C
+       include 'petgraf_com.inc'
+c
+C-------
+c
+       integer*4       conid
+       
+       call iopwk      (kwkid,conid,kwtype)
+       return
+       end
+C
+C------------------------------------------------------------------------
+c
+       subroutine      pg_open_name(kwkid,x0,y0,xw,yw,title)
+C
+C      pg_open .......
+C
+C------------------------------------------------------------------------
+C
+       include 'petgraf_com.inc'
+c
+C-------
+c
+       integer*4       conid
+       character*20    filen
+       character*20    title
+       character*21    ttitle
+       integer*4       x0,y0 ! window's origin coordinates
+       integer*4       xw,yw ! window's dimensions
+       filen='higz_windows.dat'
+C
+       lt=index(title,' ')
+       lt=lt+1
+       ttitle='- '//title
+       open(unit=10,file=filen,form='formatted',status='new')
+       write (10,100)x0,y0,xw,yw,ttitle(1:lt)
+100    format (4(1x,i4),1x,a)
+       close(10)
+       call iopwk (kwkid,conid,1)
+       open(unit=10,file=filen,form='formatted',status='old',dispose='delete')
+       close(10)
+
+       return
+       end
+C
+C------------------------------------------------------------------------
+c
+       subroutine      pg_close(kwkid)
+C
+C      pg_close .......
+C
+C------------------------------------------------------------------------
+C
+       include 'petgraf_com.inc'
+c
+C-------
+C
+       real*4          status
+C
+       call igqwk (kwkid,'OPEN',status)
+       if (status .eq. 0 .or. kwkid .eq. 0) return
+       call idawk      (kwkid)
+       call iclwk      (kwkid)
+       return
+       end
+c
+C------------------------------------------------------------------------
+c
+       subroutine      pg_end()
+C
+C      pg_close .......
+C
+C------------------------------------------------------------------------
+C
+       include 'petgraf_com.inc'
+c
+C-------
+C
+c      call Igend
+
+       real*4 rval(11)
+       call igqwk (0,'NBWK',rval)
+
+       do i=2,rval(1)+1
+               j=rval(i)
+               call iclwk(j)
+       end do
+       call iclks
+       return
+       end
+c
+C
+C------------------------------------------------------------------------
+       subroutine      pg_axis(tn,mdim)
+C
+C      pg_axis .......
+C
+C------------------------------------------------------------------------
+C
+       include 'petgraf_com.inc'
+C
+C-------
+C
+       integer*4       tn
+       real*4          dim,mdim
+C
+
+
+       tmsi=mdim/100.
+       dim=mdim/2.
+       call Igset  ('TMSI',tmsi)
+       call iselnt (tn)
+       call Igaxis (-dim,dim,0.,0.,-dim,dim,5,'S+-')
+       call Igaxis (0.,0.,-dim,dim,-dim,dim,5,'S+-')
+       return
+       end
+C
+C------------------------------------------------------------------------
+c
+       subroutine      pg_create_view(kwkid,title,dspfct,mdim)
+C
+C      pg_create_view....
+C
+C------------------------------------------------------------------------
+C
+       include 'petgraf_com.inc'
+c
+C-------
+c
+       integer*4       kwkid,wsize     
+       real*4          dspfct
+       character*(*)   title
+       real*4          mdim ! dimensione in WC del lato quadranti
+
+       real*4          vptl(4) ! points for the Top Left viewport
+       real*4          vptr(4) ! points for the Top Right viewport
+       real*4          vpbl(4) ! points for the Bottom Left viewport
+       real*4          vpbr(4) ! points for the Bottom Right viewport
+
+       data vptl       /0.05,0.45,0.55,0.95/
+       data vptr       /0.55,0.95,0.55,0.95/
+       data vpbl       /0.05,0.45,0.05,0.45/
+       data vpbr       /0.55,0.95,0.05,0.45/
+
+
+       wsize = dspsize * dspfct
+
+       call pg_open_name       (kwkid,0,0,wsize,wsize,title)
+       call iscr       (kwkid,1,0.,0.,0.)
+        call iscr       (kwkid,2,1.,0.,0.)
+       call iacwk              (kwkid)
+c      call iswkwn             (kwkid,0.0,1.,0.0,1.)
+c      call iswkvp             (kwkid,0.,wsize,0.,wsize)       
+       call iselnt             (0)
+       call Igbox              (0.0,1.0,0.0,1.0)
+       call Igline             (0.0,1.0,0.5,0.5)
+       call Igline             (0.5,0.5,0.0,1.0)
+
+       dim=mdim/2.
+
+       call iacwk              (kwkid)
+
+       call iswn       (tl,-dim,dim,-dim,dim)
+       call isvp       (tl,vptl(1),vptl(2),vptl(3),vptl(4))
+       call iswn       (tr,-dim,dim,-dim,dim)
+       call isvp       (tr,vptr(1),vptr(2),vptr(3),vptr(4))
+       call iswn       (bl,-dim,dim,-dim,dim)
+       call isvp       (bl,vpbl(1),vpbl(2),vpbl(3),vpbl(4))
+       call iswn       (br,-dim,dim,-dim,dim)
+       call isvp       (br,vpbr(1),vpbr(2),vpbr(3),vpbr(4))
+
+       call pg_axis    (tl,mdim)
+       call pg_axis    (tr,mdim)
+       call pg_axis    (bl,mdim)
+c      call pg_axis    (br,mdim)
+
+       call iselnt             (0)
+
+       call igset      ('PASS',10)
+       call igset      ('CSHI',10)
+       call igtext     (.25,.96,'Y',.02,0,'C')
+       call igtext     (.48,.74,'X',.02,0,'C')
+
+       call igtext     (.75,.96,'Z',.02,0,'C')
+       call igtext     (.98,.74,'Y',.02,0,'C')
+
+       call igtext     (.25,.46,'Z',.02,0,'C')
+       call igtext     (.48,.24,'X',.02,0,'C')
+
+       call iuwk               (kwkid,1)
+       call idawk              (kwkid)
+       return
+       end
+C------------------------------------------------------------------------
+c
+       subroutine      pg_refresh_view(kwkid,mdim)
+C
+C      pg_create_view....
+C
+C------------------------------------------------------------------------
+C
+       include 'petgraf_com.inc'
+c
+C-------
+c
+       real*4          mdim ! dimensione in WC del lato quadranti
+       integer*4       kwkid
+
+       call iacwk              (kwkid)
+       call Igbox              (0.0,1.0,0.0,1.0)
+       call Igline             (0.0,1.0,0.5,0.5)
+       call Igline             (0.5,0.5,0.0,1.0)
+
+       dim=mdim/2.
+
+       call pg_axis    (tl,mdim)
+       call pg_axis    (tr,mdim)
+       call pg_axis    (bl,mdim)
+
+       call iselnt             (0)
+
+       call igset      ('PASS',10)
+       call igset      ('CSHI',10)
+       call igtext     (.25,.96,'Y',.02,0,'C')
+       call igtext     (.48,.74,'X',.02,0,'C')
+
+       call igtext     (.75,.96,'Z',.02,0,'C')
+       call igtext     (.98,.74,'Y',.02,0,'C')
+
+       call igtext     (.25,.46,'Z',.02,0,'C')
+       call igtext     (.48,.24,'X',.02,0,'C')
+
+       call iuwk               (kwkid,1)
+       call idawk              (kwkid)
+       return
+       end
+C------------------------------------------------------------------------
+       subroutine      pg_trackxyzr(kwkid,p1,p2,party)
+C
+C      pg_trackxyzr
+C
+C------------------------------------------------------------------------
+C
+       include 'petgraf_com.inc'
+C-------
+       integer*4       kwkid,party,two
+       real*4          p1(3),p2(3),a(2),b(2)
+       integer*4       x,y,z
+
+       data    x   /1/
+       data    y   /2/
+       data    z   /3/
+       data    two /2/
+C
+       call isclip(1)
+       call iacwk              (kwkid)
+       call isln(party)
+       call isplci (2)
+       call iselnt(tl)
+       a(1)=p1(x)
+        a(2)=p2(x)
+       b(1)=p1(y)
+        b(2)=p2(y)
+       call ipl(two,a,b)
+
+       call iselnt(tr)
+       a(1)=p1(y)
+        a(2)=p2(y)
+       b(1)=p1(z)
+        b(2)=p2(z)
+       call ipl(two,a,b)
+
+       call iselnt(bl)
+       a(1)=p1(x)
+        a(2)=p2(x)
+       b(1)=p1(z)
+        b(2)=p2(z)
+       call ipl(two,a,b)
+
+
+       call isln       (1)
+       call isplci     (1)
+       call idawk      (kwkid)
+       return
+       end
+C
+C------------------------------------------------------------------------
+       subroutine      pg_circle(kwkid,tn,xc,yc,r)
+C
+C      pg_circlex .....
+C
+C------------------------------------------------------------------------
+C
+       include 'petgraf_com.inc'
+C-------
+       integer*4       tn
+       real*4          xc,yc,r
+C
+       call iacwk              (kwkid)
+       call iselnt(tn)
+       call Igarc(xc,yc,r,r,0,0)
+       call iuwk(kwkid,1)
+       call idawk              (kwkid)
+       return
+       end
+C------------------------------------------------------------------------
+       subroutine      pg_box(kwkid,tn,x1,x2,y1,y2)
+C
+C      pg_circlex .....
+C
+C------------------------------------------------------------------------
+C
+       include 'petgraf_com.inc'
+C-------
+       integer*4       kwkid,tn
+       real*4          x1,x2
+       real*4          y1,y2
+C
+       call iacwk              (kwkid)
+       call iselnt(tn)
+       call Igbox(x1,x2,y1,y2)
+       call iuwk(kwkid,1)
+       call idawk              (kwkid)
+       return
+       end
+
+C------------------------------------------------------------------------
+       subroutine      pg_graph(kwkid,title,n,x,y,dspfct)
+C
+C      pg_graph .......
+C
+C------------------------------------------------------------------------
+C
+       include 'petgraf_com.inc'
+C-------
+       integer*4       n
+       real*4          x(500),y(500)
+C
+
+       integer*4       kwkid,nt,wsize,hsize    
+       real*4          dspfct
+       character*(*)   title
+       real*4          status
+
+
+       nt=kwkid
+
+       wsize = dspsize * dspfct
+c      hsize = .75 * wsize
+       hsize = wsize
+       xmin=1.e23
+       ymin=1.e23
+       xmax=-1.e23
+       ymax=-1.e23
+       do i=1,n
+          xmin= min (xmin,x(i))
+          xmax= max (xmax,x(i))
+          ymin= min (ymin,y(i))
+          ymax= max (ymax,y(i))
+       end do
+                       
+       call igqwk (kwkid,'OPEN',status)
+       if (status .eq. 0) then
+               call pg_open_name       (kwkid,0,0,wsize,hsize,title)
+       else
+               call iclrwk (kwkid,1)
+       end if
+       call iacwk              (kwkid)
+c      call iswkwn             (kwkid,0.0,1.,0.0,1.)
+c      call iswkvp             (kwkid,0.,wsize,0.,hsize)       
+       call iswn               (nt,xmin,xmax,ymin,ymax)
+       call isvp               (nt,.1,.9,.1,.9)
+
+       call iselnt             (nt)
+       call Igraph             (n,x,y,'CA')
+       call iuwk               (kwkid,1)
+       call idawk              (kwkid)
+       return
+       end
+
+C------------------------------------------------------------------------
+       subroutine      pg_hist(kwkid,caption,title,n,x,y,dspfct)
+C
+C      pg_graph .......
+C
+C------------------------------------------------------------------------
+C
+       include 'petgraf_com.inc'
+C-------
+       integer*4       n
+       real*4          x(2),y(500)
+C
+
+       integer*4       kwkid,nt,nt1,wsize,hsize        
+       real*4          dspfct
+       character*(*)   title
+       character*(*)   caption
+       real*4          status
+
+       nt=kwkid
+       nt1=nt+100
+       wsize = dspsize * dspfct
+c      hsize = .75 * wsize
+       hsize = wsize
+       ymin=1.e23
+       ymax=-1.e23
+       do i=1,n
+          ymin= min (ymin,y(i))
+          ymax= max (ymax,y(i))
+       end do
+                       
+       
+       call igqwk (kwkid,'OPEN',status)
+       
+       if (status .eq. 0) then
+               call pg_open_name (kwkid,0,0,wsize,hsize,caption)
+       else
+               call iclrwk (kwkid,1)
+       end if
+       
+       call iacwk              (kwkid)
+       call iswn               (nt,x(1),x(2),ymin,ymax)
+       call isvp               (nt,.1,.9,.1,.85)
+       call iselnt             (nt)
+       call Ighist             (n,x,y,'ABF')
+
+       call iswn               (nt1,0.,1.,0.,.15)
+       call isvp               (nt1,.1,.9,.85,1.)
+       call iselnt             (nt1)
+c      call istxci             (2)
+       call igtext             (.5,.07,title,.025,0,'C')
+c      call istxci             (1)
+
+       call iuwk               (kwkid,1)
+       call idawk              (kwkid)
+       return
+       end
+
+
+

diff --git a/code/source/petgraf.inc b/code/source/petgraf.inc
new file mode 100644 (file)
index 0000000..3cdb524
--- /dev/null
+++ b/code/source/petgraf.inc
@@ -0,0 +1,18 @@
+C------        ENEA - INN-FIS ------------------------------------------------
+C
+C      INCLUDE FILE FOR PET GRAPHICS
+C       THIS FILE HAS TO BE INCLUDED AT THE BEGIN OF THE MAIN PROGRAM
+C
+C      IT INCLUDES THREE FILE:
+C
+C              PETGRAF_HIGZ.INC -> common for HIGZ package
+C              PETGRAF_COM.INC  -> common for PETGRAF library
+C              PETGRAF_DATA.INC -> variables initialisation (DATA)
+C
+C------- ferriani stefano ---------------- CR 'Clementel' 1/8/1994 ----------
+C
+
+       include 'PETGRAF_HIGZ.INC'
+       include 'PETGRAF_COM.INC'
+       include 'PETGRAF_DATA.INC'
+C

diff --git a/code/source/petgraf_com.inc b/code/source/petgraf_com.inc
new file mode 100644 (file)
index 0000000..646d02a
--- /dev/null
+++ b/code/source/petgraf_com.inc
@@ -0,0 +1,19 @@
+C------        ENEA - INN-FIS ------------------------------------------------
+C
+C      INCLUDE FILE FOR PET GRAPHICS
+C
+C      IT CONTAINS the common for PETGRAF library
+C
+C------- ferriani stefano ---------------- CR 'Clementel' 1/8/1994 ----------
+C
+C
+       INTEGER*4       ERR_FILE !
+       INTEGER*4       DSPSIZE  ! display size
+       INTEGER*4       TL       ! transformation number Top Left viewport 
+       INTEGER*4       TR       ! transformation number Top Right viewport 
+       INTEGER*4       BL       ! transformation number Bottom Left viewport 
+       INTEGER*4       BR       ! transformation number Bottom Right viewport 
+c
+       COMMON /PETGRAFC/ ERR_FILE,DSPSIZE,TL,TR,BL,BR
+
+C      

diff --git a/code/source/petgraf_data.inc b/code/source/petgraf_data.inc
new file mode 100644 (file)
index 0000000..8d22768
--- /dev/null
+++ b/code/source/petgraf_data.inc
@@ -0,0 +1,14 @@
+C------        ENEA - INN-FIS ------------------------------------------------
+C
+C      INCLUDE FILE FOR PET GRAPHICS
+C
+C      IT CONTAINS the DATA for PETGRAF library variables
+C
+C------- ferriani stefano ---------------- CR 'Clementel' 1/8/1994 ----------
+C
+       DATA ERR_FILE   /6/
+       DATA TL         /200/
+       DATA TR         /300/
+       DATA BL         /400/
+       DATA BR         /500/
+C

diff --git a/code/source/petgraf_higz.inc b/code/source/petgraf_higz.inc
new file mode 100644 (file)
index 0000000..5b1039c
--- /dev/null
+++ b/code/source/petgraf_higz.inc
@@ -0,0 +1,11 @@
+C------        ENEA - INN-FIS ------------------------------------------------
+C
+C      INCLUDE FILE FOR PET GRAPHICS
+C
+C      IT CONTAINS the common for HIGZ package
+C
+C------- ferriani stefano ---------------- CR 'Clementel' 1/8/1994 ----------
+C
+       PARAMETER (NWPAW=20000)
+       COMMON/PAWC/RPAW(NWPAW)
+C

diff --git a/code/source/petsub.for b/code/source/petsub.for
new file mode 100644 (file)
index 0000000..ac42289
--- /dev/null
+++ b/code/source/petsub.for
@@ -0,0 +1,541 @@
+*C------------------------------------------------------------------------
+       subroutine      pg_init2()    ! same as pginit, but no paw initializ.
+C                                       and no higz initializ.
+C      pg_init2 .......
+C
+C------------------------------------------------------------------------
+C
+       include 'petgracom.for'
+C
+C-------
+
+C      call Iginit     (0)
+       call Igzset     ('G')
+C
+       return
+       end
+*C------------------------------------------------------------------------
+       subroutine      pg_init1()    ! same as pginit, but no paw initializ.
+C
+C      pg_init1 .......
+C
+C------------------------------------------------------------------------
+C
+       include 'petgracom.for'
+C
+C-------
+
+       call Iginit     (0)
+       call Igzset     ('G')
+C
+       return
+       end
+C
+*C------------------------------------------------------------------------
+       subroutine      pg_init(chopt)
+C
+C      pg_init .......
+C
+C------------------------------------------------------------------------
+C
+       include 'petgracom.for'
+C
+C-------
+       character*2     chopt
+
+       call mzpaw      (nh,'M')
+       call Iginit     (0)
+       call Igzset     (chopt)
+C
+       return
+       end
+C
+C------------------------------------------------------------------------
+       subroutine      pg_open()
+C
+C      pg_open .......
+C
+C------------------------------------------------------------------------
+C
+       include 'petgracom.for'
+C-------
+c
+       call iopks      (err_file)
+       call iopwk      (wkid,conid,wtype)
+       call iacwk      (wkid)
+C
+       !mettere qui le inizializzazioni !
+       return
+       end
+C
+C------------------------------------------------------------------------
+       subroutine      pg_close()
+C
+C      pg_close .......
+C
+C------------------------------------------------------------------------
+C
+               include 'petgracom.for'
+C-------
+C
+       call idawk(wkid) 
+       call iclwk(wkid) 
+       call iclks       
+       call Izend(-1)
+       call Iginit(-1)
+       return
+       end
+C------------------------------------------------------------------------
+       subroutine      pg_fullscreen()
+C
+C      pg_fullscreen .......
+C
+C------------------------------------------------------------------------
+C
+               include 'petgracom.for'
+C-------
+       real*4  display_x,display_y
+       real*4  max_coord
+C
+       call gqdsp(wtype,idummy,idummy,display_x,display_y,idummy,idummy)
+       max_coord = amax1 (display_x,display_y)
+       if ((display_x/max_coord) .eq. 1) then
+               scale_x=1.0
+               scale_y=display_y/max_coord
+       else
+               scale_x=display_x/max_coord
+               scale_y=1.0
+       endif
+c      call gswkwn(wkid,0.0,scale_x,0.0,scale_y)
+       call iswkwn(wkid,0.0,scale_x,0.0,scale_y)
+       call iswkvp(wkid,0.0,display_x,0.0,display_y)
+       return
+       end
+C------------------------------------------------------------------------
+       subroutine      pg_setscreen(x0,y0,fact)
+C
+C      pg_setscreen .......
+C
+C------------------------------------------------------------------------
+C
+               include 'petgracom.for'
+C-------
+       real*4  display_x,display_y
+       real*4  max_coord
+       real*4  x0,y0 ! screen coordinates of the origin
+       real*4  x,y   ! screen coordinates of the origin
+       real*4  fact  ! reduction factor of the screen
+C
+       if (fact.lt.0) return
+       call gqdsp(wtype,idummy,idummy,display_x,display_y,idummy,idummy)
+       max_coord = amax1 (display_x,display_y)
+       if ((display_x/max_coord) .eq. 1) then
+               scale_x=1.0
+               scale_y=display_y/max_coord
+       else
+               scale_x=display_x/max_coord
+               scale_y=1.0
+       endif
+       scale_x=scale_x*fact
+       scale_y=scale_y*fact
+       x=x0*display_x
+       y=y0*display_y
+       if (x+fact*display_x.gt.display_x) x=0 
+       if (y+fact*display_y.gt.display_y) y=0 
+c      call gswkwn(wkid,0.0,scale_x,0.0,scale_y)
+       call iswkwn(wkid,0.0,scale_x,0.0,scale_y)
+       call iswkvp(wkid,x,x+fact*display_x,y,y+fact*display_y)
+       return
+       end
+C------------------------------------------------------------------------
+       subroutine      pg_frames()
+C
+C      pg_frames .......
+C
+C------------------------------------------------------------------------
+C
+               include 'petgracom.for'
+C-------
+c
+
+       call iswn(tnfull,0.,1.,0.,1.)
+       call isvp(tnfull,0.,1.*scale_x,0.,1.*scale_y)
+       call iselnt(tnfull)
+       call Igbox (0.0,1.0,0.0,1.0)
+       call Igline(0.0,1.0,0.5,0.5)
+       call Igline(0.5,0.5,0.0,1.0)
+        call guwk  (wkid,GSUPPD)
+       return
+       end
+C------------------------------------------------------------------------
+       subroutine      pg_initframe1(tn,xmax,ymax,cent,iso)
+C
+C      pg_initframe .......
+C
+C------------------------------------------------------------------------
+C
+               include 'petgracom.for'
+C
+C-------
+       integer*4       tn,cent,iso
+       real*4          xmax,ymax
+c
+       ratio_vp=scale_x/scale_y
+       ratio_ob=xmax/ymax
+
+
+       if (iso.eq.1) then
+               if (ratio_vp.ge.1) then
+                       if ( ratio_ob.le.1) then
+                            y=ymax
+                            x=y*ratio_vp
+                       else if (ratio_vp.gt.ratio_ob) then
+                            y=ymax
+                            x=y*ratio_vp
+               else
+                            x=xmax
+                            y=x/ratio_vp
+                       endif
+               end if
+
+               if (ratio_vp.lt.1) then
+                       if ( ratio_ob.gt.1) then
+                            x=xmax
+                            y=x/ratio_vp
+                       else if (ratio_vp.gt.ratio_ob) then
+                            y=ymax
+                            x=y*ratio_vp
+                       else
+                            x=xmax
+                            y=x/ratio_vp
+                       endif
+               end if
+       else
+                 x=xmax
+                 y=ymax
+        endif
+
+       if (tn.eq.tnvptl)               then
+                vpx1=scale_x*vptl(1)
+                vpx2=scale_x*vptl(2)
+                vpy1=scale_y*vptl(3)
+                vpy2=scale_y*vptl(4)
+
+       else if (tn.eq.tnvptr)          then
+                vpx1=scale_x*vptr(1)
+                vpx2=scale_x*vptr(2)
+                vpy1=scale_y*vptr(3)
+                vpy2=scale_y*vptr(4)
+       else if (tn.eq.tnvpbl)          then
+                vpx1=scale_x*vpbl(1)
+                vpx2=scale_x*vpbl(2)
+                vpy1=scale_y*vpbl(3)
+                vpy2=scale_y*vpbl(4)
+       else 
+                vpx1=scale_x*vpbr(1)
+                vpx2=scale_x*vpbr(2)
+                vpy1=scale_y*vpbr(3)
+                vpy2=scale_y*vpbr(4)
+       endif
+
+       if (cent.eq.1) then
+            x=x/2.
+           y=y/2.
+           call gswn(tn,-x,x,-y,y)
+           call iswn(tn,-x,x,-y,y)
+        else
+           call gswn(tn,0.,x,0.,y)
+           call iswn(tn,0.,x,0.,y)
+        endif
+
+       call gsvp(tn,vpx1,vpx2,vpy1,vpy2)! the window and viewport data
+       call isvp(tn,vpx1,vpx2,vpy1,vpy2)! and I won't be able to retrieve
+       return                           ! them by the GQNT
+       end
+C------------------------------------------------------------------------
+       subroutine      pg_axis(tn)
+C
+C      pg_axis .......
+C
+C------------------------------------------------------------------------
+C
+               include 'petgracom.for'
+C
+C-------
+C
+       integer*4       tn
+       integer*4       ierr
+       real*4          dummy(4)
+       real*4          frame(4)
+C
+       call gqnt(tn,ierr,frame,dummy)
+       call iselnt(tn)
+       tmsi=(frame(2)-frame(1))/100.
+       call Igset('TMSI',tmsi)
+       call Igaxis (frame(1),frame(2),0.,0.,frame(1),frame(2),5,'S+-')
+       tmsi=(frame(4)-frame(3))/100.
+       call Igset('TMSI',tmsi)
+       call Igaxis (0.,0.,frame(3),frame(4),frame(3),frame(4),5,'S+-')
+        call guwk  (wkid,GSUPPD)
+       return
+       end
+
+C------------------------------------------------------------------------
+       subroutine      pg_graph(tn,n,x,y)
+C
+C      pg_graph .......
+C
+C------------------------------------------------------------------------
+C
+               include 'petgracom.for'
+C-------
+       integer*4       tn,n
+       real*4          x,y
+C
+       call iselnt(tn)
+       call Igraph(n,x,y,'LA')
+        call guwk  (wkid,GSUPPD)
+       return
+       end
+
+C------------------------------------------------------------------------
+       subroutine      pg_hist(tn,n,x,y)
+C
+C      pg_hist .......
+C
+C------------------------------------------------------------------------
+C
+               include 'petgracom.for'
+C-------
+       integer*4       tn,n
+       real*4          x,y
+C
+       call iselnt(tn)
+       call Ighist(n,x,y,'AB')
+        call guwk  (wkid,GSUPPD)
+       return
+       end
+
+C------------------------------------------------------------------------
+       subroutine      pg_circle(tn,xc,yc,r)
+C
+C      pg_circlex .....
+C
+C------------------------------------------------------------------------
+C
+               include 'petgracom.for'
+C-------
+       integer*4       tn
+       real*4          xc,yc,r
+C
+       call iselnt(tn)
+       call Igarc(xc,yc,r,r,0,0)
+        call guwk  (wkid,GSUPPD)
+       return
+       end
+C------------------------------------------------------------------------
+       subroutine      pg_box(tn,x1,x2,y1,y2)
+C
+C      pg_circlex .....
+C
+C------------------------------------------------------------------------
+C
+               include 'petgracom.for'
+C-------
+       integer*4       tn
+       real*4          x1,x2
+       real*4          y1,y2
+C
+       call iselnt(tn)
+       call Igbox(x1,x2,y1,y2)
+        call guwk  (wkid,GSUPPD)
+       return
+       end
+
+C------------------------------------------------------------------------
+       subroutine      pg_trackxyzr(p1,p2,party)
+C
+C      pg_trackxyzr
+C
+C------------------------------------------------------------------------
+C
+               include 'petgracom.for'
+C-------
+       integer*4       party
+       real*4          p1(3),p2(3),a(2),b(2)
+       real*4          r
+       integer*4       x,y,z
+
+       data    x/1/
+       data    y/2/
+       data    z/3/
+C
+       call isln(party)
+       call iselnt(tnvptl)
+       a(1)=p1(x)
+        a(2)=p2(x)
+       b(1)=p1(y)
+        b(2)=p2(y)
+       call ipl(party,a,b)
+
+       call iselnt(tnvptr)
+       r1=sqrt( p1(x)*p1(x) + p1(y)*p1(y))
+       r2=sqrt( p2(x)*p2(x) + p2(y)*p2(y))
+        if (p1(x).gt.0) then
+            a(1) = r1
+        else
+            a(1)=-r1
+       endif
+        if (p2(x).gt.0) then
+            a(2) = r2
+        else
+            a(2)=-r2
+       endif
+       b(1)=p1(z)
+        b(2)=p2(z)
+
+       call ipl(party,a,b)
+       call isln(1)
+        call guwk  (wkid,GSUPPD)
+       return
+       end
+C------------------------------------------------------------------------
+       subroutine      pg_crimage(name)
+C
+C      pg_crimage
+C
+C------------------------------------------------------------------------
+C
+
+               include 'petgracom.for'
+C-------
+       character* (*)  name
+
+       call Izpict(name,'M')
+       return
+       end
+C------------------------------------------------------------------------
+       subroutine      pg_rdimage(name)
+C
+C      pg_rdimage
+C
+C------------------------------------------------------------------------
+C
+
+               include 'petgracom.for'
+C-------
+       character* (*)  name
+
+       call Izpict(name,'D')
+       return
+       end
+C------------------------------------------------------------------------
+       subroutine      pg_deimage(name)
+C
+C      pg_deimage
+C
+C------------------------------------------------------------------------
+C
+
+               include 'petgracom.for'
+C-------
+       character* (*)  name
+
+       call Izpict(name,'S')
+       return
+       end
+
+C------------------------------------------------------------------------
+       subroutine      pg_initframe(tn,xmini,xmaxi,ymini,ymaxi,iso,cent)
+C
+C      pg_initframe .......
+C
+C------------------------------------------------------------------------
+C
+               include 'petgracom.for'
+C
+C-------
+       integer*4       tn,cent,iso
+       real*4          xmax,ymax
+       real*4          xmi,ymi
+       real*4          xma,yma
+c
+        xmax=xmaxi-xmini
+        ymax=ymaxi-ymini
+        if (xmax.eq.0) xmax=1
+        if (ymax.eq.0) ymax=1
+       ratio_vp=scale_x/scale_y
+       ratio_ob=xmax/ymax
+
+
+       if (iso.eq.1) then
+               if (ratio_vp.ge.1) then
+                       if ( ratio_ob.le.1) then
+                            y=ymax
+                            x=y*ratio_vp
+                       else if (ratio_vp.gt.ratio_ob) then
+                            y=ymax
+                            x=y*ratio_vp
+               else
+                            x=xmax
+                            y=x/ratio_vp
+                       endif
+               end if
+
+               if (ratio_vp.lt.1) then
+                       if ( ratio_ob.gt.1) then
+                            x=xmax
+                            y=x/ratio_vp
+                       else if (ratio_vp.gt.ratio_ob) then
+                            y=ymax
+                            x=y*ratio_vp
+                       else
+                            x=xmax
+                            y=x/ratio_vp
+                       endif
+               end if
+       else
+                 x=xmax
+                 y=ymax
+        endif
+
+       if (tn.eq.tnvptl)               then
+                vpx1=scale_x*vptl(1)
+                vpx2=scale_x*vptl(2)
+                vpy1=scale_y*vptl(3)
+                vpy2=scale_y*vptl(4)
+
+       else if (tn.eq.tnvptr)          then
+                vpx1=scale_x*vptr(1)
+                vpx2=scale_x*vptr(2)
+                vpy1=scale_y*vptr(3)
+                vpy2=scale_y*vptr(4)
+       else if (tn.eq.tnvpbl)          then
+                vpx1=scale_x*vpbl(1)
+                vpx2=scale_x*vpbl(2)
+                vpy1=scale_y*vpbl(3)
+                vpy2=scale_y*vpbl(4)
+       else 
+                vpx1=scale_x*vpbr(1)
+                vpx2=scale_x*vpbr(2)
+                vpy1=scale_y*vpbr(3)
+                vpy2=scale_y*vpbr(4)
+       endif
+
+
+
+       if (cent.eq.1) then
+            x=x/2.
+           y=y/2.
+           call gswn(tn,-x,x,-y,y)
+           call iswn(tn,-x,x,-y,y)
+        else
+            x=x-abs(xmini)
+           y=y-abs(ymini)
+           call gswn(tn,xmini, x, ymini, y)
+           call iswn(tn,xmini, x, ymini, y)
+        endif
+       call gsvp(tn,vpx1,vpx2,vpy1,vpy2)! the window and viewport data
+       call isvp(tn,vpx1,vpx2,vpy1,vpy2)! and I won't be able to retrieve
+       return                           ! them by the GQNT
+       end

diff --git a/code/source/pg_comm.for b/code/source/pg_comm.for
new file mode 100644 (file)
index 0000000..6f0a598
--- /dev/null
+++ b/code/source/pg_comm.for
@@ -0,0 +1,71 @@
+C------        ENEA - INN-FIS ------------------------------------------------
+C       petgradef.for modified to be included in egs4_cyl : 
+C                          /pawc/    not included here
+C                          /petgra / with :tnvpbl,tnvptl,tnvpbr,tnvptr
+C                                        in array tnvp(4)
+C      INCLUDE DECLARATION AND DEFINITIONS FOR MODULES OF PETGRA
+C      THIS SECTION SOULD BE INCLUDED AT THE BEGIN OF THE MAIN PROGRAM
+C
+C      CONTENT: 
+C
+C      PAW COMMON              --> COMMON/PAWC/
+C      GRAPHIC ROUTINES COMMON --> COMMON/PETGRA/
+C
+C------------------------------------ CRE Clementel 1/12/1993----------
+C
+C      PARAMETER (NG=100000,NH=10000)
+C      COMMON/PAWC/H(NH)             
+C
+       INTEGER*4       WKID    ! workstation identifier
+       INTEGER*4       WTYPE   ! workstation type
+       INTEGER*4       CONID   ! connection identifier
+       INTEGER*4       ERR_FILE! unit number of the error file
+       INTEGER*4       TNFULL  ! transformation number full screen viewport 
+
+        integer*4       tnvp ! contains the four numbers below:
+c      INTEGER*4       TNVPTL  ! transformation number Top Left viewport 
+c      INTEGER*4       TNVPTR  ! transformation number Top Right viewport 
+c      INTEGER*4       TNVPBL  ! transformation number Bottom Left viewport 
+c      INTEGER*4       TNVPBR  ! transformation number Bottom Right viewport 
+
+       REAL*4          SCALE_X ! x y factor for workstation window and
+       REAL*4          SCALE_Y ! viewport for using the whole display
+       REAL*4          VPTL(4) ! points for the Top Left viewport
+       REAL*4          VPTR(4) ! points for the Top Right viewport
+       REAL*4          VPBL(4) ! points for the Bottom Left viewport
+       REAL*4          VPBR(4) ! points for the Bottom Right viewport
+
+C      INTEGER*4       GAM, ELE, POS
+C
+C      COMMON/PETGRA/  WKID,WTYPE,CONID,ERR_FILE,
+C     *                        SCALE_X,SCALE_Y,
+C     *                TNFULL,TNVPTL,TNVPTR,TNVPBL,TNVPBR,
+C     *                VPTL,VPTR,VPBL,VPBR
+       COMMON/PETGRA/  WKID,WTYPE,CONID,ERR_FILE,
+     *                 SCALE_X,SCALE_Y,
+     *                 TNFULL,TNVP(4),
+     *                 VPTL,VPTR,VPBL,VPBR
+
+c      DATA WKID       /1/   ! initialization mouved to calling program
+c      DATA CONID      /0/
+c      DATA WTYPE      /0/
+c      DATA ERR_FILE   /6/
+c      DATA SCALE_X    /1./
+c      DATA SCALE_Y    /1./
+c      DATA TNFULL     /1/
+C      DATA TNVPTL     /10/
+C      DATA TNVPTR     /20/
+C      DATA TNVPBL     /30/
+C      DATA TNVPBR     /40/
+c      DATA TNVP(1)    /10/
+c      DATA TNVP(2)    /20/
+c      DATA TNVP(3)    /30/
+c      DATA TNVP(4)    /40/
+c      DATA VPTL       /0.05,0.45,0.55,0.95/
+c      DATA VPTR       /0.55,0.95,0.55,0.95/
+c      DATA VPBL       /0.05,0.45,0.05,0.45/
+c      DATA VPBR       /0.55,0.95,0.05,0.45/
+c      DATA GAM        /15/
+c      DATA ELE        /13/
+c      DATA POS        /12/
+C

diff --git a/code/source/source_cyl_2.for b/code/source/source_cyl_2.for
new file mode 100644 (file)
index 0000000..f7868ab
--- /dev/null
+++ b/code/source/source_cyl_2.for
@@ -0,0 +1,41 @@
+c                    file source_CYL_2.FOR DEL 27-JUL-1994
+         SUBROUTINE SOURCE_CYL
+C-----------------------------------------------------------C
+C      GENERATES POINT LIKE , MONOENERGETIC , ISOTROPIC E+ BEAM 
+C
+C                                                           C
+       INCLUDE 'COMM_CYLTOT_2.FOR'
+C
+       PARAMETER  PI   = 3.1415292654
+       PARAMETER  PI2  = 2.*PI
+C-----------------------------------------------------------C
+C       POINT SOURCE
+C
+             ZI=  0.0
+             XI=  0.0
+             YI=  0.0
+C
+C
+C-----------------------------------------------------------C
+C UNIFORM DISTRIBUTION IN POLAR COS THETA
+C           ( from -1 to 1 : up and down)
+C
+C      COS THETA
+              WI = 2.* RNDM(IXX) - 1.
+C
+C      SIN THETA  
+             STH = SQRT(1.-WI*WI)
+C
+C UNIFORM DISTRIBUTION IN AZHYMUT ( FROM 0 TO 2*PI)
+C
+             PHI = PI2*RNDM(IXX)
+             UI  = STH*COS(PHI) 
+             VI  = STH*SIN(PHI)
+C-----------------------------------------------------------C
+             EVKIN = EKIN       ! input initial kinetic energy
+             TOTKE = TOTKE + EVKIN
+             EI =  EVKIN + RM   ! in shower call kinetic+rest mass given
+             TOTEI  =  TOTEI + EI  ! totei is kinetic+rest mass
+      RETURN
+C-----------------------------------------------------------C 
+      END   

diff --git a/code/source/statend_cyl_2.for b/code/source/statend_cyl_2.for
new file mode 100644 (file)
index 0000000..732879f
--- /dev/null
+++ b/code/source/statend_cyl_2.for
@@ -0,0 +1,161 @@
+C                        file statend_cyl_2.for del 8-sept-94
+      SUBROUTINE STATEND_CYL
+C---------------------------------------------------------------C
+C      Stampa delle statistiche finali del run
+C---------------------------------------------------------------C
+       INCLUDE 'COMM_CYLtot_2.FOR'
+       include 'comm_yaps.for'
+C---------------------------------------------------------------C
+C
+C     CALCULATE AND PRINT OUT THE FRACTION OF ENERGY   
+C     DEPOSITED IN EACH REGION 
+C
+      ETOT=0.D0 
+      DO 91 I=1,Nreg
+   91 ETOT=ETOT+ESUM(I) 
+c
+      WRITE(LTYHIS,8000)  TOTEI,totke,ETOT,ishower-istseed+1
+      WRITE(LTYOUT,8000)  TOTEI,totke,ETOT,ishower-istseed+1
+ 8000 FORMAT(//,
+     *       ' ENERGIA TOTALE POSITRONI    :=',G16.7,'MEV',/,
+     *       ' ENERGIA CINETICA TOTALE     :=',G16.7,'MEV',/
+     *       ' ENERGIA TOTALE DEPOSITATA   :=',G16.7,'MEV',/
+     *       ' NUMERO POSITRONI            :=', I12)
+      WRITE(LTYOUT,6110) ETOT/TOTEI
+      WRITE(LTYHIS,6110) ETOT/TOTEI
+ 6110 FORMAT(' ENERGIA INIZIALE/DEPOSITATA :=',G16.7///)
+C     ...................
+      DO 92 I=1,NREG
+      WRITE(LTYOUT,6100)I,ESUM(I)/ETOT*100.,ESUM(I)
+      WRITE(LTYHIS,6100)I,ESUM(I)/ETOT*100.,ESUM(I)
+ 6100 FORMAT(' % FRACTION IN REGION ',I3,'=',G16.7,' MEV:',G16.7)
+ 92   CONTINUE  
+C
+C-----------------------------------------------------C
+      WRITE(LTYHIS,6111)
+      WRITE(LTYOUT,6111)
+ 6111 FORMAT(//' FRACTION OF ENERGY DEPOSITED  IN EACH REGION'/
+     1         ' region',5X,' total ',10X,'e+',10X,'e-',10X,'gamma')
+      DO 94 I=1,Nreg
+      WRITE(LTYHIS,6102) I,ESUM(I)/ETOT,
+     1                     ESUMPOS(I)/ETOT,
+     2                     ESUMELE(I)/ETOT,
+     3                     ESUMGAM(I)/ETOT
+      WRITE(LTYOUT,6102) I,ESUM(I)/ETOT,
+     1                     ESUMPOS(I)/ETOT,
+     2                     ESUMELE(I)/ETOT,
+     3                     ESUMGAM(I)/ETOT
+C 
+ 6102 FORMAT(2X,I3,2X,4(1X,E12.2))
+ 94   CONTINUE  
+C
+C                            numero di particelle assorbite 
+      WRITE(LTYHIS,6116)
+      WRITE(LTYOUT,6116)
+ 6116 FORMAT(//' Particelle assorbite in ogni regione'/
+     1         ' region',7X,' total ',10X,'e+',11X,'e-',10X,'gamma')
+      DO 96 I=1,Nreg
+      WRITE(LTYHIS,6106) I,numerotot(i),numeropos(i),
+     1                     numeroele(i),numerogam(i)
+      WRITE(LTYOUT,6106) I,numerotot(i),numeropos(i),
+     1                     numeroele(i),numerogam(i)
+C 
+ 6106 FORMAT(2X,I3,2X,4(1X,I12))
+ 96   CONTINUE  
+C
+c
+c               posizioni medie assorbimenti
+       write(ltyout,3001)
+       write(ltyhis,3001)
+ 3001  format(//' Posizione media energia assorbita:'/
+     1  1x,' zona  ',3x,'  x medio',11x,'y medio',11x,'z medio')
+ 3000  format(2x,I3,2x,3(2x,G15.5))
+c
+       do 10 i=1,ncyl+1
+c
+       if(esum(i).ne.0.0) then
+          esdii=esum(i)
+       else
+          esdii=1.
+       endif
+c
+       write(ltyout,3000)i,dexm(i)/esdii,deym(i)/esdii,dezm(i)/esdii
+       write(ltyhis,3000)i,dexm(i)/esdii,deym(i)/esdii,dezm(i)/esdii
+   10  continue
+       i=ncyl+1+nyp+1       ! zona che rappresenta le fughe dal sistema
+       if(esum(i).ne.0.0) then
+          esdii=esum(i)
+       else
+          esdii=1.
+       endif
+       write(ltyout,3000)i,dexm(i)/esdii,deym(i)/esdii,dezm(i)/esdii
+       write(ltyhis,3000)i,dexm(i)/esdii,deym(i)/esdii,dezm(i)/esdii
+       i=ncyl+1+nyp+1+1     ! collimatori
+       if(esum(i).ne.0.0) then
+          esdii=esum(i)
+       else
+          esdii=1.
+       endif
+       write(ltyout,3000)i,dexm(i)/esdii,deym(i)/esdii,dezm(i)/esdii
+       write(ltyhis,3000)i,dexm(i)/esdii,deym(i)/esdii,dezm(i)/esdii
+c
+       if(nyp.gt.0) then      
+       write(ltyout,2001)
+       write(ltyHis,2001)
+ 2001  format(//' Posizione media assorbimenti nei rivelatori'/
+     1    ' zona  riv.',2x,'  x medio',8x,'   +-   ',
+     2                  7x,'  y medio',8x,'   +-   ',
+     3                  7x,'  z medio',8x,'   +-   ')
+       do 20 i=1,nyp
+
+c      divido le somme per l'energia, per far le medie
+       if(esum(i+ncyl+1).ne.0.0) then
+         esumii=esum(i+ncyl+1)
+       else
+         esumii=1.
+       endif
+c
+       dexmypi(i)=dexmypi(i)/esumii
+       deymypi(i)=deymypi(i)/esumii
+       dezmypi(i)=dezmypi(i)/esumii
+       desxmypi(i)=desxmypi(i)/esumii
+       desymypi(i)=desymypi(i)/esumii
+       deszmypi(i)=deszmypi(i)/esumii
+c       xsigma=sqrt(desxmypi(i)-dexmypi(i)**2)
+c       ysigma=sqrt(desymypi(i)-deymypi(i)**2)
+c       zsigma=sqrt(deszmypi(i)-dezmypi(i)**2)
+       xsigma=(desxmypi(i)-dexmypi(i)**2)         ! ho valori negativi
+       if(xsigma.ge.0.0) then                 ! in caso di differenze fra
+         xsigma=sqrt(xsigma)                  ! valori piccoli 
+       else 
+         xsigma=-sqrt(-xsigma)
+       endif
+       ysigma=(desymypi(i)-deymypi(i)**2)
+       if(ysigma.ge.0.0) then 
+         ysigma=sqrt(ysigma)
+       else 
+         ysigma=-sqrt(-ysigma)
+       endif
+       zsigma=(deszmypi(i)-dezmypi(i)**2)
+       if(zsigma.ge.0.0) then 
+         zsigma=sqrt(zsigma)
+       else 
+         zsigma=-sqrt(-zsigma)
+       endif
+       write(ltyout,2000) i+ncyl+1,i,dexmypi(i),xsigma,
+     1        deymypi(i),ysigma,
+     1        dezmypi(i),zsigma
+       write(ltyhis,2000) i+ncyl+1,i,dexmypi(i),xsigma,
+     1        deymypi(i),ysigma,
+     1        dezmypi(i),zsigma
+ 2000  format(1x,2I4,6(1x,G15.5))
+   20  continue
+       endif
+c            
+C-----------------------------------------------------
+       RETURN
+C-----------------------------------------------------C
+      END
+ 
+ 
+ 

diff --git a/code/source/yaps.for b/code/source/yaps.for
new file mode 100644 (file)
index 0000000..4eefdeb
--- /dev/null
+++ b/code/source/yaps.for
@@ -0,0 +1,320 @@
+C                               file Yaps.for - Vers.: 12-sept-1994
+       SUBROUTINE READ_YAPS
+C      --------------------------------------------------------------
+C      legge dal file 13 : YAPS.DAT : la geometria dei rivelatori
+C      --------------------------------------------------------------
+C
+       include 'comm_yaps.for'
+c
+       INCLUDE 'COMM_CYLtot_2.FOR' 
+
+C ---------------------------------------
+C
+c      n13=13     ! file da cui si legge la geometria del rivelatore
+c       character*20 infile /'YAPS.DAT'/  ! nome del file
+c
+       parameter pi=3.14159265358979
+       rad(a)=a*0.0174532925
+       grad(a)=a*  57.29578
+c
+C
+C      ....................... lettura input della geometria dei rivelatori
+C                              non viene testato che i rivelatori non si
+C                              intersechino.
+c       open(unit=n13,file=infile,form='formatted',status='old',err=501)
+c       il nome del file si fissa con assign/user nella procedura che fa il run
+       open(unit=n13,form='formatted',status='old',err=501)
+C           NOTA: in input le dimensioni, entro il programma dimensioni/2
+       read(n13,*,err=502) nyp,ryp,zyp,dxyp,dyyp,dzyp,mezzo,mezzoyap
+       read(n13,*,err=502) angcol,escono
+c
+       angcolrad=rad(angcol)   ! angolo limite per il coll. in radianti
+c
+       if(nyp.eq.0) then            !  niente rivelatori
+         med(ncyl+1)=0              ! vuoto zona fuori cilindri
+         nreg=ncyl+1
+         return
+       else
+         med(ncyl+1)=mezzo          ! mezzo zona fuori cilindri 
+       endif 
+c 
+       dxyp=dxyp*0.5
+       dyyp=dyyp*0.5
+       dzyp=dzyp*0.5
+c 
+       if(nyp.gt.0) then  ! il programma si arrangia a sistemarli 
+C                           i rivelatori sono tutti eguali 
+C
+         if(ryp.le.0.) then    ! cerca di calcolarselo
+           ryp=dyyp/tan(pi/real(nyp)) 
+           write(ltyout,*)' raggio anello dei rivelatori',ryp
+         endif 
+         if(abs(zyp).gt.zmax) then
+           write(ltyout,*) ' WARNING: zyp > zmax:',zmax 
+c           zyp=0.0
+         endif
+         if(dxyp.le.0.0) then
+           write(ltyout,*)' WARNING: wrong yap x half-dim.:',dxyp
+           dxyp=0.1
+         endif
+         if(dyyp.le.0.0) then
+           write(ltyout,*)' WARNING: wrong yap y half-dim.:',dyyp
+           dyyp=0.1
+         endif
+         if(dzyp.le.0.0) then
+           write(ltyout,*)' WARNING: wrong yap z half-dim.:',dzyp
+           dzyp=0.1
+         endif
+c        dispone i rivelatori attorno al cilindro, ad angoli eguali
+         deltaang=2*pi/nyp
+C              ................ definisce le posizioni dei singoli rivelatori
+         do 20 i=1,nyp
+         rypi(i)=ryp
+         zypi(i)=zyp
+         angypi(i)=(i-1)*deltaang
+         dxypi(i)=dxyp
+         dyypi(i)=dyyp
+         dzypi(i)=dzyp
+         med(i+ncyl+1)=mezzoyap                     
+   20    continue
+C
+       else    ! ( NYP <0 ) in questo caso si danno i rivelatori uno per uno 
+C
+         do 10 i=1,nypmax 
+         read(n13,*,err=502,end=100)a1,a2,a3,a4,a5,a6,mezzoypi
+         rypi(i)=a1
+         zypi(i)=a2
+         angypi(i)=rad(a3)        ! l'angolo e' dato in input in gradi
+         dxypi(i)=a4     *0.5
+         dyypi(i)=a5     *0.5
+         dzypi(i)=a6     *0.5
+         nyp=i                    ! QUI CALCOLA IL NUMERO DI YAPS 
+C                                 ! NYP DIVENTA POSITIVO
+         if(mezzoypi.gt.0.and.mezzoypi.le.nmed) then  ! se lo dice qui lo
+           med(i+ncyl+1)=mezzoypi                     ! prende per buono
+         else                                         ! altrimenti usa quello
+           med(i+ncyl+1)=mezzoyap                     ! sopra per i yaps
+         endif
+c
+   10    continue
+c
+         write(ltyout,*) ' WARNING: max number of yaps reached:',nypmax
+
+  100    continue
+c
+         close(unit=n13)
+C
+       endif        ! ( su nyp < > 0 ( quando e' qui e' sempre >0 )
+C      ................ Calcolo del centro dei singoli rivelatori
+C                       e' r+dx/2 , cerco il centro, non il centro della
+C                       faccia interna.
+       do 30 i=1,nyp
+       x0ypi(i)=(dxypi(i)+rypi(i))*cos(angypi(i))
+       y0ypi(i)=(dxypi(i)+rypi(i))*sin(angypi(i))
+       z0ypi(i)=zypi(i) 
+C      ........ trasformazione: 
+c       coordinate sistema yap=trasf * (coord sistema cilindro-(x0,y0,z0ypi))
+C
+       trasf(1,1,i)=cos(angypi(i))         ! versore xyap * versore x
+       trasf(1,2,i)=sin(angypi(i))         !         xyap * y
+       trasf(1,3,i)=0.0                    !         xyap * z (no tilt assumed) 
+       trasf(2,1,i)=-sin(angypi(i))        ! versore yyap * versore x
+       trasf(2,2,i)=cos(angypi(i))         !         yyap * y
+       trasf(2,3,i)=0.0                    !         yyap * z 
+       trasf(3,1,i)=0.0                    ! versore zyap * versore x
+       trasf(3,2,i)=0.0                    !         zyap * y
+       trasf(3,3,i)=1.0                    !         zyap * z 
+c
+c      posizione del centro del cilindro: (0,0,0) nel sistema dei rivelatori:
+c       call inyapsys(i,0.0,0.0,0.0,xorigypi(i),yorigypi(i),zorigypi(i))
+C      in realta' e' tutto piu' semplice, la geometria e' semplificata:
+       xorigypi(i)=-(rypi(i)+dxypi(i))
+       yorigypi(i)=0.
+       zorigypi(i)=z0ypi(i)
+C
+   30  continue
+c
+C      ....................... cerca il valore massimo di R entro cui
+C                              sono inclusi tutti i rivelatori
+c                              ed il valor massimo di z
+c              anche qui si sfrutta il fatto che la geometria e' semplificata 
+       zultimo=zypi(1)+dzypi(1)
+       rultimo=(rypi(1)+2.*dxypi(1))**2 + 
+     1         dyypi(1)**2        ! e' lo spigolo estremo del yap nel piano x-y
+c       rultimo=(rypi(1)+2.*dxypi(1))**2  + dyypi(1)**2
+       do 40 i=2,nyp
+       rcorrente=(rypi(i)+2.*dxypi(i))**2 
+c       rcorrente=(rypi(i)+2.*dxypi(i))**2 + dyypi(i)**2
+       zcorrente=zypi(i)+dzypi(i)
+       if(zcorrente.gt.zultimo) zultimo=zcorrente
+       if(rcorrente.gt.rultimo) rultimo=rcorrente      
+  40   continue
+       zultimo=max(zmax,zultimo)  ! e' il limite max di tutto il sistema
+       rultimosq=rultimo
+       rultimo=sqrt(rultimo)
+       upperlimite=rultimosq+zultimo**2  ! un limite upper per il sistema 
+C      ................................
+ 500   continue
+c
+       med(ncyl+2+nyp)=0          ! vuoto fuori di tutto
+       nreg=ncyl+3+nyp            ! collimatore= pseudo-zona vuota
+       med(nreg)=0                ! 
+       nreg=ncyl+4+nyp            ! numero regioni totali
+       med(nreg)=0                ! uscite dai rivelatori : pseudo-zona vuota.
+c                        la regione nreg=ncyl+2+ nyp sono le fughe
+c                        la regione nreg=ncyl+3+nyp e' il collimatore 
+c                        la regione nreg=ncyl+4+nyp sono le part. che
+c                                   escono dai rivelatori
+c
+       WRITE(LTYHIS,4998) ncyl+1,mezzo,(media(j,mezzo),j=1,24)
+       WRITE(LTYOUT,4998) ncyl+1,mezzo,(media(j,mezzo),j=1,24)
+ 4998  format(/' Zona numero:',I3,' coi rivelatori: mezzo:',I3,1x,24A1)
+       WRITE(LTYHIS,5000) 
+       WRITE(LTYOUT,5000) 
+ 5000  FORMAT(/' RIVELATORI :'/
+     1 1x,' N.,zona,   r   ,   z   ,  ang  ,',
+     2 '   dx  ,   dy  ,   dz  , materiale ')
+ 5002  format(1x,I2,1x,I3,1x,6(1x,F7.3),I3,1x,24a1)
+       DO 50 I=1,NYP
+       WRITE(LTYHIS,5002) I,NCYL+1+I,rypi(i),zypi(i),
+     1 grad(angypi(i)),2.*dxypi(i),2.*dyypi(i),2.*dzypi(i),
+     2 med(i+1+ncyl),(media(j,med(i+1+ncyl)),j=1,24)
+       WRITE(LTYOUT,5002) I,NCYL+1+I,rypi(i),zypi(i),
+     1 grad(angypi(i)),2.*dxypi(i),2.*dyypi(i),2.*dzypi(i),
+     2 med(i+1+ncyl),(media(j,med(i+1+ncyl)),j=1,24)
+  50   continue
+       WRITE(LTYHIS,5004) ncyl+nyp+2,zultimo,rultimo
+       WRITE(LTYOUT,5004) ncyl+nyp+2,zultimo,rultimo 
+ 5004  format(/' Zona numero:',I3,' rappresenta le fughe: vuota'/
+     1         ' limite z del sistema:',F7.3/
+     1         ' limite r del sistema:',F7.3)
+c
+      if(angcol.gt.0.0) then
+         WRITE(LTYOUT,5006) ncyl+nyp+3, angcol,angcolrad
+         WRITE(LTYHIS,5006) ncyl+nyp+3, angcol,angcolrad
+ 5006    format(/' Zona numero:',I3,' rappresenta assorbimenti del'
+     1    ' collimatore : vuota'/
+     2    ' angolo limite del collimatore:',F7.3,' in rad.:',F7.3)
+       else
+         WRITE(LTYHIS,5008) angcol,nreg
+         WRITE(LTYOUT,5008) angcol,nreg
+ 5008    format(/' Non c''e'' collimatore: angolo=',F7.3,
+     1           ' regioni:',i3)
+       endif
+c
+         WRITE(LTYOUT,5009) ncyl+nyp+4, escono
+         WRITE(LTYHIS,5009) ncyl+nyp+4, escono
+ 5009    FORMAT(/' La zona:',I5,' rappresenta le uscite',
+     1           ' dai rivelatori. Flag uscite:',F7.3)
+         WRITE(LTYOUT,5010) nreg 
+         WRITE(LTYHIS,5010) nreg 
+ 5010    format(/' Numero totale di regioni :',I5)
+c       ----------------------------------------------
+c
+       return
+c
+ 501   continue
+       write(ltyhis,*) ' OPEN ERROR! rivelatore ignorato, file:',infile
+       write(ltyout,*) ' OPEN ERROR! rivelatore ignorato, file:',infile
+       nyp=0
+       med(ncyl+1)=0              ! vuoto zona fuori cilindri
+       nreg=ncyl+1                ! numero regioni
+       return
+ 502   continue
+       write(ltyout,*) ' READ ERROR! rivelatore ignorato, file:',infile
+       write(ltyhis,*) ' READ ERROR! rivelatore ignorato, file:',infile
+       nyp=0
+       med(ncyl+1)=0              ! vuoto zona fuori cilindri
+       nreg=ncyl+1                ! numero regioni
+       return
+       end
+c
+       subroutine inyapsys(k,xin,yin,zin,xout,yout,zout)
+C      ----------------------------------------------------------------
+C      trasforma un vettore xin,yin,zin del sistema di riferimento del
+C      cilindro in un vettore xout,yout,zout nel sistema di riferimento
+C      del rivelatore kesimo
+C      Anche qui si sfrutta il fatto che la geometria e' semplice....
+C      -----------------------------------------------------------------
+       include 'COMM_YAPS.FOR'
+C
+       xout= trasf(1,1,k) * xin +
+     1       trasf(1,2,k) * yin +
+     2       trasf(1,3,k) * zin 
+       yout= trasf(2,1,k) * xin +
+     1       trasf(2,2,k) * yin +
+     2       trasf(2,3,k) * zin 
+c       zout= trasf(3,1,k) * xin +
+c     1       trasf(3,2,k) * yin +
+c     2       trasf(3,3,k) * zin
+        zout=zin        ! visto come e' messo il yap .....
+c
+c                  sicome lo yap e' tangente il cilindro lo shift e'
+c                  facile da calcolare, basta togliere ad x rypi+dxypi,
+c                  cioe' aggiungere xorigypi(k);
+c                  qui sono appena piu' generale ....
+       xout=xout+xorigypi(k)
+c       yout=yout+yorigypi(k)
+c       zout=zout+zorigypi(k)
+c
+       return
+       end
+       subroutine incylsys(k,xin,yin,zin,xout,yout,zout)
+C      ----------------------------------------------------------------
+C      trasforma un vettore xin,yin,zin del sistema di riferimento del
+C      YAP K esimo in un vettore xout,yout,zout nel sistema di riferimento
+C      del cilindro ( usa la trasposta della trasformazione inyapsys )
+C      -----------------------------------------------------------------
+       include 'COMM_YAPS.FOR'
+C
+       xout= trasf(1,1,k) * xin +
+     1       trasf(2,1,k) * yin + 
+     2       trasf(3,1,k) * zin 
+       yout= trasf(1,2,k) * xin +
+     1       trasf(2,2,k) * yin +
+     2       trasf(3,2,k) * zin 
+c       zout= trasf(1,3,k) * xin + 
+c     1       trasf(2,3,k) * yin + 
+c     2       trasf(3,3,k) *  zin
+        zout=zin        ! visto come e' messo il yap .....
+c
+c                  sicome lo yap e' tangente il cilindro lo shift e'
+c                  facile da calcolare, basta aggiungere ad x rypi+dxypi,
+c                  cioe' togliere xorigypi;
+c                  qui sono appena piu' generale ....
+       xout=xout-xorigypi(k)
+c       yout=yout-yorigypi(k)
+c       zout=zout-zorigypi(k)
+c
+       return
+       end
+       subroutine incylsys0(k,xin,yin,zin,xout,yout,zout)
+C      ----------------------------------------------------------------
+C      Come incylsys, ma ruota solo, non trasla.
+c      Ruota un vettore xin,yin,zin, del sistema del
+C      il YAP K esimo ruota nel vettore xout,yout,zout nel sistema 
+c      di riferimento del cilindro 
+C      -----------------------------------------------------------------
+       include 'COMM_YAPS.FOR'
+C
+       xout= trasf(1,1,k) * xin +
+     1       trasf(2,1,k) * yin + 
+     2       trasf(3,1,k) * zin 
+       yout= trasf(1,2,k) * xin +
+     1       trasf(2,2,k) * yin +
+     2       trasf(3,2,k) * zin 
+c       zout= trasf(1,3,k) * xin + 
+c     1       trasf(2,3,k) * yin + 
+c     2       trasf(3,3,k) *  zin
+        zout=zin        ! visto come e' messo il yap .....
+c
+c                  sicome lo yap e' tangente il cilindro lo shift e'
+c                  facile da calcolare, basta aggiungere ad x rypi+dxypi,
+c                  cioe' togliere xorigypi;
+c                  qui sono appena piu' generale ....
+c       xout=xout-xorigypi(k)
+c       yout=yout-yorigypi(k)
+c       zout=zout-zorigypi(k)
+c
+       return
+       end

diff --git a/codemeta.json b/codemeta.json
new file mode 100644 (file)
index 0000000..d65f066
--- /dev/null
+++ b/codemeta.json
@@ -0,0 +1,43 @@
+{
+  "@context": "https://doi.org/10.5063/schema/codemeta-2.0",
+  "@type": "SoftwareSourceCode",
+  "name": "EGS4CYL",
+  "description": "A Montecarlo software for PET equipment simulation, based on EGS4."
+  "codeRepository": "http://legacy.helldragon.eu/gitweb/egs4cyl.git",
+  "downloadUrl": "git://legacy.helldragon.eu/egs4cyl.git",  
+  "programmingLanguage": "FORTRAN 77",
+  "operatingSystem": "VAX-VMS"
+  "license": "Public domain",
+  "dateCreated":"1994-12-01",
+  "datePublished":"1995-11-01",
+  "developmentStatus": "Unsupported",
+  "creativeWorkStatus": "Legacy software"
+  "keywords": [
+    "egs4",
+    "software",
+    "montecarlo",
+    "PET"
+  ],  
+  "author": [
+    {
+      "@type": "Person",
+      "givenName": "Stefano",
+      "familyName": "Ferriani",
+      "email": "stefano.ferriani@enea.it",
+    },
+    {
+      "@type": "Person",
+      "givenName": "Marcello",
+      "familyName": "Galli",
+      "email": "marcello.galli@enea.it",
+      "@id": "https://orcid.org/0000-0002-9135-3228"
+    },    
+    {
+      "@type": "Person",
+      "givenName": "Dante",
+      "familyName": "Bollini",
+      "email": "marcello.galli@enea.it",
+      "@id": "https://orcid.org/0000-0002-9135-3228"
+    } 
+  ]
+}