Initial commit by Marcello Galli

diff --git a/LICENSE b/LICENSE
new file mode 100644 (file)
index 0000000..aae855e
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,10 @@
+The license of these codes is unclear.
+
+Their development was financed by the Italian Energy Acengy: ENEA, 
+and they should belong to the Agency; but a license for these
+programs was never defined. 
+
+After the ending of the nuclear program in Italy the Agency 
+was restructured; changed name and purpose. 
+These codes where forgotten and lost. Their source code
+should be considered in the public domain.

diff --git a/README.md b/README.md
new file mode 100644 (file)
index 0000000..35fae9f
--- /dev/null
+++ b/README.md
@@ -0,0 +1,140 @@
+Legacy codes for neutron reactor cross section management
+=========================================================
+
+These codes where developed between 1976 and 1985 at the
+Italian Nuclear Energy Agency: *CNEN*, restructured
+and renamed in 1982 as *ENEA*.
+
+They are FORTRAN code, running on IBM mainframes, used to
+compute cross sections for fast nuclear reactor. 
+
+After the ending of the nuclear program in Italy the agency 
+was restructured and changed name and purpose. It is now:
+[*"ENEA: Agenzia nazionale per le nuove tecnologie, 
+l'energia e lo sviluppo economico sostenibile"*]
+(http://www.enea.it/). Some activity
+on nuclear reactors has been maintained, but these codes, 
+intended for fast reactor, where forgotten and lost. 
+
+Marcello Galli wrote most of them; they are saved
+here to be included in the collection of the 
+[*Software Heritage*] project (https://www.softwareheritage.org/). 
+ 
+Micro
+-----
+
+M.Galli, then student of Physics at the Bologna University,
+wrote this code for his thesis, between 1976 and 1977; 
+it was used for the interpretation of cross section measurements
+performed in Bologna, in the RB2 experimental reactor, at
+[Montecuccolino](https://www.bibliotecasalaborsa.it/cronologia/bologna/1963/1136)
+
+It is written in FORTRAN 66, about one thousand lines; in this
+period punched cards where used with a rigid 80-columns formatting.
+The code was run on the IBM 3090 of the Bologna CNEN center.
+
+There was no dynamic allocation of arrays in old FORTRAN.
+Here, at the beginning, the FORTRAN code compute the dimension of all the
+needed arrays, then a little assembler routine (maybe by R.Simonini) is called to allocate
+space for a big array named: "A". This is divided into small arrays when
+passed to the routines of the code, along with the needed dimensions
+of the arrays, which are defined in the routines.
+FORTRAN gives arguments to routines by address, making possible
+to obtain some kind of dynamical dimensions in this way.
+  
+We can note here a peculiar usage of labels; the common usage, at that time, was
+a progressive numbering, here instead label numbering is used to ease code
+reading: low numbers are loop ending statements, intermediate values
+are target of goto statements, higher values are used for format statements. 
+There are almost no comments... to save punching time,
+but the author maintained somewhere an hand written and detailed documentation.
+
+In old FORTRAN the last characters of each card where used for card numbering; 
+the numbers that can be seen here in the source code have been inserted later,
+by some IBM archive system (maybe the old 'librarian' system), 
+the numbers in the original card deck here different: when changing or adding a card 
+the deck wasn't renumbered... punching again all the cards. 
+
+
+Reference: 
+
+   Marcello Galli
+   
+   Thesis, degree in physics, Bologna University, 1977.
+   
+   Interpretazione di Misure Integrali di Sezioni d'Urto 
+   di Materiali di Interesse per i Reattori Veloci Effettuate 
+   con la Tecnica della Reattivita Nulla
+
+Geres
+-----
+
+This is a FORTRAN-77 program of about two thousand lines, 
+written around 1980 by M.Galli,
+then a contractor at the CNEN research center in Bologna;  
+C.Petrella contributed to the code; some parts are taken
+from the [MC2-II] (https://www.ne.anl.gov/codes/mc2-2/) code.
+
+The program was used to compute heterogeneous cross section, starting
+from data from the MC2-II code, for fast reactor calculations. 
+The code was run on an IBM 3090 computer.
+
+We have the rigid 80-columns format of the old FORTRAN, but the
+TSO IBM option had been introduced at the CNEN research center,
+with visual terminals and interactive usage. We hadn't
+punched cards anymore.
+
+If we compare this program with the "Micro" program of same years before,
+by the same author, we can see many differences due to the use of a 
+visual editor and a slightly different coding style:
+there are more and clearer comments (no need to punch more cards),
+and the code structure is more clear. 
+We haven't yet structured programming, and the author uses
+the same tricks we have seen in the Micro program:
+fortran common areas to isolate part of the code and different label numbers
+for loop, goto and formatting statements; to ease code readability. 
+
+The main program has the unique function of allocating a
+big array, in a common area; this array is subdivided in different,
+smaller, arrays when subroutines are called. The subroutine: 'address'
+computes the dimension of the smaller arrays. 
+
+Magnetic tapes where used for input and output data: some megabytes
+of data where, at that time, too much for the limited computer memory. 
+
+
+Teseo
+-----
+
+Teseo is a program of about twenty thousand statements, written 
+by M.Galli, between 1984 and 1987, in FORTRAN-IV, running on an IBM 3090 computer. 
+It computes data for the MC2-II code, starting from the 
+[ENDF-B IV](https://t2.lanl.gov/nis/data/endf/endfiv.htmldata) 
+evaluated nuclear data files.
+
+It used a somewhat modular structure, being divided into four independent parts, 
+communicating via temporary files; the available memory on mainframe 
+computers of that period was limited.
+In this program we can see some changes in the coding style, under the influence of 
+more modern versions of FORTRAN, as the one used on the Vax mini-computers, 
+which was FORTRAN-77 with  Dec extension;  
+these extensions weren't available on the IBM, and the code is still 
+FORTRAN IV, we find some indentation here and there, 
+but not the: "if, then, else, endif" statements introduced in FORTRAN-77.  
+
+
+Other programs
+--------------
+
+Data produced by different
+codes for nuclear reactor projects had different formatting;
+to allow for interoperability many little programs where 
+needed to change data format. Some of these old FORTRAN
+code codes are saved in the *other* folder.
+
+------------------------------------------------------------
+
+These programs are here as an example of  old FORTRAN usage,
+to be included in the collection of the 
+[*Software Heritage*] project (https://www.softwareheritage.org/).
+

diff --git a/codmeta.json b/codmeta.json
new file mode 100644 (file)
index 0000000..7e6ceeb
--- /dev/null
+++ b/codmeta.json
@@ -0,0 +1,30 @@
+{
+  "@context": "https://doi.org/10.5063/schema/codemeta-2.0",
+  "@type": "SoftwareSourceCode",
+  "name": "Legacy FORTRAN codes",
+  "description": "A collection of legacy FORTRAN codes for nuclear reactor cross section computations, developed at CNEN, and then at ENEA by Marcello Galli, between 1976 and 1987"
+  "codeRepository": "http://legacy.helldragon.eu/gitweb/oldfortrancodes.git",
+  "downloadUrl": "git://legacy.helldragon.eu/oldfortrancodes.git",  
+  "programmingLanguage": "FORTRAN",
+  "operatingSystem": "IBM 3090"
+  "license": "Public domain",
+  "dateCreated":"1977-12-01",
+  "developmentStatus": "Unsupported",
+  "creativeWorkStatus": "Legacy software"
+  "keywords": [
+    "nuclear reactors",
+    "cross sections",
+    "fortran",
+    "software",
+    "ENEA","CNEN","C2RV","Micro","Teseo","Mediator","Medil",
+  ],  
+  "author": [
+    {
+      "@type": "Person",
+      "givenName": "Marcello",
+      "familyName": "Galli",
+      "email": "marcello.galli@enea.it",
+      "@id": "https://orcid.org/0000-0002-9135-3228"
+    },
+  ]
+}

diff --git a/geres/Geres-ENEA-RT_TIB_85_26.pdf b/geres/Geres-ENEA-RT_TIB_85_26.pdf
new file mode 100644 (file)
index 0000000..dc8544f
Binary files /dev/null and b/geres/Geres-ENEA-RT_TIB_85_26.pdf differ

diff --git a/geres/README.md b/geres/README.md
new file mode 100644 (file)
index 0000000..22d6677
--- /dev/null
+++ b/geres/README.md
@@ -0,0 +1,14 @@
+Geres
+-----
+
+This is a FORTRAN-77 program, written around  1980 by M.Galli,
+then a contractor at the CNEN research center in Bologna;  
+C.Petrella contributed to the code; some parts are taken
+from the [MC2-II] (https://www.ne.anl.gov/codes/mc2-2/) code.
+
+The program was used to compute heterogeneous cross section, starting
+from data from the MC2-II code, for fast reactor calculations. 
+The code was run on an IBM 3090 computer.
+
+The ENEA report RT/TIB/85/26 describes the program.
+A scan of the report, in pdf format, is saved here.

diff --git a/geres/codmeta.json b/geres/codmeta.json
new file mode 100644 (file)
index 0000000..3849624
--- /dev/null
+++ b/geres/codmeta.json
@@ -0,0 +1,29 @@
+{
+  "@context": "https://doi.org/10.5063/schema/codemeta-2.0",
+  "@type": "SoftwareSourceCode",
+  "name": "Legacy FORTRAN codes",
+  "description": "Geres, a legacy FORTRAN code for cross section computations, developed at ENEA by Marcello Galli, around 1980."
+  "codeRepository": "http://coding.bologna.enea.it/gitrepo/oldfortrancodes.git",
+  "downloadUrl": "http://coding.bologna.enea.it/gitrepo/oldfortrancodes.git",  
+  "programmingLanguage": "FORTRAN",
+  "operatingSystem": "IBM 3090"
+  "license": "Public domain",
+  "dateCreated":"1980-12-01",
+  "developmentStatus": "Unsupported",
+  "creativeWorkStatus": "Legacy software"
+  "keywords": [
+    "nuclear reactors",
+    "cross sections",
+    "fortran",
+    "software",
+    "ENEA","Geres",
+  ],  
+  "author": [
+    {
+      "@type": "Person",
+      "givenName": "Marcello",
+      "familyName": "Galli",
+      "email": "marcello.galli@enea.it",
+    },
+  ]
+}

diff --git a/geres/geresa b/geres/geresa
new file mode 100644 (file)
index 0000000..914bf37
--- /dev/null
+++ b/geres/geresa
@@ -0,0 +1,2309 @@
+C           PROGRAMMA    G E R E S    GALLI-PETRELLA                    00000010
+C   MAIN SERVE SOLO AI DIMENSIONAMENTI                                  00000020
+C        L'ARGOMENTO DI COMMON/A/A(...) ED NDIM=....                    00000030
+C        SONO LO SPAZIO NECESSARIO PER TUTTE LE MATRICI                 00000040
+C        NEL DEFINE FILE IL RECORD DEVE ESSERE PIU DI IHM ANISN         00000050
+C        (LUNGHEZZA TAVOLA)  I RECORD DEVONO ESSERE MAGGIORI DI         00000060
+C        NUMERO ISOTOPI * GRUPPI * NUMERO COMPONENTI DI LEGENDRE        00000070
+C        DELLO SCATTERING                                               00000080
+C----                                                                   00000090
+      COMMON /A/A(150000)                                               00000100
+      COMMON /NDMX/ NDIM                                                00000110
+      DEFINE FILE 99(60000,170,U,IRAC)                                  00000120
+      NDIM=150000                                                       00000130
+      CALL PROG                                                         00000140
+      STOP                                                              00000150
+C----                                                                   00000160
+C----                                                                   00000170
+C----                                                                   00000180
+      END                                                               00000190
+      SUBROUTINE PROG                                                   00000200
+C                                                                       00000210
+C----  ========================================================         00000220
+C----  ========================================================         00000230
+C                                                                       00000240
+C                                                                       00000250
+C----       P R O G R A M M A         G   E   R   E   S                 00000260
+C----                                                                   00000270
+C                                                                       00000280
+C         +++++++++++++++++++++++++++++++++++++++++++++++++             00000290
+C                                                                       00000300
+C                                                                       00000310
+C---- CALCOLA SEZIONI D'URTO  DI RISONANZA ETEROGENEE A                 00000320
+C---- PARTIRE DAI FILES DI MC2-2 E GENERA TAPE ANISN MACRO              00000330
+C----  E MICRO PER GRUPPI DALLE LIBRERIE XS.ISO DI MC2-2                00000340
+C---- PER SUCCESSIVO CALCOLO DI CELLA IN ANISN                          00000350
+C----                                                                   00000360
+C---- AUTORI  :  MARCELLO GALLI - CARLO PETRELLA.                       00000370
+C---                                                                    00000380
+C                                                                       00000390
+C                                                                       00000400
+C----    VERSIONE DEL 5-5-1981                                          00000410
+C            MODIFICATO IL 27-4-82                                      00000420
+C                                                                       00000430
+C        MODIFICHATO IL 29-12-82      GALLI                             00000440
+C        AGGIUNTE OPZIONI INP(3)=4 , 5 ED INP(4) A PET02                00000450
+C                                                                       00000460
+C****    INSERITA VARIANTE DEL 17-9-84 CHE UTILIZZA UN                  00000470
+C        UN FILE DIRAC NON AD ACCESSO DIRETTO, MA SEQUENZIALE,          00000480
+C        PER ACCORCIARE IL TEMPO DI ELAPSED.                            00000490
+C        QUESTA VARIANTE NON SI PUO USARE QUANDO SI UTILIZZANO          00000500
+C        I DATI PRODOTTI DAL MODULO RABANL.                             00000510
+C        UN DIRAC=99 E INTESO AD ACCESSO DIRETTO, UN DIRAC.NE.99        00000520
+C        E INTESO DAL PROGRAMMA COME UN SEQUENZIALE                     00000530
+C                                                                       00000540
+C        CORREZIONE 17-3-1987 ISTRUZIONE 18360 WRITE(NP,...             00000541
+C                             IN ISTRUZIONE WRITE(11,....(SUB PET03)    00000542
+C                                                                       00000543
+C----   ================================================                00000550
+C----   ================================================                00000560
+C                                                                       00000570
+C---- SUBROUTINE PROG:                                                  00000580
+C---- DEFINISCE I COMMONS E CHIAMA LE 3 SUBROUTINES PRINCIPALI DEL      00000590
+C---- PROGRAMMA.                                                        00000600
+      COMMON /NPR/NPRMAT,NGROUP,MGCSP,NGEOM,NREG,NBG1,NREG1,            00000610
+     1NUMRES,NREGU,NPTMAX,MAXISO,                                       00000620
+     2NRES,NREGR,NRESMT,                                                00000630
+     3NGROUS,MGCUT,NPRMAS,NGEOS,NREGS,MAXHTM,                           00000640
+     4ICHI,IBSQ,MAXHTP,NCMP,ISORS,NREAL,                                00000650
+     5MAXNOL,MAXGRP,MAXGPH,NOLRES,N1MIN,N2MAX                           00000660
+      COMMON /DIM/NBG,M2,M3,NSP,NDL,MXNL                                00000670
+      COMMON /A/A(1)                                                    00000680
+      COMMON /NTP/NI,NO,NPC,NP,NU,NR,NS,NSS,NL,NT(9)                    00000690
+      COMMON /INP/ INP(18)                                              00000700
+      COMMON /SPECS/ DUM(12),NUFG                                       00000710
+      COMMON /NDMX/ NDIM,NTAPE,NINP,NNPR                                00000720
+      COMMON /TITL/ TITL(20)                                            00000730
+      COMMON /NPUNT/LPRBNA,LHETDE,LMATHE,LSIGM,LEBG1,LNGPRE,LMATRE,LEN,L00000740
+     1EUFG,LNUMBG,LNUMUF,LGEJ,LDEN,LANTUF,LPESI,LSUNRE,LESTAR,LUNRMA,LNU00000750
+     2MMA,LINT,LAN,LSP,LSPMAT,LNUMLO,LLORRE,LNDOLO,LGEJLO,LIMIT         00000760
+C**** **************** VARIANTE DEL 17-9-1984 NUMERO 1-1                00000770
+      COMMON /N99P/N99P,N99P1                                           00000780
+C**** ********** INSERIMENTO OPZIONE PER USARE FILE 99 NON DA           00000790
+C---- +++++++++++++++ TEMPORIZZATORE ++++++++++++++                     00000800
+      CALL STIME(100000)                                                00000810
+C---- DIMENSIONI DEL COMMON /NPR/                                       00000820
+      NNPR=32                                                           00000830
+C---- NUMERO OPZIONI DEL COMMON INP  (QUESTE ASSEGNAZ AD INP ED NTAPE   00000840
+C----  SONO SOLO PER ZERO7 POI OGNI PEZZO SI FISSA I SUOI )             00000850
+      NINP=4                                                            00000860
+C---- NUMERO TAPES COMMON NTP.                                          00000870
+      NTAPE=9                                                           00000880
+C---- GENERAZIONE DI SEZIONI D'URTO MICROSCOPICHE RISONANTI A PARTIRE   00000890
+C---- DAI TAPES DI MCC-2.                                               00000900
+      CALL  ZERO7                                                       00000910
+C---- AGGIUNTA RISONANZE A LIBRERIA XS.ISO DI MCC-2 E CREAZIONE         00000920
+C---- TAPE ANISN AD ISOTOPI.                                            00000930
+      CALL PET02                                                        00000940
+C---- TRASFORMAZIONE TAPE ANISN AD ISOTOPI IN TAPE ANISN A GRUPPI       00000950
+C---- E CALCOLO MACRO.                                                  00000960
+      CALL PET03                                                        00000970
+      RETURN                                                            00000980
+C----                                                                   00000990
+C---- FINE SUBROUTINE PROG.                                             00001000
+C----                                                                   00001010
+      END                                                               00001020
+      SUBROUTINE SKIP(NT,M)                                             00001030
+C---- SALTA M RECORDS SUL TAPE NT. SE M E* NEGATIVO FA IL REWIND AD NT. 00001040
+      WRITE(11,999) NT,M                                                00001050
+ 999  FORMAT('  SKIP    UNITA'' : ',I5,' RECORDS',I5)                   00001060
+      IF(M.EQ.0) RETURN                                                 00001070
+      IF(M.GT.0) GOTO 5                                                 00001080
+      REWIND NT                                                         00001090
+      M=-M                                                              00001100
+ 5    CONTINUE                                                          00001110
+      DO 10 I=1,M                                                       00001120
+  10  READ(NT) DUM                                                      00001130
+      RETURN                                                            00001140
+C----                                                                   00001150
+C---- FINE SUBROUTINE SKIP.                                             00001160
+C----                                                                   00001170
+      END                                                               00001180
+      SUBROUTINE NULL(N1,N)                                             00001190
+C---- ANNULLA NEL COMMON /A/ N LOCAZIONI A PARTIRE DALLA N1ESIMA        00001200
+C---- COMPRESA.                                                         00001210
+      COMMON/A/A(1)                                                     00001220
+      M=N1+N-1                                                          00001230
+      WRITE(11,1100) N1,A(N1),M,A(M)                                    00001240
+ 1100 FORMAT(' SUB.NULL DA A(',I9,')=',E12.6,' AD A(',I9,')=',E12.6)    00001250
+      DO 1 I=1,N                                                        00001260
+    1 A(N1+I-1)=0.0                                                     00001270
+      RETURN                                                            00001280
+C----                                                                   00001290
+C---- FINE SUBROUTINE NULL.                                             00001300
+C----                                                                   00001310
+      END                                                               00001320
+      SUBROUTINE ZERO7                                                  00001330
+C---- PSEUDO SECTION CSC007 DI SDX (FA CIRCA LE STESSE COSE)            00001340
+C---- SUBROUTINE PRINCIPALE PER IL CALCOLO DI SEZIONI D'URTO RISONANTI  00001350
+C---- MICROSCOPICHE ETEROGENEE DA FILES DI MCC-2.                       00001360
+      COMMON /A/A(1)                                                    00001370
+      COMMON /NTP/NI,NO,NPC,NP,NU,NR,NS,NSS,NL                          00001380
+      COMMON /INP/ INP(1)                                               00001390
+      COMMON /NPR/NPR(1)                                                00001400
+      COMMON /SPECS/ DUM(12),NUFG                                       00001410
+      COMMON /NDMX/ NDIM,NTAPE,NINP,NNPR                                00001420
+      COMMON /TITL/ TITL(1)                                             00001430
+      COMMON /NPUNT/LPRBNA,LHETDE,LMATHE,LSIGM,LEBG1,LNGPRE,LMATRE,LEN,L00001440
+     1EUFG,LNUMBG,LNUMUF,LGEJ,LDEN,LANTUF,LPESI,LSUNRE,LESTAR,LUNRMA,LNU00001450
+     2MMA,LINT,LAN,LSP,LSPMAT,LNUMLO,LLORRE,LNDOLO,LGEJLO,LIMIT         00001460
+      REAL *4 AANOM(1)                                                  00001470
+      REAL*8 ANOM(9)                                                    00001480
+      DIMENSION NTP1(18),NTP(18)                                        00001490
+      EQUIVALENCE (NI,NTP(1))                                           00001500
+C---- DEFAULTS DI /NTP/ (NUMERI LOGICI DEI TAPES).                      00001510
+      DATA NTP1/5,6,7,35,48,36,42,90,20,9*0/                            00001520
+C---- NOMI TAPES.                                                       00001530
+      DATA ANOM/8HINPUT   ,8HOUTPUT  ,8HPUNCH   ,8HPRBSPC  ,            00001540
+     18HUNRES   ,8HRESINT  ,8HSIGMAP  ,8HSCR     ,8HLORENTZ /           00001550
+      DATA AANOM/4HNO  /                                                00001560
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00001570
+      CALL TTIME(NORA)                                                  00001580
+      WRITE(11,999) NORA                                                00001590
+ 999  FORMAT('   ZERO7', '  ORA:',I10)                                  00001600
+C---- PRIMA LETTURA DALL'INPUT DI DEFAULT.                              00001610
+      NI=NTP1(1)                                                        00001620
+      READ(NI,10) (NTP(J),J=1,NTAPE)                                    00001630
+C---- LEGGE NUMERI LOGICI DEI TAPES(SE NULLI METTE DEFAULT,             00001640
+C---- SE NEGATIVI IL FILE NON ESISTE).                                  00001650
+ 10   FORMAT(18I4)                                                      00001660
+C---- ASSEGNAZIONE NUMERI LOGICI TAPES LETTI O DEFAULTS SE TROVATI NULLI00001670
+      DO 20 I=1,NTAPE                                                   00001680
+      IF(NTP(I).EQ.0) NTP(I)=NTP1(I)                                    00001690
+  20  CONTINUE                                                          00001700
+C---- LETTURA TITOLO (SE TITL(1)=NO LA SUB. ZERO7 NON VIENE ESEGUITA).  00001710
+      READ(NI,30) (TITL(J),J=1,20)                                      00001720
+ 30   FORMAT(20A4)                                                      00001730
+      WRITE(NO,40) (TITL(J),J=1,20)                                     00001740
+  40  FORMAT(1H1,20X,20A4////)                                          00001750
+      IF(TITL(1).EQ.AANOM(1)) RETURN                                    00001760
+      WRITE(NO,45)                                                      00001770
+  45  FORMAT(1X,11(1H+),'   PROGRAMMA GERES   PARTE 1 : CREAZIONE SIGMA 00001780
+     1 RISONANZE '///)                                                  00001790
+      DO 70 I=1,NTAPE                                                   00001800
+      WRITE(NO,50)(ANOM(I),NTP(I))                                      00001810
+  50  FORMAT(5X,' IL FILE  ',A8,'  E* SULLA UNITA LOGICA ',I4)          00001820
+      IF(NTP(I).LE.0) WRITE(NO,60)                                      00001830
+  60  FORMAT(1H+,50X,'****    NON  ESISTE ****')                        00001840
+  70  CONTINUE                                                          00001850
+C---- ANNULLA /NPR/ PERCHE USATO TUTTO DA ADDRESS IN OGNI CASO          00001860
+      DO 1 I=1,NNPR                                                     00001870
+  1   NPR(I)=0                                                          00001880
+C---- LETTURA OPZIONI DI INPUT.                                         00001890
+      READ(NI,10) (INP(J),J=1,NINP)                                     00001900
+      WRITE(NO,80) (INP(J),J=1,NINP)                                    00001910
+ 80   FORMAT(///('  OPZIONI DI INPUT:',18I4))                           00001920
+C---- SCAMBIO DEI VALORI 0 E 1 IN INP(1) PER INTERPOLAZIONE CON SIGAVC. 00001930
+      NDUM=INP(1)                                                       00001940
+      IF(INP(1).EQ.0) NDUM=1                                            00001950
+      IF(INP(1).EQ.1) NDUM=0                                            00001960
+      INP(1)=NDUM                                                       00001970
+C---- CONTROLLI DI COESISTENZA FRA LE OPZIONI DI INPUT E LA PRESENZA    00001980
+C---- DI TAPES.                                                         00001990
+      IF(NS.GT.0.OR.INP(2).NE.0)  GOTO  95                              00002000
+C---- IN QUESTO CASO INPONE OPZIONE DI PESATURA COSTANTE.               00002010
+      INP(2)=1                                                          00002020
+      WRITE(NO,90)                                                      00002030
+  90  FORMAT(/'  *** LA ASSENZA DI SIGMAP NON E* COERENTE CON LA OPZIONE00002040
+     1 DI PESATURA 1/SP DELLE IRRISOLTE,SI ASSUME PESATURA COSTANTE***')00002050
+  95  CONTINUE                                                          00002060
+      IF(NR.LT.0.OR.NS.GT.O) GOTO 110                                   00002070
+C---- IN QUESTO CASO PONE RESINT INESISTENTE(NIENTE CALCOLO DI RISONANZE00002080
+C---- RISOLTE).                                                         00002090
+      NR=-1                                                             00002100
+      WRITE(NO,100)                                                     00002110
+ 100  FORMAT(/' *** SENZA IL TAPE SIGMAP NON SI POSSONO FARE CALCOLI DEL00002120
+     1  DELLE SIGMA RISOLTE***')                                        00002130
+ 110  CONTINUE                                                          00002140
+      IF(NP.GT.0) GOTO 130                                              00002150
+      WRITE(NO,120)                                                     00002160
+ 120  FORMAT(/'   *** MANCA TAPE PRBSPC IMPOSSIBILE PROSEGUIRE')        00002170
+      STOP                                                              00002180
+ 130  CONTINUE                                                          00002190
+C----  SE NON ESISTE RESINT NON SERVE NEANCHE LORENTZ                   00002200
+      IF(NR.LE.0) NL=-1                                                 00002210
+C---- LETTURA PARAMETRI DEL PROBLEMA DA PRBSPC.                         00002220
+      REWIND NP                                                         00002230
+      READ(NP)(NPR(J),J=1,3),(NUL,J=1,5),(NPR(J),J=4,5),NUL1,(NPR(J),J=200002240
+     11,22),(NUL1,J=1,5),NPR(23),(NUL1,J=1,4),NPR(6),(NUL,J=1,4),NPR(24)00002250
+     2,(NUL1,J=1,2),NPR(25)                                             00002260
+C---- FISSA NREG1=NREG+1.                                               00002270
+      NPR(7)=NPR(5)                                                     00002280
+      IF(NPR(4).EQ.2) NPR(7)=1                                          00002290
+       IF(NPR(4).EQ.0) NPR(7)=0                                         00002300
+      IF(NPR(23).LE.0) NPR(7)=0                                         00002310
+C---- FISSA NREAL.                                                      00002320
+      NREAL=NPR(7)+1                                                    00002330
+      NPR(26)=NREAL                                                     00002340
+      WRITE(NO,140) ANOM(4),(NPR(J),J=1,7),(NPR(J),J=21,26)             00002350
+ 140  FORMAT(/'  LETTI DAL FILE ',A8,'  I PARAMETRI: ',(1X,13I5))       00002360
+C---- LETTURA PARAMETRI DEL PROBLEMA DA UNRES.                          00002370
+      IF(NU.LE.0) GOTO 170                                              00002380
+      REWIND NU                                                         00002390
+      READ(NU) (NPR(J),J=8,11)                                          00002400
+      WRITE(NO,140) ANOM(5),(NPR(J),J=8,11)                             00002410
+C---- CONTROLLI DI COESISTENZA CON PARAMETRI DI PRBSPC.                 00002420
+      IF(NPR(9).NE.NPR(26)) WRITE(NO,150) NPR(9),ANOM(5),NPR(5),ANOM(4) 00002430
+ 150  FORMAT(/' ***ATTENZIONE AL PARAMETRO',I5,'  DI ',A8,' NON E*      00002440
+     1  COERENTE COL PARAMETRO',I5,'  DI ',A8)                          00002450
+      IF(NPR(8).GT.NPR(1)) WRITE(NO,150) NPR(8),ANOM(5),NPR(1),ANOM(4)  00002460
+      IF(NPR(11).NE.1) WRITE(NO,160) NPR(11),ANOM(5)                    00002470
+ 160  FORMAT(/' *** ATTENZIONE IL PARAMETRO',I5,' SEGNALA SU ',A8,' UNA 00002480
+     1  STRUTTURA PER ISOTOPI CHE IL CODICE NON TRATTA')                00002490
+ 170  CONTINUE                                                          00002500
+C---- LETTURA PARAMETRI DI RESINT.                                      00002510
+      IF(NR.LE.0) GOTO 180                                              00002520
+      REWIND NR                                                         00002530
+      READ(NR) (NPR(J),J=12,14)                                         00002540
+      WRITE(NO,140) ANOM(6),(NPR(J),J=12,14)                            00002550
+C---- CONTROLLI DI COESISTENZA.                                         00002560
+      IF(NPR(13).NE.NPR(26))WRITE(NO,150) NPR(13),ANOM(6),NPR(5),ANOM(4)00002570
+      IF(NPR(14).GT.NPR(1)) WRITE(NO,150) NPR(14),ANOM(6),NPR(1),ANOM(4)00002580
+ 180  CONTINUE                                                          00002590
+C---- LETTURA PARAMETRI DI SIGMAP.                                      00002600
+      IF(NS.LE.0) GOTO 190                                              00002610
+      REWIND NS                                                         00002620
+      READ(NS)(NPR(J),J=15,20)                                          00002630
+      WRITE(NO,140) ANOM(7),(NPR(J),J=15,20)                            00002640
+C---- CONTROLLI DI COESISTENZA.                                         00002650
+      IF(NPR(15).NE.NPR(2)) WRITE(NO,150) NPR(15),ANOM(7),NPR(2),ANOM(4)00002660
+      IF(NPR(17).NE.NPR(1)) WRITE(NO,150) NPR(17),ANOM(7),NPR(1),ANOM(4)00002670
+      IF(NPR(18).NE.NPR(4)) WRITE(NO,150) NPR(18),ANOM(7),NPR(4),ANOM(4)00002680
+      IF(NPR(19).NE.NPR(7)) WRITE(NO,150) NPR(19),ANOM(7),NPR(7),ANOM(4)00002690
+      IF(NPR(20).NE.NPR(23))WRITE(NO,150)NPR(20),ANOM(7),NPR(23),ANOM(4)00002700
+      NUFG=NPR(15)                                                      00002710
+ 190  CONTINUE                                                          00002720
+C----  LETTURE DA LORENTZ                                               00002730
+      IF(NL.LE.0) GOTO 200                                              00002740
+      REWIND NL                                                         00002750
+      READ(NL) (NPR(J),J=27,29)                                         00002760
+      WRITE(NO,140) ANOM(9), (NPR(J),J=27,29)                           00002770
+      IF(NPR(27).LE.0) NL=-1                                            00002780
+ 200  CONTINUE                                                          00002790
+C---- DEFINISCE I PUNTATORI NPUNT E LO SPAZIO PER LE DIVERSE            00002800
+C---- GRANDEZZE DEL COMMON /A/.                                         00002810
+      CALL ADDRSS                                                       00002820
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00002830
+      CALL TTIME(NORA)                                                  00002840
+      WRITE(11,999) NORA                                                00002850
+C---- LETTURE DEI TAPES DI MCC-2 NON DIPENDENTI DALLA REGIONE.          00002860
+C---- CREAZIONE DI NUMMAT, CHE METTE IN CORRISPONDENZA MATERIALI        00002870
+C---- DI UNRES CON QUELLI DI PRBSPC.                                    00002880
+      CALL EMPIE(A(LPRBNA),A(LHETDE),A(LMATHE),A(LEBG1),A(LNGPRE),A(LMAT00002890
+     1RE),A(LEN),A(LUNRMA),A(LNUMMA))                                   00002900
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00002910
+      CALL TTIME(NORA)                                                  00002920
+      WRITE(11,999) NORA                                                00002930
+      IF(NP.GT.0) REWIND NP                                             00002940
+C---- PRBSPC NON SERVE PIU'. UNRES SERVE ANCORA, MA LA SUBROUTINE CHE   00002950
+C---- LO LEGGE LO RIPOSIZIONA OGNI VOLTA.                               00002960
+      IF(NU.GT.0) REWIND NU                                             00002970
+C---- CALCOLA ENERGIE U.F.G. CALCOLA NUMBG E NUMUFG                     00002980
+C---- PER CORRISPONDENZA U.F.G. - B.G.                                  00002990
+      CALL ENERG(A(LEBG1),A(LEUFG),A(LNUMBG),A(LNUMUF))                 00003000
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00003010
+      CALL TTIME(NORA)                                                  00003020
+      WRITE(11,999) NORA                                                00003030
+C---- ********** INIZIO LOOP SULLE REGIONI.                             00003040
+      DO 240 I=1,NREAL                                                  00003050
+      IF(NS.LE.0)  GO TO 210                                            00003060
+C---- LETTURA SP DA SIGMAP (SIGMA MACROSCOPICHE ETEROGENEE DEI          00003070
+C---- MATERIALI DELLA ZONA).CALCOLA NSPMAT (CORRISPONDENZA MATERIALI-SP)00003080
+      CALL READSP(I,A(LSP),A(LMATHE),A(LSPMAT))                         00003090
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00003100
+      CALL TTIME(NORA)                                                  00003110
+      WRITE(11,999) NORA                                                00003120
+ 210  CONTINUE                                                          00003130
+      IF(NR.LE.0) GO TO 220                                             00003140
+C----  LETTURE DA LORENTZ CREA LORRES CORR> LORENTZ-RISONANZE           00003150
+      IF(NL.GT.0) CALL LEGGLR(I,A(LNUMLO),A(LLORRE),A(LNDOLO),A(LGEJLO))00003160
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00003170
+      CALL TTIME(NORA)                                                  00003180
+      WRITE(11,999) NORA                                                00003190
+C---- LETTURE DA RESINT E CREAZIONE SIGMA ETEROGENEE RISONANTI RISOLTE  00003200
+C---- PER LA ZONA.                                                      00003210
+      CALL RSNT(I,A(LSIGM),A(LEBG1),A(LNGPRE),A(LMATRE),A(LEN),A(LNUMBG)00003220
+     1,A(LGEJ),A(LDEN),A(LSP),A(LSPMAT),A(LHETDE),A(LLORRE))            00003230
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00003240
+      CALL TTIME(NORA)                                                  00003250
+      WRITE(11,999) NORA                                                00003260
+ 220  CONTINUE                                                          00003270
+      IF(NU.LE.0) GO TO 230                                             00003280
+C---- LETTURE DA UNRES, CREAZIONE DELLE SIGMA IRRISOLTE                 00003290
+C---- E LORO SOMMA ALLE SIGMA RISONANTI RISOLTE DELLA REGIONE.          00003300
+      CALL NRS(I,A(LSIGM),A(LEBG1),A(LEUFG),A(LNUMBG),A(LNUMUF),        00003310
+     1A(LDEN),A(LANTUF),A(LPESI),A(LSUNRE),A(LESTAR),A(LUNRMA),A(LNUMMA)00003320
+     2,A(LINT),A(LAN),A(LSP),A(LSPMAT),A(LMATHE))                       00003330
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00003340
+      CALL TTIME(NORA)                                                  00003350
+      WRITE(11,999) NORA                                                00003360
+ 230  CONTINUE                                                          00003370
+ 240  CONTINUE                                                          00003380
+C---- ********** FINE LOOP SULLE REGIONI.                               00003390
+      IF(NU.GT.0) REWIND NU                                             00003400
+      IF(NR.GT.0) REWIND NR                                             00003410
+      IF(NL.GT.0) REWIND NL                                             00003420
+      IF(NS.GT.0) REWIND NS                                             00003430
+C---  SU OPZIONE DI INPUT EFFETTUA STAMPE                               00003440
+      IF(INP(3).GE.1) CALL STAMP(A(LSIGM),A(LPRBNA),A(LHETDE),A(LMATHE))00003450
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00003460
+      CALL TTIME(NORA)                                                  00003470
+      WRITE(11,999) NORA                                                00003480
+C---- SE ESISTE IL TAPE PER RESTART VI VENGONO SCRITTI I DATI UTILI.    00003490
+      IF(NSS.GT.0) CALL STAP(A(LSIGM),A(LPRBNA),A(LHETDE),A(LMATHE),A(LE00003500
+     1BG1))                                                             00003510
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00003520
+      CALL TTIME(NORA)                                                  00003530
+      WRITE(11,999) NORA                                                00003540
+      RETURN                                                            00003550
+C----                                                                   00003560
+C---- FINE SUBROUTINE ZERO7.                                            00003570
+C----                                                                   00003580
+      END                                                               00003590
+      SUBROUTINE ADDRSS                                                 00003600
+C---- DEFINIZIONE PUNTATORI PER LE VARIABILI ENTRO IL COMMON /A/.       00003610
+C---- DEFINIZIONE COMMON /DIM/ USATO PER I DIMENSION.                   00003620
+      COMMON /NPUNT/NPUNT(1)                                            00003630
+      COMMON /NPR/NPRMAT,NGROPP,MGCSP,NGEOM,NREG,NBG1,NREG1,            00003640
+     1NUMRES,NREGU,NPTMAX,MAXISO,                                       00003650
+     2NRES,NREGR,NRESMT,                                                00003660
+     3NGROUP,MGCUT,NPRMAS,NGEOS,NREGS,MAXHTM,                           00003670
+     4ICHI,IBSQ,MAXHTP,NCMP,ISORS,NREAL,                                00003680
+     5MAXNOL,MAXGRP,MAXGPH,NOLRES,N1MIN,N2MAX                           00003690
+      COMMON /NDMX/ILIM,DUM                                             00003700
+      COMMON /DIM/NBG,M2,M3,NSP,NDL,MXNL                                00003710
+      COMMON /NTP/NI,NO                                                 00003720
+      WRITE(11,999)                                                     00003730
+ 999  FORMAT('  ADDRESS')                                               00003740
+      NPUNT(1)=1                                                        00003750
+C---- PRBNAM : NOMI MATERIALI (DUE PAROLE).                             00003760
+      NPUNT(2)=NPUNT(1)+NPRMAT*2                                        00003770
+C---- HETDEN : DENSITA'.                                                00003780
+      M3=NPRMAT                                                         00003790
+      NPUNT(3)=NPUNT(2)+NPRMAT*(NREG+1)                                 00003800
+C---- MATHET : INDICI DI ETEROGENEITA'.                                 00003810
+      NPUNT(4)=NPUNT(3)+NPRMAT*NREG1                                    00003820
+      NBG=NBG1                                                          00003830
+      M2=2                                                              00003840
+C---- SIGM : SIGMA RISONANZE CREATE.                                    00003850
+      NPUNT(5)=NBG1*NPRMAT*2*NREAL+NPUNT(4)                             00003860
+C---- EBG1 : ENERGIE B.G.                                               00003870
+      NPUNT(6)=NPUNT(5)+NBG1                                            00003880
+C---- NGPRES,MATRES,EN : GRUPPI, MATERIALI, ENERGIE DELLE RISONANZE.    00003890
+      DO 10 I=7,9                                                       00003900
+ 10   NPUNT(I)=NPUNT(I-1)+NRES                                          00003910
+C---- EUFG : ENERGIE GRUPPI ULTRAFINI.                                  00003920
+      NPUNT(10)=NPUNT(9)+NGROUP+1                                       00003930
+C---- NUMBG : BROAD GROUP DI OGNI ULTRAFIN GROUP.                       00003940
+      NPUNT(11)=NPUNT(10)+NGROUP                                        00003950
+C---- NUMUF : NUMERO DI U.F.G. PER OGNI B.G.                            00003960
+      NPUNT(12)=NPUNT(11)+(NBG1-1)                                      00003970
+C---- GEJ : GAMMA/E*J RISONANZE RISOLTE.                                00003980
+      NPUNT(13)=NPUNT(12)+NRES                                          00003990
+C---- DEN : DENOMINATORE FORMULA A B.G.                                 00004000
+      NPUNT(14)=NPUNT(13)+(NBG1-1)                                      00004010
+C---- ANTUF : INTERPOLAZIONE U.F.G.                                     00004020
+      NPUNT(15)=NPUNT(14)+NGROUP                                        00004030
+C---- PESI : PESI MEDIE SIGMA IRRISOLTE.                                00004040
+      NPUNT(16)=NPUNT(15)+NGROUP                                        00004050
+C---- SUNRE : SIGMA IRRISOLTE.                                          00004060
+      NPUNT(17)=NPUNT(16)+(NPTMAX*MAXISO)                               00004070
+C---- ESTAR : ENERGIE SIGMA IRRISOLTE.                                  00004080
+      NPUNT(18)=NPUNT(17)+NPTMAX                                        00004090
+C---- UNRMAT : NOMI MATERIALI UNRES.                                    00004100
+      NPUNT(19)=NPUNT(18)+NUMRES*2                                      00004110
+C---- NUMMA : NUMERI MATERIALI NON RISOLTI.                             00004120
+      NPUNT(20)=NPUNT(19)+NUMRES                                        00004130
+C---- INT : PER SUBROUTINE SIGAVC DI MCC-2.                             00004140
+      NPUNT(21)=NPUNT(20)+NPTMAX                                        00004150
+C---- AN : PER SUBROUTINE SIGAVC DI MCC-2.                              00004160
+      NPUNT(22)=NPUNT(21)+NPTMAX                                        00004170
+C---- SP : SIGMA MACRO LETTE DA SIGMAP.                                 00004180
+      NSP=NGROUP                                                        00004190
+      NPUNT(23)=NPUNT(22)+NSP*(MAXHTM+1)                                00004200
+C---- NSPMAT : CORRISPONDENZA NUMERI MATERIALI E SP.                    00004210
+      NPUNT(24)=NPUNT(23)+NPRMAT                                        00004220
+C----  NUMLOR : NUMERI RISONANZE IN LORENTZ                             00004230
+      NPUNT(25)=NPUNT(24)+MAXNOL                                        00004240
+C----  LORRES : NUMERO IN LORENTZ DI OGNI RISONANZA                     00004250
+      NPUNT(26)=NPUNT(25)+NRES                                          00004260
+C----  NDOLOR : LIMITI ENERGETICI RISONANZE IN LORENTZ                  00004270
+      NDL=3                                                             00004280
+      NPUNT(27)=NPUNT(26)+NDL*MAXNOL                                    00004290
+C----  GEJLOR : GEJ DI LORENTZ                                          00004300
+      MXNL=MAXNOL                                                       00004310
+      NPUNT(28)=NPUNT(27)+MXNL*MAXGRP-1                                 00004320
+      WRITE(NO,20) NPUNT(28),ILIM                                       00004330
+ 20   FORMAT(/' LA OCCUPAZIONE E* DI ',I20,' PAROLE,DISPONIBILI: ',I10,'00004340
+     1 PAROLE')                                                         00004350
+      WRITE(11,998) (J,NPUNT(J),J=1,28)                                 00004360
+998   FORMAT(1X,(' NPUNT(',I4,')= ',I7))                                00004370
+      IF(NPUNT(28).GT.ILIM) WRITE(NO,30)                                00004380
+  30  FORMAT(/'  ******** ATTENZIONE LO SPAZIO FORNITO NON BASTA********00004390
+     1'/' ******** AUMENTARE LE DIMENSIONI DEL COMMON/A/ NEL MAIN*******00004400
+     2'/'*********** AUMENTARE IL PARAMETRO MDIM DEL MAIN  ***********')00004410
+      IF(NPUNT(28).GT.ILIM) STOP                                        00004420
+C---- PULISCE TUTTO LO SPAZIO DA ADOPERARE.                             00004430
+      CALL NULL(1,NPUNT(28))                                            00004440
+      RETURN                                                            00004450
+C----                                                                   00004460
+C---- FINE SUBROUTINE ADDRSS.                                           00004470
+C----                                                                   00004480
+      END                                                               00004490
+      SUBROUTINE EMPIE(PRBNAM,HETDEN,MATHET,EBG1,NGPRES,MATRES,EN,UNRMAT00004500
+     1,NUMMAT)                                                          00004510
+C---- LEGGE DA PRBSPC, RESINT, UNRES LE GRANDEZZE IN ARGOMENTO,         00004520
+C---- CALCOLA NUMMAT.                                                   00004530
+      REAL *8 PRBNAM,UNRMAT                                             00004540
+      DIMENSION  PRBNAM(1),HETDEN(MMAT,1),MATHET(MMAT,1),EBG1(1),NGP    00004550
+     1RES(1),MATRES(1),EN(1),UNRMAT(1),NUMMAT(1)                        00004560
+      COMMON /DIM/NBG,M2,MMAT,NSP                                       00004570
+      COMMON /NTP/NI,NO,NPC,NP,NU,NR,NS                                 00004580
+      COMMON /INP/INP(1)                                                00004590
+      COMMON /NPR/NPRMAT,NUFG,MGCSP,NGEOM,NREG,NBG1,NREG1,              00004600
+     1NUMRES,NREGU,NPTMAX,MAXISO,                                       00004610
+     2NRES,NREGR,NRESMT,                                                00004620
+     3NGROUS,MGCUTS,NPRMAS,NGEOS,NREGS,MAXHTS,                          00004630
+     4ICHI,IBSQ,MAXHTM,NCMP,ISORS,NREAL                                 00004640
+C---- LETTURE DA PRBSPC.                                                00004650
+      READ(NP)(PRBNAM(J),J=1,NPRMAT)                                    00004660
+      READ(NP)(HETDEN(J,1),J=1,NPRMAT)                                  00004670
+      WRITE(11,999)                                                     00004680
+ 999  FORMAT('  EMPIE  LETTURE DA PRBSPC,RESINT UNRES')                 00004690
+C---- SALTA UN RECORD DA PRBSPC.                                        00004700
+      CALL SKIP(NP,1)                                                   00004710
+      NREGE1=NREG+1                                                     00004720
+      IF(MAXHTM.GT.0) READ(NP)((HETDEN(J,JJ),J=1,NPRMAT),JJ=2,NREGE1)   00004730
+      IF(NGEOM.GT.0) READ(NP)((MATHET(J,JJ),J=1,NPRMAT),JJ=1,NREG1)     00004740
+C---- CALCOLO NUMERO RECORDS DA SALTARE SU PRBSPC.                      00004750
+      NSK=1                                                             00004760
+      IF(NGEOM.EQ.1.AND.MAXHTM.GT.0) NSK=NSK+2                          00004770
+      IF(MAXHTM.GT.0) NSK=NSK+2                                         00004780
+      IF(ICHI.GE.1) NSK=NSK+1                                           00004790
+      IF(IABS(IBSQ).LE.1)NSK=NSK+1                                      00004800
+      IF(NCMP.GT.0) NSK=NSK+1                                           00004810
+      IF(ISORS.GT.0) NSK=NSK+1                                          00004820
+      CALL SKIP(NP,NSK)                                                 00004830
+      READ(NP) (EBG1(J),J=1,NBG1)                                       00004840
+C---- FINE LETTURA PRBSPC.                                              00004850
+      IF(NR.LE.0) GOTO 10                                               00004860
+C---- LETTURE DA RESINT.                                                00004870
+      READ(NR)(NGPRES(J),J=1,NRES)                                      00004880
+      READ(NR)(MATRES(J),J=1,NRES)                                      00004890
+      READ(NR) (EN(J),J=1,NRES)                                         00004900
+      NSK=3*NREGR                                                       00004910
+C---- SALTA LA PARTE DI RESINT CON INTEGRALI DI RISONANZA 'NON'         00004920
+C---- CORRETTI PER OVERLAP CON IRRISOLTE. CAUSA ERRORE SE LA PARTE      00004930
+C---- CORRETTA NON ESISTE.                                              00004940
+      CALL SKIP(NR,NSK)                                                 00004950
+  10  CONTINUE                                                          00004960
+      IF(NU.LE.0) GOTO 60                                               00004970
+C---- LETTURA UNRES.                                                    00004980
+      READ(NU) (UNRMAT(J),J=1,NUMRES)                                   00004990
+C---- CREA NUMMAT, CHE PER OGNUNO DEI MATERIALI CON RISONANZE           00005000
+C---- IRRISOLTE IN UNRMAT CONTIENE IL NUMERO DEL MATERIALE              00005010
+C---- (POSIZIONE IN PRBNAM).                                            00005020
+      DO 50 II=1,NUMRES                                                 00005030
+      DO 30 I=1,NPRMAT                                                  00005040
+      IF(UNRMAT(II).EQ.PRBNAM(I)) GO TO 40                              00005050
+ 30   CONTINUE                                                          00005060
+      WRITE(NO,35) UNRMAT(II)                                           00005070
+ 35   FORMAT(/' ************* ATTENZIONE, IL MATERIALE : ',A8,' NON E*  00005080
+     1 IN PRBSPC')                                                      00005090
+      NUMMAT(II)=1                                                      00005100
+C---- VIENE DATO VALORE 1 A NUMMAT PERCHE' IL PROGRAMMA POSSA           00005110
+C---- IN OGNI CASO PROSEGUIRE.                                          00005120
+      GO TO 50                                                          00005130
+ 40   NUMMAT(II)=I                                                      00005140
+ 50   CONTINUE                                                          00005150
+ 60   CONTINUE                                                          00005160
+      RETURN                                                            00005170
+C----                                                                   00005180
+C---- FINE SUBROUTINE EMPIE.                                            00005190
+C----                                                                   00005200
+      END                                                               00005210
+      SUBROUTINE ENERG(EBG1,EUFG,NUMBG,NUMUFG)                          00005220
+C---- CALCOLO ENERGIE DEI GRUPPI ULTRAFINI.                             00005230
+      DIMENSION EBG1(1),EUFG(1),NUMBG(1),NUMUFG(1)                      00005240
+      COMMON /NPR/NPR(6)                                                00005250
+      EQUIVALENCE (NUFG,NPR(2)),(NBG1,NPR(6))                           00005260
+      WRITE(11,999)                                                     00005270
+ 999  FORMAT(' ENERG')                                                  00005280
+C---- CALCOLO LETARGIA COSTANTE.                                        00005290
+      DU=ALOG(EBG1(1)/EBG1(NBG1))/NUFG                                  00005300
+      EUFG(1)=EBG1(1)                                                   00005310
+C---- CALCOLO ENERGIE U.F.G.                                            00005320
+      DO 1 I=2,NUFG                                                     00005330
+  1   EUFG(I)=EUFG(I-1)*EXP(-DU)                                        00005340
+      EUFG(NUFG+1)=EBG1(NBG1)                                           00005350
+C---- SONO LE ISTRUZIONI DAL NUM 39660 DI BGSPEC DI MCC-2.              00005360
+C---- SERVONO A CREARE : NUMUFG(N. DI U.F.G. DEL B.G.)                  00005370
+C----                    NUMBG(N. DEL B.G. DI OGNI U.F.G.).             00005380
+      DEL =1./DU                                                        00005390
+      NMAX=0                                                            00005400
+      DO 110 I=2,NBG1                                                   00005410
+      INDX=I-1                                                          00005420
+      NUMUFG(INDX)=DEL*ALOG(EBG1(INDX)/EBG1(I))+0.01                    00005430
+      NMIN=NMAX+1                                                       00005440
+      NMAX=NMAX+NUMUFG(INDX)                                            00005450
+      DO 100 J=NMIN,NMAX                                                00005460
+      NUMBG(J)=INDX                                                     00005470
+ 100  CONTINUE                                                          00005480
+ 110  CONTINUE                                                          00005490
+      RETURN                                                            00005500
+C----                                                                   00005510
+C---- FINE SUBROUTINE ENERG.                                            00005520
+C----                                                                   00005530
+      END                                                               00005540
+      SUBROUTINE READSP(I,SP,MATHET,NSPMAT)                             00005550
+C---- LETTURA SP(SIGMA MACRO "ETEROGENEE") DELLA ZONA I,                00005560
+C---- CREAZIONE NSPMAT CONTENENTE PER OGNI MATERIALE IL                 00005570
+C---- NUMERO DEL CORRISPONDENTE SP.                                     00005580
+      COMMON /DIM/NBG,M2,MMAT,NSP                                       00005590
+      COMMON /NTP/NI,NO,NPC,NP,NU,NR,NS                                 00005600
+      COMMON /NPR/JNPRMA,JNUFG,MGCSD,JNGEO,NREG,NBG1,JNREG1,            00005610
+     1NUMRES,JNREG,NPTMAX,MAXISO,                                       00005620
+     2NRES,JDNREG,NRESMT,                                               00005630
+     3NUFG,MGCUT,NPRMAT,NGEOM,NREG1,MAXHTM                              00005640
+      DIMENSION SP(NSP,1),MATHET(MMAT,1),NSPMAT(1)                      00005650
+      WRITE(11,999)                                                     00005660
+ 999  FORMAT(' READSP LETTURA SP DA SIGMAP')                            00005670
+      IF(I.GT.1) GOTO 20                                                00005680
+C---- LETTURE SP DELLA ZONA OMOGENEA (I=1). VENGONO                     00005690
+C---- CONSERVATE IN SP(J,1).                                            00005700
+      K=1                                                               00005710
+      READ(NS) (SP(J,K),J=MGCUT,NUFG)                                   00005720
+C---- ...E VENGONO ASSEGNATE AD OGNI MATERIALE(NSPMAT=1).               00005730
+      DO 10 II=1,NPRMAT                                                 00005740
+ 10   NSPMAT(II)=K                                                      00005750
+      GO TO 100                                                         00005760
+ 20   K=1                                                               00005770
+C---- PER OGNI ZONA DIVERSA DA 1 RIEMPIE SP A PARTIRE DA SP(J,2),       00005780
+C---- CONSERVANDO LA SP OMOGENEA.                                       00005790
+      IF(MAXHTM.LE.0) GO TO 100                                         00005800
+C---- IN QUESTO CASO NON ESISTONO SP "ETEROGENEE" SU SIGMAP. A TUTTI    00005810
+C---- I MATERIALI RESTA ASSEGNATA LA SP OMOGENEA, ALTRIMENTI PER OGNI   00005820
+C---- MATERIALE PER CUI MATHET E* >0 SI EFFETTUA UNA LETTURA METTENDO   00005830
+C---- LA SP LETTA IN SP(J,INDICE CRESCENTE K) E LA SI ASSEGNA AL        00005840
+C---- MATERIALE CORRISPONDENTE PONENDO IL VALORE K IN NSPMAT(MATERIALE).00005850
+      DO 50 II=1,NPRMAT                                                 00005860
+      IF(MATHET(II,I-1).LE.0) GO TO 30                                  00005870
+C---- PER CILINDRI QUI E* PRESENTE UNA SOLA SP ETEROGENEA PER TUTTI I   00005880
+C---- MATERIALI. INDI, FATTA LA PRIMA LETTURA (K=2), SI ASSEGNA LO      00005890
+C---- SP LETTO A TUTTI I MATERIALI "ETEROGENEI" (MATHET.NE.0) SENZA     00005900
+C---- LEGGERE PIU'.                                                     00005910
+      IF(NGEOM.EQ.2.AND.K.GE.2) GO TO 40                                00005920
+      K=K+1                                                             00005930
+      READ(NS) (SP(J,K),J=MGCUT,NUFG)                                   00005940
+ 40   NSPMAT(II)=K                                                      00005950
+      GO TO 50                                                          00005960
+C---- AI MATERIALI PER CUI MATHET=0 RESTA ASSEGNATA LA SP OMOGENEA.     00005970
+ 30   NSPMAT(II)=1                                                      00005980
+ 50   CONTINUE                                                          00005990
+ 100  RETURN                                                            00006000
+C----                                                                   00006010
+C---- FINE SUBROUTINE READSP.                                           00006020
+C----                                                                   00006030
+      END                                                               00006040
+      SUBROUTINE LEGGLR (I, NUMLOR,LORRES, NDOLOR, GEJLOR)              00006050
+C---- LEGGE DATI IN ARGOMENTO DELLE REGIONI I DA LORENTZ,               00006060
+C---- CREA NUMLOR, CORRISP. FRA RISONANZE E GEJLOR LETTO.               00006070
+      COMMON /NPR/NPRMAT,NGROUP,MGCSP,NGEOM,NREG,NBG1,NREG1,            00006080
+     1NUMRES,NREGU,NPTMAX,MAXISO,                                       00006090
+     2NRES,NREGR,NRESMT,                                                00006100
+     3NGROUS,MGCUT,NPRMAS,NGEOS,NREGS,MAXHTM,                           00006110
+     4ICHI,IBSQ,MAXHTP,NCMP,ISORS,NREAL,                                00006120
+     5MAXNOL,MAXGRP,MAXGPH,NOLRES,N1MIN,N2MAX                           00006130
+      COMMON /DIM/NBG,M2,M3,NSP,NDL,MXNL                                00006140
+      COMMON /A/A(1)                                                    00006150
+      COMMON /NTP/NI,NO,NPC,NP,NU,NR,NS,NSS,NL,NT(9)                    00006160
+      COMMON /INP/ INP(1)                                               00006170
+      COMMON /NDMX/ NDIM,NTAPE,NINP                                     00006180
+      COMMON /TITL/ TITL(20)                                            00006190
+      COMMON /NPUNT/LPRBNA,LHETDE,LMATHE,LSIGM,LEBG1,LNGPRE,LMATRE,LEN,L00006200
+     1EUFG,LNUMBG,LNUMUF,LGEJ,LDEN,LANTUF,LPESI,LSUNRE,LESTAR,LUNRMA,LNU00006210
+     2MMA,LINT,LAN,LSP,LSPMAT,LNUMLO,LLORRE,LNDOLO,LGEJLO,LIMIT         00006220
+      DIMENSION NUMLOR(1), LORRES(1),NDOLOR(NDL,1), GEJLOR(MXNL,1)      00006230
+      READ(NL) NOLRES, N1MIN, N2MAX                                     00006240
+      WRITE(11,999) I, NOLRES,N1MIN, N2MAX                              00006250
+  999 FORMAT(/' LETTURE DA LORENTZ : REGIONE',I5,                       00006260
+     1' LETTI NUMERO RISONANZE, LIMITI E MAX: ',3I5)                    00006270
+C----  ANNULLA LORRES CORRISP.  RISONANZE- LORENTZ                      00006280
+      CALL NULL (LLORRE,NRES)                                           00006290
+      IF(NOLRES.LE.0) RETURN                                            00006300
+      READ(NL) (NUMLOR(J),J=1,NOLRES)                                   00006310
+C---- CREAZIONE MATRICE LORRES : CONTIENE IL NUMERO                     00006320
+C---- D'ORDINE DELLA RISONANZA IN LORENTZ.                              00006330
+      DO 1 K=1,NOLRES                                                   00006340
+      LORRES(NUMLOR(K))=K                                               00006350
+    1 CONTINUE                                                          00006360
+C---- ********** LOOP LETTURA LIMITI ENERGETICI NDOLOR E GEJLOR         00006370
+      DO 3 K=1,NOLRES                                                   00006380
+      READ(NL) (NDOLOR(J,K),J=1,3)                                      00006390
+      NOLINT=NDOLOR(1,K)                                                00006400
+      READ(NL) (GEJLOR(K,J),J=1,NOLINT)                                 00006410
+C         NORMALIZZAZIONE DELLE DISTRIBUZ. LETTE                        00006420
+       SMNRM=0.0                                                        00006430
+       DO 4 JJ=1,NOLINT                                                 00006440
+   4   SMNRM=SMNRM+GEJLOR(K,JJ)                                         00006450
+       DO 5 JJ=1,NOLINT                                                 00006460
+  5    GEJLOR(K,JJ)=GEJLOR(K,JJ)/SMNRM                                  00006470
+    3 CONTINUE                                                          00006480
+      RETURN                                                            00006490
+C----                                                                   00006500
+C---- FINE SUBROUTINE LEGGLR                                            00006510
+C----                                                                   00006520
+      END                                                               00006530
+      SUBROUTINE RSNT(I,SIGM,EBG,NGPRES,MATRES,EN,NUMBG,GEJ,DEN,SP,NSPMA00006540
+     1T,HETDEN,LORRES)                                                  00006550
+C---- LETTURA INTEGRALI DI RISONANZA DA RESINT. CALCOLO SEZIONI         00006560
+C---- D'URTO RISONANZE RISOLTE.                                         00006570
+      COMMON /A/A(1)                                                    00006580
+         COMMON /INP/INP(1)                                             00006590
+      COMMON /NPR/NPR(11),NRES,NREG,NRESMT                              00006600
+      COMMON /DIM/ NBG,M2,MMAT,NSP,NDL,MXNL                             00006610
+      COMMON /NTP/ NI,NO,NPC,NP,NU,NR,NS,NSS,NL                         00006620
+      COMMON /NPUNT/LPRBNA,LHETDE,LMATHE,LSIGM,LEBG1,LNGPRE,LMATRE,LEN,L00006630
+     1EUFG,LNUMBG,LNUMUF,LGEJ,LDEN,LANTUF,LPESI,LSUNRE,LESTAR,LUNRMA,LNU00006640
+     2MMA,LINT,LAN,LSP,LSPMAT,LNUMLO,LLORRE,LNDOLO,LGEJLO,LIMIT         00006650
+      EQUIVALENCE(NPRMAT,NPR(1))                                        00006660
+      DIMENSION SIGM(NBG,M2,1),EBG(1),NGPRES(1),MATRES(1),EN(1)         00006670
+      DIMENSION NUMBG(1),GEJ(1),DEN(1),SP(NSP,1),NSPMAT(1),HETDEN(MMAT,100006680
+     1),LORRES(1)                                                       00006690
+C---- ::::::::  QUESTO DIMENSION DEVE ESSERE UGUALE AD M2               00006700
+      DIMENSION SCF(2)                                                  00006710
+C---- ANNULLA IL DENOMINATORE.                                          00006720
+      CALL NULL(LDEN,NPR(6)-1)                                          00006730
+      WRITE(11,999) I                                                   00006740
+ 999  FORMAT('    RSNT  RISONANZE RISOLTE , ZONA:',I5)                  00006750
+C---- ********** LOOP SUI TRE TIPI DI GEJ IN RESINT:                    00006760
+C----            CATT, FISS, TOTAL.                                     00006770
+      DO 100 II=1,3                                                     00006780
+      READ(NR) (GEJ(J),J=1,NRES)                                        00006790
+C----  TRATTAMENTO RISONANZE DI LORENTZ                                 00006800
+      IF(NL.GT.0) CALL LOR(I,II,A(LNDOLO),SIGM,NUMBG,MATRES,A(LNUMLO),GE00006810
+     1J,SP,NSPMAT,A(LGEJLO),DEN)                                        00006820
+C---- LA GEJ TOTAL (3.) SERVE SOLO PER IL DENOMINATORE.                 00006830
+      IF(II.EQ.3) GOTO 60                                               00006840
+C---- OGNI RISONANZA LETTA VIENE SOMMATA ALLA SIGM DEL SUO B.G.         00006850
+C---- NUMBG(NGPRES(IK)), MATERIALE(MATRES(IK)) E ZONA (I-1)*NPRMAT      00006860
+C---- MOLTIPLICATA PER LA SUA SP. LE SIGM SONO AZZERATE DA ADDRESS      00006870
+C---- ALL'INIZIO DEL PROGRAMMA.                                         00006880
+      DO 50 IK=1,NRES                                                   00006890
+      IF(NL.GT.0.AND.LORRES(IK).NE.0) GO TO 50                          00006900
+C----   IN QUESTO CASO E* STATO TRATTATO CON LORENTZ                    00006910
+      SIGM(NUMBG(NGPRES(IK)),II,MATRES(IK)+(I-1)*NPRMAT)=               00006920
+     1SIGM(NUMBG(NGPRES(IK)),II,MATRES(IK)+(I-1)*NPRMAT)  +             00006930
+     2 GEJ(IK)*SP(NGPRES(IK),NSPMAT(MATRES(IK)))                        00006940
+ 50   CONTINUE                                                          00006950
+      IF(II.NE.3) GOTO 80                                               00006960
+ 60   CONTINUE                                                          00006970
+C---- IN DEN VENGONO SOMMATI I GEJ TOTAL.                               00006980
+      DO 70 IK=1,NRES                                                   00006990
+      IF(NL.GT.0.AND.LORRES(IK).NE.0.AND.INP(4).NE.1) GO TO 70          00007000
+C----   IN QUESTO CASO E* STATO TRATTATO CON LORENTZ                    00007010
+      DEN(NUMBG(NGPRES(IK)))=DEN(NUMBG(NGPRES(IK)))+GEJ(IK)             00007020
+ 70    CONTINUE                                                         00007030
+ 80   CONTINUE                                                          00007040
+  100 CONTINUE                                                          00007050
+C---- ********** FINE LOOP SUI TRE TIPI DI GEJ.                         00007060
+C---- CALCOLO DENOM. DI SIGM E DIVISIONE DI SIGM PER IL DENOMINATORE.   00007070
+C---- ********** LOOP SUI MATERIALI DI SIGM.                            00007080
+      NGR=NPR(6)-1                                                      00007090
+      DO 200 II=1,NPRMAT                                                00007100
+      IF(HETDEN(II,I).LE.0) GOTO 200                                    00007110
+C----  AZZERAMENTO SOMMATORIE                                           00007120
+      ST=0.0                                                            00007130
+      DO 101 JJK=1,M2                                                   00007140
+  101  SCF(JJK)=0.0                                                     00007150
+      NEXP =0                                                           00007160
+C---- ********************** LOOP SUI GRUPPI DI SIGM                    00007170
+      DO 125 IIE=1,NGR                                                  00007180
+      NEXP =NEXP+1                                                      00007190
+      DSM=ALOG(EBG(IIE-NEXP+1)/EBG(IIE+1))                              00007200
+      ST=DEN(IIE)+ST                                                    00007210
+      DO 102 JJK=1,M2                                                   00007220
+  102   SCF(JJK)=SCF(JJK)+SIGM(IIE,JJK,II+(I-1)*NPRMAT)                 00007230
+C----  SE SIGM E* NULLA NON FA LA DIVISIONE                             00007240
+C::::  QUI SI FA CORRERE SCF SU CATT,FISS NON SU M2 COME DOVREBBE       00007250
+      IF(SCF(1).EQ.0.0.AND.SCF(2).EQ.0.0) GO TO 110                     00007260
+C---- L*ULTIMO GRUPPO VA TRATTATO IN OGNI MODO,SALVO SIA OVERFLOW       00007270
+      IF(IIE.EQ.NGR.AND.(DSM-ST).NE.0.0) GO TO 103                      00007280
+C---- IN QUESTO CASO LA RISONANZA E' TROPPO GROSSA PER QUESTA APPROSS   00007290
+C----     E SI MEDIA SU PIU' GRUPPI CONTINUANDO LA  SOMM NEL LOOP       00007300
+        IF((ST/DSM).GT.0.6) GO TO 120                                   00007310
+C----  MEDIE (SU UNO O PIU GRUPPI) ED AZZERA CONTATORE E SOMM           00007320
+  103  JIE=IIE-NEXP+1                                                   00007330
+      DO 105 JJK=JIE,IIE                                                00007340
+      DO 104 II3=1,M2                                                   00007350
+C----  ************** LOOP SU CATT E FISS                               00007360
+      SIGM(JJK,II3,II+(I-1)*NPRMAT)=SCF(II3)/((DSM-ST)*HETDEN(II,I))    00007370
+  104  CONTINUE                                                         00007380
+  105  CONTINUE                                                         00007390
+      IF(NEXP.EQ.1) GO TO 110                                           00007400
+C----  ALTRIMEMTI HA MEDIATO SU PIU' GRUPPI E LO SEGNALA IN OUTP        00007410
+      NEX1=NEXP-1                                                       00007420
+      WRITE(NO,205) I,II,IIE,NEX1                                       00007430
+ 205  FORMAT(/' REGIONE:',I4,' ISOTOPO:',I4/'   -- IL GRUPPO :',I4,'    00007440
+     1E'' INGLOBATO COI PRECEDENTI:',I4,' PER CALCOLO  RISOLTE'/)       00007450
+ 110  NEXP=0                                                            00007460
+      ST=0.0                                                            00007470
+      DO 112 JJK=1,M2                                                   00007480
+ 112  SCF(JJK)=0.0                                                      00007490
+C----  FINE RIPRISTINO CONDIZ DI ZERO IN SOMMATORIA                     00007500
+ 120  CONTINUE                                                          00007510
+ 125  CONTINUE                                                          00007520
+C---- ************************ FINE LOOP SUI GRUPPI PER DIVIS           00007530
+ 200  CONTINUE                                                          00007540
+C---- ********** FINE LOOP SUI TIPI, SUI GRUPPI E SUI MATERIALI DI SIGM.00007550
+C----                                                                   00007560
+C---- FINE SUBROUTINE RSNT.                                             00007570
+C----                                                                   00007580
+           RETURN                                                       00007590
+      END                                                               00007600
+      SUBROUTINE LOR (I, II, NDOLOR, SIGM, NUMBG, MATRES,               00007610
+     1NUMLOR, GEJ, SP, NSPMAT, GEJLOR, DEN)                             00007620
+C---- TRATTA LE DISTRIBUZIONI DI LORENTZ PER REGIONE I, TIPO SIGMA II.  00007630
+      COMMON /NPR/NPRMAT,NGROUP,MGCSP,NGEOM,NREG,NBG1,NREG1,            00007640
+     1NUMRES,NREGU,NPTMAX,MAXISO,                                       00007650
+     2NRES,NREGR,NRESMT,                                                00007660
+     3NGROUS,MGCUT,NPRMAS,NGEOS,NREGS,MAXHTM,                           00007670
+     4ICHI,IBSQ,MAXHTP,NCMP,ISORS,NREAL,                                00007680
+     5MAXNOL,MAXGRP,MAXGPH,NOLRES,N1MIN,N2MAX                           00007690
+      COMMON /DIM/NBG,M2,M3,NSP,NDL,MXNL                                00007700
+      COMMON /A/A(1)                                                    00007710
+      COMMON /NTP/NI,NO,NPC,NP,NU,NR,NS,NSS,NL,NT(9)                    00007720
+      COMMON /INP/ INP(18)                                              00007730
+      COMMON /SPECS/ DUM(12),NUFG                                       00007740
+      COMMON /NDMX/ NDIM,NTAPE,NINP                                     00007750
+      COMMON /TITL/ TITL(20)                                            00007760
+      COMMON /NPUNT/LPRBNA,LHETDE,LMATHE,LSIGM,LEBG1,LNGPRE,LMATRE,LEN,L00007770
+     1EUFG,LNUMBG,LNUMUF,LGEJ,LDEN,LANTUF,LPESI,LSUNRE,LESTAR,LUNRMA,LNU00007780
+      DIMENSION GEJ(1), SP(NSP,1), NSPMAT(1), GEJLOR(MXNL,1), DEN(1),   00007790
+     1 NDOLOR(NDL,1), SIGM(NBG,M2,1), NUMBG(1), MATRES(1), NUMLOR(1)    00007800
+      IF(NOLRES.LE.0) RETURN                                            00007810
+      WRITE(11,999) II                                                  00007820
+  999 FORMAT(' SUBROUTINE LOR:TRATTAMENTO RISONANZE DI LORENTZ,SIG:',I4)00007830
+C---- ********** LOOP SULLE RISONANZE DI LORENTZ.                       00007840
+      DO 1 K=1,NOLRES                                                   00007850
+      NOLINT=NDOLOR(1,K)                                                00007860
+      N1=NDOLOR(2,K)                                                    00007870
+      N2=NDOLOR(3,K)                                                    00007880
+      IF(II.GT.2) GO TO 20                                              00007890
+C---- ********** LOOP SUI GRUPPI ULTRAFINI DELLE RISONANZE DI LORENTZ   00007900
+      DO 2 KG=N1,N2                                                     00007910
+      SIGM(NUMBG(KG),II,MATRES(NUMLOR(K))+(I-1)*NPRMAT) =               00007920
+     1 SIGM(NUMBG(KG),II,MATRES(NUMLOR(K))+(I-1)*NPRMAT)  +             00007930
+     2GEJ(NUMLOR(K))*SP(KG,NSPMAT(MATRES(NUMLOR(K))))*GEJLOR(K,KG-N1+1) 00007940
+C---- SP E' DIMENSIONATO OLTRE MGCUT ED IL PEZZO IN PIU' E' VUOTO.      00007950
+    2 CONTINUE                                                          00007960
+      GO TO 30                                                          00007970
+   20 CONTINUE                                                          00007980
+C       CON QUESTA OPZIONE LORENZ NON TRATTA IL DENOM                   00007990
+        IF(INP(4).EQ.1) GO TO 30                                        00008000
+C---- ********** LOOP SUI GRUPPI ULTRAFINI DEL DENOMINATORE.            00008010
+      DO 3 KG=N1,N2                                                     00008020
+      DEN(NUMBG(KG))=DEN(NUMBG(KG))+GEJ(NUMLOR(K))*GEJLOR(K,KG-N1+1)    00008030
+    3 CONTINUE                                                          00008040
+   30 CONTINUE                                                          00008050
+    1 CONTINUE                                                          00008060
+      RETURN                                                            00008070
+C----                                                                   00008080
+C---- FINE SUBROUTINE LOR.                                              00008090
+C----                                                                   00008100
+C-----------------------------------------------------------------------00008110
+C-----------------------------------------------------------------------00008120
+      END                                                               00008130
+      SUBROUTINE NRS(I,SIGM,EBG1,EUFG,NUMBG,NUMUFG,DEN,ANTUF,PESI,      00008140
+     1SUNRE,ESTAR,UNRMAT,NUMMA,INT,AN,SP,NSPMAT,MATHET)                 00008150
+C---- LEGGE DA UNRES SIGMA IRRISOLTE, LE MEDIA A 2000 GRUPPI,           00008160
+C---- LE SOMMA ALLE RISOLTE PRESENTI IN SIGM. I E' LA REGIONE.          00008170
+      REAL*8 UNRMAT                                                     00008180
+      COMMON /DIM/NBG,M2,M3,NSP                                         00008190
+      DIMENSION SIGM(NBG,M2,1),EBG1(1),EUFG(1),NUMBG(1),NUMUFG(1)       00008200
+      DIMENSION DEN(1),ANTUF(1),PESI(1),SUNRE(1),ESTAR(1)               00008210
+      DIMENSION UNRMAT(1),NUMMA(1),INT(1),AN(1),SP(NSP,1),NSPMAT(1)     00008220
+      DIMENSION NPTS(1),MATHET(M3,1)                                    00008230
+C---- NPTS E* EFFETTIVAMENTE DIMENSIONATO UNO IN QUANTO VARIA           00008240
+C---- SU UNA STRUTTURA PER ISOTOPI CHE IL CODICE MCC-2 NON              00008250
+C---- GENERA. PERTANTO NON COMPARE NEGLI ARGOMENTI E NON                00008260
+C---- CORRISPONDE AD ALCUNA LOCAZIONE IN COMMON /A/.                    00008270
+      COMMON /NTP/NTP(4),NU                                             00008280
+      COMMON /INP/INP(18)                                               00008290
+      COMMON /NPR/NPRMAT,NUFG,MGCSD,NGEOM,JNREG,NBG1,NREG1,             00008300
+     1NUMRES,NREG,NPTMAX,MAXISO                                         00008310
+C---- IL COMMON /SPECS/ PER SIGAVG DI MC2-2 E* RIEMPITO DAL MAIN.       00008320
+      NSK2=-2                                                           00008330
+C---- POSIZIONAMENTO UNRES AL TERZO RECORD A PARTIRE DALL'INIZIO        00008340
+C---- (ALL'INIZIO DEL PRIMO ISOTOPO).                                   00008350
+      CALL SKIP(NU,NSK2)                                                00008360
+      WRITE(11,999)                                                     00008370
+ 999  FORMAT('   NRS RISONANZE NON RISOLTE')                            00008380
+C---- ********** LOOP SUI MATERIALI DI UNRES.                           00008390
+      DO 500 IM=1,NUMRES                                                00008400
+C---- LETTURE N. ISOTOPI (STRUTTURA FITTIZIA DI UNRES CON PIU'          00008410
+C---- ISOTOPI PER MATERIALE), INDICE IFI DI FISSIONE, N. PUNTI          00008420
+C---- ENERGETICI CUI SONO DATE LA SIGMA UNRES.                          00008430
+      READ(NU) NISO,IFI                                                 00008440
+      IF(IFI.NE.0) IFI=1                                                00008450
+      READ(NU) (NPTS(J),J=1,NISO)                                       00008460
+C---- ********** LOOP SULLA STRUTTURA FITTIZIA AD ISOTOPI               00008470
+C---- PER MATERIALE DI UNRES.                                           00008480
+      DO 500 IDM=1,NISO                                                 00008490
+      NPNT=NPTS(IDM)                                                    00008500
+C---- LETTURE ENERGIE DELLA SIGMA UNRES.                                00008510
+      READ(NU) (ESTAR(J),J=1,NPNT)                                      00008520
+      IF(I.EQ.1) GOTO 40                                                00008530
+C---- NELLA ZONA OMOGENEA E' IL PRIMO RECORD DELL'ISOTOPO,              00008540
+C---- ALTRIMENTI DEVE SALTARE RECORDS PER ARRIVARE ALLA REGIONE I.      00008550
+C---- CALCOLO N. RECORDS DA SALTARE PER ARRIVARE A QUELLO DELLA         00008560
+C---- ZONA I PER IL MATERIALE TRATTATO.                                 00008570
+      NSK=1                                                             00008580
+C---- RECORD ZONA OMOGENEA.                                             00008590
+      I1=I-2                                                            00008600
+C---- I1 = REGIONI ETEROGENEE PRECEDENTI I (I1=0 : NON ESISTONO         00008610
+C---- REGIONI ETEROGENEE PRECEDENTI).                                   00008620
+      IF(I1.EQ.0) GOTO 30                                               00008630
+C---- CONTA IN QUANTE DELLE REGIONI ETEROGENEE PRECEDENTI E'            00008640
+C---- PRESENTE LA SIGMA UNRES DEL MATERIALE DA TRATTARE (QUANTI         00008650
+C---- RECORDS SALTARE).                                                 00008660
+      DO 20 I2=1,I1                                                     00008670
+      IF(MATHET(NUMMA(IM),I2).NE.0) NSK=NSK+1                           00008680
+ 20   CONTINUE                                                          00008690
+C---- POSIZIONAMENTO TAPE UNRES ALLA REGIONE DA TRATTARE.               00008700
+ 30   CALL SKIP (NU,NSK*(2+IFI))                                        00008710
+C---- ISK E' UN CONTATORE CHE INDICA CHE C'E* UNA SIGMA TOTAL           00008720
+C---- DA SALTARE IN UNRES.                                              00008730
+      ISK=0                                                             00008740
+      IF(MATHET(NUMMA(IM),I-1).EQ.0) GOTO 70                            00008750
+C---- SE IL MATERIALE CORRENTE DELLA REGIONE PRESENTE NON E*            00008760
+C---- IN UNRES PASSA OLTRE.                                             00008770
+ 40   CONTINUE                                                          00008780
+C---- AL PRIMO GIRO DEGLI ISOTOPI (LOOP FITTIZIO) CALCOLA I PESI        00008790
+C---- PER MEDIA SIGMA A B.G. E DENOMINATORE DI MEDIE.                   00008800
+      IF(IDM.EQ.1) CALL PESA(I,IM,EBG1,EUFG,NUMBG,NUMUFG,DEN,PESI,SP,NSP00008810
+     1MAT,NUMMA)                                                        00008820
+C---- ********** LOOP SU CATTURA E FISSIONE.                            00008830
+      DO 60 I5=1,2                                                      00008840
+C---- SE LA FISSIONE NON C'E* NON LA LEGGE.                             00008850
+      IF(I5.EQ.2.AND.IFI.EQ.0) GOTO 60                                  00008860
+C---- LETTURA SEZIONI D'URTO IN UNRES.                                  00008870
+      READ(NU)(SUNRE(J),J=1,NPNT)                                       00008880
+C---- SIGAVG E* UNA SUBROUTINE INTERPOLANTE DI MCC-2. INTERPOLA         00008890
+C---- A 2000 GRUPPI LE SIGMA UNRES LETTE, CALCOLA IMIN ED IMAX,         00008900
+C---- LIMITI FRA I QUALI HA MESSO QUALCOSA INTERPOLANDO.                00008910
+      CALL SIGAVG(SUNRE,ESTAR,EUFG,ANTUF,INT,AN,NPNT,IMIN,IMAX,INP(1))  00008920
+C---- **********LOOP SUI GRUPPI.                                        00008930
+C---- SOMMA IN SIGM (ANNULLATA DA ADDRESS ED ORA                        00008940
+C---- CONTENENTE LE RISOLTE) LE IRRISOLTE MEDIATE A B.G.                00008950
+      DO 50 I6=IMIN,IMAX                                                00008960
+      SIGM(NUMBG(I6),I5,NPRMAT*(I-1)+NUMMA(IM))=                        00008970
+     1SIGM(NUMBG(I6),I5,NPRMAT*(I-1)+NUMMA(IM))+ANTUF(I6)*PESI(I6)/DEN( 00008980
+     2NUMBG(I6))                                                        00008990
+ 50   CONTINUE                                                          00009000
+ 60   CONTINUE                                                          00009010
+C---- ********** FINE LOOP SU CATTURA E FISSIONE.                       00009020
+C---- RECORD DELLE SIGMA TOTAL UNRES DA SALTARE.                        00009030
+      ISK=1                                                             00009040
+ 70   CONTINUE                                                          00009050
+C---- AZZERAMENTO CONTATORE RECORDS PRECEDENTI DEL MATERIALE DA SALTARE.00009060
+      NSK=0                                                             00009070
+      IF(I.GT.NREG1) GOTO 100                                           00009080
+C---- CALCOLO NUMERO RECORDS RIMANENTI DELL'ISOTOPO DA SALTARE.         00009090
+      DO 90 I2=I,NREG1                                                  00009100
+      IF(MATHET(NUMMA(IM),I2).NE.0) NSK=NSK+1                           00009110
+ 90   CONTINUE                                                          00009120
+C---- POSIZIONAMENTO TAPE UNRES ALL'INIZIO DELL'ISOTOPO SUCCESSIVO.     00009130
+ 100  CALL SKIP(NU,NSK*(2+IFI)+ISK)                                     00009140
+ 500  CONTINUE                                                          00009150
+C---- ********** FINE LOOP SU ISOTOPI UNRES.                            00009160
+      RETURN                                                            00009170
+C----                                                                   00009180
+C---- FINE SUBROUTINE NRS.                                              00009190
+C----                                                                   00009200
+      END                                                               00009210
+      SUBROUTINE PESA(I,IM,EBG1,EUFG,NUMBG,NUMUFG,DEN,PESI,SP,NSPMAT,NUM00009220
+     1MA)                                                               00009230
+C---- CALCOLO PESI E DENOM. PER LE MEDIE A B.G. DELLE SIGMA IRRISOLTE.  00009240
+      COMMON /DIM/NBG,M2,M3,NSP                                         00009250
+      COMMON /INP/INP(1)                                                00009260
+      COMMON /NPR/NPRMAT,NUFG,MG,NG,NR,NBG1,NR1,NUMR,NREG,NPTMAX,MAXISO,00009270
+     1NPR(4),MGCUT                                                      00009280
+      DIMENSION EBG1(1),EUFG(1),NUMBG(1),NUMUFG(1),DEN(1)               00009290
+      DIMENSION PESI(1),SP(NSP,1),NSPMAT(1),NUMMA(1)                    00009300
+      COMMON /NPUNT/NPUNT(24)                                           00009310
+      WRITE(11,999) I,IM                                                00009320
+ 999  FORMAT('  PESA REGIONE,ISOTOPO:',2I8)                             00009330
+C---- ********** LOOP SUI GRUPPI ULTRAFINI.                             00009340
+      DO 50 ID=1,NUFG                                                   00009350
+      IF(INP(2).NE.0.OR.ID.LT.MGCUT) GO TO 20                           00009360
+C---- PESATURA (1/SP)) SE (SP.NE.0) ED E* RICHIESTA QUESTA              00009370
+C---- OPZIONE.                                                          00009380
+      C=SP(ID,NSPMAT(NUMMA(IM)))                                        00009390
+      IF(C.EQ.0) GO TO 20                                               00009400
+      PESI(ID)=1./C                                                     00009410
+      GOTO 50                                                           00009420
+C---- OPPURE PESATURA   COSTANTE   (PESO PROP. ALL'INTERVALLO E).       00009430
+ 20   PESI(ID)=EUFG(ID)-EUFG(ID+1)                                      00009440
+   50 CONTINUE                                                          00009450
+C---- ********** FINE LOOP SUI GRUPPI ULTRAFINI.                        00009460
+C---- ANNULLA DENOMINATORE PESO.                                        00009470
+      CALL NULL(NPUNT(13),NBG1-1)                                       00009480
+C---- CALCOLO DENOMINATORE DI MEDIA PER MEDIE A B.G.                    00009490
+      DO 60 ID=1,NUFG                                                   00009500
+ 60   DEN(NUMBG(ID))=DEN(NUMBG(ID))+PESI(ID)                            00009510
+      RETURN                                                            00009520
+C----                                                                   00009530
+C---- FINE SUBROUTINE PESA.                                             00009540
+C----                                                                   00009550
+      END                                                               00009560
+C----                                                                   00009570
+C----                                                                   00009580
+C---- SUBROUTINE SIGAVG DI MC2-2 SENZA COMMENTI PER USO IN 007          00009590
+C----                                                                   00009600
+C----                                                                   00009610
+      SUBROUTINE SIGAVG(SIG,ESTAR,E,SIGGRP,INT,AN,NPTS,IMIN,IMAX,KT)    00009620
+      DOUBLE PRECISION DP1,DP2                                          00009630
+      DIMENSION SIG(1),ESTAR(1),E(1),SIGGRP(1),INT(1),AN(1)             00009640
+      COMMON /SPECS/IDUM(12),NGRP                                       00009650
+      NPTS0=NPTS-1                                                      00009660
+      NGRP1=NGRP+1                                                      00009670
+      DO 10 I=1,NGRP                                                    00009680
+      SIGGRP(I)=0.                                                      00009690
+   10 CONTINUE                                                          00009700
+      IMIN=0                                                            00009710
+      IMAX=0                                                            00009720
+      IF (ESTAR(1).LE.E(NGRP1).OR.ESTAR(NPTS).GE.E(1)) RETURN           00009730
+      DO 60 J=1,NPTS0                                                   00009740
+      SSIG=SIG(J+1)-SIG(J)                                              00009750
+      IF (ABS(SSIG).LE.1.E-06.OR.KT.EQ.0) GO TO 50                      00009760
+      INT(J)=0                                                          00009770
+      GO TO (20,30,40),KT                                               00009780
+   20 CONTINUE                                                          00009790
+      IF (SIG(J).LE.1.E-06.OR.SIG(J+1).LE.1.E-06) GO TO 30              00009800
+      SSIG=SIG(J)/SIG(J+1)                                              00009810
+      ELOG=ESTAR(J)/ESTAR(J+1)                                          00009820
+      AN(J)=ALOG(SSIG)/ALOG(ELOG)                                       00009830
+      GO TO 60                                                          00009840
+   30 CONTINUE                                                          00009850
+      ELOG=ESTAR(J)/ESTAR(J+1)                                          00009860
+      AN(J)=(SIG(J)-SIG(J+1))/ALOG(ELOG)                                00009870
+      GO TO 60                                                          00009880
+   40 CONTINUE                                                          00009890
+      AN(J)=(SIG(J)-SIG(J+1))/(ESTAR(J)-ESTAR(J+1))                     00009900
+      GO TO 60                                                          00009910
+   50 CONTINUE                                                          00009920
+      INT(J)=1                                                          00009930
+      AN(J)=0.                                                          00009940
+   60 CONTINUE                                                          00009950
+      I=1                                                               00009960
+      J=1                                                               00009970
+      IMIN=1                                                            00009980
+      IF (E(1)-ESTAR(1)) 70,90,110                                      00009990
+   70 CONTINUE                                                          00010000
+      J=0                                                               00010010
+   80 CONTINUE                                                          00010020
+      J=J+1                                                             00010030
+      IF (E(1).LE.ESTAR(J+1)) GO TO 80                                  00010040
+   90 CONTINUE                                                          00010050
+      TEMP=0.                                                           00010060
+      EU=E(I)                                                           00010070
+      GO TO 130                                                         00010080
+  100 CONTINUE                                                          00010090
+      I=I+1                                                             00010100
+  110 CONTINUE                                                          00010110
+      IF (E(I+1).GE.ESTAR(1)) GO TO 100                                 00010120
+      IMIN=I                                                            00010130
+      TEMP=0.                                                           00010140
+  120 CONTINUE                                                          00010150
+      EU=ESTAR(J)                                                       00010160
+  130 CONTINUE                                                          00010170
+      IF (E(I+1).GE.ESTAR(J+1)) GO TO 195                               00010180
+      EL=ESTAR(J+1)                                                     00010190
+      IF (INT(J).GT.0) GO TO 180                                        00010200
+      GO TO (140,160,170),KT                                            00010210
+  140 CONTINUE                                                          00010220
+      IF (SIG(J).LE.1.E-06.OR.SIG(J+1).LE.1.E-06) GO TO 160             00010230
+      IF (ABS(AN(J)+1.).LE.1.E-08) GO TO 150                            00010240
+      DP1=EU/ESTAR(J)                                                   00010250
+      DP2=EL/ESTAR(J)                                                   00010260
+      TEMP=TEMP+(DP1**(AN(J)+1.)-DP2**(AN(J)+1.))*                      00010270
+     1          ESTAR(J)*SIG(J)/(AN(J)+1.)                              00010280
+      GO TO 190                                                         00010290
+  150 CONTINUE                                                          00010300
+      TEMP=TEMP+ESTAR(J)*SIG(J)*ALOG(EU/EL)                             00010310
+      GO TO 190                                                         00010320
+  160 CONTINUE                                                          00010330
+      ELOG=ESTAR(J)                                                     00010340
+      TEMP=TEMP+((EU*ALOG(EU)-EL*ALOG(EL))-(EU-EL))*AN(J)               00010350
+     1         +(SIG(J)-AN(J)*ALOG(ELOG))*(EU-EL)                       00010360
+      GO TO 190                                                         00010370
+  170 CONTINUE                                                          00010380
+      TEMP=TEMP+(EU-EL)*((SIG(J)-AN(J)*ESTAR(J))+                       00010390
+     1                   0.5*(EU+EL)*AN(J))                             00010400
+      GO TO 190                                                         00010410
+  180 CONTINUE                                                          00010420
+      TEMP=TEMP+SIG(J)*(EU-EL)                                          00010430
+  190 CONTINUE                                                          00010440
+      J=J+1                                                             00010450
+      IF (J.LE.NPTS0) GO TO 120                                         00010460
+      SIGGRP(I)=TEMP/(E(I)-E(I+1))                                      00010470
+      IMAX=I                                                            00010480
+      RETURN                                                            00010490
+  195 CONTINUE                                                          00010500
+      EL=E(I+1)                                                         00010510
+      IF (INT(J).GT.0) GO TO 240                                        00010520
+      GO TO (200,220,230),KT                                            00010530
+  200 CONTINUE                                                          00010540
+      IF (SIG(J).LE.1.E-06.OR.SIG(J+1).LE.1.E-06) GO TO 220             00010550
+      IF (ABS(AN(J)+1.).LE.1.E-08) GO TO 210                            00010560
+      DP1=EU/ESTAR(J)                                                   00010570
+      DP2=EL/ESTAR(J)                                                   00010580
+      TEMP=TEMP+(DP1**(AN(J)+1.)-DP2**(AN(J)+1.))*                      00010590
+     1          ESTAR(J)*SIG(J)/(AN(J)+1.)                              00010600
+      GO TO 250                                                         00010610
+  210 CONTINUE                                                          00010620
+      TEMP=TEMP+ESTAR(J)*SIG(J)*ALOG(EU/EL)                             00010630
+      GO TO 250                                                         00010640
+  220 CONTINUE                                                          00010650
+      ELOG=ESTAR(J)                                                     00010660
+      TEMP=TEMP+((EU*ALOG(EU)-EL*ALOG(EL))-(EU-EL))*AN(J)               00010670
+     1         +(SIG(J)-AN(J)*ALOG(ELOG))*(EU-EL)                       00010680
+      GO TO 250                                                         00010690
+  230 CONTINUE                                                          00010700
+      TEMP=TEMP+(EU-EL)*((SIG(J)-AN(J)*ESTAR(J))+                       00010710
+     1                   0.5*(EU+EL)*AN(J))                             00010720
+      GO TO 250                                                         00010730
+  240 CONTINUE                                                          00010740
+      TEMP=TEMP+SIG(J)*(EU-EL)                                          00010750
+  250 CONTINUE                                                          00010760
+      SIGGRP(I)=TEMP/(E(I)-E(I+1))                                      00010770
+      I=I+1                                                             00010780
+      IF (I.LE.NGRP) GO TO 90                                           00010790
+      IMAX=I-1                                                          00010800
+      RETURN                                                            00010810
+C----                                                                   00010820
+C---- FINE SIGAVG DI MC22                                               00010830
+C----                                                                   00010840
+      END                                                               00010850
+      SUBROUTINE STAP(SIGM,PRBNAM,HETDEN,MATHET,EBG1)                   00010860
+C---- PONE SUL TAPE NSS I DATI PRODOTTI E TUTTI QUELLI NECESSARI A      00010870
+C---- PROCEDERE CON LA SECONDA PARTE DEL PROGRAMMA.                     00010880
+      COMMON/DIM/NBG,M2,M3,NSP                                          00010890
+      DIMENSION SIGM(NBG,M2,1),PRBNAM(1),HETDEN(M3,1)                   00010900
+      DIMENSION MATHET(M3,1)                                            00010910
+      REAL*8 PRBNAM                                                     00010920
+      COMMON /NTP/NTP(7),NSS                                            00010930
+      COMMON/NPR/NPRMAT,NUFGP,MGCSD,NGEOM,NREG,NBG1,NREG1,NPR(15),MAXHE 00010940
+     1T,NPR1,NPR2,NREAL                                                 00010950
+      REWIND NSS                                                        00010960
+      WRITE(NSS) NPRMAT,NGEOM,NREG,NBG1,NREG1,MAXHET                    00010970
+      WRITE(NSS) (PRBNAM(J),J=1,NPRMAT)                                 00010980
+      NRR=NREG+1                                                        00010990
+      IF(NRR.GT.0) WRITE(NSS)((HETDEN(J,J1),J=1,NPRMAT),J1=1,NRR)       00011000
+      IF(NREG1.GT.0) WRITE(NSS)((MATHET(J,J1),J=1,NPRMAT),J1=1,NREG1)   00011010
+      DO 10 I=1,NREAL                                                   00011020
+   10 WRITE(NSS)(((SIGM(J,JJ,J1+(I-1)*NPRMAT),J=1,NBG),JJ=1,M2),J1=1,NPR00011030
+     1MAT)                                                              00011040
+      REWIND NSS                                                        00011050
+      RETURN                                                            00011060
+C----                                                                   00011070
+C---- FINE SUBROUTINE STAP.                                             00011080
+C----                                                                   00011090
+      END                                                               00011100
+      SUBROUTINE STAMP(SIGM,PRBNAM,HETDEN,MATHET)                       00011110
+C---- SU OPZIONE DI INPUT STAMPA ALCUNI RISULTATI OTTENUTI :            00011120
+C---- INP(3).GE.1 : STAMPA HETDEN.                                      00011130
+C---- INP(3).GE.2 : STAMPA MATHET.                                      00011140
+C---- INP(3).GE.3 : STAMPA SIGM.                                        00011150
+      COMMON /NPR/NPRMAT,NGROUP,MGCSP,NGEOM,NREG,NBG1,NREG1,            00011160
+     1NUMRES,NREGU,NPTMAX,MAXISO,                                       00011170
+     2NRES,NREGR,NRESMT,                                                00011180
+     3NGROUS,MGCUT,NPRMAS,NGEOS,NREGS,MAXHTM,                           00011190
+     4ICHI,IBSQ,MAXHTP,NCMP,ISORS,NREAL                                 00011200
+      COMMON /DIM/NBG,M2,M3,NSP                                         00011210
+      COMMON/NPUNT/NPUNT(1)                                             00011220
+      COMMON /INP/INP(2),IST                                            00011230
+      EQUIVALENCE (NPR(1),NPRMAT)                                       00011240
+      DIMENSION NPR(1)                                                  00011250
+      COMMON/NTP/NI,NO                                                  00011260
+      DIMENSION NOM(2)                                                  00011270
+      DATA NOM/4HCATT,4HFISS/                                           00011280
+      DIMENSION SIGM(NBG,M2,1),PRBNAM(1),MATHET(M3,1),HETDEN(M3,1)      00011290
+      REAL*8 PRBNAM                                                     00011300
+      NRR=NREG+1                                                        00011310
+      WRITE(NO,101)                                                     00011320
+      DO 1 I=1,NPRMAT                                                   00011330
+  1   WRITE(NO,100) PRBNAM(I),(HETDEN(I,J),J=1,NRR)                     00011340
+ 100  FORMAT(/2X,A8,2X,(5(1X,E12.6)))                                   00011350
+      IF(IST.EQ.1) RETURN                                               00011360
+ 101  FORMAT(//' DENSITA DEI MATERIALI NELLE VARIE ZONE'//)             00011370
+        IF(NREG1.LE.0) GO TO 27                                         00011380
+      WRITE(NO,102)                                                     00011390
+ 102  FORMAT(//' INDICI DI ETEROGENEITA'//)                             00011400
+      DO 2 I=1,NPRMAT                                                   00011410
+  2   WRITE(NO,110)PRBNAM(I),(MATHET(I,J),J=1,NREG1)                    00011420
+  110 FORMAT(/2X,A8,2X,(5(1X,I8)))                                      00011430
+  27    CONTINUE                                                        00011440
+      IF(IST.EQ.2) RETURN                                               00011450
+      DO 20 I=1,NREAL                                                   00011460
+      DO 20 I1=1,NPRMAT                                                 00011470
+      DO 20 I2=1,M2                                                     00011480
+      DO 5 J=1,NBG                                                      00011490
+      IF(SIGM(J,I2,I1+(I-1)*NPRMAT).NE.0.) GO TO 15                     00011500
+ 5    CONTINUE                                                          00011510
+      WRITE(NO,120) PRBNAM(I1),I,NOM(I2)                                00011520
+ 120   FORMAT(//' PER IL MATERIALE  ',A8,' ZONA ',I4,' LA SIGMA ',A4,' E00011530
+     1'' NULLA PER LA PARTE RISONANTE')                                 00011540
+      GO TO 20                                                          00011550
+ 15   WRITE(NO,10)PRBNAM(I1),I,NOM(I2),(J,SIGM(J,I2,I1+(I-1)*NPRMAT),J=100011560
+     1,NBG)                                                             00011570
+ 10   FORMAT(//' MATERIALE ',A8,'  ZONA',I4,'  SIGMA  ',A4,'  PER B.G'/ 00011580
+     1(5(2X,I4,2X,E12.5)))                                              00011590
+ 20   CONTINUE                                                          00011600
+      RETURN                                                            00011610
+C----                                                                   00011620
+C---- FINE SUBROUTINE STAMP.                                            00011630
+C----                                                                   00011640
+      END                                                               00011650
+      SUBROUTINE PET02                                                  00011660
+C---- TRATTA L'INPUT PER LA PARTE 2 DI 007, CHE AGGIUNGE ALLE LIBRERIE  00011670
+C---- XS.ISO DI MCC-2 I DATI RISONANTI CREATI DALLA PARTE 1 FORMANDO UNA00011680
+C---- LIBRERIA ANISN A GRUPPI.                                          00011690
+      COMMON/A/A(1)                                                     00011700
+      COMMON/INP/INP(1)                                                 00011710
+      COMMON/NPUNT/NPUNT(1)                                             00011720
+      COMMON/DIM/NBG,M2,M3,MAX1,IN1,M4                                  00011730
+      COMMON/NDMX/NDIM,NTAPE,NINP                                       00011740
+      COMMON/NTP/NI,NO,NPC,NSS,NX1,NX2,NDIR,NSS1                        00011750
+      COMMON/TITL/TITL(1)                                               00011760
+      COMMON/NPR/NPRMAT,NUFG,MGCSD,NGEOM,NREG,NBG1,NREG1,NGROUP,        00011770
+     1NISO,MAXUP,MAXDN,MAXORD,IPREC,IHM,IHT,LMAX,NREAL,NPR(5),MAXHET    00011780
+      REAL*8 ANOM(8)                                                    00011790
+C**** ************************ VARIANTE DEL 17-9-1984 NUMERO 1-2        00011800
+       COMMON/N99P/N99P,N99P1                                           00011810
+C**** ************************ INSERIMENTO OPZIONE PER UN FILE 99 PS    00011820
+      DIMENSION NTP1(18),NTP(18)                                        00011830
+      EQUIVALENCE(NI,NTP(1))                                            00011840
+      DATA AANOM/4HNO  /                                                00011850
+C---- NUMERI LOGICI TAPES DI DEFAULT.                                   00011860
+      DATA NTP1/5,6,7,90,49,50,99,91,10*0/                              00011870
+      DATA ANOM/8HINPUT   ,8HOUTPUT  ,8HPUNCH   ,8HSCR     ,            00011880
+     18HXS.ISO1 ,8HXS.ISO2 ,8HDIRAC   ,8HSCR2    /                      00011890
+C---- +++++++++++++++   ESAME DEL TEMPO ++++++++++++++                  00011900
+      CALL TTIME(NORA)                                                  00011910
+      WRITE(11,999) NORA                                                00011920
+ 999  FORMAT(' PARTE 2    ORA:',I10)                                    00011930
+C---- LA PRIMA LETTURA LA FA DAL DEFAULT SE NI DELLA PARTE PRECEDENTE   00011940
+C---- NON CONTIENE UN NUMERO BUONO.                                     00011950
+      NINP=4                                                            00011960
+      NTAPE=8                                                           00011970
+      IF(NI.LE.0.OR.NI.GT.99) NI=NTP1(1)                                00011980
+C---- LETTURA NUMERI LOGICI TAPES.                                      00011990
+      READ(NI,1)(NTP(J),J=1,NTAPE)                                      00012000
+    1 FORMAT(18I4)                                                      00012010
+C---- SE NSS1 E' NEGATIVO SI LASCIA TALE E SEGNALA DI NON SCRIVERE SU   00012020
+C---- NSS1. ASSEGNAZIONE DEFAULTS.                                      00012030
+      NTP2=NSS1                                                         00012040
+      DO 2 I=1,NTAPE                                                    00012050
+      IF(NTP(I).LE.0) NTP(I)=NTP1(I)                                    00012060
+    2 CONTINUE                                                          00012070
+      IF(NTP2.LT.0) NSS1=NTP2                                           00012080
+C---- LETTURA TITOLO.                                                   00012090
+      READ(NI,3) (TITL(J),J=1,20)                                       00012100
+    3 FORMAT(20A4)                                                      00012110
+      WRITE(NO,4)(TITL(J),J=1,20)                                       00012120
+C---- SE TITL(1)=NO NON EFFETTUA LA PARTE 2.                            00012130
+      IF(TITL(1).EQ.AANOM) RETURN                                       00012140
+      WRITE(NO,100)                                                     00012150
+ 100  FORMAT(1X,10(1H+),'  PROGRAMMA GERES  PARTE 2 : CORREZIONI ETEROGE00012160
+     1NEE A LIBRERIA XS.ISO'//)                                         00012170
+    4 FORMAT(1H1,20X,20A4//)                                            00012180
+      WRITE(NO,5)(ANOM(I),NTP(I),I=1,NTAPE)                             00012190
+    5 FORMAT(5X,' IL FILE ',A8,' E* SULLA UNITA LOGICA ',I4)            00012200
+      IF(NSS1.LE.0) WRITE(NO,105) ANOM(8)                               00012210
+ 105  FORMAT(5X,' IL FILE ',A8,'  NON ESISTE')                          00012220
+C---- LETTURA PARAMETRI DI XS.ISO1.                                     00012230
+      REWIND NX1                                                        00012240
+      READ(NX1)NGROUP,NISO,MAXUP,MAXDN,MAXORD,IPREC                     00012250
+      WRITE(NO,110) NGROUP,NISO,MAXUP,MAXDN,MAXORD,IPREC                00012260
+  110 FORMAT(/' LETTI DAL FILE XS.ISO1 : NGROUP NISO MAXUP MAXDN MAXORD 00012270
+     1 IPREC'/26X,10I6)                                                 00012280
+C----  NX1 NON SERVE PIUÄ.                                              00012290
+      REWIND NX1                                                        00012300
+C---- COSI' CONTA ANCHE LA P0.                                          00012310
+      MAXORD=MAXORD+1                                                   00012320
+      IHT=8                                                             00012330
+C---- DEFINISCE POSIZIONE SIGMA TOTAL IN TAVOLA ANISN.                  00012340
+      IHM=MAXUP+MAXDN+1+IHT                                             00012350
+C---- DEFINISCE LUNGHEZZA TAVOLA ANISN.                                 00012360
+C---- SI UTILIZZA UN XS.ISO CHE DEVE ESSERE IN SEMPLICE PRECISIONE.     00012370
+      IF(IPREC.NE.1) GO TO 6                                            00012380
+C---- LETTURA OPZIONI DI INPUT.                                         00012390
+      READ(NI,1)(INP(J),J=1,NINP)                                       00012400
+      WRITE(NO,9) (INP(J),J=1,NINP)                                     00012410
+  9   FORMAT(//5X,'OPZIONI DI INPUT:',18I4)                             00012420
+      IF(INP(1).EQ.0) GO TO 90                                          00012430
+      WRITE(NO,10) NSS                                                  00012440
+   10 FORMAT(/20X,'  SI UTILIZZA LA UNITA LOGICA:',I4,' PER LETTURE E RE00012450
+     1START'/)                                                          00012460
+C---- LETTURE PARAMETRI DA NSS SE NON SONO GIA' DENTRO I COMMONS        00012470
+C---- PER LA PARTE PRECEDENTE.                                          00012480
+      REWIND NSS                                                        00012490
+      READ(NSS) NPRMAT,NGEOM,NREG,NBG1,NREG1,MAXHET                     00012500
+      WRITE(NO,11) NPRMAT,NGEOM,NREG,NBG1,NREG1,MAXHET                  00012510
+  11  FORMAT('  LETTI I PARAMETRI: NPRMAT,NGEOM,NREG,NBG1,NREG1,MAXHET'/00012520
+     120X,6(I4,2X))                                                     00012530
+   90 CONTINUE                                                          00012540
+C---- CONTROLLI DI COESISTENZA PARAMETRI DI NSS E XS.ISO.               00012550
+      IF(NGROUP.NE.NBG1) GO TO 7                                        00012560
+      IF(NISO.NE.NPRMAT) WRITE(NO,16) NISO,NPRMAT                       00012570
+   16 FORMAT(10X,' IL NUMERO DEI MATERIALI SU XSISO2:',I4,' NON E COEREN00012580
+     1TE CON:',I4/)                                                     00012590
+      IF(NGEOM.EQ.0) NREAL=1                                            00012600
+      IF(NGEOM.EQ.1) NREAL=NREG+1                                       00012610
+      IF(NGEOM.EQ.2) NREAL=2                                            00012620
+C---- CALCOLO PUNTATORI PER SPAZI VARIABILI NEL COMMON /A/.             00012630
+      CALL INDIRA                                                       00012640
+C---- PASSA IL CONTROLLO A LAVORA PER IL RESTO DEL CALCOLO.             00012650
+      CALL LAVORA(A(NPUNT(4)),A(NPUNT(2)),A(NPUNT(3)),A(NPUNT(1)),A(NPUN00012660
+     1T(9)))                                                            00012670
+      GO TO 14                                                          00012680
+    6 WRITE(NO,13)                                                      00012690
+   13 FORMAT(10X,'  XSISO 2  IN DOPPIA PRECISIONE.IL PROGRAMMA NON CONTE00012700
+     1MPLA QUESTA POSSIBILITA'/)                                        00012710
+      GO TO 17                                                          00012720
+    7 WRITE(NO,15) NGROUP,NBG1                                          00012730
+   15 FORMAT(10X,' IL NUMERO DEI GRUPPI DI XSISO2:',I4,' NON E COERENTE 00012740
+     1  CON:',I4/)                                                      00012750
+      GO TO 17                                                          00012760
+ 17   WRITE(NO,20)                                                      00012770
+ 20   FORMAT(10X,20(1H*),' ATTENZIONE LA PARTE 2 VIENE SALTATA ',10(1H*)00012780
+     1)                                                                 00012790
+   14 CONTINUE                                                          00012800
+      RETURN                                                            00012810
+C----                                                                   00012820
+C---- FINE SUBROUTINE PET02.                                            00012830
+C----                                                                   00012840
+      END                                                               00012850
+      SUBROUTINE INDIRA                                                 00012860
+C---- CALCOLO PUNTATORI PER SPAZIO NEL COMMON /A/.                      00012870
+C---- DEFINISCE GRANDEZZE COMMON /DIM/ (PER DIMENSION).                 00012880
+      COMMON/DIM/NBG,M2,M3,MAXOR1,IN1,M4                                00012890
+      COMMON/NPUNT/NPUNT(1)                                             00012900
+      COMMON/INP/INP(1)                                                 00012910
+      COMMON/NDMX/NDIM                                                  00012920
+      COMMON/NPR/NPRMAT,NUFG,MGCSD,NGEOM,NREG,NBG1,NREG1,NGROUP,NISO,   00012930
+     1MAXUP,MAXDN,MAXORD,IPREC,IHM,IHT,LMAX,NREAL,NPR(5),MAXHET         00012940
+      COMMON/NTP/NI,NO,NPC,NSS,NX1,NX2,NDIR                             00012950
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00012960
+      CALL TTIME(NORA)                                                  00012970
+      WRITE(11,999) NORA                                                00012980
+ 999  FORMAT(' INDIRA DEFINIZIONE PUNTATORI  ORA: ',I10)                00012990
+      IN1=MAXUP+MAXDN+1                                                 00013000
+      IF(INP(1).EQ.0) GO TO 1                                           00013010
+C---- PER RESTART RICEVE QUESTI DATI CHE ALTRIMENTI HA GIA'.            00013020
+      NPUNT(1)=1                                                        00013030
+C---- PRBNAM : NOMI MATERIALI.                                          00013040
+      NPUNT(2)=NPUNT(1)+NPRMAT*2                                        00013050
+C---- HETDEN : DENSITA'.                                                00013060
+      M3=NPRMAT                                                         00013070
+      NPUNT(3)=NPUNT(2)+NPRMAT*(NREG+1)                                 00013080
+C---- MATHET : INDICI DI ETEROGENEITA'.                                 00013090
+      NPUNT(4)=NPUNT(3)+NPRMAT*NREG1                                    00013100
+C---- SIGM : SIGMA RISONANTI PRODOTTE DALLA PARTE 1.                    00013110
+      NBG=NBG1                                                          00013120
+      M2=2                                                              00013130
+      NPUNT(5)=NPUNT(4)+NBG1*2*NPRMAT*NREAL                             00013140
+    1 CONTINUE                                                          00013150
+C---- LEGSCT : PER LEGGERE SCATTERING.                                  00013160
+      NPUNT(6)=NPUNT(5)+MAXUP+MAXDN+1                                   00013170
+C---- LEGSIG : PER LEGGERE SIGMA.                                       00013180
+      NPUNT(7)=NPUNT(6)+NGROUP*11                                       00013190
+C---- MSSCAT : PER SCRIVERE LO SCATTERING.                              00013200
+      MAXOR1=MAXORD                                                     00013210
+      NPUNT(8)=NPUNT(7)+NGROUP*MAXOR1*(MAXUP+MAXDN+1)                   00013220
+C---- MSSIGM : PER SCRIVERE LE SIGMA.                                   00013230
+      NPUNT(9)=NPUNT(8)+IHT                                             00013240
+      M4=3                                                              00013250
+C---- MATCOR : PER COORDINATE DIRAC.                                    00013260
+      NPUNT(10)=NPUNT(9)+3*(MAXHET+1)*MAXORD*NPRMAT-1                   00013270
+C---- STIMA PER ECCESSO RECORDS DI DIRAC NECESSARI.                     00013280
+      IDA1=(NPRMAT*MAXORD*(MAXHET+1))*(NGROUP+1)+1                      00013290
+C---- STIMA LUNGHEZZA NECESSARIA RECORDS DI DIRAC.                      00013300
+      IDA2=MAXUP+MAXDN+1+IHT                                            00013310
+      WRITE(11,25) (K,NPUNT(K),K=1,10)                                  00013320
+ 25   FORMAT(1X,(' NPUNT(',I4,')=',I7))                                 00013330
+      WRITE(NO,2) IDA1,IDA2                                             00013340
+    2 FORMAT(/'********** NUMERO MASSIMO DI RECORDS SU TAPE DIRAC:   ',I00013350
+     110,' RECORDS.*********'//' ********** LUNGHEZZA MASSIMA DEI RECORD00013360
+     2S DI DIRAC:',I10,'            PAROLE ******************** '/)     00013370
+      WRITE(NO,3) NPUNT(10),NDIM                                        00013380
+    3 FORMAT(' LA OCCUPAZIONE E* DI ',I10,' PAROLE. DISPONIBILI ',      00013390
+     1I10,' PAROLE'/)                                                   00013400
+      IF(NPUNT(10).GT.NDIM) WRITE(NO,4)                                 00013410
+    4 FORMAT(' **********ATTENZIONE, LO SPAZIO FORNITO NON BASTA********00013420
+     1'/' **********AUMENTARE LE DIMENSIONI DEL COMMON/A/ NEL MAIN******00013430
+     2AUMENTARE IL PARAMETRO NDIM DEL MAIN**********'/)                 00013440
+      IF(NPUNT(10).GT.NDIM) STOP                                        00013450
+      RETURN                                                            00013460
+C----                                                                   00013470
+C---- FINE SUBROUTINE INDIRA.                                           00013480
+C----                                                                   00013490
+      END                                                               00013500
+      SUBROUTINE LAVORA(SIGM,HETDEN,MATHET,PRBNAM,MATCOR)               00013510
+C---- EFFETTUA I CALCOLI PER LA PARTE 2 (CREA TAPE ANISN AD ISOTOPI).   00013520
+      COMMON/NPR/NPRMAT,NUFG,MGCSD,NGEOM,NREG,NBG1,NREG1,NGROUP,NISO,   00013530
+     1MAXUP,MAXDN,MAXORD,IPREC,IHM,IHT,LMAX,NREAL,NPR(5),MAXHET         00013540
+      COMMON/NTP/NI,NO,NPC,NSS,NX1,NX2,NDIR,NSS1                        00013550
+      COMMON/TITL/TITL(1)                                               00013560
+      COMMON/DIM/NBG,M2,M3,MAX,IN1,M4                                   00013570
+      COMMON/A/A(1)                                                     00013580
+      COMMON/INP/INP(1)                                                 00013590
+      COMMON/NPUNT/NPUNT(1)                                             00013600
+C**** ****************************** VARIANTE DEL 17-9-83 NUM 1-3       00013610
+       COMMON /N99P/N99P,N99P1                                          00013620
+C**** ********************** PER UN TAPE DIRAC NON DA,MA PS             00013630
+      DIMENSION SIGM(NBG,M2,1),MATHET(M3,1),MATCOR(M4,1)                00013640
+      INTEGER*2 ID                                                      00013650
+      REAL*4 HETDEN(M3,1)                                               00013660
+      REAL*8 PRBNAM(1),ANOME                                            00013670
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00013680
+      CALL TTIME(NORA)                                                  00013690
+      WRITE(11,999) NORA                                                00013700
+ 999  FORMAT('  LAVORA PARTE 2 , CALCOLI   ORA : ',I10)                 00013710
+C---- N : CONTATORE RECORDS SCRITTI SU DIRAC INCREMENTATO DA CORSTA.    00013720
+      N=0                                                               00013730
+C---- SE NON LI HA GIA' LEGGE I DATI PER IL CALCOLO DA NSS.             00013740
+      IF(INP(1).EQ.0) GO TO 1                                           00013750
+      READ(NSS)(PRBNAM(J),J=1,NPRMAT)                                   00013760
+      NRR=NREG+1                                                        00013770
+      IF(NRR.GT.0) READ(NSS)((HETDEN(J,J1),J=1,NPRMAT),J1=1,NRR)        00013780
+      IF(NREG1.GT.0) READ(NSS)((MATHET(J,J1),J=1,NPRMAT),J1=1,NREG1)    00013790
+      DO 2 I=1,NREAL                                                    00013800
+    2 READ(NSS)(((SIGM(J,JJ,J1+(I-1)*NPRMAT),J=1,NBG),JJ=1,M2),         00013810
+     1J1=1,NPRMAT)                                                      00013820
+      REWIND NSS                                                        00013830
+C---- NSS NON SERVE PIU'.                                               00013840
+    1 CONTINUE                                                          00013850
+      REWIND NX2                                                        00013860
+C**** ************************* VARIANTE DEL 17-9-84 NUM 1-4            00013870
+       IF(NDIR.NE.99) REWIND NDIR                                       00013871
+       IF(NDIR.NE.99) WRITE(NDIR) N,TITL(20),ID                         00013880
+       N99P=2                                                           00013900
+       N99P1=0                                                          00013910
+C**** ************************* PER UN DIRAC PS                         00013920
+C---- ********** LOOP SUGLI ISOTOPI DI XS.ISO2.                         00013930
+      DO 3 II=1,NISO                                                    00013940
+C---- LETTURA NOME DELL'ISOTOPO E SUA RICERCA FRA QUELLI DI PRBNAM.     00013950
+      READ(NX2) ANOME                                                   00013960
+      DO 4 I=1,NPRMAT                                                   00013970
+      IF(ANOME.EQ.PRBNAM(I)) GO TO 5                                    00013980
+    4 CONTINUE                                                          00013990
+      WRITE(NO,6) ANOME,NX2                                             00014000
+    6 FORMAT(10X,' ISOTOPO ',A8,' DEL TAPE XSISO2 NUM:',I4,' NON SI TROV00014010
+     1A NEL PROBLEMA'/)                                                 00014020
+C---- SE NON TROVA L'ISOTOPO SCRIVE DIAGNOSTICO E PASSA AL SUCCESSIVO.  00014030
+      CALL SALT(NX2)                                                    00014040
+      GO TO 3                                                           00014050
+    5 CONTINUE                                                          00014060
+      IF(HETDEN(I,1).GT.0) GO TO 7                                      00014070
+C---- SE L'ISOTOPO NON E' PRESENTE NELLA ZONA OMOGENEA SCRIVE           00014080
+C---- DIAGNOSTICO E PASSA AL SUCCESSIVO.                                00014090
+      WRITE(NO,8) ANOME,NX2                                             00014100
+    8 FORMAT (1X,' ISOTOPO ',A8,' DEL TAPE XSISO2 NUM:',I4,' NON ESISTE 00014110
+     1  NELLA ZONA OMOGENEA'/)                                          00014120
+      CALL SALT(NX2)                                                    00014130
+      GO TO 3                                                           00014140
+C---- LETTURA SIGMA (LEGSIG) E CREAZIONE MSSCAT (MATRICE DI SCATTERING  00014150
+C---- TOTALE PER L'ISOTOPO). CREA SIGMA REMOUVAL PER EL, ANEL, N2N.     00014160
+C             E SIGMA REMOUVAL PER P1                                   00014170
+    7 CALL SOMSIG(A(NPUNT(6)),A(NPUNT(7)),A(NPUNT(5)))                  00014180
+C---- CALCOLO SEZIONI D'URTO COMPRENSIVE DELLE RISONANZE E SCRITTURA    00014190
+C---- RECORDS DEL TAPE DI LIBRERIA ANISN AD ISOTOPI. FISSA I VALORI     00014200
+C---- DI MATCOR (ZONA OMOGENEA).                                        00014210
+      CALL CORSTA(N,I,1,MATCOR,PRBNAM,A(NPUNT(8)),A(NPUNT(6)),A(NPUNT(4)00014220
+     1),A(NPUNT(7)))                                                    00014230
+      IF(NGEOM.EQ.0) GO TO 3                                            00014240
+C---- ********** LOOP SULLE REGIONI.                                    00014250
+      DO 9 K=2,NREAL                                                    00014260
+C---- PER OGNI REGIONE GUARDA SE L'ISOTOPO LETTO HA UNA CORREZIONE      00014270
+C---- SIGM DI REGIONE (DENSITA' POSITIVA ED INDICE MATHET >0).          00014280
+      IF(HETDEN(I,K).LE.0) GO TO 9                                      00014290
+      WRITE(NO,10) ANOME,K                                              00014300
+   10 FORMAT(/' ISOTOPO ',A8,' E* PRESENTE NELLA REGIONE ',I4)          00014310
+      IF(MATHET(I,(K-1)).LE.0) GO TO 9                                  00014320
+      WRITE(NO,11)                                                      00014330
+ 11   FORMAT(1H+,55X,' COME ETEROGENEO')                                00014340
+C---- IN QUESTO CASO CHIAMA CORSTA PER LA CORREZIONE CON SIGM E         00014350
+C---- LA REGISTRAZIONE SU DIRAC.                                        00014360
+      CALL CORSTA(N,I,K,MATCOR,PRBNAM,A(NPUNT(8)),A(NPUNT(6)),A(NPUNT(4)00014370
+     1),A(NPUNT(7)))                                                    00014380
+    9 CONTINUE                                                          00014390
+C---- ********** FINE LOOP SULLE REGIONI.                               00014400
+    3 CONTINUE                                                          00014410
+C---- ********** FINE LOOP SUGLI ISOTOPI.                               00014420
+C---- SCRITTURA PRIMO RECORD DI DIRAC CHE E* UN TAPE AD ACCESSO         00014430
+C---- DIRETTO FATTO A LIBRERIA ANISN AD ISOTOPI.                        00014440
+C       NON E SICURO ANISN VOGLIA QUESTO RECORD                         00014450
+C     WRITE(NDIR'1) N,TITL(20),ID                                       00014460
+      REWIND NX2                                                        00014470
+C**** ***************************** VARIANTE DEL 17-9-84 NUM 1-5        00014480
+       IF(NDIR.EQ.99) WRITE(NDIR'1) N,TITL(20),ID                       00014490
+C**** ******************* PER UN DIRAC NON DA MA PS                     00014500
+C**** ************************ VARIANTE DEL 17-9-1984 NUM 1-6           00014510
+       N99P1=N                                                          00014520
+C---- IN N99P1 RICORDO IL NUMERO DI ISOTOPI SCRITTO SU DIRAC            00014530
+C**** **********************PER UN FILE DIRAC PS                        00014540
+      IF(NSS1.LE.0)  GOTO 20                                            00014550
+C---- REGISTRA SU NSS1 TUTTI I DATI DA UTILIZZARE PER LA PARTE TERZA.   00014560
+      REWIND NSS1                                                       00014570
+      WRITE(NSS1) NPRMAT,NREG,NGEOM,NREG1,NGROUP,IHM,IHT,NREAL,N        00014580
+      WRITE(NSS1)(PRBNAM(J),J=1,NPRMAT)                                 00014590
+      NRR=NREG+1                                                        00014600
+      IF(NRR.GT.0) WRITE(NSS1)((HETDEN(J,J1),J=1,NPRMAT),J1=1,NRR)      00014610
+      IF(NREG1.GT.0) WRITE(NSS1)((MATHET(J,J1),J=1,NPRMAT),J1=1,NREG1)  00014620
+      WRITE(NSS1)((MATCOR(I,J),I=1,M4),J=1,N)                           00014630
+C---- STAMPE SU OPZIONE DI INPUT.                                       00014640
+      WRITE(NO,99) NSS1                                                 00014650
+ 99   FORMAT(//' EFFETTUATA REGISTRAZIONE SU NSS1=',I4,' PER RESTART')  00014660
+      REWIND NSS1                                                       00014670
+  20  WRITE(NO,100) NPRMAT,NREG,NGEOM,NREG1,NGROUP,IHM,IHT,NREAL        00014680
+  100  FORMAT(/' PARAMETRI: NPRMAT NREG NGEOM NREG1 NGROUP IHM  IHT NREA00014690
+     1L'/11X,10I5)                                                      00014700
+      IF(INP(2).LE.0) RETURN                                            00014710
+      NRR=NREG+1                                                        00014720
+      WRITE(NO,101)                                                     00014730
+      DO 21I=1,NPRMAT                                                   00014740
+   21 WRITE(NO,30) PRBNAM(I),(HETDEN(I,J),J=1,NRR)                      00014750
+  30  FORMAT(/2X,A8,2X,(5(1X,E12.6)))                                   00014760
+      IF(INP(2).EQ.1) RETURN                                            00014770
+ 101  FORMAT(//' DENSITA DEI MATERIALI NELLE VARIE ZONE'//)             00014780
+      WRITE(NO,102)                                                     00014790
+ 102  FORMAT(//' INDICI DI ETEROGENEITA'//)                             00014800
+      DO 22 I=1,NPRMAT                                                  00014810
+  22  WRITE(NO,110)PRBNAM(I),(MATHET(I,J),J=1,NREG1)                    00014820
+  110 FORMAT(/2X,A8,2X,(5(1X,I8)))                                      00014830
+      IF(INP(2).EQ.2) RETURN                                            00014840
+      WRITE(NO,130)((MATCOR(I,J),I=1,M4),J=1,N)                         00014850
+  130 FORMAT(/' COORDINATE DEL TAPE DIRAC:'/(5(2H :,3I4)))              00014860
+      RETURN                                                            00014870
+C----                                                                   00014880
+C---- FINE SUBROUTINE LAVORA.                                           00014890
+C----                                                                   00014900
+      END                                                               00014910
+      SUBROUTINE SALT(NX2)                                              00014920
+C---- SALTA UN ISOTOPO SUL TAPE NX2 (LIBRERIA XS.ISO2 DI MCC-2).        00014930
+      COMMON/NPR/NP(7),NGROUP                                           00014940
+      REAL*8ANOM                                                        00014950
+C---- TORNA INDIETRO DI UN RECORD PER RILEGGERLO E SCRIVERLO            00014960
+C---- SU UNITA' 11.                                                     00014970
+1000  BACKSPACE NX2                                                     00014980
+1001  READ(NX2) ANOM                                                    00014990
+1002  WRITE(11,1100) ANOM                                               00015000
+1100  FORMAT(' SALT SALTA ',A8)                                         00015010
+C---- LEGGE SPECIFICHE INIZIALI DELL'ISOTOPO ED IN BASE AD ESSE         00015020
+C---- CALCOLA QUANTI RECORDS DEVE SALTARE SU NX2.                       00015030
+      READ(NX2) ICHI,LIN,LEL,LN2N,EFISS,ECAPT                           00015040
+      IF(ICHI.GT.0) READ(NX2) SPEFIS                                    00015050
+      CALL SKIP(NX2,NGROUP)                                             00015060
+      LMAX=MAX0(LIN,LEL,LN2N)                                           00015070
+      IF(LMAX.LE.0) RETURN                                              00015080
+      CALL SKIP(NX2,NGROUP*(LMAX+LIN+LN2N+LEL))                         00015090
+      RETURN                                                            00015100
+C----                                                                   00015110
+C---- FINE SUBROUTINE SALT.                                             00015120
+C----                                                                   00015130
+      END                                                               00015140
+      SUBROUTINE SOMSIG(LEGSIG,MSSCAT,LEGSCT)                           00015150
+C---- LEGGE SEZIONI D'URTO SU XS.ISO2 E CREA MSSCAT CON LA MATRICE      00015160
+C---- DI SCATTERING TOTALE (SOMMA DELLE N-2N, ANELASTICHE, ELASTICHE).  00015170
+C---- CREA IN LEGSIG(NG, 8-9-10) LE REMOUVAL PER EL, ANEL, N2N.         00015180
+C             IN LEGSIG(NG,11) LA REMOUVAL DI ORDINE 1                  00015190
+      COMMON/NPR/NP(7),NGRU,NISO,MAXUP,MAXDN,MAXORD,NP2(3),LMAX         00015200
+      COMMON/DIM/NBG,M2,NPRM,MAXOR1,IN1                                 00015210
+      COMMON /NTP/NI,NO,NPC,NSS,NX1,NX2,NDIR                            00015220
+      COMMON/NPUNT/NPUNT(1)                                             00015230
+      REAL*4 LEGSIG(NBG,1),MSSCAT(NBG,MAXOR1,1),LEGSCT(1)               00015240
+C---- REAL*4 LEGSIG(5,7),MSSCAT(5,4,11),LEGSCT(11)                      00015250
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00015260
+      CALL TTIME(NORA)                                                  00015270
+      WRITE(11,1100) NORA                                               00015280
+ 1100 FORMAT(' SOMSIG LEGGE DA XSISO SIGMA ISOTOPO,SOMMA SCATT.EL ,ANEL 00015290
+     1,N2N:ORA:',I10)                                                   00015300
+C---- LETTURA SPECIFICHE INIZIALI DELL'ISOTOPO SU NX2 (SE FISSILE       00015310
+C---- SALTA RECORD DI SPETTRO DI FISSIONE).                             00015320
+      READ(NX2) ICHI,LIN,LEL,LN2N,EF,EC                                 00015330
+      IF(ICHI.GT.0) READ(NX2) SPEFIS                                    00015340
+C---- AZZERA LEGSIG(VI FA ANCHE LA SOMMA DELLE REMOUVAL).               00015350
+      CALL NULL(NPUNT(6),NBG*11)                                        00015360
+C---- ********** LOOP DI LETTURA SIGMA (SE FISSILE LEGGE ANCHE          00015370
+C----            SIGMA F. E NU*SIGMA F. ALTRIMENTE LE METTE =0).        00015380
+      DO 1 II=1,NGRU                                                    00015390
+      IF(ICHI.NE.0) GO TO 2                                             00015400
+      READ(NX2) J,(LEGSIG(J,JJ),JJ=1,5)                                 00015410
+      LEGSIG(J,6)=0.0                                                   00015420
+      LEGSIG(J,7)=0.0                                                   00015430
+      GO TO 1                                                           00015440
+    2 READ(NX2) J,(LEGSIG(J,JJ),JJ=1,7)                                 00015450
+    1 CONTINUE                                                          00015460
+C---- ********** FINE LETTURA SIGMA.                                    00015470
+C---- ANNULLA LA MSSCAT OVE SOMMA LO SCATTERING CHE LEGGERA'.           00015480
+      CALL NULL(NPUNT(7),NBG*MAXOR1*IN1)                                00015490
+      LMAX=MAX0(LIN,LEL,LN2N)                                           00015500
+      IF(LMAX.LE.0) RETURN                                              00015510
+C---- ********** LOOP DI LETTURA SCATTERING IN MSSCAT.                  00015520
+C---- PER OGNI REAZIONE :                                               00015530
+C---- INEL, ELASTICA, N-2N VIENE LETTA CON SOM LA MATRICE DI            00015540
+C---- SCATTERING E SOMMATA IN MSSCAT(LL, L,...), CREA REMOUVAL          00015550
+C---- IN LEGSIG(ULTIMO ARG.: 8-9-10).                                   00015560
+      DO 3 L=1,LMAX                                                     00015570
+      DO 3 LL=1,NGRU                                                    00015580
+      READ(NX2) LINUP,LINDN,LELUP,LELDN,LN2NUP,LN2NDN                   00015590
+      IF(LIN.GE.L) CALL SOM(MAXUP,LINUP,LINDN,NX2,LEGSCT,MSSCAT,LEGSIG,L00015600
+     1L,L,1,8)                                                          00015610
+      IF(LEL.GE.L) CALL SOM(MAXUP,LELUP,LELDN,NX2,LEGSCT,MSSCAT,LEGSIG,L00015620
+     1L,L,1,9)                                                          00015630
+      IF(LN2N.GE.L) CALL SOM(MAXUP,LN2NUP,LN2NDN,NX2,LEGSCT,MSSCAT,LEGSI00015640
+     1G,LL,L,2,10)                                                      00015650
+    3 CONTINUE                                                          00015660
+      RETURN                                                            00015670
+C----                                                                   00015680
+C---- FINE SUBROUTINE SOMSIG.                                           00015690
+C----                                                                   00015700
+      END                                                               00015710
+      SUBROUTINE SOM(MXP,LNP,LND,NX,LEGSCT,MSSCAT,LEGSIG,LLA,LI,N2N,NUMR00015720
+     1)                                                                 00015730
+C---- LEGGE DA XS.ISO2 LO SCATTERING DI UN GRUPPO E LO SOMMA NELLA      00015740
+C---- GIUSTA POSIZIONE DI MSSCAT (ORDINE DI SCATTERING LI, GRUPPO LLA). 00015750
+      COMMON/DIM/NGROUP,M,MAT,MAXORD,IN1                                00015760
+      COMMON/NTP/NI,NO,NPC,NSS,NX1,NX2,NDIR                             00015770
+      REAL*4 LEGSCT(1),MSSCAT(NGROUP,MAXORD,1),LEGSIG(NGROUP,1)         00015780
+C---- IA E* IL GRUPPO DELLA PRIMA SIGMA LETTA (GRUPPO DA CUI SI         00015790
+C---- INIZIA A LEGGERE).                                                00015800
+      IA=MXP-LNP                                                        00015810
+C---- IO E* IL NUMERO DI SIGMA DI SCATTERING DA LEGGERE.                00015820
+      IO=LNP+LND+1                                                      00015830
+      IF(IA+1.LT.0.OR.IA+IO.GT.IN1) WRITE(NO,100) MXP,LNP,LND,LLA,LI    00015840
+  100  FORMAT(//' ***** ATTENZIONE LETTO SCATTERING FUORI DIMENSIONI MAT00015850
+     1RICE ANISN'/' *********** POSSIBILI ERRORI !!!!!!'/1X,5I5)        00015860
+      READ(NX)(LEGSCT(IA+J),J=1,IO)                                     00015870
+C---- CREA LE SIGMA REMOUVAL                                            00015880
+      IF(LI.NE.1) GO TO 25                                              00015890
+      DO 4 J=1,IO                                                       00015900
+      LEGSIG(LLA+LNP-J+1,NUMR)=LEGSIG(LLA+LNP-J+1,NUMR)+LEGSCT(IA+J)    00015910
+    4 CONTINUE                                                          00015920
+   25 CONTINUE                                                          00015930
+C        REMOUVAL DI ORDINE 1                                           00015940
+           IF(LI.NE.2) GO TO 225                                        00015950
+           DO 10 J=1,IO                                                 00015960
+           LEGSIG(LLA+LNP-J+1,11)=LEGSIG(LLA+LNP-J+1,11)+LEGSCT(IA+J)   00015970
+  10          CONTINUE                                                  00015980
+ 225          CONTINUE                                                  00015990
+      DO 2 J=1,IO                                                       00016000
+      MSSCAT(LLA,LI,J+IA)=MSSCAT(LLA,LI,J+IA)+LEGSCT(IA+J)*N2N*(2*LI-1) 00016010
+ 2    CONTINUE                                                          00016020
+      RETURN                                                            00016030
+C----                                                                   00016040
+C---- FINE SUBROUTINE SOM.                                              00016050
+C----                                                                   00016060
+      END                                                               00016070
+      SUBROUTINE CORSTA(N,I,J,MATCOR,PRBNAM,MSSIGM,LEGSIG,SIGM,MSSCAT)  00016080
+C---- CORREGGE LE SEZIONI D'URTO LETTE DA XS.ISO2 CON I DATI SIGM       00016090
+C---- DELLE RISONANZE PER LE VARIE ZONE E SCRIVE I RECORDS DELLA        00016100
+C---- LIBRERIA ANISN AD ISOTOPI SU DIRAC. SCRIVE N+1ESIMO ISOTOPO       00016110
+C---- DI DIRAC (ISOTOPO I, REGIONE J).                                  00016120
+      REAL*8 PRBNAM(1)                                                  00016130
+      REAL*4 MSSIGM(1),MSSCAT(NBG,MAXORD,1),LEGSIG(NBG,1)               00016140
+      DIMENSION SIGM(NBG,M2,1),MATCOR(M4,1)                             00016150
+      COMMON/NTP/ NI,NO,NT(4),NDIR,NSS1                                 00016160
+      COMMON/NPR/NPRMAT,NUFG,MGCSD,NGEOM,NREG,NBG1,NREG1,NGROUP,NISO,   00016170
+     1MAXUP,MAXDN,MAXOR1,IPREC,IHM,IHT,LMAX,NREAL,NPR(5),MAXHET         00016180
+      COMMON/DIM/ NBG,M2,NPRM,MAXORD,IN1,M4                             00016190
+      COMMON /INP/INP(1)                                                00016200
+C**** ****************************** VARIANTE DEL 17-9-1984 NUM 1-7     00016210
+      COMMON /N99P/N99P,N99P1                                           00016220
+C**** ****************************** PER UN FILE DIRAC NON DA MA PS     00016230
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00016240
+      CALL TTIME(NORA)                                                  00016250
+      WRITE(11,1100) N,I,J,NORA                                         00016260
+ 1100 FORMAT(' SUB.CORSTA: SCRIVE DIRAC DA RECORD:',I4,'  ISOTOPO:',I4, 00016270
+     1' REGIONE:',I4,' ORA:',I10)                                       00016280
+      DUMMY=0.0                                                         00016290
+C---- ********** LOOP SUGLI ORDINI DI SCATTERING.                       00016300
+C---- DIVERSI ORDINI DI SCATTERING VENGONO REGISTRATI                   00016310
+C---- COME DIVERSI ISOTOPI SU DIRAC.                                    00016320
+      DO 1 L=1,MAXOR1                                                   00016330
+C---- INCREMENTA CONTATORE ISOTOPI. FISSA MATCOR.                       00016340
+C                                                                       00016350
+C---- IN QUESTO CASO NON PRODUCE PN,SOLO PO                             00016360
+      IF(INP(4).EQ.1.AND.L.GT.1) GO TO 1                                00016370
+C                                                                       00016380
+      N=N+1                                                             00016390
+      MATCOR(1,N)=I                                                     00016400
+      MATCOR(2,N)=J                                                     00016410
+      MATCOR(3,N)=L                                                     00016420
+C---- SCRITTURA RECORD DI TITOLO SU DIRAC.                              00016430
+C     WRITE(NDIR'2+(NBG+1)*(N-1)) NBG,IHM,IHT,PRBNAM(I)                 00016440
+C**** *********************************** VARIANTE DEL 17-9-84 NUM 1-8  00016450
+       IF(NDIR.EQ.99)                                                   00016460
+     1WRITE(NDIR'2+(NBG+1)*(N-1)) NBG,IHM,IHT,PRBNAM(I)                 00016470
+       IF(NDIR.NE.99) WRITE(NDIR) NBG,IHM,IHT,PRBNAM(I)                 00016480
+       N99P=N99P+1                                                      00016490
+C**** ************************** PER UN FILE DIRAC PS                   00016500
+      LMEN1=L-1                                                         00016510
+      WRITE(NO,100) N,I,J,LMEN1,PRBNAM(I)                               00016520
+  100 FORMAT(/' REGISTRAZIONE SU DIRAC N. :',I4,' DI ISOTOPO:',I4,' REGI00016530
+     1ONE:',I4,' SCATT ORD:',I4,5X,A8)                                  00016540
+C---- ********** LOOP SUI GRUPPI (OGNI GRUPPO UN RECORD SU DIRAC).      00016550
+      DO 1 K=1,NGROUP                                                   00016560
+      IF(L.GT.1) GO TO 2                                                00016570
+C---- CREAZIONE SEZIONI D'URTO TAPE ANISN (SOLO PER PRIMO ORDINE        00016580
+C---- DI SCATTERING). LE PRIME 4 POSIZIONI SONO VUOTE PER EVENTUALI     00016590
+C---- ACTIVITIES.                                                       00016600
+C---- NELLE PRIME TRE POSIZIONI SONO LE 3 REMOUVAL                      00016610
+      MSSIGM(1)=LEGSIG(K,8)                                             00016620
+      MSSIGM(2)=LEGSIG(K,9)                                             00016630
+      MSSIGM(3)=LEGSIG(K,10)                                            00016640
+C        REMOUVAL DI ORDINE 1                                           00016650
+      MSSIGM(4)=LEGSIG(K,11)                                            00016660
+C---- FISSIONE + RISONANZE.                                             00016670
+      MSSIGM(5)=LEGSIG(K,6)+SIGM(K,2,I+NPRMAT*(J-1))                    00016680
+C---- N GAMMA + N ALFA + NP + CATTURA DI RISONANZA + FISS               00016690
+      MSSIGM(6)=LEGSIG(K,2)+LEGSIG(K,3)+LEGSIG(K,4)+SIGM(K,1,I+N        00016700
+     1PRMAT*(J-1))+ MSSIGM(5)                                           00016710
+C                                                                       00016720
+C---- CORREZIONE ALL'ASSORBIMENTO PER N,2N                              00016730
+      IF(INP(3).EQ.4.OR.INP(3).EQ.5) MSSIGM(6)=MSSIGM(6)-MSSIGM(3)      00016740
+C                                                                       00016750
+      IF(LEGSIG(K,6).EQ.0) GO TO 3                                      00016760
+C---- SE FISSILE NU*SIGMA F.                                            00016770
+      MSSIGM(7)=MSSIGM(5)*LEGSIG(K,7)/LEGSIG(K,6)                       00016780
+      GO TO 4                                                           00016790
+    3 MSSIGM(7)=0.0                                                     00016800
+  4    CONTINUE                                                         00016810
+C---- TRANSPORT PER USO IN P0.                                          00016820
+      MSSIGM(8)=LEGSIG(K,1)+SIGM(K,1,I+NPRMAT*(J-1))+SIGM(K,2,I+NPRMAT*(00016830
+     1J-1))                                                             00016840
+          IF(INP(3).EQ.5) GO TO 24                                      00016850
+      IF(INP(3).NE.2) GO TO 23                                          00016860
+C---- SIGMA TOTALE ORDINE 1  PER USO PN                                 00016870
+          MSSIGM(8)=LEGSIG(K,5)+MSSIGM(8)-MSSCAT(K,1,MAXUP+1)           00016880
+       MSSCAT(K,1,MAXUP+1)=LEGSIG(K,5)                                  00016890
+   23 CONTINUE                                                          00016900
+ 24       CONTINUE                                                      00016910
+C         IN QUESTA OPZIONE                                             00016920
+C          GENERA TOTAL                                                 00016930
+          IF(INP(3).NE.1) GO TO 300                                     00016940
+          SIGT=MSSIGM(6)+LEGSIG(K,8)+LEGSIG(K,9)+LEGSIG(K,10)           00016950
+C         ASSORBIMENTO PIU REMOUVAL                                     00016960
+C         SCATTERING CHE STA ALLA TOTAL COME QUELLO DELLA               00016970
+C         TRANSPORT ALLA TRANSPORT                                      00016980
+C         SCATT=SIGT+MSSCAT(K,1,MAXUP+1)-MSSIGM(8)                      00016990
+C         MSSCAT(K,1,MAXUP+1)=SCATT                                     00017000
+          MSSIGM(8)=SIGT                                                00017010
+ 300       CONTINUE                                                     00017020
+C                                                                       00017030
+C                                                                       00017040
+       NF=MAXUP+MAXDN+1                                                 00017050
+C---- SCRITTURA DELLE SIGMA SU TAPE DIRAC.                              00017060
+C     WRITE(NDIR'2+K+(NBG+1)*(N-1))(MSSIGM(JJ),JJ=1,IHT),(MSSCAT(K,L,KK)00017070
+C    1,KK=1,NF)                                                         00017080
+C**** *************************** VARIANTE DEL 17-9-84 NUM 1-9          00017090
+       IF (NDIR.EQ.99)                                                  00017100
+     1WRITE(NDIR'2+K+(NBG+1)*(N-1))(MSSIGM(JJ),JJ=1,IHT),(MSSCAT(K,L,KK)00017110
+     1,KK=1,NF)                                                         00017120
+       IF (NDIR.NE.99)                                                  00017130
+     1WRITE(NDIR)(MSSIGM(JJ),JJ=1,IHT),(MSSCAT(K,L,KK)                  00017140
+     1,KK=1,NF)                                                         00017150
+       N99P=N99P+1                                                      00017160
+C**** ************************** PER UN DIRAC PS                        00017170
+C---- STAMPA SU OPZIONI DI INPUT.                                       00017180
+       IF(INP(2).GT.4) WRITE(NO,109)I,PRBNAM(I),K                       00017190
+ 109   FORMAT(/' ISOTOPO NUMERO: ',I4,4X,A8,' GRUPPO : ',I4)            00017200
+      IF(INP(2).GT.4) WRITE(NO,110) (MSSIGM(JJ),JJ=1,IHT)               00017210
+      IF(INP(2).GT.5) WRITE(NO,110) (MSSCAT(K,L,KK),KK=1,NF)            00017220
+      GO TO 1                                                           00017230
+C---- PER ORDINI DI SCATTERING OLTRE IL PRIMO SCRIVE UN ISOTOPO         00017240
+C---- CONTENENTE SOLO LA MATRICE DI SCATTERING DELL'ORDINE SUPERIORE.   00017250
+ 2    CONTINUE                                                          00017260
+C     WRITE(NDIR'2+K+(NBG+1)*(N-1))(DUMMY,II=1,IHT),(MSSCAT(K,L,KK),KK=100017270
+C    1,NF)                                                              00017280
+C**** ******************************** VARIANTE DEL 17-9 -84 NUM 1-10   00017290
+       IF(NDIR.EQ.99)                                                   00017300
+     1WRITE(NDIR'2+K+(NBG+1)*(N-1))(DUMMY,II=1,IHT),(MSSCAT(K,L,KK),KK=100017310
+     1,NF)                                                              00017320
+       IF(NDIR.NE.99)                                                   00017330
+     1WRITE(NDIR)(DUMMY,II=1,IHT),(MSSCAT(K,L,KK),KK=1                  00017340
+     1,NF)                                                              00017350
+       N99P=N99P+1                                                      00017360
+C**** ************************************ PER UN DIRAC PS              00017370
+C---- STAMPA SU OPZIONI DI INPUT.                                       00017380
+      IF(INP(2).GT.4) WRITE(NO,109)I,PRBNAM(I),K                        00017390
+      IF(INP(2).GT.4) WRITE(NO,110) (DUMMY,II=1,IHT)                    00017400
+      IF(INP(2).GT.5) WRITE(NO,110) (MSSCAT(K,L,KK),KK=1,NF)            00017410
+ 110  FORMAT(/(10(1X,E12.6)))                                           00017420
+    1 CONTINUE                                                          00017430
+C---- ********** FINE LOOP SU ORDINI DI SCATTERING E GRUPPI.            00017440
+      RETURN                                                            00017450
+C----                                                                   00017460
+C---- FINE SUBROUTINE CORSTA.                                           00017470
+C----                                                                   00017480
+      END                                                               00017490
+      SUBROUTINE PET03                                                  00017500
+C---- SUBROUTINE PRINCIPALE DELLA PARTE 3 DI 007. CREA LIBRERIA ANISN   00017510
+C---- AD ISOTOPI E FORMA LE SIGMA MACROSCOPICHE.                        00017520
+      COMMON/A/A(1)                                                     00017530
+      COMMON/NTP/NI,NO,NPC,NSS1,NAGGAN,NOUTAN,NDIR                      00017540
+      COMMON/NPR/NPRMAT,NREG,NGEOM,NREG1,NGROUP,IHM,IHT,NREAL,N,NP(13)  00017550
+      COMMON/NDMX/NDIM,NTAPE,NINP                                       00017560
+      COMMON/TITL/TITL(1)                                               00017570
+      COMMON/NPUNT/NPUNT(1)                                             00017580
+      COMMON/INP/INP(1)                                                 00017590
+      COMMON/DIM/NRZ,M4,NPRM,NIHM,NMAC,NMIC                             00017600
+      REAL*8 ANOM(7)                                                    00017610
+      DIMENSION NTP(1),NTP1(18),TITOL(20)                               00017620
+      EQUIVALENCE(NI,NTP(1))                                            00017630
+      DATA AANOM/4HNO  /                                                00017640
+      DATA ANOM/8HINPUT   ,8HOUTPUT  ,8HPUNCH   ,8HSCR2    ,8HAGGAN   ,800017650
+     1HOUTAN   ,8HDIRAC   /                                             00017660
+C**** *************************** VARIANTE DEL 17-9-84 NUM 1-11         00017670
+       COMMON/N99P/N99P,N99P1                                           00017680
+C**** ***************************** PERUN DIRAC PS                      00017690
+      DATA NTP1/5,6,7,91,92,93,99,11*0/                                 00017700
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00017710
+      CALL TTIME(NORA)                                                  00017720
+C---- NUMERO TAPES USATI E NUMERO OPZIONI DI INPUT PER LA PARTE 3.      00017730
+      NTAPE=7                                                           00017740
+      NINP=4                                                            00017750
+      WRITE(11,999) NORA                                                00017760
+ 999  FORMAT('  PARTE3  ORA: ',I10)                                     00017770
+C---- LA PRIMA LETTURA LA FA DAL DEFAULT SE NI NON CONTIENE GIA'        00017780
+C---- UN NUMERO BUONO.                                                  00017790
+      IF(NI.LE.0.OR.NI.GT.99) NI=NTP1(1)                                00017800
+C---- LETTURA NUMERI LOGICI TAPES.                                      00017810
+      READ(NI,1) (NTP(J),J=1,NTAPE)                                     00017820
+    1 FORMAT(18I4)                                                      00017830
+C---- ASSEGNAZIONE DEFAULTS.                                            00017840
+      DO 2 I=1,NTAPE                                                    00017850
+    2 IF(NTP(I).LE.0) NTP(I)=NTP1(I)                                    00017860
+C---- LETTURA TITOLO. SE TITL(1) =NO NON FA LA PARTE 3.                 00017870
+      READ(NI,3) (TITL(J),J=1,20)                                       00017880
+    3 FORMAT(20A4)                                                      00017890
+      WRITE(NO,4) (TITL(J),J=1,20)                                      00017900
+    4 FORMAT(1H1,20X,20A4//)                                            00017910
+      IF(TITL(1).EQ.AANOM) RETURN                                       00017920
+C---- IN QUESTO CASO LA PARTE 3 NON VIENE EFFETTUATA.                   00017930
+      WRITE(NO,5)                                                       00017940
+    5 FORMAT(//1X,10(1H+),'   PROGRAMMA GERES - PARTE 3  :  PREPARA NAST00017950
+     1RO ANISN ORGANIZZATO PER GRUPPI'//)                               00017960
+      WRITE(NO,6) (ANOM(I),NTP(I),I=1,NTAPE)                            00017970
+    6 FORMAT(5X,' IL FILE ',A8,' E* SULLA UNITA LOGICA ',I4)            00017980
+C---- LETTURA OPZIONI DI INPUT.                                         00017990
+      READ(NI,1) (INP(J),J=1,NINP)                                      00018000
+      WRITE(NO,7) (INP(J),J=1,NINP)                                     00018010
+    7 FORMAT(//5X,' OPZIONI DI INPUT : ',18I4)                          00018020
+      IF(INP(1).LE.0) GO TO 8                                           00018030
+C---- RESTART : LEGGE I DATI DA NSS1 PER COMMON /NPR/.                  00018040
+      REWIND NSS1                                                       00018050
+      READ(NSS1) NPRMAT,NREG,NGEOM,NREG1,NGROUP,IHM,IHT,NREAL,N         00018060
+      WRITE(NO,100) NSS1,NPRMAT,NREG,NGEOM,NREG1,NGROUP,                00018070
+     1IHM,IHT,NREAL                                                     00018080
+C**** **************************** VARIANTE DEL 17-9-84 NUM 1- 12       00018090
+      N99P1=N                                                           00018100
+C**** ************************ PER UN DIRAC PS ********                 00018110
+ 100  FORMAT(/' LETTI DA SCR2,UNITA*:',I4,' NPRMAT,NREG,NGEOM,NREG1,NGRO00018120
+     1UP,IHM,IHT,NREAL'/26X,10I5/)                                      00018130
+      GO TO 9                                                           00018140
+    8 CONTINUE                                                          00018150
+C---- NEL CASO I DATI SIANO GIA' IN /NPR/ RIORDINA IL COMMON STESSO     00018160
+C---- IN MODO DA NON AVERVI DEI BUCHI.                                  00018170
+      NREG=NGROUP                                                       00018180
+      NGEOM=NREG1                                                       00018190
+      NREG1=IHT                                                         00018200
+      NGROUP=NREAL                                                      00018210
+      IHM=NP(5)                                                         00018220
+      IHT=NP(6)                                                         00018230
+      NREAL=NP(8)                                                       00018240
+    9 CONTINUE                                                          00018250
+C---- LETTURA NUMERO ISOTOPI SU DIRAC (N : DIMENSIONE VARIABILI).       00018260
+C     READ(NDIR'1) N,TITOL(1)                                           00018270
+C**** ****************************** VARIANTE DEL 17-9-84 NUM 1-13      00018280
+       IF(NDIR.EQ.99) GO TO 110                                         00018290
+       REWIND NDIR                                                      00018300
+       N99P=1                                                           00018310
+       READ(NDIR) NNNN,TITOL(1)                                         00018320
+       N99P=N99P+1                                                      00018330
+       IF (N99P1.GT.0) GO TO 105                                        00018340
+       WRITE(NO,6001)N99P1,NDIR                                         00018350
+       WRITE(11,6001)N99P1,NDIR                                         00018360
+       N99P1=NREAL*NPRMAT                                               00018370
+ 6001  FORMAT(' WARNING!!!!!!!!  A MAXIMUM OF',I5,' ISOTOPES IS '       00018380
+     1 ,' SUPPOSED TO BE ON UNIT:',I5)                                  00018390
+ 105   CONTINUE                                                         00018400
+C---- PER DIRAC NON DA IL NUMERO DI  ISOTOPI NON E SCRITTO SUL          00018410
+C---- PRIMO RECORD DI DIRAC, MA CONTENUTO IN/N99P/:N99P1                00018420
+C---- PER RESTART  USA N CHE                                            00018430
+C---- LEGGE DA NSS1, SE QUESTO E' NULLO ASSEGNA AD N99P1=N UN           00018440
+C---- NUMERO CALCOLATO PER ECCESSO. QUESTO PROVOCA ERRORE (VEDI         00018450
+C---- LABEL 500 IN SUBROUTINE CALSCR)                                   00018460
+       N=N99P1                                                          00018470
+ 110   IF(NDIR.EQ.99)                                                   00018480
+     1READ(NDIR'1) N,TITOL(1)                                           00018490
+C**** ******************************** PER UN DIRAC NON PS              00018500
+      WRITE(NO,10) N,TITOL(1)                                           00018510
+   10 FORMAT(//5X,' ISOTOPI SUL NASTRO AD ACCESSO DIRETTO : ',I4        00018520
+     1/5X,' INTESTAZIONE DEL NASTRO : ',20A4)                           00018530
+C---- DEFINIZIONE PUNTATORI /NPUNT/ PER INDIRIZZI VARIABILI NEL COMMON  00018540
+C---- /A/ E RESTO DELLE LETTURE.                                        00018550
+      CALL SPOMEM                                                       00018560
+C---- CALCOLO MACRO E SCRITTURA TAPE ANISN A GRUPPI.                    00018570
+      CALL CALSCR(A(NPUNT(1)),A(NPUNT(2)),A(NPUNT(3)),A(NPUNT(4)),A(NPUN00018580
+     1T(5)),A(NPUNT(6)),A(NPUNT(7)),A(NPUNT(8)),A(NPUNT(9)))            00018590
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00018600
+      CALL TTIME(NORA)                                                  00018610
+      WRITE(11,995) NORA                                                00018620
+ 995  FORMAT(' FINE PARTE 3 , ORA: ',I10)                               00018630
+      RETURN                                                            00018640
+C----                                                                   00018650
+C---- FINE SUBROUTINE PET03.                                            00018660
+C----                                                                   00018670
+      END                                                               00018680
+      SUBROUTINE SPOMEM                                                 00018690
+C---- DEFINISCE GLI SPAZI DEL COMMON /A/, CALCOLA I PUNTATORI /NPUNT/   00018700
+C---- E MAN MANO RIEMPIE GLI SPAZI DI /A/ CON I RELATIVI DATI.          00018710
+      COMMON/A/A(1)                                                     00018720
+      COMMON /NTP/ NI,NO,NPC                                            00018730
+      COMMON/DIM/NRZ,M4,NPRM,NIHM,ND(2)                                 00018740
+      COMMON/NDMX/NDIM                                                  00018750
+      COMMON/INP/INP(1)                                                 00018760
+      COMMON/NPUNT/NPUNT(1)                                             00018770
+      COMMON/NPR/NPRMAT,NREG,NGEOM,NREG1,NGROUP,IHM,IHT,NREAL,N         00018780
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00018790
+      CALL  TTIME(NORA)                                                 00018800
+      WRITE(11,999) NORA                                                00018810
+  999 FORMAT(' SPOMEM  RIEMPIMENTO COMMON  A ORA: ',I10)                00018820
+      IF(INP(1).GT.0) GO TO 1                                           00018830
+C---- CASO IN CUI MATCOR E* IN /A/. LO SPOSTA DAL NONO POSTO OVE ERA    00018840
+C---- E LO METTE AL QUARTO POSTO IN MODO DA NON AVERE BUCHI IN /A/.     00018850
+C---- RIORDINAMENTO COMMON /DIM/.                                       00018860
+      M4=ND(2)                                                          00018870
+      J=M4*N                                                            00018880
+C---- VENGONO SPOSTATI SOLO I VALORI RELATIVI ALLE N REGISTRAZIONI      00018890
+C---- ESISTENTI SU DIRAC. NELLA PARTE SECONDA MATCOR ERA                00018900
+C---- SOVRADIMENSIONATO. QUI CI SI LIMITA ALLA PARTE EFFETTIVAMENTE     00018910
+C---- ESISTENTE.                                                        00018920
+      DO 2 I=1,J                                                        00018930
+    2 A(NPUNT(4)+I-1)=A(NPUNT(9)+I-1)                                   00018940
+    1 IF(INP(1).LE.0) GO TO 3                                           00018950
+C---- IN CASO DI RESTART DEFINISCE I PRIMI PUNTATORI CHE NON SONO       00018960
+C---- IN MEMORIA.                                                       00018970
+      NPUNT(1)=1                                                        00018980
+      NPRM=NPRMAT                                                       00018990
+C---- PRBNAM : NOMI MATERIALI.                                          00019000
+      NPUNT(2)=NPUNT(1)+NPRMAT*2                                        00019010
+C---- HETDEN : DENSITA'.                                                00019020
+      NPUNT(3)=NPUNT(2)+NPRMAT*(NREG+1)                                 00019030
+C---- MATHET : INDICI MATERIALI ETEROGENEI.                             00019040
+      NPUNT(4)=NPUNT(3)+NPRMAT*NREG1                                    00019050
+C---- MATCOR : COORDINATE DI DIRAC.                                     00019060
+      M4=3                                                              00019070
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00019080
+      CALL TTIME(NORA)                                                  00019090
+      WRITE(11,998) NORA                                                00019100
+C---- LETTURA DA NSS1 DI PRBNAM, HETDEN, MATHET, MATCOR.                00019110
+ 998  FORMAT('CHIAMATA A LEGNS1, ORA:',I10)                             00019120
+      CALL LEGNS1(A(NPUNT(1)),A(NPUNT(2)),A(NPUNT(3)),A(NPUNT(4)))      00019130
+    3 NPUNT(5)=NPUNT(4)+M4*N                                            00019140
+C---- MACROD : COORDINATE DI MATISA PER INIZIO MACRO DEI                00019150
+C---- DIVERSI MATERIALI.                                                00019160
+C---- PULISCE TUTTA LA MEMORIA RESTANTE.                                00019170
+      CALL NULL(NPUNT(5),NDIM-NPUNT(5)+1)                               00019180
+      WRITE(NO,120) INP(3)                                              00019190
+ 120  FORMAT(//' FARE ATTENZIONE AL TERZO PARAMETRO DI INPUT :',        00019200
+     1I4,'  CHE DIMENSIONA DIRETTAMENTE LE MATRICI')                    00019210
+      NPUNT(6)=NPUNT(5)+NREAL                                           00019220
+      IF(INP(2).LT.0) NPUNT(6)=NPUNT(5)                                 00019230
+C---- NOMISA : NUMERO DELLE MICRO RICHIESTE NELLE VARIE ZONE.           00019240
+      IF(NDIM.LT.NPUNT(6)) WRITE(NO,5)                                  00019250
+      NPUNT(7)=NPUNT(6)+NPRMAT*NREAL                                    00019260
+      IF(INP(2).EQ.0) NPUNT(7)=NPUNT(6)                                 00019270
+C---- MATISA : 1 GRUPPO MACRO + MICRO PER NOUTAN (TAPE ANISN A GRUPPI). 00019280
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00019290
+      CALL TTIME(NORA)                                                  00019300
+      WRITE(11,997) NORA                                                00019310
+ 997  FORMAT(' CHIAMATE A MATNOM E MANN, ORA: ',I10)                    00019320
+C---- SU OPZIONE LETTURA MATRICE MICRO RICHIESTE.                       00019330
+      IF(INP(2).NE.0) CALL MATNOM(A(NPUNT(1)),A(NPUNT(6)))              00019340
+C---- MANN : NUMERO DI ISOTOPI IN UN RECORD DEL TAPE PRODOTTO (MACRO +  00019350
+C---- MICRO). CALCOLA ANCHE NMAC ED NMIC DI /DIM/.                      00019360
+      NRZ=MANN(A(NPUNT(2)),A(NPUNT(3)),A(NPUNT(4)),A(NPUNT(5)),A(NPUN   00019370
+     1T(6)))                                                            00019380
+      NIHM=IHM                                                          00019390
+      NPUNT(8)=NPUNT(7) + NRZ*IHM                                       00019400
+C---- MAT1AN : PER LEGGERE TAVOLA ANISN DI UN GRUPPO.                   00019410
+      WRITE(NO,100)   NRZ,ND(1),ND(2)                                   00019420
+ 100  FORMAT(/' RISERVATI SPAZI PER ',I4,' ISOTOPI NEL RECORD,DI CUI    00019430
+     1 ',I4,' MACRO ED ',I4,' MICRO'/)                                  00019440
+      NPUNT(9)=NPUNT(8)+IHM                                             00019450
+C---- AGGISA : PER LETTURA NAGGAN (TAPE ANISN DA AGGIORNARE).           00019460
+C---- IN CASO INP(3) SIA ERRATO VIENE LASCIATO SPAZIO PER 10 ISOTOPI.   00019470
+C---- POICHE' QUESTA E* L'ULTIMA GRANDEZZA IN /A/ UN ERRORE PUO' NON    00019480
+C---- INCIDERE SUL PROGRAMMA SE /A/ E* SOVRADIMENSIONATO.               00019490
+      IF(INP(3).LT.0) INP(3)=10                                         00019500
+      NPUNT(10)=NPUNT(9)+INP(3)*IHM-1                                   00019510
+      WRITE(NO,110) INP(3)                                              00019520
+ 110  FORMAT(/' RISERVATO SPAZIO PER :',I4,' ISOTOPI DI AGGISAN'/)      00019530
+      WRITE(NO,4) NPUNT(10),NDIM                                        00019540
+    4 FORMAT(//5X,' LA OCCUPAZIONE E* DI ',I10,' PAROLE. DISPONIBILI ',I00019550
+     110,' PAROLE')                                                     00019560
+      IF(NPUNT(9).GT.NDIM) WRITE(NO,5)                                  00019570
+    5 FORMAT(//5X,10(1H*),' ATTENZIONE, LO SPAZIO FORNITO NON BASTA '/  00019580
+     15X,10(1H*),' AUMENTARE LE DIMENSIONI DEL COMMON/A/ E IL PARAMETRO 00019590
+     1 NDIM')                                                           00019600
+      IF(NPUNT(10).GT.NDIM) STOP                                        00019610
+      WRITE(11,1000) (J,NPUNT(J),J=1,10)                                00019620
+ 1000 FORMAT(' NPUNT(',I4,')=',I10)                                     00019630
+      RETURN                                                            00019640
+C----                                                                   00019650
+C---- FINE SUBROUTINE SPOMEM.                                           00019660
+C----                                                                   00019670
+      END                                                               00019680
+      FUNCTION MANN(HETDEN,MATHET,MATCOR,MACROD,NOMISA)                 00019690
+C---- CALCOLA N. ISOTOPI DEL RECORD DEL TAPE PRODOTTO (DIMENSIONE       00019700
+C---- DI MATISA). CALCOLA MACROD (COORDINATE MACRO DIVERSE ZONE IN      00019710
+C---- MATISA). CALCOLA NMIC E NMAC (NUMERO MACRO E MICRO).              00019720
+      COMMON/INP/INP(1)                                                 00019730
+      COMMON /A/A(1)                                                    00019740
+      COMMON/DIM/NRZ,M4,NPRM,NIHM,NMAC,NMIC                             00019750
+      COMMON /NPR/NPRMAT,NREG,NGEOM,NREG1,NGROUP,IHM,IHT,NREAL,N        00019760
+      COMMON/NPUNT/NPUNT(1)                                             00019770
+      DIMENSION MATHET(NPRM,1)                                          00019780
+      DIMENSION MATCOR(M4,1),MACROD(1),NOMISA(NPRM,1),HETDEN(NPRM,1)    00019790
+      WRITE(11,999)                                                     00019800
+ 999  FORMAT(' MANN CALCOLO NUMERO ISOTOPI DEL TAPE ANISN ')            00019810
+      NMIC=0                                                            00019820
+      NMAC=0                                                            00019830
+      IF(INP(2).LT.0) GOTO 20                                           00019840
+C---- CALCOLO NUMERO MACRO.                                             00019850
+C---- ANNULLA MACROD.                                                   00019860
+      CALL NULL(NPUNT(5),NREAL)                                         00019870
+C---- ********** LOOP SUGLI ISOTOPI DI DIRAC.                           00019880
+      DO 1 I=1,N                                                        00019890
+      IF(HETDEN(MATCOR(1,I),MATCOR(2,I)).EQ.0) GOTO 10                  00019900
+C---- DI OGNI ISOTOPO GUARDA COME E* PN, CIOE' IN QUANTI ISOTOPI        00019910
+C---- SI SPEZZA NEL TAPE ANISN. PER OGNI ZONA MACROD VIENE AD ASSUMERE  00019920
+C---- IL VALORE DEL NUMERO DI PN PRESENTI(NUMERO DI MACRO DELLA REGIONE)00019930
+      IF(MACROD(MATCOR(2,I)).LT.MATCOR(3,I)) MACROD(MATCOR(2,I))=MATCOR(00019940
+     13,I)                                                              00019950
+  10  IF(NREAL.EQ.1) GOTO 15                                            00019960
+      IF(MATCOR(2,I).NE.1) GOTO 15                                      00019970
+C---- AL SOLITO PER SIGMA IN ZONA OMOGENEA SI VEDE A QUANTE ETEROGENEE  00019980
+C---- VA AGGIUNTO (ISOTOPI A TRATTAMENTO OMOGENEO MA PRESENTI IN PIU'   00019990
+C---- ZONE).                                                            00020000
+C---- ********** LOOP SULLE REGIONI.                                    00020010
+      DO 2 IJ=2,NREAL                                                   00020020
+      IF(MATHET(MATCOR(1,I),IJ-1).EQ.0.AND.HETDEN(MATCOR(1,I),IJ).NE.0. 00020030
+     1AND.MACROD(IJ).LT.MATCOR(3,I)) MACROD(IJ)=MATCOR(3,I)             00020040
+  2   CONTINUE                                                          00020050
+C---- ********** FINE LOOP SULLE REGIONI.                               00020060
+  15  CONTINUE                                                          00020070
+  1   CONTINUE                                                          00020080
+C---- FINE LOOP SUGLI ISOTOPI.                                          00020090
+C---- MACROD VIENE CONVERTITA IN MODO CHE CONTENGA NON IL NUMERO        00020100
+C---- DI SIGMA MACRO PRESENTI IN OGNI ZONA, MA LE COORDINATE (IN MATISA)00020110
+C---- DELLA PRIMA SIGMA MACRO DI OGNI ZONA.                             00020120
+      NCON=MACROD(1)                                                    00020130
+      MACROD(1)=1                                                       00020140
+      IF(NREAL.EQ.1) GOTO 17                                            00020150
+      DO 3 I=2,NREAL                                                    00020160
+      NCON1=MACROD(I)                                                   00020170
+      IF(NCON.LE.0) NCON=1                                              00020180
+      MACROD(I)=MACROD(I-1)+NCON                                        00020190
+      WRITE(11,1002) MACROD(I),I                                        00020200
+ 1002 FORMAT(' MACROD=',I5,' REGIONE:',I5)                              00020210
+      NCON=NCON1                                                        00020220
+  3   CONTINUE                                                          00020230
+  17  NMAC=MACROD(NREAL)+NCON-1                                         00020240
+  20  CONTINUE                                                          00020250
+      IF(INP(2).EQ.0) GOTO 30                                           00020260
+C---- CALCOLO MICRO : SI GUARDANO TUTTI GLI ISOTOPI SU DIRAC E SI       00020270
+C---- INCREMENTA NMIC QUANDO UNO DI ESSI E* RICHIESTO MICRO.            00020280
+      DO 4 I=1,N                                                        00020290
+      IF(NOMISA(MATCOR(1,I),MATCOR(2,I)).NE.0) NMIC=NMIC+1              00020300
+  4   CONTINUE                                                          00020310
+  30  CONTINUE                                                          00020320
+      MANN=NMAC+NMIC                                                    00020330
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00020340
+      CALL TTIME(NORA)                                                  00020350
+      WRITE(11,997) NORA                                                00020360
+  997 FORMAT(' FINE MANN ( CALCOLO NUMERO ISOTOPI ), ORA : ',I10)       00020370
+      RETURN                                                            00020380
+C----                                                                   00020390
+C---- FINE FUNCTION MANN.                                               00020400
+C----                                                                   00020410
+      END                                                               00020420
+      SUBROUTINE LEGNS1(PRBNAM,HETDEN,MATHET,MATCOR)                    00020430
+C---- LETTURA DA NSS1 IN CASO DI RESTART.                               00020440
+      COMMON/NTP/NI,NO,NPC,NSS1,NAGGAN,NOUTAN,NDIR                      00020450
+      COMMON/NPR/NPRMAT,NREG,NGEOM,NREG1,NGROUP,IHM,IHT,NREAL,N         00020460
+      COMMON/DIM/NRZ,M4,NPRM,NIHM                                       00020470
+      REAL*8 PRBNAM(1)                                                  00020480
+      DIMENSION HETDEN(NPRM,1),MATHET(NPRM,1),MATCOR(M4,1)              00020490
+      READ(NSS1) (PRBNAM(J),J=1,NPRMAT)                                 00020500
+      NRR=NREG+1                                                        00020510
+      IF(NRR.GT.0) READ(NSS1) ((HETDEN(J,J1),J=1,NPRMAT),J1=1,NRR)      00020520
+      IF(NREG1.GT.0) READ(NSS1) ((MATHET(J,J1),J=1,NPRMAT),J1=1,NREG1)  00020530
+      READ(NSS1) ((MATCOR(I,J),I=1,M4),J=1,N)                           00020540
+      REWIND NSS1                                                       00020550
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00020560
+      CALL TTIME(NORA)                                                  00020570
+      WRITE(11,999) NORA                                                00020580
+ 999  FORMAT(' FINE LEGNS1, LETTURA NSS1, ORA: ',I10)                   00020590
+      RETURN                                                            00020600
+C----                                                                   00020610
+C---- FINE SUBROUTINE LEGNES1.                                          00020620
+C----                                                                   00020630
+      END                                                               00020640
+      SUBROUTINE MATNOM(PRBNAM,NOMISA)                                  00020650
+C---- LETTURA NOMI MICRO RICHIESTI DA INPUT.                            00020660
+C---- DEFINIZIONE MATRICE DELLE MICRO RICHIESTE.                        00020670
+      COMMON /NPUNT/NPUNT(1)                                            00020680
+      COMMON/NPR/NPRMAT,NREG,NGEOM,NREG1,NGROUP,IHM,IHT,NREAL,N         00020690
+      COMMON/NTP/NI,NO,NPC,NSS1,NAGGAN,NOUTAN,NDIR                      00020700
+      COMMON/DIM/NRZ,M4,NPRM,NIHM                                       00020710
+      DIMENSION NOMISA(NPRM,1)                                          00020720
+      REAL*8 PNOME(8),BLNOM,PNOMT,PRBNAM(1)                             00020730
+      DATA BLNOM/8H        /,PNOMT/8HTUTTI   /                          00020740
+      WRITE(11,999)                                                     00020750
+ 999  FORMAT(' MATNOM ,DARE  MICRO        ')                            00020760
+C---- VUOTA LA MATRICE DELLE MICRO RICHIESTE.                           00020770
+      CALL NULL(NPUNT(6),NPRMAT*NREAL)                                  00020780
+      WRITE(NO,110)                                                     00020790
+ 110  FORMAT(//2X,' MICRO RICHIESTE'/3X,'ZONA , ISOTOPI MICRO')         00020800
+C---- ********** INIZIO LOOP DI LETTURA SCHEDE                          00020810
+C----            CON NUMERO ZONA E NOMI ISOTOPI.                        00020820
+    1 READ(NI,2) NZON,(PNOME(J),J=1,8)                                  00020830
+    2 FORMAT(I4,8A8)                                                    00020840
+      WRITE(NO,100) NZON,(PNOME(J),J=1,8)                               00020850
+ 100  FORMAT(1X,I4,5X,8(3X,A8))                                         00020860
+C---- USCITA LOOP DI LETTURA.                                           00020870
+      IF(NZON.LE.0) GO TO 3                                             00020880
+C---- SE IL NUMERO DELLA ZONA E* FUORI CAMPO DA' UN DIAGNOSTICO         00020890
+      IF(NZON.GT.NREAL) GO TO 4                                         00020900
+C---- SE C'E* 'TUTTI'  METTE 1 IN TUTTE LE ZONE.                        00020910
+      IF(PNOME(1).EQ.PNOMT) GO TO 6                                     00020920
+      DO 8 J=1,8                                                        00020930
+C---- SALTA NOMI BIANCHI.                                               00020940
+      IF(PNOME(J).EQ.BLNOM) GOTO 8                                      00020950
+C---- LOOP DI RICERCA DEL NOME LETTO.                                   00020960
+      DO 9 I=1,NPRMAT                                                   00020970
+      IF(PNOME(J).EQ.PRBNAM(I)) GO TO 10                                00020980
+ 9    CONTINUE                                                          00020990
+      WRITE(NO,120) PNOME(J)                                            00021000
+        WRITE(11,120) PNOME(J)                                          00021010
+ 120  FORMAT(//' ATTENZIONE, IL MATERIALE ',A8,' NON E* FRA QUELLI DEL  00021020
+     1 PROBLEMA  ',10(1H?))                                             00021030
+      GO TO 8                                                           00021040
+ 10   NOMISA(I,NZON)=1                                                  00021050
+  8   CONTINUE                                                          00021060
+      GO TO 1                                                           00021070
+    6 DO 7 I=1,NPRMAT                                                   00021080
+    7 NOMISA(I,NZON)=1                                                  00021090
+      GOTO 1                                                            00021100
+    4 WRITE(NO,5) NREAL                                                 00021110
+        WRITE(11,5) NREAL                                               00021120
+    5 FORMAT(//5X,10(1H*),' ATTENZIONE, IL NUMERO MASSIMO DI ZONE E* ',I00021130
+     14,10(1H*))                                                        00021140
+      GO TO 1                                                           00021150
+C---- ********** FINE LOOP DI LETTURA.                                  00021160
+    3 CONTINUE                                                          00021170
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00021180
+      CALL TTIME(NORA)                                                  00021190
+      WRITE(11,997) NORA                                                00021200
+ 997  FORMAT(' FINE MATNOM, ORA : ',I10)                                00021210
+      RETURN                                                            00021220
+C----                                                                   00021230
+C---- FINE SUBROUTINE MATNOM.                                           00021240
+C----                                                                   00021250
+      END                                                               00021260
+      SUBROUTINE CALSCR(PRBNAM,HETDEN,MATHET,MATCOR,MACROD,NOMISA,MATISA00021270
+     1,MAT1AN,AGGISA)                                                   00021280
+C---- CALCOLO MACRO E SCRITTURA RECORDS LIBRERIA ANISN A GRUPPI.        00021290
+      COMMON /A/A(1)                                                    00021300
+      COMMON/DIM/NRZ,M4,NPRM,NIHM,NMAC,NMIC                             00021310
+      COMMON/NPUNT/NPUNT(1)                                             00021320
+      COMMON/NPR/NPRMAT,NREG,NGEOM,NREG1,NGROUP,IHM,IHT,NREAL,N         00021330
+      COMMON/NTP/NI,NO,NPC,NSS1,NAGGAN,NOUTAN,NDIR                      00021340
+      COMMON/INP/INP(1)                                                 00021350
+      REAL*4 MATISA(NIHM,1),MAT1AN(1)                                   00021360
+      REAL*8 PRBNAM(1)                                                  00021370
+      DIMENSION AGGISA(1),MATHET(NPRM,1),HETDEN(NPRM,1),MATCOR(M4,1)    00021380
+      DIMENSION MACROD(1)                                               00021390
+      DIMENSION NOMISA(NPRM,1)                                          00021400
+C**** *************************** VARIANTE DEL 17-9-84 NUM 1-14         00021401
+       COMMON/N99P/N99P,N99P1                                           00021402
+C**** ***************************** PERUN DIRAC PS                      00021403
+C---- +++++++++++ ESAME DEL TEMPO ++++++++++++++                        00021410
+       CALL TTIME(NORA)                                                 00021420
+      WRITE(11,999) NORA                                                00021430
+ 999  FORMAT('  CALSCR MACRO E SCRITTURA NOUTAN ORA : ',I10)            00021440
+      IF(INP(3).GT.0) REWIND NAGGAN                                     00021450
+      REWIND NOUTAN                                                     00021460
+C---- ********** LOOP SUI GRUPPI. SCRIVE 1 RECORD PER GRUPPO.           00021470
+      DO 1 I=1,NGROUP                                                   00021480
+C---- ANNULLA MATISA (PER MACRO + MICRO DEL GRUPPO).                    00021490
+      CALL NULL(NPUNT(7),NRZ*IHM)                                       00021500
+C---- CONTATORE MICRO.                                                  00021510
+      NMICRO=0                                                          00021520
+C---- ********** LOOP SUGLI ISOTOPI DI DIRAC.                           00021530
+      DO 2 J=1,N                                                        00021540
+C---- LETTURA DEL GRUPPO CORRENTE DELL'ISOTOPO CORRENTE SU DIRAC.       00021550
+C     READ(NDIR'2+(NGROUP+1)*(J-1)+I) (MAT1AN(K),K=1,IHM)               00021560
+C**** ****************************** VARIANTE DEL 17-9-84 NUM 1-15      00021570
+      NPSZN=2+(NGROUP+1)*(J-1)+I                                        00021580
+       IF(NDIR.EQ.99) GO TO 201                                         00021590
+       CALL POSIZ(NDIR,NPSZN,N99P)                                      00021600
+      READ(NDIR,ERR=500,END=500) (MAT1AN(K),K=1,IHM)                    00021610
+      N99P=N99P+1                                                       00021620
+      GO TO 501                                                         00021630
+ 500  CONTINUE                                                          00021640
+      WRITE(NP,1000) NDIR,NPSZN,NGROUP,J,I                              00021650
+      WRITE(NO,1000) NDIR,NPSZN,NGROUP,J,I                              00021660
+ 1000 FORMAT(' WARNING!!!!  ERROR ON UNIT:',I5,' !!!!!!!!'/             00021670
+     1' RECORD:',I5,' GRUPPI:',I5,' ISOTOPO NON TROVATO:',I5,           00021680
+     2' DEL GRUPPO:',I5,' CERCO DI PROCEDERE EGUALMENTE!?')             00021690
+      GO TO 2                                                           00021700
+ 501   CONTINUE                                                         00021710
+ 201  IF(NDIR.EQ.99)                                                    00021720
+     1READ(NDIR'NPSZN) (MAT1AN(K),K=1,IHM)                              00021730
+C**** ******************************* PER UN DIRAC PS E NON DA          00021740
+      IF(INP(2).LT.0) GO TO 3                                           00021750
+C---- CALCOLO MACRO. SE LA DENSITA' DEL MATERIALE E* DIVERSA DA         00021760
+C---- ZERO VIENE SOMMATO NELLE MACRO DELLA SUA ZONA.                    00021770
+      IF(HETDEN((MATCOR(1,J)),(MATCOR(2,J))).EQ.0) GO TO 33             00021780
+      DO 4 K=1,IHM                                                      00021790
+   4  MATISA(K,MACROD(MATCOR(2,J))-1+MATCOR(3,J))=                      00021800
+     1MATISA(K,MACROD(MATCOR(2,J))-1+MATCOR(3,J))+ MAT1AN(K)            00021810
+     2*HETDEN(MATCOR(1,J),MATCOR(2,J))                                  00021820
+C---- LE STAMPE SONO FATTE SOLO PER IL PRIMO GRUPPO PERCHE'             00021830
+C---- PER TUTTI GLI ALTRI GRUPPI SONO SEMPRE UGUALI.                    00021840
+        IF(I.EQ.1) NPRNT=MATCOR(3,J)-1                                  00021850
+      IF(I.EQ.1) WRITE(NO,6) PRBNAM(MATCOR(1,J)),J,MATCOR(2,J),NPRNT    00021860
+    6 FORMAT(//' ISOTOPO ',A8,' DEL NASTRO AD ACCESSO DIRETTO NELLA POSI00021870
+     1ZIONE ',I4/' E* STATO AGGIUNTO ALLA SIGMA MACROSCOPICA DELLA REGIO00021880
+     2NE ',I4,' ORDINE DI SCATTERING :',I4/)                            00021890
+ 33   IF(MATCOR(2,J).GT.1) GO TO 3                                      00021900
+      IF(NREAL.EQ.1) GOTO 3                                             00021910
+C---- NEL CASO CI SI TROVI NELLA ZONA OMOGENEA IL MATERIALE VA          00021920
+C---- ANCHE AGGIUNTO A TUTTE LE ETEROGENEE OVE E* PRESENTE,             00021930
+C---- MA HA TRATTAMENTO 'OMOGENEO'.                                     00021940
+C---- ********** LOOP SULLE REGIONI.                                    00021950
+      DO 5 NZET=1,NREG1                                                 00021960
+      NZET1=NZET+1                                                      00021970
+      IF(HETDEN((MATCOR(1,J)),NZET1).EQ.0) GO TO 5                      00021980
+      IF(MATHET((MATCOR(1,J)),NZET).NE.0) GO TO 5                       00021990
+      DO 44 K=1,IHM                                                     00022000
+ 44   MATISA(K,MACROD(NZET1)-1+MATCOR(3,J))=                            00022010
+     1MATISA(K,MACROD(NZET1)-1+MATCOR(3,J))+MAT1AN(K)*                  00022020
+     2HETDEN(MATCOR(1,J),NZET1)                                         00022030
+      IF(I.NE.1) GO TO 43                                               00022040
+      WRITE(NO,110) NZET1                                               00022050
+ 110  FORMAT(' :::::: ED ALLA REGIONE : ',I4)                           00022060
+ 43   CONTINUE                                                          00022070
+    5 CONTINUE                                                          00022080
+C---- ********** FINE LOOP SULLE REGIONI.                               00022090
+    3 CONTINUE                                                          00022100
+      IF(INP(2).EQ.0) GO TO 9                                           00022110
+      IF(NOMISA(MATCOR(1,J),MATCOR(2,J)).EQ.0) GO TO 9                  00022120
+C---- MICRO : LA SIGMA LETTA VIENE CONSERVATA IN MATISA.                00022130
+      NMICRO=NMICRO+1                                                   00022140
+      DO 7 K=1,IHM                                                      00022150
+    7 MATISA(K,NMAC+NMICRO)=MAT1AN(K)                                   00022160
+         IF(I.EQ.1) NPRNT=MATCOR(3,J)-1                                 00022170
+      IF(I.EQ.1) WRITE(NO,8) PRBNAM(MATCOR(1,J)),J,MATCOR(2,J),NPRNT    00022180
+    8 FORMAT(5X,' ISOTOPO ',A8,' DEL NASTRO AD ACCESSO DIRETTO NELLA    00022190
+     1POSIZIONE ',I4/' E'' STATO AGGIUNTO COME SIGMA MICRO DELLA REGIONE00022200
+     2 ',I4,' ORDINE DI SCATTERING :',I4/)                              00022210
+    9 CONTINUE                                                          00022220
+    2 CONTINUE                                                          00022230
+C---- ********** FINE LOOP SUGLI ISOTOPI DI DIRAC.                      00022240
+      NMINB=NMICRO+NMAC                                                 00022250
+      IF(NMINB.NE.NRZ) WRITE(NO,100) NMINB,NR2,NMIC,NMAC                00022260
+ 100  FORMAT(//' ATTENZIONE POSSIBILE STIMA ERRATA DIMENSIONE MEMORIA   00022270
+     1'/' ISOTOPI VERI,SIMATI,MICRO,MACRO=',4I5/50(2H !)//)             00022280
+      IF(INP(3).GT.0) GO TO 10                                          00022290
+C---- SCRITTURA DEL RECORD CREATO NEL CASO NON SI STIA AGGIUNGENDO      00022300
+C---- AD UN TAPE ANISN A GRUPPI PREESISTENTE.                           00022310
+      WRITE(NOUTAN) ((MATISA(K,J),K=1,IHM),J=1,NMINB)                   00022320
+      IF(INP(4).LT.5) GOTO 30                                           00022330
+      DO 55 J=1,NMINB                                                   00022340
+  55  WRITE(NO,120) I, (MATISA(K,J),K=1,IHM)                            00022350
+  30  CONTINUE                                                          00022360
+      GO TO 11                                                          00022370
+ 10   CONTINUE                                                          00022380
+      KK=INP(3)*IHM                                                     00022390
+C---- CASO DI AGGIUNTA A TAPE PREESISTENTE NAGGAN.                      00022400
+C---- LETTURA RECORD DEL GRUPPO CORRENTE DEL TAPE DA AGGIUNGERE.        00022410
+      READ(NAGGAN) (AGGISA(JJ),JJ=1,KK)                                 00022420
+C---- SCRITTURA GRUPPO CORRENTE SUL TAPE AGGIORNATO.                    00022430
+      WRITE(NOUTAN) (AGGISA(JJ),JJ=1,KK),((MATISA(K,J),K=1,IHM),J=1,NMIN00022440
+     1B)                                                                00022450
+      IF(INP(4).LT.5) GO TO 20                                          00022460
+      WRITE(NO,120) I, (AGGISA(JJ),JJ=1,KK)                             00022470
+      DO 50 J=1,NMINB                                                   00022480
+  50  WRITE(NO,120) I,(MATISA(K,J),K=1,IHM)                             00022490
+ 20   CONTINUE                                                          00022500
+   11 CONTINUE                                                          00022510
+ 120  FORMAT(//' RECORD ',I4,' DI NOUTAN'/(1H ,10E13.6))                00022520
+    1 CONTINUE                                                          00022530
+C---- ********** FINE LOOP SUI GRUPPI.                                  00022540
+      REWIND NOUTAN                                                     00022550
+      IF(INP(3).EQ.0) GO TO 12                                          00022560
+        WRITE(11,13) INP(3),NMINB                                       00022570
+      WRITE(NO,13) INP(3),NMINB                                         00022580
+   13 FORMAT(//' SONO STATI SCRITTI SU NASTRO DI OUTPUT ',I4,' ISOTOPI  00022590
+     1GIA''  ESISTENTI + ',I4,' NUOVI ISOTOPI'/)                        00022600
+      REWIND NAGGAN                                                     00022610
+      GO TO 15                                                          00022620
+   12 CONTINUE                                                          00022630
+        WRITE(11,14) NMINB                                              00022640
+      WRITE(NO,14) NMINB                                                00022650
+   14 FORMAT(//' SONO STATI SCRITTI SU NASTRO DI OUTPUT ',I4,' ISOTOPI' 00022660
+     1/)                                                                00022670
+ 15   CONTINUE                                                          00022680
+C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++                    00022690
+      CALL TTIME(NORA)                                                  00022700
+      WRITE(11,997) NORA                                                00022710
+ 997  FORMAT('  FINE CALSCR, ORA: ',I10)                                00022720
+C                                                                       00022730
+C               FINE CALSCR                                             00022740
+C                FINE PROGRAMMA                                         00022750
+       RETURN                                                           00022760
+       END                                                              00022770
+C**** *************** VARIANTE DEL 17-9-84 ******NUM 1- 16              00022780
+       SUBROUTINE POSIZ(NT,NR,N99)                                      00022790
+       COMMON /NTP/NI,NO,NP                                             00022800
+C---- ----------- QUESTA SUBROUTINE POSIZIONA IL TAPE NT AL             00022810
+C---- RECORD NUMERO NR. IL TAPE E ORA AL RECORD N99                     00022820
+       N1=NR-N99                                                        00022830
+       IF(N1) 100,200,300                                               00022840
+ 200   RETURN                                                           00022850
+ 100   REWIND NT                                                        00022860
+       N99=1                                                            00022870
+       N1=NR-N99                                                        00022880
+ 300   CONTINUE                                                         00022890
+       IF(N1.LE.0) RETURN                                               00022900
+       DO 10 I=1,N1                                                     00022910
+       READ(NT,END=500)                                                 00022920
+       N99=N99+1                                                        00022930
+ 10    CONTINUE                                                         00022940
+       RETURN                                                           00022950
+ 500   CONTINUE                                                         00022960
+       N99=N99+1                                                        00022970
+       WRITE(NO,1000) NT,N99                                            00022980
+       WRITE(NP,1000) NT,N99                                            00022990
+ 1000  FORMAT(' WARNING, END OF FILE ENCOUNTERED ON TAPE:',I5,          00023000
+     1' RECORD POSITION:',I10,' REQUESTED RECORD:',I10)                 00023010
+       RETURN                                                           00023020
+       END                                                              00023030

diff --git a/micro/README.md b/micro/README.md
new file mode 100644 (file)
index 0000000..031bbd4
--- /dev/null
+++ b/micro/README.md
@@ -0,0 +1,14 @@
+Micro
+-----
+
+M.Galli, then student of Physics at the Bologna University,
+wrote this code for his thesis, between 1976 and 1977; 
+it was used for the interpretation of cross section measurements
+performed in Bologna, in the RB2 experimental reactor, at
+[Montecuccolino](https://www.bibliotecasalaborsa.it/cronologia/bologna/1963/1136)
+and was run on a 3090 IBM computer, at the CNEN research center in
+Bologna. 
+
+
+We have here the source code and a little assembler program 
+(compiled for IBM 3090) used to allocate memory for a big array.

diff --git a/micro/codmeta.json b/micro/codmeta.json
new file mode 100644 (file)
index 0000000..c9c5823
--- /dev/null
+++ b/micro/codmeta.json
@@ -0,0 +1,29 @@
+{
+  "@context": "https://doi.org/10.5063/schema/codemeta-2.0",
+  "@type": "SoftwareSourceCode",
+  "name": "Micro",
+  "description": "Micro, a legacy FORTRAN code for cros section mesasurement interpretation, developed at CNEN by Marcello Galli, between 1976 and 1977"
+  "codeRepository": "http://coding.bologna.enea.it/gitrepo/oldfortrancodes.git",
+  "downloadUrl": "http://coding.bologna.enea.it/gitrepo/oldfortrancodes.git",  
+  "programmingLanguage": "FORTRAN",
+  "operatingSystem": "IBM 3090"
+  "license": "Public domain",
+  "dateCreated":"1987-12-01",
+  "developmentStatus": "Unsupported",
+  "creativeWorkStatus": "Legacy software"
+  "keywords": [
+    "nuclear reactors",
+    "cross sections",
+    "fortran",
+    "software",
+    "CNEN","Micro","RB2","Montecuccolino",
+  ],  
+  "author": [
+    {
+      "@type": "Person",
+      "givenName": "Marcello",
+      "familyName": "Galli",
+      "email": "marcello.galli@enea.it",
+    },
+  ]
+}

diff --git a/micro/micro3 b/micro/micro3
new file mode 100644 (file)
index 0000000..8952d49
--- /dev/null
+++ b/micro/micro3
@@ -0,0 +1,1363 @@
+C                                                                       00000010
+C               P R O G R A M M A      M  I  C  R  O                    00000020
+C     EFFETTUA: CALCOLO REATTIVITA DEL CAMPIONE A REATTIVITA NULLA      00000030
+C     COL FORMALISMO DI OLDEKOP,CON INPUT DAI CODICI ALCI E CITATION    00000040
+C     E CALCOLI PER  LA INTERPRETAZIONE DELLE MISURE DI                 00000050
+C     REACTIVITY-WORTHS                                                 00000060
+C                                                                       00000070
+C     AUTORE:  MARCELLO GALLI                                           00000080
+C     VERSIONE  DEL :     20-10-1977                                    00000090
+C                                                                       00000100
+C      AGGIUNTE E VARIANTI:                                             00000110
+C             16-2-1979    AGGIUNTA SUBROUTINE SUBR PER LETTURA         00000120
+C                         TAPES TIPO DOT    (GALLI)                     00000130
+C              5-4-1980    CAMBIATO FORMATO 703 DI CITIN (GALLI)        00000140
+C                                                                       00000150
+C             4-7-1982   MODIFICATA SUBROUTINE VOL PER LAVORARE IN      00000160
+C                        GEOMETRIA CILINDRICA                           00000170
+C                        INSERITA POSSIBILITA DI LEGGERE CAMPIONE       00000180
+C                        NON AL CENTRO DEL REATTORE (SUBROUTINE SUB )   00000190
+C                            ( GALLI )                                  00000200
+C                                                                       00000210
+C                                                                       00000220
+C                                                                       00000230
+      IMPLICIT REAL*8(A-H,O-Z)                                          00000240
+      DIMENSION A(1)                                                    00000250
+      COMMON/GEN/NGRP,INPT,I1,I2,J1,J2,K1,K2                            00000260
+      COMMON/TITL/TITOLO(20)                                            00000270
+      REAL*4 TITOLO                                                     00000280
+      WRITE(6,701)                                                      00000290
+ 701  FORMAT('1 FLUSSO  SUBR.MAIN')                                     00000300
+  600 READ(5,100,END=500)TITOLO                                         00000310
+  100 FORMAT(20A4)                                                      00000320
+      WRITE(6,101)TITOLO                                                00000330
+  101 FORMAT(1H0,11X,20A4)                                              00000340
+      READ(5,102)NGRP,INPT,I1,I2,J1,J2,K1,K2                            00000350
+C     FISSATI ALCUNI PARAMETRI DI INPUT                                 00000360
+C     I1=0                                                              00000370
+C     J1=0                                                              00000380
+      K1=0                                                              00000390
+       K2=1                                                             00000400
+      NV=NGRP                                                           00000410
+  102 FORMAT(20I4)                                                      00000420
+      WRITE(6,103)NGRP,INPT,I1,I2,J1,J2,K1,K2                           00000430
+  103 FORMAT(5X,8I4,53X,'GRUPPI,INPUT,MESH(CITATION)'/80X,'INPUT=1=ALCI,00000440
+     1INPUT=2=CIT,INPUT=3=COFRT')                                       00000450
+C     DIMENSIONI MATRICI                                                00000460
+      MF=5                                                              00000470
+      MFF=4                                                             00000480
+      MS=5                                                              00000490
+      NV3=NV+3                                                          00000500
+      GOTO(1,2,2,2),INPT                                                00000510
+   1  MFLP=1                                                            00000520
+      I21=1                                                             00000530
+      J21=1                                                             00000540
+      K21=1                                                             00000550
+      I22=1                                                             00000560
+      J22=1                                                             00000570
+      K22=1                                                             00000580
+      GO TO 1003                                                        00000590
+    2 CONTINUE                                                          00000600
+      MFLP=4                                                            00000610
+      I21=I2-I1                                                         00000620
+      J21=J2-J1                                                         00000630
+      K21=K2-K1                                                         00000640
+      I22=I21+1                                                         00000650
+      J22=J21+1                                                         00000660
+      K22=K21+1                                                         00000670
+      IF(INPT.NE.3)GO TO 1003                                           00000680
+      NV3=NV                                                            00000690
+      MFF=2                                                             00000700
+      MFLP=2                                                            00000710
+ 1003 MMFLP=MFLP*NGRP*I21*J21*K21                                       00000720
+ 1002 NWORDS=NV3+NGRP*NGRP+MS*NGRP+MF*NGRP+MFF*NGRP*NGRP+MMFLP+I22+J22+K00000730
+     122                                                                00000740
+      CALLGET$(8*(NWORDS+1),A(1),ISENT,LU)                              00000750
+      IF(ISENT.EQ.0)GO TO 2000                                          00000760
+      WRITE(6,1999)                                                     00000770
+ 1999 FORMAT(' AUMENTA LA REGIONE DEL JOB ')                            00000780
+      STOP                                                              00000790
+ 2000 CONTINUE                                                          00000800
+      LA=(LU+6)/8+1                                                     00000810
+      LSS=LA+NV3                                                        00000820
+      LS=LSS+NGRP*NGRP                                                  00000830
+      LF=LS+MS*NGRP                                                     00000840
+      LFF=LF+MF*NGRP                                                    00000850
+      LFLP=LFF+MFF*NGRP*NGRP                                            00000860
+      LM1=LFLP+MMFLP                                                    00000870
+      LM2=LM1+I22                                                       00000880
+      LM3=LM2+J22                                                       00000890
+      GOTO(10,20,30,40),INPT                                            00000900
+ 10   CALL ALCIN(A(LA),A(LSS),A(LS),A(LF),A(LFF),A(LFLP),A(LM1),A(LM2),A00000910
+     1(LM3),NV,NV3,I21,J21,K21,I22,J22,K22,MS,MF,MFF,MFLP)              00000920
+      GO TO 600                                                         00000930
+ 20   CALL CITIN(A(LA),A(LSS),A(LS),A(LF),A(LFF),A(LFLP),A(LM1),A(LM2),A00000940
+     1(LM3),NV,NV3,I21,J21,K21,I22,J22,K22,MS,MF,MFF,MFLP)              00000950
+      GO TO 600                                                         00000960
+ 30   CALL COFRTP(A(LA),A(LSS),A(LS),A(LF),A(LFF),A(LFLP),A(LM1),A(LM2),00000970
+     1A(LM3),NV,NV3,I21,J21,K21,I22,J22,K22,MS,MF,MFF,MFLP)             00000980
+      GO TO 600                                                         00000990
+ 40   CALL CHIAMA(A(LA),A(LSS),A(LS),A(LF),A(LFF),A(LFLP),A(LM1),A(LM2),00001000
+     1A(LM3),NV,NV3,I21,J21,K21,I22,J22,K22,MS,MF,MFF,MFLP)             00001010
+      GO TO 600                                                         00001020
+  500 STOP                                                              00001030
+      END                                                               00001040
+      SUBROUTINE CHIAMA(AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I11,J00001050
+     111,K11,I22,J22,K22,MS,MF,MFF,MFLP)                                00001060
+      IMPLICIT REAL*8(A-H,O-Z)                                          00001070
+      REAL*8 MESH1,MESH2,MESH3                                          00001080
+      DIMENSION AUS(NV3),SS(NV,NV),S(NV,MS),F(NV,MF),FF(NV,NV,MFF),FLP(I00001090
+     111,J11,K11,NV,MFLP),MESH1(I22),MESH2(J22),MESH3(K22)              00001100
+      COMMON/GEN/NGEN(8)                                                00001110
+      COMMON/TAPF/NTPF(4,5)                                             00001120
+      COMMON/DAT/RHO,DR,DQ                                              00001130
+      COMMON/RESLT/RST(19)                                              00001140
+      COMMON/TITL/TITOL(20)                                             00001150
+      COMMON/MEDIE/A(14)                                                00001160
+      DIMENSION NPK(6),PK(4)                                            00001170
+      REAL*4 TITOL,TITOLO(20)                                           00001180
+      REAL*8 LGF$,LGS$,LGSM$,MED$,INDIC$,MEDIE$                         00001190
+      DATA FINE$,DAT$,CITIN$,ALCIN$,LGF$,LGS$,LGSM$,FLS$,VOL$,FLCRX$,OUT00001200
+     1PT$,CALC$,MED$,INDIC$,COFRT$,CFRTP$,TITL$,TAPF$,RESLT$,TITOT$,GEN$00001210
+     2,MEDIE$,SUBR$/'FINE    ','RHO DRDQ','CITIN   ','ALCIN   ','LEGGEF 00001220
+     3 ','LEGGES  ','LEGGSM  ','FLUSSO  ','VOL     ','FLCRX   ','OUTPUT 00001230
+     4 ','CALC    ','MED     ','INDIC   ','COFRT   ','COFRTP  ','TITL   00001240
+     5 ','TAPF    ','RESLT   ','TITOLO  ','GEN     ','MEDIE   ','SUBROUT00001250
+     6 '/                                                               00001260
+      DATA REWIN$/'REWIND  '/                                           00001270
+      DATA SKIP$/'SKIP    '/                                            00001280
+      DATA STOP$/'STOP    '/                                            00001290
+      WRITE(6,701) NV,NV3,I11,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP        00001300
+ 701  FORMAT(' FLUSSO SUBR.CHIAMA,PARAMETRI=',20I4)                     00001310
+  500 READ(5,100,END=501) FUNZ,NPK,PK                                   00001320
+  100 FORMAT(1A8,6I4,4E12.8)                                            00001330
+      WRITE(6,200) FUNZ,NPK,PK                                          00001340
+  200 FORMAT(5X,1A8,6I4,4E12.5,5X,'COMANDO E SUOI PARAMETRI')           00001350
+         IF(FUNZ.EQ.FINE$)RETURN                                        00001360
+         IF(FUNZ.EQ.DAT$)GO TO 10                                       00001370
+      IF(FUNZ.EQ.CITIN$)GO TO 11                                        00001380
+      IF(FUNZ.EQ.ALCIN$)GO TO 12                                        00001390
+      IF(FUNZ.EQ.LGF$)  GO TO 13                                        00001400
+      IF(FUNZ.EQ.LGS$)  GO TO 14                                        00001410
+      IF(FUNZ.EQ.LGSM$)GO TO 15                                         00001420
+      IF(FUNZ.EQ.FLS$)  GO TO 16                                        00001430
+      IF(FUNZ.EQ.VOL$)  GO TO 17                                        00001440
+      IF(FUNZ.EQ.FLCRX$)GO TO 18                                        00001450
+      IF(FUNZ.EQ.OUTPT$)GO TO 19                                        00001460
+      IF(FUNZ.EQ.CALC$)GO TO 20                                         00001470
+      IF(FUNZ.EQ.MED$)  GO TO 21                                        00001480
+      IF(FUNZ.EQ.INDIC$)GO TO 22                                        00001490
+      IF(FUNZ.EQ.COFRT$)GO TO 23                                        00001500
+      IF(FUNZ.EQ.CFRTP$)GO TO 24                                        00001510
+      IF(FUNZ.EQ.TITL$) GO TO 25                                        00001520
+      IF(FUNZ.EQ.TAPF$) GO TO 26                                        00001530
+      IF(FUNZ.EQ.RESLT$)GO TO 27                                        00001540
+      IF(FUNZ.EQ.TITOT$)GO TO 28                                        00001550
+      IF(FUNZ.EQ.GEN$)  GO TO 29                                        00001560
+      IF(FUNZ.EQ.MEDIE$)GO TO 30                                        00001570
+      IF(FUNZ.EQ.SUBR$)GOTO31                                           00001580
+      IF(FUNZ.EQ.SKIP$) GOTO32                                          00001590
+      IF(FUNZ.EQ.REWIN$) GOTO 33                                        00001600
+      IF(FUNZ.EQ.STOP$) STOP                                            00001610
+      WRITE(6,201)                                                      00001620
+  201 FORMAT('0******ERRORE*** COMANDO NON CONTEMPLATO*******'/)        00001630
+      GOTO 500                                                          00001640
+  501 STOP                                                              00001650
+   10 RHO=PK(1)                                                         00001660
+      DR=PK(2)                                                          00001670
+      DQ=PK(3)                                                          00001680
+      GO TO 500                                                         00001690
+   11 CALL CITIN(AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I11,J11,K11,00001700
+     1I22,J22,K22,MS,MF,MFF,MFLP)                                       00001710
+      GOTO 500                                                          00001720
+   12 CALL ALCIN(AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I11,J11,K11,00001730
+     1I22,J22,K22,MS,MF,MFF,MFLP)                                       00001740
+      GOTO 500                                                          00001750
+   13 CALL  LEGGEF(NPK(1),NPK(2),NPK(3),PK(1),F,FF,NV,MF,MFF)           00001760
+      GOTO 500                                                          00001770
+   14 CALL LEGGES(NPK(1),PK(1),AUS,SS,S,MESH1,MESH2,MESH3,NV,NV3,MS,I22,00001780
+     1J22,K22)                                                          00001790
+      GOTO 500                                                          00001800
+   15 CALL LEGGSM(NPK(1),NPK(2),NPK(3),SS,S,NV,MS,2*NV)                 00001810
+      GOTO 500                                                          00001820
+   16 CALL FLUSSO(NPK(1),NPK(2),FLP,I11,J11,K11,NV,MFLP)                00001830
+      GOTO 500                                                          00001840
+   17 V=VOL(NPK(1),NPK(2),NPK(3),MESH1,MESH2,MESH3,I22,J22,K22)         00001850
+      WRITE(6,202)V                                                     00001860
+  202 FORMAT('0 VOLUME=',E20.8)                                         00001870
+      GOTO500                                                           00001880
+   18 CALL FLCRX(NPK(1),NPK(2),NPK(3),NPK(4),NPK(5),NPK(6),F,FF,MESH1,ME00001890
+     1SH2,MESH3,FLP,NV,I11,J11,K11,I22,J22,K22,MF,MFF,MFLP)             00001900
+      GOTO 500                                                          00001910
+   19 CALL OUTPT(NPK(1),NPK(2),PK(1),PK(2),AUS,SS,S,F,FF,FLP,MESH1,MESH200001920
+     1,MESH3,NV,NV3,I11,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP)             00001930
+      GOTO 500                                                          00001940
+   20 CALL CALC(NPK(1),PK(1),PK(2),SS,S,F,FF,NV,MS,MF,MFF)              00001950
+      GOTO 500                                                          00001960
+   21 CALL MED(NPK(1),NPK(2),NPK(3),NPK(4),NPK(5),NPK(6),SS,S,F,FF,NV,MS00001970
+     1,MF,MFF)                                                          00001980
+      GOTO 500                                                          00001990
+ 22   CALL INDIC(NPK(1),AUS,SS,S,F,FF,NV,NV3,MS,MF,MFF)                 00002000
+      GOTO 500                                                          00002010
+   23 CALL COFRT(AUS,SS,S,F,FF,NV,NV3,MS,MF,MFF)                        00002020
+      GOTO 500                                                          00002030
+   24 CALL COFRTP(AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I11,J11,K1100002040
+     1,I22,J22,K22,MS,MF,MFF,MFLP)                                      00002050
+      GOTO 500                                                          00002060
+   25 READ(5,103)TITOL                                                  00002070
+  103 FORMAT(20A4)                                                      00002080
+      WRITE(6,203)TITOL                                                 00002090
+  203 FORMAT(5X,20A4,5X,'CONTENUTI DEL COMMON TITL')                    00002100
+      GO TO 500                                                         00002110
+   26 READ(5,104)NTPF                                                   00002120
+  104 FORMAT(4I4)                                                       00002130
+      WRITE(6,204)NTPF                                                  00002140
+  204 FORMAT(5X,4I4,64X,5X,'NUOVE SPECIFICHE TAPES')                    00002150
+      GOTO 500                                                          00002160
+   27 N=NPK(1)                                                          00002170
+      M=NPK(2)                                                          00002180
+      J=NPK(3)                                                          00002190
+      IF(J.LE.0) J=1                                                    00002200
+      READ(5,105) (RST(I),I=N,M,J)                                      00002210
+  105 FORMAT(E12.8)                                                     00002220
+      WRITE(6,206)(RST(I),I=N,M,J)                                      00002230
+  206 FORMAT(5X,E12.5,77X,'RISULTATO(I),I=N,M,J')                       00002240
+      WRITE(6,207)N,M,J                                                 00002250
+  207 FORMAT(90X,'N=',I4,'M=',I4,'J=',I4)                               00002260
+      GOTO 500                                                          00002270
+   28 READ(5,103) TITOLO                                                00002280
+      WRITE(6,103)TITOLO                                                00002290
+      GO TO 500                                                         00002300
+   29 DO6I=1,6                                                          00002310
+    6 NGEN(I)=NPK(I)                                                    00002320
+      NGEN(7)=PK(1)                                                     00002330
+      NGEN(8)=PK(2)                                                     00002340
+      GOTO 500                                                          00002350
+   30 N=NPK(1)                                                          00002360
+      M=NPK(2)                                                          00002370
+      L=NPK(3)                                                          00002380
+      IF(L.LE.0) L=1                                                    00002390
+      READ(5,108)(A(I),I=N,M,L)                                         00002400
+  108 FORMAT(6E12.8)                                                    00002410
+      WRITE(6,106)N,M,L                                                 00002420
+      WRITE(6,208)(A(I),I=N,M,L)                                        00002430
+ 106  FORMAT(90X,'A(I),I=',I4,',',I4,',',I4)                            00002440
+  208 FORMAT(5X,6E12.5,13X,'CONTENUTO DEL COMMON MEDIE')                00002450
+      GOTO 500                                                          00002460
+   31 CALL SUBR(NPK,PK,AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I11,J100002470
+     11,K11,I22,J22,K22,MS,MF,MFF,MFLP)                                 00002480
+      GOTO500                                                           00002490
+ 32   NTP=NPK(1)                                                        00002500
+      N1=NPK(2)                                                         00002510
+      DO 7 I=1,N1                                                       00002520
+ 7    READ(NTP)                                                         00002530
+      GOTO500                                                           00002540
+ 33      CONTINUE                                                       00002550
+      IF(NPK(1).LE.0) GOTO 500                                          00002560
+      NTP=NPK(1)                                                        00002570
+      REWIND NTP                                                        00002580
+      GOTO 500                                                          00002590
+      END                                                               00002600
+      SUBROUTINE OUTPT(N,M,DR,DQ,AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,00002610
+     1NV3,I21,J21,K21,I22,J22,K22,MS,MF,MFF,MFLP)                       00002620
+      IMPLICITREAL*8(A-H,O-Z)                                           00002630
+      REAL*8MESH1,MESH2,MESH3                                           00002640
+      REAL*4 TITOLO                                                     00002650
+      DIMENSION AUS(NV3),SS(NV,NV),S(NV,MS),F(NV,MF),FF(NV,NV,MFF),FLP(I00002660
+     121,J21,K21,NV,MFLP),MESH1(I22),MESH2(J22),MESH3(K22)              00002670
+      COMMON/GEN/NGRP,INPT,I1,I2,J1,J2,K1,K2                            00002680
+      COMMON/TITL/TITOLO(20)                                            00002690
+      COMMON/RESLT/RI,RINK,H,Z,C,ER,AK,AKI,AKP,AKIP,E1,F1,AR,BR,AA,BB,RH00002700
+     1O,FNORM,FNMAG                                                     00002710
+      COMMON/TAPF/NTPF(4,5)                                             00002720
+      COMMON/DAT/RHHO,DDR,DDQ                                           00002730
+      COMMON/RESL1/SH,CH,ERH,RIN,CCC,E1R,F1R,RHOR                       00002740
+      N1=M                                                              00002750
+      WRITE(6,701) N,M,NV,NV3,I21,J21,K21,I22,J22,K22,MS,MF,MFF,MFLP    00002760
+ 701  FORMAT(' FLUSSO SUBR.OUTPT,PARAMETRI=',20I4)                      00002770
+      GO TO(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15),N                      00002780
+    1 WRITE(6,201)TITOLO                                                00002790
+  201 FORMAT(1H1,20X,20A4)                                              00002800
+      WRITE(6,110)DDR,DDQ,RHHO                                          00002810
+  110 FORMAT(/////' DR=INTEGRALE(F*F+ *X*NUSFISS)/K=',E15.5/' DQ=INTEGRA00002820
+     1LE(F INF*F+ INF*X*NUSFISS)/K=',E15.5/' RHO SPERIMENTALE=',E15.5)  00002830
+      N1=N1-1                                                           00002840
+      IF(N1.LE.0)RETURN                                                 00002850
+    2 CONTINUE                                                          00002860
+      WRITE(6,111)(F(I,5),I=1,NGRP)                                     00002870
+ 111  FORMAT('0    GRAD FLUSSI(I)*GRAD FLUSSI AGG(I)'/(7E15.5))         00002880
+      N1=N1-1                                                           00002890
+      IF(N1.LE.0) RETURN                                                00002900
+    3 CONTINUE                                                          00002910
+      WRITE(6,106)                                                      00002920
+ 106  FORMAT('0 FLUSSI INTEGRALI NEL CAMPIONE')                         00002930
+      WRITE(6,107)(F(I,1),I=1,NGRP)                                     00002940
+  107 FORMAT(1H ,7E15.5)                                                00002950
+      N1=N1-1                                                           00002960
+      IF(N1.LE.0)RETURN                                                 00002970
+    4 CONTINUE                                                          00002980
+   54 WRITE(6,112)  FNORM                                               00002990
+ 112  FORMAT('0 FLUSSI INTEGRALI DEL MEZZO INFINITO NORMALIZZATI',10X,'F00003000
+     1ATTORE NORM=',E15.5)                                              00003010
+      WRITE(6,107)(F(I,3),I=1,NGRP)                                     00003020
+      N1=N1-1                                                           00003030
+      IF(N1.LE.0)RETURN                                                 00003040
+    5 CONTINUE                                                          00003050
+      WRITE(6,141)                                                      00003060
+ 141  FORMAT(///'    FLUSSI AGGIUNTI  CAMPIONE')                        00003070
+      WRITE(6,107)(F(I,2),I=1,NGRP)                                     00003080
+      N1=N1-1                                                           00003090
+      IF(N1.LE.0)RETURN                                                 00003100
+    6 CONTINUE                                                          00003110
+      WRITE(6,142)FNMAG                                                 00003120
+ 142  FORMAT(///' FLUSSI AGGIUNTI DEL MEZZO INFINITO NORMALIZZATI',10X,'00003130
+     1 FATTORE NORM=',E15.5)                                            00003140
+      WRITE(6,107)(F(I,4),I=1,NGRP)                                     00003150
+      N1=N1-1                                                           00003160
+      IF(N1.LE.0)RETURN                                                 00003170
+    7 CONTINUE                                                          00003180
+      WRITE(6,104)                                                      00003190
+ 104  FORMAT(//' FLUSSI(I)*FLUSSI AGG(J) CAMPIONE NEL REATTORE'/' I-----00003200
+     1------  J')                                                       00003210
+      DO 333 I=1,NGRP                                                   00003220
+  333 WRITE(6,103)I,(FF(J,I,1),J=1,NGRP)                                00003230
+      N1=N1-1                                                           00003240
+      IF(N1.LE.0)RETURN                                                 00003250
+    8 CONTINUE                                                          00003260
+      WRITE(6,105)                                                      00003270
+ 105  FORMAT(//' FLUSSI(I)* FLUSSI AGG(J) MEZZO INFINITO'/'   I         00003280
+     1---------- J')                                                    00003290
+      DO444 I=1,NGRP                                                    00003300
+  444 WRITE(6,103)I,(FF(J,I,4),J=1,NGRP)                                00003310
+      N1=N1-1                                                           00003320
+      IF(N1.LE.0)RETURN                                                 00003330
+    9 CONTINUE                                                          00003340
+  103 FORMAT(1H ,I5,(9X,7E15.5))                                        00003350
+      WRITE(6,129)I1,I2,J1,J2                                           00003360
+ 129  FORMAT(///'                       MESH RADIALI DA',I4,'  A  ',I4/'00003370
+     1                       MESH ASSIALI DA ',I4,' A ',I4)             00003380
+      WRITE(6,130)MESH1                                                 00003390
+      WRITE(6,131)MESH2                                                 00003400
+ 131  FORMAT('                 MESH ASSIALI ',6E12.4)                   00003410
+ 130  FORMAT('                 MESH RADIALI  ',6E12.4)                  00003420
+      N1=N1-1                                                           00003430
+      IF(N1.LE.0) RETURN                                                00003440
+   10 CONTINUE                                                          00003450
+      WRITE(6,126)NTPF                                                  00003460
+ 126  FORMAT(//' SPECIFICHE NASTRI  IMAX  JMAX  KMAX   TAPE      '/18X,400003470
+     1I6,' FLUSSI CAMPIONE'/18X,4I6,' FLUSSI AGGIUNTI CAMPIONE'/18X,4I6,00003480
+     2' FLUSSI MEZZO INFINITO'/18X,4I6,' FLUSSI AGGIUNTI MEZZO INFINITO'00003490
+     3/18X,4I6,' FLUSSI AGGIUNTI PERTURBATI')                           00003500
+      N1=N1-1                                                           00003510
+      IF(N1.LE.0)RETURN                                                 00003520
+   11 CONTINUE                                                          00003530
+      WRITE(6,120)                                                      00003540
+ 120  FORMAT('1',40X,' RISULTATI'//30X,' MICRO CALCOLO PERTURBATIVO DI O00003550
+     1LDEKOP')                                                          00003560
+      WRITE(6,139)TITOLO                                                00003570
+  139 FORMAT(//30X,20A4//)                                              00003580
+      WRITE(6,140) H                                                    00003590
+      WRITE(6,220)SH                                                    00003600
+      WRITE(6,320)CH                                                    00003610
+      WRITE(6,420)ERH                                                   00003620
+      WRITE(6,520)RIN                                                   00003630
+      WRITE(6,620)RINK                                                  00003640
+      WRITE(6,121)AK,AKI                                                00003650
+      WRITE(6,136) AKP,AKIP                                             00003660
+      WRITE(6,920) E1R                                                  00003670
+      WRITE(6,921) F1R                                                  00003680
+      WRITE(6,922)CCC                                                   00003690
+      WRITE(6,820)RHOR                                                  00003700
+ 140  FORMAT(///' DENOMINATORE H      =',E20.6)                         00003710
+ 220  FORMAT(///' TERMINE DISADATTAMENTO SPETTRALE=(PCM)  ',E20.6)      00003720
+ 320  FORMAT(//' TERMINE DI FUGHE (PCM)=',E20.6)                        00003730
+ 420  FORMAT(//' TERMINE REATTIVITA REATTORE (PCM)=',E20.6)             00003740
+ 520  FORMAT(///' RHO INF(PCM)= -1/H*(DS+F+ES)=',E20.6)                 00003750
+ 620  FORMAT(//' K INF=1/(1-RHO INF)=',E20.6)                           00003760
+ 121  FORMAT(///' (P/A)R=',E20.6/' (P/A)INFINITO=',E20.6//)             00003770
+ 136  FORMAT('  (K+)R=',E20.6/'   (K+)INFINITO=',E20.6)                 00003780
+ 920  FORMAT(/////' PROD/DR(PCM)=',E20.6)                               00003790
+ 921  FORMAT('  (SCATT IN-ASS-REM)/DR(PCM)=',E20.6)                     00003800
+ 922  FORMAT(' FUGHE/DR(PCM)=',E20.6)                                   00003810
+      WRITE(6,123)AR,BR,AA,BB                                           00003820
+      WRITE(6,124) FNORM,FNMAG                                          00003830
+      N1=N1-1                                                           00003840
+      IF(N1.LE.0) RETURN                                                00003850
+  123 FORMAT(//' PRODUZIONI REALI=',E20.6,'  ASSORBIMENTI=',E20.6/' PR  00003860
+     1ODUZIONI CASO INFINITO=',E20.6,'  ASSORBIMENTI CASO INFINITO=',E2 00003870
+     20.6)                                                              00003880
+  124 FORMAT(//' FATT NORM FLUSSI INFINITI=',E20.6/' FATT NORM FLUSSI  A00003890
+     1GGIUNTI INFINITI=',E20.6///)                                      00003900
+      N1=N1-1                                                           00003910
+      IF(N1.LE.0) RETURN                                                00003920
+ 820  FORMAT(//' RHO R=(KV-K)/K=-1/DR*(P+(S-A-R)+F) (PCM)=',E15.5)      00003930
+   12 CONTINUE                                                          00003940
+      WRITE(6,100)                                                      00003950
+  100 FORMAT(////' GRUPPO',10X,'DIFF',10X,'SIGMA A',10X,'NUSFISS',10X,'S00003960
+     1IGMA(A+R)',15X,'X')                                               00003970
+      DO1111 I=1,NGRP                                                   00003980
+ 1111 WRITE(6,101)I,(S(I,J),J=1,5)                                      00003990
+  101 FORMAT(I5,9X,5E15.5)                                              00004000
+      WRITE(6,102)                                                      00004010
+  102 FORMAT(//' MATRICE DI SCATTERING(J,I)'/'     DA J',7X,'-----------00004020
+     1-----  IN   I')                                                   00004030
+      DO22J=1,NGRP                                                      00004040
+   22 WRITE(6,103)J,(SS(J,I),I=1,NGRP)                                  00004050
+      N1=N1-1                                                           00004060
+      IF(N1.LE.0)RETURN                                                 00004070
+   13 WRITE(6,1000)(S(I,5),I=1,NGRP)                                    00004080
+ 1000  FORMAT(' X '/(7E15.5))                                           00004090
+      N1=N1-1                                                           00004100
+      IF(N1.LE.0) RETURN                                                00004110
+   14 CONTINUE                                                          00004120
+      WRITE(6,108)                                                      00004130
+ 108  FORMAT('0 FLUSSI INFINITI(I)*FLUSSI AGGIUNTI(J)'/'      I    -----00004140
+     1------------ J')                                                  00004150
+      DO99I=1,NGRP                                                      00004160
+   99 WRITE(6,103)I,(FF(J,I,3),J=1,NGRP)                                00004170
+      WRITE(6,109)                                                      00004180
+ 109  FORMAT('0 FLUSSI  AGGIUNTI INFINITI(J)*FLUSSI(I)'/'      I     ---00004190
+     1----------------J')                                               00004200
+      DO98I=1,NGRP                                                      00004210
+   98 WRITE(6,103)I,(FF(J,I,2),J=1,NGRP)                                00004220
+      N1=N1-1                                                           00004230
+      IF(N1.LE.0)RETURN                                                 00004240
+   15 CONTINUE                                                          00004250
+      WRITE(6,127)                                                      00004260
+ 127  FORMAT('0FLUSSI PUNTUALI(I,J),I=1,IMX),J=1,JMX)',60X,' MESH.ASS  G00004270
+     1RUPPO TAPE')                                                      00004280
+      DO200 NT=1,MFLP                                                   00004290
+      DO200 NG=1,NGRP                                                   00004300
+      DO200 J=1,J21                                                     00004310
+      WRITE(6,128)(FLP(I,J,1,NG,NT),I=1,I21)                            00004320
+      WRITE(6,203) J,NG,NT                                              00004330
+ 203  FORMAT(1H+,100X,3I4)                                              00004340
+ 200  CONTINUE                                                          00004350
+ 128  FORMAT(2H  ,7E14.7)                                               00004360
+      N1=N1-1                                                           00004370
+      IF(N1.LE.0) RETURN                                                00004380
+      RETURN                                                            00004390
+      END                                                               00004400
+      SUBROUTINE SUBR(N,P,AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I1100004410
+     1,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP)                              00004420
+      IMPLICIT REAL*8 (A-H,O-Z)                                         00004430
+      DIMENSION N(6),P(4),AUS(NV3),SS(NV,NV),S(NV,MS),F(NV,MF),FF(NV,NV,00004440
+     1MFF),FLP(I11,J11,K11,NV,MFLP,2),MESH1(I22),MESH2(J22),MESH3(K22)  00004450
+      REAL*8 MESH1,MESH2,MESH3                                          00004460
+      LOGICAL  LOG                                                      00004470
+      REAL *4 FLP                                                       00004480
+      REAL*4 BUTTO                                                      00004490
+      COMMON /TAPF/ NTPF(4,5)                                           00004500
+      COMMON /GEN/ NGRP,INPT,I1,I2,J1,J2,K1,K2                          00004510
+      WRITE (6,1000) NV,NV3,I11,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP      00004520
+ 1000 FORMAT('  FLUSSO SUBR.SUBR,  PARAMETRI: ',14I5)                   00004530
+      NTNOV=1                                                           00004540
+      LOG=.TRUE.                                                        00004550
+      K=1                                                               00004560
+      LI=I2-I1                                                          00004570
+      LJ=J2-J1                                                          00004580
+      DO 1 NT=1,5                                                       00004590
+      READ(5,100) (NTPF(I,NT),I=1,4)                                    00004600
+ 100  FORMAT(4I4)                                                       00004610
+      IF(NTPF(4,NT).LE.0) GOTO 50                                       00004620
+      M=NTPF(4,NT)                                                      00004630
+      IF(LOG) REWIND NTNOV                                              00004640
+      REWIND M                                                          00004650
+      LZ=LJ                                                             00004660
+      IF(NTPF(2,NT).LE.1) LZ=1                                          00004670
+      KLII=NTPF(1,NT)-I2                                                00004680
+      JIKJ=J1*NTPF(1,NT)                                                00004690
+      IF(KLII.LE.0)GOTO30                                               00004700
+      DO 3 NG=1,NGRP                                                    00004710
+          IF(I1.LE.0.AND.J1.LE.0)                                       00004720
+     1READ(M) (((FLP(I,J,K,NG,1,1),I=1,LI),(BUTTO,NAMM=1,KLII)),J=1,LZ) 00004730
+      IF(I1.LE.0.AND.J1.GT.0) READ(M) (BUTTO,NAMM=1,JIKJ),              00004740
+     1(((FLP(I,J,K,NG,1,1),I=1,LI),(BUTTO,NAMM=1,KLII)),J=1,LZ)         00004750
+      IF(I1.GT.0.AND.J1.LE.0) READ(M) (((BUTTO,NAMM=1,I1),(FLP(I,J,K,NG,00004760
+     11,1),I=1,LI),(BUTTO,NAMM=1,KLII)),J=1,LZ)                         00004770
+      IF(I1.GT.0.AND.J1.GT.0) READ(M) (BUTTO,NAMM=1,JIKJ),              00004780
+     1(((BUTTO,NAMM=1,I1),(FLP(I,J,K,NG,1,1),I=1,LI),(BUTTO,NAMM=1,KLII)00004790
+     2),J=1,LZ)                                                         00004800
+ 3    CONTINUE                                                          00004810
+C                                                                       00004820
+      GO TO 61                                                          00004830
+ 30   CONTINUE                                                          00004840
+      DO 4 NG=1,NGRP                                                    00004850
+        IF(I1.LE.0.AND.J1.LE.O)                                         00004860
+     1READ(M) ((FLP(I,J,K,NG,1,1),I=1,LI),J=1,LZ)                       00004870
+      IF(I1.LE.0.AND.J1.GT.0) READ(M) (BUTTO,NAMM=1,JIKJ),              00004880
+     1((FLP(I,J,K,NG,1,1),I=1,LI),J=1,LZ)                               00004890
+      IF(I1.GT.0.AND.J1.LE.0) READ(M) ((BUTTO,NAMM=1,I1),               00004900
+     1(FLP(I,J,K,NG,1,1),I=1,LI),J=1,LZ)                                00004910
+      IF(I1.GT.0.AND.J1.GT.0) READ(M) (BUTTO,NAMM=1,JIKJ),              00004920
+     1(((BUTTO,NAMM=1,I1),(FLP(I,J,K,NG,1,1),I=1,LI)),J=1,LZ)           00004930
+ 4    CONTINUE                                                          00004940
+C                                                                       00004950
+ 61   IF(LZ.EQ.LJ) GOTO 60                                              00004960
+      DO 5 I=1,NGRP                                                     00004970
+      DO 5 J=1,LI                                                       00004980
+      DO 5 KK=1,LJ                                                      00004990
+      FLP(J,KK,1,I,1,1)=FLP(J,1,1,I,1,1)                                00005000
+ 5    CONTINUE                                                          00005010
+ 60   CONTINUE                                                          00005020
+      IF(NT.NE.5) GOTO 88                                               00005030
+      NG1=NGRP+1                                                        00005040
+      DO 8 IMMM=1,NG1                                                   00005050
+  8   WRITE(NTNOV) ABUTTO                                               00005060
+  88  CONTINUE                                                          00005070
+      DO 7 NG=1,NGRP                                                    00005080
+      NGAG=NG                                                           00005090
+      IF((.NOT.LOG).OR.NT.EQ.5) NGAG=NGRP-NG+1                          00005100
+ 7    WRITE(NTNOV) (((FLP(I,J,K,NGAG,1,IU),IU=1,2),I=1,LI),J=1,LJ)      00005110
+      IF(LOG.AND.NT.NE.5) WRITE(NTNOV) ABUTTO                           00005120
+      NTPF(1,NT)=LI                                                     00005130
+      NTPF(2,NT)=LJ                                                     00005140
+      NTPF(3,NT)=K                                                      00005150
+      NTPF(4,NT)=NTNOV                                                  00005160
+      WRITE(6,200) (NTPF(I,NT),I=1,4),NTNOV                             00005170
+ 200  FORMAT(/5X,' TRASCRITTO IN DOPPIA PRECISIONE IL CAMPIONE DEL REATT00005180
+     1ORE DESCRITTO DALLA SCHEDA: ',4I4,' SULLA  UNIT:',I3)             00005190
+      IF(LOG) GOTO 40                                                   00005200
+      END FILE NTNOV                                                    00005210
+      NTNOV=NTNOV+1                                                     00005220
+ 40   LOG=.NOT.LOG                                                      00005230
+ 1    CONTINUE                                                          00005240
+ 50   IF(.NOT.LOG) END FILE NTNOV                                       00005250
+      RETURN                                                            00005260
+      END                                                               00005270
+      SUBROUTINE FLCRX(MM,NN,KF1,KF2,KF3,KF4,F,FF,MESH1,MESH2,MESH3,FLP,00005280
+     1NV,I21,J21,K21,I22,J22,K22,MF,MFF,MFLP)                           00005290
+      IMPLICIT REAL*8(A-H,O-Z)                                          00005300
+      REAL*8 MESH1,MESH2,MESH3                                          00005310
+      DIMENSION F(NV,MF),FF(NV,NV,MFF),MESH1(I22),MESH2(J22),MESH3(K22),00005320
+     1FLP(I21,J21,K21,NV,MFLP)                                          00005330
+      DIMENSION  KFS(4),KFD(2,4)                                        00005340
+      DATA KFS/1,2,3,4/                                                 00005350
+      DATA KFD/1,2,1,4,3,2,3,4/                                         00005360
+      COMMON/GEN/NGRP,INPT,I1,I2,J1,J2,K1,K2                            00005370
+      WRITE(6,701) MM,NN,KF1,KF2,KF3,KF4,NV,I21,J21,K21,I22,J22,K22,MF,M00005380
+     1FF,MFLP                                                           00005390
+ 701  FORMAT(' FLUSSO SUBR.FLCRX,PARAMETRI=',20I4)                      00005400
+      IF(MM.LE.0.OR.NN.LE.0.OR.KF1.LE.0) GO TO 10                       00005410
+      DO 3 I=MM,NN,KF1                                                  00005420
+      DO 3 NG=1,NGRP                                                    00005430
+    3 F(NG,I)=0.0D+1                                                    00005440
+ 10   CONTINUE                                                          00005450
+      IF(KF2.LE.0.OR.KF3.LE.0.OR.KF4.LE.0) GO TO 11                     00005460
+      DO 2 J=KF2,KF3,KF4                                                00005470
+      DO 2 NG=1,NGRP                                                    00005480
+      DO 2 NGG=1,NGRP                                                   00005490
+    2 FF(NG,NGG,J)=0.0D+1                                               00005500
+ 11   CONTINUE                                                          00005510
+      K11=K2-K1+1                                                       00005520
+      J11=J2-J1+1                                                       00005530
+      I11=I2-I1+1                                                       00005540
+      I2I1=I2-I1                                                        00005550
+      J2J1=J2-J1                                                        00005560
+      K2K1=K2-K1                                                        00005570
+      DO1 MK=1,K2K1                                                     00005580
+      MKV=MK+1                                                          00005590
+      DO1MJ=1,J2J1                                                      00005600
+      MKJ=MJ+1                                                          00005610
+      DO1MI=1,I2I1                                                      00005620
+      MKI=MI+1                                                          00005630
+      V=VOL(MKI,MKJ,MKV,MESH1,MESH2,MESH3,I22,J22,K22)                  00005640
+      IF(MM.LE.0.OR.NN.LE.0.OR.KF1.LE.0)  GO TO 12                      00005650
+      DO 4 NSMP=MM,NN,KF1                                               00005660
+      DO 4 MGF=1,NGRP                                                   00005670
+    4 F(MGF,NSMP)=F(MGF,NSMP)+FLP(MI,MJ,MK,MGF,KFS(NSMP))*V             00005680
+ 12   CONTINUE                                                          00005690
+      IF(KF2.LE.0.OR.KF3.LE.0.OR.KF4.LE.0) GO TO 13                     00005700
+      DO1MGF=1,NGRP                                                     00005710
+      DO 1 MGFA=1,NGRP                                                  00005720
+      DO 1 NDB=KF2,KF3,KF4                                              00005730
+      FF(MGFA,MGF,NDB)=FF(MGFA,MGF,NDB)+V*FLP(MI,MJ,MK,MGF,KFD(1,NDB))*F00005740
+     1LP(MI,MJ,MK,MGFA,KFD(2,NDB))                                      00005750
+ 13   CONTINUE                                                          00005760
+    1 CONTINUE                                                          00005770
+      RETURN                                                            00005780
+      END                                                               00005790
+      SUBROUTINE CALC(K,DR,DQ,SS,S,F,FF,NV,MS,MF,MFF)                   00005800
+      IMPLICIT REAL*8(A-H,O-Z)                                          00005810
+      DIMENSION SS(NV,NV),S(NV,MS),F(NV,MF),FF(NV,NV,MFF)               00005820
+      COMMON/GEN/NGRP,INPT,I1,I2,J1,J2,K1,K2                            00005830
+      COMMON/DAT/RHO                                                    00005840
+      COMMON/RESLT/RIN,RINK,H,Z,C,HER,AK,AKI,AKP,AKIP,E1R,F1R,AR,BR,AA,B00005850
+     1B,RHOR,FNORM,FNMAG                                                00005860
+      COMMON/RESL1/SHPCM,CHPCM,ERHPCM,RINPCM,CCDRPC,E1RPCD,F1RPCD,RHORPC00005870
+      WRITE(6,701) K,NV,MS,MF,MFF,DR,DQ                                 00005880
+ 701  FORMAT(' FLUSSO SUBR.CALC,PARAMETRI=',5I4,2E18.8)                 00005890
+      GOTO(2,2,4),K                                                     00005900
+    2 CONTINUE                                                          00005910
+      AR1=0.0D+1                                                        00005920
+      BR1=0.0D+1                                                        00005930
+      ER=0.0D+1                                                         00005940
+      FR=0.0D+1                                                         00005950
+      DO1000 I=1,NGRP                                                   00005960
+      AR1=AR1+S(I,3)*F(I,1)                                             00005970
+      BR1=BR1+S(I,2)*F(I,1)                                             00005980
+      DO 1000 J=1,NGRP                                                  00005990
+      DELT=0.0D+1                                                       00006000
+      IF(I.EQ.J)DELT=1.D+0                                              00006010
+      ER=ER+S(J,5)*S(I,3)*FF(J,I,1)                                     00006020
+      FR=FR+(SS(I,J)-DELT*S(J,4))*FF(J,I,1)                             00006030
+ 1000 CONTINUE                                                          00006040
+      IF(K.EQ.2) GOTO30                                                 00006050
+      AKP=-ER/FR                                                        00006060
+      AK=AR1/BR1                                                        00006070
+      IF(K.EQ.4) GOTO 30                                                00006080
+      RETURN                                                            00006090
+   30 CONTINUE                                                          00006100
+      E1R=ER                                                            00006110
+      F1R=FR                                                            00006120
+      E1RPCD=E1R/DR*1.D+5                                               00006130
+      F1RPCD=F1R/DR*1.D+5                                               00006140
+      AR=AR1                                                            00006150
+      BR=BR1                                                            00006160
+      RETURN                                                            00006170
+    4 CONTINUE                                                          00006180
+      E1=0.0D+1                                                         00006190
+      F1=0.0D+1                                                         00006200
+      C=0.0D+1                                                          00006210
+      A=0.0D+1                                                          00006220
+      AA=0.0D+1                                                         00006230
+      B=0.0D+1                                                          00006240
+      BB=0.0D+1                                                         00006250
+      FFF=0.0D+1                                                        00006260
+      EE=0.0D+1                                                         00006270
+      FZ=0.0D+1                                                         00006280
+      G=0.0D+1                                                          00006290
+      GG=0.0D+1                                                         00006300
+      GGG=0.0D+1                                                        00006310
+      DO1I=1,NGRP                                                       00006320
+      A=A+S(I,3)*F(I,1)                                                 00006330
+      B=B+S(I,2)*F(I,1)                                                 00006340
+      AA=AA+S(I,3)*F(I,3)                                               00006350
+      BB=BB+S(I,2)*F(I,3)                                               00006360
+      C=C+S(I,1)*F(I,5)                                                 00006370
+      DO1 J=1,NGRP                                                      00006380
+      DELT=0.0D+1                                                       00006390
+      IF(I.EQ.J)DELT=1.D+0                                              00006400
+      XSFN=S(J,5)*S(I,3)                                                00006410
+      STDSS=SS(I,J)-DELT*S(I,4)                                         00006420
+      E1=E1+XSFN*FF(J,I,1)                                              00006430
+      F1=F1+STDSS*FF(J,I,1)                                             00006440
+      EE=EE+XSFN*FF(J,I,4)                                              00006450
+      FZ=FZ+STDSS*FF(J,I,4)                                             00006460
+      FFF=FFF+XSFN*FF(J,I,3)                                            00006470
+      G=G+XSFN*FF(J,I,2)                                                00006480
+      XSFN=XSFN+STDSS                                                   00006490
+      GG=GG+XSFN*FF(J,I,3)                                              00006500
+      GGG=GGG+XSFN*FF(J,I,2)                                            00006510
+  1   CONTINUE                                                          00006520
+      AKIP=EE/(-FZ)                                                     00006530
+      AKI=AA/BB                                                         00006540
+      FNORM=AR/AA                                                       00006550
+      FNMAG=E1R/(EE*FNORM)                                              00006560
+      H=G*FNMAG+FFF*FNORM-EE*FNMAG*FNORM                                00006570
+      Z=-GGG*FNMAG-GG*FNORM+E1+F1+(EE+FZ)*FNORM*FNMAG                   00006580
+      HER=RHO*DR                                                        00006590
+      RIN=-(Z+C+HER)/H                                                  00006600
+      RINK=1/(1-RIN)                                                    00006610
+      RHOR=-(C+E1R+F1R)/DR                                              00006620
+      SHPCM=Z/H*1.D+5                                                   00006630
+      CHPCM=C/H*1.D+5                                                   00006640
+      ERHPCM=HER/H*1.D+5                                                00006650
+      RINPCM=RIN*1.D+5                                                  00006660
+      CCDRPC=C/DR*1.D+5                                                 00006670
+      RHORPC=RHOR*1.D+5                                                 00006680
+      RETURN                                                            00006690
+      END                                                               00006700
+      SUBROUTINE ALCIN(AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I11,J100006710
+     11,K11,I22,J22,K22,MS,MF,MFF,MFLP)                                 00006720
+      IMPLICITREAL*8(A-H,O-Z)                                           00006730
+      REAL*8MESH1,MESH2,MESH3                                           00006740
+      DIMENSION AUS(NV3),SS(NV,NV),S(NV,MS),F(NV,MF),FF(NV,NV,MFF),FLP(I00006750
+     111,J11,K11,NV,MFLP)                                               00006760
+      DIMENSION MESH1(I22),MESH2(J22),MESH3(K22)                        00006770
+      COMMON/RESLT/DUM(17),FNORM,FNMAG                                  00006780
+      COMMON/GEN/NGRP,INPT                                              00006790
+      COMMON/DAT/RHO,DDR,DDQ                                            00006800
+      WRITE(6,701) NV,NV3,I11,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP        00006810
+ 701  FORMAT('  FLUSSO SUBR.ALCIN,PARAMETRI=',20I4)                     00006820
+      READ(5,100)K,KFP                                                  00006830
+      WRITE(6,200)K,KFP                                                 00006840
+  100 FORMAT(20I4)                                                      00006850
+  200 FORMAT(5X,2I4,72X,5X,' OPZIONI')                                  00006860
+      READ(5,101)DR,DQ,RHO,COM,COM1                                     00006870
+      WRITE(6,201)DR,DQ,RHO,COM,COM1                                    00006880
+  101 FORMAT(6E12.5)                                                    00006890
+  201 FORMAT(5X,5E12.5,18X,5X,' DR,DQ,RHO,COMPLEMENT')                  00006900
+      DDR=DR                                                            00006910
+      DDQ=DQ                                                            00006920
+      CALL LEGGES(1,COM,AUS,SS,S,MESH1,MESH2,MESH3,NV,NV3,MS,I22,J22,K2200006930
+     1)                                                                 00006940
+      CALL LEGGEF(1,5,1,DR,F,FF,NV,MF,MFF)                              00006950
+      CALL LEGGEF(3,0,4,DQ,F,FF,NV,MF,MFF)                              00006960
+      IF(KFP.EQ.1) CALL LEGGEF(2,0,0,0.0D+1,F,FF,NV,MF,MFF)             00006970
+      DO 6 J=1,NGRP                                                     00006980
+      IF(KFP.EQ.1)GOTO20                                                00006990
+      F(J,2)=FF(J,J,1)/F(J,1)                                           00007000
+   20 CONTINUE                                                          00007010
+      F(J,4)=FF(J,J,4)/F(J,3)                                           00007020
+      DO 6 I=1,NGRP                                                     00007030
+      FF(J,I,2)=F(I,1)*F(J,4)                                           00007040
+    6 FF(J,I,3)=F(I,3)*F(J,2)                                           00007050
+      CALL CALC(4,DR,DQ,SS,S,F,FF,NV,MS,MF,MFF)                         00007060
+      IF(K.EQ.1)CALL LEGGES(1,COM1,AUS,SS,S,MESH1,MESH2,MESH3,NV,NV3,MS,00007070
+     1I22,J22,K22)                                                      00007080
+      CALL CALC(3,DR,DQ,SS,S,F,FF,NV,MS,MF,MFF)                         00007090
+      CALL LEGGEF(MF+1,4,0,FNMAG,F,FF,NV,MF,MFF)                        00007100
+      CALL LEGGEF(MF+1,3,0,FNORM,F,FF,NV,MF,MFF)                        00007110
+      CALL LEGGEF(MF+1,0,1,1.0D+0/DR,F,FF,NV,MF,MFF)                    00007120
+      CALL LEGGEF(MF+1,0,4,1.0D+0/DQ,F,FF,NV,MF,MFF)                    00007130
+      CALL OUTPT(1,6,DR,DQ,AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I100007140
+     11,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP)                             00007150
+      CALL OUTPT(11,1,DR,DQ,AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I00007160
+     111,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP)                            00007170
+      CALL INDIC(1,AUS,SS,S,F,FF,NV,NV3,MS,MF,MFF)                      00007180
+      RETURN                                                            00007190
+      END                                                               00007200
+      SUBROUTINE CITIN(AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I11,J100007210
+     11,K11,I22,J22,K22,MS,MF,MFF,MFLP)                                 00007220
+      IMPLICITREAL*8(A-H,O-Z)                                           00007230
+      REAL*8 MESH1,MESH2,MESH3                                          00007240
+      DIMENSION AUS(NV3),SS(NV),S(NV,MS),F(NV,MF),FF(NV,NV,MFF),FLP(I11,00007250
+     1J11,K11,NV,MFLP),MESH1(I22),MESH2(J22),MESH3(K22)                 00007260
+      COMMON/GEN/NGRP,INPT,I1,I2,J1,J2,K1,K2/TAPF/NTPF(4,5)/DAT/RHO,DR,D00007270
+     1Q                                                                 00007280
+      COMMON/RESLT/RIN,RINK,H,Z,C,ER,AK,AKI,AKP,AKIP,E1R,F1R,AR,BR,AA,BB00007290
+     1,RHOR,FNORM,FNMAG                                                 00007300
+      T=0.0                                                             00007310
+      WRITE(6,701) NV,NV3,I11,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP        00007320
+ 701  FORMAT(' FLUSSO SUBR.CITIN,PARAMETRI=',20I4)                      00007330
+      READ(5,100)K                                                      00007340
+  100 FORMAT(20I4)                                                      00007350
+      WRITE(6,200)K                                                     00007360
+  200 FORMAT(5X,I4,76X,5X,' OPZIONI')                                   00007370
+      READ(5,101)DR,DQ,RHO                                              00007380
+      WRITE(6,201)DR,DQ,RHO                                             00007390
+  101 FORMAT(6E12.5)                                                    00007400
+  201 FORMAT(5X,3E12.5,44X,5X,' DR,DQ,RHO')                             00007410
+      L=5                                                               00007420
+      IF(K.EQ.2.OR.K.EQ.3)L=4                                           00007430
+      READ(5,103)((NTPF(I,J),I=1,4),J=1,L)                              00007440
+  103 FORMAT(4I4)                                                       00007450
+      WRITE(6,205)((NTPF(I,J),I=1,4),J=1,L)                             00007460
+  205 FORMAT(5X,4I4,76X,5X,' DESCRIZIONE TAPES DEI FLUSSI')             00007470
+      CALL LEGGES(4,T,AUS,SS,S,MESH1,MESH2,MESH3,NV,NV3,MS,I22,J22,K22) 00007480
+      CALLLEGGEF(0,5,0,-DR,F,FF,NV,MF,MFF)                              00007490
+      WRITE(6,702)                                                      00007500
+ 702  FORMAT(//20X,' S E Z I O N I     D I    U R T O      Z O N A      00007510
+     1     V E L O C E'/)                                               00007520
+      CALL LEGGES(3,T,AUS,SS,S,MESH1,MESH2,MESH3,NV,NV3,MS,I22,J22,K22) 00007530
+      DO 1 I=1,4                                                        00007540
+      CALL FLUSSO(I,I,FLP,I11,J11,K11,NV,MFLP)                          00007550
+    1 CONTINUE                                                          00007560
+      CALL FLCRX(1,1,1,1,1,1,F,FF,MESH1,MESH2,MESH3,FLP,NV,I11,J11,K11,I00007570
+     122,J22,K22,MF,MFF,MFLP)                                           00007580
+      CALL CALC(1,DR,DQ,SS,S,F,FF,NV,MS,MF,MFF)                         00007590
+      M1=2                                                              00007600
+      IF(K.EQ.3.OR.K.EQ.2) GOTO10                                       00007610
+      CALL FLUSSO(5,2,FLP,I11,J11,K11,NV,MFLP)                          00007620
+      M1=1                                                              00007630
+   10 CONTINUE                                                          00007640
+      CALL FLCRX(2,4,1,M1,4,1,F,FF,MESH1,MESH2,MESH3,FLP,NV,I11,J11,K11,00007650
+     1I22,J22,K22,MF,MFF,MFLP)                                          00007660
+      CALL CALC(2,DR,DQ,SS,S,F,FF,NV,MS,MF,MFF)                         00007670
+ 703  FORMAT(//20X,' S E Z I O N I      D I    U R T O      Z O N A     00007680
+     1     V E L O C E '//30X,' M E Z Z O   I N F I N I T O'/)          00007690
+      IF(K.EQ.3.OR.K.EQ.1) GOTO 11                                      00007700
+      WRITE(6,703)                                                      00007710
+      CALL LEGGES(3,T,AUS,SS,S,MESH1,MESH2,MESH3,NV,NV3,MS,I22,J22,K22) 00007720
+ 11   CONTINUE                                                          00007730
+      CALL CALC(3,DR,DQ,SS,S,F,FF,NV,MS,MF,MFF)                         00007740
+      CALL LEGGEF(MF+1,3,0,FNORM,F,FF,NV,MF,MFF)                        00007750
+      CALL LEGGEF(MF+1,4,0,FNMAG,F,FF,NV,MF,MFF)                        00007760
+      CALL LEGGEF(MF+1,0,1,1.D+0/DR,F,FF,NV,MF,MFF)                     00007770
+      CALL LEGGEF(MF+1,0,4,1.D+0/DQ,F,FF,NV,MF,MFF)                     00007780
+      CALL OUTPT(1,11,DR,DQ,AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I00007790
+     111,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP)                            00007800
+      CALL INDIC(2,AUS,SS,S,F,FF,NV,NV3,MS,MF,MFF)                      00007810
+      CALL COFRT(AUS,SS,S,F,FF,NV,NV3,MS,MF,MFF)                        00007820
+      RETURN                                                            00007830
+      END                                                               00007840
+      SUBROUTINE MED(M,NS,ND,KS,KD,KFF,SS,S,F,FF,NV,MS,MF,MFF)          00007850
+      IMPLICIT REAL*8(A-H,O-Z)                                          00007860
+      DIMENSION F(NV,MF),S(NV,MS),FF(NV,NV,MFF),SS(NV,NV)               00007870
+      COMMON/MEDIE/A(5),B(5),SA,SB,AKSS,AKFF                            00007880
+      COMMON/GEN/NGRP,INPT                                              00007890
+      IF(KFF.GE.1) AKSS=0.0D+1                                          00007900
+      IF(KFF.GE.1.AND.KFF.LE.MFF)AKFF=0.0D+1                            00007910
+      IF(NS.LE.0)GOTO11                                                 00007920
+      DO 1 I=1,NS                                                       00007930
+      A(I)=0.0D+1                                                       00007940
+    1 CONTINUE                                                          00007950
+   11 CONTINUE                                                          00007960
+      IF(ND.LE.0) GOTO22                                                00007970
+      DO 2 I=1,ND                                                       00007980
+      B(I)=0.0D+1                                                       00007990
+    2 CONTINUE                                                          00008000
+  22  CONTINUE                                                          00008010
+      IF(M.LE.0) GOTO 9                                                 00008020
+      IF(M.NE.2)SA=0.0D+1                                               00008030
+      IF(M.NE.1)SB=0.0D+1                                               00008040
+      DO4 I=1,NGRP                                                      00008050
+      IF(M.NE.2)SA=SA+F(I,KS)                                           00008060
+      IF(M.NE.1)SB=SB+FF(I,I,KD)                                        00008070
+    4 CONTINUE                                                          00008080
+ 9    CONTINUE                                                          00008090
+      DO 6 J=1,NGRP                                                     00008100
+      IF(NS.LE.0) GO TO 7                                               00008110
+      DO 3 I=1,NS                                                       00008120
+      A(I)=A(I)+F(J,KS)*S(J,I)                                          00008130
+   3  CONTINUE                                                          00008140
+    7 IF(ND.LE.0) GO TO 8                                               00008150
+      DO 5 I=1,ND                                                       00008160
+      B(I)=B(I)+FF(J,J,KD)*S(J,I)                                       00008170
+   5  CONTINUE                                                          00008180
+    8 IF(KFF.LE.0) GOTO6                                                00008190
+      DO 66 K=1,NGRP                                                    00008200
+      AKSS=AKSS+FF(J,K,KD)*SS(K,J)                                      00008210
+      IF(KFF.LE.MFF) AKFF=AKFF+FF(J,K,KD)*FF(J,K,KFF)                   00008220
+  66  CONTINUE                                                          00008230
+    6 CONTINUE                                                          00008240
+      RETURN                                                            00008250
+      END                                                               00008260
+      SUBROUTINE INDIC(M,AUS,SS,S,F,FF,NV,NV3,MS,MF,MFF)                00008270
+      IMPLICIT REAL*8(A-H,O-Z)                                          00008280
+      COMMON/MEDIE/A(5),B(5),SA,SB                                      00008290
+      DIMENSION AUS(NV3),F(NV,MF),S(NV,MS),SS(NV,NV),FF(NV,MFF)         00008300
+      REAL*4 TITOLO(20),INF,REAT,MEZ,FINE                               00008310
+      COMMON/GEN/NGRP,INPT                                              00008320
+      DATA INF,REAT,MEZ,FINE/'INF ','REAT','MED ','FINE'/               00008330
+      WRITE(6,701) M,NV,NV3,MS,MF,MFF                                   00008340
+ 701  FORMAT(' FLUSSO SUBR.INDIC,PARAMETRI=',10I4)                      00008350
+      K=1                                                               00008360
+      NTP1=0                                                            00008370
+      KK=1                                                              00008380
+      IF(M.EQ.1)GOTO60                                                  00008390
+   50 READ(5,100)(TITOLO(I),I=1,16),NTP,NNUC,TITOLO(19),TITOLO(20)      00008400
+  100 FORMAT(16A4,2I4,2A4)                                              00008410
+      IF(TITOLO(1).EQ. FINE)RETURN                                      00008420
+      IF(K.EQ.1.AND.KK.EQ.1) WRITE(6,200)                               00008430
+  200 FORMAT('1',30X,' I N D I C I     S P E T T R A L I'///)           00008440
+      WRITE(6,201)(TITOLO(I),I=1,16),NTP,NNUC,TITOLO(19),TITOLO(20)     00008450
+  201 FORMAT(5X,16A4,2I4,2A4,5X,'TAPE,NUCLIDE')                         00008460
+      IF(TITOLO(1).EQ.INF.OR.TITOLO(1).EQ.REAT.OR.TITOLO(1).EQ.MEZ)GOTO900008470
+      WRITE(6,202)                                                      00008480
+  202 FORMAT(' ******** ERRORE *****IL TITOLO DEVE INIZIARE CON INF O RE00008490
+     1AT O MED O FINE')                                                 00008500
+      GOTO 50                                                           00008510
+    9 CONTINUE                                                          00008520
+      NN1=1                                                             00008530
+      IF(NTP.LE.0) GOTO 40                                              00008540
+      IF(NTP.EQ.NTP1) GOTO 41                                           00008550
+      REWIND NTP                                                        00008560
+      READ(NTP)                                                         00008570
+      READ(NTP)                                                         00008580
+      READ(NTP)                                                         00008590
+      NTP1=NTP                                                          00008600
+  41  NN1=3                                                             00008610
+  40  CALL LEGGSM(NN1,NTP,NNUC,SS,S,NV,MS,NV*2)                         00008620
+      DO 1 I=1,NGRP                                                     00008630
+      S(I,1)=S(I,2)-S(I,3)                                              00008640
+    1 S(I,4)=S(I,3)*S(I,4)                                              00008650
+      IF(TITOLO(1).EQ.INF) GOTO20                                       00008660
+      CALL MED(K,4,0,1,0,0,SS,S,F,FF,NV,MS,MF,MFF)                      00008670
+      IF(K.EQ.1)SBB=SA                                                  00008680
+      K=0                                                               00008690
+      DO2I=1,4                                                          00008700
+    2 A(I)=A(I)/SBB                                                     00008710
+      WRITE(6,203)(A(I),I=1,4)                                          00008720
+  203 FORMAT(//' SIGMA CATTURA       SIGMA ASSORBIMENTO      SIGMA FISSI00008730
+     1ONE            NU*SIGMA FISSION/MEDIE SU FLUSSI REALI'/(1H ,4E20.500008740
+     1))                                                                00008750
+   20 IF(TITOLO(1).EQ.REAT) GOTO30                                      00008760
+      CALL MED(KK,4,0,3,0,0,SS,S,F,FF,NV,MS,MF,MFF)                     00008770
+      IF(KK.EQ.1)SAA=SA                                                 00008780
+      KK=0                                                              00008790
+      DO 3 I=1,5                                                        00008800
+    3 A(I)=A(I)/SAA                                                     00008810
+      WRITE(6,204)(A(I),I=1,4)                                          00008820
+  204 FORMAT(//' SIGMA CATTURA',7X,'SIGMA ASSORBIMENTO',6X,'SIGMA FISSIO00008830
+     1NE',8X,'NU*SIGMA FISSION/MEDIE SU REATT.INF'/1H ,4E20.5//)        00008840
+ 30   CONTINUE                                                          00008850
+      GOTO50                                                            00008860
+   60 CONTINUE                                                          00008870
+C     GLI INDICI FORMATO ALCI NON SONO INSERITI IN QUESTA VERSIONE      00008880
+      RETURN                                                            00008890
+      END                                                               00008900
+      SUBROUTINE COFRTP(AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I11,J00008910
+     111,K11,I22,J22,K22,MS,MF,MFF,MFLP)                                00008920
+      IMPLICIT REAL*8(A-H,O-Z)                                          00008930
+      REAL*8 MESH1,MESH2,MESH3                                          00008940
+      DIMENSION AUS(NV3),SS(NV,NV),S(NV,MS),F(NV,MF),FF(NV,NV,MFF),FLP(I00008950
+     111,J11,K11,NV,MFLP),MESH1(I22),MESH2(J22),MESH3(K22)              00008960
+      COMMON/GEN/NGRP,INPT,I1,I2,J1,J2,K1,K2                            00008970
+      COMMON/TAPF/NTPF(4,5)/DAT/RHO,DR,DQ                               00008980
+      T=0.0D+1                                                          00008990
+      WRITE(6,701) NV,NV3,I11,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP        00009000
+ 701  FORMAT(' FLUSSO SUBR.COFRTP,PARAMETRI=',20I4)                     00009010
+      READ(5,100)DR                                                     00009020
+      WRITE(6,200)DR                                                    00009030
+  100 FORMAT(6E12.8)                                                    00009040
+      READ(5,103)((NTPF(I,J),I=1,4),J=1,2)                              00009050
+      WRITE(6,205)((NTPF(I,J),I=1,4),J=1,2)                             00009060
+  103 FORMAT(4I4)                                                       00009070
+  205 FORMAT(//5X,4I4,76X,5X,'TAPE FLUSSI'/5X,4I4,76X,5X,'TAPE FLUSSI AG00009080
+     1GIUNTI'//)                                                        00009090
+      CALL LEGGES(4,T,AUS,SS,S,MESH1,MESH2,MESH3,NV,NV3,MS,I22,J22,K22) 00009100
+      CALLLEGGEF(0,5,0,-.1D+1,F,FF,NV,MF,MFF)                           00009110
+  200 FORMAT(5X,E12.5,67X,5X,' DR')                                     00009120
+      CALL LEGGES(5,T,AUS,SS,S,MESH1,MESH2,MESH3,NV,NV3,MS,I22,J22,K22) 00009130
+      DO 1 I=1,2                                                        00009140
+      CALL FLUSSO(I,I,FLP,I11,J11,K11,NV,MFLP)                          00009150
+    1 CONTINUE                                                          00009160
+      CALL FLCRX(1,1,1,1,1,1,F,FF,MESH1,MESH2,MESH3,FLP,NV,I11,J11,K11,I00009170
+     122,J22,K22,MF,MFF,MFLP)                                           00009180
+      CALL COFRT(AUS,SS,S,F,FF,NV,NV3,MS,MF,MFF)                        00009190
+      CALL OUTPT(3,1,DR,DQ,AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I100009200
+     11,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP)                             00009210
+      CALL  OUTPT(7,1,DR,DQ,AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I00009220
+     111,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP)                            00009230
+      RETURN                                                            00009240
+      END                                                               00009250
+      SUBROUTINE COFRT(AUS,SS,S,F,FF,NV,NV3,MS,MF,MFF)                  00009260
+      IMPLICIT REAL*8(A-H,O-Z)                                          00009270
+      REAL*4 TITOLO(20),FINE,RWRT,TAPE,SOLO,SVAN,TOT,RIF                00009280
+      COMMON /DAT/RHO,DR,DQ                                             00009290
+      DIMENSION AUS(NV3),SS(NV,NV),F(NV,MF),S(NV,MS),FF(NV,NV,MFF)      00009300
+      COMMON/GEN/NGRP,INPT                                              00009310
+      COMMON/MEDIE/A(5),B(5),SA,SB,SSS,SXNSF                            00009320
+      DATA SMA,SMR,SMSS,SMXSF,CONCT,SMA2,SMR2,SMSS2,SMXS2,CN,M,NTUS/10*000009330
+     1.0D+1,3,0/                                                        00009340
+      DATA FINE,RWRT,TAPE,TOT,RIF,SVAN/'FINE','RWRT','TAPE','TOT ','RIF 00009350
+     1','SVAN'/                                                         00009360
+      DATA SOLO/'SOLO'/                                                 00009370
+      DATA NTUS0,C1,CONC1/0,2*0.0D+1/                                   00009380
+      WRITE(6,701) NV,NV3,MS,MF,MFF                                     00009390
+ 701  FORMAT(' FLUSSO SUBR.COFRT,PARAMETRI=',20I4)                      00009400
+      READ(5,100)(TITOLO(I),I=1,16),NTP,NSKP,TITOLO(17),TITOLO(18)      00009410
+  100 FORMAT(16A4,2I4,2A4)                                              00009420
+      IF(TITOLO(1).EQ.FINE) RETURN                                      00009430
+      WRITE(6,200)(TITOLO(I),I=1,16),NTP,NSKP,TITOLO(17),TITOLO(18)     00009440
+      DO 17 I=1,NGRP                                                    00009450
+      DO 17 J=3,4                                                       00009460
+   17 F(I,J)=0.0D+1                                                     00009470
+  200 FORMAT(5H1    ,16A4,2I4,2A4,'         TAPE SIGMA,SKIP')           00009480
+      IF(NTP.LE.0)GOTO50                                                00009490
+      REWIND NTP                                                        00009500
+      IF(NSKP.LE.0) GOTO 8                                              00009510
+      DO 8 I=1,NSKP                                                     00009520
+  8   READ(NTP)                                                         00009530
+   50 READ(5,101)(TITOLO(I),I=1,2),NNUC,(TITOLO(I),I=4,15),CONC         00009540
+  101 FORMAT(2A4,I4,12A4,E12.8)                                         00009550
+      IF(TITOLO(1).EQ.FINE) GOTO 36                                     00009560
+      WRITE(6,201)(TITOLO(I),I=1,2),NNUC,(TITOLO(I),I=4,15),CONC        00009570
+  201 FORMAT(////5X,2A4,I4,12A4,E12.5,' =CONCENTRAZIONE')               00009580
+      IF(TITOLO(1).EQ.RWRT)GOTO10                                       00009590
+      IF(TITOLO(1).EQ.SVAN) GOTO 9                                      00009600
+      WRITE(6,202)                                                      00009610
+  202 FORMAT(' *******ERRORE****IL TITOLO DEVE COMINCIARE CON RWRT****')00009620
+      GOTO50                                                            00009630
+  9   CONTINUE                                                          00009640
+      READ(5,130) (AUS(I),I=1,NGRP)                                     00009650
+  130 FORMAT(6E12.8)                                                    00009660
+      WRITE(6,220) (AUS(I),I=1,NGRP)                                    00009670
+  220 FORMAT(////5X,6E12.5,8X,5X,'FATTORI DI SVANTAGGIO')               00009680
+      GOTO 50                                                           00009690
+   10 NAC=2                                                             00009700
+      IF(TITOLO(2).EQ.TAPE)NAC=4                                        00009710
+      CALL LEGGSM(NAC,NTP,NNUC,SS,S,NV,MS,2*NV)                         00009720
+      IF(NNUC.EQ.100000)GOTO50                                          00009730
+      DO 1 I=1,NGRP                                                     00009740
+      F(I,2)=S(I,1)                                                     00009750
+      F(I,3)=F(I,3)+CONC*F(I,2)                                         00009760
+      S(I,1)=S(I,2)-S(I,3)                                              00009770
+      S(I,3)=S(I,3)*S(I,4)                                              00009780
+      S(I,4)=0.0D+1                                                     00009790
+      DO 1 II=1,NGRP                                                    00009800
+      S(I,4)=S(I,4)+SS(I,II)                                            00009810
+      FF(II,I,2)=S(II,5)*S(I,3)                                         00009820
+    1 CONTINUE                                                          00009830
+      IF(TITOLO(5).EQ.SOLO)  GOTO 20                                    00009840
+      CONCT=CONCT+CONC                                                  00009850
+      NTUS0=NTUS0+1                                                     00009860
+      WRITE(6,215)                                                      00009870
+  215 FORMAT(/////' CALCOLI EFFETTUATI CON SIGMA DI INPUT')             00009880
+       CALL MED(M,4,4,1,1,2,SS,S,F,FF,NV,MS,MF,MFF)                     00009890
+      M=0                                                               00009900
+      CALL COFRTS(1,SMA,SMR,SMSS,SMXSF,CONC,DR,AL,CN,CONCT)             00009910
+      IF(TITOLO(15).EQ.RIF)CN=CONC                                      00009920
+      IF(TITOLO(15).EQ.TOT) CN=-99999D+0                                00009930
+ 20   IF(TITOLO(4).NE.SVAN)  GOTO 50                                    00009940
+      CONC1=CONC1+CONC                                                  00009950
+      WRITE(6,221)                                                      00009960
+  221 FORMAT(///' CALCOLI EFFETTUATI CON SIGMA CORRETTE')               00009970
+      NTUS=NTUS+1                                                       00009980
+      DO3 I=1,NGRP                                                      00009990
+      DO 4 K=1,4                                                        00010000
+    4 S(I,K)=S(I,K)*AUS(I)                                              00010010
+      F(I,2)=F(I,2)*AUS(I)                                              00010020
+      F(I,4)=F(I,4)+F(I,2)*CONC                                         00010030
+      DO 3 J=1,NGRP                                                     00010040
+      SS(I,J)=SS(I,J)*AUS(I)                                            00010050
+    3 FF(J,I,2)=FF(J,I,2)*AUS(I)                                        00010060
+      CALL MED(M,4,4,1,1,2,SS,S,F,FF,NV,MS,MF,MFF)                      00010070
+      M=0                                                               00010080
+      CALL COFRTS(1,SMA2,SMR2,SMSS2,SMXS2,CONC,DR,AL1,C1,CONC1)         00010090
+      IF(TITOLO(15).EQ.RIF)  C1=CONC                                    00010100
+      IF(TITOLO(15).EQ.TOT)C1=-99999.D+0                                00010110
+      GOTO50                                                            00010120
+   36 CONTINUE                                                          00010130
+      AL=0.0D+1                                                         00010140
+      AL1=0.0D+1                                                        00010150
+      WRITE(6,115)SA                                                    00010160
+  115 FORMAT(//////'0 INT F(I))=',E20.8)                                00010170
+      WRITE(6,117) SB                                                   00010180
+  117 FORMAT('0  INT(F(I)*FA(I) )=',E20.8)                              00010190
+      IF(NTUS0.EQ.0) GOTO 32                                            00010200
+      DO 66 I=1,NGRP                                                    00010210
+   66 IF(F(I,3).NE.0.D+1) AL=AL+F(I,5)/(3.D+0*F(I,3))                   00010220
+      WRITE(6,106) AL                                                   00010230
+  106 FORMAT(/' INT( GRADF(I)*GRADFA(I)/3.*MACRO TR)=',E20.8)           00010240
+      IF(CN.EQ.0D+1) GO TO 32                                           00010250
+      WRITE(6,141)                                                      00010260
+  141 FORMAT(/////' CALCOLO DI RHO    ')                                00010270
+      CALL COFRTS(2,SMA,SMR,SMSS,SMXSF,CONC,DR,AL,CN,CONCT)             00010280
+   32 CONTINUE                                                          00010290
+      IF(NTUS.EQ.0)GOTO33                                               00010300
+      DO6 I=1,NGRP                                                      00010310
+    6 IF(F(I,4).NE.0.D+0) AL1=AL1+F(I,5)/(3.D+0*F(I,4))                 00010320
+      WRITE(6,136) AL1                                                  00010330
+  136 FORMAT(/' INT(GRAD F(I)*GRAD FA(I)/ 3*MACRO TRA(AUTOSCHERM)=',E20.00010340
+     18)                                                                00010350
+      IF(C1.EQ.0.D+0) GOTO 33                                           00010360
+      WRITE(6,140)                                                      00010370
+  140 FORMAT(///'   CALCOLO DI RHO     CON SIGMA AUTOSCHERMATE')        00010380
+      CALL COFRTS(2,SMA2,SMR2,SMSS2,SMXS2,CONC,DR,AL1,C1,CONC1)         00010390
+   33 RETURN                                                            00010400
+      END                                                               00010410
+      SUBROUTINE COFRTS(K,SMA,SMR,SMSS,SMXSF,CONC,DR,AL,CN,CONCT)       00010420
+      IMPLICIT REAL*8(A-H,O-Z)                                          00010430
+      REAL*8 LAMDA,MU                                                   00010440
+      COMMON /MEDIE/A(5),B(5),SA,SB,SSS,SXNSF                           00010450
+      GOTO (1,333),K                                                    00010460
+  1   CONTINUE                                                          00010470
+      SMA=SMA+B(2)*CONC                                                 00010480
+      SMR=SMR+B(4)*CONC                                                 00010490
+      SMSS=SMSS+SSS*CONC                                                00010500
+      SMXSF=SMXSF+SXNSF*CONC                                            00010510
+   15 WRITE(6,105) B(2),B(4),SSS,SXNSF                                  00010520
+      DO 2 I=1,4                                                        00010530
+      A(I)=A(I)/SA                                                      00010540
+      B(I)=B(I)/SB                                                      00010550
+    2 CONTINUE                                                          00010560
+      WRITE(6,109) A(2)                                                 00010570
+      WRITE(6,108) B(2)                                                 00010580
+      WRITE(6,112) A(3)                                                 00010590
+      WRITE(6,110) B(3)                                                 00010600
+      WRITE(6,113) A(1)                                                 00010610
+      WRITE(6,111) B(1)                                                 00010620
+      WRITE(6,120) A(4)                                                 00010630
+      WRITE(6,121) B(4)                                                 00010640
+ 108  FORMAT('   (INT  SA(I)*F(I)*FA(I))/(INT  F(I)*FA(I))=',E20.8)     00010650
+ 109  FORMAT('   (INT  SA(I)*F(I))/(INT  F(I))=',E20.8)                 00010660
+ 110  FORMAT('   (INT  NUSFISS(I)*F(I)*FA(I))/(INT F(I)*FA(I))=',E20.8) 00010670
+ 111  FORMAT('   (INT    CATT(I)*F(I)*FA(I))/ (INT  F(I)*FA(I))=',E20.8)00010680
+ 112  FORMAT('   (INT  NUSFISS(I)*F(I))/ (INT  F(I))=',E20.8)           00010690
+ 113  FORMAT('   (INT  CATT(I)*F(I))/ (INT  F(I))',E20.8)               00010700
+  114 FORMAT('0  (INT F(I)*FA(I))=',E20.8)                              00010710
+  105 FORMAT(//' (INT      SA(I)*F(I)*FA(I)) =',E20.8/'  (INT      SCATT00010720
+     1.TOT(I)*F(I)*FA(I)   =',E20.8/'   (INT      SS(I,J)*F(I)*FA(J)    00010730
+     2 =',E20.8/'        (INT      X(J)*NUSFISS(I)*F(I)*FA(J)   =',E20.800010740
+     3//)                                                               00010750
+  120 FORMAT('    (INT (REM(I))*F(I))/(INT F(I))=',E20.8)               00010760
+  121 FORMAT('    (INT (REM(I))*F(I)*FA(I)/(INT F(I)*FA(I)=',E20.8)     00010770
+      RETURN                                                            00010780
+  333 CONTINUE                                                          00010790
+      WRITE(6,128) SMA                                                  00010800
+ 128  FORMAT(/////'  SIGMA A *F(I)*FA(I)=',E20.8)                       00010810
+      WRITE(6,129) SMR                                                  00010820
+ 129  FORMAT(' SIGMA REM*F(I)*FA(I)=',E20.8)                            00010830
+      WRITE(6,122) SMXSF                                                00010840
+ 122  FORMAT(' SIGMA F*NU*X*F(I)*FA(J)=',E20.8)                         00010850
+      WRITE(6,123) SMSS                                                 00010860
+ 123  FORMAT(' SIGMA SCATT*F(I)*FA(J)=',E20.8)                          00010870
+      LAMDA=(SMR-SMSS-SMXSF)/SMA                                        00010880
+      WRITE(6,126) LAMDA                                                00010890
+ 126  FORMAT(' LAMBDA=',E20.8)                                          00010900
+      MU=LAMDA+AL/SMA*DR                                                00010910
+      RO=SMA/DR*(1+LAMDA)-AL                                            00010920
+      WRITE(6,124) RO                                                   00010930
+ 124  FORMAT(//' RO=',E20.8)                                            00010940
+      IF(CN.EQ.-99999.D+0) CN=CONCT                                     00010950
+      WRITE(6,9877)CN                                                   00010960
+ 9877 FORMAT('0 N-RIF=',E20.8////)                                      00010970
+      BI=SMA/(DR*CN)*(1+LAMDA)+AL/CN                                    00010980
+      BIMOD=SMA/(DR*CN)*(1+MU)                                          00010990
+      RETURN                                                            00011000
+      END                                                               00011010
+      SUBROUTINE FLUSSO(NT,NTFP,FLP,I21,J21,K21,NV,MFLP)                00011020
+      IMPLICITREAL*8(A-H,O-Z)                                           00011030
+      DIMENSION FLP(I21,J21,K21,NV,MFLP)                                00011040
+      COMMON/TAPF/NTPF(4,5)                                             00011050
+      COMMON/GEN/NGRP,INPT,I1,I2,J1,J2,K1,K2                            00011060
+      WRITE(6,701) NT,NTFP,I21,J21,K21,NV,MFLP                          00011070
+ 701  FORMAT(' FLUSSO SUBR.FLUSSO,PARAMETRI=',10I4)                     00011080
+      K=1                                                               00011090
+      LI=I2-I1                                                          00011100
+      LJ=J2-J1                                                          00011110
+      M=NTPF(4,NT)                                                      00011120
+      REWIND M                                                          00011130
+      KLII=NTPF(1,NT)-LI                                                00011140
+      GO TO(50,51,50,51),NT                                             00011150
+   51 DO7 LL=1,NGRP                                                     00011160
+    7 READ(M)                                                           00011170
+      READ(M)                                                           00011180
+  50  CONTINUE                                                          00011190
+      IF(KLII.LE.0) GO TO 30                                            00011200
+      DO3 NG=1,NGRP                                                     00011210
+ 3    READ(M)(((FLP(I,J,K,NG,NTFP),I=1,LI),(A,N=1,KLII)),J=1,LJ)        00011220
+      RETURN                                                            00011230
+   30 CONTINUE                                                          00011240
+      LZ=LJ                                                             00011250
+      IF(NTPF(2,NT).LE.1) LZ=1                                          00011260
+      DO4 NG=1,NGRP                                                     00011270
+  4   READ(M) ((FLP(I,J,K,NG,NTFP),I=1,LI),J=1,LZ)                      00011280
+      IF(LZ.EQ.LJ)RETURN                                                00011290
+      DO 5 I=1,NGRP                                                     00011300
+      DO 5 J=1,I21                                                      00011310
+      DO 5 K=1,J21                                                      00011320
+    5 FLP(J,K,1,I,NTFP)=FLP(J,1,1,I,NTFP)                               00011330
+      RETURN                                                            00011340
+      END                                                               00011350
+      SUBROUTINE LEGGEF(K1,K2,K3,D,F,FF,NV,MF,MFF)                      00011360
+      IMPLICITREAL*8(A-H,O-Z)                                           00011370
+      DIMENSION F(NV,MF),FF(NV,NV,MFF)                                  00011380
+      COMMON/GEN/NGRP,INPT,I1,I2,J1,J2,K11,K22                          00011390
+      WRITE(6,701) K1,K2,K3,NV,MF,MFF,D                                 00011400
+ 701  FORMAT(' FLUSSO SUBR.LEGGEF, PARAMETRI=',6I4,E12.5)               00011410
+      IF(K1.GT.MF) GOTO 40                                              00011420
+      IF(K1.LE.0) GOTO 20                                               00011430
+      READ(5,102)(F(I,K1),I=1,NGRP)                                     00011440
+      WRITE(6,202)(F(I,K1),I=1,NGRP)                                    00011450
+  102 FORMAT(E12.8)                                                     00011460
+  202 FORMAT(5X,E12.5,68X,5X,' FLUSSI')                                 00011470
+   20 CONTINUE                                                          00011480
+      IF(K3.LE.0) GOTO11                                                00011490
+      DO1I=1,NGRP                                                       00011500
+      DO1J=1,NGRP                                                       00011510
+      IF(I.EQ.J.AND.K2.GT.0) GOTO50                                     00011520
+      READ(5,101)FF(J,I,K3)                                             00011530
+      WRITE(6,204)FF(J,I,K3)                                            00011540
+  204 FORMAT(5X,E12.5,68X,5X,' FLUSSI*FLUSSI AGGIUNTI')                 00011550
+      GO TO 1                                                           00011560
+ 50   CONTINUE                                                          00011570
+      READ(5,101)FF(J,I,K3),BOH,F(I,K2)                                 00011580
+      WRITE(6,201)FF(J,I,K3),BOH,F(I,K2)                                00011590
+  101 FORMAT(6E12.5,I2,1X,I2)                                           00011600
+  201 FORMAT(5X,3E12.5,44X,5X,'FLUSSI*FLUSSI AGG,GRAD F*GRAD F+')       00011610
+    1 CONTINUE                                                          00011620
+ 11   CONTINUE                                                          00011630
+      IF(K2.LE.0) GOTO10                                                00011640
+      IF(K3.GT.0) GOTO10                                                00011650
+      READ(5,103)(F(I,K2),I=1,NGRP)                                     00011660
+  103 FORMAT(24X,E12.8)                                                 00011670
+      WRITE(6,203)(F(I,K2),I=1,NGRP)                                    00011680
+  203 FORMAT(5X,24X,E12.5,44X,5X,' GRAD F*GRAD F+')                     00011690
+10    CONTINUE                                                          00011700
+  40  IF(D.EQ.0.D+1) GOTO33                                             00011710
+      IF(K2.LE.0) GOTO22                                                00011720
+      DO 2 I=1,NGRP                                                     00011730
+2     F(I,K2)=F(I,K2)*D                                                 00011740
+22    IF(K3.LE.0) GOTO 33                                               00011750
+   51 DO 3 I=1,NGRP                                                     00011760
+      DO 3 J=1,NGRP                                                     00011770
+  3   FF(I,J,K3)=FF(I,J,K3)*D                                           00011780
+ 33   RETURN                                                            00011790
+      END                                                               00011800
+      SUBROUTINE LEGGSM(NAC,NTP,NNUC,SS,S,NG,MS,NV)                     00011810
+      IMPLICIT REAL*8(A-H,O-Z)                                          00011820
+      REAL*4 S(NV,MS),SS(NV,NG),BOH                                     00011830
+      COMMON/GEN/NGRP                                                   00011840
+      WRITE(6,701) NAC,NTP,NNUC,NG,MS,NV                                00011850
+ 701  FORMAT(' FLUSSO SUBR.LEGGSM, PARAMETRI=',12I4)                    00011860
+      GOTO(10,10,30,30),NAC                                             00011870
+  10  CONTINUE                                                          00011880
+      DO 1 I=1,NV,2                                                     00011890
+      READ(5,101) S(I,2),S(I,3),S(I,1),S(I,4)                           00011900
+    1 WRITE(6,201)S(I,2),S(I,3),S(I,1),S(I,4)                           00011910
+  101 FORMAT(6E12.8)                                                    00011920
+201   FORMAT(5X,4E12.5,25X,'ASS,FISS,TRASP,NU')                         00011930
+      IF(NAC.EQ.1)GOTO 37                                               00011940
+      READ(5,101) ((SS(I,J),J=1,NGRP),I=1,NV,2)                         00011950
+      WRITE(6,202)((SS(I,J),J=1,NGRP),I=1,NV,2)                         00011960
+  202 FORMAT(5X,6E12.5,8X,5X,' SCATT(I IN J),J=1,NGRP')                 00011970
+      GO TO 38                                                          00011980
+   30 NPRNT=0                                                           00011990
+      IF(NNUC.GE.0)GOTO 28                                              00012000
+      NNUC=-NNUC                                                        00012010
+      NPRNT=1                                                           00012020
+   28 KUS=0                                                             00012030
+   29 READ(NTP,END=31) LL                                               00012040
+      IF(LL.EQ.NNUC) GOTO32                                             00012050
+      READ(NTP,END=31)                                                  00012060
+      GOTO29                                                            00012070
+   31 IF(KUS.NE.0)GOTO33                                                00012080
+      REWIND NTP                                                        00012090
+      READ(NTP,END=33)                                                  00012100
+      KUS=1                                                             00012110
+      GOTO29                                                            00012120
+   33 WRITE(6,203)NNUC,NTP                                              00012130
+  203 FORMAT('0******NON TROVO IL NUCLIDE',I8,' SUL TAPE',I8,' *******')00012140
+      NNUC=100000                                                       00012150
+      RETURN                                                            00012160
+   32 GOTO(10,10,35,36),NAC                                             00012170
+   35 READ(NTP,END=33)((S(I,2),S(I,3),S(I,1),S(I,4),BOH),I=1,NV,2)      00012180
+      IF(NPRNT.EQ.0) WRITE(6,204)((S(I,2),S(I,3),S(I,1),S(I,4)),I=1,NV,200012190
+     1)                                                                 00012200
+   37 DO 2 J=1,4                                                        00012210
+      DO 2 I=2,NV,2                                                     00012220
+ 2    S(I,J)=0.0                                                        00012230
+  204 FORMAT('0       ',6X,'SIGMA ASS',6X,'SIGMA FISSION    SIGMA TRASPO00012240
+     1RTO       NU'/(1H ,4E15.5))                                       00012250
+      RETURN                                                            00012260
+   36 READ(NTP,END=33)((S(I,2),S(I,3),S(I,1),S(I,4),BOH),I=1,NV,2),((SS(00012270
+     1I,J),J=1,NG),I=1,NV,2)                                            00012280
+      IF(NPRNT.EQ.1) GOTO 38                                            00012290
+      WRITE(6,204) ((S(I,2),S(I,3),S(I,1),S(I,4)),I=1,NV,2)             00012300
+      WRITE(6,205)                                                      00012310
+      DO 5 I=1,NV,2                                                     00012320
+  206 FORMAT(1H ,10E12.5)                                               00012330
+      WRITE(6,206) (SS(I,J),J=1,NG)                                     00012340
+  5   CONTINUE                                                          00012350
+  205 FORMAT('0 SCATTERING(I IN J),J=1,NGRP'//)                         00012360
+   38 DO3 I=2,NV,2                                                      00012370
+      DO 4 J=1,4                                                        00012380
+  4   S(I,J)=0.0                                                        00012390
+      DO 3 K=1,NG                                                       00012400
+  3   SS(I,K)=0.0                                                       00012410
+      RETURN                                                            00012420
+      END                                                               00012430
+      SUBROUTINE LEGGES(NAC,COM,AUS,SS,S,MESH1,MESH2,MESH3,NV,NV3,MS,I2200012440
+     1,J22,K22)                                                         00012450
+      IMPLICITREAL*8(A-H,O-Z)                                           00012460
+      REAL*8MESH1,MESH2,MESH3                                           00012470
+      DIMENSION MESH1(I22),MESH2(J22),MESH3(K22)                        00012480
+      REAL*4 TITOLO(20)                                                 00012490
+      DIMENSION AUS(NV3),SS(NV,NV),S(NV,MS)                             00012500
+      COMMON/GEN/NGRP,INPT,I1,I2,J1,J2,K1,K2                            00012510
+      WRITE(6,701) NAC,COM,NV,NV3,MS,I22,J22,K22                        00012520
+ 701  FORMAT(' FLUSSO SUBR.LEGGES,PARAMETRI=',I4,E12.4,7I4)             00012530
+      GOTO(10,20,30,40,50),NAC                                          00012540
+   30 CONTINUE                                                          00012550
+      READ(5,130) TITOLO                                                00012560
+ 130  FORMAT(20A4)                                                      00012570
+      WRITE(6,230)TITOLO                                                00012580
+  230 FORMAT(5X,20A4,5X,' SECTION 008 CITATION')                        00012590
+      READ(5,130) TITOLO                                                00012600
+      WRITE(6,230)TITOLO                                                00012610
+      DO99 MU=1,NGRP                                                    00012620
+      READ(5,122)NOH,NG,(S(NG,J),J=1,3)                                 00012630
+      WRITE(6,222)NG,(S(NG,J),J=1,3)                                    00012640
+  122 FORMAT(2I6,5E12.8)                                                00012650
+  222 FORMAT(5X,6X,I6,3E12.5,32X,5X,'GRUPPO,D,SA,NU*SFISS')             00012660
+      S(NG,4)=S(NG,2)                                                   00012670
+      READ(5,101)(SS(NG,JU),JU=1,NGRP)                                  00012680
+  101 FORMAT(6E12.8)                                                    00012690
+      WRITE(6,233)(SS(NG,JU),JU=1,NGRP)                                 00012700
+  233 FORMAT(5X,6E12.5,13X,'SCATT(I  IN  J),J=1,NGRP')                  00012710
+      DO99 MI=1,NGRP                                                    00012720
+   99 S(NG,4)=S(NG,4)+SS(NG,MI)                                         00012730
+   50 READ(5,130)TITOLO                                                 00012740
+      WRITE(6,231)TITOLO                                                00012750
+      NCOM=COM                                                          00012760
+      NH=5                                                              00012770
+      IF(NAC.EQ.5.AND.(NCOM.GT.0.AND.NCOM.LE.MS)) NH=NCOM               00012780
+  231 FORMAT(5X,20A4,5X,' SPETTRO DI FISSIONE')                         00012790
+      READ(5,101)(S(III,NH),III=1,NGRP)                                 00012800
+      WRITE(6,234)(S(III,NH),III=1,NGRP)                                00012810
+  234 FORMAT(5X,6E12.5,8X,5X,' SPETTRO DI FISSIONE')                    00012820
+      RETURN                                                            00012830
+   10 CONTINUE                                                          00012840
+      READ(5,130)TITOLO                                                 00012850
+      WRITE(6,201)TITOLO                                                00012860
+  201 FORMAT(5X,20A4,5X,' SIGMA DA ALCI')                               00012870
+      READ(5,101) S(1,1),S(1,4),S(1,3),S(1,2)                           00012880
+      WRITE(6,202)S(1,1),S(1,4),S(1,3),S(1,2)                           00012890
+  202 FORMAT(5X,4E12.5,32X,5X,' D(1),ST(1),NUSFISS(1),SA(1)')           00012900
+      SS(1,1)=0.0                                                       00012910
+      DO3I=2,NGRP                                                       00012920
+      I1=I-1                                                            00012930
+      READ(5,101) S(I,1),S(I,4),S(I,3),(SS(J,I),J=1,I1),S(I,2),BOH      00012940
+      WRITE(6,203)S(I,1),S(I,4),S(I,3),(SS(J,I),J=1,I1),S(I,2),BOH      00012950
+  203 FORMAT(5X,6E12.5,8X,5X,' D(I),ST(I),NUSF(I),SS(J IN I)')          00012960
+      DO3J=I,NGRP                                                       00012970
+    3 SS(J,I)=0.0                                                       00012980
+      MIN=6                                                             00012990
+      IF(NGRP.LT.6)MIN=NGRP                                             00013000
+      READ(5,105)(TITOLO(I),I=1,5),(S(I,5),I=1,MIN)                     00013010
+      WRITE(6,206)(TITOLO(I),I=1,5),(S(I,5),I=1,MIN)                    00013020
+      IF(NGRP.LE.6) GOTO21                                              00013030
+      MIN1=MIN+1                                                        00013040
+      READ(5,106) (S(I,5),I=MIN1,NGRP)                                  00013050
+      WRITE(6,207)(S(I,5),I=MIN1,NGRP)                                  00013060
+  105 FORMAT(4A4,A2,6E9.4)                                              00013070
+  206 FORMAT(5X,4A4,A2,6E9.4,8X,5X,' SPETTRO DI FISSIONE')              00013080
+  106 FORMAT(8E9.4)                                                     00013090
+  207 FORMAT(5X,8E9.4,8X,5X,' SPETTRO DI FISSIONE')                     00013100
+   21 IF(COM.NE.0)GOTO 20                                               00013110
+      RETURN                                                            00013120
+   20 CONTINUE                                                          00013130
+      READ(5,130)TITOLO                                                 00013140
+      WRITE(6,204)TITOLO                                                00013150
+  204 FORMAT(5X,20A4,5X,' COMPLEMENT(ALCI)')                            00013160
+      BO=0.0                                                            00013170
+      DO 4 I=1,NGRP                                                     00013180
+      N1=I-1                                                            00013190
+      NNP=I-1+4                                                         00013200
+      READ(5,101) (AUS(J),J=1,NNP),BOH                                  00013210
+      WRITE(6,205)(AUS(J),J=1,NNP),BO                                   00013220
+  205 FORMAT(5X,6E12.5,8X,5X,' COMPLEMENT(ALCI)')                       00013230
+      S(I,1)=AUS(1)*COM+S(I,1)                                          00013240
+      S(I,4)=AUS(2)*COM+S(I,3)                                          00013250
+      S(I,2)=AUS(NNP)*COM+S(I,2)                                        00013260
+      IF(I.EQ.1) GOTO 4                                                 00013270
+      DO 4 J=1,N1                                                       00013280
+      JJ=J+3                                                            00013290
+      SS(J,I)=AUS(JJ)*COM+SS(J,I)                                       00013300
+  4   CONTINUE                                                          00013310
+      RETURN                                                            00013320
+   40 CONTINUE                                                          00013330
+      I11=I2-I1+1                                                       00013340
+      J11=J2-J1+1                                                       00013350
+      K11=K2-K1+1                                                       00013360
+      READ(5,101)(MESH1(M),M=1,I11)                                     00013370
+      READ(5,101)(MESH2(M),M=1,J11)                                     00013380
+      READ(5,101)(MESH3(M),M=1,K11)                                     00013390
+      WRITE(6,208)(MESH1(M),M=1,I11)                                    00013400
+      WRITE(6,209)(MESH2(M),M=1,J11)                                    00013410
+  208 FORMAT(5X,6E12.5,8X,5X,'INTERFACCE DIM 1(RAD)')                   00013420
+  209 FORMAT(5X,6E12.5,8X,5X,'INTERFACCE DIM 2(ASS)')                   00013430
+      WRITE(6,210)(MESH3(M),M=1,K11)                                    00013440
+  210 FORMAT(5X,6E12.5,8X,5X,'INTERFACCE DIM 3     ')                   00013450
+      RETURN                                                            00013460
+      END                                                               00013470
+C         FUNZIONE VOL DEL PROGRAMMA MICRO                              00013480
+C         PER CALCOLO DI VOLUMETTI IN GEOMETRIA                         00013490
+C         X - Y                                                         00013500
+C         24-6-82                                                       00013510
+C         ( QUELLA NEL MICRO LAVORA CON GEOMETRIA                       00013520
+C         CILINDRICA )                                                  00013530
+C                                                                       00013540
+      FUNCTION VOL(I,J,K,MESH1,MESH2,MESH3,I22,J22,K22)                 00013550
+      IMPLICITREAL*8(A-H,O-Z)                                           00013560
+      DIMENSION MESH1(I22),MESH2(J22),MESH3(K22)                        00013570
+      REAL*8MESH1,MESH2,MESH3                                           00013580
+      IA=I-1                                                            00013590
+      JA=J-1                                                            00013600
+      VOL=(MESH2(J)-MESH2(JA))*(MESH1(I)-MESH1(IA))                     00013610
+      RETURN                                                            00013620
+      END                                                               00013630

diff --git a/micro/microass b/micro/microass
new file mode 100644 (file)
index 0000000..b96d3d3
Binary files /dev/null and b/micro/microass differ

diff --git a/other/README.md b/other/README.md
new file mode 100644 (file)
index 0000000..0d0b2f0
--- /dev/null
+++ b/other/README.md
@@ -0,0 +1,49 @@
+FORTRAN CODES for data format conversion
+========================================
+
+These codes where written in the eighties at the
+CNEN and then ENEA research center in Bologna, to change the
+formatting of data produced by programs for nuclear
+reactor computations.
+
+
+canco
+-----
+
+A little FORTRAN program, written in 1979, to change data produced by the
+[ANISN](http://www.oecd-nea.org/tools/abstract/detail/ccc-0254/) code,
+to be used by the [CITATION](https://www.osti.gov/biblio/4740897-nuclear-reactor-core-analysis-code-citation)
+code, by M.Galli and M.Vaccari. It read data on magnetic tapes.
+It is described in the CNEN report: RIT/FIS-LDN(79)1 (not included here).
+
+diluit
+------
+
+A FORTRAN program by M.Galli, written in 1983, to manage
+cross sections to be used by the 
+[DOT](http://www.oecd-nea.org/tools/abstract/detail/ccc-0276/) program.
+
+mediator
+--------
+
+A FORTRAN program written in 1982, by M.Galli, 
+to average cross sections fot the 
+[ANISN](http://www.oecd-nea.org/tools/abstract/detail/ccc-0254/)
+program.
+
+medit4
+------
+
+A FORTRAN program written  M.Galli, betwen 1983 and 1985,
+to average cross sections. 
+
+
+dadi
+-----
+
+A litle program to simulate results of 
+dice rolls to test for fake dices;
+a dice game was used in the laboratory, 
+to choose who had to pay the cofee break.
+Ther program uses a random number generator
+by F.James.

diff --git a/other/canco b/other/canco
new file mode 100644 (file)
index 0000000..b737fc4
--- /dev/null
+++ b/other/canco
@@ -0,0 +1,326 @@
+C*****C A N C O                                                         00000010
+C     NUOVA VERS. PROGRAMMA CANCT.   M.GALLI,M.VACCARI                  00000020
+C     CONVERSIONE DATI DA FORMATO ANISN A FORMATO CITATION              00000030
+C                                                                       00000040
+      DIMENSION TITOLO(20),U(6),D(1600),NMAT(35),SIG(30,3)              00000050
+      DIMENSION SIGS(30,30),ANU(30),MANN(6),VUOT(140),TIPO(4)           00000060
+      DIMENSION BCDTAP(20),COMMNT(20),TITMAT(20),BCDTIP(2)              00000070
+      EQUIVALENCE (TITOLO(1),BCDTAP(1),COMMNT(1),TITMAT(1))             00000080
+      EQUIVALENCE (JPTR,U(2)), (JPAU,U(3)), (JLUT,U(4)),(BO,BOH)        00000090
+      INTEGER*4 U                                                       00000100
+      REAL * 4 MICMAC                                                   00000110
+      DATA B/4H    /, P/4H****/, AIAX/4HU235/, MANN/6 * 0/ , BO/0.0/    00000120
+      DATA TIPO /4HMACR,4HO   ,4HMICR,4H0   /,BILLY/ 3.1E-11/           00000130
+C                                                                       00000140
+C     DEFINIZIONI :                                                     00000150
+C     NG  NUMERO DI GRUPPI                                              00000160
+C     MTP  NASTRO BINARIO SU CUI VENGONO TEMPORANEAMENTE CARICATE       00000170
+C     LE SEZIONI D'URTO .  PUO' ESSERE ANCHE GIA' ESISTENTE .           00000180
+C     NMAT(I)  NUMERO DI RIFERIMENTO DEI MATERIALI PER I QUALI          00000190
+C              INTERESSA LA TRASFORMAZIONE                              00000200
+C                                                                       00000210
+C     SPECIFICHE DEL CALCOLO :                                          00000220
+C     UK=1.    MACRO                                                    00000230
+C                                                                       00000240
+C     UK=2.    MICRO                                                    00000250
+C                                                                       00000260
+      NMATD=35                                                          00000270
+C                                                                       00000280
+C     SCHEDA(1)    COMMENTO GENERALE  (20A4)                            00000290
+  80  READ(5,130,END=500) COMMNT                                        00000300
+C                                                                       00000310
+      WRITE(6,100) COMMNT                                               00000320
+C                                                                       00000330
+      DO 75 I=1,NMATD                                                   00000340
+   75 NMAT(I)=0                                                         00000350
+C                                                                       00000360
+C     SCHEDA (2)                                                        00000370
+C     MICMAC, NG, MTP, MATERIALI DA PERFORARE                           00000380
+C     MICMAC = MICR      MICROSCOPICHE                                  00000390
+C            = MACR      MACROSCOPICHE                                  00000400
+C                                                                       00000410
+      READ(5,150)MICMAC,NG,MTP,(NMAT(I),I=1,NMATD)                      00000420
+C                                                                       00000430
+      IXYZ=0                                                            00000440
+      N1=0                                                              00000450
+      UK=1.                                                             00000460
+C                                                                       00000470
+      IF(MICMAC.EQ.TIPO(3))UK=2.                                        00000480
+       IF(UK-2.)85,88,88                                                00000490
+   85 BCDTIP(1)=TIPO(1)                                                 00000500
+      BCDTIP(2)=TIPO(2)                                                 00000510
+      GO TO 89                                                          00000520
+   88 BCDTIP(1)=TIPO(3)                                                 00000530
+      BCDTIP(2)=TIPO(4)                                                 00000540
+   89 IF(UK.EQ.1.) GOTO77                                               00000550
+      IF(MTP)77,77,91                                                   00000560
+   91 REWIND MTP                                                        00000570
+C                                                                       00000580
+C     SCHEDA (3)   TITOLO DEL TAPE CITATION  DA COSTRUIRE (SOLO NEL CASO00000590
+C     MICRO)                                                            00000600
+C     COME BCDTAP SI DEVE METTERE UNA SCHEDA BIANCA SE IL NASTRO MTP E' 00000610
+C     GIA' ESISTENTE, ALTRIMENTI QUALUNQUE SCRITTA .                    00000620
+C                                                                       00000630
+  222 READ(5,78)(BCDTAP(I),I=1,18)                                      00000640
+C                                                                       00000650
+      DO 5 I=1,18                                                       00000660
+      IF(BCDTAP(I).NE.B) GO TO 76                                       00000670
+ 5    CONTINUE                                                          00000680
+C      SE IL NASTRO MTP E' GIA' ESISTENTE, SALTA I TRE RECORDS          00000690
+C      INIZIALI CONTENENTI INFORMAZIONI GENERALI                        00000700
+      WRITE(6,104)MTP                                                   00000710
+      READ(MTP)                                                         00000720
+      READ(MTP)                                                         00000730
+      READ(MTP)                                                         00000740
+C     MEDIANTE LA SKP SI POSIZIONA SULL'ULTIMO RECORD DELL'UNITA'       00000750
+C     MTP QUALORA SIA GIA' ESISTENTE                                    00000760
+      CALL SKP(N1,MTP)                                                  00000770
+      GO TO77                                                           00000780
+  76  WRITE(MTP)(BCDTAP(I),I=1,18)                                      00000790
+      WRITE(MTP) MANN(1),MANN(2),NG,MANN(4),MANN(5),MANN(6)             00000800
+      WRITE(6,151)MTP, (BCDTAP(I),I=1,18)                               00000810
+      LMN=NG*4+20                                                       00000820
+      WRITE(MTP)(VUOT(I),I=1,LMN)                                       00000830
+C                                                                       00000840
+C     SCHEDA (4)    POSIZIONI DELLE PRINCIPALI SEZ.D'URTO NEL           00000850
+C                   DATA SET DI INPUT FORMATO ANISN                     00000860
+C     JPTR=U(2)  POSIZIONE DELLA SIGMA TOT. O TRASPORTO (ES.4)          00000870
+C     JPAU=U(3)  POSIZ.AUTOSCATTERING (ES.5)                            00000880
+C     JLUT=U(4)  LUNGHEZZA TAVOLA DELLE SEZ.D'URTO (ES. 29)             00000890
+C                                                                       00000900
+   77 READ(5,109) JPTR,JPAU, JLUT                                       00000910
+C                                                                       00000920
+      WRITE(6,108)(U(I),I=2,4)                                          00000930
+      IF(U(3).GT.0) NUS=U(3)-U(2)-1                                     00000940
+      IF(U(3).LT.0) NUS=0                                               00000950
+      NDS=U(4)-U(3)                                                     00000960
+      IF(UK.EQ.2.) GOTO1001                                             00000970
+C                                                                       00000980
+C     NUS  = NUMERO DI UPSCATTERING                                     00000990
+C     NDS  = NUMERO DI DOWNSCATTERING                                   00001000
+C                                                                       00001010
+      WRITE(7,200)                                                      00001020
+      WRITE(7,201) NG,NDS,NUS                                           00001030
+ 1001 WRITE(6,103) NG,NDS,NUS,BCDTIP,(NMAT(I),I=1,NMATD)                00001040
+  50  IU35=0                                                            00001050
+C-----QUI INIZIA IL LOOP SU OGNI MATERIALE                              00001060
+C                                                                       00001070
+C     SCHEDA (5)         DESCRIZIONE MATERIALE                          00001080
+      READ(5,102) (TITMAT(I),I=1,4),MAT,(TITMAT(I),I=5,6),IZON,(TITMAT(I00001090
+     1),I=7,18)                                                         00001100
+C                                                                       00001110
+      IF(TITMAT(1).EQ.P) GOTO70                                         00001120
+      IF(TITMAT(1).EQ.AIAX)IU35=1                                       00001130
+      WRITE(6,300) TITMAT,MAT,IZON                                      00001140
+      NPUN=0                                                            00001150
+      DO 1 I=1,NMATD                                                    00001160
+C     VERIFICA SE IL MATERIALE IN CORSO E' TRA QUELLI PREVISTI PER      00001170
+C     LA TRASFORMAZIONE                                                 00001180
+      IF(MAT.EQ.NMAT(I))NPUN=1                                          00001190
+ 1    CONTINUE                                                          00001200
+      NSIG=NG*U(4)                                                      00001210
+C                                                                       00001220
+C     MEDIANTE LA SUB. RDAN LEGGE TUTTE LE SEZIONI D'URTO PER UN        00001230
+C     MATERIALE IN FORMATO FIDO(ANISN)                                  00001240
+C     NSIG=NUMERO GRUPPI * LUNGHEZZA TAVOLA DELLE SIGMA                 00001250
+C                                                                       00001260
+      CALL RDAN(D,NSIG)                                                 00001270
+C                                                                       00001280
+C            LOOP SUI GRUPPI                                            00001290
+      DO 2 I=1,NG                                                       00001300
+      IF(UK.EQ.2.) GOTO335                                              00001310
+C-----MACRO                                                             00001320
+      DDD=D((I-1)*U(4)+U(2))                                            00001330
+      SIG(I,3)=D(U(2)-1+(I-1)*U(4))                                     00001340
+      SIG(I,2)=D(U(2)-2+(I-1)*U(4))                                     00001350
+C     DEFINIZIONE DELLA DIFFUSIONE                                      00001360
+      SIG(I,1)=1./(3.*D((I-1)*U(4)+U(2)))                               00001370
+C      NEL CASO MACRO IN GENERE L'ORDINE DELLE REAZIONI IN OUTPUT       00001380
+C      E' IL SEGUENTE..                                                 00001390
+C      COEFFIC.DIFFUSIONE, SIGMA ASSORB., NU*SIGMA FISS.,BLANK,BLANK    00001400
+      GOTO337                                                           00001410
+C-----MICRO                                                             00001420
+  335 SIG(I,1)=D((I-1)*U(4)+U(2))                                       00001430
+      DDD=D((I-1)*U(4)+U(2)-3)                                          00001440
+      SIG(I,2)=D((I-1)*U(4)+U(2)-2)                                     00001450
+      SIG(I,3)=DDD                                                      00001460
+      IF(DDD.NE.0.) GOTO340                                             00001470
+      ANU(I)=0.                                                         00001480
+      GOTO337                                                           00001490
+C     DIVIDE NU*SIGF  PER SIGF  OTTENENDO IL SOLO NU                    00001500
+  340 ANU(I)=D((I-1)*U(4)+U(2)-1)/DDD                                   00001510
+C      NEL CASO MICRO L' ORDINE DELLE REAZIONI IN OUTPUT E' IL          00001520
+C      SEGUENTE..                                                       00001530
+C      SIGMA ASS., SIGMA FISS., SIGMA TRASPORTO, NU , SIGMA X (NON      00001540
+C      USATA, POSTA =0.)                                                00001550
+C         PARTE COMUNE AD  UK=1  E  UK=2                                00001560
+  337 DO 4 J=I,NG                                                       00001570
+      IF(J-I.GT.NDS) GOTO30                                             00001580
+      SIGS(I,J)=D(U(4)*(J-1)+U(3)+J-I)                                  00001590
+      GOTO4                                                             00001600
+ 30   SIGS(I,J)=0.                                                      00001610
+ 4    CONTINUE                                                          00001620
+      I1=I-1                                                            00001630
+      IF(I1.LE.0)  GOTO6                                                00001640
+      DO 6 J=1,I1                                                       00001650
+      IF(J.GT.NUS)  GOTO20                                              00001660
+      SIGS(I,I-J)=D(U(4)*(I-J-1)+U(3)-J)                                00001670
+      GOTO6                                                             00001680
+ 20   SIGS(I,I-J)=0.                                                    00001690
+    6 CONTINUE                                                          00001700
+      IF(UK.EQ.2.) GO TO 2                                              00001710
+C      MACRO                                                            00001720
+      WRITE(6,105) IZON,I,(SIG(I,IJ),IJ=1,3)                            00001730
+      IF(NPUN.NE.1)GO TO 2                                              00001740
+      WRITE(7,202) IZON,I,(SIG(I,IJ),IJ=1,3)                            00001750
+      WRITE(7,203)(SIGS(I,IJ),IJ=1,NG)                                  00001760
+C     WRITE(6,106) I,(SIGS(I,IJ),IJ=1,NG)                               00001770
+ 2    CONTINUE                                                          00001780
+C      FINE LOOP SUI GRUPPI                                             00001790
+C      IN SIGS(I,J) SONO DATI GLI SCATTERING DAL GRUPPO I AL GRUPPO J   00001800
+      IF(UK.EQ.1.) GOTO50                                               00001810
+C     MICRO                                                             00001820
+C      N1  E' IL NUMERO D'ORDINE DI OGNI MATERIALE SULL' OUTPUT BINARIO 00001830
+      N1=N1+1                                                           00001840
+C      MANN  IDENTIFICAZIONE DEI DATI (QUI NON VIENE USATO)             00001850
+      IF(MTP)710,710,705                                                00001860
+  705 WRITE(MTP)N1,(MANN(I),I=1,4),(TITMAT(K),K=1,6),(VUOT(I),I=1,60)   00001870
+      WRITE(MTP) ((SIG(K,2),SIG(K,3),SIG(K,1),ANU(K),BOH),K=1,NG),((SIGS00001880
+     1(K,L),L=1,NG),K=1,NG)                                             00001890
+  710 WRITE(6,334)((SIG(K,2),SIG(K,3),SIG(K,1),ANU(K),BOH),K=1,NG)      00001900
+      IF(NPUN.EQ.1) IXYZ=IXYZ+1                                         00001910
+C         IXYZ  NUMERO D'ORDINE DI OGNI MATERIALE SULL'OUTPUT SCHEDE    00001920
+      IF(NPUN.EQ.1) WRITE(7,1979) IXYZ,IXYZ,(TITMAT(K),K=1,6)           00001930
+C                                                                       00001940
+C     NEL CASO DI U235 PER COMODITA' SI FA PERFORARE IL VALORE BILLY    00001950
+C     BILLY=3.1E-11 COME TOTAL USEFUL ENERGY RELEASED PER FISSION       00001960
+C                                                                       00001970
+      IF(NPUN.EQ.1.AND.IU35.NE.1) GOTO 1980                             00001980
+      WRITE(7,2001) BILLY                                               00001990
+      WRITE(7,2002)                                                     00002000
+      GO TO 561                                                         00002010
+ 1980 IF(NPUN.EQ.1) WRITE(7,1978)                                       00002020
+  561 IF(NPUN.EQ.1) WRITE(7,333)((SIG(K,2),SIG(K,3),SIG(K,1),ANU(K),BO),00002030
+     1K=1,NG)                                                           00002040
+      IF(NPUN.EQ.1) WRITE(7,444)((SIGS(K,L),L=1,NG),K=1,NG)             00002050
+ 1979 FORMAT (I4,I8,12X,6A4)                                            00002060
+C     MICRO PER IL MATER.E CORRENTE E' FINITA, VA AL PROSSIMO MATERIALE 00002070
+      GOTO50                                                            00002080
+C                                                                       00002090
+   70 WRITE(6,1969)                                                     00002100
+      IF(UK.NE.2.)  GOTO80                                              00002110
+      IF(MTP)730,730,725                                                00002120
+C                                                                       00002130
+C    WRITE RECORD CLOSURE  ON TAPE MTP                                  00002140
+  725 KI=-1                                                             00002150
+      WRITE(MTP)(KI,(I,I=2,20))                                         00002160
+      END FILE  MTP                                                     00002170
+  730 GOTO80                                                            00002180
+ 500  STOP                                                              00002190
+C-----F O R M A T I                                                     00002200
+   78 FORMAT(18A4)                                                      00002210
+  100 FORMAT(1H1,5X,'****CANCT - CONVERSIONE ANISN -------> CITATION',  00002220
+     1 '  VERS.VACCARI ****', ///,6X,20A4)                              00002230
+ 109  FORMAT(24X,3I12)                                                  00002240
+  130 FORMAT(20A4)                                                      00002250
+  150 FORMAT(A4,4X,18I4/20I4)                                           00002260
+  108 FORMAT(8X,'27$',19X,'  U=',6I6)                                   00002270
+  151 FORMAT(1X,'VIENE SCRITTO IL NASTRO BINARIO PER CITATION :MTP=',   00002280
+     1I4, /,1X,18A4)                                                    00002290
+ 200  FORMAT('  8')                                                     00002300
+ 201  FORMAT(3I3)                                                       00002310
+ 103  FORMAT(' GRUPPI',I3,'; MAX DOWN SCATT ',I3,'; MAX UP SCATT ',I3/('00002320
+     1 MATERIALI ',2A4, '  DA PERFORARE',20I4))                         00002330
+  104 FORMAT(1X,'IL NASTRO BINARIO PER CITATION ESISTE:MTP=',I3)        00002340
+ 102  FORMAT(4A4,I3,2A4,I2,12A4)                                        00002350
+ 202  FORMAT(2I6,1P5E12.5)                                              00002360
+ 300  FORMAT(//' TITMAT:  ',20A4,2I4)                                   00002370
+ 105  FORMAT(' ZONA',I3,' GRUPPO',I3,' D,SA,NUSF= ',1P5E12.5)           00002380
+ 203  FORMAT(1P6E12.5)                                                  00002390
+ 106  FORMAT(//' SIGMA SCATT DAL GRUPPO',I3/(1P6E12.5))                 00002400
+ 2001 FORMAT (24X,1PE12.5)                                              00002410
+ 2002 FORMAT(8(/))                                                      00002420
+ 334  FORMAT(' SA,SF,STR,NU,SX=',1P5E12.5)                              00002430
+ 445  FORMAT(' SCATT=',1P6E12.5)                                        00002440
+ 333  FORMAT(1P5E12.5)                                                  00002450
+ 1969 FORMAT(//1X,'FINE MATERIALI')                                     00002460
+ 1978 FORMAT(9(/))                                                      00002470
+  444 FORMAT(1P6E12.5)                                                  00002480
+      END                                                               00002490
+      SUBROUTINE RDAN(D,N)                                              00002500
+C                                                                       00002510
+C     LEGGE TUTTE LE SEZIONI D'URTO PER UN MATERIALE NEL FORMATO FIDO   00002520
+C     (ANISN) SISTEMANDOLE NEL VETTORE D                                00002530
+C                                                                       00002540
+C     N  E' IL NUMERO DI VALORI DA CONVERTIRE, DI SOLITO UGUALE AL      00002550
+C        NUMERO GRUPPI *LUNGHEZZA TAVOLA DELLE SIGMA                    00002560
+C                                                                       00002570
+      DIMENSION D(N)                                                    00002580
+      DIMENSION NA(6),B(6),C(6),CC(6),CCC(6),P(6)                       00002590
+      REAL*4P                                                           00002600
+      DATA P/4H$   ,4H*   ,4H    ,4H+    ,4H-    ,4HR   /,MP/6/         00002610
+C                                                                       00002620
+      NN=1                                                              00002630
+ 50   CONTINUE                                                          00002640
+C     READ(5,100)((NA(I),B(I),C(I)),I=1,6)                              00002650
+      READ(5,100)((NA(I),B(I),C(I)),I=1,6),(CC(K),CCC(K),K=1,6)         00002660
+C     READ(99,110)((CC(I),CCC(I)),I=1,6)                                00002670
+C     IN CC E CCC C'E' IL NUMERO                                        00002680
+ 30   CONTINUE                                                          00002690
+C                                                                       00002700
+C-----LOOP SUI 6 CAMPI DI OGNI SCHEDA IN FORMATO FIDO(ANISN)            00002710
+      DO 3 NJ=1,6                                                       00002720
+C     FA IL TEST SE IL CAMPO DEL NUMERO E' TUTTO BLANK                  00002730
+C     SE TROVA UN CAMPO BIANCO, PASSA AD ESAMINARE IL CAMPO SUCCESSIVO  00002740
+      IF(CC(NJ).EQ.P(3).AND.CCC(NJ).EQ.P(3))   GOTO3                    00002750
+C     ESAMINA IL TIPO DI CODIFICATORE                                   00002760
+      DO 1 NP=1,MP                                                      00002770
+      IF(B(NJ).EQ.P(NP)) GOTO(5,6,7,8,9,10),NP                          00002780
+ 1    CONTINUE                                                          00002790
+C                                                                       00002800
+C     IL $ O ALTRI PARAMETRI DIVERSI DA QUELLI PREVISTI NON SONO TRATTA-00002810
+C     TI                                                                00002820
+    5 WRITE(6,101)B(NJ)                                                 00002830
+ 101  FORMAT(' *****ILPARAMETRO',A8,'  DI ANISN NON E CONTEMPLATO VIENE 00002840
+     1IGNORATO')                                                        00002850
+C     L'ASTERISCO VIENE TRATTATO IMPLICITAMENTE IN QUANTO E' SEMPRE     00002860
+C     SEGUITO DA 9 BLANK E NEL CAMPO SUCCESSIVO DA VALORI REAL          00002870
+ 6    GOTO3                                                             00002880
+ 7    NA(NJ)=1                                                          00002890
+   10 NAA=NA(NJ)                                                        00002900
+      DO 2 NJJ=1,NAA                                                    00002910
+      D(NN)=C(NJ)                                                       00002920
+      NN=NN+1                                                           00002930
+      IF(NN.GT.N) RETURN                                                00002940
+ 2    CONTINUE                                                          00002950
+      GOTO3                                                             00002960
+ 9    NE=-1                                                             00002970
+      GOTO11                                                            00002980
+ 8    NE=1                                                              00002990
+ 11   D(NN)=C(NJ)*10.**(NA(NJ)*NE)                                      00003000
+      NN=NN+1                                                           00003010
+      IF(NN.GT.N) RETURN                                                00003020
+  3   CONTINUE                                                          00003030
+      GOTO50                                                            00003040
+ 110  FORMAT(6(4X,2A4))                                                 00003050
+  100 FORMAT(6(I2,A1,E9.0),T1,6(4X,2A4))                                00003060
+      END                                                               00003070
+      SUBROUTINE SKP(N1,MTP)                                            00003080
+C     SUL NASTRO MTP ESISTENTE SI POSIZIONA SULL' ULTIMO RECORD         00003090
+C     CHE E' UN INDICATORE DI FINE DATI                                 00003100
+      LIM=5000                                                          00003110
+    2 N1=N1+1                                                           00003120
+      READ(MTP,END=500)                                                 00003130
+      IF(N1.GT.LIM)  GOTO600                                            00003140
+      GOTO2                                                             00003150
+  500 BACKSPACE  MTP                                                    00003160
+      BACKSPACE  MTP                                                    00003170
+      N1=(N1-2)/2                                                       00003180
+C     AL RITORNO, N1 INDICA IL NUMERO DI MATERIALI CONTENUTI SUL        00003190
+C     NSTRO MTP                                                         00003200
+      RETURN                                                            00003210
+  600 WRITE(6,100) LIM,MTP                                              00003220
+  100 FORMAT('   DOPO',I6,'  RECORDS NON TROVATO  END OF FILE SUL TAPE',00003230
+     1I6)                                                               00003240
+      STOP                                                              00003250
+      END                                                               00003260

diff --git a/other/codmeta.json b/other/codmeta.json
new file mode 100644 (file)
index 0000000..00543af
--- /dev/null
+++ b/other/codmeta.json
@@ -0,0 +1,29 @@
+{
+  "@context": "https://doi.org/10.5063/schema/codemeta-2.0",
+  "@type": "SoftwareSourceCode",
+  "name": "Legacy FORTRAN codes",
+  "description": "A collection of legacy FORTRAN codes for nuclear reactor cross section computations, developed at CNEN, and then at ENEA by Marcello Galli, between 1976 and 1987"
+  "codeRepository": "http://coding.bologna.enea.it/gitrepo/oldfortrancodes.git",
+  "downloadUrl": "http://coding.bologna.enea.it/gitrepo/oldfortrancodes.git",  
+  "programmingLanguage": "FORTRAN",
+  "operatingSystem": "IBM 3090"
+  "license": "Public domain",
+  "dateCreated":"1977-12-01",
+  "developmentStatus": "Unsupported",
+  "creativeWorkStatus": "Legacy software"
+  "keywords": [
+    "nuclear reactors",
+    "cross sections",
+    "fortran",
+    "software",
+    "ENEA","CNEN","C2RV","Micro","Teseo","Mediator","Medil","canco",
+  ],  
+  "author": [
+    {
+      "@type": "Person",
+      "givenName": "Marcello",
+      "familyName": "Galli",
+      "email": "marcello.galli@enea.it",
+    },
+  ]
+}

diff --git a/other/dadi b/other/dadi
new file mode 100644 (file)
index 0000000..628eec4
--- /dev/null
+++ b/other/dadi
@@ -0,0 +1,38 @@
+C         GENERA DISTRIBUZIONE DEL LANCIO DI DUE DADI                   00000010
+C         PER SAPERE CHI PAGA IL CAFFE'                                 00000020
+         DIMENSION NUM(12)                                              00000030
+         DO 10 I=1,12                                                   00000040
+ 10       NUM(I)=0                                                      00000050
+         NUMEXT=100000                                                  00000060
+         DO 20 I=1,NUMEXT                                               00000070
+         NUM1=RN32(X)*6+1                                               00000080
+         NUM2=RN32(X)*6+1                                               00000090
+         NUM(NUM1+NUM2)=NUM(NUM1+NUM2)+1                                00000100
+ 20      CONTINUE                                                       00000110
+         DO 30 I=1,12                                                   00000120
+         WRITE(6,1000) I,NUM(I)                                         00000130
+ 1000    FORMAT(' VALORE ESTRATTO:  ',I10,' NUMERO USCITE:',I10)        00000140
+ 30      CONTINUE                                                       00000150
+         WRITE(6,2000) NUMEXT                                           00000160
+ 2000    FORMAT(' NUMERO ESTRAZIONI:',I10)                              00000170
+         STOP                                                           00000180
+         END                                                            00000190
+       FUNCTION RN32(DUMMY)                                             00000191
+C         IBM VERSION  RANDOM NUMBER GENERATOR BY F.JAMES (78)          00000192
+         DATAIY/65539/                                                  00000200
+         DATA CONS/Z39200000/                                           00000210
+       IY=IY*69069                                                      00000220
+       IF(IY.GT.0)  GO TO 6                                             00000230
+        IY=IY+2147483647+1                                              00000240
+  6      CONTINUE                                                       00000250
+         JY=(IY/256)*256                                                00000260
+         YFL=JY                                                         00000270
+         RN32=YFL*CONS                                                  00000280
+         RETURN                                                         00000290
+         ENTRY RN32IN(IX)                                               00000300
+         IY=IX                                                          00000310
+         RETURN                                                         00000320
+         ENTRY RN32OT(IX)                                               00000330
+         IX=IY                                                          00000340
+         RETURN                                                         00000350
+         END                                                            00000360

diff --git a/other/diluit b/other/diluit
new file mode 100644 (file)
index 0000000..7db83a2
--- /dev/null
+++ b/other/diluit
@@ -0,0 +1,679 @@
+C                                                                       00000010
+        DIMENSION A(15000)                                              00000020
+        CALL DILUIT(10000,A)                                            00000030
+        STOP                                                            00000040
+        END                                                             00000050
+        SUBROUTINE DILUIT(N,A)                                          00000060
+C     **********************                                            00000070
+C       CALCOLA MACROSCOPICHE DI CELLA E SEZIONE D'URTO DILUITE         00000080
+C       PER DOT , SIGMA SU TAPE ANISN BY GROUPS                         00000090
+C       APRILE-MAGGIO 1983  -  MARCELLO GALLI                           00000100
+C                                                                       00000110
+        DIMENSION A(N)                                                  00000120
+C         300 GRUPPI                                                    00000130
+C          50 REGIONI                                                   00000140
+C         100 ISOTOPI                                                   00000150
+C         VEDI IN VOLIN1 DIM AMESH PER DIM REATTORE                     00000160
+C                   VEDI IN GEOM PER ARGOMENTI FISSI IN CALL EMP        00000170
+C          VEDI IN COLGRU DIMENSIONI FISSE, DEN HA UN LOOP FISSO A 100  00000180
+C                                                                       00000190
+C         UNIT 5=INPUT  ; 6= OUTPUT  ; 11= PROMPT                       00000200
+C              2= SIGMA IN   ;  3= SIGMA OUT                            00000210
+C              24= FLUSSI INPUT                                         00000220
+C               4=SIGMA COLLASSATE A POCHI GRUPPI                       00000230
+C                                                                       00000240
+C         C'E UN PO DI SOVRABBONDANZA IN QUESTI IH ECC                  00000250
+C         IHT=IHTO=IHTI  ; IHM=IHMI NE IHMO ;                           00000260
+C         IHS=IHSI NE IHSO ; LA COSA E DOVUTA A PEZZI DEL               00000270
+C         MEDIATOR INSERITI NEL PROGRAMMA                               00000280
+C                                                                       00000290
+        COMMON /PAR/NEI,NISO,IHM,IHT,IHS,NR,NX,NY,NSTMP,NPRT            00000300
+        COMMON /UFF/ VT,FT(300),VR(50),FR(300,50)                       00000310
+     1,NIS(100),ISR(100),DEN(100),ISM(100)                              00000320
+           COMMON /PAR1/NISOO,IHSO                                      00000330
+      DIMENSION TIT(20)                                                 00000340
+        DIMENSION NPAR(10),DUM(2201)                                    00000350
+           EQUIVALENCE(NEI,NPAR(1))                                     00000360
+         EQUIVALENCE(DUM(1),VT)                                         00000370
+C                                                                       00000380
+C       PULIZIA COMMON UFF                                              00000390
+        DO 5 J=1,2201                                                   00000400
+   5    DUM(J)=0.0                                                      00000410
+C                                                                       00000420
+C                                                                       00000430
+C                                                                       00000440
+C                                                                       00000450
+C     LETTURA TITOLO   TIT                                              00000460
+C                                                                       00000470
+      WRITE(11,2000)                                                    00000480
+      READ(5,1000) TIT                                                  00000490
+ 2000  FORMAT(' TITOLO=?')                                              00000500
+ 1000  FORMAT(20A4)                                                     00000510
+C                      IL CARATTERE DI CONTROLLO =PRIMO CARATT TITOLO   00000520
+C                                                                       00000530
+      WRITE(6,1000) TIT                                                 00000540
+      WRITE(11,1000) TIT                                                00000550
+C                                                                       00000560
+C     READ PARAMETERS                                                   00000570
+C                                                                       00000580
+ 100      CONTINUE                                                      00000590
+      WRITE(11,2010)                                                    00000600
+ 2010 FORMAT(' PARAMETRI:20I4'/' NEI,NISO,IHM,IHT,IHS,NR,NX,NY,NSTMP,NPR00000610
+     1T',20I4)                                                          00000620
+      READ(5,1010)NEI,NISO,IHM,IHT,IHS,NR,NX,NY,NSTMP,NPRT              00000630
+ 1010  FORMAT(20I4)                                                     00000640
+      IF(IHS.LE.0) IHS=IHT+1                                            00000650
+C                                                                       00000660
+C                                                                       00000670
+      WRITE(6,2031) NEI,NISO,IHM,IHT,IHS,NR,NX,NY,NSTMP,NPRT            00000680
+ 2031  FORMAT(' PARAMETRI:'/' NUM GRUPPI INPUT=',I10/' ISOTOPI  =',I10/ 00000690
+     1'  IHM,IHT,IHS     =',3I10/' NUM REGION',I10/' DIM X (VOLUMETTI)='00000700
+     2,I10/'  DIM Y    =',I10/' PARAMETRO STAMPE=',I10/' NPRT:',I10)    00000710
+      WRITE(11,2031)NEI,NISO,IHM,IHT,IHS,NR,NX,NY,NSTMP,NPRT            00000720
+C                                                                       00000730
+C      CONTROLLI SUI PARAMETRI LETTI                                    00000740
+      IF(IHT.GE.IHM) GO TO 110                                          00000750
+        DO 10 I=1,7                                                     00000760
+        IF(NPAR(I).LT.1) GO TO 110                                      00000770
+ 10     CONTINUE                                                        00000780
+        GO TO 120                                                       00000790
+ 110    CONTINUE                                                        00000800
+        WRITE(6,3000) I                                                 00000810
+        WRITE(11,3000) I                                                00000820
+ 3000   FORMAT(' !!!!!!!!! ATTENZIONE ERROR INPUT PARAMETER:',          00000830
+     1I5,' .LT.1  REENTER PARAMETERS !!!!!!')                           00000840
+       GO TO 100                                                        00000850
+ 120   CONTINUE                                                         00000860
+C                                                                       00000870
+C                                                                       00000880
+C                                                                       00000890
+C                                                                       00000900
+C                                                                       00000910
+C             GEOMETRIA                                                 00000920
+         N1=1                                                           00000930
+          N2=N1+NX*NY                                                   00000940
+          N3=N2+NX*NY*NEI                                               00000950
+          N4=N3+NR                                                      00000960
+          N5=N4+NR                                                      00000970
+          N6=N5+NR                                                      00000980
+          N7=N6+NR+5                                                    00000990
+         IF(N7.GT.N) STOP 1                                             00001000
+C                                                                       00001010
+          CALL GEOM(NR,NX,NY,NEI,A(N1),A(N2),A(N3),A(N4),A(N5),A(N6),A(N00001020
+     17))                                                               00001030
+C                                                                       00001040
+        N1=IHM*NISO+1                                                   00001050
+       IF(N1.GT.N) STOP 2                                               00001060
+C                                                                       00001070
+           CALL FSIG(NISO,IHM,A(1),A(N1))                               00001080
+C                                                                       00001090
+           WRITE(11,4000)                                               00001100
+ 4000  FORMAT(' INPUT PARAMETRI PER MEDIE A POCHI GRUPPI:IHMO,          00001110
+     1IHSO')                                                            00001120
+        READ(5,1010) IHMO,IHSO                                          00001130
+        IF(IHT.LE.0) GO TO 400                                          00001140
+        WRITE(11,7000) IHMO,IHSO                                        00001150
+        WRITE(6,7000) IHMO,IHSO                                         00001160
+ 7000   FORMAT(' OUTPUT:LUNG TAVOLA:',I4,' SCATT:',2I4)                 00001170
+C                                                                       00001180
+C                                                                       00001190
+        N1=IHM*NISOO+1                                                  00001200
+C                                                                       00001210
+        CALL COLGRU(IHMO,NISOO+1,IHM,A(1),A(N1))                        00001220
+C                                                                       00001230
+ 400    CONTINUE                                                        00001240
+C                                                                       00001250
+C                                                                       00001260
+            RETURN                                                      00001270
+            END                                                         00001280
+        SUBROUTINE GEOM(NR,NX,NY,NEI,V,F,NX1,NX2,NY1,NY2,MM)            00001290
+C       ***************************************************             00001300
+C           LEGGE VOLUMI E FLUSSI PER CELLETTE: V,F                     00001310
+C           CALCOLA VOL REGIONI :VR E FLUSSI MEDI REGIONE: FR           00001320
+        DIMENSION V(NX,NY),F(NEI,NX,NY)                                 00001330
+        COMMON /PAR/NEID,NISO,IHM,IHT,IHS,NRD,NXD,NYD,NSTMP             00001340
+        COMMON /UFF/ VT,FT(300),VR(50),FR(300,50)                       00001350
+     1,NIS(100),ISR(100),DEN(100),ISM(100)                              00001360
+           DIMENSION NX1(NR),NX2(NR),NY1(NR),NY2(NR)                    00001370
+       DIMENSION KR(12),KR1(12)                                         00001380
+        DIMENSION MM(100,100)                                           00001390
+C                                                                       00001400
+          CALL VOLIN1(NX,NY,1,V,MM)                                     00001410
+C                                                                       00001420
+          CALL FIIN1(NEI,NX,NY,1,F)                                     00001430
+C                                                                       00001440
+C         INPUT GEOMETRIA                                               00001450
+             WRITE(11,7000)                                             00001460
+ 7000      FORMAT(' ENTER PARAMETER FOR GEOMETRY DESC(=1 DOT)')         00001470
+             READ(5,7001) NTIP1                                         00001480
+ 7001      FORMAT(20I4)                                                 00001490
+             WRITE(6,7002) NTIP1                                        00001500
+             WRITE(11,7002) NTIP1                                       00001510
+ 7002      FORMAT(' LETTO: GEOMETRY PARAMETER:',I4)                     00001520
+              IF(NTIP1.EQ.1) GO TO 700                                  00001530
+C                                                                       00001540
+C                                                                       00001550
+           WRITE(11,1000)                                               00001560
+      DO 5 J=1,NR                                                       00001570
+  1       READ(5,2000) (NX1(J),NX2(J),NY1(J),NY2(J))                    00001580
+         IF(NX1(J).LE.0.OR.NX2(J).LE.0.OR.NY1(J).LE.0.OR.NY2(J).LE.0)   00001590
+     1 GO TO 6                                                          00001600
+        IF(NX1(J).GT.NX2(J).OR.NY1(J).GT.NY2(J)) GO TO 6                00001610
+        GO TO 8                                                         00001620
+  6     WRITE(6,900)J, NX1(J),NX2(J),NY1(J),NY2(J)                      00001630
+        WRITE(11,900)J, NX1(J),NX2(J),NY1(J),NY2(J)                     00001640
+ 900    FORMAT(' ERRORE IN INPUT REENTER REGION:',I5,' SCHEDA:',10I5)   00001650
+           GO TO 1                                                      00001660
+ 8    CONTINUE                                                          00001670
+   5    CONTINUE                                                        00001680
+C                                                                       00001690
+ 1000      FORMAT(' DARE X1,X2,Y1,Y2 PER OGNI REGIONE:4I4')             00001700
+ 2000      FORMAT(20I4)                                                 00001710
+C                                                                       00001720
+C         CALCOLO VR ED FR                                              00001730
+C                                                                       00001740
+      WRITE(6,3000) (J,NX1(J),NX2(J),NY1(J),NY2(J),J=1,NR)              00001750
+ 3000     FORMAT(' REGIONE , DA VOL A VOL(X), DA VOL A VOL(Y)'/(1X,5I7))00001760
+C         CALL EMP(0.0,50,1,1,VR)                                       00001770
+C         CALL EMP(0.0,300,50,1,FR)                                     00001780
+C                                                                       00001790
+           DO 10 I=1,NR                                                 00001800
+         N1=NX1(I)                                                      00001810
+         N2=NX2(I)                                                      00001820
+         N3=NY1(I)                                                      00001830
+         N4=NY2(I)                                                      00001840
+C                                                                       00001850
+           DO 20 IX=N1,N2                                               00001860
+       DO 20 IY=N3,N4                                                   00001870
+        VR(I)=VR(I)+V(IX,IY)                                            00001880
+       DO 30 IE=1,NEI                                                   00001890
+       FR(IE,I)=FR(IE,I)+F(IE,IX,IY)*V(IX,IY)                           00001900
+  30   CONTINUE                                                         00001910
+  20   CONTINUE                                                         00001920
+  10  CONTINUE                                                          00001930
+ 770      CONTINUE                                                      00001940
+        WRITE(6,5000) (VR(J),J=1,NR)                                    00001950
+ 5000   FORMAT(' VOLUMI PER OGNI REGIONE:'/10(1PE12.5))                 00001960
+C                                                                       00001970
+        DO 31 IX=1,NX                                                   00001980
+         DO 31 IY=1,NY                                                  00001990
+         VT=VT+V(IX,IY)                                                 00002000
+          DO 31 IE=1,NEI                                                00002010
+ 31        FT(IE)=FT(IE)+F(IE,IX,IY)*V(IX,IY)                           00002020
+          WRITE(6,6008) VT                                              00002030
+ 6008     FORMAT('0 VOLUME TOTALE',1PE15.5)                             00002040
+          DO 32 I=1,NR                                                  00002050
+ 32       WRITE(6,6000) I,(FR(J,I),J=1,NEI)                             00002060
+      WRITE(6,6007) (FT(J),J=1,NEI)                                     00002070
+ 6007     FORMAT(' FLUSSI INTEGRATI CELLA'/(1X,10(1PE12.5)))            00002080
+C                                                                       00002090
+          DO 35 IE=1,NEI                                                00002100
+           FT(IE)=FT(IE)/VT                                             00002110
+          DO 36 I=1,NR                                                  00002120
+           FR(IE,I)=FR(IE,I)/VR(I)                                      00002130
+  36      CONTINUE                                                      00002140
+ 35    CONTINUE                                                         00002150
+C                                                                       00002160
+          DO 40 I=1,NR                                                  00002170
+  40      WRITE(6,6006) I,(FR(J,I),J=1,NEI)                             00002180
+      WRITE(6,6009) (FT(J),J=1,NEI)                                     00002190
+ 6009     FORMAT(' FLUSSI MEDI CELLA'/(1X,10(1PE12.5)))                 00002200
+ 6006     FORMAT(' REGIONE',I4,' FLUSSI MEDI SU VOL:'/(1X,10(1PE12.5))) 00002210
+          RETURN                                                        00002220
+ 6000     FORMAT(' REGIONE',I4,' FLUSSI INTEGRATI :'/(1X,10(1PE12.5)))  00002230
+ 700         CONTINUE                                                   00002240
+             KX=0                                                       00002250
+             KY=1                                                       00002260
+ 69          CONTINUE                                                   00002270
+             WRITE(11,7003)                                             00002280
+ 7003      FORMAT(' DARE REGIONI CELLA :12(1X,2I,1X,2I) ')              00002290
+             READ(5,7005)(KR(J),KR1(J),J=1,12)                          00002300
+ 7005      FORMAT(12(1X,I2,1X,I2))                                      00002310
+             DO 70 I=1,12                                               00002320
+            IF(KR1(I).LE.0) GOTO70                                      00002330
+C      NUM REGIONE TROPPO GROSSO                                        00002340
+       IF(KR1(I).GT.NR) STOP 7                                          00002350
+            IF(KR(I).LE.0) KR(I)=1                                      00002360
+             N1=KR(I)                                                   00002370
+           DO 71 IJ=1,N1                                                00002380
+             KX=KX+1                                                    00002390
+             MM(KX,KY)=KR1(I)                                           00002400
+             IF(KX.EQ.NX) GO TO 701                                     00002410
+             GO TO 71                                                   00002420
+ 701     KY=KY+1                                                        00002430
+         KX=0                                                           00002440
+         IF(KY.GT.NY) GO TO 705                                         00002450
+ 71      CONTINUE                                                       00002460
+ 70      CONTINUE                                                       00002470
+         GO TO  69                                                      00002480
+ 705      CONTINUE                                                      00002490
+           WRITE(6,77)                                                  00002495
+ 77        FORMAT(7(1X,' MAPPA  '))                                     00002496
+          DO 72 I=1,NY                                                  00002500
+          WRITE(6,7077) (MM(J,I),J=1,NX)                                00002510
+C            WRITE(11,7006) I,(MM(J,I),J=1,NX)                          00002520
+ 72     CONTINUE                                                        00002530
+ 7006       FORMAT(' COORD REATTORE: COL=',I4,'= ',(1X,20I4))           00002540
+ 7077       FORMAT(1X,65I2)                                             00002545
+C                                                                       00002550
+C         CALCOLO VR ED FR                                              00002560
+C                                                                       00002570
+C         CALL EMP(0.0,50,1,1,VR)                                       00002580
+C         CALL EMP(0.0,300,50,1,FR)                                     00002590
+C                                                                       00002600
+           DO 73 IX=1,NX                                                00002610
+           DO 73 IY=1,NY                                                00002620
+        VR(MM(IX,IY))=VR(MM(IX,IY))+V(IX,IY)                            00002630
+           DO 73 IE=1,NEI                                               00002640
+        FR(IE,MM(IX,IY))=FR(IE,MM(IX,IY))+F(IE,IX,IY)*V(IX,IY)          00002650
+  73       CONTINUE                                                     00002660
+        GO TO 770                                                       00002670
+C                                                                       00002680
+C                                                                       00002690
+            END                                                         00002700
+C                                                                       00002710
+            SUBROUTINE FSIG(NIS1,IHM1,SIGI,SIGO)                        00002720
+C           ***********************************                         00002730
+            DIMENSION SIGI(IHM1,NIS1),SIGO(IHM1,2)                      00002740
+        COMMON /PAR/NEI,NISO,IHM,IHT,IHS,NR,NX,NY,NSTMP                 00002750
+        COMMON /UFF/ VT,FT(300),VR(50),FR(300,50)                       00002760
+     1,NIS(100),ISR(100),DEN(100),ISM(100)                              00002770
+        COMMON /PAR1/NISOO                                              00002780
+       ITEST=0                                                          00002790
+C         ITEST =1 SE QUALCHE NUM MACRO.LE.0 ALLORA METTE LUI I NUM MACR00002800
+            NT=0                                                        00002810
+ 10         CONTINUE                                                    00002820
+        NT1=NT+1                                                        00002830
+       IF(NT1.GT.100.OR.NT1.LE.0) STOP 3                                00002840
+ 98      CONTINUE                                                       00002850
+         WRITE(11,1001)                                                 00002860
+ 1001  FORMAT(' FORNIRE : NUM ISOTOPO,REGIONE,MACRO,RHO :3I4,E12.5')    00002870
+          READ(5,2000) NIS(NT1),ISR(NT1),ISM(NT1),DEN(NT1)              00002880
+          IF(NIS(NT1).LE.0) GO TO 100                                   00002890
+        IF(ISM(NT1).NE.1) GO TO 99                                      00002900
+      IF(ISM(NT1).EQ.1) WRITE(6,2001) NIS(NT1),ISR(NT1),ISM(NT1),DEN    00002910
+     1(NT1)                                                             00002920
+ 2001  FORMAT(' !!!!!!!!! ****** ERRORE **** NUM ISOTOPO DILUITO DEVE   00002930
+     1 ESSERE .GT. 1 (  1 = MACRO DI CELLA) '/' ??SCHEDA INGORATA',     00002940
+     23I4,1PE12.5)                                                      00002950
+       IF(ISM(NT1).EQ.1) GO TO 98                                       00002960
+ 99     CONTINUE                                                        00002970
+          IF(NIS(NT1).LE.0.OR.NIS(NT1).GT.NISO) GO TO 101               00002980
+         IF(ISR(NT1).GT.NR.OR.ISR(NT1).LE.0) GO TO 101                  00002990
+         GO TO 102                                                      00003000
+ 101     WRITE(11,2002) NIS(NT1),ISR(NT1),ISM(NT1),DEN(NT1)             00003010
+         WRITE(6,2002)  NIS(NT1),ISR(NT1),ISM(NT1),DEN(NT1)             00003020
+ 2002    FORMAT(' SCHEDA SBAGLIATA, PARAMETRO FUORI CAMPO. ',           00003030
+     1'  SCHEDA IGNORATA:',3I5,1PE12.5)                                 00003040
+      GOTO 98                                                           00003050
+ 102       CONTINUE                                                     00003060
+ 2000  FORMAT(3I4,E12.0)                                                00003070
+C             LA SCHEDA E' STATA FINALMENTE PRESA PER BUONA             00003080
+          IF(ISM(NT1).LE.0) ITEST=1                                     00003090
+         NT=NT+1                                                        00003100
+            WRITE(11,1000) NT,NIS(NT),ISR(NT),ISM(NT),DEN(NT)           00003110
+ 1000  FORMAT(' ISOTOPI:SCHEDA:',I4,' ISOTPO:',I4,' REGIONE:',I4,' MACRO00003120
+     1:',I4,' DENS:',1PE12.5)                                           00003130
+         GO TO 10                                                       00003140
+ 100     CONTINUE                                                       00003150
+         WRITE(6,5000)(I,NIS(I),ISR(I),ISM(I),DEN(I),I=1,NT)            00003160
+ 5000    FORMAT(' SCHEDA,ISOTOPO,REGIONE,MACRO,DENS'/(1X,4I5,1PE12.5))  00003170
+C                                                                       00003180
+C                                                                       00003190
+C        OCCHIO ALLE INTERFERENZE FRA MACRO COSTRUITE E QUELLE          00003200
+C        DATE IN INPUT.                                                 00003210
+C         QUI COSTRUISCE MACRO DANDO NUMERI= QUELLI MICRO +1,           00003220
+C          CHE E' LA MACRO DI CELLA                                     00003230
+C                                                                       00003240
+C          CREAZIONE ISM ( NUMERO DELLA MACRO)                          00003250
+        IF(ITEST.EQ.1) GO TO 150                                        00003260
+C       CONTA LE MACRO ASSEGNATE IN INPUT (MAX 100 MACRO )              00003270
+C     IN QUESTO CASO FA MACRO DI ZONA,NUM MACRO DATI IN INPUT           00003280
+           NISOO=1                                                      00003290
+           DO 17 I=2,100                                                00003300
+           DO 18 J=1,NT                                                 00003310
+           IF(ISM(J).NE.I) GO TO 111                                    00003320
+           NISOO=NISOO+1                                                00003330
+           IF(NISOO.NE.I) WRITE(11,2500) I,NISOO,J                      00003340
+ 2500      FORMAT(' ERRORE!!!!! ESISTE MACRO NUM:',I5,' CON TOT NUM     00003350
+     1MACRO=',I5,' SCHEDA:',I5)                                         00003360
+            GO TO 180                                                   00003370
+ 111       CONTINUE                                                     00003380
+  18       CONTINUE                                                     00003390
+ 180       CONTINUE                                                     00003400
+  17       CONTINUE                                                     00003410
+           GO TO 125                                                    00003420
+ 150       CONTINUE                                                     00003430
+C                                                                       00003440
+C                                                                       00003450
+C     IN QUESTO CASO FA DILUIZIONE ISOTOPI,NUMERI CRESCETI PER OGNI     00003460
+C     SCHEDA SONO ASSEGNATI COME NUMERI DELLE MACRO                     00003470
+          DO 13 I=1,NT                                                  00003480
+  13      ISM(I)=I+1                                                    00003490
+          NISOO=NT+1                                                    00003500
+C                                                                       00003510
+ 3000     FORMAT(' SCHEDA ISOTOPO REGIONE  MACRO  RHO'/(1X,4I7,1PE12.5))00003520
+ 125        CONTINUE                                                    00003530
+          WRITE(6,3000) (J,NIS(J),ISR(J),ISM(J),DEN(J),J=1,NT)          00003540
+          REWIND 3                                                      00003550
+          REWIND 2                                                      00003560
+           DO 3 IE=1,NEI                                                00003570
+          READ(2) ((SIGI(J,J1),J=1,IHM),J1=1,NISO)                      00003580
+      IF(NSTMP.GT.100) WRITE(6,3300) IE,((SIGI(J,J1),J=1,IHM),J1=1,NISO)00003590
+ 3300  FORMAT(' SIGMA INPUT DA UNIT 2 : GRUPPO :',I4/(1X,10(1PE12.5)))  00003600
+          CALL EMP(0.0,IHM,NISOO,1,SIGO)                                00003610
+          DO 15 I=1,NT                                                  00003620
+C      NEL CASO SI FACCIA MACRO MOLTIPLICA PER RHO,PER SINGOLI ISOTOPI  00003630
+C      DILUITI NO                                                       00003640
+       DUM=1.                                                           00003650
+       IF(ITEST.EQ.0) DUM=DEN(I)                                        00003660
+C                                                                       00003670
+          DO 20 IH=1,IHT                                                00003680
+C      I FI SONO MEDI SU VOLUMI,QUESTO PERCHE TASSI MACRO SI CONSERVANO 00003690
+C      CHE SONO FATTI CON RHO DI CELLA (DENS DILUITE)                   00003700
+          SIGO(IH,ISM(I))=SIGO(IH,ISM(I))+SIGI(IH,NIS(I))*FR(IE,ISR(I)) 00003710
+     1/FT(IE)*DUM                                                       00003720
+C      LA MACRO CHE SEGUE USA DENSITA DILUITA                           00003730
+         SIGO(IH,1)=SIGI(IH,NIS(I))*(FR(IE,ISR(I))/FT(IE))*DEN(I)*VR(IS 00003740
+     1R(I))/VT+SIGO(IH,1)                                               00003750
+  20     CONTINUE                                                       00003760
+       IHT1=IHT+1                                                       00003770
+       DO 25 IH=IHT1,IHM                                                00003780
+C         GRUPPO DI PROVENIENZA                                         00003790
+            IO=IE+(IHS-IH)                                              00003800
+             IF(IO.LT.1.OR.IO.GT.NEI) GO TO 25                          00003810
+C                                                                       00003820
+          SIGO(IH,ISM(I))=SIGO(IH,ISM(I))+SIGI(IH,NIS(I))*FR(IO,ISR(I)) 00003830
+     1/FT(IO)*DUM                                                       00003840
+C      LA MACRO CHE SEGUE USA DENSITA DILUITA                           00003850
+         SIGO(IH,1)=SIGI(IH,NIS(I))*(FR(IO,ISR(I))/FT(IO))*DEN(I)*VR(IS 00003860
+     1R(I))/VT+SIGO(IH,1)                                               00003870
+  25       CONTINUE                                                     00003880
+C                                                                       00003890
+C                                                                       00003900
+  15    CONTINUE                                                        00003910
+C                                                                       00003920
+C           STAMPE (                                                    00003930
+      IF(NSTMP.LT.15) GO TO 300                                         00003940
+         DO 30 I=1,NISOO                                                00003950
+         WRITE(6,4000)IE,I,(SIGO(J,I),J=1,IHM)                          00003960
+ 4000    FORMAT(' SCRITTO SU TAPE 3 :GRUPPO:',I4,' ISOTOPO DILUITO(MACRO00003970
+     1):',I4/(1X,10(1PE12.5)))                                          00003980
+  30     CONTINUE                                                       00003990
+ 300     CONTINUE                                                       00004000
+C                                                                       00004010
+C                                                                       00004020
+        WRITE(3) ((SIGO(J,J1),J=1,IHM),J1=1,NISOO)                      00004030
+ 3      CONTINUE                                                        00004040
+        RETURN                                                          00004050
+        END                                                             00004060
+        SUBROUTINE VOLIN1(MX,MY,MZ,VOL,AMESH)                           00004070
+C     +++++++++++++++++++++++++++++++++++++++++++++                     00004080
+C     LETTURA VOLUMI                                                    00004090
+C                                                                       00004100
+      DIMENSION VOL(MX,MY,MZ),AMESH(1000,MY)                            00004110
+        COMMON /PAR/NEI,NISO,IHM,IHT,IHS,NR,NX,NY,NSTMP                 00004120
+      IM=NX+1                                                           00004130
+       JM=NY+1                                                          00004140
+C                                                                       00004150
+          WRITE(11,1000)                                                00004160
+ 1000     FORMAT(' ENTER PARAMETER GEOMETRIA(1=X-Y,2=CYL,0=VOL,LT.0=1.')00004170
+          READ(5,1100) NGEOM                                            00004180
+          WRITE(6,1100) NGEOM                                           00004190
+          WRITE(11,1100) NGEOM                                          00004200
+          IF(NGEOM.EQ.0) GO TO 200                                      00004210
+          IF(NGEOM.LT.0) GO TO 400                                      00004220
+ 1100    FORMAT(20I4)                                                   00004230
+C                                                                       00004240
+C                                                                       00004250
+      WRITE(6,1200)                                                     00004260
+      WRITE(11,1200)                                                    00004270
+ 1200  FORMAT('  MESH-(X-Y),X=1,NX+1;Y=1,NY+1 ')                        00004280
+      READ(5,2110) (AMESH(J,1),J=1,IM)                                  00004290
+      READ(5,2110) (AMESH(J,2),J=1,JM)                                  00004300
+      WRITE(6,2111) (AMESH(J,1),J=1,IM)                                 00004310
+      WRITE(6,2111) (AMESH(J,2),J=1,JM)                                 00004320
+ 2111   FORMAT(' AMESH: '/6(1PE12.5))                                   00004330
+      WRITE(11,2111) (AMESH(J,1),J=1,IM)                                00004340
+      WRITE(11,2111) (AMESH(J,2),J=1,JM)                                00004350
+ 2110  FORMAT(6E12.5)                                                   00004360
+C                                                                       00004370
+      DO 20 IX=1,NX                                                     00004380
+      DO 20 IY=1,NY                                                     00004390
+      DO 20 IZ=1,NZ                                                     00004400
+      VOL(IX,IY,IZ)=(AMESH(IX+1,1)-AMESH(IX,1))*(AMESH(IY+1,2)-AMESH(IY,00004410
+     12))                                                               00004420
+          IF(NGEOM.EQ.2) VOL(IX,IY,IZ)=3.14159   *(AMESH(IX+1,1)**2     00004430
+     1 -AMESH(IX,1)**2) * (AMESH(IY+1,2)-AMESH(IY,2))                   00004440
+C                                                                       00004450
+  20  CONTINUE                                                          00004460
+C                                                                       00004470
+C                                                                       00004480
+      IF(NSTMP.GT.10)                                                   00004490
+     1WRITE(6,5500) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ)         00004500
+      RETURN                                                            00004510
+ 200  CONTINUE                                                          00004520
+C     LETTURA DI DEFAULT                                                00004530
+      WRITE(11,4000)                                                    00004540
+ 4000  FORMAT(' FORNIRE I VOLUMI(IX,IY,IZ,X=...),Y=...),Z=...)6E12.5')  00004550
+      READ(5,5000) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ)          00004560
+      WRITE(6,5500) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ)         00004570
+      WRITE(11,5500)(((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ)         00004580
+ 5500  FORMAT(' VOLUMI:'/10(1PE12.5))                                   00004590
+ 5000  FORMAT(6E12.5)                                                   00004600
+      RETURN                                                            00004610
+C        VOLUMI UGUALI =1.                                              00004620
+ 400    CONTINUE                                                        00004630
+        DO 40 JX=1,NX                                                   00004640
+        DO 40 JY=1,NY                                                   00004650
+        DO 40 JZ=1,NZ                                                   00004660
+ 40     VOL(JX,JY,JZ)=1.                                                00004670
+      WRITE(6,5500) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ)         00004680
+      WRITE(11,5500)(((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ)         00004690
+         RETURN                                                         00004700
+CC                                                                      00004710
+         END                                                            00004720
+      SUBROUTINE FIIN1(NEI,NX,NY,NZ,FI)                                 00004730
+C      *****************************************                        00004740
+        COMMON /PAR/NED,NISO,IHM,IHT,IHS,NR,XD,YD,NSTMP                 00004750
+C     INPUT FLUSSI                                                      00004760
+C                                                                       00004770
+      DIMENSION FI(NEI,NX,NY,NZ)                                        00004780
+           WRITE(11,1000)                                               00004790
+ 1000   FORMAT(' INPUT TIPO FLUSSI: SE NE.0 SONO PIATTI')               00004800
+           READ(5,1100) KFLU                                            00004810
+           WRITE(6,1200) KFLU                                           00004820
+           WRITE(11,1200) KFLU                                          00004830
+ 1200      FORMAT(' PARAMETRO FLUSSI =',I5)                             00004840
+ 1100      FORMAT(20I4)                                                 00004850
+           IF(KFLU.NE.0) GO TO400                                       00004860
+C                                                                       00004870
+ 100      CONTINUE                                                      00004880
+C     +++++++++++++++++++++++++ TIPO DOT                                00004890
+      REWIND 24                                                         00004900
+         DO 20 J=1,NEI                                                  00004910
+ 20   READ(24) (((FI(J,J1,J2,J3),J1=1,NX),J2=1,NY),J3=1,NZ)             00004920
+         REWIND 24                                                      00004930
+      IF(NSTMP.LT.30) GO TO 150                                         00004940
+ 140      CONTINUE                                                      00004950
+      DO 50 JG=1,NEI                                                    00004960
+              WRITE(6,4000) JG                                          00004970
+ 4000  FORMAT(' FLUSSO GRUPPO:',I10)                                    00004980
+      DO 51 J3=1,NZ                                                     00004990
+      WRITE(6,4001) J3                                                  00005000
+ 4001  FORMAT(' DIMENSIONE Z=',I10)                                     00005010
+      DO 52 J2=1,NY                                                     00005020
+      WRITE(6,4002)J2                                                   00005030
+ 4002  FORMAT(' DIM Y',I10)                                             00005040
+      WRITE(6,4003) (FI(JG,J1,J2,J3),J1=1,NX)                           00005050
+ 4003  FORMAT(1X,10(1PE12.5))                                           00005060
+ 52   CONTINUE                                                          00005070
+ 51   CONTINUE                                                          00005080
+ 50   CONTINUE                                                          00005090
+ 150  CONTINUE                                                          00005100
+C                                                                       00005110
+C                                                                       00005120
+              RETURN                                                    00005130
+C                                                                       00005140
+C             INPUT FLUSSI PIATTI = 1.                                  00005150
+ 400   CONTINUE                                                         00005160
+        DO 40 I=1,NEI                                                   00005170
+        DO 40 JX=1,NX                                                   00005180
+        DO 40 JY=1,NY                                                   00005190
+        DO 40 JZ=1,NZ                                                   00005200
+ 40       FI(I,JX,JY,JZ)=1.                                             00005210
+           GO TO 140                                                    00005220
+C                                                                       00005230
+C     RETURN                                                            00005240
+       END                                                              00005250
+      SUBROUTINE EMP(K,N1,N2,N3,L)                                      00005260
+C     ******************************                                    00005270
+C     EMPIE L(N1,N2,N3) CON K                                           00005280
+C                                                                       00005290
+      DIMENSION L(N1,N2,N3)                                             00005300
+      DO 10 I=1,N1                                                      00005310
+      DO 10 J=1,N2                                                      00005320
+      DO 10 JJ=1,N3                                                     00005330
+ 10   L(I,J,JJ)=K                                                       00005340
+      RETURN                                                            00005350
+      END                                                               00005360
+C                                                                       00005370
+       SUBROUTINE COLGRU(IHMO,NOSO1,IHM,SIGI,SIGO)                      00005380
+C      ******************************************                       00005390
+C       SUBROUTINE FOR GROUP COLLAPSING                                 00005400
+C                                                                       00005410
+         DIMENSION NGRP(300),SIGI(IHM,10),SIGO(IHM,NOSO1,20)            00005420
+         COMMON /PAR1/ NISOO,IHSO                                       00005430
+        COMMON /PAR/NEI,NISO,IHMD,IHT,IHS,NR,NX,NY,NSTMP,NPRT           00005440
+        COMMON /UFF/ VT,FT(300),VR(50),FR(300,50)                       00005450
+     1,NIS(100),ISR(100),DEN(100),ISM(100)                              00005460
+C                                                                       00005470
+C                                                                       00005480
+        IHSI=IHS                                                        00005490
+      IHTO=IHT                                                          00005500
+       IHTI=IHT                                                         00005510
+          IHT1=IHT+1                                                    00005520
+C                                                                       00005530
+        IHMI=IHM                                                        00005540
+C               ANNULLA DEN USATO PER DENOMINATORI                      00005550
+             DO 5I=1,100                                                00005560
+  5        DEN(I)=0.0                                                   00005570
+C                                                                       00005580
+          NEO=1                                                         00005590
+          NPROX=1                                                       00005600
+ 10       CONTINUE                                                      00005610
+          WRITE(11,1000) NEO,N1,N2                                      00005620
+ 1000     FORMAT(' ENTER LIMITI GRUPPI FINI DEL GRUPPO GROSSO:',I5,     00005630
+     1' GRUPPO PREC DA:',I5,' AD:',I5)                                  00005640
+            READ(5,2000) N1,N2                                          00005650
+ 2000     FORMAT(20I4)                                                  00005660
+           IF(N1.LE.0) GO TO 100                                        00005670
+C           CONTROLLI                                                   00005680
+           IF(N1.NE.NPROX) GO TO 150                                    00005690
+           IF(N2.LT.N1)    GO TO 150                                    00005700
+            GO TO 160                                                   00005710
+ 150       WRITE(11,3000) N1,N2,NPROX,NEO                               00005720
+ 3000    FORMAT(' INPUT ERROR N1,N2,PROX GRUPP,GRUPPO ATTUALE:',4I5,    00005730
+     1' REENTER INPUT')                                                 00005740
+          GO TO 10                                                      00005750
+ 160     CONTINUE                                                       00005760
+C       COSTRUZIONE  NGRP PER IL GRUPPO IN QUESTIONE                    00005770
+C                                                                       00005780
+          DO 20 I=N1,N2                                                 00005790
+          DEN(NEO)=DEN(NEO)+FT(I)                                       00005800
+  20      NGRP(I)=NEO                                                   00005810
+          NEO=NEO+1                                                     00005820
+          NPROX=N2+1                                                    00005830
+          IF(NPROX.EQ.NEI+1) GO TO 200                                  00005840
+          GO TO 10                                                      00005850
+ 100      IF(NPROX.GT.NEI) GO TO 200                                    00005860
+          DO 30 I=NPROX,NEI                                             00005870
+          DEN(NEO)=DEN(NEO)+FT(I)                                       00005880
+ 30       NGRP(I)=NEO                                                   00005890
+         NEO=NEO+1                                                      00005900
+ 200     CONTINUE                                                       00005910
+      NEO=NEO-1                                                         00005920
+C                                                                       00005930
+C       STAMPE STRUTTURE GRUPPALI COSTRUITE                             00005940
+C                                                                       00005950
+           DO 40 I=1,NEI                                                00005960
+ 40        WRITE(6,4000) I,NGRP(I),DEN(NGRP(I))                         00005970
+ 4000    FORMAT(' GRUPPO FINE:',I4,'  = ',I4,' GRUPPO GROSSO',' FLUSSO='00005980
+     1,1PE12.5)                                                         00005990
+C                                                                       00006000
+C                                                                       00006010
+           REWIND 3                                                     00006020
+           CALL EMP(0.0,IHM,NOSO1,NEO,SIGO)                             00006030
+C                                                                       00006040
+           DO 50 IE=1,NEI                                               00006050
+         READ(3) (( SIGI(J,JJ),J=1,IHM),JJ=1,NISOO)                     00006060
+       IF(IHT-2.LT.1) GO TO 555                                         00006070
+        SIGO(IHT-2,1,NGRP(IE))=SIGO(IHT-2,1,NGRP(IE))                   00006080
+     1   +FT(IE)/(3.*SIGI(IHT,1)*DEN(NGRP(IE)))                         00006090
+C                                                                       00006100
+ 555    CONTINUE                                                        00006110
+        SIGO(IHT,1,NGRP(IE))=SIGO(IHT,1,NGRP(IE))                       00006120
+     1 + FT(IE)/(SIGI(IHT,1)*DEN(NGRP(IE))*3.)                          00006130
+C                                                                       00006140
+        DO 95 IS=1,NISOO                                                00006150
+        DO 60 IH=1,IHT                                                  00006160
+  60    SIGO(IH,IS+1,NGRP(IE))=SIGO(IH,IS+1,NGRP(IE)) +                 00006170
+     1 SIGI(IH,IS)*FT(IE)/DEN(NGRP(IE))                                 00006180
+C                                                                       00006190
+      DO 90 IH=IHT1,IHMI                                                00006200
+C     GRUPPO DI PROVENIENZA                                             00006210
+C     EVITA SCRITTE INUTILI SCATT FUORI TAVOLA PER SIGMA NULLE          00006220
+      IF(SIGI(IH,IS).EQ.0.) GO TO 90                                    00006230
+C      GRUPPO PROVENIENZA UFG                                           00006240
+      NGFROM=IE+(IHSI-IHT1)-(IH-IHT1)                                   00006250
+C                                                                       00006260
+      IF(NGFROM.GT.NEI.OR.NGFROM.LT.1)                                  00006270
+     1 WRITE(6,3990) NGFROM,IE,IHSI,IHT1,IH,IS                          00006280
+C      WRITE(6,3990) NGFROM,IE,IHSI,IHT1,IH,IS                          00006290
+      IF(NGFROM.GT.NEI.OR.NGFROM.LT.1)                                  00006300
+     1 WRITE(11,3990) NGFROM,IE,IHSI,IHT1,IH,IS                         00006310
+ 3990 FORMAT(' WARNING !!!'/' ERRORE IN NGFROM IN LOOP 90,NGFROM,IE,IHSI00006320
+     1 IHT1,IH,IS'/1X,10I10)                                            00006330
+C                                                                       00006340
+C                                                                       00006350
+      IF(NGFROM.GT.NEI) NGFROM=NEI                                      00006360
+      IF(NGFROM.LT.1) NGFROM=1                                          00006370
+C                                                                       00006380
+C     GRUPPO  DI FINE UFG                                               00006390
+C     NGTO=IE                                                           00006400
+C     GRUPPO DI FINE BG                                                 00006410
+C     NGTOO=NGRP(IE)                                                    00006420
+C     POSIZIONE IN TAVOLA ANISN BG(GRUPPO PROVENIENZA  BG               00006430
+      NIHO=IHSO-(NGRP(NGFROM)-NGRP(IE))                                 00006440
+C                                                                       00006450
+      IF(NIHO.LE.IHTO.OR.NIHO.GT.IHMO)                                  00006460
+     1 WRITE(11,3399) (NIHO,IHSO,NGRP(IE),IE,NGFROM,NGRP(NGFROM),IH,IS) 00006470
+C      WRITE(6,3399) (NIHO,IHSO,NGRP(IE),IE,NGFROM,NGRP(NGFROM),IH,IS)  00006480
+C     IF(NIHO.LE.IHTO.OR.NIHO.GT.IHMO)                                  00006490
+C    1 WRITE(6,3399) (NIHO,IHSO,NGRP(IE),IE,NGFROM,NGRP(NGFROM),IH,IS)  00006500
+ 3399  FORMAT(' ATTENZIONE COMPRESSIONE SCATTERING PARAMETRI LOOP       00006510
+     1 90 NIHO,IHSO,NGRP(IE),IE,NGROM,NGRP(NGFROM),IH,IS'/1X,10I10)     00006520
+C                                                                       00006530
+      IF(NIHO.LE.IHTO) NIHO=IHTO+1                                      00006540
+      IF(NIHO.GT.IHMO) NIHO=IHMO                                        00006550
+C                                                                       00006560
+C                                                                       00006570
+         SIGO(NIHO,IS+1,NGRP(IE))=SIGO(NIHO,IS+1,NGRP(IE))              00006580
+     1 +SIGI(IH,IS)*FT(NGFROM)/DEN(NGRP(NGFROM))                        00006590
+  90      CONTINUE                                                      00006600
+ 95      CONTINUE                                                       00006610
+  50       CONTINUE                                                     00006620
+           REWIND 3                                                     00006630
+           REWIND 4                                                     00006640
+         NOSO2=NOSO1                                                    00006645
+           IF(NPRT.NE.1) NOSO2=2                                        00006650
+           DO 80 IE=1,NEO                                               00006660
+          WRITE(4) ((SIGO(J,JJ,IE),J=1,IHMO),JJ=1,NOSO2)                00006670
+      IF(NSTMP.GT.3)WRITE(6,8000)IE,((SIGO(J,JJ,IE),J=1,IHMO),JJ=1,NOSO200006680
+     1)                                                                 00006690
+ 8000 FORMAT(' GRUPPO:',I5,' SIGMA POCHI GRUPPI SU UNIT 4:'/(1X,10(1PE1200006700
+     *.5)))                                                             00006701
+  80        CONTINUE                                                    00006710
+          REWIND 4                                                      00006720
+          RETURN                                                        00006730
+          END                                                           00006740

diff --git a/other/mediator b/other/mediator
new file mode 100644 (file)
index 0000000..8a56d6a
--- /dev/null
+++ b/other/mediator
@@ -0,0 +1,563 @@
+C                                                                       00000010
+C     MAIN DEL PROGRAMMA MEDIATOR                                       00000020
+C     SERVE SOLO AI DIMENSIONAMENTI                                     00000030
+C                                                                       00000040
+C                                                                       00000050
+      DIMENSION FI(5,50,50,1),VOL(50,50,1)                              00000060
+      DIMENSION NGRP(5)                                                 00000070
+      DATA MEI,MX,MY,MZ/5,50,50,1/                                      00000080
+C     FI DEVE AVERE DIM SPAZIALI VOLUMETTI+1,E USATO PER LE             00000090
+C     INTERFACCE SPAZIALI DA  SUB.VOLIN                                 00000100
+C                                                                       00000110
+      DIMENSION SREAD(5,30)                                             00000120
+      DATA MIHMI,MMIC/5,30/                                             00000130
+      DIMENSION SWRIT(5,5,20),DEN(5,5,20)                               00000140
+      DATA MEO,MIHMO,MMAC/5,5,20/                                       00000150
+C                                                                       00000160
+C     DIMENSIONI: FI(MEI,MX,MY,MZ)=FLUSSI E SPAZIO PER VARIE SUBROUTINES00000170
+C        VOL(MX,MY,MZ)= VOLUMETTI                                       00000180
+C      NGRP(MEI)=NUMERO GRUPPO GROSSO DI  OGNI GRUPPO  FINE             00000190
+C       SREAD(MIHMI,MMIC)=SIGMA INPUT ANISN 1 GRUPPO                    00000200
+C      SWRIT(MEO,MIHMO,MMAC)=SIGMA OUTPUT,DEN(MEO,MIHMO,MMAC)=DENOM MEDI00000210
+C                                                                       00000220
+       CALL PROG(MEI,MX,MY,MZ,FI,VOL,NGRP,MIHMI,MMIC,SREAD,MEO,MIHMO,MMA00000230
+     1C,SWRIT,DEN)                                                      00000240
+      STOP                                                              00000250
+      END                                                               00000260
+C                                                                       00000270
+C                                                                       00000280
+C                                                                       00000290
+      SUBROUTINE PROG(MEI,MX,MY,MZ,FI,VOL,NGRP,                         00000300
+     1MIHMI,MMIC,SREAD,MEO,MIHMO,MMAC,SWRIT,DEN)                        00000310
+C                                                                       00000320
+C     :::::::::::::::::::::::: PROGRAMMA MEDIATOR :::::::               00000330
+C                                                                       00000340
+C     DIMENSIONAMENTI                                                   00000350
+C                                                                       00000360
+C                                                                       00000370
+      DIMENSION FI(MEI,MX,MY,MZ),VOL(MX,MY,MZ),SREAD(MIHMI,MMIC)        00000380
+      DIMENSION  SWRIT(MEO,MIHMO,MMAC),DEN(MEO,MIHMO,MMAC)              00000390
+      DIMENSION  NGRP(MEI)                                              00000400
+C                                                                       00000410
+C                                                                       00000420
+C     **********************************************************        00000430
+C                                                                       00000440
+C      M E D I  A T O R                                                 00000450
+C                                                                       00000460
+C     PROGRAMMA DI COLLASSAMENTO SPAZIO  ENERGETICO DI SEZIONI D'URTO   00000470
+C                                                                       00000480
+C     AUTORE:   MARCELLO GALLI                                          00000490
+C     DATA:  OTTOBRE 1982                                               00000500
+C                                                                       00000510
+C     **********************************************************        00000520
+C                                                                       00000530
+C     TAPE24=FI,TAPE2=SIGMA INPUT(ANISN BY GROUPS),TAPE3=SIGMA OUTPUT   00000540
+C     TAPE25=VOLUMI DA KENO,TAPE5=INPUT,TAPE6=OUTPUT,TAPE11=TERMINAL OUT00000550
+C                                                                       00000560
+C     PREFISSI VARIABILI:  O=OUTPUT,I=INPUT,M=PER DIMENSIONI            00000570
+C     GLI ALTRI SIGNIFICATI SONO OVVI                                   00000580
+C                                                                       00000590
+C                                                                       00000600
+C     DIMENSION FI(170,50,50,1),VOL(50,50,1)                            00000610
+C     DIMENSION NGRP(170)                                               00000620
+C     DATA MEI,MX,MY,MZ/170,50,50,1/                                    00000630
+C     FI DEVE AVERE DIM SPAZIALI VOLUMETTI+1,E USATO PER LE             00000640
+C     INTERFACCE SPAZIALI DA  SUB.VOLIN                                 00000650
+C                                                                       00000660
+C     DIMENSION SREAD(170,30)                                           00000670
+C     DATA MIHMI,MMIC/170,30/                                           00000680
+C     DIMENSION SWRIT(170,170,20),DEN(170,170,20)                       00000690
+C     DATA MEO,MIHMO,MMAC/170,170,20/                                   00000700
+C                                                                       00000710
+C                                                                       00000720
+C     I DIMENSIONAMENTI SONO PORTATI IN UN MAIN PER MAGGIOR FLESSIBILITA00000730
+C                                                                       00000740
+      DIMENSION RHO(11,70)                                              00000750
+      DIMENSION MIX(11,70)                                              00000760
+      EQUIVALENCE (RHO(1,1),MIX(1,1))                                   00000770
+      DIMENSION TIT(20)                                                 00000780
+      DIMENSION NPAR(14)                                                00000790
+      EQUIVALENCE (NPAR(1),NEI)                                         00000800
+      COMMON/PAR/NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,IHTO,IHSO,NMIC,NMA00000810
+     1C,NSTMP,KFI,KVOL,KSIG,NSOM                                        00000820
+C                                                                       00000830
+C     DIMENSIONI: FI(MEI,MX,MY,MZ)=FLUSSI E SPAZIO PER VARIE SUBROUTINES00000840
+C        VOL(MX,MY,MZ)= VOLUMETTI                                       00000850
+C      NGRP(MEI)=NUMERO GRUPPO GROSSO DI  OGNI GRUPPO  FINE             00000860
+C       SREAD(MIHMI,MMIC)=SIGMA INPUT ANISN 1 GRUPPO                    00000870
+C      SWRIT(MEO,MIHMO,MMAC)=SIGMA OUTPUT,DEN(MEO,MIHMO,MMAC)=DENOM MEDI00000880
+C      RHO=MIX(11,MMIC)= PARAMETRI DELLA MIXING TABLE, PER OGNI MATERIAL00000890
+C       DA MISCHIARE 1 SCHEDA CON:                                      00000900
+C     ISOTOPO MICRO,ISOTOPO MACRO,LIMITI X(2 VALORI) LIMITI Y, LIMITI Z,00000910
+C      COST K CHE MOLTIPLICA I VOLUMI, K1 CHE MOLTIPLICA FI A DEN, DENSI00000920
+C                                                                       00000930
+C          NPAR/ SONO I PARAMETRI DI INPUT NEL COMMON                   00000940
+C                                                                       00000950
+C     LETTURA TITOLO   TIT                                              00000960
+C                                                                       00000970
+      WRITE(11,2000)                                                    00000980
+      READ(5,1000) TIT                                                  00000990
+ 2000  FORMAT(' TITOLO=?')                                              00001000
+ 1000  FORMAT(20A4)                                                     00001010
+C                      IL CARATTERE DI CONTROLLO =PRIMO CARATT TITOLO   00001020
+C                                                                       00001030
+      WRITE(6,1000) TIT                                                 00001040
+      WRITE(11,1000) TIT                                                00001050
+C                                                                       00001060
+C     READ PARAMETERS                                                   00001070
+C                                                                       00001080
+      WRITE(11,2010)                                                    00001090
+ 2010  FORMAT(' PARAMETRI:20I4'/' NEI, NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,00001100
+     1IHTO,IHSO,NMIC,NMAC,NSTMP')                                       00001110
+      READ(5,1010)(NPAR(J),J=1,14)                                      00001120
+ 1010  FORMAT(20I4)                                                     00001130
+C                                                                       00001140
+C                                                                       00001150
+      WRITE(6,2031) (NPAR(J),J=1,14)                                    00001160
+ 2031  FORMAT(' PARAMETRI:'/' NUM GRUPPI INPUT=',I10/' MAX DIM X=',I10/ 00001170
+     1' MAX DIM Y=',I10/' MAX DIM Z=',I10/' NUM GRUPPI OUTPUT=',I10/    00001180
+     2' IHM INPUT=',I10/' IHT INPUT=',I10/' IHS INPUT=',I10/            00001190
+     3' IHM OUTPUT=',I10/' IHT OUTPUT=',I10/' IHS OUTPUT=',I10          00001200
+     4/' NUMERO ISOTOPI SU TAPE DI INPUT=',I10/' NUMERO ISOTOPI PRODOTTI00001210
+     5=',I10/' PARAMETRO STAMPE=',I10/)                                 00001220
+      WRITE(11,2030) (NPAR(J),J=1,14)                                   00001230
+C                                                                       00001240
+C     NON ESISTONO CONTROLLI SUI PARAMETRI LETTI: FARE ATTENZIONE       00001250
+C                                                                       00001260
+C     INPUT GROUPS NUMBERS FOR COLLAPSING                               00001270
+C                                                                       00001280
+      WRITE(11,2020)NEI                                                 00001290
+ 2020  FORMAT(' 20I4,NUMERO GRUPPO OUT DI OGNI GRUPPO INPUT?',I10,'VALOR00001300
+     1I')                                                               00001310
+      READ(5,1010) (NGRP(J),J=1,NEI)                                    00001320
+      WRITE(6,2032) (NGRP(J),J=1,NEI)                                   00001330
+ 2032  FORMAT(' INDICI PER COLLASSAMENTO GRUPPI:'/(1X,20I5))            00001340
+      WRITE(11,2030) (NGRP(J),J=1,NEI)                                  00001350
+ 2030  FORMAT(1X,20I4)                                                  00001360
+C                                                                       00001370
+C     ANCHE QUI NON ESISTONO CONTROLLI SULL'INPUT STARE ATTENTI         00001380
+C                                                                       00001390
+C     ++++++++++++++++++++++++++++++++++++ LOOP 10                      00001400
+C     INPUT MIXING TABLE (MAX NUM SCHEDE =SECONDA DIM DI MIX E RHO )    00001410
+C                                                                       00001420
+      NSOM=0                                                            00001430
+  10  CONTINUE                                                          00001440
+      N1=NSOM+1                                                         00001450
+      WRITE(11,2040)                                                    00001460
+ 2040  FORMAT(' DARE 9I4:NUM ISO MICRO,NUM MACRO,LIMITI X1,X2,Y1,Y2,Z1, 00001470
+     1Z2,K,K1,RHO. (DEFAULTS =1) ')                                     00001480
+      READ(5,1030) (MIX(J,N1),J=1,11)                                   00001490
+ 1030  FORMAT(10I4,E12.5)                                               00001500
+C                                USCITA LOOP                            00001510
+      IF(MIX(1,N1).LE.0) GO TO 100                                      00001520
+      IF(MIX(2,N1).LE.0) GO TO 100                                      00001530
+C                                  DEFAULTS                             00001540
+      DO 20 I=3,10                                                      00001550
+      IF(MIX(I,N1).LE.0) MIX(I,N1)=1                                    00001560
+ 20     CONTINUE                                                        00001570
+      IF(RHO(11,N1).LE.0) RHO(11,N1)=1.                                 00001580
+C                                                                       00001590
+      WRITE(6,1031) (MIX(J,N1),J=1,11)                                  00001600
+ 1031  FORMAT(' ISOTOPO MICRO=',I3,' MACRO=',I3,' LIMITI X=',2I3,       00001610
+     2' LIMITI Y=',2I3,' LIMITI Z=',2I3,' FATT MOLT VOL=',2I3,' RHO='   00001620
+     3,E11.4)                                                           00001630
+      WRITE(11,1030)(MIX(J,N1),J=1,11)                                  00001640
+C                                                                       00001650
+      NSOM=NSOM+1                                                       00001660
+      GO TO 10                                                          00001670
+ 100  CONTINUE                                                          00001680
+C                                                                       00001690
+C     +++++++++++++++++++++++++++++++++ FINE LOOP 10                    00001700
+C                 INPUT SIGMA: LE METTE SU TAPE                         00001710
+C                        ANISN PER GRUPPI ( DUMMY)                      00001720
+C                                                                       00001730
+      CALL TAPAN(FI,SWRIT,DEN,SREAD)                                    00001740
+C                                                                       00001750
+C    INPUT DEI VOLUMI (USA FI COME SPAZIO                               00001760
+C                                                                       00001770
+      CALL VOLIN(MX,MY,MZ,VOL,FI)                                       00001780
+C                                                                       00001790
+C                                                                       00001800
+C                     INPUT FI                                          00001810
+C                                                                       00001820
+      CALL FIIN(MEI,MX,MY,MZ,FI)                                        00001830
+C                                                                       00001840
+C                                                                       00001850
+C                                                                       00001860
+C     +++++++++++++++++++++++++++++++++++++++++++++++++                 00001870
+C     +++++++++++++++++++++++++++++++++++++++++++++++                   00001880
+C                       LOOPS DI SOMMATORIA                             00001890
+C     ++++++++++++++++++++++++++++++++++++++++++++++++                  00001900
+C     ++++++++++++++++++++++++++++++++++++++++++++++                    00001910
+C                                                                       00001920
+C           AZZERAMENTI                                                 00001930
+C                                                                       00001940
+      CALL EMP(0.0,MEO,MIHMO,MMAC,SWRIT)                                00001950
+      CALL EMP(0.0,MEO,MIHMO,MMAC,DEN)                                  00001960
+C                                                                       00001970
+C     REWIND TAPE ANISN BY GROUPS                                       00001980
+      REWIND 2                                                          00001990
+C                                                                       00002000
+C     ++++++++++++++++++ LOOP 50 SUI GRUPPI INPUT                       00002010
+C                                                                       00002020
+      DO 50 IG=1,NEI                                                    00002030
+C                                                                       00002040
+C     LEGGE 1 GRUPPO TAPE ANISN GRUPPI                                  00002050
+C                                                                       00002060
+      READ(2) ((SREAD(J,JJ),J=1,IHMI),JJ=1,NMIC)                        00002070
+      IF(NSTMP.LT.20) GO TO 155                                         00002080
+      DO 51 JJ=1,NMIC                                                   00002090
+ 51   WRITE(6,1110) (JJ,(SREAD(J,JJ),J=1,IHMI))                         00002100
+ 1110  FORMAT(' MICRO',I10,' SIGMA:'/(1X,10E12.5))                      00002110
+ 155  CONTINUE                                                          00002120
+C                                                                       00002130
+C     ++++++++++++++++++++++++++++++ LOOP 60 ISOTOPI MIXING             00002140
+C                                                                       00002150
+      DO 60 IS=1,NSOM                                                   00002160
+C                                                                       00002170
+      I1=MIX(3,IS)                                                      00002180
+      I2=MIX(4,IS)                                                      00002190
+      J1=MIX(5,IS)                                                      00002200
+      J2=MIX(6,IS)                                                      00002210
+      K1=MIX(7,IS)                                                      00002220
+      K2=MIX(8,IS)                                                      00002230
+C                                                                       00002240
+C     +++++++++++++++++++++++++++ LOOP 70  GEOMETRIA                    00002250
+C                                                                       00002260
+      DO 70 IX=I1,I2                                                    00002270
+      DO 70 IY=J1,J2                                                    00002280
+      DO 70 IZ=K1,K2                                                    00002290
+C                                                                       00002300
+C     +++++++++++++++++++++++++++ LOOP 80 TAVOLA ANISN                  00002310
+C                                                                       00002320
+      DO 80 IH=1,IHTI                                                   00002330
+C     PER ELIMINARE O AGGIUNGERE POSTI DI ACTIVITIES                    00002340
+       IO=IHTO-(IHTI-IH)                                                00002350
+      IF(IO.LE.0) GO TO 80                                              00002360
+      SWRIT(NGRP(IG),IO,MIX(2,IS))=SWRIT(NGRP(IG),IO,MIX(2,IS))+        00002370
+     1SREAD(IH,MIX(1,IS))*FI(IG,IX,IY,IZ)*VOL(IX,IY,IZ)*                00002380
+     2    RHO(11,IS)*MIX(9,IS)                                          00002390
+C                                                                       00002400
+      DEN(NGRP(IG),IO,MIX(2,IS))=DEN(NGRP(IG),IO,MIX(2,IS))+            00002410
+     1     FI(IG,IX,IY,IZ)*VOL(IX,IY,IZ)*MIX(9,IS)/MIX(10,IS)           00002420
+C                                                                       00002430
+C     WRITE(6,9999) SWRIT(NGRP(IG),IO,MIX(2,IS)),SREAD(II,MIX(1,IS)),   00002440
+C    1FI(IG,IX,IY,IZ),VOL(IX,IY,IZ),RHO(10,IS),MIX(9,IS),DEN(NGRP(IG),IO00002450
+C    2,MIX(2,IS)),MIX(2,IS)                                             00002460
+C9999  FORMAT(1X,5E12.5,I10,E12.5,I10)                                  00002470
+  80  CONTINUE                                                          00002480
+C                                                                       00002490
+C     ;+++++++++++++++++++++++++++++ FINE LOOP 80                       00002500
+C                                                                       00002510
+C     SCATTERING                                                        00002520
+C                                                                       00002530
+C     ++++++++++++++++++++++++++++++ LOOP 90 SCATTERING                 00002540
+C                                                                       00002550
+        IHT1=IHTI+1                                                     00002560
+      DO 90 IH=IHT1,IHMI                                                00002570
+C     GRUPPO DI PROVENIENZA                                             00002580
+C     EVITA SCRITTE INUTILI SCATT FUORI TAVOLA PER SIGMA NULLE          00002590
+      IF(SREAD(IH,MIX(1,IS)).EQ.0.) GO TO 90                            00002600
+C      GRUPPO PROVENIENZA UFG                                           00002610
+      NGFROM=IG+(IHSI-IHT1)-(IH-IHT1)                                   00002620
+C                                                                       00002630
+      IF(NGFROM.GT.NEI.OR.NGFROM.LT.1)                                  00002640
+     1 WRITE(6,3000) NGFROM,IG,IHSI,IHT1,IH,IS                          00002650
+C      WRITE(6,3000) NGFROM,IG,IHSI,IHT1,IH,IS                          00002660
+      IF(NGFROM.GT.NEI.OR.NGFROM.LT.1)                                  00002670
+     1 WRITE(11,3000) NGFROM,IG,IHSI,IHT1,IH,IS                         00002680
+ 3000 FORMAT(' WARNING !!!'/' ERRORE IN NGFROM IN LOOP 90,NGFROM,IG,IHSI00002690
+     1 IHT1,IH,IS'/1X,10I10)                                            00002700
+C                                                                       00002710
+C                                                                       00002720
+      IF(NGFROM.GT.NEI) NGFROM=NEI                                      00002730
+      IF(NGFROM.LT.1) NGFROM=1                                          00002740
+C                                                                       00002750
+C     GRUPPO  DI FINE UFG                                               00002760
+C     NGTO=IG                                                           00002770
+C     GRUPPO DI FINE BG                                                 00002780
+C     NGTOO=NGRP(IG)                                                    00002790
+C     POSIZIONE IN TAVOLA ANISN BG(GRUPPO PROVENIENZA  BG               00002800
+      NIHO=IHSO-(NGRP(NGFROM)-NGRP(IG))                                 00002810
+C                                                                       00002820
+      IF(NIHO.LE.IHTO.OR.NIHO.GT.IHMO)                                  00002830
+     1 WRITE(11,3300) (NIHO,IHSO,NGRP(IG),IG,NGFROM,NGRP(NGFROM),IH,IS) 00002840
+C      WRITE(6,3300) (NIHO,IHSO,NGRP(IG),IG,NGFROM,NGRP(NGFROM),IH,IS)  00002850
+C     IF(NIHO.LE.IHTO.OR.NIHO.GT.IHMO)                                  00002860
+C    1 WRITE(6,3300) (NIHO,IHSO,NGRP(IG),IG,NGFROM,NGRP(NGFROM),IH,IS)  00002870
+ 3300  FORMAT(' ATTENZIONE COMPRESSIONE SCATTERING PARAMETRI LOOP       00002880
+     1 90 NIHO,IHSO,NGRP(IG),IG,NGROM,NGRP(NGFROM),IH,IS'/1X,10I10)     00002890
+C                                                                       00002900
+      IF(NIHO.LE.IHTO) NIHO=IHTO+1                                      00002910
+      IF(NIHO.GT.IHMO) NIHO=IHMO                                        00002920
+C                                                                       00002930
+      SWRIT(NGRP(IG),NIHO,MIX(2,IS))=SWRIT(NGRP(IG),NIHO,MIX(2,IS))+    00002940
+     1  SREAD(IH,MIX(1,IS))*FI(NGFROM,IX,IY,IZ)*VOL(IX,IY,IZ)*          00002950
+     1 RHO(11,IS)*MIX(9,IS)                                             00002960
+C                                                                       00002970
+C                                                                       00002980
+C     WRITE(6,9998) SWRIT(NGRP(IG),NIHO,MIX(2,IS)),SREAD(IH,MIX(1,IS)), 00002990
+C    1FI(NGFROM,IX,IY,IZ),VOL(IX,IY,IZ),RHO(10,IS),MIX(1,IS),MIX(2,IS)  00003000
+C    2,DEN(NGRP(IG),NIHO,MIX(2,IS))                                     00003010
+C9998  FORMAT(1X,5E12.5,2I10,E12.5)                                     00003020
+ 90   CONTINUE                                                          00003030
+  70  CONTINUE                                                          00003040
+  60  CONTINUE                                                          00003050
+  50  CONTINUE                                                          00003060
+       REWIND 2                                                         00003070
+C                                                                       00003080
+C     ++++++++++++++++++++++++++ FINE LOOP 90    SU IH                  00003090
+C     ++++++++++++++++++++++++++ FINE LOOP 70         SPAZIALE          00003100
+C     +++++++++++++++++++++++++++ FINE LOOP 60     MIXING               00003110
+C     +++++++++++++++++++++++++++ FINE LOOP 50           GRUPPI         00003120
+C                                                                       00003130
+C                                                                       00003140
+C     CALCOLO DENOMINATORI DELLO SCATTERING CHE SE MESSI NEL LOOP       00003150
+C     SOPRA AVREBBERO UNA SOMMATORIA SU GRUPPI DI ARRIVO IN PIU         00003160
+C     E NON ESTESA A TUTTI I GRUPPI FINI APPARTENENTI AL GROSSO         00003170
+C     DI PROVENIENZA                                                    00003180
+C                                                                       00003190
+      IHT1=IHTO+1                                                       00003200
+C     ................................... LOOP GRUPPI OUTPUT            00003210
+      DO 63 IG=1,NEO                                                    00003220
+C     ................................... LOOP SU TAVOLA IH DI OUTPUT   00003230
+      DO 65 IH=IHT1,IHMO                                                00003240
+C                           CALCOLO  B G  DI PROVENIENZA                00003250
+      NBGP=IG+(IHSO-IHTO)-(IH-IHTO)                                     00003260
+      IF(NBGP.LT.1.OR.NBGP.GT.NEO) GO TO 650                            00003270
+C                                                                       00003280
+C     ..................................... LOOP GRUPPI FINI DEL BG PROV00003290
+      DO 67 IGI=1,NEI                                                   00003300
+      IF(NGRP(IGI).NE.NBGP) GO TO 670                                   00003310
+C     ....................................... LOOP MIXING TABLE         00003320
+      DO 69 IS=1,NSOM                                                   00003330
+C                                                                       00003340
+      I1=MIX(3,IS)                                                      00003350
+      I2=MIX(4,IS)                                                      00003360
+      J1=MIX(5,IS)                                                      00003370
+      J2=MIX(6,IS)                                                      00003380
+      K1=MIX(7,IS)                                                      00003390
+      K2=MIX(8,IS)                                                      00003400
+C                                                                       00003410
+C     +++++++++++++++++++++++++++ LOOP 69  GEOMETRIA                    00003420
+C                                                                       00003430
+      DO 69 IX=I1,I2                                                    00003440
+      DO 69 IY=J1,J2                                                    00003450
+      DO 69 IZ=K1,K2                                                    00003460
+C                                                                       00003470
+      DEN(IG,IH,MIX(2,IS))=DEN(IG,IH,MIX(2,IS))+                        00003480
+     1  FI(IGI,IX,IY,IZ)*VOL(IX,IY,IZ)*MIX(9,IS)/MIX(10,IS)             00003490
+C                                                                       00003500
+ 69   CONTINUE                                                          00003510
+C                                                                       00003520
+ 670  CONTINUE                                                          00003530
+ 67   CONTINUE                                                          00003540
+C                                                                       00003550
+ 650  CONTINUE                                                          00003560
+  65  CONTINUE                                                          00003570
+ 630  CONTINUE                                                          00003580
+ 63   CONTINUE                                                          00003590
+C                                                                       00003600
+C     ............................... FINE LOOPS CALCOLO DENOM SCATT    00003610
+C                                                                       00003620
+C                                                                       00003630
+C                                                                       00003640
+C     DIVIDE PER I DENOMINATORI                                         00003650
+      DO 92 I=1,NEO                                                     00003660
+      DO 92 I1=1,IHMO                                                   00003670
+      DO 92 I2=1,NMAC                                                   00003680
+      IF(DEN(I,I1,I2).NE.0.) SWRIT(I,I1,I2)=SWRIT(I,I1,I2)/DEN(I,I1,I2) 00003690
+ 92   CONTINUE                                                          00003700
+C                                                                       00003710
+C                           STAMPA SIGMA OUTPUT                         00003720
+C                          FA TAPE ANISN PER GRUPPI                     00003730
+      REWIND 3                                                          00003740
+      DO 94 I=1,NEO                                                     00003750
+      WRITE(3) ((SWRIT(I,J,JJ),J=1,IHMO),JJ=1,NMAC)                     00003760
+C                                                                       00003770
+      IF(NSTMP.LT.15) GO TO 200                                         00003780
+      DO 97 JJ=1,NMAC                                                   00003790
+      WRITE(6,4440) (I,JJ,(SWRIT(I,J,JJ),J=1,IHMO))                     00003800
+ 4440  FORMAT(' GRUPPO:',I5,'MACRO:',I10,'   SIGMA:'/(1X,10E12.5))      00003810
+  97  CONTINUE                                                          00003820
+ 200  CONTINUE                                                          00003830
+C                                                                       00003840
+ 94   CONTINUE                                                          00003850
+      REWIND 3                                                          00003860
+        RETURN                                                          00003870
+      END                                                               00003880
+      SUBROUTINE FIIN(MEI,MX,MY,MZ,FI)                                  00003890
+C      *****************************************                        00003900
+C     INPUT FLUSSI                                                      00003910
+C                                                                       00003920
+      DIMENSION FI(MEI,MX,MY,MZ)                                        00003930
+      COMMON/PAR/NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,IHTO,IHSO,NMIC,NMA00003940
+     1C,NSTMP,KFI,KVOL,KSIG,NSOM                                        00003950
+C                                                                       00003960
+      WRITE(11,1000)                                                    00003970
+ 1000  FORMAT(' DARE I FLUSSI TIPO INPUT (I4)1=KENO,2=DOT :')           00003980
+      READ(5,1001) KFI                                                  00003990
+ 1001    FORMAT(20I4)                                                   00004000
+            WRITE(6,1002) KFI                                           00004010
+      WRITE(11,1002) KFI                                                00004020
+ 1002  FORMAT(1X,20I4)                                                  00004030
+      IF(KFI.EQ.4) GO TO 400                                            00004040
+      IF(KFI.NE.1) GO TO 100                                            00004050
+C     +++++++++++++++ TIPO KENO                                         00004060
+      REWIND 24                                                         00004070
+ 15   READ(24,END=130) LBG,IG,LL,LU                                     00004080
+      N2=LU-LL+1                                                        00004090
+      READ(24,END=130) (FI(IG,LBG,J,1),J=1,N2)                          00004100
+      IF(NSTMP.GT.11) WRITE(6,3000)IG,LBG,(FI(IG,LBG,J,1),J=1,N2)       00004110
+ 3000  FORMAT(' GRUPPO',I10,' BOX',I10/' FI PER REGIONE:'/(1X,10E12.5)) 00004120
+      GO TO 15                                                          00004130
+ 130  CONTINUE                                                          00004140
+        REWIND 24                                                       00004150
+        RETURN                                                          00004160
+ 100    CONTINUE                                                        00004170
+C                                                                       00004180
+      IF(KFI.NE.2) GO TO 200                                            00004190
+C     +++++++++++++++++++++++++ TIPO DOT                                00004200
+      REWIND 24                                                         00004210
+         DO 20 J=1,NEI                                                  00004220
+ 20   READ(24) (((FI(J,J1,J2,J3),J1=1,NX),J2=1,NY),J3=1,NZ)             00004230
+         REWIND 24                                                      00004240
+      IF(NSTMP.LT.11) GO TO 150                                         00004250
+ 140      CONTINUE                                                      00004260
+      DO 50 JG=1,NEI                                                    00004270
+              WRITE(6,4000) JG                                          00004280
+ 4000  FORMAT(' FLUSSO GRUPPO:',I10)                                    00004290
+      DO 51 J3=1,NZ                                                     00004300
+      WRITE(6,4001) J3                                                  00004310
+ 4001  FORMAT(' DIMENSIONE Z=',I10)                                     00004320
+      DO 52 J2=1,NY                                                     00004330
+      WRITE(6,4002)J2                                                   00004340
+ 4002  FORMAT(' DIM Y',I10)                                             00004350
+      WRITE(6,4003) (FI(JG,J1,J2,J3),J1=1,NX)                           00004360
+ 4003  FORMAT((5(1X,E12.5)))                                            00004370
+ 52   CONTINUE                                                          00004380
+ 51   CONTINUE                                                          00004390
+ 50   CONTINUE                                                          00004400
+ 150  CONTINUE                                                          00004410
+C                                                                       00004420
+      RETURN                                                            00004430
+C                                                                       00004440
+ 200  CONTINUE                                                          00004450
+      WRITE(11,5000)                                                    00004460
+ 5000  FORMAT('  FORNIRE I FLUSSI(X,Y,Z,GRUPPO),X=1,NX),Y=1,NY),Z=1,NZ)N00004470
+     1EI  (6E12.0)')                                                    00004480
+      READ(5,5001)((((FI(J,J1,J2,J3),J1=1,NX),J2=1,NY),J3=1,NZ),J=1,NEI)00004490
+ 5001   FORMAT(6E12.0)                                                  00004500
+      GO TO  140                                                        00004510
+C                                                                       00004520
+C                                                                       00004530
+C             INPUT FLUSSI PIATTI = 1.                                  00004540
+ 400   CONTINUE                                                         00004550
+        DO 40 I=1,NEI                                                   00004560
+        DO 40 JX=1,NX                                                   00004570
+        DO 40 JY=1,NY                                                   00004580
+        DO 40 JZ=1,NZ                                                   00004590
+ 40       FI(I,JX,JY,JZ)=1.                                             00004600
+           GO TO 140                                                    00004610
+C                                                                       00004620
+      END                                                               00004630
+      SUBROUTINE VOLIN(MX,MY,MZ,VOL,AMESH)                              00004640
+C     +++++++++++++++++++++++++++++++++++++++++++++                     00004650
+C     LETTURA VOLUMI                                                    00004660
+C                                                                       00004670
+      DIMENSION VOL(MX,MY,MZ),AMESH(MX,MY)                              00004680
+      COMMON/PAR/NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,IHTO,IHSO,NMIC,NMA00004690
+     1C,NSTMP,KFI,KVOL,KSIG,NSOM                                        00004700
+      WRITE(11,1000)                                                    00004710
+ 1000  FORMAT(' TIPO INPUT VOLUMI (I4) ,1=KENO,2=DOT(MESH,3=SCHEDE')    00004720
+      READ(5,1100) KVOL                                                 00004730
+ 1100  FORMAT(20I4)                                                     00004740
+C     PER COME NE RIEMPIE PEZZI IL KENO                                 00004750
+C                                                                       00004760
+      CALL EMP(0.0,MX,MY,MZ,VOL)                                        00004770
+      IF(KVOL.EQ.4) GO TO 400                                           00004780
+C     +++++++++++++++++++++++++++ DA KENO                               00004790
+      IF(KVOL.NE.1) GO TO 100                                           00004800
+      REWIND 25                                                         00004810
+C                                                                       00004820
+      NBOX1=0                                                           00004830
+ 10   READ(25,END=150)NBOX,VOLL                                         00004840
+      IF(NBOX.NE.NBOX1) I=0                                             00004850
+      I=I+1                                                             00004860
+      VOL(NBOX,I,1)=VOLL                                                00004870
+      IF(NSTMP.GT.10) WRITE(6,2000)NBOX,I,VOL(NBOX,I,1)                 00004880
+ 2000  FORMAT(' SCATOLA:',I10,' REGIONE:',I10,'VOLUME:',E12.5)          00004890
+C                                                                       00004900
+      NBOX1=NBOX                                                        00004910
+      GO TO 10                                                          00004920
+ 150  CONTINUE                                                          00004930
+      REWIND 25                                                         00004940
+      RETURN                                                            00004950
+ 100  CONTINUE                                                          00004960
+C     ++++++++++++++++++++++++ TIPO DOT                                 00004970
+      IF(KVOL.NE.2) GO TO 200                                           00004980
+      IM=NX+1                                                           00004990
+       JM=NY+1                                                          00005000
+C                                                                       00005010
+C                                                                       00005020
+      WRITE(6,1200)                                                     00005030
+      WRITE(11,1200)                                                    00005040
+ 1200  FORMAT('  MESH-(X-Y),X=1,NX+1;Y=1,NY+1 ')                        00005050
+      READ(5,2110) (AMESH(J,1),J=1,IM)                                  00005060
+      READ(5,2110) (AMESH(J,2),J=1,JM)                                  00005070
+      WRITE(6,2111) (AMESH(J,1),J=1,IM)                                 00005080
+      WRITE(6,2111) (AMESH(J,2),J=1,JM)                                 00005090
+ 2111   FORMAT(1X,6E12.5)                                               00005100
+      WRITE(11,2111) (AMESH(J,1),J=1,IM)                                00005110
+      WRITE(11,2111) (AMESH(J,2),J=1,JM)                                00005120
+ 2110  FORMAT(6E12.5)                                                   00005130
+C                                                                       00005140
+      DO 20 IX=1,NX                                                     00005150
+      DO 20 IY=1,NY                                                     00005160
+      DO 20 IZ=1,NZ                                                     00005170
+      VOL(IX,IY,IZ)=(AMESH(IX+1,1)-AMESH(IX,1))*(AMESH(IY+1,2)-AMESH(IY,00005180
+     12))                                                               00005190
+  20  CONTINUE                                                          00005200
+C                                                                       00005210
+C                                                                       00005220
+      IF(NSTMP.GT.10)                                                   00005230
+     1WRITE(6,5500) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ)         00005240
+      RETURN                                                            00005250
+ 200  CONTINUE                                                          00005260
+C     LETTURA DI DEFAULT                                                00005270
+      WRITE(11,4000)                                                    00005280
+ 4000  FORMAT(' FORNIRE I VOLUMI(IX,IY,IZ,X=...),Y=...),Z=...)6E12.5')  00005290
+      READ(5,5000) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ)          00005300
+      WRITE(6,5500) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ)         00005310
+      WRITE(11,5500)(((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ)         00005320
+ 5500  FORMAT(' VOLUMI:',5E12.5)                                        00005330
+ 5000  FORMAT(6E12.5)                                                   00005340
+      RETURN                                                            00005350
+C        VOLUMI UGUALI =1.                                              00005360
+ 400    CONTINUE                                                        00005370
+        DO 40 JX=1,NX                                                   00005380
+        DO 40 JY=1,NY                                                   00005390
+        DO 40 JZ=1,NZ                                                   00005400
+ 40     VOL(JX,JY,JZ)=1.                                                00005410
+      WRITE(6,5500) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ)         00005420
+      WRITE(11,5500)(((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ)         00005430
+         RETURN                                                         00005440
+      END                                                               00005450
+      SUBROUTINE TAPAN(A,B,C,D)                                         00005460
+C     *********************:                                            00005470
+      DIMENSION A(1),B(1),C(1),D(1)                                     00005480
+C DUMMY                                                                 00005490
+C                                                                       00005500
+      RETURN                                                            00005510
+      END                                                               00005520
+      SUBROUTINE EMP(K,N1,N2,N3,L)                                      00005530
+C     ******************************                                    00005540
+C     EMPIE L(N1,N2,N3) CON K                                           00005550
+C                                                                       00005560
+      DIMENSION L(N1,N2,N3)                                             00005570
+      DO 10 I=1,N1                                                      00005580
+      DO 10 J=1,N2                                                      00005590
+      DO 10 JJ=1,N3                                                     00005600
+ 10   L(I,J,JJ)=K                                                       00005610
+      RETURN                                                            00005620
+      END                                                               00005630

diff --git a/other/medil4d b/other/medil4d
new file mode 100644 (file)
index 0000000..1a4a0d6
--- /dev/null
+++ b/other/medil4d
@@ -0,0 +1,2070 @@
+       DIMENSION AA(400000)                                             00000100
+       MAA=400000                                                       00000200
+       CALL PROG0(AA,MAA)                                               00000300
+       STOP                                                             00000400
+       END                                                              00000500
+C                                                                       00000600
+       SUBROUTINE PROG0(AA,MAA)                                         00000700
+C      ******************************************                       00000800
+C                                                                       00000900
+C      SUBROUTINE DI DIMENSIONAMENTO DELLA QUARTA                       00001000
+C      VERSIONE DEL PROGRAMMA MEDIL:                                    00001100
+C                                                                       00001200
+C      ============= M E D I L 4 ================                       00001300
+C                                                                       00001400
+C           MARCELLO GALLI  DICEMBRE 1984                               00001500
+C           LAST UPDATED:GIUGNO 85                                      00001510
+C           VOLZ E VOLT IN DOPPIA PRECISIONE : AGOSTO 85                00001520
+C                                                                       00001530
+C      ******************************************                       00001600
+C                                                                       00001700
+       DIMENSION AA(MAA)                                                00001800
+       COMMON/TIT/TIT(18)                                               00001900
+       COMMON /PAR/ NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,                    00002000
+     *        IHMO,IHTO,IHSO,NMIC,NMAC,NSTMP,                           00002100
+     *        KDIL,KFI,KVOL,KSIG,NSOM,KDIL1,NZON,NGEOM,                 00002200
+     *        NDI,NEOD,IHMD,OHTD,IHSD,                                  00002300
+     *        KMIX,MX89,MIXISO,NMIX                                     00002400
+C                                                                       00002500
+C     LETTURA TITOLO   TIT                                              00002600
+C                                                                       00002700
+      WRITE(11,999 )                                                    00002800
+      READ(5,998) TIT                                                   00002900
+ 999  FORMAT(' TITOLO=?')                                               00003000
+ 998  FORMAT(18A4)                                                      00003100
+      WRITE(6,997) TIT                                                  00003200
+      WRITE(11,997) TIT                                                 00003300
+ 997  FORMAT(1X,20A4)                                                   00003400
+      WRITE(11,1000)                                                    00003500
+ 1000  FORMAT(' FORNIRE I SEGUENTI PARAMETRI:'/                         00003600
+     * ' NGEOM,NX,NY,NZ,NZON,NEI,IHMI,IHTI,IHSI,NMIC,'                  00003700
+     * 'NEO,IHMO,IHTO,IHSO,NMAC,KDIL,KDIL1,STMP')                       00003800
+       READ(5,2000)                                                     00003900
+     * NGEOM,NX,NY,NZ,NZON,NEI,IHMI,IHTI,IHSI,NMIC,                     00004000
+     * NEO,IHMO,IHTO,IHSO,NMAC,KDIL,KDIL1,NSTMP                         00004100
+       KDIL=1                                                           00004200
+ 2000  FORMAT(18I4)                                                     00004300
+       WRITE(11,3000)                                                   00004400
+ 3000  FORMAT(' DARE I SEGUENTI PARAMETRI:'/                            00004500
+     *' KSIG,KVOL,KFI,KMIX,MX89,MIXISO,NDI,NEOD,IHMD,IHTD,IHSD')        00004600
+       READ(5,2000) KSIG,KVOL,KFI,KMIX,MX89,MIXISO,NDI,                 00004700
+     *      NEOD,IHMD,IHTD,IHSD                                         00004800
+       WRITE(6,4000)                                                    00004900
+     * NGEOM,NX,NY,NZ,NZON,NEI,IHMI,IHTI,IHSI,NMIC,                     00005000
+     * NEO,IHMO,IHTO,IHSO,NMAC,KDIL,KDIL1,NSTMP                         00005100
+ 4000  FORMAT(/' PARAMETRO GEOMETRIA NGEOM=',I10,                       00005200
+     *        /' VOLUMETTI IN DIMENSIONE X=',I10,                       00005300
+     *        /' VOLUMETTI IN DIMENSIONE Y=',I10,                       00005400
+     *        /' VOLUMETTI IN DIMENSIONE Z=',I10,                       00005500
+     *        /' NUMERO ZONE    (NZON)    =',I10,                       00005600
+     *        /' NUMERO GRUPPI INPUT (NEI)=',I10,                       00005700
+     *        /' IHM DI INPUT   (IHMI)    =',I10,                       00005800
+     *        /' IHT DI INPUT   (IHTI)    =',I10,                       00005900
+     *        /' IHS DI INPUT   (IHSI)    =',I10,                       00006000
+     *        /' NUMERO SIGMA INPUT (NMIC)=',I10,                       00006100
+     *        /' NUMERO GRUPPI OUTPUT(NEO)=',I10                        00006200
+     *        /' IHM DI OUTPUT   (IHMO)   =',I10,                       00006300
+     *        /' IHT DI OUTPUT   (IHTO)   =',I10,                       00006400
+     *        /' IHS DI OUTPUT   (IHSO)   =',I10,                       00006500
+     *        /' SPAZIO SIGMA OUTPUT(NMAC)=',I10,                       00006600
+     *        /' PARAMETRO KDIL           =',I10,                       00006700
+     *        /' PARAMETRO KDIL1          =',I10,                       00006800
+     *        /' PARAMETRO STAMPE (NSTMP) =',I10)                       00006900
+      WRITE(6,5000) KSIG,KVOL,KFI,KMIX,MX89,MIXISO,NDI,NEOD,IHMD,       00007000
+     *              IHTD,IHSD                                           00007100
+ 5000 FORMAT(/' PARAMETRO TIPO SIGMA INPUT (KSIG)    =',I10,            00007200
+     *       /' PARAMETRO TIPO VOLUMI INPUT (KVOL)   =',I10,            00007300
+     *       /' PARAMETRO TIPO FLUSSI INPUT (KFI)    =',I10,            00007400
+     *       /' PARAMETRO TIPO FORMATO INPUT (KMIX)  =',I10,            00007500
+     *       /' DIMENSIONI MAX SEZIONI ANISN (MX89)  =',I10,            00007600
+     *       /' NUMERO SIGMA CREATE DA MIXING(MIXISO)=',I10,            00007700
+     *       /' NUMERO DEI COEFFICIENTI DI DIFFUSIONE=',I10,            00007800
+     *       /' NUMERO GRUPPI OUT COEFF DIFFUSIONE   =',I10,            00007900
+     *       /' IHM DI OUTPUT COEFF DI DIFFUSIONE    =',I10,            00008000
+     *       /' IHT DI OUTPUT COEFF DI DIFFUSIONE    =',I10,            00008100
+     *       /' IHS DI OUTPUT COEFF DI DIFFUSIONE    =',I10)            00008200
+C                                                                       00008300
+C      FISSA I PARAMETRI DI DIMENSIONAMENTO PER LE CHIAMATE ALLE SUB.   00008400
+C                                                                       00008500
+       MEI=NEI                                                          00008600
+       MX=NX                                                            00008700
+       MY=NY                                                            00008800
+       MZ=NZ                                                            00008900
+       MIHMI=IHMI                                                       00009000
+       MMIC=NMIC                                                        00009100
+       MEO=NEO                                                          00009200
+       MIHMO=IHMO                                                       00009300
+       MMAC=NMAC                                                        00009400
+       M89=MX89                                                         00009500
+       MZON=NZON                                                        00009600
+C                                                                       00009700
+C      DIMENSIONAMENTI                                                  00009800
+C                                                                       00009900
+       L1=1                                                             00010000
+C       ............................ FLUSSI                             00010100
+       L2=(MEI*MX*MY*MZ+5)+L1+MY                                        00010200
+C       ............................ VOLUMI                             00010300
+       L3=(MX*MY*MZ)+L2                                                 00010400
+C       ............................ GRUPPI                             00010500
+       L4=L3+MEI                                                        00010600
+C       ............................ SREAD (SIGMA DA LEGGERE)           00010700
+       L5=L4+MIHMI*(MMIC+MIXISO)                                        00010800
+C       ............................ SWRIT (SIGMA DA SCRIVERE)          00010900
+       L6=L5+MEO*MIHMO*MMAC                                             00011000
+C       ............................ DENOMINATORI DEN                   00011100
+       L7=L6+MEO*MIHMO*MMAC                                             00011200
+C       ............................ A (SCRATCH SPACE)                  00011300
+       MXA=MAX0(MEI,MX*MY*MZ)                                           00011400
+       L8=L7+MXA                                                        00011500
+C       ............................ B (SCRATCH SPACE)                  00011600
+       MXB1=MX89+20+NDI*2                                               00011700
+       MXB=5*MX89+4                                                     00011800
+       IF(MXB.LT.MXB1) MXB=MXB1                                         00011900
+       L9=L8+MXB                                                        00012000
+C       ............................ VOLZ (VOLUMI ZONE)                 00012100
+       L10=L9+MZON*2                                                    00012200
+C       ............................ TABELLA DI INTEGRAZIONE            00012300
+C                                                                       00012400
+       MMIX=(MAA-L10)/11                                                00012500
+       L11=L10+10*MMIX                                                  00012600
+       L12=L11+MMIX                                                     00012700
+       WRITE(6,6000) MMIX                                               00012800
+       WRITE(11,6000) MMIX                                              00012900
+ 6000  FORMAT('1SPAZIO PER ',I8,4X,' ELEMENTI DELLA TABELLA DI'         00013000
+     * 'INTEGRAZIONE ')                                                 00013100
+       IF(MMIX.GT.0) GOTO 102                                           00013200
+       L12=L10+5*11                                                     00013300
+       GOTO 101                                                         00013400
+ 102   CONTINUE                                                         00013500
+       WRITE(6,6001)                                                    00013600
+ 6001  FORMAT(//' PARAMETRI INTERNI DI DIMENSIONAMENTO :')              00013700
+       WRITE(6,6600)L1,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12              00013800
+ 6600  FORMAT(1X,10I8)                                                  00013900
+       IF(L12.LE.MAA) GO TO 100                                         00014000
+  101  WRITE(6,7000)  L12,MAA                                           00014100
+       WRITE(11,7000) L12,MAA                                           00014200
+ 7000   FORMAT(//5(' *** ERRORE!!! *** ERRORE!!! *** ERRORE!!!*** :'/), 00014300
+     * /' IL PARAMETRO DI DIMENSIONAMENTO DEL MAIN DEVE ESSERE:',I10,   00014400
+     * 5X,' NON:',I10)                                                  00014500
+       STOP                                                             00014600
+ 100   CONTINUE                                                         00014700
+C                                                                       00014800
+C      L'ISTRUZIONE SEGUENTE SERVE PER IL COMMON/PAR/                   00014900
+C                                                                       00015000
+       NMIX=MMIX                                                        00015100
+C                                                                       00015200
+C     DIMENSIONI: FI(MEI,MX,MY,MZ)=FLUSSI E SPAZIO PER VARIE SUBROUTINES00015300
+C     VOL(MX,MY,MZ)= VOLUMETTI                                          00015400
+C     NGRP(MEI)=NUMERO GRUPPO GROSSO DI OGNI GRUPPO FINE                00015500
+C     SREAD(MIHMI,MMIC)=SIGMA INPUT ANISN 1 GRUPPO                      00015600
+C     SWRIT(MEO,MIHMO,MMAC)=SIGMA OUTPUT,DEN(MEO,MIHMO,MMAC)=DENOM MEDI 00015700
+C     RHO,MIX(10,MMIX)= PARAMETRI DELLA MIXING TABLE, PER OGNI MATERIALE00015800
+C     DA MISCHIARE 1 SCHEDA CON:                                        00015900
+C     ISOTOPO MICRO,ISOTOPO MACRO,LIMITI X(2 VALORI) LIMITI Y, LIMITI Z,00016000
+C     COST K CHE MOLTIPLICA I VOLUMI, K1 CHE MOLTIPLICA FI A DEN, DENSI 00016100
+C                                                                       00016200
+C     NPAR/ SONO I PARAMETRI DI INPUT NEL COMMON                        00016300
+C                                                                       00016400
+C     NMAC VIENE IN REALTA CALCOLATO OGNI VOLTA                         00016500
+C     DALLE SUBROUTINES CHE SCRIVONO IL TAPE                            00016600
+C     PER LA DETERMINAZIONE DI NMAC ED NMIC SI SEGUE IL                 00016700
+C     SEGUENTE CRITERIO:                                                00016800
+C        LA SUBROUTINE CHE SCRIVE CALCOLA NMAC                          00016900
+C        LA SUB. PROG PONE NMIC=NMAC PER DEFINIRE                       00017000
+C        LA LUNGHEZZA DEL TAPE DI INPUT DEL GIRO SUCCESSIVO             00017100
+C                                                                       00017200
+C     ++++++++++++++++++ SPAZI SCRATCH A E B ++++++++++++++++           00017300
+C                                                                       00017400
+C     A(MXA) UTILIZZATO DA :                                            00017500
+C            INPTGR  PER INDICI GRUPPI  A(NEI)                          00017600
+C            SIMPLI  PER 8$ (ZONE DEI VOLUMETTI) A(NX*NY*NZ)            00017700
+C            DI      IDEM                                               00017800
+C            FIMED   IDEM                                               00017900
+C                                                                       00018000
+C     B(MXB) UTILIZZATO DA :                                            00018100
+C     SIMPLI: B(1) LUNGO MX89 PER 9$ NOVD MATERIALI PER ZONE            00018200
+C             B(MX89+1) LUNGO MX89 PER ISTP:MATERIALI DA DILUIRE        00018300
+C             B(2*MX89+1) PER MISTP: MACRO DEI MAT DA DILUIRE           00018400
+C             B(3*MX89+1) PER NZON : ZONE DEI MAT. DA DILUIRE           00018500
+C             B(4*MX89+1) PER NZOSC:ZONE DA SCARTARE NELLE MACRO        00018600
+C                                                                       00018700
+C     MIXING: B(1) PER 10$ (MIST)                                       00018800
+C             B(MX89+1) PER 11$ (NCOMP)                                 00018900
+C             B(2*MX89+1) PER 12* (DENS)                                00019000
+C     DI    : B(1) COME SIMPLI PER NOVD                                 00019100
+C             B(N9+10) PER A (ISOTOPI DI CUI FARE IL D)                 00019200
+C             B(N9+NDI+20) PER NB (ISOTOPI DI CUI FARE IL D)            00019300
+C                                                                       00019400
+C      FI UTILIZZATO DA:                                                00019500
+C      INPTGR: FI(NEI) PER INDICI GRUPPI                                00019600
+C              VOLIN1 PER AMESH (GRANDE COME IL NUMERO DELLE INTERFACCE)00019700
+C      SREAD (SIGIN+MIXISO) UTILIZZATA DA:                              00019800
+C      DI    : PER SIG ISOTOPI SUL TAPE DA LEGGERE                      00019900
+C      MIXING: ISOTOPI DELLA MIXING                                     00020000
+C       SWRIT: PER ISOTOPI DI CUI SI VUOLE IL DI DALLA DILUIZIONE       00020100
+C                                                                       00020200
+C     +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 00020300
+C                                                                       00020400
+C     SOMMARI - CONTROLLI SUI PARAMETRI LETTI: FARE ATTENZIONE          00020500
+C               CONTROLLO DIMENSIONAMENTI                               00020600
+C                                                                       00020700
+       NER=NX*NY*NZ                                                     00020800
+       IF(NER.LT.NEI) NER=NEI                                           00020900
+       IF(MXA.LT.NER)WRITE(6,990) MXA,NER                               00021000
+ 990   FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/)  00021100
+     */' MXA =',I10,5X,'   DEVE ESSERE ALMENO ',I10)                    00021200
+       NER=M89*5+4                                                      00021300
+       IF(MXB.LT.NER) WRITE(6,991) MXB,NER                              00021400
+ 991   FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/)  00021500
+     */' MXB =',I10,5X,'   DEVE ESSERE ALMENO ',I10)                    00021600
+C                                                                       00021700
+C      ANCORA CONTROLLI                                                 00021800
+C                                                                       00021900
+       NER=NX*NY*NZ                                                     00022000
+       IF(NER.GT.MX*MY*MZ) WRITE(6,1013) MX,MY,MZ,NX,NY,NZ              00022100
+ 1013  FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/)  00022200
+     */' MX, MY, MZ (',3I5,')   DEVONO ESSERE MAGGIORI DI NX, NY, NZ (' 00022300
+     *,3I5,')')                                                         00022400
+       IF(MMIX.LT.NER.AND.KMIX.EQ.0) WRITE(6,1014) MMIX,NX,NY,NZ        00022500
+ 1014  FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/)  00022600
+     */' MMIX (',I5,')    DEVE ESSERE MAGGIORE DI NX*NY*NZ (',I5,')')   00022700
+       IF(IHMI.GT.MIHMI.OR.IHMO.GT.MIHMO) WRITE(6,1015)IHMI,IHMO,       00022800
+     * MIHMI,MIHMO                                                      00022900
+ 1015  FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/)  00023000
+     */' IHMI ED IHMO (',2I5,')   DEVONO ESSERE MINORI DI :',I5)        00023100
+       IF(NMIC.GT.MMIC) WRITE(6,1016) NMIC,MMIC                         00023200
+ 1016  FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/)  00023300
+     */' NMIC (',I5,')    DEVE ESSERE MINORE DI MMIC (',I5,')')         00023400
+       IF(NMAC.GT.MMAC) WRITE(6,1017) NMAC,MMAC                         00023500
+ 1017  FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/)  00023600
+     */' NMAC (',I5,')    DEVE ESSERE MINORE DI MMAC (',I5,')')         00023700
+       IF(NEI.GT.MEI) WRITE(6,1018) NEI,MEI                             00023800
+ 1018  FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/)  00023900
+     */' NEI (',I5,')   DEVE ESSERE MINORE DI MEI (',I5,')')            00024000
+       IF(KSIG.EQ.1) WRITE(6,1101)                                      00024100
+ 1101  FORMAT(//' SEZIONI D''URTO DA UNITA'' LOGICA  2')                00024200
+       IF(KMIX.EQ.1) WRITE(6,1102)                                      00024300
+ 1102  FORMAT(//' INPUT NORMALE, PROGRAMMA USATO COME IL MEDIATOR')     00024400
+       IF(KMIX.EQ.0) WRITE(6,1103)                                      00024500
+ 1103  FORMAT(//' INPUT SEMPLIFICATO, TIPO ANISN')                      00024600
+       CALL PROG(MEI,MX,MY,MZ,AA(L1),AA(L2),AA(L3),MIHMI,MMIC,          00024700
+     * AA(L4),MEO,MIHMO,MMAC,AA(L5),AA(L6),MXA,MXB,MX89,                00024800
+     * AA(L7),AA(L8),MZON,AA(L9),MMIX,AA(L10),AA(L11))                  00024900
+       STOP                                                             00025000
+       END                                                              00025100
+C                                                                       00025200
+       SUBROUTINE PROG(MEI,MX,MY,MZ,FI,VOL,NGRP,                        00025300
+     * MIHMI,MMIC,SREAD,MEO,MIHMO,MMAC,SWRIT,DEN,MXA,MXB,               00025400
+     * M89,A,B,MZON,VOLZ,MMIX,MIX,RHO)                                  00025500
+C      **************************************************               00025600
+C                                                                       00025700
+C      ::::::::::::::::: PROGRAMMA MEDIL ::::::::::::::::               00025800
+C                                                                       00025900
+C      DIMENSIONAMENTI                                                  00026000
+C                                                                       00026100
+       DIMENSION A(MXA),B(MXB)                                          00026200
+       DIMENSION FI(MEI,MX,MY,MZ),VOL(MX,MY,MZ),SREAD(MIHMI,MMIC)       00026300
+       DIMENSION  SWRIT(MEO,MIHMO,MMAC),DEN(MEO,MIHMO,MMAC)             00026400
+       DIMENSION  NGRP(MEI),VOLZ(MZON)                                  00026500
+       REAL*8 VOLZ                                                      00026510
+       DIMENSION RHO(MMIX)                                              00026600
+       DIMENSION MIX(10,MMIX)                                           00026700
+       COMMON /AUS/N8,N9                                                00026800
+C                                                                       00026900
+C      SERVE A DI PER SAPERE LE DIMENSIONI DELLA 8$ E 9$(DATA DA SIMPLI)00027000
+C                                                                       00027100
+       COMMON/PAR/NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,IHTO,IHSO,NMIC,  00027200
+     * NMAC,NSTMP,KDIL,KFI,KVOL,KSIG,NSOM,KDIL1,NZON,NGEOM,             00027300
+     * NDI,NEOD,IHMD,IHTD,IHSD,                                         00027400
+     * KMIX,MX89,MIXISO,NMIX                                            00027500
+C                                                                       00027600
+C     **********************************************************        00027700
+C     ELABORAZIONE DEL PROGRAMMA   M E D I A T O R                      00027800
+C     PROGRAMMA DI COLLASSAMENTO SPAZIO  ENERGETICO DI SEZIONI D'URTO   00027900
+C     AUTORE:   MARCELLO GALLI                                          00028000
+C                                                                       00028100
+C               =========== M  E  D  I  L ===========                   00028200
+C                                                                       00028300
+C     PROGRAMMA MEDIATOR CON INSERIMENTO DI INPUT SEMPLIFICATO          00028400
+C     CHE LEGGE MIXING TABLE DOT PER FARE DILUIZIONI E MACRO DI CELLA   00028500
+C                                                                       00028600
+C     MARCELLO GALLI                                                    00028700
+C     GIUGNO-LUGLIO 1983                                                00028800
+C     LAST REVISION OF THIS TERRIBLE PROGRAM : 3 - 10 - 84              00028900
+C     NEW VERSION MEDIL4 : 12- 84                                       00029000
+C     UPDATED :      APRIL 85                                           00029010
+C     BEAUTIFYED BY CARLO PETRELLA ON APRIL - 85                        00029020
+C     UPDATED :      JUNE  85                                           00029030
+C      VOLZ E VOLT IN DOPPIA PRECISIONE  : AGOSTO 85                    00029031
+C                                                                       00029032
+C                                                                       00029040
+C                                                                       00029050
+C     **********************************************************        00029100
+C                                                                       00029200
+C     TAPE2=SIGMA INPUT(ANISN BY GROUPS)                                00029300
+C     TAPE3=SIGMA OUTPUT                                                00029400
+C     TAPE5=INPUT                                                       00029500
+C     TAPE6=OUTPUT                                                      00029600
+C     TAPE8=SCRATCH PER INPUT SEMPLIFICATO                              00029700
+C     TAPE9=SCRATCH PER INPUT SEMPLIFICATO                              00029800
+C     TAPE11=TERMINAL OUT                                               00029900
+C     TAPE24=VOLUMI DA KENO                                             00030000
+C     TAPE25=FI                                                         00030100
+C     PREFISSI VARIABILI:  O=OUTPUT, I=INPUT, M=PER DIMENSIONI          00030200
+C     GLI ALTRI SIGNIFICATI SONO OVVI                                   00030300
+C     INPUT GROUPS NUMBERS FOR COLLAPSING                               00030400
+C                                                                       00030500
+      CALL INPTGR(NEI,NGRP,FI)                                          00030600
+C                                                                       00030700
+C     (FI USATO PER SCRATCH DEVE ESSERE GRANDE ALMENO COME NEI)         00030800
+C     QUI NON ESISTONO CONTROLLI SULL'INPUT. STARE ATTENTI!             00030900
+C     =====================================================             00031000
+C     IF(KMIX.NE.0) GO TO 101                                           00031100
+C     GENERA STRUTTURA A GRUPPI DI OUT=STRUTTURA GRUPPI INPUT           00031200
+C     PER INPUT SEMPLIFICATO                                            00031300
+C     DO 11 J=1,NEI                                                     00031400
+C  11 NGRP(J)=J                                                         00031500
+C                                                                       00031600
+  101 CONTINUE                                                          00031700
+C                                                                       00031800
+C     INPUT ESPLICITO MIXING (DA UNIT 5 - SCHEDE )                      00031900
+C                                                                       00032000
+      IF(KMIX.EQ.1) CALL MIXUS(NSOM,MMIX,MIX,RHO)                       00032100
+C                                                                       00032200
+C     INPUT SIGMA: LE METTE SU TAPE ANISN PER GRUPPI                    00032300
+C                                                                       00032400
+      IF(KSIG.EQ.0) CALL TAPAN(FI,SWRIT,DEN,SREAD)                      00032500
+C                                                                       00032600
+C     TAPAN SCRIVE SU 2, PER INPUT SIMPLI I TAPE SONO DIVERSI           00032700
+C                                                                       00032800
+      NTPI=2                                                            00032900
+      NTPO=3                                                            00033000
+C                                                                       00033100
+C     INPUT DEI VOLUMI (USA FI COME SPAZIO)                             00033200
+C                                                                       00033300
+      CALL VOLIN1(MX,MY,MZ,VOL,MX+1,FI)                                 00033400
+C                                                                       00033500
+C     INPUT FI                                                          00033600
+C                                                                       00033700
+      CALL FIIN(MEI,MX,MY,MZ,FI)                                        00033800
+      IF(KMIX.NE.0) GO TO 100                                           00033900
+C                                                                       00034000
+C     CHIAMA PER INPUT SEMPLIFICATO SIMPLI CHE FA MIXING DA MIXING      00034100
+C     DOT, ALTRIMENTI DIRETTAMENTE CHIAMA SOMMAT(FA TAPE8 DAL 2)        00034200
+C                                                                       00034300
+      CALL SIMPLI(NEI,IHMI,MMIX,MXA,SREAD,MIX,RHO,M89,                  00034400
+     *A(1),B(1),B(M89+1),B(2*M89+1),B(3*M89+1),B(4*M89+1),              00034500
+     *MZON,VOLZ,MX,MY,MZ,VOL)                                           00034600
+C                                                                       00034700
+C     ALTERA PARAMETRI DI CHIAMATA A SOMMAT PER INPUT SEMPLIFICATO      00034800
+C                                                                       00034900
+      NMIC=NMAC                                                         00035000
+      NTPI=8                                                            00035100
+      NTPO=3                                                            00035200
+ 100  CONTINUE                                                          00035300
+      CALL SOMMAT(KDIL,NTPI,NTPO,MEI,MX,MY,MZ,FI,VOL,NGRP,MMIX,MIX,RHO, 00035400
+     *MIHMI,MMIC,SREAD,MEO,MIHMO,MMAC,SWRIT,DEN)                        00035500
+      NMIC=NMAC                                                         00035600
+      NEI=NEO                                                           00035700
+      IF(NDI.LE.0) RETURN                                               00035800
+      IF(KMIX.NE.0) RETURN                                              00035900
+C                                                                       00036000
+C     C H I A M A T E    A   S U B R O U T I N E    D I                 00036100
+C     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 00036200
+C     I PARAMETRI IHM ETC VANNO RISISTEMATI: I VECCHI OUTPUT            00036300
+C     DIVEMGONO INPUT                                                   00036400
+C                                                                       00036500
+      IHMI=IHMO                                                         00036600
+      IHSI=IHSO                                                         00036700
+      IHTI=IHTO                                                         00036800
+      IHMO=IHMD                                                         00036900
+      IHTO=IHTD                                                         00037000
+      IHSO=IHSD                                                         00037100
+      IF(IHMO.LE.0) IHMO=IHMI                                           00037200
+      NEO=NEOD                                                          00037300
+      IF(IHTO.LE.0) IHTO=IHTI                                           00037400
+      IF(IHSO.LE.0) IHSO=IHSI                                           00037500
+      IF(NEO.LE.0) NEO=NEI                                              00037600
+C                                                                       00037700
+C     POICHE' SERVE 8$ ETC OTTENUTI DA SIMPLI IL D SI FA                00037800
+C     SOLO PER INPUT SEMPLIFICATO                                       00037900
+C                                                                       00038000
+      IF(KMIX.NE.0) RETURN                                              00038100
+C                                                                       00038200
+C     MMAC (NUMERO SIGMA SU TAPE OUTPUT) DIVIENE NUMERO                 00038300
+C     SIGMA ENTRANTI. LE USCENTI SONO LE ENTRANTI PIU I D (ND)          00038400
+C                                                                       00038500
+      NMIC=NMAC                                                         00038600
+C                                                                       00038700
+C     NMAC=NMAC+NDI                                                     00038800
+C     AD OGNI MODO NMAC SE LO RICALCOLA SOMMAT COME MAX NUMERO          00038900
+C     CHE APPARE IN MIX(2,.)                                            00039000
+C     SI LEGGE IL TAPE 3 E SI SCRIVE SUL NOVE DOVE ANDRANNO COSI'       00039100
+C     LE SIGMA + I D                                                    00039200
+C                                                                       00039300
+      NTPO=9                                                            00039400
+      NTPI=3                                                            00039500
+C                                                                       00039600
+C     PER GLI SPAZI SCRATCH IN ARGOMENTO :                              00039700
+C     SREAD E' USATO PER SIGMA DI INPUT, SWRIT PER SIGMA OUT            00039800
+C     POSSONO DOVER AVERE DIMENSIONI DIVERSE DA QUELLE BASTANTI         00039900
+C     PER LA PRIMA PARTE !!!!!!!                                        00040000
+C     A CONTIENE OTTD (8$) CHE SERVE A FIMED CHIAMATA DA DI PER         00040100
+C     FARE INTEGRALI DEI FLUSSI                                         00040200
+C     B(1) CONTIENE NOVD (9$) CHE SERVE A DI PER SAPERE COME            00040300
+C     CONNETTERE I ISOTOPI AI FLUSSI DELLE ZONE(CALCOLATI DA FIM)       00040400
+C                                                                       00040500
+C     B(N9+ECC) SONO SPAZI GRANDI NDI PER LEGGERE I NUMERI DEGLI        00040600
+C     ISOTOPI DI CUI FARE IL D                                          00040700
+C     DEVE ESSERCI ABBASTANZA SPAZIO IN B                               00040800
+C                                                                       00040900
+      CALL DI(NTPI,NTPO,SREAD,SWRIT,B(N9+10),B(N9+NDI+20),              00041000
+     *FI,VOL,MIX,RHO,A(1),B(1),MEI,NDI,MMIC,IHMI,MX,MY,MZ,MMIX,M89)     00041100
+C                                                                       00041200
+C     A DEVE ESSERE GRANDE COME I GRUPPI                                00041300
+C     INPUT PARAMETRI COLLASSAMENTO GRUPPI                              00041400
+C                                                                       00041500
+      CALL INPTGR(NEI,NGRP,A)                                           00041600
+C                                                                       00041700
+C     DI RICALCOLA NMAC                                                 00041800
+C                                                                       00041900
+      NMIC=NMAC                                                         00042000
+C                                                                       00042100
+C     NDI SERVE SOLO PER DIMENSION                                      00042200
+C     FIMED RIVALUTA I PARAMETRI NX,NY DI GEOMETRIA                     00042300
+C                                                                       00042400
+C     CHIAMATA A SOMMAT CHE FA COLLASSO GRUPPALE DOPO                   00042500
+C     L'INSERIMENTO DEI D                                               00042600
+C     SCRIVE SU 3 E LEGGE DA 9                                          00042700
+C                                                                       00042800
+      NTPI=9                                                            00042900
+      NTPO=3                                                            00043000
+C                                                                       00043100
+C     QUI IL PARAMETRO KDIL PASSATO A SOMMAT E' = 0                     00043200
+C     NON DILUISCE MA USA DA PER TUTTO LA ZONA 1                        00043300
+C     PER FARE IL COLLASSAMENTO GRUPPALE (LA ZONA 1                     00043400
+C     E ' TUTTO IL REATTORE)                                            00043500
+C                                                                       00043600
+      CALL SOMMAT(0,NTPI,NTPO,MEI,MX,MY,MZ,FI,VOL,NGRP,                 00043700
+     *MMIX,MIX,RHO,MIHMI,MMIC,SREAD,MEO,MIHMO,MMAC,SWRIT,DEN)           00043800
+C                                                                       00043900
+C     CAUSA CARATTERE COMPOSITO DI QUESTO PEROGRAMMA ED IN              00044000
+C     PARTICOLARE DEL PEZZO CHE CALCOLA IL D, C'E' UN ENORME            00044100
+C     GROVIGLIO DI SPAZI, PARAMETRI, ECC. STARE ATTENTI AGLI SPAZI E    00044200
+C     AI DIMENSIONAMENTI SPECIE DI B, A, SWRIT, SREAD. E' FACILE        00044300
+C     CHE VENGANO FUORI PASTICCI...                                     00044400
+C                                                                       00044500
+C     BUONA FORTUNA!                                                    00044600
+C                                                                       00044700
+C     DOVREBBE ESSERE STATO RISISTEMATO TUTTO NEL DICEMBRE 84           00044800
+C     SPERIAMO IN BENE!                                                 00044900
+C                                                                       00045000
+      RETURN                                                            00045100
+      END                                                               00045200
+C                                                                       00045300
+      SUBROUTINE SOMMAT(KDIL,NTPI,NTPO,MEI,MX,MY,MZ,FI,VOL,NGRP,        00045400
+     *MMIX,MIX,RHO,MIHMI,MMIC,SREAD,MEO,MIHMO,MMAC,SWRIT,DEN)           00045500
+C     **************************************************                00045600
+C                                                                       00045700
+C     QUESTA SUBROUTINE FA GLI INTEGRALI DI COLLASSAMENTO ETC.          00045800
+C                                                                       00045900
+C     DIMENSIONAMENTI                                                   00046000
+C                                                                       00046100
+      DIMENSION FI(MEI,MX,MY,MZ),VOL(MX,MY,MZ),SREAD(MIHMI,MMIC)        00046200
+      DIMENSION SWRIT(MEO,MIHMO,MMAC),DEN(MEO,MIHMO,MMAC),NGRP(MEI)     00046300
+      DIMENSION RHO(MMIX)                                               00046400
+      DIMENSION MIX(10,MMIX)                                            00046500
+      DIMENSION TIT(18)                                                 00046600
+      DIMENSION NPAR(14)                                                00046700
+      EQUIVALENCE (NPAR(1),NEI)                                         00046800
+      COMMON/PAR/NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,IHTO,IHSO,NMIC,   00046900
+     *NMAC,NSTMP,KDI1,KFI,KVOL,KSIG,NSOM,KDIL1,NZON,NGEOM,              00047000
+     *NDI,NEOD,IHMD,IHTD,IHSD                                           00047100
+C                                                                       00047200
+      IF(NSOM.GT.MMIX) WRITE(6,1111)NSOM,MMIX                           00047300
+ 1111 FORMAT(//' ATTENZIONE! LA TAVOLA DI INTEGRAZIONE E''TROPPO PICCOLA00047400
+     *'/' *?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?'/00047500
+     *' NSOM=',I10,5X,' MMIX=',I10,5X,' MMIX DEVE ESSERE ALMENO NSOM'/  00047600
+     *' *?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?'/) 00047700
+C                                                                       00047800
+C     +++++++++++++++++++++++++++++++++++++++++++++++                   00047900
+C                    LOOPS DI SOMMATORIA                                00048000
+C     +++++++++++++++++++++++++++++++++++++++++++++++                   00048100
+C                                                                       00048200
+       IF(NSTMP.LT.5) GO TO 100                                         00048300
+       WRITE(6,1000)                                                    00048400
+ 1000  FORMAT('1MISCELA ESEGUITA:'// '   MICRO  MACRO  X1    X2    Y1   00048500
+     * Y2    Z1    Z2    K1    K2        RHO')                          00048600
+       DO 10 I=1,NSOM                                                   00048700
+ 10    WRITE(6,2000)(MIX(J,I),J=1,10),RHO(I)                            00048800
+ 2000  FORMAT(1X,10I6,3X,1PE12.5)                                       00048900
+ 100   CONTINUE                                                         00049000
+C                                                                       00049100
+C      CALCOLO NUMERO ISOTOPI DI OUTPUT (NMAC)                          00049200
+C                                                                       00049300
+       NDUM=1                                                           00049400
+       DO 20 I=1,NSOM                                                   00049500
+       IF(NDUM.LT.MIX(2,I)) NDUM=MIX(2,I)                               00049600
+  20   CONTINUE                                                         00049700
+       IF(NDUM.NE.NMAC) WRITE(6,2200) NMAC,NDUM                         00049800
+ 2200  FORMAT(//' IL NUMERO DI ISOTOPI DI OUTPUT:',I5,2X,               00049900
+     * ' E'' STATO RICALCOLATO. E'':',I5)                               00050000
+       NMAC=NDUM                                                        00050100
+C                                                                       00050200
+C      AZZERAMENTI                                                      00050300
+C                                                                       00050400
+       CALL EMP(0.0,MEO,MIHMO,NMAC,SWRIT)                               00050500
+       CALL EMP(0.0,MEO,MIHMO,NMAC,DEN)                                 00050600
+C                                                                       00050700
+C      REWIND TAPE ANISN BY GROUPS                                      00050800
+C                                                                       00050900
+       REWIND NTPI                                                      00051000
+C                                                                       00051100
+C      ++++++++++++++++++ LOOP 50 SUI GRUPPI INPUT                      00051200
+C                                                                       00051300
+       DO 50 IG=1,NEI                                                   00051400
+C                                                                       00051500
+C      LEGGE 1 GRUPPO TAPE ANISN GRUPPI                                 00051600
+C                                                                       00051700
+       READ(NTPI) ((SREAD(J,JJ),J=1,IHMI),JJ=1,NMIC)                    00051800
+       IF(NSTMP.LT.20) GO TO 155                                        00051900
+       IF(IG.EQ.1) WRITE(6,1050)                                        00052000
+ 1050  FORMAT('1')                                                      00052100
+       DO 51 JJ=1,NMIC                                                  00052200
+ 51    WRITE(6,1110) NTPI,IG,JJ,(SREAD(J,JJ),J=1,IHMI)                  00052300
+ 1110  FORMAT(' DA TAPE:',I4,2X,' GRUPPO:',I4,2X,' ISOTOPO:',I4,2X,     00052400
+     * ' SIGMA:'/(1X,10(1PE12.5)))                                      00052500
+ 155   CONTINUE                                                         00052600
+C                                                                       00052700
+C      ++++++++++++++++++++++ LOOP 60 ISOTOPI MIXING                    00052800
+C                                                                       00052900
+       DO 60 IS=1,NSOM                                                  00053000
+       I1=MIX(3,IS)                                                     00053100
+       I2=MIX(4,IS)                                                     00053200
+       J1=MIX(5,IS)                                                     00053300
+       J2=MIX(6,IS)                                                     00053400
+       K1=MIX(7,IS)                                                     00053500
+       K2=MIX(8,IS)                                                     00053600
+C                                                                       00053700
+C      +++++++++++++++++++++++++++ LOOP 70  GEOMETRIA                   00053800
+C                                                                       00053900
+       DO 70 IX=I1,I2                                                   00054000
+       DO 70 IY=J1,J2                                                   00054100
+       DO 70 IZ=K1,K2                                                   00054200
+C                                                                       00054300
+C      +++++++++++++++++++++++++ LOOP 80 TAVOLA ANISN                   00054400
+C                                                                       00054500
+       DO 80 IH=1,IHTI                                                  00054600
+C                                                                       00054700
+C      PER ELIMINARE O AGGIUNGERE POSTI DI ACTIVITIES                   00054800
+C                                                                       00054900
+       IO=IHTO-(IHTI-IH)                                                00055000
+       IF(IO.LE.0) GO TO 80                                             00055100
+       SWRIT(NGRP(IG),IO,MIX(2,IS))=SWRIT(NGRP(IG),IO,MIX(2,IS))+       00055200
+     * SREAD(IH,MIX(1,IS))*FI(IG,IX,IY,IZ)*VOL(IX,IY,IZ)*               00055300
+     * RHO(IS)*MIX(9,IS)                                                00055400
+       IF(KDIL.NE.0)                                                    00055500
+     * DEN(NGRP(IG),IO,MIX(2,IS))=DEN(NGRP(IG),IO,MIX(2,IS))+           00055600
+     * FI(IG,IX,IY,IZ)*VOL(IX,IY,IZ)*MIX(9,IS)/MIX(10,IS)               00055700
+  80   CONTINUE                                                         00055800
+C                                                                       00055900
+C      +++++++++++++++++++++++++++++ FINE LOOP 80                       00056000
+C      +++++++++++++++++++++++ LOOP 90 SCATTERING                       00056100
+C                                                                       00056200
+       IHT1=IHTI+1                                                      00056300
+       DO 90 IH=IHT1,IHMI                                               00056400
+C                                                                       00056500
+C      GRUPPO DI PROVENIENZA                                            00056600
+C      EVITA SCRITTE INUTILI SCATT FUORI TAVOLA PER SIGMA NULLE         00056700
+C                                                                       00056800
+       IF(SREAD(IH,MIX(1,IS)).EQ.0.) GO TO 90                           00056900
+C                                                                       00057000
+C      GRUPPO PROVENIENZA UFG                                           00057100
+C                                                                       00057200
+       NGFROM=IG+(IHSI-IHT1)-(IH-IHT1)                                  00057300
+       IF(NGFROM.GT.NEI.OR.NGFROM.LT.1)                                 00057400
+     * WRITE(6,3000) NGFROM,IG,IHSI,IHT1,IH,IS                          00057500
+       IF(NGFROM.GT.NEI.OR.NGFROM.LT.1)                                 00057600
+     * WRITE(11,3000) NGFROM,IG,IHSI,IHT1,IH,IS                         00057700
+ 3000  FORMAT(' WARNING !!!'/' ERRORE IN NGFROM IN LOOP 90,NGFROM,IG,   00057800
+     * IHSI,IHT1,IH,IS'/1X,10I10)                                       00057900
+       IF(NGFROM.GT.NEI.OR.NGFROM.LT.1) STOP                            00058000
+C                                                                       00058100
+C      IF(NGFROM.GT.NEI) NGFROM=NEI                                     00058200
+C      IF(NGFROM.LT.1) NGFROM=1                                         00058300
+C      GRUPPO  DI FINE UFG                                              00058400
+C      NGTO=IG                                                          00058500
+C      GRUPPO DI FINE BG                                                00058600
+C      NGTOO=NGRP(IG)                                                   00058700
+C      POSIZIONE IN TAVOLA ANISN BG(GRUPPO PROVENIENZA  BG              00058800
+C                                                                       00058900
+       NIHO=IHSO-(NGRP(NGFROM)-NGRP(IG))                                00059000
+       IF(NIHO.LE.IHTO.OR.NIHO.GT.IHMO)                                 00059100
+     * WRITE(11,3300) (NIHO,IHSO,NGRP(IG),IG,NGFROM,NGRP(NGFROM),IH,IS) 00059200
+ 3300  FORMAT(//' ATTENZIONE COMPRESSIONE SCATTERING PARAMETRI LOOP     00059300
+     * 90 NIHO,IHSO,NGRP(IG),IG,NGROM,NGRP(NGFROM),IH,IS'/1X,10I10)     00059400
+       IF(NIHO.LE.IHTO) NIHO=IHTO+1                                     00059500
+       IF(NIHO.GT.IHMO) NIHO=IHMO                                       00059600
+       SWRIT(NGRP(IG),NIHO,MIX(2,IS))=SWRIT(NGRP(IG),NIHO,MIX(2,IS))+   00059700
+     * SREAD(IH,MIX(1,IS))*FI(NGFROM,IX,IY,IZ)*VOL(IX,IY,IZ)*           00059800
+     * RHO(IS)*MIX(9,IS)                                                00059900
+  90   CONTINUE                                                         00060000
+  70   CONTINUE                                                         00060100
+  60   CONTINUE                                                         00060200
+  50   CONTINUE                                                         00060300
+       REWIND NTPI                                                      00060400
+C                                                                       00060500
+C      +++++++++++++++++++++++++ FINE LOOP 90 SU IH                     00060600
+C      ++++++++++++++++++++++ FINE LOOP 70 SPAZIALE                     00060700
+C      ++++++++++++++++++++++++ FINE LOOP 60 MIXING                     00060800
+C      ++++++++++++++++++++++++ FINE LOOP 50 GRUPPI                     00060900
+C      IL CALCOLO DEI DENOMINATORI VIENE POSTO QUI PER                  00061000
+C      KDIL=0,NON LOOP SU NSOM , MA INTEGRALI ESTESI A TUTTO IL         00061100
+C      REATTORE. MIX(9,.) E MIX(10,.) NON SONO UTILIZZATI PER DEN       00061200
+C                                                                       00061300
+       IF(KDIL.NE.0) GO TO 801                                          00061400
+       DO 79 IS=1,NMAC                                                  00061500
+       DO 81 IG=1,NEI                                                   00061600
+       DO 82 IH=1,IHTI                                                  00061700
+       IO=IHTO-(IHTI-IH)                                                00061800
+       IF(IO.LE.0) GO TO 82                                             00061900
+       DO 83 IZ=1,NZ                                                    00062000
+       DO 83 IY=1,NY                                                    00062100
+       DO 83 IX=1,NX                                                    00062200
+       DEN(NGRP(IG),IO,IS)=DEN(NGRP(IG),IO,IS)+                         00062300
+     * FI(IG,IX,IY,IZ)*VOL(IX,IY,IZ)                                    00062400
+ 83    CONTINUE                                                         00062500
+ 82    CONTINUE                                                         00062600
+ 81    CONTINUE                                                         00062700
+ 79    CONTINUE                                                         00062800
+ 801   CONTINUE                                                         00062900
+C                                                                       00063000
+C      CALCOLO DENOMINATORI DELLO SCATTERING CHE SE MESSI NEL LOOP      00063100
+C      SOPRA AVREBBERO UNA SOMMATORIA SU GRUPPI DI ARRIVO IN PIU        00063200
+C      E NON ESTESA A TUTTI I GRUPPI FINI APPARTENENTI AL GROSSO        00063300
+C      DI PROVENIENZA                                                   00063400
+C                                                                       00063500
+       IHT1=IHTO+1                                                      00063600
+C                                                                       00063700
+C      +++++++++++++++++++++++++++ LOOP GRUPPI OUTPUT                   00063800
+C                                                                       00063900
+       DO 63 IG=1,NEO                                                   00064000
+C                                                                       00064100
+C      ++++++++++++++++++ LOOP SU TAVOLA IH DI OUTPUT                   00064200
+C                                                                       00064300
+       DO 65 IH=IHT1,IHMO                                               00064400
+C                                                                       00064500
+C      CALCOLO  B G  DI PROVENIENZA                                     00064600
+C                                                                       00064700
+       NBGP=IG+(IHSO-IHTO)-(IH-IHTO)                                    00064800
+       IF(NBGP.LT.1.OR.NBGP.GT.NEO) GO TO 650                           00064900
+C                                                                       00065000
+C      +++++ LOOP GRUPPI FINI DEL B.G. DI PROVENIENZA                   00065100
+C                                                                       00065200
+       DO 67 IGI=1,NEI                                                  00065300
+       IF(NGRP(IGI).NE.NBGP) GO TO 670                                  00065400
+       IF(KDIL.NE.0) GO TO 710                                          00065500
+C                                                                       00065600
+C      PER KDIL=0 PER OGNI ISOTOPO FA UN DEN CON INTEGRALE ESTESO       00065700
+C      A TUTTO IL REATTORE INVECE CHE FARE LOOP SULLA MIXING            00065800
+C      I MIX(9,.) MIX(10,.) NON SONO UTILIZZATI IN DEN                  00065900
+C                                                                       00066000
+C      ++++++++++++++++++ LOOP ISOTOPI MACRO (KDIL=1)                   00066100
+C                                                                       00066200
+       DO 71 IS=1,NMAC                                                  00066300
+       DO 72 IX=1,NX                                                    00066400
+       DO 72 IY=1,NY                                                    00066500
+       DO 72 IZ=1,NZ                                                    00066600
+       DEN(IG,IH,IS)=DEN(IG,IH,IS)+FI(IGI,IX,IY,IZ)*VOL(IX,IY,IZ)       00066700
+  72   CONTINUE                                                         00066800
+  71   CONTINUE                                                         00066900
+C                                                                       00067000
+C      ++++++++++++++ FINE LOOP ISOTOPI MACRO(KDIL=1)                   00067100
+C                                                                       00067200
+       GO TO 670                                                        00067300
+ 710   CONTINUE                                                         00067400
+C                                                                       00067500
+C      ++++++++++++++++++++++++++++ LOOP MIXING TABLE                   00067600
+C                                                                       00067700
+       DO 69 IS=1,NSOM                                                  00067800
+       I1=MIX(3,IS)                                                     00067900
+       I2=MIX(4,IS)                                                     00068000
+       J1=MIX(5,IS)                                                     00068100
+       J2=MIX(6,IS)                                                     00068200
+       K1=MIX(7,IS)                                                     00068300
+       K2=MIX(8,IS)                                                     00068400
+C                                                                       00068500
+C      +++++++++++++++++++++++++++ LOOP 69  GEOMETRIA                   00068600
+C                                                                       00068700
+       DO 69 IX=I1,I2                                                   00068800
+       DO 69 IY=J1,J2                                                   00068900
+       DO 69 IZ=K1,K2                                                   00069000
+       DEN(IG,IH,MIX(2,IS))=DEN(IG,IH,MIX(2,IS))+                       00069100
+     * FI(IGI,IX,IY,IZ)*VOL(IX,IY,IZ)*MIX(9,IS)/MIX(10,IS)              00069200
+ 69    CONTINUE                                                         00069300
+ 670   CONTINUE                                                         00069400
+ 67    CONTINUE                                                         00069500
+ 650   CONTINUE                                                         00069600
+ 65    CONTINUE                                                         00069700
+ 630   CONTINUE                                                         00069800
+ 63    CONTINUE                                                         00069900
+C                                                                       00070000
+C      ++++++++++++++++ FINE LOOPS CALCOLO DENOM SCATT                  00070100
+C                                                                       00070200
+C      PER KDIL.EQ.0 HA ESTESO GLI INTEGRALI A TUTTO IL REATTORE        00070300
+C      DIVIDE PER I DENOMINATORI                                        00070400
+C                                                                       00070500
+       DO 92 I=1,NEO                                                    00070600
+       DO 92 I1=1,IHMO                                                  00070700
+       DO 92 I2=1,NMAC                                                  00070800
+       IF(DEN(I,I1,I2).NE.0.) SWRIT(I,I1,I2)=SWRIT(I,I1,I2)/            00070900
+     * DEN(I,I1,I2)                                                     00071000
+ 92    CONTINUE                                                         00071100
+C                                                                       00071200
+C      STAMPA SIGMA OUTPUT                                              00071300
+C      FA TAPE ANISN PER GRUPPI                                         00071400
+C                                                                       00071500
+       REWIND NTPO                                                      00071600
+       DO 94 I=1,NEO                                                    00071700
+       WRITE(NTPO) ((SWRIT(I,J,JJ),J=1,IHMO),JJ=1,NMAC)                 00071800
+       IF(NSTMP.LT.12) GO TO 200                                        00071900
+       IF(I.EQ.1) WRITE(6,4040)                                         00072000
+ 4040  FORMAT('1')                                                      00072100
+       DO 97 JJ=1,NMAC                                                  00072200
+       WRITE(6,4440) (I,JJ,(SWRIT(I,J,JJ),J=1,IHMO))                    00072300
+ 4440  FORMAT(' GRUPPO:',I4,4X,' ISOTOPO:',I4,4X,' SIGMA:'              00072400
+     * /(1X,10(1PE12.5)))                                               00072500
+ 97    CONTINUE                                                         00072600
+ 200   CONTINUE                                                         00072700
+ 94    CONTINUE                                                         00072800
+       REWIND NTPO                                                      00072900
+       WRITE(6,4500) NTPO,NMAC,NEO,IHMO                                 00073000
+ 4500  FORMAT(//1X,10(1H=),' SCRITTI SU TAPE:',I5,'      ISOTOPI:',     00073100
+     * I5,'      GRUPPI:',I5,'      IHM:',I5)                           00073200
+       RETURN                                                           00073300
+       END                                                              00073400
+C                                                                       00073500
+       SUBROUTINE FIIN(MEI,MX,MY,MZ,FI)                                 00073600
+C      ********************************                                 00073700
+C                                                                       00073800
+C      INPUT FLUSSI                                                     00073900
+C                                                                       00074000
+       DIMENSION FI(MEI,MX,MY,MZ)                                       00074100
+       COMMON/PAR/NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,IHTO,IHSO,NMIC,  00074200
+     * NMAC,NSTMP,KDIL,KFI,KVOL,KSIG,NSOM,KDIL1,NZON,NGEOM,             00074300
+     * NDI,NEOD,IHMD,IHTD,IHSD                                          00074400
+       WRITE(11,1000)                                                   00074500
+       WRITE(6,1000)                                                    00074600
+ 1000  FORMAT(//' PARAMETRI PER IL FORMATO DEI FLUSSI DI INPUT :'/      00074700
+     * ' 0 = DOT,  1 = KENO,  2 = PIATTI (1.0),  3 = SCHEDE')           00074800
+       WRITE(11,1002) KFI                                               00074900
+       WRITE(6,1002) KFI                                                00075000
+ 1002  FORMAT(/' PARAMETRO USATO:',6X,I4)                               00075100
+       IF(KFI.EQ.2) GO TO 400                                           00075200
+       IF(KFI.NE.1) GO TO 100                                           00075300
+C                                                                       00075400
+C      ++++++++++++++++++++++++++++ TIPO KENO                           00075500
+C                                                                       00075600
+       REWIND 25                                                        00075700
+ 15    READ(25,END=130) LBG,IG,LL,LU                                    00075800
+       N2=LU-LL+1                                                       00075900
+       READ(25,END=130) (FI(IG,LBG,J,1),J=1,N2)                         00076000
+       IF(NSTMP.GT.16) WRITE(6,3000)IG,LBG,(FI(IG,LBG,J,1),J=1,N2)      00076100
+ 3000  FORMAT(' GRUPPO',I10,' BOX',I10/' FI PER REGIONE:'               00076200
+     * /(1X,10(1PE12.5)))                                               00076300
+       GO TO 15                                                         00076400
+ 130   CONTINUE                                                         00076500
+       REWIND 25                                                        00076600
+       RETURN                                                           00076700
+ 100   CONTINUE                                                         00076800
+       IF(KFI.NE.0) GO TO 200                                           00076900
+C                                                                       00077000
+C      +++++++++++++++++++++++++++++ TIPO DOT                           00077100
+C                                                                       00077200
+       REWIND 25                                                        00077300
+       DO 20 J=1,NEI                                                    00077400
+ 20    READ(25) (((FI(J,J1,J2,J3),J1=1,NX),J2=1,NY),J3=1,NZ)            00077500
+       REWIND 25                                                        00077600
+       IF(NSTMP.LT.16) GO TO 150                                        00077700
+ 140   CONTINUE                                                         00077800
+       WRITE(6,3090)                                                    00077900
+ 3090  FORMAT(//)                                                       00078000
+       DO 50 JG=1,NEI                                                   00078100
+       WRITE(6,4000) JG                                                 00078200
+ 4000  FORMAT(' FLUSSO GRUPPO:',I10)                                    00078300
+       DO 51 J3=1,NZ                                                    00078400
+       WRITE(6,4001) J3                                                 00078500
+ 4001  FORMAT(' DIMENSIONE Z=',I10)                                     00078600
+       DO 52 J2=1,NY                                                    00078700
+       WRITE(6,4002)J2                                                  00078800
+ 4002  FORMAT(' DIM Y',I10)                                             00078900
+       WRITE(6,4003) (FI(JG,J1,J2,J3),J1=1,NX)                          00079000
+ 4003  FORMAT((5(1X,1PE12.5)))                                          00079100
+ 52    CONTINUE                                                         00079200
+ 51    CONTINUE                                                         00079300
+ 50    CONTINUE                                                         00079400
+ 150   CONTINUE                                                         00079500
+       RETURN                                                           00079600
+ 200   CONTINUE                                                         00079700
+       IF(KFI.NE.3) GOTO400                                             00079800
+       WRITE(11,5000)                                                   00079900
+ 5000  FORMAT('  FORNIRE I FLUSSI(X,Y,Z,GRUPPO),X=1,NX),Y=1,NY),Z=1,NZ)N00080000
+     *EI  (6E12.0)')                                                    00080100
+      READ(5,5001)((((FI(J,J1,J2,J3),J1=1,NX),J2=1,NY),J3=1,NZ),J=1,NEI)00080200
+ 5001   FORMAT(6E12.0)                                                  00080300
+        GO TO  140                                                      00080400
+C                                                                       00080500
+C       INPUT FLUSSI PIATTI = 1.                                        00080600
+C                                                                       00080700
+ 400    CONTINUE                                                        00080800
+        DO 40 I=1,NEI                                                   00080900
+        DO 40 JX=1,NX                                                   00081000
+        DO 40 JY=1,NY                                                   00081100
+        DO 40 JZ=1,NZ                                                   00081200
+ 40     FI(I,JX,JY,JZ)=1.                                               00081300
+        GO TO 140                                                       00081400
+        END                                                             00081500
+C                                                                       00081600
+       SUBROUTINE EMP(K,N1,N2,N3,L)                                     00081700
+C      *************************************                            00081800
+C                                                                       00081900
+C      EMPIE L(N1,N2,N3) CON K                                          00082000
+C                                                                       00082100
+       DIMENSION L(N1,N2,N3)                                            00082200
+       IF(N1.LE.0.OR.N2.LE.0.OR.N3.LE.0) RETURN                         00082300
+       DO 10 I=1,N1                                                     00082400
+       DO 10 J=1,N2                                                     00082500
+       DO 10 JJ=1,N3                                                    00082600
+ 10    L(I,J,JJ)=K                                                      00082700
+       RETURN                                                           00082800
+       END                                                              00082900
+C                                                                       00083000
+       SUBROUTINE VOLIN1(MX,MY,MZ,VOL,MXMESH,AMESH)                     00083100
+C      *********************************************                    00083200
+C                                                                       00083300
+C      LETTURA VOLUMI                                                   00083400
+C                                                                       00083500
+       DIMENSION VOL(MX,MY,MZ),AMESH(MXMESH,MY)                         00083600
+       COMMON/PAR/NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,IHTO,IHSO,NMIC,  00083700
+     * NMAC,NSTMP,KDIL,KFI,KVOL,KSIG,NSOM,KDIL1,NZON,NGEOM,             00083800
+     * NDI,NEOD,IHMD,IHTD,IHSD                                          00083900
+       WRITE(11,1000)                                                   00084000
+       WRITE(6,1000)                                                    00084100
+ 1000 FORMAT(//' PARAMETRI PER IL FORMATO DELL''INPUT DEI VOLUMI:'/     00084200
+     * ' 0 = LIBERO,  1 = DOT,  2 = KENO,  3 = SCHEDE,  4 = 1.'         00084300
+     * //' PARAMETRI GEOMETRIA :  0 = SLAB,  1 = CILINDRO')             00084400
+       WRITE(11,1110) KVOL,NGEOM                                        00084500
+       WRITE(6,1110) KVOL,NGEOM                                         00084600
+ 1110  FORMAT(//' PARAMETRO VOLUMI USATO : ',I4,//                      00084700
+     *' PARAMETRO GEOMETRIA USATO : ',I4)                               00084800
+C                                                                       00084900
+C      PER COME NE RIEMPIE PEZZI IL KENO                                00085000
+C                                                                       00085100
+       CALL EMP(0.0,MX,MY,MZ,VOL)                                       00085200
+       K1=KVOL+1                                                        00085300
+       GO TO (600,160,140,200,400),K1                                   00085400
+       GO TO 400                                                        00085500
+C                                                                       00085600
+C      +++++++++++++++++++++++++++++++++ DA KENO                        00085700
+C                                                                       00085800
+ 140   CONTINUE                                                         00085900
+       REWIND 24                                                        00086000
+       NBOX1=0                                                          00086100
+ 10    READ(24,END=150)NBOX,VOLL                                        00086200
+       IF(NBOX.NE.NBOX1) I=0                                            00086300
+       I=I+1                                                            00086400
+       VOL(NBOX,I,1)=VOLL                                               00086500
+       IF(NSTMP.GT.13) WRITE(6,2000)NBOX,I,VOL(NBOX,I,1)                00086600
+ 2000  FORMAT(' SCATOLA:',I10,' REGIONE:',I10,'VOLUME:',1PE12.5)        00086700
+       NBOX1=NBOX                                                       00086800
+       GO TO 10                                                         00086900
+ 150   CONTINUE                                                         00087000
+       REWIND 24                                                        00087100
+       RETURN                                                           00087200
+C                                                                       00087300
+C      ++++++++++++++++++++++++++ DA DOT                                00087400
+C                                                                       00087500
+ 160   CONTINUE                                                         00087600
+       IM=NX+1                                                          00087700
+       JM=NY+1                                                          00087800
+       WRITE (6,2020)                                                   00087900
+ 2020  FORMAT(//)                                                       00088000
+       WRITE(6,1200)                                                    00088100
+       WRITE(11,1200)                                                   00088200
+ 1200  FORMAT('  MESH-(X-Y),X=1,NX+1;Y=1,NY+1 ')                        00088300
+       READ(5,2110) (AMESH(J,1),J=1,IM)                                 00088400
+       READ(5,2110) (AMESH(J,2),J=1,JM)                                 00088500
+       WRITE(6,2111) (AMESH(J,1),J=1,IM)                                00088600
+       WRITE (6,2021)                                                   00088700
+ 2021  FORMAT(//)                                                       00088800
+       WRITE(6,2111) (AMESH(J,2),J=1,JM)                                00088900
+ 2111  FORMAT(1X,6(1PE12.5))                                            00089000
+       WRITE(11,2111) (AMESH(J,1),J=1,IM)                               00089100
+       WRITE(11,2111) (AMESH(J,2),J=1,JM)                               00089200
+ 2110  FORMAT(6E12.5)                                                   00089300
+       IF(NGEOM.EQ.1) GO TO 201                                         00089400
+       DO 20 IX=1,NX                                                    00089500
+       DO 20 IY=1,NY                                                    00089600
+       DO 20 IZ=1,NZ                                                    00089700
+       VOL(IX,IY,IZ)=(AMESH(IX+1,1)-AMESH(IX,1))*(AMESH(IY+1,2)-AMESH   00089800
+     * (IY,2))                                                          00089900
+  20   CONTINUE                                                         00090000
+       GOTO 202                                                         00090100
+ 201   CONTINUE                                                         00090200
+       DO 21 IX=1,NX                                                    00090300
+       DO 21 IY=1,NY                                                    00090400
+       DO 21 IZ=1,NZ                                                    00090500
+       VOL(IX,IY,IZ)=(AMESH(IY+1,2)-AMESH(IY,2))*                       00090600
+     * 3.14159265*(AMESH(IX+1,1)**2-AMESH(IX,1)**2)                     00090700
+  21   CONTINUE                                                         00090800
+ 202   CONTINUE                                                         00090900
+       IF(NSTMP.GT.13)                                                  00091000
+     * WRITE(6,5500) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ)        00091100
+       RETURN                                                           00091200
+ 200   CONTINUE                                                         00091300
+C                                                                       00091400
+C      LETTURA ESPLICITA                                                00091500
+C                                                                       00091600
+       WRITE(11,4000)                                                   00091700
+ 4000  FORMAT(' FORNIRE I VOLUMI(IX,IY,IZ,X=...),Y=...),Z=...)6E12.5')  00091800
+       READ(5,5000) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ)         00091900
+       WRITE(6,5500) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ)        00092000
+       WRITE(11,5500)(((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ)        00092100
+ 5500  FORMAT(' VOLUMI:',5E12.5)                                        00092200
+ 5000  FORMAT(6E12.5)                                                   00092300
+       RETURN                                                           00092400
+C                                                                       00092500
+C      VOLUMI UGUALI =1.                                                00092600
+C                                                                       00092700
+ 400   CONTINUE                                                         00092800
+       DO 40 JX=1,NX                                                    00092900
+       DO 40 JY=1,NY                                                    00093000
+       DO 40 JZ=1,NZ                                                    00093100
+ 40    VOL(JX,JY,JZ)=1.                                                 00093200
+       WRITE(11,5500)(((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ)        00093300
+       RETURN                                                           00093400
+ 600   CONTINUE                                                         00093500
+       WRITE(11,6002)                                                   00093600
+       CALL RFREE(N,AMESH(1,1))                                         00093700
+       IF(N.NE.NX+1) WRITE(6,6001) N,NX                                 00093800
+       WRITE(11,6000)                                                   00093900
+ 6000  FORMAT(' FORNIRE LE INTERFACCE ASSIALI(FORMATO LIBERO)')         00094000
+ 6001  FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/), 00094100
+     * /' NUMERO INTERFACCE :',I5,4X,' NUMERO MASSIMO VOLUMETTI :',I5)  00094200
+ 6002  FORMAT(' FORNIRE LE INTERFACCE RADIALI (FORMATO LIBERO)')        00094300
+       CALL RFREE(N,AMESH(1,2))                                         00094400
+       IF(N.NE.NY+1) WRITE(6,6001) N,NY                                 00094500
+       IM=NX+1                                                          00094600
+       JM=NY+1                                                          00094700
+       WRITE(6,2020)                                                    00094800
+       WRITE(6,2111) (AMESH(J,1),J=1,IM)                                00094900
+       WRITE(6,2111) (AMESH(J,2),J=1,JM)                                00095000
+       WRITE(11,2111) (AMESH(J,1),J=1,IM)                               00095100
+       WRITE(11,2111) (AMESH(J,2),J=1,JM)                               00095200
+       IF(NGEOM.EQ.1) GO TO 603                                         00095300
+       DO 26 IX=1,NX                                                    00095400
+       DO 26 IY=1,NY                                                    00095500
+       DO 26 IZ=1,NZ                                                    00095600
+       VOL(IX,IY,IZ)=(AMESH(IX+1,1)-AMESH(IX,1))*(AMESH(IY+1,2)-AMESH   00095700
+     * (IY,2))                                                          00095800
+  26   CONTINUE                                                         00095900
+       GO TO 602                                                        00096000
+ 603   CONTINUE                                                         00096100
+       DO 27 IX=1,NX                                                    00096200
+       DO 27 IY=1,NY                                                    00096300
+       DO 27 IZ=1,NZ                                                    00096400
+       VOL(IX,IY,IZ)=(AMESH(IY+1,2)-AMESH(IY,2))*                       00096500
+     * 3.14159265*(AMESH(IX+1,1)**2-AMESH(IX,1)**2)                     00096600
+  27   CONTINUE                                                         00096700
+ 602   CONTINUE                                                         00096800
+       IF(NSTMP.GT.13)                                                  00096900
+     * WRITE(6,5500) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ)        00097000
+       RETURN                                                           00097100
+       END                                                              00097200
+C                                                                       00097300
+       SUBROUTINE INPTGR(NEI,NGRP,DUM)                                  00097400
+C      *******************************                                  00097500
+C                                                                       00097600
+C      INPUT GROUP NUMBERS FOR COLLAPSING                               00097700
+C                                                                       00097800
+       DIMENSION NGRP(NEI),DUM(NEI)                                     00097900
+       WRITE(11,1000)                                                   00098000
+ 1000  FORMAT(' INPUT NUMERI GRUPPI PER COLLASSAMENTO(FREE FORMAT)')    00098100
+       CALL RFREE(N,DUM)                                                00098200
+       WRITE(11,2000) (DUM(J),J=1,N)                                    00098300
+ 2000  FORMAT(' LETTI NUMERI GRUPPI:',5E12.5)                           00098400
+       IF(N.NE.NEI) WRITE(6,3000) N,NEI                                 00098500
+       DO 10 I=1,NEI                                                    00098600
+  10   NGRP(I)=DUM(I)                                                   00098700
+ 3000  FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/)  00098800
+     * /' LETTI',I10,'   DATI.  IL NUMERO DEI GRUPPI E'':',I10)         00098900
+       WRITE(11,2020) NEI                                               00099000
+ 2020  FORMAT(//' 20I4, NUMERO GRUPPO OUTPUT PER OGNI GRUPPO DI INPUT', 00099100
+     * I10,'VALORI')                                                    00099200
+       WRITE(6,2032) (NGRP(J),J=1,NEI)                                  00099300
+ 2032  FORMAT(//' INDICI PER COLLASSAMENTO GRUPPALE:'/(1X,20I5))        00099400
+       RETURN                                                           00099500
+       END                                                              00099600
+C                                                                       00099700
+       SUBROUTINE MIXUS(NSOM,MMIX,MIX,RHO)                              00099800
+C      ***********************************                              00099900
+C      INPUT MIXING TAVOLA INPUT NORMALE                                00100000
+C                                                                       00100100
+       DIMENSION MIX(10,MMIX),RHO(MMIX)                                 00100200
+C                                                                       00100300
+C      ++++++++++++++++++++++++++++++++++++ LOOP 10                     00100400
+C                                                                       00100500
+C      INPUT MIXING TABLE (MAX NUM SCHEDE =SECONDA DIM DI MIX E RHO )   00100600
+C                                                                       00100700
+       NSOM=0                                                           00100800
+  10   CONTINUE                                                         00100900
+       N1=NSOM+1                                                        00101000
+       WRITE(11,2040)                                                   00101100
+ 2040  FORMAT(' DARE 9I4:NUM ISO MICRO,NUM MACRO,LIMITI X1,X2,Y1,Y2,Z1, 00101200
+     * Z2,K,K1,RHO. (DEFAULTS =1) ')                                    00101300
+       READ(5,1030) (MIX(J,N1),J=1,10),RHO(N1)                          00101400
+ 1030  FORMAT(10I4,E12.5)                                               00101500
+C                                                                       00101600
+C      USCITA LOOP                                                      00101700
+C                                                                       00101800
+       IF(MIX(1,N1).LE.0) GO TO 100                                     00101900
+       IF(MIX(2,N1).LE.0) GO TO 100                                     00102000
+C                                                                       00102100
+C      DEFAULTS                                                         00102200
+C                                                                       00102300
+       DO 20 I=3,10                                                     00102400
+       IF(MIX(I,N1).LE.0) MIX(I,N1)=1                                   00102500
+ 20    CONTINUE                                                         00102600
+       IF(RHO(N1).LE.0) RHO(N1)=1.                                      00102700
+       WRITE(6,1031) (MIX(J,N1),J=1,10),RHO(N1)                         00102800
+ 1031  FORMAT(' ISOTOPO MICRO=',I3,' MACRO=',I3,' LIMITI X=',2I3,       00102900
+     * ' LIMITI Y=',2I3,' LIMITI Z=',2I3,' FATT MOLT VOL=',2I3,' RHO='  00103000
+     * ,E11.4)                                                          00103100
+       WRITE(11,1030)(MIX(J,N1),J=1,10),RHO(N1)                         00103200
+       NSOM=NSOM+1                                                      00103300
+       GO TO 10                                                         00103400
+ 100   CONTINUE                                                         00103500
+C                                                                       00103600
+C      ++++++++++++++++++++++++++++ FINE LOOP 10                        00103700
+C                                                                       00103800
+       RETURN                                                           00103900
+       END                                                              00104000
+C                                                                       00104100
+       SUBROUTINE SIMPLI(MEI,IHM,MMIX,MXA,                              00104200
+     * SIGIN,MIX,RHO,MX89,NOTTD,NOVD,ISTP,MISTP,NZON,NZOSC,             00104300
+     * MZON,VOLZ,MX,MY,MZ,VOL)                                          00104400
+C      ****************************************************             00104500
+C                                                                       00104600
+C     INPUT SEMPLIFICATO (INPUT MIXING TABLE DOT, FA MACRO E DILUIZIONI)00104700
+C                                                                       00104800
+       DIMENSION SIGIN(IHM,1),MIX(10,MMIX),RHO(MMIX)                    00104900
+       DIMENSION NOTTD(MXA),NOVD(MX89),ISTP(MX89)                       00105000
+       DIMENSION MISTP(MX89),NZON(MX89),NZOSC(MX89)                     00105100
+       DIMENSION VOL(MX,MY,MZ),VOLZ(MZON)                               00105200
+       REAL*8 VOLZ,VOLT                                                 00105210
+C                                                                       00105300
+C      OTTD DIM REATTORE                                                00105400
+C                                                                       00105500
+       COMMON/PAR/NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,IHTO,IHSO,NMIC,  00105600
+     * NMAC,NSTMP,KDIL,KFI,KVOL,KSIG,NSOM,KDIL1,NZN,NGEOM,              00105700
+     * NDI,NEOD,IHMD,IHTD,IHSD,                                         00105800
+     * KMIX,M89,MIXISO,NMIX                                             00105900
+       COMMON /AUS/N8,N9                                                00106000
+C                                                                       00106100
+C      PASSA NUM ZONE E MATERIALI DIM 8 E 9 $ AD DI                     00106200
+C                                                                       00106300
+C      FA MIXING TABLE SU TAPE 8                                        00106400
+C                                                                       00106500
+       NTPIN=2                                                          00106600
+       NTPOU=8                                                          00106700
+       EV=1.                                                            00106800
+       CALL MIXING(NSTMP,NTPIN,NTPOU,NEI,NMIC,NMAC,IHMI,EV,SIGIN,MX89,  00106900
+     * NOVD,ISTP,MISTP)                                                 00107000
+C                                                                       00107100
+C      ATTENZIONE AD NMIC,NMAC: NMAC LO CALCOLA MIXING                  00107200
+C      NMIC LO ASSEGNA POI PROG(FARA' NMIC=NMAC PER GIRO DOPO)          00107300
+C                                                                       00107400
+C      ZONE NUMBER BY INTERVAL                                          00107500
+C                                                                       00107600
+       WRITE(11,900)                                                    00107700
+ 900   FORMAT(' DARE 8\9b ( DIMENSIONI NX*NY*NZ) NUM ZONA PER OGNI VOL')  00107800
+       CALL RFREE(N8,NOTTD)                                             00107900
+       CALL CNVRTR(N8,NOTTD)                                            00108000
+       WRITE(6,1000) N8,(NOTTD(J),J=1,N8)                               00108100
+ 1000  FORMAT('1LETTA SEZIONE 8$ DI DOT. INGRESSI:',I5,                 00108200
+     * /' MAPPA REATTORE :'/(20I3))                                     00108300
+       IF(N8.NE.NX*NY*NZ) WRITE(6,1001) N8,NX,NY,NZ                     00108400
+ 1001  FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/), 00108500
+     */' NUMERO INGRESSI:',I5,' NON UGUALE AL PRODOTTO DI NX*NY*NZ: NUME00108600
+     * RO VOLUMETTI:',3I7)                                              00108700
+C                                                                       00108800
+C      CALCOLO VOLUMI DI OGNI ZONA                                      00108900
+C                                                                       00109000
+       CALL VOLZON(VOLT,MZON,VOLZ,N8,NOTTD,NX,NY,NZ,VOL)                00109100
+       WRITE(6,1002) VOLT,(J,VOLZ(J),J=1,MZON)                          00109200
+ 1002  FORMAT(//' VOLUME TOTALE :',1PE12.5,/(' ZONA:',I5,               00109300
+     * ' VOLUME=',1PE12.5))                                             00109400
+       WRITE(11,1005)                                                   00109500
+ 1005  FORMAT(' FORNIRE 9$: NUM MATERIALE PER OGNI ZONA')               00109600
+       CALL RFREE(N9,NOVD)                                              00109700
+       CALL CNVRTR(N9,NOVD)                                             00109800
+C                                                                       00109900
+C      MATERIAL NUMBER BY ZONE                                          00110000
+C                                                                       00110100
+       WRITE(6,2000) N9,(NOVD(J),J=1,N9)                                00110200
+ 2000  FORMAT(//' LETTA SEZIONE 9$ DI DOT. INGRESSI:',I6,/              00110300
+     * ' MATERIALI PER ZONA :',20I4)                                    00110400
+C                                                                       00110500
+C      INPUT ISOTOPI DA DILUIRE                                         00110600
+C                                                                       00110700
+       WRITE(11,2005)                                                   00110800
+ 2005  FORMAT(' FORNIRE NUMERI MATERIALI DA DILUIRE ')                  00110900
+       CALL RFREE(N10,ISTP)                                             00111000
+       CALL CNVRTR(N10,ISTP)                                            00111100
+C                                                                       00111200
+C      DETERMINA NUMERI DI TAPA OUT(MACRO)  DELLE SIGMA DA DILUIRE      00111300
+C                                                                       00111400
+       IF (N10.LE.0) GO TO 555                                          00111500
+       DO 5 IMX=1,N10                                                   00111600
+  5    MISTP(IMX)=IMX+1                                                 00111700
+ 555   CONTINUE                                                         00111800
+       N11=N10                                                          00111900
+C                                                                       00112000
+C      ZONE DELLE MICRO DA TRATTARE                                     00112100
+C                                                                       00112200
+       CALL RFREE(N12,NZON)                                             00112300
+       CALL CNVRTR(N12,NZON)                                            00112400
+       IF(N10.NE.N11.OR.N10.NE.N12) WRITE(6,2008) N10,N11,N12           00112500
+ 2008  FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/)  00112600
+     */' ISOTOPI DA TRATTARE :',3I10)                                   00112700
+       WRITE(6,3000) N10,N11,N12,(ISTP(J),MISTP(J),NZON(J),J=1,N10)     00112800
+ 3000  FORMAT(//' ISOTOPI DA TRATTARE, POSIZIONI E ZONE :',             00112900
+     * 3I6,/(7X,I4,12X,I4,6X,I4))                                       00113000
+       CALL RFREE(N14,NZOSC)                                            00113100
+       CALL CNVRTR(N14,NZOSC)                                           00113200
+       WRITE(6,3005) N14,(NZOSC(J),J=1,N14)                             00113300
+ 3005  FORMAT(//' SALTO ',I5,4X,' ZONE',//                              00113400
+     * (' ZONE SALTATE :',10I6))                                        00113500
+       IF(N14.LE.0) GO TO 77                                            00113600
+       DO 7 J=1,N14                                                     00113700
+       VOLT=VOLT-VOLZ(NZOSC(J))                                         00113800
+    7  CONTINUE                                                         00113900
+   77  CONTINUE                                                         00114000
+C                                                                       00114100
+C      CREAZIONE MIXING TABLE PER INPUT ALLA SUB SOMMAT                 00114200
+C                                                                       00114300
+       NSOM=0                                                           00114400
+       N2=1                                                             00114500
+C                                                                       00114600
+C      POSIZIONE MACRO                                                  00114700
+C      PER OGNI VOLUMETTO GUARDA CHE MATERIALE C'E'                     00114800
+C                                                                       00114900
+       DO 10 IZ=1,NZ                                                    00115000
+       DO 10 IY=1,NY                                                    00115100
+       DO 10 IX=1,NX                                                    00115200
+       NZONUM=NOTTD(IX+NX*(IY-1)+NX*NY*(IZ-1))                          00115300
+C                                                                       00115400
+C        SALTA LE ZONE SPECIFICATE IN NZONUM ED NZOSC                   00115500
+C                                                                       00115600
+         IF(N14.LE.0) GO TO 110                                         00115700
+         DO 15 J=1,N14                                                  00115800
+         IF(NZONUM.EQ.NZOSC(J)) GO TO 100                               00115900
+  15     CONTINUE                                                       00116000
+ 110     CONTINUE                                                       00116100
+      NMATC=NOVD(NZONUM)                                                00116200
+      NSOM=NSOM+1                                                       00116300
+      MIX(1,NSOM)=NMATC                                                 00116400
+      MIX(2,NSOM)=N2                                                    00116500
+      MIX(3,NSOM)=IX                                                    00116600
+      MIX(4,NSOM)=IX                                                    00116700
+      MIX(5,NSOM)=IY                                                    00116800
+      MIX(6,NSOM)=IY                                                    00116900
+      MIX(7,NSOM)=IZ                                                    00117000
+      MIX(8,NSOM)=IZ                                                    00117100
+      MIX(9,NSOM)=1                                                     00117200
+      MIX(10,NSOM)=1                                                    00117300
+      RHO(NSOM)=1.                                                      00117400
+C                                                                       00117500
+C     ++++++++++++++++++++ LOOP ISOTOPI DA TRATTARE                     00117600
+C     GUARDA SE L'ISOTOPO DELLA ZONA E' DA DILUIRE.                     00117700
+C                                                                       00117800
+      IF(N10.LE.0) GO TO 100                                            00117900
+      DO 20 IK=1,N10                                                    00118000
+      IF(NOTTD(IX+NX*(IY-1)+NX*NY*(NZ-1)).NE.NZON(IK)) GO TO 200        00118100
+      NSOM=NSOM+1                                                       00118200
+      MIX(1,NSOM)=ISTP(IK)                                              00118300
+      MIX(2,NSOM)=MISTP(IK)                                             00118400
+      MIX(3,NSOM)=IX                                                    00118500
+      MIX(4,NSOM)=IX                                                    00118600
+      MIX(5,NSOM)=IY                                                    00118700
+      MIX(6,NSOM)=IY                                                    00118800
+      MIX(7,NSOM)=IZ                                                    00118900
+      MIX(8,NSOM)=IZ                                                    00119000
+      MIX(9,NSOM)=1                                                     00119100
+      MIX(10,NSOM)=1                                                    00119200
+      RHO(NSOM)=1.                                                      00119300
+      IF(KDIL1.EQ.0) RHO(NSOM)=VOLT/VOLZ(NZON(IK))                      00119400
+      GO TO 150                                                         00119500
+ 200  CONTINUE                                                          00119600
+      IF(KDIL1.NE.0) GO TO 150                                          00119700
+C                                                                       00119800
+C     NELLA ZONA DOVE NON STA L' ISOTOPO METTE UN ISOTOPO FITTIZIO      00119900
+C     PER ESTENDERE I DENOMINATORI NELLE FORMULE DI SOMMATORIA          00120000
+C                                                                       00120100
+      NSOM=NSOM+1                                                       00120200
+      MIX(1,NSOM)=ISTP(IK)                                              00120300
+      MIX(2,NSOM)=MISTP(IK)                                             00120400
+      MIX(3,NSOM)=IX                                                    00120500
+      MIX(4,NSOM)=IX                                                    00120600
+      MIX(5,NSOM)=IY                                                    00120700
+      MIX(6,NSOM)=IY                                                    00120800
+      MIX(7,NSOM)=IZ                                                    00120900
+      MIX(8,NSOM)=IZ                                                    00121000
+      MIX(9,NSOM)=1                                                     00121100
+      MIX(10,NSOM)=1                                                    00121200
+      RHO(NSOM)=1.E-33                                                  00121300
+ 150  CONTINUE                                                          00121400
+ 20   CONTINUE                                                          00121500
+ 100  CONTINUE                                                          00121600
+ 10   CONTINUE                                                          00121700
+      RETURN                                                            00121800
+      END                                                               00121900
+C                                                                       00122000
+      SUBROUTINE MAXX(MX,N,MIST)                                        00122100
+C     **************************                                        00122200
+C                                                                       00122300
+C     TROVA IL MAX DI MIST                                              00122400
+C                                                                       00122500
+      DIMENSION MIST(N)                                                 00122600
+      MX=MIST(1)                                                        00122700
+      DO 10 I=2,N                                                       00122800
+      IF(MIST(I).GT.MX) MX=MIST(I)                                      00122900
+ 10   CONTINUE                                                          00123000
+      RETURN                                                            00123100
+      END                                                               00123200
+C                                                                       00123300
+      SUBROUTINE TAPAN(A,B,C,D)                                         00123400
+C     *************************                                         00123500
+C                                                                       00123600
+C     SUBROUTINE TAPAN PER PROGRAMMA MEDIATOR                           00123700
+C     OTTENUTA MISCHIANDO I PROGRAMMI ANISGR                            00123800
+C     E LA SUBROUTINE RDAN DEL CANCO                                    00123900
+C                                                                       00124000
+C     MARCELLO GALLI  16 - 2 - 83                                       00124100
+C                                                                       00124200
+      DIMENSION A(50000)                                                00124300
+      DIMENSION DUM(20)                                                 00124400
+C                                                                       00124500
+C     IGM,IHM,NISO SONO PASSATI CON COMMON E NON LETTI DA INPUT         00124600
+C     COME NELLA TAPAN NORMALE                                          00124700
+C                                                                       00124800
+      COMMON /PAR/IGM,NDD(4),IHM,ND1(5),NISO,ND2,NSTMP                  00124900
+      REAL*8 ANOM                                                       00125000
+      DEFINE FILE 99(9000,200,U,NDRI)                                   00125100
+      NI=5                                                              00125200
+      NO=6                                                              00125300
+      NLB=5                                                             00125400
+C                                                                       00125500
+C     SE  NLB=5 LEGGE DA SCHEDA IN FORMATO FIDO CON SUBROUTINE RDAN,    00125600
+C     ALTRIMENTI LEGGE IN FORMATO BINARIO DA NLB                        00125700
+C                                                                       00125800
+      M5=5                                                              00125900
+      NDR=99                                                            00126000
+      NTP=2                                                             00126100
+C                                                                       00126200
+C     NTP E IL NASTRO BINARIO PRODOTTO                                  00126300
+C     TAPE ANISN PER GRUPPI                                             00126400
+C                                                                       00126500
+      FIND(99'1)                                                        00126600
+      ND=1                                                              00126700
+      NF=IHM*IGM                                                        00126800
+ 100  FORMAT(20I4)                                                      00126900
+      WRITE(NO,299) IGM,IHM,NISO                                        00127000
+  299 FORMAT('1 GRUPPI:',I4,2X' LUNGHEZZA TAVOLA:',I4,2X,               00127100
+     *' NUM ISOT:',I10)                                                 00127200
+      IF(NLB.EQ.M5) GOTO 9                                              00127300
+      REWIND NLB                                                        00127400
+      WRITE(NO,298) NLB                                                 00127500
+  298 FORMAT(//20X,' LETTURA TAPE',I4//)                                00127600
+  9   CONTINUE                                                          00127700
+      DO 50 IISOT=1,NISO                                                00127800
+      IF(NLB.EQ.5) GO TO 99                                             00127900
+  10  READ(NLB,END=50) N1,N2,N3,N4,ANOM                                 00128000
+      WRITE(NO,296) N1,N2,N3,N4,ANOM                                    00128100
+ 296  FORMAT(/' LETTO:',4I4,2X,A8/)                                     00128200
+      READ(NLB) (A(J),J=1,NF)                                           00128300
+      GO TO 15                                                          00128400
+ 99   CONTINUE                                                          00128500
+      CALL RDAN(A,NF)                                                   00128600
+ 15   CONTINUE                                                          00128700
+      DO 2 I=1,IGM                                                      00128800
+      WRITE(99'ND)(A(IHM*(I-1)+J),J=1,IHM)                              00128900
+      ND=ND+1                                                           00129000
+      IF(NSTMP.GT.205)WRITE(NO,1001) ND,(A(IHM*(I-1)+J),J=1,IHM)        00129100
+ 1001 FORMAT(' (( REC-1))',I5,6(1H ,E14.7))                             00129200
+ 2    CONTINUE                                                          00129300
+  50  CONTINUE                                                          00129400
+      NREC=ND-1                                                         00129500
+      FIND(99'1)                                                        00129600
+      DO 4 I=1,IGM                                                      00129700
+      DO 3 K=1,NISO                                                     00129800
+      READ(99'(K-1)*IGM+I)  (A((K-1)*IHM+J),J=1,IHM)                    00129900
+      IF(NSTMP.GT.230)WRITE(NO,1002) A((K-1)*IHM+1),A((K-1)*IHM+IHM)    00130000
+ 1002 FORMAT(' LETT 99 DA',E15.7,' AD ',E15.7)                          00130100
+  3   CONTINUE                                                          00130200
+      NF=IHM*NISO                                                       00130300
+      WRITE(NTP) (A(J),J=1,NF)                                          00130400
+      IF(NSTMP.GT.210)WRITE(NO,295) NTP,(A(J),J=1,NF)                   00130500
+ 295  FORMAT(' SCRITTO SU TAPE',I4,'=='/(10(1H ,1PE12.5)))              00130600
+  4   CONTINUE                                                          00130700
+      RETURN                                                            00130800
+      END                                                               00130900
+C                                                                       00131000
+      SUBROUTINE RDAN(D,N)                                              00131100
+C     ********************                                              00131200
+C                                                                       00131300
+C     LEGGE TUTTE LE SEZIONI D'URTO PER UN MATERIALE NEL FORMATO FIDO   00131400
+C     (ANISN) SISTEMANDOLE NEL VETTORE D                                00131500
+C     N  E' IL NUMERO DI VALORI DA CONVERTIRE, DI SOLITO UGUALE AL      00131600
+C     NUMERO GRUPPI *LUNGHEZZA TAVOLA DELLE SIGMA                       00131700
+C                                                                       00131800
+      DIMENSION D(N)                                                    00131900
+      DIMENSION NA(6),B(6),C(6),CC(6),CCC(6),P(6)                       00132000
+      REAL*4P                                                           00132100
+      DATA P/4H$   ,4H*   ,4H    ,4H+    ,4H-    ,4HR   /,MP/6/         00132200
+      NN=1                                                              00132300
+ 50   CONTINUE                                                          00132400
+      READ(5,100)((NA(I),B(I),C(I)),I=1,6),(CC(K),CCC(K),K=1,6)         00132500
+C                                                                       00132600
+C     IN CC E CCC C'E' IL NUMERO                                        00132700
+C                                                                       00132800
+ 30   CONTINUE                                                          00132900
+C                                                                       00133000
+C-----LOOP SUI 6 CAMPI DI OGNI SCHEDA IN FORMATO FIDO(ANISN)            00133100
+C                                                                       00133200
+      DO 3 NJ=1,6                                                       00133300
+C                                                                       00133400
+C     FA IL TEST SE IL CAMPO DEL NUMERO E' TUTTO BLANK                  00133500
+C     SE TROVA UN CAMPO BIANCO, PASSA AD ESAMINARE IL CAMPO SUCCESSIVO  00133600
+C                                                                       00133700
+      IF(CC(NJ).EQ.P(3).AND.CCC(NJ).EQ.P(3))   GOTO3                    00133800
+C                                                                       00133900
+C     ESAMINA IL TIPO DI CODIFICATORE                                   00134000
+C                                                                       00134100
+      DO 1 NP=1,MP                                                      00134200
+      IF(B(NJ).EQ.P(NP)) GOTO(5,6,7,8,9,10),NP                          00134300
+ 1    CONTINUE                                                          00134400
+C                                                                       00134500
+C     IL $ O ALTRI PARAMETRI DIVERSI DA QUELLI PREVISTI NON SONO TRATTA-00134600
+C     TI                                                                00134700
+C                                                                       00134800
+    5 WRITE(6,101)B(NJ)                                                 00134900
+ 101  FORMAT(/' ***** IL PARAMETRO',A6,'  DI ANISN NON E'' CONTEMPLATO. 00135000
+     * VIENE IGNORATO')                                                 00135100
+C                                                                       00135200
+C     L'ASTERISCO VIENE TRATTATO IMPLICITAMENTE IN QUANTO E' SEMPRE     00135300
+C     SEGUITO DA 9 BLANK E NEL CAMPO SUCCESSIVO DA VALORI REAL          00135400
+C                                                                       00135500
+ 6    GOTO3                                                             00135600
+ 7    NA(NJ)=1                                                          00135700
+   10 NAA=NA(NJ)                                                        00135800
+      DO 2 NJJ=1,NAA                                                    00135900
+      D(NN)=C(NJ)                                                       00136000
+      NN=NN+1                                                           00136100
+      IF(NN.GT.N) RETURN                                                00136200
+ 2    CONTINUE                                                          00136300
+      GOTO3                                                             00136400
+ 9    NE=-1                                                             00136500
+      GOTO11                                                            00136600
+ 8    NE=1                                                              00136700
+ 11   D(NN)=C(NJ)*10.**(NA(NJ)*NE)                                      00136800
+      NN=NN+1                                                           00136900
+      IF(NN.GT.N) GO TO 200                                             00137000
+  3   CONTINUE                                                          00137100
+      GOTO50                                                            00137200
+ 110  FORMAT(6(4X,2A4))                                                 00137300
+ 100  FORMAT(6(I2,A1,E9.0),T1,6(4X,2A4))                                00137400
+ 200  RETURN                                                            00137500
+      END                                                               00137600
+C                                                                       00137700
+      SUBROUTINE DI(NTPI,NTPO,SIG,SIG1,A,NB,FI,VOL,MIX,RHO,NOTTD,NOVD,  00137800
+     *MEI,MDI,MMIC,IHM,MX,MY,MZ,MMIX,M89)                               00137900
+C     ****************************************************************  00138000
+C                                                                       00138100
+C     SUBROUTINE PER IL CALCOLO DEL D                                   00138200
+C                                                                       00138300
+      COMMON/PAR/NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,IHTO,IHSO,NISIN,  00138400
+     *NISOU,NSTMP,KDIL,KFI,KVOL,KSIG,NSOM,KDIL1,                        00138500
+     *NDI,NEOD,IHMD,IHTD,IHSD                                           00138600
+      DIMENSION SIG(IHM,MMIC),SIG1(IHM,MDI),A(MDI),NB(MDI),             00138700
+     *FI(MEI,MX,MY,MZ),VOL(MX,MY,MZ)                                    00138800
+      DIMENSION RHO(MMIX),MIX(10,MMIX)                                  00138900
+      DIMENSION NOTTD(M89),NOVD(M89)                                    00139000
+      COMMON /AUS/N9,NZONE                                              00139100
+C                                                                       00139200
+C     DIMENSIONI 8$ E 9$ PASSATE DA SIMPLI                              00139300
+C                                                                       00139400
+      WRITE(11,1000)                                                    00139500
+ 1000 FORMAT(' DARE NUMERI ISOTOPI DI CUI FARE IL D ')                  00139600
+C                                                                       00139700
+C     1 LO FA IN TUTTI I MODI (MACRO). NON SI METTE IN INPUT            00139800
+C                                                                       00139900
+      CALL RFREE(NC,A)                                                  00140000
+      IF(NC.LE.0) GO TO 100                                             00140100
+      N=0                                                               00140200
+      DO 5 I=1,NC                                                       00140300
+      IF(A(I).LT.2..OR.A(I).GT.NISIN) GO TO 5                           00140400
+      N=N+1                                                             00140500
+      NB(N)=A(I)                                                        00140600
+   5  CONTINUE                                                          00140700
+      NC=N                                                              00140800
+C                                                                       00140900
+C     HA AGGIUSTATO NB PER NON FINIRE FUORI ADDRESS                     00141000
+C                                                                       00141100
+      WRITE(6,4000) (NB(J),J=1,NC)                                      00141200
+ 4000 FORMAT(//' ISOTOPI DI CUI FARE IL D:  1   ',10I5)                 00141300
+  100 CONTINUE                                                          00141400
+      CALL EMP(0.0,IHMI,NC+1,1,SIG1)                                    00141500
+      REWIND NTPI                                                       00141600
+      REWIND NTPO                                                       00141700
+   2  CONTINUE                                                          00141800
+      DO 10 IE=1,NEI                                                    00141900
+      READ(NTPI)((SIG(J,JJ),J=1,IHMI),JJ=1,NISIN)                       00142000
+      IF(IHTI-2.LT.1) GO TO 200                                         00142100
+      IF(SIG(IHTI,1).NE.0) SIG1(IHTI-2,1)=1./(3*SIG(IHTI,1))            00142200
+ 200  CONTINUE                                                          00142300
+      IF(SIG(IHTI,1).NE.0) SIG1(IHTI,1)=1./(3*SIG(IHTI,1))              00142400
+      N=1                                                               00142500
+      IF(NC.LE.0) GO TO 440                                             00142600
+      DO 20 IS=1,NC                                                     00142700
+      N=N+1                                                             00142800
+      IF(IHTI-2.LT.1)  GO TO 400                                        00142900
+      IF(SIG(IHTI,NB(IS)).NE.0) SIG1(IHTI-2,N)=1./(3.*SIG(IHTI,NB(IS))) 00143000
+ 400  CONTINUE                                                          00143100
+      IF(SIG(IHTI,NB(IS)).NE.0) SIG1(IHTI,N)=1./(3.*SIG(IHTI,NB(IS)))   00143200
+  20  CONTINUE                                                          00143300
+ 440  CONTINUE                                                          00143400
+C                                                                       00143500
+C     SU NTPO E: 1=D MACRO,TUTTI I D(NC CHIESTI),NISIN ISOTOPI          00143600
+C     DI CUI IL PRIMO E LA MACRO                                        00143700
+C                                                                       00143800
+       WRITE(NTPO)((SIG1(J,JJ),J=1,IHMI),JJ=1,N),                       00143900
+     * ((SIG(J1,J2),J1=1,IHMI),J2=1,NISIN)                              00144000
+       IF(NSTMP.GT.22) WRITE(6,2000)NTPO,IE,N,NISIN,IHM,                00144100
+     * ((SIG1(J,JJ),J=1,IHMI),JJ=1,N),                                  00144200
+     * ((SIG(J1,J2),J1=1,IHMI),J2=1,NISIN)                              00144300
+ 2000  FORMAT(//' SCRITTO SU TAPE:',I5,' GRUPPO:',I5,' NUM DI:',I5,     00144400
+     * ' ISOTOPI:',I5,' IHM:',I5/(1X,10(1PE12.5)))                      00144500
+ 10    CONTINUE                                                         00144600
+       NISOU=N+NISIN                                                    00144700
+       WRITE(6,3000)NTPO,NISOU,NISIN,N,NEI,IHMI                         00144800
+ 3000  FORMAT(//,1X,10(1H=),' SCRITTO SU TAPE:',I5,'ISOTOPI:',I5,       00144900
+     * ' DI CUI VERI:',I5,' COEFF D :',I5,' GRUPPI:',I5,' IHM:',I5)     00145000
+       CALL FIMED(MEI,MX,MY,MZ,FI,VOL,M89,NOTTD,                        00145100
+     * NZONE,A)                                                         00145200
+C                                                                       00145300
+C      A E B DOPO LA 9$ B DEVE ESSERE GRANDE COME LE ZONE               00145400
+C      CONTROLLARE A CHE ROBA CORRISPONDE A                             00145500
+C      FA LA MIXING                                                     00145600
+C                                                                       00145700
+       NSOM=0                                                           00145800
+C                                                                       00145900
+C      PER OGNI ISOTOPO DEL TAPE                                        00146000
+C                                                                       00146100
+       NTT=NC+NISIN+1                                                   00146200
+       IF(NTT.LE.0) GO TO 505                                           00146300
+       DO 50 I=1,NTT                                                    00146400
+       NSOM=NSOM+1                                                      00146500
+       MIX(1,NSOM)=I                                                    00146600
+C                                                                       00146700
+C      MICRO                                                            00146800
+C                                                                       00146900
+       MIX(2,NSOM)=I                                                    00147000
+C                                                                       00147100
+C      MACRO                                                            00147200
+C      CALCOLO NUMERO ZONA                                              00147300
+C                                                                       00147400
+       IF(I.EQ.1.OR.I.EQ.NC+2) GO TO 450                                00147500
+C                                                                       00147600
+C      VA A 450 PER IL D O L'ISOTOPO DELLA ZONA 1                       00147700
+C      NUMERO ISOTOPI                                                   00147800
+C                                                                       00147900
+       IF(I.LE.NC+1) N1=NB(I-1)                                         00148000
+C                                                                       00148100
+C      IN QUESTO CASO E' UN D (NUMERO INDICATO IN NB)                   00148200
+C                                                                       00148300
+       IF(I.GT.NC+1) N1=I-(NC+1)                                        00148400
+C                                                                       00148500
+C      IN QUESTO CASO LA POSIZ DELLA MIXING E NUM ISOTOPO               00148600
+C      CERCA LA SUA ZONA IN BASE ALLA NOTTD (MATERIA BY ZONE)           00148700
+C      NON USA LA ZONA,MA USA LA ZONA 1 DAPPERTUTTO                     00148800
+C      PERCHE' NON FA MEDIE VERE,MA SOLO COLLASSAMENTO GRUPPI           00148900
+C      DOPO AVERE GIA' DILUITO GLI ISOTOPI                              00149000
+C                                                                       00149100
+       GO TO 300                                                        00149200
+ 450   CONTINUE                                                         00149300
+       IK=0                                                             00149400
+ 300   CONTINUE                                                         00149500
+       MIX(3,NSOM)=IK+1                                                 00149600
+       MIX(4,NSOM)=IK+1                                                 00149700
+       MIX(5,NSOM)=1                                                    00149800
+       MIX(6,NSOM)=1                                                    00149900
+       MIX(7,NSOM)=1                                                    00150000
+       MIX(8,NSOM)=1                                                    00150100
+       MIX(9,NSOM)=1                                                    00150200
+       MIX(10,NSOM)=1                                                   00150300
+       RHO(NSOM)=1.                                                     00150400
+  50   CONTINUE                                                         00150500
+ 505   CONTINUE                                                         00150600
+       RETURN                                                           00150700
+C                                                                       00150800
+C      IL MAIN CHIAMA SOMMAT PER FARE COLLASSAMENTO                     00150900
+C                                                                       00151000
+       END                                                              00151100
+C                                                                       00151200
+       SUBROUTINE FIMED(MEI,MX,MY,MZ,FI,VOL,M89,                        00151300
+     * NOTTD,NZONE,DUM)                                                 00151400
+C      *****************************************                        00151500
+C                                                                       00151600
+C      FA MEDIE SPAZIALI DI FLUSSI IN BASE A NOTTD,NOVD                 00151700
+C                                                                       00151800
+       DIMENSION FI(MEI,MX,MY,MZ),VOL(MX,MY,MZ),DUM(NZONE)              00151900
+       DIMENSION NOTTD(M89)                                             00152000
+       COMMON/PAR/NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,IHTO,IHSO,NMIC,  00152100
+     * NMAC,NSTMP,KDIL,KFI,KVOL,KSIG,NSOM,KDIL1                         00152200
+       DO 10 IE=1,NEI                                                   00152300
+       A=0.                                                             00152400
+       IF(NZONE.LE.0) GO TO 100                                         00152500
+       DO 15I=1,NZONE                                                   00152600
+ 15    DUM(I)=0.0                                                       00152700
+ 100   CONTINUE                                                         00152800
+C                                                                       00152900
+C      FLUSSI INTEGRALI DEL GRUPPO                                      00153000
+C                                                                       00153100
+       DO 20 IX=1,NX                                                    00153200
+       DO 20 IY=1,NY                                                    00153300
+       DO 20 IZ=1,NZ                                                    00153400
+       A=A+FI(IE,IX,IY,IZ)*VOL(IX,IY,IZ)                                00153500
+C                                                                       00153600
+C      NOTTD E IL NUM ZONA DI OGNI MESH                                 00153700
+C                                                                       00153800
+       NINDC=NOTTD(IX+NX*(IY-1)+NX*NY*(IZ-1))                           00153900
+       IF(NZONE.GT.0)                                                   00154000
+     * DUM(NINDC)=DUM(NINDC)+FI(IE,IX,IY,IZ)*VOL(IX,IY,IZ)              00154100
+ 20    CONTINUE                                                         00154200
+       FI(IE,1,1,1)=A                                                   00154300
+       IF(NZONE.LE.0) GO TO 200                                         00154400
+       DO 30 I=1,NZONE                                                  00154500
+ 30    FI(IE,I+1,1,1)=DUM(I)                                            00154600
+ 200   CONTINUE                                                         00154700
+ 10    CONTINUE                                                         00154800
+C                                                                       00154900
+C      VOLUMI DELLE ZONE                                                00155000
+C                                                                       00155100
+       VV=0.                                                            00155200
+       DO 40 IX=1,NX                                                    00155300
+       DO 40 IY=1,NY                                                    00155400
+       DO 40 IZ=1,NZ                                                    00155500
+       VV=VV+VOL(IX,IY,IZ)                                              00155600
+       NINDC=NOTTD(IX+NX*(IY-1)+NX*NY*(IZ-1))                           00155700
+       IF(NZONE.GT.0) DUM(INDC)=DUM(INDC)+VOL(IX,IY,IZ)                 00155800
+ 40    CONTINUE                                                         00155900
+       VOL(1,1,1)=VV                                                    00156000
+       IF(NZONE.LE.0) GO TO 300                                         00156100
+       DO 50 I=1,NZONE                                                  00156200
+ 50    VOL(I+1,1,1)=DUM(I)                                              00156300
+ 300   CONTINUE                                                         00156400
+       NZON1=NZONE+1                                                    00156500
+       DO 45 J=1,NZON1                                                  00156600
+ 45    WRITE(6,1000) J,VOL(J,1,1),(FI(JJ,J,1,1),JJ=1,NEI)               00156700
+ 1000  FORMAT(' ZONA:',I5,' VOLUME:',1PE12.5,' ( LA ZONA 1 E'' TUTTO IL 00156800
+     * REATTORE)'/' FLUSSI:'/(1X,5(1PE12.5)))                           00156900
+C                                                                       00157000
+C      NORMALIZZAZIONE (DEVE ESSERE FATTA PERCHE' SOMMAT INTEGRA USANDO 00157100
+C      I VOL E MOLTIPLICA PER V                                         00157200
+C                                                                       00157300
+       DO 60 IE=1,NEI                                                   00157400
+       FI(IE,1,1,1)=FI(IE,1,1,1)/VOL(1,1,1)                             00157500
+       IF(NZONE.LE.0) GO TO 400                                         00157600
+       DO 70 IZ=1,NZONE                                                 00157700
+       FI(IE,IZ+1,1,1)=FI(IE,IZ+1,1,1)/VOL(IZ+1,1,1)                    00157800
+ 70    CONTINUE                                                         00157900
+ 400   CONTINUE                                                         00158000
+ 60    CONTINUE                                                         00158100
+       NZ=1                                                             00158200
+       NY=1                                                             00158300
+       NX=1                                                             00158400
+       IF(NZONE.GT.0) NX=NX+NZONE                                       00158500
+       WRITE(6,2000)                                                    00158600
+ 2000  FORMAT(' FLUSSO NORMALIZZATO AL VOLUME')                         00158700
+       DO 46 J=1,NZON1                                                  00158800
+ 46    WRITE(6,1000) J,VOL(J,1,1),(FI(JJ,J,1,1),JJ=1,NEI)               00158900
+       RETURN                                                           00159000
+       END                                                              00159100
+C                                                                       00159200
+       SUBROUTINE RFREE(N,A)                                            00159300
+C      ******************************                                   00159400
+C                                                                       00159500
+C      PONE INA A N VALORI LETTI IN FORMATO LIBERO                      00159600
+C      DA SCHEDE TIPO N$ OD N*                                          00159700
+C                                                                       00159800
+C      B = CARATTERI LETTI                                              00159900
+C      CIF = CIFRE INTERPRETATE                                         00160000
+C      LE INTERPRETA E LE TRESFORMA IN NUMERO QUANDO TROVA E OPPURE B   00160100
+C      SE PARTE DOPO VIRGOLA, EXP O NUMERO DOPO VIRGOLA                 00160200
+C      INTERPRETA I SIMBOLI FIDO : + - E . I R                          00160300
+C                                                                       00160400
+C      SIMBOLI NON NUMERICI SCONOSCIUTI PROVOCANO LA FINE DELLA LETTURA 00160500
+C      LA SCHEDA IN CUI QUESTI APPAIONO NON E' LETTA                    00160600
+C                                                                       00160700
+C      R E G O L E     D I   S C R I T T U R A :                        00160800
+C                                                                       00160900
+C      NON SCRIVERE .0  MA 0.                                           00161000
+C      R ED I NON VANNO PRECEDUTIO DA BIANCO                            00161100
+C                                                                       00161200
+C      QUESTA VERSIONE LEGGE LE SCHEDE SOLO FINO A COLONNA 72           00161300
+C      GALLI 12 - 3 - 84                                                00161400
+C                                                                       00161500
+      DIMENSION A(80),B(80)                                             00161600
+      DATA BIAN,AICAR,R/4H    ,4HI   ,4HR   /                           00161700
+      DIMENSION CAR(9),CIF(80)                                          00161800
+      DATA ASTR,DOLL,PIU,AMENO,E,PUNTO,ZERO                             00161900
+     */4H*   ,4H$   ,4H+   ,4H-   ,4HE   ,4H.   ,4H0   /                00162000
+       DATA CAR /4H1   ,4H2   ,4H3   ,4H4   ,4H5   ,                    00162100
+     *4H6   ,4H7   ,4H8   ,4H9   /                                      00162200
+C                                                                       00162300
+C     NUMERO DI VALORI RIEMPITO                                         00162400
+C                                                                       00162500
+      N=0                                                               00162600
+      N1=0                                                              00162700
+ 1    READ(5,1000) B                                                    00162800
+ 1000 FORMAT(80A1)                                                      00162900
+C                                                                       00163000
+C     VALORI INIZIALI PER :  NEX=ESPONENTE,NCIF=NUM CIFRE INTERPR       00163100
+C     NSIG=SEGNO                                                        00163200
+C                                                                       00163300
+      NEX=0                                                             00163400
+      FLOAT=0                                                           00163500
+      NCIF=0                                                            00163600
+      NSIG=1                                                            00163700
+C                                                                       00163800
+C     RIBALTA I VALORI LETTI (LEGGE ALL'INDIETRO UNA SCHEDA)            00163900
+C                                                                       00164000
+      CALL RIB(A,N1,N)                                                  00164100
+      N1=N                                                              00164200
+C                                                                       00164300
+C     LOOP SU CARATTERI LETTI                                           00164400
+C     I--=CONTATORE COLONNA ANALIZZATA DELLA SCHEDA                     00164500
+C     I=80                                                              00164600
+C     QUESTA VERSIONE LEGGE LE SCHEDE SOLO FINO A COLONNA 72            00164700
+C                                                                       00164800
+      I=72                                                              00164900
+C                                                                       00165000
+C     VARIANTE FATTA IL 12 - 3 - 84                                     00165100
+C                                                                       00165200
+  5   CONTINUE                                                          00165300
+C                                                                       00165400
+C     SI VA ALL'INDIETRO PER COMODITA'. PER DARE EXP ALLE CIFRE         00165500
+C                                                                       00165600
+      IF(B(I).EQ.BIAN) GO TO 100                                        00165700
+C                                                                       00165800
+C     INTERPRETA I CARATTERI (IN CIF I LORO VALORI NUMERICI)            00165900
+C                                                                       00166000
+      DO 20 JI=1,9                                                      00166100
+      IF(B(I).NE.CAR(JI)) GO TO 20                                      00166200
+      NCIF=NCIF+1                                                       00166300
+      CIF(NCIF)=JI                                                      00166400
+      GO TO 10                                                          00166500
+ 20   CONTINUE                                                          00166600
+      IF(B(I).NE.ZERO) GO TO 120                                        00166700
+      NCIF=NCIF+1                                                       00166800
+      CIF(NCIF)=0                                                       00166900
+      GO TO 10                                                          00167000
+ 120  CONTINUE                                                          00167100
+      IF(B(I).EQ.PIU) GO TO 200                                         00167200
+      IF(B(I).EQ.AMENO) GO TO 210                                       00167300
+      IF(B(I).EQ.E) GO TO 220                                           00167400
+      IF(B(I).EQ.PUNTO) GO TO 230                                       00167500
+      IF(B(I).EQ.AICAR) GO TO 240                                       00167600
+C                                                                       00167700
+C     IN QUESTO CASO HA FINITO DI LEGGERE PRIMA SCHEDA                  00167800
+C                                                                       00167900
+      IF(B(I).EQ.ASTR.OR.B(I).EQ.DOLL) GO TO 1                          00168000
+      IF(B(I).EQ.R) GOTO 250                                            00168100
+C                                                                       00168200
+C     CARATTERE IGNOTO. SMETTE DI LEGGERE                               00168300
+C                                                                       00168400
+      WRITE(11,2000)                                                    00168500
+ 2000 FORMAT(' SUB RFREE.  FINE LETTURA:   '' CARATTERE SCONOSCIUTO')   00168600
+C                                                                       00168700
+C     RIBALTA I VALORI LETTI (OGNI SCHEDA E' LETTA ALL'INDIETRO)        00168800
+C                                                                       00168900
+      N=N1                                                              00169000
+      RETURN                                                            00169100
+ 220  CONTINUE                                                          00169200
+C                                                                       00169300
+C     ESPONENTE (QUANDO TROVA E)                                        00169400
+C                                                                       00169500
+      IF(NCIF.EQ.0) GOT O10                                             00169600
+      NEX=0                                                             00169700
+      IF(NCIF.LE.0) GO TO 223                                           00169800
+      DO 30 IK=1,NCIF                                                   00169900
+      NEX=NEX+CIF(IK)*10**(IK-1)                                        00170000
+ 30   CONTINUE                                                          00170100
+ 223  CONTINUE                                                          00170200
+      NEX=NEX*NSIG                                                      00170300
+      NSIG=+1                                                           00170400
+C                                                                       00170500
+C     IL SEGNO ERA IL SEGNO DELL'EXP E LO RIAZZERA                      00170600
+C                                                                       00170700
+      NCIF=0                                                            00170800
+      GO TO 10                                                          00170900
+ 200  CONTINUE                                                          00171000
+C                                                                       00171100
+C     SISTAMEZIONE SEGNO                                                00171200
+C                                                                       00171300
+      NSIG=+1                                                           00171400
+      GO TO 10                                                          00171500
+ 210  CONTINUE                                                          00171600
+      NSIG=-1                                                           00171700
+      GO TO 10                                                          00171800
+ 230  CONTINUE                                                          00171900
+C                                                                       00172000
+C     PARTE DOPO VIRGOLA DEL NUMERO (QUI QUANDO TROVA .                 00172100
+C                                                                       00172200
+      FLOAT=0.                                                          00172300
+      IF(NCIF.EQ.0) GO TO 10                                            00172400
+ 7    CONTINUE                                                          00172500
+      DO 40 IK1=1,NCIF                                                  00172600
+C                                                                       00172700
+C     QUI GLI EXP SONO RIBALTATI (PARTE FLOAT)                          00172800
+C                                                                       00172900
+      IK=NCIF-IK1+1                                                     00173000
+      FLOAT=FLOAT+CIF(IK)/(10**IK1)                                     00173100
+ 40   CONTINUE                                                          00173200
+      NCIF=0                                                            00173300
+      GO TO 10                                                          00173400
+ 100  CONTINUE                                                          00173500
+C                                                                       00173600
+C     QUI PER BIANCO MONTA IL NUMERO                                    00173700
+C                                                                       00173800
+      IF(NCIF.EQ.0.AND.FLOAT.EQ.0) GO TO 10                             00173900
+C                                                                       00174000
+C     IN QUESTO CASO E' SPAZIO CHE NON PRECEDE NUMERO                   00174100
+C                                                                       00174200
+      N=N+1                                                             00174300
+      A(N)=0.                                                           00174400
+C                                                                       00174500
+C     COSTRUISCE I L NUMERO IN BASE ALLE CIFRE                          00174600
+C     PER NCIF=0 FA 1 VOLTA IL CONTO (CON 1 SPERO E                     00174700
+C     CONTIENE SOLO IL PARTE DOPO VIRGOLA(NON IN FORTRAN V              00174800
+C                                                                       00174900
+      IF(NCIF.LE.0) GO TO 101                                           00175000
+      DO 50 IK=1,NCIF                                                   00175100
+      A(N)=A(N)+CIF(IK)*10**(IK-1)                                      00175200
+ 50   CONTINUE                                                          00175300
+ 101  CONTINUE                                                          00175400
+      A(N)=NSIG*(A(N)+FLOAT)*10.**(NEX)                                 00175500
+C     RIPRISTINA I VALORI INIZIALI                                      00175600
+      FLOAT=0.                                                          00175700
+      NCIF=0                                                            00175800
+      NEX=0                                                             00175900
+      NSIG=+1                                                           00176000
+      GO TO 10                                                          00176100
+ 240  CONTINUE                                                          00176200
+C                                                                       00176300
+C     FORMATO FIDO CARATTERE I INTERPOLA FRA I DUE VAL PREC             00176400
+C     SE NON HA GENERATO IL NUMERO LO FA( CASO DEL NUMERO               00176500
+C     ATTACCATO AL CARATTERE I SENZA SPAZIO DAVANTI)                    00176600
+C                                                                       00176700
+      IF(NCIF.LE.0.AND.FLOAT.LE.0) GO TO 245                            00176800
+      N=N+1                                                             00176900
+      A(N)=0.                                                           00177000
+C                                                                       00177100
+C     COSTRUISCE IL NUMERO IN BASE ALLE CIFRE                           00177200
+C     PER NCIF=0 FA 1 VOLTA IL CONTO (CON 1 SPERO E                     00177300
+C     CONTINENE SOLO IL PARTE DOPO VIRGOLA(NON IN FORTRAN V             00177400
+C                                                                       00177500
+      IF(NCIF.LE.0) GO TO 106                                           00177600
+      DO 51 IK=1,NCIF                                                   00177700
+      A(N)=A(N)+CIF(IK)*10**(IK-1)                                      00177800
+ 51   CONTINUE                                                          00177900
+ 106  CONTINUE                                                          00178000
+      A(N)=NSIG*(A(N)+FLOAT)*10.**(NEX)                                 00178100
+C                                                                       00178200
+C     RIPRISTINA I VALORI INIZIALI                                      00178300
+C                                                                       00178400
+      FLOAT=0.                                                          00178500
+      NCIF=0                                                            00178600
+      NEX=0                                                             00178700
+ 245  CONTINUE                                                          00178800
+      NSIG=+1                                                           00178900
+      NINT=0                                                            00179000
+C                                                                       00179100
+C     CERCA IL NUM DI CARATTERI PREC E LI INTERPRETA COME NUMERO        00179200
+C                                                                       00179300
+      KK=-1                                                             00179400
+ 55   CONTINUE                                                          00179500
+      I=I-1                                                             00179600
+C                                                                       00179700
+C     QUANDO TROVA BIANCO SMETTE DI CERCARE CARATTERI PREC              00179800
+C                                                                       00179900
+      IF(I.EQ.0) GO TO 160                                              00180000
+      IF(B(I).EQ.BIAN) GO TO 160                                        00180100
+      DO 60 IK=1,9                                                      00180200
+      IF(CAR(IK).NE.B(I)) GO TO 60                                      00180300
+      KK=KK+1                                                           00180400
+      NINT=NINT+IK*10**KK                                               00180500
+      GO TO 55                                                          00180600
+ 60   CONTINUE                                                          00180700
+      IF(B(I).EQ.ZERO) KK=KK+1                                          00180800
+      GOTO55                                                            00180900
+ 160  CONTINUE                                                          00181000
+      IF(NINT.LE.1) NINT=1                                              00181100
+      AINT1=A(N)                                                        00181200
+C                                                                       00181300
+C     DETERMINA INTERVALLO FRA I PUNTI AIN                              00181400
+C                                                                       00181500
+      AIN=(A(N-1)-AINT1)/(NINT+1)                                       00181600
+      N=N-1                                                             00181700
+      DO 70 IK=1,NINT                                                   00181800
+      N=N+1                                                             00181900
+      A(N)=A(N-1)-AIN                                                   00182000
+ 70   CONTINUE                                                          00182100
+      N=N+1                                                             00182200
+      A(N)=AINT1                                                        00182300
+      GO TO 10                                                          00182400
+ 250  CONTINUE                                                          00182500
+C                                                                       00182600
+C     FORMATO FIDO CODICE R RIPETE IL NUMERO PRECEDENTE N VOLTE         00182700
+C     SE NON HA GIA' GENERATO IL NUMERO LO FA(NUMERO ATTACCATO ALL'R)   00182800
+C     SENZA SPAZIO DAVANTI                                              00182900
+C                                                                       00183000
+      IF(NCIF.LE.0.AND.FLOAT.LE.0) GO TO 255                            00183100
+      N=N+1                                                             00183200
+      A(N)=0.                                                           00183300
+C     COSTRUISCE IL NUMERO IN BASE ALLE CIFRE                           00183400
+C     PER NCIF=0 FA 1 VOLTA IL CONTO (CON 1 SPERO E                     00183500
+C     CONTIENE SOLO IL PARTE DOPO VIRGOLA(NON IN FORTRAN V              00183600
+      IF(NCIF.LE.0) GO TO 107                                           00183700
+      DO 52 IK=1,NCIF                                                   00183800
+      A(N)=A(N)+CIF(IK)*10**(IK-1)                                      00183900
+ 52   CONTINUE                                                          00184000
+ 107  CONTINUE                                                          00184100
+      A(N)=NSIG*(A(N)+FLOAT)*10.**(NEX)                                 00184200
+C                                                                       00184300
+C     RIPRISTINA I VALORI INIZIALI                                      00184400
+C                                                                       00184500
+      FLOAT=0.                                                          00184600
+      NCIF=0                                                            00184700
+      NEX=0                                                             00184800
+      NSIG=+1                                                           00184900
+ 255  CONTINUE                                                          00185000
+      NINT=0                                                            00185100
+      KK=-1                                                             00185200
+C                                                                       00185300
+C     CERCA LE CIFRE PREC E LE INTERPRETA COME NUMERO                   00185400
+C                                                                       00185500
+ 56   I=I-1                                                             00185600
+      IF(I.EQ.0) GO TO 166                                              00185700
+      IF(B(I).EQ.BIAN) GO TO 166                                        00185800
+      DO 66IK=1,9                                                       00185900
+      IF(CAR(IK).NE.B(I)) GO TO 66                                      00186000
+      KK=KK+1                                                           00186100
+      NINT=NINT+IK*10**KK                                               00186200
+      GO TO 56                                                          00186300
+ 66   CONTINUE                                                          00186400
+      IF(B(I).EQ.ZERO) KK=KK+1                                          00186500
+      GO TO 56                                                          00186600
+ 166  CONTINUE                                                          00186700
+      IF(NINT.LE.1) NINT=1                                              00186800
+      AINT=A(N)                                                         00186900
+      N=N-1                                                             00187000
+      DO 76 IK=1,NINT                                                   00187100
+      N=N+1                                                             00187200
+      A(N)=AINT                                                         00187300
+ 76   CONTINUE                                                          00187400
+      GO TO 10                                                          00187500
+C                                                                       00187600
+C     ++++++++++++++++++++++++++++ FINE LOOP                            00187700
+C                                                                       00187800
+ 10   CONTINUE                                                          00187900
+      I=I-1                                                             00188000
+C                                                                       00188100
+C     PER PREVEDERE NUMERO ALL'INIZIO SCHEDA (SENZA BIANCO AVANTI)      00188200
+C                                                                       00188300
+      IF(I.EQ.0) GO TO 100                                              00188400
+      IF(I.LT.0) GO TO 1                                                00188500
+      GO TO 5                                                           00188600
+C                                                                       00188700
+C     AD ALTRA COLONNA I                                                00188800
+C                                                                       00188900
+      END                                                               00189000
+C                                                                       00189100
+      SUBROUTINE RIB(A,N,N1)                                            00189200
+C     **********************                                            00189300
+C     RIBALTA NEL VETTORE A DA N(ESCLUSO) AD N1(COMPRESO)               00189400
+C                                                                       00189500
+      DIMENSION A(N1)                                                   00189600
+      NRIB=N1-N                                                         00189700
+      IF(NRIB.LE.0) RETURN                                              00189800
+      NRIB2=NRIB/2                                                      00189900
+      DO 10 I=1,NRIB2                                                   00190000
+      D=A(N+I)                                                          00190100
+      A(N+I)=A(N+NRIB+1-I)                                              00190200
+      A(N+NRIB+1-I)=D                                                   00190300
+ 10   CONTINUE                                                          00190400
+      RETURN                                                            00190500
+      END                                                               00190600
+C                                                                       00190700
+      SUBROUTINE MIXING(NSTMP,NTPIN,NTPOU,NEI,NISIN,NISOU,IHM,EV,SIGIN, 00190800
+     *MX89,MIST,NCOMP,DENS)                                             00190900
+C     ***************************************************************** 00191000
+C                                                                       00191100
+C     FA MIXING TABLE DI ISOTOPI SU TAPE ANISN BYGROUPS NTPIN           00191200
+C     E LA METTE SU TAPE NTPOU                                          00191300
+C                                                                       00191400
+      DIMENSION MIST(MX89),NCOMP(MX89),DENS(MX89)                       00191500
+C                                                                       00191600
+C     MX89 ENTRATE IN TAVOLA                                            00191700
+C                                                                       00191800
+      DIMENSION SIGIN(IHM,NISIN)                                        00191900
+C                                                                       00192000
+C     NISIN DEVE ESSERE GRANDE QUANTO ISOTOPI INPUT + ISOTOPI MIXING    00192100
+C                                                                       00192200
+      COMMON/PAR/DUM(29),MIXISO                                         00192300
+      REWIND NTPIN                                                      00192400
+      REWIND NTPOU                                                      00192500
+C                                                                       00192600
+C     LETTURA TAVOLA ANISN                                              00192700
+C                                                                       00192800
+      WRITE(11,1001)                                                    00192900
+ 1001 FORMAT(' FORNIRE MIXING TABLE: MIST:10\9b')                         00193000
+      CALL RFREE(N1,DENS)                                               00193100
+      DO 10 I=1,N1                                                      00193200
+  10  MIST(I)=DENS(I)                                                   00193300
+      WRITE(11,1002)                                                    00193400
+ 1002 FORMAT(' FORNIRE MIXING TABLE: NCOMP:11\9b')                        00193500
+      CALL RFREE(N2,DENS)                                               00193600
+      DO 20 I=1,N2                                                      00193700
+ 20   NCOMP(I)=DENS(I)                                                  00193800
+      WRITE(11,1003)                                                    00193900
+ 1003 FORMAT(' FORNIRE MIXING TABLE: DENS:12*')                         00194000
+      CALL RFREE(N3,DENS)                                               00194100
+C                                                                       00194200
+C     CERCA IL PIU PICCOLO FRA N1,N2,N3                                 00194300
+C                                                                       00194400
+      IF(N1.NE.N2.OR.N1.NE.N3)                                          00194500
+     *WRITE(6,1000) N1,N2,N3                                            00194600
+      IF(N1.NE.N2.OR.N1.NE.N3) WRITE(6,1000) N1,N2,N3                   00194700
+ 1000 FORMAT(//5(' *** ATTENZIONE *** ATTENZIONE *** ATTENZIONE ***'/)  00194800
+     */' I VALORI NELLE 10$,11$,12* DEVONO COINCIDERE. SONO :',3I5,     00194900
+     *' USATO IL MINORE')                                               00195000
+      N=N1                                                              00195100
+      IF(N2.LT.N) N=N2                                                  00195200
+      IF(N3.LT.N) N=N3                                                  00195300
+C                                                                       00195400
+C     TROVA IL MAX DI MIST E CONTROLLA DIMENSION SIGIN ( ,NISOU)        00195500
+C                                                                       00195600
+      CALL MAXX(MXX,N,MIST)                                             00195700
+      WRITE(6,1110) NTPOU,MXX                                           00195800
+ 1110 FORMAT('1FACCIO MIXING PONENDO SU TAPE',I6,5X,' ISOTOPI:',I6)     00195900
+      NMXX=NISOU+MIXISO                                                 00196000
+      IF(NMXX.LT.MXX) WRITE(6,1100)MXX,NMXX                             00196100
+      NISOU=MXX                                                         00196200
+ 1100 FORMAT(//5(' *** ATTENZIONE *** ATTENZIONE *** ATTENZIONE ***'/)/ 00196300
+     *' TROPPI',I6,2X,' ISOTOPI.  SPAZIO PER ISOTOPI:(NMIC+MIXISO)',I5) 00196400
+      WRITE(11,2000) (MIST(J),NCOMP(J),DENS(J),J=1,N)                   00196500
+ 2000  FORMAT(//' LETTA MIXING '//' MISTURA COMPONENTE DENSITA'''/      00196600
+     *(I6,I8,10X,1PE12.5))                                              00196700
+       WRITE(6,3000) NTPIN,NTPOU,(MIST(J),NCOMP(J),DENS(J),J=1,N)       00196800
+ 3000  FORMAT(//' MIXING TABLE DA TAPE',I5,4X,' A TAPE',I5,             00196900
+     *//' MISTURA COMPONENTE     DENSITA'''/(1X,I5,I9,6X,1PE12.5))      00197000
+      DO 30 NE=1,NEI                                                    00197100
+      CALL EMP(0.0,IHM,NISOU,1,SIGIN)                                   00197200
+C                                                                       00197300
+C     QUESTA ISTRUZIONE PREC SERVE SE NELLA MIXING NON SI VUOLE         00197400
+C     STARE AD ANNULLARE LE MISTURE PRIMA DI RIEMPIRLE                  00197500
+C                                                                       00197600
+      READ(NTPIN) ((SIGIN(J,JJ),J=1,IHM),JJ=1,NISIN)                    00197700
+      IF(NSTMP.GT.23) WRITE(6,4000) NTPIN,NISIN,IHM,NE,                 00197800
+     *((SIGIN(J,JJ),J=1,IHM),JJ=1,NISIN)                                00197900
+ 4000 FORMAT(//' SIGMA SU UNIT:',I5,' ISOTOPI:',I5,' IHM:',I5,          00198000
+     *' GRUPPO:',I5/(1X,5(1PE12.5)))                                    00198100
+      DO 40 IN=1,N                                                      00198200
+      IF(NCOMP(IN).NE.0) GO TO 410                                      00198300
+C                                                                       00198400
+C     MISTURE PER RHO                                                   00198500
+C                                                                       00198600
+      DO 41 I=1,IHM                                                     00198700
+  41  SIGIN(I,MIST(IN))=SIGIN(I,MIST(IN))*DENS(IN)                      00198800
+      GO TO 400                                                         00198900
+ 410  CONTINUE                                                          00199000
+      IF(NCOMP(IN).NE.MIST(IN)) GO TO 420                               00199100
+C                                                                       00199200
+C     MISTURE PER AUTOVALORI EV                                         00199300
+C                                                                       00199400
+      DO 42 I=1,IHM                                                     00199500
+ 42   SIGIN(I,MIST(IN))=SIGIN(I,MIST(IN))*EV                            00199600
+      GO TO 400                                                         00199700
+ 420  CONTINUE                                                          00199800
+      DO 43I=1,IHM                                                      00199900
+ 43   SIGIN(I,MIST(IN))=SIGIN(I,MIST(IN))                               00200000
+     * + SIGIN(I,NCOMP(IN))*DENS(IN)                                    00200100
+ 400  CONTINUE                                                          00200200
+  40  CONTINUE                                                          00200300
+      WRITE(NTPOU) ((SIGIN(J,JJ),J=1,IHM),JJ=1,MXX)                     00200400
+      IF(NSTMP.GT.21) WRITE(6,4000) NTPOU,MXX,IHM,NE,                   00200500
+     *((SIGIN(J,JJ),J=1,IHM),JJ=1,MXX)                                  00200600
+ 30   CONTINUE                                                          00200700
+      REWIND NTPIN                                                      00200800
+      REWIND NTPOU                                                      00200900
+      WRITE(6,5000) NISIN,MXX                                           00201000
+ 5000 FORMAT(//' NUMERO ISOTOPI INPUT:',I5,4X,' NUMERO ISOTOPI MIXING:' 00201100
+     *,I5)                                                              00201200
+C                                                                       00201300
+C     RICALCOLA NISOU                                                   00201400
+C                                                                       00201500
+      NISOU=MXX                                                         00201600
+      RETURN                                                            00201700
+      END                                                               00201800
+C                                                                       00201900
+      SUBROUTINE CNVRTR(N,A)                                            00202000
+C     **********************                                            00202100
+C     METODO MACCHINOSO DI CONVERTIRE DA REALE AD INTERO                00202200
+C                                                                       00202300
+      DIMENSION A(N)                                                    00202400
+      IF(N.LE.0) RETURN                                                 00202500
+      DO 10 I=1,N                                                       00202600
+      K=A(I)                                                            00202700
+      A(I)=ZZX(K)                                                       00202800
+ 10   CONTINUE                                                          00202900
+      RETURN                                                            00203000
+      END                                                               00203100
+C                                                                       00203200
+      FUNCTION ZZX(R)                                                   00203300
+C     ***************                                                   00203400
+      ZZX=R                                                             00203500
+      RETURN                                                            00203600
+      END                                                               00203700
+C                                                                       00203800
+      SUBROUTINE VOLZON(VOLT,MZON,VOLZ,MMAP,MAP,NX,NY,NZ,VOL)           00203900
+C     ***************************************************************   00204000
+C     CALCOLA I VOLUMI DELLE ZONE ED IL VOLUME TOTALE                   00204100
+C     ***************************************************************   00204200
+      DIMENSION VOL(100),VOLZ(MZON),MAP(MMAP)                           00204300
+      REAL*8 VOLZ,VOLT                                                  00204310
+      K=0                                                               00204400
+      VOLT=0.                                                           00204500
+      CALL EMP(0.0,MZON*2,1,1,VOLZ)                                     00204600
+      DO 10 I=1,MMAP                                                    00204700
+      VOLT=VOLT+VOL(I)                                                  00204800
+      IF(MAP(I).LE.MZON) VOLZ(MAP(I))=VOLZ(MAP(I))+VOL(I)               00204900
+      IF(MAP(I).GT.MZON) K=1                                            00205000
+ 10   CONTINUE                                                          00205100
+      IF(K.EQ.0) RETURN                                                 00205200
+      WRITE(6,1000)                                                     00205300
+      WRITE(11,1000)                                                    00205400
+ 1000 FORMAT(//' ****** ERRORE IN CALCOLO VOLUMI DELLE ZONE !!! *****') 00205500
+      RETURN                                                            00205600
+      END                                                               00205700

diff --git a/teseo/C2RV-Abstract.pdf b/teseo/C2RV-Abstract.pdf
new file mode 100644 (file)
index 0000000..78a5332
Binary files /dev/null and b/teseo/C2RV-Abstract.pdf differ

diff --git a/teseo/README.md b/teseo/README.md
new file mode 100644 (file)
index 0000000..2fb4277
--- /dev/null
+++ b/teseo/README.md
@@ -0,0 +1,51 @@
+Teseo
+-----
+
+Teseo is a program of about twenty thousand statements, written 
+by M.Galli, in FORTRAN-IV, running on an IBM 3090 computer,
+between 1984 and 1987.
+It contains some routines from MC2-II and other nuclear codes
+used at the ENEA research center in the eighties.
+
+It computes data for the MC2-II code, starting from the 
+[ENDF-B IV](https://t2.lanl.gov/nis/data/endf/endfiv.htmldata) 
+evaluated nuclear data files.
+
+This program is the main part of the *C2RV* code sequence, for
+fast neutron multigroup cross section preparation.
+The sequence, consisting of the codes: Teseo, MC2-II,GERES, ANISN and MEDIL,
+was used at the ENEA research center in Bologna. and presented (in the poster session)
+at The *"International Topical Meeting on Advances in Reactor Physics, 
+Mathematics and Computation", in 1987, in Paris.
+The abstract of the poster is in the file C2RV-Abstract.pdf.
+
+The description of the program is in the ENEA report: RT/TIB/88/34; 
+a pdf scan is included in this folder. Also the ENEA report:
+RT/TIB/87/40, by M.Galli and G.Fioni deals with this program.
+
+- file: jcl
+
+The file "jcl" is a procedure to generate a tape containing the code
+and related material. JCL (job control language) was used to
+manage batch program runs on the IBM mainframes.
+
+- file: tso 
+
+The file: "tso" is an interactive procedure to run 
+a sample problem, using the interactive "Time sharing option" (TSO)
+of the IBM mainframes of that period.
+There is here (as a comment) an example of input to the code.
+They where simple textual statements, no real
+interactive or graphic interfaces at that time. 
+
+- file: input 
+
+The file: "input" is a sample of nuclear data from the ENDFB-IV
+library, used to run the sample problem. 
+
+-file: source
+
+The file: "source" is the source code of the Teseo program. 
+
+
+

diff --git a/teseo/Teseo-ENEA-RT_TIB_88_34.pdf b/teseo/Teseo-ENEA-RT_TIB_88_34.pdf
new file mode 100644 (file)
index 0000000..18f5c03
Binary files /dev/null and b/teseo/Teseo-ENEA-RT_TIB_88_34.pdf differ

diff --git a/teseo/codmeta.json b/teseo/codmeta.json
new file mode 100644 (file)
index 0000000..a679475
--- /dev/null
+++ b/teseo/codmeta.json
@@ -0,0 +1,29 @@
+{
+  "@context": "https://doi.org/10.5063/schema/codemeta-2.0",
+  "@type": "SoftwareSourceCode",
+  "name": "Legacy FORTRAN codes",
+  "description": "Teseo, a legacy FORTRAN code for ENDFB-IV nuclear data management, developed at ENEA by Marcello Galli, between 1984 and 1987"
+  "codeRepository": "http://coding.bologna.enea.it/gitrepo/oldfortrancodes.git",
+  "downloadUrl": "http://coding.bologna.enea.it/gitrepo/oldfortrancodes.git",  
+  "programmingLanguage": "FORTRAN",
+  "operatingSystem": "IBM 3090"
+  "license": "Public domain",
+  "dateCreated":"1987-12-01",
+  "developmentStatus": "Unsupported",
+  "creativeWorkStatus": "Legacy software"
+  "keywords": [
+    "nuclear reactors",
+    "cross sections",
+    "fortran",
+    "software",
+    "ENEA","C2RV","Teseo",
+  ],  
+  "author": [
+    {
+      "@type": "Person",
+      "givenName": "Marcello",
+      "familyName": "Galli",
+      "email": "marcello.galli@enea.it",
+    },
+  ]
+}

diff --git a/teseo/input b/teseo/input
new file mode 100644 (file)
index 0000000..3cfa267
--- /dev/null
+++ b/teseo/input
@@ -0,0 +1,10442 @@
+ ENDF/B-IV C12-U235-B10                                            404 000000000
+ 5.01000+ 3 9.92690+ 0          0          0          0         951273 145100001
+ 0.00000+ 0 0.00000+ 0          0          0        211          01273 145100002
+  5-B - 10 LASL       EVAL-NOV73 G.M.HALE, R.A.NISLEY, P.G.YOUNG  1273 145100003
+                      DIST-MAY74                                  1273 145100004
+                                                                  1273 145100005
+ B-10 FREE ATOM EVAL., NOV. 1973, G.M.HALE, R.A.NISLEY, P.G.YOUNG 1273 145100006
+                       LOS ALAMOS SCIENTIFIC LABORATORY           1273 145100007
+                                                                  1273 145100008
+ MF=2 --------- RESONANCE PARAMETERS ---------------------------- 1273 145100009
+                                                                  1273 145100010
+   MT=151  EFFECTIVE SCATTERING RADIUS = 0.40937E-12 CM           1273 145100011
+                                                                  1273 145100012
+                                                                  1273 145100013
+ MF=3 --------- SMOOTH CROSS SECTIONS --------------------------- 1273 145100014
+                                                                  1273 145100015
+      THE 2200 M/S CROSS SECTIONS ARE AS FOLLOWS,                 1273 145100016
+          MT=1    SIGMA = 3838.6   BARNS                          1273 145100017
+          MT=2    SIGMA = 2.1058   BARNS                          1273 145100018
+          MT=103  SIGMA = 0.000566 BARNS                          1273 145100019
+          MT=107  SIGMA = 3836.5   BARNS                          1273 145100020
+          MT=113  SIGMA = 0.000566 BARNS                          1273 145100021
+          MT=700  SIGMA = 0.000566 BARNS                          1273 145100022
+          MT=780  SIGMA = 240.51   BARNS                          1273 145100023
+          MT=781  SIGMA = 3596.0   BARNS                          1273 145100024
+                                                                  1273 145100025
+   MT=1        TOTAL CROSS SECTION                                1273 145100026
+      0 TO 1 MEV, CALCULATED FROM R-MATRIX PARAMETERS OBTAINED BY 1273 145100027
+          FITTING SIMULTANEOUSLY DATA FROM THE REACTIONS B10(N,N),1273 145100028
+          B10(N,ALPHA0), B10(N,ALPHA1), LI7(ALPHA,ALPHA0), AND    1273 145100029
+          LI7(ALPHA,ALPHA1). TOTAL NEUTRON CROSS SECTION MEASURE- 1273 145100030
+          MENTS INCLUDED IN THE FIT ARE THOSE OF DI67. THE        1273 145100031
+          LI7+ALPHA DATA USED IN THE FIT ARE FROM CU67 AND BI57.  1273 145100032
+      1 TO 20 MEV, SMOOTH CURVE THROUGH MEASUREMENTS OF DI67,BO52,1273 145100033
+          TS62,FO61,CO52, AND CO54, CONSTRAINED TO MATCH          1273 145100034
+          R-MATRIX FIT AT 1 MEV.                                  1273 145100035
+                                                                  1273 145100036
+   MT=2     ELASTIC SCATTERING CROSS SECTION                      1273 145100037
+      0 TO 1 MEV, CALCULATED FROM THE R-MATRIX PARAMETERS         1273 145100038
+          DESCRIBED FOR MT=1. EXPERIMENTAL ELASTIC SCATTERING DATA1273 145100039
+          INCLUDED IN THE FIT ARE THOSE OF AS70 AND LA71.         1273 145100040
+      1 TO 7 MEV, SMOOTH CURVE THROUGH MEASUREMENTS OF LA71, PO70,1273 145100041
+          AND HO69, CONSTRAINED TO BE CONSISTENT WITH TOTAL AND   1273 145100042
+          REACTION CROSS SECTION MEASUREMENTS.                    1273 145100043
+      7 TO 14 MEV, SMOOTH CURVE THROUGH MEASUREMENTS OF HO69,CO69,1273 145100044
+          TE62,VA70, AND VA65.                                    1273 145100045
+      14 TO 20 MEV, OPTICAL MODEL EXTRAPOLATION FROM 14 MEV DATA  1273 145100046
+                                                                  1273 145100047
+   MT=4     INELASTIC CROSS SECTION                               1273 145100048
+      THRES.TO 20 MEV, SUM OF MT=51-85                            1273 145100049
+                                                                  1273 145100050
+   MT=51-61 INELASTIC CROSS SECTIONS TO DISCRETE STATES           1273 145100051
+      MT=51 Q=-0.717 MEV   MT=55 Q=-4.774 MEV   MT=59 Q=-5.923 MEV1273 145100052
+         52   -1.740          56   -5.114          60   -6.029    1273 145100053
+         53   -2.154          57   -5.166          61   -6.133    1273 145100054
+         54   -3.585          58   -5.183                         1273 145100055
+      THRES.TO 20 MEV, BASED ON (N,NPRIME) MEASUREMENTS OF PO70,  1273 145100056
+          CO69,HO69, AND VA70, AND THE (N,XGAMMA) MEASUREMENTS OF 1273 145100057
+          DA56,DA60, AND NE70 USING A GAMMA-RAY DECAY SCHEME      1273 145100058
+          DEDUCED FROM LA66,AL66,SE66A, AND SE66B. HAUSER-FESHBACH1273 145100059
+          CALCULATIONS WERE USED TO ESTIMATE SHAPES AND RELATIVE  1273 145100060
+          MAGNITUDES WHERE EXPERIMENTAL DATA WERE LACKING         1273 145100061
+                                                                  1273 145100062
+   MT=62-85 INELASTIC CROSS SECTIONS TO GROUPS OF LEVELS IN       1273 145100063
+            0.5-MEV WIDE BANDS CENTERED ABOUT THE Q-VALUES GIVEN  1273 145100064
+            BELOW (USED IN LIEU OF MT=91 AND FILE 5)              1273 145100065
+      MT=62 Q=-6.5 MEV     MT=70 Q=-10.5 MEV    MT=78 Q=-14.5 MEV 1273 145100066
+         63   -7.0            71   -11.0           79    15.0     1273 145100067
+         64   -7.5            72   -11.5           80    15.5     1273 145100068
+         65   -8.0            73   -12.0           81    16.0     1273 145100069
+         66   -8.5            74   -12.5           82    16.5     1273 145100070
+         67   -9.0            75   -13.0           83    17.0     1273 145100071
+         68   -9.5            76   -13.5           84    17.5     1273 145100072
+         69  -10.0            77   -14.0           85    18.0     1273 145100073
+      THRES. TO 20 MEV, INTEGRATED CROSS SECTION OBTAINED BY SUB- 1273 145100074
+          TRACTING THE SUM OF MT=2,51-61,103,104,107,AND 113 FROM 1273 145100075
+          MT=1.  CROSS SECTION DISTRIBUTED AMONG THE BANDS WITH   1273 145100076
+          AN EVAPORATION MODEL USING A NUCLEAR TEMPERATURE GIVEN  1273 145100077
+          BY T=0.9728*SQRT(EN) IN MEV,TAKEN FROM IR67.            1273 145100078
+                                                                  1273 145100079
+   MT=103   (N,P) CROSS SECTION                                   1273 145100080
+      THRES.TO 20 MEV, SUM OF MT=700-703                          1273 145100081
+                                                                  1273 145100082
+   MT=104   (N,D) CROSS SECTION                                   1273 145100083
+      THRES. TO 20 MEV, BASED ON BE9(D,N)B11 MEASUREMENTS OF SI65 1273 145100084
+          AND BA60, AND THE (N,D) MEASUREMENT OF VA65.            1273 145100085
+                                                                  1273 145100086
+   MT=107   (N,ALPHA) CROSS SECTION                               1273 145100087
+      0 TO 20 MEV, SUM OF MT=720,721.                             1273 145100088
+                                                                  1273 145100089
+   MT=113   (N,T2ALPHA) CROSS SECTION                             1273 145100090
+      0 TO 2.3 MEV, BASED ON A SINGLE-LEVEL FIT TO THE RESONANCE  1273 145100091
+          MEASURED AT 2 MEV BY DA61, ASSUMING L=0 INCOMING NEU-   1273 145100092
+          TRONS AND L=2 OUTGOING TRITONS.                         1273 145100093
+      2.3 TO 20 MEV, SMOOTH CURVE THROUGH MEASUREMENTS OF FR56    1273 145100094
+          AND WY58, FOLLOWING GENERAL SHAPE OF DA61 MEASUREMENT   1273 145100095
+          FROM 4 TO 9 MEV.                                        1273 145100096
+                                                                  1273 145100097
+   MT=700-703   (N,P) CROSS SECTION TO DISCRETE LEVELS            1273 145100098
+      0 TO 20 MEV,  CRUDELY ESTIMATED FROM THE CALCULATIONS       1273 145100099
+          OF PO70 AND THE (N,XGAMMA) MEASUREMENTS OF NE70. CROSS  1273 145100100
+          SECTION FOR MT=700 ASSUMED IDENTICAL TO MT=113 BELOW    1273 145100101
+          1 MEV.  GAMMA-RAY DECAY SCHEME FOR BE-10 FROM LA66.     1273 145100102
+                                                                  1273 145100103
+   MT=780     (N,ALPHA0) CROSS SECTION                            1273 145100104
+      0 TO 1 MEV, CALCULATED FROM THE R-MATRIX PARAMETERS         1273 145100105
+          DESCRIBED FOR MT=1. EXPERIMENTAL (N,ALPHA0) DATA INPUT  1273 145100106
+          TO THE FIT WERE THOSE OF MA68 AND DA61. IN ADDITION, THE1273 145100107
+          ANGULAR DISTRIBUTIONS OF VA72 FOR THE INVERSE REACTION  1273 145100108
+          WERE INCLUDED IN THE ANALYSIS.                          1273 145100109
+      1 TO 20 MEV, BASED ON DA61 MEASUREMENTS, WITH SMOOTH EXTRA- 1273 145100110
+          POLATION FROM 8 TO 20 MEV. DA61 MEASUREMENT ABOVE       1273 145100111
+          APPROXIMATELY 2 MEV WAS RENORMALIZED BY FACTOR OF 1.4.  1273 145100112
+                                                                  1273 145100113
+   MT=781     (N,ALPHA1) CROSS SECTION                            1273 145100114
+      0 TO 1 MEV, CALCULATED FROM THE R-MATRIX PARAMETERS         1273 145100115
+          DESCRIBED FOR MT=1. EXPERIMENTAL (N,ALPHA1) DATA IN-    1273 145100116
+          CLUDED IN THE FIT ARE THOSE OF FR72.                    1273 145100117
+      1 TO 20 MEV, SMOOTH CURVE THROUGH MEASUREMENTS OF DA61 AND  1273 145100118
+          NE70, WITH SMOOTH EXTRAPOLATION FROM 15 TO 20 MEV. THE  1273 145100119
+          DA61 DATA ABOVE APPROXIMATELY 2 MEV WERE RENORMALIZED   1273 145100120
+          BY A FACTOR OF 1.4.                                     1273 145100121
+                                                                  1273 145100122
+                                                                  1273 145100123
+ MF=4---------- NEUTRON ANGULAR DISTRIBUTIONS ------------------- 1273 145100124
+                                                                  1273 145100125
+   MT=2   ELASTIC ANGULAR DISTRIBUTIONS                           1273 145100126
+      0 TO 1 MEV, CALCULATED FROM THE R-MATRIX PARAMETERS         1273 145100127
+          DESCRIBED FOR MF=1,MT=1. EXPERIMENTAL ANGULAR DISTRI-   1273 145100128
+          BUTIONS INPUT TO THE FIT FOR BOTH THE ELASTIC SCATTER-  1273 145100129
+          ING CROSS SECTION AND POLARIZATION WERE OBTAINED FROM   1273 145100130
+          THE MEASUREMENTS OF LA71. ASSIGNMENTS FOR RESONANCES    1273 145100131
+          ABOVE THE NEUTRON THRESHOLD ARE BASED ON LA71.          1273 145100132
+      1 TO 14 MEV, SMOOTHED REPRESENTATION OF LEGENDRE COEFFI-    1273 145100133
+          CIENTS DERIVED FROM THE MEASUREMENTS OF LA71, HA73,     1273 145100134
+          PO70, HO69, CO69, VA69, AND VA65, CONSTRAINED TO MATCH  1273 145100135
+          THE R-MATRIX CALCULATIONS AT EN=1 MEV.                  1273 145100136
+      14 TO 20 MEV, OPTICAL MODEL EXTRAPOLATION OF 14-MEV DATA    1273 145100137
+                                                                  1273 145100138
+   MT=51-85  INELASTIC ANGULAR DISTRIBUTIONS                      1273 145100139
+      THRES. TO 20 MEV, ASSUMED ISOTROPIC IN CENTER OF MASS       1273 145100140
+                                                                  1273 145100141
+                                                                  1273 145100142
+ MF=12 -------- GAMMA RAY MULTIPLICITIES ------------------------ 1273 145100143
+                                                                  1273 145100144
+   MT=781  0.4776-MEV PHOTON FROM THE (N,ALPHA1) REACTION         1273 145100145
+      0 TO 20 MEV, MULTIPLICITY OF 1.0 AT ALL ENERGIES            1273 145100146
+                                                                  1273 145100147
+                                                                  1273 145100148
+ MF=13 -------- GAMMA-RAY PRODUCTION CROSS SECTIONS ------------- 1273 145100149
+                                                                  1273 145100150
+   MT=4   (N,NGAMMA) CROSS SECTION                                1273 145100151
+      THRES. TO 20 MEV, OBTAINED FROM MT=51-61 USING B-10 DECAY   1273 145100152
+          SCHEME DEDUCED FROM LA66,AL66,SE66A, AND SE66B.         1273 145100153
+                                                                  1273 145100154
+   MT=103  (N,PGAMMA) CROSS SECTIONS                              1273 145100155
+      THRES. TO 20 MEV, OBTAINED FROM MT=701-703 USING BE-10      1273 145100156
+          DECAY SCHEME DEDUCED FROM LA66.                         1273 145100157
+                                                                  1273 145100158
+                                                                  1273 145100159
+ MF=14 -------- GAMMA RAY ANGULAR DISTRIBUTIONS ----------------- 1273 145100160
+                                                                  1273 145100161
+   MT=4   (N,NGAMMA) ANGULAR DISTRIBUTIONS                        1273 145100162
+      THRES. TO 20 MEV, ASSUMED ISOTROPIC                         1273 145100163
+                                                                  1273 145100164
+   MT=103 (N,PGAMMA) ANGULAR DISTRIBUTIONS                        1273 145100165
+      THRES. TO 20 MEV, ASSUMED ISOTROPIC                         1273 145100166
+                                                                  1273 145100167
+   MT=781 (N,ALPHA1/GAMMA) ANGULAR DISTRIBUTION                   1273 145100168
+      0 TO 20 MEV, ASSUMED ISOTROPIC                              1273 145100169
+                                                                  1273 145100170
+                                                                  1273 145100171
+ ----------------------- REFERENCES ----------------------------- 1273 145100172
+                                                                  1273 145100173
+ AL66   D.E. ALBURGER ET AL.,PHYS.REV. 143,692 (1966)             1273 145100174
+ AS70   A. ASAMI AND M.C. MOXON, J.NUCL.ENERGY 24,85 (1970)       1273 145100175
+ BA60   R.BARDES AND G.E. OWEN, PHYS.REV.120,1369 (1960)          1273 145100176
+ BE56   R.L. BECKER AND H.H. BARSCHALL, PHYS.REV.102,1384 (1956)  1273 145100177
+ BI57   H.BICHSEL AND T.W.BONNER,PHYS.REV.108,1025 (1957)         1273 145100178
+ BO51   C.K.BOCKELMAN ET AL., PHYS.REV. 84,69 (1951)              1273 145100179
+ BO69   D.BOGART AND L.L.NICHOLS, NUCL.PHYS.A125,463 (1969)       1273 145100180
+ CO52   J.H.COON ET AL., PHYS.REV. 88,562 (1952)                  1273 145100181
+ CO54   C.F.COOK AND T.W. BONNER,PHYS.REV. 94,651 (1954)          1273 145100182
+ CO67   S.A. COX AND F.R. PONTET, J.NUCL.ENERGY 21,271 (1967)     1273 145100183
+ CO69   J.A. COOKSON AND J.G.LOCKE,NUCL.PHYS.A146,417(1970)       1273 145100184
+ CO73   M.S. COATES ET AL., PRIV. COMM. TO L.STEWART (1973)       1273 145100185
+ CU65   R.Y.CUSSON, THESIS, CALIF. INSTIT. TECH. (1965)           1273 145100186
+ DA56   R.B.DAY,PHYS.REV.102,767 (1956)                           1273 145100187
+ DA60   R.B. DAY AND M.WALT,PHYS.REV.117,1330 (1960)              1273 145100188
+ DA61   E.A. DAVIS ET AL., NUCL.PHYS.27,448 (1961)                1273 145100189
+ DI67   K.M. DIMENT, AERE-R-5224 (1967)                           1273 145100190
+ FO61   D.M. FOSSAN ET AL., PHYS.REV. 123,209 (1961)              1273 145100191
+ FR56   G.M. FRYE AND J.H. GAMMEL,PHYS.REV. 103,328 (1956)        1273 145100192
+ FR72   S.J. FRIESENHAHN ET AL., GULF-RT-A12210 (1972)            1273 145100193
+ HA73   S.L.HAUSLADEN, THESIS, OHIO UNIV. COO-1717-5 (1973)       1273 145100194
+ HO69   J.C. HOPKINS, PRIV. COMM. LASL (1969)                     1273 145100195
+ IR67   D.C.IRVING, ORNL-TM-1872 (1967)                           1273 145100196
+ LA66   T.LAURITSEN AND F.AJZENBERG-SELOVE,NUCL.PHYS.78,1(1966)   1273 145100197
+ LA71   R.O. LANE ET AL., PHYS.REV.C4,380 (1971)                  1273 145100198
+ MA68   R.L.MACKLIN AND J.H.GIBBONS,PHYS.REV.165,1147 (1968)      1273 145100199
+ MO66   F.P.MOORING ET AL.,NUCL.PHYS.82,16 (1966)                 1273 145100200
+ NE54   N.G.NERESON,LA-1655 (1954)                                1273 145100201
+ NE70   D.O.NELLIS ET AL., PHYS.REV. C1,847 (1970)                1273 145100202
+ PO70   D.PORTER ET AL., AWRE O 45/70 (1970)                      1273 145100203
+ SE66A  R.E. SEGEL AND R.H. SIEMSSEN,PHYS.LETT.20,295 (1966)      1273 145100204
+ SE66B  R.E.SEGEL ET AL., PHYS.REV. 145,736(1966)                 1273 145100205
+ SI65   R.H.SIEMSSEN ET AL., NUCL.PHYS.69,209 (1965)              1273 145100206
+ TE62   K.TESCH, NUCL.PHYS.37,412 (1962)                          1273 145100207
+ TS63   K.TSUKADA AND O.TANAKA,J.PHYS.SOC.JAPAN 18,610 (1963)     1273 145100208
+ VA65   V.VALKOVIC ET AL., PHYS.REV. 139,331 (1965)               1273 145100209
+ VA70   B.VAUCHER ET AL.,HELV.PHYS.ACTA 43,237 (1970)             1273 145100210
+ VA72   L.VAN DER ZWAN AND K.W.GEIGER, NUCL.PHYS. A180,615 (1972) 1273 145100211
+ WI55   H.B. WILLARD ET AL., PHYS.REV. 98,669(1955)               1273 145100212
+ WY58   M.E. WYMAN ET AL., PHYS.REV.112,1264 (1958)               1273 145100213
+                                1        451        308           1273 145100214
+                                2        151          4           1273 145100215
+                                3          1        138           1273 145100216
+                                3          2        133           1273 145100217
+                                3          4         65           1273 145100218
+                                3         51         65           1273 145100219
+                                3         52         59           1273 145100220
+                                3         53         56           1273 145100221
+                                3         54         51           1273 145100222
+                                3         55         48           1273 145100223
+                                3         56         47           1273 145100224
+                                3         57         46           1273 145100225
+                                3         58         46           1273 145100226
+                                3         59         43           1273 145100227
+                                3         60         43           1273 145100228
+                                3         61         42           1273 145100229
+                                3         62         40           1273 145100230
+                                3         63         39           1273 145100231
+                                3         64         37           1273 145100232
+                                3         65         36           1273 145100233
+                                3         66         34           1273 145100234
+                                3         67         32           1273 145100235
+                                3         68         31           1273 145100236
+                                3         69         29           1273 145100237
+                                3         70         28           1273 145100238
+                                3         71         26           1273 145100239
+                                3         72         25           1273 145100240
+                                3         73         23           1273 145100241
+                                3         74         21           1273 145100242
+                                3         75         20           1273 145100243
+                                3         76         18           1273 145100244
+                                3         77         17           1273 145100245
+                                3         78         16           1273 145100246
+                                3         79         14           1273 145100247
+                                3         80         13           1273 145100248
+                                3         81         11           1273 145100249
+                                3         82         10           1273 145100250
+                                3         83          8           1273 145100251
+                                3         84          6           1273 145100252
+                                3         85          4           1273 145100253
+                                3        103         34           1273 145100254
+                                3        104         20           1273 145100255
+                                3        107         68           1273 145100256
+                                3        113         35           1273 145100257
+                                3        251         28           1273 145100258
+                                3        252         28           1273 145100259
+                                3        253         28           1273 145100260
+                                3        700         34           1273 145100261
+                                3        701         25           1273 145100262
+                                3        702         19           1273 145100263
+                                3        703         18           1273 145100264
+                                3        780         68           1273 145100265
+                                3        781         68           1273 145100266
+                                4          2        231           1273 145100267
+                                4         51          8           1273 145100268
+                                4         52          8           1273 145100269
+                                4         53          8           1273 145100270
+                                4         54          8           1273 145100271
+                                4         55          8           1273 145100272
+                                4         56          8           1273 145100273
+                                4         57          8           1273 145100274
+                                4         58          8           1273 145100275
+                                4         59          8           1273 145100276
+                                4         60          8           1273 145100277
+                                4         61          8           1273 145100278
+                                4         62          8           1273 145100279
+                                4         63          8           1273 145100280
+                                4         64          8           1273 145100281
+                                4         65          8           1273 145100282
+                                4         66          8           1273 145100283
+                                4         67          8           1273 145100284
+                                4         68          8           1273 145100285
+                                4         69          8           1273 145100286
+                                4         70          8           1273 145100287
+                                4         71          8           1273 145100288
+                                4         72          8           1273 145100289
+                                4         73          8           1273 145100290
+                                4         74          8           1273 145100291
+                                4         75          8           1273 145100292
+                                4         76          8           1273 145100293
+                                4         77          8           1273 145100294
+                                4         78          8           1273 145100295
+                                4         79          8           1273 145100296
+                                4         80          8           1273 145100297
+                                4         81          8           1273 145100298
+                                4         82          8           1273 145100299
+                                4         83          8           1273 145100300
+                                4         84          8           1273 145100301
+                                4         85          8           1273 145100302
+                               12        781          4           1273 145100303
+                               13          4        368           1273 145100304
+                               13        103         88           1273 145100305
+                               14          4          1           1273 145100306
+                               14        103          1           1273 145100307
+                               14        781          1           1273 145100308
+                                                                  1273 100000309
+                                                                  1273 000000310
+ 5.01000+ 3 9.92690+ 0          0          0          1          01273 215100311
+ 5.01000+ 3 1.83400- 1          0          0          1          01273 215100312
+ 1.00000- 5 1.00000+ 4          0          0          0          01273 215100313
+ 3.00000+ 0 4.09370- 1          0          0          0          01273 215100314
+                                                                  1273 200000315
+                                                                  1273 000000316
+ 5.01000+ 3 9.92690+ 0          0         99          0          01273 300100317
+ 0.00000+ 0 0.00000+ 0          0          0          2        4041273 300100318
+         19          5        404          2                      1273 300100319
+ 1.00000- 5 1.93000+ 5 2.53000- 2 3.83860+ 3 1.00000- 1 1.93150+ 31273 300100320
+ 1.00000+ 0 6.12000+ 2 1.00000+ 1 1.94700+ 2 1.00000+ 2 6.27430+ 11273 300100321
+ 1.00000+ 3 2.10490+ 1 5.00000+ 3 1.04610+ 1 1.00000+ 4 8.00860+ 01273 300100322
+ 2.00000+ 4 6.34890+ 0 3.00000+ 4 5.67210+ 0 4.00000+ 4 5.30860+ 01273 300100323
+ 5.00000+ 4 5.09060+ 0 5.10000+ 4 5.07390+ 0 6.00000+ 4 4.95350+ 01273 300100324
+ 7.00000+ 4 4.86640+ 0 8.00000+ 4 4.81220+ 0 9.00000+ 4 4.78050+ 01273 300100325
+ 1.00000+ 5 4.76470+ 0 1.10000+ 5 4.76020+ 0 1.20000+ 5 4.76340+ 01273 300100326
+ 1.30000+ 5 4.77210+ 0 1.40000+ 5 4.78420+ 0 1.50000+ 5 4.79830+ 01273 300100327
+ 1.60000+ 5 4.81310+ 0 1.70000+ 5 4.82790+ 0 1.80000+ 5 4.84170+ 01273 300100328
+ 1.90000+ 5 4.85410+ 0 2.00000+ 5 4.86470+ 0 2.05000+ 5 4.86910+ 01273 300100329
+ 2.10000+ 5 4.87300+ 0 2.15000+ 5 4.87620+ 0 2.20000+ 5 4.87880+ 01273 300100330
+ 2.25000+ 5 4.88080+ 0 2.30000+ 5 4.88210+ 0 2.35000+ 5 4.88270+ 01273 300100331
+ 2.40000+ 5 4.88260+ 0 2.45000+ 5 4.88180+ 0 2.50000+ 5 4.88040+ 01273 300100332
+ 2.60000+ 5 4.87530+ 0 2.70000+ 5 4.86760+ 0 2.80000+ 5 4.85720+ 01273 300100333
+ 2.90000+ 5 4.84440+ 0 3.00000+ 5 4.82930+ 0 3.10000+ 5 4.81230+ 01273 300100334
+ 3.20000+ 5 4.79370+ 0 3.30000+ 5 4.77370+ 0 3.40000+ 5 4.75270+ 01273 300100335
+ 3.50000+ 5 4.73100+ 0 3.60000+ 5 4.70890+ 0 3.70000+ 5 4.68660+ 01273 300100336
+ 3.80000+ 5 4.66420+ 0 3.90000+ 5 4.64180+ 0 4.00000+ 5 4.61920+ 01273 300100337
+ 4.10000+ 5 4.59640+ 0 4.20000+ 5 4.57310+ 0 4.30000+ 5 4.54880+ 01273 300100338
+ 4.40000+ 5 4.52330+ 0 4.50000+ 5 4.49590+ 0 4.60000+ 5 4.46640+ 01273 300100339
+ 4.65000+ 5 4.45080+ 0 4.70000+ 5 4.43440+ 0 4.75000+ 5 4.41740+ 01273 300100340
+ 4.80000+ 5 4.39960+ 0 4.85000+ 5 4.38120+ 0 4.90000+ 5 4.36210+ 01273 300100341
+ 4.95000+ 5 4.34220+ 0 5.00000+ 5 4.32170+ 0 5.05000+ 5 4.30060+ 01273 300100342
+ 5.10000+ 5 4.27890+ 0 5.15000+ 5 4.25660+ 0 5.20000+ 5 4.23390+ 01273 300100343
+ 5.30000+ 5 4.18710+ 0 5.40000+ 5 4.13900+ 0 5.60000+ 5 4.04050+ 01273 300100344
+ 5.80000+ 5 3.94180+ 0 6.00000+ 5 3.84510+ 0 6.20000+ 5 3.75200+ 01273 300100345
+ 6.40000+ 5 3.66330+ 0 6.60000+ 5 3.57950+ 0 6.80000+ 5 3.50040+ 01273 300100346
+ 7.00000+ 5 3.42600+ 0 7.20000+ 5 3.35590+ 0 7.40000+ 5 3.29010+ 01273 300100347
+ 7.60000+ 5 3.22800+ 0 7.80000+ 5 3.16960+ 0 7.89000+ 5 3.14440+ 01273 300100348
+ 8.00000+ 5 3.11450+ 0 8.20000+ 5 3.06250+ 0 8.40000+ 5 3.01330+ 01273 300100349
+ 8.60000+ 5 2.96690+ 0 8.80000+ 5 2.92290+ 0 9.00000+ 5 2.88140+ 01273 300100350
+ 9.20000+ 5 2.84210+ 0 9.40000+ 5 2.80490+ 0 9.60000+ 5 2.76990+ 01273 300100351
+ 9.80000+ 5 2.73690+ 0 1.00000+ 6 2.70610+ 0 1.05000+ 6 2.61000+ 01273 300100352
+ 1.10000+ 6 2.52000+ 0 1.15000+ 6 2.43700+ 0 1.20000+ 6 2.36000+ 01273 300100353
+ 1.25000+ 6 2.29000+ 0 1.30000+ 6 2.22000+ 0 1.35000+ 6 2.15300+ 01273 300100354
+ 1.40000+ 6 2.10000+ 0 1.45000+ 6 2.04800+ 0 1.50000+ 6 2.00000+ 01273 300100355
+ 1.55000+ 6 1.96000+ 0 1.60000+ 6 1.93800+ 0 1.65000+ 6 1.94800+ 01273 300100356
+ 1.70000+ 6 1.98000+ 0 1.74000+ 6 2.03490+ 0 1.75000+ 6 2.05200+ 01273 300100357
+ 1.78000+ 6 2.11020+ 0 1.80000+ 6 2.15200+ 0 1.82000+ 6 2.19680+ 01273 300100358
+ 1.85000+ 6 2.25400+ 0 1.86000+ 6 2.26720+ 0 1.87500+ 6 2.27900+ 01273 300100359
+ 1.90000+ 6 2.26800+ 0 1.91500+ 6 2.25000+ 0 1.94000+ 6 2.21200+ 01273 300100360
+ 1.95000+ 6 2.19400+ 0 1.96000+ 6 2.17770+ 0 1.98000+ 6 2.14430+ 01273 300100361
+ 2.00000+ 6 2.11000+ 0 2.02000+ 6 2.07430+ 0 2.05000+ 6 2.02400+ 01273 300100362
+ 2.06000+ 6 2.00960+ 0 2.10000+ 6 1.96100+ 0 2.14000+ 6 1.92560+ 01273 300100363
+ 2.15000+ 6 1.91900+ 0 2.18000+ 6 1.90570+ 0 2.20000+ 6 1.90000+ 01273 300100364
+ 2.22000+ 6 1.89430+ 0 2.25000+ 6 1.89000+ 0 2.26000+ 6 1.89080+ 01273 300100365
+ 2.30000+ 6 1.90000+ 0 2.35000+ 6 1.92000+ 0 2.37100+ 6 1.93800+ 01273 300100366
+ 2.40000+ 6 1.97000+ 0 2.45000+ 6 2.04000+ 0 2.50000+ 6 2.11990+ 01273 300100367
+ 2.55000+ 6 2.20000+ 0 2.60000+ 6 2.27000+ 0 2.62500+ 6 2.31310+ 01273 300100368
+ 2.65000+ 6 2.35000+ 0 2.70000+ 6 2.37000+ 0 2.75000+ 6 2.39000+ 01273 300100369
+ 2.80000+ 6 2.38000+ 0 2.85000+ 6 2.33000+ 0 2.90000+ 6 2.26000+ 01273 300100370
+ 2.95000+ 6 2.20000+ 0 3.00000+ 6 2.12000+ 0 3.05000+ 6 2.03840+ 01273 300100371
+ 3.10000+ 6 1.96540+ 0 3.15000+ 6 1.90000+ 0 3.20000+ 6 1.85000+ 01273 300100372
+ 3.25000+ 6 1.80000+ 0 3.30000+ 6 1.77000+ 0 3.35000+ 6 1.74000+ 01273 300100373
+ 3.40000+ 6 1.71000+ 0 3.45000+ 6 1.68230+ 0 3.45500+ 6 1.67980+ 01273 300100374
+ 3.50000+ 6 1.66000+ 0 3.55000+ 6 1.64670+ 0 3.60000+ 6 1.64000+ 01273 300100375
+ 3.65000+ 6 1.63860+ 0 3.70000+ 6 1.64300+ 0 3.75000+ 6 1.65430+ 01273 300100376
+ 3.80000+ 6 1.67000+ 0 3.85000+ 6 1.68860+ 0 3.90000+ 6 1.70900+ 01273 300100377
+ 3.94600+ 6 1.72790+ 0 3.95000+ 6 1.72960+ 0 4.00000+ 6 1.75000+ 01273 300100378
+ 4.05000+ 6 1.76910+ 0 4.10000+ 6 1.78800+ 0 4.15000+ 6 1.80920+ 01273 300100379
+ 4.20000+ 6 1.82800+ 0 4.25000+ 6 1.84000+ 0 4.30000+ 6 1.84600+ 01273 300100380
+ 4.35000+ 6 1.84200+ 0 4.40000+ 6 1.83800+ 0 4.45000+ 6 1.81700+ 01273 300100381
+ 4.50000+ 6 1.79000+ 0 4.55000+ 6 1.76900+ 0 4.60000+ 6 1.74800+ 01273 300100382
+ 4.65000+ 6 1.72390+ 0 4.70000+ 6 1.70000+ 0 4.75000+ 6 1.67950+ 01273 300100383
+ 4.80000+ 6 1.66000+ 0 4.85000+ 6 1.63910+ 0 4.90000+ 6 1.61870+ 01273 300100384
+ 4.90900+ 6 1.61520+ 0 4.95000+ 6 1.59910+ 0 5.00000+ 6 1.58000+ 01273 300100385
+ 5.05000+ 6 1.56320+ 0 5.10000+ 6 1.54760+ 0 5.15000+ 6 1.53320+ 01273 300100386
+ 5.20000+ 6 1.52000+ 0 5.25000+ 6 1.50800+ 0 5.25500+ 6 1.50690+ 01273 300100387
+ 5.30000+ 6 1.49700+ 0 5.35000+ 6 1.48700+ 0 5.40000+ 6 1.47800+ 01273 300100388
+ 5.45000+ 6 1.46890+ 0 5.50000+ 6 1.46200+ 0 5.60000+ 6 1.46000+ 01273 300100389
+ 5.62900+ 6 1.46160+ 0 5.68600+ 6 1.46650+ 0 5.70000+ 6 1.46800+ 01273 300100390
+ 5.70500+ 6 1.46860+ 0 5.80000+ 6 1.48000+ 0 5.90000+ 6 1.49040+ 01273 300100391
+ 6.00000+ 6 1.50000+ 0 6.10000+ 6 1.50970+ 0 6.20000+ 6 1.51900+ 01273 300100392
+ 6.30000+ 6 1.52790+ 0 6.30900+ 6 1.52870+ 0 6.40000+ 6 1.53600+ 01273 300100393
+ 6.50000+ 6 1.54260+ 0 6.52000+ 6 1.54380+ 0 6.53200+ 6 1.54450+ 01273 300100394
+ 6.55000+ 6 1.54550+ 0 6.60000+ 6 1.54800+ 0 6.63600+ 6 1.54950+ 01273 300100395
+ 6.70000+ 6 1.55190+ 0 6.75100+ 6 1.55360+ 0 6.80000+ 6 1.55500+ 01273 300100396
+ 6.90000+ 6 1.55830+ 0 7.00000+ 6 1.56000+ 0 7.10000+ 6 1.55830+ 01273 300100397
+ 7.15500+ 6 1.55660+ 0 7.20000+ 6 1.55500+ 0 7.24800+ 6 1.55350+ 01273 300100398
+ 7.30000+ 6 1.55170+ 0 7.40000+ 6 1.54800+ 0 7.50000+ 6 1.54430+ 01273 300100399
+ 7.60000+ 6 1.54000+ 0 7.70000+ 6 1.53410+ 0 7.70500+ 6 1.53380+ 01273 300100400
+ 7.80000+ 6 1.52800+ 0 7.90000+ 6 1.52340+ 0 8.00000+ 6 1.51800+ 01273 300100401
+ 8.10000+ 6 1.50910+ 0 8.20000+ 6 1.50000+ 0 8.25600+ 6 1.49660+ 01273 300100402
+ 8.30000+ 6 1.49400+ 0 8.40000+ 6 1.48800+ 0 8.50000+ 6 1.47890+ 01273 300100403
+ 8.60000+ 6 1.47000+ 0 8.70000+ 6 1.46420+ 0 8.80000+ 6 1.46000+ 01273 300100404
+ 8.80600+ 6 1.45980+ 0 8.90000+ 6 1.45730+ 0 9.00000+ 6 1.45500+ 01273 300100405
+ 9.10000+ 6 1.45120+ 0 9.20000+ 6 1.44760+ 0 9.28500+ 6 1.44540+ 01273 300100406
+ 9.30000+ 6 1.44520+ 0 9.35600+ 6 1.44450+ 0 9.40000+ 6 1.44420+ 01273 300100407
+ 9.50000+ 6 1.44400+ 0 9.60000+ 6 1.44410+ 0 9.70000+ 6 1.44460+ 01273 300100408
+ 9.80000+ 6 1.44540+ 0 9.90000+ 6 1.44640+ 0 9.90700+ 6 1.44650+ 01273 300100409
+ 1.00000+ 7 1.44800+ 0 1.01000+ 7 1.45070+ 0 1.02000+ 7 1.45350+ 01273 300100410
+ 1.03000+ 7 1.45600+ 0 1.04000+ 7 1.45790+ 0 1.04570+ 7 1.45914+ 01273 300100411
+ 1.04600+ 7 1.45920+ 0 1.05000+ 7 1.46000+ 0 1.06000+ 7 1.46340+ 01273 300100412
+ 1.07000+ 7 1.46650+ 0 1.08000+ 7 1.46850+ 0 1.09000+ 7 1.46930+ 01273 300100413
+ 1.10000+ 7 1.47000+ 0 1.10070+ 7 1.47014+ 0 1.10100+ 7 1.47020+ 01273 300100414
+ 1.11000+ 7 1.47240+ 0 1.12000+ 7 1.47480+ 0 1.13000+ 7 1.47660+ 01273 300100415
+ 1.14000+ 7 1.47750+ 0 1.15000+ 7 1.47800+ 0 1.15580+ 7 1.47867+ 01273 300100416
+ 1.15600+ 7 1.47870+ 0 1.16000+ 7 1.47910+ 0 1.17000+ 7 1.47920+ 01273 300100417
+ 1.18000+ 7 1.47740+ 0 1.19000+ 7 1.47390+ 0 1.20000+ 7 1.47000+ 01273 300100418
+ 1.21000+ 7 1.46800+ 0 1.21080+ 7 1.46792+ 0 1.21100+ 7 1.46790+ 01273 300100419
+ 1.22000+ 7 1.46660+ 0 1.23000+ 7 1.46540+ 0 1.24000+ 7 1.46410+ 01273 300100420
+ 1.25000+ 7 1.46300+ 0 1.26000+ 7 1.46170+ 0 1.26580+ 7 1.46103+ 01273 300100421
+ 1.26600+ 7 1.46100+ 0 1.27000+ 7 1.46060+ 0 1.28000+ 7 1.45960+ 01273 300100422
+ 1.29000+ 7 1.45870+ 0 1.30000+ 7 1.45799+ 0 1.31000+ 7 1.45720+ 01273 300100423
+ 1.32000+ 7 1.45640+ 0 1.32090+ 7 1.45631+ 0 1.32100+ 7 1.45630+ 01273 300100424
+ 1.33000+ 7 1.45550+ 0 1.34000+ 7 1.45460+ 0 1.35000+ 7 1.45370+ 01273 300100425
+ 1.36000+ 7 1.45290+ 0 1.37000+ 7 1.45210+ 0 1.37590+ 7 1.45161+ 01273 300100426
+ 1.37600+ 7 1.45160+ 0 1.38000+ 7 1.45130+ 0 1.39000+ 7 1.45070+ 01273 300100427
+ 1.40000+ 7 1.45000+ 0 1.41000+ 7 1.44980+ 0 1.42000+ 7 1.44970+ 01273 300100428
+ 1.43000+ 7 1.44960+ 0 1.43100+ 7 1.44960+ 0 1.44000+ 7 1.44960+ 01273 300100429
+ 1.45000+ 7 1.44960+ 0 1.46000+ 7 1.44960+ 0 1.47000+ 7 1.44960+ 01273 300100430
+ 1.48000+ 7 1.44970+ 0 1.48600+ 7 1.44980+ 0 1.49000+ 7 1.44980+ 01273 300100431
+ 1.50000+ 7 1.45000+ 0 1.51000+ 7 1.44940+ 0 1.52000+ 7 1.44880+ 01273 300100432
+ 1.53000+ 7 1.44820+ 0 1.54000+ 7 1.44760+ 0 1.54100+ 7 1.44750+ 01273 300100433
+ 1.55000+ 7 1.44700+ 0 1.56000+ 7 1.44640+ 0 1.57000+ 7 1.44580+ 01273 300100434
+ 1.58000+ 7 1.44520+ 0 1.59000+ 7 1.44460+ 0 1.59600+ 7 1.44420+ 01273 300100435
+ 1.59610+ 7 1.44420+ 0 1.60000+ 7 1.44400+ 0 1.61000+ 7 1.44340+ 01273 300100436
+ 1.62000+ 7 1.44280+ 0 1.63000+ 7 1.44220+ 0 1.64000+ 7 1.44160+ 01273 300100437
+ 1.65000+ 7 1.44100+ 0 1.65100+ 7 1.44090+ 0 1.65110+ 7 1.44090+ 01273 300100438
+ 1.66000+ 7 1.44040+ 0 1.67000+ 7 1.43980+ 0 1.68000+ 7 1.43920+ 01273 300100439
+ 1.69000+ 7 1.43860+ 0 1.70000+ 7 1.43800+ 0 1.70600+ 7 1.43760+ 01273 300100440
+ 1.70610+ 7 1.43759+ 0 1.71000+ 7 1.43740+ 0 1.72000+ 7 1.43680+ 01273 300100441
+ 1.73000+ 7 1.43620+ 0 1.74000+ 7 1.43560+ 0 1.75000+ 7 1.43500+ 01273 300100442
+ 1.76000+ 7 1.43440+ 0 1.76100+ 7 1.43430+ 0 1.76120+ 7 1.43429+ 01273 300100443
+ 1.77000+ 7 1.43380+ 0 1.78000+ 7 1.43320+ 0 1.79000+ 7 1.43260+ 01273 300100444
+ 1.80000+ 7 1.43200+ 0 1.81000+ 7 1.43140+ 0 1.81600+ 7 1.43100+ 01273 300100445
+ 1.81620+ 7 1.43099+ 0 1.82000+ 7 1.43080+ 0 1.83000+ 7 1.43020+ 01273 300100446
+ 1.84000+ 7 1.42960+ 0 1.85000+ 7 1.42900+ 0 1.86000+ 7 1.42840+ 01273 300100447
+ 1.87000+ 7 1.42780+ 0 1.87100+ 7 1.42770+ 0 1.87130+ 7 1.42769+ 01273 300100448
+ 1.88000+ 7 1.42720+ 0 1.89000+ 7 1.42660+ 0 1.90000+ 7 1.42600+ 01273 300100449
+ 1.91000+ 7 1.42540+ 0 1.92000+ 7 1.42480+ 0 1.92600+ 7 1.42440+ 01273 300100450
+ 1.92630+ 7 1.42438+ 0 1.93000+ 7 1.42420+ 0 1.94000+ 7 1.42360+ 01273 300100451
+ 1.95000+ 7 1.42300+ 0 1.96000+ 7 1.42240+ 0 1.97000+ 7 1.42180+ 01273 300100452
+ 1.98000+ 7 1.42120+ 0 1.98100+ 7 1.42110+ 0 1.98130+ 7 1.42108+ 01273 300100453
+ 1.99000+ 7 1.42060+ 0 2.00000+ 7 1.42000+ 0                      1273 300100454
+                                                                  1273 300000455
+ 5.01000+ 3 9.92690+ 0          0          0          0          01273 300200456
+ 0.00000+ 0 0.00000+ 0          0          0          1        3891273 300200457
+        389          2                                            1273 300200458
+ 1.00000- 5 2.10590+ 0 2.53000- 2 2.10580+ 0 1.00000- 1 2.10570+ 01273 300200459
+ 1.00000+ 0 2.10510+ 0 1.00000+ 1 2.10340+ 0 1.00000+ 2 2.09860+ 01273 300200460
+ 1.00000+ 3 2.09100+ 0 5.00000+ 3 2.09710+ 0 1.00000+ 4 2.12150+ 01273 300200461
+ 2.00000+ 4 2.18340+ 0 3.00000+ 4 2.25310+ 0 4.00000+ 4 2.32730+ 01273 300200462
+ 5.00000+ 4 2.40420+ 0 5.10000+ 4 2.40910+ 0 6.00000+ 4 2.48300+ 01273 300200463
+ 7.00000+ 4 2.56320+ 0 8.00000+ 4 2.64390+ 0 9.00000+ 4 2.72470+ 01273 300200464
+ 1.00000+ 5 2.80510+ 0 1.10000+ 5 2.88470+ 0 1.20000+ 5 2.96260+ 01273 300200465
+ 1.30000+ 5 3.03870+ 0 1.40000+ 5 3.11240+ 0 1.50000+ 5 3.18340+ 01273 300200466
+ 1.60000+ 5 3.25120+ 0 1.70000+ 5 3.31560+ 0 1.80000+ 5 3.37640+ 01273 300200467
+ 1.90000+ 5 3.43320+ 0 2.00000+ 5 3.48600+ 0 2.05000+ 5 3.51080+ 01273 300200468
+ 2.10000+ 5 3.53470+ 0 2.15000+ 5 3.55740+ 0 2.20000+ 5 3.57910+ 01273 300200469
+ 2.25000+ 5 3.59970+ 0 2.30000+ 5 3.61940+ 0 2.35000+ 5 3.63790+ 01273 300200470
+ 2.40000+ 5 3.65550+ 0 2.45000+ 5 3.67190+ 0 2.50000+ 5 3.68750+ 01273 300200471
+ 2.60000+ 5 3.71530+ 0 2.70000+ 5 3.73930+ 0 2.80000+ 5 3.75930+ 01273 300200472
+ 2.90000+ 5 3.77550+ 0 3.00000+ 5 3.78780+ 0 3.10000+ 5 3.79670+ 01273 300200473
+ 3.20000+ 5 3.80220+ 0 3.30000+ 5 3.80430+ 0 3.40000+ 5 3.80340+ 01273 300200474
+ 3.50000+ 5 3.79970+ 0 3.60000+ 5 3.79340+ 0 3.70000+ 5 3.78490+ 01273 300200475
+ 3.80000+ 5 3.77430+ 0 3.90000+ 5 3.76190+ 0 4.00000+ 5 3.74790+ 01273 300200476
+ 4.10000+ 5 3.73260+ 0 4.20000+ 5 3.71610+ 0 4.30000+ 5 3.69840+ 01273 300200477
+ 4.40000+ 5 3.68000+ 0 4.50000+ 5 3.66050+ 0 4.60000+ 5 3.64030+ 01273 300200478
+ 4.65000+ 5 3.63000+ 0 4.70000+ 5 3.61940+ 0 4.75000+ 5 3.60860+ 01273 300200479
+ 4.80000+ 5 3.59760+ 0 4.85000+ 5 3.58640+ 0 4.90000+ 5 3.57510+ 01273 300200480
+ 4.95000+ 5 3.56360+ 0 5.00000+ 5 3.55180+ 0 5.05000+ 5 3.54000+ 01273 300200481
+ 5.10000+ 5 3.52800+ 0 5.15000+ 5 3.51580+ 0 5.20000+ 5 3.50350+ 01273 300200482
+ 5.30000+ 5 3.47840+ 0 5.40000+ 5 3.45290+ 0 5.60000+ 5 3.40070+ 01273 300200483
+ 5.80000+ 5 3.34790+ 0 6.00000+ 5 3.29480+ 0 6.20000+ 5 3.24220+ 01273 300200484
+ 6.40000+ 5 3.19030+ 0 6.60000+ 5 3.13970+ 0 6.80000+ 5 3.09030+ 01273 300200485
+ 7.00000+ 5 3.04250+ 0 7.20000+ 5 2.99610+ 0 7.40000+ 5 2.95140+ 01273 300200486
+ 7.60000+ 5 2.90820+ 0 7.80000+ 5 2.86660+ 0 7.89000+ 5 2.84820+ 01273 300200487
+ 8.00000+ 5 2.82660+ 0 8.20000+ 5 2.78800+ 0 8.40000+ 5 2.75080+ 01273 300200488
+ 8.60000+ 5 2.71510+ 0 8.80000+ 5 2.68070+ 0 9.00000+ 5 2.64770+ 01273 300200489
+ 9.20000+ 5 2.61600+ 0 9.40000+ 5 2.58530+ 0 9.60000+ 5 2.55590+ 01273 300200490
+ 9.80000+ 5 2.52750+ 0 1.00000+ 6 2.50030+ 0 1.05000+ 6 2.40810+ 01273 300200491
+ 1.10000+ 6 2.32200+ 0 1.15000+ 6 2.23730+ 0 1.20000+ 6 2.15860+ 01273 300200492
+ 1.25000+ 6 2.08220+ 0 1.30000+ 6 2.00580+ 0 1.35000+ 6 1.92720+ 01273 300200493
+ 1.40000+ 6 1.86250+ 0 1.45000+ 6 1.78990+ 0 1.50000+ 6 1.72120+ 01273 300200494
+ 1.55000+ 6 1.64910+ 0 1.60000+ 6 1.58170+ 0 1.65000+ 6 1.53630+ 01273 300200495
+ 1.70000+ 6 1.50960+ 0 1.74000+ 6 1.51760+ 0 1.75000+ 6 1.52290+ 01273 300200496
+ 1.78000+ 6 1.55590+ 0 1.80000+ 6 1.58080+ 0 1.82000+ 6 1.61360+ 01273 300200497
+ 1.85000+ 6 1.65290+ 0 1.86000+ 6 1.66250+ 0 1.87500+ 6 1.66890+ 01273 300200498
+ 1.90000+ 6 1.64900+ 0 1.91500+ 6 1.62890+ 0 1.94000+ 6 1.58870+ 01273 300200499
+ 1.95000+ 6 1.57290+ 0 1.96000+ 6 1.56010+ 0 1.98000+ 6 1.53930+ 01273 300200500
+ 2.00000+ 6 1.52150+ 0 2.02000+ 6 1.50110+ 0 2.05000+ 6 1.47450+ 01273 300200501
+ 2.06000+ 6 1.46780+ 0 2.10000+ 6 1.45120+ 0 2.14000+ 6 1.44580+ 01273 300200502
+ 2.15000+ 6 1.44680+ 0 2.18000+ 6 1.45310+ 0 2.20000+ 6 1.46060+ 01273 300200503
+ 2.22000+ 6 1.46620+ 0 2.25000+ 6 1.47900+ 0 2.26000+ 6 1.48490+ 01273 300200504
+ 2.30000+ 6 1.51460+ 0 2.35000+ 6 1.55300+ 0 2.37100+ 6 1.57570+ 01273 300200505
+ 2.40000+ 6 1.61340+ 0 2.45000+ 6 1.68550+ 0 2.50000+ 6 1.76920+ 01273 300200506
+ 2.55000+ 6 1.82800+ 0 2.60000+ 6 1.88240+ 0 2.62500+ 6 1.91840+ 01273 300200507
+ 2.65000+ 6 1.94810+ 0 2.70000+ 6 1.95400+ 0 2.75000+ 6 1.96280+ 01273 300200508
+ 2.80000+ 6 1.95030+ 0 2.85000+ 6 1.90830+ 0 2.90000+ 6 1.85030+ 01273 300200509
+ 2.95000+ 6 1.80170+ 0 3.00000+ 6 1.73120+ 0 3.05000+ 6 1.65720+ 01273 300200510
+ 3.10000+ 6 1.59070+ 0 3.15000+ 6 1.52990+ 0 3.20000+ 6 1.48390+ 01273 300200511
+ 3.25000+ 6 1.43780+ 0 3.30000+ 6 1.41160+ 0 3.35000+ 6 1.38580+ 01273 300200512
+ 3.40000+ 6 1.36010+ 0 3.45000+ 6 1.33280+ 0 3.45500+ 6 1.33040+ 01273 300200513
+ 3.50000+ 6 1.31090+ 0 3.55000+ 6 1.29800+ 0 3.60000+ 6 1.29170+ 01273 300200514
+ 3.65000+ 6 1.28440+ 0 3.70000+ 6 1.28280+ 0 3.75000+ 6 1.28380+ 01273 300200515
+ 3.80000+ 6 1.28930+ 0 3.85000+ 6 1.29550+ 0 3.90000+ 6 1.30360+ 01273 300200516
+ 3.94600+ 6 1.31090+ 0 3.95000+ 6 1.31140+ 0 4.00000+ 6 1.31680+ 01273 300200517
+ 4.05000+ 6 1.32190+ 0 4.10000+ 6 1.32690+ 0 4.15000+ 6 1.33480+ 01273 300200518
+ 4.20000+ 6 1.34030+ 0 4.25000+ 6 1.34350+ 0 4.30000+ 6 1.34080+ 01273 300200519
+ 4.35000+ 6 1.33310+ 0 4.40000+ 6 1.32550+ 0 4.45000+ 6 1.30050+ 01273 300200520
+ 4.50000+ 6 1.26950+ 0 4.55000+ 6 1.24450+ 0 4.60000+ 6 1.21950+ 01273 300200521
+ 4.65000+ 6 1.19160+ 0 4.70000+ 6 1.16390+ 0 4.75000+ 6 1.13960+ 01273 300200522
+ 4.80000+ 6 1.11630+ 0 4.85000+ 6 1.09410+ 0 4.90000+ 6 1.07250+ 01273 300200523
+ 4.90900+ 6 1.06870+ 0 4.95000+ 6 1.05160+ 0 5.00000+ 6 1.03120+ 01273 300200524
+ 5.05000+ 6 1.01640+ 0 5.10000+ 6 1.00270+ 0 5.15000+ 6 9.90030- 11273 300200525
+ 5.20000+ 6 9.78520- 1 5.25000+ 6 9.69440- 1 5.25500+ 6 9.68620- 11273 300200526
+ 5.30000+ 6 9.57980- 1 5.35000+ 6 9.46770- 1 5.40000+ 6 9.36560- 11273 300200527
+ 5.45000+ 6 9.27120- 1 5.50000+ 6 9.19870- 1 5.60000+ 6 9.15330- 11273 300200528
+ 5.62900+ 6 9.16640- 1 5.68600+ 6 9.20090- 1 5.70000+ 6 9.20470- 11273 300200529
+ 5.70500+ 6 9.20660- 1 5.80000+ 6 9.25470- 1 5.90000+ 6 9.37340- 11273 300200530
+ 6.00000+ 6 9.50570- 1 6.10000+ 6 9.69580- 1 6.20000+ 6 9.88190- 11273 300200531
+ 6.30000+ 6 1.00850+ 0 6.30900+ 6 1.01030+ 0 6.40000+ 6 1.02790+ 01273 300200532
+ 6.50000+ 6 1.04210+ 0 6.52000+ 6 1.04480+ 0 6.53200+ 6 1.04610+ 01273 300200533
+ 6.55000+ 6 1.04810+ 0 6.60000+ 6 1.05330+ 0 6.63600+ 6 1.05820+ 01273 300200534
+ 6.70000+ 6 1.05650+ 0 6.75100+ 6 1.05510+ 0 6.80000+ 6 1.05630+ 01273 300200535
+ 6.90000+ 6 1.05840+ 0 7.00000+ 6 1.06290+ 0 7.10000+ 6 1.06180+ 01273 300200536
+ 7.15500+ 6 1.06070+ 0 7.20000+ 6 1.05900+ 0 7.24800+ 6 1.05680+ 01273 300200537
+ 7.30000+ 6 1.05430+ 0 7.40000+ 6 1.04840+ 0 7.50000+ 6 1.04260+ 01273 300200538
+ 7.60000+ 6 1.03600+ 0 7.70000+ 6 1.02780+ 0 7.70500+ 6 1.02740+ 01273 300200539
+ 7.80000+ 6 1.01980+ 0 7.90000+ 6 1.01370+ 0 8.00000+ 6 1.00690+ 01273 300200540
+ 8.10000+ 6 9.97620- 1 8.20000+ 6 9.88160- 1 8.25600+ 6 9.84720- 11273 300200541
+ 8.30000+ 6 9.82100- 1 8.40000+ 6 9.76100- 1 8.50000+ 6 9.67160- 11273 300200542
+ 8.60000+ 6 9.58430- 1 8.70000+ 6 9.52760- 1 8.80000+ 6 9.48700- 11273 300200543
+ 8.80600+ 6 9.48490- 1 8.90000+ 6 9.45840- 1 9.00000+ 6 9.43400- 11273 300200544
+ 9.10000+ 6 9.39550- 1 9.20000+ 6 9.35900- 1 9.28500+ 6 9.33480- 11273 300200545
+ 9.30000+ 6 9.33240- 1 9.35600+ 6 9.32380- 1 9.40000+ 6 9.31950- 11273 300200546
+ 9.50000+ 6 9.31350- 1 9.60000+ 6 9.31000- 1 9.70000+ 6 9.30820- 11273 300200547
+ 9.80000+ 6 9.30930- 1 9.90000+ 6 9.30860- 1 9.90700+ 6 9.30880- 11273 300200548
+ 1.00000+ 7 9.31150- 1 1.01000+ 7 9.32060- 1 1.02000+ 7 9.33110- 11273 300200549
+ 1.03000+ 7 9.33860- 1 1.04000+ 7 9.34010- 1 1.04600+ 7 9.34410- 11273 300200550
+ 1.05000+ 7 9.34640- 1 1.06000+ 7 9.36890- 1 1.07000+ 7 9.39310- 11273 300200551
+ 1.08000+ 7 9.40620- 1 1.09000+ 7 9.40740- 1 1.10000+ 7 9.40760- 11273 300200552
+ 1.10100+ 7 9.40920- 1 1.11000+ 7 9.42890- 1 1.12000+ 7 9.45170- 11273 300200553
+ 1.13000+ 7 9.47150- 1 1.14000+ 7 9.48220- 1 1.15000+ 7 9.48890- 11273 300200554
+ 1.15600+ 7 9.50360- 1 1.16000+ 7 9.51250- 1 1.17000+ 7 9.52570- 11273 300200555
+ 1.18000+ 7 9.50830- 1 1.19000+ 7 9.47390- 1 1.20000+ 7 9.43550- 11273 300200556
+ 1.21000+ 7 9.42270- 1 1.21100+ 7 9.42260- 1 1.22000+ 7 9.41850- 11273 300200557
+ 1.23000+ 7 9.41700- 1 1.24000+ 7 9.41480- 1 1.25000+ 7 9.41450- 11273 300200558
+ 1.26000+ 7 9.41420- 1 1.26600+ 7 9.41520- 1 1.27000+ 7 9.41670- 11273 300200559
+ 1.28000+ 7 9.42030- 1 1.29000+ 7 9.42530- 1 1.30000+ 7 9.43230- 11273 300200560
+ 1.31000+ 7 9.44120- 1 1.32000+ 7 9.45010- 1 1.32100+ 7 9.45090- 11273 300200561
+ 1.33000+ 7 9.45820- 1 1.34000+ 7 9.46590- 1 1.35000+ 7 9.47420- 11273 300200562
+ 1.36000+ 7 9.48470- 1 1.37000+ 7 9.49520- 1 1.37600+ 7 9.50150- 11273 300200563
+ 1.38000+ 7 9.50560- 1 1.39000+ 7 9.51750- 1 1.40000+ 7 9.52830- 11273 300200564
+ 1.41000+ 7 9.54660- 1 1.42000+ 7 9.56590- 1 1.43000+ 7 9.58520- 11273 300200565
+ 1.43100+ 7 9.58730- 1 1.44000+ 7 9.60490- 1 1.45000+ 7 9.62360- 11273 300200566
+ 1.46000+ 7 9.64150- 1 1.47000+ 7 9.65940- 1 1.48000+ 7 9.67830- 11273 300200567
+ 1.48600+ 7 9.69000- 1 1.49000+ 7 9.69700- 1 1.50000+ 7 9.71670- 11273 300200568
+ 1.51000+ 7 9.72840- 1 1.52000+ 7 9.74020- 1 1.53000+ 7 9.75190- 11273 300200569
+ 1.54000+ 7 9.76360- 1 1.54100+ 7 9.76430- 1 1.55000+ 7 9.77430- 11273 300200570
+ 1.56000+ 7 9.78450- 1 1.57000+ 7 9.79400- 1 1.58000+ 7 9.80340- 11273 300200571
+ 1.59000+ 7 9.81290- 1 1.59600+ 7 9.81790- 1 1.60000+ 7 9.82160- 11273 300200572
+ 1.61000+ 7 9.82960- 1 1.62000+ 7 9.83660- 1 1.63000+ 7 9.84360- 11273 300200573
+ 1.64000+ 7 9.85060- 1 1.65000+ 7 9.85760- 1 1.65100+ 7 9.85770- 11273 300200574
+ 1.66000+ 7 9.86310- 1 1.67000+ 7 9.86850- 1 1.68000+ 7 9.87310- 11273 300200575
+ 1.69000+ 7 9.87780- 1 1.70000+ 7 9.88240- 1 1.70600+ 7 9.88480- 11273 300200576
+ 1.71000+ 7 9.88710- 1 1.72000+ 7 9.89170- 1 1.73000+ 7 9.89600- 11273 300200577
+ 1.74000+ 7 9.90020- 1 1.75000+ 7 9.90450- 1 1.76000+ 7 9.90860- 11273 300200578
+ 1.76100+ 7 9.90850- 1 1.77000+ 7 9.91240- 1 1.78000+ 7 9.91620- 11273 300200579
+ 1.79000+ 7 9.91980- 1 1.80000+ 7 9.92340- 1 1.81000+ 7 9.92660- 11273 300200580
+ 1.81600+ 7 9.92810- 1 1.82000+ 7 9.92970- 1 1.83000+ 7 9.93280- 11273 300200581
+ 1.84000+ 7 9.93600- 1 1.85000+ 7 9.93890- 1 1.86000+ 7 9.94210- 11273 300200582
+ 1.87000+ 7 9.94540- 1 1.87100+ 7 9.94530- 1 1.88000+ 7 9.94860- 11273 300200583
+ 1.89000+ 7 9.95170- 1 1.90000+ 7 9.95480- 1 1.91000+ 7 9.95760- 11273 300200584
+ 1.92000+ 7 9.96040- 1 1.92600+ 7 9.96160- 1 1.93000+ 7 9.96330- 11273 300200585
+ 1.94000+ 7 9.96610- 1 1.95000+ 7 9.96890- 1 1.96000+ 7 9.97170- 11273 300200586
+ 1.97000+ 7 9.97450- 1 1.98000+ 7 9.97730- 1 1.98100+ 7 9.97720- 11273 300200587
+ 1.99000+ 7 9.98020- 1 2.00000+ 7 9.98300- 1                      1273 300200588
+                                                                  1273 300000589
+ 5.01000+ 3 9.92690+ 0          0         99          0          01273 300400590
+ 0.00000+ 0-7.17000+ 5          0          0          1        1841273 300400591
+        184          2                                            1273 300400592
+ 7.89000+ 5 0.00000+ 0 8.00000+ 5 1.04270- 5 1.00000+ 6 2.00000- 41273 300400593
+ 1.10000+ 6 5.50540- 4 1.20000+ 6 1.10000- 3 1.30000+ 6 1.79380- 31273 300400594
+ 1.40000+ 6 2.90000- 3 1.50000+ 6 4.70000- 3 1.55000+ 6 5.74580- 31273 300400595
+ 1.60000+ 6 7.10000- 3 1.65000+ 6 9.00000- 3 1.70000+ 6 1.15000- 21273 300400596
+ 1.75000+ 6 1.65000- 2 1.80000+ 6 2.72000- 2 1.85000+ 6 4.13000- 21273 300400597
+ 1.90000+ 6 6.02000- 2 1.91500+ 6 6.73430- 2 1.94000+ 6 7.80240- 21273 300400598
+ 1.96000+ 6 8.09820- 2 1.98000+ 6 7.85410- 2 2.00000+ 6 7.26000- 21273 300400599
+ 2.05000+ 6 6.22300- 2 2.15000+ 6 4.90100- 2 2.20000+ 6 4.38600- 21273 300400600
+ 2.30000+ 6 3.76850- 2 2.35000+ 6 3.65100- 2 2.37100+ 6 3.61510- 21273 300400601
+ 2.40000+ 6 3.64400- 2 2.60000+ 6 3.91640- 2 2.75000+ 6 4.10500- 21273 300400602
+ 2.80000+ 6 4.19920- 2 2.95000+ 6 4.73260- 2 3.00000+ 6 4.98900- 21273 300400603
+ 3.20000+ 6 6.13200- 2 3.30000+ 6 6.50280- 2 3.40000+ 6 6.49520- 21273 300400604
+ 3.60000+ 6 5.86440- 2 3.70000+ 6 5.89330- 2 3.80000+ 6 6.17170- 21273 300400605
+ 3.90000+ 6 6.67710- 2 3.94600+ 6 6.92990- 2 4.00000+ 6 7.48000- 21273 300400606
+ 4.10000+ 6 8.37540- 2 4.20000+ 6 9.13960- 2 4.40000+ 6 1.05570- 11273 300400607
+ 4.60000+ 6 1.17360- 1 4.80000+ 6 1.21870- 1 5.00000+ 6 1.20650- 11273 300400608
+ 5.20000+ 6 1.17180- 1 5.25000+ 6 1.16350- 1 5.25500+ 6 1.16280- 11273 300400609
+ 5.40000+ 6 1.24700- 1 5.50000+ 6 1.26980- 1 5.60000+ 6 1.28700- 11273 300400610
+ 5.62900+ 6 1.29120- 1 5.68600+ 6 1.30810- 1 5.70000+ 6 1.31990- 11273 300400611
+ 5.70500+ 6 1.32420- 1 5.80000+ 6 1.39420- 1 5.90000+ 6 1.43540- 11273 300400612
+ 6.00000+ 6 1.45500- 1 6.20000+ 6 1.49000- 1 6.40000+ 6 1.50800- 11273 300400613
+ 6.50000+ 6 1.51270- 1 6.52000+ 6 1.51340- 1 6.60000+ 6 1.53420- 11273 300400614
+ 6.63600+ 6 1.54300- 1 6.70000+ 6 1.65900- 1 6.75100+ 6 1.75000- 11273 300400615
+ 6.80000+ 6 1.81030- 1 6.90000+ 6 1.90500- 1 7.00000+ 6 1.96050- 11273 300400616
+ 7.10000+ 6 2.01170- 1 7.15500+ 6 2.03450- 1 7.20000+ 6 2.06020- 11273 300400617
+ 7.40000+ 6 2.15170- 1 7.60000+ 6 2.21820- 1 7.70000+ 6 2.24590- 11273 300400618
+ 7.70500+ 6 2.24720- 1 7.80000+ 6 2.27010- 1 8.00000+ 6 2.31210- 11273 300400619
+ 8.20000+ 6 2.34760- 1 8.25600+ 6 2.35670- 1 8.30000+ 6 2.36380- 11273 300400620
+ 8.40000+ 6 2.37940- 1 8.60000+ 6 2.40960- 1 8.80000+ 6 2.43900- 11273 300400621
+ 8.80600+ 6 2.43990- 1 8.90000+ 6 2.45330- 1 9.00000+ 6 2.46750- 11273 300400622
+ 9.20000+ 6 2.49670- 1 9.30000+ 6 2.51130- 1 9.35600+ 6 2.51960- 11273 300400623
+ 9.40000+ 6 2.52620- 1 9.50000+ 6 2.54150- 1 9.60000+ 6 2.55720- 11273 300400624
+ 9.80000+ 6 2.59500- 1 9.90000+ 6 2.61830- 1 9.90700+ 6 2.62000- 11273 300400625
+ 1.00000+ 7 2.64400- 1 1.01000+ 7 2.67320- 1 1.04000+ 7 2.75940- 11273 300400626
+ 1.04570+ 7 2.77440- 1 1.05000+ 7 2.78530- 1 1.06000+ 7 2.80810- 11273 300400627
+ 1.10000+ 7 2.88040- 1 1.10070+ 7 2.88140- 1 1.11000+ 7 2.89380- 11273 300400628
+ 1.12000+ 7 2.90570- 1 1.15000+ 7 2.93280- 1 1.15580+ 7 2.93130- 11273 300400629
+ 1.16000+ 7 2.93050- 1 1.17000+ 7 2.92870- 1 1.20000+ 7 2.95790- 11273 300400630
+ 1.21000+ 7 2.96060- 1 1.21080+ 7 2.96070- 1 1.22000+ 7 2.96080- 11273 300400631
+ 1.23000+ 7 2.96020- 1 1.25000+ 7 2.95850- 1 1.26000+ 7 2.95560- 11273 300400632
+ 1.26580+ 7 2.95360- 1 1.27000+ 7 2.95190- 1 1.28000+ 7 2.94810- 11273 300400633
+ 1.30000+ 7 2.93970- 1 1.32000+ 7 2.92480- 1 1.32090+ 7 2.92410- 11273 300400634
+ 1.33000+ 7 2.91720- 1 1.34000+ 7 2.90990- 1 1.35000+ 7 2.90210- 11273 300400635
+ 1.37000+ 7 2.88280- 1 1.37590+ 7 2.87690- 1 1.38000+ 7 2.87320- 11273 300400636
+ 1.39000+ 7 2.86420- 1 1.40000+ 7 2.85530- 1 1.43000+ 7 2.82480- 11273 300400637
+ 1.43100+ 7 2.82370- 1 1.44000+ 7 2.81530- 1 1.45000+ 7 2.80670- 11273 300400638
+ 1.48000+ 7 2.78890- 1 1.48600+ 7 2.78540- 1 1.49000+ 7 2.78310- 11273 300400639
+ 1.50000+ 7 2.77740- 1 1.54000+ 7 2.76030- 1 1.54100+ 7 2.76000- 11273 300400640
+ 1.55000+ 7 2.75710- 1 1.56000+ 7 2.75440- 1 1.59000+ 7 2.74850- 11273 300400641
+ 1.59610+ 7 2.74760- 1 1.60000+ 7 2.74730- 1 1.61000+ 7 2.74680- 11273 300400642
+ 1.65000+ 7 2.74880- 1 1.65110+ 7 2.74910- 1 1.66000+ 7 2.75080- 11273 300400643
+ 1.67000+ 7 2.75290- 1 1.70000+ 7 2.76150- 1 1.70610+ 7 2.76320- 11273 300400644
+ 1.71000+ 7 2.76430- 1 1.72000+ 7 2.76720- 1 1.75000+ 7 2.77690- 11273 300400645
+ 1.76000+ 7 2.78030- 1 1.76120+ 7 2.78080- 1 1.77000+ 7 2.78400- 11273 300400646
+ 1.78000+ 7 2.78770- 1 1.80000+ 7 2.79550- 1 1.81000+ 7 2.79980- 11273 300400647
+ 1.81620+ 7 2.80250- 1 1.82000+ 7 2.80420- 1 1.83000+ 7 2.80860- 11273 300400648
+ 1.84000+ 7 2.81290- 1 1.85000+ 7 2.81750- 1 1.87000+ 7 2.82600- 11273 300400649
+ 1.87130+ 7 2.82660- 1 1.88000+ 7 2.83030- 1 1.89000+ 7 2.83470- 11273 300400650
+ 1.90000+ 7 2.83910- 1 1.92000+ 7 2.84850- 1 1.92630+ 7 2.85150- 11273 300400651
+ 1.93000+ 7 2.85310- 1 1.94000+ 7 2.85780- 1 1.95000+ 7 2.86250- 11273 300400652
+ 1.98000+ 7 2.87660- 1 1.98130+ 7 2.87720- 1 1.99000+ 7 2.88120- 11273 300400653
+ 2.00000+ 7 2.88590- 1                                            1273 300400654
+                                                                  1273 300000655
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 305100656
+ 0.00000+ 0-7.17000+ 5          0         31          1        1841273 305100657
+        184          2                                            1273 305100658
+ 7.89000+ 5 0.00000+ 0 8.00000+ 5 1.04270- 5 1.00000+ 6 2.00000- 41273 305100659
+ 1.10000+ 6 5.50540- 4 1.20000+ 6 1.10000- 3 1.30000+ 6 1.79380- 31273 305100660
+ 1.40000+ 6 2.90000- 3 1.50000+ 6 4.70000- 3 1.55000+ 6 5.74580- 31273 305100661
+ 1.60000+ 6 7.10000- 3 1.65000+ 6 9.00000- 3 1.70000+ 6 1.15000- 21273 305100662
+ 1.75000+ 6 1.65000- 2 1.80000+ 6 2.72000- 2 1.85000+ 6 4.13000- 21273 305100663
+ 1.90000+ 6 6.02000- 2 1.91500+ 6 6.73430- 2 1.94000+ 6 7.77000- 21273 305100664
+ 1.96000+ 6 8.04000- 2 1.98000+ 6 7.77000- 2 2.00000+ 6 7.15000- 21273 305100665
+ 2.05000+ 6 6.07000- 2 2.15000+ 6 4.68000- 2 2.20000+ 6 4.14000- 21273 305100666
+ 2.30000+ 6 3.48000- 2 2.35000+ 6 3.34000- 2 2.37100+ 6 3.29500- 21273 305100667
+ 2.40000+ 6 3.24000- 2 2.60000+ 6 2.94000- 2 2.75000+ 6 2.78500- 21273 305100668
+ 2.80000+ 6 2.78000- 2 2.95000+ 6 3.02000- 2 3.00000+ 6 3.18000- 21273 305100669
+ 3.20000+ 6 3.89000- 2 3.30000+ 6 4.05000- 2 3.40000+ 6 3.84000- 21273 305100670
+ 3.60000+ 6 2.80000- 2 3.70000+ 6 2.62000- 2 3.80000+ 6 2.69000- 21273 305100671
+ 3.90000+ 6 2.99000- 2 3.94600+ 6 3.14910- 2 4.00000+ 6 3.34000- 21273 305100672
+ 4.10000+ 6 3.67000- 2 4.20000+ 6 3.94000- 2 4.40000+ 6 4.51000- 21273 305100673
+ 4.60000+ 6 4.89000- 2 4.80000+ 6 4.87000- 2 5.00000+ 6 4.45000- 21273 305100674
+ 5.20000+ 6 3.99400- 2 5.25000+ 6 3.90000- 2 5.25500+ 6 3.89150- 21273 305100675
+ 5.40000+ 6 3.65880- 2 5.50000+ 6 3.50000- 2 5.60000+ 6 3.36700- 21273 305100676
+ 5.62900+ 6 3.33070- 2 5.68600+ 6 3.26220- 2 5.70000+ 6 3.24600- 21273 305100677
+ 5.70500+ 6 3.24030- 2 5.80000+ 6 3.13040- 2 5.90000+ 6 3.01660- 21273 305100678
+ 6.00000+ 6 2.91000- 2 6.20000+ 6 2.73080- 2 6.40000+ 6 2.56820- 21273 305100679
+ 6.50000+ 6 2.49000- 2 6.52000+ 6 2.47440- 2 6.60000+ 6 2.41280- 21273 305100680
+ 6.63600+ 6 2.38540- 2 6.70000+ 6 2.33720- 2 6.75100+ 6 2.29920- 21273 305100681
+ 6.80000+ 6 2.26200- 2 6.90000+ 6 2.18900- 2 7.00000+ 6 2.12000- 21273 305100682
+ 7.10000+ 6 2.06160- 2 7.15500+ 6 2.03080- 2 7.20000+ 6 2.00640- 21273 305100683
+ 7.40000+ 6 1.89480- 2 7.60000+ 6 1.79020- 2 7.70000+ 6 1.74280- 21273 305100684
+ 7.70500+ 6 1.74050- 2 7.80000+ 6 1.69760- 2 8.00000+ 6 1.61000- 21273 305100685
+ 8.20000+ 6 1.52080- 2 8.25600+ 6 1.49800- 2 8.30000+ 6 1.48320- 21273 305100686
+ 8.40000+ 6 1.45080- 2 8.60000+ 6 1.38340- 2 8.80000+ 6 1.31560- 21273 305100687
+ 8.80600+ 6 1.31390- 2 8.90000+ 6 1.28740- 2 9.00000+ 6 1.26000- 21273 305100688
+ 9.20000+ 6 1.19640- 2 9.30000+ 6 1.16360- 2 9.35600+ 6 1.14550- 21273 305100689
+ 9.40000+ 6 1.13140- 2 9.50000+ 6 1.10000- 2 9.60000+ 6 1.07020- 21273 305100690
+ 9.80000+ 6 1.01920- 2 9.90000+ 6 9.98800- 3 9.90700+ 6 9.97430- 31273 305100691
+ 1.00000+ 7 9.80000- 3 1.01000+ 7 9.59600- 3 1.04000+ 7 8.99600- 31273 305100692
+ 1.04570+ 7 8.88400- 3 1.05000+ 7 8.80000- 3 1.06000+ 7 8.61600- 31273 305100693
+ 1.10000+ 7 7.90000- 3 1.10070+ 7 7.88670- 3 1.11000+ 7 7.71200- 31273 305100694
+ 1.12000+ 7 7.52800- 3 1.15000+ 7 7.00000- 3 1.15580+ 7 6.91240- 31273 305100695
+ 1.16000+ 7 6.85000- 3 1.17000+ 7 6.70500- 3 1.20000+ 7 6.30000- 31273 305100696
+ 1.21000+ 7 6.16400- 3 1.21080+ 7 6.15320- 3 1.22000+ 7 6.03100- 31273 305100697
+ 1.23000+ 7 5.90100- 3 1.25000+ 7 5.65000- 3 1.26000+ 7 5.53240- 31273 305100698
+ 1.26580+ 7 5.46590- 3 1.27000+ 7 5.41860- 3 1.28000+ 7 5.30860- 31273 305100699
+ 1.30000+ 7 5.10000- 3 1.32000+ 7 4.90760- 3 1.32090+ 7 4.89920- 31273 305100700
+ 1.33000+ 7 4.81560- 3 1.34000+ 7 4.72640- 3 1.35000+ 7 4.64000- 31273 305100701
+ 1.37000+ 7 4.46880- 3 1.37590+ 7 4.42010- 3 1.38000+ 7 4.38680- 31273 305100702
+ 1.39000+ 7 4.30720- 3 1.40000+ 7 4.23000- 3 1.43000+ 7 4.02000- 31273 305100703
+ 1.43100+ 7 4.01330- 3 1.44000+ 7 3.95400- 3 1.45000+ 7 3.89000- 31273 305100704
+ 1.48000+ 7 3.70040- 3 1.48600+ 7 3.66380- 3 1.49000+ 7 3.63960- 31273 305100705
+ 1.50000+ 7 3.58000- 3 1.54000+ 7 3.35440- 3 1.54100+ 7 3.34890- 31273 305100706
+ 1.55000+ 7 3.30000- 3 1.56000+ 7 3.24430- 3 1.59000+ 7 3.08230- 31273 305100707
+ 1.59610+ 7 3.05030- 3 1.60000+ 7 3.03000- 3 1.61000+ 7 2.98170- 31273 305100708
+ 1.65000+ 7 2.79790- 3 1.65110+ 7 2.79310- 3 1.66000+ 7 2.75440- 31273 305100709
+ 1.67000+ 7 2.71190- 3 1.70000+ 7 2.59000- 3 1.70610+ 7 2.56510- 31273 305100710
+ 1.71000+ 7 2.54930- 3 1.72000+ 7 2.50920- 3 1.75000+ 7 2.39250- 31273 305100711
+ 1.76000+ 7 2.35480- 3 1.76120+ 7 2.35030- 3 1.77000+ 7 2.31770- 31273 305100712
+ 1.78000+ 7 2.28120- 3 1.80000+ 7 2.21000- 3 1.81000+ 7 2.17670- 31273 305100713
+ 1.81620+ 7 2.15610- 3 1.82000+ 7 2.14360- 3 1.83000+ 7 2.11090- 31273 305100714
+ 1.84000+ 7 2.07840- 3 1.85000+ 7 2.04630- 3 1.87000+ 7 1.98290- 31273 305100715
+ 1.87130+ 7 1.97880- 3 1.88000+ 7 1.95160- 3 1.89000+ 7 1.92070- 31273 305100716
+ 1.90000+ 7 1.89000- 3 1.92000+ 7 1.82600- 3 1.92630+ 7 1.80580- 31273 305100717
+ 1.93000+ 7 1.79400- 3 1.94000+ 7 1.76200- 3 1.95000+ 7 1.73000- 31273 305100718
+ 1.98000+ 7 1.63400- 3 1.98130+ 7 1.62980- 3 1.99000+ 7 1.60200- 31273 305100719
+ 2.00000+ 7 1.57000- 3                                            1273 305100720
+                                                                  1273 300000721
+ 5.01000+ 3 9.92690+ 0          0          2          0          01273 305200722
+ 0.00000+ 0-1.74000+ 6          0         31          1        1681273 305200723
+        168          2                                            1273 305200724
+ 1.91500+ 6 0.00000+ 0 1.94000+ 6 3.23530- 4 1.96000+ 6 5.82350- 41273 305200725
+ 1.98000+ 6 8.41180- 4 2.00000+ 6 1.10000- 3 2.05000+ 6 1.52980- 31273 305200726
+ 2.15000+ 6 2.20970- 3 2.20000+ 6 2.45980- 3 2.30000+ 6 2.88520- 31273 305200727
+ 2.35000+ 6 3.10980- 3 2.37100+ 6 3.20100- 3 2.40000+ 6 3.32380- 31273 305200728
+ 2.60000+ 6 4.12560- 3 2.75000+ 6 4.74000- 3 2.80000+ 6 4.95880- 31273 305200729
+ 2.95000+ 6 5.62480- 3 3.00000+ 6 5.85000- 3 3.20000+ 6 6.73080- 31273 305200730
+ 3.30000+ 6 7.17600- 3 3.40000+ 6 7.61600- 3 3.60000+ 6 8.42280- 31273 305200731
+ 3.70000+ 6 8.77520- 3 3.80000+ 6 9.10200- 3 3.90000+ 6 9.39600- 31273 305200732
+ 3.94600+ 6 9.51780- 3 4.00000+ 6 9.65000- 3 4.10000+ 6 9.84240- 31273 305200733
+ 4.20000+ 6 9.99160- 3 4.40000+ 6 1.01700- 2 4.60000+ 6 1.02730- 21273 305200734
+ 4.80000+ 6 1.03240- 2 5.00000+ 6 1.02800- 2 5.20000+ 6 1.01310- 21273 305200735
+ 5.25000+ 6 1.00800- 2 5.25500+ 6 1.00740- 2 5.40000+ 6 9.89520- 31273 305200736
+ 5.50000+ 6 9.76000- 3 5.60000+ 6 9.64220- 3 5.62900+ 6 9.60550- 31273 305200737
+ 5.68600+ 6 9.53000- 3 5.70000+ 6 9.51080- 3 5.70500+ 6 9.50390- 31273 305200738
+ 5.80000+ 6 9.34920- 3 5.90000+ 6 9.15680- 3 6.00000+ 6 8.95000- 31273 305200739
+ 6.20000+ 6 8.55000- 3 6.40000+ 6 8.15060- 3 6.50000+ 6 7.96000- 31273 305200740
+ 6.52000+ 6 7.92680- 3 6.60000+ 6 7.79480- 3 6.63600+ 6 7.73570- 31273 305200741
+ 6.70000+ 6 7.63120- 3 6.75100+ 6 7.54810- 3 6.80000+ 6 7.45650- 31273 305200742
+ 6.90000+ 6 7.26880- 3 7.00000+ 6 7.08000- 3 7.10000+ 6 6.91010- 31273 305200743
+ 7.15500+ 6 6.81880- 3 7.20000+ 6 6.74520- 3 7.40000+ 6 6.43010- 31273 305200744
+ 7.60000+ 6 6.12600- 3 7.70000+ 6 5.97500- 3 7.70500+ 6 5.96750- 31273 305200745
+ 7.80000+ 6 5.82700- 3 8.00000+ 6 5.54000- 3 8.20000+ 6 5.26860- 31273 305200746
+ 8.25600+ 6 5.19530- 3 8.30000+ 6 5.13860- 3 8.40000+ 6 5.01240- 31273 305200747
+ 8.60000+ 6 4.77240- 3 8.80000+ 6 4.54860- 3 8.80600+ 6 4.54210- 31273 305200748
+ 8.90000+ 6 4.44240- 3 9.00000+ 6 4.34000- 3 9.20000+ 6 4.14460- 31273 305200749
+ 9.30000+ 6 4.05260- 3 9.35600+ 6 4.00270- 3 9.40000+ 6 3.96440- 31273 305200750
+ 9.50000+ 6 3.88000- 3 9.60000+ 6 3.80120- 3 9.80000+ 6 3.65380- 31273 305200751
+ 9.90000+ 6 3.58520- 3 9.90700+ 6 3.58050- 3 1.00000+ 7 3.52000- 31273 305200752
+ 1.01000+ 7 3.45840- 3 1.04000+ 7 3.28440- 3 1.04570+ 7 3.25320- 31273 305200753
+ 1.05000+ 7 3.23000- 3 1.06000+ 7 3.17320- 3 1.10000+ 7 2.96000- 31273 305200754
+ 1.10070+ 7 2.95670- 3 1.11000+ 7 2.91400- 3 1.12000+ 7 2.86900- 31273 305200755
+ 1.15000+ 7 2.74000- 3 1.15580+ 7 2.71290- 3 1.16000+ 7 2.69360- 31273 305200756
+ 1.17000+ 7 2.64840- 3 1.20000+ 7 2.52000- 3 1.21000+ 7 2.48560- 31273 305200757
+ 1.21080+ 7 2.48290- 3 1.22000+ 7 2.45240- 3 1.23000+ 7 2.42040- 31273 305200758
+ 1.25000+ 7 2.36000- 3 1.26000+ 7 2.32760- 3 1.26580+ 7 2.30890- 31273 305200759
+ 1.27000+ 7 2.29540- 3 1.28000+ 7 2.26340- 3 1.30000+ 7 2.20000- 31273 305200760
+ 1.32000+ 7 2.13820- 3 1.32090+ 7 2.13550- 3 1.33000+ 7 2.10820- 31273 305200761
+ 1.34000+ 7 2.07880- 3 1.35000+ 7 2.05000- 3 1.37000+ 7 1.99680- 31273 305200762
+ 1.37590+ 7 1.98140- 3 1.38000+ 7 1.97080- 3 1.39000+ 7 1.94520- 31273 305200763
+ 1.40000+ 7 1.92000- 3 1.43000+ 7 1.84080- 3 1.43100+ 7 1.83820- 31273 305200764
+ 1.44000+ 7 1.81520- 3 1.45000+ 7 1.79000- 3 1.48000+ 7 1.72400- 31273 305200765
+ 1.48600+ 7 1.71080- 3 1.49000+ 7 1.70200- 3 1.50000+ 7 1.68000- 31273 305200766
+ 1.54000+ 7 1.57560- 3 1.54100+ 7 1.57300- 3 1.55000+ 7 1.55000- 31273 305200767
+ 1.56000+ 7 1.52880- 3 1.59000+ 7 1.46880- 3 1.59610+ 7 1.45730- 31273 305200768
+ 1.60000+ 7 1.45000- 3 1.61000+ 7 1.42930- 3 1.65000+ 7 1.34810- 31273 305200769
+ 1.65110+ 7 1.34590- 3 1.66000+ 7 1.32820- 3 1.67000+ 7 1.30840- 31273 305200770
+ 1.70000+ 7 1.25000- 3 1.70610+ 7 1.23810- 3 1.71000+ 7 1.23050- 31273 305200771
+ 1.72000+ 7 1.21160- 3 1.75000+ 7 1.15810- 3 1.76000+ 7 1.14140- 31273 305200772
+ 1.76120+ 7 1.13940- 3 1.77000+ 7 1.12520- 3 1.78000+ 7 1.10960- 31273 305200773
+ 1.80000+ 7 1.08000- 3 1.81000+ 7 1.06740- 3 1.81620+ 7 1.06000- 31273 305200774
+ 1.82000+ 7 1.05560- 3 1.83000+ 7 1.04460- 3 1.84000+ 7 1.03440- 31273 305200775
+ 1.85000+ 7 1.02500- 3 1.87000+ 7 1.00860- 3 1.87130+ 7 1.00760- 31273 305200776
+ 1.88000+ 7 1.00160- 3 1.89000+ 7 9.95400- 4 1.90000+ 7 9.90000- 41273 305200777
+ 1.92000+ 7 9.88000- 4 1.92630+ 7 9.87370- 4 1.93000+ 7 9.87000- 41273 305200778
+ 1.94000+ 7 9.86000- 4 1.95000+ 7 9.85000- 4 1.98000+ 7 9.82000- 41273 305200779
+ 1.98130+ 7 9.81870- 4 1.99000+ 7 9.81000- 4 2.00000+ 7 9.80000- 41273 305200780
+                                                                  1273 300000781
+ 5.01000+ 3 9.92690+ 0          0          3          0          01273 305300782
+ 0.00000+ 0-2.15400+ 6          0         31          1        1581273 305300783
+        158          2                                            1273 305300784
+ 2.37100+ 6 0.00000+ 0 2.40000+ 6 7.16230- 4 2.60000+ 6 5.63860- 31273 305300785
+ 2.75000+ 6 8.46000- 3 2.80000+ 6 9.23280- 3 2.95000+ 6 1.15010- 21273 305300786
+ 3.00000+ 6 1.22400- 2 3.20000+ 6 1.56890- 2 3.30000+ 6 1.73520- 21273 305300787
+ 3.40000+ 6 1.89360- 2 3.60000+ 6 2.22210- 2 3.70000+ 6 2.39580- 21273 305300788
+ 3.80000+ 6 2.57150- 2 3.90000+ 6 2.74750- 2 3.94600+ 6 2.82900- 21273 305300789
+ 4.00000+ 6 2.92500- 2 4.10000+ 6 3.10390- 2 4.20000+ 6 3.28430- 21273 305300790
+ 4.40000+ 6 3.64770- 2 4.60000+ 6 4.03600- 2 4.80000+ 6 4.14270- 21273 305300791
+ 5.00000+ 6 4.16700- 2 5.20000+ 6 4.10020- 2 5.25000+ 6 4.07700- 21273 305300792
+ 5.25500+ 6 4.07480- 2 5.40000+ 6 4.00190- 2 5.50000+ 6 3.94200- 21273 305300793
+ 5.60000+ 6 3.86500- 2 5.62900+ 6 3.84210- 2 5.68600+ 6 3.79640- 21273 305300794
+ 5.70000+ 6 3.78500- 2 5.70500+ 6 3.78100- 2 5.80000+ 6 3.70870- 21273 305300795
+ 5.90000+ 6 3.63980- 2 6.00000+ 6 3.57300- 2 6.20000+ 6 3.43620- 21273 305300796
+ 6.40000+ 6 3.29830- 2 6.50000+ 6 3.23100- 2 6.52000+ 6 3.21880- 21273 305300797
+ 6.60000+ 6 3.16980- 2 6.63600+ 6 3.14780- 2 6.70000+ 6 3.10860- 21273 305300798
+ 6.75100+ 6 3.07730- 2 6.80000+ 6 3.04440- 2 6.90000+ 6 2.97630- 21273 305300799
+ 7.00000+ 6 2.90700- 2 7.10000+ 6 2.83780- 2 7.15500+ 6 2.80020- 21273 305300800
+ 7.20000+ 6 2.76980- 2 7.40000+ 6 2.63800- 2 7.60000+ 6 2.51600- 21273 305300801
+ 7.70000+ 6 2.45920- 2 7.70500+ 6 2.45630- 2 7.80000+ 6 2.40340- 21273 305300802
+ 8.00000+ 6 2.29500- 2 8.20000+ 6 2.18120- 2 8.25600+ 6 2.14990- 21273 305300803
+ 8.30000+ 6 2.12540- 2 8.40000+ 6 2.07040- 2 8.60000+ 6 1.96450- 21273 305300804
+ 8.80000+ 6 1.86590- 2 8.80600+ 6 1.86300- 2 8.90000+ 6 1.81870- 21273 305300805
+ 9.00000+ 6 1.77300- 2 9.20000+ 6 1.68640- 2 9.30000+ 6 1.64500- 21273 305300806
+ 9.35600+ 6 1.62240- 2 9.40000+ 6 1.60490- 2 9.50000+ 6 1.56600- 21273 305300807
+ 9.60000+ 6 1.52600- 2 9.80000+ 6 1.45210- 2 9.90000+ 6 1.41800- 21273 305300808
+ 9.90700+ 6 1.41570- 2 1.00000+ 7 1.38600- 2 1.01000+ 7 1.36080- 21273 305300809
+ 1.04000+ 7 1.29600- 2 1.04570+ 7 1.28550- 2 1.05000+ 7 1.27800- 21273 305300810
+ 1.06000+ 7 1.25890- 2 1.10000+ 7 1.18800- 2 1.10070+ 7 1.18680- 21273 305300811
+ 1.11000+ 7 1.17070- 2 1.12000+ 7 1.15400- 2 1.15000+ 7 1.10700- 21273 305300812
+ 1.15580+ 7 1.09850- 2 1.16000+ 7 1.09260- 2 1.17000+ 7 1.07910- 21273 305300813
+ 1.20000+ 7 1.04400- 2 1.21000+ 7 1.03570- 2 1.21080+ 7 1.03510- 21273 305300814
+ 1.22000+ 7 1.02800- 2 1.23000+ 7 1.02080- 2 1.25000+ 7 1.00800- 21273 305300815
+ 1.26000+ 7 1.00080- 2 1.26580+ 7 9.96620- 3 1.27000+ 7 9.93600- 31273 305300816
+ 1.28000+ 7 9.86400- 3 1.30000+ 7 9.72000- 3 1.32000+ 7 9.57600- 31273 305300817
+ 1.32090+ 7 9.56950- 3 1.33000+ 7 9.50400- 3 1.34000+ 7 9.43200- 31273 305300818
+ 1.35000+ 7 9.36000- 3 1.37000+ 7 9.22140- 3 1.37590+ 7 9.17910- 31273 305300819
+ 1.38000+ 7 9.14940- 3 1.39000+ 7 9.07560- 3 1.40000+ 7 9.00000- 31273 305300820
+ 1.43000+ 7 8.73000- 3 1.43100+ 7 8.72100- 3 1.44000+ 7 8.64000- 31273 305300821
+ 1.45000+ 7 8.55000- 3 1.48000+ 7 8.32320- 3 1.48600+ 7 8.28170- 31273 305300822
+ 1.49000+ 7 8.25480- 3 1.50000+ 7 8.19000- 3 1.54000+ 7 7.97400- 31273 305300823
+ 1.54100+ 7 7.96860- 3 1.55000+ 7 7.92000- 3 1.56000+ 7 7.85160- 31273 305300824
+ 1.59000+ 7 7.63560- 3 1.59610+ 7 7.58970- 3 1.60000+ 7 7.56000- 31273 305300825
+ 1.61000+ 7 7.48600- 3 1.65000+ 7 7.19440- 3 1.65110+ 7 7.18650- 31273 305300826
+ 1.66000+ 7 7.12260- 3 1.67000+ 7 7.05130- 3 1.70000+ 7 6.84000- 31273 305300827
+ 1.70610+ 7 6.80030- 3 1.71000+ 7 6.77500- 3 1.72000+ 7 6.71040- 31273 305300828
+ 1.75000+ 7 6.51940- 3 1.76000+ 7 6.45660- 3 1.76120+ 7 6.44910- 31273 305300829
+ 1.77000+ 7 6.39430- 3 1.78000+ 7 6.33240- 3 1.80000+ 7 6.21000- 31273 305300830
+ 1.81000+ 7 6.14900- 3 1.81620+ 7 6.11100- 3 1.82000+ 7 6.08760- 31273 305300831
+ 1.83000+ 7 6.02570- 3 1.84000+ 7 5.96340- 3 1.85000+ 7 5.90060- 31273 305300832
+ 1.87000+ 7 5.77370- 3 1.87130+ 7 5.76540- 3 1.88000+ 7 5.70960- 31273 305300833
+ 1.89000+ 7 5.64500- 3 1.90000+ 7 5.58000- 3 1.92000+ 7 5.43600- 31273 305300834
+ 1.92630+ 7 5.39060- 3 1.93000+ 7 5.36400- 3 1.94000+ 7 5.29200- 31273 305300835
+ 1.95000+ 7 5.22000- 3 1.98000+ 7 5.00400- 3 1.98130+ 7 4.99460- 31273 305300836
+ 1.99000+ 7 4.93200- 3 2.00000+ 7 4.86000- 3                      1273 305300837
+                                                                  1273 300000838
+ 5.01000+ 3 9.92690+ 0          0          4          0          01273 305400839
+ 0.00000+ 0-3.58500+ 6          0         31          1        1441273 305400840
+        144          2                                            1273 305400841
+ 3.94600+ 6 0.00000+ 0 4.00000+ 6 2.50000- 3 4.10000+ 6 6.17260- 31273 305400842
+ 4.20000+ 6 9.16170- 3 4.40000+ 6 1.38260- 2 4.60000+ 6 1.78280- 21273 305400843
+ 4.80000+ 6 2.14200- 2 5.00000+ 6 2.42000- 2 5.20000+ 6 2.61080- 21273 305400844
+ 5.25000+ 6 2.65000- 2 5.25500+ 6 2.65430- 2 5.40000+ 6 2.77000- 21273 305400845
+ 5.50000+ 6 2.84000- 2 5.60000+ 6 2.89680- 2 5.62900+ 6 2.91210- 21273 305400846
+ 5.68600+ 6 2.94050- 2 5.70000+ 6 2.94720- 2 5.70500+ 6 2.94960- 21273 305400847
+ 5.80000+ 6 2.99440- 2 5.90000+ 6 3.03960- 2 6.00000+ 6 3.08000- 21273 305400848
+ 6.20000+ 6 3.13760- 2 6.40000+ 6 3.19500- 2 6.50000+ 6 3.22000- 21273 305400849
+ 6.52000+ 6 3.22250- 2 6.60000+ 6 3.23100- 2 6.63600+ 6 3.23400- 21273 305400850
+ 6.70000+ 6 3.23800- 2 6.75100+ 6 3.24010- 2 6.80000+ 6 3.24450- 21273 305400851
+ 6.90000+ 6 3.25280- 2 7.00000+ 6 3.26000- 2 7.10000+ 6 3.26370- 21273 305400852
+ 7.15500+ 6 3.26500- 2 7.20000+ 6 3.26560- 2 7.40000+ 6 3.26370- 21273 305400853
+ 7.60000+ 6 3.25520- 2 7.70000+ 6 3.24880- 2 7.70500+ 6 3.24840- 21273 305400854
+ 7.80000+ 6 3.24080- 2 8.00000+ 6 3.22000- 2 8.20000+ 6 3.19160- 21273 305400855
+ 8.25600+ 6 3.18280- 2 8.30000+ 6 3.17560- 2 8.40000+ 6 3.15840- 21273 305400856
+ 8.60000+ 6 3.12160- 2 8.80000+ 6 3.08240- 2 8.80600+ 6 3.08120- 21273 305400857
+ 8.90000+ 6 3.06160- 2 9.00000+ 6 3.04000- 2 9.20000+ 6 2.99560- 21273 305400858
+ 9.30000+ 6 2.97160- 2 9.35600+ 6 2.95760- 2 9.40000+ 6 2.94640- 21273 305400859
+ 9.50000+ 6 2.92000- 2 9.60000+ 6 2.89040- 2 9.80000+ 6 2.82760- 21273 305400860
+ 9.90000+ 6 2.79440- 2 9.90700+ 6 2.79200- 2 1.00000+ 7 2.76000- 21273 305400861
+ 1.01000+ 7 2.72560- 2 1.04000+ 7 2.61760- 2 1.04570+ 7 2.59630- 21273 305400862
+ 1.05000+ 7 2.58000- 2 1.06000+ 7 2.54160- 2 1.10000+ 7 2.38000- 21273 305400863
+ 1.10070+ 7 2.37710- 2 1.11000+ 7 2.33760- 2 1.12000+ 7 2.29440- 21273 305400864
+ 1.15000+ 7 2.16000- 2 1.15580+ 7 2.13290- 2 1.16000+ 7 2.11320- 21273 305400865
+ 1.17000+ 7 2.06580- 2 1.20000+ 7 1.92000- 2 1.21000+ 7 1.86880- 21273 305400866
+ 1.21080+ 7 1.86470- 2 1.22000+ 7 1.81820- 2 1.23000+ 7 1.76820- 21273 305400867
+ 1.25000+ 7 1.67000- 2 1.26000+ 7 1.62520- 2 1.26580+ 7 1.59990- 21273 305400868
+ 1.27000+ 7 1.58180- 2 1.28000+ 7 1.53980- 2 1.30000+ 7 1.46000- 21273 305400869
+ 1.32000+ 7 1.38380- 2 1.32090+ 7 1.38050- 2 1.33000+ 7 1.34780- 21273 305400870
+ 1.34000+ 7 1.31320- 2 1.35000+ 7 1.28000- 2 1.37000+ 7 1.22040- 21273 305400871
+ 1.37590+ 7 1.20370- 2 1.38000+ 7 1.19240- 2 1.39000+ 7 1.16560- 21273 305400872
+ 1.40000+ 7 1.14000- 2 1.43000+ 7 1.06560- 2 1.43100+ 7 1.06320- 21273 305400873
+ 1.44000+ 7 1.04240- 2 1.45000+ 7 1.02000- 2 1.48000+ 7 9.57600- 31273 305400874
+ 1.48600+ 7 9.45980- 3 1.49000+ 7 9.38400- 3 1.50000+ 7 9.20000- 31273 305400875
+ 1.54000+ 7 8.55200- 3 1.54100+ 7 8.53660- 3 1.55000+ 7 8.40000- 31273 305400876
+ 1.56000+ 7 8.23330- 3 1.59000+ 7 7.75330- 3 1.59610+ 7 7.65940- 31273 305400877
+ 1.60000+ 7 7.60000- 3 1.61000+ 7 7.47050- 3 1.65000+ 7 6.99580- 31273 305400878
+ 1.65110+ 7 6.98380- 3 1.66000+ 7 6.88800- 3 1.67000+ 7 6.78450- 31273 305400879
+ 1.70000+ 7 6.50000- 3 1.70610+ 7 6.43790- 3 1.71000+ 7 6.39880- 31273 305400880
+ 1.72000+ 7 6.30000- 3 1.75000+ 7 6.01870- 3 1.76000+ 7 5.93000- 31273 305400881
+ 1.76120+ 7 5.91950- 3 1.77000+ 7 5.84370- 3 1.78000+ 7 5.76000- 31273 305400882
+ 1.80000+ 7 5.60000- 3 1.81000+ 7 5.53100- 3 1.81620+ 7 5.48920- 31273 305400883
+ 1.82000+ 7 5.46400- 3 1.83000+ 7 5.39900- 3 1.84000+ 7 5.33600- 31273 305400884
+ 1.85000+ 7 5.27500- 3 1.87000+ 7 5.15900- 3 1.87130+ 7 5.15170- 31273 305400885
+ 1.88000+ 7 5.10400- 3 1.89000+ 7 5.05100- 3 1.90000+ 7 5.00000- 31273 305400886
+ 1.92000+ 7 4.90000- 3 1.92630+ 7 4.86850- 3 1.93000+ 7 4.85000- 31273 305400887
+ 1.94000+ 7 4.80000- 3 1.95000+ 7 4.75000- 3 1.98000+ 7 4.60000- 31273 305400888
+ 1.98130+ 7 4.59350- 3 1.99000+ 7 4.55000- 3 2.00000+ 7 4.50000- 31273 305400889
+                                                                  1273 300000890
+ 5.01000+ 3 9.92690+ 0          0          5          0          01273 305500891
+-4.46000+ 6-4.77400+ 6          0         22          1        1341273 305500892
+        134          2                                            1273 305500893
+ 5.25500+ 6 0.00000+ 0 5.40000+ 6 1.05000- 2 5.50000+ 6 1.44000- 21273 305500894
+ 5.60000+ 6 1.77680- 2 5.62900+ 6 1.86630- 2 5.68600+ 6 2.03150- 21273 305500895
+ 5.70000+ 6 2.06990- 2 5.70500+ 6 2.08340- 2 5.80000+ 6 2.31920- 21273 305500896
+ 5.90000+ 6 2.53480- 2 6.00000+ 6 2.72000- 2 6.20000+ 6 3.03480- 21273 305500897
+ 6.40000+ 6 3.26440- 2 6.50000+ 6 3.35000- 2 6.52000+ 6 3.36510- 21273 305500898
+ 6.60000+ 6 3.41860- 2 6.63600+ 6 3.43920- 2 6.70000+ 6 3.47040- 21273 305500899
+ 6.75100+ 6 3.49030- 2 6.80000+ 6 3.50480- 2 6.90000+ 6 3.52420- 21273 305500900
+ 7.00000+ 6 3.53000- 2 7.10000+ 6 3.52580- 2 7.15500+ 6 3.51910- 21273 305500901
+ 7.20000+ 6 3.51120- 2 7.40000+ 6 3.45260- 2 7.60000+ 6 3.35820- 21273 305500902
+ 7.70000+ 6 3.30080- 2 7.70500+ 6 3.29780- 2 7.80000+ 6 3.24040- 21273 305500903
+ 8.00000+ 6 3.11000- 2 8.20000+ 6 2.95200- 2 8.25600+ 6 2.90500- 21273 305500904
+ 8.30000+ 6 2.86810- 2 8.40000+ 6 2.78420- 2 8.60000+ 6 2.61690- 21273 305500905
+ 8.80000+ 6 2.45540- 2 8.80600+ 6 2.45060- 2 8.90000+ 6 2.37690- 21273 305500906
+ 9.00000+ 6 2.30000- 2 9.20000+ 6 2.15280- 2 9.30000+ 6 2.08280- 21273 305500907
+ 9.35600+ 6 2.04460- 2 9.40000+ 6 2.01520- 2 9.50000+ 6 1.95000- 21273 305500908
+ 9.60000+ 6 1.88760- 2 9.80000+ 6 1.77240- 2 9.90000+ 6 1.71960- 21273 305500909
+ 9.90700+ 6 1.71600- 2 1.00000+ 7 1.67000- 2 1.01000+ 7 1.62800- 21273 305500910
+ 1.04000+ 7 1.51400- 2 1.04570+ 7 1.49440- 2 1.05000+ 7 1.48000- 21273 305500911
+ 1.06000+ 7 1.44240- 2 1.10000+ 7 1.30000- 2 1.10070+ 7 1.29770- 21273 305500912
+ 1.11000+ 7 1.26800- 2 1.12000+ 7 1.23700- 2 1.15000+ 7 1.15000- 21273 305500913
+ 1.15580+ 7 1.13420- 2 1.16000+ 7 1.12280- 2 1.17000+ 7 1.09620- 21273 305500914
+ 1.20000+ 7 1.02000- 2 1.21000+ 7 9.95600- 3 1.21080+ 7 9.93660- 31273 305500915
+ 1.22000+ 7 9.71400- 3 1.23000+ 7 9.47400- 3 1.25000+ 7 9.00000- 31273 305500916
+ 1.26000+ 7 8.75000- 3 1.26580+ 7 8.60730- 3 1.27000+ 7 8.50500- 31273 305500917
+ 1.28000+ 7 8.26500- 3 1.30000+ 7 7.80000- 3 1.32000+ 7 7.40500- 31273 305500918
+ 1.32090+ 7 7.38770- 3 1.33000+ 7 7.21500- 3 1.34000+ 7 7.03000- 31273 305500919
+ 1.35000+ 7 6.85000- 3 1.37000+ 7 6.46100- 3 1.37590+ 7 6.34850- 31273 305500920
+ 1.38000+ 7 6.27100- 3 1.39000+ 7 6.08400- 3 1.40000+ 7 5.90000- 31273 305500921
+ 1.43000+ 7 5.41100- 3 1.43100+ 7 5.39520- 3 1.44000+ 7 5.25400- 31273 305500922
+ 1.45000+ 7 5.10000- 3 1.48000+ 7 4.62000- 3 1.48600+ 7 4.52400- 31273 305500923
+ 1.49000+ 7 4.46000- 3 1.50000+ 7 4.30000- 3 1.54000+ 7 3.64800- 31273 305500924
+ 1.54100+ 7 3.63290- 3 1.55000+ 7 3.50000- 3 1.56000+ 7 3.38400- 31273 305500925
+ 1.59000+ 7 3.08400- 3 1.59610+ 7 3.03180- 3 1.60000+ 7 3.00000- 31273 305500926
+ 1.61000+ 7 2.91420- 3 1.65000+ 7 2.60620- 3 1.65110+ 7 2.59860- 31273 305500927
+ 1.66000+ 7 2.53800- 3 1.67000+ 7 2.47320- 3 1.70000+ 7 2.30000- 31273 305500928
+ 1.70610+ 7 2.26990- 3 1.71000+ 7 2.25100- 3 1.72000+ 7 2.20400- 31273 305500929
+ 1.75000+ 7 2.07500- 3 1.76000+ 7 2.03600- 3 1.76120+ 7 2.03150- 31273 305500930
+ 1.77000+ 7 1.99900- 3 1.78000+ 7 1.96400- 3 1.80000+ 7 1.90000- 31273 305500931
+ 1.81000+ 7 1.86320- 3 1.81620+ 7 1.84120- 3 1.82000+ 7 1.82800- 31273 305500932
+ 1.83000+ 7 1.79420- 3 1.84000+ 7 1.76200- 3 1.85000+ 7 1.73120- 31273 305500933
+ 1.87000+ 7 1.67420- 3 1.87130+ 7 1.67080- 3 1.88000+ 7 1.64800- 31273 305500934
+ 1.89000+ 7 1.62320- 3 1.90000+ 7 1.60000- 3 1.92000+ 7 1.58000- 31273 305500935
+ 1.92630+ 7 1.57370- 3 1.93000+ 7 1.57000- 3 1.94000+ 7 1.56000- 31273 305500936
+ 1.95000+ 7 1.55000- 3 1.98000+ 7 1.52000- 3 1.98130+ 7 1.51870- 31273 305500937
+ 1.99000+ 7 1.51000- 3 2.00000+ 7 1.50000- 3                      1273 305500938
+                                                                  1273 300000939
+ 5.01000+ 3 9.92690+ 0          0          6          0          01273 305600940
+-4.46000+ 6-5.11400+ 6          0         22          1        1301273 305600941
+        130          2                                            1273 305600942
+ 5.62900+ 6 0.00000+ 0 5.68600+ 6 9.75120- 4 5.70000+ 6 1.21460- 31273 305600943
+ 5.70500+ 6 1.30020- 3 5.80000+ 6 2.48950- 3 5.90000+ 6 3.05020- 31273 305600944
+ 6.00000+ 6 3.24000- 3 6.20000+ 6 3.84480- 3 6.40000+ 6 4.24080- 31273 305600945
+ 6.50000+ 6 4.41000- 3 6.52000+ 6 4.45490- 3 6.60000+ 6 4.63140- 31273 305600946
+ 6.63600+ 6 4.70930- 3 6.70000+ 6 4.84560- 3 6.75100+ 6 4.95160- 31273 305600947
+ 6.80000+ 6 5.02740- 3 6.90000+ 6 5.17410- 3 7.00000+ 6 5.31000- 31273 305600948
+ 7.10000+ 6 5.47790- 3 7.15500+ 6 5.56690- 3 7.20000+ 6 5.63800- 31273 305600949
+ 7.40000+ 6 5.88190- 3 7.60000+ 6 6.07120- 3 7.70000+ 6 6.16430- 31273 305600950
+ 7.70500+ 6 6.16890- 3 7.80000+ 6 6.26400- 3 8.00000+ 6 6.44400- 31273 305600951
+ 8.20000+ 6 6.49660- 3 8.25600+ 6 6.49840- 3 8.30000+ 6 6.50090- 31273 305600952
+ 8.40000+ 6 6.50230- 3 8.60000+ 6 6.49350- 3 8.80000+ 6 6.47460- 31273 305600953
+ 8.80600+ 6 6.47380- 3 8.90000+ 6 6.45840- 3 9.00000+ 6 6.43500- 31273 305600954
+ 9.20000+ 6 6.35150- 3 9.30000+ 6 6.30650- 3 9.35600+ 6 6.28180- 31273 305600955
+ 9.40000+ 6 6.26110- 3 9.50000+ 6 6.21000- 3 9.60000+ 6 6.14500- 31273 305600956
+ 9.80000+ 6 5.98560- 3 9.90000+ 6 5.89320- 3 9.90700+ 6 5.88660- 31273 305600957
+ 1.00000+ 7 5.79600- 3 1.01000+ 7 5.69830- 3 1.04000+ 7 5.40670- 31273 305600958
+ 1.04570+ 7 5.35160- 3 1.05000+ 7 5.31000- 3 1.06000+ 7 5.22220- 31273 305600959
+ 1.10000+ 7 4.86000- 3 1.10070+ 7 4.85220- 3 1.11000+ 7 4.74910- 31273 305600960
+ 1.12000+ 7 4.63970- 3 1.15000+ 7 4.32000- 3 1.15580+ 7 4.27220- 31273 305600961
+ 1.16000+ 7 4.23830- 3 1.17000+ 7 4.15960- 3 1.20000+ 7 3.94200- 31273 305600962
+ 1.21000+ 7 3.86240- 3 1.21080+ 7 3.85610- 3 1.22000+ 7 3.78400- 31273 305600963
+ 1.23000+ 7 3.70660- 3 1.25000+ 7 3.55500- 3 1.26000+ 7 3.48800- 31273 305600964
+ 1.26580+ 7 3.44970- 3 1.27000+ 7 3.42220- 3 1.28000+ 7 3.35740- 31273 305600965
+ 1.30000+ 7 3.23100- 3 1.32000+ 7 3.09130- 3 1.32090+ 7 3.08520- 31273 305600966
+ 1.33000+ 7 3.02470- 3 1.34000+ 7 2.96030- 3 1.35000+ 7 2.89800- 31273 305600967
+ 1.37000+ 7 2.80670- 3 1.37590+ 7 2.78110- 3 1.38000+ 7 2.76350- 31273 305600968
+ 1.39000+ 7 2.72200- 3 1.40000+ 7 2.68200- 3 1.43000+ 7 2.53080- 31273 305600969
+ 1.43100+ 7 2.52580- 3 1.44000+ 7 2.48040- 3 1.45000+ 7 2.43000- 31273 305600970
+ 1.48000+ 7 2.29550- 3 1.48600+ 7 2.27040- 3 1.49000+ 7 2.25400- 31273 305600971
+ 1.50000+ 7 2.21400- 3 1.54000+ 7 2.07470- 3 1.54100+ 7 2.07150- 31273 305600972
+ 1.55000+ 7 2.04300- 3 1.56000+ 7 2.01140- 3 1.59000+ 7 1.91960- 31273 305600973
+ 1.59610+ 7 1.90150- 3 1.60000+ 7 1.89000- 3 1.61000+ 7 1.85990- 31273 305600974
+ 1.65000+ 7 1.74230- 3 1.65110+ 7 1.73910- 3 1.66000+ 7 1.71360- 31273 305600975
+ 1.67000+ 7 1.68530- 3 1.70000+ 7 1.60200- 3 1.70610+ 7 1.58640- 31273 305600976
+ 1.71000+ 7 1.57640- 3 1.72000+ 7 1.55090- 3 1.75000+ 7 1.47490- 31273 305600977
+ 1.76000+ 7 1.44970- 3 1.76120+ 7 1.44670- 3 1.77000+ 7 1.42470- 31273 305600978
+ 1.78000+ 7 1.39970- 3 1.80000+ 7 1.35000- 3 1.81000+ 7 1.32140- 31273 305600979
+ 1.81620+ 7 1.30380- 3 1.82000+ 7 1.29310- 3 1.83000+ 7 1.26520- 31273 305600980
+ 1.84000+ 7 1.23770- 3 1.85000+ 7 1.21050- 3 1.87000+ 7 1.15720- 31273 305600981
+ 1.87130+ 7 1.15380- 3 1.88000+ 7 1.13110- 3 1.89000+ 7 1.10540- 31273 305600982
+ 1.90000+ 7 1.08000- 3 1.92000+ 7 1.04400- 3 1.92630+ 7 1.03270- 31273 305600983
+ 1.93000+ 7 1.02600- 3 1.94000+ 7 1.00800- 3 1.95000+ 7 9.90000- 41273 305600984
+ 1.98000+ 7 9.36000- 4 1.98130+ 7 9.33660- 4 1.99000+ 7 9.18000- 41273 305600985
+ 2.00000+ 7 9.00000- 4                                            1273 305600986
+                                                                  1273 300000987
+ 5.01000+ 3 9.92690+ 0          0          7          0          01273 305700988
+ 0.00000+ 0-5.16600+ 6          0         31          1        1291273 305700989
+        129          2                                            1273 305700990
+ 5.68600+ 6 0.00000+ 0 5.70000+ 6 7.87500- 4 5.70500+ 6 1.06870- 31273 305700991
+ 5.80000+ 6 5.37150- 3 5.90000+ 6 7.93120- 3 6.00000+ 6 9.18000- 31273 305700992
+ 6.20000+ 6 1.14880- 2 6.40000+ 6 1.30850- 2 6.50000+ 6 1.37700- 21273 305700993
+ 6.52000+ 6 1.39010- 2 6.60000+ 6 1.44090- 2 6.63600+ 6 1.46280- 21273 305700994
+ 6.70000+ 6 1.50020- 2 6.75100+ 6 1.52880- 2 6.80000+ 6 1.55580- 21273 305700995
+ 6.90000+ 6 1.60940- 2 7.00000+ 6 1.66050- 2 7.10000+ 6 1.71120- 21273 305700996
+ 7.15500+ 6 1.73790- 2 7.20000+ 6 1.75910- 2 7.40000+ 6 1.84320- 21273 305700997
+ 7.60000+ 6 1.91090- 2 7.70000+ 6 1.93970- 2 7.70500+ 6 1.94100- 21273 305700998
+ 7.80000+ 6 1.96700- 2 8.00000+ 6 2.01420- 2 8.20000+ 6 2.03900- 21273 305700999
+ 8.25600+ 6 2.04360- 2 8.30000+ 6 2.04750- 2 8.40000+ 6 2.05510- 21273 305701000
+ 8.60000+ 6 2.06540- 2 8.80000+ 6 2.06780- 2 8.80600+ 6 2.06770- 21273 305701001
+ 8.90000+ 6 2.06540- 2 9.00000+ 6 2.06100- 2 9.20000+ 6 2.04740- 21273 305701002
+ 9.30000+ 6 2.03870- 2 9.35600+ 6 2.03320- 2 9.40000+ 6 2.02840- 21273 305701003
+ 9.50000+ 6 2.01600- 2 9.60000+ 6 1.99910- 2 9.80000+ 6 1.96260- 21273 305701004
+ 9.90000+ 6 1.94490- 2 9.90700+ 6 1.94360- 2 1.00000+ 7 1.92600- 21273 305701005
+ 1.01000+ 7 1.90250- 2 1.04000+ 7 1.82150- 2 1.04570+ 7 1.80430- 21273 305701006
+ 1.05000+ 7 1.79100- 2 1.06000+ 7 1.75930- 2 1.10000+ 7 1.62900- 21273 305701007
+ 1.10070+ 7 1.62680- 2 1.11000+ 7 1.59780- 2 1.12000+ 7 1.56680- 21273 305701008
+ 1.15000+ 7 1.47600- 2 1.15580+ 7 1.45880- 2 1.16000+ 7 1.44640- 21273 305701009
+ 1.17000+ 7 1.41700- 2 1.20000+ 7 1.33020- 2 1.21000+ 7 1.30060- 21273 305701010
+ 1.21080+ 7 1.29830- 2 1.22000+ 7 1.27160- 2 1.23000+ 7 1.24320- 21273 305701011
+ 1.25000+ 7 1.18800- 2 1.26000+ 7 1.16320- 2 1.26580+ 7 1.14920- 21273 305701012
+ 1.27000+ 7 1.13910- 2 1.28000+ 7 1.11570- 2 1.30000+ 7 1.07100- 21273 305701013
+ 1.32000+ 7 1.02560- 2 1.32090+ 7 1.02370- 2 1.33000+ 7 1.00400- 21273 305701014
+ 1.34000+ 7 9.83160- 3 1.35000+ 7 9.63000- 3 1.37000+ 7 9.28440- 31273 305701015
+ 1.37590+ 7 9.18790- 3 1.38000+ 7 9.12240- 3 1.39000+ 7 8.96760- 31273 305701016
+ 1.40000+ 7 8.82000- 3 1.43000+ 7 8.38260- 3 1.43100+ 7 8.36830- 31273 305701017
+ 1.44000+ 7 8.24040- 3 1.45000+ 7 8.10000- 3 1.48000+ 7 7.66260- 31273 305701018
+ 1.48600+ 7 7.57710- 3 1.49000+ 7 7.52040- 3 1.50000+ 7 7.38000- 31273 305701019
+ 1.54000+ 7 6.86880- 3 1.54100+ 7 6.85680- 3 1.55000+ 7 6.75000- 31273 305701020
+ 1.56000+ 7 6.63620- 3 1.59000+ 7 6.31220- 3 1.59610+ 7 6.24950- 31273 305701021
+ 1.60000+ 7 6.21000- 3 1.61000+ 7 6.11050- 3 1.65000+ 7 5.72960- 31273 305701022
+ 1.65110+ 7 5.71950- 3 1.66000+ 7 5.63870- 3 1.67000+ 7 5.54940- 31273 305701023
+ 1.70000+ 7 5.29200- 3 1.70610+ 7 5.24110- 3 1.71000+ 7 5.20880- 31273 305701024
+ 1.72000+ 7 5.12640- 3 1.75000+ 7 4.88480- 3 1.76000+ 7 4.80600- 31273 305701025
+ 1.76120+ 7 4.79660- 3 1.77000+ 7 4.72820- 3 1.78000+ 7 4.65120- 31273 305701026
+ 1.80000+ 7 4.50000- 3 1.81000+ 7 4.42620- 3 1.81620+ 7 4.38040- 31273 305701027
+ 1.82000+ 7 4.35240- 3 1.83000+ 7 4.27860- 3 1.84000+ 7 4.20480- 31273 305701028
+ 1.85000+ 7 4.13100- 3 1.87000+ 7 3.98340- 3 1.87130+ 7 3.97380- 31273 305701029
+ 1.88000+ 7 3.90960- 3 1.89000+ 7 3.83580- 3 1.90000+ 7 3.76200- 31273 305701030
+ 1.92000+ 7 3.60360- 3 1.92630+ 7 3.55370- 3 1.93000+ 7 3.52440- 31273 305701031
+ 1.94000+ 7 3.44520- 3 1.95000+ 7 3.36600- 3 1.98000+ 7 3.12840- 31273 305701032
+ 1.98130+ 7 3.11810- 3 1.99000+ 7 3.04920- 3 2.00000+ 7 2.97000- 31273 305701033
+                                                                  1273 300001034
+ 5.01000+ 3 9.92690+ 0          0          8          0          01273 305801035
+-4.46000+ 6-5.18300+ 6          0         22          1        1271273 305801036
+        127          2                                            1273 305801037
+ 5.70500+ 6 0.00000+ 0 5.80000+ 6 6.79980- 4 5.90000+ 6 1.09200- 31273 305801038
+ 6.00000+ 6 1.29600- 3 6.20000+ 6 1.71830- 3 6.40000+ 6 2.06570- 31273 305801039
+ 6.50000+ 6 2.22300- 3 6.52000+ 6 2.25010- 3 6.60000+ 6 2.35400- 31273 305801040
+ 6.63600+ 6 2.39840- 3 6.70000+ 6 2.47360- 3 6.75100+ 6 2.53020- 31273 305801041
+ 6.80000+ 6 2.58770- 3 6.90000+ 6 2.70070- 3 7.00000+ 6 2.80800- 31273 305801042
+ 7.10000+ 6 2.90650- 3 7.15500+ 6 2.95790- 3 7.20000+ 6 2.99840- 31273 305801043
+ 7.40000+ 6 3.16400- 3 7.60000+ 6 3.31470- 3 7.70000+ 6 3.38580- 31273 305801044
+ 7.70500+ 6 3.38930- 3 7.80000+ 6 3.45420- 3 8.00000+ 6 3.57300- 31273 305801045
+ 8.20000+ 6 3.64930- 3 8.25600+ 6 3.66430- 3 8.30000+ 6 3.67380- 31273 305801046
+ 8.40000+ 6 3.69270- 3 8.60000+ 6 3.72820- 3 8.80000+ 6 3.75770- 31273 305801047
+ 8.80600+ 6 3.75810- 3 8.90000+ 6 3.76270- 3 9.00000+ 6 3.76200- 31273 305801048
+ 9.20000+ 6 3.74260- 3 9.30000+ 6 3.72780- 3 9.35600+ 6 3.71870- 31273 305801049
+ 9.40000+ 6 3.71070- 3 9.50000+ 6 3.69000- 3 9.60000+ 6 3.66230- 31273 305801050
+ 9.80000+ 6 3.60540- 3 9.90000+ 6 3.58020- 3 9.90700+ 6 3.57840- 31273 305801051
+ 1.00000+ 7 3.55500- 3 1.01000+ 7 3.52910- 3 1.04000+ 7 3.43730- 31273 305801052
+ 1.04570+ 7 3.41750- 3 1.05000+ 7 3.40200- 3 1.06000+ 7 3.35840- 31273 305801053
+ 1.10000+ 7 3.16800- 3 1.10070+ 7 3.16490- 3 1.11000+ 7 3.12300- 31273 305801054
+ 1.12000+ 7 3.07710- 3 1.15000+ 7 2.93400- 3 1.15580+ 7 2.90190- 31273 305801055
+ 1.16000+ 7 2.87860- 3 1.17000+ 7 2.82290- 3 1.20000+ 7 2.65500- 31273 305801056
+ 1.21000+ 7 2.60530- 3 1.21080+ 7 2.60140- 3 1.22000+ 7 2.55620- 31273 305801057
+ 1.23000+ 7 2.50760- 3 1.25000+ 7 2.41200- 3 1.26000+ 7 2.35980- 31273 305801058
+ 1.26580+ 7 2.32990- 3 1.27000+ 7 2.30850- 3 1.28000+ 7 2.25810- 31273 305801059
+ 1.30000+ 7 2.16000- 3 1.32000+ 7 2.07650- 3 1.32090+ 7 2.07290- 31273 305801060
+ 1.33000+ 7 2.03690- 3 1.34000+ 7 1.99870- 3 1.35000+ 7 1.96200- 31273 305801061
+ 1.37000+ 7 1.88780- 3 1.37590+ 7 1.86650- 3 1.38000+ 7 1.85180- 31273 305801062
+ 1.39000+ 7 1.81660- 3 1.40000+ 7 1.78200- 3 1.43000+ 7 1.68210- 31273 305801063
+ 1.43100+ 7 1.67890- 3 1.44000+ 7 1.65060- 3 1.45000+ 7 1.62000- 31273 305801064
+ 1.48000+ 7 1.53680- 3 1.48600+ 7 1.52100- 3 1.49000+ 7 1.51060- 31273 305801065
+ 1.50000+ 7 1.48500- 3 1.54000+ 7 1.38280- 3 1.54100+ 7 1.38040- 31273 305801066
+ 1.55000+ 7 1.35900- 3 1.56000+ 7 1.33800- 3 1.59000+ 7 1.27860- 31273 305801067
+ 1.59610+ 7 1.26720- 3 1.60000+ 7 1.26000- 3 1.61000+ 7 1.24040- 31273 305801068
+ 1.65000+ 7 1.16360- 3 1.65110+ 7 1.16150- 3 1.66000+ 7 1.14480- 31273 305801069
+ 1.67000+ 7 1.12610- 3 1.70000+ 7 1.07100- 3 1.70610+ 7 1.06030- 31273 305801070
+ 1.71000+ 7 1.05350- 3 1.72000+ 7 1.03610- 3 1.75000+ 7 9.84370- 41273 305801071
+ 1.76000+ 7 9.67320- 4 1.76120+ 7 9.65280- 4 1.77000+ 7 9.50350- 41273 305801072
+ 1.78000+ 7 9.33480- 4 1.80000+ 7 9.00000- 4 1.81000+ 7 8.81480- 41273 305801073
+ 1.81620+ 7 8.70160- 4 1.82000+ 7 8.63280- 4 1.83000+ 7 8.45390- 41273 305801074
+ 1.84000+ 7 8.27820- 4 1.85000+ 7 8.10560- 4 1.87000+ 7 7.76990- 41273 305801075
+ 1.87130+ 7 7.74850- 4 1.88000+ 7 7.60680- 4 1.89000+ 7 7.44680- 41273 305801076
+ 1.90000+ 7 7.29000- 4 1.92000+ 7 7.07400- 4 1.92630+ 7 7.00600- 41273 305801077
+ 1.93000+ 7 6.96600- 4 1.94000+ 7 6.85800- 4 1.95000+ 7 6.75000- 41273 305801078
+ 1.98000+ 7 6.42600- 4 1.98130+ 7 6.41200- 4 1.99000+ 7 6.31800- 41273 305801079
+ 2.00000+ 7 6.21000- 4                                            1273 305801080
+                                                                  1273 300001081
+ 5.01000+ 3 9.92690+ 0          0          9          0          01273 305901082
+-4.46000+ 6-5.92300+ 6          0         22          1        1201273 305901083
+        120          2                                            1273 305901084
+ 6.52000+ 6 0.00000+ 0 6.60000+ 6 1.90960- 3 6.63600+ 6 2.76890- 31273 305901085
+ 6.70000+ 6 4.29650- 3 6.75100+ 6 5.50890- 3 6.80000+ 6 6.39830- 31273 305901086
+ 6.90000+ 6 7.98650- 3 7.00000+ 6 9.27000- 3 7.10000+ 6 1.02940- 21273 305901087
+ 7.15500+ 6 1.07870- 2 7.20000+ 6 1.11530- 2 7.40000+ 6 1.26160- 21273 305901088
+ 7.60000+ 6 1.37050- 2 7.70000+ 6 1.41230- 2 7.70500+ 6 1.41420- 21273 305901089
+ 7.80000+ 6 1.45150- 2 8.00000+ 6 1.53000- 2 8.20000+ 6 1.60310- 21273 305901090
+ 8.25600+ 6 1.62180- 2 8.30000+ 6 1.63510- 2 8.40000+ 6 1.66430- 21273 305901091
+ 8.60000+ 6 1.72130- 2 8.80000+ 6 1.77770- 2 8.80600+ 6 1.77930- 21273 305901092
+ 8.90000+ 6 1.80340- 2 9.00000+ 6 1.82700- 2 9.20000+ 6 1.86410- 21273 305901093
+ 9.30000+ 6 1.88000- 2 9.35600+ 6 1.88850- 2 9.40000+ 6 1.89480- 21273 305901094
+ 9.50000+ 6 1.90800- 2 9.60000+ 6 1.91970- 2 9.80000+ 6 1.93630- 21273 305901095
+ 9.90000+ 6 1.94060- 2 9.90700+ 6 1.94080- 2 1.00000+ 7 1.94220- 21273 305901096
+ 1.01000+ 7 1.93970- 2 1.04000+ 7 1.91910- 2 1.04570+ 7 1.91310- 21273 305901097
+ 1.05000+ 7 1.90800- 2 1.06000+ 7 1.89660- 2 1.10000+ 7 1.83600- 21273 305901098
+ 1.10070+ 7 1.83460- 2 1.11000+ 7 1.81550- 2 1.12000+ 7 1.79440- 21273 305901099
+ 1.15000+ 7 1.72800- 2 1.15580+ 7 1.71620- 2 1.16000+ 7 1.70770- 21273 305901100
+ 1.17000+ 7 1.68760- 2 1.20000+ 7 1.62900- 2 1.21000+ 7 1.60910- 21273 305901101
+ 1.21080+ 7 1.60750- 2 1.22000+ 7 1.58950- 2 1.23000+ 7 1.57050- 21273 305901102
+ 1.25000+ 7 1.53360- 2 1.26000+ 7 1.51730- 2 1.26580+ 7 1.50800- 21273 305901103
+ 1.27000+ 7 1.50140- 2 1.28000+ 7 1.48590- 2 1.30000+ 7 1.45620- 21273 305901104
+ 1.32000+ 7 1.42570- 2 1.32090+ 7 1.42440- 2 1.33000+ 7 1.41080- 21273 305901105
+ 1.34000+ 7 1.39600- 2 1.35000+ 7 1.38150- 2 1.37000+ 7 1.35380- 21273 305901106
+ 1.37590+ 7 1.34580- 2 1.38000+ 7 1.34030- 2 1.39000+ 7 1.32700- 21273 305901107
+ 1.40000+ 7 1.31400- 2 1.43000+ 7 1.27550- 2 1.43100+ 7 1.27430- 21273 305901108
+ 1.44000+ 7 1.26310- 2 1.45000+ 7 1.25100- 2 1.48000+ 7 1.21700- 21273 305901109
+ 1.48600+ 7 1.21040- 2 1.49000+ 7 1.20600- 2 1.50000+ 7 1.19520- 21273 305901110
+ 1.54000+ 7 1.15190- 2 1.54100+ 7 1.15080- 2 1.55000+ 7 1.14120- 21273 305901111
+ 1.56000+ 7 1.13050- 2 1.59000+ 7 1.09920- 2 1.59610+ 7 1.09300- 21273 305901112
+ 1.60000+ 7 1.08900- 2 1.61000+ 7 1.07980- 2 1.65000+ 7 1.04340- 21273 305901113
+ 1.65110+ 7 1.04240- 2 1.66000+ 7 1.03440- 2 1.67000+ 7 1.02550- 21273 305901114
+ 1.70000+ 7 9.99000- 3 1.70610+ 7 9.93090- 3 1.71000+ 7 9.89300- 31273 305901115
+ 1.72000+ 7 9.79560- 3 1.75000+ 7 9.50060- 3 1.76000+ 7 9.40140- 31273 305901116
+ 1.76120+ 7 9.38950- 3 1.77000+ 7 9.30170- 3 1.78000+ 7 9.20160- 31273 305901117
+ 1.80000+ 7 9.00000- 3 1.81000+ 7 8.89900- 3 1.81620+ 7 8.83660- 31273 305901118
+ 1.82000+ 7 8.79840- 3 1.83000+ 7 8.69830- 3 1.84000+ 7 8.59860- 31273 305901119
+ 1.85000+ 7 8.49940- 3 1.87000+ 7 8.30230- 3 1.87130+ 7 8.28950- 31273 305901120
+ 1.88000+ 7 8.20440- 3 1.89000+ 7 8.10700- 3 1.90000+ 7 8.01000- 31273 305901121
+ 1.92000+ 7 7.83000- 3 1.92630+ 7 7.77330- 3 1.93000+ 7 7.74000- 31273 305901122
+ 1.94000+ 7 7.65000- 3 1.95000+ 7 7.56000- 3 1.98000+ 7 7.29000- 31273 305901123
+ 1.98130+ 7 7.27830- 3 1.99000+ 7 7.20000- 3 2.00000+ 7 7.11000- 31273 305901124
+                                                                  1273 300001125
+ 5.01000+ 3 9.92690+ 0          0         10          0          01273 306001126
+-4.46000+ 6-6.02900+ 6          0         22          1        1181273 306001127
+        118          2                                            1273 306001128
+ 6.63600+ 6 0.00000+ 0 6.70000+ 6 1.01050- 2 6.75100+ 6 1.81050- 21273 306001129
+ 6.80000+ 6 2.28900- 2 6.90000+ 6 3.03300- 2 7.00000+ 6 3.46500- 21273 306001130
+ 7.10000+ 6 3.89250- 2 7.15500+ 6 4.08930- 2 7.20000+ 6 4.23000- 21273 306001131
+ 7.40000+ 6 4.71980- 2 7.60000+ 6 5.07760- 2 7.70000+ 6 5.22650- 21273 306001132
+ 7.70500+ 6 5.23330- 2 7.80000+ 6 5.34530- 2 8.00000+ 6 5.53500- 21273 306001133
+ 8.20000+ 6 5.75350- 2 8.25600+ 6 5.81000- 2 8.30000+ 6 5.84570- 21273 306001134
+ 8.40000+ 6 5.92000- 2 8.60000+ 6 6.05110- 2 8.80000+ 6 6.16070- 21273 306001135
+ 8.80600+ 6 6.16330- 2 8.90000+ 6 6.20170- 2 9.00000+ 6 6.23700- 21273 306001136
+ 9.20000+ 6 6.30470- 2 9.30000+ 6 6.32700- 2 9.35600+ 6 6.33490- 21273 306001137
+ 9.40000+ 6 6.33960- 2 9.50000+ 6 6.34500- 2 9.60000+ 6 6.34570- 21273 306001138
+ 9.80000+ 6 6.32940- 2 9.90000+ 6 6.31260- 2 9.90700+ 6 6.31120- 21273 306001139
+ 1.00000+ 7 6.29100- 2 1.01000+ 7 6.26600- 2 1.04000+ 7 6.16880- 21273 306001140
+ 1.04570+ 7 6.14660- 2 1.05000+ 7 6.12900- 2 1.06000+ 7 6.08400- 21273 306001141
+ 1.10000+ 7 5.87700- 2 1.10070+ 7 5.87300- 2 1.11000+ 7 5.81900- 21273 306001142
+ 1.12000+ 7 5.76040- 2 1.15000+ 7 5.58000- 2 1.15580+ 7 5.54590- 21273 306001143
+ 1.16000+ 7 5.52130- 2 1.17000+ 7 5.46320- 2 1.20000+ 7 5.29200- 21273 306001144
+ 1.21000+ 7 5.23660- 2 1.21080+ 7 5.23220- 2 1.22000+ 7 5.18180- 21273 306001145
+ 1.23000+ 7 5.12780- 2 1.25000+ 7 5.02200- 2 1.26000+ 7 4.97050- 21273 306001146
+ 1.26580+ 7 4.94090- 2 1.27000+ 7 4.91960- 2 1.28000+ 7 4.86920- 21273 306001147
+ 1.30000+ 7 4.77000- 2 1.32000+ 7 4.67170- 2 1.32090+ 7 4.66730- 21273 306001148
+ 1.33000+ 7 4.62310- 2 1.34000+ 7 4.57490- 2 1.35000+ 7 4.52700- 21273 306001149
+ 1.37000+ 7 4.43230- 2 1.37590+ 7 4.40470- 2 1.38000+ 7 4.38550- 21273 306001150
+ 1.39000+ 7 4.33910- 2 1.40000+ 7 4.29300- 2 1.43000+ 7 4.15690- 21273 306001151
+ 1.43100+ 7 4.15240- 2 1.44000+ 7 4.11230- 2 1.45000+ 7 4.06800- 21273 306001152
+ 1.48000+ 7 3.93790- 2 1.48600+ 7 3.91200- 2 1.49000+ 7 3.89480- 21273 306001153
+ 1.50000+ 7 3.85200- 2 1.54000+ 7 3.67920- 2 1.54100+ 7 3.67490- 21273 306001154
+ 1.55000+ 7 3.63600- 2 1.56000+ 7 3.59220- 2 1.59000+ 7 3.46260- 21273 306001155
+ 1.59610+ 7 3.43660- 2 1.60000+ 7 3.42000- 2 1.61000+ 7 3.37930- 21273 306001156
+ 1.65000+ 7 3.22110- 2 1.65110+ 7 3.21680- 2 1.66000+ 7 3.18260- 21273 306001157
+ 1.67000+ 7 3.14450- 2 1.70000+ 7 3.03300- 2 1.70610+ 7 3.01030- 21273 306001158
+ 1.71000+ 7 2.99580- 2 1.72000+ 7 2.95880- 2 1.75000+ 7 2.84960- 21273 306001159
+ 1.76000+ 7 2.81380- 2 1.76120+ 7 2.80950- 2 1.77000+ 7 2.77820- 21273 306001160
+ 1.78000+ 7 2.74280- 2 1.80000+ 7 2.67300- 2 1.81000+ 7 2.63910- 21273 306001161
+ 1.81620+ 7 2.61810- 2 1.82000+ 7 2.60530- 2 1.83000+ 7 2.57170- 21273 306001162
+ 1.84000+ 7 2.53820- 2 1.85000+ 7 2.50480- 2 1.87000+ 7 2.43850- 21273 306001163
+ 1.87130+ 7 2.43420- 2 1.88000+ 7 2.40550- 2 1.89000+ 7 2.37270- 21273 306001164
+ 1.90000+ 7 2.34000- 2 1.92000+ 7 2.27340- 2 1.92630+ 7 2.25240- 21273 306001165
+ 1.93000+ 7 2.24010- 2 1.94000+ 7 2.20680- 2 1.95000+ 7 2.17350- 21273 306001166
+ 1.98000+ 7 2.07360- 2 1.98130+ 7 2.06930- 2 1.99000+ 7 2.04030- 21273 306001167
+ 2.00000+ 7 2.00700- 2                                            1273 306001168
+                                                                  1273 300001169
+ 5.01000+ 3 9.92690+ 0          0         11          0          01273 306101170
+-4.46000+ 6-6.13300+ 6          0         22          1        1161273 306101171
+        116          2                                            1273 306101172
+ 6.75100+ 6 0.00000+ 0 6.80000+ 6 5.52360- 4 6.90000+ 6 1.52380- 31273 306101173
+ 7.00000+ 6 2.16000- 3 7.10000+ 6 2.65770- 3 7.15500+ 6 2.89410- 31273 306101174
+ 7.20000+ 6 3.06780- 3 7.40000+ 6 3.75300- 3 7.60000+ 6 4.31280- 31273 306101175
+ 7.70000+ 6 4.56120- 3 7.70500+ 6 4.57320- 3 7.80000+ 6 4.81320- 31273 306101176
+ 8.00000+ 6 5.31000- 3 8.20000+ 6 5.67720- 3 8.25600+ 6 5.77130- 31273 306101177
+ 8.30000+ 6 5.85360- 3 8.40000+ 6 6.03540- 3 8.60000+ 6 6.35940- 31273 306101178
+ 8.80000+ 6 6.64340- 3 8.80600+ 6 6.65220- 3 8.90000+ 6 6.78820- 31273 306101179
+ 9.00000+ 6 6.93000- 3 9.20000+ 6 7.19280- 3 9.30000+ 6 7.31590- 31273 306101180
+ 9.35600+ 6 7.38060- 3 9.40000+ 6 7.42790- 3 9.50000+ 6 7.52400- 31273 306101181
+ 9.60000+ 6 7.58300- 3 9.80000+ 6 7.67780- 3 9.90000+ 6 7.72960- 31273 306101182
+ 9.90700+ 6 7.73300- 3 1.00000+ 7 7.77600- 3 1.01000+ 7 7.80670- 31273 306101183
+ 1.04000+ 7 7.83910- 3 1.04570+ 7 7.83510- 3 1.05000+ 7 7.83000- 31273 306101184
+ 1.06000+ 7 7.80700- 3 1.10000+ 7 7.65000- 3 1.10070+ 7 7.64680- 31273 306101185
+ 1.11000+ 7 7.60320- 3 1.12000+ 7 7.55280- 3 1.15000+ 7 7.38000- 31273 306101186
+ 1.15580+ 7 7.34050- 3 1.16000+ 7 7.31160- 3 1.17000+ 7 7.24140- 31273 306101187
+ 1.20000+ 7 7.02000- 3 1.21000+ 7 6.94440- 3 1.21080+ 7 6.93840- 31273 306101188
+ 1.22000+ 7 6.87060- 3 1.23000+ 7 6.79860- 3 1.25000+ 7 6.66000- 31273 306101189
+ 1.26000+ 7 6.60170- 3 1.26580+ 7 6.56880- 3 1.27000+ 7 6.54550- 31273 306101190
+ 1.28000+ 7 6.49150- 3 1.30000+ 7 6.39000- 3 1.32000+ 7 6.28600- 31273 306101191
+ 1.32090+ 7 6.28140- 3 1.33000+ 7 6.23560- 3 1.34000+ 7 6.18620- 31273 306101192
+ 1.35000+ 7 6.13800- 3 1.37000+ 7 6.05000- 3 1.37590+ 7 6.02440- 31273 306101193
+ 1.38000+ 7 6.00680- 3 1.39000+ 7 5.96410- 3 1.40000+ 7 5.92200- 31273 306101194
+ 1.43000+ 7 5.78920- 3 1.43100+ 7 5.78460- 3 1.44000+ 7 5.74340- 31273 306101195
+ 1.45000+ 7 5.69700- 3 1.48000+ 7 5.54580- 3 1.48600+ 7 5.51560- 31273 306101196
+ 1.49000+ 7 5.49540- 3 1.50000+ 7 5.44500- 3 1.54000+ 7 5.26210- 31273 306101197
+ 1.54100+ 7 5.25780- 3 1.55000+ 7 5.22000- 3 1.56000+ 7 5.18220- 31273 306101198
+ 1.59000+ 7 5.07420- 3 1.59610+ 7 5.05320- 3 1.60000+ 7 5.04000- 31273 306101199
+ 1.61000+ 7 5.00500- 3 1.65000+ 7 4.86280- 3 1.65110+ 7 4.85890- 31273 306101200
+ 1.66000+ 7 4.82670- 3 1.67000+ 7 4.79040- 3 1.70000+ 7 4.68000- 31273 306101201
+ 1.70610+ 7 4.65590- 3 1.71000+ 7 4.64050- 3 1.72000+ 7 4.60080- 31273 306101202
+ 1.75000+ 7 4.48030- 3 1.76000+ 7 4.43970- 3 1.76120+ 7 4.43480- 31273 306101203
+ 1.77000+ 7 4.39890- 3 1.78000+ 7 4.35780- 3 1.80000+ 7 4.27500- 31273 306101204
+ 1.81000+ 7 4.23350- 3 1.81620+ 7 4.20790- 3 1.82000+ 7 4.19220- 31273 306101205
+ 1.83000+ 7 4.15110- 3 1.84000+ 7 4.11030- 3 1.85000+ 7 4.06970- 31273 306101206
+ 1.87000+ 7 3.98910- 3 1.87130+ 7 3.98390- 3 1.88000+ 7 3.94920- 31273 306101207
+ 1.89000+ 7 3.90950- 3 1.90000+ 7 3.87000- 3 1.92000+ 7 3.79800- 31273 306101208
+ 1.92630+ 7 3.77530- 3 1.93000+ 7 3.76200- 3 1.94000+ 7 3.72600- 31273 306101209
+ 1.95000+ 7 3.69000- 3 1.98000+ 7 3.58200- 3 1.98130+ 7 3.57730- 31273 306101210
+ 1.99000+ 7 3.54600- 3 2.00000+ 7 3.51000- 3                      1273 306101211
+                                                                  1273 300001212
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 306201213
+-5.93400+ 6-6.50000+ 6          0         35          1        1111273 306201214
+        111          2                                            1273 306201215
+ 7.15500+ 6 0.00000+ 0 7.20000+ 6 9.94740- 4 7.40000+ 6 5.20310- 31273 306201216
+ 7.60000+ 6 9.20600- 3 7.70000+ 6 1.12040- 2 7.70500+ 6 1.13040- 21273 306201217
+ 7.80000+ 6 1.07730- 2 8.00000+ 6 1.21270- 2 8.20000+ 6 1.35660- 21273 306201218
+ 8.25600+ 6 1.40360- 2 8.30000+ 6 1.35090- 2 8.40000+ 6 1.39060- 21273 306201219
+ 8.60000+ 6 1.46250- 2 8.80000+ 6 1.55900- 2 8.80600+ 6 1.56220- 21273 306201220
+ 8.90000+ 6 1.53960- 2 9.00000+ 6 1.56180- 2 9.20000+ 6 1.61470- 21273 306201221
+ 9.30000+ 6 1.65240- 2 9.35600+ 6 1.67650- 2 9.40000+ 6 1.65490- 21273 306201222
+ 9.50000+ 6 1.67950- 2 9.60000+ 6 1.70570- 2 9.80000+ 6 1.78090- 21273 306201223
+ 9.90000+ 6 1.83410- 2 9.90700+ 6 1.83810- 2 1.00000+ 7 1.85050- 21273 306201224
+ 1.01000+ 7 1.89560- 2 1.04000+ 7 2.02580- 2 1.04570+ 7 2.05010- 21273 306201225
+ 1.05000+ 7 2.03880- 2 1.06000+ 7 2.05940- 2 1.10000+ 7 2.11270- 21273 306201226
+ 1.10070+ 7 2.11360- 2 1.11000+ 7 2.09380- 2 1.12000+ 7 2.08910- 21273 306201227
+ 1.15000+ 7 2.06950- 2 1.15580+ 7 2.05840- 2 1.16000+ 7 2.03140- 21273 306201228
+ 1.17000+ 7 2.00420- 2 1.20000+ 7 1.97490- 2 1.21000+ 7 1.96110- 21273 306201229
+ 1.21080+ 7 1.95990- 2 1.22000+ 7 1.92520- 2 1.23000+ 7 1.90010- 21273 306201230
+ 1.25000+ 7 1.85210- 2 1.26000+ 7 1.82920- 2 1.26580+ 7 1.81670- 21273 306201231
+ 1.27000+ 7 1.79470- 2 1.28000+ 7 1.76680- 2 1.30000+ 7 1.71160- 21273 306201232
+ 1.32000+ 7 1.65920- 2 1.32090+ 7 1.65700- 2 1.33000+ 7 1.62210- 21273 306201233
+ 1.34000+ 7 1.59360- 2 1.35000+ 7 1.56500- 2 1.37000+ 7 1.51030- 21273 306201234
+ 1.37590+ 7 1.49560- 2 1.38000+ 7 1.47750- 2 1.39000+ 7 1.44980- 21273 306201235
+ 1.40000+ 7 1.42280- 2 1.43000+ 7 1.34860- 2 1.43100+ 7 1.34640- 21273 306201236
+ 1.44000+ 7 1.31860- 2 1.45000+ 7 1.29490- 2 1.48000+ 7 1.23530- 21273 306201237
+ 1.48600+ 7 1.22500- 2 1.49000+ 7 1.21250- 2 1.50000+ 7 1.19290- 21273 306201238
+ 1.54000+ 7 1.12540- 2 1.54100+ 7 1.12400- 2 1.55000+ 7 1.10540- 21273 306201239
+ 1.56000+ 7 1.08960- 2 1.59000+ 7 1.04700- 2 1.59610+ 7 1.03960- 21273 306201240
+ 1.60000+ 7 1.03090- 2 1.61000+ 7 1.01720- 2 1.65000+ 7 9.69160- 31273 306201241
+ 1.65110+ 7 9.68110- 3 1.66000+ 7 9.54900- 3 1.67000+ 7 9.43560- 31273 306201242
+ 1.70000+ 7 9.12950- 3 1.70610+ 7 9.07600- 3 1.71000+ 7 9.01030- 31273 306201243
+ 1.72000+ 7 8.90870- 3 1.75000+ 7 8.62360- 3 1.76000+ 7 8.54210- 31273 306201244
+ 1.76120+ 7 8.53300- 3 1.77000+ 7 8.42930- 3 1.78000+ 7 8.33850- 31273 306201245
+ 1.80000+ 7 8.16570- 3 1.81000+ 7 8.08920- 3 1.81620+ 7 8.04490- 31273 306201246
+ 1.82000+ 7 7.99340- 3 1.83000+ 7 7.91060- 3 1.84000+ 7 7.82850- 31273 306201247
+ 1.85000+ 7 7.74950- 3 1.87000+ 7 7.60640- 3 1.87130+ 7 7.59800- 31273 306201248
+ 1.88000+ 7 7.51230- 3 1.89000+ 7 7.43560- 3 1.90000+ 7 7.35970- 31273 306201249
+ 1.92000+ 7 7.22270- 3 1.92630+ 7 7.18380- 3 1.93000+ 7 7.14100- 31273 306201250
+ 1.94000+ 7 7.07010- 3 1.95000+ 7 7.00000- 3 1.98000+ 7 6.81030- 31273 306201251
+ 1.98130+ 7 6.80310- 3 1.99000+ 7 6.73120- 3 2.00000+ 7 6.66620- 31273 306201252
+                                                                  1273 300001253
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 306301254
+-4.46000+ 6-7.00000+ 6          0         22          1        1061273 306301255
+        106          2                                            1273 306301256
+ 7.70500+ 6 0.00000+ 0 7.80000+ 6 2.42260- 3 8.00000+ 6 5.07340- 31273 306301257
+ 8.20000+ 6 7.68570- 3 8.25600+ 6 8.39630- 3 8.30000+ 6 8.38760- 31273 306301258
+ 8.40000+ 6 9.26550- 3 8.60000+ 6 1.07900- 2 8.80000+ 6 1.23380- 21273 306301259
+ 8.80600+ 6 1.23850- 2 8.90000+ 6 1.25230- 2 9.00000+ 6 1.30080- 21273 306301260
+ 9.20000+ 6 1.39820- 2 9.30000+ 6 1.45400- 2 9.35600+ 6 1.48740- 21273 306301261
+ 9.40000+ 6 1.47730- 2 9.50000+ 6 1.51860- 2 9.60000+ 6 1.56030- 21273 306301262
+ 9.80000+ 6 1.66200- 2 9.90000+ 6 1.72660- 2 9.90700+ 6 1.73140- 21273 306301263
+ 1.00000+ 7 1.75600- 2 1.01000+ 7 1.81200- 2 1.04000+ 7 1.97290- 21273 306301264
+ 1.04570+ 7 2.00280- 2 1.05000+ 7 1.99620- 2 1.06000+ 7 2.02640- 21273 306301265
+ 1.10000+ 7 2.11380- 2 1.10070+ 7 2.11520- 2 1.11000+ 7 2.10220- 21273 306301266
+ 1.12000+ 7 2.10450- 2 1.15000+ 7 2.10320- 2 1.15580+ 7 2.09510- 21273 306301267
+ 1.16000+ 7 2.06990- 2 1.17000+ 7 2.04710- 2 1.20000+ 7 2.03060- 21273 306301268
+ 1.21000+ 7 2.02040- 2 1.21080+ 7 2.01950- 2 1.22000+ 7 1.98710- 21273 306301269
+ 1.23000+ 7 1.96470- 2 1.25000+ 7 1.92140- 2 1.26000+ 7 1.90060- 21273 306301270
+ 1.26580+ 7 1.88920- 2 1.27000+ 7 1.86740- 2 1.28000+ 7 1.84090- 21273 306301271
+ 1.30000+ 7 1.78800- 2 1.32000+ 7 1.73740- 2 1.32090+ 7 1.73530- 21273 306301272
+ 1.33000+ 7 1.70040- 2 1.34000+ 7 1.67220- 2 1.35000+ 7 1.64390- 21273 306301273
+ 1.37000+ 7 1.58940- 2 1.37590+ 7 1.57470- 2 1.38000+ 7 1.55620- 21273 306301274
+ 1.39000+ 7 1.52840- 2 1.40000+ 7 1.50110- 2 1.43000+ 7 1.42590- 21273 306301275
+ 1.43100+ 7 1.42370- 2 1.44000+ 7 1.39520- 2 1.45000+ 7 1.37100- 21273 306301276
+ 1.48000+ 7 1.31030- 2 1.48600+ 7 1.29970- 2 1.49000+ 7 1.28670- 21273 306301277
+ 1.50000+ 7 1.26670- 2 1.54000+ 7 1.19730- 2 1.54100+ 7 1.19590- 21273 306301278
+ 1.55000+ 7 1.17650- 2 1.56000+ 7 1.16010- 2 1.59000+ 7 1.11610- 21273 306301279
+ 1.59610+ 7 1.10850- 2 1.60000+ 7 1.09930- 2 1.61000+ 7 1.08510- 21273 306301280
+ 1.65000+ 7 1.03510- 2 1.65110+ 7 1.03400- 2 1.66000+ 7 1.02020- 21273 306301281
+ 1.67000+ 7 1.00830- 2 1.70000+ 7 9.76360- 3 1.70610+ 7 9.70770- 31273 306301282
+ 1.71000+ 7 9.63830- 3 1.72000+ 7 9.53170- 3 1.75000+ 7 9.23230- 31273 306301283
+ 1.76000+ 7 9.14680- 3 1.76120+ 7 9.13720- 3 1.77000+ 7 9.02760- 31273 306301284
+ 1.78000+ 7 8.93190- 3 1.80000+ 7 8.74970- 3 1.81000+ 7 8.66910- 31273 306301285
+ 1.81620+ 7 8.62230- 3 1.82000+ 7 8.56760- 3 1.83000+ 7 8.48010- 31273 306301286
+ 1.84000+ 7 8.39330- 3 1.85000+ 7 8.30960- 3 1.87000+ 7 8.15820- 31273 306301287
+ 1.87130+ 7 8.14930- 3 1.88000+ 7 8.05810- 3 1.89000+ 7 7.97670- 31273 306301288
+ 1.90000+ 7 7.89610- 3 1.92000+ 7 7.75060- 3 1.92630+ 7 7.70930- 31273 306301289
+ 1.93000+ 7 7.66360- 3 1.94000+ 7 7.58820- 3 1.95000+ 7 7.51360- 31273 306301290
+ 1.98000+ 7 7.31160- 3 1.98130+ 7 7.30390- 3 1.99000+ 7 7.22710- 31273 306301291
+ 2.00000+ 7 7.15780- 3                                            1273 306301292
+                                                                  1273 300001293
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 306401294
+-5.93400+ 6-7.50000+ 6          0         35          1        1021273 306401295
+        102          2                                            1273 306401296
+ 8.25600+ 6 0.00000+ 0 8.30000+ 6 1.50720- 3 8.40000+ 6 2.49450- 31273 306401297
+ 8.60000+ 6 4.94950- 3 8.80000+ 6 7.29640- 3 8.80600+ 6 7.36450- 31273 306401298
+ 8.90000+ 6 8.02490- 3 9.00000+ 6 8.87710- 3 9.20000+ 6 1.04650- 21273 306401299
+ 9.30000+ 6 1.12700- 2 9.35600+ 6 1.17300- 2 9.40000+ 6 1.17970- 21273 306401300
+ 9.50000+ 6 1.24400- 2 9.60000+ 6 1.30690- 2 9.80000+ 6 1.44400- 21273 306401301
+ 9.90000+ 6 1.52330- 2 9.90700+ 6 1.52900- 2 1.00000+ 7 1.57050- 21273 306401302
+ 1.01000+ 7 1.64060- 2 1.04000+ 7 1.84130- 2 1.04570+ 7 1.87830- 21273 306401303
+ 1.05000+ 7 1.87870- 2 1.06000+ 7 1.92180- 2 1.10000+ 7 2.05580- 21273 306401304
+ 1.10070+ 7 2.05800- 2 1.11000+ 7 2.05530- 2 1.12000+ 7 2.06750- 21273 306401305
+ 1.15000+ 7 2.09250- 2 1.15580+ 7 2.08900- 2 1.16000+ 7 2.06700- 21273 306401306
+ 1.17000+ 7 2.05130- 2 1.20000+ 7 2.05360- 2 1.21000+ 7 2.04880- 21273 306401307
+ 1.21080+ 7 2.04840- 2 1.22000+ 7 2.02020- 2 1.23000+ 7 2.00240- 21273 306401308
+ 1.25000+ 7 1.96700- 2 1.26000+ 7 1.94970- 2 1.26580+ 7 1.94030- 21273 306401309
+ 1.27000+ 7 1.91940- 2 1.28000+ 7 1.89580- 2 1.30000+ 7 1.84770- 21273 306401310
+ 1.32000+ 7 1.80090- 2 1.32090+ 7 1.79900- 2 1.33000+ 7 1.76520- 21273 306401311
+ 1.34000+ 7 1.73840- 2 1.35000+ 7 1.71110- 2 1.37000+ 7 1.65850- 21273 306401312
+ 1.37590+ 7 1.64430- 2 1.38000+ 7 1.62580- 2 1.39000+ 7 1.59850- 21273 306401313
+ 1.40000+ 7 1.57160- 2 1.43000+ 7 1.49720- 2 1.43100+ 7 1.49500- 21273 306401314
+ 1.44000+ 7 1.46630- 2 1.45000+ 7 1.44210- 2 1.48000+ 7 1.38140- 21273 306401315
+ 1.48600+ 7 1.37090- 2 1.49000+ 7 1.35760- 2 1.50000+ 7 1.33730- 21273 306401316
+ 1.54000+ 7 1.26720- 2 1.54100+ 7 1.26580- 2 1.55000+ 7 1.24600- 21273 306401317
+ 1.56000+ 7 1.22930- 2 1.59000+ 7 1.18440- 2 1.59610+ 7 1.17660- 21273 306401318
+ 1.60000+ 7 1.16710- 2 1.61000+ 7 1.15250- 2 1.65000+ 7 1.10120- 21273 306401319
+ 1.65110+ 7 1.10010- 2 1.66000+ 7 1.08580- 2 1.67000+ 7 1.07350- 21273 306401320
+ 1.70000+ 7 1.04050- 2 1.70610+ 7 1.03470- 2 1.71000+ 7 1.02750- 21273 306401321
+ 1.72000+ 7 1.01640- 2 1.75000+ 7 9.85280- 3 1.76000+ 7 9.76400- 31273 306401322
+ 1.76120+ 7 9.75410- 3 1.77000+ 7 9.63910- 3 1.78000+ 7 9.53920- 31273 306401323
+ 1.80000+ 7 9.34870- 3 1.81000+ 7 9.26450- 3 1.81620+ 7 9.21570- 31273 306401324
+ 1.82000+ 7 9.15790- 3 1.83000+ 7 9.06610- 3 1.84000+ 7 8.97490- 31273 306401325
+ 1.85000+ 7 8.88700- 3 1.87000+ 7 8.72800- 3 1.87130+ 7 8.71870- 31273 306401326
+ 1.88000+ 7 8.62230- 3 1.89000+ 7 8.53650- 3 1.90000+ 7 8.45150- 31273 306401327
+ 1.92000+ 7 8.29800- 3 1.92630+ 7 8.25450- 3 1.93000+ 7 8.20600- 31273 306401328
+ 1.94000+ 7 8.12620- 3 1.95000+ 7 8.04730- 3 1.98000+ 7 7.83350- 31273 306401329
+ 1.98130+ 7 7.82540- 3 1.99000+ 7 7.74380- 3 2.00000+ 7 7.67030- 31273 306401330
+                                                                  1273 300001331
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 306501332
+-6.58500+ 6-8.00000+ 6          0         28          1         971273 306501333
+         97          2                                            1273 306501334
+ 8.80600+ 6 0.00000+ 0 8.90000+ 6 1.78160- 3 9.00000+ 6 2.79610- 31273 306501335
+ 9.20000+ 6 5.17350- 3 9.30000+ 6 6.31050- 3 9.35600+ 6 6.93660- 31273 306501336
+ 9.40000+ 6 7.24150- 3 9.50000+ 6 8.19790- 3 9.60000+ 6 9.11220- 31273 306501337
+ 9.80000+ 6 1.09530- 2 9.90000+ 6 1.19330- 2 9.90700+ 6 1.20030- 21273 306501338
+ 1.00000+ 7 1.26470- 2 1.01000+ 7 1.35310- 2 1.04000+ 7 1.60520- 21273 306501339
+ 1.04570+ 7 1.65140- 2 1.05000+ 7 1.66180- 2 1.06000+ 7 1.72220- 21273 306501340
+ 1.10000+ 7 1.91910- 2 1.10070+ 7 1.92230- 2 1.11000+ 7 1.93410- 21273 306501341
+ 1.12000+ 7 1.96010- 2 1.15000+ 7 2.02190- 2 1.15580+ 7 2.02500- 21273 306501342
+ 1.16000+ 7 2.00810- 2 1.17000+ 7 2.00300- 2 1.20000+ 7 2.03200- 21273 306501343
+ 1.21000+ 7 2.03510- 2 1.21080+ 7 2.03520- 2 1.22000+ 7 2.01400- 21273 306501344
+ 1.23000+ 7 2.00290- 2 1.25000+ 7 1.97990- 2 1.26000+ 7 1.96800- 21273 306501345
+ 1.26580+ 7 1.96160- 2 1.27000+ 7 1.94270- 2 1.28000+ 7 1.92360- 21273 306501346
+ 1.30000+ 7 1.88360- 2 1.32000+ 7 1.84370- 2 1.32090+ 7 1.84210- 21273 306501347
+ 1.33000+ 7 1.81060- 2 1.34000+ 7 1.78640- 2 1.35000+ 7 1.76150- 21273 306501348
+ 1.37000+ 7 1.71290- 2 1.37590+ 7 1.69990- 2 1.38000+ 7 1.68170- 21273 306501349
+ 1.39000+ 7 1.65590- 2 1.40000+ 7 1.63030- 2 1.43000+ 7 1.55910- 21273 306501350
+ 1.43100+ 7 1.55700- 2 1.44000+ 7 1.52860- 2 1.45000+ 7 1.50500- 21273 306501351
+ 1.48000+ 7 1.44610- 2 1.48600+ 7 1.43590- 2 1.49000+ 7 1.42250- 21273 306501352
+ 1.50000+ 7 1.40250- 2 1.54000+ 7 1.33330- 2 1.54100+ 7 1.33190- 21273 306501353
+ 1.55000+ 7 1.31190- 2 1.56000+ 7 1.29520- 2 1.59000+ 7 1.25030- 21273 306501354
+ 1.59610+ 7 1.24260- 2 1.60000+ 7 1.23290- 2 1.61000+ 7 1.21810- 21273 306501355
+ 1.65000+ 7 1.16640- 2 1.65110+ 7 1.16530- 2 1.66000+ 7 1.15050- 21273 306501356
+ 1.67000+ 7 1.13810- 2 1.70000+ 7 1.10450- 2 1.70610+ 7 1.09860- 21273 306501357
+ 1.71000+ 7 1.09110- 2 1.72000+ 7 1.07970- 2 1.75000+ 7 1.04780- 21273 306501358
+ 1.76000+ 7 1.03870- 2 1.76120+ 7 1.03770- 2 1.77000+ 7 1.02570- 21273 306501359
+ 1.78000+ 7 1.01540- 2 1.80000+ 7 9.95690- 3 1.81000+ 7 9.86980- 31273 306501360
+ 1.81620+ 7 9.81950- 3 1.82000+ 7 9.75890- 3 1.83000+ 7 9.66340- 31273 306501361
+ 1.84000+ 7 9.56860- 3 1.85000+ 7 9.47710- 3 1.87000+ 7 9.31170- 31273 306501362
+ 1.87130+ 7 9.30200- 3 1.88000+ 7 9.20090- 3 1.89000+ 7 9.11120- 31273 306501363
+ 1.90000+ 7 9.02220- 3 1.92000+ 7 8.86170- 3 1.92630+ 7 8.81620- 31273 306501364
+ 1.93000+ 7 8.76490- 3 1.94000+ 7 8.68110- 3 1.95000+ 7 8.59830- 31273 306501365
+ 1.98000+ 7 8.37360- 3 1.98130+ 7 8.36510- 3 1.99000+ 7 8.27890- 31273 306501366
+ 2.00000+ 7 8.20130- 3                                            1273 306501367
+                                                                  1273 300001368
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 306601369
+-4.46000+ 6-8.50000+ 6          0         22          1         921273 306601370
+         92          2                                            1273 306601371
+ 9.35600+ 6 0.00000+ 0 9.40000+ 6 1.28580- 3 9.50000+ 6 2.18090- 31273 306601372
+ 9.60000+ 6 3.29810- 3 9.80000+ 6 5.76160- 3 9.90000+ 6 6.98290- 31273 306601373
+ 9.90700+ 6 7.06870- 3 1.00000+ 7 8.02170- 3 1.01000+ 7 9.14180- 31273 306601374
+ 1.04000+ 7 1.23260- 2 1.04570+ 7 1.29060- 2 1.05000+ 7 1.31480- 21273 306601375
+ 1.06000+ 7 1.39810- 2 1.10000+ 7 1.67870- 2 1.10070+ 7 1.68320- 21273 306601376
+ 1.11000+ 7 1.71540- 2 1.12000+ 7 1.76010- 2 1.15000+ 7 1.87220- 21273 306601377
+ 1.15580+ 7 1.88450- 2 1.16000+ 7 1.87530- 2 1.17000+ 7 1.88510- 21273 306601378
+ 1.20000+ 7 1.95090- 2 1.21000+ 7 1.96500- 2 1.21080+ 7 1.96600- 21273 306601379
+ 1.22000+ 7 1.95490- 2 1.23000+ 7 1.95380- 2 1.25000+ 7 1.94860- 21273 306601380
+ 1.26000+ 7 1.94470- 2 1.26580+ 7 1.94270- 2 1.27000+ 7 1.92700- 21273 306601381
+ 1.28000+ 7 1.91480- 2 1.30000+ 7 1.88720- 2 1.32000+ 7 1.85790- 21273 306601382
+ 1.32090+ 7 1.85670- 2 1.33000+ 7 1.82940- 2 1.34000+ 7 1.80950- 21273 306601383
+ 1.35000+ 7 1.78850- 2 1.37000+ 7 1.74680- 2 1.37590+ 7 1.73560- 21273 306601384
+ 1.38000+ 7 1.71840- 2 1.39000+ 7 1.69530- 2 1.40000+ 7 1.67220- 21273 306601385
+ 1.43000+ 7 1.60710- 2 1.43100+ 7 1.60520- 2 1.44000+ 7 1.57810- 21273 306601386
+ 1.45000+ 7 1.55610- 2 1.48000+ 7 1.50110- 2 1.48600+ 7 1.49160- 21273 306601387
+ 1.49000+ 7 1.47830- 2 1.50000+ 7 1.45930- 2 1.54000+ 7 1.39300- 21273 306601388
+ 1.54100+ 7 1.39170- 2 1.55000+ 7 1.37200- 2 1.56000+ 7 1.35570- 21273 306601389
+ 1.59000+ 7 1.31200- 2 1.59610+ 7 1.30450- 2 1.60000+ 7 1.29470- 21273 306601390
+ 1.61000+ 7 1.28010- 2 1.65000+ 7 1.22900- 2 1.65110+ 7 1.22790- 21273 306601391
+ 1.66000+ 7 1.21310- 2 1.67000+ 7 1.20060- 2 1.70000+ 7 1.16710- 21273 306601392
+ 1.70610+ 7 1.16130- 2 1.71000+ 7 1.15350- 2 1.72000+ 7 1.14210- 21273 306601393
+ 1.75000+ 7 1.10980- 2 1.76000+ 7 1.10060- 2 1.76120+ 7 1.09960- 21273 306601394
+ 1.77000+ 7 1.08730- 2 1.78000+ 7 1.07680- 2 1.80000+ 7 1.05670- 21273 306601395
+ 1.81000+ 7 1.04780- 2 1.81620+ 7 1.04270- 2 1.82000+ 7 1.03640- 21273 306601396
+ 1.83000+ 7 1.02660- 2 1.84000+ 7 1.01680- 2 1.85000+ 7 1.00740- 21273 306601397
+ 1.87000+ 7 9.90380- 3 1.87130+ 7 9.89380- 3 1.88000+ 7 9.78860- 31273 306601398
+ 1.89000+ 7 9.69570- 3 1.90000+ 7 9.60340- 3 1.92000+ 7 9.43710- 31273 306601399
+ 1.92630+ 7 9.39000- 3 1.93000+ 7 9.33620- 3 1.94000+ 7 9.24900- 31273 306601400
+ 1.95000+ 7 9.16260- 3 1.98000+ 7 8.92850- 3 1.98130+ 7 8.91960- 31273 306601401
+ 1.99000+ 7 8.82910- 3 2.00000+ 7 8.74800- 3                      1273 306601402
+                                                                  1273 300001403
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 306701404
+-4.46000+ 6-9.00000+ 6          0         22          1         861273 306701405
+         86          2                                            1273 306701406
+ 9.90700+ 6 0.00000+ 0 1.00000+ 7 1.76120- 3 1.01000+ 7 2.84760- 31273 306701407
+ 1.04000+ 7 6.83350- 3 1.04570+ 7 7.56490- 3 1.05000+ 7 7.99360- 31273 306701408
+ 1.06000+ 7 9.12720- 3 1.10000+ 7 1.30380- 2 1.10070+ 7 1.31010- 21273 306701409
+ 1.11000+ 7 1.36980- 2 1.12000+ 7 1.43970- 2 1.15000+ 7 1.61930- 21273 306701410
+ 1.15580+ 7 1.64410- 2 1.16000+ 7 1.64590- 2 1.17000+ 7 1.67640- 21273 306701411
+ 1.20000+ 7 1.79190- 2 1.21000+ 7 1.82100- 2 1.21080+ 7 1.82320- 21273 306701412
+ 1.22000+ 7 1.82650- 2 1.23000+ 7 1.83930- 2 1.25000+ 7 1.85900- 21273 306701413
+ 1.26000+ 7 1.86640- 2 1.26580+ 7 1.87050- 2 1.27000+ 7 1.85960- 21273 306701414
+ 1.28000+ 7 1.85740- 2 1.30000+ 7 1.84770- 2 1.32000+ 7 1.83380- 21273 306701415
+ 1.32090+ 7 1.83320- 2 1.33000+ 7 1.81240- 2 1.34000+ 7 1.79890- 21273 306701416
+ 1.35000+ 7 1.78390- 2 1.37000+ 7 1.75280- 2 1.37590+ 7 1.74440- 21273 306701417
+ 1.38000+ 7 1.72900- 2 1.39000+ 7 1.71020- 2 1.40000+ 7 1.69100- 21273 306701418
+ 1.43000+ 7 1.63620- 2 1.43100+ 7 1.63460- 2 1.44000+ 7 1.60990- 21273 306701419
+ 1.45000+ 7 1.59040- 2 1.48000+ 7 1.54220- 2 1.48600+ 7 1.53390- 21273 306701420
+ 1.49000+ 7 1.52120- 2 1.50000+ 7 1.50390- 2 1.54000+ 7 1.44340- 21273 306701421
+ 1.54100+ 7 1.44220- 2 1.55000+ 7 1.42330- 2 1.56000+ 7 1.40810- 21273 306701422
+ 1.59000+ 7 1.36700- 2 1.59610+ 7 1.36000- 2 1.60000+ 7 1.35030- 21273 306701423
+ 1.61000+ 7 1.33640- 2 1.65000+ 7 1.28740- 2 1.65110+ 7 1.28630- 21273 306701424
+ 1.66000+ 7 1.27160- 2 1.67000+ 7 1.25950- 2 1.70000+ 7 1.22690- 21273 306701425
+ 1.70610+ 7 1.22120- 2 1.71000+ 7 1.21330- 2 1.72000+ 7 1.20210- 21273 306701426
+ 1.75000+ 7 1.17010- 2 1.76000+ 7 1.16100- 2 1.76120+ 7 1.16000- 21273 306701427
+ 1.77000+ 7 1.14760- 2 1.78000+ 7 1.13700- 2 1.80000+ 7 1.11680- 21273 306701428
+ 1.81000+ 7 1.10790- 2 1.81620+ 7 1.10280- 2 1.82000+ 7 1.09630- 21273 306701429
+ 1.83000+ 7 1.08640- 2 1.84000+ 7 1.07650- 2 1.85000+ 7 1.06690- 21273 306701430
+ 1.87000+ 7 1.04970- 2 1.87130+ 7 1.04870- 2 1.88000+ 7 1.03780- 21273 306701431
+ 1.89000+ 7 1.02830- 2 1.90000+ 7 1.01890- 2 1.92000+ 7 1.00180- 21273 306701432
+ 1.92630+ 7 9.97020- 3 1.93000+ 7 9.91420- 3 1.94000+ 7 9.82430- 31273 306701433
+ 1.95000+ 7 9.73530- 3 1.98000+ 7 9.49370- 3 1.98130+ 7 9.48460- 31273 306701434
+ 1.99000+ 7 9.39030- 3 2.00000+ 7 9.30610- 3                      1273 306701435
+                                                                  1273 300001436
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 306801437
+-5.93400+ 6-9.50000+ 6          0         35          1         821273 306801438
+         82          2                                            1273 306801439
+ 1.04570+ 7 0.00000+ 0 1.05000+ 7 1.40430- 3 1.06000+ 7 2.40310- 31273 306801440
+ 1.10000+ 7 7.56080- 3 1.10070+ 7 7.64550- 3 1.11000+ 7 8.61200- 31273 306801441
+ 1.12000+ 7 9.64380- 3 1.15000+ 7 1.23350- 2 1.15580+ 7 1.27510- 21273 306801442
+ 1.16000+ 7 1.29190- 2 1.17000+ 7 1.35030- 2 1.20000+ 7 1.53200- 21273 306801443
+ 1.21000+ 7 1.58130- 2 1.21080+ 7 1.58500- 2 1.22000+ 7 1.60830- 21273 306801444
+ 1.23000+ 7 1.63990- 2 1.25000+ 7 1.69370- 2 1.26000+ 7 1.71640- 21273 306801445
+ 1.26580+ 7 1.72890- 2 1.27000+ 7 1.72490- 2 1.28000+ 7 1.73650- 21273 306801446
+ 1.30000+ 7 1.75170- 2 1.32000+ 7 1.75950- 2 1.32090+ 7 1.75980- 21273 306801447
+ 1.33000+ 7 1.74830- 2 1.34000+ 7 1.74390- 2 1.35000+ 7 1.73750- 21273 306801448
+ 1.37000+ 7 1.72170- 2 1.37590+ 7 1.71740- 2 1.38000+ 7 1.70490- 21273 306801449
+ 1.39000+ 7 1.69250- 2 1.40000+ 7 1.67920- 2 1.43000+ 7 1.63960- 21273 306801450
+ 1.43100+ 7 1.63840- 2 1.44000+ 7 1.61760- 2 1.45000+ 7 1.60220- 21273 306801451
+ 1.48000+ 7 1.56440- 2 1.48600+ 7 1.55800- 2 1.49000+ 7 1.54640- 21273 306801452
+ 1.50000+ 7 1.53180- 2 1.54000+ 7 1.48050- 2 1.54100+ 7 1.47960- 21273 306801453
+ 1.55000+ 7 1.46220- 2 1.56000+ 7 1.44870- 2 1.59000+ 7 1.41230- 21273 306801454
+ 1.59610+ 7 1.40620- 2 1.60000+ 7 1.39670- 2 1.61000+ 7 1.38400- 21273 306801455
+ 1.65000+ 7 1.33910- 2 1.65110+ 7 1.33820- 2 1.66000+ 7 1.32400- 21273 306801456
+ 1.67000+ 7 1.31260- 2 1.70000+ 7 1.28190- 2 1.70610+ 7 1.27670- 21273 306801457
+ 1.71000+ 7 1.26880- 2 1.72000+ 7 1.25800- 2 1.75000+ 7 1.22710- 21273 306801458
+ 1.76000+ 7 1.21850- 2 1.76120+ 7 1.21750- 2 1.77000+ 7 1.20510- 21273 306801459
+ 1.78000+ 7 1.19480- 2 1.80000+ 7 1.17490- 2 1.81000+ 7 1.16620- 21273 306801460
+ 1.81620+ 7 1.16120- 2 1.82000+ 7 1.15460- 2 1.83000+ 7 1.14480- 21273 306801461
+ 1.84000+ 7 1.13490- 2 1.85000+ 7 1.12540- 2 1.87000+ 7 1.10820- 21273 306801462
+ 1.87130+ 7 1.10720- 2 1.88000+ 7 1.09620- 2 1.89000+ 7 1.08660- 21273 306801463
+ 1.90000+ 7 1.07700- 2 1.92000+ 7 1.05980- 2 1.92630+ 7 1.05500- 21273 306801464
+ 1.93000+ 7 1.04920- 2 1.94000+ 7 1.04000- 2 1.95000+ 7 1.03100- 21273 306801465
+ 1.98000+ 7 1.00640- 2 1.98130+ 7 1.00540- 2 1.99000+ 7 9.95680- 31273 306801466
+ 2.00000+ 7 9.87040- 3                                            1273 306801467
+                                                                  1273 300001468
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 306901469
+-4.46000+ 6-1.00000+ 7          0         22          1         781273 306901470
+         78          2                                            1273 306901471
+ 1.10070+ 7 0.00000+ 0 1.11000+ 7 1.87230- 3 1.12000+ 7 2.97470- 31273 306901472
+ 1.15000+ 7 6.77940- 3 1.15580+ 7 7.41790- 3 1.16000+ 7 7.78970- 31273 306901473
+ 1.17000+ 7 8.74450- 3 1.20000+ 7 1.14320- 2 1.21000+ 7 1.21910- 21273 306901474
+ 1.21080+ 7 1.22490- 2 1.22000+ 7 1.27490- 2 1.23000+ 7 1.33170- 21273 306901475
+ 1.25000+ 7 1.43100- 2 1.26000+ 7 1.47440- 2 1.26580+ 7 1.49810- 21273 306901476
+ 1.27000+ 7 1.50360- 2 1.28000+ 7 1.53380- 2 1.30000+ 7 1.58290- 21273 306901477
+ 1.32000+ 7 1.62020- 2 1.32090+ 7 1.62180- 2 1.33000+ 7 1.62320- 21273 306901478
+ 1.34000+ 7 1.63150- 2 1.35000+ 7 1.63690- 2 1.37000+ 7 1.64250- 21273 306901479
+ 1.37590+ 7 1.64390- 2 1.38000+ 7 1.63560- 2 1.39000+ 7 1.63220- 21273 306901480
+ 1.40000+ 7 1.62720- 2 1.43000+ 7 1.60930- 2 1.43100+ 7 1.60880- 21273 306901481
+ 1.44000+ 7 1.59370- 2 1.45000+ 7 1.58410- 2 1.48000+ 7 1.56150- 21273 306901482
+ 1.48600+ 7 1.55770- 2 1.49000+ 7 1.54780- 2 1.50000+ 7 1.53730- 21273 306901483
+ 1.54000+ 7 1.49980- 2 1.54100+ 7 1.49910- 2 1.55000+ 7 1.48430- 21273 306901484
+ 1.56000+ 7 1.47350- 2 1.59000+ 7 1.44410- 2 1.59610+ 7 1.43930- 21273 306901485
+ 1.60000+ 7 1.43060- 2 1.61000+ 7 1.41980- 2 1.65000+ 7 1.38130- 21273 306901486
+ 1.65110+ 7 1.38060- 2 1.66000+ 7 1.36750- 2 1.67000+ 7 1.35740- 21273 306901487
+ 1.70000+ 7 1.33000- 2 1.70610+ 7 1.32540- 2 1.71000+ 7 1.31770- 21273 306901488
+ 1.72000+ 7 1.30780- 2 1.75000+ 7 1.27920- 2 1.76000+ 7 1.27120- 21273 306901489
+ 1.76120+ 7 1.27030- 2 1.77000+ 7 1.25830- 2 1.78000+ 7 1.24840- 21273 306901490
+ 1.80000+ 7 1.22950- 2 1.81000+ 7 1.22120- 2 1.81620+ 7 1.21650- 21273 306901491
+ 1.82000+ 7 1.20990- 2 1.83000+ 7 1.20030- 2 1.84000+ 7 1.19070- 21273 306901492
+ 1.85000+ 7 1.18140- 2 1.87000+ 7 1.16470- 2 1.87130+ 7 1.16380- 21273 306901493
+ 1.88000+ 7 1.15270- 2 1.89000+ 7 1.14320- 2 1.90000+ 7 1.13380- 21273 306901494
+ 1.92000+ 7 1.11670- 2 1.92630+ 7 1.11190- 2 1.93000+ 7 1.10600- 21273 306901495
+ 1.94000+ 7 1.09690- 2 1.95000+ 7 1.08770- 2 1.98000+ 7 1.06300- 21273 306901496
+ 1.98130+ 7 1.06210- 2 1.99000+ 7 1.05220- 2 2.00000+ 7 1.04340- 21273 306901497
+                                                                  1273 300001498
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 307001499
+-5.93400+ 6-1.05000+ 7          0         35          1         741273 307001500
+         74          2                                            1273 307001501
+ 1.15580+ 7 0.00000+ 0 1.16000+ 7 1.35550- 3 1.17000+ 7 2.28110- 31273 307001502
+ 1.20000+ 7 5.90850- 3 1.21000+ 7 7.01360- 3 1.21080+ 7 7.09870- 31273 307001503
+ 1.22000+ 7 7.95450- 3 1.23000+ 7 8.85440- 3 1.25000+ 7 1.04480- 21273 307001504
+ 1.26000+ 7 1.11520- 2 1.26580+ 7 1.15380- 2 1.27000+ 7 1.17210- 21273 307001505
+ 1.28000+ 7 1.22720- 2 1.30000+ 7 1.32120- 2 1.32000+ 7 1.39800- 21273 307001506
+ 1.32090+ 7 1.40120- 2 1.33000+ 7 1.42030- 2 1.34000+ 7 1.44560- 21273 307001507
+ 1.35000+ 7 1.46700- 2 1.37000+ 7 1.50140- 2 1.37590+ 7 1.51050- 21273 307001508
+ 1.38000+ 7 1.50820- 2 1.39000+ 7 1.51700- 2 1.40000+ 7 1.52360- 21273 307001509
+ 1.43000+ 7 1.53550- 2 1.43100+ 7 1.53590- 2 1.44000+ 7 1.52890- 21273 307001510
+ 1.45000+ 7 1.52730- 2 1.48000+ 7 1.52570- 2 1.48600+ 7 1.52560- 21273 307001511
+ 1.49000+ 7 1.51830- 2 1.50000+ 7 1.51350- 2 1.54000+ 7 1.49550- 21273 307001512
+ 1.54100+ 7 1.49530- 2 1.55000+ 7 1.48410- 2 1.56000+ 7 1.47720- 21273 307001513
+ 1.59000+ 7 1.45800- 2 1.59610+ 7 1.45510- 2 1.60000+ 7 1.44740- 21273 307001514
+ 1.61000+ 7 1.43940- 2 1.65000+ 7 1.41060- 2 1.65110+ 7 1.41010- 21273 307001515
+ 1.66000+ 7 1.39870- 2 1.67000+ 7 1.39050- 2 1.70000+ 7 1.36820- 21273 307001516
+ 1.70610+ 7 1.36450- 2 1.71000+ 7 1.35740- 2 1.72000+ 7 1.34880- 21273 307001517
+ 1.75000+ 7 1.32380- 2 1.76000+ 7 1.31690- 2 1.76120+ 7 1.31620- 21273 307001518
+ 1.77000+ 7 1.30490- 2 1.78000+ 7 1.29590- 2 1.80000+ 7 1.27860- 21273 307001519
+ 1.81000+ 7 1.27120- 2 1.81620+ 7 1.26690- 2 1.82000+ 7 1.26040- 21273 307001520
+ 1.83000+ 7 1.25140- 2 1.84000+ 7 1.24240- 2 1.85000+ 7 1.23360- 21273 307001521
+ 1.87000+ 7 1.21790- 2 1.87130+ 7 1.21700- 2 1.88000+ 7 1.20610- 21273 307001522
+ 1.89000+ 7 1.19700- 2 1.90000+ 7 1.18780- 2 1.92000+ 7 1.17140- 21273 307001523
+ 1.92630+ 7 1.16680- 2 1.93000+ 7 1.16080- 2 1.94000+ 7 1.15180- 21273 307001524
+ 1.95000+ 7 1.14280- 2 1.98000+ 7 1.11850- 2 1.98130+ 7 1.11760- 21273 307001525
+ 1.99000+ 7 1.10760- 2 2.00000+ 7 1.09890- 2                      1273 307001526
+                                                                  1273 300001527
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 307101528
+-5.93400+ 6-1.10000+ 7          0         35          1         691273 307101529
+         69          2                                            1273 307101530
+ 1.21080+ 7 0.00000+ 0 1.22000+ 7 1.71400- 3 1.23000+ 7 2.70730- 31273 307101531
+ 1.25000+ 7 5.02530- 3 1.26000+ 7 6.08340- 3 1.26580+ 7 6.66300- 31273 307101532
+ 1.27000+ 7 7.01620- 3 1.28000+ 7 7.89090- 3 1.30000+ 7 9.42250- 31273 307101533
+ 1.32000+ 7 1.07070- 2 1.32090+ 7 1.07610- 2 1.33000+ 7 1.11870- 21273 307101534
+ 1.34000+ 7 1.16660- 2 1.35000+ 7 1.20920- 2 1.37000+ 7 1.28190- 21273 307101535
+ 1.37590+ 7 1.30130- 2 1.38000+ 7 1.30690- 2 1.39000+ 7 1.33210- 21273 307101536
+ 1.40000+ 7 1.35400- 2 1.43000+ 7 1.40600- 2 1.43100+ 7 1.40760- 21273 307101537
+ 1.44000+ 7 1.41170- 2 1.45000+ 7 1.42110- 2 1.48000+ 7 1.44780- 21273 307101538
+ 1.48600+ 7 1.45270- 2 1.49000+ 7 1.44890- 2 1.50000+ 7 1.45200- 21273 307101539
+ 1.54000+ 7 1.46060- 2 1.54100+ 7 1.46090- 2 1.55000+ 7 1.45500- 21273 307101540
+ 1.56000+ 7 1.45350- 2 1.59000+ 7 1.44840- 2 1.59610+ 7 1.44800- 21273 307101541
+ 1.60000+ 7 1.44200- 2 1.61000+ 7 1.43790- 2 1.65000+ 7 1.42260- 21273 307101542
+ 1.65110+ 7 1.42240- 2 1.66000+ 7 1.41360- 2 1.67000+ 7 1.40810- 21273 307101543
+ 1.70000+ 7 1.39320- 2 1.70610+ 7 1.39080- 2 1.71000+ 7 1.38440- 21273 307101544
+ 1.72000+ 7 1.37780- 2 1.75000+ 7 1.35820- 2 1.76000+ 7 1.35300- 21273 307101545
+ 1.76120+ 7 1.35240- 2 1.77000+ 7 1.34230- 2 1.78000+ 7 1.33480- 21273 307101546
+ 1.80000+ 7 1.32000- 2 1.81000+ 7 1.31370- 2 1.81620+ 7 1.31020- 21273 307101547
+ 1.82000+ 7 1.30400- 2 1.83000+ 7 1.29600- 2 1.84000+ 7 1.28790- 21273 307101548
+ 1.85000+ 7 1.28000- 2 1.87000+ 7 1.26590- 2 1.87130+ 7 1.26510- 21273 307101549
+ 1.88000+ 7 1.25480- 2 1.89000+ 7 1.24630- 2 1.90000+ 7 1.23770- 21273 307101550
+ 1.92000+ 7 1.22230- 2 1.92630+ 7 1.21800- 2 1.93000+ 7 1.21210- 21273 307101551
+ 1.94000+ 7 1.20350- 2 1.95000+ 7 1.19500- 2 1.98000+ 7 1.17170- 21273 307101552
+ 1.98130+ 7 1.17080- 2 1.99000+ 7 1.16090- 2 2.00000+ 7 1.15240- 21273 307101553
+                                                                  1273 300001554
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 307201555
+-4.46000+ 6-1.15000+ 7          0         22          1         641273 307201556
+         64          2                                            1273 307201557
+ 1.26580+ 7 0.00000+ 0 1.27000+ 7 1.21020- 3 1.28000+ 7 2.04130- 31273 307201558
+ 1.30000+ 7 4.16100- 3 1.32000+ 7 6.11730- 3 1.32090+ 7 6.19870- 31273 307201559
+ 1.33000+ 7 6.93270- 3 1.34000+ 7 7.70560- 3 1.35000+ 7 8.40850- 31273 307201560
+ 1.37000+ 7 9.63690- 3 1.37590+ 7 9.96390- 3 1.38000+ 7 1.01260- 21273 307201561
+ 1.39000+ 7 1.05940- 2 1.40000+ 7 1.10150- 2 1.43000+ 7 1.20630- 21273 307201562
+ 1.43100+ 7 1.20940- 2 1.44000+ 7 1.22830- 2 1.45000+ 7 1.25220- 21273 307201563
+ 1.48000+ 7 1.31640- 2 1.48600+ 7 1.32790- 2 1.49000+ 7 1.32900- 21273 307201564
+ 1.50000+ 7 1.34250- 2 1.54000+ 7 1.38670- 2 1.54100+ 7 1.38780- 21273 307201565
+ 1.55000+ 7 1.38890- 2 1.56000+ 7 1.39460- 2 1.59000+ 7 1.40860- 21273 307201566
+ 1.59610+ 7 1.41160- 2 1.60000+ 7 1.40780- 2 1.61000+ 7 1.40910- 21273 307201567
+ 1.65000+ 7 1.41220- 2 1.65110+ 7 1.41240- 2 1.66000+ 7 1.40710- 21273 307201568
+ 1.67000+ 7 1.40540- 2 1.70000+ 7 1.40060- 2 1.70610+ 7 1.40010- 21273 307201569
+ 1.71000+ 7 1.39480- 2 1.72000+ 7 1.39110- 2 1.75000+ 7 1.37910- 21273 307201570
+ 1.76000+ 7 1.37610- 2 1.76120+ 7 1.37580- 2 1.77000+ 7 1.36750- 21273 307201571
+ 1.78000+ 7 1.36200- 2 1.80000+ 7 1.35090- 2 1.81000+ 7 1.34630- 21273 307201572
+ 1.81620+ 7 1.34380- 2 1.82000+ 7 1.33810- 2 1.83000+ 7 1.33160- 21273 307201573
+ 1.84000+ 7 1.32490- 2 1.85000+ 7 1.31830- 2 1.87000+ 7 1.30670- 21273 307201574
+ 1.87130+ 7 1.30600- 2 1.88000+ 7 1.29650- 2 1.89000+ 7 1.28900- 21273 307201575
+ 1.90000+ 7 1.28140- 2 1.92000+ 7 1.26780- 2 1.92630+ 7 1.26410- 21273 307201576
+ 1.93000+ 7 1.25830- 2 1.94000+ 7 1.25040- 2 1.95000+ 7 1.24250- 21273 307201577
+ 1.98000+ 7 1.22110- 2 1.98130+ 7 1.22030- 2 1.99000+ 7 1.21060- 21273 307201578
+ 2.00000+ 7 1.20260- 2                                            1273 307201579
+                                                                  1273 300001580
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 307301581
+-5.93400+ 6-1.20000+ 7          0         35          1         591273 307301582
+         59          2                                            1273 307301583
+ 1.32090+ 7 0.00000+ 0 1.33000+ 7 1.48170- 3 1.34000+ 7 2.33750- 31273 307301584
+ 1.35000+ 7 3.34620- 3 1.37000+ 7 5.22160- 3 1.37590+ 7 5.72140- 31273 307301585
+ 1.38000+ 7 6.02220- 3 1.39000+ 7 6.76960- 3 1.40000+ 7 7.45280- 31273 307301586
+ 1.43000+ 7 9.18610- 3 1.43100+ 7 9.23750- 3 1.44000+ 7 9.61970- 31273 307301587
+ 1.45000+ 7 1.00490- 2 1.48000+ 7 1.11790- 2 1.48600+ 7 1.13800- 21273 307301588
+ 1.49000+ 7 1.14550- 2 1.50000+ 7 1.17270- 2 1.54000+ 7 1.26340- 21273 307301589
+ 1.54100+ 7 1.26550- 2 1.55000+ 7 1.27610- 2 1.56000+ 7 1.29120- 21273 307301590
+ 1.59000+ 7 1.33030- 2 1.59610+ 7 1.33790- 2 1.60000+ 7 1.33720- 21273 307301591
+ 1.61000+ 7 1.34550- 2 1.65000+ 7 1.37310- 2 1.65110+ 7 1.37390- 21273 307301592
+ 1.66000+ 7 1.37350- 2 1.67000+ 7 1.37680- 2 1.70000+ 7 1.38540- 21273 307301593
+ 1.70610+ 7 1.38740- 2 1.71000+ 7 1.38370- 2 1.72000+ 7 1.38380- 21273 307301594
+ 1.75000+ 7 1.38210- 2 1.76000+ 7 1.38220- 2 1.76120+ 7 1.38230- 21273 307301595
+ 1.77000+ 7 1.37650- 2 1.78000+ 7 1.37370- 2 1.80000+ 7 1.36770- 21273 307301596
+ 1.81000+ 7 1.36550- 2 1.81620+ 7 1.36440- 2 1.82000+ 7 1.35950- 21273 307301597
+ 1.83000+ 7 1.35510- 2 1.84000+ 7 1.35040- 2 1.85000+ 7 1.34570- 21273 307301598
+ 1.87000+ 7 1.33760- 2 1.87130+ 7 1.33710- 2 1.88000+ 7 1.32890- 21273 307301599
+ 1.89000+ 7 1.32290- 2 1.90000+ 7 1.31660- 2 1.92000+ 7 1.30560- 21273 307301600
+ 1.92630+ 7 1.30270- 2 1.93000+ 7 1.29730- 2 1.94000+ 7 1.29050- 21273 307301601
+ 1.95000+ 7 1.28360- 2 1.98000+ 7 1.26500- 2 1.98130+ 7 1.26430- 21273 307301602
+ 1.99000+ 7 1.25530- 2 2.00000+ 7 1.24790- 2                      1273 307301603
+                                                                  1273 300001604
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 307401605
+-5.93400+ 6-1.25000+ 7          0         35          1         541273 307401606
+         54          2                                            1273 307401607
+ 1.37590+ 7 0.00000+ 0 1.38000+ 7 1.03030- 3 1.39000+ 7 1.73790- 31273 307401608
+ 1.40000+ 7 2.60280- 3 1.43000+ 7 5.21570- 3 1.43100+ 7 5.29300- 31273 307401609
+ 1.44000+ 7 5.92570- 3 1.45000+ 7 6.59870- 3 1.48000+ 7 8.35800- 31273 307401610
+ 1.48600+ 7 8.66930- 3 1.49000+ 7 8.82770- 3 1.50000+ 7 9.27690- 31273 307401611
+ 1.54000+ 7 1.07850- 2 1.54100+ 7 1.08190- 2 1.55000+ 7 1.10480- 21273 307401612
+ 1.56000+ 7 1.13220- 2 1.59000+ 7 1.20380- 2 1.59610+ 7 1.21730- 21273 307401613
+ 1.60000+ 7 1.22080- 2 1.61000+ 7 1.23830- 2 1.65000+ 7 1.29770- 21273 307401614
+ 1.65110+ 7 1.29930- 2 1.66000+ 7 1.30530- 2 1.67000+ 7 1.31520- 21273 307401615
+ 1.70000+ 7 1.34160- 2 1.70610+ 7 1.34680- 2 1.71000+ 7 1.34530- 21273 307401616
+ 1.72000+ 7 1.35040- 2 1.75000+ 7 1.36240- 2 1.76000+ 7 1.36660- 21273 307401617
+ 1.76120+ 7 1.36710- 2 1.77000+ 7 1.36480- 2 1.78000+ 7 1.36570- 21273 307401618
+ 1.80000+ 7 1.36660- 2 1.81000+ 7 1.36750- 2 1.81620+ 7 1.36830- 21273 307401619
+ 1.82000+ 7 1.36450- 2 1.83000+ 7 1.36300- 2 1.84000+ 7 1.36090- 21273 307401620
+ 1.85000+ 7 1.35880- 2 1.87000+ 7 1.35540- 2 1.87130+ 7 1.35530- 21273 307401621
+ 1.88000+ 7 1.34890- 2 1.89000+ 7 1.34490- 2 1.90000+ 7 1.34060- 21273 307401622
+ 1.92000+ 7 1.33330- 2 1.92630+ 7 1.33140- 2 1.93000+ 7 1.32650- 21273 307401623
+ 1.94000+ 7 1.32130- 2 1.95000+ 7 1.31590- 2 1.98000+ 7 1.30130- 21273 307401624
+ 1.98130+ 7 1.30080- 2 1.99000+ 7 1.29270- 2 2.00000+ 7 1.28650- 21273 307401625
+                                                                  1273 300001626
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 307501627
+-4.46000+ 6-1.30000+ 7          0         22          1         491273 307501628
+         49          2                                            1273 307501629
+ 1.43100+ 7 0.00000+ 0 1.44000+ 7 1.25700- 3 1.45000+ 7 1.98720- 31273 307501630
+ 1.48000+ 7 4.50130- 3 1.48600+ 7 4.95320- 3 1.49000+ 7 5.21970- 31273 307501631
+ 1.50000+ 7 5.89470- 3 1.54000+ 7 8.17030- 3 1.54100+ 7 8.22070- 31273 307501632
+ 1.55000+ 7 8.60880- 3 1.56000+ 7 9.03980- 3 1.59000+ 7 1.01740- 21273 307501633
+ 1.59610+ 7 1.03840- 2 1.60000+ 7 1.04720- 2 1.61000+ 7 1.07660- 21273 307501634
+ 1.65000+ 7 1.17700- 2 1.65110+ 7 1.17960- 2 1.66000+ 7 1.19390- 21273 307501635
+ 1.67000+ 7 1.21240- 2 1.70000+ 7 1.26160- 2 1.70610+ 7 1.27100- 21273 307501636
+ 1.71000+ 7 1.27240- 2 1.72000+ 7 1.28410- 2 1.75000+ 7 1.31380- 21273 307501637
+ 1.76000+ 7 1.32340- 2 1.76120+ 7 1.32450- 2 1.77000+ 7 1.32680- 21273 307501638
+ 1.78000+ 7 1.33260- 2 1.80000+ 7 1.34240- 2 1.81000+ 7 1.34750- 21273 307501639
+ 1.81620+ 7 1.35070- 2 1.82000+ 7 1.34840- 2 1.83000+ 7 1.35070- 21273 307501640
+ 1.84000+ 7 1.35220- 2 1.85000+ 7 1.35350- 2 1.87000+ 7 1.35650- 21273 307501641
+ 1.87130+ 7 1.35670- 2 1.88000+ 7 1.35280- 2 1.89000+ 7 1.35170- 21273 307501642
+ 1.90000+ 7 1.35000- 2 1.92000+ 7 1.34760- 2 1.92630+ 7 1.34720- 21273 307501643
+ 1.93000+ 7 1.34310- 2 1.94000+ 7 1.34000- 2 1.95000+ 7 1.33660- 21273 307501644
+ 1.98000+ 7 1.32760- 2 1.98130+ 7 1.32730- 2 1.99000+ 7 1.32060- 21273 307501645
+ 2.00000+ 7 1.31590- 2                                            1273 307501646
+                                                                  1273 300001647
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 307601648
+-5.93400+ 6-1.35000+ 7          0         35          1         451273 307601649
+         45          2                                            1273 307601650
+ 1.48600+ 7 0.00000+ 0 1.49000+ 7 8.86280- 4 1.50000+ 7 1.50260- 31273 307601651
+ 1.54000+ 7 4.61290- 3 1.54100+ 7 4.68410- 3 1.55000+ 7 5.27430- 31273 307601652
+ 1.56000+ 7 5.90490- 3 1.59000+ 7 7.56880- 3 1.59610+ 7 7.87400- 31273 307601653
+ 1.60000+ 7 8.03120- 3 1.61000+ 7 8.47560- 3 1.65000+ 7 1.00020- 21273 307601654
+ 1.65110+ 7 1.00400- 2 1.66000+ 7 1.02900- 2 1.67000+ 7 1.05830- 21273 307601655
+ 1.70000+ 7 1.13680- 2 1.70610+ 7 1.15160- 2 1.71000+ 7 1.15660- 21273 307601656
+ 1.72000+ 7 1.17670- 2 1.75000+ 7 1.22940- 2 1.76000+ 7 1.24560- 21273 307601657
+ 1.76120+ 7 1.24760- 2 1.77000+ 7 1.25590- 2 1.78000+ 7 1.26790- 21273 307601658
+ 1.80000+ 7 1.28930- 2 1.81000+ 7 1.29980- 2 1.81620+ 7 1.30620- 21273 307601659
+ 1.82000+ 7 1.30590- 2 1.83000+ 7 1.31310- 2 1.84000+ 7 1.31930- 21273 307601660
+ 1.85000+ 7 1.32500- 2 1.87000+ 7 1.33620- 2 1.87130+ 7 1.33690- 21273 307601661
+ 1.88000+ 7 1.33640- 2 1.89000+ 7 1.33890- 2 1.90000+ 7 1.34070- 21273 307601662
+ 1.92000+ 7 1.34480- 2 1.92630+ 7 1.34630- 2 1.93000+ 7 1.34330- 21273 307601663
+ 1.94000+ 7 1.34310- 2 1.95000+ 7 1.34240- 2 1.98000+ 7 1.34080- 21273 307601664
+ 1.98130+ 7 1.34080- 2 1.99000+ 7 1.33600- 2 2.00000+ 7 1.33340- 21273 307601665
+                                                                  1273 300001666
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 307701667
+-5.93400+ 6-1.40000+ 7          0         35          1         411273 307701668
+         41          2                                            1273 307701669
+ 1.54100+ 7 0.00000+ 0 1.55000+ 7 1.11100- 3 1.56000+ 7 1.76630- 31273 307701670
+ 1.59000+ 7 4.05390- 3 1.59610+ 7 4.47890- 3 1.60000+ 7 4.72380- 31273 307701671
+ 1.61000+ 7 5.35820- 3 1.65000+ 7 7.54200- 3 1.65110+ 7 7.59610- 31273 307701672
+ 1.66000+ 7 7.98130- 3 1.67000+ 7 8.41200- 3 1.70000+ 7 9.56540- 31273 307701673
+ 1.70610+ 7 9.78060- 3 1.71000+ 7 9.87910- 3 1.72000+ 7 1.01870- 21273 307701674
+ 1.75000+ 7 1.10030- 2 1.76000+ 7 1.12520- 2 1.76120+ 7 1.12820- 21273 307701675
+ 1.77000+ 7 1.14410- 2 1.78000+ 7 1.16410- 2 1.80000+ 7 1.20030- 21273 307701676
+ 1.81000+ 7 1.21750- 2 1.81620+ 7 1.22800- 2 1.82000+ 7 1.23040- 21273 307701677
+ 1.83000+ 7 1.24380- 2 1.84000+ 7 1.25600- 2 1.85000+ 7 1.26740- 21273 307701678
+ 1.87000+ 7 1.28920- 2 1.87130+ 7 1.29060- 2 1.88000+ 7 1.29450- 21273 307701679
+ 1.89000+ 7 1.30170- 2 1.90000+ 7 1.30800- 2 1.92000+ 7 1.32040- 21273 307701680
+ 1.92630+ 7 1.32440- 2 1.93000+ 7 1.32280- 2 1.94000+ 7 1.32640- 21273 307701681
+ 1.95000+ 7 1.32930- 2 1.98000+ 7 1.33730- 2 1.98130+ 7 1.33770- 21273 307701682
+ 1.99000+ 7 1.33540- 2 2.00000+ 7 1.33570- 2                      1273 307701683
+                                                                  1273 300001684
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 307801685
+-6.58500+ 6-1.45000+ 7          0         28          1         371273 307801686
+         37          2                                            1273 307801687
+ 1.59610+ 7 0.00000+ 0 1.60000+ 7 7.96340- 4 1.61000+ 7 1.35680- 31273 307801688
+ 1.65000+ 7 4.23630- 3 1.65110+ 7 4.31010- 3 1.66000+ 7 4.86580- 31273 307801689
+ 1.67000+ 7 5.46860- 3 1.70000+ 7 7.08410- 3 1.70610+ 7 7.38360- 31273 307801690
+ 1.71000+ 7 7.54300- 3 1.72000+ 7 7.98550- 3 1.75000+ 7 9.16480- 31273 307801691
+ 1.76000+ 7 9.52200- 3 1.76120+ 7 9.56400- 3 1.77000+ 7 9.82030- 31273 307801692
+ 1.78000+ 7 1.01210- 2 1.80000+ 7 1.06700- 2 1.81000+ 7 1.09280- 21273 307801693
+ 1.81620+ 7 1.10830- 2 1.82000+ 7 1.11410- 2 1.83000+ 7 1.13550- 21273 307801694
+ 1.84000+ 7 1.15530- 2 1.85000+ 7 1.17390- 2 1.87000+ 7 1.20900- 21273 307801695
+ 1.87130+ 7 1.21120- 2 1.88000+ 7 1.22080- 2 1.89000+ 7 1.23400- 21273 307801696
+ 1.90000+ 7 1.24610- 2 1.92000+ 7 1.26910- 2 1.92630+ 7 1.27620- 21273 307801697
+ 1.93000+ 7 1.27660- 2 1.94000+ 7 1.28500- 2 1.95000+ 7 1.29240- 21273 307801698
+ 1.98000+ 7 1.31290- 2 1.98130+ 7 1.31380- 2 1.99000+ 7 1.31480- 21273 307801699
+ 2.00000+ 7 1.31870- 2                                            1273 307801700
+                                                                  1273 300001701
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 307901702
+-5.93400+ 6-1.50000+ 7          0         35          1         331273 307901703
+         33          2                                            1273 307901704
+ 1.65110+ 7 0.00000+ 0 1.66000+ 7 1.01810- 3 1.67000+ 7 1.62560- 31273 307901705
+ 1.70000+ 7 3.77530- 3 1.70610+ 7 4.17950- 3 1.71000+ 7 4.41540- 31273 307901706
+ 1.72000+ 7 5.02500- 3 1.75000+ 7 6.65790- 3 1.76000+ 7 7.14970- 31273 307901707
+ 1.76120+ 7 7.20730- 3 1.77000+ 7 7.58530- 3 1.78000+ 7 8.01130- 31273 307901708
+ 1.80000+ 7 8.79350- 3 1.81000+ 7 9.15890- 3 1.81620+ 7 9.37780- 31273 307901709
+ 1.82000+ 7 9.47910- 3 1.83000+ 7 9.79220- 3 1.84000+ 7 1.00850- 21273 307901710
+ 1.85000+ 7 1.03620- 2 1.87000+ 7 1.08800- 2 1.87130+ 7 1.09130- 21273 307901711
+ 1.88000+ 7 1.10800- 2 1.89000+ 7 1.12880- 2 1.90000+ 7 1.14820- 21273 307901712
+ 1.92000+ 7 1.18460- 2 1.92630+ 7 1.19570- 2 1.93000+ 7 1.19860- 21273 307901713
+ 1.94000+ 7 1.21290- 2 1.95000+ 7 1.22620- 2 1.98000+ 7 1.26240- 21273 307901714
+ 1.98130+ 7 1.26390- 2 1.99000+ 7 1.26930- 2 2.00000+ 7 1.27780- 21273 307901715
+                                                                  1273 300001716
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 308001717
+-5.93400+ 6-1.55000+ 7          0         35          1         291273 308001718
+         29          2                                            1273 308001719
+ 1.70610+ 7 0.00000+ 0 1.71000+ 7 7.39290- 4 1.72000+ 7 1.26450- 31273 308001720
+ 1.75000+ 7 3.33870- 3 1.76000+ 7 3.99710- 3 1.76120+ 7 4.07410- 31273 308001721
+ 1.77000+ 7 4.60350- 3 1.78000+ 7 5.18540- 3 1.80000+ 7 6.25710- 31273 308001722
+ 1.81000+ 7 6.75530- 3 1.81620+ 7 7.05300- 3 1.82000+ 7 7.20850- 31273 308001723
+ 1.83000+ 7 7.64530- 3 1.84000+ 7 8.05660- 3 1.85000+ 7 8.44600- 31273 308001724
+ 1.87000+ 7 9.17270- 3 1.87130+ 7 9.21800- 3 1.88000+ 7 9.47530- 31273 308001725
+ 1.89000+ 7 9.77820- 3 1.90000+ 7 1.00620- 2 1.92000+ 7 1.05940- 21273 308001726
+ 1.92630+ 7 1.07540- 2 1.93000+ 7 1.08150- 2 1.94000+ 7 1.10340- 21273 308001727
+ 1.95000+ 7 1.12390- 2 1.98000+ 7 1.17990- 2 1.98130+ 7 1.18220- 21273 308001728
+ 1.99000+ 7 1.19300- 2 2.00000+ 7 1.20730- 2                      1273 308001729
+                                                                  1273 300001730
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 308101731
+-5.93400+ 6-1.60000+ 7          0         35          1         241273 308101732
+         24          2                                            1273 308101733
+ 1.76120+ 7 0.00000+ 0 1.77000+ 7 9.57230- 4 1.78000+ 7 1.53230- 31273 308101734
+ 1.80000+ 7 2.92140- 3 1.81000+ 7 3.58340- 3 1.81620+ 7 3.97800- 31273 308101735
+ 1.82000+ 7 4.20100- 3 1.83000+ 7 4.79050- 3 1.84000+ 7 5.34800- 31273 308101736
+ 1.85000+ 7 5.87680- 3 1.87000+ 7 6.86070- 3 1.87130+ 7 6.92170- 31273 308101737
+ 1.88000+ 7 7.29090- 3 1.89000+ 7 7.71110- 3 1.90000+ 7 8.10730- 31273 308101738
+ 1.92000+ 7 8.84730- 3 1.92630+ 7 9.06800- 3 1.93000+ 7 9.16830- 31273 308101739
+ 1.94000+ 7 9.48180- 3 1.95000+ 7 9.77680- 3 1.98000+ 7 1.05820- 21273 308101740
+ 1.98130+ 7 1.06150- 2 1.99000+ 7 1.07920- 2 2.00000+ 7 1.10070- 21273 308101741
+                                                                  1273 300001742
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 308201743
+-4.46000+ 6-1.65000+ 7          0         22          1         191273 308201744
+         19          2                                            1273 308201745
+ 1.81620+ 7 0.00000+ 0 1.82000+ 7 6.98810- 4 1.83000+ 7 1.19850- 31273 308201746
+ 1.84000+ 7 1.82150- 3 1.85000+ 7 2.51910- 3 1.87000+ 7 3.81890- 31273 308201747
+ 1.87130+ 7 3.89930- 3 1.88000+ 7 4.40650- 3 1.89000+ 7 4.97100- 31273 308201748
+ 1.90000+ 7 5.50550- 3 1.92000+ 7 6.50100- 3 1.92630+ 7 6.79670- 31273 308201749
+ 1.93000+ 7 6.94640- 3 1.94000+ 7 7.37610- 3 1.95000+ 7 7.78230- 31273 308201750
+ 1.98000+ 7 8.89040- 3 1.98130+ 7 8.93560- 3 1.99000+ 7 9.19690- 31273 308201751
+ 2.00000+ 7 9.50230- 3                                            1273 308201752
+                                                                  1273 300001753
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 308301754
+-5.93400+ 6-1.70000+ 7          0         35          1         131273 308301755
+         13          2                                            1273 308301756
+ 1.87130+ 7 0.00000+ 0 1.88000+ 7 9.10790- 4 1.89000+ 7 1.46080- 31273 308301757
+ 1.90000+ 7 2.12550- 3 1.92000+ 7 3.43370- 3 1.92630+ 7 3.82100- 31273 308301758
+ 1.93000+ 7 4.03170- 3 1.94000+ 7 4.60370- 3 1.95000+ 7 5.14630- 31273 308301759
+ 1.98000+ 7 6.62580- 3 1.98130+ 7 6.68580- 3 1.99000+ 7 7.05180- 31273 308301760
+ 2.00000+ 7 7.46750- 3                                            1273 308301761
+                                                                  1273 300001762
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 308401763
+-5.93400+ 6-1.75000+ 7          0         35          1          81273 308401764
+          8          2                                            1273 308401765
+ 1.92630+ 7 0.00000+ 0 1.93000+ 7 6.66470- 4 1.94000+ 7 1.14530- 31273 308401766
+ 1.95000+ 7 1.74350- 3 1.98000+ 7 3.67330- 3 1.98130+ 7 3.75130- 31273 308401767
+ 1.99000+ 7 4.24560- 3 2.00000+ 7 4.79610- 3                      1273 308401768
+                                                                  1273 300001769
+ 5.01000+ 3 9.92690+ 0          0         98          0          01273 308501770
+-4.46000+ 6-1.80000+ 7          0         22          1          31273 308501771
+          3          2                                            1273 308501772
+ 1.98130+ 7 0.00000+ 0 1.99000+ 7 8.72500- 4 2.00000+ 7 1.40200- 31273 308501773
+                                                                  1273 300001774
+ 5.01000+ 3 9.92690+ 0          0         99          0          01273 310301775
+ 0.00000+ 0 2.26700+ 5          0          0          2         921273 310301776
+          5          5         92          2                      1273 310301777
+ 1.00000- 5 2.84500- 2 2.53000- 2 5.66000- 4 1.00000+ 0 9.00000- 51273 310301778
+ 1.00000+ 3 2.92000- 6 5.10000+ 4 1.37000- 6 1.00000+ 5 2.52000- 61273 310301779
+ 2.00000+ 5 7.98000- 6 4.00000+ 5 4.37000- 5 6.00000+ 5 1.49000- 41273 310301780
+ 8.00000+ 5 4.02000- 4 1.00000+ 6 9.53000- 4 1.20000+ 6 2.14000- 31273 310301781
+ 1.30000+ 6 3.18000- 3 1.40000+ 6 4.65000- 3 1.50000+ 6 5.93000- 31273 310301782
+ 1.55000+ 6 6.48000- 3 1.60000+ 6 7.00000- 3 1.70000+ 6 7.77000- 31273 310301783
+ 1.80000+ 6 8.49280- 3 2.00000+ 6 9.44000- 3 2.20000+ 6 1.02780- 21273 310301784
+ 2.40000+ 6 1.11140- 2 2.60000+ 6 1.18860- 2 2.80000+ 6 1.25790- 21273 310301785
+ 3.00000+ 6 1.32000- 2 3.20000+ 6 1.35420- 2 3.40000+ 6 1.37640- 21273 310301786
+ 3.45500+ 6 1.38090- 2 3.60000+ 6 1.41540- 2 3.70000+ 6 1.43650- 21273 310301787
+ 3.80000+ 6 1.48190- 2 3.90000+ 6 1.56970- 2 4.00000+ 6 1.68000- 21273 310301788
+ 4.20000+ 6 1.95380- 2 4.40000+ 6 2.25400- 2 4.60000+ 6 2.49540- 21273 310301789
+ 4.80000+ 6 2.65520- 2 5.00000+ 6 2.76800- 2 5.20000+ 6 2.81540- 21273 310301790
+ 5.40000+ 6 2.84660- 2 5.60000+ 6 2.86650- 2 5.80000+ 6 2.87450- 21273 310301791
+ 6.00000+ 6 2.87840- 2 6.20000+ 6 2.87710- 2 6.30000+ 6 2.87430- 21273 310301792
+ 6.30900+ 6 2.87410- 2 6.40000+ 6 2.87380- 2 6.50000+ 6 2.87250- 21273 310301793
+ 6.55000+ 6 2.87210- 2 6.60000+ 6 2.87350- 2 6.70000+ 6 2.87550- 21273 310301794
+ 6.80000+ 6 2.87850- 2 6.90000+ 6 2.88730- 2 7.00000+ 6 2.90080- 21273 310301795
+ 7.10000+ 6 2.90360- 2 7.20000+ 6 2.94100- 2 7.30000+ 6 3.04340- 21273 310301796
+ 7.40000+ 6 3.21660- 2 7.50000+ 6 3.43200- 2 7.60000+ 6 3.66490- 21273 310301797
+ 7.80000+ 6 4.15020- 2 8.00000+ 6 4.56080- 2 8.20000+ 6 4.71850- 21273 310301798
+ 8.40000+ 6 4.78600- 2 8.60000+ 6 4.81460- 2 8.80000+ 6 4.81830- 21273 310301799
+ 9.00000+ 6 4.80900- 2 9.20000+ 6 4.78520- 2 9.40000+ 6 4.75100- 21273 310301800
+ 9.60000+ 6 4.70790- 2 9.80000+ 6 4.65870- 2 1.00000+ 7 4.60310- 21273 310301801
+ 1.05000+ 7 4.44420- 2 1.10000+ 7 4.28040- 2 1.15000+ 7 4.11380- 21273 310301802
+ 1.20000+ 7 3.94700- 2 1.25000+ 7 3.78030- 2 1.30000+ 7 3.61370- 21273 310301803
+ 1.35000+ 7 3.44690- 2 1.40000+ 7 3.28030- 2 1.45000+ 7 3.11360- 21273 310301804
+ 1.50000+ 7 2.94690- 2 1.55000+ 7 2.78020- 2 1.60000+ 7 2.61350- 21273 310301805
+ 1.65000+ 7 2.44680- 2 1.70000+ 7 2.28010- 2 1.75000+ 7 2.11340- 21273 310301806
+ 1.80000+ 7 1.94680- 2 1.85000+ 7 1.78010- 2 1.90000+ 7 1.61340- 21273 310301807
+ 1.95000+ 7 1.44670- 2 2.00000+ 7 1.28000- 2                      1273 310301808
+                                                                  1273 300001809
+ 5.01000+ 3 9.92690+ 0          0         99          0          01273 310401810
+ 0.00000+ 0-4.36100+ 6          0          0          1         491273 310401811
+         49          2                                            1273 310401812
+ 4.80000+ 6 0.00000+ 0 5.00000+ 6 6.30000- 4 5.10000+ 6 1.09170- 31273 310401813
+ 5.20000+ 6 2.04180- 3 5.30000+ 6 3.86280- 3 5.40000+ 6 6.46920- 31273 310401814
+ 5.60000+ 6 1.22040- 2 5.80000+ 6 1.74600- 2 6.00000+ 6 2.20500- 21273 310401815
+ 6.20000+ 6 2.57400- 2 6.40000+ 6 2.88290- 2 6.60000+ 6 3.12500- 21273 310401816
+ 6.80000+ 6 3.31250- 2 7.00000+ 6 3.47400- 2 7.20000+ 6 3.59780- 21273 310401817
+ 7.40000+ 6 3.67700- 2 7.60000+ 6 3.72650- 2 7.80000+ 6 3.76020- 21273 310401818
+ 8.00000+ 6 3.78000- 2 8.20000+ 6 3.78490- 2 8.40000+ 6 3.78250- 21273 310401819
+ 8.60000+ 6 3.77780- 2 8.80000+ 6 3.77130- 2 9.00000+ 6 3.76200- 21273 310401820
+ 9.20000+ 6 3.74630- 2 9.40000+ 6 3.72820- 2 9.60000+ 6 3.70750- 21273 310401821
+ 9.80000+ 6 3.68420- 2 1.00000+ 7 3.65850- 2 1.05000+ 7 3.59180- 21273 310401822
+ 1.10000+ 7 3.51900- 2 1.15000+ 7 3.44500- 2 1.20000+ 7 3.36600- 21273 310401823
+ 1.25000+ 7 3.27820- 2 1.30000+ 7 3.18600- 2 1.35000+ 7 3.09210- 21273 310401824
+ 1.40000+ 7 2.99700- 2 1.45000+ 7 2.90240- 2 1.50000+ 7 2.80800- 21273 310401825
+ 1.55000+ 7 2.71530- 2 1.60000+ 7 2.62260- 2 1.65000+ 7 2.52990- 21273 310401826
+ 1.70000+ 7 2.43720- 2 1.75000+ 7 2.34450- 2 1.80000+ 7 2.25180- 21273 310401827
+ 1.85000+ 7 2.15910- 2 1.90000+ 7 2.06640- 2 1.95000+ 7 1.97370- 21273 310401828
+ 2.00000+ 7 1.88100- 2                                            1273 310401829
+                                                                  1273 300001830
+ 5.01000+ 3 9.92690+ 0          0         99          0          01273 310701831
+ 0.00000+ 0 2.79000+ 6          0          0          2        1931273 310701832
+         96          5        193          2                      1273 310701833
+ 1.00000- 5 1.93000+ 5 2.53000- 2 3.83650+ 3 1.00000- 1 1.92940+ 31273 310701834
+ 1.00000+ 0 6.09890+ 2 1.00000+ 1 1.92600+ 2 1.00000+ 2 6.06440+ 11273 310701835
+ 1.00000+ 3 1.89580+ 1 5.00000+ 3 8.36390+ 0 1.00000+ 4 5.88710+ 01273 310701836
+ 2.00000+ 4 4.16550+ 0 3.00000+ 4 3.41900+ 0 4.00000+ 4 2.98130+ 01273 310701837
+ 5.00000+ 4 2.68640+ 0 6.00000+ 4 2.47050+ 0 7.00000+ 4 2.30320+ 01273 310701838
+ 8.00000+ 4 2.16830+ 0 9.00000+ 4 2.05580+ 0 1.00000+ 5 1.95960+ 01273 310701839
+ 1.10000+ 5 1.87550+ 0 1.20000+ 5 1.80080+ 0 1.30000+ 5 1.73340+ 01273 310701840
+ 1.40000+ 5 1.67180+ 0 1.50000+ 5 1.61490+ 0 1.60000+ 5 1.56190+ 01273 310701841
+ 1.70000+ 5 1.51230+ 0 1.80000+ 5 1.46530+ 0 1.90000+ 5 1.42090+ 01273 310701842
+ 2.00000+ 5 1.37870+ 0 2.05000+ 5 1.35830+ 0 2.10000+ 5 1.33830+ 01273 310701843
+ 2.15000+ 5 1.31880+ 0 2.20000+ 5 1.29970+ 0 2.25000+ 5 1.28110+ 01273 310701844
+ 2.30000+ 5 1.26270+ 0 2.35000+ 5 1.24480+ 0 2.40000+ 5 1.22710+ 01273 310701845
+ 2.45000+ 5 1.20990+ 0 2.50000+ 5 1.19290+ 0 2.60000+ 5 1.16000+ 01273 310701846
+ 2.70000+ 5 1.12830+ 0 2.80000+ 5 1.09790+ 0 2.90000+ 5 1.06890+ 01273 310701847
+ 3.00000+ 5 1.04140+ 0 3.10000+ 5 1.01550+ 0 3.20000+ 5 9.91470- 11273 310701848
+ 3.30000+ 5 9.69340- 1 3.40000+ 5 9.49250- 1 3.50000+ 5 9.31260- 11273 310701849
+ 3.60000+ 5 9.15420- 1 3.70000+ 5 9.01670- 1 3.80000+ 5 8.89860- 11273 310701850
+ 3.90000+ 5 8.79810- 1 4.00000+ 5 8.71220- 1 4.10000+ 5 8.63740- 11273 310701851
+ 4.20000+ 5 8.56910- 1 4.30000+ 5 8.50240- 1 4.40000+ 5 8.43170- 11273 310701852
+ 4.50000+ 5 8.35220- 1 4.60000+ 5 8.25910- 1 4.65000+ 5 8.20630- 11273 310701853
+ 4.70000+ 5 8.14870- 1 4.75000+ 5 8.08620- 1 4.80000+ 5 8.01850- 11273 310701854
+ 4.85000+ 5 7.94580- 1 4.90000+ 5 7.86770- 1 4.95000+ 5 7.78450- 11273 310701855
+ 5.00000+ 5 7.69660- 1 5.05000+ 5 7.60400- 1 5.10000+ 5 7.50710- 11273 310701856
+ 5.15000+ 5 7.40620- 1 5.20000+ 5 7.30190- 1 5.30000+ 5 7.08450- 11273 310701857
+ 5.40000+ 5 6.85850- 1 5.60000+ 5 6.39500- 1 5.80000+ 5 5.93650- 11273 310701858
+ 6.00000+ 5 5.49980- 1 6.20000+ 5 5.09500- 1 6.40000+ 5 4.72630- 11273 310701859
+ 6.60000+ 5 4.39370- 1 6.80000+ 5 4.09580- 1 7.00000+ 5 3.82970- 11273 310701860
+ 7.20000+ 5 3.59240- 1 7.40000+ 5 3.38050- 1 7.60000+ 5 3.19140- 11273 310701861
+ 7.80000+ 5 3.02230- 1 8.00000+ 5 2.87100- 1 8.20000+ 5 2.73550- 11273 310701862
+ 8.40000+ 5 2.61420- 1 8.60000+ 5 2.50560- 1 8.80000+ 5 2.40850- 11273 310701863
+ 9.00000+ 5 2.32200- 1 9.20000+ 5 2.24560- 1 9.40000+ 5 2.17860- 11273 310701864
+ 9.60000+ 5 2.12120- 1 9.80000+ 5 2.07380- 1 1.00000+ 6 2.03740- 11273 310701865
+ 1.10000+ 6 1.94400- 1 1.20000+ 6 1.96000- 1 1.30000+ 6 2.06000- 11273 310701866
+ 1.40000+ 6 2.25200- 1 1.50000+ 6 2.61000- 1 1.55000+ 6 2.89790- 11273 310701867
+ 1.60000+ 6 3.31500- 1 1.65000+ 6 3.82000- 1 1.70000+ 6 4.35100- 11273 310701868
+ 1.75000+ 6 4.85100- 1 1.80000+ 6 5.12500- 1 1.85000+ 6 5.24200- 11273 310701869
+ 1.90000+ 6 5.19500- 1 1.95000+ 6 4.99400- 1 2.00000+ 6 4.72000- 11273 310701870
+ 2.05000+ 6 4.43030- 1 2.10000+ 6 4.10800- 1 2.15000+ 6 3.81710- 11273 310701871
+ 2.20000+ 6 3.56400- 1 2.25000+ 6 3.33550- 1 2.30000+ 6 3.13500- 11273 310701872
+ 2.35000+ 6 2.98590- 1 2.40000+ 6 2.88000- 1 2.45000+ 6 2.82360- 11273 310701873
+ 2.50000+ 6 2.74100- 1 2.55000+ 6 2.92460- 1 2.60000+ 6 3.05000- 11273 310701874
+ 2.65000+ 6 3.17500- 1 2.70000+ 6 3.29800- 1 2.75000+ 6 3.40000- 11273 310701875
+ 2.80000+ 6 3.41100- 1 2.85000+ 6 3.30700- 1 2.90000+ 6 3.16400- 11273 310701876
+ 2.95000+ 6 3.02600- 1 3.00000+ 6 2.89900- 1 3.05000+ 6 2.78320- 11273 310701877
+ 3.10000+ 6 2.67800- 1 3.15000+ 6 2.59270- 1 3.20000+ 6 2.51200- 11273 310701878
+ 3.30000+ 6 2.35210- 1 3.40000+ 6 2.22200- 1 3.60000+ 6 2.13500- 11273 310701879
+ 3.70000+ 6 2.17400- 1 3.80000+ 6 2.27200- 1 4.00000+ 6 2.50600- 11273 310701880
+ 4.20000+ 6 2.68800- 1 4.30000+ 6 2.67700- 1 4.40000+ 6 2.56400- 11273 310701881
+ 4.60000+ 6 2.31230- 1 4.80000+ 6 2.11290- 1 5.00000+ 6 1.93800- 11273 310701882
+ 5.20000+ 6 1.78100- 1 5.40000+ 6 1.61800- 1 5.50000+ 6 1.57000- 11273 310701883
+ 5.60000+ 6 1.54600- 1 5.80000+ 6 1.50900- 1 6.00000+ 6 1.43600- 11273 310701884
+ 6.20000+ 6 1.37300- 1 6.40000+ 6 1.35700- 1 6.60000+ 6 1.39300- 11273 310701885
+ 6.80000+ 6 1.21800- 1 7.00000+ 6 1.07800- 1 7.20000+ 6 9.86330- 21273 310701886
+ 7.40000+ 6 9.14480- 2 7.60000+ 6 8.54180- 2 7.80000+ 6 8.02320- 21273 310701887
+ 8.00000+ 6 7.57000- 2 8.20000+ 6 7.23160- 2 8.40000+ 6 6.96140- 21273 310701888
+ 8.60000+ 6 6.70980- 2 8.80000+ 6 6.49940- 2 9.00000+ 6 6.37000- 21273 310701889
+ 9.20000+ 6 6.23450- 2 9.40000+ 6 6.15380- 2 9.60000+ 6 6.09940- 21273 310701890
+ 9.80000+ 6 6.03800- 2 1.00000+ 7 5.97500- 2 1.05000+ 7 5.90650- 21273 310701891
+ 1.10000+ 7 5.84800- 2 1.15000+ 7 5.81950- 2 1.20000+ 7 5.81600- 21273 310701892
+ 1.25000+ 7 5.84250- 2 1.30000+ 7 5.87900- 2 1.35000+ 7 5.93550- 21273 310701893
+ 1.40000+ 7 6.02200- 2 1.45000+ 7 6.04350- 2 1.50000+ 7 5.97500- 21273 310701894
+ 1.55000+ 7 5.82940- 2 1.60000+ 7 5.68170- 2 1.65000+ 7 5.53400- 21273 310701895
+ 1.70000+ 7 5.38630- 2 1.75000+ 7 5.23860- 2 1.80000+ 7 5.09080- 21273 310701896
+ 1.85000+ 7 4.94310- 2 1.90000+ 7 4.79540- 2 1.95000+ 7 4.64770- 21273 310701897
+ 2.00000+ 7 4.50000- 2                                            1273 310701898
+                                                                  1273 300001899
+ 5.01000+ 3 9.92690+ 0          0         99          0          01273 311301900
+ 0.00000+ 0 2.31800+ 5          0          0          2         951273 311301901
+          5          5         95          2                      1273 311301902
+ 1.00000- 5 2.84500- 2 2.53000- 2 5.66000- 4 1.00000+ 0 9.00000- 51273 311301903
+ 1.00000+ 3 2.92000- 6 5.10000+ 4 1.37000- 6 1.00000+ 5 2.52000- 61273 311301904
+ 2.00000+ 5 7.98000- 6 4.00000+ 5 4.37000- 5 6.00000+ 5 1.49000- 41273 311301905
+ 8.00000+ 5 4.02000- 4 1.00000+ 6 9.53000- 4 1.20000+ 6 2.14000- 31273 311301906
+ 1.30000+ 6 3.18000- 3 1.40000+ 6 4.74000- 3 1.50000+ 6 7.12000- 31273 311301907
+ 1.60000+ 6 1.07100- 2 1.70000+ 6 1.60000- 2 1.74000+ 6 1.86400- 21273 311301908
+ 1.78000+ 6 2.15200- 2 1.82000+ 6 2.45800- 2 1.86000+ 6 2.76200- 21273 311301909
+ 1.90000+ 6 3.03800- 2 1.94000+ 6 3.26600- 2 1.98000+ 6 3.41900- 21273 311301910
+ 2.02000+ 6 3.48100- 2 2.06000+ 6 3.45700- 2 2.10000+ 6 3.35400- 21273 311301911
+ 2.14000+ 6 3.19300- 2 2.18000+ 6 2.99500- 2 2.22000+ 6 2.78100- 21273 311301912
+ 2.26000+ 6 2.56400- 2 2.30000+ 6 2.35500- 2 2.35000+ 6 2.10000- 21273 311301913
+ 2.40000+ 6 2.10000- 2 2.45000+ 6 2.37000- 2 2.50000+ 6 2.73000- 21273 311301914
+ 2.60000+ 6 3.15000- 2 2.70000+ 6 3.35000- 2 2.80000+ 6 3.40000- 21273 311301915
+ 3.00000+ 6 3.58000- 2 3.20000+ 6 4.00000- 2 3.40000+ 6 4.90000- 21273 311301916
+ 3.60000+ 6 6.20000- 2 3.80000+ 6 7.70000- 2 4.00000+ 6 9.10000- 21273 311301917
+ 4.20000+ 6 1.08000- 1 4.40000+ 6 1.28000- 1 4.60000+ 6 1.55000- 11273 311301918
+ 4.80000+ 6 1.84000- 1 5.00000+ 6 2.06000- 1 5.20000+ 6 2.16000- 11273 311301919
+ 5.40000+ 6 2.20000- 1 5.60000+ 6 2.20500- 1 5.80000+ 6 2.18000- 11273 311301920
+ 6.00000+ 6 2.09500- 1 6.20000+ 6 1.90000- 1 6.40000+ 6 1.64000- 11273 311301921
+ 6.60000+ 6 1.42000- 1 6.80000+ 6 1.34000- 1 7.00000+ 6 1.29500- 11273 311301922
+ 7.20000+ 6 1.26000- 1 7.40000+ 6 1.24000- 1 7.60000+ 6 1.22800- 11273 311301923
+ 7.80000+ 6 1.21900- 1 8.00000+ 6 1.20800- 1 8.20000+ 6 1.19730- 11273 311301924
+ 8.40000+ 6 1.18660- 1 8.60000+ 6 1.17590- 1 8.80000+ 6 1.16510- 11273 311301925
+ 9.00000+ 6 1.15440- 1 9.20000+ 6 1.14370- 1 9.40000+ 6 1.13300- 11273 311301926
+ 9.60000+ 6 1.12230- 1 9.80000+ 6 1.11160- 1 1.00000+ 7 1.10080- 11273 311301927
+ 1.05000+ 7 1.07400- 1 1.10000+ 7 1.04730- 1 1.15000+ 7 1.02050- 11273 311301928
+ 1.20000+ 7 9.93670- 2 1.25000+ 7 9.66880- 2 1.30000+ 7 9.40080- 21273 311301929
+ 1.35000+ 7 9.13290- 2 1.40000+ 7 8.86500- 2 1.45000+ 7 8.59710- 21273 311301930
+ 1.50000+ 7 8.32920- 2 1.55000+ 7 8.06130- 2 1.60000+ 7 7.79330- 21273 311301931
+ 1.65000+ 7 7.52540- 2 1.70000+ 7 7.25750- 2 1.75000+ 7 6.98960- 21273 311301932
+ 1.80000+ 7 6.72170- 2 1.85000+ 7 6.45380- 2 1.90000+ 7 6.18580- 21273 311301933
+ 1.95000+ 7 5.91790- 2 2.00000+ 7 5.65000- 2                      1273 311301934
+                                                                  1273 300001935
+ 5.01000+ 3 9.92690+ 0          0          0          0          01273 325101936
+ 0.00000+ 0 0.00000+ 0          0          0          1         751273 325101937
+         75          2                                            1273 325101938
+ 1.00000- 5 6.76131- 2 1.00000+ 2 6.76131- 2 1.50000+ 5 5.79135- 21273 325101939
+ 2.75000+ 5 6.63152- 2 3.75000+ 5 8.82401- 2 4.75000+ 5 1.18010- 11273 325101940
+ 5.50000+ 5 1.20750- 1 7.50000+ 5 1.07618- 1 1.00000+ 6 1.12937- 11273 325101941
+ 1.20000+ 6 1.28233- 1 1.40000+ 6 1.47257- 1 1.50000+ 6 1.61305- 11273 325101942
+ 1.60000+ 6 1.87819- 1 1.70000+ 6 2.26005- 1 1.75000+ 6 2.51793- 11273 325101943
+ 1.80000+ 6 2.68624- 1 1.85000+ 6 2.67475- 1 1.90000+ 6 2.51464- 11273 325101944
+ 1.95000+ 6 2.34274- 1 2.00000+ 6 2.15834- 1 2.10000+ 6 1.92231- 11273 325101945
+ 2.20000+ 6 1.73252- 1 2.30000+ 6 1.59490- 1 2.40000+ 6 1.49899- 11273 325101946
+ 2.50000+ 6 1.45750- 1 2.60000+ 6 1.49861- 1 2.70000+ 6 1.59169- 11273 325101947
+ 2.80000+ 6 1.74418- 1 2.90000+ 6 1.95213- 1 3.00000+ 6 2.14282- 11273 325101948
+ 3.10000+ 6 2.30277- 1 3.20000+ 6 2.49317- 1 3.40000+ 6 2.75455- 11273 325101949
+ 3.60000+ 6 3.02002- 1 3.80000+ 6 3.25774- 1 3.90000+ 6 3.38197- 11273 325101950
+ 4.00000+ 6 3.49495- 1 4.20000+ 6 3.70128- 1 4.30000+ 6 3.78399- 11273 325101951
+ 4.60000+ 6 4.04038- 1 4.80000+ 6 4.21137- 1 5.00000+ 6 4.33048- 11273 325101952
+ 5.10000+ 6 4.37971- 1 5.30000+ 6 4.47341- 1 5.40000+ 6 4.51856- 11273 325101953
+ 5.50000+ 6 4.55578- 1 6.00000+ 6 4.72573- 1 6.25000+ 6 4.79745- 11273 325101954
+ 6.50000+ 6 4.86979- 1 6.75000+ 6 4.93153- 1 7.25000+ 6 5.01846- 11273 325101955
+ 7.60000+ 6 5.08218- 1 7.75000+ 6 5.10944- 1 8.00000+ 6 5.15732- 11273 325101956
+ 8.25000+ 6 5.20655- 1 8.75000+ 6 5.26787- 1 9.25000+ 6 5.37102- 11273 325101957
+ 9.50000+ 6 5.43287- 1 9.75000+ 6 5.48346- 1 1.07500+ 7 5.81509- 11273 325101958
+ 1.10000+ 7 5.90014- 1 1.15000+ 7 6.07163- 1 1.20000+ 7 6.24105- 11273 325101959
+ 1.25000+ 7 6.40123- 1 1.30000+ 7 6.56273- 1 1.35000+ 7 6.70431- 11273 325101960
+ 1.40000+ 7 6.83725- 1 1.45000+ 7 6.95166- 1 1.50000+ 7 7.05611- 11273 325101961
+ 1.55000+ 7 7.17185- 1 1.60000+ 7 7.26634- 1 1.70000+ 7 7.46527- 11273 325101962
+ 1.80000+ 7 7.65562- 1 1.90000+ 7 7.80478- 1 2.00000+ 7 7.93473- 11273 325101963
+                                                                  1273 300001964
+ 5.01000+ 3 9.92690+ 0          0          0          0          01273 325201965
+ 0.00000+ 0 0.00000+ 0          0          0          1         751273 325201966
+         75          2                                            1273 325201967
+ 1.00000- 5 1.88568- 1 1.00000+ 2 1.88568- 1 1.50000+ 5 1.90527- 11273 325201968
+ 2.75000+ 5 1.88830- 1 3.75000+ 5 1.84401- 1 4.75000+ 5 1.78388- 11273 325201969
+ 5.50000+ 5 1.77834- 1 7.50000+ 5 1.80486- 1 1.00000+ 6 1.79412- 11273 325201970
+ 1.20000+ 6 1.76322- 1 1.40000+ 6 1.72478- 1 1.50000+ 6 1.69640- 11273 325201971
+ 1.60000+ 6 1.64284- 1 1.70000+ 6 1.56571- 1 1.75000+ 6 1.51361- 11273 325201972
+ 1.80000+ 6 1.47961- 1 1.85000+ 6 1.48193- 1 1.90000+ 6 1.51426- 11273 325201973
+ 1.95000+ 6 1.54899- 1 2.00000+ 6 1.58625- 1 2.10000+ 6 1.63394- 11273 325201974
+ 2.20000+ 6 1.67227- 1 2.30000+ 6 1.70003- 1 2.40000+ 6 1.71937- 11273 325201975
+ 2.50000+ 6 1.72771- 1 2.60000+ 6 1.71934- 1 2.70000+ 6 1.70046- 11273 325201976
+ 2.80000+ 6 1.66958- 1 2.90000+ 6 1.62753- 1 3.00000+ 6 1.58898- 11273 325201977
+ 3.10000+ 6 1.55667- 1 3.20000+ 6 1.51821- 1 3.40000+ 6 1.46542- 11273 325201978
+ 3.60000+ 6 1.41180- 1 3.80000+ 6 1.36380- 1 3.90000+ 6 1.33871- 11273 325201979
+ 4.00000+ 6 1.31589- 1 4.20000+ 6 1.27420- 1 4.30000+ 6 1.25747- 11273 325201980
+ 4.60000+ 6 1.20565- 1 4.80000+ 6 1.17110- 1 5.00000+ 6 1.14702- 11273 325201981
+ 5.10000+ 6 1.13707- 1 5.30000+ 6 1.11812- 1 5.40000+ 6 1.10899- 11273 325201982
+ 5.50000+ 6 1.10146- 1 6.00000+ 6 1.06709- 1 6.25000+ 6 1.05258- 11273 325201983
+ 6.50000+ 6 1.03796- 1 6.75000+ 6 1.02547- 1 7.25000+ 6 1.00788- 11273 325201984
+ 7.60000+ 6 9.95004- 2 7.75000+ 6 9.89505- 2 8.00000+ 6 9.79851- 21273 325201985
+ 8.25000+ 6 9.69926- 2 8.75000+ 6 9.57585- 2 9.25000+ 6 9.36804- 21273 325201986
+ 9.50000+ 6 9.24340- 2 9.75000+ 6 9.14144- 2 1.07500+ 7 8.47246- 21273 325201987
+ 1.10000+ 7 8.30080- 2 1.15000+ 7 7.95480- 2 1.20000+ 7 7.61289- 21273 325201988
+ 1.25000+ 7 7.28976- 2 1.30000+ 7 6.96401- 2 1.35000+ 7 6.67854- 21273 325201989
+ 1.40000+ 7 6.41053- 2 1.45000+ 7 6.17997- 2 1.50000+ 7 5.96956- 21273 325201990
+ 1.55000+ 7 5.73637- 2 1.60000+ 7 5.54608- 2 1.70000+ 7 5.14538- 21273 325201991
+ 1.80000+ 7 4.76210- 2 1.90000+ 7 4.46198- 2 2.00000+ 7 4.20071- 21273 325201992
+                                                                  1273 300001993
+ 5.01000+ 3 9.92690+ 0          0          0          0          01273 325301994
+ 0.00000+ 0 0.00000+ 0          0          0          1         751273 325301995
+         75          2                                            1273 325301996
+ 1.00000- 5 1.30085- 1 1.00000+ 2 1.30085- 1 1.50000+ 5 1.30741- 11273 325301997
+ 2.75000+ 5 1.30168- 1 3.75000+ 5 1.28633- 1 4.75000+ 5 1.26520- 11273 325301998
+ 5.50000+ 5 1.26446- 1 7.50000+ 5 1.27656- 1 1.00000+ 6 1.27493- 11273 325301999
+ 1.20000+ 6 1.26912- 1 1.40000+ 6 1.26455- 1 1.50000+ 6 1.26381- 11273 325302000
+ 1.60000+ 6 1.25858- 1 1.70000+ 6 1.24619- 1 1.75000+ 6 1.23693- 11273 325302001
+ 1.80000+ 6 1.23567- 1 1.85000+ 6 1.25246- 1 1.90000+ 6 1.28150- 11273 325302002
+ 1.95000+ 6 1.29978- 1 2.00000+ 6 1.30881- 1 2.10000+ 6 1.31142- 11273 325302003
+ 2.20000+ 6 1.32655- 1 2.30000+ 6 1.35793- 1 2.40000+ 6 1.39510- 11273 325302004
+ 2.50000+ 6 1.43435- 1 2.60000+ 6 1.46491- 1 2.70000+ 6 1.47852- 11273 325302005
+ 2.80000+ 6 1.47736- 1 2.90000+ 6 1.46639- 1 3.00000+ 6 1.45261- 11273 325302006
+ 3.10000+ 6 1.44154- 1 3.20000+ 6 1.42729- 1 3.40000+ 6 1.40541- 11273 325302007
+ 3.60000+ 6 1.37574- 1 3.80000+ 6 1.34298- 1 3.90000+ 6 1.32459- 11273 325302008
+ 4.00000+ 6 1.30848- 1 4.20000+ 6 1.27588- 1 4.30000+ 6 1.26169- 11273 325302009
+ 4.60000+ 6 1.21913- 1 4.80000+ 6 1.19439- 1 5.00000+ 6 1.17892- 11273 325302010
+ 5.10000+ 6 1.17307- 1 5.30000+ 6 1.17032- 1 5.40000+ 6 1.17224- 11273 325302011
+ 5.50000+ 6 1.17163- 1 6.00000+ 6 1.18256- 1 6.25000+ 6 1.18700- 11273 325302012
+ 6.50000+ 6 1.19039- 1 6.75000+ 6 1.19664- 1 7.25000+ 6 1.20861- 11273 325302013
+ 7.60000+ 6 1.21109- 1 7.75000+ 6 1.21244- 1 8.00000+ 6 1.20937- 11273 325302014
+ 8.25000+ 6 1.20324- 1 8.75000+ 6 1.19089- 1 9.25000+ 6 1.16715- 11273 325302015
+ 9.50000+ 6 1.15246- 1 9.75000+ 6 1.14215- 1 1.07500+ 7 1.09666- 11273 325302016
+ 1.10000+ 7 1.09044- 1 1.15000+ 7 1.07362- 1 1.20000+ 7 1.06109- 11273 325302017
+ 1.25000+ 7 1.04792- 1 1.30000+ 7 1.02944- 1 1.35000+ 7 1.01491- 11273 325302018
+ 1.40000+ 7 9.97520- 2 1.45000+ 7 9.79917- 2 1.50000+ 7 9.64366- 21273 325302019
+ 1.55000+ 7 9.39071- 2 1.60000+ 7 9.24402- 2 1.70000+ 7 8.87781- 21273 325302020
+ 1.80000+ 7 8.43245- 2 1.90000+ 7 8.18471- 2 2.00000+ 7 7.97488- 21273 325302021
+                                                                  1273 300002022
+ 5.01000+ 3 9.92690+ 0          0          0          0          01273 370002023
+ 0.00000+ 0 2.26700+ 5          0          0          2         921273 370002024
+          5          5         92          2                      1273 370002025
+ 1.00000- 5 2.84500- 2 2.53000- 2 5.66000- 4 1.00000+ 0 9.00000- 51273 370002026
+ 1.00000+ 3 2.92000- 6 5.10000+ 4 1.37000- 6 1.00000+ 5 2.52000- 61273 370002027
+ 2.00000+ 5 7.98000- 6 4.00000+ 5 4.37000- 5 6.00000+ 5 1.49000- 41273 370002028
+ 8.00000+ 5 4.02000- 4 1.00000+ 6 9.53000- 4 1.20000+ 6 2.14000- 31273 370002029
+ 1.30000+ 6 3.18000- 3 1.40000+ 6 4.65000- 3 1.50000+ 6 5.93000- 31273 370002030
+ 1.55000+ 6 6.48000- 3 1.60000+ 6 7.00000- 3 1.70000+ 6 7.77000- 31273 370002031
+ 1.80000+ 6 8.49280- 3 2.00000+ 6 9.44000- 3 2.20000+ 6 1.02780- 21273 370002032
+ 2.40000+ 6 1.11140- 2 2.60000+ 6 1.18860- 2 2.80000+ 6 1.25790- 21273 370002033
+ 3.00000+ 6 1.32000- 2 3.20000+ 6 1.35420- 2 3.40000+ 6 1.37640- 21273 370002034
+ 3.45500+ 6 1.38090- 2 3.60000+ 6 1.38790- 2 3.70000+ 6 1.39000- 21273 370002035
+ 3.80000+ 6 1.39110- 2 3.90000+ 6 1.39190- 2 4.00000+ 6 1.39200- 21273 370002036
+ 4.20000+ 6 1.39000- 2 4.40000+ 6 1.38170- 2 4.60000+ 6 1.37090- 21273 370002037
+ 4.80000+ 6 1.35890- 2 5.00000+ 6 1.34400- 2 5.20000+ 6 1.32930- 21273 370002038
+ 5.40000+ 6 1.31460- 2 5.60000+ 6 1.29980- 2 5.80000+ 6 1.28510- 21273 370002039
+ 6.00000+ 6 1.27040- 2 6.20000+ 6 1.25570- 2 6.30000+ 6 1.24830- 21273 370002040
+ 6.30900+ 6 1.24770- 2 6.40000+ 6 1.24100- 2 6.50000+ 6 1.23360- 21273 370002041
+ 6.55000+ 6 1.22990- 2 6.60000+ 6 1.22620- 2 6.70000+ 6 1.21890- 21273 370002042
+ 6.80000+ 6 1.21150- 2 6.90000+ 6 1.20420- 2 7.00000+ 6 1.19680- 21273 370002043
+ 7.10000+ 6 1.18940- 2 7.20000+ 6 1.18210- 2 7.30000+ 6 1.17470- 21273 370002044
+ 7.40000+ 6 1.16740- 2 7.50000+ 6 1.16000- 2 7.60000+ 6 1.15260- 21273 370002045
+ 7.80000+ 6 1.13790- 2 8.00000+ 6 1.12320- 2 8.20000+ 6 1.10850- 21273 370002046
+ 8.40000+ 6 1.09380- 2 8.60000+ 6 1.07900- 2 8.80000+ 6 1.06430- 21273 370002047
+ 9.00000+ 6 1.04960- 2 9.20000+ 6 1.03490- 2 9.40000+ 6 1.02020- 21273 370002048
+ 9.60000+ 6 1.00540- 2 9.80000+ 6 9.90720- 3 1.00000+ 7 9.76000- 31273 370002049
+ 1.05000+ 7 9.39200- 3 1.10000+ 7 9.02400- 3 1.15000+ 7 8.65600- 31273 370002050
+ 1.20000+ 7 8.28800- 3 1.25000+ 7 7.92000- 3 1.30000+ 7 7.55200- 31273 370002051
+ 1.35000+ 7 7.18400- 3 1.40000+ 7 6.81600- 3 1.45000+ 7 6.44800- 31273 370002052
+ 1.50000+ 7 6.08000- 3 1.55000+ 7 5.71200- 3 1.60000+ 7 5.34400- 31273 370002053
+ 1.65000+ 7 4.97600- 3 1.70000+ 7 4.60800- 3 1.75000+ 7 4.24000- 31273 370002054
+ 1.80000+ 7 3.87200- 3 1.85000+ 7 3.50400- 3 1.90000+ 7 3.13600- 31273 370002055
+ 1.95000+ 7 2.76800- 3 2.00000+ 7 2.40000- 3                      1273 370002056
+                                                                  1273 300002057
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 370102058
+ 0.00000+ 0-3.13900+ 6          0         31          1         651273 370102059
+         65          2                                            1273 370102060
+ 3.45500+ 6 0.00000+ 0 3.60000+ 6 2.75250- 4 3.70000+ 6 4.65080- 41273 370102061
+ 3.80000+ 6 9.08280- 4 3.90000+ 6 1.77840- 3 4.00000+ 6 2.88000- 31273 370102062
+ 4.20000+ 6 5.63840- 3 4.40000+ 6 8.72320- 3 4.60000+ 6 1.12450- 21273 370102063
+ 4.80000+ 6 1.29630- 2 5.00000+ 6 1.42400- 2 5.20000+ 6 1.48610- 21273 370102064
+ 5.40000+ 6 1.53200- 2 5.60000+ 6 1.56670- 2 5.80000+ 6 1.58940- 21273 370102065
+ 6.00000+ 6 1.60800- 2 6.20000+ 6 1.62140- 2 6.30000+ 6 1.62600- 21273 370102066
+ 6.30900+ 6 1.62640- 2 6.40000+ 6 1.62950- 2 6.50000+ 6 1.63200- 21273 370102067
+ 6.55000+ 6 1.63350- 2 6.60000+ 6 1.63470- 2 6.70000+ 6 1.63640- 21273 370102068
+ 6.80000+ 6 1.63630- 2 6.90000+ 6 1.63460- 2 7.00000+ 6 1.63200- 21273 370102069
+ 7.10000+ 6 1.63020- 2 7.20000+ 6 1.62770- 2 7.30000+ 6 1.62450- 21273 370102070
+ 7.40000+ 6 1.62060- 2 7.50000+ 6 1.61600- 2 7.60000+ 6 1.60880- 21273 370102071
+ 7.80000+ 6 1.59250- 2 8.00000+ 6 1.57360- 2 8.20000+ 6 1.55470- 21273 370102072
+ 8.40000+ 6 1.53540- 2 8.60000+ 6 1.51640- 2 8.80000+ 6 1.49790- 21273 370102073
+ 9.00000+ 6 1.47940- 2 9.20000+ 6 1.46100- 2 9.40000+ 6 1.44250- 21273 370102074
+ 9.60000+ 6 1.42410- 2 9.80000+ 6 1.40560- 2 1.00000+ 7 1.38710- 21273 370102075
+ 1.05000+ 7 1.34100- 2 1.10000+ 7 1.29480- 2 1.15000+ 7 1.24870- 21273 370102076
+ 1.20000+ 7 1.20250- 2 1.25000+ 7 1.15630- 2 1.30000+ 7 1.11020- 21273 370102077
+ 1.35000+ 7 1.06400- 2 1.40000+ 7 1.01790- 2 1.45000+ 7 9.71720- 31273 370102078
+ 1.50000+ 7 9.25570- 3 1.55000+ 7 8.79410- 3 1.60000+ 7 8.33250- 31273 370102079
+ 1.65000+ 7 7.87100- 3 1.70000+ 7 7.40940- 3 1.75000+ 7 6.94780- 31273 370102080
+ 1.80000+ 7 6.48630- 3 1.85000+ 7 6.02470- 3 1.90000+ 7 5.56310- 31273 370102081
+ 1.95000+ 7 5.10160- 3 2.00000+ 7 4.64000- 3                      1273 370102082
+                                                                  1273 300002083
+ 5.01000+ 3 9.92690+ 0          0          2          0          01273 370202084
+ 0.00000+ 0-5.73200+ 6          0         31          1         471273 370202085
+         47          2                                            1273 370202086
+ 6.30900+ 6 0.00000+ 0 6.40000+ 6 3.30160- 5 6.50000+ 6 6.92970- 51273 370202087
+ 6.55000+ 6 8.74380- 5 6.60000+ 6 1.05580- 4 6.70000+ 6 1.41860- 41273 370202088
+ 6.80000+ 6 2.07760- 4 6.90000+ 6 3.27640- 4 7.00000+ 6 4.80000- 41273 370202089
+ 7.10000+ 6 5.45600- 4 7.20000+ 6 8.22400- 4 7.30000+ 6 1.52640- 31273 370202090
+ 7.40000+ 6 2.65760- 3 7.50000+ 6 4.00000- 3 7.60000+ 6 5.28960- 31273 370202091
+ 7.80000+ 6 7.83680- 3 8.00000+ 6 1.00000- 2 8.20000+ 6 1.11070- 21273 370202092
+ 8.40000+ 6 1.17650- 2 8.60000+ 6 1.21890- 2 8.80000+ 6 1.24590- 21273 370202093
+ 9.00000+ 6 1.26400- 2 9.20000+ 6 1.27310- 2 9.40000+ 6 1.27650- 21273 370202094
+ 9.60000+ 6 1.27570- 2 9.80000+ 6 1.27190- 2 1.00000+ 7 1.26400- 21273 370202095
+ 1.05000+ 7 1.22400- 2 1.10000+ 7 1.17920- 2 1.15000+ 7 1.13240- 21273 370202096
+ 1.20000+ 7 1.08550- 2 1.25000+ 7 1.03870- 2 1.30000+ 7 9.91820- 31273 370202097
+ 1.35000+ 7 9.44980- 3 1.40000+ 7 8.98130- 3 1.45000+ 7 8.51290- 31273 370202098
+ 1.50000+ 7 8.04440- 3 1.55000+ 7 7.57600- 3 1.60000+ 7 7.10760- 31273 370202099
+ 1.65000+ 7 6.63910- 3 1.70000+ 7 6.17070- 3 1.75000+ 7 5.70220- 31273 370202100
+ 1.80000+ 7 5.23380- 3 1.85000+ 7 4.76530- 3 1.90000+ 7 4.29690- 31273 370202101
+ 1.95000+ 7 3.82840- 3 2.00000+ 7 3.36000- 3                      1273 370202102
+                                                                  1273 300002103
+ 5.01000+ 3 9.92690+ 0          0          3          0          01273 370302104
+ 0.00000+ 0-5.95100+ 6          0         40          1         441273 370302105
+         44          2                                            1273 370302106
+ 6.55000+ 6 0.00000+ 0 6.60000+ 6 2.00000- 5 6.70000+ 6 6.00000- 51273 370302107
+ 6.80000+ 6 9.97330- 5 6.90000+ 6 1.57600- 4 7.00000+ 6 2.40000- 41273 370302108
+ 7.10000+ 6 2.94400- 4 7.20000+ 6 4.89600- 4 7.30000+ 6 9.15200- 41273 370302109
+ 7.40000+ 6 1.62880- 3 7.50000+ 6 2.56000- 3 7.60000+ 6 3.74560- 31273 370302110
+ 7.80000+ 6 6.36160- 3 8.00000+ 6 8.64000- 3 8.20000+ 6 9.44640- 31273 370302111
+ 8.40000+ 6 9.80320- 3 8.60000+ 6 1.00030- 2 8.80000+ 6 1.01020- 21273 370302112
+ 9.00000+ 6 1.01600- 2 9.20000+ 6 1.01620- 2 9.40000+ 6 1.01180- 21273 370302113
+ 9.60000+ 6 1.00270- 2 9.80000+ 6 9.90480- 3 1.00000+ 7 9.76000- 31273 370302114
+ 1.05000+ 7 9.40000- 3 1.10000+ 7 9.04000- 3 1.15000+ 7 8.67110- 31273 370302115
+ 1.20000+ 7 8.30220- 3 1.25000+ 7 7.93330- 3 1.30000+ 7 7.56440- 31273 370302116
+ 1.35000+ 7 7.19560- 3 1.40000+ 7 6.82670- 3 1.45000+ 7 6.45780- 31273 370302117
+ 1.50000+ 7 6.08890- 3 1.55000+ 7 5.72000- 3 1.60000+ 7 5.35110- 31273 370302118
+ 1.65000+ 7 4.98220- 3 1.70000+ 7 4.61330- 3 1.75000+ 7 4.24440- 31273 370302119
+ 1.80000+ 7 3.87560- 3 1.85000+ 7 3.50670- 3 1.90000+ 7 3.13780- 31273 370302120
+ 1.95000+ 7 2.76890- 3 2.00000+ 7 2.40000- 3                      1273 370302121
+                                                                  1273 300002122
+ 5.01000+ 3 9.92690+ 0          0          0          0          01273 378002123
+ 0.00000+ 0 2.79000+ 6          0          0          2        1931273 378002124
+         96          5        193          2                      1273 378002125
+ 1.00000- 5 1.20980+ 4 2.53000- 2 2.40510+ 2 1.00000- 1 1.20950+ 21273 378002126
+ 1.00000+ 0 3.82360+ 1 1.00000+ 1 1.20760+ 1 1.00000+ 2 3.80550+ 01273 378002127
+ 1.00000+ 3 1.19350+ 0 5.00000+ 3 5.31580- 1 1.00000+ 4 3.77750- 11273 378002128
+ 2.00000+ 4 2.71470- 1 3.00000+ 4 2.25660- 1 4.00000+ 4 1.98900- 11273 378002129
+ 5.00000+ 4 1.80980- 1 6.00000+ 4 1.67990- 1 7.00000+ 4 1.58120- 11273 378002130
+ 8.00000+ 4 1.50370- 1 9.00000+ 4 1.44170- 1 1.00000+ 5 1.39160- 11273 378002131
+ 1.10000+ 5 1.35090- 1 1.20000+ 5 1.31810- 1 1.30000+ 5 1.29200- 11273 378002132
+ 1.40000+ 5 1.27160- 1 1.50000+ 5 1.25640- 1 1.60000+ 5 1.24580- 11273 378002133
+ 1.70000+ 5 1.23920- 1 1.80000+ 5 1.23610- 1 1.90000+ 5 1.23600- 11273 378002134
+ 2.00000+ 5 1.23810- 1 2.05000+ 5 1.23980- 1 2.10000+ 5 1.24170- 11273 378002135
+ 2.15000+ 5 1.24380- 1 2.20000+ 5 1.24590- 1 2.25000+ 5 1.24800- 11273 378002136
+ 2.30000+ 5 1.24990- 1 2.35000+ 5 1.25150- 1 2.40000+ 5 1.25260- 11273 378002137
+ 2.45000+ 5 1.25330- 1 2.50000+ 5 1.25330- 1 2.60000+ 5 1.25140- 11273 378002138
+ 2.70000+ 5 1.24650- 1 2.80000+ 5 1.23870- 1 2.90000+ 5 1.22880- 11273 378002139
+ 3.00000+ 5 1.21750- 1 3.10000+ 5 1.20620- 1 3.20000+ 5 1.19600- 11273 378002140
+ 3.30000+ 5 1.18850- 1 3.40000+ 5 1.18480- 1 3.50000+ 5 1.18590- 11273 378002141
+ 3.60000+ 5 1.19280- 1 3.70000+ 5 1.20580- 1 3.80000+ 5 1.22500- 11273 378002142
+ 3.90000+ 5 1.25020- 1 4.00000+ 5 1.28080- 1 4.10000+ 5 1.31600- 11273 378002143
+ 4.20000+ 5 1.35430- 1 4.30000+ 5 1.39430- 1 4.40000+ 5 1.43400- 11273 378002144
+ 4.50000+ 5 1.47170- 1 4.60000+ 5 1.50550- 1 4.65000+ 5 1.52040- 11273 378002145
+ 4.70000+ 5 1.53370- 1 4.75000+ 5 1.54530- 1 4.80000+ 5 1.55500- 11273 378002146
+ 4.85000+ 5 1.56280- 1 4.90000+ 5 1.56850- 1 4.95000+ 5 1.57220- 11273 378002147
+ 5.00000+ 5 1.57390- 1 5.05000+ 5 1.57360- 1 5.10000+ 5 1.57130- 11273 378002148
+ 5.15000+ 5 1.56710- 1 5.20000+ 5 1.56110- 1 5.30000+ 5 1.54430- 11273 378002149
+ 5.40000+ 5 1.52170- 1 5.60000+ 5 1.46400- 1 5.80000+ 5 1.39660- 11273 378002150
+ 6.00000+ 5 1.32620- 1 6.20000+ 5 1.25750- 1 6.40000+ 5 1.19340- 11273 378002151
+ 6.60000+ 5 1.13510- 1 6.80000+ 5 1.08330- 1 7.00000+ 5 1.03790- 11273 378002152
+ 7.20000+ 5 9.98530- 2 7.40000+ 5 9.64770- 2 7.60000+ 5 9.36130- 21273 378002153
+ 7.80000+ 5 9.12120- 2 8.00000+ 5 8.92310- 2 8.20000+ 5 8.76340- 21273 378002154
+ 8.40000+ 5 8.63920- 2 8.60000+ 5 8.54830- 2 8.80000+ 5 8.48940- 21273 378002155
+ 9.00000+ 5 8.46230- 2 9.20000+ 5 8.46810- 2 9.40000+ 5 8.50980- 21273 378002156
+ 9.60000+ 5 8.59280- 2 9.80000+ 5 8.72660- 2 1.00000+ 6 8.92660- 21273 378002157
+ 1.10000+ 6 1.00200- 1 1.20000+ 6 1.13300- 1 1.30000+ 6 1.30000- 11273 378002158
+ 1.40000+ 6 1.51000- 1 1.50000+ 6 1.81000- 1 1.55000+ 6 2.03000- 11273 378002159
+ 1.60000+ 6 2.35000- 1 1.65000+ 6 2.72500- 1 1.70000+ 6 3.09500- 11273 378002160
+ 1.75000+ 6 3.43000- 1 1.80000+ 6 3.57500- 1 1.85000+ 6 3.62000- 11273 378002161
+ 1.90000+ 6 3.58500- 1 1.95000+ 6 3.45000- 1 2.00000+ 6 3.25000- 11273 378002162
+ 2.05000+ 6 3.03000- 1 2.10000+ 6 2.77000- 1 2.15000+ 6 2.53000- 11273 378002163
+ 2.20000+ 6 2.32000- 1 2.25000+ 6 2.13000- 1 2.30000+ 6 1.96000- 11273 378002164
+ 2.35000+ 6 1.83000- 1 2.40000+ 6 1.73500- 1 2.45000+ 6 1.68300- 11273 378002165
+ 2.50000+ 6 1.60000- 1 2.55000+ 6 1.78000- 1 2.60000+ 6 1.90000- 11273 378002166
+ 2.65000+ 6 2.02000- 1 2.70000+ 6 2.14400- 1 2.75000+ 6 2.26000- 11273 378002167
+ 2.80000+ 6 2.31000- 1 2.85000+ 6 2.27000- 1 2.90000+ 6 2.20000- 11273 378002168
+ 2.95000+ 6 2.12400- 1 3.00000+ 6 2.04600- 1 3.05000+ 6 1.97030- 11273 378002169
+ 3.10000+ 6 1.89500- 1 3.15000+ 6 1.81970- 1 3.20000+ 6 1.74500- 11273 378002170
+ 3.30000+ 6 1.58810- 1 3.40000+ 6 1.45500- 1 3.60000+ 6 1.34200- 11273 378002171
+ 3.70000+ 6 1.34200- 1 3.80000+ 6 1.36300- 1 4.00000+ 6 1.44200- 11273 378002172
+ 4.20000+ 6 1.47000- 1 4.30000+ 6 1.43800- 1 4.40000+ 6 1.36800- 11273 378002173
+ 4.60000+ 6 1.27300- 1 4.80000+ 6 1.23000- 1 5.00000+ 6 1.21000- 11273 378002174
+ 5.20000+ 6 1.20400- 1 5.40000+ 6 1.20000- 1 5.50000+ 6 1.19200- 11273 378002175
+ 5.60000+ 6 1.17500- 1 5.80000+ 6 1.12000- 1 6.00000+ 6 1.03800- 11273 378002176
+ 6.20000+ 6 9.76000- 2 6.40000+ 6 9.74000- 2 6.60000+ 6 1.03200- 11273 378002177
+ 6.80000+ 6 8.87000- 2 7.00000+ 6 7.75000- 2 7.20000+ 6 7.08590- 21273 378002178
+ 7.40000+ 6 6.57600- 2 7.60000+ 6 6.14260- 2 7.80000+ 6 5.76840- 21273 378002179
+ 8.00000+ 6 5.44000- 2 8.20000+ 6 5.19280- 2 8.40000+ 6 4.99180- 21273 378002180
+ 8.60000+ 6 4.80020- 2 8.80000+ 6 4.64400- 2 9.00000+ 6 4.56000- 21273 378002181
+ 9.20000+ 6 4.45360- 2 9.40000+ 6 4.39520- 2 9.60000+ 6 4.36060- 21273 378002182
+ 9.80000+ 6 4.31830- 2 1.00000+ 7 4.27000- 2 1.05000+ 7 4.20650- 21273 378002183
+ 1.10000+ 7 4.14300- 2 1.15000+ 7 4.07950- 2 1.20000+ 7 4.01600- 21273 378002184
+ 1.25000+ 7 3.95250- 2 1.30000+ 7 3.88900- 2 1.35000+ 7 3.82550- 21273 378002185
+ 1.40000+ 7 3.76200- 2 1.45000+ 7 3.69850- 2 1.50000+ 7 3.63500- 21273 378002186
+ 1.55000+ 7 3.57150- 2 1.60000+ 7 3.50800- 2 1.65000+ 7 3.44450- 21273 378002187
+ 1.70000+ 7 3.38100- 2 1.75000+ 7 3.31750- 2 1.80000+ 7 3.25400- 21273 378002188
+ 1.85000+ 7 3.19050- 2 1.90000+ 7 3.12700- 2 1.95000+ 7 3.06350- 21273 378002189
+ 2.00000+ 7 3.00000- 2                                            1273 378002190
+                                                                  1273 300002191
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 378102192
+ 0.00000+ 0 2.31200+ 6          0         31          2        1931273 378102193
+         96          5        193          2                      1273 378102194
+ 1.00000- 5 1.80900+ 5 2.53000- 2 3.59600+ 3 1.00000- 1 1.80850+ 31273 378102195
+ 1.00000+ 0 5.71660+ 2 1.00000+ 1 1.80520+ 2 1.00000+ 2 5.68390+ 11273 378102196
+ 1.00000+ 3 1.77650+ 1 5.00000+ 3 7.83230+ 0 1.00000+ 4 5.50940+ 01273 378102197
+ 2.00000+ 4 3.89410+ 0 3.00000+ 4 3.19330+ 0 4.00000+ 4 2.78240+ 01273 378102198
+ 5.00000+ 4 2.50550+ 0 6.00000+ 4 2.30250+ 0 7.00000+ 4 2.14510+ 01273 378102199
+ 8.00000+ 4 2.01790+ 0 9.00000+ 4 1.91160+ 0 1.00000+ 5 1.82040+ 01273 378102200
+ 1.10000+ 5 1.74040+ 0 1.20000+ 5 1.66900+ 0 1.30000+ 5 1.60420+ 01273 378102201
+ 1.40000+ 5 1.54460+ 0 1.50000+ 5 1.48920+ 0 1.60000+ 5 1.43730+ 01273 378102202
+ 1.70000+ 5 1.38830+ 0 1.80000+ 5 1.34170+ 0 1.90000+ 5 1.29730+ 01273 378102203
+ 2.00000+ 5 1.25480+ 0 2.05000+ 5 1.23430+ 0 2.10000+ 5 1.21410+ 01273 378102204
+ 2.15000+ 5 1.19440+ 0 2.20000+ 5 1.17510+ 0 2.25000+ 5 1.15620+ 01273 378102205
+ 2.30000+ 5 1.13770+ 0 2.35000+ 5 1.11960+ 0 2.40000+ 5 1.10180+ 01273 378102206
+ 2.45000+ 5 1.08460+ 0 2.50000+ 5 1.06760+ 0 2.60000+ 5 1.03490+ 01273 378102207
+ 2.70000+ 5 1.00370+ 0 2.80000+ 5 9.74030- 1 2.90000+ 5 9.46020- 11273 378102208
+ 3.00000+ 5 9.19650- 1 3.10000+ 5 8.94930- 1 3.20000+ 5 8.71870- 11273 378102209
+ 3.30000+ 5 8.50500- 1 3.40000+ 5 8.30780- 1 3.50000+ 5 8.12680- 11273 378102210
+ 3.60000+ 5 7.96150- 1 3.70000+ 5 7.81090- 1 3.80000+ 5 7.67360- 11273 378102211
+ 3.90000+ 5 7.54790- 1 4.00000+ 5 7.43140- 1 4.10000+ 5 7.32140- 11273 378102212
+ 4.20000+ 5 7.21480- 1 4.30000+ 5 7.10820- 1 4.40000+ 5 6.99780- 11273 378102213
+ 4.50000+ 5 6.88060- 1 4.60000+ 5 6.75370- 1 4.65000+ 5 6.68600- 11273 378102214
+ 4.70000+ 5 6.61510- 1 4.75000+ 5 6.54100- 1 4.80000+ 5 6.46360- 11273 378102215
+ 4.85000+ 5 6.38300- 1 4.90000+ 5 6.29920- 1 4.95000+ 5 6.21230- 11273 378102216
+ 5.00000+ 5 6.12270- 1 5.05000+ 5 6.03040- 1 5.10000+ 5 5.93580- 11273 378102217
+ 5.15000+ 5 5.83910- 1 5.20000+ 5 5.74080- 1 5.30000+ 5 5.54020- 11273 378102218
+ 5.40000+ 5 5.33690- 1 5.60000+ 5 4.93110- 1 5.80000+ 5 4.53990- 11273 378102219
+ 6.00000+ 5 4.17360- 1 6.20000+ 5 3.83750- 1 6.40000+ 5 3.53290- 11273 378102220
+ 6.60000+ 5 3.25860- 1 6.80000+ 5 3.01250- 1 7.00000+ 5 2.79180- 11273 378102221
+ 7.20000+ 5 2.59390- 1 7.40000+ 5 2.41580- 1 7.60000+ 5 2.25530- 11273 378102222
+ 7.80000+ 5 2.11020- 1 8.00000+ 5 1.97870- 1 8.20000+ 5 1.85920- 11273 378102223
+ 8.40000+ 5 1.75030- 1 8.60000+ 5 1.65080- 1 8.80000+ 5 1.55960- 11273 378102224
+ 9.00000+ 5 1.47580- 1 9.20000+ 5 1.39880- 1 9.40000+ 5 1.32760- 11273 378102225
+ 9.60000+ 5 1.26190- 1 9.80000+ 5 1.20110- 1 1.00000+ 6 1.14470- 11273 378102226
+ 1.10000+ 6 9.42000- 2 1.20000+ 6 8.27000- 2 1.30000+ 6 7.60000- 21273 378102227
+ 1.40000+ 6 7.42000- 2 1.50000+ 6 8.00000- 2 1.55000+ 6 8.67900- 21273 378102228
+ 1.60000+ 6 9.65000- 2 1.65000+ 6 1.09500- 1 1.70000+ 6 1.25600- 11273 378102229
+ 1.75000+ 6 1.42100- 1 1.80000+ 6 1.55000- 1 1.85000+ 6 1.62200- 11273 378102230
+ 1.90000+ 6 1.61000- 1 1.95000+ 6 1.54400- 1 2.00000+ 6 1.47000- 11273 378102231
+ 2.05000+ 6 1.40030- 1 2.10000+ 6 1.33800- 1 2.15000+ 6 1.28710- 11273 378102232
+ 2.20000+ 6 1.24400- 1 2.25000+ 6 1.20550- 1 2.30000+ 6 1.17500- 11273 378102233
+ 2.35000+ 6 1.15590- 1 2.40000+ 6 1.14500- 1 2.45000+ 6 1.14060- 11273 378102234
+ 2.50000+ 6 1.14100- 1 2.55000+ 6 1.14460- 1 2.60000+ 6 1.15000- 11273 378102235
+ 2.65000+ 6 1.15500- 1 2.70000+ 6 1.15400- 1 2.75000+ 6 1.14000- 11273 378102236
+ 2.80000+ 6 1.10100- 1 2.85000+ 6 1.03700- 1 2.90000+ 6 9.64000- 21273 378102237
+ 2.95000+ 6 9.02000- 2 3.00000+ 6 8.53000- 2 3.05000+ 6 8.13000- 21273 378102238
+ 3.10000+ 6 7.83000- 2 3.15000+ 6 7.73000- 2 3.20000+ 6 7.67000- 21273 378102239
+ 3.30000+ 6 7.64000- 2 3.40000+ 6 7.67000- 2 3.60000+ 6 7.93000- 21273 378102240
+ 3.70000+ 6 8.32000- 2 3.80000+ 6 9.09000- 2 4.00000+ 6 1.06400- 11273 378102241
+ 4.20000+ 6 1.21800- 1 4.30000+ 6 1.23900- 1 4.40000+ 6 1.19600- 11273 378102242
+ 4.60000+ 6 1.03930- 1 4.80000+ 6 8.82930- 2 5.00000+ 6 7.28000- 21273 378102243
+ 5.20000+ 6 5.77000- 2 5.40000+ 6 4.18000- 2 5.50000+ 6 3.78000- 21273 378102244
+ 5.60000+ 6 3.71000- 2 5.80000+ 6 3.89000- 2 6.00000+ 6 3.98000- 21273 378102245
+ 6.20000+ 6 3.97000- 2 6.40000+ 6 3.83000- 2 6.60000+ 6 3.61000- 21273 378102246
+ 6.80000+ 6 3.31000- 2 7.00000+ 6 3.03000- 2 7.20000+ 6 2.77740- 21273 378102247
+ 7.40000+ 6 2.56880- 2 7.60000+ 6 2.39920- 2 7.80000+ 6 2.25480- 21273 378102248
+ 8.00000+ 6 2.13000- 2 8.20000+ 6 2.03880- 2 8.40000+ 6 1.96960- 21273 378102249
+ 8.60000+ 6 1.90960- 2 8.80000+ 6 1.85540- 2 9.00000+ 6 1.81000- 21273 378102250
+ 9.20000+ 6 1.78090- 2 9.40000+ 6 1.75860- 2 9.60000+ 6 1.73880- 21273 378102251
+ 9.80000+ 6 1.71970- 2 1.00000+ 7 1.70500- 2 1.05000+ 7 1.70000- 21273 378102252
+ 1.10000+ 7 1.70500- 2 1.15000+ 7 1.74000- 2 1.20000+ 7 1.80000- 21273 378102253
+ 1.25000+ 7 1.89000- 2 1.30000+ 7 1.99000- 2 1.35000+ 7 2.11000- 21273 378102254
+ 1.40000+ 7 2.26000- 2 1.45000+ 7 2.34500- 2 1.50000+ 7 2.34000- 21273 378102255
+ 1.55000+ 7 2.25790- 2 1.60000+ 7 2.17370- 2 1.65000+ 7 2.08950- 21273 378102256
+ 1.70000+ 7 2.00530- 2 1.75000+ 7 1.92110- 2 1.80000+ 7 1.83680- 21273 378102257
+ 1.85000+ 7 1.75260- 2 1.90000+ 7 1.66840- 2 1.95000+ 7 1.58420- 21273 378102258
+ 2.00000+ 7 1.50000- 2                                            1273 378102259
+                                                                  1273 300002260
+                                                                  1273 000002261
+ 5.01000+ 3 9.92690+ 0          1          1          0          01273 400202262
+ 0.00000+ 0 9.92690+ 0          0          2        361         181273 400202263
+ 1.00000+ 0 6.71576- 2 2.03251- 3-1.06028-11 0.00000+ 0 0.00000+ 01273 400202264
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202265
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202266
+ 0.00000+ 0 0.00000+ 0 9.93911- 1 1.20533- 1 6.95848- 3 1.95255- 41273 400202267
+ 2.91977- 6-7.18388- 8 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202268
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202269
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0-6.65734- 2 9.84098- 1 1.71328- 11273 400202270
+ 1.44462- 2 7.07855- 4 2.15805- 5 2.34735- 7 3.91679- 8-1.45942- 81273 400202271
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202272
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 6.03148- 3-1.18981- 11273 400202273
+ 9.69083- 1 2.20398- 1 2.43895- 2 1.66113- 3 7.55461- 5 2.09789- 61273 400202274
+ 1.00191- 7 4.14130- 9 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202275
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0-5.78487- 41273 400202276
+ 1.36993- 2-1.68257- 1 9.49196- 1 2.67731- 1 3.66848- 2 3.17321- 31273 400202277
+ 1.90100- 4 7.90032- 6 2.77361- 7-2.28171- 8 5.19163- 9 0.00000+ 01273 400202278
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202279
+ 5.66474- 5-1.53347- 3 2.35839- 2-2.15334- 1 9.24609- 1 3.13107- 11273 400202280
+ 5.12133- 2 5.35568- 3 3.96024- 4 2.12990- 5 9.01494- 7-1.24126- 81273 400202281
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202282
+ 0.00000+ 0-5.60221- 6 1.68528- 4-3.02647- 3 3.56531- 2-2.60215- 11273 400202283
+ 8.95516- 1 3.56246- 1 6.78358- 2 8.31196- 3 7.29404- 4 4.78009- 51273 400202284
+ 2.47804- 6 8.25735- 8 1.56666- 8-9.45121- 9 0.00000+ 0 0.00000+ 01273 400202285
+ 0.00000+ 0 0.00000+ 0 5.57080- 7-1.82835- 5 3.69575- 4-5.16853- 31273 400202286
+ 4.97945- 2-3.02704- 1 8.62137- 1 3.96860- 1 8.63929- 2 1.21363- 21273 400202287
+ 1.23091- 3 9.47491- 5 5.77960- 6 2.51901- 7 4.38367- 8 0.00000+ 01273 400202288
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0-5.55817- 8 1.96467- 6-4.36991- 51273 400202289
+ 6.95133- 4-8.05751- 3 6.58608- 2-3.42551- 1 8.24728- 1 4.34664- 11273 400202290
+ 1.06706- 1 1.69121- 2 1.94522- 3 1.71502- 4 1.20625- 5 6.50178- 71273 400202291
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 5.55779- 9-2.09561- 71273 400202292
+ 5.05082- 6-8.90521- 5 1.18451- 3-1.17801- 2 8.36804- 2-3.79502- 11273 400202293
+ 7.83570- 1 4.69392- 1 1.28576- 1 2.27111- 2 2.92048- 3 2.89820- 41273 400202294
+ 2.30820- 5 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0-5.56586-101273 400202295
+ 2.22220- 8-5.73952- 7 1.10237- 5-1.63542- 4 1.88059- 3-1.64112- 21273 400202296
+ 1.03062- 1-4.13308- 1 7.38975- 1 5.00795- 1 1.51792- 1 2.95921- 21273 400202297
+ 4.20745- 3 4.63775- 4 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202298
+ 5.58007-11-2.34520- 9 6.43670- 8-1.33020- 6 2.15982- 5-2.78530- 41273 400202299
+ 2.82917- 3-2.20132- 2 1.23796- 1-4.43745- 1 6.91277- 1 5.28653- 11273 400202300
+ 1.76123- 1 3.76001- 2 5.85875- 3 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202301
+ 0.00000+ 0-5.59888-12 2.46522-10-7.14282- 9 1.57363- 7-2.75915- 61273 400202302
+ 3.91054- 5-4.47644- 4 4.07821- 3-2.86351- 2 1.45659- 1-4.70609- 11273 400202303
+ 6.40833- 1 5.52772- 1 2.01329- 1 4.67657- 2 0.00000+ 0 0.00000+ 01273 400202304
+ 0.00000+ 0 0.00000+ 0 5.62126-13-2.58274-11 7.85822-10-1.83235- 81273 400202305
+ 3.43489- 7-5.27433- 6 6.66038- 5-6.86838- 4 5.67705- 3-3.63116- 21273 400202306
+ 1.68416- 1-4.93725- 1 5.88020- 1 5.72987- 1 2.27159- 1 0.00000+ 01273 400202307
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0-5.64648-14 2.69816-12-8.58318-111273 400202308
+ 2.10614- 9-4.18860- 8 6.89444- 7-9.46049- 6 1.07990- 4-1.01440- 31273 400202309
+ 7.67554- 3-4.50631- 2 1.91822- 1-5.12949- 1 5.33228- 1 0.00000+ 01273 400202310
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 5.67402-15-2.81174-131273 400202311
+ 9.31782-12-2.39482-10 5.02184- 9-8.78843- 8 1.29584- 6-1.61170- 51273 400202312
+ 1.68105- 4-1.45090- 3 1.01232- 2-5.48944- 2 2.15623- 1-5.28167- 11273 400202313
+ 4.76864- 1 1.30172- 2 4.04805- 4-4.40744- 5 0.00000+ 0-5.70348-161273 400202314
+ 2.91551-14-1.00626-12 2.69825-11-5.93623-10 1.09738- 8-1.72378- 71273 400202315
+ 2.30893- 6-2.63064- 5 2.52838- 4-2.01914- 3 1.30683- 2-6.57953- 21273 400202316
+ 2.39562- 1-5.39299- 1 4.49884- 1 3.56576- 2 1.66174- 3 0.00000+ 01273 400202317
+ 5.73457-17-3.03493-15 1.08007-13-3.01636-12 6.93338-11-1.34678- 91273 400202318
+ 2.23849- 8-3.20020- 7 3.93477- 6-4.14067- 5 3.69220- 4-2.74395- 31273 400202319
+ 1.65570- 2-7.77400- 2 2.63378- 1-5.48675- 1 4.20888- 1 5.69000- 21273 400202320
+ 0.00000+ 0-5.76707-18 2.26324-16-1.15614-14 3.34703-13-8.01493-121273 400202321
+ 1.62880-10-2.84878- 9 4.31614- 8-5.67396- 7 6.45602- 6-6.31678- 51273 400202322
+ 5.25502- 4-3.65208- 3 2.06325- 2-9.06871- 2 2.87016- 1-5.55365- 11273 400202323
+ 3.90392- 1                                                       1273 400202324
+ 0.00000+ 0 0.00000+ 0          0          0          1         751273 400202325
+         75          2                                            1273 400202326
+ 0.00000+ 0 1.00000- 5          0          0          2          01273 400202327
+ 0.00000+ 0 0.00000+ 0                                            1273 400202328
+ 0.00000+ 0 1.00000+ 2          0          0          2          01273 400202329
+ 0.00000+ 0 0.00000+ 0                                            1273 400202330
+ 0.00000+ 0 1.50000+ 5          0          0          2          01273 400202331
+-9.74350- 3 4.32620- 5                                            1273 400202332
+ 0.00000+ 0 2.75000+ 5          0          0          2          01273 400202333
+-1.30940- 3-7.66030- 5                                            1273 400202334
+ 0.00000+ 0 3.75000+ 5          0          0          2          01273 400202335
+ 2.07110- 2-2.30240- 4                                            1273 400202336
+ 0.00000+ 0 4.75000+ 5          0          0          2          01273 400202337
+ 5.06940- 2 7.87530- 4                                            1273 400202338
+ 0.00000+ 0 5.50000+ 5          0          0          2          01273 400202339
+ 5.35670- 2 2.56040- 3                                            1273 400202340
+ 0.00000+ 0 7.50000+ 5          0          0          2          01273 400202341
+ 4.05720- 2 5.51780- 3                                            1273 400202342
+ 0.00000+ 0 1.00000+ 6          0          0          2          01273 400202343
+ 4.61250- 2 8.59150- 3                                            1273 400202344
+ 0.00000+ 0 1.20000+ 6          0          0          4          01273 400202345
+ 6.20000- 2 1.60000- 2-1.00000- 3 0.00000+ 0                      1273 400202346
+ 0.00000+ 0 1.40000+ 6          0          0          4          01273 400202347
+ 8.20000- 2 2.90000- 2-2.00000- 3 0.00000+ 0                      1273 400202348
+ 0.00000+ 0 1.50000+ 6          0          0          4          01273 400202349
+ 9.70000- 2 4.20000- 2-3.00000- 3 1.00000- 3                      1273 400202350
+ 0.00000+ 0 1.60000+ 6          0          0          4          01273 400202351
+ 1.25000- 1 6.20000- 2-4.00000- 3 5.50000- 3                      1273 400202352
+ 0.00000+ 0 1.70000+ 6          0          0          4          01273 400202353
+ 1.65000- 1 8.60000- 2-5.00000- 3 1.05000- 2                      1273 400202354
+ 0.00000+ 0 1.75000+ 6          0          0          4          01273 400202355
+ 1.92000- 1 1.02000- 1-6.00000- 3 1.30000- 2                      1273 400202356
+ 0.00000+ 0 1.80000+ 6          0          0          4          01273 400202357
+ 2.10000- 1 1.18000- 1-7.00000- 3 1.50000- 2                      1273 400202358
+ 0.00000+ 0 1.85000+ 6          0          0          4          01273 400202359
+ 2.10000- 1 1.35000- 1-8.00000- 3 1.70000- 2                      1273 400202360
+ 0.00000+ 0 1.90000+ 6          0          0          4          01273 400202361
+ 1.95000- 1 1.51000- 1-9.00000- 3 1.85000- 2                      1273 400202362
+ 0.00000+ 0 1.95000+ 6          0          0          4          01273 400202363
+ 1.78000- 1 1.55000- 1-1.00000- 2 1.95000- 2                      1273 400202364
+ 0.00000+ 0 2.00000+ 6          0          0          4          01273 400202365
+ 1.59000- 1 1.48000- 1-1.10000- 2 2.00000- 2                      1273 400202366
+ 0.00000+ 0 2.10000+ 6          0          0          4          01273 400202367
+ 1.34000- 1 1.29000- 1-1.30000- 2 1.80000- 2                      1273 400202368
+ 0.00000+ 0 2.20000+ 6          0          0          4          01273 400202369
+ 1.15000- 1 1.30000- 1-1.40000- 2 1.45000- 2                      1273 400202370
+ 0.00000+ 0 2.30000+ 6          0          0          4          01273 400202371
+ 1.03000- 1 1.57000- 1-1.30000- 2 1.10000- 2                      1273 400202372
+ 0.00000+ 0 2.40000+ 6          0          0          4          01273 400202373
+ 9.60000- 2 1.96000- 1-1.10000- 2 1.10000- 2                      1273 400202374
+ 0.00000+ 0 2.50000+ 6          0          0          4          01273 400202375
+ 9.50000- 2 2.43000- 1-5.00000- 3 1.55000- 2                      1273 400202376
+ 0.00000+ 0 2.60000+ 6          0          0          4          01273 400202377
+ 1.02000- 1 2.86000- 1 1.10000- 2 1.95000- 2                      1273 400202378
+ 0.00000+ 0 2.70000+ 6          0          0          4          01273 400202379
+ 1.13000- 1 3.11000- 1 2.80000- 2 1.85000- 2                      1273 400202380
+ 0.00000+ 0 2.80000+ 6          0          0          4          01273 400202381
+ 1.29000- 1 3.22000- 1 5.20000- 2 1.58000- 2                      1273 400202382
+ 0.00000+ 0 2.90000+ 6          0          0          4          01273 400202383
+ 1.50000- 1 3.24000- 1 6.30000- 2 1.36000- 2                      1273 400202384
+ 0.00000+ 0 3.00000+ 6          0          0          4          01273 400202385
+ 1.69000- 1 3.22000- 1 7.20000- 2 1.12000- 2                      1273 400202386
+ 0.00000+ 0 3.10000+ 6          0          0          4          01273 400202387
+ 1.85000- 1 3.21000- 1 7.37000- 2 9.37000- 3                      1273 400202388
+ 0.00000+ 0 3.20000+ 6          0          0          4          01273 400202389
+ 2.04000- 1 3.19000- 1 7.24000- 2 8.10000- 3                      1273 400202390
+ 0.00000+ 0 3.40000+ 6          0          0          4          01273 400202391
+ 2.30000- 1 3.15000- 1 7.00000- 2 6.80000- 3                      1273 400202392
+ 0.00000+ 0 3.60000+ 6          0          0          4          01273 400202393
+ 2.56000- 1 3.05000- 1 6.90000- 2 7.50000- 3                      1273 400202394
+ 0.00000+ 0 3.80000+ 6          0          0          4          01273 400202395
+ 2.79000- 1 2.92000- 1 7.10000- 2 1.00000- 2                      1273 400202396
+ 0.00000+ 0 3.90000+ 6          0          0          4          01273 400202397
+ 2.91000- 1 2.85000- 1 7.40000- 2 1.30000- 2                      1273 400202398
+ 0.00000+ 0 4.00000+ 6          0          0          4          01273 400202399
+ 3.02000- 1 2.80000- 1 7.90000- 2 1.60000- 2                      1273 400202400
+ 0.00000+ 0 4.20000+ 6          0          0          4          01273 400202401
+ 3.22000- 1 2.70000- 1 9.80000- 2 2.50000- 2                      1273 400202402
+ 0.00000+ 0 4.30000+ 6          0          0          4          01273 400202403
+ 3.30000- 1 2.66000- 1 1.12000- 1 3.00000- 2                      1273 400202404
+ 0.00000+ 0 4.60000+ 6          0          0          4          01273 400202405
+ 3.55000- 1 2.56000- 1 1.42000- 1 4.55000- 2                      1273 400202406
+ 0.00000+ 0 4.80000+ 6          0          0          4          01273 400202407
+ 3.72000- 1 2.54000- 1 1.58000- 1 5.40000- 2                      1273 400202408
+ 0.00000+ 0 5.00000+ 6          0          0          4          01273 400202409
+ 3.84000- 1 2.55000- 1 1.71000- 1 5.98000- 2                      1273 400202410
+ 0.00000+ 0 5.10000+ 6          0          0          4          01273 400202411
+ 3.89000- 1 2.56000- 1 1.76000- 1 6.20000- 2                      1273 400202412
+ 0.00000+ 0 5.30000+ 6          0          0          4          01273 400202413
+ 3.99000- 1 2.65000- 1 1.85000- 1 6.68000- 2                      1273 400202414
+ 0.00000+ 0 5.40000+ 6          0          0          4          01273 400202415
+ 4.04000- 1 2.72000- 1 1.89000- 1 6.85000- 2                      1273 400202416
+ 0.00000+ 0 5.50000+ 6          0          0          4          01273 400202417
+ 4.08000- 1 2.76000- 1 1.92800- 1 7.05000- 2                      1273 400202418
+ 0.00000+ 0 6.00000+ 6          0          0          4          01273 400202419
+ 4.27000- 1 3.05000- 1 2.08000- 1 7.78000- 2                      1273 400202420
+ 0.00000+ 0 6.25000+ 6          0          0          4          01273 400202421
+ 4.35000- 1 3.17000- 1 2.15000- 1 8.02000- 2                      1273 400202422
+ 0.00000+ 0 6.50000+ 6          0          0          4          01273 400202423
+ 4.43000- 1 3.28000- 1 2.20000- 1 8.30000- 2                      1273 400202424
+ 0.00000+ 0 6.75000+ 6          0          0          4          01273 400202425
+ 4.50000- 1 3.40000- 1 2.26000- 1 8.58000- 2                      1273 400202426
+ 0.00000+ 0 7.25000+ 6          0          0          4          01273 400202427
+ 4.60000- 1 3.59000- 1 2.34000- 1 9.03000- 2                      1273 400202428
+ 0.00000+ 0 7.60000+ 6          0          0          4          01273 400202429
+ 4.67000- 1 3.68000- 1 2.38500- 1 9.37000- 2                      1273 400202430
+ 0.00000+ 0 7.75000+ 6          0          0          6          01273 400202431
+ 4.70000- 1 3.72000- 1 2.40500- 1 9.48000- 2 1.20000- 3 4.00000- 41273 400202432
+ 0.00000+ 0 8.00000+ 6          0          0          6          01273 400202433
+ 4.75000- 1 3.75000- 1 2.43000- 1 9.70000- 2 3.00000- 3 1.10000- 31273 400202434
+ 0.00000+ 0 8.25000+ 6          0          0          6          01273 400202435
+ 4.80000- 1 3.76000- 1 2.45500- 1 9.94000- 2 4.65000- 3 1.80000- 31273 400202436
+ 0.00000+ 0 8.75000+ 6          0          0          6          01273 400202437
+ 4.86000- 1 3.74000- 1 2.49500- 1 1.04000- 1 8.20000- 3 3.30000- 31273 400202438
+ 0.00000+ 0 9.25000+ 6          0          0          6          01273 400202439
+ 4.96000- 1 3.69000- 1 2.52800- 1 1.09000- 1 1.20000- 2 4.70000- 31273 400202440
+ 0.00000+ 0 9.50000+ 6          0          0          6          01273 400202441
+ 5.02000- 1 3.66000- 1 2.54000- 1 1.11800- 1 1.40000- 2 5.40000- 31273 400202442
+ 0.00000+ 0 9.75000+ 6          0          0          6          01273 400202443
+ 5.07000- 1 3.65000- 1 2.56500- 1 1.14000- 1 1.60000- 2 6.10000- 31273 400202444
+ 0.00000+ 0 1.07500+ 7          0          0          8          01273 400202445
+ 5.41000- 1 3.76000- 1 2.68500- 1 1.26800- 1 2.40000- 2 9.00000- 31273 400202446
+ 7.50000- 4 0.00000+ 0                                            1273 400202447
+ 0.00000+ 0 1.10000+ 7          0          0          8          01273 400202448
+ 5.50000- 1 3.83000- 1 2.73000- 1 1.30000- 1 2.60000- 2 9.65000- 31273 400202449
+ 9.50000- 4 0.00000+ 0                                            1273 400202450
+ 0.00000+ 0 1.15000+ 7          0          0          8          01273 400202451
+ 5.68000- 1 3.95000- 1 2.81800- 1 1.37000- 1 3.08000- 2 1.12000- 21273 400202452
+ 1.40000- 3 0.00000+ 0                                            1273 400202453
+ 0.00000+ 0 1.20000+ 7          0          0          8          01273 400202454
+ 5.86000- 1 4.10000- 1 2.89800- 1 1.42800- 1 3.49000- 2 1.25000- 21273 400202455
+ 1.90000- 3 0.00000+ 0                                            1273 400202456
+ 0.00000+ 0 1.25000+ 7          0          0          8          01273 400202457
+ 6.03000- 1 4.24000- 1 2.98000- 1 1.49800- 1 3.99000- 2 1.40000- 21273 400202458
+ 2.45000- 3 0.00000+ 0                                            1273 400202459
+ 0.00000+ 0 1.30000+ 7          0          0          8          01273 400202460
+ 6.20000- 1 4.36000- 1 3.05000- 1 1.56000- 1 4.50000- 2 1.55000- 21273 400202461
+ 3.00000- 3 0.00000+ 0                                            1273 400202462
+ 0.00000+ 0 1.35000+ 7          0          0          8          01273 400202463
+ 6.35000- 1 4.48000- 1 3.11000- 1 1.61800- 1 5.03000- 2 1.72000- 21273 400202464
+ 3.58000- 3 0.00000+ 0                                            1273 400202465
+ 0.00000+ 0 1.40000+ 7          0          0          8          01273 400202466
+ 6.49000- 1 4.58000- 1 3.16300- 1 1.68000- 1 5.54000- 2 1.88000- 21273 400202467
+ 4.10000- 3 0.00000+ 0                                            1273 400202468
+ 0.00000+ 0 1.45000+ 7          0          0          8          01273 400202469
+ 6.61000- 1 4.66000- 1 3.22000- 1 1.73500- 1 6.05000- 2 2.05000- 21273 400202470
+ 4.65000- 3 8.00000- 5                                            1273 400202471
+ 0.00000+ 0 1.50000+ 7          0          0         10          01273 400202472
+ 6.72000- 1 4.74000- 1 3.27500- 1 1.79800- 1 6.58000- 2 2.23000- 21273 400202473
+ 5.20000- 3 1.80000- 4 9.00000- 5 2.30000- 5                      1273 400202474
+ 0.00000+ 0 1.55000+ 7          0          0         10          01273 400202475
+ 6.84000- 1 4.80000- 1 3.32500- 1 1.85500- 1 7.09000- 2 2.42000- 21273 400202476
+ 5.80000- 3 3.00000- 4 1.70000- 4 4.70000- 5                      1273 400202477
+ 0.00000+ 0 1.60000+ 7          0          0         10          01273 400202478
+ 6.94000- 1 4.88000- 1 3.38000- 1 1.92000- 1 7.60000- 2 2.61000- 21273 400202479
+ 6.40000- 3 4.70000- 4 2.50000- 4 7.00000- 5                      1273 400202480
+ 0.00000+ 0 1.70000+ 7          0          0         10          01273 400202481
+ 7.15000- 1 5.04000- 1 3.48500- 1 2.03000- 1 8.64000- 2 3.00000- 21273 400202482
+ 7.84000- 3 8.70000- 4 4.20000- 4 1.19000- 4                      1273 400202483
+ 0.00000+ 0 1.80000+ 7          0          0         10          01273 400202484
+ 7.35000- 1 5.18000- 1 3.59500- 1 2.15000- 1 9.68000- 2 3.45000- 21273 400202485
+ 9.28000- 3 1.35000- 3 5.90000- 4 1.66000- 4                      1273 400202486
+ 0.00000+ 0 1.90000+ 7          0          0         10          01273 400202487
+ 7.51000- 1 5.34000- 1 3.70000- 1 2.27000- 1 1.07000- 1 3.90000- 21273 400202488
+ 1.09000- 2 1.90000- 3 7.60000- 4 2.14000- 4                      1273 400202489
+ 0.00000+ 0 2.00000+ 7          0          0         10          01273 400202490
+ 7.65000- 1 5.49000- 1 3.80800- 1 2.38800- 1 1.17300- 1 4.42000- 21273 400202491
+ 1.28000- 2 2.52000- 3 9.25000- 4 2.62000- 4                      1273 400202492
+                                                                  1273 400002493
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 405102494
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 405102495
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 405102496
+          2          2                                            1273 405102497
+ 0.00000+ 0 7.89000+ 5          0          0          2          01273 405102498
+ 0.00000+ 0 0.00000+ 0                                            1273 405102499
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 405102500
+ 0.00000+ 0 0.00000+ 0                                            1273 405102501
+                                                                  1273 400002502
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 405202503
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 405202504
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 405202505
+          2          2                                            1273 405202506
+ 0.00000+ 0 1.91500+ 6          0          0          2          01273 405202507
+ 0.00000+ 0 0.00000+ 0                                            1273 405202508
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 405202509
+ 0.00000+ 0 0.00000+ 0                                            1273 405202510
+                                                                  1273 400002511
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 405302512
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 405302513
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 405302514
+          2          2                                            1273 405302515
+ 0.00000+ 0 2.37100+ 6          0          0          2          01273 405302516
+ 0.00000+ 0 0.00000+ 0                                            1273 405302517
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 405302518
+ 0.00000+ 0 0.00000+ 0                                            1273 405302519
+                                                                  1273 400002520
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 405402521
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 405402522
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 405402523
+          2          2                                            1273 405402524
+ 0.00000+ 0 3.94600+ 6          0          0          2          01273 405402525
+ 0.00000+ 0 0.00000+ 0                                            1273 405402526
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 405402527
+ 0.00000+ 0 0.00000+ 0                                            1273 405402528
+                                                                  1273 400002529
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 405502530
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 405502531
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 405502532
+          2          2                                            1273 405502533
+ 0.00000+ 0 5.25500+ 6          0          0          2          01273 405502534
+ 0.00000+ 0 0.00000+ 0                                            1273 405502535
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 405502536
+ 0.00000+ 0 0.00000+ 0                                            1273 405502537
+                                                                  1273 400002538
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 405602539
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 405602540
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 405602541
+          2          2                                            1273 405602542
+ 0.00000+ 0 5.62900+ 6          0          0          2          01273 405602543
+ 0.00000+ 0 0.00000+ 0                                            1273 405602544
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 405602545
+ 0.00000+ 0 0.00000+ 0                                            1273 405602546
+                                                                  1273 400002547
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 405702548
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 405702549
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 405702550
+          2          2                                            1273 405702551
+ 0.00000+ 0 5.68600+ 6          0          0          2          01273 405702552
+ 0.00000+ 0 0.00000+ 0                                            1273 405702553
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 405702554
+ 0.00000+ 0 0.00000+ 0                                            1273 405702555
+                                                                  1273 400002556
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 405802557
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 405802558
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 405802559
+          2          2                                            1273 405802560
+ 0.00000+ 0 5.70500+ 6          0          0          2          01273 405802561
+ 0.00000+ 0 0.00000+ 0                                            1273 405802562
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 405802563
+ 0.00000+ 0 0.00000+ 0                                            1273 405802564
+                                                                  1273 400002565
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 405902566
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 405902567
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 405902568
+          2          2                                            1273 405902569
+ 0.00000+ 0 6.52000+ 6          0          0          2          01273 405902570
+ 0.00000+ 0 0.00000+ 0                                            1273 405902571
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 405902572
+ 0.00000+ 0 0.00000+ 0                                            1273 405902573
+                                                                  1273 400002574
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 406002575
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 406002576
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 406002577
+          2          2                                            1273 406002578
+ 0.00000+ 0 6.63600+ 6          0          0          2          01273 406002579
+ 0.00000+ 0 0.00000+ 0                                            1273 406002580
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 406002581
+ 0.00000+ 0 0.00000+ 0                                            1273 406002582
+                                                                  1273 400002583
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 406102584
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 406102585
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 406102586
+          2          2                                            1273 406102587
+ 0.00000+ 0 6.75100+ 6          0          0          2          01273 406102588
+ 0.00000+ 0 0.00000+ 0                                            1273 406102589
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 406102590
+ 0.00000+ 0 0.00000+ 0                                            1273 406102591
+                                                                  1273 400002592
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 406202593
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 406202594
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 406202595
+          2          2                                            1273 406202596
+ 0.00000+ 0 7.15500+ 6          0          0          2          01273 406202597
+ 0.00000+ 0 0.00000+ 0                                            1273 406202598
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 406202599
+ 0.00000+ 0 0.00000+ 0                                            1273 406202600
+                                                                  1273 400002601
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 406302602
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 406302603
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 406302604
+          2          2                                            1273 406302605
+ 0.00000+ 0 7.70500+ 6          0          0          2          01273 406302606
+ 0.00000+ 0 0.00000+ 0                                            1273 406302607
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 406302608
+ 0.00000+ 0 0.00000+ 0                                            1273 406302609
+                                                                  1273 400002610
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 406402611
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 406402612
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 406402613
+          2          2                                            1273 406402614
+ 0.00000+ 0 8.25600+ 6          0          0          2          01273 406402615
+ 0.00000+ 0 0.00000+ 0                                            1273 406402616
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 406402617
+ 0.00000+ 0 0.00000+ 0                                            1273 406402618
+                                                                  1273 400002619
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 406502620
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 406502621
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 406502622
+          2          2                                            1273 406502623
+ 0.00000+ 0 8.80600+ 6          0          0          2          01273 406502624
+ 0.00000+ 0 0.00000+ 0                                            1273 406502625
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 406502626
+ 0.00000+ 0 0.00000+ 0                                            1273 406502627
+                                                                  1273 400002628
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 406602629
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 406602630
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 406602631
+          2          2                                            1273 406602632
+ 0.00000+ 0 9.35600+ 6          0          0          2          01273 406602633
+ 0.00000+ 0 0.00000+ 0                                            1273 406602634
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 406602635
+ 0.00000+ 0 0.00000+ 0                                            1273 406602636
+                                                                  1273 400002637
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 406702638
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 406702639
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 406702640
+          2          2                                            1273 406702641
+ 0.00000+ 0 9.90700+ 6          0          0          2          01273 406702642
+ 0.00000+ 0 0.00000+ 0                                            1273 406702643
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 406702644
+ 0.00000+ 0 0.00000+ 0                                            1273 406702645
+                                                                  1273 400002646
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 406802647
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 406802648
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 406802649
+          2          2                                            1273 406802650
+ 0.00000+ 0 1.04570+ 7          0          0          2          01273 406802651
+ 0.00000+ 0 0.00000+ 0                                            1273 406802652
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 406802653
+ 0.00000+ 0 0.00000+ 0                                            1273 406802654
+                                                                  1273 400002655
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 406902656
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 406902657
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 406902658
+          2          2                                            1273 406902659
+ 0.00000+ 0 1.10070+ 7          0          0          2          01273 406902660
+ 0.00000+ 0 0.00000+ 0                                            1273 406902661
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 406902662
+ 0.00000+ 0 0.00000+ 0                                            1273 406902663
+                                                                  1273 400002664
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 407002665
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 407002666
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 407002667
+          2          2                                            1273 407002668
+ 0.00000+ 0 1.15580+ 7          0          0          2          01273 407002669
+ 0.00000+ 0 0.00000+ 0                                            1273 407002670
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 407002671
+ 0.00000+ 0 0.00000+ 0                                            1273 407002672
+                                                                  1273 400002673
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 407102674
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 407102675
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 407102676
+          2          2                                            1273 407102677
+ 0.00000+ 0 1.21080+ 7          0          0          2          01273 407102678
+ 0.00000+ 0 0.00000+ 0                                            1273 407102679
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 407102680
+ 0.00000+ 0 0.00000+ 0                                            1273 407102681
+                                                                  1273 400002682
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 407202683
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 407202684
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 407202685
+          2          2                                            1273 407202686
+ 0.00000+ 0 1.26580+ 7          0          0          2          01273 407202687
+ 0.00000+ 0 0.00000+ 0                                            1273 407202688
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 407202689
+ 0.00000+ 0 0.00000+ 0                                            1273 407202690
+                                                                  1273 400002691
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 407302692
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 407302693
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 407302694
+          2          2                                            1273 407302695
+ 0.00000+ 0 1.32090+ 7          0          0          2          01273 407302696
+ 0.00000+ 0 0.00000+ 0                                            1273 407302697
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 407302698
+ 0.00000+ 0 0.00000+ 0                                            1273 407302699
+                                                                  1273 400002700
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 407402701
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 407402702
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 407402703
+          2          2                                            1273 407402704
+ 0.00000+ 0 1.37590+ 7          0          0          2          01273 407402705
+ 0.00000+ 0 0.00000+ 0                                            1273 407402706
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 407402707
+ 0.00000+ 0 0.00000+ 0                                            1273 407402708
+                                                                  1273 400002709
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 407502710
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 407502711
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 407502712
+          2          2                                            1273 407502713
+ 0.00000+ 0 1.43100+ 7          0          0          2          01273 407502714
+ 0.00000+ 0 0.00000+ 0                                            1273 407502715
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 407502716
+ 0.00000+ 0 0.00000+ 0                                            1273 407502717
+                                                                  1273 400002718
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 407602719
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 407602720
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 407602721
+          2          2                                            1273 407602722
+ 0.00000+ 0 1.48600+ 7          0          0          2          01273 407602723
+ 0.00000+ 0 0.00000+ 0                                            1273 407602724
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 407602725
+ 0.00000+ 0 0.00000+ 0                                            1273 407602726
+                                                                  1273 400002727
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 407702728
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 407702729
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 407702730
+          2          2                                            1273 407702731
+ 0.00000+ 0 1.54100+ 7          0          0          2          01273 407702732
+ 0.00000+ 0 0.00000+ 0                                            1273 407702733
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 407702734
+ 0.00000+ 0 0.00000+ 0                                            1273 407702735
+                                                                  1273 400002736
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 407802737
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 407802738
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 407802739
+          2          2                                            1273 407802740
+ 0.00000+ 0 1.59610+ 7          0          0          2          01273 407802741
+ 0.00000+ 0 0.00000+ 0                                            1273 407802742
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 407802743
+ 0.00000+ 0 0.00000+ 0                                            1273 407802744
+                                                                  1273 400002745
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 407902746
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 407902747
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 407902748
+          2          2                                            1273 407902749
+ 0.00000+ 0 1.65110+ 7          0          0          2          01273 407902750
+ 0.00000+ 0 0.00000+ 0                                            1273 407902751
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 407902752
+ 0.00000+ 0 0.00000+ 0                                            1273 407902753
+                                                                  1273 400002754
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 408002755
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 408002756
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 408002757
+          2          2                                            1273 408002758
+ 0.00000+ 0 1.70610+ 7          0          0          2          01273 408002759
+ 0.00000+ 0 0.00000+ 0                                            1273 408002760
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 408002761
+ 0.00000+ 0 0.00000+ 0                                            1273 408002762
+                                                                  1273 400002763
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 408102764
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 408102765
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 408102766
+          2          2                                            1273 408102767
+ 0.00000+ 0 1.76120+ 7          0          0          2          01273 408102768
+ 0.00000+ 0 0.00000+ 0                                            1273 408102769
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 408102770
+ 0.00000+ 0 0.00000+ 0                                            1273 408102771
+                                                                  1273 400002772
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 408202773
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 408202774
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 408202775
+          2          2                                            1273 408202776
+ 0.00000+ 0 1.81620+ 7          0          0          2          01273 408202777
+ 0.00000+ 0 0.00000+ 0                                            1273 408202778
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 408202779
+ 0.00000+ 0 0.00000+ 0                                            1273 408202780
+                                                                  1273 400002781
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 408302782
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 408302783
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 408302784
+          2          2                                            1273 408302785
+ 0.00000+ 0 1.87130+ 7          0          0          2          01273 408302786
+ 0.00000+ 0 0.00000+ 0                                            1273 408302787
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 408302788
+ 0.00000+ 0 0.00000+ 0                                            1273 408302789
+                                                                  1273 400002790
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 408402791
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 408402792
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 408402793
+          2          2                                            1273 408402794
+ 0.00000+ 0 1.92630+ 7          0          0          2          01273 408402795
+ 0.00000+ 0 0.00000+ 0                                            1273 408402796
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 408402797
+ 0.00000+ 0 0.00000+ 0                                            1273 408402798
+                                                                  1273 400002799
+ 5.01000+ 3 9.92690+ 0          0          1          0          01273 408502800
+ 0.00000+ 0 9.92690+ 0          0          2          0          01273 408502801
+ 0.00000+ 0 0.00000+ 0          0          0          1          21273 408502802
+          2          2                                            1273 408502803
+ 0.00000+ 0 1.98130+ 7          0          0          2          01273 408502804
+ 0.00000+ 0 0.00000+ 0                                            1273 408502805
+ 0.00000+ 0 2.00000+ 7          0          0          2          01273 408502806
+ 0.00000+ 0 0.00000+ 0                                            1273 408502807
+                                                                  1273 400002808
+                                                                  1273 000002809
+                                                                     0 000002023
+ 6.01200+ 3 1.18969+ 1          0          0          0         291274 145100001
+ 0.00000+ 0 0.00000+ 0          0          0        143          01274 145100002
+  6- C- 12 ORNL       EVAL-DEC73 F.G.PEREY AND C.Y.FU             1274 145100003
+                      DIST-JUN74 REV-JUN75   *                    1274 145100004
+  DATA POINTS AT 15.0 MEV WERE EXTENDED LINEARLY TO 20.0 MEV TO   1274 145100005
+ SATISFY FORMAL REQUIREMENT FOR ENDF/B IV NO PRETENCE AT AN EVAL. 1274 145100006
+ ABOVE 15 MEV .                                                   1274 145100007
+                   *            *            *                    1274 145100008
+   EXECPT AS NOTED HERE THIS IS AN EXTENSIVE REVISION OF MAT-1165 1274 145100009
+ NO CHANGES MADE BELOW 2.0 MEV.TOTAL CROSS SECTION IS THE CSEWG   1274 145100010
+ NORM. AND STAND. SUBCOM. RECOMMENDATION (N.C.FRANCIS ET AL CONF. 1274 145100011
+ ON NEUT. STAND. AND FLUX NORM. ANL OCT 1970,PAGE 166).CAPTURE IS 1274 145100012
+ 1/V WITH THERMAL VALUE OF 3.36 MB. ABOVE 2.0 MEV ONLY REMNANT OF 1274 145100013
+ MAT 1165 IS MT-91 THE COMBINATION OF (N,NPRIME) AND (N,NPRIME3AL-1274 145100014
+ PHA).                                                            1274 145100015
+                   *            *            *                    1274 145100016
+    MF-3           ***  NEUTRON X-SECTIONS  ***                   1274 145100017
+                   *            *            *                    1274 145100018
+         MT-1 TOTAL CROSS SECTION. REVISED ABOVE 2.0 MEV ON BASIS 1274 145100019
+ R.B.SCHWARTZ,H.T.HEATON II AND R.A.SCHRACK.NBS.BULL.AM.PHYS.SOC  1274 145100020
+ 15,567(1967)                                                     1274 145100021
+ S.CIERJACHS ET AL EURFNR-591(1968), AND PRIV. COMM. (1969)       1274 145100022
+ F.G.PEREY,T.A.LOVE AND W.E.KINNEY ORNL-4823(1972)                1274 145100023
+         MT-2 ELASTIC CROSS SECTION. ENTIRELY DERIVED ON BASIS OF 1274 145100024
+ OTHER EVALUATED CROSS SECTIONSS EXCEPT AT 14.5 MEV. EXTENSIVE    1274 145100025
+ DATA SETS WHICH OFTEN HAVE 4.43 MEV INELASTIC SCATTERING WERE    1274 145100026
+ USED ONLY FOR ANGULAR DISTRIBUTIONS SHAPES. ALL ELASTIC AND INE- 1274 145100027
+ LASTIC DATA SOUCES ARE GIVEN BELOW.                              1274 145100028
+ A.B.SMITH ANL PRIVATE COMM. (MARCH 1972)                         1274 145100029
+ F.G.PEREY AND W.E.KINNEY PRIV. COMM. (1972)                      1274 145100030
+ D.W.GLASGOW ET AL. AEROSPACE RESEARCH LAB. PRIV. COMM. (1972)    1274 145100031
+ J.E.BRALEY AND C.W.COOK,PHYS.REV. 118,808(1960)                  1274 145100032
+ D.LISTER AND SAYRES,PHYS.REV. 143,745(1966)                      1274 145100033
+ F.G.PEREY AND W.E.KINNEY ORNL-4441(1969)                         1274 145100034
+ M.WALT AND J.R.BEYSTER,PHYS.REV.98,677(1955)                     1274 145100035
+ J.R.BEYSTER,M.WALT AND E.W.SALMI,PHYS.REV. 104,1319(1956)        1274 145100036
+ E.HADAD AND D.D.PHILLIPS,BULL.AM.PHYS.SOC. 4,358(1959)           1274 145100037
+ J.E.WILLS ET AL ,PHYS.REV. 109,891(1958)                         1274 145100038
+ N.A.BOSTROM ET AL. TEXAS NUCL. CORP (1959)                       1274 145100039
+ J.T.LINDOW ET AL,BULL.AM.PHYS.SOC, 15,86(1970)                   1274 145100040
+ W.GALATI ET AL ,PHYS.REV. C5,1508(1972)                          1274 145100041
+ R.W.WILENZICK ET AL,NUCL.PHYS. 62,511(1965)                      1274 145100042
+ G.V.GORLOV ET AL DOKLADY AKAD. NAUK. 158,574(1964)               1274 145100043
+ G.HAOUAT AND COCU CEN B-III KIEV CONF.(1973) AND PRIV. COMM.(19731274 145100044
+ **BELOW 4 MEV NUMEROUS PRE  1965 DATA SETS USED IN PUBLISHED RMAT1274 145100045
+ RIX ANALYSISES WERE ALSO USED (SEE BNL-325)                      1274 145100046
+ **AROUND 14.5 MEV 12 DATA SOURCES                                1274 145100047
+         MT-3  NON-ELASTIC CROSS SECTION. COMPLITELY DERIVED X-SEC1274 145100048
+         MT-4  INELASTIC X-SECTION. COMPLETELY DERIVED X-SECTION  1274 145100049
+         MT-51  INELASTIC SCATTERING X-SECTION TO 4.43 MEV LEVEL  1274 145100050
+ SEE ABOVE DATA SOURCES FOR MT-2. FROM 5.2 TO 8.7 MEV BASED MOSTLY1274 145100051
+ ON UNPUBLISHED DATA FROM ORNL BY F.G.PEREY AND W.E.KINNEY .FROM  1274 145100052
+ 9 TO 12 MEV BASED MOSTLY ON 3 DATA POINTS BY G.HAOUAT AND F.COCU 1274 145100053
+ CEN B-III (1973). ABOUT 14 MEV BASED ON 7 DATA SETS.THIS EVALLUA.1274 145100054
+ TION OF MT-51 DIFFERS FROM MAT 1165 OFTEN BY MORE THAN 25 PERCENT1274 145100055
+ IN GENERAL IT IS NOW LOWER BELOW 10 MEV AND HIGHER ABOVE.IT IS   1274 145100056
+ CLOSELY THE SAME AROUND 14.5 MEV.                                1274 145100057
+         MT-91 CONTINUUM INELASTIC X-SECTION.SURPRISINGLY UNCHANG-1274 145100058
+ ED FROM MAT 1165. THE DECISION TAKEN FOR ENDF/B III TO LUMP TOGE-1274 145100059
+ THER (N,NPRIME) TO HIGHER LEVELS WITH (N,NPRIME3ALPHAS) HAS BEEN 1274 145100060
+ RETAINED.PRELIMINARY RESULTS FROM PHASE II DATA TESTING (ED OBLOW1274 145100061
+ ,ORNL PRIV. COMM. 1973) INDICATE SATISFACTORY RESULTS FROM 10 TO 1274 145100062
+ 15 MEV FOR NEUTRON CONTINUUM.                                    1274 145100063
+         MT-102 RADIATIVE CAPTURE X-SECTION. 1/V CURVE BASED ON   1274 145100064
+ 3.36MB AT THERMAL SAME AS IN MAT-1165                            1274 145100065
+         MT-107 N,ALPHA X-SECTION. VERY CONSIDERABLE CHANGES OVER 1274 145100066
+ MAT-1165.IT IS NOW A FACTOR OF 2 BIGGER BELOW 10.5 MEV AND A     1274 145100067
+ FACTOR OF 2 SMALLER ABOVE.POST 1965 DATA ON INVERSE REACTION     1274 145100068
+ INDICATE A FACTOR OF 2 DISCREPANCY IN DATA OF                    1274 145100069
+ E.A.DAVIS ET AL,NUCL.PHYS. 48,169(1963)                          1274 145100070
+ ALL DATA SETS ON INVERSE REACTION ARE CONSISTENT AND AGREE WITH  1274 145100071
+ FORWARD REACTION AT 14.5 MEV . DATA SETS USED TO EVALUATE MT-107 1274 145100072
+ V.V.VERBINSKY ET AL ,PHYS.REV. 170,916(1968)                     1274 145100073
+ T.RETZ ET AL ,BULL.AM.PHYS.SOC 5,110(1960)                       1274 145100074
+ E.R.GRAVES AND R.W.DAVIS ,PHYS.REV. 97,1205(1955)                1274 145100075
+ A.W.OBST ET AL, PHYS.REV. C5,738(1972)                           1274 145100076
+ L.VAN DER ZWAN AND K.W.GEIGER,NUCL.PHYS. A152,481(1970)          1274 145100077
+                   *            *            *                    1274 145100078
+    MF-4           ***  NEUTRON ANG. DISTRIBUTIONS  ***           1274 145100079
+                   *            *            *                    1274 145100080
+         MT-2  ELASTIC SCATTERING. FROM 2 TO 5 MEV SMALL BUT SIGN-1274 145100081
+ IFICANT CHANGES OVER MAT 1165.FROM 3 TO 5 MEV MOST WEIGHT WAS    1274 145100082
+ GIVEN TO DATA OF W.GALATI ET AL PHYS.REV. C5,1508(1972) TO MODIFY1274 145100083
+ RESULTS OF OUR OWN R-MATRIX ANALYSIS (SIMILAR TO MANY PREVIOUSLY 1274 145100084
+ DONE ANALYSIS) .ABOVE 5 MEV VERY CONSIDERABLE CHANGES FROM MAT   1274 145100085
+ 1165 EXCEPT AROUND 14.5 MEV. MOST WEIGHT WAS GIVEN TO THE DATA OF1274 145100086
+ F.G.PEREY AND W.E.KINNEY ORNL PRIV. COMM. (1972) 40 ANG.DISTRIB. 1274 145100087
+ AT 18 ANGLES FOR BOTH ELASTIC AND INELASTIC SCATTERING FROM 5.2  1274 145100088
+ TO 8.7 MEV THIS DATA REVEALS GREAT RESONNANCE STRUCTURE CONSISTE-1274 145100089
+ NT WITH OTHER DATA IN THIS ENERGY REGION.FROM 9 TO 12 MEV DATA OF1274 145100090
+ G.HAOUAT AND F.COCU SHOWS BROAD RESOMMANCE. DUE TO CONSIDERABLE  1274 145100091
+ RESONNANCE STRUCTURE THE FILE IS LARGE AND WAS CAREFULLY THINNED 1274 145100092
+         MT-51  INELASTIC SCATTERING TO 4.43 MEV LEVEL. VERY CONS-1274 145100093
+ IDERABLE CHANGES OVER MAT 1165 EXCEPT AROUND 14.5 MEV. SAME GENE-1274 145100094
+ RAL REMARKS ON DATA SOURCES AND STRUCTURE IN FILE AS FOR MT-2    1274 145100095
+                   *            *            *                    1274 145100096
+    MF-5           ***  NEUTRON ENERGY DISTRIBUTIONS  ***         1274 145100097
+                   *            *            *                    1274 145100098
+         MT-91 CONTINUUM. MAT 1165 TEMPERATURES HAVE BEEN RETAINED1274 145100099
+                   *            *            *                    1274 145100100
+    MF-12          *** GAMMA RAY MULTIPLICITIES ***               1274 145100101
+                   *            *            *                    1274 145100102
+         MT-102  CAPTURE GAMMA RAYS. BASED ON WELL KNOWN DATA FROM1274 145100103
+ F.AJZEMBERG-SELOVE ,NUCL.PHYS. A152,1(1970)                      1274 145100104
+                   *            *            *                    1274 145100105
+    MF-13          ***  GAMMA RAY X-SECTIONS  ***                 1274 145100106
+                   *            *            *                    1274 145100107
+    MT-51 4.43 MEV GAM. RAY FROM FIRST LEVEL. SEE MF-3, MT-51     1274 145100108
+                   *            *            *                    1274 145100109
+    MF-14          ***  ANGULAR DISTRIBUTIONS FOR GAM. RAYS  ***  1274 145100110
+                   *            *            *                    1274 145100111
+         MT-51  4.43 MEV GAMMA RAY FROM FIRST LEVEL.A2 AND A4 COEF1274 145100112
+ OF E2 TRANSITION WERE BASED ON THE INTEGRATED X-SECTION (MF-3,MT 1274 145100113
+ 51)AND EVALUATED GAMMA RAY PRODUCTION AT 55 AND 90 DEGREES. DATA 1274 145100114
+ BASE USED TO EVALUATE THE 55 AND 90 DEGREES X-SECTIONS           1274 145100115
+ D.M.DRAKE ET AL ,NUCL SCI. AND ENG. 40,294(1969)                 1274 145100116
+ H.E.HALL AND T.W.BONNER, NUCL.PHYS. 14,295(1959)                 1274 145100117
+ J.T.PRUDHOMME ET AL, AFSWC-TR-30(1960)                           1274 145100118
+ D.O.NELLIS ET AL,I.L.MORGAN ET AL, TEXAS NUCL. CORP. (1962,1964) 1274 145100119
+ J.D.ANDERSON ET AL, PHYS.REV., 111,572(1958)                     1274 145100120
+ T.KOZLOWSKI ET AL INR/661/IA/PL(1965)                            1274 145100121
+ F.C.ENGESSER,W.E.THOMPSON,J.M.FERGUSON USNRDL-TR-791(1964)       1274 145100122
+ G.L.MORGAN ET AL, ORNL-TM-3702(1972)                             1274 145100123
+   MOST RELIANCE WAS PLACED ON DATA OF G.L. MORGAN ET AL. GREAT   1274 145100124
+ RESONNANCE STRUCTURE WITH RAPIDLY CHANGING ANG. DISTRIB. SMALL   1274 145100125
+ AND LARGE ANGLE DATA PROBABLY NOT VERRY ACCURATE DUE TO METHOD   1274 145100126
+ USED IN EVALUATING. ASSUMING ISOTROPY FOR GAMMA RAY WILL RESULT  1274 145100127
+ VERRY OFTEN IN A FACTOR OF 2 ERROR AND EVEN UP TO 3. THE LARGE   1274 145100128
+ FILE HAS ALREADY BEEN CAREFULLY THINNED.                         1274 145100129
+                   *            *            *                    1274 145100130
+ MF-33  *******COVARIANCE FILES FOR MF-3 *************            1274 145100131
+ THE FIRST SUBSECTION OF MT-1 IS ONLY THERE TO PROVIDE            1274 145100132
+ PROCESSING CODES WITH THE UNION OF ALL ENERGY EDGES IN FILE MF-331274 145100133
+        ****************************************                  1274 145100134
+       ALL COVARIANCE MATRICES OF CROSS-SECTIONS IN SECTIONS      1274 145100135
+ MT-1,51,91,102,107  ARE EXPLICITELY GIVEN IN THE FORMAT 73-7     1274 145100136
+  THE CROSS-SECTION DATA IN SECTIONS MT-2,3,4 ARE REDUNDANT AS    1274 145100137
+ THESE ARE DERIVED FROM OTHER DATA IN THE FILE MF-3.THE COVARIANCE1274 145100138
+ OF ANY DATA IN THESE SECTIONS ,MT-2,3,4, ARE GIVEN IMPLICITELY   1274 145100139
+ BY MEANS OF A FLAG ,AN NC TYPE SUBSECTION,THE VALUE CAN TRIVIALY 1274 145100140
+ BE OBTAINED KNOWING THAT MT-4=MT-51 PLUS MT-91                   1274 145100141
+                          MT-3=MT-4 PLUS MT-102 PLUS MT-107       1274 145100142
+                         MT-2=MT-1 MINUS MT-3                     1274 145100143
+      ALL QUERRIES CONCERNING FILE MF-33 ARE WELCOME AND SHOULD   1274 145100144
+ BE ADDRESSED TO F.G.PEREY OF ORNL.                               1274 145100145
+                                1        451        174           1274 145100146
+                                2        151          4           1274 145100147
+                                3          1        137           1274 145100148
+                                3          2        133           1274 145100149
+                                3          3         47           1274 145100150
+                                3          4         36           1274 145100151
+                                3         51         29           1274 145100152
+                                3         91         11           1274 145100153
+                                3        102          6           1274 145100154
+                                3        107         14           1274 145100155
+                                3        251         69           1274 145100156
+                                3        252         69           1274 145100157
+                                3        253         69           1274 145100158
+                                4          2        461           1274 145100159
+                                4         51        150           1274 145100160
+                                4         91         10           1274 145100161
+                                5         91         19           1274 145100162
+                               12        102         13           1274 145100163
+                               13         51         29           1274 145100164
+                               14         51        185           1274 145100165
+                               14        102          1           1274 145100166
+                               33          1         63           1274 145100167
+                               33          2         22           1274 145100168
+                               33          3         19           1274 145100169
+                               33          4         16           1274 145100170
+                               33         51         21           1274 145100171
+                               33         91         13           1274 145100172
+                               33        102          7           1274 145100173
+                               33        107         13           1274 145100174
+                                                                  1274 100000175
+                                                                  1274 000000176
+ 6.01200+ 3 1.18969+ 1          0          0          1          01274 215100177
+ 6.01200+ 3 1.00000+ 0          0          0          1          01274 215100178
+ 1.00000- 5 1.00000+ 5          0          0          0          01274 215100179
+ 0.00000+ 0 6.13500- 1          0          0          0          01274 215100180
+                                                                  1274 200000181
+                                                                  1274 000000182
+ 6.01200+ 3 1.18969+ 1          0         99          0          01274 300100183
+ 0.00000+ 0 0.00000+ 0          0          0          2        4011274 300100184
+          4          5        401          2                      1274 300100185
+ 1.00000- 5 4.90002+ 0 1.00000- 3 4.74600+ 0 2.53000- 2 4.73236+ 01274 300100186
+ 1.00000- 1 4.73071+ 0 1.00000+ 1 4.72917+ 0 1.00000+ 3 4.72402+ 01274 300100187
+ 4.00000+ 3 4.71380+ 0 6.00000+ 3 4.70700+ 0 8.00000+ 3 4.70100+ 01274 300100188
+ 1.25000+ 4 4.68500+ 0 1.50000+ 4 4.67700+ 0 1.75000+ 4 4.66800+ 01274 300100189
+ 3.00000+ 4 4.62700+ 0 3.50000+ 4 4.60900+ 0 4.00000+ 4 4.59300+ 01274 300100190
+ 5.00000+ 4 4.55800+ 0 6.00000+ 4 4.52600+ 0 7.00000+ 4 4.49300+ 01274 300100191
+ 8.00000+ 4 4.45900+ 0 1.20000+ 5 4.33100+ 0 1.30000+ 5 4.30100+ 01274 300100192
+ 1.40000+ 5 4.27000+ 0 2.00000+ 5 4.09600+ 0 2.50000+ 5 3.95900+ 01274 300100193
+ 3.00000+ 5 3.82900+ 0 3.50000+ 5 3.70500+ 0 4.00000+ 5 3.58900+ 01274 300100194
+ 4.50000+ 5 3.47800+ 0 5.00000+ 5 3.37200+ 0 5.50000+ 5 3.27200+ 01274 300100195
+ 6.00000+ 5 3.17800+ 0 6.50000+ 5 3.10100+ 0 7.00000+ 5 3.00000+ 01274 300100196
+ 7.50000+ 5 2.92100+ 0 8.00000+ 5 2.83300+ 0 8.50000+ 5 2.76800+ 01274 300100197
+ 9.00000+ 5 2.69100+ 0 9.50000+ 5 2.61600+ 0 1.00000+ 6 2.56200+ 01274 300100198
+ 1.05000+ 6 2.49700+ 0 1.10000+ 6 2.43000+ 0 1.20000+ 6 2.31200+ 01274 300100199
+ 1.25000+ 6 2.26200+ 0 1.30000+ 6 2.21600+ 0 1.35000+ 6 2.16300+ 01274 300100200
+ 1.40000+ 6 2.11900+ 0 1.45000+ 6 2.07900+ 0 1.50000+ 6 2.03700+ 01274 300100201
+ 1.55000+ 6 1.99100+ 0 1.60000+ 6 1.94600+ 0 1.65000+ 6 1.91800+ 01274 300100202
+ 1.70000+ 6 1.86700+ 0 1.75000+ 6 1.84500+ 0 1.80000+ 6 1.80600+ 01274 300100203
+ 1.85000+ 6 1.77000+ 0 1.90000+ 6 1.73900+ 0 1.95000+ 6 1.71100+ 01274 300100204
+ 2.00000+ 6 1.67700+ 0 2.04900+ 6 1.69610+ 0 2.05800+ 6 1.75570+ 01274 300100205
+ 2.06420+ 6 1.96150+ 0 2.06800+ 6 2.13490+ 0 2.07010+ 6 2.40300+ 01274 300100206
+ 2.07150+ 6 2.71720+ 0 2.07400+ 6 3.20760+ 0 2.07500+ 6 3.92160+ 01274 300100207
+ 2.07600+ 6 4.86990+ 0 2.07700+ 6 5.76260+ 0 2.07780+ 6 6.02330+ 01274 300100208
+ 2.07800+ 6 5.99520+ 0 2.07900+ 6 5.41960+ 0 2.08000+ 6 4.56020+ 01274 300100209
+ 2.08100+ 6 3.81810+ 0 2.08200+ 6 3.27610+ 0 2.08370+ 6 2.90680+ 01274 300100210
+ 2.08480+ 6 2.65220+ 0 2.08610+ 6 2.50870+ 0 2.08750+ 6 2.37320+ 01274 300100211
+ 2.08990+ 6 2.19720+ 0 2.09320+ 6 2.02650+ 0 2.09890+ 6 1.90740+ 01274 300100212
+ 2.10620+ 6 1.80720+ 0 2.11670+ 6 1.73940+ 0 2.16000+ 6 1.67000+ 01274 300100213
+ 2.35000+ 6 1.57800+ 0 2.55000+ 6 1.60000+ 0 2.63000+ 6 1.66200+ 01274 300100214
+ 2.70000+ 6 1.74700+ 0 2.77020+ 6 1.87110+ 0 2.79490+ 6 1.93290+ 01274 300100215
+ 2.80210+ 6 1.98810+ 0 2.80690+ 6 2.04660+ 0 2.80950+ 6 2.15000+ 01274 300100216
+ 2.81500+ 6 2.72000+ 0 2.81600+ 6 2.75500+ 0 2.81700+ 6 2.72000+ 01274 300100217
+ 2.82100+ 6 2.15000+ 0 2.82510+ 6 2.06290+ 0 2.83130+ 6 2.04010+ 01274 300100218
+ 2.88000+ 6 2.42300+ 0 2.93800+ 6 3.10500+ 0 2.94600+ 6 3.13500+ 01274 300100219
+ 2.95000+ 6 3.10500+ 0 2.95400+ 6 3.03000+ 0 2.95800+ 6 2.92000+ 01274 300100220
+ 2.97000+ 6 2.25000+ 0 2.98000+ 6 1.77200+ 0 2.98700+ 6 1.48800+ 01274 300100221
+ 2.99000+ 6 1.40300+ 0 2.99400+ 6 1.33000+ 0 3.00000+ 6 1.25500+ 01274 300100222
+ 3.00700+ 6 1.20000+ 0 3.01400+ 6 1.17500+ 0 3.02500+ 6 1.19000+ 01274 300100223
+ 3.15000+ 6 1.78200+ 0 3.30000+ 6 2.30000+ 0 3.35000+ 6 2.44700+ 01274 300100224
+ 3.42000+ 6 2.57000+ 0 3.46000+ 6 2.61200+ 0 3.60000+ 6 2.62500+ 01274 300100225
+ 3.68000+ 6 2.51300+ 0 3.90000+ 6 2.08500+ 0 4.00000+ 6 1.90500+ 01274 300100226
+ 4.03000+ 6 1.87500+ 0 4.06000+ 6 1.80000+ 0 4.10000+ 6 1.78700+ 01274 300100227
+ 4.13000+ 6 1.80600+ 0 4.17000+ 6 1.90200+ 0 4.26000+ 6 2.23800+ 01274 300100228
+ 4.27000+ 6 2.24000+ 0 4.40000+ 6 1.90000+ 0 4.50000+ 6 1.67000+ 01274 300100229
+ 4.60000+ 6 1.52000+ 0 4.70000+ 6 1.40500+ 0 4.80000+ 6 1.31370+ 01274 300100230
+ 4.85000+ 6 1.26800+ 0 4.89990+ 6 1.24487+ 0 4.90000+ 6 1.24500+ 01274 300100231
+ 4.91940+ 6 1.26652+ 0 4.92000+ 6 1.27080+ 0 4.93000+ 6 1.34270+ 01274 300100232
+ 4.93450+ 6 1.37495+ 0 4.93550+ 6 1.75305+ 0 4.93670+ 6 2.00111+ 01274 300100233
+ 4.93850+ 6 1.97545+ 0 4.93950+ 6 1.77215+ 0 4.94000+ 6 1.72900+ 01274 300100234
+ 4.94320+ 6 1.45294+ 0 4.94810+ 6 1.31422+ 0 4.95000+ 6 1.30090+ 01274 300100235
+ 4.95460+ 6 1.26873+ 0 4.95840+ 6 1.24700+ 0 4.96980+ 6 1.22540+ 01274 300100236
+ 4.98000+ 6 1.21900+ 0 5.00000+ 6 1.20630+ 0 5.00070+ 6 1.20588+ 01274 300100237
+ 5.03000+ 6 1.19180+ 0 5.10000+ 6 1.15810+ 0 5.12000+ 6 1.14850+ 01274 300100238
+ 5.15000+ 6 1.13410+ 0 5.18000+ 6 1.11960+ 0 5.20000+ 6 1.11000+ 01274 300100239
+ 5.23000+ 6 1.10100+ 0 5.28000+ 6 1.08600+ 0 5.30000+ 6 1.08000+ 01274 300100240
+ 5.33000+ 6 1.09000+ 0 5.33500+ 6 1.10500+ 0 5.34000+ 6 1.17000+ 01274 300100241
+ 5.36000+ 6 1.65180+ 0 5.36200+ 6 1.70000+ 0 5.37000+ 6 1.84220+ 01274 300100242
+ 5.37100+ 6 1.86000+ 0 5.37800+ 6 1.70000+ 0 5.38000+ 6 1.66670+ 01274 300100243
+ 5.39000+ 6 1.50000+ 0 5.40000+ 6 1.38500+ 0 5.41000+ 6 1.29000+ 01274 300100244
+ 5.42000+ 6 1.24500+ 0 5.43000+ 6 1.21250+ 0 5.44000+ 6 1.18001+ 01274 300100245
+ 5.46000+ 6 1.14504+ 0 5.50000+ 6 1.11500+ 0 5.55000+ 6 1.10500+ 01274 300100246
+ 5.60000+ 6 1.09500+ 0 5.65000+ 6 1.08500+ 0 5.70000+ 6 1.07500+ 01274 300100247
+ 5.80000+ 6 1.07500+ 0 5.90000+ 6 1.09250+ 0 6.00000+ 6 1.11000+ 01274 300100248
+ 6.05000+ 6 1.12200+ 0 6.12500+ 6 1.14000+ 0 6.16000+ 6 1.16000+ 01274 300100249
+ 6.18000+ 6 1.19500+ 0 6.20000+ 6 1.26500+ 0 6.21000+ 6 1.30000+ 01274 300100250
+ 6.22000+ 6 1.34500+ 0 6.23000+ 6 1.42000+ 0 6.24000+ 6 1.51500+ 01274 300100251
+ 6.25000+ 6 1.70000+ 0 6.28500+ 6 2.45000+ 0 6.29500+ 6 2.55000+ 01274 300100252
+ 6.30300+ 6 2.44990+ 0 6.31000+ 6 2.16500+ 0 6.32000+ 6 1.90000+ 01274 300100253
+ 6.33000+ 6 1.72500+ 0 6.34000+ 6 1.60000+ 0 6.35000+ 6 1.50830+ 01274 300100254
+ 6.36000+ 6 1.41670+ 0 6.37000+ 6 1.32497+ 0 6.39000+ 6 1.20167+ 01274 300100255
+ 6.40000+ 6 1.14000+ 0 6.41000+ 6 1.09300+ 0 6.42000+ 6 1.07200+ 01274 300100256
+ 6.43000+ 6 1.07675+ 0 6.44000+ 6 1.08150+ 0 6.45000+ 6 1.09100+ 01274 300100257
+ 6.47000+ 6 1.11000+ 0 6.49000+ 6 1.10000+ 0 6.51000+ 6 1.04000+ 01274 300100258
+ 6.54000+ 6 9.07500- 1 6.56000+ 6 8.19160- 1 6.57000+ 6 7.74993- 11274 300100259
+ 6.58000+ 6 7.44997- 1 6.59000+ 6 7.30000- 1 6.60000+ 6 7.45003- 11274 300100260
+ 6.62000+ 6 8.07500- 1 6.64000+ 6 8.70000- 1 6.65750+ 6 9.00000- 11274 300100261
+ 6.66500+ 6 8.90000- 1 6.67000+ 6 8.75000- 1 6.68000+ 6 8.45005- 11274 300100262
+ 6.70000+ 6 8.14995- 1 6.75000+ 6 8.00830- 1 6.81000+ 6 7.83830- 11274 300100263
+ 6.92000+ 6 7.52670- 1 7.00000+ 6 7.30000- 1 7.10000+ 6 7.34000- 11274 300100264
+ 7.14000+ 6 7.50000- 1 7.18000+ 6 7.94000- 1 7.20000+ 6 8.30000- 11274 300100265
+ 7.22000+ 6 8.78000- 1 7.22500+ 6 8.90003- 1 7.25000+ 6 9.90000- 11274 300100266
+ 7.27000+ 6 1.10000+ 0 7.28000+ 6 1.18143+ 0 7.34000+ 6 1.66998+ 01274 300100267
+ 7.35000+ 6 1.72996+ 0 7.36000+ 6 1.75503+ 0 7.37000+ 6 1.78003+ 01274 300100268
+ 7.40000+ 6 1.79073+ 0 7.42000+ 6 1.79783+ 0 7.47000+ 6 1.78840+ 01274 300100269
+ 7.52870+ 6 1.77727+ 0 7.54170+ 6 1.77479+ 0 7.59370+ 6 1.76500+ 01274 300100270
+ 7.62000+ 6 1.75996+ 0 7.65000+ 6 1.78995+ 0 7.66740+ 6 1.84221+ 01274 300100271
+ 7.68000+ 6 1.87997+ 0 7.69770+ 6 1.95969+ 0 7.70000+ 6 1.96999+ 01274 300100272
+ 7.72500+ 6 2.16996+ 0 7.74500+ 6 2.37006+ 0 7.75000+ 6 2.39143+ 01274 300100273
+ 7.77000+ 6 2.28332+ 0 7.78870+ 6 2.20233+ 0 7.81000+ 6 2.11001+ 01274 300100274
+ 7.81910+ 6 2.09178+ 0 7.86000+ 6 2.01003+ 0 7.88840+ 6 1.97913+ 01274 300100275
+ 7.89710+ 6 1.96959+ 0 7.93000+ 6 1.93378+ 0 7.93610+ 6 1.93147+ 01274 300100276
+ 8.00000+ 6 1.90745+ 0 8.00540+ 6 1.90804+ 0 8.00980+ 6 1.90841+ 01274 300100277
+ 8.07910+ 6 1.91487+ 0 8.08000+ 6 1.91499+ 0 8.10080+ 6 1.89417+ 01274 300100278
+ 8.10500+ 6 1.88999+ 0 8.10940+ 6 1.87822+ 0 8.12000+ 6 1.85000+ 01274 300100279
+ 8.13110+ 6 1.80434+ 0 8.16000+ 6 1.68551+ 0 8.20000+ 6 1.52111+ 01274 300100280
+ 8.21000+ 6 1.48000+ 0 8.21780+ 6 1.45530+ 0 8.24000+ 6 1.38500+ 01274 300100281
+ 8.28000+ 6 1.29670+ 0 8.29580+ 6 1.27088+ 0 8.33000+ 6 1.21500+ 01274 300100282
+ 8.39110+ 6 1.14866+ 0 8.40000+ 6 1.13900+ 0 8.44750+ 6 1.10670+ 01274 300100283
+ 8.45000+ 6 1.10500+ 0 8.48000+ 6 1.09257+ 0 8.49950+ 6 1.08449+ 01274 300100284
+ 8.52000+ 6 1.07600+ 0 8.60000+ 6 1.06889+ 0 8.66410+ 6 1.06319+ 01274 300100285
+ 8.70000+ 6 1.06000+ 0 8.70750+ 6 1.06031+ 0 8.76810+ 6 1.06284+ 01274 300100286
+ 8.80000+ 6 1.06417+ 0 8.85000+ 6 1.06625+ 0 8.88520+ 6 1.06772+ 01274 300100287
+ 8.91980+ 6 1.06916+ 0 8.94000+ 6 1.07000+ 0 8.98000+ 6 1.09000+ 01274 300100288
+ 9.00000+ 6 1.11400+ 0 9.00500+ 6 1.12000+ 0 9.02000+ 6 1.17000+ 01274 300100289
+ 9.03000+ 6 1.19000+ 0 9.06720+ 6 1.20116+ 0 9.08000+ 6 1.20500+ 01274 300100290
+ 9.16250+ 6 1.29163+ 0 9.18000+ 6 1.31000+ 0 9.21890+ 6 1.30722+ 01274 300100291
+ 9.25000+ 6 1.30500+ 0 9.25350+ 6 1.30850+ 0 9.30000+ 6 1.35500+ 01274 300100292
+ 9.30990+ 6 1.34560+ 0 9.36000+ 6 1.29800+ 0 9.40000+ 6 1.27444+ 01274 300100293
+ 9.45000+ 6 1.24500+ 0 9.56000+ 6 1.21000+ 0 9.59000+ 6 1.22500+ 01274 300100294
+ 9.60000+ 6 1.21625+ 0 9.63000+ 6 1.19000+ 0 9.64000+ 6 1.19000+ 01274 300100295
+ 9.67820+ 6 1.24253+ 0 9.68000+ 6 1.24500+ 0 9.70000+ 6 1.25500+ 01274 300100296
+ 9.72590+ 6 1.23234+ 0 9.74000+ 6 1.22000+ 0 9.80000+ 6 1.20962+ 01274 300100297
+ 9.82120+ 6 1.20595+ 0 9.82990+ 6 1.20444+ 0 9.90000+ 6 1.19231+ 01274 300100298
+ 9.91660+ 6 1.18943+ 0 9.92090+ 6 1.18869+ 0 1.00000+ 7 1.17500+ 01274 300100299
+ 1.00030+ 7 1.17410+ 0 1.00500+ 7 1.16000+ 0 1.01700+ 7 1.09000+ 01274 300100300
+ 1.02500+ 7 1.07500+ 0 1.03000+ 7 1.08500+ 0 1.03720+ 7 1.11380+ 01274 300100301
+ 1.04000+ 7 1.12500+ 0 1.04780+ 7 1.15620+ 0 1.05060+ 7 1.16740+ 01274 300100302
+ 1.05360+ 7 1.17940+ 0 1.05500+ 7 1.18500+ 0 1.06200+ 7 1.25500+ 01274 300100303
+ 1.07000+ 7 1.29750+ 0 1.08000+ 7 1.35063+ 0 1.09000+ 7 1.40375+ 01274 300100304
+ 1.09400+ 7 1.42500+ 0 1.10000+ 7 1.39000+ 0 1.10040+ 7 1.39220+ 01274 300100305
+ 1.10960+ 7 1.44280+ 0 1.11000+ 7 1.44500+ 0 1.11700+ 7 1.38000+ 01274 300100306
+ 1.13000+ 7 1.38000+ 0 1.14000+ 7 1.38000+ 0 1.17000+ 7 1.32000+ 01274 300100307
+ 1.18000+ 7 1.33000+ 0 1.18280+ 7 1.34260+ 0 1.19000+ 7 1.37500+ 01274 300100308
+ 1.19170+ 7 1.38605+ 0 1.20000+ 7 1.44000+ 0 1.20500+ 7 1.48000+ 01274 300100309
+ 1.20880+ 7 1.47620+ 0 1.21000+ 7 1.47500+ 0 1.22500+ 7 1.36000+ 01274 300100310
+ 1.23000+ 7 1.33500+ 0 1.24000+ 7 1.31500+ 0 1.25000+ 7 1.31000+ 01274 300100311
+ 1.27000+ 7 1.34000+ 0 1.28000+ 7 1.35724+ 0 1.29000+ 7 1.37448+ 01274 300100312
+ 1.29900+ 7 1.39000+ 0 1.31000+ 7 1.35616+ 0 1.31200+ 7 1.35000+ 01274 300100313
+ 1.33000+ 7 1.33500+ 0 1.35000+ 7 1.36000+ 0 1.35400+ 7 1.36500+ 01274 300100314
+ 1.35870+ 7 1.34645+ 0 1.37000+ 7 1.30185+ 0 1.37300+ 7 1.29000+ 01274 300100315
+ 1.39000+ 7 1.26950+ 0 1.40000+ 7 1.26960+ 0 1.44000+ 7 1.26998+ 01274 300100316
+ 1.44250+ 7 1.27000+ 0 1.46000+ 7 1.32000+ 0 1.46530+ 7 1.32901+ 01274 300100317
+ 1.47000+ 7 1.33700+ 0 1.48000+ 7 1.35400+ 0 1.49000+ 7 1.36200+ 01274 300100318
+ 1.50000+ 7 1.37000+ 0 2.00000+ 7 1.37000+ 0                      1274 300100319
+                                                                  1274 300000320
+ 6.01200+ 3 1.18969+ 1          0          0          0          01274 300200321
+ 0.00000+ 0 0.00000+ 0          0          0          2        3881274 300200322
+          4          5        388          2                      1274 300200323
+ 1.00000- 5 4.72900+ 0 1.00000- 3 4.72890+ 0 2.53000- 2 4.72900+ 01274 300200324
+ 1.00000- 1 4.72900+ 0 1.00000+ 1 4.72900+ 0 1.00000+ 3 4.72400+ 01274 300200325
+ 4.00000+ 3 4.71380+ 0 6.00000+ 3 4.70700+ 0 8.00000+ 3 4.70100+ 01274 300200326
+ 1.25000+ 4 4.68500+ 0 1.50000+ 4 4.67700+ 0 1.75000+ 4 4.66800+ 01274 300200327
+ 3.00000+ 4 4.62700+ 0 3.50000+ 4 4.60900+ 0 4.00000+ 4 4.59300+ 01274 300200328
+ 5.00000+ 4 4.55800+ 0 6.00000+ 4 4.52600+ 0 7.00000+ 4 4.49300+ 01274 300200329
+ 8.00000+ 4 4.45900+ 0 1.20000+ 5 4.33100+ 0 1.30000+ 5 4.30100+ 01274 300200330
+ 1.40000+ 5 4.27000+ 0 2.00000+ 5 4.09600+ 0 2.50000+ 5 3.95900+ 01274 300200331
+ 3.00000+ 5 3.82900+ 0 3.50000+ 5 3.70500+ 0 4.00000+ 5 3.58900+ 01274 300200332
+ 4.50000+ 5 3.47800+ 0 5.00000+ 5 3.37200+ 0 5.50000+ 5 3.27200+ 01274 300200333
+ 6.00000+ 5 3.17800+ 0 6.50000+ 5 3.10100+ 0 7.00000+ 5 3.00000+ 01274 300200334
+ 7.50000+ 5 2.92100+ 0 8.00000+ 5 2.83300+ 0 8.50000+ 5 2.76800+ 01274 300200335
+ 9.00000+ 5 2.69100+ 0 9.50000+ 5 2.61600+ 0 1.00000+ 6 2.56200+ 01274 300200336
+ 1.05000+ 6 2.49700+ 0 1.10000+ 6 2.43000+ 0 1.20000+ 6 2.31200+ 01274 300200337
+ 1.25000+ 6 2.26200+ 0 1.30000+ 6 2.21600+ 0 1.35000+ 6 2.16300+ 01274 300200338
+ 1.40000+ 6 2.11900+ 0 1.45000+ 6 2.07900+ 0 1.50000+ 6 2.03700+ 01274 300200339
+ 1.55000+ 6 1.99100+ 0 1.60000+ 6 1.94600+ 0 1.65000+ 6 1.91800+ 01274 300200340
+ 1.70000+ 6 1.86700+ 0 1.75000+ 6 1.84500+ 0 1.80000+ 6 1.80600+ 01274 300200341
+ 1.85000+ 6 1.77000+ 0 1.90000+ 6 1.73900+ 0 1.95000+ 6 1.71100+ 01274 300200342
+ 2.00000+ 6 1.67700+ 0 2.04900+ 6 1.69610+ 0 2.05800+ 6 1.75570+ 01274 300200343
+ 2.06420+ 6 1.96150+ 0 2.06800+ 6 2.13490+ 0 2.07010+ 6 2.40300+ 01274 300200344
+ 2.07150+ 6 2.71720+ 0 2.07400+ 6 3.20760+ 0 2.07500+ 6 3.92160+ 01274 300200345
+ 2.07600+ 6 4.86990+ 0 2.07700+ 6 5.76260+ 0 2.07780+ 6 6.02330+ 01274 300200346
+ 2.07800+ 6 5.99520+ 0 2.07900+ 6 5.41960+ 0 2.08000+ 6 4.56020+ 01274 300200347
+ 2.08100+ 6 3.81810+ 0 2.08200+ 6 3.27610+ 0 2.08370+ 6 2.90680+ 01274 300200348
+ 2.08480+ 6 2.65220+ 0 2.08610+ 6 2.50870+ 0 2.08750+ 6 2.37320+ 01274 300200349
+ 2.08990+ 6 2.19720+ 0 2.09320+ 6 2.02650+ 0 2.09890+ 6 1.90740+ 01274 300200350
+ 2.10620+ 6 1.80720+ 0 2.11670+ 6 1.73940+ 0 2.16000+ 6 1.67000+ 01274 300200351
+ 2.35000+ 6 1.57800+ 0 2.55000+ 6 1.60000+ 0 2.63000+ 6 1.66200+ 01274 300200352
+ 2.70000+ 6 1.74700+ 0 2.77020+ 6 1.87110+ 0 2.79490+ 6 1.93290+ 01274 300200353
+ 2.80210+ 6 1.98810+ 0 2.80690+ 6 2.04660+ 0 2.80950+ 6 2.15000+ 01274 300200354
+ 2.81500+ 6 2.72000+ 0 2.81600+ 6 2.75500+ 0 2.81700+ 6 2.72000+ 01274 300200355
+ 2.82100+ 6 2.15000+ 0 2.82510+ 6 2.06290+ 0 2.83130+ 6 2.04010+ 01274 300200356
+ 2.88000+ 6 2.42300+ 0 2.93800+ 6 3.10500+ 0 2.94600+ 6 3.13500+ 01274 300200357
+ 2.95000+ 6 3.10500+ 0 2.95400+ 6 3.03000+ 0 2.95800+ 6 2.92000+ 01274 300200358
+ 2.97000+ 6 2.25000+ 0 2.98000+ 6 1.77200+ 0 2.98700+ 6 1.48800+ 01274 300200359
+ 2.99000+ 6 1.40300+ 0 2.99400+ 6 1.33000+ 0 3.00000+ 6 1.25500+ 01274 300200360
+ 3.00700+ 6 1.20000+ 0 3.01400+ 6 1.17500+ 0 3.02500+ 6 1.19000+ 01274 300200361
+ 3.15000+ 6 1.78200+ 0 3.30000+ 6 2.30000+ 0 3.35000+ 6 2.44700+ 01274 300200362
+ 3.42000+ 6 2.57000+ 0 3.46000+ 6 2.61200+ 0 3.60000+ 6 2.62500+ 01274 300200363
+ 3.68000+ 6 2.51300+ 0 3.90000+ 6 2.08500+ 0 4.00000+ 6 1.90500+ 01274 300200364
+ 4.03000+ 6 1.87500+ 0 4.06000+ 6 1.80000+ 0 4.10000+ 6 1.78700+ 01274 300200365
+ 4.13000+ 6 1.80600+ 0 4.17000+ 6 1.90200+ 0 4.26000+ 6 2.23800+ 01274 300200366
+ 4.27000+ 6 2.24000+ 0 4.40000+ 6 1.90000+ 0 4.50000+ 6 1.67000+ 01274 300200367
+ 4.60000+ 6 1.52000+ 0 4.70000+ 6 1.40500+ 0 4.80000+ 6 1.31370+ 01274 300200368
+ 4.85000+ 6 1.26000+ 0 4.89990+ 6 1.22290+ 0 4.90000+ 6 1.22300+ 01274 300200369
+ 4.91940+ 6 1.23870+ 0 4.92000+ 6 1.24280+ 0 4.93000+ 6 1.31070+ 01274 300200370
+ 4.93450+ 6 1.34160+ 0 4.93550+ 6 1.71940+ 0 4.93670+ 6 1.96710+ 01274 300200371
+ 4.93850+ 6 1.94090+ 0 4.93950+ 6 1.73730+ 0 4.94000+ 6 1.69400+ 01274 300200372
+ 4.94320+ 6 1.41730+ 0 4.94810+ 6 1.27760+ 0 4.95000+ 6 1.26390+ 01274 300200373
+ 4.95460+ 6 1.23020+ 0 4.95840+ 6 1.20720+ 0 4.96980+ 6 1.18180+ 01274 300200374
+ 4.98000+ 6 1.17200+ 0 5.00000+ 6 1.15830+ 0 5.00070+ 6 1.15790+ 01274 300200375
+ 5.03000+ 6 1.14480+ 0 5.10000+ 6 1.12010+ 0 5.12000+ 6 1.11250+ 01274 300200376
+ 5.15000+ 6 1.09410+ 0 5.18000+ 6 1.07460+ 0 5.20000+ 6 1.05800+ 01274 300200377
+ 5.23000+ 6 1.03500+ 0 5.28000+ 6 9.94000- 1 5.30000+ 6 9.74000- 11274 300200378
+ 5.33000+ 6 9.63000- 1 5.33500+ 6 9.74500- 1 5.34000+ 6 1.03600+ 01274 300200379
+ 5.36000+ 6 1.50380+ 0 5.36200+ 6 1.55160+ 0 5.37000+ 6 1.69220+ 01274 300200380
+ 5.37100+ 6 1.71010+ 0 5.37800+ 6 1.55080+ 0 5.38000+ 6 1.51770+ 01274 300200381
+ 5.39000+ 6 1.35420+ 0 5.40000+ 6 1.24240+ 0 5.41000+ 6 1.15060+ 01274 300200382
+ 5.42000+ 6 1.10880+ 0 5.43000+ 6 1.07950+ 0 5.44000+ 6 1.04830+ 01274 300200383
+ 5.46000+ 6 1.01590+ 0 5.50000+ 6 9.91000- 1 5.55000+ 6 9.81000- 11274 300200384
+ 5.60000+ 6 9.67000- 1 5.65000+ 6 9.48000- 1 5.70000+ 6 9.26000- 11274 300200385
+ 5.80000+ 6 9.02000- 1 5.90000+ 6 8.95500- 1 6.00000+ 6 8.87000- 11274 300200386
+ 6.05000+ 6 8.86000- 1 6.12500+ 6 8.96000- 1 6.16000+ 6 9.12270- 11274 300200387
+ 6.18000+ 6 9.45130- 1 6.20000+ 6 1.01300+ 0 6.21000+ 6 1.04300+ 01274 300200388
+ 6.22000+ 6 1.08300+ 0 6.23000+ 6 1.15300+ 0 6.24000+ 6 1.24300+ 01274 300200389
+ 6.25000+ 6 1.42300+ 0 6.28500+ 6 2.14150+ 0 6.29500+ 6 2.23250+ 01274 300200390
+ 6.30300+ 6 2.12520+ 0 6.31000+ 6 1.83400+ 0 6.32000+ 6 1.56000+ 01274 300200391
+ 6.33000+ 6 1.37900+ 0 6.34000+ 6 1.24800+ 0 6.35000+ 6 1.15830+ 01274 300200392
+ 6.36000+ 6 1.07570+ 0 6.37000+ 6 1.00130+ 0 6.39000+ 6 9.12670- 11274 300200393
+ 6.40000+ 6 8.62500- 1 6.41000+ 6 8.27000- 1 6.42000+ 6 8.11000- 11274 300200394
+ 6.43000+ 6 8.20750- 1 6.44000+ 6 8.27000- 1 6.45000+ 6 8.38000- 11274 300200395
+ 6.47000+ 6 8.52560- 1 6.49000+ 6 8.38110- 1 6.51000+ 6 7.73670- 11274 300200396
+ 6.54000+ 6 6.34500- 1 6.56000+ 6 5.54160- 1 6.57000+ 6 5.20660- 11274 300200397
+ 6.58000+ 6 5.01330- 1 6.59000+ 6 4.97000- 1 6.60000+ 6 5.22670- 11274 300200398
+ 6.62000+ 6 6.06500- 1 6.64000+ 6 6.82000- 1 6.65750+ 6 7.19000- 11274 300200399
+ 6.66500+ 6 7.12000- 1 6.67000+ 6 6.99000- 1 6.68000+ 6 6.70630- 11274 300200400
+ 6.70000+ 6 6.43870- 1 6.75000+ 6 6.37830- 1 6.81000+ 6 6.26830- 11274 300200401
+ 6.92000+ 6 5.95670- 1 7.00000+ 6 5.69000- 1 7.10000+ 6 5.68000- 11274 300200402
+ 7.14000+ 6 5.82000- 1 7.18000+ 6 6.18000- 1 7.20000+ 6 6.44500- 11274 300200403
+ 7.22000+ 6 6.83000- 1 7.22500+ 6 6.91420- 1 7.25000+ 6 7.73500- 11274 300200404
+ 7.27000+ 6 8.64680- 1 7.28000+ 6 9.36700- 1 7.34000+ 6 1.36680+ 01274 300200405
+ 7.35000+ 6 1.41670+ 0 7.36000+ 6 1.43170+ 0 7.37000+ 6 1.44870+ 01274 300200406
+ 7.40000+ 6 1.43540+ 0 7.42000+ 6 1.42480+ 0 7.47000+ 6 1.40830+ 01274 300200407
+ 7.52870+ 6 1.40700+ 0 7.54170+ 6 1.40540+ 0 7.59370+ 6 1.39210+ 01274 300200408
+ 7.62000+ 6 1.37760+ 0 7.65000+ 6 1.39680+ 0 7.66740+ 6 1.44280+ 01274 300200409
+ 7.68000+ 6 1.46930+ 0 7.69770+ 6 1.53320+ 0 7.70000+ 6 1.54140+ 01274 300200410
+ 7.72500+ 6 1.71850+ 0 7.74500+ 6 1.90030+ 0 7.75000+ 6 1.91710+ 01274 300200411
+ 7.77000+ 6 1.79070+ 0 7.78870+ 6 1.69260+ 0 7.81000+ 6 1.59100+ 01274 300200412
+ 7.81910+ 6 1.56880+ 0 7.86000+ 6 1.49180+ 0 7.88840+ 6 1.46420+ 01274 300200413
+ 7.89710+ 6 1.45170+ 0 7.93000+ 6 1.41160+ 0 7.93610+ 6 1.40850+ 01274 300200414
+ 8.00000+ 6 1.34200+ 0 8.00540+ 6 1.33900+ 0 8.00980+ 6 1.33750+ 01274 300200415
+ 8.07910+ 6 1.28430+ 0 8.08000+ 6 1.28420+ 0 8.10080+ 6 1.25830+ 01274 300200416
+ 8.10500+ 6 1.25390+ 0 8.10940+ 6 1.24190+ 0 8.12000+ 6 1.22300+ 01274 300200417
+ 8.13110+ 6 1.18710+ 0 8.16000+ 6 1.10280+ 0 8.20000+ 6 9.86590- 11274 300200418
+ 8.21000+ 6 9.57780- 1 8.21780+ 6 9.42670- 1 8.24000+ 6 8.96350- 11274 300200419
+ 8.28000+ 6 8.51260- 1 8.29580+ 6 8.42510- 1 8.33000+ 6 8.18840- 11274 300200420
+ 8.39110+ 6 8.10040- 1 8.40000+ 6 8.04730- 1 8.44750+ 6 7.94470- 11274 300200421
+ 8.45000+ 6 7.93230- 1 8.48000+ 6 7.86290- 1 8.49950+ 6 7.82270- 11274 300200422
+ 8.52000+ 6 7.74330- 1 8.60000+ 6 7.69350- 1 8.66410+ 6 7.64720- 11274 300200423
+ 8.70000+ 6 7.57340- 1 8.70750+ 6 7.56780- 1 8.76810+ 6 7.48850- 11274 300200424
+ 8.80000+ 6 7.34960- 1 8.85000+ 6 7.11670- 1 8.88520+ 6 6.96230- 11274 300200425
+ 8.91980+ 6 6.76280- 1 8.94000+ 6 6.62470- 1 8.98000+ 6 6.53460- 11274 300200426
+ 9.00000+ 6 6.62950- 1 9.00500+ 6 6.65270- 1 9.02000+ 6 7.04210- 11274 300200427
+ 9.03000+ 6 7.16840- 1 9.06720+ 6 7.00590- 1 9.08000+ 6 6.95840- 11274 300200428
+ 9.16250+ 6 7.27120- 1 9.18000+ 6 7.27690- 1 9.21890+ 6 6.85350- 11274 300200429
+ 9.25000+ 6 6.73510- 1 9.25350+ 6 6.75930- 1 9.30000+ 6 7.28490- 11274 300200430
+ 9.30990+ 6 7.20380- 1 9.36000+ 6 6.81170- 1 9.40000+ 6 6.64300- 11274 300200431
+ 9.45000+ 6 6.43480- 1 9.56000+ 6 6.27440- 1 9.59000+ 6 6.47610- 11274 300200432
+ 9.60000+ 6 6.40580- 1 9.63000+ 6 6.19200- 1 9.64000+ 6 6.20820- 11274 300200433
+ 9.67820+ 6 6.79550- 1 9.68000+ 6 6.82370- 1 9.70000+ 6 6.96260- 11274 300200434
+ 9.72590+ 6 6.78640- 1 9.74000+ 6 6.66110- 1 9.80000+ 6 6.54910- 11274 300200435
+ 9.82120+ 6 6.51160- 1 9.82990+ 6 6.47970- 1 9.90000+ 6 6.23940- 11274 300200436
+ 9.92090+ 6 6.16360- 1 1.00000+ 7 6.07160- 1 1.00500+ 7 5.94990- 11274 300200437
+ 1.01700+ 7 5.31800- 1 1.02500+ 7 5.21330- 1 1.03000+ 7 5.34170- 11274 300200438
+ 1.03720+ 7 5.67050- 1 1.04000+ 7 5.77980- 1 1.04780+ 7 6.07650- 11274 300200439
+ 1.05500+ 7 6.37610- 1 1.06200+ 7 7.08730- 1 1.07000+ 7 7.52520- 11274 300200440
+ 1.09000+ 7 8.62990- 1 1.09400+ 7 8.84810- 1 1.10000+ 7 8.50650- 11274 300200441
+ 1.10040+ 7 8.52910- 1 1.10960+ 7 8.99750- 1 1.11000+ 7 9.02030- 11274 300200442
+ 1.11700+ 7 8.38490- 1 1.14000+ 7 8.43270- 1 1.17000+ 7 7.89240- 11274 300200443
+ 1.18000+ 7 8.01230- 1 1.18280+ 7 8.14390- 1 1.19000+ 7 8.35030- 11274 300200444
+ 1.19170+ 7 8.43300- 1 1.20000+ 7 8.83840- 1 1.20500+ 7 9.15760- 11274 300200445
+ 1.20880+ 7 9.05820- 1 1.21000+ 7 9.04830- 1 1.22500+ 7 7.91160- 11274 300200446
+ 1.23000+ 7 7.66600- 1 1.24000+ 7 7.47480- 1 1.25000+ 7 7.43370- 11274 300200447
+ 1.27000+ 7 7.75140- 1 1.29000+ 7 8.11390- 1 1.29900+ 7 8.29980- 11274 300200448
+ 1.31200+ 7 7.94420- 1 1.33000+ 7 7.85560- 1 1.35400+ 7 8.23750- 11274 300200449
+ 1.35870+ 7 8.06800- 1 1.37300+ 7 7.53250- 1 1.39000+ 7 7.36190- 11274 300200450
+ 1.44250+ 7 7.45220- 1 1.46000+ 7 7.98060- 1 1.46530+ 7 8.06340- 11274 300200451
+ 1.48000+ 7 8.28420- 1 1.49000+ 7 8.34440- 1 1.50000+ 7 8.41100- 11274 300200452
+ 2.00000+ 7 8.41100- 1                                            1274 300200453
+                                                                  1274 300000454
+ 6.01200+ 3 1.18969+ 1          0         99          0          01274 300300455
+ 0.00000+ 0 4.94700+ 6          0          0          2        1301274 300300456
+          6          5        130          2                      1274 300300457
+ 1.00000- 5 1.71020- 1 1.00000- 3 1.71020- 2 2.53000- 2 3.36000- 31274 300300458
+ 1.00000- 1 1.71020- 3 1.00000+ 1 1.71020- 4 1.00000+ 3 1.71020- 51274 300300459
+ 4.00000+ 3 0.00000+ 0 4.80000+ 6 0.00000+ 0 4.85000+ 6 8.00000- 31274 300300460
+ 4.90000+ 6 2.20000- 2 4.92000+ 6 2.80000- 2 4.93000+ 6 3.20000- 21274 300300461
+ 4.94000+ 6 3.50000- 2 4.95000+ 6 3.70000- 2 4.98000+ 6 4.70000- 21274 300300462
+ 5.00000+ 6 4.80000- 2 5.03000+ 6 4.70000- 2 5.10000+ 6 3.80000- 21274 300300463
+ 5.12000+ 6 3.60000- 2 5.15000+ 6 4.00000- 2 5.18000+ 6 4.50000- 21274 300300464
+ 5.20000+ 6 5.20000- 2 5.23000+ 6 6.60000- 2 5.28000+ 6 9.20000- 21274 300300465
+ 5.36000+ 6 1.48000- 1 5.37000+ 6 1.50000- 1 5.38000+ 6 1.49000- 11274 300300466
+ 5.43000+ 6 1.33000- 1 5.50000+ 6 1.24000- 1 5.55000+ 6 1.24000- 11274 300300467
+ 5.60000+ 6 1.28000- 1 5.65000+ 6 1.37000- 1 5.90000+ 6 1.97000- 11274 300300468
+ 6.05000+ 6 2.36000- 1 6.20000+ 6 2.52000- 1 6.25000+ 6 2.77000- 11274 300300469
+ 6.32000+ 6 3.40000- 1 6.34000+ 6 3.52000- 1 6.35000+ 6 3.50000- 11274 300300470
+ 6.36000+ 6 3.41000- 1 6.39000+ 6 2.89000- 1 6.41000+ 6 2.66000- 11274 300300471
+ 6.43000+ 6 2.56000- 1 6.45000+ 6 2.53000- 1 6.54000+ 6 2.73000- 11274 300300472
+ 6.56000+ 6 2.65000- 1 6.62000+ 6 2.01000- 1 6.64000+ 6 1.88000- 11274 300300473
+ 6.67000+ 6 1.76000- 1 6.75000+ 6 1.63000- 1 6.81000+ 6 1.57000- 11274 300300474
+ 6.92000+ 6 1.57000- 1 7.14000+ 6 1.68000- 1 7.18000+ 6 1.76000- 11274 300300475
+ 7.22000+ 6 1.95000- 1 7.25000+ 6 2.16500- 1 7.28000+ 6 2.44730- 11274 300300476
+ 7.34000+ 6 3.03180- 1 7.36000+ 6 3.23330- 1 7.40000+ 6 3.55330- 11274 300300477
+ 7.42000+ 6 3.73030- 1 7.47000+ 6 3.80100- 1 7.52870+ 6 3.70270- 11274 300300478
+ 7.54170+ 6 3.69390- 1 7.59370+ 6 3.72900- 1 7.66740+ 6 3.99410- 11274 300300479
+ 7.69770+ 6 4.26490- 1 7.78870+ 6 5.09730- 1 7.81910+ 6 5.22980- 11274 300300480
+ 7.88840+ 6 5.14930- 1 7.89710+ 6 5.17890- 1 7.93610+ 6 5.22970- 11274 300300481
+ 8.00540+ 6 5.69040- 1 8.00980+ 6 5.70910- 1 8.07910+ 6 6.30570- 11274 300300482
+ 8.10080+ 6 6.35870- 1 8.10940+ 6 6.36320- 1 8.13110+ 6 6.17240- 11274 300300483
+ 8.16000+ 6 5.82710- 1 8.20000+ 6 5.34520- 1 8.21780+ 6 5.12630- 11274 300300484
+ 8.29580+ 6 4.28370- 1 8.39110+ 6 3.38620- 1 8.40000+ 6 3.34270- 11274 300300485
+ 8.44750+ 6 3.12230- 1 8.48000+ 6 3.06280- 1 8.49950+ 6 3.02220- 11274 300300486
+ 8.60000+ 6 2.99540- 1 8.66410+ 6 2.98470- 1 8.70750+ 6 3.03530- 11274 300300487
+ 8.76810+ 6 3.13990- 1 8.80000+ 6 3.29210- 1 8.85000+ 6 3.54580- 11274 300300488
+ 8.88520+ 6 3.71490- 1 8.91980+ 6 3.92880- 1 9.00000+ 6 4.51050- 11274 300300489
+ 9.06720+ 6 5.00570- 1 9.16250+ 6 5.64510- 1 9.21890+ 6 6.21870- 11274 300300490
+ 9.25350+ 6 6.32570- 1 9.30990+ 6 6.25220- 1 9.40000+ 6 6.10140- 11274 300300491
+ 9.60000+ 6 5.75670- 1 9.67820+ 6 5.62980- 1 9.72590+ 6 5.53700- 11274 300300492
+ 9.80000+ 6 5.54710- 1 9.82120+ 6 5.54790- 1 9.82990+ 6 5.56470- 11274 300300493
+ 9.90000+ 6 5.68370- 1 9.92090+ 6 5.72330- 1 1.03720+ 7 5.46750- 11274 300300494
+ 1.04000+ 7 5.47020- 1 1.04780+ 7 5.48550- 1 1.07000+ 7 5.44980- 11274 300300495
+ 1.09000+ 7 5.40760- 1 1.10040+ 7 5.39290- 1 1.10960+ 7 5.43050- 11274 300300496
+ 1.14000+ 7 5.36730- 1 1.18280+ 7 5.28210- 1 1.19170+ 7 5.42750- 11274 300300497
+ 1.20880+ 7 5.70380- 1 1.21000+ 7 5.70170- 1 1.29000+ 7 5.63090- 11274 300300498
+ 1.35870+ 7 5.39650- 1 1.39000+ 7 5.33310- 1 1.46000+ 7 5.21940- 11274 300300499
+ 1.46530+ 7 5.22670- 1 1.49000+ 7 5.27560- 1 1.50000+ 7 5.28900- 11274 300300500
+ 2.00000+ 7 5.28900- 1                                            1274 300300501
+                                                                  1274 300000502
+ 6.01200+ 3 1.18969+ 1          0         99          0          01274 300400503
+ 0.00000+ 0-4.43300+ 6          0          0          1         971274 300400504
+         97          2                                            1274 300400505
+ 4.80000+ 6 0.00000+ 0 4.85000+ 6 8.00000- 3 4.90000+ 6 2.20000- 21274 300400506
+ 4.92000+ 6 2.80000- 2 4.93000+ 6 3.20000- 2 4.94000+ 6 3.50000- 21274 300400507
+ 4.95000+ 6 3.70000- 2 4.98000+ 6 4.70000- 2 5.00000+ 6 4.80000- 21274 300400508
+ 5.03000+ 6 4.70000- 2 5.10000+ 6 3.80000- 2 5.12000+ 6 3.60000- 21274 300400509
+ 5.15000+ 6 4.00000- 2 5.18000+ 6 4.50000- 2 5.20000+ 6 5.20000- 21274 300400510
+ 5.23000+ 6 6.60000- 2 5.28000+ 6 9.20000- 2 5.36000+ 6 1.48000- 11274 300400511
+ 5.37000+ 6 1.50000- 1 5.38000+ 6 1.49000- 1 5.43000+ 6 1.33000- 11274 300400512
+ 5.50000+ 6 1.24000- 1 5.55000+ 6 1.24000- 1 5.60000+ 6 1.28000- 11274 300400513
+ 5.65000+ 6 1.37000- 1 5.90000+ 6 1.97000- 1 6.05000+ 6 2.36000- 11274 300400514
+ 6.20000+ 6 2.52000- 1 6.25000+ 6 2.77000- 1 6.32000+ 6 3.40000- 11274 300400515
+ 6.34000+ 6 3.51000- 1 6.35000+ 6 3.49000- 1 6.36000+ 6 3.40000- 11274 300400516
+ 6.39000+ 6 2.88000- 1 6.41000+ 6 2.65000- 1 6.43000+ 6 2.55000- 11274 300400517
+ 6.45000+ 6 2.52000- 1 6.54000+ 6 2.72000- 1 6.56000+ 6 2.64000- 11274 300400518
+ 6.62000+ 6 2.00000- 1 6.64000+ 6 1.87000- 1 6.67000+ 6 1.75000- 11274 300400519
+ 6.75000+ 6 1.62000- 1 6.81000+ 6 1.56000- 1 6.92000+ 6 1.56000- 11274 300400520
+ 7.14000+ 6 1.67000- 1 7.18000+ 6 1.75000- 1 7.22000+ 6 1.92000- 11274 300400521
+ 7.25000+ 6 2.12000- 1 7.36000+ 6 3.10000- 1 7.42000+ 6 3.51000- 11274 300400522
+ 7.47000+ 6 3.48000- 1 7.54170+ 6 3.21560- 1 7.59370+ 6 3.09430- 11274 300400523
+ 7.66740+ 6 3.13760- 1 7.78870+ 6 3.85700- 1 7.81910+ 6 3.89170- 11274 300400524
+ 7.88840+ 6 3.58830- 1 7.93610+ 6 3.59700- 1 8.00980+ 6 4.00430- 11274 300400525
+ 8.07910+ 6 4.68910- 1 8.10940+ 6 4.80170- 1 8.13110+ 6 4.68040- 11274 300400526
+ 8.16000+ 6 4.42750- 1 8.20000+ 6 4.07360- 1 8.21780+ 6 3.91170- 11274 300400527
+ 8.39110+ 6 2.59420- 1 8.40000+ 6 2.56690- 1 8.44750+ 6 2.43280- 11274 300400528
+ 8.48000+ 6 2.43220- 1 8.60000+ 6 2.40020- 1 8.70750+ 6 2.38220- 11274 300400529
+ 8.80000+ 6 2.41860- 1 8.85000+ 6 2.45320- 1 8.88520+ 6 2.46820- 11274 300400530
+ 9.00000+ 6 2.67490- 1 9.06720+ 6 2.80370- 1 9.40000+ 6 3.22210- 11274 300400531
+ 9.60000+ 6 3.46350- 1 9.67820+ 6 3.56580- 1 9.80000+ 6 3.68580- 11274 300400532
+ 9.82990+ 6 3.71230- 1 9.90000+ 6 3.75820- 1 1.04000+ 7 4.18550- 11274 300400533
+ 1.04780+ 7 4.26000- 1 1.07000+ 7 4.39280- 1 1.09000+ 7 4.50240- 11274 300400534
+ 1.10960+ 7 4.62350- 1 1.14000+ 7 4.62430- 1 1.19170+ 7 4.63020- 11274 300400535
+ 1.21000+ 7 4.62890- 1 1.29000+ 7 4.69070- 1 1.39000+ 7 4.51530- 11274 300400536
+ 1.46000+ 7 4.42060- 1 1.49000+ 7 4.47000- 1 1.50000+ 7 4.48000- 11274 300400537
+ 2.00000+ 7 4.48000- 1                                            1274 300400538
+                                                                  1274 300000539
+ 6.01200+ 3 1.18969+ 1          0          1          0          01274 305100540
+ 0.00000+ 0-4.43300+ 6          0          0          1         771274 305100541
+         77          2                                            1274 305100542
+ 4.80000+ 6 0.00000+ 0 4.85000+ 6 8.00000- 3 4.90000+ 6 2.20000- 21274 305100543
+ 4.92000+ 6 2.80000- 2 4.93000+ 6 3.20000- 2 4.94000+ 6 3.50000- 21274 305100544
+ 4.95000+ 6 3.70000- 2 4.98000+ 6 4.70000- 2 5.00000+ 6 4.80000- 21274 305100545
+ 5.03000+ 6 4.70000- 2 5.10000+ 6 3.80000- 2 5.12000+ 6 3.60000- 21274 305100546
+ 5.15000+ 6 4.00000- 2 5.18000+ 6 4.50000- 2 5.20000+ 6 5.20000- 21274 305100547
+ 5.23000+ 6 6.60000- 2 5.28000+ 6 9.20000- 2 5.36000+ 6 1.48000- 11274 305100548
+ 5.37000+ 6 1.50000- 1 5.38000+ 6 1.49000- 1 5.43000+ 6 1.33000- 11274 305100549
+ 5.50000+ 6 1.24000- 1 5.55000+ 6 1.24000- 1 5.60000+ 6 1.28000- 11274 305100550
+ 5.65000+ 6 1.37000- 1 5.90000+ 6 1.97000- 1 6.05000+ 6 2.36000- 11274 305100551
+ 6.20000+ 6 2.52000- 1 6.25000+ 6 2.77000- 1 6.32000+ 6 3.40000- 11274 305100552
+ 6.34000+ 6 3.51000- 1 6.35000+ 6 3.49000- 1 6.36000+ 6 3.40000- 11274 305100553
+ 6.39000+ 6 2.88000- 1 6.41000+ 6 2.65000- 1 6.43000+ 6 2.55000- 11274 305100554
+ 6.45000+ 6 2.52000- 1 6.54000+ 6 2.72000- 1 6.56000+ 6 2.64000- 11274 305100555
+ 6.62000+ 6 2.00000- 1 6.64000+ 6 1.87000- 1 6.67000+ 6 1.75000- 11274 305100556
+ 6.75000+ 6 1.62000- 1 6.81000+ 6 1.56000- 1 6.92000+ 6 1.56000- 11274 305100557
+ 7.14000+ 6 1.67000- 1 7.18000+ 6 1.75000- 1 7.22000+ 6 1.92000- 11274 305100558
+ 7.25000+ 6 2.12000- 1 7.36000+ 6 3.10000- 1 7.42000+ 6 3.51000- 11274 305100559
+ 7.47000+ 6 3.48000- 1 7.54170+ 6 3.21560- 1 7.59370+ 6 3.09430- 11274 305100560
+ 7.66740+ 6 3.13760- 1 7.78870+ 6 3.85700- 1 7.81910+ 6 3.89170- 11274 305100561
+ 7.88840+ 6 3.58830- 1 7.93610+ 6 3.59700- 1 8.00980+ 6 4.00430- 11274 305100562
+ 8.07910+ 6 4.68910- 1 8.10940+ 6 4.80170- 1 8.13110+ 6 4.68040- 11274 305100563
+ 8.21780+ 6 3.89170- 1 8.39110+ 6 2.57420- 1 8.44750+ 6 2.40090- 11274 305100564
+ 8.70750+ 6 2.33150- 1 8.88520+ 6 2.38350- 1 9.06720+ 6 2.68690- 11274 305100565
+ 9.67820+ 6 3.30230- 1 9.82990+ 6 3.40630- 1 1.04780+ 7 3.70100- 11274 305100566
+ 1.10960+ 7 3.76160- 1 1.19170+ 7 3.33690- 1 1.49000+ 7 1.74000- 11274 305100567
+ 1.50000+ 7 1.58000- 1 2.00000+ 7 1.58000- 1                      1274 305100568
+                                                                  1274 300000569
+ 6.01200+ 3 1.18969+ 1          0         99          0          01274 309100570
+-7.27400+ 6-7.27400+ 6          0         23          1         231274 309100571
+         23          2                                            1274 309100572
+ 8.16000+ 6 1.00000- 3 8.20000+ 6 2.00000- 3 8.40000+ 6 2.00000- 31274 309100573
+ 8.48000+ 6 4.00000- 3 8.60000+ 6 4.00000- 3 8.80000+ 6 6.00000- 31274 309100574
+ 8.85000+ 6 8.00000- 3 9.00000+ 6 1.00000- 2 9.40000+ 6 2.00000- 21274 309100575
+ 9.60000+ 6 2.40000- 2 9.80000+ 6 3.00000- 2 9.90000+ 6 3.20000- 21274 309100576
+ 1.04000+ 7 5.20000- 2 1.07000+ 7 6.70000- 2 1.09000+ 7 7.60000- 21274 309100577
+ 1.14000+ 7 1.02000- 1 1.21000+ 7 1.39000- 1 1.29000+ 7 1.88000- 11274 309100578
+ 1.39000+ 7 2.24000- 1 1.46000+ 7 2.52000- 1 1.49000+ 7 2.73000- 11274 309100579
+ 1.50000+ 7 2.90000- 1 2.00000+ 7 2.90000- 1                      1274 309100580
+                                                                  1274 300000581
+ 6.01200+ 3 1.18969+ 1          0         99          0          01274 310200582
+ 0.00000+ 0 4.94700+ 6          0          0          2          81274 310200583
+          6          5          8          2                      1274 310200584
+ 1.00000- 5 1.71020- 1 1.00000- 3 1.71020- 2 2.53000- 2 3.36000- 31274 310200585
+ 1.00000- 1 1.71020- 3 1.00000+ 1 1.71020- 4 1.00000+ 3 1.71020- 51274 310200586
+ 4.00000+ 3 0.00000+ 0 2.00000+ 7 0.00000+ 0                      1274 310200587
+                                                                  1274 300000588
+ 6.01200+ 3 1.18969+ 1          0         99          0          01274 310700589
+ 0.00000+ 0-5.69500+ 6          0          0          1         311274 310700590
+         31          2                                            1274 310700591
+ 6.32000+ 6 0.00000+ 0 6.34000+ 6 1.00000- 3 7.18000+ 6 1.00000- 31274 310700592
+ 7.28000+ 6 6.00000- 3 7.34000+ 6 1.10000- 2 7.40000+ 6 1.80000- 21274 310700593
+ 7.52870+ 6 4.39150- 2 7.69770+ 6 9.47630- 2 7.89710+ 6 1.58900- 11274 310700594
+ 8.00540+ 6 1.71040- 1 8.10080+ 6 1.58900- 1 8.29580+ 6 9.64970- 21274 310700595
+ 8.49950+ 6 5.95160- 2 8.66410+ 6 5.95160- 2 8.76810+ 6 7.33840- 21274 310700596
+ 8.91980+ 6 1.39830- 1 9.16250+ 6 2.72160- 1 9.21890+ 6 3.22430- 11274 310700597
+ 9.25350+ 6 3.28780- 1 9.30990+ 6 3.14340- 1 9.72590+ 6 1.92420- 11274 310700598
+ 9.82120+ 6 1.84330- 1 9.92090+ 6 1.94730- 1 1.03720+ 7 1.30590- 11274 310700599
+ 1.10040+ 7 8.26290- 2 1.18280+ 7 6.52940- 2 1.20880+ 7 1.07480- 11274 310700600
+ 1.35870+ 7 8.26290- 2 1.46530+ 7 7.97400- 2 1.50000+ 7 8.08960- 21274 310700601
+ 2.00000+ 7 8.08960- 2                                            1274 310700602
+                                                                  1274 300000603
+ 6.01200+ 3 1.18969+ 1          0          0          0          01274 325100604
+ 0.00000+ 0 0.00000+ 0          0          0          1        1981274 325100605
+        198          2                                            1274 325100606
+ 1.00000- 5 5.63363- 2 1.00000+ 4 5.77523- 2 3.50000+ 5 9.59838- 21274 325100607
+ 7.00000+ 5 1.18194- 1 1.05000+ 6 1.27651- 1 1.35000+ 6 1.25257- 11274 325100608
+ 1.60000+ 6 1.16633- 1 1.80000+ 6 1.04073- 1 1.90000+ 6 9.39977- 21274 325100609
+ 1.95000+ 6 9.39977- 2 2.00000+ 6 6.72466- 2 2.02000+ 6 6.13655- 21274 325100610
+ 2.04000+ 6 5.14959- 2 2.06000+ 6 2.73073- 2 2.07000+ 6-5.54892- 31274 325100611
+ 2.08000+ 6 4.62896- 2 2.10000+ 6 1.11368- 1 2.15000+ 6 7.74367- 21274 325100612
+ 2.30000+ 6 5.03230- 2 2.45000+ 6 2.86728- 2 2.60000+ 6 7.65805- 31274 325100613
+ 2.75000+ 6-8.23528- 3 2.81000+ 6-2.63895- 3 2.82000+ 6 2.08635- 11274 325100614
+ 2.83000+ 6-2.17599- 2 2.88000+ 6-8.77202- 3 2.90000+ 6-2.24886- 31274 325100615
+ 2.92000+ 6 9.30486- 3 2.94000+ 6 3.09681- 2 2.96000+ 6 7.40418- 21274 325100616
+ 2.98000+ 6 1.26152- 1 3.00000+ 6 8.28869- 2 3.02000+ 6 1.63432- 21274 325100617
+ 3.04000+ 6-1.21720- 2 3.08000+ 6-2.48460- 2 3.11270+ 6-2.57249- 21274 325100618
+ 3.18000+ 6-2.00865- 2 3.22750+ 6-1.22434- 2 3.30000+ 6 2.69537- 31274 325100619
+ 3.32070+ 6 7.12928- 3 3.35000+ 6 1.33291- 2 3.35320+ 6 1.40194- 21274 325100620
+ 3.40000+ 6 2.39236- 2 3.40090+ 6 2.41132- 2 3.45000+ 6 3.40056- 21274 325100621
+ 3.60020+ 6 6.61023- 2 3.75000+ 6 9.54463- 2 3.90000+ 6 9.08530- 21274 325100622
+ 4.00000+ 6 7.43688- 2 4.05090+ 6 5.59414- 2 4.13000+ 6 9.20666- 21274 325100623
+ 4.33000+ 6 4.83258- 1 4.34000+ 6 4.93339- 1 4.36000+ 6 4.93557- 11274 325100624
+ 4.50000+ 6 4.22017- 1 4.60000+ 6 3.89431- 1 4.70000+ 6 3.56669- 11274 325100625
+ 5.00000+ 6 2.94760- 1 5.20000+ 6 2.84784- 1 5.25000+ 6 2.83958- 11274 325100626
+ 5.28500+ 6 2.89647- 1 5.30000+ 6 2.92070- 1 5.32000+ 6 3.42903- 11274 325100627
+ 5.32500+ 6 3.54938- 1 5.35000+ 6 4.15138- 1 5.36000+ 6 4.25971- 11274 325100628
+ 5.36500+ 6 4.25403- 1 5.38000+ 6 4.23691- 1 5.40000+ 6 3.64461- 11274 325100629
+ 5.42000+ 6 3.05222- 1 5.47000+ 6 2.70560- 1 5.50000+ 6 2.64341- 11274 325100630
+ 5.55000+ 6 2.53983- 1 5.70000+ 6 2.41050- 1 5.95000+ 6 2.18401- 11274 325100631
+ 6.05000+ 6 2.09781- 1 6.10000+ 6 2.01589- 1 6.15000+ 6 1.83344- 11274 325100632
+ 6.18500+ 6 1.70277- 1 6.20000+ 6 1.64679- 1 6.21000+ 6 1.60945- 11274 325100633
+ 6.22500+ 6 1.55354- 1 6.23000+ 6 1.53503- 1 6.25000+ 6 1.50749- 11274 325100634
+ 6.26000+ 6 1.56352- 1 6.27500+ 6 1.92725- 1 6.28500+ 6 2.16767- 11274 325100635
+ 6.30000+ 6 2.52822- 1 6.31000+ 6 2.76858- 1 6.32000+ 6 3.00895- 11274 325100636
+ 6.32500+ 6 3.13166- 1 6.34000+ 6 3.49903- 1 6.35000+ 6 3.74721- 11274 325100637
+ 6.36000+ 6 3.99538- 1 6.39000+ 6 4.02398- 1 6.40000+ 6 4.03602- 11274 325100638
+ 6.43000+ 6 4.07232- 1 6.45000+ 6 4.09027- 1 6.46000+ 6 4.09227- 11274 325100639
+ 6.47000+ 6 4.28960- 1 6.48000+ 6 4.48699- 1 6.49000+ 6 4.68438- 11274 325100640
+ 6.50000+ 6 4.88176- 1 6.53000+ 6 4.89450- 1 6.54000+ 6 4.90007- 11274 325100641
+ 6.55000+ 6 4.89310- 1 6.57000+ 6 4.32071- 1 6.60000+ 6 3.46187- 11274 325100642
+ 6.61000+ 6 3.16823- 1 6.62000+ 6 3.09967- 1 6.65000+ 6 2.89408- 11274 325100643
+ 6.68000+ 6 2.67995- 1 6.70000+ 6 2.64351- 1 6.73000+ 6 2.58905- 11274 325100644
+ 6.80000+ 6 2.52101- 1 6.85000+ 6 2.49269- 1 6.95000+ 6 2.49170- 11274 325100645
+ 6.97000+ 6 2.50345- 1 7.00000+ 6 2.60132- 1 7.05000+ 6 2.76219- 11274 325100646
+ 7.11000+ 6 3.16440- 1 7.13000+ 6 3.41943- 1 7.15000+ 6 3.67449- 11274 325100647
+ 7.16000+ 6 3.79651- 1 7.17000+ 6 3.91856- 1 7.20000+ 6 4.57241- 11274 325100648
+ 7.25000+ 6 5.65164- 1 7.30000+ 6 6.73106- 1 7.32500+ 6 6.79666- 11274 325100649
+ 7.35000+ 6 6.69556- 1 7.39000+ 6 5.45284- 1 7.40000+ 6 5.14716- 11274 325100650
+ 7.44000+ 6 3.91837- 1 7.45000+ 6 3.84419- 1 7.50000+ 6 3.48088- 11274 325100651
+ 7.55000+ 6 3.30276- 1 7.58000+ 6 3.19645- 1 7.60000+ 6 3.12022- 11274 325100652
+ 7.63500+ 6 3.05181- 1 7.67000+ 6 3.00359- 1 7.70000+ 6 3.01912- 11274 325100653
+ 7.74000+ 6 3.04317- 1 7.75000+ 6 3.09929- 1 7.77000+ 6 3.21139- 11274 325100654
+ 7.78000+ 6 3.26738- 1 7.79000+ 6 3.46957- 1 7.80000+ 6 3.67169- 11274 325100655
+ 7.81000+ 6 3.87755- 1 7.83000+ 6 4.28915- 1 7.85000+ 6 4.70741- 11274 325100656
+ 7.89000+ 6 5.54412- 1 7.90000+ 6 5.63518- 1 7.93000+ 6 5.90825- 11274 325100657
+ 7.95000+ 6 5.97619- 1 7.96000+ 6 6.00876- 1 7.97000+ 6 6.03954- 11274 325100658
+ 8.00000+ 6 6.12938- 1 8.04000+ 6 6.24427- 1 8.06000+ 6 6.30420- 11274 325100659
+ 8.09000+ 6 6.39158- 1 8.12000+ 6 6.47885- 1 8.13000+ 6 6.50801- 11274 325100660
+ 8.15000+ 6 6.59088- 1 8.16000+ 6 6.63227- 1 8.17000+ 6 6.67368- 11274 325100661
+ 8.19000+ 6 6.75634- 1 8.20000+ 6 6.79767- 1 8.21000+ 6 6.84126- 11274 325100662
+ 8.22000+ 6 6.82293- 1 8.25000+ 6 6.77963- 1 8.30000+ 6 6.32801- 11274 325100663
+ 8.31500+ 6 6.19255- 1 8.35000+ 6 5.97910- 1 8.40000+ 6 5.66673- 11274 325100664
+ 8.45000+ 6 5.35791- 1 8.50000+ 6 5.11423- 1 8.60000+ 6 4.62687- 11274 325100665
+ 8.69310+ 6 4.17319- 1 8.70530+ 6 4.11370- 1 8.83870+ 6 3.46336- 11274 325100666
+ 8.90250+ 6 3.15239- 1 8.95450+ 6 2.89903- 1 8.99070+ 6 2.86244- 11274 325100667
+ 9.08000+ 6 2.75266- 1 9.10080+ 6 2.72715- 1 9.11480+ 6 2.75877- 11274 325100668
+ 9.17550+ 6 2.89573- 1 9.98700+ 6 4.72835- 1 1.00080+ 7 4.77577- 11274 325100669
+ 1.01310+ 7 5.05360- 1 1.03780+ 7 5.61160- 1 1.05710+ 7 5.69694- 11274 325100670
+ 1.09430+ 7 5.86139- 1 1.09640+ 7 5.87060- 1 1.13730+ 7 6.07790- 11274 325100671
+ 1.31000+ 7 5.88909- 1 1.50000+ 7 5.67274- 1 2.00000+ 7 5.67274- 11274 325100672
+                                                                  1274 300000673
+ 6.01200+ 3 1.18969+ 1          0          0          0          01274 325200674
+ 0.00000+ 0 0.00000+ 0          0          0          1        1981274 325200675
+        198          2                                            1274 325200676
+ 1.00000- 5 1.59057- 1 1.00000+ 4 1.58818- 1 3.50000+ 5 1.52384- 11274 325200677
+ 7.00000+ 5 1.48646- 1 1.05000+ 6 1.47055- 1 1.35000+ 6 1.47458- 11274 325200678
+ 1.60000+ 6 1.48909- 1 1.80000+ 6 1.51024- 1 1.90000+ 6 1.52720- 11274 325200679
+ 1.95000+ 6 1.52720- 1 2.00000+ 6 1.57225- 1 2.02000+ 6 1.58216- 11274 325200680
+ 2.04000+ 6 1.59878- 1 2.06000+ 6 1.63955- 1 2.07000+ 6 1.69492- 11274 325200681
+ 2.08000+ 6 1.60764- 1 2.10000+ 6 1.49789- 1 2.15000+ 6 1.55505- 11274 325200682
+ 2.30000+ 6 1.60071- 1 2.45000+ 6 1.63716- 1 2.60000+ 6 1.67253- 11274 325200683
+ 2.75000+ 6 1.69928- 1 2.81000+ 6 1.68985- 1 2.82000+ 6 1.33412- 11274 325200684
+ 2.83000+ 6 1.72204- 1 2.88000+ 6 1.70017- 1 2.90000+ 6 1.68918- 11274 325200685
+ 2.92000+ 6 1.66972- 1 2.94000+ 6 1.63324- 1 2.96000+ 6 1.56070- 11274 325200686
+ 2.98000+ 6 1.47297- 1 3.00000+ 6 1.54585- 1 3.02000+ 6 1.65790- 11274 325200687
+ 3.04000+ 6 1.70590- 1 3.08000+ 6 1.72723- 1 3.11270+ 6 1.72869- 11274 325200688
+ 3.18000+ 6 1.71917- 1 3.22750+ 6 1.70594- 1 3.30000+ 6 1.68079- 11274 325200689
+ 3.32070+ 6 1.67332- 1 3.35000+ 6 1.66288- 1 3.35320+ 6 1.66172- 11274 325200690
+ 3.40000+ 6 1.64506- 1 3.40090+ 6 1.64474- 1 3.45000+ 6 1.62810- 11274 325200691
+ 3.60020+ 6 1.57411- 1 3.75000+ 6 1.52474- 1 3.90000+ 6 1.53247- 11274 325200692
+ 4.00000+ 6 1.56024- 1 4.05090+ 6 1.59125- 1 4.13000+ 6 1.53045- 11274 325200693
+ 4.33000+ 6 8.72077- 2 4.34000+ 6 8.55110- 2 4.36000+ 6 8.54741- 21274 325200694
+ 4.50000+ 6 9.75117- 2 4.60000+ 6 1.02995- 1 4.70000+ 6 1.08508- 11274 325200695
+ 5.00000+ 6 1.18924- 1 5.20000+ 6 1.20602- 1 5.25000+ 6 1.20742- 11274 325200696
+ 5.28500+ 6 1.19788- 1 5.30000+ 6 1.19380- 1 5.32000+ 6 1.10825- 11274 325200697
+ 5.32500+ 6 1.08800- 1 5.35000+ 6 9.86630- 2 5.36000+ 6 9.68380- 21274 325200698
+ 5.36500+ 6 9.69323- 2 5.38000+ 6 9.72188- 2 5.40000+ 6 1.07185- 11274 325200699
+ 5.42000+ 6 1.17153- 1 5.47000+ 6 1.22983- 1 5.50000+ 6 1.24028- 11274 325200700
+ 5.55000+ 6 1.25770- 1 5.70000+ 6 1.27941- 1 5.95000+ 6 1.31742- 11274 325200701
+ 6.05000+ 6 1.33186- 1 6.10000+ 6 1.34560- 1 6.15000+ 6 1.37627- 11274 325200702
+ 6.18500+ 6 1.39826- 1 6.20000+ 6 1.40769- 1 6.21000+ 6 1.41400- 11274 325200703
+ 6.22500+ 6 1.42349- 1 6.23000+ 6 1.42668- 1 6.25000+ 6 1.43160- 11274 325200704
+ 6.26000+ 6 1.42231- 1 6.27500+ 6 1.36130- 1 6.28500+ 6 1.32097- 11274 325200705
+ 6.30000+ 6 1.26050- 1 6.31000+ 6 1.22018- 1 6.32000+ 6 1.17984- 11274 325200706
+ 6.32500+ 6 1.15924- 1 6.34000+ 6 1.09747- 1 6.35000+ 6 1.05570- 11274 325200707
+ 6.36000+ 6 1.01388- 1 6.39000+ 6 1.00886- 1 6.40000+ 6 1.00679- 11274 325200708
+ 6.43000+ 6 1.00054- 1 6.45000+ 6 9.97421- 2 6.46000+ 6 9.97058- 21274 325200709
+ 6.47000+ 6 9.63822- 2 6.48000+ 6 9.30567- 2 6.49000+ 6 8.97318- 21274 325200710
+ 6.50000+ 6 8.64081- 2 6.53000+ 6 8.61907- 2 6.54000+ 6 8.60949- 21274 325200711
+ 6.55000+ 6 8.62115- 2 6.57000+ 6 9.58420- 2 6.60000+ 6 1.10294- 11274 325200712
+ 6.61000+ 6 1.15235- 1 6.62000+ 6 1.16387- 1 6.65000+ 6 1.19843- 11274 325200713
+ 6.68000+ 6 1.23442- 1 6.70000+ 6 1.24053- 1 6.73000+ 6 1.24965- 11274 325200714
+ 6.80000+ 6 1.26102- 1 6.85000+ 6 1.26574- 1 6.95000+ 6 1.26588- 11274 325200715
+ 6.97000+ 6 1.26390- 1 7.00000+ 6 1.24745- 1 7.05000+ 6 1.22041- 11274 325200716
+ 7.11000+ 6 1.15278- 1 7.13000+ 6 1.10988- 1 7.15000+ 6 1.06697- 11274 325200717
+ 7.16000+ 6 1.04644- 1 7.17000+ 6 1.02590- 1 7.20000+ 6 9.15878- 21274 325200718
+ 7.25000+ 6 7.34260- 2 7.30000+ 6 5.52601- 2 7.32500+ 6 5.41558- 21274 325200719
+ 7.35000+ 6 5.58572- 2 7.39000+ 6 7.67715- 2 7.40000+ 6 8.19160- 21274 325200720
+ 7.44000+ 6 1.02595- 1 7.45000+ 6 1.03843- 1 7.50000+ 6 1.09958- 11274 325200721
+ 7.55000+ 6 1.12960- 1 7.58000+ 6 1.14753- 1 7.60000+ 6 1.16039- 11274 325200722
+ 7.63500+ 6 1.17200- 1 7.67000+ 6 1.18028- 1 7.70000+ 6 1.17778- 11274 325200723
+ 7.74000+ 6 1.17387- 1 7.75000+ 6 1.16446- 1 7.77000+ 6 1.14561- 11274 325200724
+ 7.78000+ 6 1.13619- 1 7.79000+ 6 1.10215- 1 7.80000+ 6 1.06812- 11274 325200725
+ 7.81000+ 6 1.03345- 1 7.83000+ 6 9.64103- 2 7.85000+ 6 8.93639- 21274 325200726
+ 7.89000+ 6 7.52683- 2 7.90000+ 6 7.37321- 2 7.93000+ 6 6.91255- 21274 325200727
+ 7.95000+ 6 6.79779- 2 7.96000+ 6 6.74297- 2 7.97000+ 6 6.69119- 21274 325200728
+ 8.00000+ 6 6.54036- 2 8.04000+ 6 6.34815- 2 8.06000+ 6 6.24809- 21274 325200729
+ 8.09000+ 6 6.10225- 2 8.12000+ 6 5.95651- 2 8.13000+ 6 5.90774- 21274 325200730
+ 8.15000+ 6 5.76874- 2 8.16000+ 6 5.69931- 2 8.17000+ 6 5.62965- 21274 325200731
+ 8.19000+ 6 5.49048- 2 8.20000+ 6 5.42079- 2 8.21000+ 6 5.34729- 21274 325200732
+ 8.22000+ 6 5.37801- 2 8.25000+ 6 5.44986- 2 8.30000+ 6 6.20820- 21274 325200733
+ 8.31500+ 6 6.43583- 2 8.35000+ 6 6.79421- 2 8.40000+ 6 7.31913- 21274 325200734
+ 8.45000+ 6 7.83826- 2 8.50000+ 6 8.24800- 2 8.60000+ 6 9.06755- 21274 325200735
+ 8.69310+ 6 9.83053- 2 8.70530+ 6 9.93055- 2 8.83870+ 6 1.10243- 11274 325200736
+ 8.90250+ 6 1.15473- 1 8.95450+ 6 1.19732- 1 8.99070+ 6 1.20344- 11274 325200737
+ 9.08000+ 6 1.22183- 1 9.10080+ 6 1.22610- 1 9.11480+ 6 1.22077- 11274 325200738
+ 9.17550+ 6 1.19770- 1 9.98700+ 6 8.89428- 2 1.00080+ 7 8.81454- 21274 325200739
+ 1.01310+ 7 8.34752- 2 1.03780+ 7 7.40912- 2 1.05710+ 7 7.26600- 21274 325200740
+ 1.09430+ 7 6.99040- 2 1.09640+ 7 6.97492- 2 1.13730+ 7 6.62636- 21274 325200741
+ 1.31000+ 7 6.94553- 2 1.50000+ 7 7.31322- 2 2.00000+ 7 7.31322- 21274 325200742
+                                                                  1274 300000743
+ 6.01200+ 3 1.18969+ 1          0          0          0          01274 325300744
+ 0.00000+ 0 0.00000+ 0          0          0          1        1981274 325300745
+        198          2                                            1274 325300746
+ 1.00000- 5 1.09083- 1 1.00000+ 4 1.09003- 1 3.50000+ 5 1.06789- 11274 325300747
+ 7.00000+ 5 1.05516- 1 1.05000+ 6 1.05149- 1 1.35000+ 6 1.05672- 11274 325300748
+ 1.60000+ 6 1.06708- 1 1.80000+ 6 1.08084- 1 1.90000+ 6 1.09099- 11274 325300749
+ 1.95000+ 6 1.09099- 1 2.00000+ 6 1.10710- 1 2.02000+ 6 1.11270- 11274 325300750
+ 2.04000+ 6 1.12239- 1 2.06000+ 6 1.15110- 1 2.07000+ 6 1.21063- 11274 325300751
+ 2.08000+ 6 1.37643- 1 2.10000+ 6 1.10778- 1 2.15000+ 6 1.11248- 11274 325300752
+ 2.30000+ 6 1.14188- 1 2.45000+ 6 1.17452- 1 2.60000+ 6 1.21575- 11274 325300753
+ 2.75000+ 6 1.26400- 1 2.81000+ 6 1.28292- 1 2.82000+ 6 1.17229- 11274 325300754
+ 2.83000+ 6 1.29986- 1 2.88000+ 6 1.31960- 1 2.90000+ 6 1.32724- 11274 325300755
+ 2.92000+ 6 1.33313- 1 2.94000+ 6 1.33609- 1 2.96000+ 6 1.30592- 11274 325300756
+ 2.98000+ 6 1.17776- 1 3.00000+ 6 1.09588- 1 3.02000+ 6 1.15896- 11274 325300757
+ 3.04000+ 6 1.21402- 1 3.08000+ 6 1.24949- 1 3.11270+ 6 1.27454- 11274 325300758
+ 3.18000+ 6 1.29566- 1 3.22750+ 6 1.30190- 1 3.30000+ 6 1.31105- 11274 325300759
+ 3.32070+ 6 1.31199- 1 3.35000+ 6 1.31419- 1 3.35320+ 6 1.31425- 11274 325300760
+ 3.40000+ 6 1.31741- 1 3.40090+ 6 1.31735- 1 3.45000+ 6 1.32122- 11274 325300761
+ 3.60020+ 6 1.31317- 1 3.75000+ 6 1.28447- 1 3.90000+ 6 1.26367- 11274 325300762
+ 4.00000+ 6 1.25430- 1 4.05090+ 6 1.25357- 1 4.13000+ 6 1.22597- 11274 325300763
+ 4.33000+ 6 8.82164- 2 4.34000+ 6 8.65305- 2 4.36000+ 6 8.60661- 21274 325300764
+ 4.50000+ 6 9.32854- 2 4.60000+ 6 9.56064- 2 4.70000+ 6 9.79870- 21274 325300765
+ 5.00000+ 6 1.00869- 1 5.20000+ 6 1.00312- 1 5.25000+ 6 1.00147- 11274 325300766
+ 5.28500+ 6 9.95201- 2 5.30000+ 6 9.92625- 2 5.32000+ 6 9.47364- 21274 325300767
+ 5.32500+ 6 9.46085- 2 5.35000+ 6 9.38031- 2 5.36000+ 6 9.27351- 21274 325300768
+ 5.36500+ 6 9.29137- 2 5.38000+ 6 9.34792- 2 5.40000+ 6 9.96941- 21274 325300769
+ 5.42000+ 6 1.04869- 1 5.47000+ 6 1.07233- 1 5.50000+ 6 1.07488- 11274 325300770
+ 5.55000+ 6 1.07916- 1 5.70000+ 6 1.07861- 1 5.95000+ 6 1.09239- 11274 325300771
+ 6.05000+ 6 1.09853- 1 6.10000+ 6 1.10616- 1 6.15000+ 6 1.11999- 11274 325300772
+ 6.18500+ 6 1.13324- 1 6.20000+ 6 1.13892- 1 6.21000+ 6 1.14277- 11274 325300773
+ 6.22500+ 6 1.14885- 1 6.23000+ 6 1.15118- 1 6.25000+ 6 1.16466- 11274 325300774
+ 6.26000+ 6 1.16760- 1 6.27500+ 6 1.15840- 1 6.28500+ 6 1.15453- 11274 325300775
+ 6.30000+ 6 1.14845- 1 6.31000+ 6 1.14404- 1 6.32000+ 6 1.13910- 11274 325300776
+ 6.32500+ 6 1.13260- 1 6.34000+ 6 1.11098- 1 6.35000+ 6 1.08923- 11274 325300777
+ 6.36000+ 6 1.06487- 1 6.39000+ 6 1.05474- 1 6.40000+ 6 1.04741- 11274 325300778
+ 6.43000+ 6 1.02473- 1 6.45000+ 6 1.02060- 1 6.46000+ 6 1.01949- 11274 325300779
+ 6.47000+ 6 1.01070- 1 6.48000+ 6 1.00111- 1 6.49000+ 6 9.90856- 21274 325300780
+ 6.50000+ 6 9.79983- 2 6.53000+ 6 9.82155- 2 6.54000+ 6 9.79987- 21274 325300781
+ 6.55000+ 6 9.55260- 2 6.57000+ 6 9.76206- 2 6.60000+ 6 1.00123- 11274 325300782
+ 6.61000+ 6 1.01962- 1 6.62000+ 6 1.01740- 1 6.65000+ 6 1.01090- 11274 325300783
+ 6.68000+ 6 1.01705- 1 6.70000+ 6 1.01228- 1 6.73000+ 6 1.00508- 11274 325300784
+ 6.80000+ 6 9.98710- 2 6.85000+ 6 9.92615- 2 6.95000+ 6 9.85970- 21274 325300785
+ 6.97000+ 6 9.84424- 2 7.00000+ 6 9.75264- 2 7.05000+ 6 9.62913- 21274 325300786
+ 7.11000+ 6 9.34572- 2 7.13000+ 6 9.14647- 2 7.15000+ 6 8.93030- 21274 325300787
+ 7.16000+ 6 8.91112- 2 7.17000+ 6 8.89048- 2 7.20000+ 6 8.43168- 21274 325300788
+ 7.25000+ 6 7.61915- 2 7.30000+ 6 6.26809- 2 7.32500+ 6 6.82012- 21274 325300789
+ 7.35000+ 6 7.75390- 2 7.39000+ 6 1.04929- 1 7.40000+ 6 1.08527- 11274 325300790
+ 7.44000+ 6 1.20268- 1 7.45000+ 6 1.20951- 1 7.50000+ 6 1.22897- 11274 325300791
+ 7.55000+ 6 1.22289- 1 7.58000+ 6 1.21870- 1 7.60000+ 6 1.22407- 11274 325300792
+ 7.63500+ 6 1.23002- 1 7.67000+ 6 1.24392- 1 7.70000+ 6 1.25246- 11274 325300793
+ 7.74000+ 6 1.28888- 1 7.75000+ 6 1.29565- 1 7.77000+ 6 1.30916- 11274 325300794
+ 7.78000+ 6 1.31594- 1 7.79000+ 6 1.31613- 1 7.80000+ 6 1.31617- 11274 325300795
+ 7.81000+ 6 1.30994- 1 7.83000+ 6 1.29580- 1 7.85000+ 6 1.26631- 11274 325300796
+ 7.89000+ 6 1.19080- 1 7.90000+ 6 1.17692- 1 7.93000+ 6 1.13141- 11274 325300797
+ 7.95000+ 6 1.10088- 1 7.96000+ 6 1.08952- 1 7.97000+ 6 1.08250- 11274 325300798
+ 8.00000+ 6 1.06889- 1 8.04000+ 6 1.06496- 1 8.06000+ 6 1.05623- 11274 325300799
+ 8.09000+ 6 1.05010- 1 8.12000+ 6 1.04362- 1 8.13000+ 6 1.04123- 11274 325300800
+ 8.15000+ 6 1.03190- 1 8.16000+ 6 1.02706- 1 8.17000+ 6 1.02179- 11274 325300801
+ 8.19000+ 6 1.01050- 1 8.20000+ 6 1.00452- 1 8.21000+ 6 9.90484- 21274 325300802
+ 8.22000+ 6 9.88592- 2 8.25000+ 6 9.42974- 2 8.30000+ 6 9.77648- 21274 325300803
+ 8.31500+ 6 9.86708- 2 8.35000+ 6 9.89846- 2 8.40000+ 6 1.01295- 11274 325300804
+ 8.45000+ 6 1.03267- 1 8.50000+ 6 1.04505- 1 8.60000+ 6 1.06655- 11274 325300805
+ 8.69310+ 6 1.08344- 1 8.70530+ 6 1.08545- 1 8.83870+ 6 1.10561- 11274 325300806
+ 8.90250+ 6 1.11387- 1 8.95450+ 6 1.11976- 1 8.99070+ 6 1.11385- 11274 325300807
+ 9.08000+ 6 1.12764- 1 9.10080+ 6 1.13080- 1 9.11480+ 6 1.12961- 11274 325300808
+ 9.17550+ 6 1.12471- 1 9.98700+ 6 1.03922- 1 1.00080+ 7 1.03626- 11274 325300809
+ 1.01310+ 7 1.01785- 1 1.03780+ 7 9.73202- 2 1.05710+ 7 9.85895- 21274 325300810
+ 1.09430+ 7 1.01231- 1 1.09640+ 7 1.01380- 1 1.13730+ 7 9.71636- 21274 325300811
+ 1.31000+ 7 9.60969- 2 1.50000+ 7 9.76090- 2 2.00000+ 7 9.76090- 21274 325300812
+                                                                  1274 300000813
+                                                                  1274 000000814
+ 6.01200+ 3 1.18969+ 1          1          1          0          01274 400200815
+ 0.00000+ 0 1.18969+ 1          0          2        361         181274 400200816
+ 1.00000+ 0 5.60370- 2 1.41449- 3-1.06648- 9 0.00000+ 0 0.00000+ 01274 400200817
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01274 400200818
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01274 400200819
+ 0.00000+ 0 0.00000+ 0 9.95761- 1 1.00663- 1 4.84477- 3 1.13334- 41274 400200820
+ 1.41574- 6-3.09538- 8 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01274 400200821
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01274 400200822
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0-5.56976- 2 9.88919- 1 1.43303- 11274 400200823
+ 1.00688- 2 4.11258- 4 1.04665- 5 9.68762- 8 1.41317- 8-9.49099- 91274 400200824
+ 4.02238- 9 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01274 400200825
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 4.21146- 3-9.97601- 21274 400200826
+ 9.78431- 1 1.84778- 1 1.70256- 2 9.66249- 4 3.66337- 5 8.46190- 71274 400200827
+ 3.18788- 8 5.16159- 9 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01274 400200828
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0-3.37071- 41274 400200829
+ 9.58399- 3-1.41515- 1 9.64503- 1 2.25166- 1 2.56621- 2 1.84865- 31274 400200830
+ 9.22777- 5 3.20320- 6 6.03473- 8-2.59285- 8-5.59838- 9 0.00000+ 01274 400200831
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01274 400200832
+ 2.75428- 5-8.95141- 4 1.65418- 2-1.81822- 1 9.47222- 1 2.64367- 11274 400200833
+ 3.59186- 2 3.12618- 3 1.92499- 4 8.61431- 6 2.61171- 7-4.34714- 81274 400200834
+ 1.72620- 8 1.36216- 8 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01274 400200835
+ 0.00000+ 0-2.27289- 6 8.20847- 5-1.77076- 3 2.50853- 2-2.20767- 11274 400200836
+ 9.26683- 1 3.02229- 1 4.77264- 2 4.86313- 3 3.55225- 4 1.93617- 51274 400200837
+ 8.10976- 7-1.28515- 8 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01274 400200838
+ 0.00000+ 0 0.00000+ 0 1.88592- 7-7.43062- 6 1.80398- 4-3.03231- 31274 400200839
+ 3.51640- 2-2.58260- 1 9.02998- 1 3.38582- 1 6.10065- 2 7.12008- 31274 400200840
+ 6.00812- 4 3.84811- 5 1.93039- 6 2.48291- 8 2.90731- 9 0.00000+ 01274 400200841
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0-1.57009- 8 6.66238- 7-1.77964- 51274 400200842
+ 3.40156- 4-4.74208- 3 4.67065- 2-2.94160- 1 8.76290- 1 3.73251- 11274 400200843
+ 7.56697- 2 9.95314- 3 9.51855- 4 6.98134- 5 4.06042- 6 1.24407- 71274 400200844
+ 8.79032- 9 0.00000+ 0 0.00000+ 0 0.00000+ 0 1.31002- 9-5.92962- 81274 400200845
+ 1.71618- 6-3.63510- 5 5.81262- 4-6.95753- 3 5.96281- 2-3.28310- 11274 400200846
+ 8.46703- 1 4.06066- 1 9.16168- 2 1.34134- 2 1.43312- 3 1.18264- 41274 400200847
+ 7.80490- 6 3.14589- 7 5.21515- 8 4.41488- 8 0.00000+ 0-1.09469-101274 400200848
+ 5.24658- 9-1.62716- 7 3.75402- 6-6.69316- 5 9.25742- 4-9.73115- 31274 400200849
+ 7.38328- 2-3.60553- 1 8.14390- 1 4.36864- 1 1.08740- 1 1.75466- 21274 400200850
+ 2.07114- 3 1.89743- 4 1.40310- 5 7.86976- 7 1.11161- 7 0.00000+ 01274 400200851
+ 9.15753-12-4.62010-10 1.52257- 8-3.77921- 7 7.37309- 6-1.14320- 41274 400200852
+ 1.39752- 3-1.31101- 2 8.92146- 2-3.90735- 1 7.79522- 1 4.65492- 11274 400200853
+ 1.26922- 1 2.23927- 2 2.89406- 3 2.91407- 4 2.37909- 5 1.46922- 61274 400200854
+ 0.00000+ 0-7.66692-13 4.05233-11-1.40976- 9 3.73005- 8-7.85731- 71274 400200855
+ 1.33854- 5-1.84309- 4 2.02217- 3-1.71357- 2 1.05659- 1-4.18712- 11274 400200856
+ 7.42283- 1 4.91806- 1 1.46038- 1 2.79851- 2 3.93112- 3 4.31251- 41274 400200857
+ 3.85219- 5 0.00000+ 0 6.42295-14-3.54249-12 1.29410-10-3.62378- 91274 400200858
+ 8.16027- 8-1.50581- 6 2.28644- 5-2.83759- 4 2.82659- 3-2.18434- 21274 400200859
+ 1.23043- 1-4.44351- 1 7.02865- 1 5.15677- 1 1.65957- 1 3.43507- 21274 400200860
+ 5.21257- 3 6.18970- 4 0.00000+ 0-5.38344-15 3.08794-13-1.17939-111274 400200861
+ 3.47527-10-8.30176- 9 1.64189- 7-2.70835- 6 3.71885- 5-4.20634- 41274 400200862
+ 3.83872- 3-2.72617- 2 1.41238- 1-4.67530- 1 6.61476- 1 5.36989- 11274 400200863
+ 1.86540- 1 4.15098- 2 6.76908- 3 0.00000+ 0 4.51391-16-2.67962-141274 400200864
+ 1.06832-12-3.29705-11 8.30399-10-1.74594- 8 3.09406- 7-4.62759- 61274 400200865
+ 5.80862- 5-6.04026- 4 5.08721- 3-3.34128- 2 1.60108- 1-4.88142- 11274 400200866
+ 6.18329- 1 5.55639- 1 2.07644- 1 4.94746- 2 0.00000+ 0-3.78602-171274 400200867
+ 2.32996-15-9.61531-14 3.09952-12-8.18966-11 1.81872- 9-3.43310- 81274 400200868
+ 5.52839- 7-7.57699- 6 8.76804- 5-8.44161- 4 6.60109- 3-4.03115- 21274 400200869
+ 1.79512- 1-5.06093- 1 5.73649- 1 5.71541- 1 2.29121- 1 0.00000+ 01274 400200870
+ 3.17632-18-1.43424-16 8.62351-15-2.88971-13 7.98066-12-1.86214-101274 400200871
+ 3.71888- 9-6.39053- 8 9.44922- 7-1.19663- 5 1.28533- 4-1.15239- 31274 400200872
+ 8.40940- 3-4.79656- 2 1.99305- 1-5.21307- 1 5.27665- 1 0.00000+ 01274 400200873
+ 0.00000+ 0-2.66538-19 1.00373-17-6.96603-16 2.67221-14-7.69590-131274 400200874
+ 1.87888-11-3.94813-10 7.18894- 9-1.13624- 7 1.55527- 6-1.83201- 51274 400200875
+ 1.83687- 4-1.54117- 3 1.05409- 2-5.63753- 2 2.19339- 1-5.33720- 11274 400200876
+ 4.80614- 1                                                       1274 400200877
+ 0.00000+ 0 0.00000+ 0          0          0          1        1981274 400200878
+        198          2                                            1274 400200879
+ 0.00000+ 0 1.00000- 5          0          0          1          01274 400200880
+ 0.00000+ 0                                                       1274 400200881
+ 0.00000+ 0 1.00000+ 4          0          0          1          01274 400200882
+ 1.42000- 3                                                       1274 400200883
+ 0.00000+ 0 3.50000+ 5          0          0          2          01274 400200884
+ 3.97900- 2 5.90000- 4                                            1274 400200885
+ 0.00000+ 0 7.00000+ 5          0          0          4          01274 400200886
+ 6.21700- 2 2.52000- 3-8.00000- 5-1.00000- 5                      1274 400200887
+ 0.00000+ 0 1.05000+ 6          0          0          4          01274 400200888
+ 7.18700- 2 6.35000- 3-4.40000- 4-5.00000- 5                      1274 400200889
+ 0.00000+ 0 1.35000+ 6          0          0          4          01274 400200890
+ 6.97900- 2 1.20300- 2-1.58000- 3-1.60000- 4                      1274 400200891
+ 0.00000+ 0 1.60000+ 6          0          0          5          01274 400200892
+ 6.15700- 2 1.95700- 2-3.88000- 3-3.40000- 4-1.00000- 5           1274 400200893
+ 0.00000+ 0 1.80000+ 6          0          0          5          01274 400200894
+ 4.95100- 2 2.89900- 2-7.74000- 3-3.60000- 4-3.00000- 5           1274 400200895
+ 0.00000+ 0 1.90000+ 6          0          0          5          01274 400200896
+ 3.97800- 2 3.55300- 2-1.14800- 2 5.00000- 5-6.00000- 5           1274 400200897
+ 0.00000+ 0 1.95000+ 6          0          0          5          01274 400200898
+ 3.97800- 2 3.55300- 2-1.14800- 2 5.00000- 5-6.00000- 5           1274 400200899
+ 0.00000+ 0 2.00000+ 6          0          0          5          01274 400200900
+ 1.30200- 2 3.64700- 2-2.35700- 2 4.88000- 3 9.00000- 5           1274 400200901
+ 0.00000+ 0 2.02000+ 6          0          0          5          01274 400200902
+ 7.34000- 3 4.02700- 2-2.65500- 2 7.10000- 3 1.10000- 4           1274 400200903
+ 0.00000+ 0 2.04000+ 6          0          0          5          01274 400200904
+-2.15000- 3 4.73900- 2-3.16800- 2 1.17500- 2 1.20000- 4           1274 400200905
+ 0.00000+ 0 2.06000+ 6          0          0          5          01274 400200906
+-2.48500- 2 7.47400- 2-4.38700- 2 2.65200- 2 1.50000- 4           1274 400200907
+ 0.00000+ 0 2.07000+ 6          0          0          5          01274 400200908
+-5.34000- 2 1.52450- 1-5.72700- 2 5.39100- 2 1.80000- 4           1274 400200909
+ 0.00000+ 0 2.08000+ 6          0          0          5          01274 400200910
+ 1.65800- 2 4.72660- 1 1.59000- 3 7.64000- 2 3.00000- 5           1274 400200911
+ 0.00000+ 0 2.10000+ 6          0          0          5          01274 400200912
+ 5.96600- 2 7.95700- 2 8.61000- 3-1.71400- 2 5.00000- 5           1274 400200913
+ 0.00000+ 0 2.15000+ 6          0          0          5          01274 400200914
+ 2.42900- 2 5.53200- 2-1.34300- 2-7.87000- 3 1.10000- 4           1274 400200915
+ 0.00000+ 0 2.30000+ 6          0          0          5          01274 400200916
+-1.50000- 3 7.99100- 2-2.55000- 2-4.12000- 3 2.00000- 4           1274 400200917
+ 0.00000+ 0 2.45000+ 6          0          0          5          01274 400200918
+-2.10800- 2 1.17540- 1-3.39900- 2-3.60000- 3 3.10000- 4           1274 400200919
+ 0.00000+ 0 2.60000+ 6          0          0          5          01274 400200920
+-3.90000- 2 1.73340- 1-4.10000- 2-3.52000- 3 4.60000- 4           1274 400200921
+ 0.00000+ 0 2.75000+ 6          0          0          5          01274 400200922
+-5.07100- 2 2.48270- 1-4.37500- 2-3.48000- 3 5.90000- 4           1274 400200923
+ 0.00000+ 0 2.81000+ 6          0          0          5          01274 400200924
+-4.29900- 2 2.85750- 1-3.85900- 2-4.75000- 3 5.50000- 4           1274 400200925
+ 0.00000+ 0 2.82000+ 6          0          0          5          01274 400200926
+ 1.67320- 1 2.62580- 1 2.10850- 1 6.67800- 2 2.70000- 4           1274 400200927
+ 0.00000+ 0 2.83000+ 6          0          0          5          01274 400200928
+-6.10900- 2 3.04690- 1-4.47200- 2-1.12000- 3 7.40000- 4           1274 400200929
+ 0.00000+ 0 2.88000+ 6          0          0          5          01274 400200930
+-4.56400- 2 3.47900- 1-3.42900- 2-2.20000- 3 6.20000- 4           1274 400200931
+ 0.00000+ 0 2.90000+ 6          0          0          5          01274 400200932
+-3.81300- 2 3.65190- 1-2.81200- 2-1.97000- 3 5.60000- 4           1274 400200933
+ 0.00000+ 0 2.92000+ 6          0          0          5          01274 400200934
+-2.56100- 2 3.81930- 1-1.81000- 2-1.54000- 3 4.40000- 4           1274 400200935
+ 0.00000+ 0 2.94000+ 6          0          0          5          01274 400200936
+-2.96000- 3 3.98670- 1-4.00000- 4-7.40000- 4 2.10000- 4           1274 400200937
+ 0.00000+ 0 2.96000+ 6          0          0          5          01274 400200938
+ 3.86900- 2 3.71850- 1 3.18700- 2 7.30000- 4-2.60000- 4           1274 400200939
+ 0.00000+ 0 2.98000+ 6          0          0          5          01274 400200940
+ 8.13900- 2 2.02940- 1 6.41300- 2 2.26000- 3-8.30000- 4           1274 400200941
+ 0.00000+ 0 3.00000+ 6          0          0          5          01274 400200942
+ 2.85200- 2 3.40300- 2 2.39000- 2 5.30000- 4-3.30000- 4           1274 400200943
+ 0.00000+ 0 3.02000+ 6          0          0          5          01274 400200944
+-3.55300- 2 8.07100- 2-2.43200- 2-2.14000- 3 4.30000- 4           1274 400200945
+ 0.00000+ 0 3.04000+ 6          0          0          5          01274 400200946
+-5.98700- 2 1.55860- 1-4.22800- 2-4.81000- 3 7.70000- 4           1274 400200947
+ 0.00000+ 0 3.08000+ 6          0          0          5          01274 400200948
+-6.94500- 2 2.11260- 1-4.86500- 2-1.01500- 2 9.60000- 4           1274 400200949
+ 0.00000+ 0 3.11270+ 6          0          0          5          01274 400200950
+-6.77800- 2 2.56550- 1-4.67500- 2-1.45200- 2 9.80000- 4           1274 400200951
+ 0.00000+ 0 3.18000+ 6          0          0          5          01274 400200952
+-5.97500- 2 2.98830- 1-3.94500- 2-2.35000- 2 9.70000- 4           1274 400200953
+ 0.00000+ 0 3.22750+ 6          0          0          5          01274 400200954
+-5.09800- 2 3.15000- 1-3.33000- 2-2.98500- 2 9.20000- 4           1274 400200955
+ 0.00000+ 0 3.30000+ 6          0          0          5          01274 400200956
+-3.46000- 2 3.40000- 1-2.31500- 2-2.86500- 2 8.10000- 4           1274 400200957
+ 0.00000+ 0 3.32070+ 6          0          0          5          01274 400200958
+-2.99200- 2 3.44200- 1-2.00600- 2-2.83000- 2 7.70000- 4           1274 400200959
+ 0.00000+ 0 3.35000+ 6          0          0          5          01274 400200960
+-2.32900- 2 3.51600- 1-1.56800- 2-2.78200- 2 7.10000- 4           1274 400200961
+ 0.00000+ 0 3.35320+ 6          0          0          5          01274 400200962
+-2.25700- 2 3.52100- 1-1.52100- 2-2.77700- 2 7.00000- 4           1274 400200963
+ 0.00000+ 0 3.40000+ 6          0          0          5          01274 400200964
+-1.20300- 2 3.63000- 1-8.22000- 3-2.04100- 2 5.90000- 4           1274 400200965
+ 0.00000+ 0 3.40090+ 6          0          0          5          01274 400200966
+-1.18400- 2 3.63000- 1-8.08000- 3-2.02700- 2 5.90000- 4           1274 400200967
+ 0.00000+ 0 3.45000+ 6          0          0          5          01274 400200968
+-1.25000- 3 3.75000- 1-7.50000- 4-1.25600- 2 4.50000- 4           1274 400200969
+ 0.00000+ 0 3.60020+ 6          0          0          5          01274 400200970
+ 3.11300- 2 3.78760- 1 1.99900- 2 1.10200- 2-4.00000- 5           1274 400200971
+ 0.00000+ 0 3.75000+ 6          0          0          5          01274 400200972
+ 5.88500- 2 3.48780- 1 3.77400- 2 2.78000- 2-6.20000- 4           1274 400200973
+ 0.00000+ 0 3.90000+ 6          0          0          5          01274 400200974
+ 5.21900- 2 3.12550- 1 5.17000- 2 3.71300- 2-1.25000- 3           1274 400200975
+ 0.00000+ 0 4.00000+ 6          0          0          4          01274 400200976
+ 3.41800- 2 2.86330- 1 5.04000- 2 4.16000- 2                      1274 400200977
+ 0.00000+ 0 4.05090+ 6          0          0          4          01274 400200978
+ 1.49500- 2 2.72980- 1 4.97400- 2 4.26200- 2                      1274 400200979
+ 0.00000+ 0 4.13000+ 6          0          0          4          01274 400200980
+ 5.00000- 2 2.52240- 1 5.50700- 2 4.34800- 2                      1274 400200981
+ 0.00000+ 0 4.33000+ 6          0          0          4          01274 400200982
+ 4.40000- 1 2.12440- 1 7.97600- 2 4.26800- 2                      1274 400200983
+ 0.00000+ 0 4.34000+ 6          0          0          4          01274 400200984
+ 4.50000- 1 2.10520- 1 8.06800- 2 4.26400- 2                      1274 400200985
+ 0.00000+ 0 4.36000+ 6          0          0          4          01274 400200986
+ 4.50000- 1 2.06680- 1 8.25200- 2 4.25600- 2                      1274 400200987
+ 0.00000+ 0 4.50000+ 6          0          0          4          01274 400200988
+ 3.77000- 1 1.84500- 1 9.54000- 2 4.20000- 2                      1274 400200989
+ 0.00000+ 0 4.60000+ 6          0          0          4          01274 400200990
+ 3.43500- 1 1.70000- 1 1.02330- 1 4.16000- 2                      1274 400200991
+ 0.00000+ 0 4.70000+ 6          0          0          4          01274 400200992
+ 3.10000- 1 1.58600- 1 1.07000- 1 4.12000- 2                      1274 400200993
+ 0.00000+ 0 5.00000+ 6          0          0          5          01274 400200994
+ 2.46000- 1 1.24400- 1 1.08000- 1 4.00000- 2-3.00000- 3           1274 400200995
+ 0.00000+ 0 5.20000+ 6          0          0          5          01274 400200996
+ 2.35000- 1 1.06300- 1 9.20000- 2 3.71600- 2-5.67000- 3           1274 400200997
+ 0.00000+ 0 5.25000+ 6          0          0          5          01274 400200998
+ 2.34000- 1 1.02950- 1 7.70000- 2 3.64500- 2-6.50000- 3           1274 400200999
+ 0.00000+ 0 5.28500+ 6          0          0          5          01274 400201000
+ 2.39600- 1 1.00600- 1 5.00000- 2 3.59500- 2-7.08000- 3           1274 400201001
+ 0.00000+ 0 5.30000+ 6          0          0          5          01274 400201002
+ 2.42000- 1 1.00000- 1 4.70000- 2 3.57400- 2-7.33000- 3           1274 400201003
+ 0.00000+ 0 5.32000+ 6          0          0          5          01274 400201004
+ 2.93200- 1 1.04000- 1 4.63300- 2 3.54500- 2-7.67000- 3           1274 400201005
+ 0.00000+ 0 5.32500+ 6          0          0          5          01274 400201006
+ 3.06000- 1 1.17000- 1 4.70000- 2 3.53800- 2-7.75000- 3           1274 400201007
+ 0.00000+ 0 5.35000+ 6          0          0          5          01274 400201008
+ 3.70000- 1 1.82000- 1 8.01300- 2 3.47200- 2-8.17000- 3           1274 400201009
+ 0.00000+ 0 5.36000+ 6          0          0          5          01274 400201010
+ 3.81000- 1 1.84670- 1 9.33800- 2 3.44500- 2-8.33000- 3           1274 400201011
+ 0.00000+ 0 5.36500+ 6          0          0          5          01274 400201012
+ 3.80500- 1 1.86000- 1 1.00000- 1 3.43200- 2-8.42000- 3           1274 400201013
+ 0.00000+ 0 5.38000+ 6          0          0          5          01274 400201014
+ 3.79000- 1 1.90000- 1 1.09430- 1 3.39200- 2-8.67000- 3           1274 400201015
+ 0.00000+ 0 5.40000+ 6          0          0          5          01274 400201016
+ 3.19500- 1 1.88310- 1 1.22000- 1 3.33900- 2-9.00000- 3           1274 400201017
+ 0.00000+ 0 5.42000+ 6          0          0          5          01274 400201018
+ 2.60000- 1 1.86630- 1 1.26800- 1 3.28600- 2-9.60000- 3           1274 400201019
+ 0.00000+ 0 5.47000+ 6          0          0          5          01274 400201020
+ 2.25000- 1 1.82410- 1 1.36400- 1 3.15300- 2-1.11000- 2           1274 400201021
+ 0.00000+ 0 5.50000+ 6          0          0          5          01274 400201022
+ 2.18620- 1 1.79870- 1 1.40000- 1 3.07300- 2-1.20000- 2           1274 400201023
+ 0.00000+ 0 5.55000+ 6          0          0          5          01274 400201024
+ 2.08000- 1 1.75660- 1 1.40250- 1 2.94000- 2-1.35000- 2           1274 400201025
+ 0.00000+ 0 5.70000+ 6          0          0          5          01274 400201026
+ 1.94330- 1 1.63000- 1 1.41000- 1 2.46000- 2-1.80000- 2           1274 400201027
+ 0.00000+ 0 5.95000+ 6          0          0          5          01274 400201028
+ 1.71560- 1 1.61500- 1 1.44000- 1 1.66000- 2-2.80000- 2           1274 400201029
+ 0.00000+ 0 6.05000+ 6          0          0          5          01274 400201030
+ 1.63000- 1 1.63000- 1 1.60000- 1 1.40000- 2-3.29400- 2           1274 400201031
+ 0.00000+ 0 6.10000+ 6          0          0          6          01274 400201032
+ 1.55000- 1 1.67000- 1 1.79000- 1 1.30000- 2-3.58800- 2 2.00000- 31274 400201033
+ 0.00000+ 0 6.15000+ 6          0          0          6          01274 400201034
+ 1.36920- 1 1.71000- 1 1.98000- 1 1.40000- 2-3.88200- 2 7.00000- 31274 400201035
+ 0.00000+ 0 6.18500+ 6          0          0          6          01274 400201036
+ 1.24270- 1 1.79310- 1 2.16410- 1 1.60000- 2-4.00000- 2 1.31300- 21274 400201037
+ 0.00000+ 0 6.20000+ 6          0          0          6          01274 400201038
+ 1.18850- 1 1.82870- 1 2.24300- 1 2.08000- 2-4.00000- 2 1.70000- 21274 400201039
+ 0.00000+ 0 6.21000+ 6          0          0          6          01274 400201040
+ 1.15230- 1 1.85250- 1 2.29560- 1 2.40000- 2-3.84000- 2 2.00000- 21274 400201041
+ 0.00000+ 0 6.22500+ 6          0          0          6          01274 400201042
+ 1.09810- 1 1.88810- 1 2.37440- 1 4.68000- 2-3.60000- 2 2.45000- 21274 400201043
+ 0.00000+ 0 6.23000+ 6          0          0          6          01274 400201044
+ 1.08000- 1 1.90000- 1 2.40070- 1 5.44000- 2-2.97000- 2 2.60000- 21274 400201045
+ 0.00000+ 0 6.25000+ 6          0          0          6          01274 400201046
+ 1.06000- 1 2.05000- 1 2.50590- 1 8.48000- 2-4.50000- 3 3.20000- 21274 400201047
+ 0.00000+ 0 6.26000+ 6          0          0          6          01274 400201048
+ 1.12000- 1 2.12500- 1 2.55850- 1 1.00000- 1 8.10000- 3 3.28000- 21274 400201049
+ 0.00000+ 0 6.27500+ 6          0          0          6          01274 400201050
+ 1.49200- 1 2.26500- 1 2.63740- 1 1.22800- 1 2.70000- 2 3.40000- 21274 400201051
+ 0.00000+ 0 6.28500+ 6          0          0          6          01274 400201052
+ 1.74000- 1 2.39500- 1 2.69000- 1 1.38000- 1 3.96000- 2 3.32000- 21274 400201053
+ 0.00000+ 0 6.30000+ 6          0          0          6          01274 400201054
+ 2.11200- 1 2.59000- 1 2.68000- 1 1.60800- 1 5.85000- 2 3.20000- 21274 400201055
+ 0.00000+ 0 6.31000+ 6          0          0          6          01274 400201056
+ 2.36000- 1 2.72000- 1 2.67340- 1 1.76000- 1 7.11000- 2 2.98000- 21274 400201057
+ 0.00000+ 0 6.32000+ 6          0          0          6          01274 400201058
+ 2.60800- 1 2.85000- 1 2.66670- 1 1.82000- 1 8.37000- 2 2.76000- 21274 400201059
+ 0.00000+ 0 6.32500+ 6          0          0          6          01274 400201060
+ 2.73200- 1 2.87000- 1 2.65000- 1 1.82000- 1 9.00000- 2 2.65000- 21274 400201061
+ 0.00000+ 0 6.34000+ 6          0          0          6          01274 400201062
+ 3.10400- 1 2.93000- 1 2.35000- 1 1.82000- 1 9.20000- 2 2.32000- 21274 400201063
+ 0.00000+ 0 6.35000+ 6          0          0          6          01274 400201064
+ 3.35200- 1 2.91000- 1 2.15000- 1 1.82000- 1 9.00000- 2 2.10000- 21274 400201065
+ 0.00000+ 0 6.36000+ 6          0          0          6          01274 400201066
+ 3.60000- 1 2.89000- 1 2.07200- 1 1.78000- 1 8.35000- 2 1.88000- 21274 400201067
+ 0.00000+ 0 6.39000+ 6          0          0          6          01274 400201068
+ 3.62610- 1 2.83000- 1 1.83800- 1 1.55710- 1 6.40000- 2 1.22000- 21274 400201069
+ 0.00000+ 0 6.40000+ 6          0          0          6          01274 400201070
+ 3.63480- 1 2.76750- 1 1.76000- 1 1.47590- 1 6.13600- 2 1.00000- 21274 400201071
+ 0.00000+ 0 6.43000+ 6          0          0          6          01274 400201072
+ 3.66090- 1 2.58000- 1 1.71000- 1 1.23240- 1 5.34500- 2 3.40000- 31274 400201073
+ 0.00000+ 0 6.45000+ 6          0          0          6          01274 400201074
+ 3.67830- 1 2.56670- 1 1.71500- 1 1.07000- 1 4.81800- 2-1.00000- 31274 400201075
+ 0.00000+ 0 6.46000+ 6          0          0          6          01274 400201076
+ 3.68000- 1 2.56000- 1 1.71750- 1 1.06500- 1 4.55500- 2-2.00000- 31274 400201077
+ 0.00000+ 0 6.47000+ 6          0          0          6          01274 400201078
+ 3.88500- 1 2.68500- 1 1.72000- 1 1.06000- 1 4.29100- 2-3.00000- 31274 400201079
+ 0.00000+ 0 6.48000+ 6          0          0          6          01274 400201080
+ 4.09000- 1 2.81000- 1 1.78060- 1 1.05500- 1 4.02700- 2-4.00000- 31274 400201081
+ 0.00000+ 0 6.49000+ 6          0          0          6          01274 400201082
+ 4.29500- 1 2.93500- 1 1.84130- 1 1.06000- 1 3.76400- 2-4.33000- 31274 400201083
+ 0.00000+ 0 6.50000+ 6          0          0          6          01274 400201084
+ 4.50000- 1 3.06000- 1 1.90190- 1 1.11500- 1 3.50000- 2-4.67000- 31274 400201085
+ 0.00000+ 0 6.53000+ 6          0          0          6          01274 400201086
+ 4.51500- 1 3.10000- 1 2.10750- 1 1.28000- 1 2.96000- 2-4.33000- 31274 400201087
+ 0.00000+ 0 6.54000+ 6          0          0          6          01274 400201088
+ 4.52000- 1 3.09000- 1 2.18000- 1 1.29000- 1 2.78000- 2-4.00000- 31274 400201089
+ 0.00000+ 0 6.55000+ 6          0          0          6          01274 400201090
+ 4.50000- 1 2.85830- 1 2.18670- 1 1.30000- 1 2.60000- 2-2.50000- 31274 400201091
+ 0.00000+ 0 6.57000+ 6          0          0          6          01274 400201092
+ 3.90000- 1 2.39500- 1 2.20000- 1 1.28000- 1 2.24000- 2 5.00000- 41274 400201093
+ 0.00000+ 0 6.60000+ 6          0          0          6          01274 400201094
+ 3.00000- 1 1.70000- 1 1.95000- 1 1.16750- 1 1.70000- 2 5.00000- 31274 400201095
+ 0.00000+ 0 6.61000+ 6          0          0          6          01274 400201096
+ 2.70000- 1 1.60000- 1 1.89800- 1 1.13000- 1 1.56000- 2 6.00000- 31274 400201097
+ 0.00000+ 0 6.62000+ 6          0          0          6          01274 400201098
+ 2.62570- 1 1.50000- 1 1.84600- 1 1.09250- 1 1.42000- 2 7.00000- 31274 400201099
+ 0.00000+ 0 6.65000+ 6          0          0          6          01274 400201100
+ 2.40290- 1 1.20000- 1 1.69000- 1 9.80000- 2 1.00000- 2 5.00000- 31274 400201101
+ 0.00000+ 0 6.68000+ 6          0          0          6          01274 400201102
+ 2.18000- 1 1.05000- 1 1.53400- 1 8.90000- 2 5.80000- 3 3.20000- 31274 400201103
+ 0.00000+ 0 6.70000+ 6          0          0          6          01274 400201104
+ 2.13800- 1 9.50000- 2 1.43000- 1 8.30000- 2 3.00000- 3 2.00000- 31274 400201105
+ 0.00000+ 0 6.73000+ 6          0          0          6          01274 400201106
+ 2.07510- 1 8.00000- 2 1.35800- 1 7.40000- 2-3.00000- 4 1.14000- 31274 400201107
+ 0.00000+ 0 6.80000+ 6          0          0          5          01274 400201108
+ 1.99870- 1 6.48300- 2 1.19000- 1 5.70000- 2-8.00000- 3           1274 400201109
+ 0.00000+ 0 6.85000+ 6          0          0          5          01274 400201110
+ 1.96440- 1 5.40000- 2 1.10000- 1 4.60000- 2-1.20000- 2           1274 400201111
+ 0.00000+ 0 6.95000+ 6          0          0          5          01274 400201112
+ 1.95860- 1 4.50000- 2 8.70000- 2 3.10000- 2-1.40000- 2           1274 400201113
+ 0.00000+ 0 6.97000+ 6          0          0          5          01274 400201114
+ 1.97000- 1 4.42000- 2 8.14000- 2 2.86000- 2-1.42000- 2           1274 400201115
+ 0.00000+ 0 7.00000+ 6          0          0          5          01274 400201116
+ 2.06750- 1 4.30000- 2 7.30000- 2 2.50000- 2-1.30000- 2           1274 400201117
+ 0.00000+ 0 7.05000+ 6          0          0          5          01274 400201118
+ 2.23000- 1 4.50000- 2 5.75000- 2 2.10000- 2-1.00000- 2           1274 400201119
+ 0.00000+ 0 7.11000+ 6          0          0          5          01274 400201120
+ 2.64000- 1 5.68000- 2 4.03300- 2 1.90000- 2-5.20000- 3           1274 400201121
+ 0.00000+ 0 7.13000+ 6          0          0          5          01274 400201122
+ 2.90000- 1 6.44000- 2 3.70000- 2 1.90000- 2-3.60000- 3           1274 400201123
+ 0.00000+ 0 7.15000+ 6          0          0          5          01274 400201124
+ 3.16000- 1 7.20000- 2 3.70000- 2 1.90000- 2-2.00000- 3           1274 400201125
+ 0.00000+ 0 7.16000+ 6          0          0          5          01274 400201126
+ 3.29000- 1 8.56000- 2 3.70000- 2 1.94000- 2-1.05000- 3           1274 400201127
+ 0.00000+ 0 7.17000+ 6          0          0          5          01274 400201128
+ 3.42000- 1 9.92000- 2 3.95000- 2 1.98000- 2-1.00000- 4           1274 400201129
+ 0.00000+ 0 7.20000+ 6          0          0          5          01274 400201130
+ 4.09850- 1 1.40000- 1 4.70000- 2 2.10000- 2 2.75000- 3           1274 400201131
+ 0.00000+ 0 7.25000+ 6          0          0          5          01274 400201132
+ 5.22920- 1 2.26670- 1 7.00000- 2 2.30000- 2 7.50000- 3           1274 400201133
+ 0.00000+ 0 7.30000+ 6          0          0          5          01274 400201134
+ 6.36000- 1 3.13330- 1 1.01500- 1 2.60000- 2 1.22500- 2           1274 400201135
+ 0.00000+ 0 7.32500+ 6          0          0          5          01274 400201136
+ 6.45000- 1 3.56670- 1 1.17250- 1 2.75000- 2 1.46300- 2           1274 400201137
+ 0.00000+ 0 7.35000+ 6          0          0          5          01274 400201138
+ 6.37000- 1 3.95000- 1 1.33000- 1 2.90000- 2 1.70000- 2           1274 400201139
+ 0.00000+ 0 7.39000+ 6          0          0          5          01274 400201140
+ 5.14330- 1 4.30000- 1 1.53800- 1 3.30000- 2 2.02000- 2           1274 400201141
+ 0.00000+ 0 7.40000+ 6          0          0          5          01274 400201142
+ 4.83670- 1 4.30000- 1 1.59000- 1 3.40000- 2 2.10000- 2           1274 400201143
+ 0.00000+ 0 7.44000+ 6          0          0          5          01274 400201144
+ 3.61000- 1 4.40000- 1 1.74200- 1 3.80000- 2 2.18000- 2           1274 400201145
+ 0.00000+ 0 7.45000+ 6          0          0          5          01274 400201146
+ 3.53670- 1 4.42000- 1 1.78000- 1 3.90000- 2 2.20000- 2           1274 400201147
+ 0.00000+ 0 7.50000+ 6          0          0          6          01274 400201148
+ 3.17000- 1 4.38000- 1 1.91500- 1 4.80000- 2 2.20000- 2 5.70000- 41274 400201149
+ 0.00000+ 0 7.55000+ 6          0          0          6          01274 400201150
+ 2.98000- 1 4.18000- 1 2.05000- 1 6.91800- 2 2.20000- 2 2.00000- 31274 400201151
+ 0.00000+ 0 7.58000+ 6          0          0          6          01274 400201152
+ 2.86600- 1 4.05000- 1 2.10140- 1 8.18800- 2 2.26000- 2 5.30000- 31274 400201153
+ 0.00000+ 0 7.60000+ 6          0          0          6          01274 400201154
+ 2.79000- 1 4.05860- 1 2.13570- 1 9.03500- 2 2.30000- 2 7.50000- 31274 400201155
+ 0.00000+ 0 7.63500+ 6          0          0          6          01274 400201156
+ 2.72200- 1 4.07370- 1 2.19570- 1 1.05180- 1 3.00000- 2 1.13500- 21274 400201157
+ 0.00000+ 0 7.67000+ 6          0          0          6          01274 400201158
+ 2.68000- 1 4.19560- 1 2.25570- 1 1.20000- 1 4.58300- 2 1.36700- 21274 400201159
+ 0.00000+ 0 7.70000+ 6          0          0          6          01274 400201160
+ 2.70100- 1 4.30000- 1 2.30710- 1 1.24800- 1 5.93900- 2 1.35000- 21274 400201161
+ 0.00000+ 0 7.74000+ 6          0          0          6          01274 400201162
+ 2.75000- 1 4.75200- 1 2.37570- 1 1.29250- 1 7.74800- 2 1.06900- 21274 400201163
+ 0.00000+ 0 7.75000+ 6          0          0          6          01274 400201164
+ 2.81250- 1 4.86500- 1 2.39290- 1 1.29880- 1 8.20000- 2 9.54000- 31274 400201165
+ 0.00000+ 0 7.77000+ 6          0          0          6          01274 400201166
+ 2.93750- 1 5.09100- 1 2.42710- 1 1.31120- 1 8.60000- 2 7.23000- 31274 400201167
+ 0.00000+ 0 7.78000+ 6          0          0          6          01274 400201168
+ 3.00000- 1 5.20400- 1 2.44430- 1 1.31750- 1 8.60000- 2 6.08000- 31274 400201169
+ 0.00000+ 0 7.79000+ 6          0          0          6          01274 400201170
+ 3.20910- 1 5.31700- 1 2.46140- 1 1.32380- 1 8.60000- 2 4.92000- 31274 400201171
+ 0.00000+ 0 7.80000+ 6          0          0          6          01274 400201172
+ 3.41820- 1 5.43000- 1 2.47860- 1 1.33000- 1 8.40000- 2 3.77000- 31274 400201173
+ 0.00000+ 0 7.81000+ 6          0          0          6          01274 400201174
+ 3.62730- 1 5.47670- 1 2.49570- 1 1.33070- 1 8.20000- 2 2.62000- 31274 400201175
+ 0.00000+ 0 7.83000+ 6          0          0          6          01274 400201176
+ 4.04550- 1 5.57000- 1 2.53000- 1 1.33200- 1 7.43300- 2 3.10000- 41274 400201177
+ 0.00000+ 0 7.85000+ 6          0          0          6          01274 400201178
+ 4.46360- 1 5.54330- 1 2.56430- 1 1.33330- 1 6.66700- 2-2.00000- 31274 400201179
+ 0.00000+ 0 7.89000+ 6          0          0          6          01274 400201180
+ 5.30000- 1 5.49000- 1 2.63290- 1 1.33600- 1 5.13300- 2-5.20000- 31274 400201181
+ 0.00000+ 0 7.90000+ 6          0          0          6          01274 400201182
+ 5.38950- 1 5.45600- 1 2.65000- 1 1.33670- 1 4.75000- 2-6.00000- 31274 400201183
+ 0.00000+ 0 7.93000+ 6          0          0          6          01274 400201184
+ 5.65780- 1 5.35400- 1 2.75750- 1 1.33870- 1 3.60000- 2-7.00000- 31274 400201185
+ 0.00000+ 0 7.95000+ 6          0          0          6          01274 400201186
+ 5.71730- 1 5.20000- 1 2.82910- 1 1.34000- 1 3.20000- 2-7.00000- 31274 400201187
+ 0.00000+ 0 7.96000+ 6          0          0          6          01274 400201188
+ 5.74710- 1 5.15000- 1 2.86500- 1 1.35200- 1 3.20000- 2-7.00000- 31274 400201189
+ 0.00000+ 0 7.97000+ 6          0          0          6          01274 400201190
+ 5.77680- 1 5.13000- 1 2.90080- 1 1.36400- 1 3.20000- 2-6.00000- 31274 400201191
+ 0.00000+ 0 8.00000+ 6          0          0          6          01274 400201192
+ 5.86610- 1 5.12000- 1 3.00830- 1 1.40000- 1 3.60000- 2-3.00000- 31274 400201193
+ 0.00000+ 0 8.04000+ 6          0          0          6          01274 400201194
+ 5.98510- 1 5.19620- 1 3.15160- 1 1.48000- 1 4.83100- 2 1.00000- 31274 400201195
+ 0.00000+ 0 8.06000+ 6          0          0          6          01274 400201196
+ 6.04460- 1 5.19000- 1 3.22320- 1 1.61000- 1 5.44600- 2 3.00000- 31274 400201197
+ 0.00000+ 0 8.09000+ 6          0          0          6          01274 400201198
+ 6.13390- 1 5.22640- 1 3.33070- 1 1.80500- 1 6.36900- 2 6.00000- 31274 400201199
+ 0.00000+ 0 8.12000+ 6          0          0          6          01274 400201200
+ 6.22310- 1 5.26290- 1 3.43820- 1 2.00000- 1 7.29200- 2 7.00000- 31274 400201201
+ 0.00000+ 0 8.13000+ 6          0          0          6          01274 400201202
+ 6.25290- 1 5.27500- 1 3.47400- 1 2.03600- 1 7.60000- 2 7.33000- 31274 400201203
+ 0.00000+ 0 8.15000+ 6          0          0          6          01274 400201204
+ 6.33720- 1 5.29930- 1 3.52600- 1 2.10800- 1 8.00000- 2 8.00000- 31274 400201205
+ 0.00000+ 0 8.16000+ 6          0          0          6          01274 400201206
+ 6.37930- 1 5.31140- 1 3.55200- 1 2.14400- 1 8.20000- 2 8.00000- 31274 400201207
+ 0.00000+ 0 8.17000+ 6          0          0          6          01274 400201208
+ 6.42150- 1 5.32360- 1 3.57800- 1 2.18000- 1 8.20000- 2 8.00000- 31274 400201209
+ 0.00000+ 0 8.19000+ 6          0          0          6          01274 400201210
+ 6.50570- 1 5.34790- 1 3.63000- 1 2.18000- 1 8.20000- 2 8.00000- 31274 400201211
+ 0.00000+ 0 8.20000+ 6          0          0          6          01274 400201212
+ 6.54790- 1 5.36000- 1 3.61220- 1 2.18000- 1 8.00000- 2 8.00000- 31274 400201213
+ 0.00000+ 0 8.21000+ 6          0          0          6          01274 400201214
+ 6.59000- 1 5.33000- 1 3.59440- 1 2.18000- 1 7.80000- 2 8.00000- 31274 400201215
+ 0.00000+ 0 8.22000+ 6          0          0          6          01274 400201216
+ 6.57000- 1 5.30000- 1 3.57670- 1 2.18000- 1 7.60000- 2 8.00000- 31274 400201217
+ 0.00000+ 0 8.25000+ 6          0          0          6          01274 400201218
+ 6.51000- 1 5.00000- 1 3.52330- 1 2.06670- 1 6.62500- 2 7.33000- 31274 400201219
+ 0.00000+ 0 8.30000+ 6          0          0          6          01274 400201220
+ 6.04080- 1 4.70000- 1 3.42220- 1 1.87780- 1 5.00000- 2 6.22000- 31274 400201221
+ 0.00000+ 0 8.31500+ 6          0          0          6          01274 400201222
+ 5.90000- 1 4.61000- 1 3.39190- 1 1.82110- 1 4.70000- 2 5.89000- 31274 400201223
+ 0.00000+ 0 8.35000+ 6          0          0          6          01274 400201224
+ 5.67440- 1 4.40000- 1 3.32110- 1 1.68890- 1 4.00000- 2 5.11000- 31274 400201225
+ 0.00000+ 0 8.40000+ 6          0          0          6          01274 400201226
+ 5.35210- 1 4.23500- 1 3.22000- 1 1.50000- 1 3.50000- 2 4.00000- 31274 400201227
+ 0.00000+ 0 8.45000+ 6          0          0          6          01274 400201228
+ 5.03330- 1 4.07000- 1 3.18720- 1 1.41000- 1 3.00000- 2 4.00000- 31274 400201229
+ 0.00000+ 0 8.50000+ 6          0          0          6          01274 400201230
+ 4.78100- 1 3.92670- 1 3.15430- 1 1.32000- 1 2.63300- 2 7.33000- 31274 400201231
+ 0.00000+ 0 8.60000+ 6          0          0          6          01274 400201232
+ 4.27640- 1 3.64000- 1 3.08870- 1 1.17170- 1 1.90000- 2 1.40000- 21274 400201233
+ 0.00000+ 0 8.69310+ 6          0          0          6          01274 400201234
+ 3.80660- 1 3.37310- 1 3.02750- 1 1.03360- 1 1.43200- 2 1.67100- 21274 400201235
+ 0.00000+ 0 8.70530+ 6          0          0          6          01274 400201236
+ 3.74500- 1 3.33810- 1 3.01950- 1 1.01550- 1 1.37100- 2 1.64800- 21274 400201237
+ 0.00000+ 0 8.83870+ 6          0          0          6          01274 400201238
+ 3.07180- 1 2.95570- 1 2.71170- 1 8.17600- 2 7.01000- 3 1.39800- 21274 400201239
+ 0.00000+ 0 8.90250+ 6          0          0          6          01274 400201240
+ 2.74990- 1 2.77280- 1 2.56450- 1 7.23000- 2 3.80000- 3 1.14500- 21274 400201241
+ 0.00000+ 0 8.95450+ 6          0          0          6          01274 400201242
+ 2.48750- 1 2.62380- 1 2.58180- 1 6.45900- 2 1.19000- 3 9.39000- 31274 400201243
+ 0.00000+ 0 8.99070+ 6          0          0          6          01274 400201244
+ 2.44500- 1 2.52000- 1 2.59380- 1 5.92200- 2-6.30000- 4 7.96000- 31274 400201245
+ 0.00000+ 0 9.08000+ 6          0          0          6          01274 400201246
+ 2.34000- 1 2.60840- 1 2.62350- 1 4.59700- 2-5.12000- 3 4.42000- 31274 400201247
+ 0.00000+ 0 9.10080+ 6          0          0          6          01274 400201248
+ 2.31560- 1 2.62900- 1 2.63040- 1 4.28900- 2-6.16000- 3 4.12000- 31274 400201249
+ 0.00000+ 0 9.11480+ 6          0          0          6          01274 400201250
+ 2.34810- 1 2.64280- 1 2.63510- 1 4.08100- 2-6.86000- 3 3.91000- 31274 400201251
+ 0.00000+ 0 9.17550+ 6          0          0          6          01274 400201252
+ 2.48890- 1 2.70290- 1 2.65530- 1 4.54500- 2-9.91000- 3 3.02000- 31274 400201253
+ 0.00000+ 0 9.98700+ 6          0          0          6          01274 400201254
+ 4.37140- 1 3.50610- 1 2.92500- 1 1.07450- 1-1.46000- 3-8.87000- 31274 400201255
+ 0.00000+ 0 1.00080+ 7          0          0          6          01274 400201256
+ 4.42010- 1 3.52690- 1 2.93200- 1 1.09050- 1-7.90000- 4-9.18000- 31274 400201257
+ 0.00000+ 0 1.01310+ 7          0          0          6          01274 400201258
+ 4.70540- 1 3.64860- 1 2.97290- 1 1.18450- 1 3.17000- 3-8.06000- 31274 400201259
+ 0.00000+ 0 1.03780+ 7          0          0          6          01274 400201260
+ 5.27840- 1 3.89310- 1 3.05500- 1 1.20600- 1 1.11200- 2-5.81000- 31274 400201261
+ 0.00000+ 0 1.05710+ 7          0          0          6          01274 400201262
+ 5.37450- 1 4.08410- 1 3.11920- 1 1.22280- 1 1.73300- 2-4.06000- 31274 400201263
+ 0.00000+ 0 1.09430+ 7          0          0          6          01274 400201264
+ 5.55980- 1 4.45230- 1 3.12400- 1 1.25520- 1 2.93100- 2-6.70000- 41274 400201265
+ 0.00000+ 0 1.09640+ 7          0          0          6          01274 400201266
+ 5.57020- 1 4.47310- 1 3.12420- 1 1.25700- 1 2.93700- 2-4.80000- 41274 400201267
+ 0.00000+ 0 1.13730+ 7          0          0          6          01274 400201268
+ 5.77390- 1 4.39970- 1 3.12950- 1 1.29260- 1 3.05400- 2 3.24000- 31274 400201269
+ 0.00000+ 0 1.31000+ 7          0          0          6          01274 400201270
+ 5.56690- 1 4.08990- 1 3.15160- 1 1.45430- 1 3.61200- 2 1.89500- 21274 400201271
+ 0.00000+ 0 1.50000+ 7          0          0          6          01274 400201272
+ 5.33910- 1 3.91260- 1 3.17590- 1 1.83700- 1 6.48100- 2 2.72500- 21274 400201273
+ 0.00000+ 0 2.00000+ 7          0          0          6          01274 400201274
+ 5.33910- 1 3.91260- 1 3.17590- 1 1.83700- 1 6.48100- 2 2.72500- 21274 400201275
+                                                                  1274 400001276
+ 6.01200+ 3 1.18969+ 1          0          1          0          01274 405101277
+ 0.00000+ 0 1.18970+ 1          0          2          0          01274 405101278
+ 0.00000+ 0 0.00000+ 0          0          0          1         731274 405101279
+         73          2                                            1274 405101280
+ 0.00000+ 0 4.80000+ 6          0          0          1          01274 405101281
+ 0.00000+ 0                                                       1274 405101282
+ 0.00000+ 0 5.25000+ 6          0          0          2          01274 405101283
+ 1.50000- 2 2.00000- 3                                            1274 405101284
+ 0.00000+ 0 5.37000+ 6          0          0          2          01274 405101285
+ 3.35000- 2 1.20000- 2                                            1274 405101286
+ 0.00000+ 0 5.47000+ 6          0          0          2          01274 405101287
+ 8.25000- 2 4.10000- 2                                            1274 405101288
+ 0.00000+ 0 5.59000+ 6          0          0          2          01274 405101289
+ 1.41000- 1 2.28400- 2                                            1274 405101290
+ 0.00000+ 0 5.67000+ 6          0          0          2          01274 405101291
+ 1.50000- 1 7.68000- 3                                            1274 405101292
+ 0.00000+ 0 5.73000+ 6          0          0          2          01274 405101293
+ 1.41000- 1-2.00000- 3                                            1274 405101294
+ 0.00000+ 0 5.83000+ 6          0          0          1          01274 405101295
+ 1.09240- 1                                                       1274 405101296
+ 0.00000+ 0 5.90000+ 6          0          0          2          01274 405101297
+ 8.70000- 2 1.00000- 2                                            1274 405101298
+ 0.00000+ 0 6.04000+ 6          0          0          2          01274 405101299
+ 7.60000- 2 5.26000- 2                                            1274 405101300
+ 0.00000+ 0 6.10000+ 6          0          0          2          01274 405101301
+ 8.80000- 2 7.45000- 2                                            1274 405101302
+ 0.00000+ 0 6.22000+ 6          0          0          3          01274 405101303
+ 1.48000- 1 1.15670- 1-5.50000- 3                                 1274 405101304
+ 0.00000+ 0 6.24000+ 6          0          0          3          01274 405101305
+ 1.44000- 1 1.18000- 1-8.00000- 3                                 1274 405101306
+ 0.00000+ 0 6.26000+ 6          0          0          3          01274 405101307
+ 6.08000- 2 1.12000- 1-1.55600- 2                                 1274 405101308
+ 0.00000+ 0 6.29000+ 6          0          0          3          01274 405101309
+-6.40000- 2 7.67500- 2-2.68900- 2                                 1274 405101310
+ 0.00000+ 0 6.33000+ 6          0          0          4          01274 405101311
+-6.10000- 2 2.97500- 2-4.20000- 2-1.00000- 3                      1274 405101312
+ 0.00000+ 0 6.34000+ 6          0          0          4          01274 405101313
+-5.40000- 2 1.80000- 2-4.30000- 2-1.33000- 3                      1274 405101314
+ 0.00000+ 0 6.37000+ 6          0          0          4          01274 405101315
+-3.30000- 2 1.70000- 2-4.20000- 2-3.63000- 3                      1274 405101316
+ 0.00000+ 0 6.38000+ 6          0          0          4          01274 405101317
+-2.60000- 2 1.80000- 2-3.10000- 2-5.26000- 3                      1274 405101318
+ 0.00000+ 0 6.40000+ 6          0          0          4          01274 405101319
+-1.20000- 2 3.91400- 2-9.00000- 3-8.53000- 3                      1274 405101320
+ 0.00000+ 0 6.45000+ 6          0          0          4          01274 405101321
+ 2.30000- 2 9.20000- 2-4.00000- 3-1.66800- 2                      1274 405101322
+ 0.00000+ 0 6.48000+ 6          0          0          4          01274 405101323
+ 4.40000- 2 9.70000- 2-5.43000- 3-2.15800- 2                      1274 405101324
+ 0.00000+ 0 6.54000+ 6          0          0          4          01274 405101325
+ 7.60000- 2 8.24300- 2-1.06500- 2-3.13700- 2                      1274 405101326
+ 0.00000+ 0 6.57500+ 6          0          0          4          01274 405101327
+ 7.20000- 2 7.65000- 2-1.37000- 2-3.46700- 2                      1274 405101328
+ 0.00000+ 0 6.68000+ 6          0          0          4          01274 405101329
+-1.60000- 2 6.65400- 2-1.60000- 2-3.42900- 2                      1274 405101330
+ 0.00000+ 0 6.73000+ 6          0          0          4          01274 405101331
+-1.80000- 2 6.45200- 2-1.50000- 2-3.53600- 2                      1274 405101332
+ 0.00000+ 0 6.83000+ 6          0          0          4          01274 405101333
+-4.80000- 3 6.49200- 2-7.94000- 3-4.90000- 2                      1274 405101334
+ 0.00000+ 0 6.93000+ 6          0          0          4          01274 405101335
+ 0.00000+ 0 6.80000- 2-2.00000- 3-4.35000- 2                      1274 405101336
+ 0.00000+ 0 6.98000+ 6          0          0          4          01274 405101337
+-1.50000- 3 6.80000- 2-7.48000- 3-4.07500- 2                      1274 405101338
+ 0.00000+ 0 7.03000+ 6          0          0          4          01274 405101339
+-4.00000- 3 5.93300- 2-1.86700- 2-3.80000- 2                      1274 405101340
+ 0.00000+ 0 7.08000+ 6          0          0          4          01274 405101341
+ 6.00000- 3 3.60000- 2-2.98600- 2-3.90000- 2                      1274 405101342
+ 0.00000+ 0 7.11000+ 6          0          0          4          01274 405101343
+ 2.40000- 2 2.20000- 2-3.65700- 2-3.96000- 2                      1274 405101344
+ 0.00000+ 0 7.13000+ 6          0          0          4          01274 405101345
+ 3.60000- 2 2.00000- 2-4.10500- 2-4.00000- 2                      1274 405101346
+ 0.00000+ 0 7.16000+ 6          0          0          4          01274 405101347
+ 4.40000- 2 2.06700- 2-4.77600- 2-3.25000- 2                      1274 405101348
+ 0.00000+ 0 7.22000+ 6          0          0          4          01274 405101349
+ 3.16000- 2 2.20000- 2-5.40000- 2-1.75000- 2                      1274 405101350
+ 0.00000+ 0 7.25000+ 6          0          0          4          01274 405101351
+ 6.40000- 3 7.23000- 3-5.24000- 2-1.00000- 2                      1274 405101352
+ 0.00000+ 0 7.28000+ 6          0          0          4          01274 405101353
+-1.88000- 2-7.54000- 3-5.00000- 2-6.25000- 3                      1274 405101354
+ 0.00000+ 0 7.31000+ 6          0          0          4          01274 405101355
+-4.40000- 2-2.23100- 2-4.28000- 2-2.50000- 3                      1274 405101356
+ 0.00000+ 0 7.33000+ 6          0          0          3          01274 405101357
+-4.38300- 2-3.21500- 2-3.80000- 2                                 1274 405101358
+ 0.00000+ 0 7.41500+ 6          0          0          3          01274 405101359
+-4.31300- 2-7.40000- 2-1.76000- 2                                 1274 405101360
+ 0.00000+ 0 7.43000+ 6          0          0          3          01274 405101361
+-4.30000- 2-7.48600- 2-1.40000- 2                                 1274 405101362
+ 0.00000+ 0 7.45000+ 6          0          0          3          01274 405101363
+-4.80000- 2-7.60000- 2-1.12000- 2                                 1274 405101364
+ 0.00000+ 0 7.48000+ 6          0          0          3          01274 405101365
+-7.15000- 2-7.42000- 2-7.00000- 3                                 1274 405101366
+ 0.00000+ 0 7.50000+ 6          0          0          3          01274 405101367
+-8.71700- 2-7.30000- 2-6.00000- 3                                 1274 405101368
+ 0.00000+ 0 7.57000+ 6          0          0          3          01274 405101369
+-1.42000- 1-4.92800- 2-9.11000- 3                                 1274 405101370
+ 0.00000+ 0 7.59000+ 6          0          0          3          01274 405101371
+-1.46000- 1-4.25000- 2-1.00000- 2                                 1274 405101372
+ 0.00000+ 0 7.63500+ 6          0          0          3          01274 405101373
+-1.47250- 1-2.72500- 2-6.00000- 3                                 1274 405101374
+ 0.00000+ 0 7.70000+ 6          0          0          4          01274 405101375
+-1.32000- 1-1.06700- 2 1.22000- 2 1.43000- 3                      1274 405101376
+ 0.00000+ 0 7.77000+ 6          0          0          4          01274 405101377
+-3.20000- 2-8.40000- 3 3.18000- 2 6.43000- 3                      1274 405101378
+ 0.00000+ 0 7.80000+ 6          0          0          4          01274 405101379
+-3.05000- 2-8.00000- 3 4.02000- 2 8.57000- 3                      1274 405101380
+ 0.00000+ 0 7.82000+ 6          0          0          4          01274 405101381
+-4.01400- 2 1.52000- 3 4.58000- 2 1.00000- 2                      1274 405101382
+ 0.00000+ 0 7.90000+ 6          0          0          4          01274 405101383
+-1.05290- 1 3.96200- 2 6.60000- 2 5.56000- 3                      1274 405101384
+ 0.00000+ 0 7.95000+ 6          0          0          4          01274 405101385
+-1.46000- 1 6.34300- 2 5.90000- 2 2.78000- 3                      1274 405101386
+ 0.00000+ 0 8.01000+ 6          0          0          4          01274 405101387
+-1.46000- 1 9.20000- 2 3.50000- 2-1.25000- 3                      1274 405101388
+ 0.00000+ 0 8.08000+ 6          0          0          4          01274 405101389
+-8.42400- 2 1.02270- 1 7.00000- 3-1.00000- 2                      1274 405101390
+ 0.00000+ 0 8.18000+ 6          0          0          5          01274 405101391
+ 4.00000- 3 1.08850- 1-3.30000- 2-2.25000- 2 1.83300- 2           1274 405101392
+ 0.00000+ 0 8.20000+ 6          0          0          5          01274 405101393
+ 1.20000- 2 1.09420- 1-4.10000- 2-2.50000- 2 2.20000- 2           1274 405101394
+ 0.00000+ 0 8.26000+ 6          0          0          5          01274 405101395
+ 3.60000- 2 1.11120- 1-5.50000- 2-1.92300- 2 2.63600- 2           1274 405101396
+ 0.00000+ 0 8.33000+ 6          0          0          5          01274 405101397
+ 5.80000- 2 1.16000- 1-5.14000- 2-1.25000- 2 2.95500- 2           1274 405101398
+ 0.00000+ 0 8.48000+ 6          0          0          5          01274 405101399
+ 9.08200- 2 1.56000- 1-1.40200- 2 2.71000- 3 2.61800- 2           1274 405101400
+ 0.00000+ 0 8.55000+ 6          0          0          5          01274 405101401
+ 1.04000- 1 1.70000- 1 4.82000- 3 1.21900- 2 2.46100- 2           1274 405101402
+ 0.00000+ 0 8.67500+ 6          0          0          5          01274 405101403
+ 1.03550- 1 1.85120- 1 3.40000- 2 2.91200- 2 2.18100- 2           1274 405101404
+ 0.00000+ 0 8.72810+ 6          0          0          5          01274 405101405
+ 1.03360- 1 1.82410- 1 2.97400- 2 2.83900- 2 2.06100- 2           1274 405101406
+ 0.00000+ 0 8.80000+ 6          0          0          5          01274 405101407
+ 5.49300- 2 1.78750- 1 2.39700- 2 2.31300- 2 1.90000- 2           1274 405101408
+ 0.00000+ 0 8.85000+ 6          0          0          4          01274 405101409
+ 2.12600- 2 1.76200- 1 1.99600- 2 1.94700- 2                      1274 405101410
+ 0.00000+ 0 9.04660+ 6          0          0          4          01274 405101411
+-1.11160- 1 1.66180- 1 4.19000- 3 5.09000- 3                      1274 405101412
+ 0.00000+ 0 9.09210+ 6          0          0          4          01274 405101413
+-9.22300- 2 1.63860- 1 5.40000- 4 3.99000- 3                      1274 405101414
+ 0.00000+ 0 9.27150+ 6          0          0          4          01274 405101415
+-1.75900- 2 1.54710- 1 3.81000- 3 8.36000- 3                      1274 405101416
+ 0.00000+ 0 9.91120+ 6          0          0          4          01274 405101417
+ 2.48540- 1 1.54330- 1 1.54500- 2 2.39300- 2                      1274 405101418
+ 0.00000+ 0 9.99460+ 6          0          0          4          01274 405101419
+ 2.35330- 1 1.54550- 1 1.69700- 2 2.59700- 2                      1274 405101420
+ 0.00000+ 0 1.09490+ 7          0          0          4          01274 405101421
+ 9.18700- 2 2.02380- 1 3.43400- 2 2.70900- 2                      1274 405101422
+ 0.00000+ 0 1.50000+ 7          0          0          4          01274 405101423
+ 1.64180- 1 2.08310- 1 2.01900- 2 2.50000- 4                      1274 405101424
+ 0.00000+ 0 2.00000+ 7          0          0          4          01274 405101425
+ 1.64180- 1 2.08310- 1 2.01900- 2 2.50000- 4                      1274 405101426
+                                                                  1274 400001427
+ 6.01200+ 3 1.18969+ 1          0          2          0          01274 409101428
+ 0.00000+ 0 0.00000+ 0          0          1          0          01274 409101429
+ 0.00000+ 0 0.00000+ 0          0          0          1          21274 409101430
+          2          2                                            1274 409101431
+ 0.00000+ 0 8.16000+ 6          0          0          1          21274 409101432
+          2          2                                            1274 409101433
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1274 409101434
+ 0.00000+ 0 2.00000+ 7          0          0          1          21274 409101435
+          2          2                                            1274 409101436
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1274 409101437
+                                                                  1274 400001438
+                                                                  1274 000001439
+ 6.01200+ 3 1.18969+ 1          0          0          1          01274 509101440
+ 7.92000+ 6 0.00000+ 0          0          9          1          21274 509101441
+          2          2                                            1274 509101442
+ 8.16000+ 6 1.00000+ 0 2.00000+ 7 1.00000+ 0                      1274 509101443
+ 0.00000+ 0 0.00000+ 0          0          0          1         371274 509101444
+         37          2                                            1274 509101445
+ 8.16000+ 6 7.62980+ 5 8.20000+ 6 7.65320+ 5 8.40000+ 6 7.74600+ 51274 509101446
+ 8.60000+ 6 7.83760+ 5 8.80000+ 6 7.92820+ 5 9.00000+ 6 8.01780+ 51274 509101447
+ 9.20000+ 6 8.10640+ 5 9.40000+ 6 8.19410+ 5 9.60000+ 6 8.28080+ 51274 509101448
+ 9.80000+ 6 8.36660+ 5 1.00000+ 7 8.45150+ 5 1.02000+ 7 8.53560+ 51274 509101449
+ 1.04000+ 7 8.61890+ 5 1.06000+ 7 8.70140+ 5 1.08000+ 7 8.78310+ 51274 509101450
+ 1.10000+ 7 8.86410+ 5 1.12000+ 7 8.94430+ 5 1.14000+ 7 9.02380+ 51274 509101451
+ 1.16000+ 7 9.10260+ 5 1.18000+ 7 9.18070+ 5 1.20000+ 7 9.25820+ 51274 509101452
+ 1.22000+ 7 9.33500+ 5 1.24000+ 7 9.41120+ 5 1.26000+ 7 9.48680+ 51274 509101453
+ 1.28000+ 7 9.56180+ 5 1.30000+ 7 9.63620+ 5 1.32000+ 7 9.71010+ 51274 509101454
+ 1.34000+ 7 9.78340+ 5 1.36000+ 7 9.85610+ 5 1.38000+ 7 9.92830+ 51274 509101455
+ 1.40000+ 7 1.00000+ 6 1.42000+ 7 1.00710+ 6 1.44000+ 7 1.01420+ 61274 509101456
+ 1.46000+ 7 1.02120+ 6 1.48000+ 7 1.02820+ 6 1.50000+ 7 1.03510+ 61274 509101457
+ 2.00000+ 7 1.03510+ 6                                            1274 509101458
+                                                                  1274 500001459
+                                                                  1274 000001460
+                                                                     0 000001879
+ 9.22350+ 4 2.33025+ 2          1          1          0         821261 145100001
+ 0.00000+ 0 0.00000+ 0          1          1        263          01261 145100002
+ 92-U -235 LASL,AI    EVAL-MAR74 L.STEWART, H.ALTER , R.HUNTER    1261 145100003
+                      DIST-JUL74 REV-JUN75                        1261 145100004
+PRINCIPAL EVALUATORS- L.STEWART LASL, H.ALTER AI, R.HUNTER LASL   1261 145100005
+                                                                  1261 145100006
+CONTRIBUTING EVALUATORS                                           1261 145100007
+                                                                  1261 145100008
+  NU-BAR--B.R. LEONARD BNW, L. STEWART AND RAY HUNTER LASL,       1261 145100009
+    HUMMEL ANL.                                                   1261 145100010
+  F.P.YIELDS--R.SCHENTER HEDL, FISSION PROD. SUBCOMMITTEE         1261 145100011
+  DELAYED NEUTRON DATA-- S.A.COX(ANL)                             1261 145100012
+  RADIOACTIVE DECAY DATA--C.W.REICH ANC                           1261 145100013
+  RESOLVED RESONANCE DATA--J.R. SMITH ANC, R. GWIN, R. PEELE, AND 1261 145100014
+    G.DESAUSSURE ORNL                                             1261 145100015
+ UNRESOLVED RESONANCE DATA-- R.PEELLE(ORNL) AND M.BHAT(BNL)       1261 145100016
+                                                                  1261 145100017
+  SMOOTH DATA                                                     1261 145100018
+                                                                  1261 145100019
+     THERMAL RANGE  C.LUBITZ KAPL, J.HARDY BAPL, B.R.LEONARD BNW  1261 145100020
+     82 EV -25 KEV--R.GWIN, G.DESAUSSURE ORNL, R.BLOCK RPI,       1261 145100021
+       J.R. SMITH ANC                                             1261 145100022
+     25 KEV-1 MEV A.CARLSON NBS, W.POENITZ ANL, L.STEWART         1261 145100023
+       LASL, H.ALTER                                              1261 145100024
+     1 MEV-20 MEV--R.HUNTER, L.STEWART LASL, H.ALTER              1261 145100025
+     INELASTIC SCAT--L.STEWART, R.HUNTER LASL                     1261 145100026
+     SECONDARY NEUTRON DIST.--L.STEWART, R.HUNTER LASL            1261 145100027
+     GAMMA PRODUCTION--R.HUNTER, L.STEWART LASL                   1261 145100028
+                                                                  1261 145100029
+ NO FORMAL REPORT AVAILABLE DESCRIBING THIS EVALUATION            1261 145100030
+                                                                  1261 145100031
+                                                                  1261 145100032
+                                                                  1261 145100033
+                             MF = 1                               1261 145100034
+                                                                  1261 145100035
+     MT=452                                                       1261 145100036
+  NU-BAR TOTAL                                                    1261 145100037
+                                                                  1261 145100038
+     NORMALIZED TO CF-252---SUGGESTED BY THERMAL TASK FORCE       1261 145100039
+                                                                  1261 145100040
+                                                                  1261 145100041
+     MT=453                                                       1261 145100042
+  INDUCED REACTION BRANCHING RATIOS                               1261 145100043
+                                                                  1261 145100044
+     NO DATA GIVEN                                                1261 145100045
+                                                                  1261 145100046
+                                                                  1261 145100047
+     MT=454                                                       1261 145100048
+  FISSION PRODUCT YIELD DATA                                      1261 145100049
+                                                                  1261 145100050
+  *        *          *          *          *          *          1261 145100051
+  FISSION PRODUCT YIELD DATA FOR ENDF/B-IV 8/74.      RECOMMENDED 1261 145100052
+  VALUES ARE GIVEN FROM THE YIELDS SUBCOMMITTEES OF THE DECAY HEAT1261 145100053
+  TASK FORCE. MEMBERS OF THE SUBCOMMITTEES INCLUDE W.WALKER(CH),  1261 145100054
+  P.ALINE,N.DUDEY,R.LARSEN,W.MAECK,W.MCELROY,B.RIDER,T.ENGLAND(CH)1261 145100055
+  A.WAHL AND K.WOLFSBERG. FINAL DIRECT YIELDS WERE GENERATED BY B.1261 145100056
+  RIDER USING METHODS DESCRIBED IN NEDO-12154 REV.1 JAN.74. ENDF/B1261 145100057
+  FILE PREP. AND MODIFICATIONS WERE MADE BY R.SCHENTER 8/74. PEAK 1261 145100058
+  CHAIN YIELDS ARE GIVEN AS                                       1261 145100059
+     ELAB=2.53E-02 EV     A-YCHAIN(PERCENT)=                      1261 145100060
+   872.55, 883.62, 894.84, 905.91, 915.92, 925.96, 936.37, 946.42,1261 145100061
+   956.46, 966.25, 975.96, 985.78, 996.12,1006.30,1015.04,1024.20,1261 145100062
+  1033.14,1312.83,1324.25,1336.79,1347.68,1356.60,1366.27,1376.27,1261 145100063
+  1386.82,1396.48,1406.32,1415.89,1425.93,1435.97,1445.45,1453.93,1261 145100064
+  1462.99,1472.27                                                 1261 145100065
+     ELAB=5.00E+05 EV     A-YCHAIN(PERCENT)=                      1261 145100066
+   872.41, 883.59, 894.56, 905.57, 915.59, 925.72, 936.10, 946.19,1261 145100067
+   956.38, 966.09, 975.96, 985.87, 995.70,1006.24,1015.42,1024.59,1261 145100068
+  1033.29,1042.31,1313.23,1324.65,1336.47,1347.62,1356.28,1366.24,1261 145100069
+  1376.16,1386.47,1396.33,1406.02,1415.99,1425.46,1435.70,1445.27,1261 145100070
+  1453.75,1462.90,1472.37                                         1261 145100071
+     ELAB=1.40E+07 EV     A-YCHAIN(PERCENT)=                      1261 145100072
+   872.41, 883.32, 893.97, 904.60, 914.81, 925.12, 935.21, 945.20,1261 145100073
+   955.05, 965.11, 975.47, 984.88, 995.10,1005.21,1014.42,1023.93,1261 145100074
+  1033.09,1042.28,1272.18,1282.37,1292.96,1303.44,1314.04,1324.63,1261 145100075
+  1335.48,1346.28,1355.38,1365.02,1374.92,1385.09,1394.83,1404.43,1261 145100076
+  1414.57,1424.88,1433.90,1443.23,1453.05,1462.37                 1261 145100077
+  *        *          *          *          *          *          1261 145100078
+                                                                  1261 145100079
+                                                                  1261 145100080
+                                                                  1261 145100081
+     MT=455                                                       1261 145100082
+  DELAYED NEUTRON YIELDS                                          1261 145100083
+     EVALUATION BY S.A.COX(ANL),L.STEWART(LASL),B.HUTCHINS(GEBRDO)1261 145100084
+     AND N.C.PAIK(WARD) SEE REPORT ANL/NDM-5 BY S.A.COX(ANL)      1261 145100085
+                                                                  1261 145100086
+                                                                  1261 145100087
+     MT=456                                                       1261 145100088
+  PROMPT NU-BAR                                                   1261 145100089
+                                                                  1261 145100090
+     NORMALIZED TO CF-252.  SUGGESTED BY THERMAL TASK FORCE       1261 145100091
+                                                                  1261 145100092
+                                                                  1261 145100093
+     MT=457                                                       1261 145100094
+  SPONTANEOUS RADIOACTIVE DECAY DATA                              1261 145100095
+                                                                  1261 145100096
+  EVALUATION BY C.W.REICH (ANC)    FEB74                          1261 145100097
+ REFERENCES  Q(ALPHA)- 1973 REVISION OF WAPSTRA-GOVE MASS TABLES  1261 145100098
+             HALF-LIFE- N.E. HOLDEN, CHART OF THE NUCLIDES (1973) 1261 145100099
+                         AND PRIVATE COMMUNICATION (JAN.,1974)    1261 145100100
+             GAMMA-RAY ENERGIES AND RELATIVE INTENSITIES - L.A.   1261 145100101
+              KROGER, PH.D. THESIS (UNIV. OF WYOMING, 1971) SEE   1261 145100102
+              ALSO, USAEC REPORT ANCR-1016, P.75 (1971).          1261 145100103
+             OTHER-  A. ARTNA-COHEN, NUCLEAR DATA B 6, NO.3, 287, 1261 145100104
+                      (1971).                                     1261 145100105
+    NOTE  AVG. E-ALPHA  = 4468. KEV.                              1261 145100106
+               THIS VALUE INCLUDES CONTRIBUTIONS FROM THE KINETIC 1261 145100107
+               ENERGY OF THE ALPHA PARTICLE AND THE RECOIL ENERGY 1261 145100108
+               OF THE DAUGHTER NUCLEUS.                           1261 145100109
+                                                                  1261 145100110
+                                                                  1261 145100111
+                             MF = 2                               1261 145100112
+                                                                  1261 145100113
+  RESOLVED RESONANCE REGION                                       1261 145100114
+        RESOLVED RESONANCE REGION REMAINS UNCHANGED FROM ENDF/B-3.1261 145100115
+        ANC REPORT BY  J.R.SMITH                                  1261 145100116
+                                                                  1261 145100117
+ UNRESOLVED RESONANCE DATA--R. PEELLE (ORNL), M. BHAT (BNL)       1261 145100118
+                                                                  1261 145100119
+   82 EV-25 KEV                                                   1261 145100120
+                                                                  1261 145100121
+   PARAMETERS ARE GIVEN AT 120 ENERGY POINTS.  LOCAL-AVERAGE PA-  1261 145100122
+   RAMETERS ARE CONSTANT OVER THE RANGE FOR P-WAVE RESONANCES,    1261 145100123
+   SPINS 2-5, AND HAVE THE SAME VALUES GIVEN FOR ENDF/B-111.  FOR 1261 145100124
+   S-WAVE LOCAL-AVERAGE PARAMETERS (J=3,4), THE GAMMA-RAY WIDTHS  1261 145100125
+   WERE KEPT AT THE ENDF/B-111 VALUE OF 35 MV, WHILE THE          1261 145100126
+   WIDTHS WERE VARIED TO PRODUCE A FIT TO THE APPARENT GROSS      1261 145100127
+   STRUCTURE IN THE CROSS SECTIONS EVALUATED BY LOOKING AT THE    1261 145100128
+   FEATURES COMMON TO SEVERAL EXPERIMENTAL MEASUREMENTS.  FITS    1261 145100129
+   WERE PRODUCED USING THE CODE UR.  THE S-WAVE POTENTIAL SCAT-   1261 145100130
+   TERING RADIUS WAS TAKEN AS .95663X10-12 CM, GIVING A POTEN-    1261 145100131
+   TIAL SCATTERING CROSS SECTION OF 11.5 B, JUST AS IN THE        1261 145100132
+   RESOLVED RANGE, TO PRODUCE ACCEPTABLE 5 PERCENT AGREEMENT WITH 1261 145100133
+   AVERAGE SIGMA TOTALS.  THE CROSS SECTIONS INPUT TO THE FIT     1261 145100134
+   WERE ADJUSTED TO YIELD THE EVALUATED AVERAGE CAP. AND FIS.     1261 145100135
+   CROSS SECTIONS GIVEN BELOW, IF THE CROSS SECTIONS ARE LINEARLY 1261 145100136
+   INTERPOLATED BETWEEN THE POINTS GIVEN.  IF A PROCESSING CODE   1261 145100137
+   LINEARLY INTERPOLATES PARAMETERS BETWEEN THESE ENERGY POINTS,  1261 145100138
+   THE RESULTING AVERAGE FIS. CROSS SECTIONS ARE TOO HIGH, FOR    1261 145100139
+   DECIMAL INTERVALS BY UP TO .7 PERCENT AND CAP. CROSS SECTIONS  1261 145100140
+   AVERAGED OVER THESE INTERVALS ARE TOO LO BY UP TO 1.3 PERCENT. 1261 145100141
+   INTEGRAL CROSS SECTIONS UP TO 1 KEV ARE HI AND LO BY 0.3 AND   1261 145100142
+   0.7 PERCENT AND THE INTEGRALS FROM 1 KEV UP ARE HI AND LO BY   1261 145100143
+   0.16 AND 0.24 PERCENT.  THE EVALUATED AVERAGE FIS. CROSS       1261 145100144
+   SECTIONS WERE NORMALIZED TO A 2200 M/SEC VALUE OF 584.5 B,     1261 145100145
+   AND HAVE A SHAPE DETERMINED BY COMBINING DATA FROM REFERENCES  1261 145100146
+   27-31 IN APPROPRIATE ENERGY RANGES.  AVERAGE (UNIT WEIGHT)     1261 145100147
+   CAP. CROSS SECTIONS WERE COMBINED FROM REFERENCES 28,30 AND    1261 145100148
+   31.  THE EVALUATED AVERAGE CROSS SECTIONS GIVEN BELOW ARE      1261 145100149
+   TAKEN FROM REFERENCE, REF. 32.                                 1261 145100150
+                                                                  1261 145100151
+  ELO EHI FIS.  CAP.   ELO EHI  FIS.   CAP.   ELO EHI FIS. CAP.   1261 145100152
+   (KEV)  (B)   (B)     (KEV)   (B)    (B)     (KEV)  (B)  (B)    1261 145100153
+  .08 .10 25.05 15.70   0.7 0.8 11.11  4.91    5.  6. 3.80 1.42   1261 145100154
+  .10 .15 22.50 12.80   0.8 0.9  8.25  4.15    6.  7. 3.41 1.40   1261 145100155
+  .15 .20 19.50 11.00   0.9 1.0  7.55  5.05    7.  8. 3.15 1.33   1261 145100156
+  .20 .25 21.50 10.70   1.0 1.5  8.07  3.40    8.  9. 3.01 1.45   1261 145100157
+  .25 .30 19.50  7.10   1.5 2.0  6.57  2.56    9. 10. 3.05 1.25   1261 145100158
+  .30 .40 13.12  6.56   2.0 2.5  5.49  2.20   10. 15. 2.65 1.08   1261 145100159
+  .40 .50 13.59  4.83   2.5 3.0  5.15  1.74   15. 20. 2.31  .90   1261 145100160
+  .50 .60 15.22  4.62   3.0 4.0  4.75  1.62   20. 25. 2.19  .87   1261 145100161
+  .60 .70 11.50  4.67   4.0 5.0  4.27  1.53                       1261 145100162
+                                                                  1261 145100163
+   THE SHAPES OF THESE CROSS SECTIONS ARE BASED ON THE 10-BORON   1261 145100164
+   (N,ALPHA) REACTIONS AS GIVEN IN ENDF/B-111.  OVERALL UNCER-    1261 145100165
+   TAINTIES IN THE EVALUATED AVERAGE CROSS SECTION ARE ESTIMATED  1261 145100166
+   AS 3 PERCENT IN FIS. AND 8 PERCENT IN CAP. AS DETAILED IN THE  1261 145100167
+   COMPLETED DOCUMENTATION.  THE CONTRIBUTIONS TO THESE UNCERTAIN-1261 145100168
+   TIES WHICH ARE HIGHLY CORRELATED OVER THE WHOLE ENERGY RANGE   1261 145100169
+   ARE 2 PERCENT FOR FIS. AND 7 PERCENT FOR CAPT.  FOR ADDITIONAL 1261 145100170
+   DETAILS SEE REF 32 OR THE COMPLETE DOCUMENTATION REPORT.       1261 145100171
+                                                                  1261 145100172
+                             MF = 3                               1261 145100173
+                                                                  1261 145100174
+  SMOOTH DATA                                                     1261 145100175
+       THERMAL DATA---THERMAL TASK FORCE                          1261 145100176
+       1 EV   TO 82 EV    J. R. SMITH                             1261 145100177
+       82 EV TO 25 KEV    PEELLE, BHAT                            1261 145100178
+       25 KEV TO 100 KEV  BIG THREE PLUS TWO TASK FORCE           1261 145100179
+       100KEV TO 1 MEV---FISSION CROSS SECTION TAKEN AS CURVE     1261 145100180
+     SUGGESTED BY U-235 TASK FORCE AND CSEWG STANDARDS AND        1261 145100181
+     NORMALIZATION SUBCOMMITTEE. IN THIS ENERGY REGION DATA TAKEN 1261 145100182
+     FROM REFERENCES 1 THROUGH 9. DATA OF REF.4 SZABO (71) RAISED 1261 145100183
+     BY 1.04. BETWEEN 1 AND 6 MEV CURVE DRAWN THROUGH DATA OF     1261 145100184
+     REFERENCES 3, 5, AND 7 THROUGH 11, WITH HEAVY WEIGHT GIVEN TO1261 145100185
+     REF. 11. ABOVE 6 MEV CURVE DRAWN THROUGH DATA OF REFERENCES  1261 145100186
+     7, 8, 12 AND 13. DATA OF REFS. 12 AND 13 NORMALIZED TO 2.152 1261 145100187
+     BARNS AT 14.0 MEV.---ALPHA CURVE BETWEEN 10 KEV AND 10 MEV   1261 145100188
+     BASED ON REFERENCES 1 AND 14 THROUGH 19 AS RECOMMENDED BY    1261 145100189
+     U-235 TASK FORCE. ABOVE 1 MEV ALPHA CURVE SMOOTHLY           1261 145100190
+     EXTRAPOLATED TO 20 MEV.---CAPTURE CROSS SECTION DERIVED AS   1261 145100191
+     THE PRODUCT OF THE FISSION CROSS SECTION WITH ALPHA---ABOVE  1261 145100192
+     0.5 MEV TOTAL CROSS SECTION TAKEN FROM SPLINE FIT TO DATA OF 1261 145100193
+     REFERENCES 20 AND 21. BETWEEN 25 KEV AND 0.5 MEV A SMOOTH    1261 145100194
+     CURVE WAS FIT TO THE TOTAL CROSS SECTION OF ENDF/B-3.        1261 145100195
+                                                                  1261 145100196
+                            MF = 4                                1261 145100197
+                                                                  1261 145100198
+  ANGULAR DISTRIBUTIONS                                           1261 145100199
+        ELASTIC SCATTERING ANGULAR DATA TAKEN FROM EVALUATION     1261 145100200
+     OF REFERENCE 22, HUNTER.---ANGULAR DISTRIBUTION DATA FOR     1261 145100201
+     NONISOTROPIC INELASTIC LEVELS (MT=61-66) BASED PRIMARILY ON  1261 145100202
+     WORK OF KAMMERDIENER, REF. 23. ALL INELASTIC DATA BELOW      1261 145100203
+     5 MEV TAKEN TO BE ISOTROPIC. ANGULAR DISTRIBUTIONS FOR ALL   1261 145100204
+     OTHER NEUTRON REACTIONS ARE ASSUMED ISOTROPIC, EXCEPT FOR    1261 145100205
+     DIRECT INTERACTION CROSS SECTIONS ABOVE 4 MEV FOR MT=61-66.  1261 145100206
+                                                                  1261 145100207
+                           MF = 5                                 1261 145100208
+                                                                  1261 145100209
+  ENERGY DISTRIBUTIONS                                            1261 145100210
+     FISSION--THERMAL-- T=1.323 MEV AS RECOMMENDED BY THERMAL TASK1261 145100211
+     FORCE.---AT 14 MEV-- T=1.50 AS APPROXIMATED FROM SLOPE OF    1261 145100212
+     PU-239 DATA. EXCEPT FOR DISCRETE INELASTIC, ALL INELASTIC,   1261 145100213
+     (N, 2N) ETC. REPRESENTED BY TEMPERATURE MODELS.              1261 145100214
+   NOTE                                                           1261 145100215
+   MT=19-21 SHOULD BE USED IN PLACE OF MT=18                      1261 145100216
+   IF RESULTS ARE SENSITIVE TO FISSIONS CAUSED                    1261 145100217
+   BY NEUTRONS OF 6 MEV OR GREATER.                               1261 145100218
+                                                                  1261 145100219
+                           MF = 12-15                             1261 145100220
+                                                                  1261 145100221
+  GAMMA PRODUCTION                                                1261 145100222
+        DATA TAKEN FROM STEWART, REF. 24. CROSS SECTIONS BASED ON 1261 145100223
+     NEUTRON FILES (MF=2, 3) AND CALCULATED MULTIPLICITIES BELOW  1261 145100224
+     1.09 MEV. ABOVE 1.09 MEV DATA BASED ON DRAKE, REF. 25, AND   1261 145100225
+     NELLIS, REF. 26.                                             1261 145100226
+                                                                  1261 145100227
+                           REFERENCES                             1261 145100228
+                                                                  1261 145100229
+ 1. GWIN, R., ET.AL. PRIVATE COMMUNICATION (ORNL,1973)            1261 145100230
+ 2. KAPPELER,F.SYMPOSIUM NEUT.STDS., (ANL) CONF.701002, 272(1970) 1261 145100231
+ 3. SZABO,I., ET.AL., (AS REF.5) CONF-701002, 257(1970)           1261 145100232
+ 4. SZABO,I., ET.AL., KNOXVILLE CONF. VOL.2 573(1971)             1261 145100233
+ 5. KAPPELER,F., 2ND IAEA PANEL STANDARD X-SECTIONS,VIENNA(1972)  1261 145100234
+ 6. GAYTHER, D.B., ET.AL., (AS REF.8) (1972)                      1261 145100235
+ 7. HANSEN, G., ET.AL., PRIVATE COMMUNICATION,L.STEWART(LASL 1970)1261 145100236
+ 8. WHITE, P.H.., J.NUCL.ENERGY 19,325(1965)                      1261 145100237
+ 9. DIVEN, B.C., PHYS.REV.105,1350(1957)                          1261 145100238
+10. POENITZ, W., PRIVATE COMMUNICATION (ANL,1973)                 1261 145100239
+11. HANSEN, G., ET.AL., PRIVATE COMMUNICATION,L.STEWART (1972)    1261 145100240
+12. PANKRATOV, V.M., ET.AL., J.NUCL.ENERGY 16,494 (1962)          1261 145100241
+13. PANKRATOV, V.M., ET.AL., SOVIET J.AT.ENERGY 14,167 (1963)     1261 145100242
+14. DESAUSSURE, G., ET.AL., PARIS 1966, IAEA 2,233 (1967)         1261 145100243
+15. CZIRR, J.B., ET.AL., HELSINKI 1970, IAEA 1,331 (1970)         1261 145100244
+16. PEREZ, R.B., ET.AL., ORNL-TM-3696 (1972)                      1261 145100245
+17. BANDL, R.E., ET.AL., NSE 48,324 (1972)                        1261 145100246
+18. KONONOV, V.N., ET.AL., INDC(CCP)-21L, (1971)                  1261 145100247
+19. KUROV, M.A., ET.AL., J. SOVIET AT.ENRGY. 315,(MARCH 1971)     1261 145100248
+20. HEATON, P.C., ET.AL., PRIVATE COMMUNICATION (NBS,1972)        1261 145100249
+21. FOSTER, D.G., ET.AL., PHYS.REV.C3,576 (1971)                  1261 145100250
+22. HUNTER, R.E., STEWART, L., HIRONS T.J., LA-5173 (1973)        1261 145100251
+23. KAMMERDIENER, J.L., UCRL-51232 (1972)                         1261 145100252
+24. HUNTER, R.E., STEWART, L., LA-4901 (1972)                     1261 145100253
+25. DRAKE, D.M., HOPKINS, J.C., YOUNG, C.S. AND CONDE, H.,        1261 145100254
+      NSE 40. 290 (1970)                                          1261 145100255
+26. NELLIS, D.O., AND MORGAN, I.L., ORD-2791-17 (1966).           1261 145100256
+      ALSO BUCHANAN, P.S., ORO-2791-28 (1969)                     1261 145100257
+ 27. DE-UYTTER,P-OCC CONFC N0+L. DATA +O  -EACT--S0 0OL  T8 +9    1261 145100258
+     (1970).                                                      1261 145100259
+ 28. DESAUSSURE ET AL., ORNL-TM-1804 (1967).                      1261 145100260
+ 29. BLONSTNUCL. SC+. EN+C     1 0 U1 93 H8                       1261 145100261
+ 30. PEREZ ET AL., NUCL. SCI. ENG. 52, 46 (1973).                 1261 145100262
+ 31. GWIN, LETTER TO R. A. DANNELS, NNCSC, 12-20-72.              1261 145100263
+ 32. R. W. PEELLE, ORNL, LETTER TO CSEWG, 9-24-73.                1261 145100264
+                                                                  1261 145100265
+                                1        451        347           1261 145100266
+                                1        452          6           1261 145100267
+                                1        453          9           1261 145100268
+                                1        454       1699           1261 145100269
+                                1        455          8           1261 145100270
+                                1        456          6           1261 145100271
+                                1        457         60           1261 145100272
+                                2        151        871           1261 145100273
+                                3          1        388           1261 145100274
+                                3          2        339           1261 145100275
+                                3          3        315           1261 145100276
+                                3          4        127           1261 145100277
+                                3         16         26           1261 145100278
+                                3         17          9           1261 145100279
+                                3         18        273           1261 145100280
+                                3         19        252           1261 145100281
+                                3         20         18           1261 145100282
+                                3         21         10           1261 145100283
+                                3         51         11           1261 145100284
+                                3         52         15           1261 145100285
+                                3         53         14           1261 145100286
+                                3         54         14           1261 145100287
+                                3         55         13           1261 145100288
+                                3         56         13           1261 145100289
+                                3         57         12           1261 145100290
+                                3         58         12           1261 145100291
+                                3         59         11           1261 145100292
+                                3         60         10           1261 145100293
+                                3         61         40           1261 145100294
+                                3         62         34           1261 145100295
+                                3         63         31           1261 145100296
+                                3         64         28           1261 145100297
+                                3         65         24           1261 145100298
+                                3         66         18           1261 145100299
+                                3         91         44           1261 145100300
+                                3        102        260           1261 145100301
+                                3        251         10           1261 145100302
+                                3        252         10           1261 145100303
+                                3        253         10           1261 145100304
+                                4          2        135           1261 145100305
+                                4         16         10           1261 145100306
+                                4         17         10           1261 145100307
+                                4         18         10           1261 145100308
+                                4         19         10           1261 145100309
+                                4         20         10           1261 145100310
+                                4         21         10           1261 145100311
+                                4         51         10           1261 145100312
+                                4         52         10           1261 145100313
+                                4         53         10           1261 145100314
+                                4         54         10           1261 145100315
+                                4         55         10           1261 145100316
+                                4         56         10           1261 145100317
+                                4         57         10           1261 145100318
+                                4         58         10           1261 145100319
+                                4         59         10           1261 145100320
+                                4         60         10           1261 145100321
+                                4         61         31           1261 145100322
+                                4         62         31           1261 145100323
+                                4         63         31           1261 145100324
+                                4         64         31           1261 145100325
+                                4         65         31           1261 145100326
+                                4         66         31           1261 145100327
+                                4         91         10           1261 145100328
+                                5         16         15           1261 145100329
+                                5         17         11           1261 145100330
+                                5         18          7           1261 145100331
+                                5         19          7           1261 145100332
+                                5         20         28           1261 145100333
+                                5         21         22           1261 145100334
+                                5         91          7           1261 145100335
+                                5        455        107           1261 145100336
+                               12          4        253           1261 145100337
+                               12         18          5           1261 145100338
+                               12        102          5           1261 145100339
+                               13          3          7           1261 145100340
+                               14          3          1           1261 145100341
+                               14          4          1           1261 145100342
+                               14         18          1           1261 145100343
+                               14        102          1           1261 145100344
+                               15          3        136           1261 145100345
+                               15         18         54           1261 145100346
+                               15        102         58           1261 145100347
+                                                                  1261 100000348
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 145200349
+ 0.00000+ 0 0.00000+ 0          0          0          1          71261 145200350
+          7          2                                            1261 145200351
+ 1.00000- 5 2.41880+ 0 1.20000+ 6 2.57130+ 0 3.00000+ 6 2.78010+ 01261 145200352
+ 4.00000+ 6 2.94430+ 0 7.00000+ 6 3.42930+ 0 7.85000+ 6 3.56890+ 01261 145200353
+ 2.00000+ 7 5.19620+ 0                                            1261 145200354
+                                                                  1261 100000355
+ 9.22350+ 4 2.33025+ 2          0          0          1          01261 145300356
+ 9.22350+ 4 2.33025+ 2          0          0          2          31261 145300357
+ 1.00000- 5 2.00000+ 7                                            1261 145300358
+ 0.00000+ 0-5.23000+ 6          0          0          5          01261 145300359
+ 1.60000+ 1 9.22340+ 4 8.85890-14 1.00000+ 0 1.00000+ 0           1261 145300360
+ 0.00000+ 0-1.18500+ 7          0          0          5          01261 145300361
+ 1.70000+ 1 9.22330+ 4 1.61540-13 1.00000+ 0 1.00000+ 0           1261 145300362
+ 0.00000+ 0 6.54510+ 6          0          0          5          01261 145300363
+ 1.02000+ 2 9.22360+ 4 9.19250-16 1.00000+ 0 1.00000+ 0           1261 145300364
+                                                                  1261 100000365
+ 9.22350+ 4 2.33025+ 2          3          0          0          01261 145400366
+ 2.53000- 2 0.00000+ 0          2          0       3390       11301261 145400367
+ 2.40660+ 4 0.00000+ 0 2.51136-13 2.40670+ 4 0.00000+ 0 7.69417-141261 145400368
+ 2.40680+ 4 0.00000+ 0 0.00000+ 0 2.40700+ 4 0.00000+ 0 0.00000+ 01261 145400369
+ 2.50660+ 4 0.00000+ 0 2.74149-11 2.50670+ 4 0.00000+ 0 2.65144-111261 145400370
+ 2.50680+ 4 0.00000+ 0 6.99379-12 2.50690+ 4 0.00000+ 0 1.16063-121261 145400371
+ 2.50700+ 4 0.00000+ 0 1.29070-13 2.50710+ 4 0.00000+ 0 1.00054-141261 145400372
+ 2.60660+ 4 0.00000+ 0 3.83208-10 2.60670+ 4 0.00000+ 0 1.06058- 91261 145400373
+ 2.60680+ 4 0.00000+ 0 8.37454-10 2.60690+ 4 0.00000+ 0 4.31234-101261 145400374
+ 2.60700+ 4 0.00000+ 0 1.54084-10 2.60710+ 4 0.00000+ 0 3.88211-111261 145400375
+ 2.60720+ 4 0.00000+ 0 1.00054-11 2.60730+ 4 0.00000+ 0 6.19336-141261 145400376
+ 2.60740+ 4 0.00000+ 0 1.35073-13 2.60760+ 4 0.00000+ 0 0.00000+ 01261 145400377
+ 2.70660+ 4 0.00000+ 0 2.10114-10 2.70670+ 4 0.00000+ 0 1.52083- 91261 145400378
+ 2.70680+ 4 0.00000+ 0 3.19173- 9 2.70690+ 4 0.00000+ 0 4.57248- 91261 145400379
+ 2.70700+ 4 0.00000+ 0 4.77259- 9 2.70710+ 4 0.00000+ 0 3.66199- 91261 145400380
+ 2.70720+ 4 0.00000+ 0 2.89157- 9 2.70730+ 4 0.00000+ 0 1.72093-101261 145400381
+ 2.70740+ 4 0.00000+ 0 4.26231-10 2.70750+ 4 0.00000+ 0 7.17389-111261 145400382
+ 2.70760+ 4 0.00000+ 0 7.21391-12 2.80660+ 4 0.00000+ 0 1.85100-111261 145400383
+ 2.80670+ 4 0.00000+ 0 3.75204-10 2.80680+ 4 0.00000+ 0 2.11115- 91261 145400384
+ 2.80690+ 4 0.00000+ 0 7.87427- 9 2.80700+ 4 0.00000+ 0 2.17118- 81261 145400385
+ 2.80710+ 4 0.00000+ 0 4.50244- 8 2.80720+ 4 0.00000+ 0 9.79531- 81261 145400386
+ 2.80730+ 4 0.00000+ 0 4.92267- 8 2.80740+ 4 0.00000+ 0 1.37074- 71261 145400387
+ 2.80750+ 4 0.00000+ 0 7.34398- 8 2.80760+ 4 0.00000+ 0 2.47134- 81261 145400388
+ 2.80770+ 4 0.00000+ 0 3.24176- 9 2.80780+ 4 0.00000+ 0 4.40239-101261 145400389
+ 2.80800+ 4 0.00000+ 0 5.95323-13 2.80820+ 4 0.00000+ 0 0.00000+ 01261 145400390
+ 2.90660+ 4 0.00000+ 0 4.64252-14 2.90670+ 4 0.00000+ 0 2.91158-121261 145400391
+ 2.90680+ 4 0.00000+ 0 2.46134-11 2.90680+ 4 1.00000+ 0 2.48135-111261 145400392
+ 2.90690+ 4 0.00000+ 0 5.28287-10 2.90700+ 4 0.00000+ 0 1.98107- 91261 145400393
+ 2.90700+ 4 1.00000+ 0 1.98107- 9 2.90710+ 4 0.00000+ 0 2.18118- 81261 145400394
+ 2.90720+ 4 0.00000+ 0 1.22066- 7 2.90730+ 4 0.00000+ 0 4.10223- 71261 145400395
+ 2.90740+ 4 0.00000+ 0 1.27069- 6 2.90750+ 4 0.00000+ 0 1.98107- 61261 145400396
+ 2.90760+ 4 0.00000+ 0 2.08113- 6 2.90770+ 4 0.00000+ 0 8.55464- 71261 145400397
+ 2.90780+ 4 0.00000+ 0 3.85209- 7 2.90790+ 4 0.00000+ 0 4.60250- 81261 145400398
+ 2.90800+ 4 0.00000+ 0 6.61359- 9 2.90810+ 4 0.00000+ 0 3.44187-101261 145400399
+ 2.90820+ 4 0.00000+ 0 9.81533-12 3.00660+ 4 0.00000+ 0 0.00000+ 01261 145400400
+ 3.00670+ 4 0.00000+ 0 0.00000+ 0 3.00680+ 4 0.00000+ 0 1.33072-131261 145400401
+ 3.00690+ 4 0.00000+ 0 2.26123-12 3.00690+ 4 1.00000+ 0 2.31125-121261 145400402
+ 3.00700+ 4 0.00000+ 0 1.04056-10 3.00710+ 4 0.00000+ 0 8.40456-101261 145400403
+ 3.00710+ 4 1.00000+ 0 8.44458-10 3.00720+ 4 0.00000+ 0 2.54138- 81261 145400404
+ 3.00730+ 4 0.00000+ 0 5.67308- 7 3.00740+ 4 0.00000+ 0 1.96106- 61261 145400405
+ 3.00750+ 4 0.00000+ 0 7.88428- 6 3.00760+ 4 0.00000+ 0 2.29825- 51261 145400406
+ 3.00770+ 4 0.00000+ 0 2.67745- 5 3.00780+ 4 0.00000+ 0 3.66999- 51261 145400407
+ 3.00790+ 4 0.00000+ 0 1.47980- 5 3.00800+ 4 0.00000+ 0 7.19390- 61261 145400408
+ 3.00810+ 4 0.00000+ 0 1.26068- 6 3.00820+ 4 0.00000+ 0 1.26068- 71261 145400409
+ 3.00830+ 4 0.00000+ 0 9.72528- 9 3.00840+ 4 0.00000+ 0 1.24067-101261 145400410
+ 3.00860+ 4 0.00000+ 0 6.36345-14 3.10660+ 4 0.00000+ 0 0.00000+ 01261 145400411
+ 3.10670+ 4 0.00000+ 0 0.00000+ 0 3.10680+ 4 0.00000+ 0 0.00000+ 01261 145400412
+ 3.10690+ 4 0.00000+ 0 0.00000+ 0 3.10700+ 4 0.00000+ 0 6.98379-141261 145400413
+ 3.10710+ 4 0.00000+ 0 3.63197-12 3.10720+ 4 0.00000+ 0 1.67091-101261 145400414
+ 3.10730+ 4 0.00000+ 0 2.99162- 8 3.10740+ 4 0.00000+ 0 1.14062- 71261 145400415
+ 3.10750+ 4 0.00000+ 0 1.28069- 6 3.10760+ 4 0.00000+ 0 1.01355- 51261 145400416
+ 3.10770+ 4 0.00000+ 0 4.48043- 5 3.10780+ 4 0.00000+ 0 1.25038- 41261 145400417
+ 3.10790+ 4 0.00000+ 0 1.37365- 4 3.10800+ 4 0.00000+ 0 2.04761- 41261 145400418
+ 3.10810+ 4 0.00000+ 0 1.11821- 4 3.10820+ 4 0.00000+ 0 3.73603- 51261 145400419
+ 3.10830+ 4 0.00000+ 0 9.31505- 6 3.10840+ 4 0.00000+ 0 4.42240- 71261 145400420
+ 3.10860+ 4 0.00000+ 0 2.77150- 9 3.20660+ 4 0.00000+ 0 0.00000+ 01261 145400421
+ 3.20670+ 4 0.00000+ 0 0.00000+ 0 3.20680+ 4 0.00000+ 0 0.00000+ 01261 145400422
+ 3.20690+ 4 0.00000+ 0 0.00000+ 0 3.20700+ 4 0.00000+ 0 0.00000+ 01261 145400423
+ 3.20710+ 4 0.00000+ 0 0.00000+ 0 3.20720+ 4 0.00000+ 0 1.16063-131261 145400424
+ 3.20730+ 4 0.00000+ 0 9.83534-11 3.20730+ 4 1.00000+ 0 9.83534-111261 145400425
+ 3.20740+ 4 0.00000+ 0 8.39455-10 3.20750+ 4 0.00000+ 0 1.45079- 81261 145400426
+ 3.20750+ 4 1.00000+ 0 1.45079- 8 3.20760+ 4 0.00000+ 0 6.98379- 71261 145400427
+ 3.20770+ 4 0.00000+ 0 6.36345- 6 3.20770+ 4 1.00000+ 0 3.94214- 61261 145400428
+ 3.20780+ 4 0.00000+ 0 2.14116- 6 3.20790+ 4 0.00000+ 0 2.50836- 41261 145400429
+ 3.20800+ 4 0.00000+ 0 8.63689- 4 3.20810+ 4 0.00000+ 0 1.30268- 31261 145400430
+ 3.20820+ 4 0.00000+ 0 1.30327- 3 3.20830+ 4 0.00000+ 0 9.67445- 41261 145400431
+ 3.20840+ 4 0.00000+ 0 1.59847- 4 3.20850+ 4 0.00000+ 0 6.23038- 51261 145400432
+ 3.20860+ 4 0.00000+ 0 1.14362- 5 3.20870+ 4 0.00000+ 0 1.98107- 61261 145400433
+ 3.20880+ 4 0.00000+ 0 1.88102- 8 3.30690+ 4 0.00000+ 0 0.00000+ 01261 145400434
+ 3.30710+ 4 0.00000+ 0 0.00000+ 0 3.30720+ 4 0.00000+ 0 0.00000+ 01261 145400435
+ 3.30730+ 4 0.00000+ 0 2.95160-14 3.30740+ 4 0.00000+ 0 7.18390-141261 145400436
+ 3.30740+ 4 1.00000+ 0 7.41402-14 3.30750+ 4 0.00000+ 0 1.68091-111261 145400437
+ 3.30760+ 4 0.00000+ 0 1.34073- 9 3.30770+ 4 0.00000+ 0 1.28069- 71261 145400438
+ 3.30780+ 4 0.00000+ 0 2.10114- 6 3.30790+ 4 0.00000+ 0 1.04707- 41261 145400439
+ 3.30800+ 4 0.00000+ 0 1.46509- 4 3.30810+ 4 0.00000+ 0 5.91321- 41261 145400440
+ 3.30820+ 4 0.00000+ 0 8.26018- 4 3.30820+ 4 1.00000+ 0 8.22626- 41261 145400441
+ 3.30830+ 4 0.00000+ 0 3.24470- 3 3.30840+ 4 0.00000+ 0 2.88966- 31261 145400442
+ 3.30850+ 4 0.00000+ 0 1.98228- 3 3.30860+ 4 0.00000+ 0 1.14175- 31261 145400443
+ 3.30870+ 4 0.00000+ 0 7.01591- 4 3.30880+ 4 0.00000+ 0 2.44533- 51261 145400444
+ 3.30890+ 4 0.00000+ 0 1.94105- 6 3.40720+ 4 0.00000+ 0 0.00000+ 01261 145400445
+ 3.40730+ 4 0.00000+ 0 0.00000+ 0 3.40730+ 4 1.00000+ 0 0.00000+ 01261 145400446
+ 3.40740+ 4 0.00000+ 0 0.00000+ 0 3.40750+ 4 0.00000+ 0 0.00000+ 01261 145400447
+ 3.40760+ 4 0.00000+ 0 2.57140-13 3.40770+ 4 0.00000+ 0 5.47297-111261 145400448
+ 3.40770+ 4 1.00000+ 0 1.77096-11 3.40780+ 4 0.00000+ 0 2.30125- 91261 145400449
+ 3.40790+ 4 0.00000+ 0 8.10440- 8 3.40790+ 4 1.00000+ 0 8.12441- 81261 145400450
+ 3.40800+ 4 0.00000+ 0 3.52191- 6 3.40810+ 4 0.00000+ 0 2.19519- 51261 145400451
+ 3.40810+ 4 1.00000+ 0 7.41702- 5 3.40820+ 4 0.00000+ 0 3.53702- 41261 145400452
+ 3.40830+ 4 0.00000+ 0 4.35816- 4 3.40830+ 4 1.00000+ 0 6.17165- 41261 145400453
+ 3.40840+ 4 0.00000+ 0 6.45417- 3 3.40850+ 4 0.00000+ 0 4.59816- 31261 145400454
+ 3.40850+ 4 1.00000+ 0 4.59810- 3 3.40860+ 4 0.00000+ 0 1.18889- 21261 145400455
+ 3.40870+ 4 0.00000+ 0 9.38876- 3 3.40880+ 4 0.00000+ 0 3.38296- 31261 145400456
+ 3.40890+ 4 0.00000+ 0 8.82669- 4 3.40900+ 4 0.00000+ 0 3.38474- 41261 145400457
+ 3.40910+ 4 0.00000+ 0 3.44787- 5 3.40920+ 4 0.00000+ 0 4.48243- 71261 145400458
+ 3.40940+ 4 0.00000+ 0 4.51245-10 3.40950+ 4 0.00000+ 0 3.35570-121261 145400459
+ 3.40960+ 4 0.00000+ 0 5.64306-14 3.50750+ 4 0.00000+ 0 0.00000+ 01261 145400460
+ 3.50770+ 4 0.00000+ 0 0.00000+ 0 3.50770+ 4 1.00000+ 0 0.00000+ 01261 145400461
+ 3.50780+ 4 0.00000+ 0 1.07058-13 3.50790+ 4 0.00000+ 0 1.35073-111261 145400462
+ 3.50790+ 4 1.00000+ 0 1.44078-11 3.50800+ 4 0.00000+ 0 4.18227- 91261 145400463
+ 3.50800+ 4 1.00000+ 0 3.11169- 9 3.50810+ 4 0.00000+ 0 8.93485- 81261 145400464
+ 3.50820+ 4 0.00000+ 0 5.36291- 7 3.50820+ 4 1.00000+ 0 7.14388- 71261 145400465
+ 3.50830+ 4 0.00000+ 0 3.82307- 5 3.50840+ 4 0.00000+ 0 1.82479- 41261 145400466
+ 3.50840+ 4 1.00000+ 0 1.93025- 4 3.50850+ 4 0.00000+ 0 1.71808- 31261 145400467
+ 3.50860+ 4 0.00000+ 0 2.93826- 3 3.50860+ 4 1.00000+ 0 3.04321- 31261 145400468
+ 3.50870+ 4 0.00000+ 0 1.18536- 2 3.50880+ 4 0.00000+ 0 2.18065- 21261 145400469
+ 3.50890+ 4 0.00000+ 0 1.85645- 2 3.50900+ 4 0.00000+ 0 1.31280- 21261 145400470
+ 3.50910+ 4 0.00000+ 0 4.21910- 3 3.50920+ 4 0.00000+ 0 1.80558- 41261 145400471
+ 3.50930+ 4 0.00000+ 0 5.08076- 5 3.50940+ 4 0.00000+ 0 3.16172- 61261 145400472
+ 3.50950+ 4 0.00000+ 0 5.78881- 8 3.50960+ 4 0.00000+ 0 3.05166- 91261 145400473
+ 3.60770+ 4 0.00000+ 0 0.00000+ 0 3.60780+ 4 0.00000+ 0 0.00000+ 01261 145400474
+ 3.60790+ 4 0.00000+ 0 0.00000+ 0 3.60790+ 4 1.00000+ 0 0.00000+ 01261 145400475
+ 3.60800+ 4 0.00000+ 0 8.10440-11 3.60810+ 4 0.00000+ 0 8.73474-121261 145400476
+ 3.60810+ 4 1.00000+ 0 9.12495-12 3.60820+ 4 0.00000+ 0 1.02055- 91261 145400477
+ 3.60830+ 4 0.00000+ 0 3.81207- 8 3.60830+ 4 1.00000+ 0 4.19227- 81261 145400478
+ 3.60840+ 4 0.00000+ 0 3.20174- 6 3.60850+ 4 0.00000+ 0 2.33327- 51261 145400479
+ 3.60850+ 4 1.00000+ 0 1.54184- 4 3.60860+ 4 0.00000+ 0 4.96760- 41261 145400480
+ 3.60870+ 4 0.00000+ 0 3.49267- 3 3.60880+ 4 0.00000+ 0 1.07305- 21261 145400481
+ 3.60890+ 4 0.00000+ 0 2.73308- 2 3.60900+ 4 0.00000+ 0 3.39679- 21261 145400482
+ 3.60910+ 4 0.00000+ 0 3.09607- 2 3.60920+ 4 0.00000+ 0 1.52732- 21261 145400483
+ 3.60930+ 4 0.00000+ 0 5.30528- 3 3.60940+ 4 0.00000+ 0 2.35865- 31261 145400484
+ 3.60950+ 4 0.00000+ 0 8.05658- 5 3.60960+ 4 0.00000+ 0 1.55985- 51261 145400485
+ 3.60970+ 4 0.00000+ 0 2.60141- 7 3.60980+ 4 0.00000+ 0 4.06220- 81261 145400486
+ 3.60990+ 4 0.00000+ 0 9.21936-10 3.61000+ 4 0.00000+ 0 1.10060-111261 145400487
+ 3.70790+ 4 0.00000+ 0 0.00000+ 0 3.70810+ 4 0.00000+ 0 0.00000+ 01261 145400488
+ 3.70810+ 4 1.00000+ 0 0.00000+ 0 3.70830+ 4 0.00000+ 0 4.37237-121261 145400489
+ 3.70840+ 4 0.00000+ 0 2.43132-11 3.70840+ 4 1.00000+ 0 3.32180-101261 145400490
+ 3.70850+ 4 0.00000+ 0 8.23447- 7 3.70860+ 4 0.00000+ 0 1.89103- 71261 145400491
+ 3.70860+ 4 1.00000+ 0 5.68308- 7 3.70870+ 4 0.00000+ 0 2.61342- 51261 145400492
+ 3.70880+ 4 0.00000+ 0 3.22165- 4 3.70890+ 4 0.00000+ 0 1.65540- 31261 145400493
+ 3.70900+ 4 0.00000+ 0 7.08195- 3 3.70900+ 4 1.00000+ 0 4.32891- 31261 145400494
+ 3.70910+ 4 0.00000+ 0 2.23750- 2 3.70920+ 4 0.00000+ 0 3.27844- 21261 145400495
+ 3.70930+ 4 0.00000+ 0 3.06359- 2 3.70940+ 4 0.00000+ 0 1.49368- 21261 145400496
+ 3.70950+ 4 0.00000+ 0 8.98636- 3 3.70960+ 4 0.00000+ 0 1.91238- 31261 145400497
+ 3.70970+ 4 0.00000+ 0 3.44077- 4 3.70980+ 4 0.00000+ 0 5.11778- 51261 145400498
+ 3.70990+ 4 0.00000+ 0 4.09125- 6 3.71000+ 4 0.00000+ 0 1.62088- 71261 145400499
+ 3.71030+ 4 0.00000+ 0 1.22080-12 3.80830+ 4 0.00000+ 0 0.00000+ 01261 145400500
+ 3.80840+ 4 0.00000+ 0 2.26123-14 3.80850+ 4 0.00000+ 0 1.14062-121261 145400501
+ 3.80850+ 4 1.00000+ 0 1.19065-12 3.80860+ 4 0.00000+ 0 2.70147-101261 145400502
+ 3.80870+ 4 0.00000+ 0 1.12061- 8 3.80870+ 4 1.00000+ 0 1.01055- 81261 145400503
+ 3.80880+ 4 0.00000+ 0 1.01055- 6 3.80890+ 4 0.00000+ 0 2.42932- 51261 145400504
+ 3.80900+ 4 0.00000+ 0 2.88557- 4 3.80910+ 4 0.00000+ 0 1.59836- 31261 145400505
+ 3.80920+ 4 0.00000+ 0 1.12826- 2 3.80930+ 4 0.00000+ 0 2.66769- 21261 145400506
+ 3.80940+ 4 0.00000+ 0 4.32785- 2 3.80950+ 4 0.00000+ 0 4.57686- 21261 145400507
+ 3.80960+ 4 0.00000+ 0 3.56723- 2 3.80970+ 4 0.00000+ 0 1.88244- 21261 145400508
+ 3.80980+ 4 0.00000+ 0 6.87602- 3 3.80990+ 4 0.00000+ 0 1.52846- 31261 145400509
+ 3.81000+ 4 0.00000+ 0 2.31025- 4 3.81010+ 4 0.00000+ 0 2.88957- 51261 145400510
+ 3.81020+ 4 0.00000+ 0 1.97107- 6 3.81030+ 4 0.00000+ 0 4.92798- 81261 145400511
+ 3.81040+ 4 0.00000+ 0 8.36454-10 3.81050+ 4 0.00000+ 0 7.40226-121261 145400512
+ 3.90850+ 4 0.00000+ 0 0.00000+ 0 3.90850+ 4 1.00000+ 0 0.00000+ 01261 145400513
+ 3.90870+ 4 0.00000+ 0 2.08113-13 3.90870+ 4 1.00000+ 0 2.15117-131261 145400514
+ 3.90880+ 4 0.00000+ 0 6.75366-11 3.90890+ 4 0.00000+ 0 2.92159- 91261 145400515
+ 3.90890+ 4 1.00000+ 0 2.92159- 9 3.90900+ 4 0.00000+ 0 2.22121- 61261 145400516
+ 3.90900+ 4 1.00000+ 0 1.27069- 7 3.90910+ 4 0.00000+ 0 2.78151- 61261 145400517
+ 3.90910+ 4 1.00000+ 0 2.78151- 6 3.90920+ 4 0.00000+ 0 7.79623- 51261 145400518
+ 3.90930+ 4 0.00000+ 0 1.03642- 3 3.90940+ 4 0.00000+ 0 3.62598- 31261 145400519
+ 3.90950+ 4 0.00000+ 0 9.51002- 3 3.90960+ 4 0.00000+ 0 2.27451- 21261 145400520
+ 3.90970+ 4 0.00000+ 0 3.14031- 2 3.90980+ 4 0.00000+ 0 2.90438- 21261 145400521
+ 3.90990+ 4 0.00000+ 0 1.85980- 2 3.91000+ 4 0.00000+ 0 8.46785- 31261 145400522
+ 3.91010+ 4 0.00000+ 0 2.64759- 3 3.91020+ 4 0.00000+ 0 5.34620- 41261 145400523
+ 3.91030+ 4 0.00000+ 0 5.35698- 5 3.91040+ 4 0.00000+ 0 2.55138- 61261 145400524
+ 3.91050+ 4 0.00000+ 0 7.52342- 8 3.91070+ 4 0.00000+ 0 3.40362-101261 145400525
+ 4.00870+ 4 0.00000+ 0 0.00000+ 0 4.00880+ 4 0.00000+ 0 0.00000+ 01261 145400526
+ 4.00890+ 4 0.00000+ 0 7.10385-14 4.00890+ 4 1.00000+ 0 6.95377-141261 145400527
+ 4.00900+ 4 0.00000+ 0 1.03056-11 4.00900+ 4 1.00000+ 0 1.04056-111261 145400528
+ 4.00910+ 4 0.00000+ 0 1.58086- 9 4.00920+ 4 0.00000+ 0 7.65415- 81261 145400529
+ 4.00930+ 4 0.00000+ 0 2.41131- 6 4.00940+ 4 0.00000+ 0 3.48089- 51261 145400530
+ 4.00950+ 4 0.00000+ 0 2.97111- 4 4.00960+ 4 0.00000+ 0 2.17576- 31261 145400531
+ 4.00970+ 4 0.00000+ 0 8.90774- 3 4.00980+ 4 0.00000+ 0 2.10838- 21261 145400532
+ 4.00990+ 4 0.00000+ 0 3.81938- 2 4.01000+ 4 0.00000+ 0 4.45552- 21261 145400533
+ 4.01010+ 4 0.00000+ 0 3.16594- 2 4.01020+ 4 0.00000+ 0 1.71790- 21261 145400534
+ 4.01030+ 4 0.00000+ 0 5.26007- 3 4.01040+ 4 0.00000+ 0 7.95892- 41261 145400535
+ 4.01050+ 4 0.00000+ 0 6.25988- 5 4.01060+ 4 0.00000+ 0 2.30225- 51261 145400536
+ 4.01070+ 4 0.00000+ 0 1.02000- 6 4.01080+ 4 0.00000+ 0 1.45079- 81261 145400537
+ 4.01090+ 4 0.00000+ 0 8.54516-11 4.01100+ 4 0.00000+ 0 1.21066-121261 145400538
+ 4.10890+ 4 0.00000+ 0 0.00000+ 0 4.10890+ 4 1.00000+ 0 0.00000+ 01261 145400539
+ 4.10900+ 4 0.00000+ 0 0.00000+ 0 4.10910+ 4 0.00000+ 0 0.00000+ 01261 145400540
+ 4.10910+ 4 1.00000+ 0 0.00000+ 0 4.10920+ 4 0.00000+ 0 7.83425-131261 145400541
+ 4.10920+ 4 1.00000+ 0 7.83425-13 4.10930+ 4 0.00000+ 0 9.27503-111261 145400542
+ 4.10930+ 4 1.00000+ 0 9.89537-11 4.10940+ 4 0.00000+ 0 4.53246- 91261 145400543
+ 4.10940+ 4 1.00000+ 0 4.57248- 9 4.10950+ 4 0.00000+ 0 1.81098- 71261 145400544
+ 4.10950+ 4 1.00000+ 0 1.46079- 6 4.10960+ 4 0.00000+ 0 5.99325- 61261 145400545
+ 4.10970+ 4 0.00000+ 0 1.08439- 4 4.10970+ 4 1.00000+ 0 3.75104- 51261 145400546
+ 4.10980+ 4 0.00000+ 0 4.78259- 4 4.10980+ 4 1.00000+ 0 2.76160- 41261 145400547
+ 4.10990+ 4 0.00000+ 0 1.38973- 3 4.10990+ 4 1.00000+ 0 1.52909- 31261 145400548
+ 4.11000+ 4 0.00000+ 0 4.75269- 3 4.11000+ 4 1.00000+ 0 4.75268- 31261 145400549
+ 4.11010+ 4 0.00000+ 0 1.49729- 2 4.11020+ 4 0.00000+ 0 2.01789- 21261 145400550
+ 4.11030+ 4 0.00000+ 0 1.67645- 2 4.11040+ 4 0.00000+ 0 7.18981- 31261 145400551
+ 4.11050+ 4 0.00000+ 0 1.78391- 3 4.11060+ 4 0.00000+ 0 6.55225- 41261 145400552
+ 4.11070+ 4 0.00000+ 0 9.03692- 5 4.11080+ 4 0.00000+ 0 5.48297- 61261 145400553
+ 4.11090+ 4 0.00000+ 0 1.49144- 7 4.11100+ 4 0.00000+ 0 6.80369- 91261 145400554
+ 4.11110+ 4 0.00000+ 0 1.10357-10 4.20900+ 4 0.00000+ 0 0.00000+ 01261 145400555
+ 4.20910+ 4 0.00000+ 0 0.00000+ 0 4.20910+ 4 1.00000+ 0 0.00000+ 01261 145400556
+ 4.20920+ 4 0.00000+ 0 0.00000+ 0 4.20930+ 4 0.00000+ 0 0.00000+ 01261 145400557
+ 4.20930+ 4 1.00000+ 0 0.00000+ 0 4.20940+ 4 0.00000+ 0 2.27123-131261 145400558
+ 4.20950+ 4 0.00000+ 0 3.04165-11 4.20960+ 4 0.00000+ 0 1.75095- 91261 145400559
+ 4.20970+ 4 0.00000+ 0 6.87373- 8 4.20980+ 4 0.00000+ 0 1.68091- 61261 145400560
+ 4.20990+ 4 0.00000+ 0 2.95760- 5 4.21000+ 4 0.00000+ 0 2.95170- 41261 145400561
+ 4.21010+ 4 0.00000+ 0 1.12367- 3 4.21020+ 4 0.00000+ 0 4.07195- 31261 145400562
+ 4.21030+ 4 0.00000+ 0 9.11891- 3 4.21040+ 4 0.00000+ 0 9.71265- 31261 145400563
+ 4.21050+ 4 0.00000+ 0 7.27887- 3 4.21060+ 4 0.00000+ 0 2.75495- 31261 145400564
+ 4.21070+ 4 0.00000+ 0 1.03729- 3 4.21080+ 4 0.00000+ 0 2.38189- 41261 145400565
+ 4.21090+ 4 0.00000+ 0 2.28332- 5 4.21100+ 4 0.00000+ 0 3.83208- 61261 145400566
+ 4.21110+ 4 0.00000+ 0 2.53951- 7 4.21120+ 4 0.00000+ 0 1.76096- 81261 145400567
+ 4.21130+ 4 0.00000+ 0 1.66643- 9 4.21140+ 4 0.00000+ 0 6.56356-111261 145400568
+ 4.21150+ 4 0.00000+ 0 1.63716-12 4.21160+ 4 0.00000+ 0 2.61142-141261 145400569
+ 4.30930+ 4 0.00000+ 0 0.00000+ 0 4.30930+ 4 1.00000+ 0 0.00000+ 01261 145400570
+ 4.30950+ 4 0.00000+ 0 0.00000+ 0 4.30950+ 4 1.00000+ 0 0.00000+ 01261 145400571
+ 4.30970+ 4 0.00000+ 0 6.95377-13 4.30970+ 4 1.00000+ 0 7.21391-131261 145400572
+ 4.30980+ 4 0.00000+ 0 8.67471- 9 4.30990+ 4 0.00000+ 0 3.43186- 91261 145400573
+ 4.30990+ 4 1.00000+ 0 3.43186- 9 4.31000+ 4 0.00000+ 0 2.38129- 71261 145400574
+ 4.31010+ 4 0.00000+ 0 2.35128- 6 4.31020+ 4 0.00000+ 0 1.25368- 51261 145400575
+ 4.31020+ 4 1.00000+ 0 1.25368- 5 4.31030+ 4 0.00000+ 0 1.76716- 41261 145400576
+ 4.31040+ 4 0.00000+ 0 5.37171- 4 4.31050+ 4 0.00000+ 0 1.05314- 31261 145400577
+ 4.31060+ 4 0.00000+ 0 4.67904- 4 4.31070+ 4 0.00000+ 0 4.66723- 41261 145400578
+ 4.31080+ 4 0.00000+ 0 3.68130- 4 4.31090+ 4 0.00000+ 0 1.35383- 41261 145400579
+ 4.31100+ 4 0.00000+ 0 5.93722- 5 4.31110+ 4 0.00000+ 0 1.75156- 51261 145400580
+ 4.31120+ 4 0.00000+ 0 2.98162- 6 4.31130+ 4 0.00000+ 0 7.78472- 71261 145400581
+ 4.31140+ 4 0.00000+ 0 8.78477- 8 4.31150+ 4 0.00000+ 0 7.26516- 91261 145400582
+ 4.31160+ 4 0.00000+ 0 3.49189-10 4.31170+ 4 0.00000+ 0 7.03913-111261 145400583
+ 4.40950+ 4 0.00000+ 0 0.00000+ 0 4.40970+ 4 0.00000+ 0 0.00000+ 01261 145400584
+ 4.40980+ 4 0.00000+ 0 0.00000+ 0 4.40990+ 4 0.00000+ 0 1.56085-131261 145400585
+ 4.41000+ 4 0.00000+ 0 1.87102-11 4.41010+ 4 0.00000+ 0 4.96269-101261 145400586
+ 4.41020+ 4 0.00000+ 0 1.64089- 8 4.41030+ 4 0.00000+ 0 3.87210- 71261 145400587
+ 4.41040+ 4 0.00000+ 0 3.90212- 6 4.41050+ 4 0.00000+ 0 2.62843- 51261 145400588
+ 4.41060+ 4 0.00000+ 0 1.12661- 5 4.41070+ 4 0.00000+ 0 3.31880- 51261 145400589
+ 4.41080+ 4 0.00000+ 0 9.80332- 5 4.41090+ 4 0.00000+ 0 1.36054- 41261 145400590
+ 4.41100+ 4 0.00000+ 0 1.46299- 4 4.41110+ 4 0.00000+ 0 1.34483- 41261 145400591
+ 4.41120+ 4 0.00000+ 0 6.22138- 5 4.41130+ 4 0.00000+ 0 3.46191- 51261 145400592
+ 4.41140+ 4 0.00000+ 0 1.24968- 5 4.41150+ 4 0.00000+ 0 2.71421- 61261 145400593
+ 4.41160+ 4 0.00000+ 0 4.55247- 7 4.41170+ 4 0.00000+ 0 3.02192- 71261 145400594
+ 4.41180+ 4 0.00000+ 0 3.78205- 9 4.41200+ 4 0.00000+ 0 1.24067-111261 145400595
+ 4.41220+ 4 0.00000+ 0 2.58140-14 4.41240+ 4 0.00000+ 0 0.00000+ 01261 145400596
+ 4.50990+ 4 0.00000+ 0 0.00000+ 0 4.50990+ 4 1.00000+ 0 0.00000+ 01261 145400597
+ 4.51010+ 4 0.00000+ 0 0.00000+ 0 4.51010+ 4 1.00000+ 0 0.00000+ 01261 145400598
+ 4.51020+ 4 0.00000+ 0 1.61087-11 4.51020+ 4 1.00000+ 0 1.13061-131261 145400599
+ 4.51030+ 4 0.00000+ 0 9.28504-12 4.51030+ 4 1.00000+ 0 9.28504-121261 145400600
+ 4.51040+ 4 0.00000+ 0 3.17172-10 4.51040+ 4 1.00000+ 0 3.34181-101261 145400601
+ 4.51050+ 4 0.00000+ 0 1.05057- 8 4.51050+ 4 1.00000+ 0 8.27449- 91261 145400602
+ 4.51060+ 4 0.00000+ 0 3.46188- 9 4.51060+ 4 1.00000+ 0 3.46188- 91261 145400603
+ 4.51070+ 4 0.00000+ 0 6.56356- 8 4.51080+ 4 0.00000+ 0 4.14225- 71261 145400604
+ 4.51080+ 4 1.00000+ 0 4.14225- 7 4.51090+ 4 0.00000+ 0 2.53137- 61261 145400605
+ 4.51090+ 4 1.00000+ 0 2.53137- 6 4.51100+ 4 0.00000+ 0 6.98379- 61261 145400606
+ 4.51100+ 4 1.00000+ 0 6.98379- 6 4.51110+ 4 0.00000+ 0 4.34035- 51261 145400607
+ 4.51120+ 4 0.00000+ 0 5.49098- 5 4.51130+ 4 0.00000+ 0 6.62860- 51261 145400608
+ 4.51140+ 4 0.00000+ 0 5.55701- 5 4.51150+ 4 0.00000+ 0 3.20874- 51261 145400609
+ 4.51160+ 4 0.00000+ 0 1.53183- 5 4.51170+ 4 0.00000+ 0 3.76984- 51261 145400610
+ 4.51180+ 4 0.00000+ 0 1.06058- 6 4.51190+ 4 0.00000+ 0 2.26123- 71261 145400611
+ 4.51200+ 4 0.00000+ 0 2.87156- 8 4.51210+ 4 0.00000+ 0 3.30179- 91261 145400612
+ 4.51220+ 4 0.00000+ 0 3.68200-10 4.51230+ 4 0.00000+ 0 3.41185-111261 145400613
+ 4.51240+ 4 0.00000+ 0 2.71147-12 4.60990+ 4 0.00000+ 0 0.00000+ 01261 145400614
+ 4.61010+ 4 0.00000+ 0 0.00000+ 0 4.61020+ 4 0.00000+ 0 0.00000+ 01261 145400615
+ 4.61030+ 4 0.00000+ 0 0.00000+ 0 4.61040+ 4 0.00000+ 0 1.07058-141261 145400616
+ 4.61050+ 4 0.00000+ 0 9.82533-13 4.61060+ 4 0.00000+ 0 4.11223-131261 145400617
+ 4.61070+ 4 0.00000+ 0 6.54355-12 4.61070+ 4 1.00000+ 0 7.00380-121261 145400618
+ 4.61080+ 4 0.00000+ 0 7.57411-10 4.61090+ 4 0.00000+ 0 1.13061- 81261 145400619
+ 4.61090+ 4 1.00000+ 0 1.13061- 8 4.61100+ 4 0.00000+ 0 1.79097- 71261 145400620
+ 4.61110+ 4 0.00000+ 0 1.00054- 6 4.61110+ 4 1.00000+ 0 9.85535- 71261 145400621
+ 4.61120+ 4 0.00000+ 0 6.48352- 6 4.61130+ 4 0.00000+ 0 2.16117- 51261 145400622
+ 4.61140+ 4 0.00000+ 0 4.32134- 5 4.61150+ 4 0.00000+ 0 6.09731- 51261 145400623
+ 4.61160+ 4 0.00000+ 0 7.50307- 5 4.61170+ 4 0.00000+ 0 6.49953- 51261 145400624
+ 4.61180+ 4 0.00000+ 0 3.48689- 5 4.61190+ 4 0.00000+ 0 2.03210- 51261 145400625
+ 4.61200+ 4 0.00000+ 0 6.88373- 6 4.61210+ 4 0.00000+ 0 1.97107- 61261 145400626
+ 4.61220+ 4 0.00000+ 0 5.08276- 7 4.61230+ 4 0.00000+ 0 1.13061- 71261 145400627
+ 4.61240+ 4 0.00000+ 0 2.26123- 8 4.61260+ 4 0.00000+ 0 2.58140-101261 145400628
+ 4.61280+ 4 0.00000+ 0 8.59466-13 4.61300+ 4 0.00000+ 0 5.02272-141261 145400629
+ 4.71030+ 4 0.00000+ 0 0.00000+ 0 4.71030+ 4 1.00000+ 0 0.00000+ 01261 145400630
+ 4.71050+ 4 0.00000+ 0 0.00000+ 0 4.71050+ 4 1.00000+ 0 0.00000+ 01261 145400631
+ 4.71060+ 4 0.00000+ 0 0.00000+ 0 4.71060+ 4 1.00000+ 0 0.00000+ 01261 145400632
+ 4.71070+ 4 0.00000+ 0 0.00000+ 0 4.71070+ 4 1.00000+ 0 0.00000+ 01261 145400633
+ 4.71080+ 4 0.00000+ 0 0.00000+ 0 4.71080+ 4 1.00000+ 0 0.00000+ 01261 145400634
+ 4.71090+ 4 0.00000+ 0 1.32072-12 4.71090+ 4 1.00000+ 0 1.30071-121261 145400635
+ 4.71100+ 4 0.00000+ 0 2.62142-11 4.71100+ 4 1.00000+ 0 2.82153-111261 145400636
+ 4.71110+ 4 0.00000+ 0 1.26068- 9 4.71110+ 4 1.00000+ 0 1.31071- 91261 145400637
+ 4.71120+ 4 0.00000+ 0 7.60413- 9 4.71130+ 4 0.00000+ 0 1.14062- 71261 145400638
+ 4.71130+ 4 1.00000+ 0 1.14062- 7 4.71140+ 4 0.00000+ 0 1.17064- 61261 145400639
+ 4.71150+ 4 0.00000+ 0 3.80206- 6 4.71150+ 4 1.00000+ 0 2.51136- 61261 145400640
+ 4.71160+ 4 0.00000+ 0 7.39401- 6 4.71160+ 4 1.00000+ 0 7.39401- 61261 145400641
+ 4.71170+ 4 0.00000+ 0 2.35128- 6 4.71170+ 4 1.00000+ 0 2.35128- 61261 145400642
+ 4.71180+ 4 0.00000+ 0 5.52500- 5 4.71180+ 4 1.00000+ 0 2.09514- 51261 145400643
+ 4.71190+ 4 0.00000+ 0 6.00026- 5 4.71200+ 4 0.00000+ 0 4.89966- 51261 145400644
+ 4.71210+ 4 0.00000+ 0 3.23375- 5 4.71220+ 4 0.00000+ 0 1.81198- 51261 145400645
+ 4.71230+ 4 0.00000+ 0 9.25502- 6 4.71240+ 4 0.00000+ 0 4.43240- 61261 145400646
+ 4.71250+ 4 0.00000+ 0 8.96486- 7 4.71260+ 4 0.00000+ 0 4.01218- 71261 145400647
+ 4.71280+ 4 0.00000+ 0 1.19065- 8 4.71290+ 4 0.00000+ 0 6.74716-101261 145400648
+ 4.71300+ 4 0.00000+ 0 1.99108- 9 4.81050+ 4 0.00000+ 0 0.00000+ 01261 145400649
+ 4.81060+ 4 0.00000+ 0 0.00000+ 0 4.81070+ 4 0.00000+ 0 0.00000+ 01261 145400650
+ 4.81080+ 4 0.00000+ 0 0.00000+ 0 4.81090+ 4 0.00000+ 0 0.00000+ 01261 145400651
+ 4.81100+ 4 0.00000+ 0 0.00000+ 0 4.81110+ 4 0.00000+ 0 1.55084-131261 145400652
+ 4.81110+ 4 1.00000+ 0 1.48080-13 4.81120+ 4 0.00000+ 0 1.43078- 61261 145400653
+ 4.81130+ 4 0.00000+ 0 1.32072-10 4.81130+ 4 1.00000+ 0 7.39401- 71261 145400654
+ 4.81140+ 4 0.00000+ 0 3.79206- 9 4.81150+ 4 0.00000+ 0 9.08493- 71261 145400655
+ 4.81150+ 4 1.00000+ 0 2.37129- 8 4.81160+ 4 0.00000+ 0 4.22229- 71261 145400656
+ 4.81170+ 4 0.00000+ 0 2.19119- 8 4.81170+ 4 1.00000+ 0 2.19119- 81261 145400657
+ 4.81180+ 4 0.00000+ 0 8.66470- 6 4.81190+ 4 0.00000+ 0 1.54284- 51261 145400658
+ 4.81190+ 4 1.00000+ 0 1.54284- 5 4.81200+ 4 0.00000+ 0 5.88619- 51261 145400659
+ 4.81210+ 4 0.00000+ 0 8.18244- 5 4.81220+ 4 0.00000+ 0 9.41211- 51261 145400660
+ 4.81230+ 4 0.00000+ 0 9.49615- 5 4.81240+ 4 0.00000+ 0 1.05587- 41261 145400661
+ 4.81250+ 4 0.00000+ 0 5.13579- 5 4.81260+ 4 0.00000+ 0 6.60058- 51261 145400662
+ 4.81270+ 4 0.00000+ 0 3.36683- 5 4.81280+ 4 0.00000+ 0 1.59086- 51261 145400663
+ 4.81290+ 4 0.00000+ 0 2.96817- 6 4.81300+ 4 0.00000+ 0 7.50407- 61261 145400664
+ 4.81310+ 4 0.00000+ 0 6.95377- 7 4.81320+ 4 0.00000+ 0 6.22338- 81261 145400665
+ 4.81360+ 4 0.00000+ 0 0.00000+ 0 4.91070+ 4 0.00000+ 0 0.00000+ 01261 145400666
+ 4.91090+ 4 0.00000+ 0 0.00000+ 0 4.91090+ 4 1.00000+ 0 0.00000+ 01261 145400667
+ 4.91110+ 4 0.00000+ 0 0.00000+ 0 4.91110+ 4 1.00000+ 0 0.00000+ 01261 145400668
+ 4.91120+ 4 0.00000+ 0 0.00000+ 0 4.91120+ 4 1.00000+ 0 0.00000+ 01261 145400669
+ 4.91130+ 4 0.00000+ 0 0.00000+ 0 4.91130+ 4 1.00000+ 0 0.00000+ 01261 145400670
+ 4.91140+ 4 0.00000+ 0 1.38075-13 4.91140+ 4 1.00000+ 0 1.35073-131261 145400671
+ 4.91150+ 4 0.00000+ 0 5.39293-12 4.91150+ 4 1.00000+ 0 5.39293-121261 145400672
+ 4.91160+ 4 0.00000+ 0 1.55084-10 4.91160+ 4 1.00000+ 0 1.55084-101261 145400673
+ 4.91170+ 4 0.00000+ 0 4.95269-12 4.91170+ 4 1.00000+ 0 4.95269-121261 145400674
+ 4.91180+ 4 0.00000+ 0 2.76150- 8 4.91180+ 4 1.00000+ 0 2.75149- 81261 145400675
+ 4.91190+ 4 0.00000+ 0 2.73148- 7 4.91190+ 4 1.00000+ 0 2.73148- 71261 145400676
+ 4.91200+ 4 0.00000+ 0 1.31071- 6 4.91200+ 4 1.00000+ 0 1.31071- 61261 145400677
+ 4.91210+ 4 0.00000+ 0 4.21229- 6 4.91210+ 4 1.00000+ 0 7.97433- 61261 145400678
+ 4.91220+ 4 0.00000+ 0 9.68525- 6 4.91220+ 4 1.00000+ 0 9.67525- 61261 145400679
+ 4.91230+ 4 0.00000+ 0 2.04411- 5 4.91230+ 4 1.00000+ 0 1.95006- 51261 145400680
+ 4.91240+ 4 0.00000+ 0 9.53617- 5 4.91250+ 4 0.00000+ 0 5.06975- 51261 145400681
+ 4.91250+ 4 1.00000+ 0 5.07075- 5 4.91260+ 4 0.00000+ 0 3.34351- 41261 145400682
+ 4.91270+ 4 0.00000+ 0 2.08593- 4 4.91270+ 4 1.00000+ 0 2.09384- 41261 145400683
+ 4.91280+ 4 0.00000+ 0 5.51249- 4 4.91290+ 4 0.00000+ 0 3.79008- 41261 145400684
+ 4.91300+ 4 0.00000+ 0 6.87323- 4 4.91310+ 4 0.00000+ 0 2.25372- 41261 145400685
+ 4.91320+ 4 0.00000+ 0 6.73065- 5 4.91330+ 4 0.00000+ 0 3.88211- 61261 145400686
+ 4.91340+ 4 0.00000+ 0 5.81315- 8 4.91360+ 4 0.00000+ 0 2.20119-111261 145400687
+ 5.01110+ 4 0.00000+ 0 0.00000+ 0 5.01120+ 4 0.00000+ 0 0.00000+ 01261 145400688
+ 5.01130+ 4 0.00000+ 0 0.00000+ 0 5.01130+ 4 1.00000+ 0 0.00000+ 01261 145400689
+ 5.01140+ 4 0.00000+ 0 0.00000+ 0 5.01150+ 4 0.00000+ 0 0.00000+ 01261 145400690
+ 5.01160+ 4 0.00000+ 0 2.22121-14 5.01170+ 4 0.00000+ 0 0.00000+ 01261 145400691
+ 5.01170+ 4 1.00000+ 0 0.00000+ 0 5.01180+ 4 0.00000+ 0 3.72202-111261 145400692
+ 5.01190+ 4 0.00000+ 0 5.47297-10 5.01190+ 4 1.00000+ 0 5.47297-101261 145400693
+ 5.01200+ 4 0.00000+ 0 1.45079- 8 5.01210+ 4 0.00000+ 0 5.91321- 81261 145400694
+ 5.01210+ 4 1.00000+ 0 5.95323- 8 5.01220+ 4 0.00000+ 0 5.84317- 71261 145400695
+ 5.01230+ 4 0.00000+ 0 1.70893- 5 5.01230+ 4 1.00000+ 0 1.93105- 61261 145400696
+ 5.01240+ 4 0.00000+ 0 1.41577- 5 5.01250+ 4 0.00000+ 0 1.02516- 41261 145400697
+ 5.01250+ 4 1.00000+ 0 3.98916- 5 5.01260+ 4 0.00000+ 0 1.65980- 41261 145400698
+ 5.01270+ 4 0.00000+ 0 3.81717- 4 5.01270+ 4 1.00000+ 0 4.18317- 41261 145400699
+ 5.01280+ 4 0.00000+ 0 2.75759- 3 5.01290+ 4 0.00000+ 0 1.84915- 31261 145400700
+ 5.01290+ 4 1.00000+ 0 3.30821- 3 5.01300+ 4 0.00000+ 0 8.21832- 31261 145400701
+ 5.01310+ 4 0.00000+ 0 9.15355- 3 5.01320+ 4 0.00000+ 0 5.75534- 31261 145400702
+ 5.01330+ 4 0.00000+ 0 1.67727- 3 5.01340+ 4 0.00000+ 0 1.02316- 41261 145400703
+ 5.01350+ 4 0.00000+ 0 1.23667- 5 5.01360+ 4 0.00000+ 0 5.39293- 71261 145400704
+ 5.01370+ 4 0.00000+ 0 1.05057- 8 5.01380+ 4 0.00000+ 0 1.87102-101261 145400705
+ 5.11130+ 4 0.00000+ 0 0.00000+ 0 5.11150+ 4 0.00000+ 0 0.00000+ 01261 145400706
+ 5.11170+ 4 0.00000+ 0 0.00000+ 0 5.11180+ 4 0.00000+ 0 0.00000+ 01261 145400707
+ 5.11180+ 4 1.00000+ 0 0.00000+ 0 5.11190+ 4 0.00000+ 0 4.78259-141261 145400708
+ 5.11200+ 4 0.00000+ 0 8.87481-13 5.11200+ 4 1.00000+ 0 8.87481-131261 145400709
+ 5.11210+ 4 0.00000+ 0 2.20119- 7 5.11220+ 4 0.00000+ 0 2.17118-101261 145400710
+ 5.11220+ 4 1.00000+ 0 2.28124-10 5.11230+ 4 0.00000+ 0 5.40293- 91261 145400711
+ 5.11240+ 4 0.00000+ 0 3.22175- 8 5.11240+ 4 1.00000+ 0 2.95160- 81261 145400712
+ 5.11250+ 4 0.00000+ 0 5.93322- 7 5.11260+ 4 0.00000+ 0 8.40456- 61261 145400713
+ 5.11260+ 4 1.00000+ 0 3.35182- 6 5.11270+ 4 0.00000+ 0 5.12278- 51261 145400714
+ 5.11280+ 4 0.00000+ 0 1.10450- 4 5.11280+ 4 1.00000+ 0 6.59158- 51261 145400715
+ 5.11290+ 4 0.00000+ 0 8.15142- 4 5.11300+ 4 0.00000+ 0 2.07172- 31261 145400716
+ 5.11300+ 4 1.00000+ 0 3.03253- 3 5.11310+ 4 0.00000+ 0 1.59280- 21261 145400717
+ 5.11320+ 4 0.00000+ 0 1.05869- 2 5.11320+ 4 1.00000+ 0 1.05127- 21261 145400718
+ 5.11330+ 4 0.00000+ 0 2.08273- 2 5.11340+ 4 0.00000+ 0 2.28627- 31261 145400719
+ 5.11340+ 4 1.00000+ 0 2.28627- 3 5.11350+ 4 0.00000+ 0 1.97399- 31261 145400720
+ 5.11360+ 4 0.00000+ 0 2.99923- 4 5.11370+ 4 0.00000+ 0 2.03110- 51261 145400721
+ 5.11380+ 4 0.00000+ 0 1.27069- 6 5.11390+ 4 0.00000+ 0 5.89320- 81261 145400722
+ 5.11410+ 4 0.00000+ 0 1.66645-11 5.21150+ 4 0.00000+ 0 0.00000+ 01261 145400723
+ 5.21170+ 4 0.00000+ 0 0.00000+ 0 5.21180+ 4 0.00000+ 0 0.00000+ 01261 145400724
+ 5.21190+ 4 0.00000+ 0 0.00000+ 0 5.21190+ 4 1.00000+ 0 0.00000+ 01261 145400725
+ 5.21200+ 4 0.00000+ 0 0.00000+ 0 5.21210+ 4 0.00000+ 0 0.00000+ 01261 145400726
+ 5.21210+ 4 1.00000+ 0 0.00000+ 0 5.21220+ 4 0.00000+ 0 3.47188-141261 145400727
+ 5.21230+ 4 0.00000+ 0 4.85263-13 5.21230+ 4 1.00000+ 0 5.03273-131261 145400728
+ 5.21240+ 4 0.00000+ 0 2.99162-11 5.21250+ 4 0.00000+ 0 3.56193-101261 145400729
+ 5.21250+ 4 1.00000+ 0 3.56193-10 5.21260+ 4 0.00000+ 0 2.49135- 81261 145400730
+ 5.21270+ 4 0.00000+ 0 2.03110- 7 5.21270+ 4 1.00000+ 0 6.01326- 71261 145400731
+ 5.21280+ 4 0.00000+ 0 1.78097- 6 5.21290+ 4 0.00000+ 0 1.22496- 41261 145400732
+ 5.21290+ 4 1.00000+ 0 1.11911- 4 5.21300+ 4 0.00000+ 0 4.50725- 41261 145400733
+ 5.21310+ 4 0.00000+ 0 1.10082- 3 5.21310+ 4 1.00000+ 0 1.90952- 31261 145400734
+ 5.21320+ 4 0.00000+ 0 1.53868- 2 5.21330+ 4 0.00000+ 0 1.22976- 21261 145400735
+ 5.21330+ 4 1.00000+ 0 3.01179- 2 5.21340+ 4 0.00000+ 0 6.30900- 21261 145400736
+ 5.21350+ 4 0.00000+ 0 3.07673- 2 5.21360+ 4 0.00000+ 0 1.87379- 21261 145400737
+ 5.21370+ 4 0.00000+ 0 4.08904- 3 5.21380+ 4 0.00000+ 0 8.52563- 41261 145400738
+ 5.21390+ 4 0.00000+ 0 1.32232- 4 5.21400+ 4 0.00000+ 0 1.25468- 51261 145400739
+ 5.21410+ 4 0.00000+ 0 4.49750- 7 5.21420+ 4 0.00000+ 0 7.23392- 91261 145400740
+ 5.21430+ 4 0.00000+ 0 1.29627-10 5.21440+ 4 0.00000+ 0 1.35468-121261 145400741
+ 5.31210+ 4 0.00000+ 0 0.00000+ 0 5.31230+ 4 0.00000+ 0 0.00000+ 01261 145400742
+ 5.31250+ 4 0.00000+ 0 1.90103-14 5.31260+ 4 0.00000+ 0 9.30505- 91261 145400743
+ 5.31270+ 4 0.00000+ 0 1.00054-10 5.31280+ 4 0.00000+ 0 1.32072- 71261 145400744
+ 5.31290+ 4 0.00000+ 0 1.45079- 7 5.31300+ 4 0.00000+ 0 1.72093- 61261 145400745
+ 5.31300+ 4 1.00000+ 0 7.42403- 7 5.31310+ 4 0.00000+ 0 3.97516- 51261 145400746
+ 5.31320+ 4 0.00000+ 0 1.69582- 4 5.31330+ 4 0.00000+ 0 1.65626- 31261 145400747
+ 5.31330+ 4 1.00000+ 0 1.29024- 3 5.31340+ 4 0.00000+ 0 4.28592- 31261 145400748
+ 5.31340+ 4 1.00000+ 0 4.26199- 3 5.31350+ 4 0.00000+ 0 3.07388- 21261 145400749
+ 5.31360+ 4 0.00000+ 0 1.12712- 2 5.31360+ 4 1.00000+ 0 1.99340- 21261 145400750
+ 5.31370+ 4 0.00000+ 0 2.85179- 2 5.31380+ 4 0.00000+ 0 1.55722- 21261 145400751
+ 5.31390+ 4 0.00000+ 0 7.42281- 3 5.31400+ 4 0.00000+ 0 2.25142- 31261 145400752
+ 5.31410+ 4 0.00000+ 0 3.30290- 4 5.31420+ 4 0.00000+ 0 2.20920- 51261 145400753
+ 5.31430+ 4 0.00000+ 0 8.93134- 7 5.31440+ 4 0.00000+ 0 3.19635- 81261 145400754
+ 5.41250+ 4 0.00000+ 0 0.00000+ 0 5.41250+ 4 1.00000+ 0 0.00000+ 01261 145400755
+ 5.41260+ 4 0.00000+ 0 4.89265-13 5.41270+ 4 0.00000+ 0 0.00000+ 01261 145400756
+ 5.41270+ 4 1.00000+ 0 0.00000+ 0 5.41280+ 4 0.00000+ 0 1.12061- 81261 145400757
+ 5.41290+ 4 0.00000+ 0 5.59303-11 5.41290+ 4 1.00000+ 0 5.17281-111261 145400758
+ 5.41300+ 4 0.00000+ 0 3.13170-10 5.41310+ 4 0.00000+ 0 7.70418- 91261 145400759
+ 5.41310+ 4 1.00000+ 0 7.70418- 9 5.41320+ 4 0.00000+ 0 8.33452- 71261 145400760
+ 5.41330+ 4 0.00000+ 0 6.51353- 6 5.41330+ 4 1.00000+ 0 1.90804- 51261 145400761
+ 5.41340+ 4 0.00000+ 0 2.56399- 4 5.41340+ 4 1.00000+ 0 2.36949- 41261 145400762
+ 5.41350+ 4 0.00000+ 0 9.31095- 4 5.41350+ 4 1.00000+ 0 1.61409- 31261 145400763
+ 5.41360+ 4 0.00000+ 0 1.24749- 2 5.41370+ 4 0.00000+ 0 2.89693- 21261 145400764
+ 5.41380+ 4 0.00000+ 0 4.60953- 2 5.41390+ 4 0.00000+ 0 4.40676- 21261 145400765
+ 5.41400+ 4 0.00000+ 0 3.48985- 2 5.41410+ 4 0.00000+ 0 1.19211- 21261 145400766
+ 5.41420+ 4 0.00000+ 0 3.71384- 3 5.41430+ 4 0.00000+ 0 5.09994- 41261 145400767
+ 5.41440+ 4 0.00000+ 0 6.03808- 5 5.41450+ 4 0.00000+ 0 8.04436- 71261 145400768
+ 5.41460+ 4 0.00000+ 0 1.22066- 7 5.41470+ 4 0.00000+ 0 2.43570- 91261 145400769
+ 5.41480+ 4 0.00000+ 0 2.01109-11 5.41500+ 4 0.00000+ 0 0.00000+ 01261 145400770
+ 5.51270+ 4 0.00000+ 0 0.00000+ 0 5.51290+ 4 0.00000+ 0 0.00000+ 01261 145400771
+ 5.51310+ 4 0.00000+ 0 2.40130-13 5.51320+ 4 0.00000+ 0 7.53409-101261 145400772
+ 5.51330+ 4 0.00000+ 0 5.08276- 7 5.51340+ 4 0.00000+ 0 1.02055- 71261 145400773
+ 5.51340+ 4 1.00000+ 0 2.55138- 7 5.51350+ 4 0.00000+ 0 8.31451- 61261 145400774
+ 5.51350+ 4 1.00000+ 0 6.05328- 6 5.51360+ 4 0.00000+ 0 5.30788- 51261 145400775
+ 5.51370+ 4 0.00000+ 0 1.08421- 3 5.51380+ 4 0.00000+ 0 3.12203- 31261 145400776
+ 5.51380+ 4 1.00000+ 0 2.52240- 3 5.51390+ 4 0.00000+ 0 1.25601- 21261 145400777
+ 5.51400+ 4 0.00000+ 0 2.18289- 2 5.51410+ 4 0.00000+ 0 3.19666- 21261 145400778
+ 5.51420+ 4 0.00000+ 0 2.45417- 2 5.51430+ 4 0.00000+ 0 1.49813- 21261 145400779
+ 5.51440+ 4 0.00000+ 0 2.81721- 3 5.51450+ 4 0.00000+ 0 6.79229- 41261 145400780
+ 5.51460+ 4 0.00000+ 0 7.41302- 5 5.51470+ 4 0.00000+ 0 6.00159- 61261 145400781
+ 5.51480+ 4 0.00000+ 0 1.75095- 7 5.51500+ 4 0.00000+ 0 3.92213-111261 145400782
+ 5.61290+ 4 0.00000+ 0 0.00000+ 0 5.61290+ 4 1.00000+ 0 0.00000+ 01261 145400783
+ 5.61310+ 4 0.00000+ 0 0.00000+ 0 5.61310+ 4 1.00000+ 0 0.00000+ 01261 145400784
+ 5.61320+ 4 0.00000+ 0 0.00000+ 0 5.61330+ 4 0.00000+ 0 1.78097-131261 145400785
+ 5.61340+ 4 0.00000+ 0 3.52191-10 5.61350+ 4 0.00000+ 0 2.24122- 91261 145400786
+ 5.61350+ 4 1.00000+ 0 2.36128- 9 5.61360+ 4 0.00000+ 0 7.12386- 81261 145400787
+ 5.61370+ 4 0.00000+ 0 2.51136- 6 5.61370+ 4 1.00000+ 0 2.51136- 61261 145400788
+ 5.61380+ 4 0.00000+ 0 7.73320- 5 5.61390+ 4 0.00000+ 0 6.80319- 41261 145400789
+ 5.61400+ 4 0.00000+ 0 4.21108- 3 5.61410+ 4 0.00000+ 0 1.44789- 21261 145400790
+ 5.61420+ 4 0.00000+ 0 3.00151- 2 5.61430+ 4 0.00000+ 0 3.76306- 21261 145400791
+ 5.61440+ 4 0.00000+ 0 3.98174- 2 5.61450+ 4 0.00000+ 0 1.91069- 21261 145400792
+ 5.61460+ 4 0.00000+ 0 6.55407- 3 5.61470+ 4 0.00000+ 0 1.27585- 31261 145400793
+ 5.61480+ 4 0.00000+ 0 1.49311- 4 5.61490+ 4 0.00000+ 0 9.01489- 61261 145400794
+ 5.61500+ 4 0.00000+ 0 4.06220- 7 5.61520+ 4 0.00000+ 0 1.75095-101261 145400795
+ 5.61540+ 4 0.00000+ 0 0.00000+ 0 5.71330+ 4 0.00000+ 0 0.00000+ 01261 145400796
+ 5.71350+ 4 0.00000+ 0 3.54192-14 5.71370+ 4 0.00000+ 0 4.96269-101261 145400797
+ 5.71380+ 4 0.00000+ 0 6.32343- 7 5.71390+ 4 0.00000+ 0 7.80423- 71261 145400798
+ 5.71400+ 4 0.00000+ 0 5.67108- 5 5.71410+ 4 0.00000+ 0 1.97687- 41261 145400799
+ 5.71420+ 4 0.00000+ 0 1.01269- 3 5.71430+ 4 0.00000+ 0 6.27980- 31261 145400800
+ 5.71440+ 4 0.00000+ 0 1.12398- 2 5.71450+ 4 0.00000+ 0 1.71971- 21261 145400801
+ 5.71460+ 4 0.00000+ 0 1.63085- 2 5.71470+ 4 0.00000+ 0 9.36361- 31261 145400802
+ 5.71480+ 4 0.00000+ 0 3.40134- 3 5.71490+ 4 0.00000+ 0 6.94287- 41261 145400803
+ 5.71500+ 4 0.00000+ 0 9.78831- 5 5.71510+ 4 0.00000+ 0 8.30451- 61261 145400804
+ 5.71520+ 4 0.00000+ 0 4.72256- 7 5.71530+ 4 0.00000+ 0 1.37074- 81261 145400805
+ 5.71540+ 4 0.00000+ 0 2.83154-10 5.81350+ 4 0.00000+ 0 0.00000+ 01261 145400806
+ 5.81370+ 4 0.00000+ 0 0.00000+ 0 5.81370+ 4 1.00000+ 0 0.00000+ 01261 145400807
+ 5.81380+ 4 0.00000+ 0 1.20065-11 5.81390+ 4 0.00000+ 0 4.64252-111261 145400808
+ 5.81390+ 4 1.00000+ 0 4.87264-11 5.81400+ 4 0.00000+ 0 6.73365- 91261 145400809
+ 5.81410+ 4 0.00000+ 0 2.31125- 7 5.81420+ 4 0.00000+ 0 5.17281- 61261 145400810
+ 5.81430+ 4 0.00000+ 0 3.18543- 4 5.81440+ 4 0.00000+ 0 6.31603- 41261 145400811
+ 5.81450+ 4 0.00000+ 0 2.34866- 3 5.81460+ 4 0.00000+ 0 6.90209- 31261 145400812
+ 5.81470+ 4 0.00000+ 0 1.15128- 2 5.81480+ 4 0.00000+ 0 1.17006- 21261 145400813
+ 5.81490+ 4 0.00000+ 0 7.10230- 3 5.81500+ 4 0.00000+ 0 2.82043- 31261 145400814
+ 5.81510+ 4 0.00000+ 0 7.27585- 4 5.81520+ 4 0.00000+ 0 1.31091- 41261 145400815
+ 5.81530+ 4 0.00000+ 0 1.24568- 5 5.81540+ 4 0.00000+ 0 7.85426- 71261 145400816
+ 5.81550+ 4 0.00000+ 0 3.23175- 8 5.81560+ 4 0.00000+ 0 7.92430-101261 145400817
+ 5.81570+ 4 0.00000+ 0 1.47080-11 5.81580+ 4 0.00000+ 0 1.93105-131261 145400818
+ 5.81600+ 4 0.00000+ 0 0.00000+ 0 5.91390+ 4 0.00000+ 0 0.00000+ 01261 145400819
+ 5.91400+ 4 0.00000+ 0 6.03327-14 5.91410+ 4 0.00000+ 0 7.42403-121261 145400820
+ 5.91420+ 4 0.00000+ 0 2.88156-10 5.91420+ 4 1.00000+ 0 2.88156-101261 145400821
+ 5.91430+ 4 0.00000+ 0 2.73148- 8 5.91440+ 4 0.00000+ 0 6.85372- 71261 145400822
+ 5.91440+ 4 1.00000+ 0 3.48189- 7 5.91450+ 4 0.00000+ 0 9.52517- 61261 145400823
+ 5.91460+ 4 0.00000+ 0 8.77876- 5 5.91470+ 4 0.00000+ 0 5.51909- 41261 145400824
+ 5.91480+ 4 0.00000+ 0 1.62418- 3 5.91490+ 4 0.00000+ 0 2.89700- 31261 145400825
+ 5.91500+ 4 0.00000+ 0 3.00227- 3 5.91510+ 4 0.00000+ 0 2.22590- 31261 145400826
+ 5.91520+ 4 0.00000+ 0 1.06457- 3 5.91530+ 4 0.00000+ 0 2.99933- 41261 145400827
+ 5.91540+ 4 0.00000+ 0 5.39193- 5 5.91550+ 4 0.00000+ 0 6.52354- 61261 145400828
+ 5.91560+ 4 0.00000+ 0 4.83262- 7 5.91570+ 4 0.00000+ 0 2.66144- 81261 145400829
+ 5.91580+ 4 0.00000+ 0 1.06058- 9 5.91590+ 4 0.00000+ 0 1.70092-111261 145400830
+ 5.91600+ 4 0.00000+ 0 3.75204-12 6.01400+ 4 0.00000+ 0 0.00000+ 01261 145400831
+ 6.01410+ 4 0.00000+ 0 0.00000+ 0 6.01410+ 4 1.00000+ 0 0.00000+ 01261 145400832
+ 6.01420+ 4 0.00000+ 0 0.00000+ 0 6.01430+ 4 0.00000+ 0 9.49515-131261 145400833
+ 6.01440+ 4 0.00000+ 0 9.62522- 6 6.01450+ 4 0.00000+ 0 4.06220- 91261 145400834
+ 6.01460+ 4 0.00000+ 0 1.30071- 7 6.01470+ 4 0.00000+ 0 3.06166- 61261 145400835
+ 6.01480+ 4 0.00000+ 0 3.11269- 5 6.01490+ 4 0.00000+ 0 1.84610- 41261 145400836
+ 6.01500+ 4 0.00000+ 0 5.41004- 4 6.01510+ 4 0.00000+ 0 1.22292- 31261 145400837
+ 6.01520+ 4 0.00000+ 0 1.43907- 3 6.01530+ 4 0.00000+ 0 1.14526- 31261 145400838
+ 6.01540+ 4 0.00000+ 0 4.98380- 4 6.01550+ 4 0.00000+ 0 1.59847- 41261 145400839
+ 6.01560+ 4 0.00000+ 0 3.27878- 5 6.01570+ 4 0.00000+ 0 5.05274- 61261 145400840
+ 6.01580+ 4 0.00000+ 0 5.78314- 7 6.01590+ 4 0.00000+ 0 2.90157- 81261 145400841
+ 6.01600+ 4 0.00000+ 0 7.46405- 9 6.01610+ 4 0.00000+ 0 1.32072-111261 145400842
+ 6.01620+ 4 0.00000+ 0 1.67091-13 6.01630+ 4 0.00000+ 0 0.00000+ 01261 145400843
+ 6.01640+ 4 0.00000+ 0 0.00000+ 0 6.11410+ 4 0.00000+ 0 0.00000+ 01261 145400844
+ 6.11430+ 4 0.00000+ 0 0.00000+ 0 6.11440+ 4 0.00000+ 0 0.00000+ 01261 145400845
+ 6.11450+ 4 0.00000+ 0 3.65198-14 6.11460+ 4 0.00000+ 0 4.08221-121261 145400846
+ 6.11470+ 4 0.00000+ 0 4.04219-10 6.11480+ 4 0.00000+ 0 5.73311- 81261 145400847
+ 6.11480+ 4 1.00000+ 0 7.49407- 9 6.11490+ 4 0.00000+ 0 3.19173- 71261 145400848
+ 6.11500+ 4 0.00000+ 0 5.41294- 6 6.11510+ 4 0.00000+ 0 1.80898- 51261 145400849
+ 6.11520+ 4 0.00000+ 0 3.68900- 5 6.11520+ 4 1.00000+ 0 3.68900- 51261 145400850
+ 6.11530+ 4 0.00000+ 0 1.60257- 4 6.11540+ 4 0.00000+ 0 9.18698- 51261 145400851
+ 6.11540+ 4 1.00000+ 0 9.17598- 5 6.11550+ 4 0.00000+ 0 1.40526- 41261 145400852
+ 6.11560+ 4 0.00000+ 0 7.23593- 5 6.11570+ 4 0.00000+ 0 2.91558- 51261 145400853
+ 6.11580+ 4 0.00000+ 0 8.72473- 6 6.11590+ 4 0.00000+ 0 1.26068- 61261 145400854
+ 6.11600+ 4 0.00000+ 0 3.73202- 7 6.11610+ 4 0.00000+ 0 5.59303- 91261 145400855
+ 6.11620+ 4 0.00000+ 0 2.24122-10 6.11630+ 4 0.00000+ 0 5.50299-121261 145400856
+ 6.11640+ 4 0.00000+ 0 7.08384-14 6.11650+ 4 0.00000+ 0 0.00000+ 01261 145400857
+ 6.21430+ 4 0.00000+ 0 0.00000+ 0 6.21430+ 4 1.00000+ 0 0.00000+ 01261 145400858
+ 6.21440+ 4 0.00000+ 0 0.00000+ 0 6.21450+ 4 0.00000+ 0 0.00000+ 01261 145400859
+ 6.21460+ 4 0.00000+ 0 0.00000+ 0 6.21470+ 4 0.00000+ 0 0.00000+ 01261 145400860
+ 6.21480+ 4 0.00000+ 0 6.95377-13 6.21490+ 4 0.00000+ 0 6.72365-111261 145400861
+ 6.21500+ 4 0.00000+ 0 3.02164- 9 6.21510+ 4 0.00000+ 0 3.97216- 81261 145400862
+ 6.21520+ 4 0.00000+ 0 4.70255- 7 6.21530+ 4 0.00000+ 0 3.21174- 61261 145400863
+ 6.21540+ 4 0.00000+ 0 1.04957- 5 6.21550+ 4 0.00000+ 0 2.26023- 51261 145400864
+ 6.21560+ 4 0.00000+ 0 2.91358- 5 6.21570+ 4 0.00000+ 0 2.93259- 51261 145400865
+ 6.21580+ 4 0.00000+ 0 2.09414- 5 6.21590+ 4 0.00000+ 0 7.18390- 61261 145400866
+ 6.21600+ 4 0.00000+ 0 2.60141- 6 6.21610+ 4 0.00000+ 0 2.72148- 71261 145400867
+ 6.21620+ 4 0.00000+ 0 3.18173- 8 6.21630+ 4 0.00000+ 0 2.44132- 91261 145400868
+ 6.21640+ 4 0.00000+ 0 1.01055-10 6.21650+ 4 0.00000+ 0 5.01272-121261 145400869
+ 6.21660+ 4 0.00000+ 0 1.19065-13 6.21670+ 4 0.00000+ 0 0.00000+ 01261 145400870
+ 6.21680+ 4 0.00000+ 0 0.00000+ 0 6.21700+ 4 0.00000+ 0 0.00000+ 01261 145400871
+ 6.31470+ 4 0.00000+ 0 0.00000+ 0 6.31490+ 4 0.00000+ 0 0.00000+ 01261 145400872
+ 6.31510+ 4 0.00000+ 0 5.71310- 7 6.31520+ 4 0.00000+ 0 3.30179-111261 145400873
+ 6.31520+ 4 1.00000+ 0 3.30179-11 6.31530+ 4 0.00000+ 0 6.88373- 71261 145400874
+ 6.31540+ 4 0.00000+ 0 1.63088- 8 6.31550+ 4 0.00000+ 0 1.02055- 71261 145400875
+ 6.31560+ 4 0.00000+ 0 3.82207- 7 6.31570+ 4 0.00000+ 0 1.03056- 61261 145400876
+ 6.31580+ 4 0.00000+ 0 1.94105- 6 6.31590+ 4 0.00000+ 0 1.86101- 61261 145400877
+ 6.31600+ 4 0.00000+ 0 7.32397- 7 6.31610+ 4 0.00000+ 0 4.63251- 71261 145400878
+ 6.31620+ 4 0.00000+ 0 1.42077- 7 6.31630+ 4 0.00000+ 0 3.05166- 81261 145400879
+ 6.31640+ 4 0.00000+ 0 3.70201- 9 6.31650+ 4 0.00000+ 0 5.63306-101261 145400880
+ 6.31660+ 4 0.00000+ 0 4.21229-11 6.31670+ 4 0.00000+ 0 3.63197-121261 145400881
+ 6.31680+ 4 0.00000+ 0 6.25339-14 6.31690+ 4 0.00000+ 0 0.00000+ 01261 145400882
+ 6.31700+ 4 0.00000+ 0 0.00000+ 0 6.41470+ 4 0.00000+ 0 0.00000+ 01261 145400883
+ 6.41490+ 4 0.00000+ 0 0.00000+ 0 6.41510+ 4 0.00000+ 0 0.00000+ 01261 145400884
+ 6.41520+ 4 0.00000+ 0 0.00000+ 0 6.41530+ 4 0.00000+ 0 9.32506-141261 145400885
+ 6.41540+ 4 0.00000+ 0 2.53137-12 6.41550+ 4 0.00000+ 0 4.41239-111261 145400886
+ 6.41560+ 4 0.00000+ 0 5.65307-10 6.41570+ 4 0.00000+ 0 4.43240- 81261 145400887
+ 6.41580+ 4 0.00000+ 0 2.43132- 8 6.41590+ 4 0.00000+ 0 6.47351- 81261 145400888
+ 6.41600+ 4 0.00000+ 0 3.08167- 8 6.41610+ 4 0.00000+ 0 1.36074- 71261 145400889
+ 6.41620+ 4 0.00000+ 0 1.09059- 7 6.41630+ 4 0.00000+ 0 6.13333- 81261 145400890
+ 6.41640+ 4 0.00000+ 0 1.96106- 8 6.41650+ 4 0.00000+ 0 8.09439- 91261 145400891
+ 6.41660+ 4 0.00000+ 0 1.73094- 9 6.41670+ 4 0.00000+ 0 4.47243-101261 145400892
+ 6.41680+ 4 0.00000+ 0 2.40130-11 6.41690+ 4 0.00000+ 0 1.53083-121261 145400893
+ 6.41700+ 4 0.00000+ 0 3.40185-14 6.41710+ 4 0.00000+ 0 0.00000+ 01261 145400894
+ 6.41720+ 4 0.00000+ 0 0.00000+ 0 6.51510+ 4 0.00000+ 0 0.00000+ 01261 145400895
+ 6.51530+ 4 0.00000+ 0 0.00000+ 0 6.51550+ 4 0.00000+ 0 0.00000+ 01261 145400896
+ 6.51560+ 4 0.00000+ 0 0.00000+ 0 6.51560+ 4 1.00000+ 0 0.00000+ 01261 145400897
+ 6.51570+ 4 0.00000+ 0 5.55301-13 6.51580+ 4 0.00000+ 0 3.57194-121261 145400898
+ 6.51580+ 4 1.00000+ 0 3.72202-12 6.51590+ 4 0.00000+ 0 6.25339-111261 145400899
+ 6.51600+ 4 0.00000+ 0 3.26177-10 6.51610+ 4 0.00000+ 0 1.30071- 91261 145400900
+ 6.51620+ 4 0.00000+ 0 1.50081- 9 6.51620+ 4 1.00000+ 0 1.49081- 91261 145400901
+ 6.51630+ 4 0.00000+ 0 4.78259- 9 6.51640+ 4 0.00000+ 0 4.17226- 91261 145400902
+ 6.51650+ 4 0.00000+ 0 4.55247- 9 6.51660+ 4 0.00000+ 0 3.59195- 91261 145400903
+ 6.51670+ 4 0.00000+ 0 1.75095- 9 6.51680+ 4 0.00000+ 0 2.61142-101261 145400904
+ 6.51690+ 4 0.00000+ 0 4.87264-11 6.51700+ 4 0.00000+ 0 3.30179-121261 145400905
+ 6.51710+ 4 0.00000+ 0 3.42186-13 6.51720+ 4 0.00000+ 0 1.57085-141261 145400906
+ 6.61550+ 4 0.00000+ 0 0.00000+ 0 6.61560+ 4 0.00000+ 0 0.00000+ 01261 145400907
+ 6.61570+ 4 0.00000+ 0 0.00000+ 0 6.61580+ 4 0.00000+ 0 0.00000+ 01261 145400908
+ 6.61590+ 4 0.00000+ 0 0.00000+ 0 6.61600+ 4 0.00000+ 0 0.00000+ 01261 145400909
+ 6.61610+ 4 0.00000+ 0 1.26068-12 6.61620+ 4 0.00000+ 0 9.66524-121261 145400910
+ 6.61630+ 4 0.00000+ 0 4.86264-11 6.61640+ 4 0.00000+ 0 1.29070-101261 145400911
+ 6.61650+ 4 0.00000+ 0 2.06112-10 6.61650+ 4 1.00000+ 0 2.06112-101261 145400912
+ 6.61660+ 4 0.00000+ 0 6.39347-10 6.61670+ 4 0.00000+ 0 1.19065- 91261 145400913
+ 6.61680+ 4 0.00000+ 0 4.66253-10 6.61690+ 4 0.00000+ 0 2.26123-101261 145400914
+ 6.61700+ 4 0.00000+ 0 4.16226-11 6.61710+ 4 0.00000+ 0 1.23067-111261 145400915
+ 6.61720+ 4 0.00000+ 0 1.68091-12 6.71590+ 4 0.00000+ 0 0.00000+ 01261 145400916
+ 6.71590+ 4 1.00000+ 0 0.00000+ 0 6.71610+ 4 0.00000+ 0 0.00000+ 01261 145400917
+ 6.71610+ 4 1.00000+ 0 0.00000+ 0 6.71620+ 4 0.00000+ 0 0.00000+ 01261 145400918
+ 6.71620+ 4 1.00000+ 0 0.00000+ 0 6.71630+ 4 0.00000+ 0 0.00000+ 01261 145400919
+ 6.71630+ 4 1.00000+ 0 0.00000+ 0 6.71640+ 4 0.00000+ 0 5.04274-141261 145400920
+ 6.71640+ 4 1.00000+ 0 5.19282-14 6.71650+ 4 0.00000+ 0 1.06058-121261 145400921
+ 6.71660+ 4 0.00000+ 0 6.35345-12 6.71660+ 4 1.00000+ 0 3.72202-121261 145400922
+ 6.71670+ 4 0.00000+ 0 2.84154-11 6.71680+ 4 0.00000+ 0 3.18173-111261 145400923
+ 6.71690+ 4 0.00000+ 0 4.26231-11 6.71700+ 4 0.00000+ 0 1.04056-111261 145400924
+ 6.71700+ 4 1.00000+ 0 1.03056-11 6.71710+ 4 0.00000+ 0 1.59086-111261 145400925
+ 6.71720+ 4 0.00000+ 0 5.79314-12 6.81610+ 4 0.00000+ 0 0.00000+ 01261 145400926
+ 6.81620+ 4 0.00000+ 0 0.00000+ 0 6.81630+ 4 0.00000+ 0 0.00000+ 01261 145400927
+ 6.81640+ 4 0.00000+ 0 0.00000+ 0 6.81650+ 4 0.00000+ 0 0.00000+ 01261 145400928
+ 6.81660+ 4 0.00000+ 0 8.93485-14 6.81670+ 4 0.00000+ 0 3.95214-141261 145400929
+ 6.81670+ 4 1.00000+ 0 3.95214-14 6.81680+ 4 0.00000+ 0 2.79151-131261 145400930
+ 6.81690+ 4 0.00000+ 0 1.15062-12 6.81700+ 4 0.00000+ 0 1.64089-121261 145400931
+ 6.81710+ 4 0.00000+ 0 3.54192-12 6.81720+ 4 0.00000+ 0 3.48189-121261 145400932
+ 5.00000+ 5 0.00000+ 0          3          0       3390       11301261 145400933
+ 2.40660+ 4 0.00000+ 0 3.81062-12 2.40670+ 4 0.00000+ 0 7.96129-131261 145400934
+ 2.40680+ 4 0.00000+ 0 5.35087-14 2.40700+ 4 0.00000+ 0 0.00000+ 01261 145400935
+ 2.50660+ 4 0.00000+ 0 4.27069-10 2.50670+ 4 0.00000+ 0 2.82046-101261 145400936
+ 2.50680+ 4 0.00000+ 0 6.13099-11 2.50690+ 4 0.00000+ 0 1.00016-111261 145400937
+ 2.50700+ 4 0.00000+ 0 1.06017-12 2.50710+ 4 0.00000+ 0 8.49137-141261 145400938
+ 2.60660+ 4 0.00000+ 0 6.11099- 9 2.60670+ 4 0.00000+ 0 1.16019- 81261 145400939
+ 2.60680+ 4 0.00000+ 0 7.54122- 9 2.60690+ 4 0.00000+ 0 3.82062- 91261 145400940
+ 2.60700+ 4 0.00000+ 0 1.29021- 9 2.60710+ 4 0.00000+ 0 3.38055-101261 145400941
+ 2.60720+ 4 0.00000+ 0 1.20019-10 2.60730+ 4 0.00000+ 0 3.46056-131261 145400942
+ 2.60740+ 4 0.00000+ 0 6.67108-13 2.60760+ 4 0.00000+ 0 0.00000+ 01261 145400943
+ 2.70660+ 4 0.00000+ 0 3.42055- 9 2.70670+ 4 0.00000+ 0 1.69027- 81261 145400944
+ 2.70680+ 4 0.00000+ 0 2.94048- 8 2.70690+ 4 0.00000+ 0 4.16067- 81261 145400945
+ 2.70700+ 4 0.00000+ 0 4.10066- 8 2.70710+ 4 0.00000+ 0 3.28053- 81261 145400946
+ 2.70720+ 4 0.00000+ 0 3.15051- 8 2.70730+ 4 0.00000+ 0 1.12018- 91261 145400947
+ 2.70740+ 4 0.00000+ 0 2.29037- 9 2.70750+ 4 0.00000+ 0 2.15035-101261 145400948
+ 2.70760+ 4 0.00000+ 0 2.39039-11 2.80660+ 4 0.00000+ 0 3.10050-101261 145400949
+ 2.80670+ 4 0.00000+ 0 4.26069- 9 2.80680+ 4 0.00000+ 0 1.97032- 81261 145400950
+ 2.80690+ 4 0.00000+ 0 7.31118- 8 2.80700+ 4 0.00000+ 0 1.89031- 71261 145400951
+ 2.80710+ 4 0.00000+ 0 4.12067- 7 2.80720+ 4 0.00000+ 0 9.81159- 71261 145400952
+ 2.80730+ 4 0.00000+ 0 3.69060- 7 2.80740+ 4 0.00000+ 0 8.02130- 71261 145400953
+ 2.80750+ 4 0.00000+ 0 2.33038- 7 2.80760+ 4 0.00000+ 0 7.93128- 81261 145400954
+ 2.80770+ 4 0.00000+ 0 1.24020- 8 2.80780+ 4 0.00000+ 0 9.18149-101261 145400955
+ 2.80800+ 4 0.00000+ 0 9.30150-13 2.80820+ 4 0.00000+ 0 0.00000+ 01261 145400956
+ 2.90660+ 4 0.00000+ 0 7.96129-13 2.90670+ 4 0.00000+ 0 3.41055-111261 145400957
+ 2.90680+ 4 0.00000+ 0 2.38039-10 2.90680+ 4 1.00000+ 0 2.18035-101261 145400958
+ 2.90690+ 4 0.00000+ 0 5.02081- 9 2.90700+ 4 0.00000+ 0 1.78029- 81261 145400959
+ 2.90700+ 4 1.00000+ 0 1.78029- 8 2.90710+ 4 0.00000+ 0 2.03033- 71261 145400960
+ 2.90720+ 4 0.00000+ 0 1.12018- 6 2.90730+ 4 0.00000+ 0 3.51057- 61261 145400961
+ 2.90740+ 4 0.00000+ 0 8.04130- 6 2.90750+ 4 0.00000+ 0 6.60107- 61261 145400962
+ 2.90760+ 4 0.00000+ 0 6.45104- 6 2.90770+ 4 0.00000+ 0 3.15051- 61261 145400963
+ 2.90780+ 4 0.00000+ 0 8.26134- 7 2.90790+ 4 0.00000+ 0 8.86143- 81261 145400964
+ 2.90800+ 4 0.00000+ 0 9.69157- 9 2.90810+ 4 0.00000+ 0 5.25085-101261 145400965
+ 2.90820+ 4 0.00000+ 0 1.61026-11 3.00660+ 4 0.00000+ 0 0.00000+ 01261 145400966
+ 3.00670+ 4 0.00000+ 0 2.92047-14 3.00680+ 4 0.00000+ 0 1.32021-121261 145400967
+ 3.00690+ 4 0.00000+ 0 2.21036-11 3.00690+ 4 1.00000+ 0 2.05033-111261 145400968
+ 3.00700+ 4 0.00000+ 0 9.58155-10 3.00710+ 4 0.00000+ 0 8.06130- 91261 145400969
+ 3.00710+ 4 1.00000+ 0 8.03130- 9 3.00720+ 4 0.00000+ 0 2.18035- 71261 145400970
+ 3.00730+ 4 0.00000+ 0 5.46088- 6 3.00740+ 4 0.00000+ 0 1.30621- 51261 145400971
+ 3.00750+ 4 0.00000+ 0 2.76345- 5 3.00760+ 4 0.00000+ 0 6.93412- 51261 145400972
+ 3.00770+ 4 0.00000+ 0 9.57355- 5 3.00780+ 4 0.00000+ 0 8.07631- 51261 145400973
+ 3.00790+ 4 0.00000+ 0 2.75545- 5 3.00800+ 4 0.00000+ 0 9.88160- 61261 145400974
+ 3.00810+ 4 0.00000+ 0 1.74028- 6 3.00820+ 4 0.00000+ 0 1.76028- 71261 145400975
+ 3.00830+ 4 0.00000+ 0 1.31021- 8 3.00840+ 4 0.00000+ 0 4.06066-101261 145400976
+ 3.00860+ 4 0.00000+ 0 7.43120-14 3.10660+ 4 0.00000+ 0 0.00000+ 01261 145400977
+ 3.10670+ 4 0.00000+ 0 0.00000+ 0 3.10680+ 4 0.00000+ 0 0.00000+ 01261 145400978
+ 3.10690+ 4 0.00000+ 0 0.00000+ 0 3.10700+ 4 0.00000+ 0 6.62107-131261 145400979
+ 3.10710+ 4 0.00000+ 0 3.57058-11 3.10720+ 4 0.00000+ 0 1.31021- 91261 145400980
+ 3.10730+ 4 0.00000+ 0 3.29053- 7 3.10740+ 4 0.00000+ 0 8.34135- 71261 145400981
+ 3.10750+ 4 0.00000+ 0 4.68076- 6 3.10760+ 4 0.00000+ 0 2.93547- 51261 145400982
+ 3.10770+ 4 0.00000+ 0 1.06407- 4 3.10780+ 4 0.00000+ 0 2.56752- 41261 145400983
+ 3.10790+ 4 0.00000+ 0 2.48270- 4 3.10800+ 4 0.00000+ 0 2.65363- 41261 145400984
+ 3.10810+ 4 0.00000+ 0 1.41693- 4 3.10820+ 4 0.00000+ 0 4.50573- 51261 145400985
+ 3.10830+ 4 0.00000+ 0 1.10518- 5 3.10840+ 4 0.00000+ 0 1.27021- 61261 145400986
+ 3.10860+ 4 0.00000+ 0 2.94048- 9 3.20660+ 4 0.00000+ 0 0.00000+ 01261 145400987
+ 3.20670+ 4 0.00000+ 0 0.00000+ 0 3.20680+ 4 0.00000+ 0 0.00000+ 01261 145400988
+ 3.20690+ 4 0.00000+ 0 0.00000+ 0 3.20700+ 4 0.00000+ 0 0.00000+ 01261 145400989
+ 3.20710+ 4 0.00000+ 0 0.00000+ 0 3.20720+ 4 0.00000+ 0 8.28134-131261 145400990
+ 3.20730+ 4 0.00000+ 0 1.25020- 9 3.20730+ 4 1.00000+ 0 1.25020- 91261 145400991
+ 3.20740+ 4 0.00000+ 0 6.71109- 9 3.20750+ 4 0.00000+ 0 5.63091- 81261 145400992
+ 3.20750+ 4 1.00000+ 0 5.63091- 8 3.20760+ 4 0.00000+ 0 1.99032- 61261 145400993
+ 3.20770+ 4 0.00000+ 0 1.01216- 5 3.20770+ 4 1.00000+ 0 1.01216- 51261 145400994
+ 3.20780+ 4 0.00000+ 0 1.41203- 4 3.20790+ 4 0.00000+ 0 3.67920- 41261 145400995
+ 3.20800+ 4 0.00000+ 0 1.05049- 3 3.20810+ 4 0.00000+ 0 1.52266- 31261 145400996
+ 3.20820+ 4 0.00000+ 0 1.36717- 3 3.20830+ 4 0.00000+ 0 1.02140- 31261 145400997
+ 3.20840+ 4 0.00000+ 0 4.07776- 4 3.20850+ 4 0.00000+ 0 7.78026- 51261 145400998
+ 3.20860+ 4 0.00000+ 0 1.10218- 5 3.20870+ 4 0.00000+ 0 7.84127- 71261 145400999
+ 3.20880+ 4 0.00000+ 0 3.35054- 8 3.30690+ 4 0.00000+ 0 0.00000+ 01261 145401000
+ 3.30710+ 4 0.00000+ 0 0.00000+ 0 3.30720+ 4 0.00000+ 0 0.00000+ 01261 145401001
+ 3.30730+ 4 0.00000+ 0 4.29069-13 3.30740+ 4 0.00000+ 0 6.24101-131261 145401002
+ 3.30740+ 4 1.00000+ 0 6.47105-13 3.30750+ 4 0.00000+ 0 6.90112-111261 145401003
+ 3.30760+ 4 0.00000+ 0 3.69060- 9 3.30770+ 4 0.00000+ 0 1.18019- 71261 145401004
+ 3.30780+ 4 0.00000+ 0 2.73044- 6 3.30790+ 4 0.00000+ 0 2.10134- 51261 145401005
+ 3.30800+ 4 0.00000+ 0 1.70007- 4 3.30810+ 4 0.00000+ 0 6.46635- 41261 145401006
+ 3.30820+ 4 0.00000+ 0 7.57843- 4 3.30820+ 4 1.00000+ 0 7.60833- 41261 145401007
+ 3.30830+ 4 0.00000+ 0 3.08655- 3 3.30840+ 4 0.00000+ 0 3.77293- 31261 145401008
+ 3.30850+ 4 0.00000+ 0 2.20648- 3 3.30860+ 4 0.00000+ 0 1.00696- 31261 145401009
+ 3.30870+ 4 0.00000+ 0 2.46460- 4 3.30880+ 4 0.00000+ 0 3.83662- 51261 145401010
+ 3.30890+ 4 0.00000+ 0 2.97048- 6 3.40720+ 4 0.00000+ 0 0.00000+ 01261 145401011
+ 3.40730+ 4 0.00000+ 0 0.00000+ 0 3.40730+ 4 1.00000+ 0 0.00000+ 01261 145401012
+ 3.40740+ 4 0.00000+ 0 0.00000+ 0 3.40750+ 4 0.00000+ 0 0.00000+ 01261 145401013
+ 3.40760+ 4 0.00000+ 0 6.86111-13 3.40770+ 4 0.00000+ 0 3.62059-111261 145401014
+ 3.40770+ 4 1.00000+ 0 3.62059-11 3.40780+ 4 0.00000+ 0 5.95096- 91261 145401015
+ 3.40790+ 4 0.00000+ 0 7.51121- 8 3.40790+ 4 1.00000+ 0 7.51121- 81261 145401016
+ 3.40800+ 4 0.00000+ 0 3.87063- 6 3.40810+ 4 0.00000+ 0 2.18435- 51261 145401017
+ 3.40810+ 4 1.00000+ 0 2.15735- 5 3.40820+ 4 0.00000+ 0 2.87597- 41261 145401018
+ 3.40830+ 4 0.00000+ 0 8.11351- 4 3.40830+ 4 1.00000+ 0 8.04950- 41261 145401019
+ 3.40840+ 4 0.00000+ 0 5.73295- 3 3.40850+ 4 0.00000+ 0 4.61860- 31261 145401020
+ 3.40850+ 4 1.00000+ 0 4.61822- 3 3.40860+ 4 0.00000+ 0 1.20099- 21261 145401021
+ 3.40870+ 4 0.00000+ 0 9.05644- 3 3.40880+ 4 0.00000+ 0 4.71547- 31261 145401022
+ 3.40890+ 4 0.00000+ 0 1.24109- 3 3.40900+ 4 0.00000+ 0 2.09884- 41261 145401023
+ 3.40910+ 4 0.00000+ 0 1.66327- 5 3.40920+ 4 0.00000+ 0 6.94112- 71261 145401024
+ 3.40940+ 4 0.00000+ 0 9.74158-10 3.40950+ 4 0.00000+ 0 1.07338-111261 145401025
+ 3.40960+ 4 0.00000+ 0 1.12018-13 3.50750+ 4 0.00000+ 0 0.00000+ 01261 145401026
+ 3.50770+ 4 0.00000+ 0 0.00000+ 0 3.50770+ 4 1.00000+ 0 0.00000+ 01261 145401027
+ 3.50780+ 4 0.00000+ 0 2.82046-13 3.50790+ 4 0.00000+ 0 1.28021-111261 145401028
+ 3.50790+ 4 1.00000+ 0 1.20019-11 3.50800+ 4 0.00000+ 0 1.06017- 91261 145401029
+ 3.50800+ 4 1.00000+ 0 1.11018- 9 3.50810+ 4 0.00000+ 0 8.11131- 81261 145401030
+ 3.50820+ 4 0.00000+ 0 8.43136- 7 3.50820+ 4 1.00000+ 0 8.42136- 71261 145401031
+ 3.50830+ 4 0.00000+ 0 2.95048- 5 3.50840+ 4 0.00000+ 0 1.68017- 41261 145401032
+ 3.50840+ 4 1.00000+ 0 1.68017- 4 3.50850+ 4 0.00000+ 0 1.52282- 31261 145401033
+ 3.50860+ 4 0.00000+ 0 2.82766- 3 3.50860+ 4 1.00000+ 0 2.82872- 31261 145401034
+ 3.50870+ 4 0.00000+ 0 1.20750- 2 3.50880+ 4 0.00000+ 0 1.83915- 21261 145401035
+ 3.50890+ 4 0.00000+ 0 1.46222- 2 3.50900+ 4 0.00000+ 0 7.45777- 31261 145401036
+ 3.50910+ 4 0.00000+ 0 1.80903- 3 3.50920+ 4 0.00000+ 0 2.53351- 41261 145401037
+ 3.50930+ 4 0.00000+ 0 2.22036- 5 3.50940+ 4 0.00000+ 0 4.03065- 61261 145401038
+ 3.50950+ 4 0.00000+ 0 1.81756- 7 3.50960+ 4 0.00000+ 0 5.34086- 91261 145401039
+ 3.60770+ 4 0.00000+ 0 0.00000+ 0 3.60780+ 4 0.00000+ 0 0.00000+ 01261 145401040
+ 3.60790+ 4 0.00000+ 0 0.00000+ 0 3.60790+ 4 1.00000+ 0 0.00000+ 01261 145401041
+ 3.60800+ 4 0.00000+ 0 1.24020-13 3.60810+ 4 0.00000+ 0 7.22117-121261 145401042
+ 3.60810+ 4 1.00000+ 0 7.53122-12 3.60820+ 4 0.00000+ 0 1.03017- 91261 145401043
+ 3.60830+ 4 0.00000+ 0 2.59042- 8 3.60830+ 4 1.00000+ 0 2.59042- 81261 145401044
+ 3.60840+ 4 0.00000+ 0 2.47040- 6 3.60850+ 4 0.00000+ 0 1.88230- 51261 145401045
+ 3.60850+ 4 1.00000+ 0 1.91631- 5 3.60860+ 4 0.00000+ 0 4.24019- 41261 145401046
+ 3.60870+ 4 0.00000+ 0 2.74072- 3 3.60880+ 4 0.00000+ 0 1.24044- 21261 145401047
+ 3.60890+ 4 0.00000+ 0 2.77202- 2 3.60900+ 4 0.00000+ 0 3.87133- 21261 145401048
+ 3.60910+ 4 0.00000+ 0 2.52350- 2 3.60920+ 4 0.00000+ 0 1.06781- 21261 145401049
+ 3.60930+ 4 0.00000+ 0 2.89164- 3 3.60940+ 4 0.00000+ 0 1.68202- 31261 145401050
+ 3.60950+ 4 0.00000+ 0 2.48418- 4 3.60960+ 4 0.00000+ 0 2.40639- 51261 145401051
+ 3.60970+ 4 0.00000+ 0 1.42023- 6 3.60980+ 4 0.00000+ 0 5.48089- 81261 145401052
+ 3.60990+ 4 0.00000+ 0 7.79187-10 3.61000+ 4 0.00000+ 0 1.75028-111261 145401053
+ 3.70790+ 4 0.00000+ 0 0.00000+ 0 3.70810+ 4 0.00000+ 0 0.00000+ 01261 145401054
+ 3.70810+ 4 1.00000+ 0 0.00000+ 0 3.70830+ 4 0.00000+ 0 2.28037-121261 145401055
+ 3.70840+ 4 0.00000+ 0 2.24036-10 3.70840+ 4 1.00000+ 0 2.27037-101261 145401056
+ 3.70850+ 4 0.00000+ 0 2.22036- 8 3.70860+ 4 0.00000+ 0 4.44072- 71261 145401057
+ 3.70860+ 4 1.00000+ 0 4.43072- 7 3.70870+ 4 0.00000+ 0 3.19952- 51261 145401058
+ 3.70880+ 4 0.00000+ 0 3.06300- 4 3.70890+ 4 0.00000+ 0 2.01742- 31261 145401059
+ 3.70900+ 4 0.00000+ 0 4.49808- 3 3.70900+ 4 1.00000+ 0 3.93746- 31261 145401060
+ 3.70910+ 4 0.00000+ 0 2.18045- 2 3.70920+ 4 0.00000+ 0 3.09948- 21261 145401061
+ 3.70930+ 4 0.00000+ 0 2.77527- 2 3.70940+ 4 0.00000+ 0 1.98148- 21261 145401062
+ 3.70950+ 4 0.00000+ 0 8.83415- 3 3.70960+ 4 0.00000+ 0 2.61690- 31261 145401063
+ 3.70970+ 4 0.00000+ 0 5.02101- 4 3.70980+ 4 0.00000+ 0 6.28202- 51261 145401064
+ 3.70990+ 4 0.00000+ 0 3.86225- 6 3.71000+ 4 0.00000+ 0 2.26037- 71261 145401065
+ 3.71030+ 4 0.00000+ 0 8.00679-13 3.80830+ 4 0.00000+ 0 0.00000+ 01261 145401066
+ 3.80840+ 4 0.00000+ 0 0.00000+ 0 3.80850+ 4 0.00000+ 0 6.36103-131261 145401067
+ 3.80850+ 4 1.00000+ 0 6.21100-13 3.80860+ 4 0.00000+ 0 1.86030-101261 145401068
+ 3.80870+ 4 0.00000+ 0 2.04033- 8 3.80870+ 4 1.00000+ 0 7.89128- 91261 145401069
+ 3.80880+ 4 0.00000+ 0 8.94145- 7 3.80890+ 4 0.00000+ 0 1.93931- 51261 145401070
+ 3.80900+ 4 0.00000+ 0 2.38479- 4 3.80910+ 4 0.00000+ 0 7.01642- 31261 145401071
+ 3.80920+ 4 0.00000+ 0 1.50744- 2 3.80930+ 4 0.00000+ 0 2.97033- 21261 145401072
+ 3.80940+ 4 0.00000+ 0 3.75517- 2 3.80950+ 4 0.00000+ 0 4.51500- 21261 145401073
+ 3.80960+ 4 0.00000+ 0 3.65276- 2 3.80970+ 4 0.00000+ 0 2.05960- 21261 145401074
+ 3.80980+ 4 0.00000+ 0 7.72093- 3 3.80990+ 4 0.00000+ 0 1.60503- 31261 145401075
+ 3.81000+ 4 0.00000+ 0 2.84816- 4 3.81010+ 4 0.00000+ 0 3.53857- 51261 145401076
+ 3.81020+ 4 0.00000+ 0 2.02033- 6 3.81030+ 4 0.00000+ 0 3.97867- 81261 145401077
+ 3.81040+ 4 0.00000+ 0 7.47121-10 3.81050+ 4 0.00000+ 0 3.65517-101261 145401078
+ 3.90850+ 4 0.00000+ 0 0.00000+ 0 3.90850+ 4 1.00000+ 0 0.00000+ 01261 145401079
+ 3.90870+ 4 0.00000+ 0 1.30021-13 3.90870+ 4 1.00000+ 0 1.26020-131261 145401080
+ 3.90880+ 4 0.00000+ 0 5.66092-11 3.90890+ 4 0.00000+ 0 8.44137- 91261 145401081
+ 3.90890+ 4 1.00000+ 0 2.29037- 9 3.90900+ 4 0.00000+ 0 2.88047- 61261 145401082
+ 3.90900+ 4 1.00000+ 0 1.03017- 7 3.90910+ 4 0.00000+ 0 3.09250- 51261 145401083
+ 3.90910+ 4 1.00000+ 0 2.31037- 6 3.90920+ 4 0.00000+ 0 2.41599- 41261 145401084
+ 3.90930+ 4 0.00000+ 0 5.92336- 4 3.90940+ 4 0.00000+ 0 2.79135- 31261 145401085
+ 3.90950+ 4 0.00000+ 0 9.31737- 3 3.90960+ 4 0.00000+ 0 1.99351- 21261 145401086
+ 3.90970+ 4 0.00000+ 0 3.01497- 2 3.90980+ 4 0.00000+ 0 3.01135- 21261 145401087
+ 3.90990+ 4 0.00000+ 0 1.84490- 2 3.91000+ 4 0.00000+ 0 9.30128- 31261 145401088
+ 3.91010+ 4 0.00000+ 0 3.05009- 3 3.91020+ 4 0.00000+ 0 5.63171- 41261 145401089
+ 3.91030+ 4 0.00000+ 0 5.29788- 5 3.91040+ 4 0.00000+ 0 2.49040- 61261 145401090
+ 3.91050+ 4 0.00000+ 0 1.28068- 6 3.91070+ 4 0.00000+ 0 6.15966-101261 145401091
+ 4.00870+ 4 0.00000+ 0 0.00000+ 0 4.00880+ 4 0.00000+ 0 0.00000+ 01261 145401092
+ 4.00890+ 4 0.00000+ 0 5.27085-14 4.00890+ 4 1.00000+ 0 5.54090-141261 145401093
+ 4.00900+ 4 0.00000+ 0 6.64567- 4 4.00900+ 4 1.00000+ 0 7.54122-121261 145401094
+ 4.00910+ 4 0.00000+ 0 6.75109- 8 4.00920+ 4 0.00000+ 0 1.05017- 71261 145401095
+ 4.00930+ 4 0.00000+ 0 1.76028- 6 4.00940+ 4 0.00000+ 0 2.67343- 51261 145401096
+ 4.00950+ 4 0.00000+ 0 2.83076- 4 4.00960+ 4 0.00000+ 0 1.75797- 31261 145401097
+ 4.00970+ 4 0.00000+ 0 7.56535- 3 4.00980+ 4 0.00000+ 0 2.03071- 21261 145401098
+ 4.00990+ 4 0.00000+ 0 3.44527- 2 4.01000+ 4 0.00000+ 0 4.41361- 21261 145401099
+ 4.01010+ 4 0.00000+ 0 3.45278- 2 4.01020+ 4 0.00000+ 0 1.85473- 21261 145401100
+ 4.01030+ 4 0.00000+ 0 5.33526- 3 4.01040+ 4 0.00000+ 0 8.46467- 41261 145401101
+ 4.01050+ 4 0.00000+ 0 3.81301- 4 4.01060+ 4 0.00000+ 0 3.71760- 51261 145401102
+ 4.01070+ 4 0.00000+ 0 2.39116- 6 4.01080+ 4 0.00000+ 0 1.06017- 71261 145401103
+ 4.01090+ 4 0.00000+ 0 4.13623-10 4.01100+ 4 0.00000+ 0 3.82062-121261 145401104
+ 4.10890+ 4 0.00000+ 0 0.00000+ 0 4.10890+ 4 1.00000+ 0 0.00000+ 01261 145401105
+ 4.10900+ 4 0.00000+ 0 0.00000+ 0 4.10910+ 4 0.00000+ 0 0.00000+ 01261 145401106
+ 4.10910+ 4 1.00000+ 0 0.00000+ 0 4.10920+ 4 0.00000+ 0 6.72109-131261 145401107
+ 4.10920+ 4 1.00000+ 0 6.72109-13 4.10930+ 4 0.00000+ 0 5.79094-111261 145401108
+ 4.10930+ 4 1.00000+ 0 5.79094-11 4.10940+ 4 0.00000+ 0 3.11050- 91261 145401109
+ 4.10940+ 4 1.00000+ 0 3.10050- 9 4.10950+ 4 0.00000+ 0 1.10018- 71261 145401110
+ 4.10950+ 4 1.00000+ 0 1.10018- 7 4.10960+ 4 0.00000+ 0 4.39071- 61261 145401111
+ 4.10970+ 4 0.00000+ 0 4.98181- 4 4.10970+ 4 1.00000+ 0 2.90397- 41261 145401112
+ 4.10980+ 4 0.00000+ 0 2.43469- 4 4.10980+ 4 1.00000+ 0 2.43459- 41261 145401113
+ 4.10990+ 4 0.00000+ 0 1.24334- 3 4.10990+ 4 1.00000+ 0 1.23085- 31261 145401114
+ 4.11000+ 4 0.00000+ 0 4.24746- 3 4.11000+ 4 1.00000+ 0 4.24746- 31261 145401115
+ 4.11010+ 4 0.00000+ 0 1.54810- 2 4.11020+ 4 0.00000+ 0 2.22285- 21261 145401116
+ 4.11030+ 4 0.00000+ 0 1.73981- 2 4.11040+ 4 0.00000+ 0 8.26173- 31261 145401117
+ 4.11050+ 4 0.00000+ 0 3.73529- 3 4.11060+ 4 0.00000+ 0 9.97931- 41261 145401118
+ 4.11070+ 4 0.00000+ 0 2.70992- 4 4.11080+ 4 0.00000+ 0 2.78645- 51261 145401119
+ 4.11090+ 4 0.00000+ 0 7.86233- 7 4.11100+ 4 0.00000+ 0 2.21036- 81261 145401120
+ 4.11110+ 4 0.00000+ 0 1.50593-10 4.20900+ 4 0.00000+ 0 0.00000+ 01261 145401121
+ 4.20910+ 4 0.00000+ 0 0.00000+ 0 4.20910+ 4 1.00000+ 0 0.00000+ 01261 145401122
+ 4.20920+ 4 0.00000+ 0 0.00000+ 0 4.20930+ 4 0.00000+ 0 0.00000+ 01261 145401123
+ 4.20930+ 4 1.00000+ 0 0.00000+ 0 4.20940+ 4 0.00000+ 0 1.36022-131261 145401124
+ 4.20950+ 4 0.00000+ 0 1.66027-11 4.20960+ 4 0.00000+ 0 1.11018- 91261 145401125
+ 4.20970+ 4 0.00000+ 0 1.50024- 6 4.20980+ 4 0.00000+ 0 1.35022- 61261 145401126
+ 4.20990+ 4 0.00000+ 0 2.29837- 5 4.21000+ 4 0.00000+ 0 2.35018- 41261 145401127
+ 4.21010+ 4 0.00000+ 0 1.09903- 3 4.21020+ 4 0.00000+ 0 4.56363- 31261 145401128
+ 4.21030+ 4 0.00000+ 0 9.91788- 3 4.21040+ 4 0.00000+ 0 1.31862- 21261 145401129
+ 4.21050+ 4 0.00000+ 0 6.61046- 3 4.21060+ 4 0.00000+ 0 4.05910- 31261 145401130
+ 4.21070+ 4 0.00000+ 0 2.51480- 3 4.21080+ 4 0.00000+ 0 8.68991- 41261 145401131
+ 4.21090+ 4 0.00000+ 0 1.30535- 4 4.21100+ 4 0.00000+ 0 1.28121- 51261 145401132
+ 4.21110+ 4 0.00000+ 0 4.39120- 7 4.21120+ 4 0.00000+ 0 7.26117- 81261 145401133
+ 4.21130+ 4 0.00000+ 0 3.21540- 9 4.21140+ 4 0.00000+ 0 2.36038-101261 145401134
+ 4.21150+ 4 0.00000+ 0 4.69229-12 4.21160+ 4 0.00000+ 0 1.22020-131261 145401135
+ 4.30930+ 4 0.00000+ 0 0.00000+ 0 4.30930+ 4 1.00000+ 0 0.00000+ 01261 145401136
+ 4.30950+ 4 0.00000+ 0 0.00000+ 0 4.30950+ 4 1.00000+ 0 0.00000+ 01261 145401137
+ 4.30970+ 4 0.00000+ 0 5.63091-13 4.30970+ 4 1.00000+ 0 5.14083-131261 145401138
+ 4.30980+ 4 0.00000+ 0 8.62139-11 4.30990+ 4 0.00000+ 0 3.35054- 61261 145401139
+ 4.30990+ 4 1.00000+ 0 2.74044- 9 4.31000+ 4 0.00000+ 0 1.67027- 71261 145401140
+ 4.31010+ 4 0.00000+ 0 2.16035- 6 4.31020+ 4 0.00000+ 0 1.45023- 51261 145401141
+ 4.31020+ 4 1.00000+ 0 1.45023- 5 4.31030+ 4 0.00000+ 0 1.94752- 41261 145401142
+ 4.31040+ 4 0.00000+ 0 8.14872- 4 4.31050+ 4 0.00000+ 0 3.69140- 41261 145401143
+ 4.31060+ 4 0.00000+ 0 6.44154- 4 4.31070+ 4 0.00000+ 0 9.25810- 41261 145401144
+ 4.31080+ 4 0.00000+ 0 9.93001- 4 4.31090+ 4 0.00000+ 0 5.78564- 41261 145401145
+ 4.31100+ 4 0.00000+ 0 2.03443- 4 4.31110+ 4 0.00000+ 0 3.79069- 51261 145401146
+ 4.31120+ 4 0.00000+ 0 1.12218- 5 4.31130+ 4 0.00000+ 0 1.89835- 61261 145401147
+ 4.31140+ 4 0.00000+ 0 2.97048- 7 4.31150+ 4 0.00000+ 0 2.22106- 81261 145401148
+ 4.31160+ 4 0.00000+ 0 1.49024- 9 4.31170+ 4 0.00000+ 0 1.70224-101261 145401149
+ 4.40950+ 4 0.00000+ 0 0.00000+ 0 4.40970+ 4 0.00000+ 0 0.00000+ 01261 145401150
+ 4.40980+ 4 0.00000+ 0 0.00000+ 0 4.40990+ 4 0.00000+ 0 8.06130-121261 145401151
+ 4.41000+ 4 0.00000+ 0 1.16019-11 4.41010+ 4 0.00000+ 0 4.27069-101261 145401152
+ 4.41020+ 4 0.00000+ 0 1.95032- 8 4.41030+ 4 0.00000+ 0 4.38071- 71261 145401153
+ 4.41040+ 4 0.00000+ 0 6.36103- 6 4.41050+ 4 0.00000+ 0 2.87046- 61261 145401154
+ 4.41060+ 4 0.00000+ 0 1.45424- 5 4.41070+ 4 0.00000+ 0 5.28085- 51261 145401155
+ 4.41080+ 4 0.00000+ 0 1.93351- 4 4.41090+ 4 0.00000+ 0 4.41861- 41261 145401156
+ 4.41100+ 4 0.00000+ 0 5.05022- 4 4.41110+ 4 0.00000+ 0 3.04949- 41261 145401157
+ 4.41120+ 4 0.00000+ 0 2.15185- 4 4.41130+ 4 0.00000+ 0 1.04896- 41261 145401158
+ 4.41140+ 4 0.00000+ 0 3.97364- 5 4.41150+ 4 0.00000+ 0 8.82922- 61261 145401159
+ 4.41160+ 4 0.00000+ 0 1.76028- 6 4.41170+ 4 0.00000+ 0 8.13194- 71261 145401160
+ 4.41180+ 4 0.00000+ 0 1.75028- 8 4.41200+ 4 0.00000+ 0 5.45088-111261 145401161
+ 4.41220+ 4 0.00000+ 0 7.49121-14 4.41240+ 4 0.00000+ 0 0.00000+ 01261 145401162
+ 4.50990+ 4 0.00000+ 0 0.00000+ 0 4.50990+ 4 1.00000+ 0 0.00000+ 01261 145401163
+ 4.51010+ 4 0.00000+ 0 0.00000+ 0 4.51010+ 4 1.00000+ 0 0.00000+ 01261 145401164
+ 4.51020+ 4 0.00000+ 0 1.58026-13 4.51020+ 4 1.00000+ 0 1.58026-131261 145401165
+ 4.51030+ 4 0.00000+ 0 6.38103- 9 4.51030+ 4 1.00000+ 0 1.43023-111261 145401166
+ 4.51040+ 4 0.00000+ 0 6.13099-10 4.51040+ 4 1.00000+ 0 5.95096-101261 145401167
+ 4.51050+ 4 0.00000+ 0 4.21648- 4 4.51050+ 4 1.00000+ 0 4.66075-101261 145401168
+ 4.51060+ 4 0.00000+ 0 5.48089- 9 4.51060+ 4 1.00000+ 0 4.38071- 91261 145401169
+ 4.51070+ 4 0.00000+ 0 8.20133- 8 4.51080+ 4 0.00000+ 0 5.79094- 71261 145401170
+ 4.51080+ 4 1.00000+ 0 5.79094- 7 4.51090+ 4 0.00000+ 0 6.08098- 61261 145401171
+ 4.51090+ 4 1.00000+ 0 6.08098- 6 4.51100+ 4 0.00000+ 0 2.50340- 51261 145401172
+ 4.51100+ 4 1.00000+ 0 2.50340- 5 4.51110+ 4 0.00000+ 0 9.91760- 51261 145401173
+ 4.51120+ 4 0.00000+ 0 1.34262- 4 4.51130+ 4 0.00000+ 0 1.76899- 41261 145401174
+ 4.51140+ 4 0.00000+ 0 1.67407- 4 4.51150+ 4 0.00000+ 0 9.88160- 51261 145401175
+ 4.51160+ 4 0.00000+ 0 5.44188- 5 4.51170+ 4 0.00000+ 0 1.12345- 41261 145401176
+ 4.51180+ 4 0.00000+ 0 4.61075- 6 4.51190+ 4 0.00000+ 0 8.09131- 71261 145401177
+ 4.51200+ 4 0.00000+ 0 1.11018- 7 4.51210+ 4 0.00000+ 0 1.01016- 81261 145401178
+ 4.51220+ 4 0.00000+ 0 1.06017- 9 4.51230+ 4 0.00000+ 0 1.24020-101261 145401179
+ 4.51240+ 4 0.00000+ 0 1.11018-11 4.60990+ 4 0.00000+ 0 0.00000+ 01261 145401180
+ 4.61010+ 4 0.00000+ 0 0.00000+ 0 4.61020+ 4 0.00000+ 0 0.00000+ 01261 145401181
+ 4.61030+ 4 0.00000+ 0 0.00000+ 0 4.61040+ 4 0.00000+ 0 2.10034-141261 145401182
+ 4.61050+ 4 0.00000+ 0 3.64059- 8 4.61060+ 4 0.00000+ 0 1.04017- 91261 145401183
+ 4.61070+ 4 0.00000+ 0 6.33102-12 4.61070+ 4 1.00000+ 0 6.75109-121261 145401184
+ 4.61080+ 4 0.00000+ 0 7.33119-10 4.61090+ 4 0.00000+ 0 1.96032- 81261 145401185
+ 4.61090+ 4 1.00000+ 0 1.96032- 8 4.61100+ 4 0.00000+ 0 6.60107- 71261 145401186
+ 4.61110+ 4 0.00000+ 0 2.47040- 6 4.61110+ 4 1.00000+ 0 2.47040- 61261 145401187
+ 4.61120+ 4 0.00000+ 0 1.91531- 5 4.61130+ 4 0.00000+ 0 5.42388- 51261 145401188
+ 4.61140+ 4 0.00000+ 0 1.21610- 4 4.61150+ 4 0.00000+ 0 1.79319- 41261 145401189
+ 4.61160+ 4 0.00000+ 0 2.45580- 4 4.61170+ 4 0.00000+ 0 1.77459- 41261 145401190
+ 4.61180+ 4 0.00000+ 0 1.43623- 4 4.61190+ 4 0.00000+ 0 6.66508- 51261 145401191
+ 4.61200+ 4 0.00000+ 0 2.37138- 5 4.61210+ 4 0.00000+ 0 5.87095- 61261 145401192
+ 4.61220+ 4 0.00000+ 0 1.47024- 6 4.61230+ 4 0.00000+ 0 3.89063- 71261 145401193
+ 4.61240+ 4 0.00000+ 0 8.17132- 8 4.61260+ 4 0.00000+ 0 1.23020- 91261 145401194
+ 4.61280+ 4 0.00000+ 0 2.17035-12 4.61300+ 4 0.00000+ 0 9.55154-141261 145401195
+ 4.71030+ 4 0.00000+ 0 0.00000+ 0 4.71030+ 4 1.00000+ 0 0.00000+ 01261 145401196
+ 4.71050+ 4 0.00000+ 0 0.00000+ 0 4.71050+ 4 1.00000+ 0 0.00000+ 01261 145401197
+ 4.71060+ 4 0.00000+ 0 0.00000+ 0 4.71060+ 4 1.00000+ 0 0.00000+ 01261 145401198
+ 4.71070+ 4 0.00000+ 0 0.00000+ 0 4.71070+ 4 1.00000+ 0 0.00000+ 01261 145401199
+ 4.71080+ 4 0.00000+ 0 0.00000+ 0 4.71080+ 4 1.00000+ 0 0.00000+ 01261 145401200
+ 4.71090+ 4 0.00000+ 0 1.20019-12 4.71090+ 4 1.00000+ 0 1.20019-121261 145401201
+ 4.71100+ 4 0.00000+ 0 9.86160-11 4.71100+ 4 1.00000+ 0 1.07017-101261 145401202
+ 4.71110+ 4 0.00000+ 0 3.30053- 9 4.71110+ 4 1.00000+ 0 3.30053- 91261 145401203
+ 4.71120+ 4 0.00000+ 0 5.83094- 8 4.71130+ 4 0.00000+ 0 2.68043- 71261 145401204
+ 4.71130+ 4 1.00000+ 0 2.69044- 7 4.71140+ 4 0.00000+ 0 3.17051- 61261 145401205
+ 4.71150+ 4 0.00000+ 0 6.29102- 6 4.71150+ 4 1.00000+ 0 6.29102- 61261 145401206
+ 4.71160+ 4 0.00000+ 0 2.24736- 5 4.71160+ 4 1.00000+ 0 2.24736- 51261 145401207
+ 4.71170+ 4 0.00000+ 0 5.94096- 6 4.71170+ 4 1.00000+ 0 5.94096- 61261 145401208
+ 4.71180+ 4 0.00000+ 0 8.19333- 5 4.71180+ 4 1.00000+ 0 8.19333- 51261 145401209
+ 4.71190+ 4 0.00000+ 0 1.81959- 4 4.71200+ 4 0.00000+ 0 1.51434- 41261 145401210
+ 4.71210+ 4 0.00000+ 0 9.32351- 5 4.71220+ 4 0.00000+ 0 5.20884- 51261 145401211
+ 4.71230+ 4 0.00000+ 0 2.98548- 5 4.71240+ 4 0.00000+ 0 1.42123- 51261 145401212
+ 4.71250+ 4 0.00000+ 0 4.70076- 6 4.71260+ 4 0.00000+ 0 1.45023- 61261 145401213
+ 4.71280+ 4 0.00000+ 0 2.72044- 8 4.71290+ 4 0.00000+ 0 7.99327-101261 145401214
+ 4.71300+ 4 0.00000+ 0 3.55057- 9 4.81050+ 4 0.00000+ 0 0.00000+ 01261 145401215
+ 4.81060+ 4 0.00000+ 0 0.00000+ 0 4.81070+ 4 0.00000+ 0 0.00000+ 01261 145401216
+ 4.81080+ 4 0.00000+ 0 0.00000+ 0 4.81090+ 4 0.00000+ 0 0.00000+ 01261 145401217
+ 4.81100+ 4 0.00000+ 0 0.00000+ 0 4.81110+ 4 0.00000+ 0 4.37071-131261 145401218
+ 4.81110+ 4 1.00000+ 0 4.65075-13 4.81120+ 4 0.00000+ 0 2.13034-111261 145401219
+ 4.81130+ 4 0.00000+ 0 2.84046-10 4.81130+ 4 1.00000+ 0 2.86046-101261 145401220
+ 4.81140+ 4 0.00000+ 0 9.61155- 9 4.81150+ 4 0.00000+ 0 5.68092- 81261 145401221
+ 4.81150+ 4 1.00000+ 0 9.17148- 8 4.81160+ 4 0.00000+ 0 1.17019- 61261 145401222
+ 4.81170+ 4 0.00000+ 0 5.06082- 8 4.81170+ 4 1.00000+ 0 5.06082- 81261 145401223
+ 4.81180+ 4 0.00000+ 0 3.19452- 5 4.81190+ 4 0.00000+ 0 4.32970- 51261 145401224
+ 4.81190+ 4 1.00000+ 0 4.32970- 5 4.81200+ 4 0.00000+ 0 1.63136- 41261 145401225
+ 4.81210+ 4 0.00000+ 0 2.30787- 4 4.81220+ 4 0.00000+ 0 2.66733- 41261 145401226
+ 4.81230+ 4 0.00000+ 0 3.04539- 4 4.81240+ 4 0.00000+ 0 3.03399- 41261 145401227
+ 4.81250+ 4 0.00000+ 0 2.33598- 4 4.81260+ 4 0.00000+ 0 1.84050- 41261 145401228
+ 4.81270+ 4 0.00000+ 0 9.26450- 5 4.81280+ 4 0.00000+ 0 3.32554- 51261 145401229
+ 4.81290+ 4 0.00000+ 0 3.70367- 6 4.81300+ 4 0.00000+ 0 1.25220- 51261 145401230
+ 4.81310+ 4 0.00000+ 0 1.32021- 6 4.81320+ 4 0.00000+ 0 5.72093- 81261 145401231
+ 4.81360+ 4 0.00000+ 0 0.00000+ 0 4.91070+ 4 0.00000+ 0 0.00000+ 01261 145401232
+ 4.91090+ 4 0.00000+ 0 0.00000+ 0 4.91090+ 4 1.00000+ 0 0.00000+ 01261 145401233
+ 4.91110+ 4 0.00000+ 0 0.00000+ 0 4.91110+ 4 1.00000+ 0 0.00000+ 01261 145401234
+ 4.91120+ 4 0.00000+ 0 0.00000+ 0 4.91120+ 4 1.00000+ 0 0.00000+ 01261 145401235
+ 4.91130+ 4 0.00000+ 0 2.53041-14 4.91130+ 4 1.00000+ 0 0.00000+ 01261 145401236
+ 4.91140+ 4 0.00000+ 0 3.27053-13 4.91140+ 4 1.00000+ 0 3.19052-131261 145401237
+ 4.91150+ 4 0.00000+ 0 1.25020-11 4.91150+ 4 1.00000+ 0 1.25020-111261 145401238
+ 4.91160+ 4 0.00000+ 0 3.94064-10 4.91160+ 4 1.00000+ 0 3.94064-101261 145401239
+ 4.91170+ 4 0.00000+ 0 1.04017-11 4.91170+ 4 1.00000+ 0 1.04017-111261 145401240
+ 4.91180+ 4 0.00000+ 0 9.58155- 8 4.91180+ 4 1.00000+ 0 9.58155- 81261 145401241
+ 4.91190+ 4 0.00000+ 0 7.03114- 7 4.91190+ 4 1.00000+ 0 7.03114- 71261 145401242
+ 4.91200+ 4 0.00000+ 0 3.29053- 6 4.91200+ 4 1.00000+ 0 3.29053- 61261 145401243
+ 4.91210+ 4 0.00000+ 0 1.14719- 5 4.91210+ 4 1.00000+ 0 1.14819- 51261 145401244
+ 4.91220+ 4 0.00000+ 0 2.76645- 5 4.91220+ 4 1.00000+ 0 2.76645- 51261 145401245
+ 4.91230+ 4 0.00000+ 0 6.18600- 5 4.91230+ 4 1.00000+ 0 6.18700- 51261 145401246
+ 4.91240+ 4 0.00000+ 0 2.45020- 4 4.91250+ 4 0.00000+ 0 2.03013- 41261 145401247
+ 4.91250+ 4 1.00000+ 0 2.02993- 4 4.91260+ 4 0.00000+ 0 7.36529- 41261 145401248
+ 4.91270+ 4 0.00000+ 0 5.15733- 4 4.91270+ 4 1.00000+ 0 5.15743- 41261 145401249
+ 4.91280+ 4 0.00000+ 0 1.05578- 3 4.91290+ 4 0.00000+ 0 4.96957- 41261 145401250
+ 4.91300+ 4 0.00000+ 0 1.07927- 3 4.91310+ 4 0.00000+ 0 3.79841- 41261 145401251
+ 4.91320+ 4 0.00000+ 0 5.97997- 5 4.91330+ 4 0.00000+ 0 4.54073- 61261 145401252
+ 4.91340+ 4 0.00000+ 0 1.53025- 7 4.91360+ 4 0.00000+ 0 2.63043-111261 145401253
+ 5.01110+ 4 0.00000+ 0 0.00000+ 0 5.01120+ 4 0.00000+ 0 0.00000+ 01261 145401254
+ 5.01130+ 4 0.00000+ 0 0.00000+ 0 5.01130+ 4 1.00000+ 0 0.00000+ 01261 145401255
+ 5.01140+ 4 0.00000+ 0 0.00000+ 0 5.01150+ 4 0.00000+ 0 0.00000+ 01261 145401256
+ 5.01160+ 4 0.00000+ 0 5.12083-14 5.01170+ 4 0.00000+ 0 0.00000+ 01261 145401257
+ 5.01170+ 4 1.00000+ 0 0.00000+ 0 5.01180+ 4 0.00000+ 0 1.21020-101261 145401258
+ 5.01190+ 4 0.00000+ 0 1.28021- 9 5.01190+ 4 1.00000+ 0 1.28021- 91261 145401259
+ 5.01200+ 4 0.00000+ 0 3.21052- 8 5.01210+ 4 0.00000+ 0 1.51024- 71261 145401260
+ 5.01210+ 4 1.00000+ 0 1.51024- 7 5.01220+ 4 0.00000+ 0 1.67027- 61261 145401261
+ 5.01230+ 4 0.00000+ 0 3.94064- 6 5.01230+ 4 1.00000+ 0 3.94064- 61261 145401262
+ 5.01240+ 4 0.00000+ 0 3.30854- 5 5.01250+ 4 0.00000+ 0 6.13099- 51261 145401263
+ 5.01250+ 4 1.00000+ 0 6.46105- 5 5.01260+ 4 0.00000+ 0 5.09412- 41261 145401264
+ 5.01270+ 4 0.00000+ 0 9.30841- 4 5.01270+ 4 1.00000+ 0 9.30831- 41261 145401265
+ 5.01280+ 4 0.00000+ 0 4.87785- 3 5.01290+ 4 0.00000+ 0 3.19740- 31261 145401266
+ 5.01290+ 4 1.00000+ 0 3.19738- 3 5.01300+ 4 0.00000+ 0 1.22174- 21261 145401267
+ 5.01310+ 4 0.00000+ 0 1.28568- 2 5.01320+ 4 0.00000+ 0 6.74688- 31261 145401268
+ 5.01330+ 4 0.00000+ 0 1.84221- 3 5.01340+ 4 0.00000+ 0 2.38589- 41261 145401269
+ 5.01350+ 4 0.00000+ 0 1.28821- 5 5.01360+ 4 0.00000+ 0 5.86095- 71261 145401270
+ 5.01370+ 4 0.00000+ 0 1.68027- 8 5.01380+ 4 0.00000+ 0 2.88047-101261 145401271
+ 5.11130+ 4 0.00000+ 0 0.00000+ 0 5.11150+ 4 0.00000+ 0 0.00000+ 01261 145401272
+ 5.11170+ 4 0.00000+ 0 0.00000+ 0 5.11180+ 4 0.00000+ 0 0.00000+ 01261 145401273
+ 5.11180+ 4 1.00000+ 0 0.00000+ 0 5.11190+ 4 0.00000+ 0 1.01016-131261 145401274
+ 5.11200+ 4 0.00000+ 0 1.73028-12 5.11200+ 4 1.00000+ 0 1.73028-121261 145401275
+ 5.11210+ 4 0.00000+ 0 9.80159-11 5.11220+ 4 0.00000+ 0 6.17100-101261 145401276
+ 5.11220+ 4 1.00000+ 0 6.49105-10 5.11230+ 4 0.00000+ 0 1.38022- 81261 145401277
+ 5.11240+ 4 0.00000+ 0 6.63107- 8 5.11240+ 4 1.00000+ 0 6.61107- 81261 145401278
+ 5.11250+ 4 0.00000+ 0 1.20019- 6 5.11260+ 4 0.00000+ 0 6.27101- 61261 145401279
+ 5.11260+ 4 1.00000+ 0 6.27101- 6 5.11270+ 4 0.00000+ 0 1.31191- 41261 145401280
+ 5.11280+ 4 0.00000+ 0 4.58454- 4 5.11280+ 4 1.00000+ 0 4.58224- 41261 145401281
+ 5.11290+ 4 0.00000+ 0 3.24638- 3 5.11300+ 4 0.00000+ 0 2.73931- 31261 145401282
+ 5.11300+ 4 1.00000+ 0 2.73925- 3 5.11310+ 4 0.00000+ 0 1.57499- 21261 145401283
+ 5.11320+ 4 0.00000+ 0 1.21842- 2 5.11320+ 4 1.00000+ 0 1.21845- 21261 145401284
+ 5.11330+ 4 0.00000+ 0 2.11279- 2 5.11340+ 4 0.00000+ 0 4.74578- 31261 145401285
+ 5.11340+ 4 1.00000+ 0 4.74570- 3 5.11350+ 4 0.00000+ 0 1.87636- 31261 145401286
+ 5.11360+ 4 0.00000+ 0 2.97218- 4 5.11370+ 4 0.00000+ 0 2.85246- 51261 145401287
+ 5.11380+ 4 0.00000+ 0 1.72028- 6 5.11390+ 4 0.00000+ 0 5.88095- 81261 145401288
+ 5.11410+ 4 0.00000+ 0 7.87810-12 5.21150+ 4 0.00000+ 0 0.00000+ 01261 145401289
+ 5.21170+ 4 0.00000+ 0 0.00000+ 0 5.21180+ 4 0.00000+ 0 0.00000+ 01261 145401290
+ 5.21190+ 4 0.00000+ 0 0.00000+ 0 5.21190+ 4 1.00000+ 0 0.00000+ 01261 145401291
+ 5.21200+ 4 0.00000+ 0 0.00000+ 0 5.21210+ 4 0.00000+ 0 0.00000+ 01261 145401292
+ 5.21210+ 4 1.00000+ 0 0.00000+ 0 5.21220+ 4 0.00000+ 0 9.85159-141261 145401293
+ 5.21230+ 4 0.00000+ 0 1.16019-12 5.21230+ 4 1.00000+ 0 1.20019-121261 145401294
+ 5.21240+ 4 0.00000+ 0 5.45088-11 5.21250+ 4 0.00000+ 0 9.13148- 81261 145401295
+ 5.21250+ 4 1.00000+ 0 7.11115-10 5.21260+ 4 0.00000+ 0 3.59058- 81261 145401296
+ 5.21270+ 4 0.00000+ 0 5.93096- 7 5.21270+ 4 1.00000+ 0 5.93096- 71261 145401297
+ 5.21280+ 4 0.00000+ 0 2.46640- 5 5.21290+ 4 0.00000+ 0 1.31831- 41261 145401298
+ 5.21290+ 4 1.00000+ 0 1.31801- 4 5.21300+ 4 0.00000+ 0 3.88433- 41261 145401299
+ 5.21310+ 4 0.00000+ 0 1.64423- 3 5.21310+ 4 1.00000+ 0 1.66492- 31261 145401300
+ 5.21320+ 4 0.00000+ 0 1.50442- 2 5.21330+ 4 0.00000+ 0 1.95193- 21261 145401301
+ 5.21330+ 4 1.00000+ 0 1.95401- 2 5.21340+ 4 0.00000+ 0 5.36990- 21261 145401302
+ 5.21350+ 4 0.00000+ 0 3.41321- 2 5.21360+ 4 0.00000+ 0 1.70122- 21261 145401303
+ 5.21370+ 4 0.00000+ 0 5.09956- 3 5.21380+ 4 0.00000+ 0 1.02716- 31261 145401304
+ 5.21390+ 4 0.00000+ 0 1.16429- 4 5.21400+ 4 0.00000+ 0 9.10147- 61261 145401305
+ 5.21410+ 4 0.00000+ 0 2.11961- 7 5.21420+ 4 0.00000+ 0 1.39022- 81261 145401306
+ 5.21430+ 4 0.00000+ 0 1.46801-10 5.21440+ 4 0.00000+ 0 1.95206-121261 145401307
+ 5.31210+ 4 0.00000+ 0 0.00000+ 0 5.31230+ 4 0.00000+ 0 0.00000+ 01261 145401308
+ 5.31250+ 4 0.00000+ 0 3.62059-14 5.31260+ 4 0.00000+ 0 2.22036-121261 145401309
+ 5.31270+ 4 0.00000+ 0 2.59042-10 5.31280+ 4 0.00000+ 0 1.53025- 81261 145401310
+ 5.31290+ 4 0.00000+ 0 6.02097- 7 5.31300+ 4 0.00000+ 0 3.83062- 71261 145401311
+ 5.31300+ 4 1.00000+ 0 3.83062- 7 5.31310+ 4 0.00000+ 0 2.18535- 51261 145401312
+ 5.31320+ 4 0.00000+ 0 3.14951- 4 5.31330+ 4 0.00000+ 0 1.41461- 31261 145401313
+ 5.31330+ 4 1.00000+ 0 1.20272- 3 5.31340+ 4 0.00000+ 0 6.16469- 31261 145401314
+ 5.31340+ 4 1.00000+ 0 6.16542- 3 5.31350+ 4 0.00000+ 0 2.35335- 21261 145401315
+ 5.31360+ 4 0.00000+ 0 1.67476- 2 5.31360+ 4 1.00000+ 0 1.67476- 21261 145401316
+ 5.31370+ 4 0.00000+ 0 2.78391- 2 5.31380+ 4 0.00000+ 0 1.67667- 21261 145401317
+ 5.31390+ 4 0.00000+ 0 5.81344- 3 5.31400+ 4 0.00000+ 0 1.44789- 31261 145401318
+ 5.31410+ 4 0.00000+ 0 1.55193- 4 5.31420+ 4 0.00000+ 0 2.44540- 51261 145401319
+ 5.31430+ 4 0.00000+ 0 1.03352- 6 5.31440+ 4 0.00000+ 0 5.07105- 81261 145401320
+ 5.41250+ 4 0.00000+ 0 0.00000+ 0 5.41250+ 4 1.00000+ 0 0.00000+ 01261 145401321
+ 5.41260+ 4 0.00000+ 0 0.00000+ 0 5.41270+ 4 0.00000+ 0 0.00000+ 01261 145401322
+ 5.41270+ 4 1.00000+ 0 0.00000+ 0 5.41280+ 4 0.00000+ 0 1.14018-121261 145401323
+ 5.41290+ 4 0.00000+ 0 6.93112-11 5.41290+ 4 1.00000+ 0 7.31118-111261 145401324
+ 5.41300+ 4 0.00000+ 0 1.51024-10 5.41310+ 4 0.00000+ 0 7.48121- 91261 145401325
+ 5.41310+ 4 1.00000+ 0 7.48121- 9 5.41320+ 4 0.00000+ 0 8.10131- 71261 145401326
+ 5.41330+ 4 0.00000+ 0 1.49624- 5 5.41330+ 4 1.00000+ 0 4.58174- 51261 145401327
+ 5.41340+ 4 0.00000+ 0 2.07694- 4 5.41340+ 4 1.00000+ 0 2.07674- 41261 145401328
+ 5.41350+ 4 0.00000+ 0 1.15216- 3 5.41350+ 4 1.00000+ 0 2.04845- 31261 145401329
+ 5.41360+ 4 0.00000+ 0 1.14849- 2 5.41370+ 4 0.00000+ 0 2.63980- 21261 145401330
+ 5.41380+ 4 0.00000+ 0 4.27116- 2 5.41390+ 4 0.00000+ 0 4.03237- 21261 145401331
+ 5.41400+ 4 0.00000+ 0 2.85227- 2 5.41410+ 4 0.00000+ 0 9.14372- 31261 145401332
+ 5.41420+ 4 0.00000+ 0 4.50036- 3 5.41430+ 4 0.00000+ 0 6.02594- 41261 145401333
+ 5.41440+ 4 0.00000+ 0 1.05236- 4 5.41450+ 4 0.00000+ 0 6.31102- 61261 145401334
+ 5.41460+ 4 0.00000+ 0 2.51041- 7 5.41470+ 4 0.00000+ 0 1.65171- 91261 145401335
+ 5.41480+ 4 0.00000+ 0 2.82046-11 5.41500+ 4 0.00000+ 0 0.00000+ 01261 145401336
+ 5.51270+ 4 0.00000+ 0 0.00000+ 0 5.51290+ 4 0.00000+ 0 0.00000+ 01261 145401337
+ 5.51310+ 4 0.00000+ 0 2.18035-13 5.51320+ 4 0.00000+ 0 4.37071-111261 145401338
+ 5.51330+ 4 0.00000+ 0 5.72093- 9 5.51340+ 4 0.00000+ 0 1.83030- 71261 145401339
+ 5.51340+ 4 1.00000+ 0 1.83030- 7 5.51350+ 4 0.00000+ 0 4.54073- 61261 145401340
+ 5.51350+ 4 1.00000+ 0 4.59074- 6 5.51360+ 4 0.00000+ 0 1.56505- 41261 145401341
+ 5.51370+ 4 0.00000+ 0 2.22411- 3 5.51380+ 4 0.00000+ 0 1.96567- 31261 145401342
+ 5.51380+ 4 1.00000+ 0 2.14719- 3 5.51390+ 4 0.00000+ 0 1.64867- 21261 145401343
+ 5.51400+ 4 0.00000+ 0 2.54361- 2 5.51410+ 4 0.00000+ 0 3.54742- 21261 145401344
+ 5.51420+ 4 0.00000+ 0 2.52174- 2 5.51430+ 4 0.00000+ 0 1.27783- 21261 145401345
+ 5.51440+ 4 0.00000+ 0 5.25716- 3 5.51450+ 4 0.00000+ 0 1.00338- 31261 145401346
+ 5.51460+ 4 0.00000+ 0 1.31051- 4 5.51470+ 4 0.00000+ 0 5.36031- 61261 145401347
+ 5.51480+ 4 0.00000+ 0 2.23036- 7 5.51500+ 4 0.00000+ 0 7.03114-111261 145401348
+ 5.61290+ 4 0.00000+ 0 0.00000+ 0 5.61290+ 4 1.00000+ 0 0.00000+ 01261 145401349
+ 5.61310+ 4 0.00000+ 0 0.00000+ 0 5.61310+ 4 1.00000+ 0 0.00000+ 01261 145401350
+ 5.61320+ 4 0.00000+ 0 0.00000+ 0 5.61330+ 4 0.00000+ 0 1.16019-131261 145401351
+ 5.61340+ 4 0.00000+ 0 3.14051-11 5.61350+ 4 0.00000+ 0 3.91063- 91261 145401352
+ 5.61350+ 4 1.00000+ 0 1.65027- 9 5.61360+ 4 0.00000+ 0 1.59026- 71261 145401353
+ 5.61370+ 4 0.00000+ 0 1.88030- 6 5.61370+ 4 1.00000+ 0 1.88030- 61261 145401354
+ 5.61380+ 4 0.00000+ 0 5.83894- 5 5.61390+ 4 0.00000+ 0 5.31346- 41261 145401355
+ 5.61400+ 4 0.00000+ 0 4.69931- 3 5.61410+ 4 0.00000+ 0 1.50282- 21261 145401356
+ 5.61420+ 4 0.00000+ 0 2.40038- 2 5.61430+ 4 0.00000+ 0 3.94720- 21261 145401357
+ 5.61440+ 4 0.00000+ 0 3.64655- 2 5.61450+ 4 0.00000+ 0 1.97717- 21261 145401358
+ 5.61460+ 4 0.00000+ 0 7.71421- 3 5.61470+ 4 0.00000+ 0 1.48292- 31261 145401359
+ 5.61480+ 4 0.00000+ 0 1.73488- 4 5.61490+ 4 0.00000+ 0 1.12818- 51261 145401360
+ 5.61500+ 4 0.00000+ 0 6.21100- 7 5.61520+ 4 0.00000+ 0 2.90047-101261 145401361
+ 5.61540+ 4 0.00000+ 0 1.32021-14 5.71330+ 4 0.00000+ 0 0.00000+ 01261 145401362
+ 5.71350+ 4 0.00000+ 0 2.63043-14 5.71370+ 4 0.00000+ 0 3.28053-101261 145401363
+ 5.71380+ 4 0.00000+ 0 1.88030- 7 5.71390+ 4 0.00000+ 0 5.88095- 71261 145401364
+ 5.71400+ 4 0.00000+ 0 8.00930- 5 5.71410+ 4 0.00000+ 0 1.51475- 41261 145401365
+ 5.71420+ 4 0.00000+ 0 8.45277- 4 5.71430+ 4 0.00000+ 0 4.07201- 31261 145401366
+ 5.71440+ 4 0.00000+ 0 1.04142- 2 5.71450+ 4 0.00000+ 0 1.48458- 21261 145401367
+ 5.71460+ 4 0.00000+ 0 1.55733- 2 5.71470+ 4 0.00000+ 0 9.50440- 31261 145401368
+ 5.71480+ 4 0.00000+ 0 3.62711- 3 5.71490+ 4 0.00000+ 0 7.71875- 41261 145401369
+ 5.71500+ 4 0.00000+ 0 1.28881- 4 5.71510+ 4 0.00000+ 0 1.37222- 51261 145401370
+ 5.71520+ 4 0.00000+ 0 6.91112- 7 5.71530+ 4 0.00000+ 0 2.13034- 81261 145401371
+ 5.71540+ 4 0.00000+ 0 3.72060-10 5.81350+ 4 0.00000+ 0 0.00000+ 01261 145401372
+ 5.81370+ 4 0.00000+ 0 0.00000+ 0 5.81370+ 4 1.00000+ 0 0.00000+ 01261 145401373
+ 5.81380+ 4 0.00000+ 0 3.30053-12 5.81390+ 4 0.00000+ 0 3.41055-111261 145401374
+ 5.81390+ 4 1.00000+ 0 3.23052-11 5.81400+ 4 0.00000+ 0 1.95032- 81261 145401375
+ 5.81410+ 4 0.00000+ 0 2.28037- 7 5.81420+ 4 0.00000+ 0 3.56058- 61261 145401376
+ 5.81430+ 4 0.00000+ 0 4.99981- 5 5.81440+ 4 0.00000+ 0 4.30250- 41261 145401377
+ 5.81450+ 4 0.00000+ 0 1.85275- 3 5.81460+ 4 0.00000+ 0 5.47354- 31261 145401378
+ 5.81470+ 4 0.00000+ 0 1.22740- 2 5.81480+ 4 0.00000+ 0 1.15418- 21261 145401379
+ 5.81490+ 4 0.00000+ 0 7.15969- 3 5.81500+ 4 0.00000+ 0 3.23447- 31261 145401380
+ 5.81510+ 4 0.00000+ 0 9.82779- 4 5.81520+ 4 0.00000+ 0 1.70188- 41261 145401381
+ 5.81530+ 4 0.00000+ 0 1.81429- 5 5.81540+ 4 0.00000+ 0 9.97161- 71261 145401382
+ 5.81550+ 4 0.00000+ 0 3.93064- 8 5.81560+ 4 0.00000+ 0 1.03017- 91261 145401383
+ 5.81570+ 4 0.00000+ 0 3.35054-11 5.81580+ 4 0.00000+ 0 3.42055-131261 145401384
+ 5.81600+ 4 0.00000+ 0 0.00000+ 0 5.91390+ 4 0.00000+ 0 0.00000+ 01261 145401385
+ 5.91400+ 4 0.00000+ 0 3.98064-14 5.91410+ 4 0.00000+ 0 5.28085-121261 145401386
+ 5.91420+ 4 0.00000+ 0 1.75028-10 5.91420+ 4 1.00000+ 0 1.75028-101261 145401387
+ 5.91430+ 4 0.00000+ 0 3.64059- 8 5.91440+ 4 0.00000+ 0 1.75028- 61261 145401388
+ 5.91440+ 4 1.00000+ 0 2.46040- 7 5.91450+ 4 0.00000+ 0 6.78110- 61261 145401389
+ 5.91460+ 4 0.00000+ 0 6.34503- 5 5.91470+ 4 0.00000+ 0 4.26019- 41261 145401390
+ 5.91480+ 4 0.00000+ 0 1.47906- 3 5.91490+ 4 0.00000+ 0 2.81840- 31261 145401391
+ 5.91500+ 4 0.00000+ 0 3.02811- 3 5.91510+ 4 0.00000+ 0 2.36549- 31261 145401392
+ 5.91520+ 4 0.00000+ 0 1.23991- 3 5.91530+ 4 0.00000+ 0 4.12157- 41261 145401393
+ 5.91540+ 4 0.00000+ 0 6.63207- 5 5.91550+ 4 0.00000+ 0 9.17148- 61261 145401394
+ 5.91560+ 4 0.00000+ 0 6.88111- 7 5.91570+ 4 0.00000+ 0 6.25101- 81261 145401395
+ 5.91580+ 4 0.00000+ 0 2.11034- 9 5.91590+ 4 0.00000+ 0 1.85030-111261 145401396
+ 5.91600+ 4 0.00000+ 0 1.21020-11 6.01400+ 4 0.00000+ 0 0.00000+ 01261 145401397
+ 6.01410+ 4 0.00000+ 0 0.00000+ 0 6.01410+ 4 1.00000+ 0 0.00000+ 01261 145401398
+ 6.01420+ 4 0.00000+ 0 0.00000+ 0 6.01430+ 4 0.00000+ 0 5.79094-131261 145401399
+ 6.01440+ 4 0.00000+ 0 2.73044- 6 6.01450+ 4 0.00000+ 0 2.55041- 91261 145401400
+ 6.01460+ 4 0.00000+ 0 8.06130- 8 6.01470+ 4 0.00000+ 0 2.01033- 61261 145401401
+ 6.01480+ 4 0.00000+ 0 2.59842- 5 6.01490+ 4 0.00000+ 0 1.49284- 41261 145401402
+ 6.01500+ 4 0.00000+ 0 4.79608- 4 6.01510+ 4 0.00000+ 0 9.92871- 41261 145401403
+ 6.01520+ 4 0.00000+ 0 1.50875- 3 6.01530+ 4 0.00000+ 0 1.37875- 31261 145401404
+ 6.01540+ 4 0.00000+ 0 5.92816- 4 6.01550+ 4 0.00000+ 0 2.56511- 41261 145401405
+ 6.01560+ 4 0.00000+ 0 5.07082- 5 6.01570+ 4 0.00000+ 0 1.21820- 51261 145401406
+ 6.01580+ 4 0.00000+ 0 1.29021- 6 6.01590+ 4 0.00000+ 0 4.40071- 81261 145401407
+ 6.01600+ 4 0.00000+ 0 2.55041- 8 6.01610+ 4 0.00000+ 0 5.67092-111261 145401408
+ 6.01620+ 4 0.00000+ 0 1.53025-12 6.01630+ 4 0.00000+ 0 0.00000+ 01261 145401409
+ 6.01640+ 4 0.00000+ 0 0.00000+ 0 6.11410+ 4 0.00000+ 0 0.00000+ 01261 145401410
+ 6.11430+ 4 0.00000+ 0 0.00000+ 0 6.11440+ 4 0.00000+ 0 0.00000+ 01261 145401411
+ 6.11450+ 4 0.00000+ 0 2.32038-14 6.11460+ 4 0.00000+ 0 2.48040-121261 145401412
+ 6.11470+ 4 0.00000+ 0 1.87030- 8 6.11480+ 4 0.00000+ 0 5.70092- 91261 145401413
+ 6.11480+ 4 1.00000+ 0 5.70092- 9 6.11490+ 4 0.00000+ 0 2.31037- 71261 145401414
+ 6.11500+ 4 0.00000+ 0 2.28037- 6 6.11510+ 4 0.00000+ 0 1.40123- 51261 145401415
+ 6.11520+ 4 0.00000+ 0 3.48156- 5 6.11520+ 4 1.00000+ 0 3.48156- 51261 145401416
+ 6.11530+ 4 0.00000+ 0 1.94832- 4 6.11540+ 4 0.00000+ 0 1.06727- 41261 145401417
+ 6.11540+ 4 1.00000+ 0 1.06757- 4 6.11550+ 4 0.00000+ 0 2.64693- 41261 145401418
+ 6.11560+ 4 0.00000+ 0 1.32441- 4 6.11570+ 4 0.00000+ 0 7.19416- 51261 145401419
+ 6.11580+ 4 0.00000+ 0 2.17035- 5 6.11590+ 4 0.00000+ 0 2.61042- 61261 145401420
+ 6.11600+ 4 0.00000+ 0 1.35022- 6 6.11610+ 4 0.00000+ 0 2.48040- 81261 145401421
+ 6.11620+ 4 0.00000+ 0 2.11034- 9 6.11630+ 4 0.00000+ 0 3.22052-111261 145401422
+ 6.11640+ 4 0.00000+ 0 6.00097-13 6.11650+ 4 0.00000+ 0 0.00000+ 01261 145401423
+ 6.21430+ 4 0.00000+ 0 0.00000+ 0 6.21430+ 4 1.00000+ 0 0.00000+ 01261 145401424
+ 6.21440+ 4 0.00000+ 0 0.00000+ 0 6.21450+ 4 0.00000+ 0 0.00000+ 01261 145401425
+ 6.21460+ 4 0.00000+ 0 0.00000+ 0 6.21470+ 4 0.00000+ 0 1.15019-141261 145401426
+ 6.21480+ 4 0.00000+ 0 4.80078-13 6.21490+ 4 0.00000+ 0 3.86062-111261 145401427
+ 6.21500+ 4 0.00000+ 0 1.13018- 9 6.21510+ 4 0.00000+ 0 2.20036- 81261 145401428
+ 6.21520+ 4 0.00000+ 0 3.94064- 7 6.21530+ 4 0.00000+ 0 3.76061- 61261 145401429
+ 6.21540+ 4 0.00000+ 0 1.18519- 5 6.21550+ 4 0.00000+ 0 4.65775- 51261 145401430
+ 6.21560+ 4 0.00000+ 0 5.85695- 5 6.21570+ 4 0.00000+ 0 7.19416- 51261 145401431
+ 6.21580+ 4 0.00000+ 0 5.63591- 5 6.21590+ 4 0.00000+ 0 2.08534- 51261 145401432
+ 6.21600+ 4 0.00000+ 0 9.82159- 6 6.21610+ 4 0.00000+ 0 1.23020- 61261 145401433
+ 6.21620+ 4 0.00000+ 0 3.08050- 7 6.21630+ 4 0.00000+ 0 1.47024- 81261 145401434
+ 6.21640+ 4 0.00000+ 0 8.79142-10 6.21650+ 4 0.00000+ 0 3.31054-111261 145401435
+ 6.21660+ 4 0.00000+ 0 1.30021-12 6.21670+ 4 0.00000+ 0 2.35038-141261 145401436
+ 6.21680+ 4 0.00000+ 0 0.00000+ 0 6.21700+ 4 0.00000+ 0 0.00000+ 01261 145401437
+ 6.31470+ 4 0.00000+ 0 0.00000+ 0 6.31490+ 4 0.00000+ 0 0.00000+ 01261 145401438
+ 6.31510+ 4 0.00000+ 0 4.03065-12 6.31520+ 4 0.00000+ 0 2.78045-111261 145401439
+ 6.31520+ 4 1.00000+ 0 2.78045-11 6.31530+ 4 0.00000+ 0 1.76028- 91261 145401440
+ 6.31540+ 4 0.00000+ 0 1.79029- 8 6.31550+ 4 0.00000+ 0 2.49040- 71261 145401441
+ 6.31560+ 4 0.00000+ 0 7.82127- 7 6.31570+ 4 0.00000+ 0 2.67043- 61261 145401442
+ 6.31580+ 4 0.00000+ 0 5.90095- 6 6.31590+ 4 0.00000+ 0 6.74109- 61261 145401443
+ 6.31600+ 4 0.00000+ 0 2.88047- 6 6.31610+ 4 0.00000+ 0 2.15035- 61261 145401444
+ 6.31620+ 4 0.00000+ 0 1.40023- 6 6.31630+ 4 0.00000+ 0 1.88030- 71261 145401445
+ 6.31640+ 4 0.00000+ 0 3.30053- 8 6.31650+ 4 0.00000+ 0 3.81062- 91261 145401446
+ 6.31660+ 4 0.00000+ 0 4.73077-10 6.31670+ 4 0.00000+ 0 2.77045-111261 145401447
+ 6.31680+ 4 0.00000+ 0 5.37087-13 6.31690+ 4 0.00000+ 0 0.00000+ 01261 145401448
+ 6.31700+ 4 0.00000+ 0 0.00000+ 0 6.41470+ 4 0.00000+ 0 0.00000+ 01261 145401449
+ 6.41490+ 4 0.00000+ 0 0.00000+ 0 6.41510+ 4 0.00000+ 0 0.00000+ 01261 145401450
+ 6.41520+ 4 0.00000+ 0 0.00000+ 0 6.41530+ 4 0.00000+ 0 7.77126-141261 145401451
+ 6.41540+ 4 0.00000+ 0 2.67043-12 6.41550+ 4 0.00000+ 0 1.39022-101261 145401452
+ 6.41560+ 4 0.00000+ 0 1.85130- 5 6.41570+ 4 0.00000+ 0 1.19019- 81261 145401453
+ 6.41580+ 4 0.00000+ 0 8.25133- 8 6.41590+ 4 0.00000+ 0 3.44056- 71261 145401454
+ 6.41600+ 4 0.00000+ 0 1.29021- 7 6.41610+ 4 0.00000+ 0 6.48105- 71261 145401455
+ 6.41620+ 4 0.00000+ 0 1.09018- 6 6.41630+ 4 0.00000+ 0 3.80061- 71261 145401456
+ 6.41640+ 4 0.00000+ 0 1.77029- 7 6.41650+ 4 0.00000+ 0 5.61091- 81261 145401457
+ 6.41660+ 4 0.00000+ 0 1.99032- 8 6.41670+ 4 0.00000+ 0 3.50057- 91261 145401458
+ 6.41680+ 4 0.00000+ 0 2.11034-10 6.41690+ 4 0.00000+ 0 7.66124-121261 145401459
+ 6.41700+ 4 0.00000+ 0 2.41039-13 6.41710+ 4 0.00000+ 0 0.00000+ 01261 145401460
+ 6.41720+ 4 0.00000+ 0 0.00000+ 0 6.51510+ 4 0.00000+ 0 0.00000+ 01261 145401461
+ 6.51530+ 4 0.00000+ 0 0.00000+ 0 6.51550+ 4 0.00000+ 0 0.00000+ 01261 145401462
+ 6.51560+ 4 0.00000+ 0 2.98048-14 6.51560+ 4 1.00000+ 0 3.07050-141261 145401463
+ 6.51570+ 4 0.00000+ 0 1.18019-12 6.51580+ 4 0.00000+ 0 1.36022-111261 145401464
+ 6.51580+ 4 1.00000+ 0 1.42023-11 6.51590+ 4 0.00000+ 0 4.31070-101261 145401465
+ 6.51600+ 4 0.00000+ 0 1.53025-10 6.51610+ 4 0.00000+ 0 6.32102- 91261 145401466
+ 6.51620+ 4 0.00000+ 0 1.55025- 8 6.51620+ 4 1.00000+ 0 1.55025- 81261 145401467
+ 6.51630+ 4 0.00000+ 0 3.08050- 8 6.51640+ 4 0.00000+ 0 3.87063- 81261 145401468
+ 6.51650+ 4 0.00000+ 0 3.21052- 8 6.51660+ 4 0.00000+ 0 2.98048- 81261 145401469
+ 6.51670+ 4 0.00000+ 0 1.40023- 8 6.51680+ 4 0.00000+ 0 2.36038- 91261 145401470
+ 6.51690+ 4 0.00000+ 0 2.50040-10 6.51700+ 4 0.00000+ 0 2.40039-111261 145401471
+ 6.51710+ 4 0.00000+ 0 1.72028-12 6.51720+ 4 0.00000+ 0 6.16100-141261 145401472
+ 6.61550+ 4 0.00000+ 0 0.00000+ 0 6.61560+ 4 0.00000+ 0 0.00000+ 01261 145401473
+ 6.61570+ 4 0.00000+ 0 0.00000+ 0 6.61580+ 4 0.00000+ 0 0.00000+ 01261 145401474
+ 6.61590+ 4 0.00000+ 0 5.46088-14 6.61600+ 4 0.00000+ 0 1.79029-141261 145401475
+ 6.61610+ 4 0.00000+ 0 7.20116-12 6.61620+ 4 0.00000+ 0 1.03017-101261 145401476
+ 6.61630+ 4 0.00000+ 0 3.22052-10 6.61640+ 4 0.00000+ 0 1.24020- 91261 145401477
+ 6.61650+ 4 0.00000+ 0 1.50024- 9 6.61650+ 4 1.00000+ 0 1.50024- 91261 145401478
+ 6.61660+ 4 0.00000+ 0 7.71125- 9 6.61670+ 4 0.00000+ 0 9.64156- 91261 145401479
+ 6.61680+ 4 0.00000+ 0 4.23068- 9 6.61690+ 4 0.00000+ 0 1.19019- 91261 145401480
+ 6.61700+ 4 0.00000+ 0 3.10050-10 6.61710+ 4 0.00000+ 0 6.33102-111261 145401481
+ 6.61720+ 4 0.00000+ 0 6.76109-12 6.71590+ 4 0.00000+ 0 0.00000+ 01261 145401482
+ 6.71590+ 4 1.00000+ 0 0.00000+ 0 6.71610+ 4 0.00000+ 0 0.00000+ 01261 145401483
+ 6.71610+ 4 1.00000+ 0 0.00000+ 0 6.71620+ 4 0.00000+ 0 0.00000+ 01261 145401484
+ 6.71620+ 4 1.00000+ 0 0.00000+ 0 6.71630+ 4 0.00000+ 0 4.22068-141261 145401485
+ 6.71630+ 4 1.00000+ 0 4.09066-14 6.71640+ 4 0.00000+ 0 4.93080-131261 145401486
+ 6.71640+ 4 1.00000+ 0 5.12083-13 6.71650+ 4 0.00000+ 0 7.92128-121261 145401487
+ 6.71660+ 4 0.00000+ 0 3.18051-11 6.71660+ 4 1.00000+ 0 3.18051-111261 145401488
+ 6.71670+ 4 0.00000+ 0 2.39039-10 6.71680+ 4 0.00000+ 0 3.00049-101261 145401489
+ 6.71690+ 4 0.00000+ 0 2.28037-10 6.71700+ 4 0.00000+ 0 7.83127-111261 145401490
+ 6.71700+ 4 1.00000+ 0 7.87127-11 6.71710+ 4 0.00000+ 0 8.38136-111261 145401491
+ 6.71720+ 4 0.00000+ 0 2.38039-11 6.81610+ 4 0.00000+ 0 0.00000+ 01261 145401492
+ 6.81620+ 4 0.00000+ 0 0.00000+ 0 6.81630+ 4 0.00000+ 0 0.00000+ 01261 145401493
+ 6.81640+ 4 0.00000+ 0 0.00000+ 0 6.81650+ 4 0.00000+ 0 0.00000+ 01261 145401494
+ 6.81660+ 4 0.00000+ 0 5.62091-14 6.81670+ 4 0.00000+ 0 3.41055-131261 145401495
+ 6.81670+ 4 1.00000+ 0 3.42055-13 6.81680+ 4 0.00000+ 0 2.71044-121261 145401496
+ 6.81690+ 4 0.00000+ 0 6.32102-12 6.81700+ 4 0.00000+ 0 1.28021-111261 145401497
+ 6.81710+ 4 0.00000+ 0 1.91031-11 6.81720+ 4 0.00000+ 0 1.45023-111261 145401498
+ 1.40000+ 7 0.00000+ 0          3          0       3390       11301261 145401499
+ 2.40660+ 4 0.00000+ 0 1.59889-10 2.40670+ 4 0.00000+ 0 1.59889-111261 145401500
+ 2.40680+ 4 0.00000+ 0 5.88591-13 2.40700+ 4 0.00000+ 0 0.00000+ 01261 145401501
+ 2.50660+ 4 0.00000+ 0 4.09715- 8 2.50670+ 4 0.00000+ 0 1.31908- 81261 145401502
+ 2.50680+ 4 0.00000+ 0 1.58890- 9 2.50690+ 4 0.00000+ 0 1.34906-101261 145401503
+ 2.50700+ 4 0.00000+ 0 8.36419-12 2.50710+ 4 0.00000+ 0 3.33768-131261 145401504
+ 2.60660+ 4 0.00000+ 0 1.24913- 6 2.60670+ 4 0.00000+ 0 1.19917- 61261 145401505
+ 2.60680+ 4 0.00000+ 0 4.43692- 7 2.60690+ 4 0.00000+ 0 1.19917- 71261 145401506
+ 2.60700+ 4 0.00000+ 0 2.39833- 8 2.60710+ 4 0.00000+ 0 3.15781- 91261 145401507
+ 2.60720+ 4 0.00000+ 0 2.82803- 9 2.60730+ 4 0.00000+ 0 2.16849-101261 145401508
+ 2.60740+ 4 0.00000+ 0 8.21429-12 2.60760+ 4 0.00000+ 0 0.00000+ 01261 145401509
+ 2.70660+ 4 0.00000+ 0 1.39903- 6 2.70670+ 4 0.00000+ 0 3.53754- 61261 145401510
+ 2.70680+ 4 0.00000+ 0 3.60749- 6 2.70690+ 4 0.00000+ 0 2.80805- 61261 145401511
+ 2.70700+ 4 0.00000+ 0 1.69882- 6 2.70710+ 4 0.00000+ 0 6.98515- 71261 145401512
+ 2.70720+ 4 0.00000+ 0 7.70465- 7 2.70730+ 4 0.00000+ 0 1.95864- 71261 145401513
+ 2.70740+ 4 0.00000+ 0 2.43831- 8 2.70750+ 4 0.00000+ 0 2.21846- 91261 145401514
+ 2.70760+ 4 0.00000+ 0 1.27911-10 2.80660+ 4 0.00000+ 0 2.67814- 71261 145401515
+ 2.80670+ 4 0.00000+ 0 1.81874- 6 2.80680+ 4 0.00000+ 0 4.87661- 61261 145401516
+ 2.80690+ 4 0.00000+ 0 9.92310- 6 2.80700+ 4 0.00000+ 0 1.61288- 51261 145401517
+ 2.80710+ 4 0.00000+ 0 1.86171- 5 2.80720+ 4 0.00000+ 0 2.48128- 51261 145401518
+ 2.80730+ 4 0.00000+ 0 1.93166- 5 2.80740+ 4 0.00000+ 0 7.41485- 61261 145401519
+ 2.80750+ 4 0.00000+ 0 2.07856- 6 2.80760+ 4 0.00000+ 0 3.78737- 71261 145401520
+ 2.80770+ 4 0.00000+ 0 4.89660- 8 2.80780+ 4 0.00000+ 0 2.69813- 91261 145401521
+ 2.80800+ 4 0.00000+ 0 1.88869-12 2.80820+ 4 0.00000+ 0 0.00000+ 01261 145401522
+ 2.90660+ 4 0.00000+ 0 1.56891- 9 2.90670+ 4 0.00000+ 0 3.23775- 81261 145401523
+ 2.90680+ 4 0.00000+ 0 1.25913- 7 2.90680+ 4 1.00000+ 0 1.23914- 71261 145401524
+ 2.90690+ 4 0.00000+ 0 1.41901- 6 2.90700+ 4 0.00000+ 0 3.05788- 61261 145401525
+ 2.90700+ 4 1.00000+ 0 3.05788- 6 2.90710+ 4 0.00000+ 0 1.83972- 51261 145401526
+ 2.90720+ 4 0.00000+ 0 2.90698- 5 2.90730+ 4 0.00000+ 0 6.17171- 51261 145401527
+ 2.90740+ 4 0.00000+ 0 6.53546- 5 2.90750+ 4 0.00000+ 0 5.17041- 51261 145401528
+ 2.90760+ 4 0.00000+ 0 2.75908- 5 2.90770+ 4 0.00000+ 0 1.11722- 51261 145401529
+ 2.90780+ 4 0.00000+ 0 2.03858- 6 2.90790+ 4 0.00000+ 0 2.14851- 71261 145401530
+ 2.90800+ 4 0.00000+ 0 1.69882- 8 2.90810+ 4 0.00000+ 0 5.90590-101261 145401531
+ 2.90820+ 4 0.00000+ 0 2.95794-11 3.00660+ 4 0.00000+ 0 9.66328-131261 145401532
+ 3.00670+ 4 0.00000+ 0 6.50548-11 3.00680+ 4 0.00000+ 0 1.60888- 91261 145401533
+ 3.00690+ 4 0.00000+ 0 1.39903- 8 3.00690+ 4 1.00000+ 0 1.25913- 81261 145401534
+ 3.00700+ 4 0.00000+ 0 3.60749- 7 3.00710+ 4 0.00000+ 0 1.53893- 61261 145401535
+ 3.00710+ 4 1.00000+ 0 1.53893- 6 3.00720+ 4 0.00000+ 0 5.87592- 61261 145401536
+ 3.00730+ 4 0.00000+ 0 3.40963- 5 3.00740+ 4 0.00000+ 0 9.49440- 51261 145401537
+ 3.00750+ 4 0.00000+ 0 1.92027- 4 3.00760+ 4 0.00000+ 0 2.68673- 41261 145401538
+ 3.00770+ 4 0.00000+ 0 3.05758- 4 3.00780+ 4 0.00000+ 0 1.69023- 41261 145401539
+ 3.00790+ 4 0.00000+ 0 5.64708- 5 3.00800+ 4 0.00000+ 0 1.49896- 51261 145401540
+ 3.00810+ 4 0.00000+ 0 1.85871- 6 3.00820+ 4 0.00000+ 0 2.78806- 71261 145401541
+ 3.00830+ 4 0.00000+ 0 1.96863- 8 3.00840+ 4 0.00000+ 0 8.37418-101261 145401542
+ 3.00860+ 4 0.00000+ 0 1.72880-13 3.10660+ 4 0.00000+ 0 0.00000+ 01261 145401543
+ 3.10670+ 4 0.00000+ 0 0.00000+ 0 3.10680+ 4 0.00000+ 0 2.32838-131261 145401544
+ 3.10690+ 4 0.00000+ 0 1.39903-11 3.10700+ 4 0.00000+ 0 5.80597-101261 145401545
+ 3.10710+ 4 0.00000+ 0 1.56891- 8 3.10720+ 4 0.00000+ 0 3.63747- 81261 145401546
+ 3.10730+ 4 0.00000+ 0 6.62540- 7 3.10740+ 4 0.00000+ 0 5.30631- 61261 145401547
+ 3.10750+ 4 0.00000+ 0 2.88300- 5 3.10760+ 4 0.00000+ 0 1.03838- 41261 145401548
+ 3.10770+ 4 0.00000+ 0 3.09335- 4 3.10780+ 4 0.00000+ 0 4.63778- 41261 145401549
+ 3.10790+ 4 0.00000+ 0 4.36087- 4 3.10800+ 4 0.00000+ 0 3.52065- 41261 145401550
+ 3.10810+ 4 0.00000+ 0 1.43280- 4 3.10820+ 4 0.00000+ 0 6.18370- 51261 145401551
+ 3.10830+ 4 0.00000+ 0 1.36005- 5 3.10840+ 4 0.00000+ 0 2.00860- 61261 145401552
+ 3.10860+ 4 0.00000+ 0 5.54615- 9 3.20660+ 4 0.00000+ 0 0.00000+ 01261 145401553
+ 3.20670+ 4 0.00000+ 0 0.00000+ 0 3.20680+ 4 0.00000+ 0 0.00000+ 01261 145401554
+ 3.20690+ 4 0.00000+ 0 0.00000+ 0 3.20700+ 4 0.00000+ 0 9.30353-141261 145401555
+ 3.20710+ 4 0.00000+ 0 7.74462-12 3.20720+ 4 0.00000+ 0 2.38834-111261 145401556
+ 3.20730+ 4 0.00000+ 0 7.27494-10 3.20730+ 4 1.00000+ 0 7.27494-101261 145401557
+ 3.20740+ 4 0.00000+ 0 3.70742- 8 3.20750+ 4 0.00000+ 0 3.01790- 71261 145401558
+ 3.20750+ 4 1.00000+ 0 3.01790- 7 3.20760+ 4 0.00000+ 0 6.32560- 61261 145401559
+ 3.20770+ 4 0.00000+ 0 2.66715- 5 3.20770+ 4 1.00000+ 0 2.66515- 51261 145401560
+ 3.20780+ 4 0.00000+ 0 2.21926- 4 3.20790+ 4 0.00000+ 0 5.61120- 41261 145401561
+ 3.20800+ 4 0.00000+ 0 1.24433- 3 3.20810+ 4 0.00000+ 0 1.46942- 31261 145401562
+ 3.20820+ 4 0.00000+ 0 1.64698- 3 3.20830+ 4 0.00000+ 0 1.03645- 31261 145401563
+ 3.20840+ 4 0.00000+ 0 4.96375- 4 3.20850+ 4 0.00000+ 0 1.36875- 41261 145401564
+ 3.20860+ 4 0.00000+ 0 1.68983- 5 3.20870+ 4 0.00000+ 0 1.05926- 61261 145401565
+ 3.20880+ 4 0.00000+ 0 6.09576- 8 3.30690+ 4 0.00000+ 0 0.00000+ 01261 145401566
+ 3.30710+ 4 0.00000+ 0 0.00000+ 0 3.30720+ 4 0.00000+ 0 0.00000+ 01261 145401567
+ 3.30730+ 4 0.00000+ 0 6.98515-14 3.30740+ 4 0.00000+ 0 2.96794-121261 145401568
+ 3.30740+ 4 1.00000+ 0 3.08785-12 3.30750+ 4 0.00000+ 0 3.19778-101261 145401569
+ 3.30760+ 4 0.00000+ 0 1.04927- 8 3.30770+ 4 0.00000+ 0 2.78806- 71261 145401570
+ 3.30780+ 4 0.00000+ 0 3.62748- 6 3.30790+ 4 0.00000+ 0 2.74209- 51261 145401571
+ 3.30800+ 4 0.00000+ 0 1.77517- 4 3.30810+ 4 0.00000+ 0 5.76729- 41261 145401572
+ 3.30820+ 4 0.00000+ 0 8.15064- 4 3.30820+ 4 1.00000+ 0 8.14514- 41261 145401573
+ 3.30830+ 4 0.00000+ 0 2.63544- 3 3.30840+ 4 0.00000+ 0 3.63577- 31261 145401574
+ 3.30850+ 4 0.00000+ 0 3.21115- 3 3.30860+ 4 0.00000+ 0 1.26785- 31261 145401575
+ 3.30870+ 4 0.00000+ 0 2.56102- 4 3.30880+ 4 0.00000+ 0 5.19339- 51261 145401576
+ 3.30890+ 4 0.00000+ 0 3.12783- 6 3.40720+ 4 0.00000+ 0 0.00000+ 01261 145401577
+ 3.40730+ 4 0.00000+ 0 0.00000+ 0 3.40730+ 4 1.00000+ 0 0.00000+ 01261 145401578
+ 3.40740+ 4 0.00000+ 0 0.00000+ 0 3.40750+ 4 0.00000+ 0 1.57890-141261 145401579
+ 3.40760+ 4 0.00000+ 0 1.72880-12 3.40770+ 4 0.00000+ 0 7.60472-111261 145401580
+ 3.40770+ 4 1.00000+ 0 7.60472-11 3.40780+ 4 0.00000+ 0 6.64538- 91261 145401581
+ 3.40790+ 4 0.00000+ 0 8.27425- 8 3.40790+ 4 1.00000+ 0 8.27425- 81261 145401582
+ 3.40800+ 4 0.00000+ 0 3.51756- 6 3.40810+ 4 0.00000+ 0 1.92166- 51261 145401583
+ 3.40810+ 4 1.00000+ 0 3.34787- 4 3.40820+ 4 0.00000+ 0 2.71651- 41261 145401584
+ 3.40830+ 4 0.00000+ 0 5.84814- 4 3.40830+ 4 1.00000+ 0 5.83664- 41261 145401585
+ 3.40840+ 4 0.00000+ 0 4.58739- 3 3.40850+ 4 0.00000+ 0 5.64355- 31261 145401586
+ 3.40850+ 4 1.00000+ 0 5.67276- 3 3.40860+ 4 0.00000+ 0 1.26693- 21261 145401587
+ 3.40870+ 4 0.00000+ 0 7.40003- 3 3.40880+ 4 0.00000+ 0 4.82650- 31261 145401588
+ 3.40890+ 4 0.00000+ 0 1.00670- 3 3.40900+ 4 0.00000+ 0 2.78626- 41261 145401589
+ 3.40910+ 4 0.00000+ 0 8.61401- 7 3.40920+ 4 0.00000+ 0 5.11644- 91261 145401590
+ 3.40940+ 4 0.00000+ 0 1.20916- 9 3.40950+ 4 0.00000+ 0 4.93706-121261 145401591
+ 3.40960+ 4 0.00000+ 0 8.09438-14 3.50750+ 4 0.00000+ 0 0.00000+ 01261 145401592
+ 3.50770+ 4 0.00000+ 0 0.00000+ 0 3.50770+ 4 1.00000+ 0 0.00000+ 01261 145401593
+ 3.50780+ 4 0.00000+ 0 2.62817-13 3.50790+ 4 0.00000+ 0 1.17918-111261 145401594
+ 3.50790+ 4 1.00000+ 0 1.25913-11 3.50800+ 4 0.00000+ 0 8.31422-101261 145401595
+ 3.50800+ 4 1.00000+ 0 8.76391-10 3.50810+ 4 0.00000+ 0 6.45551- 81261 145401596
+ 3.50820+ 4 0.00000+ 0 6.22567- 6 3.50820+ 4 1.00000+ 0 6.11575- 71261 145401597
+ 3.50830+ 4 0.00000+ 0 1.75678- 5 3.50840+ 4 0.00000+ 0 1.19627- 41261 145401598
+ 3.50840+ 4 1.00000+ 0 1.03138- 4 3.50850+ 4 0.00000+ 0 1.59912- 31261 145401599
+ 3.50860+ 4 0.00000+ 0 2.52369- 3 3.50860+ 4 1.00000+ 0 2.52368- 31261 145401600
+ 3.50870+ 4 0.00000+ 0 7.87970- 3 3.50880+ 4 0.00000+ 0 1.46590- 21261 145401601
+ 3.50890+ 4 0.00000+ 0 9.36433- 3 3.50900+ 4 0.00000+ 0 7.31437- 31261 145401602
+ 3.50910+ 4 0.00000+ 0 4.74830- 4 3.50920+ 4 0.00000+ 0 9.36349- 61261 145401603
+ 3.50930+ 4 0.00000+ 0 3.90728- 6 3.50940+ 4 0.00000+ 0 4.44691- 61261 145401604
+ 3.50950+ 4 0.00000+ 0 1.09480- 7 3.50960+ 4 0.00000+ 0 4.00722- 91261 145401605
+ 3.60770+ 4 0.00000+ 0 0.00000+ 0 3.60780+ 4 0.00000+ 0 0.00000+ 01261 145401606
+ 3.60790+ 4 0.00000+ 0 0.00000+ 0 3.60790+ 4 1.00000+ 0 0.00000+ 01261 145401607
+ 3.60800+ 4 0.00000+ 0 8.40416-14 3.60810+ 4 0.00000+ 0 5.43622-121261 145401608
+ 3.60810+ 4 1.00000+ 0 5.66606-12 3.60820+ 4 0.00000+ 0 7.33490-101261 145401609
+ 3.60830+ 4 0.00000+ 0 1.45899- 8 3.60830+ 4 1.00000+ 0 1.45899- 81261 145401610
+ 3.60840+ 4 0.00000+ 0 1.16919- 6 3.60850+ 4 0.00000+ 0 1.60289- 51261 145401611
+ 3.60850+ 4 1.00000+ 0 1.63187- 5 3.60860+ 4 0.00000+ 0 3.14102- 41261 145401612
+ 3.60870+ 4 0.00000+ 0 8.56851- 3 3.60880+ 4 0.00000+ 0 1.34325- 21261 145401613
+ 3.60890+ 4 0.00000+ 0 2.67770- 2 3.60900+ 4 0.00000+ 0 2.85504- 21261 145401614
+ 3.60910+ 4 0.00000+ 0 1.92689- 2 3.60920+ 4 0.00000+ 0 1.53303- 31261 145401615
+ 3.60930+ 4 0.00000+ 0 2.29073- 3 3.60940+ 4 0.00000+ 0 1.66150- 31261 145401616
+ 3.60950+ 4 0.00000+ 0 1.94655- 4 3.60960+ 4 0.00000+ 0 1.87070- 51261 145401617
+ 3.60970+ 4 0.00000+ 0 1.11922- 6 3.60980+ 4 0.00000+ 0 4.47689- 81261 145401618
+ 3.60990+ 4 0.00000+ 0 3.97197-10 3.61000+ 4 0.00000+ 0 9.01374-121261 145401619
+ 3.70790+ 4 0.00000+ 0 0.00000+ 0 3.70810+ 4 0.00000+ 0 0.00000+ 01261 145401620
+ 3.70810+ 4 1.00000+ 0 0.00000+ 0 3.70830+ 4 0.00000+ 0 1.03928-121261 145401621
+ 3.70840+ 4 0.00000+ 0 7.45482-11 3.70840+ 4 1.00000+ 0 7.28494-111261 145401622
+ 3.70850+ 4 0.00000+ 0 1.48897- 8 3.70860+ 4 0.00000+ 0 6.29563- 61261 145401623
+ 3.70860+ 4 1.00000+ 0 2.37835- 7 3.70870+ 4 0.00000+ 0 7.89451- 61261 145401624
+ 3.70880+ 4 0.00000+ 0 1.70322- 4 3.70890+ 4 0.00000+ 0 1.78781- 31261 145401625
+ 3.70900+ 4 0.00000+ 0 6.29890- 3 3.70900+ 4 1.00000+ 0 3.31721- 31261 145401626
+ 3.70910+ 4 0.00000+ 0 1.84019- 2 3.70920+ 4 0.00000+ 0 3.80406- 21261 145401627
+ 3.70930+ 4 0.00000+ 0 2.58443- 2 3.70940+ 4 0.00000+ 0 1.76696- 21261 145401628
+ 3.70950+ 4 0.00000+ 0 6.96039- 3 3.70960+ 4 0.00000+ 0 2.10661- 31261 145401629
+ 3.70970+ 4 0.00000+ 0 4.11264- 4 3.70980+ 4 0.00000+ 0 5.15642- 51261 145401630
+ 3.70990+ 4 0.00000+ 0 2.73671- 6 3.71000+ 4 0.00000+ 0 1.32908- 71261 145401631
+ 3.71030+ 4 0.00000+ 0 1.86208-14 3.80830+ 4 0.00000+ 0 0.00000+ 01261 145401632
+ 3.80840+ 4 0.00000+ 0 0.00000+ 0 3.80850+ 4 0.00000+ 0 3.47758-131261 145401633
+ 3.80850+ 4 1.00000+ 0 3.39764-13 3.80860+ 4 0.00000+ 0 9.14365-111261 145401634
+ 3.80870+ 4 0.00000+ 0 4.16710- 6 3.80870+ 4 1.00000+ 0 2.42831- 91261 145401635
+ 3.80880+ 4 0.00000+ 0 3.52755- 7 3.80890+ 4 0.00000+ 0 6.94907- 41261 145401636
+ 3.80900+ 4 0.00000+ 0 2.09674- 4 3.80910+ 4 0.00000+ 0 9.87065- 31261 145401637
+ 3.80920+ 4 0.00000+ 0 1.15472- 2 3.80930+ 4 0.00000+ 0 2.32824- 21261 145401638
+ 3.80940+ 4 0.00000+ 0 3.05112- 2 3.80950+ 4 0.00000+ 0 3.57368- 21261 145401639
+ 3.80960+ 4 0.00000+ 0 3.03489- 2 3.80970+ 4 0.00000+ 0 1.74416- 21261 145401640
+ 3.80980+ 4 0.00000+ 0 6.37413- 3 3.80990+ 4 0.00000+ 0 1.56271- 31261 145401641
+ 3.81000+ 4 0.00000+ 0 1.89808- 4 3.81010+ 4 0.00000+ 0 1.09424- 51261 145401642
+ 3.81020+ 4 0.00000+ 0 3.34767- 7 3.81030+ 4 0.00000+ 0 2.80941- 91261 145401643
+ 3.81040+ 4 0.00000+ 0 6.43553-11 3.81050+ 4 0.00000+ 0 2.79311-111261 145401644
+ 3.90850+ 4 0.00000+ 0 0.00000+ 0 3.90850+ 4 1.00000+ 0 0.00000+ 01261 145401645
+ 3.90870+ 4 0.00000+ 0 3.01790-14 3.90870+ 4 1.00000+ 0 2.93796-141261 145401646
+ 3.90880+ 4 0.00000+ 0 1.54892-11 3.90890+ 4 0.00000+ 0 9.00374-101261 145401647
+ 3.90890+ 4 1.00000+ 0 8.98376-10 3.90900+ 4 0.00000+ 0 4.92658- 81261 145401648
+ 3.90900+ 4 1.00000+ 0 3.84733- 8 3.90910+ 4 0.00000+ 0 1.00930- 61261 145401649
+ 3.90910+ 4 1.00000+ 0 9.49340- 7 3.90920+ 4 0.00000+ 0 7.18601- 51261 145401650
+ 3.90930+ 4 0.00000+ 0 6.80877- 4 3.90940+ 4 0.00000+ 0 2.05017- 31261 145401651
+ 3.90950+ 4 0.00000+ 0 7.33071- 3 3.90960+ 4 0.00000+ 0 1.70510- 21261 145401652
+ 3.90970+ 4 0.00000+ 0 2.62459- 2 3.90980+ 4 0.00000+ 0 2.49887- 21261 145401653
+ 3.90990+ 4 0.00000+ 0 1.71021- 2 3.91000+ 4 0.00000+ 0 6.97682- 31261 145401654
+ 3.91010+ 4 0.00000+ 0 1.46820- 3 3.91020+ 4 0.00000+ 0 1.76078- 41261 145401655
+ 3.91030+ 4 0.00000+ 0 1.11095- 5 3.91040+ 4 0.00000+ 0 4.37696- 71261 145401656
+ 3.91050+ 4 0.00000+ 0 3.14357- 7 3.91070+ 4 0.00000+ 0 1.67393-101261 145401657
+ 4.00870+ 4 0.00000+ 0 0.00000+ 0 4.00880+ 4 0.00000+ 0 0.00000+ 01261 145401658
+ 4.00890+ 4 0.00000+ 0 1.57890-14 4.00890+ 4 1.00000+ 0 1.64885-141261 145401659
+ 4.00900+ 4 0.00000+ 0 4.65676-12 4.00900+ 4 1.00000+ 0 2.00860-121261 145401660
+ 4.00910+ 4 0.00000+ 0 3.67744-10 4.00920+ 4 0.00000+ 0 1.18917- 81261 145401661
+ 4.00930+ 4 0.00000+ 0 8.46412- 7 4.00940+ 4 0.00000+ 0 1.75878- 51261 145401662
+ 4.00950+ 4 0.00000+ 0 2.29650- 4 4.00960+ 4 0.00000+ 0 1.54798- 31261 145401663
+ 4.00970+ 4 0.00000+ 0 6.83344- 3 4.00980+ 4 0.00000+ 0 1.69378- 21261 145401664
+ 4.00990+ 4 0.00000+ 0 3.02220- 2 4.01000+ 4 0.00000+ 0 3.67982- 21261 145401665
+ 4.01010+ 4 0.00000+ 0 2.47896- 2 4.01020+ 4 0.00000+ 0 1.04226- 21261 145401666
+ 4.01030+ 4 0.00000+ 0 2.24441- 3 4.01040+ 4 0.00000+ 0 2.95595- 41261 145401667
+ 4.01050+ 4 0.00000+ 0 2.88775- 4 4.01060+ 4 0.00000+ 0 3.19378- 51261 145401668
+ 4.01070+ 4 0.00000+ 0 1.68390- 6 4.01080+ 4 0.00000+ 0 2.08855- 71261 145401669
+ 4.01090+ 4 0.00000+ 0 2.45242- 9 4.01100+ 4 0.00000+ 0 1.39903-101261 145401670
+ 4.10890+ 4 0.00000+ 0 0.00000+ 0 4.10890+ 4 1.00000+ 0 0.00000+ 01261 145401671
+ 4.10900+ 4 0.00000+ 0 0.00000+ 0 4.10910+ 4 0.00000+ 0 0.00000+ 01261 145401672
+ 4.10910+ 4 1.00000+ 0 0.00000+ 0 4.10920+ 4 0.00000+ 0 8.20430-141261 145401673
+ 4.10920+ 4 1.00000+ 0 8.20430-14 4.10930+ 4 0.00000+ 0 2.25843-111261 145401674
+ 4.10930+ 4 1.00000+ 0 2.25843-11 4.10940+ 4 0.00000+ 0 1.83872- 91261 145401675
+ 4.10940+ 4 1.00000+ 0 1.81874- 9 4.10950+ 4 0.00000+ 0 8.68397- 81261 145401676
+ 4.10950+ 4 1.00000+ 0 8.68397- 8 4.10960+ 4 0.00000+ 0 3.78137- 51261 145401677
+ 4.10970+ 4 0.00000+ 0 3.68560- 3 4.10970+ 4 1.00000+ 0 2.86201- 51261 145401678
+ 4.10980+ 4 0.00000+ 0 2.03708- 4 4.10980+ 4 1.00000+ 0 2.04148- 41261 145401679
+ 4.10990+ 4 0.00000+ 0 1.04355- 3 4.10990+ 4 1.00000+ 0 1.04555- 31261 145401680
+ 4.11000+ 4 0.00000+ 0 3.93608- 3 4.11000+ 4 1.00000+ 0 3.93608- 31261 145401681
+ 4.11010+ 4 0.00000+ 0 1.61504- 2 4.11020+ 4 0.00000+ 0 2.11467- 21261 145401682
+ 4.11030+ 4 0.00000+ 0 1.36732- 2 4.11040+ 4 0.00000+ 0 5.41394- 31261 145401683
+ 4.11050+ 4 0.00000+ 0 4.49387- 3 4.11060+ 4 0.00000+ 0 1.55889- 31261 145401684
+ 4.11070+ 4 0.00000+ 0 4.75474- 4 4.11080+ 4 0.00000+ 0 8.37118- 51261 145401685
+ 4.11090+ 4 0.00000+ 0 6.38465- 6 4.11100+ 4 0.00000+ 0 6.17571- 71261 145401686
+ 4.11110+ 4 0.00000+ 0 8.36377- 9 4.20900+ 4 0.00000+ 0 0.00000+ 01261 145401687
+ 4.20910+ 4 0.00000+ 0 0.00000+ 0 4.20910+ 4 1.00000+ 0 0.00000+ 01261 145401688
+ 4.20920+ 4 0.00000+ 0 0.00000+ 0 4.20930+ 4 0.00000+ 0 0.00000+ 01261 145401689
+ 4.20930+ 4 1.00000+ 0 0.00000+ 0 4.20940+ 4 0.00000+ 0 7.06509-141261 145401690
+ 4.20950+ 4 0.00000+ 0 1.32908-11 4.20960+ 4 0.00000+ 0 4.47689- 91261 145401691
+ 4.20970+ 4 0.00000+ 0 5.07647- 8 4.20980+ 4 0.00000+ 0 1.13921- 61261 145401692
+ 4.20990+ 4 0.00000+ 0 1.84572- 5 4.21000+ 4 0.00000+ 0 2.45120- 41261 145401693
+ 4.21010+ 4 0.00000+ 0 1.72690- 3 4.21020+ 4 0.00000+ 0 7.47568- 31261 145401694
+ 4.21030+ 4 0.00000+ 0 1.43884- 2 4.21040+ 4 0.00000+ 0 1.52940- 21261 145401695
+ 4.21050+ 4 0.00000+ 0 1.22608- 2 4.21060+ 4 0.00000+ 0 1.05994- 21261 145401696
+ 4.21070+ 4 0.00000+ 0 7.84623- 3 4.21080+ 4 0.00000+ 0 3.85690- 31261 145401697
+ 4.21090+ 4 0.00000+ 0 1.43051- 3 4.21100+ 4 0.00000+ 0 2.75269- 41261 145401698
+ 4.21110+ 4 0.00000+ 0 2.08256- 5 4.21120+ 4 0.00000+ 0 3.30770- 61261 145401699
+ 4.21130+ 4 0.00000+ 0 1.16515- 7 4.21140+ 4 0.00000+ 0 1.15919- 81261 145401700
+ 4.21150+ 4 0.00000+ 0 2.20820-10 4.21160+ 4 0.00000+ 0 6.21568-121261 145401701
+ 4.30930+ 4 0.00000+ 0 0.00000+ 0 4.30930+ 4 1.00000+ 0 0.00000+ 01261 145401702
+ 4.30950+ 4 0.00000+ 0 0.00000+ 0 4.30950+ 4 1.00000+ 0 0.00000+ 01261 145401703
+ 4.30970+ 4 0.00000+ 0 4.84663-13 4.30970+ 4 1.00000+ 0 5.02651-131261 145401704
+ 4.30980+ 4 0.00000+ 0 7.31492-11 4.30990+ 4 0.00000+ 0 1.93865- 91261 145401705
+ 4.30990+ 4 1.00000+ 0 1.93865- 9 4.31000+ 4 0.00000+ 0 1.97863- 71261 145401706
+ 4.31010+ 4 0.00000+ 0 5.32630- 6 4.31020+ 4 0.00000+ 0 3.76738- 51261 145401707
+ 4.31020+ 4 1.00000+ 0 4.35397- 5 4.31030+ 4 0.00000+ 0 5.42773- 41261 145401708
+ 4.31040+ 4 0.00000+ 0 1.73154- 3 4.31050+ 4 0.00000+ 0 1.25895- 31261 145401709
+ 4.31060+ 4 0.00000+ 0 2.97951- 3 4.31070+ 4 0.00000+ 0 4.98730- 31261 145401710
+ 4.31080+ 4 0.00000+ 0 6.25231- 3 4.31090+ 4 0.00000+ 0 6.36266- 31261 145401711
+ 4.31100+ 4 0.00000+ 0 3.44138- 3 4.31110+ 4 0.00000+ 0 1.54773- 31261 145401712
+ 4.31120+ 4 0.00000+ 0 3.83703- 4 4.31130+ 4 0.00000+ 0 6.81720- 51261 145401713
+ 4.31140+ 4 0.00000+ 0 1.25513- 5 4.31150+ 4 0.00000+ 0 1.02299- 61261 145401714
+ 4.31160+ 4 0.00000+ 0 6.51547- 8 4.31170+ 4 0.00000+ 0 8.44023- 91261 145401715
+ 4.40950+ 4 0.00000+ 0 0.00000+ 0 4.40970+ 4 0.00000+ 0 0.00000+ 01261 145401716
+ 4.40980+ 4 0.00000+ 0 0.00000+ 0 4.40990+ 4 0.00000+ 0 7.79458-141261 145401717
+ 4.41000+ 4 0.00000+ 0 1.55892-11 4.41010+ 4 0.00000+ 0 1.67883- 91261 145401718
+ 4.41020+ 4 0.00000+ 0 1.10923- 7 4.41030+ 4 0.00000+ 0 2.49826- 61261 145401719
+ 4.41040+ 4 0.00000+ 0 2.65216- 5 4.41050+ 4 0.00000+ 0 1.46398- 51261 145401720
+ 4.41060+ 4 0.00000+ 0 1.19847- 4 4.41070+ 4 0.00000+ 0 5.18480- 41261 145401721
+ 4.41080+ 4 0.00000+ 0 1.75785- 3 4.41090+ 4 0.00000+ 0 4.88142- 31261 145401722
+ 4.41100+ 4 0.00000+ 0 6.89221- 3 4.41110+ 4 0.00000+ 0 8.05144- 31261 145401723
+ 4.41120+ 4 0.00000+ 0 5.67553- 3 4.41130+ 4 0.00000+ 0 3.73546- 31261 145401724
+ 4.41140+ 4 0.00000+ 0 1.46555- 3 4.41150+ 4 0.00000+ 0 3.98329- 41261 145401725
+ 4.41160+ 4 0.00000+ 0 6.69135- 5 4.41170+ 4 0.00000+ 0 3.50383- 51261 145401726
+ 4.41180+ 4 0.00000+ 0 9.42345- 7 4.41200+ 4 0.00000+ 0 2.00860- 91261 145401727
+ 4.41220+ 4 0.00000+ 0 4.24705-13 4.41240+ 4 0.00000+ 0 0.00000+ 01261 145401728
+ 4.50990+ 4 0.00000+ 0 0.00000+ 0 4.50990+ 4 1.00000+ 0 0.00000+ 01261 145401729
+ 4.51010+ 4 0.00000+ 0 0.00000+ 0 4.51010+ 4 1.00000+ 0 0.00000+ 01261 145401730
+ 4.51020+ 4 0.00000+ 0 1.50895-12 4.51020+ 4 1.00000+ 0 1.50895-121261 145401731
+ 4.51030+ 4 0.00000+ 0 9.21360- 7 4.51030+ 4 1.00000+ 0 1.96863-101261 145401732
+ 4.51040+ 4 0.00000+ 0 4.76669- 9 4.51040+ 4 1.00000+ 0 5.03650- 91261 145401733
+ 4.51050+ 4 0.00000+ 0 1.32408- 5 4.51050+ 4 1.00000+ 0 3.53754- 91261 145401734
+ 4.51060+ 4 0.00000+ 0 8.29424- 8 4.51060+ 4 1.00000+ 0 6.77529- 81261 145401735
+ 4.51070+ 4 0.00000+ 0 1.55892- 6 4.51080+ 4 0.00000+ 0 7.92449- 61261 145401736
+ 4.51080+ 4 1.00000+ 0 7.92449- 6 4.51090+ 4 0.00000+ 0 6.75131- 51261 145401737
+ 4.51090+ 4 1.00000+ 0 6.75131- 5 4.51100+ 4 0.00000+ 0 2.71142- 41261 145401738
+ 4.51100+ 4 1.00000+ 0 2.71112- 4 4.51110+ 4 0.00000+ 0 1.72189- 31261 145401739
+ 4.51120+ 4 0.00000+ 0 3.41765- 3 4.51130+ 4 0.00000+ 0 5.64171- 31261 145401740
+ 4.51140+ 4 0.00000+ 0 5.45804- 3 4.51150+ 4 0.00000+ 0 3.81539- 31261 145401741
+ 4.51160+ 4 0.00000+ 0 1.80628- 3 4.51170+ 4 0.00000+ 0 4.23326- 31261 145401742
+ 4.51180+ 4 0.00000+ 0 1.96553- 4 4.51190+ 4 0.00000+ 0 3.79236- 51261 145401743
+ 4.51200+ 4 0.00000+ 0 3.88730- 6 4.51210+ 4 0.00000+ 0 2.35836- 71261 145401744
+ 4.51220+ 4 0.00000+ 0 9.36349- 9 4.51230+ 4 0.00000+ 0 3.63747-101261 145401745
+ 4.51240+ 4 0.00000+ 0 8.05440-12 4.60990+ 4 0.00000+ 0 0.00000+ 01261 145401746
+ 4.61010+ 4 0.00000+ 0 0.00000+ 0 4.61020+ 4 0.00000+ 0 0.00000+ 01261 145401747
+ 4.61030+ 4 0.00000+ 0 0.00000+ 0 4.61040+ 4 0.00000+ 0 3.64747-131261 145401748
+ 4.61050+ 4 0.00000+ 0 1.63886-13 4.61060+ 4 0.00000+ 0 1.37904-101261 145401749
+ 4.61070+ 4 0.00000+ 0 2.37835-10 4.61070+ 4 1.00000+ 0 2.17849-101261 145401750
+ 4.61080+ 4 0.00000+ 0 1.53893- 8 4.61090+ 4 0.00000+ 0 2.18848- 71261 145401751
+ 4.61090+ 4 1.00000+ 0 2.18848- 7 4.61100+ 4 0.00000+ 0 5.53615- 61261 145401752
+ 4.61110+ 4 0.00000+ 0 2.68314- 5 4.61110+ 4 1.00000+ 0 2.62418- 51261 145401753
+ 4.61120+ 4 0.00000+ 0 3.05388- 4 4.61130+ 4 0.00000+ 0 1.46558- 31261 145401754
+ 4.61140+ 4 0.00000+ 0 3.53108- 3 4.61150+ 4 0.00000+ 0 5.99357- 31261 145401755
+ 4.61160+ 4 0.00000+ 0 7.23772- 3 4.61170+ 4 0.00000+ 0 5.89045- 31261 145401756
+ 4.61180+ 4 0.00000+ 0 4.95963- 3 4.61190+ 4 0.00000+ 0 2.50715- 31261 145401757
+ 4.61200+ 4 0.00000+ 0 7.84475- 4 4.61210+ 4 0.00000+ 0 1.50146- 41261 145401758
+ 4.61220+ 4 0.00000+ 0 1.98262- 5 4.61230+ 4 0.00000+ 0 2.23844- 61261 145401759
+ 4.61240+ 4 0.00000+ 0 1.59889- 7 4.61260+ 4 0.00000+ 0 1.87869-101261 145401760
+ 4.61280+ 4 0.00000+ 0 1.43900-12 4.61300+ 4 0.00000+ 0 0.00000+ 01261 145401761
+ 4.71030+ 4 0.00000+ 0 0.00000+ 0 4.71030+ 4 1.00000+ 0 0.00000+ 01261 145401762
+ 4.71050+ 4 0.00000+ 0 0.00000+ 0 4.71050+ 4 1.00000+ 0 0.00000+ 01261 145401763
+ 4.71060+ 4 0.00000+ 0 0.00000+ 0 4.71060+ 4 1.00000+ 0 0.00000+ 01261 145401764
+ 4.71070+ 4 0.00000+ 0 0.00000+ 0 4.71070+ 4 1.00000+ 0 0.00000+ 01261 145401765
+ 4.71080+ 4 0.00000+ 0 1.59889-13 4.71080+ 4 1.00000+ 0 1.59889-131261 145401766
+ 4.71090+ 4 0.00000+ 0 1.59889-11 4.71090+ 4 1.00000+ 0 1.59889-111261 145401767
+ 4.71100+ 4 0.00000+ 0 6.27564-10 4.71100+ 4 1.00000+ 0 6.85524-101261 145401768
+ 4.71110+ 4 0.00000+ 0 2.16849- 8 4.71110+ 4 1.00000+ 0 2.16849- 81261 145401769
+ 4.71120+ 4 0.00000+ 0 5.33010- 4 4.71130+ 4 0.00000+ 0 6.08577- 61261 145401770
+ 4.71130+ 4 1.00000+ 0 6.02581- 6 4.71140+ 4 0.00000+ 0 8.03142- 51261 145401771
+ 4.71150+ 4 0.00000+ 0 1.80784- 4 4.71150+ 4 1.00000+ 0 1.80604- 41261 145401772
+ 4.71160+ 4 0.00000+ 0 5.85553- 4 4.71160+ 4 1.00000+ 0 5.85553- 41261 145401773
+ 4.71170+ 4 0.00000+ 0 1.73370- 4 4.71170+ 4 1.00000+ 0 1.73370- 41261 145401774
+ 4.71180+ 4 0.00000+ 0 2.33496- 3 4.71180+ 4 1.00000+ 0 2.33496- 31261 145401775
+ 4.71190+ 4 0.00000+ 0 5.62269- 3 4.71200+ 4 0.00000+ 0 4.77918- 31261 145401776
+ 4.71210+ 4 0.00000+ 0 2.60268- 3 4.71220+ 4 0.00000+ 0 1.05389- 31261 145401777
+ 4.71230+ 4 0.00000+ 0 3.27622- 4 4.71240+ 4 0.00000+ 0 7.21898- 51261 145401778
+ 4.71250+ 4 0.00000+ 0 8.24427- 6 4.71260+ 4 0.00000+ 0 8.54406- 71261 145401779
+ 4.71280+ 4 0.00000+ 0 2.79806- 8 4.71290+ 4 0.00000+ 0 2.38963-101261 145401780
+ 4.71300+ 4 0.00000+ 0 2.20847-11 4.81050+ 4 0.00000+ 0 0.00000+ 01261 145401781
+ 4.81060+ 4 0.00000+ 0 0.00000+ 0 4.81070+ 4 0.00000+ 0 0.00000+ 01261 145401782
+ 4.81080+ 4 0.00000+ 0 0.00000+ 0 4.81090+ 4 0.00000+ 0 0.00000+ 01261 145401783
+ 4.81100+ 4 0.00000+ 0 3.21776-14 4.81110+ 4 0.00000+ 0 5.51617-121261 145401784
+ 4.81110+ 4 1.00000+ 0 1.86870-12 4.81120+ 4 0.00000+ 0 3.01790- 71261 145401785
+ 4.81130+ 4 0.00000+ 0 5.35628- 9 4.81130+ 4 1.00000+ 0 5.35628- 91261 145401786
+ 4.81140+ 4 0.00000+ 0 2.10853- 7 4.81150+ 4 0.00000+ 0 1.65885- 61261 145401787
+ 4.81150+ 4 1.00000+ 0 1.37904- 6 4.81160+ 4 0.00000+ 0 2.67414- 51261 145401788
+ 4.81170+ 4 0.00000+ 0 1.28910- 6 4.81170+ 4 1.00000+ 0 1.28910- 61261 145401789
+ 4.81180+ 4 0.00000+ 0 7.42614- 4 4.81190+ 4 0.00000+ 0 1.09977- 31261 145401790
+ 4.81190+ 4 1.00000+ 0 1.09977- 3 4.81200+ 4 0.00000+ 0 4.92008- 31261 145401791
+ 4.81210+ 4 0.00000+ 0 6.71090- 3 4.81220+ 4 0.00000+ 0 7.72458- 31261 145401792
+ 4.81230+ 4 0.00000+ 0 5.99114- 3 4.81240+ 4 0.00000+ 0 3.71673- 31261 145401793
+ 4.81250+ 4 0.00000+ 0 1.31898- 3 4.81260+ 4 0.00000+ 0 3.92207- 41261 145401794
+ 4.81270+ 4 0.00000+ 0 4.09316- 5 4.81280+ 4 0.00000+ 0 5.25335- 51261 145401795
+ 4.81290+ 4 0.00000+ 0 2.22611- 6 4.81300+ 4 0.00000+ 0 4.37696- 71261 145401796
+ 4.81310+ 4 0.00000+ 0 1.31908- 8 4.81320+ 4 0.00000+ 0 2.08855-101261 145401797
+ 4.81360+ 4 0.00000+ 0 0.00000+ 0 4.91070+ 4 0.00000+ 0 0.00000+ 01261 145401798
+ 4.91090+ 4 0.00000+ 0 0.00000+ 0 4.91090+ 4 1.00000+ 0 0.00000+ 01261 145401799
+ 4.91110+ 4 0.00000+ 0 0.00000+ 0 4.91110+ 4 1.00000+ 0 0.00000+ 01261 145401800
+ 4.91120+ 4 0.00000+ 0 0.00000+ 0 4.91120+ 4 1.00000+ 0 0.00000+ 01261 145401801
+ 4.91130+ 4 0.00000+ 0 1.05926-13 4.91130+ 4 1.00000+ 0 1.00930-131261 145401802
+ 4.91140+ 4 0.00000+ 0 6.15572-12 4.91140+ 4 1.00000+ 0 5.96585-121261 145401803
+ 4.91150+ 4 0.00000+ 0 2.45829-10 4.91150+ 4 1.00000+ 0 2.45829-101261 145401804
+ 4.91160+ 4 0.00000+ 0 7.75461- 9 4.91160+ 4 1.00000+ 0 7.75461- 91261 145401805
+ 4.91170+ 4 0.00000+ 0 2.27842-10 4.91170+ 4 1.00000+ 0 2.27842-101261 145401806
+ 4.91180+ 4 0.00000+ 0 1.77876- 6 4.91180+ 4 1.00000+ 0 1.77876- 61261 145401807
+ 4.91190+ 4 0.00000+ 0 1.43500- 5 4.91190+ 4 1.00000+ 0 1.43500- 51261 145401808
+ 4.91200+ 4 0.00000+ 0 9.45243- 5 4.91200+ 4 1.00000+ 0 9.45243- 51261 145401809
+ 4.91210+ 4 0.00000+ 0 3.76398- 4 4.91210+ 4 1.00000+ 0 3.79057- 41261 145401810
+ 4.91220+ 4 0.00000+ 0 1.14474- 3 4.91220+ 4 1.00000+ 0 1.14439- 31261 145401811
+ 4.91230+ 4 0.00000+ 0 2.10069- 3 4.91230+ 4 1.00000+ 0 2.10065- 31261 145401812
+ 4.91240+ 4 0.00000+ 0 6.65550- 3 4.91250+ 4 0.00000+ 0 3.26147- 31261 145401813
+ 4.91250+ 4 1.00000+ 0 3.26152- 3 4.91260+ 4 0.00000+ 0 5.03788- 31261 145401814
+ 4.91270+ 4 0.00000+ 0 1.05698- 3 4.91270+ 4 1.00000+ 0 1.05711- 31261 145401815
+ 4.91280+ 4 0.00000+ 0 2.49198- 3 4.91290+ 4 0.00000+ 0 5.83726- 41261 145401816
+ 4.91300+ 4 0.00000+ 0 1.98262- 4 4.91310+ 4 0.00000+ 0 2.13152- 51261 145401817
+ 4.91320+ 4 0.00000+ 0 1.21915- 6 4.91330+ 4 0.00000+ 0 4.70673- 81261 145401818
+ 4.91340+ 4 0.00000+ 0 5.89590-10 4.91360+ 4 0.00000+ 0 3.77738-141261 145401819
+ 5.01110+ 4 0.00000+ 0 0.00000+ 0 5.01120+ 4 0.00000+ 0 0.00000+ 01261 145401820
+ 5.01130+ 4 0.00000+ 0 0.00000+ 0 5.01130+ 4 1.00000+ 0 0.00000+ 01261 145401821
+ 5.01140+ 4 0.00000+ 0 0.00000+ 0 5.01150+ 4 0.00000+ 0 0.00000+ 01261 145401822
+ 5.01160+ 4 0.00000+ 0 8.68397-13 5.01170+ 4 0.00000+ 0 0.00000+ 01261 145401823
+ 5.01170+ 4 1.00000+ 0 0.00000+ 0 5.01180+ 4 0.00000+ 0 1.76877- 91261 145401824
+ 5.01190+ 4 0.00000+ 0 2.06856- 8 5.01190+ 4 1.00000+ 0 2.06856- 81261 145401825
+ 5.01200+ 4 0.00000+ 0 8.74392- 7 5.01210+ 4 0.00000+ 0 5.44622- 61261 145401826
+ 5.01210+ 4 1.00000+ 0 5.43622- 6 5.01220+ 4 0.00000+ 0 1.02419- 41261 145401827
+ 5.01230+ 4 0.00000+ 0 2.43311- 4 5.01230+ 4 1.00000+ 0 2.43081- 41261 145401828
+ 5.01240+ 4 0.00000+ 0 2.04299- 3 5.01250+ 4 0.00000+ 0 2.76152- 31261 145401829
+ 5.01250+ 4 1.00000+ 0 2.76167- 3 5.01260+ 4 0.00000+ 0 1.03234- 21261 145401830
+ 5.01270+ 4 0.00000+ 0 7.56103- 3 5.01270+ 4 1.00000+ 0 7.56110- 31261 145401831
+ 5.01280+ 4 0.00000+ 0 1.65107- 2 5.01290+ 4 0.00000+ 0 5.47228- 31261 145401832
+ 5.01290+ 4 1.00000+ 0 5.46564- 3 5.01300+ 4 0.00000+ 0 1.02074- 21261 145401833
+ 5.01310+ 4 0.00000+ 0 3.61678- 3 5.01320+ 4 0.00000+ 0 7.08228- 41261 145401834
+ 5.01330+ 4 0.00000+ 0 9.66928- 5 5.01340+ 4 0.00000+ 0 5.08647- 61261 145401835
+ 5.01350+ 4 0.00000+ 0 6.42553- 8 5.01360+ 4 0.00000+ 0 4.25704- 91261 145401836
+ 5.01370+ 4 0.00000+ 0 4.21707-11 5.01380+ 4 0.00000+ 0 8.94378-131261 145401837
+ 5.11130+ 4 0.00000+ 0 0.00000+ 0 5.11150+ 4 0.00000+ 0 0.00000+ 01261 145401838
+ 5.11170+ 4 0.00000+ 0 0.00000+ 0 5.11180+ 4 0.00000+ 0 0.00000+ 01261 145401839
+ 5.11180+ 4 1.00000+ 0 0.00000+ 0 5.11190+ 4 0.00000+ 0 1.26912-121261 145401840
+ 5.11200+ 4 0.00000+ 0 4.38695-11 5.11200+ 4 1.00000+ 0 4.38695-111261 145401841
+ 5.11210+ 4 0.00000+ 0 4.19708- 8 5.11220+ 4 0.00000+ 0 5.77599- 81261 145401842
+ 5.11220+ 4 1.00000+ 0 6.11575- 8 5.11230+ 4 0.00000+ 0 1.63886- 61261 145401843
+ 5.11240+ 4 0.00000+ 0 1.05327- 5 5.11240+ 4 1.00000+ 0 1.04727- 51261 145401844
+ 5.11250+ 4 0.00000+ 0 1.70432- 4 5.11260+ 4 0.00000+ 0 4.45141- 41261 145401845
+ 5.11260+ 4 1.00000+ 0 4.17630- 4 5.11270+ 4 0.00000+ 0 4.34326- 31261 145401846
+ 5.11280+ 4 0.00000+ 0 2.21159- 3 5.11280+ 4 1.00000+ 0 2.20976- 31261 145401847
+ 5.11290+ 4 0.00000+ 0 7.82881- 3 5.11300+ 4 0.00000+ 0 9.13939- 31261 145401848
+ 5.11300+ 4 1.00000+ 0 9.13940- 3 5.11310+ 4 0.00000+ 0 1.88611- 21261 145401849
+ 5.11320+ 4 0.00000+ 0 5.65480- 3 5.11320+ 4 1.00000+ 0 5.65455- 31261 145401850
+ 5.11330+ 4 0.00000+ 0 4.99597- 3 5.11340+ 4 0.00000+ 0 5.14712- 41261 145401851
+ 5.11340+ 4 1.00000+ 0 5.15152- 4 5.11350+ 4 0.00000+ 0 6.29862- 51261 145401852
+ 5.11360+ 4 0.00000+ 0 1.05127- 5 5.11370+ 4 0.00000+ 0 3.78737- 71261 145401853
+ 5.11380+ 4 0.00000+ 0 2.52824- 8 5.11390+ 4 0.00000+ 0 4.20708- 91261 145401854
+ 5.11410+ 4 0.00000+ 0 3.05927-14 5.21150+ 4 0.00000+ 0 0.00000+ 01261 145401855
+ 5.21170+ 4 0.00000+ 0 0.00000+ 0 5.21180+ 4 0.00000+ 0 0.00000+ 01261 145401856
+ 5.21190+ 4 0.00000+ 0 0.00000+ 0 5.21190+ 4 1.00000+ 0 0.00000+ 01261 145401857
+ 5.21200+ 4 0.00000+ 0 0.00000+ 0 5.21210+ 4 0.00000+ 0 7.02512-141261 145401858
+ 5.21210+ 4 1.00000+ 0 7.37488-14 5.21220+ 4 0.00000+ 0 1.43900-111261 145401859
+ 5.21230+ 4 0.00000+ 0 2.68813-10 5.21230+ 4 1.00000+ 0 2.82803-101261 145401860
+ 5.21240+ 4 0.00000+ 0 2.29840- 8 5.21250+ 4 0.00000+ 0 3.10784- 71261 145401861
+ 5.21250+ 4 1.00000+ 0 3.10784- 7 5.21260+ 4 0.00000+ 0 8.77390- 61261 145401862
+ 5.21270+ 4 0.00000+ 0 9.34551- 5 5.21270+ 4 1.00000+ 0 9.34451- 51261 145401863
+ 5.21280+ 4 0.00000+ 0 1.77147- 4 5.21290+ 4 0.00000+ 0 7.84452- 31261 145401864
+ 5.21290+ 4 1.00000+ 0 1.89274- 3 5.21300+ 4 0.00000+ 0 5.63741- 31261 145401865
+ 5.21310+ 4 0.00000+ 0 8.19647- 3 5.21310+ 4 1.00000+ 0 8.38441- 31261 145401866
+ 5.21320+ 4 0.00000+ 0 2.82436- 2 5.21330+ 4 0.00000+ 0 1.55195- 21261 145401867
+ 5.21330+ 4 1.00000+ 0 1.78715- 2 5.21340+ 4 0.00000+ 0 2.53190- 21261 145401868
+ 5.21350+ 4 0.00000+ 0 8.79296- 3 5.21360+ 4 0.00000+ 0 2.67929- 31261 145401869
+ 5.21370+ 4 0.00000+ 0 3.35127- 4 5.21380+ 4 0.00000+ 0 6.82326- 51261 145401870
+ 5.21390+ 4 0.00000+ 0 3.85432- 5 5.21400+ 4 0.00000+ 0 2.64816- 71261 145401871
+ 5.21410+ 4 0.00000+ 0 4.88216- 9 5.21420+ 4 0.00000+ 0 1.81874-101261 145401872
+ 5.21430+ 4 0.00000+ 0 7.53743-13 5.21440+ 4 0.00000+ 0 4.37079-151261 145401873
+ 5.31210+ 4 0.00000+ 0 0.00000+ 0 5.31230+ 4 0.00000+ 0 0.00000+ 01261 145401874
+ 5.31250+ 4 0.00000+ 0 4.87661-11 5.31260+ 4 0.00000+ 0 2.03858- 91261 145401875
+ 5.31270+ 4 0.00000+ 0 2.16849- 7 5.31280+ 4 0.00000+ 0 1.66884- 71261 145401876
+ 5.31290+ 4 0.00000+ 0 5.06918- 4 5.31300+ 4 0.00000+ 0 2.87800- 51261 145401877
+ 5.31300+ 4 1.00000+ 0 2.87600- 5 5.31310+ 4 0.00000+ 0 1.28538- 31261 145401878
+ 5.31320+ 4 0.00000+ 0 5.95380- 3 5.31330+ 4 0.00000+ 0 9.35365- 31261 145401879
+ 5.31330+ 4 1.00000+ 0 5.15096- 3 5.31340+ 4 0.00000+ 0 2.11985- 21261 145401880
+ 5.31340+ 4 1.00000+ 0 1.16234- 2 5.31350+ 4 0.00000+ 0 2.66907- 21261 145401881
+ 5.31360+ 4 0.00000+ 0 1.00743- 2 5.31360+ 4 1.00000+ 0 1.00743- 21261 145401882
+ 5.31370+ 4 0.00000+ 0 7.87358- 3 5.31380+ 4 0.00000+ 0 4.56237- 31261 145401883
+ 5.31390+ 4 0.00000+ 0 8.28332- 3 5.31400+ 4 0.00000+ 0 2.11173- 41261 145401884
+ 5.31410+ 4 0.00000+ 0 2.04009- 5 5.31420+ 4 0.00000+ 0 1.19917- 61261 145401885
+ 5.31430+ 4 0.00000+ 0 2.78169- 8 5.31440+ 4 0.00000+ 0 6.26093-101261 145401886
+ 5.41250+ 4 0.00000+ 0 0.00000+ 0 5.41250+ 4 1.00000+ 0 0.00000+ 01261 145401887
+ 5.41260+ 4 0.00000+ 0 5.42623-14 5.41270+ 4 0.00000+ 0 1.17918-111261 145401888
+ 5.41270+ 4 1.00000+ 0 1.23914-11 5.41280+ 4 0.00000+ 0 1.94865-111261 145401889
+ 5.41290+ 4 0.00000+ 0 7.81457- 7 5.41290+ 4 1.00000+ 0 1.27911- 91261 145401890
+ 5.41300+ 4 0.00000+ 0 6.31561- 8 5.41310+ 4 0.00000+ 0 8.69396- 71261 145401891
+ 5.41310+ 4 1.00000+ 0 8.63400- 7 5.41320+ 4 0.00000+ 0 4.34498- 51261 145401892
+ 5.41330+ 4 0.00000+ 0 3.98753- 4 5.41330+ 4 1.00000+ 0 1.38376- 31261 145401893
+ 5.41340+ 4 0.00000+ 0 1.80024- 3 5.41340+ 4 1.00000+ 0 1.79975- 31261 145401894
+ 5.41350+ 4 0.00000+ 0 7.29456- 3 5.41350+ 4 1.00000+ 0 1.04059- 21261 145401895
+ 5.41360+ 4 0.00000+ 0 2.50622- 2 5.41370+ 4 0.00000+ 0 3.10451- 21261 145401896
+ 5.41380+ 4 0.00000+ 0 2.63675- 2 5.41390+ 4 0.00000+ 0 1.62179- 21261 145401897
+ 5.41400+ 4 0.00000+ 0 9.04393- 3 5.41410+ 4 0.00000+ 0 2.56475- 31261 145401898
+ 5.41420+ 4 0.00000+ 0 7.84475- 4 5.41430+ 4 0.00000+ 0 8.13856- 51261 145401899
+ 5.41440+ 4 0.00000+ 0 6.94455- 6 5.41450+ 4 0.00000+ 0 3.87731- 71261 145401900
+ 5.41460+ 4 0.00000+ 0 1.04927- 8 5.41470+ 4 0.00000+ 0 1.67667-111261 145401901
+ 5.41480+ 4 0.00000+ 0 8.10437-13 5.41500+ 4 0.00000+ 0 0.00000+ 01261 145401902
+ 5.51270+ 4 0.00000+ 0 0.00000+ 0 5.51290+ 4 0.00000+ 0 2.09854-141261 145401903
+ 5.51310+ 4 0.00000+ 0 1.65885-10 5.51320+ 4 0.00000+ 0 1.40902- 81261 145401904
+ 5.51330+ 4 0.00000+ 0 5.13643- 7 5.51340+ 4 0.00000+ 0 8.36419- 61261 145401905
+ 5.51340+ 4 1.00000+ 0 8.36419- 6 5.51350+ 4 0.00000+ 0 3.76169- 41261 145401906
+ 5.51350+ 4 1.00000+ 0 1.26212- 4 5.51360+ 4 0.00000+ 0 2.20792- 31261 145401907
+ 5.51370+ 4 0.00000+ 0 9.79005- 3 5.51380+ 4 0.00000+ 0 1.40861- 21261 145401908
+ 5.51380+ 4 1.00000+ 0 5.21060- 3 5.51390+ 4 0.00000+ 0 2.02196- 21261 145401909
+ 5.51400+ 4 0.00000+ 0 2.39759- 2 5.51410+ 4 0.00000+ 0 1.99907- 21261 145401910
+ 5.51420+ 4 0.00000+ 0 1.19290- 2 5.51430+ 4 0.00000+ 0 3.97373- 31261 145401911
+ 5.51440+ 4 0.00000+ 0 9.88963- 4 5.51450+ 4 0.00000+ 0 1.75638- 41261 145401912
+ 5.51460+ 4 0.00000+ 0 1.53593- 5 5.51470+ 4 0.00000+ 0 2.69346- 71261 145401913
+ 5.51480+ 4 0.00000+ 0 1.57890- 8 5.51500+ 4 0.00000+ 0 1.48897-121261 145401914
+ 5.61290+ 4 0.00000+ 0 0.00000+ 0 5.61290+ 4 1.00000+ 0 0.00000+ 01261 145401915
+ 5.61310+ 4 0.00000+ 0 0.00000+ 0 5.61310+ 4 1.00000+ 0 0.00000+ 01261 145401916
+ 5.61320+ 4 0.00000+ 0 4.15711-13 5.61330+ 4 0.00000+ 0 5.41624-111261 145401917
+ 5.61340+ 4 0.00000+ 0 8.09438- 9 5.61350+ 4 0.00000+ 0 3.26773- 71261 145401918
+ 5.61350+ 4 1.00000+ 0 2.36835- 7 5.61360+ 4 0.00000+ 0 8.96377- 61261 145401919
+ 5.61370+ 4 0.00000+ 0 4.85563- 5 5.61370+ 4 1.00000+ 0 4.85563- 51261 145401920
+ 5.61380+ 4 0.00000+ 0 5.84014- 4 5.61390+ 4 0.00000+ 0 3.47147- 31261 145401921
+ 5.61400+ 4 0.00000+ 0 1.07338- 2 5.61410+ 4 0.00000+ 0 2.22452- 21261 145401922
+ 5.61420+ 4 0.00000+ 0 3.23681- 2 5.61430+ 4 0.00000+ 0 2.70079- 21261 145401923
+ 5.61440+ 4 0.00000+ 0 1.76070- 2 5.61450+ 4 0.00000+ 0 9.04322- 31261 145401924
+ 5.61460+ 4 0.00000+ 0 2.38941- 3 5.61470+ 4 0.00000+ 0 3.49727- 41261 145401925
+ 5.61480+ 4 0.00000+ 0 2.95994- 5 5.61490+ 4 0.00000+ 0 1.16919- 61261 145401926
+ 5.61500+ 4 0.00000+ 0 3.54753- 8 5.61520+ 4 0.00000+ 0 1.05926-111261 145401927
+ 5.61540+ 4 0.00000+ 0 0.00000+ 0 5.71330+ 4 0.00000+ 0 0.00000+ 01261 145401928
+ 5.71350+ 4 0.00000+ 0 2.06856-11 5.71370+ 4 0.00000+ 0 4.33699- 81261 145401929
+ 5.71380+ 4 0.00000+ 0 7.80458- 7 5.71390+ 4 0.00000+ 0 1.81174- 51261 145401930
+ 5.71400+ 4 0.00000+ 0 3.24684- 4 5.71410+ 4 0.00000+ 0 8.68976- 41261 145401931
+ 5.71420+ 4 0.00000+ 0 3.63256- 3 5.71430+ 4 0.00000+ 0 7.57142- 31261 145401932
+ 5.71440+ 4 0.00000+ 0 1.23403- 2 5.71450+ 4 0.00000+ 0 1.61947- 21261 145401933
+ 5.71460+ 4 0.00000+ 0 1.15143- 2 5.71470+ 4 0.00000+ 0 4.87702- 31261 145401934
+ 5.71480+ 4 0.00000+ 0 1.40398- 3 5.71490+ 4 0.00000+ 0 1.93516- 41261 145401935
+ 5.71500+ 4 0.00000+ 0 1.92166- 5 5.71510+ 4 0.00000+ 0 1.56891- 61261 145401936
+ 5.71520+ 4 0.00000+ 0 6.16572- 8 5.71530+ 4 0.00000+ 0 1.55892- 91261 145401937
+ 5.71540+ 4 0.00000+ 0 1.15919-11 5.81350+ 4 0.00000+ 0 0.00000+ 01261 145401938
+ 5.81370+ 4 0.00000+ 0 1.12922-12 5.81370+ 4 1.00000+ 0 1.09924-121261 145401939
+ 5.81380+ 4 0.00000+ 0 1.32908-10 5.81390+ 4 0.00000+ 0 4.40694- 91261 145401940
+ 5.81390+ 4 1.00000+ 0 4.20708- 9 5.81400+ 4 0.00000+ 0 4.82665- 61261 145401941
+ 5.81410+ 4 0.00000+ 0 4.08716- 6 5.81420+ 4 0.00000+ 0 5.42223- 51261 145401942
+ 5.81430+ 4 0.00000+ 0 3.05488- 4 5.81440+ 4 0.00000+ 0 1.33988- 31261 145401943
+ 5.81450+ 4 0.00000+ 0 5.04239- 3 5.81460+ 4 0.00000+ 0 9.51191- 31261 145401944
+ 5.81470+ 4 0.00000+ 0 1.11562- 2 5.81480+ 4 0.00000+ 0 9.30231- 31261 145401945
+ 5.81490+ 4 0.00000+ 0 3.93763- 3 5.81500+ 4 0.00000+ 0 1.16955- 31261 145401946
+ 5.81510+ 4 0.00000+ 0 2.74799- 4 5.81520+ 4 0.00000+ 0 3.58751- 51261 145401947
+ 5.81530+ 4 0.00000+ 0 3.29771- 6 5.81540+ 4 0.00000+ 0 9.65329- 81261 145401948
+ 5.81550+ 4 0.00000+ 0 5.04649- 9 5.81560+ 4 0.00000+ 0 1.82873-101261 145401949
+ 5.81570+ 4 0.00000+ 0 2.11853-12 5.81580+ 4 0.00000+ 0 0.00000+ 01261 145401950
+ 5.81600+ 4 0.00000+ 0 0.00000+ 0 5.91390+ 4 0.00000+ 0 9.89313-141261 145401951
+ 5.91400+ 4 0.00000+ 0 9.14365-12 5.91410+ 4 0.00000+ 0 4.19708-101261 145401952
+ 5.91420+ 4 0.00000+ 0 9.98306- 9 5.91420+ 4 1.00000+ 0 9.97307- 91261 145401953
+ 5.91430+ 4 0.00000+ 0 3.73740- 7 5.91440+ 4 0.00000+ 0 3.23775- 61261 145401954
+ 5.91440+ 4 1.00000+ 0 2.41832- 6 5.91450+ 4 0.00000+ 0 5.09646- 51261 145401955
+ 5.91460+ 4 0.00000+ 0 2.85661- 4 5.91470+ 4 0.00000+ 0 9.73164- 41261 145401956
+ 5.91480+ 4 0.00000+ 0 2.48541- 3 5.91490+ 4 0.00000+ 0 3.03644- 31261 145401957
+ 5.91500+ 4 0.00000+ 0 2.41634- 3 5.91510+ 4 0.00000+ 0 1.46923- 31261 145401958
+ 5.91520+ 4 0.00000+ 0 5.72802- 4 5.91530+ 4 0.00000+ 0 1.75438- 41261 145401959
+ 5.91540+ 4 0.00000+ 0 1.89868- 5 5.91550+ 4 0.00000+ 0 2.81804- 61261 145401960
+ 5.91560+ 4 0.00000+ 0 2.93796- 7 5.91570+ 4 0.00000+ 0 1.19917- 81261 145401961
+ 5.91580+ 4 0.00000+ 0 1.85871-10 5.91590+ 4 0.00000+ 0 2.05857-121261 145401962
+ 5.91600+ 4 0.00000+ 0 3.08785-14 6.01400+ 4 0.00000+ 0 0.00000+ 01261 145401963
+ 6.01410+ 4 0.00000+ 0 0.00000+ 0 6.01410+ 4 1.00000+ 0 0.00000+ 01261 145401964
+ 6.01420+ 4 0.00000+ 0 7.01513-13 6.01430+ 4 0.00000+ 0 6.12574-101261 145401965
+ 6.01440+ 4 0.00000+ 0 1.23914- 6 6.01450+ 4 0.00000+ 0 5.59611- 81261 145401966
+ 6.01460+ 4 0.00000+ 0 1.00930- 6 6.01470+ 4 0.00000+ 0 1.07925- 51261 145401967
+ 6.01480+ 4 0.00000+ 0 9.98206- 5 6.01490+ 4 0.00000+ 0 3.92078- 41261 145401968
+ 6.01500+ 4 0.00000+ 0 8.77930- 4 6.01510+ 4 0.00000+ 0 1.33133- 31261 145401969
+ 6.01520+ 4 0.00000+ 0 1.41253- 3 6.01530+ 4 0.00000+ 0 1.17779- 31261 145401970
+ 6.01540+ 4 0.00000+ 0 4.53965- 4 6.01550+ 4 0.00000+ 0 1.76527- 41261 145401971
+ 6.01560+ 4 0.00000+ 0 4.98554- 5 6.01570+ 4 0.00000+ 0 6.75531- 61261 145401972
+ 6.01580+ 4 0.00000+ 0 4.05718- 7 6.01590+ 4 0.00000+ 0 1.56891- 81261 145401973
+ 6.01600+ 4 0.00000+ 0 6.91519-10 6.01610+ 4 0.00000+ 0 1.26912-111261 145401974
+ 6.01620+ 4 0.00000+ 0 1.00930-12 6.01630+ 4 0.00000+ 0 0.00000+ 01261 145401975
+ 6.01640+ 4 0.00000+ 0 0.00000+ 0 6.11410+ 4 0.00000+ 0 0.00000+ 01261 145401976
+ 6.11430+ 4 0.00000+ 0 0.00000+ 0 6.11440+ 4 0.00000+ 0 1.31908-141261 145401977
+ 6.11450+ 4 0.00000+ 0 1.29910-12 6.11460+ 4 0.00000+ 0 7.67467-111261 145401978
+ 6.11470+ 4 0.00000+ 0 2.32838- 8 6.11480+ 4 0.00000+ 0 5.28633- 81261 145401979
+ 6.11480+ 4 1.00000+ 0 5.28633- 8 6.11490+ 4 0.00000+ 0 1.48897- 61261 145401980
+ 6.11500+ 4 0.00000+ 0 1.05727- 5 6.11510+ 4 0.00000+ 0 4.48688- 51261 145401981
+ 6.11520+ 4 0.00000+ 0 7.11905- 5 6.11520+ 4 1.00000+ 0 7.12205- 51261 145401982
+ 6.11530+ 4 0.00000+ 0 3.65136- 4 6.11540+ 4 0.00000+ 0 2.02229- 41261 145401983
+ 6.11540+ 4 1.00000+ 0 2.03449- 4 6.11550+ 4 0.00000+ 0 3.76259- 41261 145401984
+ 6.11560+ 4 0.00000+ 0 2.59710- 4 6.11570+ 4 0.00000+ 0 1.04967- 41261 145401985
+ 6.11580+ 4 0.00000+ 0 2.22246- 5 6.11590+ 4 0.00000+ 0 2.82803- 61261 145401986
+ 6.11600+ 4 0.00000+ 0 3.52755- 7 6.11610+ 4 0.00000+ 0 2.31839- 81261 145401987
+ 6.11620+ 4 0.00000+ 0 3.29771- 9 6.11630+ 4 0.00000+ 0 9.76322-111261 145401988
+ 6.11640+ 4 0.00000+ 0 2.03858-12 6.11650+ 4 0.00000+ 0 2.51825-141261 145401989
+ 6.21430+ 4 0.00000+ 0 0.00000+ 0 6.21430+ 4 1.00000+ 0 0.00000+ 01261 145401990
+ 6.21440+ 4 0.00000+ 0 0.00000+ 0 6.21450+ 4 0.00000+ 0 0.00000+ 01261 145401991
+ 6.21460+ 4 0.00000+ 0 0.00000+ 0 6.21470+ 4 0.00000+ 0 2.82803- 61261 145401992
+ 6.21480+ 4 0.00000+ 0 1.09924-11 6.21490+ 4 0.00000+ 0 5.80597-101261 145401993
+ 6.21500+ 4 0.00000+ 0 1.38903- 8 6.21510+ 4 0.00000+ 0 1.78876- 71261 145401994
+ 6.21520+ 4 0.00000+ 0 1.88869- 6 6.21530+ 4 0.00000+ 0 2.20847- 51261 145401995
+ 6.21540+ 4 0.00000+ 0 6.12974- 5 6.21550+ 4 0.00000+ 0 1.39413- 41261 145401996
+ 6.21560+ 4 0.00000+ 0 2.31779- 4 6.21570+ 4 0.00000+ 0 2.55722- 41261 145401997
+ 6.21580+ 4 0.00000+ 0 1.67144- 4 6.21590+ 4 0.00000+ 0 6.24666- 51261 145401998
+ 6.21600+ 4 0.00000+ 0 2.03159- 5 6.21610+ 4 0.00000+ 0 4.41693- 61261 145401999
+ 6.21620+ 4 0.00000+ 0 1.08924- 6 6.21630+ 4 0.00000+ 0 1.02928- 71261 145402000
+ 6.21640+ 4 0.00000+ 0 7.03511- 9 6.21650+ 4 0.00000+ 0 2.85801-101261 145402001
+ 6.21660+ 4 0.00000+ 0 6.16572-12 6.21670+ 4 0.00000+ 0 1.13921-131261 145402002
+ 6.21680+ 4 0.00000+ 0 0.00000+ 0 6.21700+ 4 0.00000+ 0 0.00000+ 01261 145402003
+ 6.31470+ 4 0.00000+ 0 0.00000+ 0 6.31490+ 4 0.00000+ 0 0.00000+ 01261 145402004
+ 6.31510+ 4 0.00000+ 0 1.65885-11 6.31520+ 4 0.00000+ 0 3.21776-101261 145402005
+ 6.31520+ 4 1.00000+ 0 3.21776-10 6.31530+ 4 0.00000+ 0 1.70881- 81261 145402006
+ 6.31540+ 4 0.00000+ 0 2.76808- 7 6.31550+ 4 0.00000+ 0 1.72880- 61261 145402007
+ 6.31560+ 4 0.00000+ 0 7.52477- 6 6.31570+ 4 0.00000+ 0 2.47828- 51261 145402008
+ 6.31580+ 4 0.00000+ 0 5.03350- 5 6.31590+ 4 0.00000+ 0 5.17141- 51261 145402009
+ 6.31600+ 4 0.00000+ 0 4.00522- 5 6.31610+ 4 0.00000+ 0 2.55223- 51261 145402010
+ 6.31620+ 4 0.00000+ 0 1.04427- 5 6.31630+ 4 0.00000+ 0 2.86801- 61261 145402011
+ 6.31640+ 4 0.00000+ 0 5.92588- 7 6.31650+ 4 0.00000+ 0 7.56474- 81261 145402012
+ 6.31660+ 4 0.00000+ 0 5.25635- 9 6.31670+ 4 0.00000+ 0 3.17779-101261 145402013
+ 6.31680+ 4 0.00000+ 0 9.77321-12 6.31690+ 4 0.00000+ 0 2.47828-131261 145402014
+ 6.31700+ 4 0.00000+ 0 0.00000+ 0 6.41470+ 4 0.00000+ 0 0.00000+ 01261 145402015
+ 6.41490+ 4 0.00000+ 0 0.00000+ 0 6.41510+ 4 0.00000+ 0 0.00000+ 01261 145402016
+ 6.41520+ 4 0.00000+ 0 1.90867-14 6.41530+ 4 0.00000+ 0 1.88869-121261 145402017
+ 6.41540+ 4 0.00000+ 0 1.29910-10 6.41550+ 4 0.00000+ 0 2.34837- 91261 145402018
+ 6.41560+ 4 0.00000+ 0 3.63747- 8 6.41570+ 4 0.00000+ 0 3.19778- 71261 145402019
+ 6.41580+ 4 0.00000+ 0 2.33838- 6 6.41590+ 4 0.00000+ 0 7.26495- 61261 145402020
+ 6.41600+ 4 0.00000+ 0 1.36805- 5 6.41610+ 4 0.00000+ 0 2.50026- 51261 145402021
+ 6.41620+ 4 0.00000+ 0 1.62987- 5 6.41630+ 4 0.00000+ 0 1.17718- 51261 145402022
+ 6.41640+ 4 0.00000+ 0 6.56544- 6 6.41650+ 4 0.00000+ 0 2.36835- 61261 145402023
+ 6.41660+ 4 0.00000+ 0 4.88660- 7 6.41670+ 4 0.00000+ 0 9.09368- 81261 145402024
+ 6.41680+ 4 0.00000+ 0 8.89382- 9 6.41690+ 4 0.00000+ 0 7.33490-101261 145402025
+ 6.41700+ 4 0.00000+ 0 2.46828-11 6.41710+ 4 0.00000+ 0 6.38556-131261 145402026
+ 6.41720+ 4 0.00000+ 0 1.63886-14 6.51510+ 4 0.00000+ 0 0.00000+ 01261 145402027
+ 6.51530+ 4 0.00000+ 0 0.00000+ 0 6.51550+ 4 0.00000+ 0 6.85524-141261 145402028
+ 6.51560+ 4 0.00000+ 0 1.40902-12 6.51560+ 4 1.00000+ 0 1.43900-121261 145402029
+ 6.51570+ 4 0.00000+ 0 9.32352-11 6.51580+ 4 0.00000+ 0 1.35906- 91261 145402030
+ 6.51580+ 4 1.00000+ 0 1.43900- 9 6.51590+ 4 0.00000+ 0 2.99792- 81261 145402031
+ 6.51600+ 4 0.00000+ 0 2.03858- 7 6.51610+ 4 0.00000+ 0 9.10367- 71261 145402032
+ 6.51620+ 4 0.00000+ 0 4.94656- 7 6.51620+ 4 1.00000+ 0 4.94656- 71261 145402033
+ 6.51630+ 4 0.00000+ 0 1.94865- 6 6.51640+ 4 0.00000+ 0 2.85801- 61261 145402034
+ 6.51650+ 4 0.00000+ 0 2.71811- 6 6.51660+ 4 0.00000+ 0 1.47897- 61261 145402035
+ 6.51670+ 4 0.00000+ 0 7.60472- 7 6.51680+ 4 0.00000+ 0 2.14851- 71261 145402036
+ 6.51690+ 4 0.00000+ 0 5.34628- 8 6.51700+ 4 0.00000+ 0 5.62609- 91261 145402037
+ 6.51710+ 4 0.00000+ 0 4.67675-10 6.51720+ 4 0.00000+ 0 3.92727-111261 145402038
+ 6.61550+ 4 0.00000+ 0 0.00000+ 0 6.61560+ 4 0.00000+ 0 0.00000+ 01261 145402039
+ 6.61570+ 4 0.00000+ 0 0.00000+ 0 6.61580+ 4 0.00000+ 0 3.48758-131261 145402040
+ 6.61590+ 4 0.00000+ 0 1.19917-11 6.61600+ 4 0.00000+ 0 1.94865-101261 145402041
+ 6.61610+ 4 0.00000+ 0 3.96724- 9 6.61620+ 4 0.00000+ 0 7.54476- 91261 145402042
+ 6.61630+ 4 0.00000+ 0 4.59681- 8 6.61640+ 4 0.00000+ 0 2.00860- 71261 145402043
+ 6.61650+ 4 0.00000+ 0 2.65815- 7 6.61650+ 4 1.00000+ 0 2.66815- 71261 145402044
+ 6.61660+ 4 0.00000+ 0 7.84455- 7 6.61670+ 4 0.00000+ 0 1.04927- 61261 145402045
+ 6.61680+ 4 0.00000+ 0 7.78459- 7 6.61690+ 4 0.00000+ 0 5.19639- 71261 145402046
+ 6.61700+ 4 0.00000+ 0 1.53893- 7 6.61710+ 4 0.00000+ 0 3.77738- 81261 145402047
+ 6.61720+ 4 0.00000+ 0 9.73324- 9 6.71590+ 4 0.00000+ 0 0.00000+ 01261 145402048
+ 6.71590+ 4 1.00000+ 0 0.00000+ 0 6.71610+ 4 0.00000+ 0 1.95864-131261 145402049
+ 6.71610+ 4 1.00000+ 0 2.01860-13 6.71620+ 4 0.00000+ 0 6.64538-131261 145402050
+ 6.71620+ 4 1.00000+ 0 6.51547-13 6.71630+ 4 0.00000+ 0 1.31908-111261 145402051
+ 6.71630+ 4 1.00000+ 0 1.36905-11 6.71640+ 4 0.00000+ 0 1.83872-101261 145402052
+ 6.71640+ 4 1.00000+ 0 1.92866-10 6.71650+ 4 0.00000+ 0 3.21776- 91261 145402053
+ 6.71660+ 4 0.00000+ 0 7.15503- 9 6.71660+ 4 1.00000+ 0 7.15503- 91261 145402054
+ 6.71670+ 4 0.00000+ 0 5.57613- 8 6.71680+ 4 0.00000+ 0 1.13921- 71261 145402055
+ 6.71690+ 4 0.00000+ 0 2.01860- 7 6.71700+ 4 0.00000+ 0 7.76460- 81261 145402056
+ 6.71700+ 4 1.00000+ 0 7.80458- 8 6.71710+ 4 0.00000+ 0 1.00930- 71261 145402057
+ 6.71720+ 4 0.00000+ 0 7.12505- 8 6.81610+ 4 0.00000+ 0 0.00000+ 01261 145402058
+ 6.81620+ 4 0.00000+ 0 0.00000+ 0 6.81630+ 4 0.00000+ 0 0.00000+ 01261 145402059
+ 6.81640+ 4 0.00000+ 0 7.43483-14 6.81650+ 4 0.00000+ 0 1.91867-121261 145402060
+ 6.81660+ 4 0.00000+ 0 2.95794-11 6.81670+ 4 0.00000+ 0 1.83872-101261 145402061
+ 6.81670+ 4 1.00000+ 0 1.83872-10 6.81680+ 4 0.00000+ 0 2.31839- 91261 145402062
+ 6.81690+ 4 0.00000+ 0 1.22915- 8 6.81700+ 4 0.00000+ 0 2.66815- 81261 145402063
+ 6.81710+ 4 0.00000+ 0 4.70673- 8 6.81720+ 4 0.00000+ 0 8.73393- 81261 145402064
+                                                                  1261 100002065
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 145502066
+ 0.00000+ 0 0.00000+ 0          0          0          6          01261 145502067
+ 1.27200- 2 3.17400- 2 1.16000- 1 3.11000- 1 1.40000+ 0 3.87000+ 01261 145502068
+ 0.00000+ 0 0.00000+ 0          0          0          1          71261 145502069
+          7          2                                            1261 145502070
+ 1.00000- 5 1.67000- 2 1.20000+ 6 1.67000- 2 2.00000+ 6 1.67000- 21261 145502071
+ 4.00000+ 6 1.67000- 2 7.00000+ 6 9.00000- 3 7.85000+ 6 9.00000- 31261 145502072
+ 2.00000+ 7 9.00000- 3                                            1261 145502073
+                                                                  1261 100002074
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 145602075
+ 0.00000+ 0 0.00000+ 0          0          0          1          71261 145602076
+          7          2                                            1261 145602077
+ 1.00000- 5 2.40210+ 0 1.20000+ 6 2.55460+ 0 3.00000+ 6 2.76340+ 01261 145602078
+ 4.00000+ 6 2.92760+ 0 7.00000+ 6 3.42030+ 0 7.85000+ 6 3.55990+ 01261 145602079
+ 2.00000+ 7 5.18720+ 0                                            1261 145602080
+                                                                  1261 100002081
+ 9.22350+ 4 2.33025+ 2          0          0          0          21261 145702082
+ 2.22013+16 3.15360+13          0          0          6          31261 145702083
+ 0.00000+ 0 0.00000+ 0 1.61310+ 5 0.00000+ 0 4.46800+ 6 0.00000+ 01261 145702084
+ 9.22350+ 4 2.33025+ 2          0          0         12          21261 145702085
+ 4.00000+ 0 0.00000+ 0 4.67880+ 6 2.50000+ 3 1.00000+ 0 0.00000+ 01261 145702086
+ 6.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 4.00000- 9 0.00000+ 01261 145702087
+ 4.00000+ 0 0.00000+ 0          0          0        102         161261 145702088
+ 1.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702089
+ 4.14600+ 6 3.00000+ 3 5.00000- 1 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702090
+ 4.19000+ 6 3.00000+ 3 1.30000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702091
+ 4.21600+ 6 3.00000+ 3 6.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702092
+ 4.27100+ 6 5.00000+ 3 4.00000- 1 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702093
+ 4.32500+ 6 3.00000+ 3 3.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702094
+ 4.34500+ 6 4.00000+ 3 1.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702095
+ 4.36800+ 6 3.00000+ 3 1.20000+ 1 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702096
+ 4.37400+ 6 5.00000+ 3 6.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702097
+ 4.39800+ 6 3.00000+ 3 5.60000+ 1 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702098
+ 4.41700+ 6 5.00000+ 3 2.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702099
+ 4.43000+ 6 5.00000+ 3 1.50000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702100
+ 4.44400+ 6 3.00000+ 3 1.50000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702101
+ 4.48400+ 6 3.00000+ 3 1.60000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702102
+ 4.50200+ 6 3.00000+ 3 1.40000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702103
+ 4.55600+ 6 3.00000+ 3 3.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702104
+ 4.59800+ 6 3.00000+ 3 4.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702105
+ 0.00000+ 0 0.00000+ 0          0          0        210         341261 145702106
+ 1.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702107
+ 3.16000+ 4 1.00000+ 2 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702108
+ 4.21000+ 4 2.00000+ 2 5.00000- 2 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702109
+ 5.12000+ 4 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702110
+ 7.49000+ 4 1.00000+ 2 1.30000- 1 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702111
+ 1.09120+ 5 5.00000+ 1 1.50000+ 0 2.00000- 1 9.70000- 2 0.00000+ 01261 145702112
+ 1.15200+ 5 5.00000+ 2 1.10000- 1 3.00000- 2 0.00000+ 0 0.00000+ 01261 145702113
+ 1.40750+ 5 1.00000+ 2 1.70000- 1 2.00000- 2 0.00000+ 0 0.00000+ 01261 145702114
+ 1.43780+ 5 2.00000+ 1 9.70000+ 0 5.00000- 1 2.07000- 1 0.00000+ 01261 145702115
+ 1.50960+ 5 3.00000+ 1 1.10000- 1 3.00000- 2 0.00000+ 0 0.00000+ 01261 145702116
+ 1.63360+ 5 2.00000+ 1 4.60000+ 0 3.00000- 1 1.54000- 1 0.00000+ 01261 145702117
+ 1.73400+ 5 1.00000+ 2 1.50000- 2 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702118
+ 1.82720+ 5 2.00000+ 2 4.00000- 1 4.00000- 2 0.00000+ 0 0.00000+ 01261 145702119
+ 1.85720+ 5 2.00000+ 1 5.40000+ 1 0.00000+ 0 1.14000- 1 0.00000+ 01261 145702120
+ 1.94940+ 5 2.00000+ 1 6.50000- 1 5.00000- 2 0.00000+ 0 0.00000+ 01261 145702121
+ 1.98910+ 5 6.00000+ 1 3.00000- 2 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702122
+ 2.02130+ 5 3.00000+ 1 1.05000+ 0 5.00000- 2 2.58000+ 0 0.00000+ 01261 145702123
+ 2.05310+ 5 2.00000+ 1 4.90000+ 0 3.00000- 1 9.30000- 2 0.00000+ 01261 145702124
+ 2.15310+ 5 5.00000+ 1 3.00000- 2 3.00000- 3 0.00000+ 0 0.00000+ 01261 145702125
+ 2.21370+ 5 3.00000+ 1 1.20000- 1 1.00000- 2 0.00000+ 0 0.00000+ 01261 145702126
+ 2.25700+ 5 2.00000+ 2 2.00000- 3 2.00000- 4 0.00000+ 0 0.00000+ 01261 145702127
+ 2.28800+ 5 1.00000+ 2 8.00000- 3 1.00000- 3 0.00000+ 0 0.00000+ 01261 145702128
+ 2.33530+ 5 4.00000+ 1 4.00000- 2 4.00000- 3 0.00000+ 0 0.00000+ 01261 145702129
+ 2.40930+ 5 4.00000+ 1 7.50000- 2 8.00000- 3 0.00000+ 0 0.00000+ 01261 145702130
+ 2.46830+ 5 4.00000+ 1 6.00000- 2 6.00000- 3 0.00000+ 0 0.00000+ 01261 145702131
+ 2.66440+ 5 8.00000+ 1 8.00000- 3 1.00000- 3 0.00000+ 0 0.00000+ 01261 145702132
+ 2.75400+ 5 1.00000+ 2 2.00000- 2 2.00000- 3 0.00000+ 0 0.00000+ 01261 145702133
+ 2.83100+ 5 2.00000+ 2 3.00000- 3 3.00000- 4 0.00000+ 0 0.00000+ 01261 145702134
+ 2.91600+ 5 1.00000+ 2 2.00000- 2 2.00000- 3 0.00000+ 0 0.00000+ 01261 145702135
+ 3.11600+ 5 6.00000+ 2 5.00000- 3 5.00000- 4 0.00000+ 0 0.00000+ 01261 145702136
+ 3.45910+ 5 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702137
+ 3.56000+ 5 2.00000+ 2 3.00000- 3 3.00000- 4 0.00000+ 0 0.00000+ 01261 145702138
+ 3.87850+ 5 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702139
+ 4.10200+ 5 2.00000+ 2 1.60000- 3 2.00000- 4 0.00000+ 0 0.00000+ 01261 145702140
+ 4.47500+ 5 2.00000+ 2 1.60000- 3 2.00000- 4 0.00000+ 0 0.00000+ 01261 145702141
+                                                                  1261 100002142
+                                                                  1261 000002143
+ 9.22350+ 4 2.33025+ 2          0          0          1          01261 215102144
+ 9.22350+ 4 1.00000+ 0          0          1          2          01261 215102145
+ 1.00000+ 0 8.20000+ 1          1          1          0          01261 215102146
+ 3.50000+ 0 9.56630- 1          0          0          1          01261 215102147
+ 2.33020+ 2 0.00000+ 0          0          0        780        1301261 215102148
+-1.49000+ 0 3.50000+ 0 2.37680- 1 3.68200- 3 2.70000- 2 2.07000- 11261 215102149
+ 2.90000- 1 3.50000+ 0 1.35000- 1 3.01570- 6 3.60000- 2 9.90000- 21261 215102150
+ 1.14000+ 0 3.50000+ 0 1.50820- 1 1.51610- 5 3.46000- 2 1.16200- 11261 215102151
+ 2.03500+ 0 3.50000+ 0 4.46960- 2 7.66050- 6 3.48740- 2 9.81400- 31261 215102152
+ 2.92000+ 0 3.50000+ 0 2.20000- 1 4.85300- 6 2.00000- 2 2.00000- 11261 215102153
+ 3.14700+ 0 3.50000+ 0 1.39610- 1 2.24050- 5 3.32100- 2 1.06370- 11261 215102154
+ 3.60900+ 0 3.50000+ 0 8.43790- 2 4.55940- 5 3.36960- 2 5.06370- 21261 215102155
+ 4.84800+ 0 3.50000+ 0 3.95920- 2 6.03520- 5 3.59450- 2 3.58700- 31261 215102156
+ 5.44800+ 0 3.50000+ 0 9.01200- 2 3.36110- 6 6.00000- 2 3.01170- 21261 215102157
+ 5.60000+ 0 3.50000+ 0 6.41920- 1 3.33190- 5 2.00000- 2 6.21890- 11261 215102158
+ 6.21000+ 0 3.50000+ 0 2.30900- 1 6.37950- 5 4.34690- 2 1.87360- 11261 215102159
+ 6.38200+ 0 3.50000+ 0 4.47880- 2 2.68340- 4 3.49720- 2 9.54800- 31261 215102160
+ 7.07700+ 0 3.50000+ 0 6.39340- 2 1.26600- 4 3.55740- 2 2.82330- 21261 215102161
+ 8.78100+ 0 3.50000+ 0 1.23290- 1 1.12340- 3 3.11700- 2 9.10000- 21261 215102162
+ 9.28600+ 0 3.50000+ 0 1.10760- 1 1.63640- 4 3.56000- 2 7.50000- 21261 215102163
+ 9.73000+ 0 3.50000+ 0 2.69050- 1 5.30280- 5 3.20000- 2 2.37000- 11261 215102164
+ 1.01800+ 1 3.50000+ 0 1.00560- 1 6.18980- 5 3.80000- 2 6.25000- 21261 215102165
+ 1.08000+ 1 3.50000+ 0 9.35090- 1 9.33320- 5 6.70000- 2 8.68000- 11261 215102166
+ 1.16660+ 1 3.50000+ 0 4.72770- 2 6.27440- 4 4.04000- 2 6.25000- 31261 215102167
+ 1.23960+ 1 3.50000+ 0 6.32620- 2 1.26220- 3 3.45000- 2 2.75000- 21261 215102168
+ 1.28610+ 1 3.50000+ 0 1.19550- 1 5.30760- 5 3.35000- 2 8.60000- 21261 215102169
+ 1.32750+ 1 3.50000+ 0 1.51440- 1 3.93500- 5 2.86000- 2 1.22800- 11261 215102170
+ 1.37000+ 1 3.50000+ 0 1.23940- 1 3.70130- 5 3.04000- 2 9.35000- 21261 215102171
+ 1.39960+ 1 3.50000+ 0 4.96540- 1 5.37230- 4 2.60000- 2 4.70000- 11261 215102172
+ 1.45440+ 1 3.50000+ 0 5.62150- 2 1.15170- 4 3.52000- 2 2.09000- 21261 215102173
+ 1.54060+ 1 3.50000+ 0 7.88370- 2 2.37070- 4 3.53000- 2 4.33000- 21261 215102174
+ 1.60880+ 1 3.50000+ 0 5.03610- 2 3.60990- 4 3.13830- 2 1.86170- 21261 215102175
+ 1.66670+ 1 3.50000+ 0 1.33270- 1 2.73000- 4 3.21050- 2 1.00890- 11261 215102176
+ 1.80520+ 1 3.50000+ 0 1.60380- 1 3.84510- 4 3.50000- 2 1.25000- 11261 215102177
+ 1.89600+ 1 3.50000+ 0 1.05120- 1 1.15820- 4 5.00000- 2 5.50000- 21261 215102178
+ 1.92970+ 1 3.50000+ 0 9.81940- 2 3.19360- 3 3.48210- 2 6.01790- 21261 215102179
+ 2.01300+ 1 3.50000+ 0 2.40090- 1 8.77140- 5 1.39100- 2 2.26090- 11261 215102180
+ 2.02000+ 1 3.50000+ 0 5.00130- 2 1.30340- 5 4.92800- 2 7.20000- 41261 215102181
+ 2.06100+ 1 3.50000+ 0 8.41910- 2 1.91170- 4 4.04850- 2 4.35150- 21261 215102182
+ 2.10720+ 1 3.50000+ 0 7.35030- 2 1.50270- 3 4.03420- 2 3.16580- 21261 215102183
+ 2.29390+ 1 3.50000+ 0 7.54360- 2 4.35840- 4 3.26700- 2 4.23300- 21261 215102184
+ 2.34120+ 1 3.50000+ 0 3.22040- 2 7.03720- 4 2.65000- 2 5.00000- 31261 215102185
+ 2.36290+ 1 3.50000+ 0 2.25860- 1 8.55770- 4 4.30000- 2 1.82000- 11261 215102186
+ 2.42450+ 1 3.50000+ 0 5.82680- 2 2.68350- 4 3.10000- 2 2.70000- 21261 215102187
+ 2.43700+ 1 3.50000+ 0 1.00150- 1 1.49580- 4 3.50000- 2 6.50000- 21261 215102188
+ 2.52000+ 1 3.50000+ 0 8.50680- 1 6.76240- 4 2.50000- 2 8.25000- 11261 215102189
+ 2.55900+ 1 3.50000+ 0 3.85560- 1 5.64550- 4 2.50000- 2 3.60000- 11261 215102190
+ 2.64800+ 1 3.50000+ 0 1.92480- 1 4.75990- 4 3.20000- 2 1.60000- 11261 215102191
+ 2.67400+ 1 3.50000+ 0 2.50090- 1 8.56850- 5 3.00000- 2 2.20000- 11261 215102192
+ 2.71490+ 1 3.50000+ 0 1.15590- 1 8.51390- 5 4.20000- 2 7.35000- 21261 215102193
+ 2.77960+ 1 3.50000+ 0 1.20670- 1 6.74470- 4 3.20000- 2 8.80000- 21261 215102194
+ 2.80900+ 1 3.50000+ 0 6.50310- 2 3.11640- 5 4.00000- 2 2.50000- 21261 215102195
+ 2.83510+ 1 3.50000+ 0 1.49190- 1 1.88540- 4 3.17000- 2 1.17300- 11261 215102196
+ 2.87100+ 1 3.50000+ 0 1.30040- 1 4.50090- 5 5.00000- 2 8.00000- 21261 215102197
+ 2.96440+ 1 3.50000+ 0 6.11770- 2 1.77440- 4 3.70000- 2 2.40000- 21261 215102198
+ 3.05900+ 1 3.50000+ 0 1.55230- 1 2.27320- 4 4.50940- 2 1.09900- 11261 215102199
+ 3.08600+ 1 3.50000+ 0 5.45320- 2 5.32350- 4 3.52690- 2 1.87310- 21261 215102200
+ 3.20700+ 1 3.50000+ 0 9.98230- 2 1.82330- 3 3.77240- 2 6.02760- 21261 215102201
+ 3.35200+ 1 3.50000+ 0 5.68590- 2 1.85950- 3 3.18610- 2 2.31390- 21261 215102202
+ 3.43700+ 1 3.50000+ 0 8.72530- 2 2.25270- 3 4.31600- 2 4.18400- 21261 215102203
+ 3.48500+ 1 3.50000+ 0 1.16100- 1 1.09770- 3 3.82470- 2 7.67530- 21261 215102204
+ 3.51870+ 1 3.50000+ 0 1.03500- 1 3.50040- 3 3.14020- 2 6.85980- 21261 215102205
+ 3.53000+ 1 3.50000+ 0 6.91570- 1 1.56750- 3 4.00000- 2 6.50000- 11261 215102206
+ 3.64000+ 1 3.50000+ 0 1.54010+ 0 1.19940- 4 4.00000- 2 1.50000+ 01261 215102207
+ 3.75000+ 1 3.50000+ 0 1.54020+ 0 1.66380- 4 4.00000- 2 1.50000+ 01261 215102208
+ 3.83000+ 1 3.50000+ 0 3.08340- 1 3.35920- 4 4.21910- 2 2.65810- 11261 215102209
+ 3.94100+ 1 3.50000+ 0 9.55230- 2 2.52330- 3 3.44880- 2 5.85120- 21261 215102210
+ 3.99000+ 1 3.50000+ 0 1.50240- 1 2.36370- 4 3.31770- 2 1.16820- 11261 215102211
+ 4.05360+ 1 3.50000+ 0 2.09380- 1 3.80290- 4 3.43230- 2 1.74680- 11261 215102212
+ 4.13500+ 1 3.50000+ 0 4.45640- 1 6.44840- 4 4.50000- 2 4.00000- 11261 215102213
+ 4.15900+ 1 3.50000+ 0 1.65220- 1 2.23910- 4 3.09070- 2 1.34090- 11261 215102214
+ 4.18730+ 1 3.50000+ 0 4.12330- 2 1.23250- 3 2.89510- 2 1.10490- 21261 215102215
+ 4.22300+ 1 3.50000+ 0 1.45450- 1 4.47220- 4 4.82400- 2 9.67600- 21261 215102216
+ 4.26900+ 1 3.50000+ 0 6.13450- 2 3.45180- 4 4.43220- 2 1.66780- 21261 215102217
+ 4.33980+ 1 3.50000+ 0 7.07540- 2 7.54490- 4 4.58800- 2 2.41200- 21261 215102218
+ 4.39000+ 1 3.50000+ 0 1.10200- 1 2.00960- 4 4.10360- 2 6.89640- 21261 215102219
+ 4.39700+ 1 3.50000+ 0 2.50340- 1 3.45470- 4 1.73090- 2 2.32690- 11261 215102220
+ 4.46000+ 1 3.50000+ 0 1.75840- 1 8.38660- 4 4.59780- 2 1.29020- 11261 215102221
+ 4.49500+ 1 3.50000+ 0 5.35760- 1 7.57000- 4 3.07390- 2 5.04260- 11261 215102222
+ 4.57900+ 1 3.50000+ 0 1.34190- 1 1.87910- 4 4.08070- 2 9.31930- 21261 215102223
+ 4.67900+ 1 3.50000+ 0 1.52800- 1 8.03050- 4 3.70000- 2 1.15000- 11261 215102224
+ 4.70110+ 1 3.50000+ 0 1.39940- 1 9.36590- 4 4.20000- 2 9.70000- 21261 215102225
+ 4.79700+ 1 3.50000+ 0 9.39880- 2 9.88340- 4 4.57100- 2 4.72900- 21261 215102226
+ 4.83000+ 1 3.50000+ 0 1.65770- 1 7.70940- 4 2.47150- 2 1.40280- 11261 215102227
+ 4.88000+ 1 3.50000+ 0 6.56910- 2 6.90610- 4 2.54310- 2 3.95690- 21261 215102228
+ 4.90000+ 1 3.50000+ 0 2.40180- 1 1.76750- 4 2.00000- 2 2.20000- 11261 215102229
+ 4.94180+ 1 3.50000+ 0 6.10130- 2 1.01320- 3 4.29130- 2 1.70870- 21261 215102230
+ 5.01080+ 1 3.50000+ 0 5.43530- 2 3.15850- 4 3.10940- 2 2.29430- 21261 215102231
+ 5.04660+ 1 3.50000+ 0 7.59640- 2 9.63650- 4 3.20300- 2 4.29700- 21261 215102232
+ 5.07800+ 1 3.50000+ 0 3.30190- 1 1.89550- 4 3.00000- 2 3.00000- 11261 215102233
+ 5.12680+ 1 3.50000+ 0 1.88540- 1 3.54480- 3 5.19740- 2 1.33030- 11261 215102234
+ 5.16300+ 1 3.50000+ 0 7.43460- 2 3.45690- 4 3.34540- 2 4.05460- 21261 215102235
+ 5.22210+ 1 3.50000+ 0 3.63510- 1 2.50760- 3 3.10000- 2 3.30000- 11261 215102236
+ 5.34380+ 1 3.50000+ 0 1.35540- 1 5.37290- 4 3.34630- 2 1.01540- 11261 215102237
+ 5.41320+ 1 3.50000+ 0 1.50210- 1 2.14100- 4 4.40000- 2 1.06000- 11261 215102238
+ 5.50640+ 1 3.50000+ 0 1.11170- 1 3.16850- 3 4.85390- 2 5.94610- 21261 215102239
+ 5.58400+ 1 3.50000+ 0 2.51350- 1 2.35490- 3 3.87190- 2 2.10280- 11261 215102240
+ 5.60700+ 1 3.50000+ 0 1.90790- 1 7.86240- 4 3.00000- 2 1.60000- 11261 215102241
+ 5.64980+ 1 3.50000+ 0 1.19920- 1 4.92080- 3 3.91670- 2 7.58330- 21261 215102242
+ 5.78000+ 1 3.50000+ 0 2.21130- 1 1.12520- 3 3.50000- 2 1.85000- 11261 215102243
+ 5.80600+ 1 3.50000+ 0 6.53540- 2 1.35390- 3 3.23150- 2 3.16850- 21261 215102244
+ 5.86740+ 1 3.50000+ 0 1.36330- 1 1.33280- 3 3.30000- 2 1.02000- 11261 215102245
+ 5.97600+ 1 3.50000+ 0 2.55270- 1 2.70570- 4 4.20000- 2 2.13000- 11261 215102246
+ 6.01880+ 1 3.50000+ 0 2.55130- 1 1.12650- 3 3.40000- 2 2.20000- 11261 215102247
+ 6.08370+ 1 3.50000+ 0 1.20460- 1 4.62530- 4 3.00000- 2 9.00000- 21261 215102248
+ 6.11300+ 1 3.50000+ 0 1.25360- 1 3.62780- 4 4.00000- 2 8.50000- 21261 215102249
+ 6.15700+ 1 3.50000+ 0 5.30230- 1 2.25200- 4 3.00000- 2 5.00000- 11261 215102250
+ 6.19000+ 1 3.50000+ 0 5.30170- 1 1.70730- 4 3.00000- 2 5.00000- 11261 215102251
+ 6.24000+ 1 3.50000+ 0 4.60260- 1 2.61630- 4 6.00000- 2 4.00000- 11261 215102252
+ 6.30200+ 1 3.50000+ 0 2.40090- 1 9.08960- 5 4.00000- 2 2.00000- 11261 215102253
+ 6.33200+ 1 3.50000+ 0 2.50100- 1 1.02090- 4 5.00000- 2 2.00000- 11261 215102254
+ 6.36900+ 1 3.50000+ 0 6.21070- 1 1.07440- 3 6.00000- 2 5.60000- 11261 215102255
+ 6.43000+ 1 3.50000+ 0 4.75450- 2 1.24470- 3 3.90000- 2 7.30000- 31261 215102256
+ 6.58000+ 1 3.50000+ 0 9.64230- 2 4.23270- 4 5.00000- 2 4.60000- 21261 215102257
+ 6.64020+ 1 3.50000+ 0 8.94490- 2 4.49480- 4 4.50000- 2 4.40000- 21261 215102258
+ 6.72470+ 1 3.50000+ 0 9.00810- 2 8.09380- 5 4.10000- 2 4.90000- 21261 215102259
+ 6.84400+ 1 3.50000+ 0 2.50040- 1 3.76410- 5 5.00000- 2 2.00000- 11261 215102260
+ 6.85300+ 1 3.50000+ 0 1.60110- 1 1.08360- 4 6.00000- 2 1.00000- 11261 215102261
+ 6.92930+ 1 3.50000+ 0 2.00720- 1 7.15300- 4 4.00000- 2 1.60000- 11261 215102262
+ 7.04040+ 1 3.50000+ 0 1.72720- 1 2.71560- 3 5.00000- 2 1.20000- 11261 215102263
+ 7.07500+ 1 3.50000+ 0 2.37410- 1 2.40910- 3 3.50000- 2 2.00000- 11261 215102264
+ 7.16100+ 1 3.50000+ 0 1.60290- 1 2.91360- 4 4.00000- 2 1.20000- 11261 215102265
+ 7.23900+ 1 3.50000+ 0 1.38610- 1 2.61150- 3 3.10000- 2 1.05000- 11261 215102266
+ 7.29100+ 1 3.50000+ 0 3.60370- 1 3.67170- 4 4.00000- 2 3.20000- 11261 215102267
+ 7.45440+ 1 3.50000+ 0 1.01670- 1 2.72870- 3 3.80000- 2 6.09370- 21261 215102268
+ 7.51700+ 1 3.50000+ 0 2.90890- 1 8.88330- 4 5.00000- 2 2.40000- 11261 215102269
+ 7.55410+ 1 3.50000+ 0 2.33360- 1 1.36210- 3 3.20000- 2 2.00000- 11261 215102270
+ 7.67500+ 1 3.50000+ 0 1.16110- 1 1.07320- 4 3.60000- 2 8.00000- 21261 215102271
+ 7.74920+ 1 3.50000+ 0 1.12990- 1 9.86810- 4 4.00000- 2 7.20000- 21261 215102272
+ 7.81170+ 1 3.50000+ 0 1.48220- 1 1.22450- 3 4.70000- 2 1.00000- 11261 215102273
+ 7.96720+ 1 3.50000+ 0 1.29790- 1 7.85570- 4 4.40000- 2 8.50000- 21261 215102274
+ 8.03570+ 1 3.50000+ 0 1.74840- 1 8.38510- 4 4.00000- 2 1.34000- 11261 215102275
+ 8.14340+ 1 3.50000+ 0 1.32040- 1 1.04330- 3 4.10000- 2 9.00000- 21261 215102276
+ 8.35900+ 1 3.50000+ 0 1.18270- 1 1.17030- 3 4.80000- 2 6.91000- 21261 215102277
+ 8.68800+ 1 3.50000+ 0 8.01200- 2 7.19580- 4 5.20000- 2 2.74000- 21261 215102278
+ 8.20000+ 1 2.50000+ 4          2          2          0          01261 215102279
+ 3.50000+ 0 9.56630- 1          0          0          2          01261 215102280
+ 2.33025+ 2 0.00000+ 0          0          0          2          01261 215102281
+ 3.00000+ 0 0.00000+ 0          2          0        726        1201261 215102282
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 1.00000+ 0 0.00000+ 0 2.00000+ 01261 215102283
+ 8.20000+ 1 1.00000+ 0 0.00000+ 0 9.32780- 5 3.50000- 2 3.23080- 11261 215102284
+ 8.65000+ 1 1.00000+ 0 0.00000+ 0 8.44860- 5 3.50000- 2 3.40560- 11261 215102285
+ 9.10000+ 1 1.00000+ 0 0.00000+ 0 8.59390- 5 3.50000- 2 2.63940- 11261 215102286
+ 9.55000+ 1 1.00000+ 0 0.00000+ 0 8.73180- 5 3.50000- 2 2.05980- 11261 215102287
+ 1.00000+ 2 1.00000+ 0 0.00000+ 0 9.94340- 5 3.50000- 2 8.46200- 21261 215102288
+ 1.10000+ 2 1.00000+ 0 0.00000+ 0 8.66200- 5 3.50000- 2 1.32250- 11261 215102289
+ 1.20000+ 2 1.00000+ 0 0.00000+ 0 1.04270- 4 3.50000- 2 2.99460- 11261 215102290
+ 1.80000+ 2 1.00000+ 0 0.00000+ 0 9.83580- 5 3.50000- 2 2.49190- 11261 215102291
+ 2.40000+ 2 1.00000+ 0 0.00000+ 0 1.31810- 4 3.50000- 2 3.06950- 11261 215102292
+ 2.60000+ 2 1.00000+ 0 0.00000+ 0 2.10030- 5 3.50000- 2 1.03100+ 01261 215102293
+ 2.80000+ 2 1.00000+ 0 0.00000+ 0 9.35380- 5 3.50000- 2 7.53300- 11261 215102294
+ 2.90000+ 2 1.00000+ 0 0.00000+ 0 7.09140- 5 3.50000- 2 5.59090- 11261 215102295
+ 3.00000+ 2 1.00000+ 0 0.00000+ 0 8.04120- 5 3.50000- 2 3.28330- 11261 215102296
+ 3.15000+ 2 1.00000+ 0 0.00000+ 0 7.94530- 5 3.50000- 2 3.30640- 11261 215102297
+ 3.30000+ 2 1.00000+ 0 0.00000+ 0 9.91920- 5 3.50000- 2 1.85600- 11261 215102298
+ 3.45000+ 2 1.00000+ 0 0.00000+ 0 8.42860- 5 3.50000- 2 3.42340- 11261 215102299
+ 3.60000+ 2 1.00000+ 0 0.00000+ 0 8.92270- 5 3.50000- 2 3.57570- 11261 215102300
+ 4.50000+ 2 1.00000+ 0 0.00000+ 0 9.38350- 5 3.50000- 2 4.88690- 11261 215102301
+ 5.20000+ 2 1.00000+ 0 0.00000+ 0 1.19740- 4 3.50000- 2 5.01490- 11261 215102302
+ 5.65000+ 2 1.00000+ 0 0.00000+ 0 1.17420- 4 3.50000- 2 1.08430+ 01261 215102303
+ 6.10000+ 2 1.00000+ 0 0.00000+ 0 1.07110- 4 3.50000- 2 9.23100- 11261 215102304
+ 6.20000+ 2 1.00000+ 0 0.00000+ 0 1.08250- 4 3.50000- 2 6.55300- 11261 215102305
+ 6.30000+ 2 1.00000+ 0 0.00000+ 0 9.56080- 5 3.50000- 2 1.75540- 11261 215102306
+ 6.40000+ 2 1.00000+ 0 0.00000+ 0 1.19680- 4 3.50000- 2 1.07010- 11261 215102307
+ 6.50000+ 2 1.00000+ 0 0.00000+ 0 1.06410- 4 3.50000- 2 3.27510- 11261 215102308
+ 6.60000+ 2 1.00000+ 0 0.00000+ 0 8.67590- 5 3.50000- 2 4.20870- 11261 215102309
+ 7.10000+ 2 1.00000+ 0 0.00000+ 0 9.86280- 5 3.50000- 2 6.43220- 11261 215102310
+ 7.25000+ 2 1.00000+ 0 0.00000+ 0 1.18950- 4 3.50000- 2 4.16500- 11261 215102311
+ 7.40000+ 2 1.00000+ 0 0.00000+ 0 1.33780- 4 3.50000- 2 1.90200- 11261 215102312
+ 7.55000+ 2 1.00000+ 0 0.00000+ 0 1.19360- 4 3.50000- 2 3.26290- 11261 215102313
+ 7.70000+ 2 1.00000+ 0 0.00000+ 0 1.05120- 4 3.50000- 2 3.90030- 11261 215102314
+ 8.80000+ 2 1.00000+ 0 0.00000+ 0 8.73370- 5 3.50000- 2 2.32090- 11261 215102315
+ 9.10000+ 2 1.00000+ 0 0.00000+ 0 1.01800- 4 3.50000- 2 2.11790- 11261 215102316
+ 9.90000+ 2 1.00000+ 0 0.00000+ 0 1.04570- 4 3.50000- 2 1.37060- 11261 215102317
+ 1.08500+ 3 1.00000+ 0 0.00000+ 0 1.11530- 4 3.50000- 2 3.38290- 11261 215102318
+ 1.18000+ 3 1.00000+ 0 0.00000+ 0 1.21420- 4 3.50000- 2 5.35890- 11261 215102319
+ 1.22000+ 3 1.00000+ 0 0.00000+ 0 8.76240- 5 3.50000- 2 3.25790- 11261 215102320
+ 1.30000+ 3 1.00000+ 0 0.00000+ 0 9.05640- 5 3.50000- 2 5.03010- 11261 215102321
+ 1.40000+ 3 1.00000+ 0 0.00000+ 0 1.04460- 4 3.50000- 2 6.02010- 11261 215102322
+ 1.43000+ 3 1.00000+ 0 0.00000+ 0 1.36560- 4 3.50000- 2 2.47040- 11261 215102323
+ 1.45000+ 3 1.00000+ 0 0.00000+ 0 1.12210- 4 3.50000- 2 6.35190- 11261 215102324
+ 1.46000+ 3 1.00000+ 0 0.00000+ 0 1.13910- 4 3.50000- 2 6.27040- 11261 215102325
+ 1.48000+ 3 1.00000+ 0 0.00000+ 0 6.48210- 5 3.50000- 2 1.64710- 11261 215102326
+ 1.50000+ 3 1.00000+ 0 0.00000+ 0 7.06600- 5 3.50000- 2 1.93450- 11261 215102327
+ 1.54500+ 3 1.00000+ 0 0.00000+ 0 8.61440- 5 3.50000- 2 4.26640- 11261 215102328
+ 1.59000+ 3 1.00000+ 0 0.00000+ 0 1.01950- 4 3.50000- 2 5.38140- 11261 215102329
+ 1.70000+ 3 1.00000+ 0 0.00000+ 0 9.50540- 5 3.50000- 2 5.37430- 11261 215102330
+ 1.90000+ 3 1.00000+ 0 0.00000+ 0 9.42740- 5 3.50000- 2 3.05250- 11261 215102331
+ 1.91000+ 3 1.00000+ 0 0.00000+ 0 1.12390- 4 3.50000- 2 4.35760- 11261 215102332
+ 2.00000+ 3 1.00000+ 0 0.00000+ 0 1.07740- 4 3.50000- 2 2.94440- 11261 215102333
+ 2.10000+ 3 1.00000+ 0 0.00000+ 0 8.51820- 5 3.50000- 2 2.95990- 11261 215102334
+ 2.30000+ 3 1.00000+ 0 0.00000+ 0 9.07300- 5 3.50000- 2 5.18770- 11261 215102335
+ 2.50000+ 3 1.00000+ 0 0.00000+ 0 9.61070- 5 3.50000- 2 5.42890- 11261 215102336
+ 2.70000+ 3 1.00000+ 0 0.00000+ 0 8.47000- 5 3.50000- 2 5.31170- 11261 215102337
+ 3.20000+ 3 1.00000+ 0 0.00000+ 0 9.87080- 5 3.50000- 2 4.09380- 11261 215102338
+ 3.30000+ 3 1.00000+ 0 0.00000+ 0 9.33890- 5 3.50000- 2 6.59520- 11261 215102339
+ 3.40000+ 3 1.00000+ 0 0.00000+ 0 8.83210- 5 3.50000- 2 6.73810- 11261 215102340
+ 3.75000+ 3 1.00000+ 0 0.00000+ 0 9.26660- 5 3.50000- 2 6.33540- 11261 215102341
+ 4.10000+ 3 1.00000+ 0 0.00000+ 0 9.70370- 5 3.50000- 2 3.68540- 11261 215102342
+ 4.30000+ 3 1.00000+ 0 0.00000+ 0 1.10610- 4 3.50000- 2 6.03920- 11261 215102343
+ 4.40000+ 3 1.00000+ 0 0.00000+ 0 9.86610- 5 3.50000- 2 5.25630- 11261 215102344
+ 4.80000+ 3 1.00000+ 0 0.00000+ 0 9.15780- 5 3.50000- 2 3.33300- 11261 215102345
+ 4.90000+ 3 1.00000+ 0 0.00000+ 0 8.55750- 5 3.50000- 2 5.83870- 11261 215102346
+ 5.00000+ 3 1.00000+ 0 0.00000+ 0 7.96470- 5 3.50000- 2 6.81190- 11261 215102347
+ 5.10000+ 3 1.00000+ 0 0.00000+ 0 8.37500- 5 3.50000- 2 5.59890- 11261 215102348
+ 5.20000+ 3 1.00000+ 0 0.00000+ 0 8.85930- 5 3.50000- 2 3.00840- 11261 215102349
+ 5.25000+ 3 1.00000+ 0 0.00000+ 0 8.39960- 5 3.50000- 2 5.35350- 11261 215102350
+ 5.30000+ 3 1.00000+ 0 0.00000+ 0 8.03550- 5 3.50000- 2 6.21100- 11261 215102351
+ 5.60000+ 3 1.00000+ 0 0.00000+ 0 9.62420- 5 3.50000- 2 9.12820- 11261 215102352
+ 5.65000+ 3 1.00000+ 0 0.00000+ 0 9.29350- 5 3.50000- 2 6.84950- 11261 215102353
+ 5.70000+ 3 1.00000+ 0 0.00000+ 0 8.94860- 5 3.50000- 2 3.23350- 11261 215102354
+ 5.90000+ 3 1.00000+ 0 0.00000+ 0 1.33320- 4 3.50000- 2 2.37180- 11261 215102355
+ 6.00000+ 3 1.00000+ 0 0.00000+ 0 1.03380- 4 3.50000- 2 1.54810- 11261 215102356
+ 6.10000+ 3 1.00000+ 0 0.00000+ 0 1.00030- 4 3.50000- 2 3.00150- 11261 215102357
+ 6.45000+ 3 1.00000+ 0 0.00000+ 0 9.31220- 5 3.50000- 2 4.39920- 11261 215102358
+ 6.80000+ 3 1.00000+ 0 0.00000+ 0 8.28250- 5 3.50000- 2 4.32910- 11261 215102359
+ 7.00000+ 3 1.00000+ 0 0.00000+ 0 9.88980- 5 3.50000- 2 5.63080- 11261 215102360
+ 7.20000+ 3 1.00000+ 0 0.00000+ 0 9.34120- 5 3.50000- 2 3.39870- 11261 215102361
+ 8.10000+ 3 1.00000+ 0 0.00000+ 0 9.12470- 5 3.50000- 2 2.66920- 11261 215102362
+ 8.30000+ 3 1.00000+ 0 0.00000+ 0 1.06630- 4 3.50000- 2 1.45580- 11261 215102363
+ 8.50000+ 3 1.00000+ 0 0.00000+ 0 1.11150- 4 3.50000- 2 2.78620- 11261 215102364
+ 8.70000+ 3 1.00000+ 0 0.00000+ 0 1.15650- 4 3.50000- 2 2.99220- 11261 215102365
+ 9.00000+ 3 1.00000+ 0 0.00000+ 0 7.53250- 5 3.50000- 2 4.37710- 11261 215102366
+ 9.20000+ 3 1.00000+ 0 0.00000+ 0 1.06520- 4 3.50000- 2 3.53240- 11261 215102367
+ 1.04000+ 4 1.00000+ 0 0.00000+ 0 9.42420- 5 3.50000- 2 2.81750- 11261 215102368
+ 1.14000+ 4 1.00000+ 0 0.00000+ 0 1.00690- 4 3.50000- 2 3.48810- 11261 215102369
+ 1.17000+ 4 1.00000+ 0 0.00000+ 0 8.02840- 5 3.50000- 2 2.56430- 11261 215102370
+ 1.19000+ 4 1.00000+ 0 0.00000+ 0 1.10500- 4 3.50000- 2 5.18900- 11261 215102371
+ 1.20000+ 4 1.00000+ 0 0.00000+ 0 8.91740- 5 3.50000- 2 3.40360- 11261 215102372
+ 1.22000+ 4 1.00000+ 0 0.00000+ 0 1.01990- 4 3.50000- 2 2.83120- 11261 215102373
+ 1.23000+ 4 1.00000+ 0 0.00000+ 0 9.06700- 5 3.50000- 2 2.17560- 11261 215102374
+ 1.27000+ 4 1.00000+ 0 0.00000+ 0 8.26830- 5 3.50000- 2 2.91690- 11261 215102375
+ 1.33000+ 4 1.00000+ 0 0.00000+ 0 1.02600- 4 3.50000- 2 5.18960- 11261 215102376
+ 1.36000+ 4 1.00000+ 0 0.00000+ 0 9.14730- 5 3.50000- 2 4.08870- 11261 215102377
+ 1.44000+ 4 1.00000+ 0 0.00000+ 0 8.71050- 5 3.50000- 2 3.60190- 11261 215102378
+ 1.50000+ 4 1.00000+ 0 0.00000+ 0 9.52620- 5 3.50000- 2 6.30450- 11261 215102379
+ 1.51000+ 4 1.00000+ 0 0.00000+ 0 7.29240- 5 3.50000- 2 3.75910- 11261 215102380
+ 1.64000+ 4 1.00000+ 0 0.00000+ 0 9.65410- 5 3.50000- 2 3.56990- 11261 215102381
+ 1.75000+ 4 1.00000+ 0 0.00000+ 0 8.26020- 5 3.50000- 2 2.21500- 11261 215102382
+ 1.76000+ 4 1.00000+ 0 0.00000+ 0 9.04410- 5 3.50000- 2 3.40940- 11261 215102383
+ 1.84000+ 4 1.00000+ 0 0.00000+ 0 8.94370- 5 3.50000- 2 5.95600- 11261 215102384
+ 1.92000+ 4 1.00000+ 0 0.00000+ 0 7.91650- 5 3.50000- 2 7.12760- 11261 215102385
+ 1.93000+ 4 1.00000+ 0 0.00000+ 0 6.65910- 5 3.50000- 2 5.14710- 11261 215102386
+ 1.99000+ 4 1.00000+ 0 0.00000+ 0 7.07210- 5 3.50000- 2 5.61370- 11261 215102387
+ 2.00000+ 4 1.00000+ 0 0.00000+ 0 8.19100- 5 3.50000- 2 8.26430- 11261 215102388
+ 2.02000+ 4 1.00000+ 0 0.00000+ 0 9.09130- 5 3.50000- 2 4.78570- 11261 215102389
+ 2.04000+ 4 1.00000+ 0 0.00000+ 0 8.40880- 5 3.50000- 2 2.00920- 11261 215102390
+ 2.10000+ 4 1.00000+ 0 0.00000+ 0 1.01040- 4 3.50000- 2 2.63450- 11261 215102391
+ 2.12000+ 4 1.00000+ 0 0.00000+ 0 7.49290- 5 3.50000- 2 2.50360- 11261 215102392
+ 2.17000+ 4 1.00000+ 0 0.00000+ 0 8.81570- 5 3.50000- 2 5.60470- 11261 215102393
+ 2.22000+ 4 1.00000+ 0 0.00000+ 0 1.01200- 4 3.50000- 2 7.29940- 11261 215102394
+ 2.23000+ 4 1.00000+ 0 0.00000+ 0 1.26510- 4 3.50000- 2 1.00140+ 01261 215102395
+ 2.24000+ 4 1.00000+ 0 0.00000+ 0 9.42250- 5 3.50000- 2 5.68040- 11261 215102396
+ 2.28000+ 4 1.00000+ 0 0.00000+ 0 8.68720- 5 3.50000- 2 4.72160- 11261 215102397
+ 2.32000+ 4 1.00000+ 0 0.00000+ 0 7.91090- 5 3.50000- 2 2.35870- 11261 215102398
+ 2.34000+ 4 1.00000+ 0 0.00000+ 0 8.62980- 5 3.50000- 2 2.99400- 11261 215102399
+ 2.42000+ 4 1.00000+ 0 0.00000+ 0 9.41230- 5 3.50000- 2 3.13230- 11261 215102400
+ 2.44000+ 4 1.00000+ 0 0.00000+ 0 9.97630- 5 3.50000- 2 5.69080- 11261 215102401
+ 2.46000+ 4 1.00000+ 0 0.00000+ 0 7.95710- 5 3.50000- 2 5.86170- 11261 215102402
+ 2.50000+ 4 1.00000+ 0 0.00000+ 0 8.55930- 5 3.50000- 2 4.71280- 11261 215102403
+ 4.00000+ 0 0.00000+ 0          2          0        726        1201261 215102404
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 1.00000+ 0 0.00000+ 0 1.00000+ 01261 215102405
+ 8.20000+ 1 1.00000+ 0 0.00000+ 0 9.32780- 5 3.50000- 2 1.61550- 11261 215102406
+ 8.65000+ 1 1.00000+ 0 0.00000+ 0 1.03340- 4 3.50000- 2 1.16900- 11261 215102407
+ 9.10000+ 1 1.00000+ 0 0.00000+ 0 1.05120- 4 3.50000- 2 9.05980- 21261 215102408
+ 9.55000+ 1 1.00000+ 0 0.00000+ 0 1.06810- 4 3.50000- 2 7.07030- 21261 215102409
+ 1.00000+ 2 1.00000+ 0 0.00000+ 0 9.97820- 5 3.50000- 2 8.46440- 21261 215102410
+ 1.10000+ 2 1.00000+ 0 0.00000+ 0 1.07640- 4 3.50000- 2 1.31400- 11261 215102411
+ 1.20000+ 2 1.00000+ 0 0.00000+ 0 8.99630- 5 3.50000- 2 1.49750- 11261 215102412
+ 1.80000+ 2 1.00000+ 0 0.00000+ 0 9.92770- 5 3.50000- 2 1.01950- 11261 215102413
+ 2.40000+ 2 1.00000+ 0 0.00000+ 0 1.31810- 4 3.50000- 2 1.53470- 11261 215102414
+ 2.60000+ 2 1.00000+ 0 0.00000+ 0 2.10030- 4 3.50000- 2 3.43670- 11261 215102415
+ 2.80000+ 2 1.00000+ 0 0.00000+ 0 1.32550- 4 3.50000- 2 3.76650- 11261 215102416
+ 2.90000+ 2 1.00000+ 0 0.00000+ 0 1.00490- 4 3.50000- 2 2.79550- 11261 215102417
+ 3.00000+ 2 1.00000+ 0 0.00000+ 0 8.04120- 5 3.50000- 2 1.64170- 11261 215102418
+ 3.15000+ 2 1.00000+ 0 0.00000+ 0 9.93160- 5 3.50000- 2 1.10210- 11261 215102419
+ 3.30000+ 2 1.00000+ 0 0.00000+ 0 1.02550- 4 3.50000- 2 9.28000- 21261 215102420
+ 3.45000+ 2 1.00000+ 0 0.00000+ 0 1.05360- 4 3.50000- 2 1.14110- 11261 215102421
+ 3.60000+ 2 1.00000+ 0 0.00000+ 0 9.14460- 5 3.50000- 2 1.78790- 11261 215102422
+ 4.50000+ 2 1.00000+ 0 0.00000+ 0 9.38350- 5 3.50000- 2 2.75830- 11261 215102423
+ 5.20000+ 2 1.00000+ 0 0.00000+ 0 1.19740- 4 3.50000- 2 2.50740- 11261 215102424
+ 5.65000+ 2 1.00000+ 0 0.00000+ 0 1.17420- 4 3.50000- 2 2.71070- 11261 215102425
+ 6.10000+ 2 1.00000+ 0 0.00000+ 0 1.19960- 4 3.50000- 2 5.73260- 11261 215102426
+ 6.20000+ 2 1.00000+ 0 0.00000+ 0 1.08250- 4 3.50000- 2 1.63820- 11261 215102427
+ 6.30000+ 2 1.00000+ 0 0.00000+ 0 1.07080- 4 3.50000- 2 1.09010- 11261 215102428
+ 6.40000+ 2 1.00000+ 0 0.00000+ 0 1.21530- 4 3.50000- 2 7.93410- 21261 215102429
+ 6.50000+ 2 1.00000+ 0 0.00000+ 0 1.06410- 4 3.50000- 2 8.18770- 21261 215102430
+ 6.60000+ 2 1.00000+ 0 0.00000+ 0 9.71680- 5 3.50000- 2 2.61370- 11261 215102431
+ 7.10000+ 2 1.00000+ 0 0.00000+ 0 1.10460- 4 3.50000- 2 3.99450- 11261 215102432
+ 7.25000+ 2 1.00000+ 0 0.00000+ 0 1.18950- 4 3.50000- 2 1.38830- 11261 215102433
+ 7.40000+ 2 1.00000+ 0 0.00000+ 0 1.33780- 4 3.50000- 2 9.51020- 21261 215102434
+ 7.55000+ 2 1.00000+ 0 0.00000+ 0 1.19360- 4 3.50000- 2 1.08760- 11261 215102435
+ 7.70000+ 2 1.00000+ 0 0.00000+ 0 1.05120- 4 3.50000- 2 1.95020- 11261 215102436
+ 8.80000+ 2 1.00000+ 0 0.00000+ 0 8.23530- 5 3.50000- 2 1.12040- 11261 215102437
+ 9.10000+ 2 1.00000+ 0 0.00000+ 0 1.01800- 4 3.50000- 2 1.05890- 11261 215102438
+ 9.90000+ 2 1.00000+ 0 0.00000+ 0 9.87800- 5 3.50000- 2 6.85400- 21261 215102439
+ 1.08500+ 3 1.00000+ 0 0.00000+ 0 1.11530- 4 3.50000- 2 1.12760- 11261 215102440
+ 1.18000+ 3 1.00000+ 0 0.00000+ 0 1.21420- 4 3.50000- 2 2.68370- 11261 215102441
+ 1.22000+ 3 1.00000+ 0 0.00000+ 0 8.76240- 5 3.50000- 2 1.63160- 11261 215102442
+ 1.30000+ 3 1.00000+ 0 0.00000+ 0 9.05640- 5 3.50000- 2 2.51910- 11261 215102443
+ 1.40000+ 3 1.00000+ 0 0.00000+ 0 1.04460- 4 3.50000- 2 3.01480- 11261 215102444
+ 1.43000+ 3 1.00000+ 0 0.00000+ 0 1.36560- 4 3.50000- 2 1.23720- 11261 215102445
+ 1.45000+ 3 1.00000+ 0 0.00000+ 0 1.12210- 4 3.50000- 2 3.18100- 11261 215102446
+ 1.46000+ 3 1.00000+ 0 0.00000+ 0 1.13910- 4 3.50000- 2 3.23260- 11261 215102447
+ 1.48000+ 3 1.00000+ 0 0.00000+ 0 6.48210- 5 3.50000- 2 8.24890- 21261 215102448
+ 1.50000+ 3 1.00000+ 0 0.00000+ 0 7.06600- 5 3.50000- 2 9.67130- 21261 215102449
+ 1.54500+ 3 1.00000+ 0 0.00000+ 0 8.61440- 5 3.50000- 2 1.42210- 11261 215102450
+ 1.59000+ 3 1.00000+ 0 0.00000+ 0 1.01950- 4 3.50000- 2 2.57170- 11261 215102451
+ 1.70000+ 3 1.00000+ 0 0.00000+ 0 9.50540- 5 3.50000- 2 2.56830- 11261 215102452
+ 1.90000+ 3 1.00000+ 0 0.00000+ 0 9.42740- 5 3.50000- 2 1.45870- 11261 215102453
+ 1.91000+ 3 1.00000+ 0 0.00000+ 0 1.12390- 4 3.50000- 2 2.08240- 11261 215102454
+ 2.00000+ 3 1.00000+ 0 0.00000+ 0 1.07740- 4 3.50000- 2 1.57410- 11261 215102455
+ 2.10000+ 3 1.00000+ 0 0.00000+ 0 8.51820- 5 3.50000- 2 1.58240- 11261 215102456
+ 2.30000+ 3 1.00000+ 0 0.00000+ 0 9.07300- 5 3.50000- 2 1.72920- 11261 215102457
+ 2.50000+ 3 1.00000+ 0 0.00000+ 0 9.61070- 5 3.50000- 2 2.71440- 11261 215102458
+ 2.70000+ 3 1.00000+ 0 0.00000+ 0 8.47000- 5 3.50000- 2 2.65580- 11261 215102459
+ 3.20000+ 3 1.00000+ 0 0.00000+ 0 9.80450- 5 3.50000- 2 2.04690- 11261 215102460
+ 3.30000+ 3 1.00000+ 0 0.00000+ 0 9.33890- 5 3.50000- 2 2.19840- 11261 215102461
+ 3.40000+ 3 1.00000+ 0 0.00000+ 0 8.83210- 5 3.50000- 2 3.36890- 11261 215102462
+ 3.75000+ 3 1.00000+ 0 0.00000+ 0 9.26660- 5 3.50000- 2 2.11180- 11261 215102463
+ 4.10000+ 3 1.00000+ 0 0.00000+ 0 9.70370- 5 3.50000- 2 1.84270- 11261 215102464
+ 4.30000+ 3 1.00000+ 0 0.00000+ 0 1.10610- 4 3.50000- 2 3.01960- 11261 215102465
+ 4.40000+ 3 1.00000+ 0 0.00000+ 0 9.69410- 5 3.50000- 2 2.62790- 11261 215102466
+ 4.80000+ 3 1.00000+ 0 0.00000+ 0 9.15780- 5 3.50000- 2 1.65730- 11261 215102467
+ 4.90000+ 3 1.00000+ 0 0.00000+ 0 8.55750- 5 3.50000- 2 1.94620- 11261 215102468
+ 5.00000+ 3 1.00000+ 0 0.00000+ 0 7.96470- 5 3.50000- 2 3.40590- 11261 215102469
+ 5.10000+ 3 1.00000+ 0 0.00000+ 0 8.37500- 5 3.50000- 2 1.86630- 11261 215102470
+ 5.20000+ 3 1.00000+ 0 0.00000+ 0 8.77990- 5 3.50000- 2 1.50420- 11261 215102471
+ 5.25000+ 3 1.00000+ 0 0.00000+ 0 8.39960- 5 3.50000- 2 1.78450- 11261 215102472
+ 5.30000+ 3 1.00000+ 0 0.00000+ 0 7.96350- 5 3.50000- 2 3.10540- 11261 215102473
+ 5.60000+ 3 1.00000+ 0 0.00000+ 0 9.62420- 5 3.50000- 2 4.56410- 11261 215102474
+ 5.65000+ 3 1.00000+ 0 0.00000+ 0 9.29350- 5 3.50000- 2 2.28320- 11261 215102475
+ 5.70000+ 3 1.00000+ 0 0.00000+ 0 8.94860- 5 3.50000- 2 1.61680- 11261 215102476
+ 5.90000+ 3 1.00000+ 0 0.00000+ 0 1.33320- 4 3.50000- 2 1.18590- 11261 215102477
+ 6.00000+ 3 1.00000+ 0 0.00000+ 0 1.26590- 4 3.50000- 2 9.27300- 21261 215102478
+ 6.10000+ 3 1.00000+ 0 0.00000+ 0 1.00030- 4 3.50000- 2 1.47480- 11261 215102479
+ 6.45000+ 3 1.00000+ 0 0.00000+ 0 9.31220- 5 3.50000- 2 1.46640- 11261 215102480
+ 6.80000+ 3 1.00000+ 0 0.00000+ 0 8.81710- 5 3.50000- 2 2.12710- 11261 215102481
+ 7.00000+ 3 1.00000+ 0 0.00000+ 0 9.88980- 5 3.50000- 2 2.81550- 11261 215102482
+ 7.20000+ 3 1.00000+ 0 0.00000+ 0 9.34120- 5 3.50000- 2 1.69930- 11261 215102483
+ 8.10000+ 3 1.00000+ 0 0.00000+ 0 9.12470- 5 3.50000- 2 1.33460- 11261 215102484
+ 8.30000+ 3 1.00000+ 0 0.00000+ 0 1.06630- 4 3.50000- 2 9.20100- 21261 215102485
+ 8.50000+ 3 1.00000+ 0 0.00000+ 0 1.11150- 4 3.50000- 2 9.28750- 21261 215102486
+ 8.70000+ 3 1.00000+ 0 0.00000+ 0 1.15650- 4 3.50000- 2 1.50940- 11261 215102487
+ 9.00000+ 3 1.00000+ 0 0.00000+ 0 7.53250- 5 3.50000- 2 2.18850- 11261 215102488
+ 9.20000+ 3 1.00000+ 0 0.00000+ 0 1.06520- 4 3.50000- 2 1.76620- 11261 215102489
+ 1.04000+ 4 1.00000+ 0 0.00000+ 0 9.42420- 5 3.50000- 2 1.40870- 11261 215102490
+ 1.14000+ 4 1.00000+ 0 0.00000+ 0 1.00690- 4 3.50000- 2 1.74400- 11261 215102491
+ 1.17000+ 4 1.00000+ 0 0.00000+ 0 8.02840- 5 3.50000- 2 1.28210- 11261 215102492
+ 1.19000+ 4 1.00000+ 0 0.00000+ 0 1.10500- 4 3.50000- 2 2.59450- 11261 215102493
+ 1.20000+ 4 1.00000+ 0 0.00000+ 0 8.91740- 5 3.50000- 2 1.70180- 11261 215102494
+ 1.22000+ 4 1.00000+ 0 0.00000+ 0 1.01990- 4 3.50000- 2 1.41560- 11261 215102495
+ 1.23000+ 4 1.00000+ 0 0.00000+ 0 9.06700- 5 3.50000- 2 1.10210- 11261 215102496
+ 1.27000+ 4 1.00000+ 0 0.00000+ 0 8.26830- 5 3.50000- 2 1.45850- 11261 215102497
+ 1.33000+ 4 1.00000+ 0 0.00000+ 0 1.02600- 4 3.50000- 2 2.59480- 11261 215102498
+ 1.36000+ 4 1.00000+ 0 0.00000+ 0 9.14730- 5 3.50000- 2 2.04430- 11261 215102499
+ 1.44000+ 4 1.00000+ 0 0.00000+ 0 8.71050- 5 3.50000- 2 1.80090- 11261 215102500
+ 1.50000+ 4 1.00000+ 0 0.00000+ 0 9.52620- 5 3.50000- 2 3.16010- 11261 215102501
+ 1.51000+ 4 1.00000+ 0 0.00000+ 0 7.29240- 5 3.50000- 2 1.88430- 11261 215102502
+ 1.64000+ 4 1.00000+ 0 0.00000+ 0 9.65410- 5 3.50000- 2 1.78500- 11261 215102503
+ 1.75000+ 4 1.00000+ 0 0.00000+ 0 8.26020- 5 3.50000- 2 1.10750- 11261 215102504
+ 1.76000+ 4 1.00000+ 0 0.00000+ 0 9.04410- 5 3.50000- 2 1.70470- 11261 215102505
+ 1.84000+ 4 1.00000+ 0 0.00000+ 0 8.94370- 5 3.50000- 2 1.98530- 11261 215102506
+ 1.92000+ 4 1.00000+ 0 0.00000+ 0 9.61100- 5 3.50000- 2 3.56380- 11261 215102507
+ 1.93000+ 4 1.00000+ 0 0.00000+ 0 8.08450- 5 3.50000- 2 2.57350- 11261 215102508
+ 1.99000+ 4 1.00000+ 0 0.00000+ 0 8.58590- 5 3.50000- 2 2.80680- 11261 215102509
+ 2.00000+ 4 1.00000+ 0 0.00000+ 0 1.10670- 4 3.50000- 2 3.71620- 11261 215102510
+ 2.02000+ 4 1.00000+ 0 0.00000+ 0 9.09130- 5 3.50000- 2 1.59520- 11261 215102511
+ 2.04000+ 4 1.00000+ 0 0.00000+ 0 8.40880- 5 3.50000- 2 1.00230- 11261 215102512
+ 2.10000+ 4 1.00000+ 0 0.00000+ 0 1.01040- 4 3.50000- 2 1.31430- 11261 215102513
+ 2.12000+ 4 1.00000+ 0 0.00000+ 0 7.49290- 5 3.50000- 2 1.24900- 11261 215102514
+ 2.17000+ 4 1.00000+ 0 0.00000+ 0 8.81570- 5 3.50000- 2 1.86820- 11261 215102515
+ 2.22000+ 4 1.00000+ 0 0.00000+ 0 1.01200- 4 3.50000- 2 3.65900- 11261 215102516
+ 2.23000+ 4 1.00000+ 0 0.00000+ 0 1.26510- 4 3.50000- 2 5.01990- 11261 215102517
+ 2.24000+ 4 1.00000+ 0 0.00000+ 0 9.42250- 5 3.50000- 2 2.84750- 11261 215102518
+ 2.28000+ 4 1.00000+ 0 0.00000+ 0 8.68720- 5 3.50000- 2 1.57390- 11261 215102519
+ 2.32000+ 4 1.00000+ 0 0.00000+ 0 7.91090- 5 3.50000- 2 1.18230- 11261 215102520
+ 2.34000+ 4 1.00000+ 0 0.00000+ 0 8.62980- 5 3.50000- 2 1.49700- 11261 215102521
+ 2.42000+ 4 1.00000+ 0 0.00000+ 0 9.46010- 5 3.50000- 2 1.54750- 11261 215102522
+ 2.44000+ 4 1.00000+ 0 0.00000+ 0 1.00270- 4 3.50000- 2 2.81160- 11261 215102523
+ 2.46000+ 4 1.00000+ 0 0.00000+ 0 7.99750- 5 3.50000- 2 2.89600- 11261 215102524
+ 2.50000+ 4 1.00000+ 0 0.00000+ 0 8.55930- 5 3.50000- 2 2.35080- 11261 215102525
+ 2.33025+ 2 0.00000+ 0          1          0          4          01261 215102526
+ 2.00000+ 0 0.00000+ 0          2          0        726        1201261 215102527
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 1.00000+ 0 0.00000+ 0 2.00000+ 01261 215102528
+ 8.20000+ 1 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102529
+ 8.65000+ 1 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102530
+ 9.10000+ 1 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102531
+ 9.55000+ 1 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102532
+ 1.00000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102533
+ 1.10000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102534
+ 1.20000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102535
+ 1.80000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102536
+ 2.40000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102537
+ 2.60000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102538
+ 2.80000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102539
+ 2.90000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102540
+ 3.00000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102541
+ 3.15000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102542
+ 3.30000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102543
+ 3.45000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102544
+ 3.60000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102545
+ 4.50000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102546
+ 5.20000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102547
+ 5.65000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102548
+ 6.10000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102549
+ 6.20000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102550
+ 6.30000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102551
+ 6.40000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102552
+ 6.50000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102553
+ 6.60000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102554
+ 7.10000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102555
+ 7.25000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102556
+ 7.40000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102557
+ 7.55000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102558
+ 7.70000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102559
+ 8.80000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102560
+ 9.10000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102561
+ 9.90000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102562
+ 1.08500+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102563
+ 1.18000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102564
+ 1.22000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102565
+ 1.30000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102566
+ 1.40000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102567
+ 1.43000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102568
+ 1.45000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102569
+ 1.46000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102570
+ 1.48000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102571
+ 1.50000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102572
+ 1.54500+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102573
+ 1.59000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102574
+ 1.70000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102575
+ 1.90000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102576
+ 1.91000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102577
+ 2.00000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102578
+ 2.10000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102579
+ 2.30000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102580
+ 2.50000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102581
+ 2.70000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102582
+ 3.20000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102583
+ 3.30000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102584
+ 3.40000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102585
+ 3.75000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102586
+ 4.10000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102587
+ 4.30000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102588
+ 4.40000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102589
+ 4.80000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102590
+ 4.90000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102591
+ 5.00000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102592
+ 5.10000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102593
+ 5.20000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102594
+ 5.25000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102595
+ 5.30000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102596
+ 5.60000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102597
+ 5.65000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102598
+ 5.70000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102599
+ 5.90000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102600
+ 6.00000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102601
+ 6.10000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102602
+ 6.45000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102603
+ 6.80000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102604
+ 7.00000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102605
+ 7.20000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102606
+ 8.10000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102607
+ 8.30000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102608
+ 8.50000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102609
+ 8.70000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102610
+ 9.00000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102611
+ 9.20000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102612
+ 1.04000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102613
+ 1.14000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102614
+ 1.17000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102615
+ 1.19000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102616
+ 1.20000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102617
+ 1.22000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102618
+ 1.23000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102619
+ 1.27000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102620
+ 1.33000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102621
+ 1.36000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102622
+ 1.44000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102623
+ 1.50000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102624
+ 1.51000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102625
+ 1.64000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102626
+ 1.75000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102627
+ 1.76000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102628
+ 1.84000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102629
+ 1.92000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102630
+ 1.93000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102631
+ 1.99000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102632
+ 2.00000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102633
+ 2.02000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102634
+ 2.04000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102635
+ 2.10000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102636
+ 2.12000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102637
+ 2.17000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102638
+ 2.22000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102639
+ 2.23000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102640
+ 2.24000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102641
+ 2.28000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102642
+ 2.32000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102643
+ 2.34000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102644
+ 2.42000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102645
+ 2.44000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102646
+ 2.46000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102647
+ 2.50000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102648
+ 3.00000+ 0 0.00000+ 0          2          0        726        1201261 215102649
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 2.00000+ 0 0.00000+ 0 1.00000+ 01261 215102650
+ 8.20000+ 1 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102651
+ 8.65000+ 1 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102652
+ 9.10000+ 1 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102653
+ 9.55000+ 1 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102654
+ 1.00000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102655
+ 1.10000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102656
+ 1.20000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102657
+ 1.80000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102658
+ 2.40000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102659
+ 2.60000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102660
+ 2.80000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102661
+ 2.90000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102662
+ 3.00000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102663
+ 3.15000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102664
+ 3.30000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102665
+ 3.45000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102666
+ 3.60000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102667
+ 4.50000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102668
+ 5.20000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102669
+ 5.65000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102670
+ 6.10000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102671
+ 6.20000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102672
+ 6.30000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102673
+ 6.40000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102674
+ 6.50000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102675
+ 6.60000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102676
+ 7.10000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102677
+ 7.25000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102678
+ 7.40000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102679
+ 7.55000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102680
+ 7.70000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102681
+ 8.80000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102682
+ 9.10000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102683
+ 9.90000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102684
+ 1.08500+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102685
+ 1.18000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102686
+ 1.22000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102687
+ 1.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102688
+ 1.40000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102689
+ 1.43000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102690
+ 1.45000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102691
+ 1.46000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102692
+ 1.48000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102693
+ 1.50000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102694
+ 1.54500+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102695
+ 1.59000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102696
+ 1.70000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102697
+ 1.90000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102698
+ 1.91000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102699
+ 2.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102700
+ 2.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102701
+ 2.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102702
+ 2.50000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102703
+ 2.70000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102704
+ 3.20000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102705
+ 3.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102706
+ 3.40000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102707
+ 3.75000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102708
+ 4.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102709
+ 4.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102710
+ 4.40000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102711
+ 4.80000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102712
+ 4.90000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102713
+ 5.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102714
+ 5.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102715
+ 5.20000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102716
+ 5.25000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102717
+ 5.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102718
+ 5.60000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102719
+ 5.65000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102720
+ 5.70000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102721
+ 5.90000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102722
+ 6.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102723
+ 6.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102724
+ 6.45000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102725
+ 6.80000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102726
+ 7.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102727
+ 7.20000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102728
+ 8.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102729
+ 8.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102730
+ 8.50000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102731
+ 8.70000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102732
+ 9.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102733
+ 9.20000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102734
+ 1.04000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102735
+ 1.14000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102736
+ 1.17000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102737
+ 1.19000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102738
+ 1.20000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102739
+ 1.22000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102740
+ 1.23000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102741
+ 1.27000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102742
+ 1.33000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102743
+ 1.36000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102744
+ 1.44000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102745
+ 1.50000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102746
+ 1.51000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102747
+ 1.64000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102748
+ 1.75000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102749
+ 1.76000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102750
+ 1.84000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102751
+ 1.92000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102752
+ 1.93000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102753
+ 1.99000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102754
+ 2.00000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102755
+ 2.02000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102756
+ 2.04000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102757
+ 2.10000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102758
+ 2.12000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102759
+ 2.17000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102760
+ 2.22000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102761
+ 2.23000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102762
+ 2.24000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102763
+ 2.28000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102764
+ 2.32000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102765
+ 2.34000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102766
+ 2.42000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102767
+ 2.44000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102768
+ 2.46000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102769
+ 2.50000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102770
+ 4.00000+ 0 0.00000+ 0          2          0        726        1201261 215102771
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 2.00000+ 0 0.00000+ 0 2.00000+ 01261 215102772
+ 8.20000+ 1 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102773
+ 8.65000+ 1 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102774
+ 9.10000+ 1 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102775
+ 9.55000+ 1 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102776
+ 1.00000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102777
+ 1.10000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102778
+ 1.20000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102779
+ 1.80000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102780
+ 2.40000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102781
+ 2.60000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102782
+ 2.80000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102783
+ 2.90000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102784
+ 3.00000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102785
+ 3.15000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102786
+ 3.30000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102787
+ 3.45000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102788
+ 3.60000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102789
+ 4.50000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102790
+ 5.20000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102791
+ 5.65000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102792
+ 6.10000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102793
+ 6.20000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102794
+ 6.30000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102795
+ 6.40000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102796
+ 6.50000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102797
+ 6.60000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102798
+ 7.10000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102799
+ 7.25000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102800
+ 7.40000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102801
+ 7.55000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102802
+ 7.70000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102803
+ 8.80000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102804
+ 9.10000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102805
+ 9.90000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102806
+ 1.08500+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102807
+ 1.18000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102808
+ 1.22000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102809
+ 1.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102810
+ 1.40000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102811
+ 1.43000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102812
+ 1.45000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102813
+ 1.46000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102814
+ 1.48000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102815
+ 1.50000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102816
+ 1.54500+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102817
+ 1.59000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102818
+ 1.70000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102819
+ 1.90000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102820
+ 1.91000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102821
+ 2.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102822
+ 2.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102823
+ 2.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102824
+ 2.50000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102825
+ 2.70000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102826
+ 3.20000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102827
+ 3.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102828
+ 3.40000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102829
+ 3.75000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102830
+ 4.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102831
+ 4.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102832
+ 4.40000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102833
+ 4.80000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102834
+ 4.90000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102835
+ 5.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102836
+ 5.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102837
+ 5.20000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102838
+ 5.25000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102839
+ 5.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102840
+ 5.60000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102841
+ 5.65000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102842
+ 5.70000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102843
+ 5.90000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102844
+ 6.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102845
+ 6.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102846
+ 6.45000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102847
+ 6.80000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102848
+ 7.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102849
+ 7.20000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102850
+ 8.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102851
+ 8.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102852
+ 8.50000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102853
+ 8.70000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102854
+ 9.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102855
+ 9.20000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102856
+ 1.04000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102857
+ 1.14000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102858
+ 1.17000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102859
+ 1.19000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102860
+ 1.20000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102861
+ 1.22000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102862
+ 1.23000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102863
+ 1.27000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102864
+ 1.33000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102865
+ 1.36000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102866
+ 1.44000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102867
+ 1.50000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102868
+ 1.51000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102869
+ 1.64000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102870
+ 1.75000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102871
+ 1.76000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102872
+ 1.84000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102873
+ 1.92000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102874
+ 1.93000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102875
+ 1.99000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102876
+ 2.00000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102877
+ 2.02000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102878
+ 2.04000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102879
+ 2.10000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102880
+ 2.12000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102881
+ 2.17000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102882
+ 2.22000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102883
+ 2.23000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102884
+ 2.24000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102885
+ 2.28000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102886
+ 2.32000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102887
+ 2.34000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102888
+ 2.42000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102889
+ 2.44000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102890
+ 2.46000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102891
+ 2.50000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102892
+ 5.00000+ 0 0.00000+ 0          2          0        726        1201261 215102893
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 1.00000+ 0 0.00000+ 0 1.00000+ 01261 215102894
+ 8.20000+ 1 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102895
+ 8.65000+ 1 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102896
+ 9.10000+ 1 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102897
+ 9.55000+ 1 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102898
+ 1.00000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102899
+ 1.10000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102900
+ 1.20000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102901
+ 1.80000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102902
+ 2.40000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102903
+ 2.60000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102904
+ 2.80000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102905
+ 2.90000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102906
+ 3.00000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102907
+ 3.15000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102908
+ 3.30000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102909
+ 3.45000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102910
+ 3.60000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102911
+ 4.50000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102912
+ 5.20000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102913
+ 5.65000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102914
+ 6.10000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102915
+ 6.20000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102916
+ 6.30000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102917
+ 6.40000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102918
+ 6.50000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102919
+ 6.60000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102920
+ 7.10000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102921
+ 7.25000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102922
+ 7.40000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102923
+ 7.55000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102924
+ 7.70000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102925
+ 8.80000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102926
+ 9.10000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102927
+ 9.90000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102928
+ 1.08500+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102929
+ 1.18000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102930
+ 1.22000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102931
+ 1.30000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102932
+ 1.40000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102933
+ 1.43000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102934
+ 1.45000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102935
+ 1.46000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102936
+ 1.48000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102937
+ 1.50000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102938
+ 1.54500+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102939
+ 1.59000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102940
+ 1.70000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102941
+ 1.90000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102942
+ 1.91000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102943
+ 2.00000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102944
+ 2.10000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102945
+ 2.30000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102946
+ 2.50000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102947
+ 2.70000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102948
+ 3.20000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102949
+ 3.30000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102950
+ 3.40000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102951
+ 3.75000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102952
+ 4.10000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102953
+ 4.30000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102954
+ 4.40000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102955
+ 4.80000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102956
+ 4.90000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102957
+ 5.00000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102958
+ 5.10000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102959
+ 5.20000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102960
+ 5.25000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102961
+ 5.30000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102962
+ 5.60000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102963
+ 5.65000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102964
+ 5.70000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102965
+ 5.90000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102966
+ 6.00000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102967
+ 6.10000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102968
+ 6.45000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102969
+ 6.80000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102970
+ 7.00000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102971
+ 7.20000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102972
+ 8.10000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102973
+ 8.30000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102974
+ 8.50000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102975
+ 8.70000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102976
+ 9.00000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102977
+ 9.20000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102978
+ 1.04000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102979
+ 1.14000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102980
+ 1.17000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102981
+ 1.19000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102982
+ 1.20000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102983
+ 1.22000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102984
+ 1.23000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102985
+ 1.27000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102986
+ 1.33000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102987
+ 1.36000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102988
+ 1.44000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102989
+ 1.50000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102990
+ 1.51000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102991
+ 1.64000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102992
+ 1.75000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102993
+ 1.76000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102994
+ 1.84000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102995
+ 1.92000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102996
+ 1.93000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102997
+ 1.99000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102998
+ 2.00000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102999
+ 2.02000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103000
+ 2.04000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103001
+ 2.10000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103002
+ 2.12000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103003
+ 2.17000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103004
+ 2.22000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103005
+ 2.23000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103006
+ 2.24000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103007
+ 2.28000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103008
+ 2.32000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103009
+ 2.34000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103010
+ 2.42000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103011
+ 2.44000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103012
+ 2.46000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103013
+ 2.50000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103014
+                                                                  1261 200003015
+                                                                  1261 000003016
+ 9.22350+ 4 2.33025+ 2          0         99          0          01261 300103017
+ 0.00000+ 0 0.00000+ 0          0          0          3       11541261 300103018
+        239          5        822          2       1154          31261 300103019
+ 1.00000- 5 3.67479+ 4 2.12500- 5 2.52034+ 4 4.09380- 5 1.81562+ 41261 300103020
+ 7.04690- 5 1.38382+ 4 1.00000- 4 1.16168+ 4 1.50000- 4 9.48589+ 31261 300103021
+ 1.93750- 4 8.34719+ 3 2.70310- 4 7.06804+ 3 3.85160- 4 5.92259+ 31261 300103022
+ 5.00000- 4 5.19931+ 3 6.25000- 4 4.65149+ 3 8.12500- 4 4.08096+ 31261 300103023
+ 1.00000- 3 3.67965+ 3 1.25000- 3 3.28818+ 3 1.43750- 3 3.06459+ 31261 300103024
+ 1.71880- 3 2.80078+ 3 2.00000- 3 2.59508+ 3 2.25000- 3 2.44573+ 31261 300103025
+ 2.62500- 3 2.26326+ 3 3.00000- 3 2.11631+ 3 3.00000- 3 2.11631+ 31261 300103026
+ 3.50000- 3 1.95857+ 3 4.00000- 3 1.83154+ 3 4.50000- 3 1.72640+ 31261 300103027
+ 5.00000- 3 1.63751+ 3 5.50000- 3 1.55928+ 3 6.00000- 3 1.49115+ 31261 300103028
+ 6.00000- 3 1.49115+ 3 7.00000- 3 1.37775+ 3 8.00000- 3 1.28659+ 31261 300103029
+ 9.00000- 3 1.21126+ 3 9.00000- 3 1.21126+ 3 1.00000- 2 1.14766+ 31261 300103030
+ 1.10000- 2 1.09141+ 3 1.20000- 2 1.04250+ 3 1.30000- 2 9.99474+ 21261 300103031
+ 1.40000- 2 9.61246+ 2 1.50000- 2 9.26992+ 2 1.60000- 2 8.95410+ 21261 300103032
+ 1.70000- 2 8.66740+ 2 1.80000- 2 8.40566+ 2 1.90000- 2 8.16547+ 21261 300103033
+ 2.00000- 2 7.94406+ 2 2.10000- 2 7.73475+ 2 2.20000- 2 7.54042+ 21261 300103034
+ 2.30000- 2 7.35937+ 2 2.40000- 2 7.19018+ 2 2.50000- 2 7.03165+ 21261 300103035
+ 2.53000- 2 6.98600+ 2 2.60000- 2 6.88070+ 2 2.70000- 2 6.73776+ 21261 300103036
+ 2.80000- 2 6.60290+ 2 2.90000- 2 6.47537+ 2 3.00000- 2 6.35458+ 21261 300103037
+ 3.10000- 2 6.23802+ 2 3.20000- 2 6.12725+ 2 3.30000- 2 6.02182+ 21261 300103038
+ 3.40000- 2 5.92130+ 2 3.50000- 2 5.82534+ 2 3.60000- 2 5.73208+ 21261 300103039
+ 3.70000- 2 5.64284+ 2 3.80000- 2 5.55735+ 2 3.90000- 2 5.47535+ 21261 300103040
+ 4.00000- 2 5.39663+ 2 4.10000- 2 5.31992+ 2 4.20000- 2 5.24614+ 21261 300103041
+ 4.30000- 2 5.17509+ 2 4.40000- 2 5.10665+ 2 4.50000- 2 5.04064+ 21261 300103042
+ 4.60000- 2 4.97581+ 2 4.70000- 2 4.91321+ 2 4.80000- 2 4.85272+ 21261 300103043
+ 4.90000- 2 4.79421+ 2 5.00000- 2 4.73759+ 2 5.10000- 2 4.68200+ 21261 300103044
+ 5.20000- 2 4.62813+ 2 5.30000- 2 4.57592+ 2 5.40000- 2 4.52527+ 21261 300103045
+ 5.50000- 2 4.47611+ 2 5.60000- 2 4.42780+ 2 5.70000- 2 4.38085+ 21261 300103046
+ 5.80000- 2 4.33524+ 2 5.90000- 2 4.29088+ 2 6.00000- 2 4.24772+ 21261 300103047
+ 6.10000- 2 4.20532+ 2 6.20000- 2 4.16403+ 2 6.30000- 2 4.12382+ 21261 300103048
+ 6.40000- 2 4.08462+ 2 6.50000- 2 4.04642+ 2 6.60000- 2 4.00886+ 21261 300103049
+ 6.70000- 2 3.97222+ 2 6.80000- 2 3.93646+ 2 6.90000- 2 3.90156+ 21261 300103050
+ 7.00000- 2 3.86747+ 2 7.10000- 2 3.83404+ 2 7.20000- 2 3.80137+ 21261 300103051
+ 7.30000- 2 3.76944+ 2 7.40000- 2 3.73821+ 2 7.50000- 2 3.70766+ 21261 300103052
+ 7.60000- 2 3.67850+ 2 7.70000- 2 3.64995+ 2 7.80000- 2 3.62200+ 21261 300103053
+ 7.90000- 2 3.59462+ 2 8.00000- 2 3.56779+ 2 8.10000- 2 3.54114+ 21261 300103054
+ 8.20000- 2 3.51502+ 2 8.30000- 2 3.48942+ 2 8.40000- 2 3.46431+ 21261 300103055
+ 8.50000- 2 3.43969+ 2 8.60000- 2 3.41561+ 2 8.70000- 2 3.39198+ 21261 300103056
+ 8.80000- 2 3.36879+ 2 8.90000- 2 3.34602+ 2 9.00000- 2 3.32367+ 21261 300103057
+ 9.10000- 2 3.30191+ 2 9.20000- 2 3.28053+ 2 9.30000- 2 3.25953+ 21261 300103058
+ 9.40000- 2 3.23889+ 2 9.50000- 2 3.21860+ 2 9.60000- 2 3.19910+ 21261 300103059
+ 9.70000- 2 3.17993+ 2 9.80000- 2 3.16107+ 2 9.90000- 2 3.14251+ 21261 300103060
+ 1.00000- 1 3.12427+ 2 1.05000- 1 3.03737+ 2 1.10000- 1 2.95687+ 21261 300103061
+ 1.15000- 1 2.88206+ 2 1.20000- 1 2.81228+ 2 1.25000- 1 2.74811+ 21261 300103062
+ 1.30000- 1 2.68789+ 2 1.40000- 1 2.58323+ 2 1.45000- 1 2.54315+ 21261 300103063
+ 1.50000- 1 2.50504+ 2 1.55000- 1 2.47105+ 2 1.60000- 1 2.43860+ 21261 300103064
+ 1.70000- 1 2.38462+ 2 1.80000- 1 2.34237+ 2 1.85840- 1 2.33541+ 21261 300103065
+ 1.90210- 1 2.33034+ 2 1.96780- 1 2.32296+ 2 2.03340- 1 2.31584+ 21261 300103066
+ 2.03340- 1 2.31584+ 2 2.08340- 1 2.32430+ 2 2.15840- 1 2.33666+ 21261 300103067
+ 2.23340- 1 2.34866+ 2 2.43340- 1 2.43085+ 2 2.53340- 1 2.48000+ 21261 300103068
+ 2.63340- 1 2.52823+ 2 2.83340- 1 2.59052+ 2 2.93340- 1 2.55408+ 21261 300103069
+ 3.03340- 1 2.51938+ 2 3.08340- 1 2.45562+ 2 3.12090- 1 2.40958+ 21261 300103070
+ 3.15840- 1 2.36499+ 2 3.19590- 1 2.32178+ 2 3.23340- 1 2.27991+ 21261 300103071
+ 3.28340- 1 2.20564+ 2 3.32090- 1 2.15233+ 2 3.34900- 1 2.11367+ 21261 300103072
+ 3.37710- 1 2.07607+ 2 3.40530- 1 2.03936+ 2 3.43340- 1 2.00376+ 21261 300103073
+ 3.45840- 1 1.97587+ 2 3.50210- 1 1.92857+ 2 3.53500- 1 1.89414+ 21261 300103074
+ 3.58420- 1 1.84445+ 2 3.63340- 1 1.79681+ 2 3.65840- 1 1.77216+ 21261 300103075
+ 3.68030- 1 1.75101+ 2 3.71860- 1 1.71495+ 2 3.74730- 1 1.68870+ 21261 300103076
+ 3.76880- 1 1.66944+ 2 3.80110- 1 1.64116+ 2 3.83340- 1 1.61363+ 21261 300103077
+ 3.85840- 1 1.59401+ 2 3.90220- 1 1.56056+ 2 3.93500- 1 1.53625+ 21261 300103078
+ 3.98420- 1 1.50092+ 2 4.03340- 1 1.46688+ 2 4.06440- 1 1.44734+ 21261 300103079
+ 4.11860- 1 1.41419+ 2 4.15920- 1 1.39018+ 2 4.18970- 1 1.37259+ 21261 300103080
+ 4.23550- 1 1.34687+ 2 4.28120- 1 1.32199+ 2 4.32720- 1 1.30103+ 21261 300103081
+ 4.37320- 1 1.28065+ 2 4.44220- 1 1.25113+ 2 4.49400- 1 1.22975+ 21261 300103082
+ 4.54570- 1 1.20905+ 2 4.59750- 1 1.18892+ 2 4.64920- 1 1.16942+ 21261 300103083
+ 4.74920- 1 1.13838+ 2 4.82420- 1 1.11611+ 2 4.89920- 1 1.09466+ 21261 300103084
+ 4.97420- 1 1.07398+ 2 5.04920- 1 1.05403+ 2 5.04920- 1 1.05403+ 21261 300103085
+ 5.14920- 1 1.03111+ 2 5.22420- 1 1.01456+ 2 5.29920- 1 9.98542+ 11261 300103086
+ 5.37420- 1 9.83022+ 1 5.44920- 1 9.67981+ 1 5.44920- 1 9.67981+ 11261 300103087
+ 5.54920- 1 9.50805+ 1 5.64920- 1 9.34265+ 1 5.74920- 1 9.18327+ 11261 300103088
+ 5.84920- 1 9.02959+ 1 5.84920- 1 9.02959+ 1 5.94920- 1 8.90229+ 11261 300103089
+ 6.04920- 1 8.77905+ 1 6.24920- 1 8.54395+ 1 6.24920- 1 8.54395+ 11261 300103090
+ 6.44920- 1 8.35194+ 1 6.64920- 1 8.17028+ 1 6.64920- 1 8.17028+ 11261 300103091
+ 6.84920- 1 8.01889+ 1 7.04920- 1 7.87472+ 1 7.04920- 1 7.87472+ 11261 300103092
+ 7.44920- 1 7.64901+ 1 7.44920- 1 7.64901+ 1 7.84920- 1 7.50117+ 11261 300103093
+ 8.24920- 1 7.44141+ 1 8.44920- 1 7.46854+ 1 8.64920- 1 7.49509+ 11261 300103094
+ 8.84920- 1 7.59784+ 1 9.04920- 1 7.69999+ 1 9.14920- 1 7.79374+ 11261 300103095
+ 9.29920- 1 7.93507+ 1 9.44920- 1 8.07723+ 1 9.49920- 1 8.14982+ 11261 300103096
+ 9.58670- 1 8.27784+ 1 9.65230- 1 8.37463+ 1 9.70150- 1 8.44769+ 11261 300103097
+ 9.77540- 1 8.55817+ 1 9.84920- 1 8.66940+ 1 9.88690- 1 8.76208+ 11261 300103098
+ 9.94340- 1 8.90252+ 1 1.00000+ 0 9.04507+ 1 1.00000+ 0 9.63800+ 01261 300103099
+ 1.03600+ 0 9.41382+ 0 1.05500+ 0 9.29550+ 0 1.07300+ 0 8.52700+ 01261 300103100
+ 1.09100+ 0 7.19610+ 0 1.18200+ 0-1.91285+ 1 1.20000+ 0-2.30500+ 11261 300103101
+ 1.21800+ 0-2.44459+ 1 1.23600+ 0-2.44662+ 1 1.32700+ 0-1.49745+ 11261 300103102
+ 1.36400+ 0-1.28195+ 1 1.45500+ 0-8.88020+ 0 1.54500+ 0-6.70980+ 01261 300103103
+ 1.63600+ 0-5.25670+ 0 1.72700+ 0-4.15820+ 0 1.81800+ 0-3.42100+ 01261 300103104
+ 1.90900+ 0-2.66550+ 0 2.00000+ 0-2.56000+ 0 2.18200+ 0-1.91980+ 01261 300103105
+ 2.36400+ 0-1.15200+ 0 2.45500+ 0-1.47840+ 0 2.54500+ 0-2.15980+ 01261 300103106
+ 2.63600+ 0-3.90200+ 0 2.69100+ 0-3.16510+ 0 2.74500+ 0-2.25700+ 01261 300103107
+ 2.80000+ 0 1.21000+ 0 2.81800+ 0 1.56920+ 0 2.85500+ 0 5.25700- 11261 300103108
+ 2.92700+ 0-9.24500- 1 2.94500+ 0-9.74500- 1 3.01800+ 0 3.17640+ 01261 300103109
+ 3.07200+ 0 3.35410+ 0 3.18200+ 0-3.67790+ 0 3.21800+ 0-3.45350+ 01261 300103110
+ 3.27300+ 0-1.79080+ 0 3.36400+ 0 1.76150+ 0 3.45500+ 0 6.18410+ 01261 300103111
+ 3.49100+ 0 6.84080+ 0 3.54500+ 0 6.69830+ 0 3.58200+ 0 3.70000- 31261 300103112
+ 3.63600+ 0-4.65000- 2 3.69100+ 0-4.41050+ 0 3.72700+ 0-7.75150+ 01261 300103113
+ 3.81800+ 0-6.80030+ 0 3.90900+ 0-5.71080+ 0 4.00000+ 0-4.72610+ 01261 300103114
+ 4.09100+ 0-4.00010+ 0 4.18200+ 0-3.41310+ 0 4.36400+ 0-2.51660+ 01261 300103115
+ 4.54500+ 0-2.31230+ 0 4.63600+ 0-7.81800- 1 4.72700+ 0 2.08940+ 01261 300103116
+ 4.78200+ 0 1.06640+ 0 4.80000+ 0 8.40000- 1 4.83600+ 0 8.79100- 11261 300103117
+ 4.85500+ 0-4.25620+ 0 4.89100+ 0-8.02670+ 0 4.90900+ 0-4.35440+ 01261 300103118
+ 4.94500+ 0-3.04460+ 0 4.98100+ 0-2.58920+ 0 5.09100+ 0-2.49940+ 01261 300103119
+ 5.14500+ 0-2.54320+ 0 5.18200+ 0-2.15800+ 0 5.27300+ 0-1.03410+ 01261 300103120
+ 5.30900+ 0-6.40400- 1 5.54500+ 0-6.30000- 1 5.65500+ 0-1.73700+ 01261 300103121
+ 5.72700+ 0-1.45710+ 0 5.81800+ 0-1.47600- 1 5.90900+ 0 1.45390+ 01261 300103122
+ 6.00000+ 0 2.78000+ 0 6.09100+ 0 2.73820+ 0 6.16400+ 0 3.52140+ 01261 300103123
+ 6.21800+ 0 1.80570+ 0 6.25500+ 0-1.34490+ 0 6.29100+ 0 2.92800- 11261 300103124
+ 6.41800+ 0-3.83200- 1 6.45500+ 0-3.39480+ 0 6.49100+ 0-3.30610+ 01261 300103125
+ 6.54500+ 0-2.52730+ 0 6.63600+ 0-4.61740+ 0 6.72700+ 0-3.99910+ 01261 300103126
+ 6.81800+ 0-2.38160+ 0 6.98200+ 0 2.86000- 2 7.18200+ 0-2.72000- 11261 300103127
+ 7.29100+ 0-3.83510+ 0 7.81800+ 0-3.98330+ 0 8.00000+ 0-2.24000+ 01261 300103128
+ 8.18100+ 0-1.52000+ 0 8.36300+ 0 2.14300- 1 8.45300+ 0 6.21900- 11261 300103129
+ 8.92500+ 0 2.73600- 1 9.01500+ 0 2.52068+ 1 9.05200+ 0 2.87582+ 11261 300103130
+ 9.10600+ 0 2.88185+ 1 9.17900+ 0 1.39583+ 1 9.23300+ 0 1.75720+ 01261 300103131
+ 9.30600+ 0-1.56170+ 0 9.36000+ 0-2.39000+ 0 9.43200+ 0 7.61860+ 01261 300103132
+ 9.45100+ 0 9.37780+ 0 9.50500+ 0 9.01430+ 0 9.54100+ 0 7.96090+ 01261 300103133
+ 9.70400+ 0-1.08300- 1 9.75900+ 0-2.21040+ 0 9.99500+ 0-2.31540+ 01261 300103134
+ 1.00850+ 1-1.46230+ 0 1.01760+ 1-2.11800+ 0 1.02670+ 1-2.31740+ 01261 300103135
+ 1.03390+ 1 1.20980+ 0 1.04300+ 1 1.98560+ 0 1.06290+ 1-5.84900- 11261 300103136
+ 1.07200+ 1-2.40000- 1 1.08110+ 1 2.64400- 1 1.09370+ 1 1.29800- 11261 300103137
+ 1.09920+ 1 7.53400- 1 1.12640+ 1 4.51810+ 0 1.14090+ 1 5.55940+ 01261 300103138
+ 1.14450+ 1 5.92910+ 0 1.14810+ 1 5.85310+ 0 1.15540+ 1 6.38500- 11261 300103139
+ 1.18620+ 1-6.35000- 1 1.18980+ 1 2.95560+ 0 1.20000+ 1 7.02000+ 01261 300103140
+ 1.20910+ 1 1.11886+ 1 1.21450+ 1 1.52014+ 1 1.22000+ 1 1.36300+ 11261 300103141
+ 1.23500+ 1 2.20000- 1 1.24910+ 1 1.28600- 1 1.25440+ 1-4.22500- 11261 300103142
+ 1.40850+ 1 3.42500- 1 1.42670+ 1 2.93350+ 0 1.43570+ 1 5.69300+ 01261 300103143
+ 1.44120+ 1 5.63190+ 0 1.44480+ 1 4.58860+ 0 1.46110+ 1-5.27130+ 01261 300103144
+ 1.46470+ 1-4.74250+ 0 1.47370+ 1-2.69040+ 0 1.49010+ 1 3.59700- 11261 300103145
+ 1.50000+ 1-1.99900- 1 1.50910+ 1 5.24300- 1 1.51820+ 1 5.71900- 11261 300103146
+ 1.52730+ 1-2.58000- 2 1.53640+ 1 3.46200- 1 1.54550+ 1 2.30000- 21261 300103147
+ 1.55450+ 1-1.66020+ 0 1.56360+ 1-1.66150+ 0 1.57270+ 1-1.85900- 11261 300103148
+ 1.58180+ 1 9.29200- 1 1.59090+ 1 8.92300- 1 1.60000+ 1 2.70000- 11261 300103149
+ 1.60910+ 1 4.00800- 1 1.61820+ 1-3.23600- 1 1.62730+ 1-2.44360+ 01261 300103150
+ 1.63640+ 1-4.15600+ 0 1.64360+ 1-4.05630+ 0 1.64910+ 1-4.32370+ 01261 300103151
+ 1.65450+ 1-4.18320+ 0 1.66360+ 1 3.37600- 1 1.67270+ 1 1.42000- 11261 300103152
+ 1.68180+ 1 1.27330+ 0 1.69090+ 1 3.70940+ 0 1.69450+ 1 4.06730+ 01261 300103153
+ 1.70000+ 1 3.36000+ 0 1.70910+ 1 3.02610+ 0 1.71810+ 1 1.95990+ 01261 300103154
+ 1.72730+ 1 1.28500+ 0 1.73640+ 1 5.98800- 1 1.74550+ 1 6.44800- 11261 300103155
+ 1.75450+ 1-1.52000- 2 1.76360+ 1 5.78000- 2 1.77270+ 1-2.00100- 11261 300103156
+ 1.78180+ 1-6.64100- 1 1.79090+ 1-7.46000- 2 1.80910+ 1 5.63600- 11261 300103157
+ 1.81820+ 1 1.80000- 3 1.82730+ 1-1.60400- 1 1.83640+ 1 3.42980+ 01261 300103158
+ 1.84550+ 1 4.56460+ 0 1.85450+ 1 4.65460+ 0 1.86360+ 1 4.43210+ 01261 300103159
+ 1.87270+ 1 2.82750+ 0 1.88180+ 1 2.07030+ 0 1.89090+ 1 2.18330+ 01261 300103160
+ 1.90000+ 1 4.50000- 1 1.93810+ 1 3.55680+ 0 1.94360+ 1 3.42200+ 01261 300103161
+ 1.94550+ 1 7.17320+ 0 1.94910+ 1 1.38094+ 1 1.95090+ 1 1.65331+ 11261 300103162
+ 1.95270+ 1 1.74548+ 1 1.95450+ 1 1.64081+ 1 1.96180+ 1 1.10290+ 11261 300103163
+ 1.96720+ 1 8.42540+ 0 1.97270+ 1 6.42320+ 0 1.98180+ 1 4.36820+ 01261 300103164
+ 1.99090+ 1 2.67840+ 0 2.00000+ 1 7.20000- 1 2.00910+ 1-2.39100- 11261 300103165
+ 2.02730+ 1-1.02960+ 0 2.03640+ 1-1.10080+ 0 2.04550+ 1-3.17900+ 01261 300103166
+ 2.05450+ 1-7.16670+ 0 2.05820+ 1-7.02610+ 0 2.06360+ 1-3.60400+ 01261 300103167
+ 2.06730+ 1-9.70500- 1 2.07270+ 1 3.84050+ 0 2.07640+ 1 5.94690+ 01261 300103168
+ 2.08180+ 1 7.73990+ 0 2.09090+ 1 7.42070+ 0 2.10000+ 1 2.97000+ 01261 300103169
+ 2.10360+ 1-1.62010+ 0 2.10910+ 1-7.07540+ 0 2.11270+ 1-1.46608+ 11261 300103170
+ 2.11820+ 1-1.73899+ 1 2.12180+ 1-1.56290+ 1 2.12640+ 1-8.69740+ 01261 300103171
+ 2.13640+ 1-3.87230+ 0 2.14000+ 1-3.96000+ 0 2.14550+ 1-3.66730+ 01261 300103172
+ 2.15450+ 1-4.18000+ 0 2.17270+ 1-4.44070+ 0 2.19090+ 1-3.46800+ 01261 300103173
+ 2.20910+ 1-2.69200+ 0 2.22730+ 1-1.53560+ 0 2.24550+ 1 7.00000- 21261 300103174
+ 2.26360+ 1 1.62530+ 0 2.28180+ 1 3.69760+ 0 2.30000+ 1 1.73000+ 01261 300103175
+ 2.31150+ 1 3.93850+ 0 2.32300+ 1 3.40750+ 0 2.34600+ 1-1.61000+ 01261 300103176
+ 2.36900+ 1-2.22200+ 0 2.38740+ 1-2.67560+ 0 2.40110+ 1-7.02020+ 01261 300103177
+ 2.41030+ 1-6.58010+ 0 2.43790+ 1 7.97400- 1 2.46090+ 1 7.63840+ 01261 300103178
+ 2.48390+ 1 4.46840+ 0 2.50690+ 1-3.51000- 1 2.51610+ 1-4.29000- 11261 300103179
+ 2.53450+ 1 9.61800- 1 2.55290+ 1-1.37430+ 0 2.55750+ 1-1.15850+ 01261 300103180
+ 2.57130+ 1-2.43900- 1 2.58510+ 1-2.88510+ 0 2.60340+ 1-9.04990+ 01261 300103181
+ 2.61260+ 1-9.60360+ 0 2.62180+ 1-6.88000+ 0 2.64480+ 1-1.06230+ 01261 300103182
+ 2.65400+ 1-9.80000- 1 2.70000+ 1-7.60000- 1 2.71380+ 1-3.00300- 11261 300103183
+ 2.73680+ 1-2.46700- 1 2.74140+ 1-2.40600- 1 2.75980+ 1-2.02300- 11261 300103184
+ 2.78280+ 1-2.80000- 2 2.80570+ 1-3.18700- 1 2.82870+ 1-4.07400- 11261 300103185
+ 2.84250+ 1-3.04500- 1 2.85170+ 1-3.50000- 1 2.87470+ 1 1.33000- 11261 300103186
+ 2.89770+ 1 1.13020+ 0 2.92070+ 1 1.15010+ 0 2.94370+ 1 3.08100- 11261 300103187
+ 2.96670+ 1-3.43000- 2 2.98970+ 1 6.29500- 1 3.00000+ 1 4.90000- 11261 300103188
+ 3.02290+ 1 7.99600- 1 3.04570+ 1 3.51900- 1 3.06860+ 1 2.23100- 11261 300103189
+ 3.07770+ 1 2.16000- 1 3.09140+ 1-3.77800- 1 3.09600+ 1-4.50000- 11261 300103190
+ 3.10970+ 1-9.73000- 1 3.11430+ 1-1.21580+ 0 3.13710+ 1-9.05200- 11261 300103191
+ 3.16000+ 1 7.20000- 1 3.16910+ 1 2.60800- 1 3.18290+ 1-2.94600- 11261 300103192
+ 3.18740+ 1-9.88000- 1 3.19660+ 1 1.02670+ 0 3.20570+ 1 5.25500- 11261 300103193
+ 3.21940+ 1-1.93100- 1 3.22860+ 1-6.45000- 1 3.25140+ 1-2.22890+ 01261 300103194
+ 3.27430+ 1-2.39240+ 0 3.29710+ 1-6.74400- 1 3.32000+ 1-5.90000- 11261 300103195
+ 3.35200+ 1 1.82000+ 0 3.36110+ 1-6.70200- 1 3.37490+ 1-8.59900- 11261 300103196
+ 3.38860+ 1-2.26000- 1 3.41140+ 1 8.13600- 1 3.43430+ 1 2.20710+ 01261 300103197
+ 3.44340+ 1-9.08010+ 0 3.44800+ 1 1.59100+ 1 3.45260+ 1 2.23261+ 11261 300103198
+ 3.45710+ 1 2.61015+ 1 3.46170+ 1 2.28812+ 1 3.46630+ 1 1.23990+ 11261 300103199
+ 3.47090+ 1 6.43020+ 0 3.47540+ 1 4.75210+ 0 3.48460+ 1 1.97820+ 01261 300103200
+ 3.48910+ 1 3.37010+ 0 3.50290+ 1 3.92500- 1 3.52570+ 1 1.10360+ 11261 300103201
+ 3.54860+ 1-1.80000- 2 3.57140+ 1 2.14430+ 0 3.59430+ 1 3.48900- 11261 300103202
+ 3.66290+ 1-2.70000- 1 3.68570+ 1-1.16020+ 0 3.70860+ 1-1.81000+ 01261 300103203
+ 3.73140+ 1-2.63500- 1 3.75430+ 1 5.30400- 1 3.77710+ 1 7.20000- 11261 300103204
+ 3.80000+ 1 4.60000- 1 3.82290+ 1 5.87100- 1 3.84570+ 1 4.05800- 11261 300103205
+ 3.86860+ 1-2.91000- 1 3.89140+ 1-3.26300- 1 3.91430+ 1-3.18900+ 01261 300103206
+ 3.92340+ 1-3.19160+ 0 3.92800+ 1 3.24000+ 0 3.93710+ 1 4.12280+ 01261 300103207
+ 3.95090+ 1 2.15200- 1 3.96000+ 1-4.70000- 1 3.96910+ 1-5.21000- 11261 300103208
+ 3.98290+ 1-4.48700- 1 3.99660+ 1-1.63800- 1 4.01940+ 1-1.74800+ 01261 300103209
+ 4.05140+ 1 1.87700- 1 4.06970+ 1 2.57690+ 0 4.07430+ 1 3.21510+ 01261 300103210
+ 4.07890+ 1 3.33980+ 0 4.09710+ 1 2.37930+ 0 4.12000+ 1 1.60000- 11261 300103211
+ 4.14290+ 1 3.10000- 2 4.15660+ 1-2.85850+ 0 4.16570+ 1-1.68580+ 01261 300103212
+ 4.17940+ 1-1.16300+ 0 4.19770+ 1 2.08360+ 0 4.21140+ 1 1.10140+ 01261 300103213
+ 4.22970+ 1-1.34950+ 0 4.23890+ 1 3.64500- 1 4.25710+ 1 8.23900- 11261 300103214
+ 4.27090+ 1-1.24490+ 0 4.28000+ 1 7.70000- 1 4.28910+ 1 3.31450+ 01261 300103215
+ 4.30290+ 1-1.55100- 1 4.32110+ 1-2.07970+ 0 4.33030+ 1-2.00710+ 01261 300103216
+ 4.34860+ 1-4.05910+ 0 4.36690+ 1-2.34870+ 0 4.38060+ 1-1.38340+ 01261 300103217
+ 4.40340+ 1 1.66150+ 0 4.41710+ 1 2.02290+ 0 4.44000+ 1-4.30000- 11261 300103218
+ 4.46290+ 1 3.58000- 1 4.48570+ 1-1.05410+ 0 4.50860+ 1-4.74000- 11261 300103219
+ 4.53140+ 1-9.43000- 1 4.55430+ 1-8.31100- 1 4.57710+ 1-1.05450+ 01261 300103220
+ 4.60000+ 1-1.32000+ 0 4.61810+ 1-1.01000+ 0 4.63630+ 1-4.69900- 11261 300103221
+ 4.65440+ 1 1.20100+ 0 4.67260+ 1 1.07750+ 0 4.72700+ 1-4.44400- 11261 300103222
+ 4.74510+ 1 3.54900- 1 4.76330+ 1 2.74700+ 0 4.77410+ 1 3.33170+ 01261 300103223
+ 4.78870+ 1 1.17680+ 0 4.79590+ 1 6.13100- 1 4.80680+ 1-3.85690+ 01261 300103224
+ 4.81770+ 1-4.21300+ 0 4.82860+ 1-4.01700- 1 4.83950+ 1-2.69500- 11261 300103225
+ 4.85400+ 1 5.35000+ 0 4.86120+ 1 6.19990+ 0 4.86850+ 1 5.39640+ 01261 300103226
+ 4.88660+ 1-4.66870+ 0 4.89340+ 1-5.53180+ 0 4.90110+ 1-4.24920+ 01261 300103227
+ 4.91200+ 1 2.40000- 1 4.91930+ 1 3.07600- 1 4.93380+ 1-1.06170+ 01261 300103228
+ 4.95560+ 1 2.99570+ 0 4.96640+ 1 4.52200+ 0 4.97730+ 1 4.00760+ 01261 300103229
+ 4.99550+ 1 1.07600+ 0 5.01720+ 1-1.46500- 1 5.18050+ 1-1.07160+ 01261 300103230
+ 5.25310+ 1-1.27460+ 0 5.27120+ 1 2.86600- 1 5.32560+ 1 1.74800- 11261 300103231
+ 5.34380+ 1 8.96000- 2 5.36190+ 1 2.38950+ 0 5.38000+ 1 2.41000+ 01261 300103232
+ 5.40000+ 1 6.50000- 1 5.41810+ 1-3.60400- 1 5.43630+ 1-4.09600- 11261 300103233
+ 5.45440+ 1-3.49700- 1 5.47260+ 1-1.55100- 1 5.49070+ 1 5.98400- 11261 300103234
+ 5.50880+ 1 4.56200- 1 5.52700+ 1-1.19370+ 0 5.54510+ 1-1.01860+ 01261 300103235
+ 5.56330+ 1-3.39000- 1 5.58140+ 1-2.33900- 1 5.59950+ 1-2.04820+ 01261 300103236
+ 5.61770+ 1 1.79600+ 0 5.62860+ 1 3.89720+ 0 5.63580+ 1 1.38300- 11261 300103237
+ 5.64310+ 1-4.97260+ 0 5.66490+ 1-1.57430+ 0 5.67940+ 1 4.36910+ 01261 300103238
+ 5.69020+ 1 2.15820+ 0 5.71200+ 1 4.51200- 1 5.72650+ 1 7.27000- 21261 300103239
+ 5.76280+ 1-3.38000- 1 5.78100+ 1-7.58700- 1 5.79910+ 1-3.53170+ 01261 300103240
+ 5.81720+ 1-3.12400- 1 5.83170+ 1-1.77060+ 0 5.83900+ 1-1.51880+ 01261 300103241
+ 5.84990+ 1-2.11145+ 0 5.85710+ 1-2.93062+ 0 5.86800+ 1-2.71667+ 01261 300103242
+ 5.88250+ 1-1.77820+ 0 5.90070+ 1 7.42300- 1 5.91160+ 1 1.10400+ 01261 300103243
+ 5.94420+ 1 3.38600- 1 5.96240+ 1-5.18000- 2 5.98050+ 1-3.46900- 11261 300103244
+ 6.21810+ 1-6.11200- 1 6.22900+ 1-7.35000- 1 6.25440+ 1-6.47800- 11261 300103245
+ 6.27260+ 1-5.16500- 1 6.37410+ 1-8.79900- 1 6.39230+ 1-9.50000- 11261 300103246
+ 6.40320+ 1-9.49400- 1 6.41410+ 1-1.02210+ 0 6.42490+ 1-1.37500+ 01261 300103247
+ 6.43220+ 1-1.38680+ 0 6.44310+ 1-9.64700- 1 6.45400+ 1-7.30000- 11261 300103248
+ 6.46490+ 1-6.40500- 1 6.47210+ 1-6.09400- 1 6.49020+ 1-5.59700- 11261 300103249
+ 6.52650+ 1-5.10000- 1 6.54470+ 1-5.10000- 1 6.56280+ 1-5.91300- 11261 300103250
+ 6.57730+ 1-7.47800- 1 6.58820+ 1-6.78200- 1 6.59910+ 1-5.79000- 11261 300103251
+ 6.61000+ 1-5.50000- 1 6.61720+ 1-5.62100- 1 6.63540+ 1-8.14500- 11261 300103252
+ 6.64630+ 1-7.55500- 1 6.65710+ 1-7.64500- 1 6.68250+ 1-5.01800- 11261 300103253
+ 6.76240+ 1-5.20000- 1 6.78050+ 1-5.30500- 1 6.81680+ 1-5.10600- 11261 300103254
+ 6.85310+ 1-4.54300- 1 6.94000+ 1-3.30000- 1 6.96190+ 1 2.41040+ 01261 300103255
+ 6.98000+ 1 3.50000+ 0 7.00000+ 1 3.60000+ 0 7.01810+ 1-4.43000- 21261 300103256
+ 7.03630+ 1 7.33100- 1 7.05440+ 1-2.83260+ 0 7.07260+ 1-4.86730+ 01261 300103257
+ 7.09070+ 1-3.52780+ 0 7.10880+ 1-1.67130+ 0 7.12700+ 1-6.74400- 11261 300103258
+ 7.15600+ 1-1.00000+ 0 7.18140+ 1-3.68240+ 0 7.19230+ 1-4.62130+ 01261 300103259
+ 7.19950+ 1-4.45460+ 0 7.20680+ 1-4.00650+ 0 7.21040+ 1-2.59890+ 01261 300103260
+ 7.21770+ 1-4.92100- 1 7.23220+ 1-5.99100- 1 7.25030+ 1-5.78000- 11261 300103261
+ 7.26850+ 1 4.73050+ 0 7.27210+ 1 1.71610+ 0 7.28300+ 1-1.27120+ 01261 300103262
+ 7.29020+ 1-1.36990+ 0 7.29750+ 1-1.60790+ 0 7.30840+ 1-1.32170+ 01261 300103263
+ 7.32650+ 1-8.78300- 1 7.36280+ 1-7.66700- 1 7.38100+ 1-7.69900- 11261 300103264
+ 7.39910+ 1-8.04900- 1 7.44260+ 1-4.66500- 1 7.45710+ 1 3.48350+ 01261 300103265
+ 7.47890+ 1 1.60120+ 1 7.48250+ 1 1.58696+ 1 7.48620+ 1 1.33061+ 11261 300103266
+ 7.48980+ 1 8.24280+ 0 7.49340+ 1 6.40610+ 0 7.49710+ 1 4.57330+ 01261 300103267
+ 7.50430+ 1 2.06360+ 0 7.50790+ 1 1.03880+ 0 7.51880+ 1-1.24130+ 01261 300103268
+ 7.54420+ 1-3.07539+ 0 7.55870+ 1-3.26694+ 0 7.58050+ 1-2.07292+ 01261 300103269
+ 7.60230+ 1-9.47000- 1 7.61680+ 1-9.55400- 1 7.67480+ 1-1.02510+ 01261 300103270
+ 7.69660+ 1-8.99400- 1 7.71110+ 1-9.04900- 1 7.75620+ 1-1.10810+ 01261 300103271
+ 7.76190+ 1-1.06090+ 0 7.83000+ 1-1.21000+ 0 7.83630+ 1 4.62480+ 01261 300103272
+ 7.85440+ 1 5.93180+ 0 7.87260+ 1 4.83890+ 0 7.89070+ 1 4.24000+ 01261 300103273
+ 7.90880+ 1 2.50940+ 0 7.92700+ 1 1.31000+ 0 7.94510+ 1-1.12550+ 01261 300103274
+ 7.98140+ 1-1.11300+ 0 7.99950+ 1 1.18030+ 0 8.00680+ 1 1.11200+ 01261 300103275
+ 8.02490+ 1-1.52470+ 0 8.04670+ 1-1.43340+ 0 8.07570+ 1 1.78020+ 01261 300103276
+ 8.08660+ 1 1.86650+ 0 8.09750+ 1 1.24290+ 0 8.10840+ 1 3.96500- 11261 300103277
+ 8.13380+ 1-1.68580+ 0 8.15190+ 1-1.65140+ 0 8.16280+ 1-1.49200+ 01261 300103278
+ 8.18100+ 1 5.80600- 1 8.20000+ 1 1.04000+ 0 8.20000+ 1 0.00000+ 01261 300103279
+ 1.00000+ 3 0.00000+ 0 1.30000+ 4 0.00000+ 0 1.30550+ 4 0.00000+ 01261 300103280
+ 1.30553+ 4 3.24728- 7 1.32000+ 4 1.56990- 4 1.37000+ 4 6.98340- 41261 300103281
+ 1.42000+ 4 1.23970- 3 1.45000+ 4 1.56450- 3 1.47000+ 4 1.78100- 31261 300103282
+ 1.48000+ 4 1.88930- 3 1.50000+ 4 2.10580- 3 1.52000+ 4 2.32240- 31261 300103283
+ 1.55000+ 4 2.64720- 3 1.58000+ 4 2.97200- 3 1.61000+ 4 3.29680- 31261 300103284
+ 1.63000+ 4 3.51330- 3 1.72000+ 4 4.48780- 3 1.76000+ 4 4.92080- 31261 300103285
+ 1.79000+ 4 5.24560- 3 1.82000+ 4 5.57040- 3 1.85000+ 4 5.89520- 31261 300103286
+ 1.90000+ 4 6.43660- 3 1.92000+ 4 6.65310- 3 1.94000+ 4 6.86970- 31261 300103287
+ 1.96000+ 4 7.08620- 3 1.98000+ 4 7.30270- 3 2.00000+ 4 7.51930- 31261 300103288
+ 2.01000+ 4 7.62760- 3 2.03000+ 4 7.84410- 3 2.06000+ 4 8.16890- 31261 300103289
+ 2.10000+ 4 8.60200- 3 2.12000+ 4 8.81850- 3 2.16000+ 4 9.25160- 31261 300103290
+ 2.21000+ 4 9.79290- 3 2.25000+ 4 1.02260- 2 2.33000+ 4 1.10920- 21261 300103291
+ 2.37000+ 4 1.15250- 2 2.40000+ 4 1.18500- 2 2.43000+ 4 1.21750- 21261 300103292
+ 2.46000+ 4 1.25000- 2 2.50000+ 4 1.29330- 2 2.50000+ 4 1.41000+ 11261 300103293
+ 2.53000+ 4 1.40854+ 1 2.57000+ 4 1.40662+ 1 2.62000+ 4 1.40435+ 11261 300103294
+ 2.65000+ 4 1.40308+ 1 2.72000+ 4 1.39998+ 1 2.75000+ 4 1.39847+ 11261 300103295
+ 2.83000+ 4 1.39453+ 1 2.88000+ 4 1.39212+ 1 2.93000+ 4 1.38975+ 11261 300103296
+ 2.98000+ 4 1.38742+ 1 3.00000+ 4 1.38650+ 1 3.11000+ 4 1.38148+ 11261 300103297
+ 3.13000+ 4 1.38058+ 1 3.18000+ 4 1.37837+ 1 3.21000+ 4 1.37706+ 11261 300103298
+ 3.25000+ 4 1.37534+ 1 3.28000+ 4 1.37406+ 1 3.42000+ 4 1.36823+ 11261 300103299
+ 3.45000+ 4 1.36701+ 1 3.50000+ 4 1.36500+ 1 3.62000+ 4 1.35988+ 11261 300103300
+ 3.65000+ 4 1.35862+ 1 3.70000+ 4 1.35655+ 1 3.79000+ 4 1.35290+ 11261 300103301
+ 3.87000+ 4 1.34983+ 1 3.91000+ 4 1.34833+ 1 3.94000+ 4 1.34721+ 11261 300103302
+ 4.00000+ 4 1.34500+ 1 4.04000+ 4 1.34343+ 1 4.10000+ 4 1.34111+ 11261 300103303
+ 4.15000+ 4 1.33921+ 1 4.20000+ 4 1.33732+ 1 4.30000+ 4 1.33362+ 11261 300103304
+ 4.36000+ 4 1.33144+ 1 4.38000+ 4 1.33072+ 1 4.43000+ 4 1.32884+ 11261 300103305
+ 4.48000+ 4 1.32691+ 1 4.50000+ 4 1.32615+ 1 4.52000+ 4 1.32539+ 11261 300103306
+ 4.54000+ 4 1.32463+ 1 4.60000+ 4 1.32238+ 1 4.62000+ 4 1.32164+ 11261 300103307
+ 4.65000+ 4 1.32053+ 1 4.68000+ 4 1.31943+ 1 4.73000+ 4 1.31770+ 11261 300103308
+ 4.76000+ 4 1.31671+ 1 4.82000+ 4 1.31475+ 1 4.84000+ 4 1.31410+ 11261 300103309
+ 4.88000+ 4 1.31281+ 1 4.90000+ 4 1.31217+ 1 5.00000+ 4 1.30900+ 11261 300103310
+ 5.02000+ 4 1.30844+ 1 5.06000+ 4 1.30733+ 1 5.09000+ 4 1.30650+ 11261 300103311
+ 5.12000+ 4 1.30567+ 1 5.15000+ 4 1.30485+ 1 5.22000+ 4 1.30285+ 11261 300103312
+ 5.25000+ 4 1.30188+ 1 5.35000+ 4 1.29869+ 1 5.39000+ 4 1.29742+ 11261 300103313
+ 5.42000+ 4 1.29648+ 1 5.46000+ 4 1.29524+ 1 5.50000+ 4 1.29400+ 11261 300103314
+ 5.53000+ 4 1.29290+ 1 5.57000+ 4 1.29144+ 1 5.61000+ 4 1.28999+ 11261 300103315
+ 5.67000+ 4 1.28784+ 1 5.71000+ 4 1.28641+ 1 5.76000+ 4 1.28469+ 11261 300103316
+ 5.79000+ 4 1.28378+ 1 5.83000+ 4 1.28257+ 1 5.87000+ 4 1.28136+ 11261 300103317
+ 5.91000+ 4 1.28016+ 1 5.92000+ 4 1.27987+ 1 5.98000+ 4 1.27809+ 11261 300103318
+ 6.00000+ 4 1.27750+ 1 6.03000+ 4 1.27657+ 1 6.12000+ 4 1.27379+ 11261 300103319
+ 6.15000+ 4 1.27287+ 1 6.20000+ 4 1.27136+ 1 6.25000+ 4 1.26985+ 11261 300103320
+ 6.29000+ 4 1.26865+ 1 6.32000+ 4 1.26776+ 1 6.42000+ 4 1.26482+ 11261 300103321
+ 6.47000+ 4 1.26337+ 1 6.50000+ 4 1.26250+ 1 6.51000+ 4 1.26222+ 11261 300103322
+ 6.61000+ 4 1.25944+ 1 6.65000+ 4 1.25834+ 1 6.70000+ 4 1.25698+ 11261 300103323
+ 6.74000+ 4 1.25590+ 1 6.80000+ 4 1.25428+ 1 6.83000+ 4 1.25348+ 11261 300103324
+ 6.89000+ 4 1.25189+ 1 6.94000+ 4 1.25057+ 1 7.00000+ 4 1.24900+ 11261 300103325
+ 7.03000+ 4 1.24813+ 1 7.09000+ 4 1.24641+ 1 7.20000+ 4 1.24328+ 11261 300103326
+ 7.25000+ 4 1.24188+ 1 7.31000+ 4 1.24021+ 1 7.37000+ 4 1.23855+ 11261 300103327
+ 7.41000+ 4 1.23745+ 1 7.48000+ 4 1.23554+ 1 7.50000+ 4 1.23500+ 11261 300103328
+ 7.53000+ 4 1.23423+ 1 7.58000+ 4 1.23295+ 1 7.65000+ 4 1.23116+ 11261 300103329
+ 7.70000+ 4 1.22990+ 1 7.76000+ 4 1.22840+ 1 7.84000+ 4 1.22641+ 11261 300103330
+ 7.89000+ 4 1.22518+ 1 7.94000+ 4 1.22396+ 1 8.00000+ 4 1.22250+ 11261 300103331
+ 8.07000+ 4 1.22070+ 1 8.20000+ 4 1.21741+ 1 8.27000+ 4 1.21566+ 11261 300103332
+ 8.33000+ 4 1.21417+ 1 8.40000+ 4 1.21244+ 1 8.47000+ 4 1.21073+ 11261 300103333
+ 8.50000+ 4 1.21000+ 1 8.53000+ 4 1.20920+ 1 8.61000+ 4 1.20708+ 11261 300103334
+ 8.68000+ 4 1.20523+ 1 8.75000+ 4 1.20341+ 1 8.83000+ 4 1.20134+ 11261 300103335
+ 8.90000+ 4 1.19954+ 1 9.00000+ 4 1.19700+ 1 9.03000+ 4 1.19630+ 11261 300103336
+ 9.12000+ 4 1.19421+ 1 9.28000+ 4 1.19054+ 1 9.36000+ 4 1.18874+ 11261 300103337
+ 9.44000+ 4 1.18694+ 1 9.50000+ 4 1.18561+ 1 9.52000+ 4 1.18516+ 11261 300103338
+ 9.60000+ 4 1.18340+ 1 9.68000+ 4 1.18165+ 1 9.77000+ 4 1.17970+ 11261 300103339
+ 9.85000+ 4 1.17798+ 1 9.93000+ 4 1.17628+ 1 9.99000+ 4 1.17501+ 11261 300103340
+ 1.00000+ 5 1.17480+ 1 1.03000+ 5 1.16833+ 1 1.20000+ 5 1.13490+ 11261 300103341
+ 1.35000+ 5 1.10900+ 1 1.40000+ 5 1.10100+ 1 1.50000+ 5 1.08627+ 11261 300103342
+ 1.60000+ 5 1.07250+ 1 1.73000+ 5 1.05552+ 1 1.80000+ 5 1.04690+ 11261 300103343
+ 2.00000+ 5 1.02400+ 1 2.07000+ 5 1.01645+ 1 2.15000+ 5 1.00813+ 11261 300103344
+ 2.20000+ 5 1.00309+ 1 2.25000+ 5 9.98159+ 0 2.35000+ 5 9.88619+ 01261 300103345
+ 2.40000+ 5 9.84000+ 0 2.50000+ 5 9.74819+ 0 2.60000+ 5 9.66000+ 01261 300103346
+ 2.70000+ 5 9.57824+ 0 2.80000+ 5 9.49946+ 0 3.00000+ 5 9.35000+ 01261 300103347
+ 3.20000+ 5 9.22000+ 0 3.25000+ 5 9.18420+ 0 3.40000+ 5 9.08000+ 01261 300103348
+ 3.50000+ 5 9.01914+ 0 3.60000+ 5 8.96000+ 0 3.80000+ 5 8.83940+ 01261 300103349
+ 4.00000+ 5 8.72500+ 0 4.20000+ 5 8.62144+ 0 4.40000+ 5 8.52270+ 01261 300103350
+ 4.50000+ 5 8.47500+ 0 4.60000+ 5 8.42446+ 0 4.70000+ 5 8.37500+ 01261 300103351
+ 4.80000+ 5 8.31690+ 0 5.00000+ 5 8.23300+ 0 5.20000+ 5 8.17000+ 01261 300103352
+ 5.40000+ 5 8.06100+ 0 5.50000+ 5 8.01600+ 0 5.60000+ 5 7.96786+ 01261 300103353
+ 5.70000+ 5 7.92300+ 0 5.80000+ 5 7.87884+ 0 6.00000+ 5 7.79342+ 01261 300103354
+ 6.20000+ 5 7.71296+ 0 6.40000+ 5 7.63749+ 0 6.50000+ 5 7.60155+ 01261 300103355
+ 6.60000+ 5 7.56674+ 0 6.70000+ 5 7.53305+ 0 6.80000+ 5 7.50044+ 01261 300103356
+ 7.00000+ 5 7.43829+ 0 7.20000+ 5 7.38002+ 0 7.30000+ 5 7.35225+ 01261 300103357
+ 7.40000+ 5 7.32534+ 0 7.50000+ 5 7.29927+ 0 7.60000+ 5 7.27399+ 01261 300103358
+ 7.70000+ 5 7.24947+ 0 7.75000+ 5 7.23748+ 0 7.80000+ 5 7.22568+ 01261 300103359
+ 8.00000+ 5 7.18012+ 0 8.20000+ 5 7.13704+ 0 8.40000+ 5 7.09617+ 01261 300103360
+ 8.50000+ 5 7.07647+ 0 8.60000+ 5 7.05726+ 0 8.80000+ 5 7.02033+ 01261 300103361
+ 9.00000+ 5 6.98542+ 0 9.20000+ 5 6.95259+ 0 9.40000+ 5 6.92188+ 01261 300103362
+ 9.50000+ 5 6.90733+ 0 9.60000+ 5 6.89334+ 0 9.70000+ 5 6.87990+ 01261 300103363
+ 9.80000+ 5 6.86703+ 0 1.00000+ 6 6.84300+ 0 1.05000+ 6 6.79287+ 01261 300103364
+ 1.10000+ 6 6.75603+ 0 1.15000+ 6 6.73118+ 0 1.20000+ 6 6.71709+ 01261 300103365
+ 1.25000+ 6 6.71246+ 0 1.29500+ 6 6.71534+ 0 1.30000+ 6 6.71603+ 01261 300103366
+ 1.35000+ 6 6.72652+ 0 1.40000+ 6 6.74265+ 0 1.45000+ 6 6.76332+ 01261 300103367
+ 1.49500+ 6 6.78534+ 0 1.50000+ 6 6.78798+ 0 1.60000+ 6 6.84776+ 01261 300103368
+ 1.70000+ 6 6.91896+ 0 1.80000+ 6 6.99854+ 0 1.90000+ 6 7.08344+ 01261 300103369
+ 2.00000+ 6 7.17064+ 0 2.10000+ 6 7.25731+ 0 2.20000+ 6 7.34164+ 01261 300103370
+ 2.30000+ 6 7.42202+ 0 2.40000+ 6 7.49689+ 0 2.50000+ 6 7.56497+ 01261 300103371
+ 2.60000+ 6 7.62627+ 0 2.70000+ 6 7.68113+ 0 2.80000+ 6 7.72989+ 01261 300103372
+ 2.90000+ 6 7.77288+ 0 3.00000+ 6 7.81043+ 0 3.10000+ 6 7.84289+ 01261 300103373
+ 3.20000+ 6 7.87059+ 0 3.30000+ 6 7.89386+ 0 3.40000+ 6 7.91297+ 01261 300103374
+ 3.50000+ 6 7.92786+ 0 3.60000+ 6 7.93840+ 0 3.70000+ 6 7.94447+ 01261 300103375
+ 3.80000+ 6 7.94593+ 0 3.90000+ 6 7.94266+ 0 4.00000+ 6 7.93454+ 01261 300103376
+ 4.10000+ 6 7.92142+ 0 4.20000+ 6 7.90328+ 0 4.30000+ 6 7.88042+ 01261 300103377
+ 4.40000+ 6 7.85326+ 0 4.50000+ 6 7.82219+ 0 4.60000+ 6 7.78761+ 01261 300103378
+ 4.70000+ 6 7.74994+ 0 4.80000+ 6 7.70957+ 0 4.90000+ 6 7.66691+ 01261 300103379
+ 5.00000+ 6 7.62536+ 0 5.10000+ 6 7.57633+ 0 5.15000+ 6 7.55288+ 01261 300103380
+ 5.20000+ 6 7.52717+ 0 5.25000+ 6 7.50522+ 0 5.30000+ 6 7.48105+ 01261 300103381
+ 5.32858+ 6 7.46737+ 0 5.35000+ 6 7.45666+ 0 5.40000+ 6 7.43207+ 01261 300103382
+ 5.45000+ 6 7.40730+ 0 5.50000+ 6 7.38235+ 0 5.55000+ 6 7.35725+ 01261 300103383
+ 5.60000+ 6 7.33201+ 0 5.65000+ 6 7.30664+ 0 5.70000+ 6 7.28116+ 01261 300103384
+ 5.75000+ 6 7.25557+ 0 5.80000+ 6 7.22994+ 0 5.90000+ 6 7.17837+ 01261 300103385
+ 6.00000+ 6 7.12666+ 0 6.10000+ 6 7.07489+ 0 6.20000+ 6 7.02318+ 01261 300103386
+ 6.30000+ 6 6.97164+ 0 6.40000+ 6 6.92039+ 0 6.50000+ 6 6.86953+ 01261 300103387
+ 6.60000+ 6 6.81918+ 0 6.70000+ 6 6.76946+ 0 6.80000+ 6 6.72047+ 01261 300103388
+ 6.90000+ 6 6.67234+ 0 7.00000+ 6 6.62518+ 0 7.10000+ 6 6.57909+ 01261 300103389
+ 7.20000+ 6 6.53419+ 0 7.30000+ 6 6.49061+ 0 7.40000+ 6 6.44864+ 01261 300103390
+ 7.50000+ 6 6.40781+ 0 7.60000+ 6 6.36879+ 0 7.65000+ 6 6.34960+ 01261 300103391
+ 7.70000+ 6 6.33108+ 0 7.80000+ 6 6.29513+ 0 7.90000+ 6 6.26122+ 01261 300103392
+ 8.00000+ 6 6.22838+ 0 8.20000+ 6 6.16696+ 0 8.40000+ 6 6.11096+ 01261 300103393
+ 8.50000+ 6 6.08489+ 0 8.60000+ 6 6.06004+ 0 8.80000+ 6 6.01386+ 01261 300103394
+ 9.00000+ 6 5.97210+ 0 9.20000+ 6 5.93441+ 0 9.40000+ 6 5.90046+ 01261 300103395
+ 9.50000+ 6 5.88478+ 0 9.60000+ 6 5.86991+ 0 9.80000+ 6 5.84258+ 01261 300103396
+ 1.00000+ 7 5.81839+ 0 1.05000+ 7 5.77124+ 0 1.10000+ 7 5.74233+ 01261 300103397
+ 1.15000+ 7 5.73068+ 0 1.19000+ 7 5.73287+ 0 1.20000+ 7 5.73481+ 01261 300103398
+ 1.21988+ 7 5.74215+ 0 1.25000+ 7 5.75138+ 0 1.30000+ 7 5.77654+ 01261 300103399
+ 1.35000+ 7 5.80645+ 0 1.40000+ 7 5.84000+ 0 1.45000+ 7 5.88900+ 01261 300103400
+ 1.50000+ 7 5.93400+ 0 1.55000+ 7 5.96800+ 0 1.60000+ 7 5.99800+ 01261 300103401
+ 1.65000+ 7 6.02200+ 0 1.70000+ 7 6.04700+ 0 1.75000+ 7 6.06700+ 01261 300103402
+ 1.80000+ 7 6.08700+ 0 1.85000+ 7 6.10500+ 0 1.90000+ 7 6.12100+ 01261 300103403
+ 1.95000+ 7 6.13600+ 0 2.00000+ 7 6.14953+ 0                      1261 300103404
+                                                                  1261 300003405
+ 9.22350+ 4 2.33025+ 2          0         99          0          01261 300203406
+ 0.00000+ 0 0.00000+ 0          0          0          2       10081261 300203407
+        676          2       1008          3                      1261 300203408
+ 1.00000- 5 1.56297+ 1 1.00000- 4 1.56297+ 1 5.00000- 4 1.56297+ 11261 300203409
+ 1.00000- 3 1.56248+ 1 2.00000- 3 1.56198+ 1 3.00000- 3 1.56140+ 11261 300203410
+ 4.00000- 3 1.56090+ 1 5.00000- 3 1.56041+ 1 6.00000- 3 1.55982+ 11261 300203411
+ 7.00000- 3 1.55933+ 1 8.00000- 3 1.55884+ 1 9.00000- 3 1.55825+ 11261 300203412
+ 1.00000- 2 1.55776+ 1 1.10000- 2 1.55727+ 1 1.20000- 2 1.55668+ 11261 300203413
+ 1.30000- 2 1.55619+ 1 1.40000- 2 1.55570+ 1 1.50000- 2 1.55521+ 11261 300203414
+ 1.60000- 2 1.55462+ 1 1.70000- 2 1.55413+ 1 1.80000- 2 1.55363+ 11261 300203415
+ 1.90000- 2 1.55314+ 1 2.00000- 2 1.55255+ 1 2.10000- 2 1.55206+ 11261 300203416
+ 2.20000- 2 1.55157+ 1 2.30000- 2 1.55108+ 1 2.40000- 2 1.55049+ 11261 300203417
+ 2.53000- 2 1.55000+ 1 2.60000- 2 1.54951+ 1 2.70000- 2 1.54902+ 11261 300203418
+ 2.80000- 2 1.54853+ 1 2.90000- 2 1.54794+ 1 3.00000- 2 1.54745+ 11261 300203419
+ 3.10000- 2 1.54695+ 1 3.20000- 2 1.54646+ 1 3.30000- 2 1.54597+ 11261 300203420
+ 3.40000- 2 1.54548+ 1 3.50000- 2 1.54489+ 1 3.60000- 2 1.54440+ 11261 300203421
+ 3.70000- 2 1.54391+ 1 3.80000- 2 1.54342+ 1 3.90000- 2 1.54293+ 11261 300203422
+ 4.00000- 2 1.54244+ 1 4.10000- 2 1.54194+ 1 4.20000- 2 1.54145+ 11261 300203423
+ 4.30000- 2 1.54086+ 1 4.40000- 2 1.54037+ 1 4.50000- 2 1.53988+ 11261 300203424
+ 4.60000- 2 1.53939+ 1 4.70000- 2 1.53890+ 1 4.80000- 2 1.53841+ 11261 300203425
+ 4.90000- 2 1.53792+ 1 5.00000- 2 1.53743+ 1 5.10000- 2 1.53693+ 11261 300203426
+ 5.20000- 2 1.53644+ 1 5.30000- 2 1.53595+ 1 5.40000- 2 1.53546+ 11261 300203427
+ 5.50000- 2 1.53497+ 1 5.60000- 2 1.53448+ 1 5.70000- 2 1.53389+ 11261 300203428
+ 5.80000- 2 1.53340+ 1 5.90000- 2 1.53291+ 1 6.00000- 2 1.53242+ 11261 300203429
+ 6.10000- 2 1.53192+ 1 6.20000- 2 1.53143+ 1 6.30000- 2 1.53094+ 11261 300203430
+ 6.40000- 2 1.53045+ 1 6.50000- 2 1.52996+ 1 6.60000- 2 1.52947+ 11261 300203431
+ 6.70000- 2 1.52898+ 1 6.80000- 2 1.52849+ 1 6.90000- 2 1.52809+ 11261 300203432
+ 7.00000- 2 1.52760+ 1 7.10000- 2 1.52711+ 1 7.20000- 2 1.52662+ 11261 300203433
+ 7.30000- 2 1.52613+ 1 7.40000- 2 1.52564+ 1 7.50000- 2 1.52515+ 11261 300203434
+ 7.60000- 2 1.52465+ 1 7.70000- 2 1.52416+ 1 7.80000- 2 1.52367+ 11261 300203435
+ 7.90000- 2 1.52318+ 1 8.00000- 2 1.52269+ 1 8.10000- 2 1.52220+ 11261 300203436
+ 8.20000- 2 1.52171+ 1 8.30000- 2 1.52122+ 1 8.40000- 2 1.52073+ 11261 300203437
+ 8.50000- 2 1.52033+ 1 8.60000- 2 1.51984+ 1 8.70000- 2 1.51935+ 11261 300203438
+ 8.80000- 2 1.51886+ 1 8.90000- 2 1.51837+ 1 9.00000- 2 1.51788+ 11261 300203439
+ 9.10000- 2 1.51738+ 1 9.20000- 2 1.51689+ 1 9.30000- 2 1.51650+ 11261 300203440
+ 9.40000- 2 1.51601+ 1 9.50000- 2 1.51552+ 1 9.60000- 2 1.51503+ 11261 300203441
+ 9.70000- 2 1.51454+ 1 9.80000- 2 1.51404+ 1 9.90000- 2 1.51355+ 11261 300203442
+ 1.00000- 1 1.51316+ 1 1.40000- 1 1.49440+ 1 1.80000- 1 1.47632+ 11261 300203443
+ 2.03340- 1 1.46620+ 1 2.23340- 1 1.45844+ 1 2.43340- 1 1.45235+ 11261 300203444
+ 2.63340- 1 1.44911+ 1 2.83340- 1 1.44921+ 1 3.03340- 1 1.45039+ 11261 300203445
+ 3.23340- 1 1.44940+ 1 3.43340- 1 1.44538+ 1 3.63340- 1 1.43919+ 11261 300203446
+ 3.83340- 1 1.43221+ 1 4.03340- 1 1.42504+ 1 4.28120- 1 1.41630+ 11261 300203447
+ 4.64920- 1 1.40392+ 1 5.04920- 1 1.39135+ 1 5.44920- 1 1.37946+ 11261 300203448
+ 5.84920- 1 1.36826+ 1 6.24920- 1 1.35755+ 1 6.64920- 1 1.34733+ 11261 300203449
+ 7.04920- 1 1.33741+ 1 7.44920- 1 1.32769+ 1 7.84920- 1 1.31826+ 11261 300203450
+ 8.24920- 1 1.30883+ 1 8.64920- 1 1.29949+ 1 9.04920- 1 1.28996+ 11261 300203451
+ 9.44920- 1 1.28014+ 1 9.84920- 1 1.26983+ 1 1.00000+ 0 1.26582+ 11261 300203452
+ 1.00000+ 0-7.23000- 1 1.05500+ 0-6.54500- 1 1.07300+ 0-6.43000- 11261 300203453
+ 1.09100+ 0-6.33900- 1 1.18200+ 0-5.48500- 1 1.20000+ 0-5.50000- 11261 300203454
+ 1.21800+ 0-5.85900- 1 1.23600+ 0-6.06200- 1 1.32700+ 0-6.84500- 11261 300203455
+ 1.36400+ 0-6.79500- 1 1.45500+ 0-6.70200- 1 1.54500+ 0-6.39800- 11261 300203456
+ 1.63600+ 0-6.16700- 1 1.72700+ 0-5.88200- 1 1.81800+ 0-5.61000- 11261 300203457
+ 1.90900+ 0-5.25500- 1 2.00000+ 0-4.20000- 1 2.18200+ 0-4.89800- 11261 300203458
+ 2.36400+ 0-4.42000- 1 2.45500+ 0-4.08400- 1 2.54500+ 0-3.69800- 11261 300203459
+ 2.63600+ 0-3.32000- 1 2.69100+ 0-3.05100- 1 2.74500+ 0-2.57000- 11261 300203460
+ 2.80000+ 0-2.20000- 1 2.81800+ 0-2.10800- 1 2.85500+ 0-1.84300- 11261 300203461
+ 2.92700+ 0-2.14500- 1 2.94500+ 0-2.64500- 1 3.01800+ 0-3.93600- 11261 300203462
+ 3.07200+ 0-2.15900- 1 3.18200+ 0-1.07900- 1 3.21800+ 0-2.43500- 11261 300203463
+ 3.27300+ 0-3.60800- 1 3.36400+ 0-3.78500- 1 3.45500+ 0-3.15900- 11261 300203464
+ 3.49100+ 0-2.59200- 1 3.54500+ 0-1.01700- 1 3.58200+ 0 3.70000- 31261 300203465
+ 3.63600+ 0-4.65000- 2 3.69100+ 0-2.90500- 1 3.72700+ 0-3.51500- 11261 300203466
+ 3.81800+ 0-3.70300- 1 3.90900+ 0-3.50800- 1 4.00000+ 0-3.26100- 11261 300203467
+ 4.09100+ 0-3.00100- 1 4.18200+ 0-2.73100- 1 4.36400+ 0-2.26600- 11261 300203468
+ 4.54500+ 0-1.72300- 1 4.63600+ 0-1.31800- 1 4.72700+ 0-5.06000- 21261 300203469
+ 4.78200+ 0 6.64000- 2 4.80000+ 0 1.30000- 1 4.83600+ 0 1.69100- 11261 300203470
+ 4.85500+ 0 3.38000- 2 4.89100+ 0-1.96700- 1 4.90900+ 0-2.14400- 11261 300203471
+ 4.94500+ 0-1.84600- 1 4.98100+ 0-1.59200- 1 5.09100+ 0-6.94000- 21261 300203472
+ 5.14500+ 0-4.32000- 2 5.18200+ 0-1.80000- 2 5.27300+ 0 3.59000- 21261 300203473
+ 5.30900+ 0 6.96000- 2 5.54500+ 0 8.00000- 2 5.65500+ 0 5.30000- 21261 300203474
+ 5.72700+ 0-2.71000- 2 5.81800+ 0-1.47600- 1 5.90900+ 0-1.86100- 11261 300203475
+ 6.00000+ 0-8.00000- 2 6.09100+ 0 2.38200- 1 6.16400+ 0 5.91400- 11261 300203476
+ 6.21800+ 0 5.95700- 1 6.25500+ 0 4.45100- 1 6.29100+ 0 2.92800- 11261 300203477
+ 6.41800+ 0-3.83200- 1 6.45500+ 0-5.34800- 1 6.49100+ 0-4.46100- 11261 300203478
+ 6.54500+ 0-3.87300- 1 6.63600+ 0-3.37400- 1 6.72700+ 0-2.89100- 11261 300203479
+ 6.81800+ 0-2.41600- 1 6.98200+ 0 2.86000- 2 7.18200+ 0-2.72000- 11261 300203480
+ 7.29100+ 0-2.65100- 1 7.81800+ 0-5.33000- 2 8.00000+ 0 5.00000- 21261 300203481
+ 8.18100+ 0 2.00000- 1 8.36300+ 0 4.24300- 1 8.45300+ 0 6.21900- 11261 300203482
+ 8.92500+ 0 2.73600- 1 9.01500+ 0-5.13200- 1 9.05200+ 0-5.31800- 11261 300203483
+ 9.10600+ 0-4.71500- 1 9.17900+ 0-3.31700- 1 9.23300+ 0-3.82800- 11261 300203484
+ 9.30600+ 0-1.31700- 1 9.36000+ 0 1.10000- 1 9.43200+ 0-2.41400- 11261 300203485
+ 9.45100+ 0-2.62200- 1 9.50500+ 0-2.75700- 1 9.54100+ 0-2.49100- 11261 300203486
+ 9.70400+ 0-1.08300- 1 9.75900+ 0-7.04000- 2 9.99500+ 0-1.75400- 11261 300203487
+ 1.00850+ 1-3.23000- 2 1.01760+ 1 2.20000- 2 1.02670+ 1-1.77400- 11261 300203488
+ 1.03390+ 1-2.20200- 1 1.04300+ 1-1.54400- 1 1.06290+ 1-1.49000- 21261 300203489
+ 1.07200+ 1 4.00000- 2 1.08110+ 1 5.44000- 2 1.09370+ 1 5.98000- 21261 300203490
+ 1.09920+ 1 4.34000- 2 1.12640+ 1 1.81000- 2 1.14090+ 1 1.09400- 11261 300203491
+ 1.14450+ 1 1.69100- 1 1.14810+ 1 2.53100- 1 1.15540+ 1 6.38500- 11261 300203492
+ 1.18620+ 1-6.35000- 1 1.18980+ 1-5.44400- 1 1.20000+ 1-3.80000- 11261 300203493
+ 1.20910+ 1-2.41400- 1 1.21450+ 1-1.48600- 1 1.22000+ 1-1.00000- 21261 300203494
+ 1.23500+ 1 2.20000- 1 1.24910+ 1 1.28600- 1 1.25440+ 1-4.22500- 11261 300203495
+ 1.40850+ 1 3.42500- 1 1.42670+ 1 7.35000- 2 1.43570+ 1-1.70000- 21261 300203496
+ 1.44120+ 1-7.81000- 2 1.44480+ 1-1.21400- 1 1.46110+ 1-2.71300- 11261 300203497
+ 1.46470+ 1-2.42500- 1 1.47370+ 1-2.20400- 1 1.49010+ 1-2.10300- 11261 300203498
+ 1.50000+ 1-1.99900- 1 1.50910+ 1-1.85700- 1 1.51820+ 1-1.38100- 11261 300203499
+ 1.52730+ 1-2.58000- 2 1.53640+ 1 3.46200- 1 1.54550+ 1 2.30000- 21261 300203500
+ 1.55450+ 1-2.30200- 1 1.56360+ 1-2.21500- 1 1.57270+ 1-1.85900- 11261 300203501
+ 1.58180+ 1-1.40800- 1 1.59090+ 1-3.77000- 2 1.60000+ 1 2.70000- 11261 300203502
+ 1.60910+ 1 4.00800- 1 1.61820+ 1-3.23600- 1 1.62730+ 1-2.93600- 11261 300203503
+ 1.63640+ 1-2.06000- 1 1.64360+ 1-1.26300- 1 1.64910+ 1-3.37000- 21261 300203504
+ 1.65450+ 1 1.06800- 1 1.66360+ 1 3.37600- 1 1.67270+ 1 1.42000- 11261 300203505
+ 1.68180+ 1-1.56700- 1 1.69090+ 1-2.20600- 1 1.69450+ 1-2.22700- 11261 300203506
+ 1.70000+ 1-2.10000- 1 1.70910+ 1-1.93900- 1 1.71810+ 1-1.80100- 11261 300203507
+ 1.72730+ 1-1.35000- 1 1.73640+ 1-1.11200- 1 1.74550+ 1-6.52000- 21261 300203508
+ 1.75450+ 1-1.52000- 2 1.76360+ 1 5.78000- 2 1.77270+ 1 1.59900- 11261 300203509
+ 1.78180+ 1 3.35900- 1 1.79090+ 1 6.35400- 1 1.80910+ 1 5.63600- 11261 300203510
+ 1.81820+ 1 1.80000- 3 1.82730+ 1-1.60400- 1 1.83640+ 1-1.40200- 11261 300203511
+ 1.84550+ 1-7.54000- 2 1.85450+ 1 1.46000- 2 1.86360+ 1 1.42100- 11261 300203512
+ 1.87270+ 1 3.27500- 1 1.88180+ 1 6.40300- 1 1.89090+ 1 1.11330+ 01261 300203513
+ 1.90000+ 1 4.50000- 1 1.93810+ 1 3.55680+ 0 1.94360+ 1 5.62000- 11261 300203514
+ 1.94550+ 1 3.32000- 2 1.94910+ 1-4.80600- 1 1.95090+ 1-6.06900- 11261 300203515
+ 1.95270+ 1-6.85200- 1 1.95450+ 1-7.31900- 1 1.96180+ 1-7.81000- 11261 300203516
+ 1.96720+ 1-7.64600- 1 1.97270+ 1-7.16800- 1 1.98180+ 1-6.31800- 11261 300203517
+ 1.99090+ 1-5.31600- 1 2.00000+ 1-3.90000- 1 2.00910+ 1-2.39100- 11261 300203518
+ 2.02730+ 1-3.19600- 1 2.03640+ 1-3.90800- 1 2.04550+ 1-3.29000- 11261 300203519
+ 2.05450+ 1-2.67000- 2 2.05820+ 1 1.13900- 1 2.06360+ 1-3.40000- 21261 300203520
+ 2.06730+ 1-2.60500- 1 2.07270+ 1-4.49500- 1 2.07640+ 1-4.83100- 11261 300203521
+ 2.08180+ 1-4.80100- 1 2.09090+ 1-4.39300- 1 2.10000+ 1-6.10000- 11261 300203522
+ 2.10360+ 1-6.20100- 1 2.10910+ 1 3.54600- 1 2.11270+ 1 7.29200- 11261 300203523
+ 2.11820+ 1 2.40100- 1 2.12180+ 1-3.90000- 2 2.12640+ 1-2.07400- 11261 300203524
+ 2.13640+ 1-3.02300- 1 2.14000+ 1-3.10000- 1 2.14550+ 1-3.17300- 11261 300203525
+ 2.15450+ 1-3.10000- 1 2.17270+ 1-2.80700- 1 2.19090+ 1-2.38000- 11261 300203526
+ 2.20910+ 1-1.82000- 1 2.22730+ 1-1.05600- 1 2.24550+ 1 0.00000+ 01261 300203527
+ 2.26360+ 1 1.95300- 1 2.28180+ 1 8.37600- 1 2.30000+ 1 3.00000- 11261 300203528
+ 2.31150+ 1-1.01500- 1 2.32300+ 1 3.17500- 1 2.34600+ 1-4.30000- 11261 300203529
+ 2.36900+ 1 8.68000- 1 2.38740+ 1 5.44000- 2 2.40110+ 1-1.10200- 11261 300203530
+ 2.41030+ 1 6.99000- 2 2.43790+ 1-1.12600- 1 2.46090+ 1-1.81600- 11261 300203531
+ 2.48390+ 1 9.84000- 2 2.50690+ 1 3.69000- 1 2.51610+ 1 4.71000- 11261 300203532
+ 2.53450+ 1 5.01800- 1 2.55290+ 1-3.74300- 1 2.55750+ 1-2.58500- 11261 300203533
+ 2.57130+ 1-2.43900- 1 2.58510+ 1-1.55100- 1 2.60340+ 1-1.39900- 11261 300203534
+ 2.61260+ 1-1.93600- 1 2.62180+ 1-2.40000- 1 2.64480+ 1-2.62300- 11261 300203535
+ 2.65400+ 1 2.00000- 2 2.70000+ 1-2.60000- 1 2.71380+ 1-3.00300- 11261 300203536
+ 2.73680+ 1-2.46700- 1 2.74140+ 1-2.40600- 1 2.75980+ 1-2.02300- 11261 300203537
+ 2.78280+ 1-2.80000- 2 2.80570+ 1-3.18700- 1 2.82870+ 1-4.07400- 11261 300203538
+ 2.84250+ 1-3.04500- 1 2.85170+ 1-2.50000- 1 2.87470+ 1-3.17000- 11261 300203539
+ 2.89770+ 1-2.29800- 1 2.92070+ 1-1.99900- 1 2.94370+ 1-1.41900- 11261 300203540
+ 2.96670+ 1-3.43000- 2 2.98970+ 1-1.90500- 1 3.00000+ 1-1.50000- 11261 300203541
+ 3.02290+ 1-2.04000- 2 3.04570+ 1 3.51900- 1 3.06860+ 1 2.23100- 11261 300203542
+ 3.07770+ 1 2.16000- 1 3.09140+ 1-3.77800- 1 3.09600+ 1-4.50000- 11261 300203543
+ 3.10970+ 1-2.93000- 1 3.11430+ 1-2.55800- 1 3.13710+ 1-8.52000- 21261 300203544
+ 3.16000+ 1 1.30000- 1 3.16910+ 1 2.60800- 1 3.18290+ 1 6.25400- 11261 300203545
+ 3.18740+ 1 8.12000- 1 3.19660+ 1 1.02670+ 0 3.20570+ 1 5.25500- 11261 300203546
+ 3.21940+ 1-1.93100- 1 3.22860+ 1-6.45000- 1 3.25140+ 1-4.08900- 11261 300203547
+ 3.27430+ 1-1.72400- 1 3.29710+ 1 1.05600- 1 3.32000+ 1 5.80000- 11261 300203548
+ 3.35200+ 1 1.82000+ 0 3.36110+ 1-6.70200- 1 3.37490+ 1-8.59900- 11261 300203549
+ 3.38860+ 1-2.26000- 1 3.41140+ 1 8.13600- 1 3.43430+ 1 2.20710+ 01261 300203550
+ 3.44340+ 1 1.82990+ 0 3.44800+ 1-4.50000- 1 3.45260+ 1-1.31390+ 01261 300203551
+ 3.45710+ 1-1.16850+ 0 3.46170+ 1-7.58800- 1 3.46630+ 1-3.21000- 11261 300203552
+ 3.47090+ 1 7.02000- 2 3.47540+ 1 2.12100- 1 3.48460+ 1 1.58200- 11261 300203553
+ 3.48910+ 1-2.69900- 1 3.50290+ 1-3.24750+ 0 3.52570+ 1 1.10360+ 11261 300203554
+ 3.54860+ 1-1.80000- 2 3.57140+ 1 2.14430+ 0 3.59430+ 1 3.48900- 11261 300203555
+ 3.66290+ 1-2.70000- 1 3.68570+ 1-2.50200- 1 3.70860+ 1-3.10000- 11261 300203556
+ 3.73140+ 1-2.63500- 1 3.75430+ 1-1.99600- 1 3.77710+ 1-1.90000- 11261 300203557
+ 3.80000+ 1-3.10000- 1 3.82290+ 1-9.29000- 2 3.84570+ 1-1.44200- 11261 300203558
+ 3.86860+ 1-2.91000- 1 3.89140+ 1-3.26300- 1 3.91430+ 1-3.89000- 11261 300203559
+ 3.92340+ 1-1.91600- 1 3.92800+ 1 5.10000- 1 3.93710+ 1 4.12280+ 01261 300203560
+ 3.95090+ 1 2.15200- 1 3.96000+ 1-4.70000- 1 3.96910+ 1-5.21000- 11261 300203561
+ 3.98290+ 1-4.48700- 1 3.99660+ 1-1.63800- 1 4.01940+ 1-3.78000- 11261 300203562
+ 4.05140+ 1 1.87700- 1 4.06970+ 1-1.43100- 1 4.07430+ 1-2.34900- 11261 300203563
+ 4.07890+ 1-3.00200- 1 4.09710+ 1-3.50700- 1 4.12000+ 1 1.60000- 11261 300203564
+ 4.14290+ 1 4.81000- 1 4.15660+ 1-1.28500- 1 4.16570+ 1-3.25800- 11261 300203565
+ 4.17940+ 1-2.53000- 1 4.19770+ 1-6.46400- 1 4.21140+ 1-7.18600- 11261 300203566
+ 4.22970+ 1-3.49500- 1 4.23890+ 1-3.65500- 1 4.25710+ 1-4.06100- 11261 300203567
+ 4.27090+ 1-3.34900- 1 4.28000+ 1-3.20000- 1 4.28910+ 1-3.25500- 11261 300203568
+ 4.30290+ 1-3.35100- 1 4.32110+ 1-2.59700- 1 4.33030+ 1-7.10000- 31261 300203569
+ 4.34860+ 1-5.91000- 2 4.36690+ 1-1.48700- 1 4.38060+ 1 4.36600- 11261 300203570
+ 4.40340+ 1-1.58500- 1 4.41710+ 1-2.47100- 1 4.44000+ 1-2.50000- 11261 300203571
+ 4.46290+ 1 3.58000- 1 4.48570+ 1-8.74100- 1 4.50860+ 1-4.74000- 11261 300203572
+ 4.53140+ 1-3.13000- 1 4.55430+ 1-2.81100- 1 4.57710+ 1-3.24500- 11261 300203573
+ 4.60000+ 1-3.20000- 1 4.61810+ 1-2.90000- 1 4.63630+ 1-2.59900- 11261 300203574
+ 4.65440+ 1-8.90000- 2 4.67260+ 1 1.07750+ 0 4.72700+ 1-4.44400- 11261 300203575
+ 4.74510+ 1-3.65100- 1 4.76330+ 1-2.93000- 1 4.77410+ 1-1.78300- 11261 300203576
+ 4.78870+ 1 4.66800- 1 4.79590+ 1 6.13100- 1 4.80680+ 1-2.86900- 11261 300203577
+ 4.81770+ 1-6.43000- 1 4.82860+ 1-4.01700- 1 4.83950+ 1-2.69500- 11261 300203578
+ 4.85400+ 1-3.60000- 1 4.86120+ 1-3.70100- 1 4.86850+ 1-3.13600- 11261 300203579
+ 4.88660+ 1-3.78700- 1 4.89340+ 1-6.71800- 1 4.90110+ 1-6.79200- 11261 300203580
+ 4.91200+ 1-4.80000- 1 4.91930+ 1-4.12400- 1 4.93380+ 1-3.51700- 11261 300203581
+ 4.95560+ 1-5.74300- 1 4.96640+ 1-4.78000- 1 4.97730+ 1-4.22400- 11261 300203582
+ 4.99550+ 1-2.14000- 1 5.01720+ 1-1.46500- 1 5.18050+ 1-1.07160+ 01261 300203583
+ 5.25310+ 1-5.64600- 1 5.27120+ 1-4.23400- 1 5.32560+ 1-5.35200- 11261 300203584
+ 5.34380+ 1-6.20400- 1 5.36190+ 1-4.70500- 1 5.38000+ 1-4.50000- 11261 300203585
+ 5.40000+ 1-4.20000- 1 5.41810+ 1-3.60400- 1 5.43630+ 1-4.09600- 11261 300203586
+ 5.45440+ 1-3.49700- 1 5.47260+ 1-1.55100- 1 5.49070+ 1 5.98400- 11261 300203587
+ 5.50880+ 1 4.56200- 1 5.52700+ 1-1.19370+ 0 5.54510+ 1-1.01860+ 01261 300203588
+ 5.56330+ 1-3.39000- 1 5.58140+ 1 4.76100- 1 5.59950+ 1-1.33820+ 01261 300203589
+ 5.61770+ 1-2.49400+ 0 5.62860+ 1-3.25280+ 0 5.63580+ 1-4.15170+ 01261 300203590
+ 5.64310+ 1-4.26260+ 0 5.66490+ 1-8.64300- 1 5.67940+ 1 7.91000- 21261 300203591
+ 5.69020+ 1 8.20000- 3 5.71200+ 1-2.68800- 1 5.72650+ 1-4.27300- 11261 300203592
+ 5.76280+ 1-8.38000- 1 5.78100+ 1-7.58700- 1 5.79910+ 1-2.10170+ 01261 300203593
+ 5.81720+ 1-3.12400- 1 5.83170+ 1-2.70600- 1 5.83900+ 1-5.18800- 11261 300203594
+ 5.84990+ 1-1.11260+ 0 5.85710+ 1-1.76280+ 0 5.86800+ 1-1.75000+ 01261 300203595
+ 5.88250+ 1 1.51800- 1 5.90070+ 1 4.23000- 2 5.91160+ 1-9.60000- 21261 300203596
+ 5.94420+ 1-3.61400- 1 5.96240+ 1-4.01800- 1 5.98050+ 1-3.46900- 11261 300203597
+ 6.21810+ 1-6.11200- 1 6.22900+ 1-7.35000- 1 6.25440+ 1-6.47800- 11261 300203598
+ 6.27260+ 1-5.16500- 1 6.37410+ 1-8.79900- 1 6.39230+ 1-9.50000- 11261 300203599
+ 6.40320+ 1-9.49400- 1 6.41410+ 1-1.02210+ 0 6.42490+ 1-1.37500+ 01261 300203600
+ 6.43220+ 1-1.38680+ 0 6.44310+ 1-9.64700- 1 6.45400+ 1-7.30000- 11261 300203601
+ 6.46490+ 1-6.40500- 1 6.47210+ 1-6.09400- 1 6.49020+ 1-5.59700- 11261 300203602
+ 6.52650+ 1-5.10000- 1 6.54470+ 1-5.10000- 1 6.56280+ 1-5.91300- 11261 300203603
+ 6.57730+ 1-7.47800- 1 6.58820+ 1-6.78200- 1 6.59910+ 1-5.79000- 11261 300203604
+ 6.61000+ 1-5.50000- 1 6.61720+ 1-5.62100- 1 6.63540+ 1-8.14500- 11261 300203605
+ 6.64630+ 1-7.55500- 1 6.65710+ 1-7.64500- 1 6.68250+ 1-5.01800- 11261 300203606
+ 6.76240+ 1-5.20000- 1 6.78050+ 1-5.30500- 1 6.81680+ 1-5.10600- 11261 300203607
+ 6.85310+ 1-4.54300- 1 6.94000+ 1-3.30000- 1 6.96190+ 1-5.89600- 11261 300203608
+ 6.98000+ 1-6.00000- 1 7.00000+ 1-5.40000- 1 7.01810+ 1-4.43000- 21261 300203609
+ 7.03630+ 1 1.44310+ 0 7.05440+ 1-1.40260+ 0 7.07260+ 1-2.54730+ 01261 300203610
+ 7.09070+ 1-1.38780+ 0 7.10880+ 1-7.81300- 1 7.12700+ 1-6.74400- 11261 300203611
+ 7.15600+ 1-1.00000+ 0 7.18140+ 1-8.22400- 1 7.19230+ 1-8.31300- 11261 300203612
+ 7.19950+ 1-8.84600- 1 7.20680+ 1-9.76500- 1 7.21040+ 1-1.02890+ 01261 300203613
+ 7.21770+ 1-1.20210+ 0 7.23220+ 1-1.48910+ 0 7.25030+ 1-5.78000- 11261 300203614
+ 7.26850+ 1-7.39500- 1 7.27210+ 1-8.83900- 1 7.28300+ 1-1.27120+ 01261 300203615
+ 7.29020+ 1-1.36990+ 0 7.29750+ 1-1.30790+ 0 7.30840+ 1-1.11170+ 01261 300203616
+ 7.32650+ 1-8.78300- 1 7.36280+ 1-7.66700- 1 7.38100+ 1-7.69900- 11261 300203617
+ 7.39910+ 1-8.04900- 1 7.44260+ 1-8.96500- 1 7.45710+ 1-4.46500- 11261 300203618
+ 7.47890+ 1-8.48000- 1 7.48250+ 1-9.20400- 1 7.48620+ 1-9.83900- 11261 300203619
+ 7.48980+ 1-1.04720+ 0 7.49340+ 1-1.09390+ 0 7.49710+ 1-1.13670+ 01261 300203620
+ 7.50430+ 1-1.14640+ 0 7.50790+ 1-1.10120+ 0 7.51880+ 1-8.81300- 11261 300203621
+ 7.54420+ 1-2.06120+ 0 7.55870+ 1-2.07910+ 0 7.58050+ 1-1.33400+ 01261 300203622
+ 7.60230+ 1-9.47000- 1 7.61680+ 1-8.55400- 1 7.67480+ 1-1.02510+ 01261 300203623
+ 7.69660+ 1-8.99400- 1 7.71110+ 1-9.04900- 1 7.75620+ 1-1.10810+ 01261 300203624
+ 7.76190+ 1-1.06090+ 0 7.83000+ 1-1.21000+ 0 7.83630+ 1-1.08520+ 01261 300203625
+ 7.85440+ 1-9.68200- 1 7.87260+ 1-9.61100- 1 7.89070+ 1-9.60000- 11261 300203626
+ 7.90880+ 1-9.90600- 1 7.92700+ 1-1.03000+ 0 7.94510+ 1-1.12550+ 01261 300203627
+ 7.98140+ 1-1.11300+ 0 7.99950+ 1-1.13970+ 0 8.00680+ 1-1.20800+ 01261 300203628
+ 8.02490+ 1-1.52470+ 0 8.04670+ 1-1.43340+ 0 8.07570+ 1-1.21980+ 01261 300203629
+ 8.08660+ 1-1.23350+ 0 8.09750+ 1-1.25710+ 0 8.10840+ 1-1.30350+ 01261 300203630
+ 8.13380+ 1-1.68580+ 0 8.15190+ 1-1.65140+ 0 8.16280+ 1-1.49200+ 01261 300203631
+ 8.18100+ 1-1.41940+ 0 8.20000+ 1-1.46000+ 0 8.20000+ 1 0.00000+ 01261 300203632
+ 1.00000+ 3 0.00000+ 0 1.30553+ 4 0.00000+ 0 2.50000+ 4 0.00000+ 01261 300203633
+ 2.50000+ 4 1.11429+ 1 2.53000+ 4 1.11458+ 1 2.57000+ 4 1.11497+ 11261 300203634
+ 2.62000+ 4 1.11501+ 1 2.65000+ 4 1.11464+ 1 2.72000+ 4 1.11277+ 11261 300203635
+ 2.75000+ 4 1.11089+ 1 2.83000+ 4 1.10176+ 1 2.88000+ 4 1.09181+ 11261 300203636
+ 2.93000+ 4 1.09370+ 1 2.98000+ 4 1.10325+ 1 3.00000+ 4 1.10702+ 11261 300203637
+ 3.11000+ 4 1.09636+ 1 3.13000+ 4 1.09214+ 1 3.18000+ 4 1.08174+ 11261 300203638
+ 3.21000+ 4 1.07932+ 1 3.25000+ 4 1.08605+ 1 3.28000+ 4 1.09104+ 11261 300203639
+ 3.42000+ 4 1.09658+ 1 3.45000+ 4 1.09959+ 1 3.50000+ 4 1.10455+ 11261 300203640
+ 3.62000+ 4 1.08960+ 1 3.65000+ 4 1.09589+ 1 3.70000+ 4 1.10626+ 11261 300203641
+ 3.79000+ 4 1.08798+ 1 3.87000+ 4 1.09220+ 1 3.91000+ 4 1.09421+ 11261 300203642
+ 3.94000+ 4 1.09234+ 1 4.00000+ 4 1.08866+ 1 4.04000+ 4 1.07947+ 11261 300203643
+ 4.10000+ 4 1.06589+ 1 4.15000+ 4 1.07376+ 1 4.20000+ 4 1.08151+ 11261 300203644
+ 4.30000+ 4 1.07398+ 1 4.36000+ 4 1.07359+ 1 4.38000+ 4 1.07346+ 11261 300203645
+ 4.43000+ 4 1.07430+ 1 4.48000+ 4 1.07589+ 1 4.50000+ 4 1.07652+ 11261 300203646
+ 4.52000+ 4 1.07745+ 1 4.54000+ 4 1.07837+ 1 4.60000+ 4 1.08112+ 11261 300203647
+ 4.62000+ 4 1.07823+ 1 4.65000+ 4 1.07391+ 1 4.68000+ 4 1.06963+ 11261 300203648
+ 4.73000+ 4 1.07036+ 1 4.76000+ 4 1.07391+ 1 4.82000+ 4 1.07607+ 11261 300203649
+ 4.84000+ 4 1.07355+ 1 4.88000+ 4 1.06855+ 1 4.90000+ 4 1.06607+ 11261 300203650
+ 5.00000+ 4 1.07389+ 1 5.02000+ 4 1.07193+ 1 5.06000+ 4 1.06804+ 11261 300203651
+ 5.09000+ 4 1.06514+ 1 5.12000+ 4 1.06358+ 1 5.15000+ 4 1.06271+ 11261 300203652
+ 5.22000+ 4 1.05704+ 1 5.25000+ 4 1.05074+ 1 5.35000+ 4 1.03931+ 11261 300203653
+ 5.39000+ 4 1.03850+ 1 5.42000+ 4 1.03764+ 1 5.46000+ 4 1.03632+ 11261 300203654
+ 5.50000+ 4 1.03499+ 1 5.53000+ 4 1.03424+ 1 5.57000+ 4 1.03323+ 11261 300203655
+ 5.61000+ 4 1.03277+ 1 5.67000+ 4 1.03452+ 1 5.71000+ 4 1.03459+ 11261 300203656
+ 5.76000+ 4 1.03074+ 1 5.79000+ 4 1.02856+ 1 5.83000+ 4 1.02968+ 11261 300203657
+ 5.87000+ 4 1.03213+ 1 5.91000+ 4 1.03416+ 1 5.92000+ 4 1.03439+ 11261 300203658
+ 5.98000+ 4 1.03567+ 1 6.00000+ 4 1.03609+ 1 6.03000+ 4 1.03104+ 11261 300203659
+ 6.12000+ 4 1.02057+ 1 6.15000+ 4 1.02239+ 1 6.20000+ 4 1.02540+ 11261 300203660
+ 6.25000+ 4 1.02242+ 1 6.29000+ 4 1.02005+ 1 6.32000+ 4 1.01800+ 11261 300203661
+ 6.42000+ 4 1.01535+ 1 6.47000+ 4 1.02310+ 1 6.50000+ 4 1.02772+ 11261 300203662
+ 6.51000+ 4 1.02620+ 1 6.61000+ 4 1.01289+ 1 6.65000+ 4 1.01381+ 11261 300203663
+ 6.70000+ 4 1.01496+ 1 6.74000+ 4 1.01056+ 1 6.80000+ 4 1.00400+ 11261 300203664
+ 6.83000+ 4 1.00592+ 1 6.89000+ 4 1.00974+ 1 6.94000+ 4 1.01027+ 11261 300203665
+ 7.00000+ 4 1.01012+ 1 7.03000+ 4 1.00916+ 1 7.09000+ 4 1.00727+ 11261 300203666
+ 7.20000+ 4 1.00383+ 1 7.25000+ 4 9.96305+ 0 7.31000+ 4 9.89059+ 01261 300203667
+ 7.37000+ 4 9.90421+ 0 7.41000+ 4 9.90127+ 0 7.48000+ 4 9.83393+ 01261 300203668
+ 7.50000+ 4 9.81484+ 0 7.53000+ 4 9.82229+ 0 7.58000+ 4 9.83457+ 01261 300203669
+ 7.65000+ 4 9.91810+ 0 7.70000+ 4 9.99628+ 0 7.76000+ 4 9.93195+ 01261 300203670
+ 7.84000+ 4 9.86768+ 0 7.89000+ 4 9.84085+ 0 7.94000+ 4 9.90933+ 01261 300203671
+ 8.00000+ 4 1.00192+ 1 8.07000+ 4 9.88839+ 0 8.20000+ 4 9.77840+ 01261 300203672
+ 8.27000+ 4 9.78663+ 0 8.33000+ 4 9.82537+ 0 8.40000+ 4 9.90701+ 01261 300203673
+ 8.47000+ 4 9.76373+ 0 8.50000+ 4 9.70269+ 0 8.53000+ 4 9.74724+ 01261 300203674
+ 8.61000+ 4 9.85479+ 0 8.68000+ 4 9.88477+ 0 8.75000+ 4 9.80332+ 01261 300203675
+ 8.83000+ 4 9.72688+ 0 8.90000+ 4 9.75708+ 0 9.00000+ 4 9.61748+ 01261 300203676
+ 9.03000+ 4 9.60760+ 0 9.12000+ 4 9.63051+ 0 9.28000+ 4 9.66139+ 01261 300203677
+ 9.36000+ 4 9.57296+ 0 9.44000+ 4 9.54197+ 0 9.50000+ 4 9.54616+ 01261 300203678
+ 9.52000+ 4 9.52134+ 0 9.60000+ 4 9.42292+ 0 9.68000+ 4 9.30361+ 01261 300203679
+ 9.77000+ 4 9.37055+ 0 9.85000+ 4 9.35031+ 0 9.93000+ 4 9.29168+ 01261 300203680
+ 9.99000+ 4 9.29640+ 0 1.00000+ 5 9.35712+ 0 1.03000+ 5 9.29190+ 01261 300203681
+ 1.20000+ 5 8.98527+ 0 1.35000+ 5 8.75083+ 0 1.40000+ 5 8.68118+ 01261 300203682
+ 1.50000+ 5 8.54895+ 0 1.60000+ 5 8.41517+ 0 1.73000+ 5 8.26086+ 01261 300203683
+ 1.80000+ 5 8.17655+ 0 2.00000+ 5 7.95773+ 0 2.07000+ 5 7.89548+ 01261 300203684
+ 2.15000+ 5 7.81552+ 0 2.20000+ 5 7.76572+ 0 2.25000+ 5 7.71662+ 01261 300203685
+ 2.35000+ 5 7.61841+ 0 2.40000+ 5 7.55978+ 0 2.50000+ 5 7.44112+ 01261 300203686
+ 2.60000+ 5 7.34357+ 0 2.70000+ 5 7.25300+ 0 2.80000+ 5 7.17025+ 01261 300203687
+ 3.00000+ 5 7.01935+ 0 3.20000+ 5 6.91112+ 0 3.25000+ 5 6.87701+ 01261 300203688
+ 3.40000+ 5 6.76577+ 0 3.50000+ 5 6.69566+ 0 3.60000+ 5 6.62927+ 01261 300203689
+ 3.80000+ 5 6.48937+ 0 4.00000+ 5 6.35799+ 0 4.20000+ 5 6.22755+ 01261 300203690
+ 4.40000+ 5 6.10432+ 0 4.50000+ 5 6.04557+ 0 4.60000+ 5 5.99279+ 01261 300203691
+ 4.70000+ 5 5.94014+ 0 4.80000+ 5 5.87860+ 0 5.00000+ 5 5.78554+ 01261 300203692
+ 5.20000+ 5 5.72881+ 0 5.40000+ 5 5.62343+ 0 5.50000+ 5 5.57821+ 01261 300203693
+ 5.60000+ 5 5.52816+ 0 5.70000+ 5 5.48137+ 0 5.80000+ 5 5.43503+ 01261 300203694
+ 6.00000+ 5 5.34418+ 0 6.20000+ 5 5.22893+ 0 6.40000+ 5 5.11856+ 01261 300203695
+ 6.50000+ 5 5.06472+ 0 6.60000+ 5 5.02144+ 0 6.70000+ 5 4.98002+ 01261 300203696
+ 6.80000+ 5 4.93952+ 0 7.00000+ 5 4.86155+ 0 7.20000+ 5 4.80316+ 01261 300203697
+ 7.30000+ 5 4.77431+ 0 7.40000+ 5 4.74539+ 0 7.50000+ 5 4.71685+ 01261 300203698
+ 7.60000+ 5 4.68821+ 0 7.70000+ 5 4.65932+ 0 7.75000+ 5 4.64526+ 01261 300203699
+ 7.80000+ 5 4.63172+ 0 8.00000+ 5 4.57682+ 0 8.20000+ 5 4.53241+ 01261 300203700
+ 8.40000+ 5 4.49077+ 0 8.50000+ 5 4.46844+ 0 8.60000+ 5 4.43631+ 01261 300203701
+ 8.80000+ 5 4.38990+ 0 9.00000+ 5 4.33837+ 0 9.20000+ 5 4.30082+ 01261 300203702
+ 9.40000+ 5 4.26525+ 0 9.50000+ 5 4.24835+ 0 9.60000+ 5 4.22363+ 01261 300203703
+ 9.70000+ 5 4.19869+ 0 9.80000+ 5 4.17527+ 0 1.00000+ 6 4.13021+ 01261 300203704
+ 1.05000+ 6 4.04573+ 0 1.10000+ 6 3.98198+ 0 1.15000+ 6 3.93440+ 01261 300203705
+ 1.20000+ 6 3.90016+ 0 1.25000+ 6 3.87779+ 0 1.29500+ 6 3.86540+ 01261 300203706
+ 1.30000+ 6 3.86430+ 0 1.35000+ 6 3.85830+ 0 1.40000+ 6 3.85726+ 01261 300203707
+ 1.45000+ 6 3.86004+ 0 1.49500+ 6 3.86432+ 0 1.50000+ 6 3.86399+ 01261 300203708
+ 1.60000+ 6 3.89181+ 0 1.70000+ 6 3.93256+ 0 1.80000+ 6 3.98158+ 01261 300203709
+ 1.90000+ 6 4.03552+ 0 2.00000+ 6 4.09348+ 0 2.10000+ 6 4.17963+ 01261 300203710
+ 2.20000+ 6 4.26409+ 0 2.30000+ 6 4.34612+ 0 2.40000+ 6 4.42353+ 01261 300203711
+ 2.50000+ 6 4.49713+ 0 2.60000+ 6 4.55466+ 0 2.70000+ 6 4.60793+ 01261 300203712
+ 2.80000+ 6 4.65487+ 0 2.90000+ 6 4.69731+ 0 3.00000+ 6 4.73367+ 01261 300203713
+ 3.10000+ 6 4.77721+ 0 3.20000+ 6 4.81675+ 0 3.30000+ 6 4.85131+ 01261 300203714
+ 3.40000+ 6 4.88109+ 0 3.50000+ 6 4.90621+ 0 3.60000+ 6 4.92158+ 01261 300203715
+ 3.70000+ 6 4.93226+ 0 3.80000+ 6 4.94143+ 0 3.90000+ 6 4.94065+ 01261 300203716
+ 4.00000+ 6 4.93921+ 0 4.10000+ 6 4.93166+ 0 4.20000+ 6 4.91724+ 01261 300203717
+ 4.30000+ 6 4.90105+ 0 4.40000+ 6 4.87748+ 0 4.50000+ 6 4.85004+ 01261 300203718
+ 4.60000+ 6 4.82111+ 0 4.70000+ 6 4.78697+ 0 4.80000+ 6 4.75513+ 01261 300203719
+ 4.90000+ 6 4.73497+ 0 5.00000+ 6 4.69487+ 0 5.10000+ 6 4.65436+ 01261 300203720
+ 5.15000+ 6 4.64168+ 0 5.20000+ 6 4.62634+ 0 5.25000+ 6 4.61389+ 01261 300203721
+ 5.30000+ 6 4.60013+ 0 5.32858+ 6 4.59235+ 0 5.35000+ 6 4.58654+ 01261 300203722
+ 5.40000+ 6 4.57206+ 0 5.45000+ 6 4.55881+ 0 5.50000+ 6 4.54879+ 01261 300203723
+ 5.55000+ 6 4.53917+ 0 5.60000+ 6 4.52796+ 0 5.65000+ 6 4.50845+ 01261 300203724
+ 5.70000+ 6 4.48283+ 0 5.75000+ 6 4.45919+ 0 5.80000+ 6 4.43670+ 01261 300203725
+ 5.90000+ 6 4.37850+ 0 6.00000+ 6 4.36281+ 0 6.10000+ 6 4.34713+ 01261 300203726
+ 6.20000+ 6 4.33558+ 0 6.30000+ 6 4.32131+ 0 6.40000+ 6 4.30246+ 01261 300203727
+ 6.50000+ 6 4.28242+ 0 6.60000+ 6 4.24441+ 0 6.70000+ 6 4.20402+ 01261 300203728
+ 6.80000+ 6 4.16974+ 0 6.90000+ 6 4.12672+ 0 7.00000+ 6 4.08649+ 01261 300203729
+ 7.10000+ 6 4.05314+ 0 7.20000+ 6 4.02849+ 0 7.30000+ 6 4.00408+ 01261 300203730
+ 7.40000+ 6 3.99018+ 0 7.50000+ 6 3.95601+ 0 7.60000+ 6 3.92972+ 01261 300203731
+ 7.65000+ 6 3.90800+ 0 7.70000+ 6 3.88800+ 0 7.80000+ 6 3.85100+ 01261 300203732
+ 7.90000+ 6 3.81416+ 0 8.00000+ 6 3.78514+ 0 8.20000+ 6 3.71946+ 01261 300203733
+ 8.40000+ 6 3.66517+ 0 8.50000+ 6 3.63814+ 0 8.60000+ 6 3.61513+ 01261 300203734
+ 8.80000+ 6 3.57019+ 0 9.00000+ 6 3.53847+ 0 9.20000+ 6 3.50497+ 01261 300203735
+ 9.40000+ 6 3.48025+ 0 9.50000+ 6 3.46715+ 0 9.60000+ 6 3.45788+ 01261 300203736
+ 9.80000+ 6 3.43873+ 0 1.00000+ 7 3.42372+ 0 1.05000+ 7 3.40209+ 01261 300203737
+ 1.10000+ 7 3.38773+ 0 1.15000+ 7 3.37146+ 0 1.19000+ 7 3.33158+ 01261 300203738
+ 1.20000+ 7 3.31682+ 0 1.21988+ 7 3.28614+ 0 1.25000+ 7 3.24059+ 01261 300203739
+ 1.30000+ 7 3.17585+ 0 1.35000+ 7 3.13889+ 0 1.40000+ 7 3.13255+ 01261 300203740
+ 1.45000+ 7 3.15571+ 0 1.50000+ 7 3.21186+ 0 1.55000+ 7 3.26402+ 01261 300203741
+ 1.60000+ 7 3.32517+ 0 1.65000+ 7 3.38581+ 0 1.70000+ 7 3.46042+ 01261 300203742
+ 1.75000+ 7 3.53854+ 0 1.80000+ 7 3.61561+ 0 1.85000+ 7 3.69369+ 01261 300203743
+ 1.90000+ 7 3.75055+ 0 1.95000+ 7 3.79526+ 0 2.00000+ 7 3.82230+ 01261 300203744
+                                                                  1261 300003745
+ 9.22350+ 4 2.33025+ 2          0         99          0          01261 300303746
+ 0.00000+ 0-1.30000+ 4          0          0          3        9341261 300303747
+         57          5        602          2        934          31261 300303748
+ 1.00000- 5 3.67323+ 4 1.00000- 3 3.66403+ 3 5.00000- 3 1.62191+ 31261 300303749
+ 1.00000- 2 1.13208+ 3 1.50000- 2 9.11440+ 2 2.00000- 2 7.78881+ 21261 300303750
+ 2.53000- 2 6.83100+ 2 3.00000- 2 6.19983+ 2 3.50000- 2 5.67085+ 21261 300303751
+ 4.00000- 2 5.24239+ 2 4.50000- 2 4.88665+ 2 5.00000- 2 4.58385+ 21261 300303752
+ 5.50000- 2 4.32261+ 2 6.00000- 2 4.09448+ 2 6.50000- 2 3.89342+ 21261 300303753
+ 7.00000- 2 3.71471+ 2 7.50000- 2 3.55515+ 2 8.00000- 2 3.41552+ 21261 300303754
+ 8.50000- 2 3.28766+ 2 9.00000- 2 3.17188+ 2 9.50000- 2 3.06705+ 21261 300303755
+ 1.00000- 1 2.97295+ 2 1.10000- 1 2.80602+ 2 1.20000- 1 2.66190+ 21261 300303756
+ 1.30000- 1 2.53798+ 2 1.40000- 1 2.43379+ 2 1.50000- 1 2.35605+ 21261 300303757
+ 1.60000- 1 2.29006+ 2 1.70000- 1 2.23654+ 2 1.80000- 1 2.19474+ 21261 300303758
+ 2.03340- 1 2.16922+ 2 2.23340- 1 2.20282+ 2 2.43340- 1 2.28562+ 21261 300303759
+ 2.63340- 1 2.38332+ 2 2.83340- 1 2.44560+ 2 3.03340- 1 2.37434+ 21261 300303760
+ 3.23340- 1 2.13497+ 2 3.43340- 1 1.85922+ 2 3.63340- 1 1.65289+ 21261 300303761
+ 3.83340- 1 1.47041+ 2 4.03340- 1 1.32438+ 2 4.28120- 1 1.18036+ 21261 300303762
+ 4.64920- 1 1.02903+ 2 5.04920- 1 9.14896+ 1 5.44920- 1 8.30035+ 11261 300303763
+ 5.84920- 1 7.66133+ 1 6.24920- 1 7.18640+ 1 6.64920- 1 6.82295+ 11261 300303764
+ 7.04920- 1 6.53731+ 1 7.44920- 1 6.32132+ 1 7.84920- 1 6.18291+ 11261 300303765
+ 8.24920- 1 6.13258+ 1 8.64920- 1 6.19560+ 1 9.04920- 1 6.41003+ 11261 300303766
+ 9.44920- 1 6.79709+ 1 9.84920- 1 7.39957+ 1 1.00000+ 0 7.77925+ 11261 300303767
+ 1.00000+ 0 1.03610+ 1 1.05500+ 0 9.95000+ 0 1.07300+ 0 9.17000+ 01261 300303768
+ 1.09100+ 0 7.83000+ 0 1.18200+ 0-1.85800+ 1 1.20000+ 0-2.25000+ 11261 300303769
+ 1.21800+ 0-2.38600+ 1 1.23600+ 0-2.38600+ 1 1.32700+ 0-1.42900+ 11261 300303770
+ 1.36400+ 0-1.21400+ 1 1.45500+ 0-8.21000+ 0 1.54500+ 0-6.07000+ 01261 300303771
+ 1.63600+ 0-4.64000+ 0 1.72700+ 0-3.57000+ 0 1.81800+ 0-2.86000+ 01261 300303772
+ 1.90900+ 0-2.14000+ 0 2.00000+ 0-2.14000+ 0 2.18200+ 0-1.43000+ 01261 300303773
+ 2.36400+ 0-7.10000- 1 2.45500+ 0-1.07000+ 0 2.54500+ 0-1.79000+ 01261 300303774
+ 2.63600+ 0-3.57000+ 0 2.69100+ 0-2.86000+ 0 2.74500+ 0-2.00000+ 01261 300303775
+ 2.80000+ 0 1.43000+ 0 2.81800+ 0 1.78000+ 0 2.85500+ 0 7.10000- 11261 300303776
+ 2.92700+ 0-7.10000- 1 2.94500+ 0-7.10000- 1 3.01800+ 0 3.57000+ 01261 300303777
+ 3.07200+ 0 3.57000+ 0 3.18200+ 0-3.57000+ 0 3.21800+ 0-3.21000+ 01261 300303778
+ 3.27300+ 0-1.43000+ 0 3.36400+ 0 2.14000+ 0 3.45500+ 0 6.50000+ 01261 300303779
+ 3.49100+ 0 7.10000+ 0 3.54500+ 0 6.80000+ 0 3.58200+ 0 0.00000+ 01261 300303780
+ 3.63600+ 0 0.00000+ 0 3.69100+ 0-4.12000+ 0 3.72700+ 0-7.40000+ 01261 300303781
+ 3.81800+ 0-6.43000+ 0 3.90900+ 0-5.36000+ 0 4.00000+ 0-4.40000+ 01261 300303782
+ 4.09100+ 0-3.70000+ 0 4.18200+ 0-3.14000+ 0 4.36400+ 0-2.29000+ 01261 300303783
+ 4.54500+ 0-2.14000+ 0 4.63600+ 0-6.50000- 1 4.72700+ 0 2.14000+ 01261 300303784
+ 4.78200+ 0 1.00000+ 0 4.80000+ 0 7.10000- 1 4.83600+ 0 7.10000- 11261 300303785
+ 4.85500+ 0-4.29000+ 0 4.89100+ 0-7.83000+ 0 4.90900+ 0-4.14000+ 01261 300303786
+ 4.94500+ 0-2.86000+ 0 4.98100+ 0-2.43000+ 0 5.09100+ 0-2.43000+ 01261 300303787
+ 5.14500+ 0-2.50000+ 0 5.18200+ 0-2.14000+ 0 5.27300+ 0-1.07000+ 01261 300303788
+ 5.30900+ 0-7.10000- 1 5.54500+ 0-7.10000- 1 5.65500+ 0-1.79000+ 01261 300303789
+ 5.72700+ 0-1.43000+ 0 5.81800+ 0 0.00000+ 0 5.90900+ 0 1.64000+ 01261 300303790
+ 6.00000+ 0 2.86000+ 0 6.09100+ 0 2.50000+ 0 6.16400+ 0 2.93000+ 01261 300303791
+ 6.21800+ 0 1.21000+ 0 6.25500+ 0-1.79000+ 0 6.29100+ 0 0.00000+ 01261 300303792
+ 6.41800+ 0 0.00000+ 0 6.45500+ 0-2.86000+ 0 6.49100+ 0-2.86000+ 01261 300303793
+ 6.54500+ 0-2.14000+ 0 6.63600+ 0-4.28000+ 0 6.72700+ 0-3.71000+ 01261 300303794
+ 6.81800+ 0-2.14000+ 0 6.98200+ 0 0.00000+ 0 7.18200+ 0 0.00000+ 01261 300303795
+ 7.29100+ 0-3.57000+ 0 7.81800+ 0-3.93000+ 0 8.00000+ 0-2.29000+ 01261 300303796
+ 8.18100+ 0-1.72000+ 0 8.36300+ 0-2.10000- 1 8.45300+ 0 0.00000+ 01261 300303797
+ 8.92500+ 0 0.00000+ 0 9.01500+ 0 2.57200+ 1 9.05200+ 0 2.92900+ 11261 300303798
+ 9.10600+ 0 2.92900+ 1 9.17900+ 0 1.42900+ 1 9.23300+ 0 2.14000+ 01261 300303799
+ 9.30600+ 0-1.43000+ 0 9.36000+ 0-2.50000+ 0 9.43200+ 0 7.86000+ 01261 300303800
+ 9.45100+ 0 9.64000+ 0 9.50500+ 0 9.29000+ 0 9.54100+ 0 8.21000+ 01261 300303801
+ 9.70400+ 0 0.00000+ 0 9.75900+ 0-2.14000+ 0 9.99500+ 0-2.14000+ 01261 300303802
+ 1.00850+ 1-1.43000+ 0 1.01760+ 1-2.14000+ 0 1.02670+ 1-2.14000+ 01261 300303803
+ 1.03390+ 1 1.43000+ 0 1.04300+ 1 2.14000+ 0 1.06290+ 1-5.70000- 11261 300303804
+ 1.07200+ 1-2.80000- 1 1.08110+ 1 2.10000- 1 1.09370+ 1 7.00000- 21261 300303805
+ 1.09920+ 1 7.10000- 1 1.12640+ 1 4.50000+ 0 1.14090+ 1 5.45000+ 01261 300303806
+ 1.14450+ 1 5.76000+ 0 1.14810+ 1 5.60000+ 0 1.15540+ 1 0.00000+ 01261 300303807
+ 1.18620+ 1 0.00000+ 0 1.18980+ 1 3.50000+ 0 1.20000+ 1 7.40000+ 01261 300303808
+ 1.20910+ 1 1.14300+ 1 1.21450+ 1 1.53500+ 1 1.22000+ 1 1.36400+ 11261 300303809
+ 1.23500+ 1 0.00000+ 0 1.24910+ 1 0.00000+ 0 1.25440+ 1 0.00000+ 01261 300303810
+ 1.40850+ 1 0.00000+ 0 1.42670+ 1 2.86000+ 0 1.43570+ 1 5.71000+ 01261 300303811
+ 1.44120+ 1 5.71000+ 0 1.44480+ 1 4.71000+ 0 1.46110+ 1-5.00000+ 01261 300303812
+ 1.46470+ 1-4.50000+ 0 1.47370+ 1-2.47000+ 0 1.49010+ 1 5.70000- 11261 300303813
+ 1.50000+ 1 0.00000+ 0 1.50910+ 1 7.10000- 1 1.51820+ 1 7.10000- 11261 300303814
+ 1.52730+ 1 0.00000+ 0 1.53640+ 1 0.00000+ 0 1.54550+ 1 0.00000+ 01261 300303815
+ 1.55450+ 1-1.43000+ 0 1.56360+ 1-1.44000+ 0 1.57270+ 1 0.00000+ 01261 300303816
+ 1.58180+ 1 1.07000+ 0 1.59090+ 1 9.30000- 1 1.60000+ 1 0.00000+ 01261 300303817
+ 1.60910+ 1 0.00000+ 0 1.61820+ 1 0.00000+ 0 1.62730+ 1-2.15000+ 01261 300303818
+ 1.63640+ 1-3.95000+ 0 1.64360+ 1-3.93000+ 0 1.64910+ 1-4.29000+ 01261 300303819
+ 1.65450+ 1-4.29000+ 0 1.66360+ 1 0.00000+ 0 1.67270+ 1 0.00000+ 01261 300303820
+ 1.68180+ 1 1.43000+ 0 1.69090+ 1 3.93000+ 0 1.69450+ 1 4.29000+ 01261 300303821
+ 1.70000+ 1 3.57000+ 0 1.70910+ 1 3.22000+ 0 1.71810+ 1 2.14000+ 01261 300303822
+ 1.72730+ 1 1.42000+ 0 1.73640+ 1 7.10000- 1 1.74550+ 1 7.10000- 11261 300303823
+ 1.75450+ 1 0.00000+ 0 1.76360+ 1 0.00000+ 0 1.77270+ 1-3.60000- 11261 300303824
+ 1.78180+ 1-1.00000+ 0 1.79090+ 1-7.10000- 1 1.80910+ 1 0.00000+ 01261 300303825
+ 1.81820+ 1 0.00000+ 0 1.82730+ 1 0.00000+ 0 1.83640+ 1 3.57000+ 01261 300303826
+ 1.84550+ 1 4.64000+ 0 1.85450+ 1 4.64000+ 0 1.86360+ 1 4.29000+ 01261 300303827
+ 1.87270+ 1 2.50000+ 0 1.88180+ 1 1.43000+ 0 1.89090+ 1 1.07000+ 01261 300303828
+ 1.90000+ 1 0.00000+ 0 1.93810+ 1 0.00000+ 0 1.94360+ 1 2.86000+ 01261 300303829
+ 1.94550+ 1 7.14000+ 0 1.94910+ 1 1.42900+ 1 1.95090+ 1 1.71400+ 11261 300303830
+ 1.95270+ 1 1.81400+ 1 1.95450+ 1 1.71400+ 1 1.96180+ 1 1.18100+ 11261 300303831
+ 1.96720+ 1 9.19000+ 0 1.97270+ 1 7.14000+ 0 1.98180+ 1 5.00000+ 01261 300303832
+ 1.99090+ 1 3.21000+ 0 2.00000+ 1 1.11000+ 0 2.00910+ 1 0.00000+ 01261 300303833
+ 2.02730+ 1-7.10000- 1 2.03640+ 1-7.10000- 1 2.04550+ 1-2.85000+ 01261 300303834
+ 2.05450+ 1-7.14000+ 0 2.05820+ 1-7.14000+ 0 2.06360+ 1-3.57000+ 01261 300303835
+ 2.06730+ 1-7.10000- 1 2.07270+ 1 4.29000+ 0 2.07640+ 1 6.43000+ 01261 300303836
+ 2.08180+ 1 8.22000+ 0 2.09090+ 1 7.86000+ 0 2.10000+ 1 3.58000+ 01261 300303837
+ 2.10360+ 1-1.00000+ 0 2.10910+ 1-7.43000+ 0 2.11270+ 1-1.53900+ 11261 300303838
+ 2.11820+ 1-1.76300+ 1 2.12180+ 1-1.55900+ 1 2.12640+ 1-8.49000+ 01261 300303839
+ 2.13640+ 1-3.57000+ 0 2.14000+ 1-3.65000+ 0 2.14550+ 1-3.35000+ 01261 300303840
+ 2.15450+ 1-3.87000+ 0 2.17270+ 1-4.16000+ 0 2.19090+ 1-3.23000+ 01261 300303841
+ 2.20910+ 1-2.51000+ 0 2.22730+ 1-1.43000+ 0 2.24550+ 1 7.00000- 21261 300303842
+ 2.26360+ 1 1.43000+ 0 2.28180+ 1 2.86000+ 0 2.30000+ 1 1.43000+ 01261 300303843
+ 2.31150+ 1 4.04000+ 0 2.32300+ 1 3.09000+ 0 2.34600+ 1-1.18000+ 01261 300303844
+ 2.36900+ 1-3.09000+ 0 2.38740+ 1-2.73000+ 0 2.40110+ 1-6.91000+ 01261 300303845
+ 2.41030+ 1-6.65000+ 0 2.43790+ 1 9.10000- 1 2.46090+ 1 7.82000+ 01261 300303846
+ 2.48390+ 1 4.37000+ 0 2.50690+ 1-7.20000- 1 2.51610+ 1-9.00000- 11261 300303847
+ 2.53450+ 1 4.60000- 1 2.55290+ 1-1.00000+ 0 2.55750+ 1-9.00000- 11261 300303848
+ 2.57130+ 1 0.00000+ 0 2.58510+ 1-2.73000+ 0 2.60340+ 1-8.91000+ 01261 300303849
+ 2.61260+ 1-9.41000+ 0 2.62180+ 1-6.64000+ 0 2.64480+ 1-8.00000- 11261 300303850
+ 2.65400+ 1-1.00000+ 0 2.70000+ 1-5.00000- 1 2.71380+ 1 0.00000+ 01261 300303851
+ 2.73680+ 1 0.00000+ 0 2.74140+ 1 0.00000+ 0 2.75980+ 1 0.00000+ 01261 300303852
+ 2.78280+ 1 0.00000+ 0 2.80570+ 1 0.00000+ 0 2.82870+ 1 0.00000+ 01261 300303853
+ 2.84250+ 1 0.00000+ 0 2.85170+ 1-1.00000- 1 2.87470+ 1 4.50000- 11261 300303854
+ 2.89770+ 1 1.36000+ 0 2.92070+ 1 1.35000+ 0 2.94370+ 1 4.50000- 11261 300303855
+ 2.96670+ 1 0.00000+ 0 2.98970+ 1 8.20000- 1 3.00000+ 1 6.40000- 11261 300303856
+ 3.02290+ 1 8.20000- 1 3.04570+ 1 0.00000+ 0 3.06860+ 1 0.00000+ 01261 300303857
+ 3.07770+ 1 0.00000+ 0 3.09140+ 1 0.00000+ 0 3.09600+ 1 0.00000+ 01261 300303858
+ 3.10970+ 1-6.80000- 1 3.11430+ 1-9.60000- 1 3.13710+ 1-8.20000- 11261 300303859
+ 3.16000+ 1 5.90000- 1 3.16910+ 1 0.00000+ 0 3.18290+ 1-9.20000- 11261 300303860
+ 3.18740+ 1-1.80000+ 0 3.19660+ 1 0.00000+ 0 3.20570+ 1 0.00000+ 01261 300303861
+ 3.21940+ 1 0.00000+ 0 3.22860+ 1 0.00000+ 0 3.25140+ 1-1.82000+ 01261 300303862
+ 3.27430+ 1-2.22000+ 0 3.29710+ 1-7.80000- 1 3.32000+ 1-1.17000+ 01261 300303863
+ 3.35200+ 1 0.00000+ 0 3.36110+ 1 0.00000+ 0 3.37490+ 1 0.00000+ 01261 300303864
+ 3.38860+ 1 0.00000+ 0 3.41140+ 1 0.00000+ 0 3.43430+ 1 0.00000+ 01261 300303865
+ 3.44340+ 1-1.09100+ 1 3.44800+ 1 1.63600+ 1 3.45260+ 1 2.36400+ 11261 300303866
+ 3.45710+ 1 2.72700+ 1 3.46170+ 1 2.36400+ 1 3.46630+ 1 1.27200+ 11261 300303867
+ 3.47090+ 1 6.36000+ 0 3.47540+ 1 4.54000+ 0 3.48460+ 1 1.82000+ 01261 300303868
+ 3.48910+ 1 3.64000+ 0 3.50290+ 1 3.64000+ 0 3.52570+ 1 0.00000+ 01261 300303869
+ 3.54860+ 1 0.00000+ 0 3.57140+ 1 0.00000+ 0 3.59430+ 1 0.00000+ 01261 300303870
+ 3.66290+ 1 0.00000+ 0 3.68570+ 1-9.10000- 1 3.70860+ 1-1.50000+ 01261 300303871
+ 3.73140+ 1 0.00000+ 0 3.75430+ 1 7.30000- 1 3.77710+ 1 9.10000- 11261 300303872
+ 3.80000+ 1 7.70000- 1 3.82290+ 1 6.80000- 1 3.84570+ 1 5.50000- 11261 300303873
+ 3.86860+ 1 0.00000+ 0 3.89140+ 1 0.00000+ 0 3.91430+ 1-2.80000+ 01261 300303874
+ 3.92340+ 1-3.00000+ 0 3.92800+ 1 2.73000+ 0 3.93710+ 1 0.00000+ 01261 300303875
+ 3.95090+ 1 0.00000+ 0 3.96000+ 1 0.00000+ 0 3.96910+ 1 0.00000+ 01261 300303876
+ 3.98290+ 1 0.00000+ 0 3.99660+ 1 0.00000+ 0 4.01940+ 1-1.37000+ 01261 300303877
+ 4.05140+ 1 0.00000+ 0 4.06970+ 1 2.72000+ 0 4.07430+ 1 3.45000+ 01261 300303878
+ 4.07890+ 1 3.64000+ 0 4.09710+ 1 2.73000+ 0 4.12000+ 1 0.00000+ 01261 300303879
+ 4.14290+ 1-4.50000- 1 4.15660+ 1-2.73000+ 0 4.16570+ 1-1.36000+ 01261 300303880
+ 4.17940+ 1-9.10000- 1 4.19770+ 1 2.73000+ 0 4.21140+ 1 1.82000+ 01261 300303881
+ 4.22970+ 1-1.00000+ 0 4.23890+ 1 7.30000- 1 4.25710+ 1 1.23000+ 01261 300303882
+ 4.27090+ 1-9.10000- 1 4.28000+ 1 1.09000+ 0 4.28910+ 1 3.64000+ 01261 300303883
+ 4.30290+ 1 1.80000- 1 4.32110+ 1-1.82000+ 0 4.33030+ 1-2.00000+ 01261 300303884
+ 4.34860+ 1-4.00000+ 0 4.36690+ 1-2.20000+ 0 4.38060+ 1-1.82000+ 01261 300303885
+ 4.40340+ 1 1.82000+ 0 4.41710+ 1 2.27000+ 0 4.44000+ 1-1.80000- 11261 300303886
+ 4.46290+ 1 0.00000+ 0 4.48570+ 1-1.80000- 1 4.50860+ 1 0.00000+ 01261 300303887
+ 4.53140+ 1-6.30000- 1 4.55430+ 1-5.50000- 1 4.57710+ 1-7.30000- 11261 300303888
+ 4.60000+ 1-1.00000+ 0 4.61810+ 1-7.20000- 1 4.63630+ 1-2.10000- 11261 300303889
+ 4.65440+ 1 1.29000+ 0 4.67260+ 1 0.00000+ 0 4.72700+ 1 0.00000+ 01261 300303890
+ 4.74510+ 1 7.20000- 1 4.76330+ 1 3.04000+ 0 4.77410+ 1 3.51000+ 01261 300303891
+ 4.78870+ 1 7.10000- 1 4.79590+ 1 0.00000+ 0 4.80680+ 1-3.57000+ 01261 300303892
+ 4.81770+ 1-3.57000+ 0 4.82860+ 1 0.00000+ 0 4.83950+ 1 0.00000+ 01261 300303893
+ 4.85400+ 1 5.71000+ 0 4.86120+ 1 6.57000+ 0 4.86850+ 1 5.71000+ 01261 300303894
+ 4.88660+ 1-4.29000+ 0 4.89340+ 1-4.86000+ 0 4.90110+ 1-3.57000+ 01261 300303895
+ 4.91200+ 1 7.20000- 1 4.91930+ 1 7.20000- 1 4.93380+ 1-7.10000- 11261 300303896
+ 4.95560+ 1 3.57000+ 0 4.96640+ 1 5.00000+ 0 4.97730+ 1 4.43000+ 01261 300303897
+ 4.99550+ 1 1.29000+ 0 5.01720+ 1 0.00000+ 0 5.18050+ 1 0.00000+ 01261 300303898
+ 5.25310+ 1-7.10000- 1 5.27120+ 1 7.10000- 1 5.32560+ 1 7.10000- 11261 300303899
+ 5.34380+ 1 7.10000- 1 5.36190+ 1 2.86000+ 0 5.38000+ 1 2.86000+ 01261 300303900
+ 5.40000+ 1 1.07000+ 0 5.41810+ 1 0.00000+ 0 5.43630+ 1 0.00000+ 01261 300303901
+ 5.45440+ 1 0.00000+ 0 5.47260+ 1 0.00000+ 0 5.49070+ 1 0.00000+ 01261 300303902
+ 5.50880+ 1 0.00000+ 0 5.52700+ 1 0.00000+ 0 5.54510+ 1 0.00000+ 01261 300303903
+ 5.56330+ 1 0.00000+ 0 5.58140+ 1-7.10000- 1 5.59950+ 1-7.10000- 11261 300303904
+ 5.61770+ 1 4.29000+ 0 5.62860+ 1 7.15000+ 0 5.63580+ 1 4.29000+ 01261 300303905
+ 5.64310+ 1-7.10000- 1 5.66490+ 1-7.10000- 1 5.67940+ 1 4.29000+ 01261 300303906
+ 5.69020+ 1 2.15000+ 0 5.71200+ 1 7.20000- 1 5.72650+ 1 5.00000- 11261 300303907
+ 5.76280+ 1 5.00000- 1 5.78100+ 1 0.00000+ 0 5.79910+ 1-1.43000+ 01261 300303908
+ 5.81720+ 1 0.00000+ 0 5.83170+ 1-1.50000+ 0 5.83900+ 1-1.00000+ 01261 300303909
+ 5.84990+ 1-9.98852- 1 5.85710+ 1-1.16782+ 0 5.86800+ 1-9.66667- 11261 300303910
+ 5.88250+ 1-1.93000+ 0 5.90070+ 1 7.00000- 1 5.91160+ 1 1.20000+ 01261 300303911
+ 5.94420+ 1 7.00000- 1 5.96240+ 1 3.50000- 1 5.98050+ 1 0.00000+ 01261 300303912
+ 6.94000+ 1 0.00000+ 0 6.96190+ 1 3.00000+ 0 6.98000+ 1 4.10000+ 01261 300303913
+ 7.00000+ 1 4.14000+ 0 7.01810+ 1 0.00000+ 0 7.03630+ 1-7.10000- 11261 300303914
+ 7.05440+ 1-1.43000+ 0 7.07260+ 1-2.32000+ 0 7.09070+ 1-2.14000+ 01261 300303915
+ 7.10880+ 1-8.90000- 1 7.12700+ 1 0.00000+ 0 7.15600+ 1 0.00000+ 01261 300303916
+ 7.18140+ 1-2.86000+ 0 7.19230+ 1-3.79000+ 0 7.19950+ 1-3.57000+ 01261 300303917
+ 7.20680+ 1-3.03000+ 0 7.21040+ 1-1.57000+ 0 7.21770+ 1 7.10000- 11261 300303918
+ 7.23220+ 1 8.90000- 1 7.25030+ 1 0.00000+ 0 7.26850+ 1 5.47000+ 01261 300303919
+ 7.27210+ 1 2.60000+ 0 7.28300+ 1 0.00000+ 0 7.29020+ 1 0.00000+ 01261 300303920
+ 7.29750+ 1-3.00000- 1 7.30840+ 1-2.10000- 1 7.32650+ 1 0.00000+ 01261 300303921
+ 7.39910+ 1 0.00000+ 0 7.44260+ 1 4.30000- 1 7.45710+ 1 3.93000+ 01261 300303922
+ 7.47890+ 1 1.68600+ 1 7.48250+ 1 1.67900+ 1 7.48620+ 1 1.42900+ 11261 300303923
+ 7.48980+ 1 9.29000+ 0 7.49340+ 1 7.50000+ 0 7.49710+ 1 5.71000+ 01261 300303924
+ 7.50430+ 1 3.21000+ 0 7.50790+ 1 2.14000+ 0 7.51880+ 1-3.60000- 11261 300303925
+ 7.54420+ 1-1.01419+ 0 7.55870+ 1-1.18784+ 0 7.58050+ 1-7.38923- 11261 300303926
+ 7.60230+ 1 0.00000+ 0 7.61680+ 1-1.00000- 1 7.67480+ 1 0.00000+ 01261 300303927
+ 7.83000+ 1 0.00000+ 0 7.83630+ 1 5.71000+ 0 7.85440+ 1 6.90000+ 01261 300303928
+ 7.87260+ 1 5.80000+ 0 7.89070+ 1 5.20000+ 0 7.90880+ 1 3.50000+ 01261 300303929
+ 7.92700+ 1 2.34000+ 0 7.94510+ 1 0.00000+ 0 7.98140+ 1 0.00000+ 01261 300303930
+ 7.99950+ 1 2.32000+ 0 8.00680+ 1 2.32000+ 0 8.02490+ 1 0.00000+ 01261 300303931
+ 8.04670+ 1 0.00000+ 0 8.07570+ 1 3.00000+ 0 8.08660+ 1 3.10000+ 01261 300303932
+ 8.09750+ 1 2.50000+ 0 8.10840+ 1 1.70000+ 0 8.13380+ 1 0.00000+ 01261 300303933
+ 8.15190+ 1 0.00000+ 0 8.16280+ 1 0.00000+ 0 8.18100+ 1 2.00000+ 01261 300303934
+ 8.20000+ 1 2.50000+ 0 8.20000+ 1 0.00000+ 0 1.00000+ 3 0.00000+ 01261 300303935
+ 1.30000+ 4 0.00000+ 0 1.30550+ 4 0.00000+ 0 1.30553+ 4 3.24728- 71261 300303936
+ 1.32000+ 4 1.56990- 4 1.37000+ 4 6.98340- 4 1.42000+ 4 1.23970- 31261 300303937
+ 1.45000+ 4 1.56450- 3 1.47000+ 4 1.78100- 3 1.48000+ 4 1.88930- 31261 300303938
+ 1.50000+ 4 2.10580- 3 1.52000+ 4 2.32240- 3 1.55000+ 4 2.64720- 31261 300303939
+ 1.58000+ 4 2.97200- 3 1.61000+ 4 3.29680- 3 1.63000+ 4 3.51330- 31261 300303940
+ 1.72000+ 4 4.48780- 3 1.76000+ 4 4.92080- 3 1.79000+ 4 5.24560- 31261 300303941
+ 1.82000+ 4 5.57040- 3 1.85000+ 4 5.89520- 3 1.90000+ 4 6.43660- 31261 300303942
+ 1.92000+ 4 6.65310- 3 1.94000+ 4 6.86970- 3 1.96000+ 4 7.08620- 31261 300303943
+ 1.98000+ 4 7.30270- 3 2.00000+ 4 7.51930- 3 2.01000+ 4 7.62760- 31261 300303944
+ 2.03000+ 4 7.84410- 3 2.06000+ 4 8.16890- 3 2.10000+ 4 8.60200- 31261 300303945
+ 2.12000+ 4 8.81850- 3 2.16000+ 4 9.25160- 3 2.21000+ 4 9.79290- 31261 300303946
+ 2.25000+ 4 1.02260- 2 2.33000+ 4 1.10920- 2 2.37000+ 4 1.15250- 21261 300303947
+ 2.40000+ 4 1.18500- 2 2.43000+ 4 1.21750- 2 2.46000+ 4 1.25000- 21261 300303948
+ 2.50000+ 4 1.29330- 2 2.50000+ 4 2.95714+ 0 2.53000+ 4 2.93956+ 01261 300303949
+ 2.57000+ 4 2.91646+ 0 2.62000+ 4 2.89336+ 0 2.65000+ 4 2.88438+ 01261 300303950
+ 2.72000+ 4 2.87214+ 0 2.75000+ 4 2.87580+ 0 2.83000+ 4 2.92769+ 01261 300303951
+ 2.88000+ 4 3.00306+ 0 2.93000+ 4 2.96052+ 0 2.98000+ 4 2.84172+ 01261 300303952
+ 3.00000+ 4 2.79479+ 0 3.11000+ 4 2.85118+ 0 3.13000+ 4 2.88437+ 01261 300303953
+ 3.18000+ 4 2.96631+ 0 3.21000+ 4 2.97739+ 0 3.25000+ 4 2.89288+ 01261 300303954
+ 3.28000+ 4 2.83022+ 0 3.42000+ 4 2.71653+ 0 3.45000+ 4 2.67420+ 01261 300303955
+ 3.50000+ 4 2.60447+ 0 3.62000+ 4 2.70284+ 0 3.65000+ 4 2.62732+ 01261 300303956
+ 3.70000+ 4 2.50293+ 0 3.79000+ 4 2.64916+ 0 3.87000+ 4 2.57630+ 01261 300303957
+ 3.91000+ 4 2.54125+ 0 3.94000+ 4 2.54870+ 0 4.00000+ 4 2.56341+ 01261 300303958
+ 4.04000+ 4 2.63955+ 0 4.10000+ 4 2.75220+ 0 4.15000+ 4 2.65448+ 01261 300303959
+ 4.20000+ 4 2.55807+ 0 4.30000+ 4 2.59644+ 0 4.36000+ 4 2.57849+ 01261 300303960
+ 4.38000+ 4 2.57257+ 0 4.43000+ 4 2.54538+ 0 4.48000+ 4 2.51023+ 01261 300303961
+ 4.50000+ 4 2.49629+ 0 4.52000+ 4 2.47938+ 0 4.54000+ 4 2.46256+ 01261 300303962
+ 4.60000+ 4 2.41259+ 0 4.62000+ 4 2.43409+ 0 4.65000+ 4 2.46616+ 01261 300303963
+ 4.68000+ 4 2.49800+ 0 4.73000+ 4 2.47340+ 0 4.76000+ 4 2.42803+ 01261 300303964
+ 4.82000+ 4 2.38679+ 0 4.84000+ 4 2.40546+ 0 4.88000+ 4 2.44255+ 01261 300303965
+ 4.90000+ 4 2.46097+ 0 5.00000+ 4 2.35106+ 0 5.02000+ 4 2.36506+ 01261 300303966
+ 5.06000+ 4 2.39288+ 0 5.09000+ 4 2.41359+ 0 5.12000+ 4 2.42086+ 01261 300303967
+ 5.15000+ 4 2.42143+ 0 5.22000+ 4 2.45812+ 0 5.25000+ 4 2.51142+ 01261 300303968
+ 5.35000+ 4 2.59375+ 0 5.39000+ 4 2.58916+ 0 5.42000+ 4 2.58843+ 01261 300303969
+ 5.46000+ 4 2.58924+ 0 5.50000+ 4 2.59007+ 0 5.53000+ 4 2.58664+ 01261 300303970
+ 5.57000+ 4 2.58212+ 0 5.61000+ 4 2.57222+ 0 5.67000+ 4 2.53320+ 01261 300303971
+ 5.71000+ 4 2.51818+ 0 5.76000+ 4 2.53952+ 0 5.79000+ 4 2.55224+ 01261 300303972
+ 5.83000+ 4 2.52887+ 0 5.87000+ 4 2.49233+ 0 5.91000+ 4 2.45997+ 01261 300303973
+ 5.92000+ 4 2.45482+ 0 5.98000+ 4 2.42424+ 0 6.00000+ 4 2.41412+ 01261 300303974
+ 6.03000+ 4 2.45527+ 0 6.12000+ 4 2.53217+ 0 6.15000+ 4 2.50481+ 01261 300303975
+ 6.20000+ 4 2.45956+ 0 6.25000+ 4 2.47431+ 0 6.29000+ 4 2.48604+ 01261 300303976
+ 6.32000+ 4 2.49758+ 0 6.42000+ 4 2.49470+ 0 6.47000+ 4 2.40265+ 01261 300303977
+ 6.50000+ 4 2.34782+ 0 6.51000+ 4 2.36019+ 0 6.61000+ 4 2.46551+ 01261 300303978
+ 6.65000+ 4 2.44526+ 0 6.70000+ 4 2.42016+ 0 6.74000+ 4 2.45337+ 01261 300303979
+ 6.80000+ 4 2.50281+ 0 6.83000+ 4 2.47558+ 0 6.89000+ 4 2.42151+ 01261 300303980
+ 6.94000+ 4 2.40302+ 0 7.00000+ 4 2.38885+ 0 7.03000+ 4 2.38969+ 01261 300303981
+ 7.09000+ 4 2.39140+ 0 7.20000+ 4 2.39450+ 0 7.25000+ 4 2.45575+ 01261 300303982
+ 7.31000+ 4 2.51151+ 0 7.37000+ 4 2.48129+ 0 7.41000+ 4 2.47323+ 01261 300303983
+ 7.48000+ 4 2.52147+ 0 7.50000+ 4 2.53516+ 0 7.53000+ 4 2.52001+ 01261 300303984
+ 7.58000+ 4 2.49493+ 0 7.65000+ 4 2.39350+ 0 7.70000+ 4 2.30272+ 01261 300303985
+ 7.76000+ 4 2.35205+ 0 7.84000+ 4 2.39642+ 0 7.89000+ 4 2.41095+ 01261 300303986
+ 7.94000+ 4 2.33027+ 0 8.00000+ 4 2.20576+ 0 8.07000+ 4 2.31861+ 01261 300303987
+ 8.20000+ 4 2.39570+ 0 8.27000+ 4 2.36997+ 0 8.33000+ 4 2.31633+ 01261 300303988
+ 8.40000+ 4 2.21739+ 0 8.47000+ 4 2.34357+ 0 8.50000+ 4 2.39731+ 01261 300303989
+ 8.53000+ 4 2.34475+ 0 8.61000+ 4 2.21601+ 0 8.68000+ 4 2.16753+ 01261 300303990
+ 8.75000+ 4 2.23078+ 0 8.83000+ 4 2.28652+ 0 8.90000+ 4 2.23832+ 01261 300303991
+ 9.00000+ 4 2.35252+ 0 9.03000+ 4 2.35540+ 0 9.12000+ 4 2.31159+ 01261 300303992
+ 9.28000+ 4 2.24401+ 0 9.36000+ 4 2.31444+ 0 9.44000+ 4 2.32743+ 01261 300303993
+ 9.50000+ 4 2.30994+ 0 9.52000+ 4 2.33026+ 0 9.60000+ 4 2.41108+ 01261 300303994
+ 9.68000+ 4 2.51289+ 0 9.77000+ 4 2.42645+ 0 9.85000+ 4 2.42949+ 01261 300303995
+ 9.93000+ 4 2.47112+ 0 9.99000+ 4 2.45370+ 0 1.00000+ 5 2.39087+ 01261 300303996
+ 1.03000+ 5 2.39140+ 0 1.20000+ 5 2.36373+ 0 1.35000+ 5 2.33917+ 01261 300303997
+ 1.40000+ 5 2.32882+ 0 1.50000+ 5 2.31375+ 0 1.60000+ 5 2.30983+ 01261 300303998
+ 1.73000+ 5 2.29434+ 0 1.80000+ 5 2.29245+ 0 2.00000+ 5 2.28227+ 01261 300303999
+ 2.07000+ 5 2.26902+ 0 2.15000+ 5 2.26578+ 0 2.20000+ 5 2.26518+ 01261 300304000
+ 2.25000+ 5 2.26497+ 0 2.35000+ 5 2.26778+ 0 2.40000+ 5 2.28022+ 01261 300304001
+ 2.50000+ 5 2.30707+ 0 2.60000+ 5 2.31643+ 0 2.70000+ 5 2.32524+ 01261 300304002
+ 2.80000+ 5 2.32921+ 0 3.00000+ 5 2.33065+ 0 3.20000+ 5 2.30888+ 01261 300304003
+ 3.25000+ 5 2.30719+ 0 3.40000+ 5 2.31423+ 0 3.50000+ 5 2.32348+ 01261 300304004
+ 3.60000+ 5 2.33073+ 0 3.80000+ 5 2.35003+ 0 4.00000+ 5 2.36701+ 01261 300304005
+ 4.20000+ 5 2.39389+ 0 4.40000+ 5 2.41838+ 0 4.50000+ 5 2.42943+ 01261 300304006
+ 4.60000+ 5 2.43167+ 0 4.70000+ 5 2.43486+ 0 4.80000+ 5 2.43830+ 01261 300304007
+ 5.00000+ 5 2.44746+ 0 5.20000+ 5 2.44119+ 0 5.40000+ 5 2.43757+ 01261 300304008
+ 5.50000+ 5 2.43779+ 0 5.60000+ 5 2.43970+ 0 5.70000+ 5 2.44163+ 01261 300304009
+ 5.80000+ 5 2.44381+ 0 6.00000+ 5 2.44924+ 0 6.20000+ 5 2.48403+ 01261 300304010
+ 6.40000+ 5 2.51893+ 0 6.50000+ 5 2.53683+ 0 6.60000+ 5 2.54530+ 01261 300304011
+ 6.70000+ 5 2.55303+ 0 6.80000+ 5 2.56092+ 0 7.00000+ 5 2.57674+ 01261 300304012
+ 7.20000+ 5 2.57686+ 0 7.30000+ 5 2.57794+ 0 7.40000+ 5 2.57995+ 01261 300304013
+ 7.50000+ 5 2.58242+ 0 7.60000+ 5 2.58578+ 0 7.70000+ 5 2.59015+ 01261 300304014
+ 7.75000+ 5 2.59222+ 0 7.80000+ 5 2.59396+ 0 8.00000+ 5 2.60330+ 01261 300304015
+ 8.20000+ 5 2.60463+ 0 8.40000+ 5 2.60540+ 0 8.50000+ 5 2.60803+ 01261 300304016
+ 8.60000+ 5 2.62095+ 0 8.80000+ 5 2.63043+ 0 9.00000+ 5 2.64705+ 01261 300304017
+ 9.20000+ 5 2.65177+ 0 9.40000+ 5 2.65663+ 0 9.50000+ 5 2.65898+ 01261 300304018
+ 9.60000+ 5 2.66971+ 0 9.70000+ 5 2.68121+ 0 9.80000+ 5 2.69176+ 01261 300304019
+ 1.00000+ 6 2.71279+ 0 1.05000+ 6 2.74714+ 0 1.10000+ 6 2.77405+ 01261 300304020
+ 1.15000+ 6 2.79678+ 0 1.20000+ 6 2.81693+ 0 1.25000+ 6 2.83467+ 01261 300304021
+ 1.29500+ 6 2.84994+ 0 1.30000+ 6 2.85173+ 0 1.35000+ 6 2.86822+ 01261 300304022
+ 1.40000+ 6 2.88539+ 0 1.45000+ 6 2.90328+ 0 1.49500+ 6 2.92102+ 01261 300304023
+ 1.50000+ 6 2.92399+ 0 1.60000+ 6 2.95595+ 0 1.70000+ 6 2.98640+ 01261 300304024
+ 1.80000+ 6 3.01696+ 0 1.90000+ 6 3.04792+ 0 2.00000+ 6 3.07716+ 01261 300304025
+ 2.10000+ 6 3.07768+ 0 2.20000+ 6 3.07755+ 0 2.30000+ 6 3.07590+ 01261 300304026
+ 2.40000+ 6 3.07336+ 0 2.50000+ 6 3.06784+ 0 2.60000+ 6 3.07161+ 01261 300304027
+ 2.70000+ 6 3.07320+ 0 2.80000+ 6 3.07502+ 0 2.90000+ 6 3.07557+ 01261 300304028
+ 3.00000+ 6 3.07676+ 0 3.10000+ 6 3.06568+ 0 3.20000+ 6 3.05384+ 01261 300304029
+ 3.30000+ 6 3.04255+ 0 3.40000+ 6 3.03188+ 0 3.50000+ 6 3.02165+ 01261 300304030
+ 3.60000+ 6 3.01682+ 0 3.70000+ 6 3.01221+ 0 3.80000+ 6 3.00450+ 01261 300304031
+ 3.90000+ 6 3.00201+ 0 4.00000+ 6 2.99533+ 0 4.10000+ 6 2.98976+ 01261 300304032
+ 4.20000+ 6 2.98604+ 0 4.30000+ 6 2.97937+ 0 4.40000+ 6 2.97578+ 01261 300304033
+ 4.50000+ 6 2.97215+ 0 4.60000+ 6 2.96650+ 0 4.70000+ 6 2.96297+ 01261 300304034
+ 4.80000+ 6 2.95444+ 0 4.90000+ 6 2.93194+ 0 5.00000+ 6 2.93049+ 01261 300304035
+ 5.10000+ 6 2.92197+ 0 5.15000+ 6 2.91120+ 0 5.20000+ 6 2.90083+ 01261 300304036
+ 5.25000+ 6 2.89133+ 0 5.30000+ 6 2.88092+ 0 5.32858+ 6 2.87502+ 01261 300304037
+ 5.35000+ 6 2.87012+ 0 5.40000+ 6 2.86001+ 0 5.45000+ 6 2.84849+ 01261 300304038
+ 5.50000+ 6 2.83356+ 0 5.55000+ 6 2.81808+ 0 5.60000+ 6 2.80405+ 01261 300304039
+ 5.65000+ 6 2.79819+ 0 5.70000+ 6 2.79833+ 0 5.75000+ 6 2.79638+ 01261 300304040
+ 5.80000+ 6 2.79324+ 0 5.90000+ 6 2.79987+ 0 6.00000+ 6 2.76385+ 01261 300304041
+ 6.10000+ 6 2.72776+ 0 6.20000+ 6 2.68760+ 0 6.30000+ 6 2.65033+ 01261 300304042
+ 6.40000+ 6 2.61793+ 0 6.50000+ 6 2.58711+ 0 6.60000+ 6 2.57477+ 01261 300304043
+ 6.70000+ 6 2.56544+ 0 6.80000+ 6 2.55073+ 0 6.90000+ 6 2.54562+ 01261 300304044
+ 7.00000+ 6 2.53869+ 0 7.10000+ 6 2.52595+ 0 7.20000+ 6 2.50570+ 01261 300304045
+ 7.30000+ 6 2.48653+ 0 7.40000+ 6 2.45846+ 0 7.50000+ 6 2.45180+ 01261 300304046
+ 7.60000+ 6 2.43907+ 0 7.65000+ 6 2.44160+ 0 7.70000+ 6 2.44308+ 01261 300304047
+ 7.80000+ 6 2.44413+ 0 7.90000+ 6 2.44706+ 0 8.00000+ 6 2.44324+ 01261 300304048
+ 8.20000+ 6 2.44750+ 0 8.40000+ 6 2.44579+ 0 8.50000+ 6 2.44675+ 01261 300304049
+ 8.60000+ 6 2.44491+ 0 8.80000+ 6 2.44367+ 0 9.00000+ 6 2.43363+ 01261 300304050
+ 9.20000+ 6 2.42944+ 0 9.40000+ 6 2.42021+ 0 9.50000+ 6 2.41763+ 01261 300304051
+ 9.60000+ 6 2.41203+ 0 9.80000+ 6 2.40385+ 0 1.00000+ 7 2.39467+ 01261 300304052
+ 1.05000+ 7 2.36915+ 0 1.10000+ 7 2.35460+ 0 1.15000+ 7 2.35922+ 01261 300304053
+ 1.19000+ 7 2.40129+ 0 1.20000+ 7 2.41799+ 0 1.21988+ 7 2.45601+ 01261 300304054
+ 1.25000+ 7 2.51079+ 0 1.30000+ 7 2.60069+ 0 1.35000+ 7 2.66756+ 01261 300304055
+ 1.40000+ 7 2.70745+ 0 1.45000+ 7 2.73329+ 0 1.50000+ 7 2.72214+ 01261 300304056
+ 1.55000+ 7 2.70398+ 0 1.60000+ 7 2.67283+ 0 1.65000+ 7 2.63619+ 01261 300304057
+ 1.70000+ 7 2.58658+ 0 1.75000+ 7 2.52846+ 0 1.80000+ 7 2.47139+ 01261 300304058
+ 1.85000+ 7 2.41131+ 0 1.90000+ 7 2.37045+ 0 1.95000+ 7 2.34074+ 01261 300304059
+ 2.00000+ 7 2.32723+ 0                                            1261 300304060
+                                                                  1261 300004061
+ 9.22350+ 4 2.33025+ 2          0         99          0          01261 300404062
+ 0.00000+ 0-1.30000+ 4          0          0          1        3701261 300404063
+        370          2                                            1261 300404064
+ 1.30550+ 4 0.00000+ 0 1.32000+ 4 1.56990- 4 1.37000+ 4 6.98340- 41261 300404065
+ 1.42000+ 4 1.23970- 3 1.45000+ 4 1.56450- 3 1.47000+ 4 1.78100- 31261 300404066
+ 1.48000+ 4 1.88930- 3 1.50000+ 4 2.10580- 3 1.52000+ 4 2.32240- 31261 300404067
+ 1.55000+ 4 2.64720- 3 1.58000+ 4 2.97200- 3 1.61000+ 4 3.29680- 31261 300404068
+ 1.63000+ 4 3.51330- 3 1.72000+ 4 4.48780- 3 1.76000+ 4 4.92080- 31261 300404069
+ 1.79000+ 4 5.24560- 3 1.82000+ 4 5.57040- 3 1.85000+ 4 5.89520- 31261 300404070
+ 1.90000+ 4 6.43660- 3 1.92000+ 4 6.65310- 3 1.94000+ 4 6.86970- 31261 300404071
+ 1.96000+ 4 7.08620- 3 1.98000+ 4 7.30270- 3 2.00000+ 4 7.51930- 31261 300404072
+ 2.01000+ 4 7.62760- 3 2.03000+ 4 7.84410- 3 2.06000+ 4 8.16890- 31261 300404073
+ 2.10000+ 4 8.60200- 3 2.12000+ 4 8.81850- 3 2.16000+ 4 9.25160- 31261 300404074
+ 2.21000+ 4 9.79290- 3 2.25000+ 4 1.02260- 2 2.33000+ 4 1.10920- 21261 300404075
+ 2.37000+ 4 1.15250- 2 2.40000+ 4 1.18500- 2 2.43000+ 4 1.21750- 21261 300404076
+ 2.46000+ 4 1.25000- 2 2.50000+ 4 1.29330- 2 2.53000+ 4 1.32580- 21261 300404077
+ 2.57000+ 4 1.36910- 2 2.62000+ 4 1.42320- 2 2.65000+ 4 1.45570- 21261 300404078
+ 2.72000+ 4 1.53150- 2 2.75000+ 4 1.56390- 2 2.83000+ 4 1.65060- 21261 300404079
+ 2.88000+ 4 1.70470- 2 2.93000+ 4 1.75880- 2 2.98000+ 4 1.81300- 21261 300404080
+ 3.00000+ 4 1.83460- 2 3.11000+ 4 1.95370- 2 3.13000+ 4 1.97540- 21261 300404081
+ 3.18000+ 4 2.02950- 2 3.21000+ 4 2.06200- 2 3.25000+ 4 2.10530- 21261 300404082
+ 3.28000+ 4 2.13780- 2 3.42000+ 4 2.28930- 2 3.45000+ 4 2.32180- 21261 300404083
+ 3.50000+ 4 2.37600- 2 3.62000+ 4 2.50590- 2 3.65000+ 4 2.53840- 21261 300404084
+ 3.70000+ 4 2.59250- 2 3.79000+ 4 2.68990- 2 3.87000+ 4 2.77660- 21261 300404085
+ 3.91000+ 4 2.81990- 2 3.94000+ 4 2.85230- 2 4.00000+ 4 2.91730- 21261 300404086
+ 4.04000+ 4 2.96060- 2 4.10000+ 4 3.02560- 2 4.15000+ 4 3.07970- 21261 300404087
+ 4.20000+ 4 3.13380- 2 4.30000+ 4 3.24210- 2 4.36000+ 4 3.30710- 21261 300404088
+ 4.38000+ 4 3.32870- 2 4.43000+ 4 3.38290- 2 4.48000+ 4 3.43700- 21261 300404089
+ 4.50000+ 4 3.45870- 2 4.52000+ 4 3.48030- 2 4.54000+ 4 3.50200- 21261 300404090
+ 4.60000+ 4 3.56690- 2 4.62000+ 4 3.58860- 2 4.65000+ 4 3.62110- 21261 300404091
+ 4.68000+ 4 3.65350- 2 4.73000+ 4 3.70770- 2 4.76000+ 4 3.74020- 21261 300404092
+ 4.82000+ 4 3.80510- 2 4.84000+ 4 3.82680- 2 4.88000+ 4 3.87010- 21261 300404093
+ 4.90000+ 4 3.89170- 2 5.00000+ 4 4.00000- 2 5.02000+ 4 4.09120- 21261 300404094
+ 5.06000+ 4 4.27350- 2 5.09000+ 4 4.41030- 2 5.12000+ 4 4.54710- 21261 300404095
+ 5.15000+ 4 4.68380- 2 5.22000+ 4 5.00290- 2 5.25000+ 4 5.13970- 21261 300404096
+ 5.35000+ 4 5.59560- 2 5.39000+ 4 5.77790- 2 5.42000+ 4 5.91470- 21261 300404097
+ 5.46000+ 4 6.09710- 2 5.50000+ 4 6.27940- 2 5.53000+ 4 6.41620- 21261 300404098
+ 5.57000+ 4 6.59850- 2 5.61000+ 4 6.78090- 2 5.67000+ 4 7.05440- 21261 300404099
+ 5.71000+ 4 7.23680- 2 5.76000+ 4 7.46470- 2 5.79000+ 4 7.60150- 21261 300404100
+ 5.83000+ 4 7.78380- 2 5.87000+ 4 7.96620- 2 5.91000+ 4 8.14850- 21261 300404101
+ 5.92000+ 4 8.19410- 2 5.98000+ 4 8.46760- 2 6.00000+ 4 8.55880- 21261 300404102
+ 6.03000+ 4 8.69560- 2 6.12000+ 4 9.10590- 2 6.15000+ 4 9.24260- 21261 300404103
+ 6.20000+ 4 9.47060- 2 6.25000+ 4 9.69850- 2 6.29000+ 4 9.88090- 21261 300404104
+ 6.32000+ 4 1.00180- 1 6.42000+ 4 1.04740- 1 6.47000+ 4 1.07010- 11261 300404105
+ 6.50000+ 4 1.08380- 1 6.51000+ 4 1.08840- 1 6.61000+ 4 1.13400- 11261 300404106
+ 6.65000+ 4 1.15220- 1 6.70000+ 4 1.17500- 1 6.74000+ 4 1.19320- 11261 300404107
+ 6.80000+ 4 1.22060- 1 6.83000+ 4 1.23430- 1 6.89000+ 4 1.26160- 11261 300404108
+ 6.94000+ 4 1.28440- 1 7.00000+ 4 1.31180- 1 7.03000+ 4 1.32540- 11261 300404109
+ 7.09000+ 4 1.35280- 1 7.20000+ 4 1.40290- 1 7.25000+ 4 1.42570- 11261 300404110
+ 7.31000+ 4 1.45310- 1 7.37000+ 4 1.48040- 1 7.41000+ 4 1.49870- 11261 300404111
+ 7.48000+ 4 1.53060- 1 7.50000+ 4 1.53970- 1 7.53000+ 4 1.55340- 11261 300404112
+ 7.58000+ 4 1.57620- 1 7.65000+ 4 1.60810- 1 7.70000+ 4 1.63090- 11261 300404113
+ 7.76000+ 4 1.65820- 1 7.84000+ 4 1.69470- 1 7.89000+ 4 1.71750- 11261 300404114
+ 7.94000+ 4 1.74030- 1 8.00000+ 4 1.76760- 1 8.07000+ 4 1.79960- 11261 300404115
+ 8.20000+ 4 1.85880- 1 8.27000+ 4 1.89070- 1 8.33000+ 4 1.91810- 11261 300404116
+ 8.40000+ 4 1.95000- 1 8.47000+ 4 2.02660- 1 8.50000+ 4 2.05940- 11261 300404117
+ 8.53000+ 4 2.09220- 1 8.61000+ 4 2.17970- 1 8.68000+ 4 2.25620- 11261 300404118
+ 8.75000+ 4 2.33280- 1 8.83000+ 4 2.42030- 1 8.90000+ 4 2.49690- 11261 300404119
+ 9.00000+ 4 2.60620- 1 9.03000+ 4 2.63910- 1 9.12000+ 4 2.73750- 11261 300404120
+ 9.28000+ 4 2.91250- 1 9.36000+ 4 3.00000- 1 9.44000+ 4 3.08750- 11261 300404121
+ 9.50000+ 4 3.15310- 1 9.52000+ 4 3.17500- 1 9.60000+ 4 3.26250- 11261 300404122
+ 9.68000+ 4 3.35000- 1 9.77000+ 4 3.44840- 1 9.85000+ 4 3.53590- 11261 300404123
+ 9.93000+ 4 3.62340- 1 9.99000+ 4 3.68910- 1 1.00000+ 5 3.70000- 11261 300404124
+ 1.03000+ 5 3.90000- 1 1.20000+ 5 4.29790- 1 1.35000+ 5 4.64890- 11261 300404125
+ 1.40000+ 5 4.76600- 1 1.50000+ 5 5.00000- 1 1.60000+ 5 5.26090- 11261 300404126
+ 1.73000+ 5 5.60010- 1 1.80000+ 5 5.78160- 1 2.00000+ 5 6.30000- 11261 300404127
+ 2.07000+ 5 6.38800- 1 2.15000+ 5 6.48860- 1 2.20000+ 5 6.55140- 11261 300404128
+ 2.25000+ 5 6.61430- 1 2.35000+ 5 6.74000- 1 2.40000+ 5 6.91000- 11261 300404129
+ 2.50000+ 5 7.25000- 1 2.60000+ 5 7.44000- 1 2.70000+ 5 7.63010- 11261 300404130
+ 2.80000+ 5 7.78680- 1 3.00000+ 5 8.10010- 1 3.20000+ 5 8.40000- 11261 300404131
+ 3.25000+ 5 8.47500- 1 3.40000+ 5 8.69990- 1 3.50000+ 5 8.84990- 11261 300404132
+ 3.60000+ 5 8.98000- 1 3.80000+ 5 9.24010- 1 4.00000+ 5 9.50020- 11261 300404133
+ 4.20000+ 5 9.88020- 1 4.40000+ 5 1.02600+ 0 4.50000+ 5 1.04500+ 01261 300404134
+ 4.60000+ 5 1.05600+ 0 4.70000+ 5 1.06700+ 0 4.80000+ 5 1.07800+ 01261 300404135
+ 5.00000+ 5 1.10000+ 0 5.20000+ 5 1.10600+ 0 5.40000+ 5 1.11200+ 01261 300404136
+ 5.50000+ 5 1.11500+ 0 5.60000+ 5 1.12000+ 0 5.70000+ 5 1.12500+ 01261 300404137
+ 5.80000+ 5 1.13000+ 0 6.00000+ 5 1.14000+ 0 6.20000+ 5 1.18200+ 01261 300404138
+ 6.40000+ 5 1.22400+ 0 6.50000+ 5 1.24500+ 0 6.60000+ 5 1.25620+ 01261 300404139
+ 6.70000+ 5 1.26740+ 0 6.80000+ 5 1.27860+ 0 7.00000+ 5 1.30100+ 01261 300404140
+ 7.20000+ 5 1.30860+ 0 7.30000+ 5 1.31240+ 0 7.40000+ 5 1.31620+ 01261 300404141
+ 7.50000+ 5 1.32000+ 0 7.60000+ 5 1.32400+ 0 7.70000+ 5 1.32800+ 01261 300404142
+ 7.75000+ 5 1.33000+ 0 7.80000+ 5 1.33200+ 0 8.00000+ 5 1.34000+ 01261 300404143
+ 8.20000+ 5 1.33600+ 0 8.40000+ 5 1.33200+ 0 8.50000+ 5 1.33000+ 01261 300404144
+ 8.60000+ 5 1.33400+ 0 8.80000+ 5 1.34200+ 0 9.00000+ 5 1.35000+ 01261 300404145
+ 9.20000+ 5 1.34590+ 0 9.40000+ 5 1.34190+ 0 9.50000+ 5 1.33990+ 01261 300404146
+ 9.60000+ 5 1.34590+ 0 9.70000+ 5 1.35190+ 0 9.80000+ 5 1.35800+ 01261 300404147
+ 1.00000+ 6 1.37010+ 0 1.05000+ 6 1.39310+ 0 1.10000+ 6 1.41610+ 01261 300404148
+ 1.15000+ 6 1.43900+ 0 1.20000+ 6 1.46200+ 0 1.25000+ 6 1.48500+ 01261 300404149
+ 1.29500+ 6 1.50570+ 0 1.30000+ 6 1.50800+ 0 1.35000+ 6 1.53100+ 01261 300404150
+ 1.40000+ 6 1.55400+ 0 1.45000+ 6 1.57700+ 0 1.49500+ 6 1.59770+ 01261 300404151
+ 1.50000+ 6 1.60000+ 0 1.60000+ 6 1.63000+ 0 1.70000+ 6 1.66000+ 01261 300404152
+ 1.80000+ 6 1.69000+ 0 1.90000+ 6 1.72000+ 0 2.00000+ 6 1.75000+ 01261 300404153
+ 2.10000+ 6 1.75000+ 0 2.20000+ 6 1.75000+ 0 2.30000+ 6 1.75000+ 01261 300404154
+ 2.40000+ 6 1.75000+ 0 2.50000+ 6 1.75000+ 0 2.60000+ 6 1.76200+ 01261 300404155
+ 2.70000+ 6 1.77400+ 0 2.80000+ 6 1.78600+ 0 2.90000+ 6 1.79800+ 01261 300404156
+ 3.00000+ 6 1.81000+ 0 3.10000+ 6 1.80990+ 0 3.20000+ 6 1.80980+ 01261 300404157
+ 3.30000+ 6 1.80960+ 0 3.40000+ 6 1.80950+ 0 3.50000+ 6 1.80940+ 01261 300404158
+ 3.60000+ 6 1.81140+ 0 3.70000+ 6 1.81360+ 0 3.80000+ 6 1.81570+ 01261 300404159
+ 3.90000+ 6 1.81790+ 0 4.00000+ 6 1.82000+ 0 4.10000+ 6 1.82210+ 01261 300404160
+ 4.20000+ 6 1.82400+ 0 4.30000+ 6 1.82600+ 0 4.40000+ 6 1.82800+ 01261 300404161
+ 4.50000+ 6 1.83000+ 0 4.60000+ 6 1.83200+ 0 4.70000+ 6 1.83400+ 01261 300404162
+ 4.80000+ 6 1.83200+ 0 4.90000+ 6 1.81500+ 0 5.00000+ 6 1.81700+ 01261 300404163
+ 5.10000+ 6 1.81300+ 0 5.15000+ 6 1.80500+ 0 5.20000+ 6 1.79800+ 01261 300404164
+ 5.25000+ 6 1.79200+ 0 5.30000+ 6 1.78540+ 0 5.32858+ 6 1.78190+ 01261 300404165
+ 5.35000+ 6 1.77780+ 0 5.40000+ 6 1.76820+ 0 5.45000+ 6 1.75660+ 01261 300404166
+ 5.50000+ 6 1.74400+ 0 5.55000+ 6 1.73100+ 0 5.60000+ 6 1.71500+ 01261 300404167
+ 5.65000+ 6 1.69800+ 0 5.70000+ 6 1.68000+ 0 5.75000+ 6 1.65800+ 01261 300404168
+ 5.80000+ 6 1.63400+ 0 5.90000+ 6 1.58200+ 0 6.00000+ 6 1.49200+ 01261 300404169
+ 6.10000+ 6 1.40300+ 0 6.20000+ 6 1.30200+ 0 6.30000+ 6 1.20500+ 01261 300404170
+ 6.40000+ 6 1.11300+ 0 6.50000+ 6 1.01960+ 0 6.60000+ 6 9.48800- 11261 300404171
+ 6.70000+ 6 8.76900- 1 6.80000+ 6 8.12700- 1 6.90000+ 6 7.56000- 11261 300404172
+ 7.00000+ 6 7.00400- 1 7.10000+ 6 6.41900- 1 7.20000+ 6 5.84000- 11261 300404173
+ 7.30000+ 6 5.26000- 1 7.40000+ 6 4.66200- 1 7.50000+ 6 4.28800- 11261 300404174
+ 7.60000+ 6 3.89400- 1 7.65000+ 6 3.79100- 1 7.70000+ 6 3.68800- 11261 300404175
+ 7.80000+ 6 3.48200- 1 7.90000+ 6 3.27500- 1 8.00000+ 6 3.07000- 11261 300404176
+ 8.20000+ 6 2.79800- 1 8.40000+ 6 2.52600- 1 8.50000+ 6 2.41800- 11261 300404177
+ 8.60000+ 6 2.31200- 1 8.80000+ 6 2.15500- 1 9.00000+ 6 2.00000- 11261 300404178
+ 9.20000+ 6 1.93220- 1 9.40000+ 6 1.86390- 1 9.50000+ 6 1.84000- 11261 300404179
+ 9.60000+ 6 1.81600- 1 9.80000+ 6 1.78800- 1 1.00000+ 7 1.76000- 11261 300404180
+ 1.05000+ 7 1.74000- 1 1.10000+ 7 1.78000- 1 1.15000+ 7 1.83000- 11261 300404181
+ 1.19000+ 7 1.89300- 1 1.20000+ 7 1.91000- 1 1.21988+ 7 1.95100- 11261 300404182
+ 1.25000+ 7 2.02000- 1 1.30000+ 7 2.13000- 1 1.35000+ 7 2.21000- 11261 300404183
+ 1.40000+ 7 2.25000- 1 1.45000+ 7 2.23000- 1 1.50000+ 7 2.21000- 11261 300404184
+ 1.55000+ 7 2.19000- 1 1.60000+ 7 2.18000- 1 1.65000+ 7 2.16500- 11261 300404185
+ 1.70000+ 7 2.15000- 1 1.75000+ 7 2.14000- 1 1.80000+ 7 2.13000- 11261 300404186
+ 1.85000+ 7 2.12000- 1 1.90000+ 7 2.11200- 1 1.95000+ 7 2.10500- 11261 300404187
+ 2.00000+ 7 2.10000- 1                                            1261 300404188
+                                                                  1261 300004189
+ 9.22350+ 4 2.33025+ 2          0         99          0          01261 301604190
+ 0.00000+ 0-5.30600+ 6          0          0          1         681261 301604191
+         68          2                                            1261 301604192
+ 5.32858+ 6 0.00000+ 0 5.35000+ 6 1.00000- 3 5.40000+ 6 5.00000- 31261 301604193
+ 5.45000+ 6 1.00000- 2 5.50000+ 6 1.40000- 2 5.55000+ 6 1.80000- 21261 301604194
+ 5.60000+ 6 2.30000- 2 5.65000+ 6 3.10000- 2 5.70000+ 6 4.00000- 21261 301604195
+ 5.75000+ 6 4.80000- 2 5.80000+ 6 5.60000- 2 5.90000+ 6 7.50000- 21261 301604196
+ 6.00000+ 6 9.60000- 2 6.10000+ 6 1.16000- 1 6.20000+ 6 1.38000- 11261 301604197
+ 6.30000+ 6 1.56000- 1 6.40000+ 6 1.75000- 1 6.50000+ 6 1.95000- 11261 301604198
+ 6.60000+ 6 2.12000- 1 6.70000+ 6 2.30000- 1 6.80000+ 6 2.47000- 11261 301604199
+ 6.90000+ 6 2.62000- 1 7.00000+ 6 2.77000- 1 7.10000+ 6 2.90000- 11261 301604200
+ 7.20000+ 6 3.02000- 1 7.30000+ 6 3.12000- 1 7.40000+ 6 3.21000- 11261 301604201
+ 7.50000+ 6 3.30000- 1 7.60000+ 6 3.39000- 1 7.65000+ 6 3.42000- 11261 301604202
+ 7.70000+ 6 3.47000- 1 7.80000+ 6 3.53000- 1 7.90000+ 6 3.63000- 11261 301604203
+ 8.00000+ 6 3.69000- 1 8.20000+ 6 3.82000- 1 8.40000+ 6 3.95000- 11261 301604204
+ 8.50000+ 6 4.01000- 1 8.60000+ 6 4.06000- 1 8.80000+ 6 4.16000- 11261 301604205
+ 9.00000+ 6 4.23000- 1 9.20000+ 6 4.30000- 1 9.40000+ 6 4.35000- 11261 301604206
+ 9.50000+ 6 4.38000- 1 9.60000+ 6 4.40000- 1 9.80000+ 6 4.43000- 11261 301604207
+ 1.00000+ 7 4.46000- 1 1.05000+ 7 4.51000- 1 1.10000+ 7 4.55000- 11261 301604208
+ 1.15000+ 7 4.56000- 1 1.19000+ 7 4.57000- 1 1.20000+ 7 4.57000- 11261 301604209
+ 1.21988+ 7 4.57000- 1 1.25000+ 7 4.42000- 1 1.30000+ 7 3.98000- 11261 301604210
+ 1.35000+ 7 3.43000- 1 1.40000+ 7 2.96000- 1 1.45000+ 7 2.53000- 11261 301604211
+ 1.50000+ 7 2.10000- 1 1.55000+ 7 1.71000- 1 1.60000+ 7 1.39000- 11261 301604212
+ 1.65000+ 7 1.11000- 1 1.70000+ 7 8.30000- 2 1.75000+ 7 5.90000- 21261 301604213
+ 1.80000+ 7 3.60000- 2 1.85000+ 7 2.10000- 2 1.90000+ 7 1.10000- 21261 301604214
+ 1.95000+ 7 4.00000- 3 2.00000+ 7 0.00000+ 0                      1261 301604215
+                                                                  1261 300004216
+ 9.22350+ 4 2.33025+ 2          0         99          0          01261 301704217
+ 0.00000+ 0-1.21470+ 7          0          0          1         171261 301704218
+         17          2                                            1261 301704219
+ 1.21988+ 7 0.00000+ 0 1.25000+ 7 4.00000- 3 1.30000+ 7 1.10000- 21261 301704220
+ 1.35000+ 7 2.10000- 2 1.40000+ 7 3.20000- 2 1.45000+ 7 4.50000- 21261 301704221
+ 1.50000+ 7 5.90000- 2 1.55000+ 7 7.20000- 2 1.60000+ 7 8.40000- 21261 301704222
+ 1.65000+ 7 9.50000- 2 1.70000+ 7 1.02000- 1 1.75000+ 7 1.04000- 11261 301704223
+ 1.80000+ 7 1.03000- 1 1.85000+ 7 9.70000- 2 1.90000+ 7 8.70000- 21261 301704224
+ 1.95000+ 7 7.30000- 2 2.00000+ 7 6.60000- 2                      1261 301704225
+                                                                  1261 300004226
+ 9.22350+ 4 2.33025+ 2          0         99          0          01261 301804227
+ 0.00000+ 0 1.92500+ 8          0          0          3        8101261 301804228
+         57          5        478          2        810          31261 301804229
+ 1.00000- 5 3.13101+ 4 1.00000- 3 3.12342+ 3 5.00000- 3 1.38320+ 31261 301804230
+ 1.00000- 2 9.66232+ 2 1.50000- 2 7.79393+ 2 2.00000- 2 6.66868+ 21261 301804231
+ 2.53000- 2 5.85400+ 2 3.00000- 2 5.31595+ 2 3.50000- 2 4.86335+ 21261 301804232
+ 4.00000- 2 4.49609+ 2 4.50000- 2 4.18978+ 2 5.00000- 2 3.92911+ 21261 301804233
+ 5.50000- 2 3.70387+ 2 6.00000- 2 3.50688+ 2 6.50000- 2 3.33297+ 21261 301804234
+ 7.00000- 2 3.17839+ 2 7.50000- 2 3.04052+ 2 8.00000- 2 2.91753+ 21261 301804235
+ 8.50000- 2 2.80719+ 2 9.00000- 2 2.70717+ 2 9.50000- 2 2.61587+ 21261 301804236
+ 1.00000- 1 2.53286+ 2 1.10000- 1 2.38222+ 2 1.20000- 1 2.25245+ 21261 301804237
+ 1.30000- 1 2.14130+ 2 1.40000- 1 2.04858+ 2 1.50000- 1 1.97255+ 21261 301804238
+ 1.60000- 1 1.90817+ 2 1.70000- 1 1.85614+ 2 1.80000- 1 1.81575+ 21261 301804239
+ 2.03340- 1 1.77009+ 2 2.23340- 1 1.77951+ 2 2.43340- 1 1.83852+ 21261 301804240
+ 2.63340- 1 1.91404+ 2 2.83340- 1 1.96425+ 2 3.03340- 1 1.91819+ 21261 301804241
+ 3.23340- 1 1.74246+ 2 3.43340- 1 1.53939+ 2 3.63340- 1 1.39008+ 21261 301804242
+ 3.83340- 1 1.26031+ 2 4.03340- 1 1.15158+ 2 4.28120- 1 1.04063+ 21261 301804243
+ 4.64920- 1 9.15860+ 1 5.04920- 1 8.19601+ 1 5.44920- 1 7.48053+ 11261 301804244
+ 5.84920- 1 6.94310+ 1 6.24920- 1 6.53910+ 1 6.64920- 1 6.22235+ 11261 301804245
+ 7.04920- 1 5.96615+ 1 7.44920- 1 5.76510+ 1 7.84920- 1 5.62855+ 11261 301804246
+ 8.24920- 1 5.56588+ 1 8.64920- 1 5.59828+ 1 9.04920- 1 5.76439+ 11261 301804247
+ 9.44920- 1 6.07385+ 1 9.84920- 1 6.52381+ 1 1.00000+ 0 6.81157+ 11261 301804248
+ 1.00000+ 0 1.18560+ 1 1.05500+ 0 1.14300+ 1 1.07300+ 0 1.06400+ 11261 301804249
+ 1.09100+ 0 9.29000+ 0 1.18200+ 0-1.92900+ 1 1.20000+ 0-2.35700+ 11261 301804250
+ 1.21800+ 0-2.50000+ 1 1.23600+ 0-2.50000+ 1 1.32700+ 0-1.42900+ 11261 301804251
+ 1.36400+ 0-1.21400+ 1 1.45500+ 0-8.21000+ 0 1.54500+ 0-6.07000+ 01261 301804252
+ 1.63600+ 0-4.64000+ 0 1.72700+ 0-3.57000+ 0 1.81800+ 0-2.86000+ 01261 301804253
+ 1.90900+ 0-2.14000+ 0 2.00000+ 0-2.14000+ 0 2.18200+ 0-1.43000+ 01261 301804254
+ 2.36400+ 0-7.10000- 1 2.45500+ 0-1.07000+ 0 2.54500+ 0-1.79000+ 01261 301804255
+ 2.63600+ 0-3.57000+ 0 2.69100+ 0-4.29000+ 0 2.74500+ 0-4.29000+ 01261 301804256
+ 2.80000+ 0 0.00000+ 0 2.81800+ 0 7.10000- 1 2.85500+ 0 7.10000- 11261 301804257
+ 2.92700+ 0-7.10000- 1 2.94500+ 0-7.10000- 1 3.01800+ 0 3.57000+ 01261 301804258
+ 3.07200+ 0 3.57000+ 0 3.18200+ 0-3.57000+ 0 3.21800+ 0-3.21000+ 01261 301804259
+ 3.27300+ 0-1.43000+ 0 3.36400+ 0 2.14000+ 0 3.45500+ 0 6.50000+ 01261 301804260
+ 3.49100+ 0 7.10000+ 0 3.54500+ 0 8.00000+ 0 3.58200+ 0 2.50000+ 01261 301804261
+ 3.63600+ 0 0.00000+ 0 3.69100+ 0-6.98000+ 0 3.72700+ 0-9.19000+ 01261 301804262
+ 3.81800+ 0-7.14000+ 0 3.90900+ 0-5.36000+ 0 4.00000+ 0-4.40000+ 01261 301804263
+ 4.09100+ 0-3.70000+ 0 4.18200+ 0-3.14000+ 0 4.36400+ 0-2.29000+ 01261 301804264
+ 4.54500+ 0-2.14000+ 0 4.63600+ 0-1.79000+ 0 4.72700+ 0-1.43000+ 01261 301804265
+ 4.78200+ 0 0.00000+ 0 4.80000+ 0 7.10000- 1 4.83600+ 0 7.10000- 11261 301804266
+ 4.85500+ 0 7.10000- 1 4.89100+ 0-1.43000+ 0 4.90900+ 0-2.14000+ 01261 301804267
+ 4.94500+ 0-2.86000+ 0 4.98100+ 0-2.86000+ 0 5.09100+ 0-2.86000+ 01261 301804268
+ 5.14500+ 0-2.50000+ 0 5.18200+ 0-2.14000+ 0 5.27300+ 0-1.07000+ 01261 301804269
+ 5.30900+ 0-7.10000- 1 5.54500+ 0-7.10000- 1 5.65500+ 0-1.79000+ 01261 301804270
+ 5.72700+ 0-1.43000+ 0 5.81800+ 0 0.00000+ 0 5.90900+ 0 1.64000+ 01261 301804271
+ 6.00000+ 0 2.86000+ 0 6.09100+ 0 2.50000+ 0 6.16400+ 0 1.43000+ 01261 301804272
+ 6.21800+ 0-1.79000+ 0 6.25500+ 0-1.79000+ 0 6.29100+ 0 0.00000+ 01261 301804273
+ 6.41800+ 0 0.00000+ 0 6.45500+ 0-2.86000+ 0 6.49100+ 0-5.00000+ 01261 301804274
+ 6.54500+ 0-5.00000+ 0 6.63600+ 0-4.28000+ 0 6.72700+ 0-3.71000+ 01261 301804275
+ 6.81800+ 0-2.14000+ 0 6.98200+ 0 0.00000+ 0 7.18200+ 0 0.00000+ 01261 301804276
+ 7.29100+ 0-3.57000+ 0 7.81800+ 0-3.93000+ 0 8.00000+ 0-4.29000+ 01261 301804277
+ 8.18100+ 0-4.29000+ 0 8.36300+ 0-3.93000+ 0 8.45300+ 0 0.00000+ 01261 301804278
+ 8.92500+ 0 0.00000+ 0 9.01500+ 0 2.14300+ 1 9.05200+ 0 2.50000+ 11261 301804279
+ 9.10600+ 0 2.50000+ 1 9.17900+ 0 1.00000+ 1 9.23300+ 0 0.00000+ 01261 301804280
+ 9.36000+ 0 0.00000+ 0 9.43200+ 0 1.00000+ 1 9.45100+ 0 1.14300+ 11261 301804281
+ 9.50500+ 0 1.00000+ 1 9.54100+ 0 8.21000+ 0 9.70400+ 0 0.00000+ 01261 301804282
+ 9.75900+ 0-2.14000+ 0 9.99500+ 0-2.14000+ 0 1.00850+ 1-2.86000+ 01261 301804283
+ 1.01760+ 1 0.00000+ 0 1.02670+ 1 0.00000+ 0 1.03390+ 1 2.14000+ 01261 301804284
+ 1.04300+ 1 2.14000+ 0 1.06290+ 1-7.10000- 1 1.07200+ 1-7.10000- 11261 301804285
+ 1.08110+ 1-3.60000- 1 1.09370+ 1-5.70000- 1 1.09920+ 1 0.00000+ 01261 301804286
+ 1.12640+ 1 3.00000+ 0 1.14090+ 1 2.75000+ 0 1.14450+ 1 2.88000+ 01261 301804287
+ 1.14810+ 1 2.90000+ 0 1.15540+ 1 0.00000+ 0 1.18620+ 1 0.00000+ 01261 301804288
+ 1.18980+ 1 2.70000+ 0 1.20000+ 1 5.40000+ 0 1.20910+ 1 7.43000+ 01261 301804289
+ 1.21450+ 1 1.13500+ 1 1.22000+ 1 1.00000+ 1 1.23500+ 1 0.00000+ 01261 301804290
+ 1.40850+ 1 0.00000+ 0 1.42670+ 1 2.86000+ 0 1.43570+ 1 5.71000+ 01261 301804291
+ 1.44120+ 1 5.71000+ 0 1.44480+ 1 4.71000+ 0 1.46110+ 1-5.50000+ 01261 301804292
+ 1.46470+ 1-5.50000+ 0 1.47370+ 1-3.57000+ 0 1.49010+ 1-5.00000- 11261 301804293
+ 1.50000+ 1-7.10000- 1 1.50910+ 1 0.00000+ 0 1.51820+ 1 7.10000- 11261 301804294
+ 1.52730+ 1 0.00000+ 0 1.54550+ 1 0.00000+ 0 1.55450+ 1-1.43000+ 01261 301804295
+ 1.56360+ 1-3.58000+ 0 1.57270+ 1-3.57000+ 0 1.58180+ 1-2.50000+ 01261 301804296
+ 1.59090+ 1-1.21000+ 0 1.60000+ 1 0.00000+ 0 1.61820+ 1 0.00000+ 01261 301804297
+ 1.62730+ 1-3.58000+ 0 1.63640+ 1-6.45000+ 0 1.64360+ 1-6.43000+ 01261 301804298
+ 1.64910+ 1-6.43000+ 0 1.65450+ 1-4.29000+ 0 1.66360+ 1 0.00000+ 01261 301804299
+ 1.67270+ 1 0.00000+ 0 1.68180+ 1 1.43000+ 0 1.69090+ 1 3.93000+ 01261 301804300
+ 1.69450+ 1 4.29000+ 0 1.70000+ 1 3.57000+ 0 1.70910+ 1 2.86000+ 01261 301804301
+ 1.71810+ 1 1.43000+ 0 1.72730+ 1 7.10000- 1 1.73640+ 1 0.00000+ 01261 301804302
+ 1.74550+ 1 0.00000+ 0 1.75450+ 1-7.10000- 1 1.76360+ 1-1.07000+ 01261 301804303
+ 1.77270+ 1-1.43000+ 0 1.78180+ 1-1.86000+ 0 1.79090+ 1-7.10000- 11261 301804304
+ 1.80910+ 1 0.00000+ 0 1.82730+ 1 0.00000+ 0 1.83640+ 1 3.57000+ 01261 301804305
+ 1.84550+ 1 3.93000+ 0 1.85450+ 1 3.57000+ 0 1.86360+ 1 2.86000+ 01261 301804306
+ 1.87270+ 1 2.14000+ 0 1.88180+ 1 1.43000+ 0 1.89090+ 1 1.07000+ 01261 301804307
+ 1.90000+ 1 0.00000+ 0 1.93810+ 1 0.00000+ 0 1.94360+ 1 2.86000+ 01261 301804308
+ 1.94550+ 1 7.14000+ 0 1.94910+ 1 1.42900+ 1 1.95090+ 1 1.71400+ 11261 301804309
+ 1.95270+ 1 1.71400+ 1 1.95450+ 1 1.57100+ 1 1.96180+ 1 1.07100+ 11261 301804310
+ 1.96720+ 1 8.29000+ 0 1.97270+ 1 6.43000+ 0 1.98180+ 1 4.29000+ 01261 301804311
+ 1.99090+ 1 2.50000+ 0 2.00000+ 1 7.10000- 1 2.00910+ 1 0.00000+ 01261 301804312
+ 2.02730+ 1-7.10000- 1 2.09090+ 1-7.10000- 1 2.10000+ 1-7.10000- 11261 301804313
+ 2.10360+ 1-1.00000+ 0 2.10910+ 1-1.00000+ 0 2.11270+ 1-1.10000+ 01261 301804314
+ 2.11820+ 1-1.20000+ 0 2.12180+ 1-1.30000+ 0 2.12640+ 1-1.35000+ 01261 301804315
+ 2.13640+ 1-1.43000+ 0 2.14000+ 1-2.15000+ 0 2.14550+ 1-2.15000+ 01261 301804316
+ 2.15450+ 1-2.80000+ 0 2.17270+ 1-3.45000+ 0 2.19090+ 1-2.87000+ 01261 301804317
+ 2.20910+ 1-2.51000+ 0 2.22730+ 1-1.79000+ 0 2.24550+ 1-1.07000+ 01261 301804318
+ 2.26360+ 1 0.00000+ 0 2.30000+ 1 0.00000+ 0 2.31150+ 1 4.00000- 11261 301804319
+ 2.32300+ 1 3.60000- 1 2.34600+ 1 1.80000- 1 2.36900+ 1 9.00000- 21261 301804320
+ 2.38740+ 1 0.00000+ 0 2.40110+ 1-4.64000+ 0 2.41030+ 1-4.65000+ 01261 301804321
+ 2.43790+ 1 2.73000+ 0 2.46090+ 1 9.00000+ 0 2.48390+ 1 4.64000+ 01261 301804322
+ 2.50690+ 1-4.50000- 1 2.51610+ 1-4.50000- 1 2.53450+ 1 1.82000+ 01261 301804323
+ 2.55290+ 1 0.00000+ 0 2.57130+ 1 0.00000+ 0 2.58510+ 1-4.55000+ 01261 301804324
+ 2.60340+ 1-1.09100+ 1 2.61260+ 1-1.09100+ 1 2.62180+ 1-7.73000+ 01261 301804325
+ 2.64480+ 1 0.00000+ 0 2.84250+ 1 0.00000+ 0 2.85170+ 1 4.50000- 11261 301804326
+ 2.87470+ 1 4.50000- 1 2.89770+ 1 4.50000- 1 2.92070+ 1 4.50000- 11261 301804327
+ 2.94370+ 1 4.50000- 1 2.96670+ 1 0.00000+ 0 2.98970+ 1-1.80000- 11261 301804328
+ 3.00000+ 1-3.60000- 1 3.02290+ 1-4.50000- 1 3.04570+ 1 0.00000+ 01261 301804329
+ 3.06860+ 1 0.00000+ 0 3.07770+ 1 0.00000+ 0 3.09140+ 1 0.00000+ 01261 301804330
+ 3.09600+ 1-8.20000- 1 3.10970+ 1-2.18000+ 0 3.11430+ 1-2.36000+ 01261 301804331
+ 3.13710+ 1-1.82000+ 0 3.16000+ 1-9.10000- 1 3.16910+ 1-7.30000- 11261 301804332
+ 3.18290+ 1 0.00000+ 0 3.21940+ 1 0.00000+ 0 3.22860+ 1 0.00000+ 01261 301804333
+ 3.25140+ 1-2.73000+ 0 3.27430+ 1-3.18000+ 0 3.29710+ 1-3.18000+ 01261 301804334
+ 3.32000+ 1-2.27000+ 0 3.35200+ 1 0.00000+ 0 3.44340+ 1 0.00000+ 01261 301804335
+ 3.44800+ 1 2.72700+ 1 3.45260+ 1 3.27300+ 1 3.45710+ 1 3.36300+ 11261 301804336
+ 3.46170+ 1 2.90900+ 1 3.46630+ 1 1.63600+ 1 3.47090+ 1 8.18000+ 01261 301804337
+ 3.47540+ 1 4.54000+ 0 3.48460+ 1 0.00000+ 0 3.66290+ 1 0.00000+ 01261 301804338
+ 3.68570+ 1-9.10000- 1 3.70860+ 1-1.50000+ 0 3.73140+ 1 0.00000+ 01261 301804339
+ 3.75430+ 1 7.30000- 1 3.77710+ 1 9.10000- 1 3.80000+ 1 8.20000- 11261 301804340
+ 3.82290+ 1 7.30000- 1 3.84570+ 1 5.50000- 1 3.86860+ 1-3.60000- 11261 301804341
+ 3.89140+ 1-2.18000+ 0 3.91430+ 1-4.55000+ 0 3.92340+ 1-5.00000+ 01261 301804342
+ 3.92800+ 1 0.00000+ 0 3.99660+ 1 0.00000+ 0 4.01940+ 1-1.82000+ 01261 301804343
+ 4.05140+ 1 0.00000+ 0 4.06970+ 1 2.72000+ 0 4.07430+ 1 3.45000+ 01261 301804344
+ 4.07890+ 1 3.64000+ 0 4.09710+ 1 2.73000+ 0 4.12000+ 1 0.00000+ 01261 301804345
+ 4.15660+ 1 0.00000+ 0 4.16570+ 1-9.10000- 1 4.17940+ 1-9.10000- 11261 301804346
+ 4.19770+ 1 2.73000+ 0 4.21140+ 1 1.82000+ 0 4.22970+ 1 0.00000+ 01261 301804347
+ 4.23890+ 1 2.73000+ 0 4.25710+ 1 2.73000+ 0 4.27090+ 1-9.10000- 11261 301804348
+ 4.28000+ 1-9.10000- 1 4.28910+ 1 1.82000+ 0 4.30290+ 1 1.82000+ 01261 301804349
+ 4.32110+ 1 0.00000+ 0 4.36690+ 1 0.00000+ 0 4.38060+ 1-1.82000+ 01261 301804350
+ 4.40340+ 1 1.82000+ 0 4.41710+ 1 2.27000+ 0 4.44000+ 1 1.64000+ 01261 301804351
+ 4.46290+ 1 0.00000+ 0 4.48570+ 1-1.80000- 1 4.50860+ 1 0.00000+ 01261 301804352
+ 4.53140+ 1-6.30000- 1 4.55430+ 1-5.50000- 1 4.57710+ 1-7.30000- 11261 301804353
+ 4.60000+ 1-1.00000+ 0 4.61810+ 1-1.43000+ 0 4.63630+ 1-7.10000- 11261 301804354
+ 4.65440+ 1 0.00000+ 0 4.72700+ 1 0.00000+ 0 4.74510+ 1 7.20000- 11261 301804355
+ 4.76330+ 1 2.14000+ 0 4.77410+ 1 2.71000+ 0 4.78870+ 1 0.00000+ 01261 301804356
+ 4.90110+ 1 0.00000+ 0 4.91200+ 1 2.86000+ 0 4.91930+ 1 2.86000+ 01261 301804357
+ 4.93380+ 1 0.00000+ 0 4.95560+ 1 0.00000+ 0 4.96640+ 1 2.14000+ 01261 301804358
+ 4.97730+ 1 2.14000+ 0 4.99550+ 1 0.00000+ 0 5.34380+ 1 0.00000+ 01261 301804359
+ 5.36190+ 1 2.86000+ 0 5.38000+ 1 3.57000+ 0 5.40000+ 1 1.43000+ 01261 301804360
+ 5.41810+ 1 0.00000+ 0 5.59950+ 1 0.00000+ 0 5.61770+ 1 5.00000+ 01261 301804361
+ 5.62860+ 1 7.86000+ 0 5.63580+ 1 5.00000+ 0 5.64310+ 1 0.00000+ 01261 301804362
+ 5.66490+ 1 0.00000+ 0 5.67940+ 1 5.00000+ 0 5.69020+ 1 2.86000+ 01261 301804363
+ 5.71200+ 1-7.10000- 1 5.72650+ 1-1.29000+ 0 5.76280+ 1-1.29000+ 01261 301804364
+ 5.78100+ 1 0.00000+ 0 5.79910+ 1 0.00000+ 0 5.81720+ 1 0.00000+ 01261 301804365
+ 5.83170+ 1-2.50000+ 0 5.83900+ 1-2.00000+ 0 5.88250+ 1 0.00000+ 01261 301804366
+ 5.90070+ 1 1.40000+ 0 5.91160+ 1 1.40000+ 0 5.94420+ 1 7.00000- 11261 301804367
+ 5.96240+ 1 3.50000- 1 5.98050+ 1 0.00000+ 0 6.94000+ 1 0.00000+ 01261 301804368
+ 6.96190+ 1 3.00000+ 0 6.98000+ 1 4.10000+ 0 7.00000+ 1 4.14000+ 01261 301804369
+ 7.01810+ 1 0.00000+ 0 7.15600+ 1 0.00000+ 0 7.18140+ 1-2.86000+ 01261 301804370
+ 7.19230+ 1-3.93000+ 0 7.19950+ 1-3.93000+ 0 7.20680+ 1-3.57000+ 01261 301804371
+ 7.21040+ 1-2.14000+ 0 7.21770+ 1 0.00000+ 0 7.23220+ 1 0.00000+ 01261 301804372
+ 7.25030+ 1 0.00000+ 0 7.26850+ 1 6.79000+ 0 7.27210+ 1 4.00000+ 01261 301804373
+ 7.28300+ 1 1.40000+ 0 7.29020+ 1 3.60000- 1 7.29750+ 1 0.00000+ 01261 301804374
+ 7.30840+ 1 0.00000+ 0 7.39910+ 1 0.00000+ 0 7.44260+ 1 0.00000+ 01261 301804375
+ 7.45710+ 1 3.57000+ 0 7.47890+ 1 1.67900+ 1 7.48250+ 1 1.67900+ 11261 301804376
+ 7.48620+ 1 1.42900+ 1 7.48980+ 1 9.29000+ 0 7.49340+ 1 7.50000+ 01261 301804377
+ 7.49710+ 1 5.71000+ 0 7.50430+ 1 3.21000+ 0 7.50790+ 1 2.14000+ 01261 301804378
+ 7.51880+ 1 0.00000+ 0 7.60230+ 1-1.00000+ 0 7.61680+ 1-1.20000+ 01261 301804379
+ 7.67480+ 1 0.00000+ 0 7.83000+ 1 0.00000+ 0 7.83630+ 1 5.00000+ 01261 301804380
+ 7.85440+ 1 6.10000+ 0 7.87260+ 1 5.00000+ 0 7.89070+ 1 4.50000+ 01261 301804381
+ 7.90880+ 1 3.20000+ 0 7.92700+ 1 2.14000+ 0 7.94510+ 1 0.00000+ 01261 301804382
+ 7.98140+ 1 0.00000+ 0 7.99950+ 1 2.32000+ 0 8.00680+ 1 2.32000+ 01261 301804383
+ 8.02490+ 1 0.00000+ 0 8.04670+ 1 0.00000+ 0 8.07570+ 1 2.00000+ 01261 301804384
+ 8.08660+ 1 2.10000+ 0 8.09750+ 1 2.00000+ 0 8.10840+ 1 1.50000+ 01261 301804385
+ 8.13380+ 1 0.00000+ 0 8.15190+ 1 0.00000+ 0 8.16280+ 1 0.00000+ 01261 301804386
+ 8.18100+ 1 1.50000+ 0 8.20000+ 1 1.50000+ 0 8.20000+ 1 0.00000+ 01261 301804387
+ 1.00000+ 3 0.00000+ 0 1.30000+ 4 0.00000+ 0 2.50000+ 4 0.00000+ 01261 301804388
+ 2.50000+ 4 2.15220+ 0 2.53000+ 4 2.13979+ 0 2.57000+ 4 2.12347+ 01261 301804389
+ 2.62000+ 4 2.10726+ 0 2.65000+ 4 2.10110+ 0 2.72000+ 4 2.09307+ 01261 301804390
+ 2.75000+ 4 2.09615+ 0 2.83000+ 4 2.13527+ 0 2.88000+ 4 2.19127+ 01261 301804391
+ 2.93000+ 4 2.16076+ 0 2.98000+ 4 2.07421+ 0 3.00000+ 4 2.04000+ 01261 301804392
+ 3.11000+ 4 2.08301+ 0 3.13000+ 4 2.10773+ 0 3.18000+ 4 2.16883+ 01261 301804393
+ 3.21000+ 4 2.17749+ 0 3.25000+ 4 2.11591+ 0 3.28000+ 4 2.07023+ 01261 301804394
+ 3.42000+ 4 1.98876+ 0 3.45000+ 4 1.95803+ 0 3.50000+ 4 1.90740+ 01261 301804395
+ 3.62000+ 4 1.98248+ 0 3.65000+ 4 1.92717+ 0 3.70000+ 4 1.83600+ 01261 301804396
+ 3.79000+ 4 1.94630+ 0 3.87000+ 4 1.89389+ 0 3.91000+ 4 1.86866+ 01261 301804397
+ 3.94000+ 4 1.87482+ 0 4.00000+ 4 1.88700+ 0 4.04000+ 4 1.94454+ 01261 301804398
+ 4.10000+ 4 2.02980+ 0 4.15000+ 4 1.95797+ 0 4.20000+ 4 1.88700+ 01261 301804399
+ 4.30000+ 4 1.91760+ 0 4.36000+ 4 1.90530+ 0 4.38000+ 4 1.90124+ 01261 301804400
+ 4.43000+ 4 1.88178+ 0 4.48000+ 4 1.85631+ 0 4.50000+ 4 1.84620+ 01261 301804401
+ 4.52000+ 4 1.83385+ 0 4.54000+ 4 1.82156+ 0 4.60000+ 4 1.78500+ 01261 301804402
+ 4.62000+ 4 1.80146+ 0 4.65000+ 4 1.82602+ 0 4.68000+ 4 1.85042+ 01261 301804403
+ 4.73000+ 4 1.83269+ 0 4.76000+ 4 1.79900+ 0 4.82000+ 4 1.76880+ 01261 301804404
+ 4.84000+ 4 1.78314+ 0 4.88000+ 4 1.81164+ 0 4.90000+ 4 1.82580+ 01261 301804405
+ 5.00000+ 4 1.74420+ 0 5.02000+ 4 1.75448+ 0 5.06000+ 4 1.77492+ 01261 301804406
+ 5.09000+ 4 1.79014+ 0 5.12000+ 4 1.79520+ 0 5.15000+ 4 1.79520+ 01261 301804407
+ 5.22000+ 4 1.82192+ 0 5.25000+ 4 1.86181+ 0 5.35000+ 4 1.92268+ 01261 301804408
+ 5.39000+ 4 1.91861+ 0 5.42000+ 4 1.91760+ 0 5.46000+ 4 1.91760+ 01261 301804409
+ 5.50000+ 4 1.91760+ 0 5.53000+ 4 1.91452+ 0 5.57000+ 4 1.91044+ 01261 301804410
+ 5.61000+ 4 1.90226+ 0 5.67000+ 4 1.87160+ 0 5.71000+ 4 1.85948+ 01261 301804411
+ 5.76000+ 4 1.87482+ 0 5.79000+ 4 1.88396+ 0 5.83000+ 4 1.86545+ 01261 301804412
+ 5.87000+ 4 1.83689+ 0 5.91000+ 4 1.81149+ 0 5.92000+ 4 1.80738+ 01261 301804413
+ 5.98000+ 4 1.78291+ 0 6.00000+ 4 1.77480+ 0 6.03000+ 4 1.80557+ 01261 301804414
+ 6.12000+ 4 1.86243+ 0 6.15000+ 4 1.84096+ 0 6.20000+ 4 1.80540+ 01261 301804415
+ 6.25000+ 4 1.81564+ 0 6.29000+ 4 1.82377+ 0 6.32000+ 4 1.83196+ 01261 301804416
+ 6.42000+ 4 1.82767+ 0 6.47000+ 4 1.75621+ 0 6.50000+ 4 1.71360+ 01261 301804417
+ 6.51000+ 4 1.72284+ 0 6.61000+ 4 1.80129+ 0 6.65000+ 4 1.78492+ 01261 301804418
+ 6.70000+ 4 1.76460+ 0 6.74000+ 4 1.78919+ 0 6.80000+ 4 1.82580+ 01261 301804419
+ 6.83000+ 4 1.80427+ 0 6.89000+ 4 1.76149+ 0 6.94000+ 4 1.74620+ 01261 301804420
+ 7.00000+ 4 1.73400+ 0 7.03000+ 4 1.73400+ 0 7.09000+ 4 1.73400+ 01261 301804421
+ 7.20000+ 4 1.73400+ 0 7.25000+ 4 1.78005+ 0 7.31000+ 4 1.82170+ 01261 301804422
+ 7.37000+ 4 1.79718+ 0 7.41000+ 4 1.79013+ 0 7.48000+ 4 1.82585+ 01261 301804423
+ 7.50000+ 4 1.83600+ 0 7.53000+ 4 1.82370+ 0 7.58000+ 4 1.80332+ 01261 301804424
+ 7.65000+ 4 1.72357+ 0 7.70000+ 4 1.65240+ 0 7.76000+ 4 1.68921+ 01261 301804425
+ 7.84000+ 4 1.72179+ 0 7.89000+ 4 1.73197+ 0 7.94000+ 4 1.66848+ 01261 301804426
+ 8.00000+ 4 1.57080+ 0 8.07000+ 4 1.65664+ 0 8.20000+ 4 1.71360+ 01261 301804427
+ 8.27000+ 4 1.69214+ 0 8.33000+ 4 1.64920+ 0 8.40000+ 4 1.57080+ 01261 301804428
+ 8.47000+ 4 1.66378+ 0 8.50000+ 4 1.70340+ 0 8.53000+ 4 1.66039+ 01261 301804429
+ 8.61000+ 4 1.55445+ 0 8.68000+ 4 1.51158+ 0 8.75000+ 4 1.55566+ 01261 301804430
+ 8.83000+ 4 1.59317+ 0 8.90000+ 4 1.55040+ 0 9.00000+ 4 1.63200+ 01261 301804431
+ 9.03000+ 4 1.63200+ 0 9.12000+ 4 1.59103+ 0 9.28000+ 4 1.52603+ 01261 301804432
+ 9.36000+ 4 1.57493+ 0 9.44000+ 4 1.57892+ 0 9.50000+ 4 1.56060+ 01261 301804433
+ 9.52000+ 4 1.57494+ 0 9.60000+ 4 1.63200+ 0 9.68000+ 4 1.70552+ 01261 301804434
+ 9.77000+ 4 1.63084+ 0 9.85000+ 4 1.62699+ 0 9.93000+ 4 1.65339+ 01261 301804435
+ 9.99000+ 4 1.63505+ 0 1.00000+ 5 1.58500+ 0 1.03000+ 5 1.57200+ 01261 301804436
+ 1.20000+ 5 1.53200+ 0 1.35000+ 5 1.49600+ 0 1.40000+ 5 1.48200+ 01261 301804437
+ 1.50000+ 5 1.45800+ 0 1.60000+ 5 1.44000+ 0 1.73000+ 5 1.40700+ 01261 301804438
+ 1.80000+ 5 1.39400+ 0 2.00000+ 5 1.35100+ 0 2.07000+ 5 1.33500+ 01261 301804439
+ 2.15000+ 5 1.32620+ 0 2.20000+ 5 1.32180+ 0 2.25000+ 5 1.31770+ 01261 301804440
+ 2.35000+ 5 1.31230+ 0 2.40000+ 5 1.31000+ 0 2.50000+ 5 1.30750+ 01261 301804441
+ 2.60000+ 5 1.30370+ 0 2.70000+ 5 1.30000+ 0 2.80000+ 5 1.29530+ 01261 301804442
+ 3.00000+ 5 1.28000+ 0 3.20000+ 5 1.24400+ 0 3.25000+ 5 1.23780+ 01261 301804443
+ 3.40000+ 5 1.22880+ 0 3.50000+ 5 1.22620+ 0 3.60000+ 5 1.22330+ 01261 301804444
+ 3.80000+ 5 1.22100+ 0 4.00000+ 5 1.21630+ 0 4.20000+ 5 1.20980+ 01261 301804445
+ 4.40000+ 5 1.20130+ 0 4.50000+ 5 1.19600+ 0 4.60000+ 5 1.19000+ 01261 301804446
+ 4.70000+ 5 1.18480+ 0 4.80000+ 5 1.17980+ 0 5.00000+ 5 1.17170+ 01261 301804447
+ 5.20000+ 5 1.16400+ 0 5.40000+ 5 1.15850+ 0 5.50000+ 5 1.15750+ 01261 301804448
+ 5.60000+ 5 1.15620+ 0 5.70000+ 5 1.15490+ 0 5.80000+ 5 1.15380+ 01261 301804449
+ 6.00000+ 5 1.15250+ 0 6.20000+ 5 1.14880+ 0 6.40000+ 5 1.14510+ 01261 301804450
+ 6.50000+ 5 1.14360+ 0 6.60000+ 5 1.14240+ 0 6.70000+ 5 1.14050+ 01261 301804451
+ 6.80000+ 5 1.13870+ 0 7.00000+ 5 1.13500+ 0 7.20000+ 5 1.13030+ 01261 301804452
+ 7.30000+ 5 1.12880+ 0 7.40000+ 5 1.12810+ 0 7.50000+ 5 1.12780+ 01261 301804453
+ 7.60000+ 5 1.12810+ 0 7.70000+ 5 1.12930+ 0 7.75000+ 5 1.12980+ 01261 301804454
+ 7.80000+ 5 1.13000+ 0 8.00000+ 5 1.13300+ 0 8.20000+ 5 1.13970+ 01261 301804455
+ 8.40000+ 5 1.14600+ 0 8.50000+ 5 1.15120+ 0 8.60000+ 5 1.16030+ 01261 301804456
+ 8.80000+ 5 1.16400+ 0 9.00000+ 5 1.17380+ 0 9.20000+ 5 1.18380+ 01261 301804457
+ 9.40000+ 5 1.19380+ 0 9.50000+ 5 1.19870+ 0 9.60000+ 5 1.20400+ 01261 301804458
+ 9.70000+ 5 1.21000+ 0 9.80000+ 5 1.21500+ 0 1.00000+ 6 1.22500+ 01261 301804459
+ 1.05000+ 6 1.24100+ 0 1.10000+ 6 1.25000+ 0 1.15000+ 6 1.25510+ 01261 301804460
+ 1.20000+ 6 1.25750+ 0 1.25000+ 6 1.25660+ 0 1.29500+ 6 1.25500+ 01261 301804461
+ 1.30000+ 6 1.25490+ 0 1.35000+ 6 1.25220+ 0 1.40000+ 6 1.25000+ 01261 301804462
+ 1.45000+ 6 1.24900+ 0 1.49500+ 6 1.24950+ 0 1.50000+ 6 1.25050+ 01261 301804463
+ 1.60000+ 6 1.25750+ 0 1.70000+ 6 1.26280+ 0 1.80000+ 6 1.26700+ 01261 301804464
+ 1.90000+ 6 1.27150+ 0 2.00000+ 6 1.27400+ 0 2.10000+ 6 1.27680+ 01261 301804465
+ 2.20000+ 6 1.27880+ 0 2.30000+ 6 1.27930+ 0 2.40000+ 6 1.27880+ 01261 301804466
+ 2.50000+ 6 1.27540+ 0 2.60000+ 6 1.26880+ 0 2.70000+ 6 1.26000+ 01261 301804467
+ 2.80000+ 6 1.25120+ 0 2.90000+ 6 1.24120+ 0 3.00000+ 6 1.23180+ 01261 301804468
+ 3.10000+ 6 1.22180+ 0 3.20000+ 6 1.21130+ 0 3.30000+ 6 1.20140+ 01261 301804469
+ 3.40000+ 6 1.19200+ 0 3.50000+ 6 1.18300+ 0 3.60000+ 6 1.17700+ 01261 301804470
+ 3.70000+ 6 1.17100+ 0 3.80000+ 6 1.16200+ 0 3.90000+ 6 1.15800+ 01261 301804471
+ 4.00000+ 6 1.15000+ 0 4.10000+ 6 1.14300+ 0 4.20000+ 6 1.13800+ 01261 301804472
+ 4.30000+ 6 1.13000+ 0 4.40000+ 6 1.12500+ 0 4.50000+ 6 1.12000+ 01261 301804473
+ 4.60000+ 6 1.11300+ 0 4.70000+ 6 1.10800+ 0 4.80000+ 6 1.10200+ 01261 301804474
+ 4.90000+ 6 1.09700+ 0 5.00000+ 6 1.09400+ 0 5.10000+ 6 1.09000+ 01261 301804475
+ 5.15000+ 6 1.08750+ 0 5.20000+ 6 1.08440+ 0 5.25000+ 6 1.08120+ 01261 301804476
+ 5.30000+ 6 1.07770+ 0 5.32858+ 6 1.07547+ 0 5.35000+ 6 1.07380+ 01261 301804477
+ 5.40000+ 6 1.06960+ 0 5.45000+ 6 1.06500+ 0 5.50000+ 6 1.05900+ 01261 301804478
+ 5.55000+ 6 1.05280+ 0 5.60000+ 6 1.05000+ 0 5.65000+ 6 1.05330+ 01261 301804479
+ 5.70000+ 6 1.06250+ 0 5.75000+ 6 1.07460+ 0 5.80000+ 6 1.08750+ 01261 301804480
+ 5.90000+ 6 1.12700+ 0 6.00000+ 6 1.16000+ 0 6.10000+ 6 1.19300+ 01261 301804481
+ 6.20000+ 6 1.23200+ 0 6.30000+ 6 1.27400+ 0 6.40000+ 6 1.31500+ 01261 301804482
+ 6.50000+ 6 1.35800+ 0 6.60000+ 6 1.40000+ 0 6.70000+ 6 1.44500+ 01261 301804483
+ 6.80000+ 6 1.47800+ 0 6.90000+ 6 1.51500+ 0 7.00000+ 6 1.54900+ 01261 301804484
+ 7.10000+ 6 1.58200+ 0 7.20000+ 6 1.60800+ 0 7.30000+ 6 1.63700+ 01261 301804485
+ 7.40000+ 6 1.66000+ 0 7.50000+ 6 1.68200+ 0 7.60000+ 6 1.70000+ 01261 301804486
+ 7.65000+ 6 1.71000+ 0 7.70000+ 6 1.71700+ 0 7.80000+ 6 1.73300+ 01261 301804487
+ 7.90000+ 6 1.74700+ 0 8.00000+ 6 1.75800+ 0 8.20000+ 6 1.77700+ 01261 301804488
+ 8.40000+ 6 1.79000+ 0 8.50000+ 6 1.79600+ 0 8.60000+ 6 1.80000+ 01261 301804489
+ 8.80000+ 6 1.80500+ 0 9.00000+ 6 1.80400+ 0 9.20000+ 6 1.80000+ 01261 301804490
+ 9.40000+ 6 1.79300+ 0 9.50000+ 6 1.79000+ 0 9.60000+ 6 1.78500+ 01261 301804491
+ 9.80000+ 6 1.77700+ 0 1.00000+ 7 1.76800+ 0 1.05000+ 7 1.74000+ 01261 301804492
+ 1.10000+ 7 1.71800+ 0 1.15000+ 7 1.71700+ 0 1.19000+ 7 1.75200+ 01261 301804493
+ 1.20000+ 7 1.76700+ 0 1.21988+ 7 1.80100+ 0 1.25000+ 7 1.86000+ 01261 301804494
+ 1.30000+ 7 1.97600+ 0 1.35000+ 7 2.08000+ 0 1.40000+ 7 2.15200+ 01261 301804495
+ 1.45000+ 7 2.21000+ 0 1.50000+ 7 2.23000+ 0 1.55000+ 7 2.24000+ 01261 301804496
+ 1.60000+ 7 2.23000+ 0 1.65000+ 7 2.21200+ 0 1.70000+ 7 2.18500+ 01261 301804497
+ 1.75000+ 7 2.15000+ 0 1.80000+ 7 2.11800+ 0 1.85000+ 7 2.08000+ 01261 301804498
+ 1.90000+ 7 2.06000+ 0 1.95000+ 7 2.05200+ 0 2.00000+ 7 2.05000+ 01261 301804499
+                                                                  1261 300004500
+ 9.22350+ 4 2.33025+ 2          0         99          0          01261 301904501
+ 0.00000+ 0 1.92500+ 8          0          0          3        7461261 301904502
+         57          5        474          2        746          31261 301904503
+ 1.00000- 5 3.13100+ 4 1.00000- 3 3.12340+ 3 5.00000- 3 1.38320+ 31261 301904504
+ 1.00000- 2 9.66230+ 2 1.50000- 2 7.79390+ 2 2.00000- 2 6.66870+ 21261 301904505
+ 2.53000- 2 5.85400+ 2 3.00000- 2 5.31600+ 2 3.50000- 2 4.86340+ 21261 301904506
+ 4.00000- 2 4.49610+ 2 4.50000- 2 4.18980+ 2 5.00000- 2 3.92910+ 21261 301904507
+ 5.50000- 2 3.70390+ 2 6.00000- 2 3.50690+ 2 6.50000- 2 3.33300+ 21261 301904508
+ 7.00000- 2 3.17840+ 2 7.50000- 2 3.04050+ 2 8.00000- 2 2.91750+ 21261 301904509
+ 8.50000- 2 2.80720+ 2 9.00000- 2 2.70720+ 2 9.50000- 2 2.61590+ 21261 301904510
+ 1.00000- 1 2.53290+ 2 1.10000- 1 2.38220+ 2 1.20000- 1 2.25240+ 21261 301904511
+ 1.30000- 1 2.14130+ 2 1.40000- 1 2.04860+ 2 1.50000- 1 1.97260+ 21261 301904512
+ 1.60000- 1 1.90820+ 2 1.70000- 1 1.85610+ 2 1.80000- 1 1.81570+ 21261 301904513
+ 2.03340- 1 1.77010+ 2 2.23340- 1 1.77950+ 2 2.43340- 1 1.83850+ 21261 301904514
+ 2.63340- 1 1.91400+ 2 2.83340- 1 1.96420+ 2 3.03340- 1 1.91820+ 21261 301904515
+ 3.23340- 1 1.74250+ 2 3.43340- 1 1.53940+ 2 3.63340- 1 1.39010+ 21261 301904516
+ 3.83340- 1 1.26030+ 2 4.03340- 1 1.15160+ 2 4.28120- 1 1.04060+ 21261 301904517
+ 4.64920- 1 9.15860+ 1 5.04920- 1 8.19600+ 1 5.44920- 1 7.48050+ 11261 301904518
+ 5.84920- 1 6.94310+ 1 6.24920- 1 6.53910+ 1 6.64920- 1 6.22240+ 11261 301904519
+ 7.04920- 1 5.96610+ 1 7.44920- 1 5.76510+ 1 7.84920- 1 5.62850+ 11261 301904520
+ 8.24920- 1 5.56590+ 1 8.64920- 1 5.59830+ 1 9.04920- 1 5.76440+ 11261 301904521
+ 9.44920- 1 6.07390+ 1 9.84920- 1 6.52380+ 1 1.00000+ 0 6.81160+ 11261 301904522
+ 1.00000+ 0 1.18560+ 1 1.05500+ 0 1.14300+ 1 1.07300+ 0 1.06400+ 11261 301904523
+ 1.09100+ 0 9.29000+ 0 1.18200+ 0-1.92900+ 1 1.20000+ 0-2.35700+ 11261 301904524
+ 1.21800+ 0-2.50000+ 1 1.23600+ 0-2.50000+ 1 1.32700+ 0-1.42900+ 11261 301904525
+ 1.36400+ 0-1.21400+ 1 1.45500+ 0-8.21000+ 0 1.54500+ 0-6.07000+ 01261 301904526
+ 1.63600+ 0-4.64000+ 0 1.72700+ 0-3.57000+ 0 1.81800+ 0-2.86000+ 01261 301904527
+ 1.90900+ 0-2.14000+ 0 2.00000+ 0-2.14000+ 0 2.18200+ 0-1.43000+ 01261 301904528
+ 2.36400+ 0-7.10000- 1 2.45500+ 0-1.07000+ 0 2.54500+ 0-1.79000+ 01261 301904529
+ 2.63600+ 0-3.57000+ 0 2.69100+ 0-4.29000+ 0 2.74500+ 0-4.29000+ 01261 301904530
+ 2.80000+ 0 0.00000+ 0 2.81800+ 0 7.10000- 1 2.85500+ 0 7.10000- 11261 301904531
+ 2.92700+ 0-7.10000- 1 2.94500+ 0-7.10000- 1 3.01800+ 0 3.57000+ 01261 301904532
+ 3.07200+ 0 3.57000+ 0 3.18200+ 0-3.57000+ 0 3.21800+ 0-3.21000+ 01261 301904533
+ 3.27300+ 0-1.43000+ 0 3.36400+ 0 2.14000+ 0 3.45500+ 0 6.50000+ 01261 301904534
+ 3.49100+ 0 7.10000+ 0 3.54500+ 0 8.00000+ 0 3.58200+ 0 2.50000+ 01261 301904535
+ 3.63600+ 0 0.00000+ 0 3.69100+ 0-6.98000+ 0 3.72700+ 0-9.19000+ 01261 301904536
+ 3.81800+ 0-7.14000+ 0 3.90900+ 0-5.36000+ 0 4.00000+ 0-4.40000+ 01261 301904537
+ 4.09100+ 0-3.70000+ 0 4.18200+ 0-3.14000+ 0 4.36400+ 0-2.29000+ 01261 301904538
+ 4.54500+ 0-2.14000+ 0 4.63600+ 0-1.79000+ 0 4.72700+ 0-1.43000+ 01261 301904539
+ 4.78200+ 0 0.00000+ 0 4.80000+ 0 7.10000- 1 4.83600+ 0 7.10000- 11261 301904540
+ 4.85500+ 0 7.10000- 1 4.89100+ 0-1.43000+ 0 4.90900+ 0-2.14000+ 01261 301904541
+ 4.94500+ 0-2.86000+ 0 4.98100+ 0-2.86000+ 0 5.09100+ 0-2.86000+ 01261 301904542
+ 5.14500+ 0-2.50000+ 0 5.18200+ 0-2.14000+ 0 5.27300+ 0-1.07000+ 01261 301904543
+ 5.30900+ 0-7.10000- 1 5.54500+ 0-7.10000- 1 5.65500+ 0-1.79000+ 01261 301904544
+ 5.72700+ 0-1.43000+ 0 5.81800+ 0 0.00000+ 0 5.90900+ 0 1.64000+ 01261 301904545
+ 6.00000+ 0 2.86000+ 0 6.09100+ 0 2.50000+ 0 6.16400+ 0 1.43000+ 01261 301904546
+ 6.21800+ 0-1.79000+ 0 6.25500+ 0-1.79000+ 0 6.29100+ 0 0.00000+ 01261 301904547
+ 6.41800+ 0 0.00000+ 0 6.45500+ 0-2.86000+ 0 6.49100+ 0-5.00000+ 01261 301904548
+ 6.54500+ 0-5.00000+ 0 6.63600+ 0-4.28000+ 0 6.72700+ 0-3.71000+ 01261 301904549
+ 6.81800+ 0-2.14000+ 0 6.98200+ 0 0.00000+ 0 7.18200+ 0 0.00000+ 01261 301904550
+ 7.29100+ 0-3.57000+ 0 7.81800+ 0-3.93000+ 0 8.00000+ 0-4.29000+ 01261 301904551
+ 8.18100+ 0-4.29000+ 0 8.36300+ 0-3.93000+ 0 8.45300+ 0 0.00000+ 01261 301904552
+ 8.92500+ 0 0.00000+ 0 9.01500+ 0 2.14300+ 1 9.05200+ 0 2.50000+ 11261 301904553
+ 9.10600+ 0 2.50000+ 1 9.17900+ 0 1.00000+ 1 9.23300+ 0 0.00000+ 01261 301904554
+ 9.36000+ 0 0.00000+ 0 9.43200+ 0 1.00000+ 1 9.45100+ 0 1.14300+ 11261 301904555
+ 9.50500+ 0 1.00000+ 1 9.54100+ 0 8.21000+ 0 9.70400+ 0 0.00000+ 01261 301904556
+ 9.75900+ 0-2.14000+ 0 9.99500+ 0-2.14000+ 0 1.00850+ 1-2.86000+ 01261 301904557
+ 1.01760+ 1 0.00000+ 0 1.02670+ 1 0.00000+ 0 1.03390+ 1 2.14000+ 01261 301904558
+ 1.04300+ 1 2.14000+ 0 1.06290+ 1-7.10000- 1 1.07200+ 1-7.10000- 11261 301904559
+ 1.08110+ 1-3.60000- 1 1.09370+ 1-5.70000- 1 1.09920+ 1 0.00000+ 01261 301904560
+ 1.12640+ 1 3.00000+ 0 1.14090+ 1 2.75000+ 0 1.14450+ 1 2.88000+ 01261 301904561
+ 1.14810+ 1 2.90000+ 0 1.15540+ 1 0.00000+ 0 1.18620+ 1 0.00000+ 01261 301904562
+ 1.18980+ 1 2.70000+ 0 1.20000+ 1 5.40000+ 0 1.20910+ 1 7.43000+ 01261 301904563
+ 1.21450+ 1 1.13500+ 1 1.22000+ 1 1.00000+ 1 1.23500+ 1 0.00000+ 01261 301904564
+ 1.40850+ 1 0.00000+ 0 1.42670+ 1 2.86000+ 0 1.43570+ 1 5.71000+ 01261 301904565
+ 1.44120+ 1 5.71000+ 0 1.44480+ 1 4.71000+ 0 1.46110+ 1-5.50000+ 01261 301904566
+ 1.46470+ 1-5.50000+ 0 1.47370+ 1-3.57000+ 0 1.49010+ 1-5.00000- 11261 301904567
+ 1.50000+ 1-7.10000- 1 1.50910+ 1 0.00000+ 0 1.51820+ 1 7.10000- 11261 301904568
+ 1.52730+ 1 0.00000+ 0 1.54550+ 1 0.00000+ 0 1.55450+ 1-1.43000+ 01261 301904569
+ 1.56360+ 1-3.58000+ 0 1.57270+ 1-3.57000+ 0 1.58180+ 1-2.50000+ 01261 301904570
+ 1.59090+ 1-1.21000+ 0 1.60000+ 1 0.00000+ 0 1.61820+ 1 0.00000+ 01261 301904571
+ 1.62730+ 1-3.58000+ 0 1.63640+ 1-6.45000+ 0 1.64360+ 1-6.43000+ 01261 301904572
+ 1.64910+ 1-6.43000+ 0 1.65450+ 1-4.29000+ 0 1.66360+ 1 0.00000+ 01261 301904573
+ 1.67270+ 1 0.00000+ 0 1.68180+ 1 1.43000+ 0 1.69090+ 1 3.93000+ 01261 301904574
+ 1.69450+ 1 4.29000+ 0 1.70000+ 1 3.57000+ 0 1.70910+ 1 2.86000+ 01261 301904575
+ 1.71810+ 1 1.43000+ 0 1.72730+ 1 7.10000- 1 1.73640+ 1 0.00000+ 01261 301904576
+ 1.74550+ 1 0.00000+ 0 1.75450+ 1-7.10000- 1 1.76360+ 1-1.07000+ 01261 301904577
+ 1.77270+ 1-1.43000+ 0 1.78180+ 1-1.86000+ 0 1.79090+ 1-7.10000- 11261 301904578
+ 1.80910+ 1 0.00000+ 0 1.82730+ 1 0.00000+ 0 1.83640+ 1 3.57000+ 01261 301904579
+ 1.84550+ 1 3.93000+ 0 1.85450+ 1 3.57000+ 0 1.86360+ 1 2.86000+ 01261 301904580
+ 1.87270+ 1 2.14000+ 0 1.88180+ 1 1.43000+ 0 1.89090+ 1 1.07000+ 01261 301904581
+ 1.90000+ 1 0.00000+ 0 1.93810+ 1 0.00000+ 0 1.94360+ 1 2.86000+ 01261 301904582
+ 1.94550+ 1 7.14000+ 0 1.94910+ 1 1.42900+ 1 1.95090+ 1 1.71400+ 11261 301904583
+ 1.95270+ 1 1.71400+ 1 1.95450+ 1 1.57100+ 1 1.96180+ 1 1.07100+ 11261 301904584
+ 1.96720+ 1 8.29000+ 0 1.97270+ 1 6.43000+ 0 1.98180+ 1 4.29000+ 01261 301904585
+ 1.99090+ 1 2.50000+ 0 2.00000+ 1 7.10000- 1 2.00910+ 1 0.00000+ 01261 301904586
+ 2.02730+ 1-7.10000- 1 2.09090+ 1-7.10000- 1 2.10000+ 1-7.10000- 11261 301904587
+ 2.10360+ 1-1.00000+ 0 2.10910+ 1-1.00000+ 0 2.11270+ 1-1.10000+ 01261 301904588
+ 2.11820+ 1-1.20000+ 0 2.12180+ 1-1.30000+ 0 2.12640+ 1-1.35000+ 01261 301904589
+ 2.13640+ 1-1.43000+ 0 2.14000+ 1-2.15000+ 0 2.14550+ 1-2.15000+ 01261 301904590
+ 2.15450+ 1-2.80000+ 0 2.17270+ 1-3.45000+ 0 2.19090+ 1-2.87000+ 01261 301904591
+ 2.20910+ 1-2.51000+ 0 2.22730+ 1-1.79000+ 0 2.24550+ 1-1.07000+ 01261 301904592
+ 2.26360+ 1 0.00000+ 0 2.30000+ 1 0.00000+ 0 2.31150+ 1 4.00000- 11261 301904593
+ 2.32300+ 1 3.60000- 1 2.34600+ 1 1.80000- 1 2.36900+ 1 9.00000- 21261 301904594
+ 2.38740+ 1 0.00000+ 0 2.40110+ 1-4.64000+ 0 2.41030+ 1-4.65000+ 01261 301904595
+ 2.43790+ 1 2.73000+ 0 2.46090+ 1 9.00000+ 0 2.48390+ 1 4.64000+ 01261 301904596
+ 2.50690+ 1-4.50000- 1 2.51610+ 1-4.50000- 1 2.53450+ 1 1.82000+ 01261 301904597
+ 2.55290+ 1 0.00000+ 0 2.57130+ 1 0.00000+ 0 2.58510+ 1-4.55000+ 01261 301904598
+ 2.60340+ 1-1.09100+ 1 2.61260+ 1-1.09100+ 1 2.62180+ 1-7.73000+ 01261 301904599
+ 2.64480+ 1 0.00000+ 0 2.84250+ 1 0.00000+ 0 2.85170+ 1 4.50000- 11261 301904600
+ 2.87470+ 1 4.50000- 1 2.89770+ 1 4.50000- 1 2.92070+ 1 4.50000- 11261 301904601
+ 2.94370+ 1 4.50000- 1 2.96670+ 1 0.00000+ 0 2.98970+ 1-1.80000- 11261 301904602
+ 3.00000+ 1-3.60000- 1 3.02290+ 1-4.50000- 1 3.04570+ 1 0.00000+ 01261 301904603
+ 3.09140+ 1 0.00000+ 0 3.09600+ 1-8.20000- 1 3.10970+ 1-2.18000+ 01261 301904604
+ 3.11430+ 1-2.36000+ 0 3.13710+ 1-1.82000+ 0 3.16000+ 1-9.10000- 11261 301904605
+ 3.16910+ 1-7.30000- 1 3.18290+ 1 0.00000+ 0 3.22860+ 1 0.00000+ 01261 301904606
+ 3.25140+ 1-2.73000+ 0 3.27430+ 1-3.18000+ 0 3.29710+ 1-3.18000+ 01261 301904607
+ 3.32000+ 1-2.27000+ 0 3.35200+ 1 0.00000+ 0 3.44340+ 1 0.00000+ 01261 301904608
+ 3.44800+ 1 2.72700+ 1 3.45260+ 1 3.27300+ 1 3.45710+ 1 3.36300+ 11261 301904609
+ 3.46170+ 1 2.90900+ 1 3.46630+ 1 1.63600+ 1 3.47090+ 1 8.18000+ 01261 301904610
+ 3.47540+ 1 4.54000+ 0 3.48460+ 1 0.00000+ 0 3.66290+ 1 0.00000+ 01261 301904611
+ 3.68570+ 1-9.10000- 1 3.70860+ 1-1.50000+ 0 3.73140+ 1 0.00000+ 01261 301904612
+ 3.75430+ 1 7.30000- 1 3.77710+ 1 9.10000- 1 3.80000+ 1 8.20000- 11261 301904613
+ 3.82290+ 1 7.30000- 1 3.84570+ 1 5.50000- 1 3.86860+ 1-3.60000- 11261 301904614
+ 3.89140+ 1-2.18000+ 0 3.91430+ 1-4.55000+ 0 3.92340+ 1-5.00000+ 01261 301904615
+ 3.92800+ 1 0.00000+ 0 3.99660+ 1 0.00000+ 0 4.01940+ 1-1.82000+ 01261 301904616
+ 4.05140+ 1 0.00000+ 0 4.06970+ 1 2.72000+ 0 4.07430+ 1 3.45000+ 01261 301904617
+ 4.07890+ 1 3.64000+ 0 4.09710+ 1 2.73000+ 0 4.12000+ 1 0.00000+ 01261 301904618
+ 4.15660+ 1 0.00000+ 0 4.16570+ 1-9.10000- 1 4.17940+ 1-9.10000- 11261 301904619
+ 4.19770+ 1 2.73000+ 0 4.21140+ 1 1.82000+ 0 4.22970+ 1 0.00000+ 01261 301904620
+ 4.23890+ 1 2.73000+ 0 4.25710+ 1 2.73000+ 0 4.27090+ 1-9.10000- 11261 301904621
+ 4.28000+ 1-9.10000- 1 4.28910+ 1 1.82000+ 0 4.30290+ 1 1.82000+ 01261 301904622
+ 4.32110+ 1 0.00000+ 0 4.36690+ 1 0.00000+ 0 4.38060+ 1-1.82000+ 01261 301904623
+ 4.40340+ 1 1.82000+ 0 4.41710+ 1 2.27000+ 0 4.44000+ 1 1.64000+ 01261 301904624
+ 4.46290+ 1 0.00000+ 0 4.48570+ 1-1.80000- 1 4.50860+ 1 0.00000+ 01261 301904625
+ 4.53140+ 1-6.30000- 1 4.55430+ 1-5.50000- 1 4.57710+ 1-7.30000- 11261 301904626
+ 4.60000+ 1-1.00000+ 0 4.61810+ 1-1.43000+ 0 4.63630+ 1-7.10000- 11261 301904627
+ 4.65440+ 1 0.00000+ 0 4.72700+ 1 0.00000+ 0 4.74510+ 1 7.20000- 11261 301904628
+ 4.76330+ 1 2.14000+ 0 4.77410+ 1 2.71000+ 0 4.78870+ 1 0.00000+ 01261 301904629
+ 4.90110+ 1 0.00000+ 0 4.91200+ 1 2.86000+ 0 4.91930+ 1 2.86000+ 01261 301904630
+ 4.93380+ 1 0.00000+ 0 4.95560+ 1 0.00000+ 0 4.96640+ 1 2.14000+ 01261 301904631
+ 4.97730+ 1 2.14000+ 0 4.99550+ 1 0.00000+ 0 5.34380+ 1 0.00000+ 01261 301904632
+ 5.36190+ 1 2.86000+ 0 5.38000+ 1 3.57000+ 0 5.40000+ 1 1.43000+ 01261 301904633
+ 5.41810+ 1 0.00000+ 0 5.59950+ 1 0.00000+ 0 5.61770+ 1 5.00000+ 01261 301904634
+ 5.62860+ 1 7.86000+ 0 5.63580+ 1 5.00000+ 0 5.64310+ 1 0.00000+ 01261 301904635
+ 5.66490+ 1 0.00000+ 0 5.67940+ 1 5.00000+ 0 5.69020+ 1 2.86000+ 01261 301904636
+ 5.71200+ 1-7.10000- 1 5.72650+ 1-1.29000+ 0 5.76280+ 1-1.29000+ 01261 301904637
+ 5.78100+ 1 0.00000+ 0 5.81720+ 1 0.00000+ 0 5.83170+ 1-2.50000+ 01261 301904638
+ 5.83900+ 1-2.00000+ 0 5.88250+ 1 0.00000+ 0 5.90070+ 1 1.40000+ 01261 301904639
+ 5.91160+ 1 1.40000+ 0 5.94420+ 1 7.00000- 1 5.96240+ 1 3.50000- 11261 301904640
+ 5.98050+ 1 0.00000+ 0 6.94000+ 1 0.00000+ 0 6.96190+ 1 3.00000+ 01261 301904641
+ 6.98000+ 1 4.10000+ 0 7.00000+ 1 4.14000+ 0 7.01810+ 1 0.00000+ 01261 301904642
+ 7.15600+ 1 0.00000+ 0 7.18140+ 1-2.86000+ 0 7.19230+ 1-3.93000+ 01261 301904643
+ 7.19950+ 1-3.93000+ 0 7.20680+ 1-3.57000+ 0 7.21040+ 1-2.14000+ 01261 301904644
+ 7.21770+ 1 0.00000+ 0 7.23220+ 1 0.00000+ 0 7.25030+ 1 0.00000+ 01261 301904645
+ 7.26850+ 1 6.79000+ 0 7.27210+ 1 4.00000+ 0 7.28300+ 1 1.40000+ 01261 301904646
+ 7.29020+ 1 3.60000- 1 7.29750+ 1 0.00000+ 0 7.30840+ 1 0.00000+ 01261 301904647
+ 7.39910+ 1 0.00000+ 0 7.44260+ 1 0.00000+ 0 7.45710+ 1 3.57000+ 01261 301904648
+ 7.47890+ 1 1.67900+ 1 7.48250+ 1 1.67900+ 1 7.48620+ 1 1.42900+ 11261 301904649
+ 7.48980+ 1 9.29000+ 0 7.49340+ 1 7.50000+ 0 7.49710+ 1 5.71000+ 01261 301904650
+ 7.50430+ 1 3.21000+ 0 7.50790+ 1 2.14000+ 0 7.51880+ 1 0.00000+ 01261 301904651
+ 7.60230+ 1-1.00000+ 0 7.61680+ 1-1.20000+ 0 7.67480+ 1 0.00000+ 01261 301904652
+ 7.83000+ 1 0.00000+ 0 7.83630+ 1 5.00000+ 0 7.85440+ 1 6.10000+ 01261 301904653
+ 7.87260+ 1 5.00000+ 0 7.89070+ 1 4.50000+ 0 7.90880+ 1 3.20000+ 01261 301904654
+ 7.92700+ 1 2.14000+ 0 7.94510+ 1 0.00000+ 0 7.98140+ 1 0.00000+ 01261 301904655
+ 7.99950+ 1 2.32000+ 0 8.00680+ 1 2.32000+ 0 8.02490+ 1 0.00000+ 01261 301904656
+ 8.04670+ 1 0.00000+ 0 8.07570+ 1 2.00000+ 0 8.08660+ 1 2.10000+ 01261 301904657
+ 8.09750+ 1 2.00000+ 0 8.10840+ 1 1.50000+ 0 8.13380+ 1 0.00000+ 01261 301904658
+ 8.15190+ 1 0.00000+ 0 8.16280+ 1 0.00000+ 0 8.18100+ 1 1.50000+ 01261 301904659
+ 8.20000+ 1 1.50000+ 0 8.20000+ 1 0.00000+ 0 1.00000+ 3 0.00000+ 01261 301904660
+ 1.30000+ 4 0.00000+ 0 2.50000+ 4 0.00000+ 0 2.50000+ 4 2.15220+ 01261 301904661
+ 2.53000+ 4 2.13979+ 0 2.57000+ 4 2.12347+ 0 2.62000+ 4 2.10726+ 01261 301904662
+ 2.65000+ 4 2.10110+ 0 2.72000+ 4 2.09307+ 0 2.75000+ 4 2.09615+ 01261 301904663
+ 2.83000+ 4 2.13527+ 0 2.88000+ 4 2.19127+ 0 2.93000+ 4 2.16076+ 01261 301904664
+ 2.98000+ 4 2.07421+ 0 3.00000+ 4 2.04000+ 0 3.11000+ 4 2.08301+ 01261 301904665
+ 3.13000+ 4 2.10773+ 0 3.18000+ 4 2.16883+ 0 3.21000+ 4 2.17749+ 01261 301904666
+ 3.25000+ 4 2.11591+ 0 3.28000+ 4 2.07023+ 0 3.42000+ 4 1.98876+ 01261 301904667
+ 3.45000+ 4 1.95803+ 0 3.50000+ 4 1.90740+ 0 3.62000+ 4 1.98248+ 01261 301904668
+ 3.65000+ 4 1.92717+ 0 3.70000+ 4 1.83600+ 0 3.79000+ 4 1.94630+ 01261 301904669
+ 3.87000+ 4 1.89389+ 0 3.91000+ 4 1.86866+ 0 3.94000+ 4 1.87482+ 01261 301904670
+ 4.00000+ 4 1.88700+ 0 4.04000+ 4 1.94454+ 0 4.10000+ 4 2.02980+ 01261 301904671
+ 4.15000+ 4 1.95797+ 0 4.20000+ 4 1.88700+ 0 4.30000+ 4 1.91760+ 01261 301904672
+ 4.36000+ 4 1.90530+ 0 4.38000+ 4 1.90124+ 0 4.43000+ 4 1.88178+ 01261 301904673
+ 4.48000+ 4 1.85631+ 0 4.50000+ 4 1.84620+ 0 4.52000+ 4 1.83385+ 01261 301904674
+ 4.54000+ 4 1.82156+ 0 4.60000+ 4 1.78500+ 0 4.62000+ 4 1.80146+ 01261 301904675
+ 4.65000+ 4 1.82602+ 0 4.68000+ 4 1.85042+ 0 4.73000+ 4 1.83269+ 01261 301904676
+ 4.76000+ 4 1.79900+ 0 4.82000+ 4 1.76880+ 0 4.84000+ 4 1.78314+ 01261 301904677
+ 4.88000+ 4 1.81164+ 0 4.90000+ 4 1.82580+ 0 5.00000+ 4 1.74420+ 01261 301904678
+ 5.02000+ 4 1.75448+ 0 5.06000+ 4 1.77492+ 0 5.09000+ 4 1.79014+ 01261 301904679
+ 5.12000+ 4 1.79520+ 0 5.15000+ 4 1.79520+ 0 5.22000+ 4 1.82192+ 01261 301904680
+ 5.25000+ 4 1.86181+ 0 5.35000+ 4 1.92268+ 0 5.39000+ 4 1.91861+ 01261 301904681
+ 5.42000+ 4 1.91760+ 0 5.46000+ 4 1.91760+ 0 5.50000+ 4 1.91760+ 01261 301904682
+ 5.53000+ 4 1.91452+ 0 5.57000+ 4 1.91044+ 0 5.61000+ 4 1.90226+ 01261 301904683
+ 5.67000+ 4 1.87160+ 0 5.71000+ 4 1.85948+ 0 5.76000+ 4 1.87482+ 01261 301904684
+ 5.79000+ 4 1.88396+ 0 5.83000+ 4 1.86545+ 0 5.87000+ 4 1.83689+ 01261 301904685
+ 5.91000+ 4 1.81149+ 0 5.92000+ 4 1.80738+ 0 5.98000+ 4 1.78291+ 01261 301904686
+ 6.00000+ 4 1.77480+ 0 6.03000+ 4 1.80557+ 0 6.12000+ 4 1.86243+ 01261 301904687
+ 6.15000+ 4 1.84096+ 0 6.20000+ 4 1.80540+ 0 6.25000+ 4 1.81564+ 01261 301904688
+ 6.29000+ 4 1.82377+ 0 6.32000+ 4 1.83196+ 0 6.42000+ 4 1.82767+ 01261 301904689
+ 6.47000+ 4 1.75621+ 0 6.50000+ 4 1.71360+ 0 6.51000+ 4 1.72284+ 01261 301904690
+ 6.61000+ 4 1.80129+ 0 6.65000+ 4 1.78492+ 0 6.70000+ 4 1.76460+ 01261 301904691
+ 6.74000+ 4 1.78919+ 0 6.80000+ 4 1.82580+ 0 6.83000+ 4 1.80427+ 01261 301904692
+ 6.89000+ 4 1.76149+ 0 6.94000+ 4 1.74620+ 0 7.00000+ 4 1.73400+ 01261 301904693
+ 7.03000+ 4 1.73400+ 0 7.09000+ 4 1.73400+ 0 7.20000+ 4 1.73400+ 01261 301904694
+ 7.25000+ 4 1.78005+ 0 7.31000+ 4 1.82170+ 0 7.37000+ 4 1.79718+ 01261 301904695
+ 7.41000+ 4 1.79013+ 0 7.48000+ 4 1.82585+ 0 7.50000+ 4 1.83600+ 01261 301904696
+ 7.53000+ 4 1.82370+ 0 7.58000+ 4 1.80332+ 0 7.65000+ 4 1.72357+ 01261 301904697
+ 7.70000+ 4 1.65240+ 0 7.76000+ 4 1.68921+ 0 7.84000+ 4 1.72179+ 01261 301904698
+ 7.89000+ 4 1.73197+ 0 7.94000+ 4 1.66848+ 0 8.00000+ 4 1.57080+ 01261 301904699
+ 8.07000+ 4 1.65664+ 0 8.20000+ 4 1.71360+ 0 8.27000+ 4 1.69214+ 01261 301904700
+ 8.33000+ 4 1.64920+ 0 8.40000+ 4 1.57080+ 0 8.47000+ 4 1.66378+ 01261 301904701
+ 8.50000+ 4 1.70340+ 0 8.53000+ 4 1.66039+ 0 8.61000+ 4 1.55445+ 01261 301904702
+ 8.68000+ 4 1.51158+ 0 8.75000+ 4 1.55566+ 0 8.83000+ 4 1.59317+ 01261 301904703
+ 8.90000+ 4 1.55040+ 0 9.00000+ 4 1.63200+ 0 9.03000+ 4 1.63200+ 01261 301904704
+ 9.12000+ 4 1.59103+ 0 9.28000+ 4 1.52603+ 0 9.36000+ 4 1.57493+ 01261 301904705
+ 9.44000+ 4 1.57892+ 0 9.50000+ 4 1.56060+ 0 9.52000+ 4 1.57494+ 01261 301904706
+ 9.60000+ 4 1.63200+ 0 9.68000+ 4 1.70552+ 0 9.77000+ 4 1.63084+ 01261 301904707
+ 9.85000+ 4 1.62699+ 0 9.93000+ 4 1.65339+ 0 9.99000+ 4 1.63505+ 01261 301904708
+ 1.00000+ 5 1.58500+ 0 1.03000+ 5 1.57200+ 0 1.20000+ 5 1.53200+ 01261 301904709
+ 1.35000+ 5 1.49600+ 0 1.40000+ 5 1.48200+ 0 1.50000+ 5 1.45800+ 01261 301904710
+ 1.60000+ 5 1.44000+ 0 1.73000+ 5 1.40700+ 0 1.80000+ 5 1.39400+ 01261 301904711
+ 2.00000+ 5 1.35100+ 0 2.07000+ 5 1.33500+ 0 2.15000+ 5 1.32620+ 01261 301904712
+ 2.20000+ 5 1.32180+ 0 2.25000+ 5 1.31770+ 0 2.35000+ 5 1.31230+ 01261 301904713
+ 2.40000+ 5 1.31000+ 0 2.50000+ 5 1.30750+ 0 2.60000+ 5 1.30370+ 01261 301904714
+ 2.70000+ 5 1.30000+ 0 2.80000+ 5 1.29530+ 0 3.00000+ 5 1.28000+ 01261 301904715
+ 3.20000+ 5 1.24400+ 0 3.25000+ 5 1.23780+ 0 3.40000+ 5 1.22880+ 01261 301904716
+ 3.50000+ 5 1.22620+ 0 3.60000+ 5 1.22330+ 0 3.80000+ 5 1.22100+ 01261 301904717
+ 4.00000+ 5 1.21630+ 0 4.20000+ 5 1.20980+ 0 4.40000+ 5 1.20130+ 01261 301904718
+ 4.50000+ 5 1.19600+ 0 4.60000+ 5 1.19000+ 0 4.70000+ 5 1.18480+ 01261 301904719
+ 4.80000+ 5 1.17980+ 0 5.00000+ 5 1.17170+ 0 5.20000+ 5 1.16400+ 01261 301904720
+ 5.40000+ 5 1.15850+ 0 5.50000+ 5 1.15750+ 0 5.60000+ 5 1.15620+ 01261 301904721
+ 5.70000+ 5 1.15490+ 0 5.80000+ 5 1.15380+ 0 6.00000+ 5 1.15250+ 01261 301904722
+ 6.20000+ 5 1.14880+ 0 6.40000+ 5 1.14510+ 0 6.50000+ 5 1.14360+ 01261 301904723
+ 6.60000+ 5 1.14240+ 0 6.70000+ 5 1.14050+ 0 6.80000+ 5 1.13870+ 01261 301904724
+ 7.00000+ 5 1.13500+ 0 7.20000+ 5 1.13030+ 0 7.30000+ 5 1.12880+ 01261 301904725
+ 7.40000+ 5 1.12810+ 0 7.50000+ 5 1.12780+ 0 7.60000+ 5 1.12810+ 01261 301904726
+ 7.70000+ 5 1.12930+ 0 7.75000+ 5 1.12980+ 0 7.80000+ 5 1.13000+ 01261 301904727
+ 8.00000+ 5 1.13300+ 0 8.20000+ 5 1.13970+ 0 8.40000+ 5 1.14600+ 01261 301904728
+ 8.50000+ 5 1.15120+ 0 8.60000+ 5 1.16030+ 0 8.80000+ 5 1.16400+ 01261 301904729
+ 9.00000+ 5 1.17380+ 0 9.20000+ 5 1.18380+ 0 9.40000+ 5 1.19380+ 01261 301904730
+ 9.50000+ 5 1.19870+ 0 9.60000+ 5 1.20400+ 0 9.70000+ 5 1.21000+ 01261 301904731
+ 9.80000+ 5 1.21500+ 0 1.00000+ 6 1.22500+ 0 1.05000+ 6 1.24100+ 01261 301904732
+ 1.10000+ 6 1.25000+ 0 1.15000+ 6 1.25510+ 0 1.20000+ 6 1.25750+ 01261 301904733
+ 1.25000+ 6 1.25660+ 0 1.29500+ 6 1.25500+ 0 1.30000+ 6 1.25490+ 01261 301904734
+ 1.35000+ 6 1.25220+ 0 1.40000+ 6 1.25000+ 0 1.45000+ 6 1.24900+ 01261 301904735
+ 1.49500+ 6 1.24950+ 0 1.50000+ 6 1.25050+ 0 1.60000+ 6 1.25750+ 01261 301904736
+ 1.70000+ 6 1.26280+ 0 1.80000+ 6 1.26700+ 0 1.90000+ 6 1.27150+ 01261 301904737
+ 2.00000+ 6 1.27400+ 0 2.10000+ 6 1.27680+ 0 2.20000+ 6 1.27880+ 01261 301904738
+ 2.30000+ 6 1.27930+ 0 2.40000+ 6 1.27880+ 0 2.50000+ 6 1.27540+ 01261 301904739
+ 2.60000+ 6 1.26880+ 0 2.70000+ 6 1.26000+ 0 2.80000+ 6 1.25120+ 01261 301904740
+ 2.90000+ 6 1.24120+ 0 3.00000+ 6 1.23180+ 0 3.10000+ 6 1.22180+ 01261 301904741
+ 3.20000+ 6 1.21130+ 0 3.30000+ 6 1.20140+ 0 3.40000+ 6 1.19200+ 01261 301904742
+ 3.50000+ 6 1.18300+ 0 3.60000+ 6 1.17700+ 0 3.70000+ 6 1.17100+ 01261 301904743
+ 3.80000+ 6 1.16200+ 0 3.90000+ 6 1.15800+ 0 4.00000+ 6 1.15000+ 01261 301904744
+ 4.10000+ 6 1.14300+ 0 4.20000+ 6 1.13800+ 0 4.30000+ 6 1.13000+ 01261 301904745
+ 4.40000+ 6 1.12500+ 0 4.50000+ 6 1.12000+ 0 4.60000+ 6 1.11300+ 01261 301904746
+ 4.70000+ 6 1.10800+ 0 4.80000+ 6 1.10200+ 0 4.90000+ 6 1.09700+ 01261 301904747
+ 5.00000+ 6 1.09400+ 0 5.10000+ 6 1.09000+ 0 5.15000+ 6 1.08750+ 01261 301904748
+ 5.20000+ 6 1.08440+ 0 5.25000+ 6 1.08120+ 0 5.30000+ 6 1.07770+ 01261 301904749
+ 5.32858+ 6 1.07480+ 0 5.35000+ 6 1.07380+ 0 5.40000+ 6 1.06960+ 01261 301904750
+ 5.45000+ 6 1.06500+ 0 5.50000+ 6 1.05900+ 0 5.55000+ 6 1.05280+ 01261 301904751
+ 5.60000+ 6 1.05000+ 0 2.00000+ 7 1.05000+ 0                      1261 301904752
+                                                                  1261 300004753
+ 9.22350+ 4 2.33025+ 2          0         99          0          01261 302004754
+ 0.00000+ 0 1.92500+ 8          0          0          1         441261 302004755
+         44          2                                            1261 302004756
+ 5.60000+ 6 0.00000+ 0 5.65000+ 6 3.30000- 3 5.70000+ 6 1.25000- 21261 302004757
+ 5.75000+ 6 2.46000- 2 5.80000+ 6 3.75000- 2 5.90000+ 6 7.70000- 21261 302004758
+ 6.00000+ 6 1.10000- 1 6.10000+ 6 1.43000- 1 6.20000+ 6 1.82000- 11261 302004759
+ 6.30000+ 6 2.24000- 1 6.40000+ 6 2.65000- 1 6.50000+ 6 3.08000- 11261 302004760
+ 6.60000+ 6 3.50000- 1 6.70000+ 6 3.95000- 1 6.80000+ 6 4.28000- 11261 302004761
+ 6.90000+ 6 4.65000- 1 7.00000+ 6 4.99000- 1 7.10000+ 6 5.32000- 11261 302004762
+ 7.20000+ 6 5.58000- 1 7.30000+ 6 5.87000- 1 7.40000+ 6 6.10000- 11261 302004763
+ 7.50000+ 6 6.32000- 1 7.60000+ 6 6.50000- 1 7.65000+ 6 6.60000- 11261 302004764
+ 7.70000+ 6 6.67000- 1 7.80000+ 6 6.83000- 1 7.90000+ 6 6.97000- 11261 302004765
+ 8.00000+ 6 7.08000- 1 8.20000+ 6 7.27000- 1 8.40000+ 6 7.40000- 11261 302004766
+ 8.50000+ 6 7.46000- 1 8.60000+ 6 7.50000- 1 8.80000+ 6 7.55000- 11261 302004767
+ 9.00000+ 6 7.54000- 1 9.20000+ 6 7.50000- 1 9.40000+ 6 7.43000- 11261 302004768
+ 9.50000+ 6 7.40000- 1 9.60000+ 6 7.35000- 1 9.80000+ 6 7.27000- 11261 302004769
+ 1.00000+ 7 7.18000- 1 1.05000+ 7 6.90000- 1 1.10000+ 7 6.68000- 11261 302004770
+ 1.15000+ 7 6.67000- 1 2.00000+ 7 6.67000- 1                      1261 302004771
+                                                                  1261 300004772
+ 9.22350+ 4 2.33025+ 2          0         99          0          01261 302104773
+ 0.00000+ 0 1.92500+ 8          0          0          1         201261 302104774
+         20          2                                            1261 302104775
+ 1.15000+ 7 0.00000+ 0 1.19000+ 7 3.50000- 2 1.20000+ 7 5.00000- 21261 302104776
+ 1.21988+ 7 8.40000- 2 1.25000+ 7 1.43000- 1 1.30000+ 7 2.59000- 11261 302104777
+ 1.35000+ 7 3.63000- 1 1.40000+ 7 4.35000- 1 1.45000+ 7 4.93000- 11261 302104778
+ 1.50000+ 7 5.13000- 1 1.55000+ 7 5.23000- 1 1.60000+ 7 5.13000- 11261 302104779
+ 1.65000+ 7 4.95000- 1 1.70000+ 7 4.68000- 1 1.75000+ 7 4.33000- 11261 302104780
+ 1.80000+ 7 4.01000- 1 1.85000+ 7 3.63000- 1 1.90000+ 7 3.43000- 11261 302104781
+ 1.95000+ 7 3.35000- 1 2.00000+ 7 3.33000- 1                      1261 302104782
+                                                                  1261 300004783
+ 9.22350+ 4 2.33025+ 2          0          1          0          01261 305104784
+ 0.00000+ 0-1.30000+ 4          0          0          1         221261 305104785
+         22          2                                            1261 305104786
+ 1.30553+ 4 0.00000+ 0 5.00000+ 4 4.00000- 2 8.40000+ 4 4.50000- 21261 305104787
+ 1.00000+ 5 5.00000- 2 1.03000+ 5 5.00000- 2 1.50000+ 5 5.00000- 21261 305104788
+ 1.73000+ 5 5.00100- 2 2.00000+ 5 4.90000- 2 2.35000+ 5 4.80000- 21261 305104789
+ 2.50000+ 5 4.50000- 2 2.70000+ 5 4.30000- 2 3.00000+ 5 4.00000- 21261 305104790
+ 3.50000+ 5 3.50000- 2 4.00000+ 5 3.00000- 2 4.50000+ 5 2.50000- 21261 305104791
+ 5.00000+ 5 2.00000- 2 5.50000+ 5 1.50000- 2 6.00000+ 5 1.00000- 21261 305104792
+ 6.50000+ 5 5.00000- 3 7.00000+ 5 1.00000- 3 7.50000+ 5 0.00000+ 01261 305104793
+ 2.00000+ 7 0.00000+ 0                                            1261 305104794
+                                                                  1261 300004795
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 305204796
+ 0.00000+ 0-4.96000+ 4          0          0          1         351261 305204797
+         35          2                                            1261 305204798
+ 5.00000+ 4 0.00000+ 0 8.40000+ 4 1.50000- 1 1.00000+ 5 2.90000- 11261 305204799
+ 1.03000+ 5 2.92000- 1 1.50000+ 5 3.20000- 1 1.73000+ 5 3.30000- 11261 305204800
+ 2.00000+ 5 3.40000- 1 2.35000+ 5 3.50000- 1 2.50000+ 5 3.50000- 11261 305204801
+ 2.70000+ 5 3.50010- 1 3.00000+ 5 3.50000- 1 3.50000+ 5 3.50000- 11261 305204802
+ 4.00000+ 5 3.50020- 1 4.50000+ 5 3.50010- 1 5.00000+ 5 3.50000- 11261 305204803
+ 5.50000+ 5 3.50010- 1 6.00000+ 5 3.49990- 1 6.50000+ 5 3.40020- 11261 305204804
+ 7.00000+ 5 3.10000- 1 7.50000+ 5 2.89990- 1 8.00000+ 5 2.70000- 11261 305204805
+ 8.50000+ 5 2.40000- 1 9.00000+ 5 2.10010- 1 9.50000+ 5 1.79850- 11261 305204806
+ 1.00000+ 6 1.49990- 1 1.50000+ 6 1.10000- 1 2.00000+ 6 9.00000- 21261 305204807
+ 2.50000+ 6 7.00000- 2 3.00000+ 6 6.00000- 2 3.50000+ 6 4.93600- 21261 305204808
+ 4.00000+ 6 4.00000- 2 4.50000+ 6 2.00000- 2 5.00000+ 6 6.00000- 31261 305204809
+ 5.50000+ 6 0.00000+ 0 2.00000+ 7 0.00000+ 0                      1261 305204810
+                                                                  1261 300004811
+ 9.22350+ 4 2.33025+ 2          0          3          0          01261 305304812
+ 0.00000+ 0-8.36000+ 4          0          0          1         331261 305304813
+         33          2                                            1261 305304814
+ 8.40000+ 4 0.00000+ 0 1.00000+ 5 3.00000- 2 1.03000+ 5 4.80000- 21261 305304815
+ 1.50000+ 5 1.00000- 1 1.73000+ 5 1.20000- 1 2.00000+ 5 1.40000- 11261 305304816
+ 2.35000+ 5 1.50000- 1 2.50000+ 5 1.50000- 1 2.70000+ 5 1.50000- 11261 305304817
+ 3.00000+ 5 1.50010- 1 3.50000+ 5 1.49990- 1 4.00000+ 5 1.50000- 11261 305304818
+ 4.50000+ 5 1.50000- 1 5.00000+ 5 1.50020- 1 5.50000+ 5 1.49990- 11261 305304819
+ 6.00000+ 5 1.40000- 1 6.50000+ 5 1.30000- 1 7.00000+ 5 1.20000- 11261 305304820
+ 7.50000+ 5 1.10000- 1 8.00000+ 5 1.00000- 1 8.50000+ 5 9.00000- 21261 305304821
+ 9.00000+ 5 8.00000- 2 9.50000+ 5 6.00000- 2 1.00000+ 6 4.00400- 21261 305304822
+ 1.50000+ 6 3.00000- 2 2.00000+ 6 2.00000- 2 2.50000+ 6 2.00000- 21261 305304823
+ 3.00000+ 6 2.00000- 2 3.50000+ 6 1.00000- 2 4.00000+ 6 1.00000- 21261 305304824
+ 4.50000+ 6 5.00000- 3 5.00000+ 6 0.00000+ 0 2.00000+ 7 0.00000+ 01261 305304825
+                                                                  1261 300004826
+ 9.22350+ 4 2.33025+ 2          0          4          0          01261 305404827
+ 0.00000+ 0-1.02500+ 5          0          0          1         311261 305404828
+         31          2                                            1261 305404829
+ 1.03000+ 5 0.00000+ 0 1.50000+ 5 3.00000- 2 1.73000+ 5 4.00000- 21261 305404830
+ 2.00000+ 5 5.00000- 2 2.35000+ 5 5.00000- 2 2.50000+ 5 5.00000- 21261 305404831
+ 2.70000+ 5 5.00000- 2 3.00000+ 5 5.00000- 2 3.50000+ 5 5.00000- 21261 305404832
+ 4.00000+ 5 5.00000- 2 4.50000+ 5 5.00000- 2 5.00000+ 5 5.00000- 21261 305404833
+ 5.50000+ 5 5.00000- 2 6.00000+ 5 5.00000- 2 6.50000+ 5 5.00000- 21261 305404834
+ 7.00000+ 5 5.00000- 2 7.50000+ 5 4.00000- 2 8.00000+ 5 4.00000- 21261 305404835
+ 8.50000+ 5 4.00000- 2 9.00000+ 5 4.00000- 2 9.50000+ 5 4.00000- 21261 305404836
+ 1.00000+ 6 4.00400- 2 1.50000+ 6 3.00000- 2 2.00000+ 6 2.00000- 21261 305404837
+ 2.50000+ 6 2.00000- 2 3.00000+ 6 2.00000- 2 3.50000+ 6 1.00000- 21261 305404838
+ 4.00000+ 6 1.00000- 2 4.50000+ 6 5.00000- 3 5.00000+ 6 0.00000+ 01261 305404839
+ 2.00000+ 7 0.00000+ 0                                            1261 305404840
+                                                                  1261 300004841
+ 9.22350+ 4 2.33025+ 2          0          5          0          01261 305504842
+ 0.00000+ 0-1.49200+ 5          0          0          1         301261 305504843
+         30          2                                            1261 305504844
+ 1.50000+ 5 0.00000+ 0 1.73000+ 5 2.00000- 2 2.00000+ 5 5.00000- 21261 305504845
+ 2.35000+ 5 5.00000- 2 2.50000+ 5 5.00000- 2 2.70000+ 5 5.00000- 21261 305504846
+ 3.00000+ 5 5.00000- 2 3.50000+ 5 5.00000- 2 4.00000+ 5 5.00000- 21261 305504847
+ 4.50000+ 5 5.00000- 2 5.00000+ 5 5.00000- 2 5.50000+ 5 5.00000- 21261 305504848
+ 6.00000+ 5 5.00000- 2 6.50000+ 5 5.00000- 2 7.00000+ 5 5.00000- 21261 305504849
+ 7.50000+ 5 4.00000- 2 8.00000+ 5 4.00000- 2 8.50000+ 5 4.00000- 21261 305504850
+ 9.00000+ 5 4.00000- 2 9.50000+ 5 4.00000- 2 1.00000+ 6 4.00000- 21261 305504851
+ 1.50000+ 6 3.00000- 2 2.00000+ 6 2.00000- 2 2.50000+ 6 2.00000- 21261 305504852
+ 3.00000+ 6 2.00000- 2 3.50000+ 6 1.00000- 2 4.00000+ 6 1.00000- 21261 305504853
+ 4.50000+ 6 5.00000- 3 5.00000+ 6 0.00000+ 0 2.00000+ 7 0.00000+ 01261 305504854
+                                                                  1261 300004855
+ 9.22350+ 4 2.33025+ 2          0          6          0          01261 305604856
+ 0.00000+ 0-1.72000+ 5          0          0          1         291261 305604857
+         29          2                                            1261 305604858
+ 1.73000+ 5 0.00000+ 0 2.00000+ 5 1.00000- 3 2.35000+ 5 2.60000- 21261 305604859
+ 2.50000+ 5 5.00000- 2 2.70000+ 5 8.00000- 2 3.00000+ 5 1.00000- 11261 305604860
+ 3.50000+ 5 1.40000- 1 4.00000+ 5 1.70000- 1 4.50000+ 5 1.90000- 11261 305604861
+ 5.00000+ 5 2.00000- 1 5.50000+ 5 2.00000- 1 6.00000+ 5 2.00000- 11261 305604862
+ 6.50000+ 5 2.00000- 1 7.00000+ 5 1.80000- 1 7.50000+ 5 1.60000- 11261 305604863
+ 8.00000+ 5 1.40000- 1 8.50000+ 5 1.00000- 1 9.00000+ 5 8.00000- 21261 305604864
+ 9.50000+ 5 6.00000- 2 1.00000+ 6 4.00000- 2 1.50000+ 6 3.00000- 21261 305604865
+ 2.00000+ 6 2.00000- 2 2.50000+ 6 2.00000- 2 3.00000+ 6 2.00000- 21261 305604866
+ 3.50000+ 6 1.00000- 2 4.00000+ 6 1.00000- 2 4.50000+ 6 5.00000- 31261 305604867
+ 5.00000+ 6 0.00000+ 0 2.00000+ 7 0.00000+ 0                      1261 305604868
+                                                                  1261 300004869
+ 9.22350+ 4 2.33025+ 2          0          7          0          01261 305704870
+ 0.00000+ 0-2.34000+ 5          0          0          1         271261 305704871
+         27          2                                            1261 305704872
+ 2.35000+ 5 0.00000+ 0 2.50000+ 5 3.00000- 2 2.70000+ 5 4.00000- 21261 305704873
+ 3.00000+ 5 5.00000- 2 3.50000+ 5 7.00000- 2 4.00000+ 5 8.00000- 21261 305704874
+ 4.50000+ 5 9.00000- 2 5.00000+ 5 1.00000- 1 5.50000+ 5 1.00000- 11261 305704875
+ 6.00000+ 5 1.00000- 1 6.50000+ 5 1.00000- 1 7.00000+ 5 9.00000- 21261 305704876
+ 7.50000+ 5 8.00000- 2 8.00000+ 5 7.00000- 2 8.50000+ 5 6.00000- 21261 305704877
+ 9.00000+ 5 5.00000- 2 9.50000+ 5 4.00000- 2 1.00000+ 6 4.00000- 21261 305704878
+ 1.50000+ 6 3.00000- 2 2.00000+ 6 2.00000- 2 2.50000+ 6 2.00000- 21261 305704879
+ 3.00000+ 6 2.00000- 2 3.50000+ 6 1.00000- 2 4.00000+ 6 1.00000- 21261 305704880
+ 4.50000+ 6 5.00000- 3 5.00000+ 6 0.00000+ 0 2.00000+ 7 0.00000+ 01261 305704881
+                                                                  1261 300004882
+ 9.22350+ 4 2.33025+ 2          0          8          0          01261 305804883
+ 0.00000+ 0-2.68000+ 5          0          0          1         251261 305804884
+         25          2                                            1261 305804885
+ 2.70000+ 5 0.00000+ 0 3.00000+ 5 2.00000- 2 3.50000+ 5 4.00000- 21261 305804886
+ 4.00000+ 5 7.00000- 2 4.50000+ 5 9.00000- 2 5.00000+ 5 1.00000- 11261 305804887
+ 5.50000+ 5 1.00000- 1 6.00000+ 5 1.00000- 1 6.50000+ 5 1.00000- 11261 305804888
+ 7.00000+ 5 1.00000- 1 7.50000+ 5 9.00000- 2 8.00000+ 5 8.00000- 21261 305804889
+ 8.50000+ 5 6.00000- 2 9.00000+ 5 5.00000- 2 9.50000+ 5 4.00000- 21261 305804890
+ 1.00000+ 6 4.00000- 2 1.50000+ 6 3.00000- 2 2.00000+ 6 2.00000- 21261 305804891
+ 2.50000+ 6 2.00000- 2 3.00000+ 6 2.00000- 2 3.50000+ 6 1.00000- 21261 305804892
+ 4.00000+ 6 1.00000- 2 4.50000+ 6 5.00000- 3 5.00000+ 6 0.00000+ 01261 305804893
+ 2.00000+ 7 0.00000+ 0                                            1261 305804894
+                                                                  1261 300004895
+ 9.22350+ 4 2.33025+ 2          0          9          0          01261 305904896
+ 0.00000+ 0-3.98000+ 5          0          0          1         231261 305904897
+         23          2                                            1261 305904898
+ 4.00000+ 5 0.00000+ 0 4.50000+ 5 5.00000- 2 5.00000+ 5 8.00000- 21261 305904899
+ 5.50000+ 5 1.00000- 1 6.00000+ 5 1.40000- 1 6.50000+ 5 1.70000- 11261 305904900
+ 7.00000+ 5 1.80000- 1 7.50000+ 5 1.90000- 1 8.00000+ 5 2.00000- 11261 305904901
+ 8.50000+ 5 2.00000- 1 9.00000+ 5 2.00000- 1 9.50000+ 5 2.00000- 11261 305904902
+ 1.00000+ 6 1.80000- 1 1.50000+ 6 1.50000- 1 2.00000+ 6 1.30000- 11261 305904903
+ 2.50000+ 6 1.00000- 1 3.00000+ 6 9.00000- 2 3.50000+ 6 7.00000- 21261 305904904
+ 4.00000+ 6 4.00000- 2 4.50000+ 6 1.00000- 2 5.00000+ 6 1.84000- 31261 305904905
+ 5.50000+ 6 0.00000+ 0 2.00000+ 7 0.00000+ 0                      1261 305904906
+                                                                  1261 300004907
+ 9.22350+ 4 2.33025+ 2          0         10          0          01261 306004908
+ 0.00000+ 0-5.97000+ 5          0          0          1         211261 306004909
+         21          2                                            1261 306004910
+ 6.00000+ 5 0.00000+ 0 6.50000+ 5 1.00000- 1 7.00000+ 5 2.20000- 11261 306004911
+ 7.50000+ 5 3.20000- 1 8.00000+ 5 4.00000- 1 8.50000+ 5 5.00000- 11261 306004912
+ 9.00000+ 5 6.00000- 1 9.50000+ 5 6.80000- 1 1.00000+ 6 7.80000- 11261 306004913
+ 1.50000+ 6 8.30000- 1 2.00000+ 6 8.30000- 1 2.50000+ 6 7.80000- 11261 306004914
+ 3.00000+ 6 5.80000- 1 3.50000+ 6 3.60000- 1 4.00000+ 6 2.30000- 11261 306004915
+ 4.50000+ 6 1.20000- 1 5.00000+ 6 3.50000- 2 5.50000+ 6 1.77000- 21261 306004916
+ 6.00000+ 6 3.30000- 3 6.50000+ 6 0.00000+ 0 2.00000+ 7 0.00000+ 01261 306004917
+                                                                  1261 300004918
+ 9.22350+ 4 2.33025+ 2          0         11          0          01261 306104919
+ 0.00000+ 0-9.95763+ 5          0          0          1        1101261 306104920
+        110          2                                            1261 306104921
+ 1.00000+ 6 0.00000+ 0 1.05000+ 6 1.00000- 4 1.10000+ 6 2.00000- 41261 306104922
+ 1.15000+ 6 3.50000- 4 1.20000+ 6 5.00000- 4 1.25000+ 6 7.50000- 41261 306104923
+ 1.29500+ 6 9.50000- 4 1.30000+ 6 1.00000- 3 1.35000+ 6 1.30000- 31261 306104924
+ 1.40000+ 6 1.50000- 3 1.45000+ 6 1.80000- 3 1.49500+ 6 1.97000- 31261 306104925
+ 1.50000+ 6 2.00000- 3 1.60000+ 6 2.50000- 3 1.70000+ 6 2.86000- 31261 306104926
+ 1.80000+ 6 3.15000- 3 1.90000+ 6 3.35000- 3 2.00000+ 6 3.50000- 31261 306104927
+ 2.10000+ 6 3.66000- 3 2.20000+ 6 3.76000- 3 2.30000+ 6 3.86000- 31261 306104928
+ 2.40000+ 6 3.93000- 3 2.50000+ 6 4.00000- 3 2.60000+ 6 4.05000- 31261 306104929
+ 2.70000+ 6 4.10000- 3 2.80000+ 6 4.13000- 3 2.90000+ 6 4.16000- 31261 306104930
+ 3.00000+ 6 4.20000- 3 3.10000+ 6 4.24000- 3 3.20000+ 6 4.26000- 31261 306104931
+ 3.30000+ 6 4.28000- 3 3.40000+ 6 4.29000- 3 3.50000+ 6 4.30000- 31261 306104932
+ 3.60000+ 6 4.35000- 3 3.70000+ 6 4.38000- 3 3.80000+ 6 4.42000- 31261 306104933
+ 3.90000+ 6 4.46000- 3 4.00000+ 6 4.50000- 3 4.10000+ 6 4.55000- 31261 306104934
+ 4.20000+ 6 4.59000- 3 4.30000+ 6 4.62000- 3 4.40000+ 6 4.66000- 31261 306104935
+ 4.50000+ 6 4.70000- 3 4.60000+ 6 4.77000- 3 4.70000+ 6 4.82000- 31261 306104936
+ 4.80000+ 6 4.87000- 3 4.90000+ 6 4.94000- 3 5.00000+ 6 5.00000- 31261 306104937
+ 5.10000+ 6 5.07000- 3 5.15000+ 6 5.11000- 3 5.20000+ 6 5.15000- 31261 306104938
+ 5.25000+ 6 5.18000- 3 5.30000+ 6 5.22000- 3 5.32858+ 6 5.24000- 31261 306104939
+ 5.35000+ 6 5.26000- 3 5.40000+ 6 5.30000- 3 5.45000+ 6 5.36000- 31261 306104940
+ 5.50000+ 6 5.40000- 3 5.55000+ 6 5.48000- 3 5.60000+ 6 5.60000- 31261 306104941
+ 5.65000+ 6 5.74000- 3 5.70000+ 6 5.87000- 3 5.75000+ 6 6.00000- 31261 306104942
+ 5.80000+ 6 6.15000- 3 5.90000+ 6 6.46000- 3 6.00000+ 6 6.80000- 31261 306104943
+ 6.10000+ 6 7.07000- 3 6.20000+ 6 7.40000- 3 6.30000+ 6 7.70000- 31261 306104944
+ 6.40000+ 6 8.04000- 3 6.50000+ 6 8.40000- 3 6.60000+ 6 8.70000- 31261 306104945
+ 6.70000+ 6 9.02000- 3 6.80000+ 6 9.35000- 3 6.90000+ 6 9.68000- 31261 306104946
+ 7.00000+ 6 1.00000- 2 7.10000+ 6 1.03000- 2 7.20000+ 6 1.06000- 21261 306104947
+ 7.30000+ 6 1.09000- 2 7.40000+ 6 1.12000- 2 7.50000+ 6 1.15000- 21261 306104948
+ 7.60000+ 6 1.18000- 2 7.65000+ 6 1.19500- 2 7.70000+ 6 1.21000- 21261 306104949
+ 7.80000+ 6 1.24000- 2 7.90000+ 6 1.27000- 2 8.00000+ 6 1.30000- 21261 306104950
+ 8.20000+ 6 1.36000- 2 8.40000+ 6 1.42000- 2 8.50000+ 6 1.45000- 21261 306104951
+ 8.60000+ 6 1.48500- 2 8.80000+ 6 1.55000- 2 9.00000+ 6 1.62500- 21261 306104952
+ 9.20000+ 6 1.68700- 2 9.40000+ 6 1.74900- 2 9.50000+ 6 1.78000- 21261 306104953
+ 9.60000+ 6 1.81400- 2 9.80000+ 6 1.88200- 2 1.00000+ 7 1.95000- 21261 306104954
+ 1.05000+ 7 2.11000- 2 1.10000+ 7 2.29000- 2 1.15000+ 7 2.47000- 21261 306104955
+ 1.19000+ 7 2.62000- 2 1.20000+ 7 2.66000- 2 1.21988+ 7 2.74000- 21261 306104956
+ 1.25000+ 7 2.86000- 2 1.30000+ 7 3.05000- 2 1.35000+ 7 3.24000- 21261 306104957
+ 1.40000+ 7 3.33000- 2 2.00000+ 7 3.33000- 2                      1261 306104958
+                                                                  1261 300004959
+ 9.22350+ 4 2.33025+ 2          0         12          0          01261 306204960
+ 0.00000+ 0-1.99153+ 6          0          0          1         931261 306204961
+         93          2                                            1261 306204962
+ 2.00000+ 6 0.00000+ 0 2.10000+ 6 2.50000- 4 2.20000+ 6 4.00000- 41261 306204963
+ 2.30000+ 6 5.50000- 4 2.40000+ 6 6.70000- 4 2.50000+ 6 8.00000- 41261 306204964
+ 2.60000+ 6 9.10000- 4 2.70000+ 6 1.00000- 3 2.80000+ 6 1.10000- 31261 306204965
+ 2.90000+ 6 1.20000- 3 3.00000+ 6 1.30000- 3 3.10000+ 6 1.39000- 31261 306204966
+ 3.20000+ 6 1.46000- 3 3.30000+ 6 1.54000- 3 3.40000+ 6 1.62000- 31261 306204967
+ 3.50000+ 6 1.70000- 3 3.60000+ 6 1.81000- 3 3.70000+ 6 1.93000- 31261 306204968
+ 3.80000+ 6 2.04000- 3 3.90000+ 6 2.16000- 3 4.00000+ 6 2.30000- 31261 306204969
+ 4.10000+ 6 2.43000- 3 4.20000+ 6 2.56000- 3 4.30000+ 6 2.70000- 31261 306204970
+ 4.40000+ 6 2.85000- 3 4.50000+ 6 3.00000- 3 4.60000+ 6 3.21000- 31261 306204971
+ 4.70000+ 6 3.39000- 3 4.80000+ 6 3.59000- 3 4.90000+ 6 3.79000- 31261 306204972
+ 5.00000+ 6 4.00000- 3 5.10000+ 6 4.25000- 3 5.15000+ 6 4.40000- 31261 306204973
+ 5.20000+ 6 4.55000- 3 5.25000+ 6 4.70000- 3 5.30000+ 6 4.86000- 31261 306204974
+ 5.32858+ 6 4.93000- 3 5.35000+ 6 4.97000- 3 5.40000+ 6 5.14000- 31261 306204975
+ 5.45000+ 6 5.27000- 3 5.50000+ 6 5.40000- 3 5.55000+ 6 5.48000- 31261 306204976
+ 5.60000+ 6 5.60000- 3 5.65000+ 6 5.74000- 3 5.70000+ 6 5.87000- 31261 306204977
+ 5.75000+ 6 6.00000- 3 5.80000+ 6 6.15000- 3 5.90000+ 6 6.46000- 31261 306204978
+ 6.00000+ 6 6.80000- 3 6.10000+ 6 7.07000- 3 6.20000+ 6 7.40000- 31261 306204979
+ 6.30000+ 6 7.70000- 3 6.40000+ 6 8.04000- 3 6.50000+ 6 8.40000- 31261 306204980
+ 6.60000+ 6 8.70000- 3 6.70000+ 6 9.02000- 3 6.80000+ 6 9.35000- 31261 306204981
+ 6.90000+ 6 9.68000- 3 7.00000+ 6 1.00000- 2 7.10000+ 6 1.03000- 21261 306204982
+ 7.20000+ 6 1.06000- 2 7.30000+ 6 1.09000- 2 7.40000+ 6 1.12000- 21261 306204983
+ 7.50000+ 6 1.15000- 2 7.60000+ 6 1.18000- 2 7.65000+ 6 1.19500- 21261 306204984
+ 7.70000+ 6 1.21000- 2 7.80000+ 6 1.24000- 2 7.90000+ 6 1.27000- 21261 306204985
+ 8.00000+ 6 1.30000- 2 8.20000+ 6 1.36000- 2 8.40000+ 6 1.42000- 21261 306204986
+ 8.50000+ 6 1.45000- 2 8.60000+ 6 1.48500- 2 8.80000+ 6 1.55500- 21261 306204987
+ 9.00000+ 6 1.62500- 2 9.20000+ 6 1.68700- 2 9.40000+ 6 1.74900- 21261 306204988
+ 9.50000+ 6 1.78000- 2 9.60000+ 6 1.81400- 2 9.80000+ 6 1.88200- 21261 306204989
+ 1.00000+ 7 1.95000- 2 1.05000+ 7 2.11000- 2 1.10000+ 7 2.29000- 21261 306204990
+ 1.15000+ 7 2.47000- 2 1.19000+ 7 2.62000- 2 1.20000+ 7 2.66000- 21261 306204991
+ 1.21988+ 7 2.74000- 2 1.25000+ 7 2.86000- 2 1.30000+ 7 3.05000- 21261 306204992
+ 1.35000+ 7 3.24000- 2 1.40000+ 7 3.33000- 2 2.00000+ 7 3.33000- 21261 306204993
+                                                                  1261 300004994
+ 9.22350+ 4 2.33025+ 2          0         13          0          01261 306304995
+ 0.00000+ 0-2.98729+ 6          0          0          1         831261 306304996
+         83          2                                            1261 306304997
+ 3.00000+ 6 0.00000+ 0 3.10000+ 6 3.00000- 4 3.20000+ 6 5.30000- 41261 306304998
+ 3.30000+ 6 7.30000- 4 3.40000+ 6 8.70000- 4 3.50000+ 6 1.00000- 31261 306304999
+ 3.60000+ 6 1.10000- 3 3.70000+ 6 1.20000- 3 3.80000+ 6 1.30000- 31261 306305000
+ 3.90000+ 6 1.40000- 3 4.00000+ 6 1.50000- 3 4.10000+ 6 1.57000- 31261 306305001
+ 4.20000+ 6 1.66000- 3 4.30000+ 6 1.78000- 3 4.40000+ 6 1.86000- 31261 306305002
+ 4.50000+ 6 2.00000- 3 4.60000+ 6 2.16000- 3 4.70000+ 6 2.32000- 31261 306305003
+ 4.80000+ 6 2.51000- 3 4.90000+ 6 2.74000- 3 5.00000+ 6 3.00000- 31261 306305004
+ 5.10000+ 6 3.34000- 3 5.15000+ 6 3.50000- 3 5.20000+ 6 3.66000- 31261 306305005
+ 5.25000+ 6 3.88000- 3 5.30000+ 6 4.08000- 3 5.32858+ 6 4.21000- 31261 306305006
+ 5.35000+ 6 4.30000- 3 5.40000+ 6 4.50000- 3 5.45000+ 6 4.72000- 31261 306305007
+ 5.50000+ 6 4.93000- 3 5.55000+ 6 5.14000- 3 5.60000+ 6 5.32000- 31261 306305008
+ 5.65000+ 6 5.53000- 3 5.70000+ 6 5.75000- 3 5.75000+ 6 5.94000- 31261 306305009
+ 5.80000+ 6 6.10000- 3 5.90000+ 6 6.44000- 3 6.00000+ 6 6.80000- 31261 306305010
+ 6.10000+ 6 7.07000- 3 6.20000+ 6 7.40000- 3 6.30000+ 6 7.70000- 31261 306305011
+ 6.40000+ 6 8.04000- 3 6.50000+ 6 8.40000- 3 6.60000+ 6 8.70000- 31261 306305012
+ 6.70000+ 6 9.02000- 3 6.80000+ 6 9.35000- 3 6.90000+ 6 9.68000- 31261 306305013
+ 7.00000+ 6 1.00000- 2 7.10000+ 6 1.03000- 2 7.20000+ 6 1.06000- 21261 306305014
+ 7.30000+ 6 1.09000- 2 7.40000+ 6 1.12000- 2 7.50000+ 6 1.15000- 21261 306305015
+ 7.60000+ 6 1.18000- 2 7.65000+ 6 1.19500- 2 7.70000+ 6 1.21000- 21261 306305016
+ 7.80000+ 6 1.24000- 2 7.90000+ 6 1.27000- 2 8.00000+ 6 1.30000- 21261 306305017
+ 8.20000+ 6 1.36000- 2 8.40000+ 6 1.42000- 2 8.50000+ 6 1.45000- 21261 306305018
+ 8.60000+ 6 1.48500- 2 8.80000+ 6 1.55500- 2 9.00000+ 6 1.62500- 21261 306305019
+ 9.20000+ 6 1.68700- 2 9.40000+ 6 1.74900- 2 9.50000+ 6 1.78000- 21261 306305020
+ 9.60000+ 6 1.81400- 2 9.80000+ 6 1.88200- 2 1.00000+ 7 1.95000- 21261 306305021
+ 1.05000+ 7 2.11000- 2 1.10000+ 7 2.29000- 2 1.15000+ 7 2.47000- 21261 306305022
+ 1.19000+ 7 2.62000- 2 1.20000+ 7 2.66000- 2 1.21988+ 7 2.74000- 21261 306305023
+ 1.25000+ 7 2.86000- 2 1.30000+ 7 3.05000- 2 1.35000+ 7 3.24000- 21261 306305024
+ 1.40000+ 7 3.33000- 2 2.00000+ 7 3.33000- 2                      1261 306305025
+                                                                  1261 300005026
+ 9.22350+ 4 2.33025+ 2          0         14          0          01261 306405027
+ 0.00000+ 0-3.98305+ 6          0          0          1         731261 306405028
+         73          2                                            1261 306405029
+ 4.00000+ 6 0.00000+ 0 4.10000+ 6 2.00000- 4 4.20000+ 6 3.60000- 41261 306405030
+ 4.30000+ 6 5.00000- 4 4.40000+ 6 6.00000- 4 4.50000+ 6 7.20000- 41261 306405031
+ 4.60000+ 6 8.60000- 4 4.70000+ 6 1.01000- 3 4.80000+ 6 1.19000- 31261 306405032
+ 4.90000+ 6 1.37000- 3 5.00000+ 6 1.60000- 3 5.10000+ 6 1.87000- 31261 306405033
+ 5.15000+ 6 2.03000- 3 5.20000+ 6 2.12000- 3 5.25000+ 6 2.32000- 31261 306405034
+ 5.30000+ 6 2.51000- 3 5.32858+ 6 2.60000- 3 5.35000+ 6 2.66000- 31261 306405035
+ 5.40000+ 6 2.82000- 3 5.45000+ 6 3.00000- 3 5.50000+ 6 3.18000- 31261 306405036
+ 5.55000+ 6 3.38000- 3 5.60000+ 6 3.59000- 3 5.65000+ 6 3.79000- 31261 306405037
+ 5.70000+ 6 4.00000- 3 5.75000+ 6 4.20000- 3 5.80000+ 6 4.41000- 31261 306405038
+ 5.90000+ 6 4.82000- 3 6.00000+ 6 5.23000- 3 6.10000+ 6 5.64000- 31261 306405039
+ 6.20000+ 6 6.04000- 3 6.30000+ 6 6.44000- 3 6.40000+ 6 6.84000- 31261 306405040
+ 6.50000+ 6 7.24000- 3 6.60000+ 6 7.63000- 3 6.70000+ 6 8.01000- 31261 306405041
+ 6.80000+ 6 8.39000- 3 6.90000+ 6 8.77000- 3 7.00000+ 6 9.15000- 31261 306405042
+ 7.10000+ 6 9.50000- 3 7.20000+ 6 9.85000- 3 7.30000+ 6 1.02000- 21261 306405043
+ 7.40000+ 6 1.06000- 2 7.50000+ 6 1.10000- 2 7.60000+ 6 1.13500- 21261 306405044
+ 7.65000+ 6 1.15200- 2 7.70000+ 6 1.17000- 2 7.80000+ 6 1.21000- 21261 306405045
+ 7.90000+ 6 1.24000- 2 8.00000+ 6 1.28000- 2 8.20000+ 6 1.35000- 21261 306405046
+ 8.40000+ 6 1.42000- 2 8.50000+ 6 1.45000- 2 8.60000+ 6 1.48500- 21261 306405047
+ 8.80000+ 6 1.55500- 2 9.00000+ 6 1.62500- 2 9.20000+ 6 1.68700- 21261 306405048
+ 9.40000+ 6 1.74900- 2 9.50000+ 6 1.78000- 2 9.60000+ 6 1.81400- 21261 306405049
+ 9.80000+ 6 1.88200- 2 1.00000+ 7 1.95000- 2 1.05000+ 7 2.11000- 21261 306405050
+ 1.10000+ 7 2.29000- 2 1.15000+ 7 2.47000- 2 1.19000+ 7 2.62000- 21261 306405051
+ 1.20000+ 7 2.66000- 2 1.21988+ 7 2.74000- 2 1.25000+ 7 2.86000- 21261 306405052
+ 1.30000+ 7 3.05000- 2 1.35000+ 7 3.24000- 2 1.40000+ 7 3.33000- 21261 306405053
+ 2.00000+ 7 3.33000- 2                                            1261 306405054
+                                                                  1261 300005055
+ 9.22350+ 4 2.33025+ 2          0         15          0          01261 306505056
+ 0.00000+ 0-4.97881+ 6          0          0          1         631261 306505057
+         63          2                                            1261 306505058
+ 5.00000+ 6 0.00000+ 0 5.10000+ 6 3.10000- 4 5.15000+ 6 4.70000- 41261 306505059
+ 5.20000+ 6 6.60000- 4 5.25000+ 6 8.50000- 4 5.30000+ 6 1.00000- 31261 306505060
+ 5.32858+ 6 1.12000- 3 5.35000+ 6 1.20000- 3 5.40000+ 6 1.39000- 31261 306505061
+ 5.45000+ 6 1.60000- 3 5.50000+ 6 1.80000- 3 5.55000+ 6 2.00000- 31261 306505062
+ 5.60000+ 6 2.20000- 3 5.65000+ 6 2.40000- 3 5.70000+ 6 2.60000- 31261 306505063
+ 5.75000+ 6 2.81000- 3 5.80000+ 6 3.03000- 3 5.90000+ 6 3.46000- 31261 306505064
+ 6.00000+ 6 3.87000- 3 6.10000+ 6 4.30000- 3 6.20000+ 6 4.74000- 31261 306505065
+ 6.30000+ 6 5.18000- 3 6.40000+ 6 5.62000- 3 6.50000+ 6 6.06000- 31261 306505066
+ 6.60000+ 6 6.49000- 3 6.70000+ 6 6.92000- 3 6.80000+ 6 7.35000- 31261 306505067
+ 6.90000+ 6 7.78000- 3 7.00000+ 6 8.21000- 3 7.10000+ 6 8.64000- 31261 306505068
+ 7.20000+ 6 9.08000- 3 7.30000+ 6 9.52000- 3 7.40000+ 6 9.96000- 31261 306505069
+ 7.50000+ 6 1.04000- 2 7.60000+ 6 1.08000- 2 7.65000+ 6 1.10000- 21261 306505070
+ 7.70000+ 6 1.11800- 2 7.80000+ 6 1.15400- 2 7.90000+ 6 1.19000- 21261 306505071
+ 8.00000+ 6 1.22500- 2 8.20000+ 6 1.30000- 2 8.40000+ 6 1.37000- 21261 306505072
+ 8.50000+ 6 1.41000- 2 8.60000+ 6 1.45000- 2 8.80000+ 6 1.52000- 21261 306505073
+ 9.00000+ 6 1.59000- 2 9.20000+ 6 1.66000- 2 9.40000+ 6 1.73500- 21261 306505074
+ 9.50000+ 6 1.78000- 2 9.60000+ 6 1.81400- 2 9.80000+ 6 1.88200- 21261 306505075
+ 1.00000+ 7 1.95000- 2 1.05000+ 7 2.11000- 2 1.10000+ 7 2.29000- 21261 306505076
+ 1.15000+ 7 2.47000- 2 1.19000+ 7 2.62000- 2 1.20000+ 7 2.66000- 21261 306505077
+ 1.21988+ 7 2.74000- 2 1.25000+ 7 2.86000- 2 1.30000+ 7 3.05000- 21261 306505078
+ 1.35000+ 7 3.24000- 2 1.40000+ 7 3.33000- 2 2.00000+ 7 3.33000- 21261 306505079
+                                                                  1261 300005080
+ 9.22350+ 4 2.33025+ 2          0         16          0          01261 306605081
+ 0.00000+ 0-5.97458+ 6          0          0          1         451261 306605082
+         45          2                                            1261 306605083
+ 6.00000+ 6 0.00000+ 0 6.10000+ 6 6.50000- 4 6.20000+ 6 1.25000- 31261 306605084
+ 6.30000+ 6 1.90000- 3 6.40000+ 6 2.50000- 3 6.50000+ 6 2.85000- 31261 306605085
+ 6.60000+ 6 3.40000- 3 6.70000+ 6 3.90000- 3 6.80000+ 6 4.30000- 31261 306605086
+ 6.90000+ 6 4.80000- 3 7.00000+ 6 5.25000- 3 7.10000+ 6 5.70000- 31261 306605087
+ 7.20000+ 6 6.15000- 3 7.30000+ 6 6.60000- 3 7.40000+ 6 7.05000- 31261 306605088
+ 7.50000+ 6 7.50000- 3 7.60000+ 6 7.94000- 3 7.65000+ 6 8.16000- 31261 306605089
+ 7.70000+ 6 8.38000- 3 7.80000+ 6 8.82000- 3 7.90000+ 6 9.26000- 31261 306605090
+ 8.00000+ 6 9.70000- 3 8.20000+ 6 1.06000- 2 8.40000+ 6 1.15000- 21261 306605091
+ 8.50000+ 6 1.19000- 2 8.60000+ 6 1.24000- 2 8.80000+ 6 1.32000- 21261 306605092
+ 9.00000+ 6 1.41000- 2 9.20000+ 6 1.51000- 2 9.40000+ 6 1.60000- 21261 306605093
+ 9.50000+ 6 1.64000- 2 9.60000+ 6 1.68000- 2 9.80000+ 6 1.77000- 21261 306605094
+ 1.00000+ 7 1.86000- 2 1.05000+ 7 2.07000- 2 1.10000+ 7 2.29000- 21261 306605095
+ 1.15000+ 7 2.47000- 2 1.19000+ 7 2.62000- 2 1.20000+ 7 2.66000- 21261 306605096
+ 1.21988+ 7 2.74000- 2 1.25000+ 7 2.86000- 2 1.30000+ 7 3.05000- 21261 306605097
+ 1.35000+ 7 3.24000- 2 1.40000+ 7 3.33000- 2 2.00000+ 7 3.33000- 21261 306605098
+                                                                  1261 300005099
+ 9.22350+ 4 2.33025+ 2          0         99          0          01261 309105100
+ 0.00000+ 0-9.45940+ 5          0          0          1        1221261 309105101
+        122          2                                            1261 309105102
+ 9.50000+ 5 0.00000+ 0 1.00000+ 6 2.00000- 2 1.05000+ 6 5.09000- 21261 309105103
+ 1.10000+ 6 8.18000- 2 1.15000+ 6 1.12650- 1 1.20000+ 6 1.43500- 11261 309105104
+ 1.25000+ 6 1.74250- 1 1.29500+ 6 2.01950- 1 1.30000+ 6 2.05000- 11261 309105105
+ 1.35000+ 6 2.35700- 1 1.40000+ 6 2.66500- 1 1.45000+ 6 2.97200- 11261 309105106
+ 1.49500+ 6 3.24930- 1 1.50000+ 6 3.28000- 1 1.60000+ 6 3.77500- 11261 309105107
+ 1.70000+ 6 4.27140- 1 1.80000+ 6 4.76850- 1 1.90000+ 6 5.26650- 11261 309105108
+ 2.00000+ 6 5.76500- 1 2.10000+ 6 5.96090- 1 2.20000+ 6 6.15840- 11261 309105109
+ 2.30000+ 6 6.35590- 1 2.40000+ 6 6.55400- 1 2.50000+ 6 6.75200- 11261 309105110
+ 2.60000+ 6 7.31040- 1 2.70000+ 6 7.86900- 1 2.80000+ 6 8.42770- 11261 309105111
+ 2.90000+ 6 8.98640- 1 3.00000+ 6 9.54500- 1 3.10000+ 6 1.01607+ 01261 309105112
+ 3.20000+ 6 1.07775+ 0 3.30000+ 6 1.13945+ 0 3.40000+ 6 1.20122+ 01261 309105113
+ 3.50000+ 6 1.26300+ 0 3.60000+ 6 1.29874+ 0 3.70000+ 6 1.33449+ 01261 309105114
+ 3.80000+ 6 1.37024+ 0 3.90000+ 6 1.40598+ 0 4.00000+ 6 1.44170+ 01261 309105115
+ 4.10000+ 6 1.48125+ 0 4.20000+ 6 1.52083+ 0 4.30000+ 6 1.56040+ 01261 309105116
+ 4.40000+ 6 1.60003+ 0 4.50000+ 6 1.63958+ 0 4.60000+ 6 1.66843+ 01261 309105117
+ 4.70000+ 6 1.69732+ 0 4.80000+ 6 1.72214+ 0 4.90000+ 6 1.73200+ 01261 309105118
+ 5.00000+ 6 1.76100+ 0 5.10000+ 6 1.75980+ 0 5.15000+ 6 1.75420+ 01261 309105119
+ 5.20000+ 6 1.74860+ 0 5.25000+ 6 1.74500+ 0 5.30000+ 6 1.74000+ 01261 309105120
+ 5.32858+ 6 1.73700+ 0 5.35000+ 6 1.73500+ 0 5.40000+ 6 1.72600+ 01261 309105121
+ 5.45000+ 6 1.71600+ 0 5.50000+ 6 1.70600+ 0 5.55000+ 6 1.69300+ 01261 309105122
+ 5.60000+ 6 1.67800+ 0 5.65000+ 6 1.66100+ 0 5.70000+ 6 1.64400+ 01261 309105123
+ 5.75000+ 6 1.62300+ 0 5.80000+ 6 1.59900+ 0 5.90000+ 6 1.54800+ 01261 309105124
+ 6.00000+ 6 1.45900+ 0 6.10000+ 6 1.36900+ 0 6.20000+ 6 1.26600+ 01261 309105125
+ 6.30000+ 6 1.16700+ 0 6.40000+ 6 1.07300+ 0 6.50000+ 6 9.78600- 11261 309105126
+ 6.60000+ 6 9.04800- 1 6.70000+ 6 8.30900- 1 6.80000+ 6 7.64700- 11261 309105127
+ 6.90000+ 6 7.06000- 1 7.00000+ 6 6.47400- 1 7.10000+ 6 5.87200- 11261 309105128
+ 7.20000+ 6 5.27100- 1 7.30000+ 6 4.67000- 1 7.40000+ 6 4.05000- 11261 309105129
+ 7.50000+ 6 3.65400- 1 7.60000+ 6 3.23900- 1 7.65000+ 6 3.12600- 11261 309105130
+ 7.70000+ 6 3.01200- 1 7.80000+ 6 2.78500- 1 7.90000+ 6 2.55800- 11261 309105131
+ 8.00000+ 6 2.33200- 1 8.20000+ 6 2.01900- 1 8.40000+ 6 1.70600- 11261 309105132
+ 8.50000+ 6 1.57800- 1 8.60000+ 6 1.44900- 1 8.80000+ 6 1.25000- 11261 309105133
+ 9.00000+ 6 1.05000- 1 9.20000+ 6 9.40200- 2 9.40000+ 6 8.30900- 21261 309105134
+ 9.50000+ 6 7.86000- 2 9.60000+ 6 7.41000- 2 9.80000+ 6 6.70000- 21261 309105135
+ 1.00000+ 7 5.99000- 2 1.05000+ 7 4.78000- 2 1.10000+ 7 4.06000- 21261 309105136
+ 1.15000+ 7 3.48000- 2 1.19000+ 7 3.21000- 2 1.20000+ 7 3.14000- 21261 309105137
+ 1.21988+ 7 3.07000- 2 1.25000+ 7 3.04000- 2 1.30000+ 7 3.00000- 21261 309105138
+ 1.35000+ 7 2.66000- 2 1.40000+ 7 2.52000- 2 1.45000+ 7 2.32000- 21261 309105139
+ 1.50000+ 7 2.12000- 2 1.55000+ 7 1.92000- 2 1.60000+ 7 1.82000- 21261 309105140
+ 1.65000+ 7 1.67000- 2 1.70000+ 7 1.52000- 2 1.75000+ 7 1.42000- 21261 309105141
+ 1.80000+ 7 1.32000- 2 1.85000+ 7 1.22000- 2 1.90000+ 7 1.14000- 21261 309105142
+ 1.95000+ 7 1.07000- 2 2.00000+ 7 1.02000- 2                      1261 309105143
+                                                                  1261 300005144
+ 9.22350+ 4 2.33025+ 2          0         99          0          01261 310205145
+ 0.00000+ 0 6.54510+ 6          0          0          3        7691261 310205146
+         51          5        437          2        769          51261 310205147
+ 1.00000- 5 5.42220+ 3 1.00000- 3 5.40605+ 2 5.00000- 3 2.38709+ 21261 310205148
+ 1.00000- 2 1.65849+ 2 1.50000- 2 1.32047+ 2 2.00000- 2 1.12013+ 21261 310205149
+ 2.53000- 2 9.77000+ 1 3.00000- 2 8.83883+ 1 3.50000- 2 8.07502+ 11261 310205150
+ 4.00000- 2 7.46299+ 1 4.50000- 2 6.96870+ 1 5.00000- 2 6.54739+ 11261 310205151
+ 5.50000- 2 6.18737+ 1 6.00000- 2 5.87601+ 1 6.50000- 2 5.60454+ 11261 310205152
+ 7.00000- 2 5.36323+ 1 7.50000- 2 5.14626+ 1 8.00000- 2 4.97987+ 11261 310205153
+ 8.50000- 2 4.80472+ 1 9.00000- 2 4.64710+ 1 9.50000- 2 4.51185+ 11261 310205154
+ 1.00000- 1 4.40092+ 1 1.40000- 1 3.85215+ 1 1.80000- 1 3.78988+ 11261 310205155
+ 2.03340- 1 3.99129+ 1 2.23340- 1 4.23308+ 1 2.43340- 1 4.47098+ 11261 310205156
+ 2.63340- 1 4.69283+ 1 2.83340- 1 4.81348+ 1 3.03340- 1 4.56148+ 11261 310205157
+ 3.23340- 1 3.92512+ 1 3.43340- 1 3.19829+ 1 3.63340- 1 2.62810+ 11261 310205158
+ 3.83340- 1 2.10102+ 1 4.03340- 1 1.72797+ 1 4.28120- 1 1.39734+ 11261 310205159
+ 4.64920- 1 1.13171+ 1 5.04920- 1 9.52947+ 0 5.44920- 1 8.19820+ 01261 310205160
+ 5.84920- 1 7.18228+ 0 6.24920- 1 6.47296+ 0 6.64920- 1 6.00601+ 01261 310205161
+ 7.04920- 1 5.71157+ 0 7.44920- 1 5.56221+ 0 7.84920- 1 5.54363+ 01261 310205162
+ 8.24920- 1 5.66701+ 0 8.64920- 1 5.97322+ 0 9.04920- 1 6.45641+ 01261 310205163
+ 9.44920- 1 7.23238+ 0 9.84920- 1 8.75758+ 0 1.00000+ 0 9.67679+ 01261 310205164
+ 1.00000+ 0-1.49500+ 0 1.05500+ 0-1.48000+ 0 1.07300+ 0-1.47000+ 01261 310205165
+ 1.09100+ 0-1.46000+ 0 1.18200+ 0 7.10000- 1 1.20000+ 0 1.07000+ 01261 310205166
+ 1.21800+ 0 1.14000+ 0 1.23600+ 0 1.14000+ 0 1.32700+ 0 0.00000+ 01261 310205167
+ 2.63600+ 0 0.00000+ 0 2.69100+ 0 1.43000+ 0 2.74500+ 0 2.29000+ 01261 310205168
+ 2.80000+ 0 1.43000+ 0 2.81800+ 0 1.07000+ 0 2.85500+ 0 0.00000+ 01261 310205169
+ 3.49100+ 0 0.00000+ 0 3.54500+ 0-1.20000+ 0 3.58200+ 0-2.50000+ 01261 310205170
+ 3.63600+ 0 0.00000+ 0 3.69100+ 0 2.86000+ 0 3.72700+ 0 1.79000+ 01261 310205171
+ 3.81800+ 0 7.10000- 1 3.90900+ 0 0.00000+ 0 4.00000+ 0 0.00000+ 01261 310205172
+ 4.54500+ 0 0.00000+ 0 4.63600+ 0 1.14000+ 0 4.72700+ 0 3.57000+ 01261 310205173
+ 4.78200+ 0 1.00000+ 0 4.80000+ 0 0.00000+ 0 4.83600+ 0 0.00000+ 01261 310205174
+ 4.85500+ 0-5.00000+ 0 4.89100+ 0-6.40000+ 0 4.90900+ 0-2.00000+ 01261 310205175
+ 4.94500+ 0 0.00000+ 0 4.98100+ 0 4.30000- 1 5.09100+ 0 4.30000- 11261 310205176
+ 5.14500+ 0 0.00000+ 0 6.09100+ 0 0.00000+ 0 6.16400+ 0 1.50000+ 01261 310205177
+ 6.21800+ 0 3.00000+ 0 6.25500+ 0 0.00000+ 0 6.45500+ 0 0.00000+ 01261 310205178
+ 6.49100+ 0 2.14000+ 0 6.54500+ 0 2.86000+ 0 6.63600+ 0 0.00000+ 01261 310205179
+ 7.81800+ 0 0.00000+ 0 8.00000+ 0 2.00000+ 0 8.18100+ 0 2.57000+ 01261 310205180
+ 8.36300+ 0 3.72000+ 0 8.45300+ 0 0.00000+ 0 8.92500+ 0 0.00000+ 01261 310205181
+ 9.01500+ 0 4.29000+ 0 9.05200+ 0 4.29000+ 0 9.10600+ 0 4.29000+ 01261 310205182
+ 9.17900+ 0 4.29000+ 0 9.23300+ 0 2.14000+ 0 9.30600+ 0-1.43000+ 01261 310205183
+ 9.36000+ 0-2.50000+ 0 9.43200+ 0-2.14000+ 0 9.45100+ 0-1.79000+ 01261 310205184
+ 9.50500+ 0-7.10000- 1 9.54100+ 0 0.00000+ 0 9.99500+ 0 0.00000+ 01261 310205185
+ 1.00850+ 1 1.43000+ 0 1.01760+ 1-2.14000+ 0 1.02670+ 1-2.14000+ 01261 310205186
+ 1.03390+ 1-7.10000- 1 1.04300+ 1 0.00000+ 0 1.06290+ 1 1.40000- 11261 310205187
+ 1.07200+ 1 4.30000- 1 1.08110+ 1 5.70000- 1 1.09370+ 1 6.40000- 11261 310205188
+ 1.09920+ 1 7.10000- 1 1.12640+ 1 1.50000+ 0 1.14090+ 1 2.70000+ 01261 310205189
+ 1.14450+ 1 2.88000+ 0 1.14810+ 1 2.70000+ 0 1.15540+ 1 0.00000+ 01261 310205190
+ 1.18620+ 1 0.00000+ 0 1.18980+ 1 8.00000- 1 1.20000+ 1 2.00000+ 01261 310205191
+ 1.20910+ 1 4.00000+ 0 1.21450+ 1 4.00000+ 0 1.22000+ 1 3.64000+ 01261 310205192
+ 1.23500+ 1 0.00000+ 0 1.24910+ 1 0.00000+ 0 1.25440+ 1 0.00000+ 01261 310205193
+ 1.40850+ 1 0.00000+ 0 1.42670+ 1 0.00000+ 0 1.43570+ 1 0.00000+ 01261 310205194
+ 1.44120+ 1 0.00000+ 0 1.44480+ 1 0.00000+ 0 1.46110+ 1 5.00000- 11261 310205195
+ 1.46470+ 1 1.00000+ 0 1.47370+ 1 1.10000+ 0 1.49010+ 1 1.07000+ 01261 310205196
+ 1.50000+ 1 7.10000- 1 1.50910+ 1 7.10000- 1 1.51820+ 1 0.00000+ 01261 310205197
+ 1.52730+ 1 0.00000+ 0 1.53640+ 1 0.00000+ 0 1.54550+ 1 0.00000+ 01261 310205198
+ 1.55450+ 1 0.00000+ 0 1.56360+ 1 2.14000+ 0 1.57270+ 1 3.57000+ 01261 310205199
+ 1.58180+ 1 3.57000+ 0 1.59090+ 1 2.14000+ 0 1.60000+ 1 0.00000+ 01261 310205200
+ 1.60910+ 1 0.00000+ 0 1.61820+ 1 0.00000+ 0 1.62730+ 1 1.43000+ 01261 310205201
+ 1.63640+ 1 2.50000+ 0 1.64360+ 1 2.50000+ 0 1.64910+ 1 2.14000+ 01261 310205202
+ 1.65450+ 1 0.00000+ 0 1.66360+ 1 0.00000+ 0 1.67270+ 1 0.00000+ 01261 310205203
+ 1.70000+ 1 0.00000+ 0 1.70910+ 1 3.60000- 1 1.71810+ 1 7.10000- 11261 310205204
+ 1.72730+ 1 7.10000- 1 1.73640+ 1 7.10000- 1 1.74550+ 1 7.10000- 11261 310205205
+ 1.75450+ 1 7.10000- 1 1.76360+ 1 1.07000+ 0 1.77270+ 1 1.07000+ 01261 310205206
+ 1.78180+ 1 8.60000- 1 1.79090+ 1 0.00000+ 0 1.83640+ 1 0.00000+ 01261 310205207
+ 1.84550+ 1 7.10000- 1 1.85450+ 1 1.07000+ 0 1.86360+ 1 1.43000+ 01261 310205208
+ 1.87270+ 1 3.60000- 1 1.88180+ 1 0.00000+ 0 1.95090+ 1 0.00000+ 01261 310205209
+ 1.95270+ 1 1.00000+ 0 1.95450+ 1 1.43000+ 0 1.96180+ 1 1.10000+ 01261 310205210
+ 1.96720+ 1 9.00000- 1 1.97270+ 1 7.10000- 1 1.98180+ 1 7.10000- 11261 310205211
+ 1.99090+ 1 7.10000- 1 2.00000+ 1 4.00000- 1 2.00910+ 1 0.00000+ 01261 310205212
+ 2.02730+ 1 0.00000+ 0 2.03640+ 1 0.00000+ 0 2.04550+ 1-2.14000+ 01261 310205213
+ 2.05450+ 1-6.43000+ 0 2.05820+ 1-6.43000+ 0 2.06360+ 1-2.86000+ 01261 310205214
+ 2.06730+ 1 0.00000+ 0 2.07270+ 1 5.00000+ 0 2.07640+ 1 7.14000+ 01261 310205215
+ 2.08180+ 1 8.93000+ 0 2.09090+ 1 8.57000+ 0 2.10000+ 1 4.29000+ 01261 310205216
+ 2.10360+ 1 0.00000+ 0 2.10910+ 1-6.43000+ 0 2.11270+ 1-1.42900+ 11261 310205217
+ 2.11820+ 1-1.64300+ 1 2.12180+ 1-1.42900+ 1 2.12640+ 1-7.14000+ 01261 310205218
+ 2.13640+ 1-2.14000+ 0 2.14000+ 1-1.50000+ 0 2.14550+ 1-1.20000+ 01261 310205219
+ 2.15450+ 1-1.07000+ 0 2.17270+ 1-7.10000- 1 2.19090+ 1-3.60000- 11261 310205220
+ 2.20910+ 1 0.00000+ 0 2.22730+ 1 3.60000- 1 2.24550+ 1 1.14000+ 01261 310205221
+ 2.26360+ 1 1.43000+ 0 2.28180+ 1 2.86000+ 0 2.30000+ 1 1.43000+ 01261 310205222
+ 2.31150+ 1 3.64000+ 0 2.32300+ 1 2.73000+ 0 2.34600+ 1-1.36000+ 01261 310205223
+ 2.36900+ 1-3.18000+ 0 2.38740+ 1-2.73000+ 0 2.40110+ 1-2.27000+ 01261 310205224
+ 2.41030+ 1-2.00000+ 0 2.43790+ 1-1.82000+ 0 2.46090+ 1-1.18000+ 01261 310205225
+ 2.48390+ 1-2.70000- 1 2.50690+ 1-2.70000- 1 2.51610+ 1-4.50000- 11261 310205226
+ 2.53450+ 1-1.36000+ 0 2.55290+ 1-1.00000+ 0 2.55750+ 1-9.00000- 11261 310205227
+ 2.57130+ 1 0.00000+ 0 2.58510+ 1 1.82000+ 0 2.60340+ 1 2.00000+ 01261 310205228
+ 2.61260+ 1 1.50000+ 0 2.62180+ 1 1.09000+ 0 2.64480+ 1-8.00000- 11261 310205229
+ 2.65400+ 1-1.00000+ 0 2.70000+ 1-5.00000- 1 2.71380+ 1 0.00000+ 01261 310205230
+ 2.84250+ 1 0.00000+ 0 2.85170+ 1-5.50000- 1 2.87470+ 1 0.00000+ 01261 310205231
+ 2.89770+ 1 9.10000- 1 2.92070+ 1 9.00000- 1 2.94370+ 1 0.00000+ 01261 310205232
+ 2.96670+ 1 0.00000+ 0 2.98970+ 1 1.00000+ 0 3.00000+ 1 1.00000+ 01261 310205233
+ 3.02290+ 1 1.27000+ 0 3.04570+ 1 0.00000+ 0 3.09140+ 1 0.00000+ 01261 310205234
+ 3.09600+ 1 8.20000- 1 3.10970+ 1 1.50000+ 0 3.11430+ 1 1.40000+ 01261 310205235
+ 3.13710+ 1 1.00000+ 0 3.16000+ 1 1.50000+ 0 3.16910+ 1 7.30000- 11261 310205236
+ 3.18290+ 1-9.20000- 1 3.18740+ 1-1.80000+ 0 3.19660+ 1 0.00000+ 01261 310205237
+ 3.22860+ 1 0.00000+ 0 3.25140+ 1 9.10000- 1 3.27430+ 1 9.60000- 11261 310205238
+ 3.29710+ 1 2.40000+ 0 3.32000+ 1 1.10000+ 0 3.35200+ 1 0.00000+ 01261 310205239
+ 3.43430+ 1 0.00000+ 0 3.44340+ 1-1.09100+ 1 3.44800+ 1-1.09100+ 11261 310205240
+ 3.45260+ 1-9.09000+ 0 3.45710+ 1-6.36000+ 0 3.46170+ 1-5.45000+ 01261 310205241
+ 3.46630+ 1-3.64000+ 0 3.47090+ 1-1.82000+ 0 3.47540+ 1 0.00000+ 01261 310205242
+ 3.48460+ 1 1.82000+ 0 3.48910+ 1 3.64000+ 0 3.50290+ 1 3.64000+ 01261 310205243
+ 3.52570+ 1 0.00000+ 0 3.77710+ 1 0.00000+ 0 3.80000+ 1-5.00000- 21261 310205244
+ 3.82290+ 1-5.00000- 2 3.84570+ 1 0.00000+ 0 3.86860+ 1 3.60000- 11261 310205245
+ 3.89140+ 1 2.18000+ 0 3.91430+ 1 1.75000+ 0 3.92340+ 1 2.00000+ 01261 310205246
+ 3.92800+ 1 2.73000+ 0 3.93710+ 1 0.00000+ 0 3.99660+ 1 0.00000+ 01261 310205247
+ 4.01940+ 1 4.50000- 1 4.05140+ 1 0.00000+ 0 4.12000+ 1 0.00000+ 01261 310205248
+ 4.14290+ 1-4.50000- 1 4.15660+ 1-2.73000+ 0 4.16570+ 1-4.50000- 11261 310205249
+ 4.17940+ 1 0.00000+ 0 4.21140+ 1 0.00000+ 0 4.22970+ 1-1.00000+ 01261 310205250
+ 4.23890+ 1-2.00000+ 0 4.25710+ 1-1.50000+ 0 4.27090+ 1 0.00000+ 01261 310205251
+ 4.28000+ 1 2.00000+ 0 4.28910+ 1 1.82000+ 0 4.30290+ 1-1.64000+ 01261 310205252
+ 4.32110+ 1-1.82000+ 0 4.33030+ 1-2.00000+ 0 4.34860+ 1-4.00000+ 01261 310205253
+ 4.36690+ 1-2.20000+ 0 4.38060+ 1 0.00000+ 0 4.41710+ 1 0.00000+ 01261 310205254
+ 4.44000+ 1-1.82000+ 0 4.46290+ 1 0.00000+ 0 4.60000+ 1 0.00000+ 01261 310205255
+ 4.61810+ 1 7.10000- 1 4.63630+ 1 5.00000- 1 4.65440+ 1 1.29000+ 01261 310205256
+ 4.67260+ 1 0.00000+ 0 4.72700+ 1 0.00000+ 0 4.74510+ 1 0.00000+ 01261 310205257
+ 4.76330+ 1 9.00000- 1 4.77410+ 1 8.00000- 1 4.78870+ 1 7.10000- 11261 310205258
+ 4.79590+ 1 0.00000+ 0 4.80680+ 1-3.57000+ 0 4.81770+ 1-3.57000+ 01261 310205259
+ 4.82860+ 1 0.00000+ 0 4.83950+ 1 0.00000+ 0 4.85400+ 1 5.71000+ 01261 310205260
+ 4.86120+ 1 6.57000+ 0 4.86850+ 1 5.71000+ 0 4.88660+ 1-4.29000+ 01261 310205261
+ 4.89340+ 1-4.86000+ 0 4.90110+ 1-3.57000+ 0 4.91200+ 1-2.14000+ 01261 310205262
+ 4.91930+ 1-2.14000+ 0 4.93380+ 1-7.10000- 1 4.95560+ 1 3.57000+ 01261 310205263
+ 4.96640+ 1 2.86000+ 0 4.97730+ 1 2.29000+ 0 4.99550+ 1 1.29000+ 01261 310205264
+ 5.01720+ 1 0.00000+ 0 5.18050+ 1 0.00000+ 0 5.25310+ 1-7.10000- 11261 310205265
+ 5.27120+ 1 7.10000- 1 5.32560+ 1 7.10000- 1 5.34380+ 1 7.10000- 11261 310205266
+ 5.36190+ 1 0.00000+ 0 5.38000+ 1-7.10000- 1 5.40000+ 1-3.60000- 11261 310205267
+ 5.41810+ 1 0.00000+ 0 5.56330+ 1 0.00000+ 0 5.58140+ 1-7.10000- 11261 310205268
+ 5.59950+ 1-7.10000- 1 5.69020+ 1-7.10000- 1 5.71200+ 1 1.43000+ 01261 310205269
+ 5.72650+ 1 1.79000+ 0 5.76280+ 1 1.79000+ 0 5.78100+ 1 0.00000+ 01261 310205270
+ 5.79910+ 1-1.43000+ 0 5.81720+ 1 0.00000+ 0 5.83170+ 1 1.00000+ 01261 310205271
+ 5.83900+ 1 1.00000+ 0 5.84990+ 1 5.00000- 1 5.85710+ 1 0.00000+ 01261 310205272
+ 5.86800+ 1-3.00000- 1 5.88250+ 1-1.93000+ 0 5.90070+ 1-7.00000- 11261 310205273
+ 5.91160+ 1-2.00000- 1 5.94420+ 1 0.00000+ 0 7.01810+ 1 0.00000+ 01261 310205274
+ 7.03630+ 1-7.10000- 1 7.05440+ 1-1.43000+ 0 7.07260+ 1-2.32000+ 01261 310205275
+ 7.09070+ 1-2.14000+ 0 7.10880+ 1-8.90000- 1 7.12700+ 1 0.00000+ 01261 310205276
+ 7.18140+ 1 0.00000+ 0 7.19230+ 1 1.40000- 1 7.19950+ 1 3.60000- 11261 310205277
+ 7.20680+ 1 5.40000- 1 7.21040+ 1 5.70000- 1 7.21770+ 1 7.10000- 11261 310205278
+ 7.23220+ 1 8.90000- 1 7.25030+ 1 0.00000+ 0 7.26850+ 1-1.32000+ 01261 310205279
+ 7.27210+ 1-1.40000+ 0 7.28300+ 1-1.40000+ 0 7.29020+ 1-3.60000- 11261 310205280
+ 7.29750+ 1-3.00000- 1 7.30840+ 1-2.10000- 1 7.32650+ 1 0.00000+ 01261 310205281
+ 7.39910+ 1 0.00000+ 0 7.44260+ 1 4.30000- 1 7.45710+ 1 3.60000- 11261 310205282
+ 7.47890+ 1 7.00000- 2 7.48250+ 1 0.00000+ 0 7.50790+ 1 0.00000+ 01261 310205283
+ 7.51880+ 1-3.60000- 1 7.54420+ 1-7.10000- 1 7.55870+ 1-7.10000- 11261 310205284
+ 7.58050+ 1 0.00000+ 0 7.60230+ 1 1.00000+ 0 7.61680+ 1 1.10000+ 01261 310205285
+ 7.67480+ 1 0.00000+ 0 7.83000+ 1 0.00000+ 0 7.83630+ 1 7.10000- 11261 310205286
+ 7.85440+ 1 8.00000- 1 7.87260+ 1 8.00000- 1 7.89070+ 1 7.00000- 11261 310205287
+ 7.90880+ 1 3.00000- 1 7.92700+ 1 2.00000- 1 7.94510+ 1 0.00000+ 01261 310205288
+ 8.04670+ 1 0.00000+ 0 8.07570+ 1 1.00000+ 0 8.08660+ 1 1.00000+ 01261 310205289
+ 8.09750+ 1 5.00000- 1 8.10840+ 1 2.00000- 1 8.13380+ 1 0.00000+ 01261 310205290
+ 8.16280+ 1 0.00000+ 0 8.18100+ 1 5.00000- 1 8.20000+ 1 1.00000+ 01261 310205291
+ 8.20000+ 1 0.00000+ 0 1.00000+ 3 0.00000+ 0 1.30553+ 4 0.00000+ 01261 310205292
+ 2.50000+ 4 0.00000+ 0 2.50000+ 4 7.92009- 1 2.53000+ 4 7.86514- 11261 310205293
+ 2.57000+ 4 7.79300- 1 2.62000+ 4 7.71864- 1 2.65000+ 4 7.68725- 11261 310205294
+ 2.72000+ 4 7.63754- 1 2.75000+ 4 7.64011- 1 2.83000+ 4 7.75912- 11261 310205295
+ 2.88000+ 4 7.94745- 1 2.93000+ 4 7.82171- 1 2.98000+ 4 7.49379- 11261 310205296
+ 3.00000+ 4 7.36440- 1 3.11000+ 4 7.48634- 1 3.13000+ 4 7.56888- 11261 310205297
+ 3.18000+ 4 7.77189- 1 3.21000+ 4 7.79284- 1 3.25000+ 4 7.55919- 11261 310205298
+ 3.28000+ 4 7.38608- 1 3.42000+ 4 7.04878- 1 3.45000+ 4 6.92953- 11261 310205299
+ 3.50000+ 4 6.73312- 1 3.62000+ 4 6.95297- 1 3.65000+ 4 6.74762- 11261 310205300
+ 3.70000+ 4 6.41008- 1 3.79000+ 4 6.75961- 1 3.87000+ 4 6.54647- 11261 310205301
+ 3.91000+ 4 6.44389- 1 3.94000+ 4 6.45360- 1 4.00000+ 4 6.47241- 11261 310205302
+ 4.04000+ 4 6.65404- 1 4.10000+ 4 6.92141- 1 4.15000+ 4 6.65712- 11261 310205303
+ 4.20000+ 4 6.39734- 1 4.30000+ 4 6.46421- 1 4.36000+ 4 6.40118- 11261 310205304
+ 4.38000+ 4 6.38043- 1 4.43000+ 4 6.29771- 1 4.48000+ 4 6.19551- 11261 310205305
+ 4.50000+ 4 6.15506- 1 4.52000+ 4 6.10729- 1 4.54000+ 4 6.05984- 11261 310205306
+ 4.60000+ 4 5.91924- 1 4.62000+ 4 5.96749- 1 4.65000+ 4 6.03932- 11261 310205307
+ 4.68000+ 4 6.11046- 1 4.73000+ 4 6.03631- 1 4.76000+ 4 5.91626- 11261 310205308
+ 4.82000+ 4 5.79935- 1 4.84000+ 4 5.84051- 1 4.88000+ 4 5.92212- 11261 310205309
+ 4.90000+ 4 5.96255- 1 5.00000+ 4 5.66865- 1 5.02000+ 4 5.69665- 11261 310205310
+ 5.06000+ 4 5.75221- 1 5.09000+ 4 5.79348- 1 5.12000+ 4 5.80185- 11261 310205311
+ 5.15000+ 4 5.79393- 1 5.22000+ 4 5.86175- 1 5.25000+ 4 5.98218- 11261 310205312
+ 5.35000+ 4 6.15111- 1 5.39000+ 4 6.12771- 1 5.42000+ 4 6.11682- 11261 310205313
+ 5.46000+ 4 6.10671- 1 5.50000+ 4 6.09674- 1 5.53000+ 4 6.07957- 11261 310205314
+ 5.57000+ 4 6.05691- 1 5.61000+ 4 6.02147- 1 5.67000+ 4 5.91060- 11261 310205315
+ 5.71000+ 4 5.86333- 1 5.76000+ 4 5.90055- 1 5.79000+ 4 5.92266- 11261 310205316
+ 5.83000+ 4 5.85581- 1 5.87000+ 4 5.75773- 1 5.91000+ 4 5.66991- 11261 310205317
+ 5.92000+ 4 5.65502- 1 5.98000+ 4 5.56658- 1 6.00000+ 4 5.53737- 11261 310205318
+ 6.03000+ 4 5.62747- 1 6.12000+ 4 5.78677- 1 6.15000+ 4 5.71426- 11261 310205319
+ 6.20000+ 4 5.59450- 1 6.25000+ 4 5.61690- 1 6.29000+ 4 5.63463- 11261 310205320
+ 6.32000+ 4 5.65436- 1 6.42000+ 4 5.62286- 1 6.47000+ 4 5.39435- 11261 310205321
+ 6.50000+ 4 5.25842- 1 6.51000+ 4 5.28508- 1 6.61000+ 4 5.50818- 11261 310205322
+ 6.65000+ 4 5.45118- 1 6.70000+ 4 5.38058- 1 6.74000+ 4 5.44864- 11261 310205323
+ 6.80000+ 4 5.54952- 1 6.83000+ 4 5.47883- 1 6.89000+ 4 5.33865- 11261 310205324
+ 6.94000+ 4 5.28379- 1 7.00000+ 4 5.23668- 1 7.03000+ 4 5.23154- 11261 310205325
+ 7.09000+ 4 5.22123- 1 7.20000+ 4 5.20214- 1 7.25000+ 4 5.33130- 11261 310205326
+ 7.31000+ 4 5.44495- 1 7.37000+ 4 5.36066- 1 7.41000+ 4 5.33229- 11261 310205327
+ 7.48000+ 4 5.42555- 1 7.50000+ 4 5.45191- 1 7.53000+ 4 5.40971- 11261 310205328
+ 7.58000+ 4 5.33990- 1 7.65000+ 4 5.09118- 1 7.70000+ 4 4.87231- 11261 310205329
+ 7.76000+ 4 4.97023- 1 7.84000+ 4 5.05159- 1 7.89000+ 4 5.07232- 11261 310205330
+ 7.94000+ 4 4.87755- 1 8.00000+ 4 4.58202- 1 8.07000+ 4 4.82011- 11261 310205331
+ 8.20000+ 4 4.96224- 1 8.27000+ 4 4.88763- 1 8.33000+ 4 4.75324- 11261 310205332
+ 8.40000+ 4 4.51588- 1 8.47000+ 4 4.77125- 1 8.50000+ 4 4.87969- 11261 310205333
+ 8.53000+ 4 4.75145- 1 8.61000+ 4 4.43593- 1 8.68000+ 4 4.30330- 11261 310205334
+ 8.75000+ 4 4.41843- 1 8.83000+ 4 4.51319- 1 8.90000+ 4 4.38233- 11261 310205335
+ 9.00000+ 4 4.59898- 1 9.03000+ 4 4.59493- 1 9.12000+ 4 4.46810- 11261 310205336
+ 9.28000+ 4 4.26727- 1 9.36000+ 4 4.39509- 1 9.44000+ 4 4.39759- 11261 310205337
+ 9.50000+ 4 4.34034- 1 9.52000+ 4 4.37816- 1 9.60000+ 4 4.52834- 11261 310205338
+ 9.68000+ 4 4.72371- 1 9.77000+ 4 4.50774- 1 9.85000+ 4 4.48911- 11261 310205339
+ 9.93000+ 4 4.55388- 1 9.99000+ 4 4.49738- 1 1.00000+ 5 4.35875- 11261 310205340
+ 1.03000+ 5 4.29396- 1 1.20000+ 5 4.01937- 1 1.35000+ 5 3.78281- 11261 310205341
+ 1.40000+ 5 3.70215- 1 1.50000+ 5 3.55752- 1 1.60000+ 5 3.43738- 11261 310205342
+ 1.73000+ 5 3.27329- 1 1.80000+ 5 3.20285- 1 2.00000+ 5 3.01273- 11261 310205343
+ 2.07000+ 5 2.95216- 1 2.15000+ 5 2.90723- 1 2.20000+ 5 2.88242- 11261 310205344
+ 2.25000+ 5 2.85838- 1 2.35000+ 5 2.81479- 1 2.40000+ 5 2.79217- 11261 310205345
+ 2.50000+ 5 2.74575- 1 2.60000+ 5 2.68732- 1 2.70000+ 5 2.62233- 11261 310205346
+ 2.80000+ 5 2.55228- 1 3.00000+ 5 2.40640- 1 3.20000+ 5 2.24878- 11261 310205347
+ 3.25000+ 5 2.21889- 1 3.40000+ 5 2.15443- 1 3.50000+ 5 2.12292- 11261 310205348
+ 3.60000+ 5 2.09430- 1 3.80000+ 5 2.05025- 1 4.00000+ 5 2.00689- 11261 310205349
+ 4.20000+ 5 1.96067- 1 4.40000+ 5 1.91082- 1 4.50000+ 5 1.88427- 11261 310205350
+ 4.60000+ 5 1.85673- 1 4.70000+ 5 1.83062- 1 4.80000+ 5 1.80503- 11261 310205351
+ 5.00000+ 5 1.75755- 1 5.20000+ 5 1.71189- 1 5.40000+ 5 1.67066- 11261 310205352
+ 5.50000+ 5 1.65294- 1 5.60000+ 5 1.63502- 1 5.70000+ 5 1.61730- 11261 310205353
+ 5.80000+ 5 1.60006- 1 6.00000+ 5 1.56740- 1 6.20000+ 5 1.53228- 11261 310205354
+ 6.40000+ 5 1.49828- 1 6.50000+ 5 1.48226- 1 6.60000+ 5 1.46701- 11261 310205355
+ 6.70000+ 5 1.45130- 1 6.80000+ 5 1.43618- 1 7.00000+ 5 1.40740- 11261 310205356
+ 7.20000+ 5 1.37958- 1 7.30000+ 5 1.36737- 1 7.40000+ 5 1.35645- 11261 310205357
+ 7.50000+ 5 1.34622- 1 7.60000+ 5 1.33682- 1 7.70000+ 5 1.32852- 11261 310205358
+ 7.75000+ 5 1.32423- 1 7.80000+ 5 1.31956- 1 8.00000+ 5 1.30295- 11261 310205359
+ 8.20000+ 5 1.28934- 1 8.40000+ 5 1.27404- 1 8.50000+ 5 1.26826- 11261 310205360
+ 8.60000+ 5 1.26649- 1 8.80000+ 5 1.24426- 1 9.00000+ 5 1.23251- 11261 310205361
+ 9.20000+ 5 1.22066- 1 9.40000+ 5 1.20932- 1 9.50000+ 5 1.20375- 11261 310205362
+ 9.60000+ 5 1.19807- 1 9.70000+ 5 1.19307- 1 9.80000+ 5 1.18761- 11261 310205363
+ 1.00000+ 6 1.17692- 1 1.05000+ 6 1.13038- 1 1.10000+ 6 1.07945- 11261 310205364
+ 1.15000+ 6 1.02681- 1 1.20000+ 6 9.74346- 2 1.25000+ 6 9.30743- 21261 310205365
+ 1.29500+ 6 8.92431- 2 1.30000+ 6 8.88315- 2 1.35000+ 6 8.50199- 21261 310205366
+ 1.40000+ 6 8.13884- 2 1.45000+ 6 7.72811- 2 1.49500+ 6 7.38173- 21261 310205367
+ 1.50000+ 6 7.34922- 2 1.60000+ 6 6.84521- 2 1.70000+ 6 6.35962- 21261 310205368
+ 1.80000+ 6 5.99614- 2 1.90000+ 6 5.64237- 2 2.00000+ 6 5.31597- 21261 310205369
+ 2.10000+ 6 5.08825- 2 2.20000+ 6 4.87529- 2 2.30000+ 6 4.66030- 21261 310205370
+ 2.40000+ 6 4.45641- 2 2.50000+ 6 4.24418- 2 2.60000+ 6 4.08107- 21261 310205371
+ 2.70000+ 6 3.92021- 2 2.80000+ 6 3.78246- 2 2.90000+ 6 3.63661- 21261 310205372
+ 3.00000+ 6 3.49586- 2 3.10000+ 6 3.39836- 2 3.20000+ 6 3.27412- 21261 310205373
+ 3.30000+ 6 3.15458- 2 3.40000+ 6 3.03811- 2 3.50000+ 6 2.92542- 21261 310205374
+ 3.60000+ 6 2.84221- 2 3.70000+ 6 2.76077- 2 3.80000+ 6 2.67958- 21261 310205375
+ 3.90000+ 6 2.61128- 2 4.00000+ 6 2.53343- 2 4.10000+ 6 2.46636- 21261 310205376
+ 4.20000+ 6 2.40443- 2 4.30000+ 6 2.33738- 2 4.40000+ 6 2.27758- 21261 310205377
+ 4.50000+ 6 2.21516- 2 4.60000+ 6 2.14984- 2 4.70000+ 6 2.09703- 21261 310205378
+ 4.80000+ 6 2.04356- 2 4.90000+ 6 1.99419- 2 5.00000+ 6 1.94934- 21261 310205379
+ 5.10000+ 6 1.89703- 2 5.15000+ 6 1.87030- 2 5.20000+ 6 1.84286- 21261 310205380
+ 5.25000+ 6 1.81260- 2 5.30000+ 6 1.78222- 2 5.32858+ 6 1.76463- 21261 310205381
+ 5.35000+ 6 1.75162- 2 5.40000+ 6 1.72094- 2 5.45000+ 6 1.68937- 21261 310205382
+ 5.50000+ 6 1.65603- 2 5.55000+ 6 1.62750- 2 5.60000+ 6 1.60456- 21261 310205383
+ 5.65000+ 6 1.58918- 2 5.70000+ 6 1.58264- 2 5.75000+ 6 1.57802- 21261 310205384
+ 5.80000+ 6 1.57424- 2 5.90000+ 6 1.58721- 2 6.00000+ 6 1.58479- 21261 310205385
+ 6.10000+ 6 1.57562- 2 6.20000+ 6 1.56040- 2 6.30000+ 6 1.53291- 21261 310205386
+ 6.40000+ 6 1.49279- 2 6.50000+ 6 1.45104- 2 6.60000+ 6 1.39730- 21261 310205387
+ 6.70000+ 6 1.35353- 2 6.80000+ 6 1.30319- 2 6.90000+ 6 1.26169- 21261 310205388
+ 7.00000+ 6 1.22850- 2 7.10000+ 6 1.20455- 2 7.20000+ 6 1.17012- 21261 310205389
+ 7.30000+ 6 1.15289- 2 7.40000+ 6 1.12645- 2 7.50000+ 6 1.09984- 21261 310205390
+ 7.60000+ 6 1.06726- 2 7.65000+ 6 1.05012- 2 7.70000+ 6 1.02751- 21261 310205391
+ 7.80000+ 6 9.92587- 3 7.90000+ 6 9.56008- 3 8.00000+ 6 9.24407- 31261 310205392
+ 8.20000+ 6 8.70084- 3 8.40000+ 6 8.19263- 3 8.50000+ 6 7.95184- 31261 310205393
+ 8.60000+ 6 7.70546- 3 8.80000+ 6 7.16600- 3 9.00000+ 6 6.63498- 31261 310205394
+ 9.20000+ 6 6.21943- 3 9.40000+ 6 5.82083- 3 9.50000+ 6 5.62788- 31261 310205395
+ 9.60000+ 6 5.43066- 3 9.80000+ 6 5.04908- 3 1.00000+ 7 4.67190- 31261 310205396
+ 1.05000+ 7 4.14553- 3 1.10000+ 7 3.60136- 3 1.15000+ 7 3.21908- 31261 310205397
+ 1.19000+ 7 2.98751- 3 1.20000+ 7 2.99337- 3 1.21988+ 7 2.91010- 31261 310205398
+ 1.25000+ 7 2.79074- 3 1.30000+ 7 2.68805- 3 1.35000+ 7 2.55988- 31261 310205399
+ 1.40000+ 7 2.44682- 3 1.45000+ 7 2.28735- 3 1.50000+ 7 2.13745- 31261 310205400
+ 1.55000+ 7 1.97568- 3 1.60000+ 7 1.83083- 3 1.65000+ 7 1.69218- 31261 310205401
+ 1.70000+ 7 1.57538- 3 1.75000+ 7 1.46415- 3 1.80000+ 7 1.39152- 31261 310205402
+ 1.85000+ 7 1.31040- 3 1.90000+ 7 1.24836- 3 1.95000+ 7 1.23530- 31261 310205403
+ 2.00000+ 7 1.23000- 3                                            1261 310205404
+                                                                  1261 300005405
+ 9.22350+ 4 2.33025+ 2          0          0          0          01261 325105406
+ 0.00000+ 0 0.00000+ 0          0          0          1         211261 325105407
+         21          2                                            1261 325105408
+ 1.00000- 5 2.86136- 3 1.00000+ 4 2.86136- 3 2.00000+ 5 2.36693- 11261 325105409
+ 5.00000+ 5 3.36518- 1 8.00000+ 5 3.99829- 1 1.00000+ 6 4.37698- 11261 325105410
+ 1.50000+ 6 5.33269- 1 2.00000+ 6 6.19592- 1 3.00000+ 6 7.39575- 11261 325105411
+ 4.00000+ 6 7.88121- 1 4.50000+ 6 7.98552- 1 5.00000+ 6 8.09938- 11261 325105412
+ 5.50000+ 6 8.17829- 1 6.00000+ 6 8.24238- 1 7.00000+ 6 8.24863- 11261 325105413
+ 8.00000+ 6 8.29326- 1 1.00000+ 7 8.48295- 1 1.20000+ 7 8.75098- 11261 325105414
+ 1.40000+ 7 8.89762- 1 1.70000+ 7 9.14455- 1 2.00000+ 7 9.53335- 11261 325105415
+                                                                  1261 300005416
+ 9.22350+ 4 2.33025+ 2          0          0          0          01261 325205417
+ 0.00000+ 0 0.00000+ 0          0          0          1         211261 325205418
+         21          2                                            1261 325205419
+ 1.00000- 5 8.55828- 3 1.00000+ 4 8.55828- 3 2.00000+ 5 6.55141- 31261 325205420
+ 5.00000+ 5 5.69469- 3 8.00000+ 5 5.15137- 3 1.00000+ 6 4.82647- 31261 325205421
+ 1.50000+ 6 4.00695- 3 2.00000+ 6 3.26675- 3 3.00000+ 6 2.23793- 31261 325205422
+ 4.00000+ 6 1.82240- 3 4.50000+ 6 1.73454- 3 5.00000+ 6 1.63812- 31261 325205423
+ 5.50000+ 6 1.57140- 3 6.00000+ 6 1.51758- 3 7.00000+ 6 1.51521- 31261 325205424
+ 8.00000+ 6 1.47851- 3 1.00000+ 7 1.32241- 3 1.20000+ 7 1.10144- 31261 325205425
+ 1.40000+ 7 9.85283- 4 1.70000+ 7 7.90064- 4 2.00000+ 7 4.70596- 41261 325205426
+                                                                  1261 300005427
+ 9.22350+ 4 2.33025+ 2          0          0          0          01261 325305428
+ 0.00000+ 0 0.00000+ 0          0          0          1         211261 325305429
+         21          2                                            1261 325305430
+ 1.00000- 5 5.71369- 3 1.00000+ 4 5.71369- 3 2.00000+ 5 5.06670- 31261 325305431
+ 5.00000+ 5 4.81207- 3 8.00000+ 5 4.73367- 3 1.00000+ 6 4.69951- 31261 325305432
+ 1.50000+ 6 4.56330- 3 2.00000+ 6 4.32636- 3 3.00000+ 6 3.97100- 31261 325305433
+ 4.00000+ 6 3.78607- 3 4.50000+ 6 3.89847- 3 5.00000+ 6 3.87509- 31261 325305434
+ 5.50000+ 6 3.86048- 3 6.00000+ 6 3.82866- 3 7.00000+ 6 3.98243- 31261 325305435
+ 8.00000+ 6 3.99039- 3 1.00000+ 7 3.74815- 3 1.20000+ 7 3.24726- 31261 325305436
+ 1.40000+ 7 3.11606- 3 1.70000+ 7 2.90687- 3 2.00000+ 7 2.07377- 31261 325305437
+                                                                  1261 300005438
+                                                                  1261 000005439
+ 9.22350+ 4 2.33025+ 2          1          1          0          01261 400205440
+ 0.00000+ 0 2.33025+ 2          0          2        361         181261 400205441
+ 1.00000+ 0 2.86092- 3 3.67731- 6-9.43608-11 0.00000+ 0 0.00000+ 01261 400205442
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205443
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205444
+ 0.00000+ 0 0.00000+ 0 9.99989- 1 5.14963- 3 1.25972- 5 1.47746- 81261 400205445
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205446
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205447
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0-2.86088- 3 9.99971- 1 7.35655- 31261 400205448
+ 2.62432- 5 5.43588- 8-1.63336- 8 1.46884-10 0.00000+ 0 0.00000+ 01261 400205449
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205450
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 1.10494- 5-5.14951- 31261 400205451
+ 9.99943- 1 9.53614- 3 4.45541- 5 1.28537- 7-5.71550- 8-2.66552-101261 400205452
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205453
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0-4.51593- 81261 400205454
+ 2.52555- 5-7.35631- 3 9.99907- 1 1.17032- 2 6.74684- 5 2.46550- 71261 400205455
+-9.18455- 8 3.71179-10 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205456
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205457
+ 1.88412-10-1.20423- 7 4.38457- 5-9.53574- 3 9.99861- 1 1.38635- 21261 400205458
+ 9.50114- 5 4.20153- 7-1.54742- 7-1.66125- 9 0.00000+ 0 0.00000+ 01261 400205459
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205460
+ 0.00000+ 0-7.93849-13 5.63763-10-2.39475- 7 6.69631- 5-1.17026- 21261 400205461
+ 9.99805- 1 1.60196- 2 1.27135- 4 6.55126- 7-1.64350- 7-3.31343- 91261 400205462
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205463
+ 0.00000+ 0 0.00000+ 0 3.36304-15-2.60541-12 1.24507- 9-4.12627- 71261 400205464
+ 9.46477- 5-1.38627- 2 9.99741- 1 1.81729- 2 1.63929- 4 9.64782- 71261 400205465
+-1.39007- 7-2.30450- 9 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205466
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0-1.42946-17 1.19263-14-6.26917-121261 400205467
+ 2.36100- 9-6.49876- 7 1.26915- 4-1.60185- 2 9.99667- 1 2.03242- 21261 400205468
+ 2.05367- 4 1.36121- 6-1.62099- 7-3.20578- 9 0.00000+ 0 0.00000+ 01261 400205469
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 6.08927-20-3.14878-171261 400205470
+ 3.08601-14-1.28734-11 4.06028- 9-9.61141- 7 1.63772- 4-1.81715- 21261 400205471
+ 9.99584- 1 2.24740- 2 2.51353- 4 1.84939- 6-1.71292- 7-4.11095- 91261 400205472
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205473
+ 9.73704-20-9.18673-17 6.78452-14-2.38435-11 6.51261- 9-1.35632- 61261 400205474
+ 2.05221- 4-2.03225- 2 9.99492- 1 2.46226- 2 3.01956- 4 2.44129- 61261 400205475
+-1.77848- 7-6.15732- 9 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205476
+ 0.00000+ 0 0.00000+ 0 3.06158-19-2.02548-16 1.33993-13-4.09905-111261 400205477
+ 9.90876- 9-1.84528- 6 2.51266- 4-2.24718- 2 9.99391- 1 2.67701- 21261 400205478
+ 3.57161- 4 3.14570- 6-1.10771- 7-2.67829- 9 0.00000+ 0 0.00000+ 01261 400205479
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 6.98509-19-5.82878-161261 400205480
+ 2.44738-13-6.65568-11 1.44606- 8-2.43791- 6 3.01905- 4-2.46200- 21261 400205481
+ 9.99281- 1 2.89167- 2 4.17043- 4 3.97917- 6-1.13041- 7-8.65520- 91261 400205482
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205483
+ 1.79937-18-1.25728-15 4.20810-13-1.03262-10 2.04013- 8-3.14407- 61261 400205484
+ 3.57139- 4-2.67670- 2 9.99161- 1 3.10625- 2 4.81446- 4 4.93607- 61261 400205485
+ 2.51865- 8-1.46454- 9 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205486
+ 0.00000+ 0 0.00000+ 0 3.70754-18-2.39212-15 6.89312-13-1.54348-101261 400205487
+ 2.79849- 8-3.97363- 6 4.16968- 4-2.89131- 2 9.99032- 1 3.32076- 21261 400205488
+ 5.50595- 4 6.04947- 6-2.18919- 8 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205489
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0-1.29728-20 6.85286-18-4.21907-151261 400205490
+ 1.08489-12-2.23626-10 3.74868- 8-4.93644- 6 4.81391- 4-3.10584- 21261 400205491
+ 9.98894- 1 3.53519- 2 6.24137- 4 7.30598- 6 0.00000+ 0 0.00000+ 01261 400205492
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0-2.40276-201261 400205493
+ 1.18255-17-7.05278-15 1.65099-12-3.15518-10 4.92034- 8-6.04237- 61261 400205494
+ 5.50408- 4-3.32028- 2 9.98747- 1 3.74955- 2 7.02335- 4 0.00000+ 01261 400205495
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205496
+ 0.00000+ 0-4.14653-20 1.94174-17-1.13112-14 2.44124-12-4.35107-101261 400205497
+ 6.34525- 8-7.30127- 6 6.24016- 4-3.53465- 2 9.98590- 1 3.96384- 21261 400205498
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205499
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0-6.80077-20 3.06691-17-1.75392-141261 400205500
+ 3.52090-12-5.88180-10 8.05727- 8-8.72297- 6 7.02215- 4-3.74894- 21261 400205501
+ 9.98425- 1                                                       1261 400205502
+ 0.00000+ 0 0.00000+ 0          0          0          1         211261 400205503
+         21          2                                            1261 400205504
+ 0.00000+ 0 1.00000- 5          0          0          1          01261 400205505
+ 0.00000+ 0                                                       1261 400205506
+ 0.00000+ 0 1.00000+ 4          0          0          1          01261 400205507
+ 0.00000+ 0                                                       1261 400205508
+ 0.00000+ 0 2.00000+ 5          0          0          6          01261 400205509
+ 2.34000- 1 6.07000- 2 5.50000- 3 3.37000- 3 3.32000- 3-7.70000- 41261 400205510
+ 0.00000+ 0 5.00000+ 5          0          0          6          01261 400205511
+ 3.34000- 1 1.24000- 1 4.11000- 2 1.61000- 2 4.20000- 3-3.85000- 31261 400205512
+ 0.00000+ 0 8.00000+ 5          0          0         10          01261 400205513
+ 3.97500- 1 1.91100- 1 1.25000- 1 4.47000- 2 6.10000- 3-1.13100- 21261 400205514
+-5.11000- 3 3.90000- 4-9.80000- 4-9.00000- 5                      1261 400205515
+ 0.00000+ 0 1.00000+ 6          0          0         10          01261 400205516
+ 4.35500- 1 2.35400- 1 1.78600- 1 7.51100- 2 1.12000- 2-1.36200- 21261 400205517
+-9.00000- 3 2.21000- 3-4.16000- 3-2.40000- 4                      1261 400205518
+ 0.00000+ 0 1.50000+ 6          0          0         10          01261 400205519
+ 5.31300- 1 3.42800- 1 2.74200- 1 1.76700- 1 6.25400- 2 2.03300- 21261 400205520
+ 4.31000- 3 6.93000- 3 3.40000- 4-3.10000- 4                      1261 400205521
+ 0.00000+ 0 2.00000+ 6          0          0         10          01261 400205522
+ 6.17800- 1 4.32500- 1 3.67500- 1 2.70400- 1 1.25000- 1 5.23000- 21261 400205523
+ 1.91000- 2 1.09000- 2 2.21000- 3-3.70000- 4                      1261 400205524
+ 0.00000+ 0 3.00000+ 6          0          0         10          01261 400205525
+ 7.38100- 1 5.78400- 1 4.72000- 1 3.43900- 1 2.10500- 1 1.07900- 11261 400205526
+ 4.19000- 2 1.90000- 2 2.49000- 3 1.40000- 4                      1261 400205527
+ 0.00000+ 0 4.00000+ 6          0          0         10          01261 400205528
+ 7.86700- 1 6.42800- 1 5.32200- 1 4.05100- 1 2.86900- 1 1.67500- 11261 400205529
+ 7.52000- 2 3.77000- 2 1.09000- 2 7.50000- 4                      1261 400205530
+ 0.00000+ 0 4.50000+ 6          0          0         12          01261 400205531
+ 7.97000- 1 6.68000- 1 5.58000- 1 4.35100- 1 3.22200- 1 1.99800- 11261 400205532
+ 1.08500- 1 6.13000- 2 3.00000- 2 1.87000- 2 1.25000- 2 2.70000- 31261 400205533
+ 0.00000+ 0 5.00000+ 6          0          0         12          01261 400205534
+ 8.08300- 1 6.84900- 1 5.79200- 1 4.60900- 1 3.50400- 1 2.27000- 11261 400205535
+ 1.36700- 1 8.44000- 2 4.74000- 2 3.11000- 2 1.57000- 2 3.80000- 31261 400205536
+ 0.00000+ 0 5.50000+ 6          0          0         14          01261 400205537
+ 8.16100- 1 6.96800- 1 5.93100- 1 4.82100- 1 3.69800- 1 2.50500- 11261 400205538
+ 1.60800- 1 1.04100- 1 6.33000- 2 3.57000- 2 1.95000- 2 6.40000- 31261 400205539
+ 5.30000- 4 1.40000- 4                                            1261 400205540
+ 0.00000+ 0 6.00000+ 6          0          0         16          01261 400205541
+ 8.22400- 1 7.05200- 1 6.00200- 1 4.98900- 1 3.85000- 1 2.72400- 11261 400205542
+ 1.86000- 1 1.22000- 1 7.88000- 2 4.37000- 2 2.48000- 2 1.07000- 21261 400205543
+ 1.21000- 3 3.10000- 4 4.00000- 5 1.00000- 5                      1261 400205544
+ 0.00000+ 0 7.00000+ 6          0          0         16          01261 400205545
+ 8.22700- 1 7.15200- 1 6.06100- 1 5.21200- 1 4.12000- 1 3.09400- 11261 400205546
+ 2.29500- 1 1.62600- 1 1.09400- 1 6.22800- 2 4.33000- 2 2.42800- 21261 400205547
+ 6.19000- 3 1.93000- 3 2.13000- 3 8.80000- 4                      1261 400205548
+ 0.00000+ 0 8.00000+ 6          0          0         16          01261 400205549
+ 8.27000- 1 7.22600- 1 6.15800- 1 5.38800- 1 4.32100- 1 3.39300- 11261 400205550
+ 2.57600- 1 1.91800- 1 1.33400- 1 8.06100- 2 5.43900- 2 3.02000- 21261 400205551
+ 9.37000- 3-1.70000- 4-4.80000- 4 3.00000- 5                      1261 400205552
+ 0.00000+ 0 1.00000+ 7          0          0         16          01261 400205553
+ 8.45300- 1 7.38800- 1 6.34900- 1 5.64900- 1 4.67500- 1 3.91200- 11261 400205554
+ 3.11800- 1 2.57400- 1 1.93600- 1 1.38600- 1 9.46900- 2 6.02000- 21261 400205555
+ 2.78500- 2 9.38000- 3 1.84000- 3-2.70000- 4                      1261 400205556
+ 0.00000+ 0 1.20000+ 7          0          0         18          01261 400205557
+ 8.71100- 1 7.59900- 1 6.61900- 1 5.90300- 1 5.09900- 1 4.40100- 11261 400205558
+ 3.70000- 1 3.17000- 1 2.55800- 1 2.00000- 1 1.46700- 1 9.98000- 21261 400205559
+ 5.86000- 2 2.99000- 2 1.37400- 2 4.37000- 3 1.26000- 3 1.10000- 41261 400205560
+ 0.00000+ 0 1.40000+ 7          0          0         18          01261 400205561
+ 8.84700- 1 7.80000- 1 6.89300- 1 6.11300- 1 5.42400- 1 4.78600- 11261 400205562
+ 4.19500- 1 3.63500- 1 3.08400- 1 2.53700- 1 1.97500- 1 1.42100- 11261 400205563
+ 9.40000- 2 5.65000- 2 2.97400- 2 1.25200- 2 3.31000- 3 2.70000- 41261 400205564
+ 0.00000+ 0 1.70000+ 7          0          0         20          01261 400205565
+ 9.07600- 1 8.16900- 1 7.29500- 1 6.56300- 1 5.87000- 1 5.23900- 11261 400205566
+ 4.65400- 1 4.10200- 1 3.59100- 1 3.14000- 1 2.63600- 1 2.07600- 11261 400205567
+ 1.54400- 1 1.04100- 1 6.27200- 2 3.35100- 2 1.48700- 2 6.24000- 31261 400205568
+ 1.87000- 3 6.10000- 4                                            1261 400205569
+ 0.00000+ 0 2.00000+ 7          0          0         20          01261 400205570
+ 9.45000- 1 8.75000- 1 7.96800- 1 7.18400- 1 6.41100- 1 5.71300- 11261 400205571
+ 5.07600- 1 4.51000- 1 3.97500- 1 3.46700- 1 2.95800- 1 2.44200- 11261 400205572
+ 1.90900- 1 1.38200- 1 9.26600- 2 5.78700- 2 3.30500- 2 1.63200- 21261 400205573
+ 7.27000- 3 2.54000- 3                                            1261 400205574
+                                                                  1261 400005575
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 401605576
+ 0.00000+ 0 2.33025+ 2          0          1          0          01261 401605577
+ 0.00000+ 0 0.00000+ 0          0          0          1          21261 401605578
+          2          2                                            1261 401605579
+ 0.00000+ 0 5.32858+ 6          0          0          1          21261 401605580
+          2          2                                            1261 401605581
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 401605582
+ 0.00000+ 0 2.00000+ 7          0          0          1          21261 401605583
+          2          2                                            1261 401605584
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 401605585
+                                                                  1261 400005586
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 401705587
+ 0.00000+ 0 2.33025+ 2          0          1          0          01261 401705588
+ 0.00000+ 0 0.00000+ 0          0          0          1          21261 401705589
+          2          2                                            1261 401705590
+ 0.00000+ 0 1.21988+ 7          0          0          1          21261 401705591
+          2          2                                            1261 401705592
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 401705593
+ 0.00000+ 0 2.00000+ 7          0          0          1          21261 401705594
+          2          2                                            1261 401705595
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 401705596
+                                                                  1261 400005597
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 401805598
+ 0.00000+ 0 2.33025+ 2          0          1          0          01261 401805599
+ 0.00000+ 0 0.00000+ 0          0          0          1          21261 401805600
+          2          2                                            1261 401805601
+ 0.00000+ 0 1.00000- 5          0          0          1          21261 401805602
+          2          2                                            1261 401805603
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 401805604
+ 0.00000+ 0 2.00000+ 7          0          0          1          21261 401805605
+          2          2                                            1261 401805606
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 401805607
+                                                                  1261 400005608
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 401905609
+ 0.00000+ 0 2.33025+ 2          0          1          0          01261 401905610
+ 0.00000+ 0 0.00000+ 0          0          0          1          21261 401905611
+          2          2                                            1261 401905612
+ 0.00000+ 0 1.00000- 5          0          0          1          21261 401905613
+          2          2                                            1261 401905614
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 401905615
+ 0.00000+ 0 2.00000+ 7          0          0          1          21261 401905616
+          2          2                                            1261 401905617
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 401905618
+                                                                  1261 400005619
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 402005620
+ 0.00000+ 0 2.33025+ 2          0          1          0          01261 402005621
+ 0.00000+ 0 0.00000+ 0          0          0          1          21261 402005622
+          2          2                                            1261 402005623
+ 0.00000+ 0 5.60000+ 6          0          0          1          21261 402005624
+          2          2                                            1261 402005625
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 402005626
+ 0.00000+ 0 2.00000+ 7          0          0          1          21261 402005627
+          2          2                                            1261 402005628
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 402005629
+                                                                  1261 400005630
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 402105631
+ 0.00000+ 0 2.33025+ 2          0          1          0          01261 402105632
+ 0.00000+ 0 0.00000+ 0          0          0          1          21261 402105633
+          2          2                                            1261 402105634
+ 0.00000+ 0 1.15000+ 7          0          0          1          21261 402105635
+          2          2                                            1261 402105636
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 402105637
+ 0.00000+ 0 2.00000+ 7          0          0          1          21261 402105638
+          2          2                                            1261 402105639
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 402105640
+                                                                  1261 400005641
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 405105642
+ 0.00000+ 0 2.33025+ 2          0          2          0          01261 405105643
+ 0.00000+ 0 0.00000+ 0          0          0          1          21261 405105644
+          2          2                                            1261 405105645
+ 0.00000+ 0 1.30553+ 4          0          0          1          21261 405105646
+          2          2                                            1261 405105647
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 405105648
+ 0.00000+ 0 2.00000+ 7          0          0          1          21261 405105649
+          2          2                                            1261 405105650
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 405105651
+                                                                  1261 400005652
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 405205653
+ 0.00000+ 0 2.33025+ 2          0          2          0          01261 405205654
+ 0.00000+ 0 0.00000+ 0          0          0          1          21261 405205655
+          2          2                                            1261 405205656
+ 0.00000+ 0 5.00000+ 4          0          0          1          21261 405205657
+          2          2                                            1261 405205658
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 405205659
+ 0.00000+ 0 2.00000+ 7          0          0          1          21261 405205660
+          2          2                                            1261 405205661
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 405205662
+                                                                  1261 400005663
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 405305664
+ 0.00000+ 0 2.33025+ 2          0          2          0          01261 405305665
+ 0.00000+ 0 0.00000+ 0          0          0          1          21261 405305666
+          2          2                                            1261 405305667
+ 0.00000+ 0 8.40000+ 4          0          0          1          21261 405305668
+          2          2                                            1261 405305669
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 405305670
+ 0.00000+ 0 2.00000+ 7          0          0          1          21261 405305671
+          2          2                                            1261 405305672
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 405305673
+                                                                  1261 400005674
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 405405675
+ 0.00000+ 0 2.33025+ 2          0          2          0          01261 405405676
+ 0.00000+ 0 5.00000- 5          0          0          1          21261 405405677
+          2          2                                            1261 405405678
+ 0.00000+ 0 1.03000+ 5          0          0          1          21261 405405679
+          2          2                                            1261 405405680
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 405405681
+ 0.00000+ 0 2.00000+ 7          0          0          1          21261 405405682
+          2          2                                            1261 405405683
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 405405684
+                                                                  1261 400005685
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 405505686
+ 0.00000+ 0 2.33025+ 2          0          2          0          01261 405505687
+ 0.00000+ 0 0.00000+ 0          0          0          1          21261 405505688
+          2          2                                            1261 405505689
+ 0.00000+ 0 1.50000+ 5          0          0          1          21261 405505690
+          2          2                                            1261 405505691
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 405505692
+ 0.00000+ 0 2.00000+ 7          0          0          1          21261 405505693
+          2          2                                            1261 405505694
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 405505695
+                                                                  1261 400005696
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 405605697
+ 0.00000+ 0 2.33025+ 2          0          2          0          01261 405605698
+ 0.00000+ 0 0.00000+ 0          0          0          1          21261 405605699
+          2          2                                            1261 405605700
+ 0.00000+ 0 1.73000+ 5          0          0          1          21261 405605701
+          2          2                                            1261 405605702
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 405605703
+ 0.00000+ 0 2.00000+ 7          0          0          1          21261 405605704
+          2          2                                            1261 405605705
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 405605706
+                                                                  1261 400005707
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 405705708
+ 0.00000+ 0 2.33025+ 2          0          2          0          01261 405705709
+ 0.00000+ 0 0.00000+ 0          0          0          1          21261 405705710
+          2          2                                            1261 405705711
+ 0.00000+ 0 2.35000+ 5          0          0          1          21261 405705712
+          2          2                                            1261 405705713
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 405705714
+ 0.00000+ 0 2.00000+ 7          0          0          1          21261 405705715
+          2          2                                            1261 405705716
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 405705717
+                                                                  1261 400005718
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 405805719
+ 0.00000+ 0 2.33025+ 2          0          2          0          01261 405805720
+ 0.00000+ 0 0.00000+ 0          0          0          1          21261 405805721
+          2          2                                            1261 405805722
+ 0.00000+ 0 2.70000+ 5          0          0          1          21261 405805723
+          2          2                                            1261 405805724
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 405805725
+ 0.00000+ 0 2.00000+ 7          0          0          1          21261 405805726
+          2          2                                            1261 405805727
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 405805728
+                                                                  1261 400005729
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 405905730
+ 0.00000+ 0 2.33025+ 2          0          2          0          01261 405905731
+ 0.00000+ 0 0.00000+ 0          0          0          1          21261 405905732
+          2          2                                            1261 405905733
+ 0.00000+ 0 4.00000+ 5          0          0          1          21261 405905734
+          2          2                                            1261 405905735
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 405905736
+ 0.00000+ 0 2.00000+ 7          0          0          1          21261 405905737
+          2          2                                            1261 405905738
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 405905739
+                                                                  1261 400005740
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 406005741
+ 0.00000+ 0 2.33025+ 2          0          2          0          01261 406005742
+ 0.00000+ 0 0.00000+ 0          0          0          1          21261 406005743
+          2          2                                            1261 406005744
+ 0.00000+ 0 6.00000+ 5          0          0          1          21261 406005745
+          2          2                                            1261 406005746
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 406005747
+ 0.00000+ 0 2.00000+ 7          0          0          1          21261 406005748
+          2          2                                            1261 406005749
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 406005750
+                                                                  1261 400005751
+ 9.22350+ 4 2.33025+ 2          0          1          0          01261 406105752
+ 0.00000+ 0 2.33025+ 2          0          2          0          01261 406105753
+ 0.00000+ 0 0.00000+ 0          0          0          1          91261 406105754
+          9          2                                            1261 406105755
+ 0.00000+ 0 1.00000+ 6          0          0          8          01261 406105756
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406105757
+ 0.00000+ 0 0.00000+ 0                                            1261 406105758
+ 0.00000+ 0 3.00000+ 6          0          0          8          01261 406105759
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406105760
+ 0.00000+ 0 0.00000+ 0                                            1261 406105761
+ 0.00000+ 0 4.00000+ 6          0          0          8          01261 406105762
+ 1.67028- 2 2.49830- 3 1.01602- 6 5.60644- 7 4.53540- 7 5.19280- 71261 406105763
+ 3.79090- 7 2.64500- 7                                            1261 406105764
+ 0.00000+ 0 5.00000+ 6          0          0          8          01261 406105765
+ 1.56298- 1 1.57440- 2 5.15210- 4 1.68540- 5 1.77440- 6 2.06340- 71261 406105766
+-1.02800- 6-6.32820- 7                                            1261 406105767
+ 0.00000+ 0 6.00000+ 6          0          0          8          01261 406105768
+ 3.21517- 1 8.32590- 2 1.03452- 2 7.25460- 4 2.84290- 5-4.68880- 71261 406105769
+-4.05530- 6-2.29010- 6                                            1261 406105770
+ 0.00000+ 0 8.00000+ 6          0          0          8          01261 406105771
+ 4.01966- 1 1.55430- 1 3.36527- 2 4.07340- 3 1.70620- 4-7.07900- 51261 406105772
+-7.28220- 5-5.90770- 5                                            1261 406105773
+ 0.00000+ 0 1.00000+ 7          0          0          8          01261 406105774
+ 5.90794- 1 3.65290- 1 1.87364- 1 6.34500- 2 1.20790- 2 1.72050- 31261 406105775
+ 2.94140- 4-5.49900- 5                                            1261 406105776
+ 0.00000+ 0 1.40000+ 7          0          0          8          01261 406105777
+ 6.75693- 1 4.58070- 1 2.83606- 1 1.33440- 1 3.66320- 2 6.30490- 31261 406105778
+ 7.73510- 4 1.43940- 4                                            1261 406105779
+ 0.00000+ 0 2.00000+ 7          0          0          8          01261 406105780
+ 7.17533- 1 5.05980- 1 3.35537- 1 1.83680- 1 6.15440- 2 1.28300- 21261 406105781
+ 1.87580- 3 3.85190- 4                                            1261 406105782
+                                                                  1261 400005783
+ 9.22350+ 4 2.33025+ 2          0          1          0          01261 406205784
+ 0.00000+ 0 2.33025+ 2          0          2          0          01261 406205785
+ 0.00000+ 0 0.00000+ 0          0          0          1          91261 406205786
+          9          2                                            1261 406205787
+ 0.00000+ 0 2.00000+ 6          0          0          8          01261 406205788
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406205789
+ 0.00000+ 0 0.00000+ 0                                            1261 406205790
+ 0.00000+ 0 3.00000+ 6          0          0          8          01261 406205791
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406205792
+ 0.00000+ 0 0.00000+ 0                                            1261 406205793
+ 0.00000+ 0 4.00000+ 6          0          0          8          01261 406205794
+ 1.67028- 2 2.49830- 3 1.01602- 6 5.60644- 7 4.53540- 7 5.19280- 71261 406205795
+ 3.79090- 7 2.64500- 7                                            1261 406205796
+ 0.00000+ 0 5.00000+ 6          0          0          8          01261 406205797
+ 1.56298- 1 1.57440- 2 5.15210- 4 1.68540- 5 1.77440- 6 2.06340- 71261 406205798
+-1.02800- 6-6.32820- 7                                            1261 406205799
+ 0.00000+ 0 6.00000+ 6          0          0          8          01261 406205800
+ 3.21517- 1 8.32590- 2 1.03452- 2 7.25460- 4 2.84290- 5-4.68880- 71261 406205801
+-4.05530- 6-2.29010- 6                                            1261 406205802
+ 0.00000+ 0 8.00000+ 6          0          0          8          01261 406205803
+ 4.01966- 1 1.55430- 1 3.36527- 2 4.07340- 3 1.70620- 4-7.07900- 51261 406205804
+-7.28220- 5-5.90770- 5                                            1261 406205805
+ 0.00000+ 0 1.00000+ 7          0          0          8          01261 406205806
+ 5.90794- 1 3.65290- 1 1.87364- 1 6.34500- 2 1.20790- 2 1.72050- 31261 406205807
+ 2.94140- 4-5.49900- 5                                            1261 406205808
+ 0.00000+ 0 1.40000+ 7          0          0          8          01261 406205809
+ 6.75693- 1 4.58070- 1 2.83606- 1 1.33440- 1 3.66320- 2 6.30490- 31261 406205810
+ 7.73510- 4 1.43940- 4                                            1261 406205811
+ 0.00000+ 0 2.00000+ 7          0          0          8          01261 406205812
+ 7.17533- 1 5.05980- 1 3.35537- 1 1.83680- 1 6.15440- 2 1.28300- 21261 406205813
+ 1.87580- 3 3.85190- 4                                            1261 406205814
+                                                                  1261 400005815
+ 9.22350+ 4 2.33025+ 2          0          1          0          01261 406305816
+ 0.00000+ 0 2.33025+ 2          0          2          0          01261 406305817
+ 0.00000+ 0 0.00000+ 0          0          0          1          91261 406305818
+          9          2                                            1261 406305819
+ 0.00000+ 0 3.00000+ 6          0          0          8          01261 406305820
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406305821
+ 0.00000+ 0 0.00000+ 0                                            1261 406305822
+ 0.00000+ 0 4.00000+ 6          0          0          8          01261 406305823
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406305824
+ 0.00000+ 0 0.00000+ 0                                            1261 406305825
+ 0.00000+ 0 5.00000+ 6          0          0          8          01261 406305826
+ 1.67028- 2 2.49830- 3 1.01602- 6 5.60644- 7 4.53540- 7 5.19280- 71261 406305827
+ 3.79090- 7 2.64500- 7                                            1261 406305828
+ 0.00000+ 0 6.00000+ 6          0          0          8          01261 406305829
+ 1.56298- 1 1.57440- 2 5.15210- 4 1.68540- 5 1.77440- 6 2.06340- 71261 406305830
+-1.02800- 6-6.32820- 7                                            1261 406305831
+ 0.00000+ 0 7.00000+ 6          0          0          8          01261 406305832
+ 3.21517- 1 8.32590- 2 1.03452- 2 7.25460- 4 2.84290- 5 4.68880- 71261 406305833
+-4.05530- 6-2.29010- 6                                            1261 406305834
+ 0.00000+ 0 8.00000+ 6          0          0          8          01261 406305835
+ 4.01966- 1 1.55430- 1 3.36527- 2 4.07340- 3 1.70620- 4-7.07900- 51261 406305836
+-7.28220- 5-5.90770- 5                                            1261 406305837
+ 0.00000+ 0 1.00000+ 7          0          0          8          01261 406305838
+ 5.90794- 1 3.65290- 1 1.87364- 1 6.34500- 2 1.20790- 2 1.72050- 31261 406305839
+ 2.94140- 4-5.49900- 5                                            1261 406305840
+ 0.00000+ 0 1.40000+ 7          0          0          8          01261 406305841
+ 6.75693- 1 4.58070- 1 2.83606- 1 1.33440- 1 3.66320- 2 6.30490- 31261 406305842
+ 7.73510- 4 1.43940- 4                                            1261 406305843
+ 0.00000+ 0 2.00000+ 7          0          0          8          01261 406305844
+ 7.17533- 1 5.05980- 1 3.35537- 1 1.83680- 1 6.15440- 2 1.28300- 21261 406305845
+ 1.87580- 3 3.85190- 4                                            1261 406305846
+                                                                  1261 400005847
+ 9.22350+ 4 2.33025+ 2          0          1          0          01261 406405848
+ 0.00000+ 0 2.33025+ 2          0          2          0          01261 406405849
+ 0.00000+ 0 0.00000+ 0          0          0          1          91261 406405850
+          9          2                                            1261 406405851
+ 0.00000+ 0 4.00000+ 6          0          0          8          01261 406405852
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406405853
+ 0.00000+ 0 0.00000+ 0                                            1261 406405854
+ 0.00000+ 0 5.00000+ 6          0          0          8          01261 406405855
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406405856
+ 0.00000+ 0 0.00000+ 0                                            1261 406405857
+ 0.00000+ 0 6.00000+ 6          0          0          8          01261 406405858
+ 1.67028- 2 2.49830- 3 1.01602- 6 5.60644- 7 4.53540- 7 5.19280- 71261 406405859
+ 3.79090- 7 2.64500- 7                                            1261 406405860
+ 0.00000+ 0 7.00000+ 6          0          0          8          01261 406405861
+ 1.56298- 1 1.57440- 2 5.15210- 4 1.68540- 5 1.77440- 6 2.06340- 71261 406405862
+-1.02800- 6-6.32820- 7                                            1261 406405863
+ 0.00000+ 0 8.00000+ 6          0          0          8          01261 406405864
+ 3.21517- 1 8.32590- 2 1.03452- 2 7.25460- 4 2.84290- 5 4.68880- 71261 406405865
+-4.05530- 6-2.29010- 6                                            1261 406405866
+ 0.00000+ 0 9.00000+ 6          0          0          8          01261 406405867
+ 4.01966- 1 1.55430- 1 3.36527- 2 4.07340- 3 1.70620- 4-7.07900- 51261 406405868
+-7.28220- 5-5.90770- 5                                            1261 406405869
+ 0.00000+ 0 1.00000+ 7          0          0          8          01261 406405870
+ 5.90794- 1 3.65290- 1 1.87364- 1 6.34500- 2 1.20790- 2 1.72050- 31261 406405871
+ 2.94140- 4-5.49900- 5                                            1261 406405872
+ 0.00000+ 0 1.40000+ 7          0          0          8          01261 406405873
+ 6.75693- 1 4.58070- 1 2.83606- 1 1.33440- 1 3.66320- 2 6.30490- 31261 406405874
+ 1.87580- 3 3.85190- 4                                            1261 406405875
+ 0.00000+ 0 2.00000+ 7          0          0          8          01261 406405876
+ 7.17533- 1 5.05980- 1 3.35537- 1 1.83680- 1 6.15440- 2 1.28300- 21261 406405877
+ 7.73510- 4 1.43940- 4                                            1261 406405878
+                                                                  1261 400005879
+ 9.22350+ 4 2.33025+ 2          0          1          0          01261 406505880
+ 0.00000+ 0 2.33025+ 2          0          2          0          01261 406505881
+ 0.00000+ 0 0.00000+ 0          0          0          1          91261 406505882
+          9          2                                            1261 406505883
+ 0.00000+ 0 5.00000+ 6          0          0          8          01261 406505884
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406505885
+ 0.00000+ 0 0.00000+ 0                                            1261 406505886
+ 0.00000+ 0 6.00000+ 6          0          0          8          01261 406505887
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406505888
+ 0.00000+ 0 0.00000+ 0                                            1261 406505889
+ 0.00000+ 0 7.00000+ 6          0          0          8          01261 406505890
+ 1.67028- 2 2.49830- 3 1.01602- 6 5.60644- 7 4.53540- 7 5.19280- 71261 406505891
+ 3.79090- 7 2.64500- 7                                            1261 406505892
+ 0.00000+ 0 8.00000+ 6          0          0          8          01261 406505893
+ 1.56298- 1 1.57440- 2 5.15210- 4 1.68540- 5 1.77440- 6 2.06340- 71261 406505894
+-1.02800- 6-6.32820- 7                                            1261 406505895
+ 0.00000+ 0 9.00000+ 6          0          0          8          01261 406505896
+ 3.21517- 1 8.32590- 2 1.03452- 2 7.25460- 4 2.84290- 5 4.68880- 71261 406505897
+-4.05530- 6-2.29010- 6                                            1261 406505898
+ 0.00000+ 0 1.00000+ 7          0          0          8          01261 406505899
+ 4.01966- 1 1.55430- 1 3.36527- 2 4.07340- 3 1.70620- 4-7.07900- 51261 406505900
+-7.28220- 5-5.90770- 5                                            1261 406505901
+ 0.00000+ 0 1.20000+ 7          0          0          8          01261 406505902
+ 5.90794- 1 3.65290- 1 1.87364- 1 6.34500- 2 1.20790- 2 1.72050- 31261 406505903
+ 2.94140- 4-5.49900- 5                                            1261 406505904
+ 0.00000+ 0 1.40000+ 7          0          0          8          01261 406505905
+ 6.75693- 1 4.58070- 1 2.83606- 1 1.33440- 1 3.66320- 2 6.30490- 31261 406505906
+ 7.73510- 4 1.43940- 4                                            1261 406505907
+ 0.00000+ 0 2.00000+ 7          0          0          8          01261 406505908
+ 7.17533- 1 5.05980- 1 3.35537- 1 1.83680- 1 6.15440- 2 1.28300- 21261 406505909
+ 1.87580- 3 3.85190- 4                                            1261 406505910
+                                                                  1261 400005911
+ 9.22350+ 4 2.33025+ 2          0          1          0          01261 406605912
+ 0.00000+ 0 2.33025+ 2          0          2          0          01261 406605913
+ 0.00000+ 0 0.00000+ 0          0          0          1          91261 406605914
+          9          2                                            1261 406605915
+ 0.00000+ 0 6.00000+ 6          0          0          8          01261 406605916
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406605917
+ 0.00000+ 0 0.00000+ 0                                            1261 406605918
+ 0.00000+ 0 7.00000+ 6          0          0          8          01261 406605919
+ 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406605920
+ 0.00000+ 0 0.00000+ 0                                            1261 406605921
+ 0.00000+ 0 8.00000+ 6          0          0          8          01261 406605922
+ 1.67028- 2 2.49830- 3 1.01602- 6 5.60644- 7 4.53540- 7 5.19280- 71261 406605923
+ 3.79090- 7 2.64500- 7                                            1261 406605924
+ 0.00000+ 0 9.00000+ 6          0          0          8          01261 406605925
+ 1.56298- 1 1.57440- 2 5.15210- 4 1.68540- 5 1.77440- 6 2.06340- 71261 406605926
+-1.02800- 6-6.32820- 7                                            1261 406605927
+ 0.00000+ 0 1.00000+ 7          0          0          8          01261 406605928
+ 3.21517- 1 8.32590- 2 1.03452- 2 7.25460- 4 2.84290- 5 4.68880- 71261 406605929
+-4.05530- 6-2.29010- 6                                            1261 406605930
+ 0.00000+ 0 1.10000+ 7          0          0          8          01261 406605931
+ 4.01966- 1 1.55430- 1 3.36527- 2 4.07340- 3 1.70620- 4-7.07900- 51261 406605932
+-7.28220- 5-5.90770- 5                                            1261 406605933
+ 0.00000+ 0 1.20000+ 7          0          0          8          01261 406605934
+ 5.90794- 1 3.65290- 1 1.87364- 1 6.34500- 2 1.20790- 2 1.72050- 31261 406605935
+ 2.94140- 4-5.49900- 5                                            1261 406605936
+ 0.00000+ 0 1.40000+ 7          0          0          8          01261 406605937
+ 6.75693- 1 4.58070- 1 2.83606- 1 1.33440- 1 3.66320- 2 6.30490- 31261 406605938
+ 7.73510- 4 1.43940- 4                                            1261 406605939
+ 0.00000+ 0 2.00000+ 7          0          0          8          01261 406605940
+ 7.17533- 1 5.05980- 1 3.35537- 1 1.83680- 1 6.15440- 2 1.28300- 21261 406605941
+ 1.87580- 3 3.85190- 4                                            1261 406605942
+                                                                  1261 400005943
+ 9.22350+ 4 2.33025+ 2          0          2          0          01261 409105944
+ 0.00000+ 0 2.33025+ 2          0          1          0          01261 409105945
+ 0.00000+ 0 0.00000+ 0          0          0          1          21261 409105946
+          2          2                                            1261 409105947
+ 0.00000+ 0 9.50000+ 5          0          0          1          21261 409105948
+          2          2                                            1261 409105949
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 409105950
+ 0.00000+ 0 2.00000+ 7          0          0          1          21261 409105951
+          2          2                                            1261 409105952
+-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1                      1261 409105953
+                                                                  1261 400005954
+                                                                  1261 000005955
+ 9.22350+ 4 2.33025+ 2          0          0          1          01261 501605956
+ 5.32858+ 6 0.00000+ 0          0          9          1          21261 501605957
+          2          2                                            1261 501605958
+ 5.32858+ 6 1.00000+ 0 2.00000+ 7 1.00000+ 0                      1261 501605959
+ 0.00000+ 0 0.00000+ 0          0          0          1         261261 501605960
+         26          2                                            1261 501605961
+ 5.32858+ 6 1.00000+ 4 5.50000+ 6 1.04880+ 5 6.00000+ 6 1.82200+ 51261 501605962
+ 6.50000+ 6 2.35360+ 5 7.00000+ 6 2.78560+ 5 7.50000+ 6 3.15900+ 51261 501605963
+ 8.00000+ 6 3.49270+ 5 8.50000+ 6 3.79720+ 5 9.00000+ 6 4.07900+ 51261 501605964
+ 9.50000+ 6 4.34260+ 5 1.00000+ 7 4.59110+ 5 1.05000+ 7 4.82680+ 51261 501605965
+ 1.10000+ 7 5.05150+ 5 1.15000+ 7 5.26660+ 5 1.20000+ 7 5.47330+ 51261 501605966
+ 1.25000+ 7 5.67250+ 5 1.30000+ 7 5.86490+ 5 1.35000+ 7 6.05120+ 51261 501605967
+ 1.40000+ 7 6.23190+ 5 1.45000+ 7 6.40750+ 5 1.50000+ 7 6.57850+ 51261 501605968
+ 1.60000+ 7 6.86000+ 5 1.70000+ 7 7.14000+ 5 1.80000+ 7 7.36000+ 51261 501605969
+ 1.90000+ 7 7.51000+ 5 2.00000+ 7 7.57000+ 5                      1261 501605970
+                                                                  1261 500005971
+ 9.22350+ 4 2.33025+ 2          0          0          1          01261 501705972
+ 1.21988+ 7 0.00000+ 0          0          9          1          21261 501705973
+          2          2                                            1261 501705974
+ 1.21988+ 7 1.00000+ 0 2.00000+ 7 1.00000+ 0                      1261 501705975
+ 0.00000+ 0 0.00000+ 0          0          0          1         131261 501705976
+         13          2                                            1261 501705977
+ 1.21988+ 7 1.00000+ 4 1.23000+ 7 6.66310+ 4 1.25000+ 7 1.63500+ 51261 501705978
+ 1.30000+ 7 2.21420+ 5 1.35000+ 7 2.67060+ 5 1.40000+ 7 3.05960+ 51261 501705979
+ 1.45000+ 7 3.40450+ 5 1.50000+ 7 3.71750+ 5 1.60000+ 7 4.19000+ 51261 501705980
+ 1.70000+ 7 4.59000+ 5 1.80000+ 7 4.92000+ 5 1.90000+ 7 5.20000+ 51261 501705981
+ 2.00000+ 7 5.40000+ 5                                            1261 501705982
+                                                                  1261 500005983
+ 9.22350+ 4 2.33025+ 2          0          0          1          01261 501805984
+-3.00000+ 7 0.00000+ 0          0          7          1          21261 501805985
+          2          2                                            1261 501805986
+ 1.00000- 5 1.00000+ 0 2.00000+ 7 1.00000+ 0                      1261 501805987
+ 0.00000+ 0 0.00000+ 0          0          0          1          31261 501805988
+          3          2                                            1261 501805989
+ 1.00000- 5 1.32300+ 6 1.40000+ 7 1.50000+ 6 2.00000+ 7 1.57600+ 61261 501805990
+                                                                  1261 500005991
+ 9.22350+ 4 2.33025+ 2          0          0          1          01261 501905992
+-3.00000+ 7 0.00000+ 0          0          7          1          21261 501905993
+          2          2                                            1261 501905994
+ 1.00000- 5 1.00000+ 0 2.00000+ 7 1.00000+ 0                      1261 501905995
+ 0.00000+ 0 0.00000+ 0          0          0          1          31261 501905996
+          3          2                                            1261 501905997
+ 1.00000- 5 1.32300+ 6 1.40000+ 7 1.50000+ 6 2.00000+ 7 1.57600+ 61261 501905998
+                                                                  1261 500005999
+ 9.22350+ 4 2.33025+ 2          0          0          2          01261 502006000
+-3.00000+ 7 0.00000+ 0          0          7          1         171261 502006001
+         17          2                                            1261 502006002
+ 5.60000+ 6 6.87290- 1 6.00000+ 6 6.93600- 1 7.00000+ 6 7.08310- 11261 502006003
+ 8.00000+ 6 7.21320- 1 9.00000+ 6 7.31370- 1 1.00000+ 7 7.40720- 11261 502006004
+ 1.10000+ 7 7.49450- 1 1.15000+ 7 7.53600- 1 1.20000+ 7 7.57610- 11261 502006005
+ 1.30000+ 7 7.65250- 1 1.40000+ 7 7.72420- 1 1.50000+ 7 7.79170- 11261 502006006
+ 1.60000+ 7 7.85530- 1 1.70000+ 7 7.91540- 1 1.80000+ 7 7.97210- 11261 502006007
+ 1.90000+ 7 8.02590- 1 2.00000+ 7 8.07690- 1                      1261 502006008
+ 0.00000+ 0 0.00000+ 0          0          0          1          31261 502006009
+          3          2                                            1261 502006010
+ 5.60000+ 6 1.39400+ 6 1.40000+ 7 1.50000+ 6 2.00000+ 7 1.57600+ 61261 502006011
+ 0.00000+ 0 0.00000+ 0          0          9          1         171261 502006012
+         17          2                                            1261 502006013
+ 5.60000+ 6 3.12710- 1 6.00000+ 6 3.06400- 1 7.00000+ 6 2.91690- 11261 502006014
+ 8.00000+ 6 2.78680- 1 9.00000+ 6 2.68630- 1 1.00000+ 7 2.59280- 11261 502006015
+ 1.10000+ 7 2.50550- 1 1.15000+ 7 2.46400- 1 1.20000+ 7 2.42390- 11261 502006016
+ 1.30000+ 7 2.34750- 1 1.40000+ 7 2.27580- 1 1.50000+ 7 2.20830- 11261 502006017
+ 1.60000+ 7 2.14470- 1 1.70000+ 7 2.08460- 1 1.80000+ 7 2.02790- 11261 502006018
+ 1.90000+ 7 1.97410- 1 2.00000+ 7 1.92310- 1                      1261 502006019
+ 0.00000+ 0 0.00000+ 0          0          0          1         161261 502006020
+         16          2                                            1261 502006021
+ 5.60000+ 6 1.00000+ 4 6.00000+ 6 1.04880+ 5 7.00000+ 6 2.35360+ 51261 502006022
+ 8.00000+ 6 3.15900+ 5 9.00000+ 6 3.79720+ 5 1.00000+ 7 4.34260+ 51261 502006023
+ 1.10000+ 7 4.82680+ 5 1.20000+ 7 5.26660+ 5 1.30000+ 7 5.67250+ 51261 502006024
+ 1.40000+ 7 6.05120+ 5 1.50000+ 7 6.40750+ 5 1.60000+ 7 6.71920+ 51261 502006025
+ 1.70000+ 7 7.00000+ 5 1.80000+ 7 7.25000+ 5 1.90000+ 7 7.43500+ 51261 502006026
+ 2.00000+ 7 7.52500+ 5                                            1261 502006027
+                                                                  1261 500006028
+ 9.22350+ 4 2.33025+ 2          0          0          2          01261 502106029
+-3.00000+ 7 0.00000+ 0          0          7          1         101261 502106030
+         10          2                                            1261 502106031
+ 1.15000+ 7 5.07190- 1 1.20000+ 7 5.15210- 1 1.30000+ 7 5.30490- 11261 502106032
+ 1.40000+ 7 5.44840- 1 1.50000+ 7 5.58340- 1 1.60000+ 7 5.71060- 11261 502106033
+ 1.70000+ 7 5.83070- 1 1.80000+ 7 5.94430- 1 1.90000+ 7 6.05180- 11261 502106034
+ 2.00000+ 7 6.15380- 1                                            1261 502106035
+ 0.00000+ 0 0.00000+ 0          0          0          1          31261 502106036
+          3          2                                            1261 502106037
+ 1.15000+ 7 1.46800+ 6 1.40000+ 7 1.50000+ 6 2.00000+ 7 1.57600+ 61261 502106038
+ 0.00000+ 0 0.00000+ 0          0          9          1         101261 502106039
+         10          2                                            1261 502106040
+ 1.15000+ 7 4.92810- 1 1.20000+ 7 4.84790- 1 1.30000+ 7 4.69510- 11261 502106041
+ 1.40000+ 7 4.55160- 1 1.50000+ 7 4.41660- 1 1.60000+ 7 4.28940- 11261 502106042
+ 1.70000+ 7 4.16930- 1 1.80000+ 7 4.05570- 1 1.90000+ 7 3.94820- 11261 502106043
+ 2.00000+ 7 3.84620- 1                                            1261 502106044
+ 0.00000+ 0 0.00000+ 0          0          0          1         101261 502106045
+         10          2                                            1261 502106046
+ 1.15000+ 7 1.00000+ 4 1.20000+ 7 1.63500+ 5 1.30000+ 7 2.67060+ 51261 502106047
+ 1.40000+ 7 3.40450+ 5 1.50000+ 7 3.96000+ 5 1.60000+ 7 4.41000+ 51261 502106048
+ 1.70000+ 7 4.77000+ 5 1.80000+ 7 5.06000+ 5 1.90000+ 7 5.30000+ 51261 502106049
+ 2.00000+ 7 5.46000+ 5                                            1261 502106050
+                                                                  1261 500006051
+ 9.22350+ 4 2.33025+ 2          0          0          1          01261 509106052
+ 8.40000+ 4 0.00000+ 0          0          9          1          21261 509106053
+          2          2                                            1261 509106054
+ 9.50000+ 5 1.00000+ 0 2.00000+ 7 1.00000+ 0                      1261 509106055
+ 0.00000+ 0 0.00000+ 0          0          0          1          31261 509106056
+          3          5                                            1261 509106057
+ 9.50000+ 5 2.04900+ 5 1.50000+ 7 8.14310+ 5 2.00000+ 7 9.40300+ 51261 509106058
+                                                                  1261 500006059
+ 9.22350+ 4 2.33025+ 2          0          0          6          01261 545506060
+-3.00000+ 7 0.0    + 0          0          5          1          21261 545506061
+          2          2                                            1261 545506062
+ 1.00000- 5 3.80000- 2 2.00000+ 7 3.80000- 2                      1261 545506063
+ 0.0    + 0 0.0    + 0          0          0          1          21261 545506064
+          2          2                                            1261 545506065
+ 1.00000- 5 1.00000+ 0 2.00000+ 7 1.00000+ 0                      1261 545506066
+ 0.0    + 0 0.0    + 0          0          0          1         281261 545506067
+         28          1                                            1261 545506068
+ 0.0    + 0 0.0    + 0 7.97300+ 4 7.33414- 6 8.85900+ 4 6.78658- 61261 545506069
+ 9.84300+ 4 6.79869- 6 1.09370+ 5 6.44251- 6 1.21520+ 5 6.04263- 61261 545506070
+ 1.35020+ 5 5.46503- 6 1.50020+ 5 4.86957- 6 1.66690+ 5 3.49598- 61261 545506071
+ 1.85220+ 5 3.44892- 6 2.05800+ 5 3.24050- 6 2.28660+ 5 2.36057- 61261 545506072
+ 2.54070+ 5 1.74231- 6 2.82300+ 5 9.84723- 7 3.13670+ 5 5.47899- 71261 545506073
+ 3.48520+ 5 4.72482- 7 3.87240+ 5 5.83139- 7 4.30270+ 5 2.86465- 71261 545506074
+ 4.78080+ 5 1.24210- 7 5.31200+ 5 8.80793- 8 5.90220+ 5 8.68906- 81261 545506075
+ 6.55800+ 5 8.23250- 8 7.28660+ 5 9.75377- 8 8.09630+ 5 7.00101- 81261 545506076
+ 8.99590+ 5 3.40068- 8 9.99540+ 5 1.71028- 8 1.11060+ 6 1.45823- 81261 545506077
+ 1.23400+ 6 0.0    + 0                                            1261 545506078
+-3.00000+ 7 0.0    + 0          0          5          1          21261 545506079
+          2          2                                            1261 545506080
+ 1.00000- 5 2.13000- 1 2.00000+ 7 2.13000- 1                      1261 545506081
+ 0.0    + 0 0.0    + 0          0          0          1          21261 545506082
+          2          2                                            1261 545506083
+ 1.00000- 5 1.00000+ 0 2.00000+ 7 1.00000+ 0                      1261 545506084
+ 0.0    + 0 0.0    + 0          0          0          1         231261 545506085
+         23          1                                            1261 545506086
+ 0.0    + 0 4.00000- 7 1.50000+ 5 3.40000- 7 2.00000+ 5 3.60000- 71261 545506087
+ 2.50000+ 5 2.80000- 7 3.00000+ 5 3.80000- 7 3.50000+ 5 2.06000- 61261 545506088
+ 4.00000+ 5 6.40000- 7 4.50000+ 5 2.46000- 6 5.00000+ 5 1.44000- 61261 545506089
+ 5.50000+ 5 1.62000- 6 6.00000+ 5 3.00000- 7 6.50000+ 5 8.80000- 71261 545506090
+ 7.00000+ 5 1.30000- 6 7.50000+ 5 1.16000- 6 8.00000+ 5 1.42000- 61261 545506091
+ 8.50000+ 5 3.20000- 7 9.00000+ 5 7.80000- 7 9.50000+ 5 4.80000- 71261 545506092
+ 1.00000+ 6 9.20000- 7 1.05000+ 6 6.60000- 7 1.10000+ 6 6.00000- 71261 545506093
+ 1.15000+ 6 4.00000- 7 1.20000+ 6 0.0    + 0                      1261 545506094
+-3.00000+ 7 0.0    + 0          0          5          1          21261 545506095
+          2          2                                            1261 545506096
+ 1.00000- 5 1.88000- 1 2.00000+ 7 1.88000- 1                      1261 545506097
+ 0.0    + 0 0.0    + 0          0          0          1          21261 545506098
+          2          2                                            1261 545506099
+ 1.00000- 5 1.00000+ 0 2.00000+ 7 1.00000+ 0                      1261 545506100
+ 0.0    + 0 0.0    + 0          0          0          1         281261 545506101
+         28          1                                            1261 545506102
+ 0.0    + 0 0.0    + 0 7.97300+ 4 7.92325- 6 8.85900+ 4 8.65854- 61261 545506103
+ 9.84300+ 4 7.02925- 6 1.09370+ 5 5.72016- 6 1.21520+ 5 4.82222- 61261 545506104
+ 1.35020+ 5 3.22667- 6 1.50020+ 5 2.63947- 6 1.66690+ 5 2.07771- 61261 545506105
+ 1.85220+ 5 1.40914- 6 2.05800+ 5 1.18548- 6 2.28660+ 5 1.42070- 61261 545506106
+ 2.54070+ 5 1.18314- 6 2.82300+ 5 1.06471- 6 3.13670+ 5 1.11047- 61261 545506107
+ 3.48520+ 5 1.27583- 6 3.87240+ 5 1.04113- 6 4.30270+ 5 8.30370- 71261 545506108
+ 4.78080+ 5 7.24774- 7 5.31200+ 5 5.21857- 7 5.90220+ 5 3.97987- 71261 545506109
+ 6.55800+ 5 2.71754- 7 7.28660+ 5 1.91429- 7 8.09630+ 5 1.26723- 71261 545506110
+ 8.99590+ 5 1.16058- 7 9.99540+ 5 8.46389- 8 1.11060+ 6 6.07779- 81261 545506111
+ 1.23400+ 6 0.0    + 0                                            1261 545506112
+-3.00000+ 7 0.0    + 0          0          5          1          21261 545506113
+          2          2                                            1261 545506114
+ 1.00000- 5 4.07000- 1 2.00000+ 7 4.07000- 1                      1261 545506115
+ 0.0    + 0 0.0    + 0          0          0          1          21261 545506116
+          2          2                                            1261 545506117
+ 1.00000- 5 1.00000+ 0 2.00000+ 7 1.00000+ 0                      1261 545506118
+ 0.0    + 0 0.0    + 0          0          0          1         281261 545506119
+         28          1                                            1261 545506120
+ 0.0    + 0 0.0    + 0 7.97300+ 4 4.85230- 6 8.85900+ 4 4.49097- 61261 545506121
+ 9.84300+ 4 4.25875- 6 1.09370+ 5 3.95806- 6 1.21520+ 5 3.61409- 61261 545506122
+ 1.35020+ 5 3.29934- 6 1.50020+ 5 3.95842- 6 1.66690+ 5 3.54489- 61261 545506123
+ 1.85220+ 5 2.78370- 6 2.05800+ 5 2.44045- 6 2.28660+ 5 2.05783- 61261 545506124
+ 2.54070+ 5 1.75310- 6 2.82300+ 5 1.64774- 6 3.13670+ 5 1.36558- 61261 545506125
+ 3.48520+ 5 1.00445- 6 3.87240+ 5 8.92223- 7 4.30270+ 5 6.98459- 71261 545506126
+ 4.78080+ 5 6.17347- 7 5.31200+ 5 5.40387- 7 5.90220+ 5 3.59794- 71261 545506127
+ 6.55800+ 5 2.12694- 7 7.28660+ 5 2.80295- 7 8.09630+ 5 1.94492- 71261 545506128
+ 8.99590+ 5 1.07033- 7 9.99540+ 5 4.23110- 8 1.11060+ 6 3.24084- 81261 545506129
+ 1.23400+ 6 0.0    + 0                                            1261 545506130
+-3.00000+ 7 0.0    + 0          0          5          1          21261 545506131
+          2          2                                            1261 545506132
+ 1.00000- 5 1.28000- 1 2.00000+ 7 1.28000- 1                      1261 545506133
+ 0.0    + 0 0.0    + 0          0          0          1          21261 545506134
+          2          2                                            1261 545506135
+ 1.00000- 5 1.00000+ 0 2.00000+ 7 1.00000+ 0                      1261 545506136
+ 0.0    + 0 0.0    + 0          0          0          1         281261 545506137
+         28          1                                            1261 545506138
+ 0.0    + 0 0.0    + 0 7.97300+ 4 4.85230- 6 8.85900+ 4 4.49097- 61261 545506139
+ 9.84300+ 4 4.25875- 6 1.09370+ 5 3.95806- 6 1.21520+ 5 3.61409- 61261 545506140
+ 1.35020+ 5 3.29934- 6 1.50020+ 5 3.95842- 6 1.66690+ 5 3.54489- 61261 545506141
+ 1.85220+ 5 2.78370- 6 2.05800+ 5 2.44045- 6 2.28660+ 5 2.05783- 61261 545506142
+ 2.54070+ 5 1.75310- 6 2.82300+ 5 1.64774- 6 3.13670+ 5 1.36558- 61261 545506143
+ 3.48520+ 5 1.00445- 6 3.87240+ 5 8.92223- 7 4.30270+ 5 6.98459- 71261 545506144
+ 4.78080+ 5 6.17347- 7 5.31200+ 5 5.40387- 7 5.90220+ 5 3.59794- 71261 545506145
+ 6.55800+ 5 2.12694- 7 7.28660+ 5 2.80295- 7 8.09630+ 5 1.94492- 71261 545506146
+ 8.99590+ 5 1.07033- 7 9.99540+ 5 4.23110- 8 1.11060+ 6 3.24084- 81261 545506147
+ 1.23400+ 6 0.0    + 0                                            1261 545506148
+-3.00000+ 7 0.0    + 0          0          5          1          21261 545506149
+          2          2                                            1261 545506150
+ 1.00000- 5 2.60000- 2 2.00000+ 7 2.60000- 2                      1261 545506151
+ 0.0    + 0 0.0    + 0          0          0          1          21261 545506152
+          2          2                                            1261 545506153
+ 1.00000- 5 1.00000+ 0 2.00000+ 7 1.00000+ 0                      1261 545506154
+ 0.0    + 0 0.0    + 0          0          0          1         281261 545506155
+         28          1                                            1261 545506156
+ 0.0    + 0 0.0    + 0 7.97300+ 4 4.85230- 6 8.85900+ 4 4.49097- 61261 545506157
+ 9.84300+ 4 4.25875- 6 1.09370+ 5 3.95806- 6 1.21520+ 5 3.61409- 61261 545506158
+ 1.35020+ 5 3.29934- 6 1.50020+ 5 3.95842- 6 1.66690+ 5 3.54489- 61261 545506159
+ 1.85220+ 5 2.78370- 6 2.05800+ 5 2.44045- 6 2.28660+ 5 2.05783- 61261 545506160
+ 2.54070+ 5 1.75310- 6 2.82300+ 5 1.64774- 6 3.13670+ 5 1.36558- 61261 545506161
+ 3.48520+ 5 1.00445- 6 3.87240+ 5 8.92223- 7 4.30270+ 5 6.98459- 71261 545506162
+ 4.78080+ 5 6.17347- 7 5.31200+ 5 5.40387- 7 5.90220+ 5 3.59794- 71261 545506163
+ 6.55800+ 5 2.12694- 7 7.28660+ 5 2.80295- 7 8.09630+ 5 1.94492- 71261 545506164
+ 8.99590+ 5 1.07033- 7 9.99540+ 5 4.23110- 8 1.11060+ 6 3.24084- 81261 545506165
+ 1.23400+ 6 0.0    + 0                                            1261 545506166
+                                                                  1261 500006167
+                                                                  1261 000006168
+                                                                     0 000006706
+                                                                    -1 000000001

diff --git a/teseo/jcl b/teseo/jcl
new file mode 100644 (file)
index 0000000..7342c6b
--- /dev/null
+++ b/teseo/jcl
@@ -0,0 +1,213 @@
+//#BAZZO1A JOB (1J7R,IT05,,25),' TESEO GALLI  ',CLASS=D,REGION=4096K,   00010000
+//   TIME=4,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=#BAZZO1                    00020000
+//******   TESEO PROGRAM                                                00030000
+//******   JCL USED TO RUN THE SAMPLE PROBLEM AT ENEA CENTER-BOLOGNA,   00040000
+//******   ON IBM - 3090 , OPERATING UNDER MVS/SP1                      00050001
+//******                                                                00060001
+//JOBCAT  DD DSN=UTIBCATA,DISP=SHR                                      00070000
+//        DD DSN=UTIBCATB,DISP=SHR                                      00080000
+//***************************************************************       00090000
+//*********** THE MAIN PROGRAM CAN BE PLACED HERE TO CHANGE             00100001
+//********** ARRAY DIMENSIONS MORE EASILY                               00110000
+//********** IN THIS CASE THE FOLLOWING STEPS MUST BE INSERTED          00120000
+//*FORT  EXEC PGM=FTQLARGE,                                             00130000
+//*           PARM='NOXREF,NOMAP,SOURCE,NOLIST,OPT(3)'                  00140000
+//*SYSPRINT DD SYSOUT=A                                                 00150000
+//*SYSTERM  DD SYSOUT=A                                                 00160000
+//*SYSUT1   DD UNIT=SYSVIO,SPACE=(CYL,(1,1)),                           00170000
+//*            DCB=(BLKSIZE=3465,BUFNO=1)                               00180000
+//*SYSUT2   DD UNIT=SYSVIO,SPACE=(TRK,(2,2)),                           00190000
+//*            DCB=(BLKSIZE=2048,BUFNO=1)                               00200000
+//*SYSLIN   DD DSN=&&OBJ,                                               00210000
+//*            UNIT=SYSVIO,SPACE=(CYL,(3,1)),                           00220000
+//*            DCB=(LRECL=80,RECFM=FB,BLKSIZE=3120,BUFNO=1),            00230000
+//*            DISP=(MOD,PASS)                                          00240000
+//*SYSIN    DD    *                                                     00250000
+//*C                                                                    00260000
+//*C                                                                    00270000
+//*C         ===========    MAIN OF TESEO CODE ==============           00280001
+//*C                                                                    00290000
+//*C                                                                    00300000
+//*C          FIX DIMENSIONS FOR MAIN ARRAY:                            00310000
+//*C                                                                    00320001
+//*            COMMON MAXA,AD(400000)                                   00330000
+//*C                                                                    00340001
+//*C          THE FOLLOWING COMMONS DEFINE THE SLAVE3 ARRAYS            00350001
+//*C                                                                    00360001
+//*            COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),        00370000
+//*     1      JNT(200),N1X,N2X,NS,LX,LY,LB                             00380000
+//*            COMMON/DENS/JMT,JAT,JTT,JLT,LA,JNS,MNS,JX,MX             00390000
+//*C                                                                    00400000
+//*C          FIX DIMENSIONS FOR MAIN ARRAY: (NUMBER OF WORDS IN AD )   00410001
+//*         MAD=400000                                                  00420000
+//*C                                                                    00430000
+//*C            SIZE FLAGS FOR SLAVE3 ARRAYS                            00440001
+//*           N1X=200                                                   00450000
+//*           N2X=70000                                                 00460000
+//*           MX=100                                                    00470000
+//*           JX=10000                                                  00480000
+//*C                                                                    00490000
+//*C            POINTERS FOR SLAVE3 ARRAYS                              00500001
+//*        LX=1                                                         00510000
+//*        LY=LX+N2X                                                    00520000
+//*        LB=LY+N2X                                                    00530000
+//*C                                                                    00540000
+//*           JMT=LB+N2X                                                00550000
+//*           JAT=JMT+MX                                                00560000
+//*           JTT=JAT+MX                                                00570000
+//*           JLT=JTT+MX                                                00580000
+//*           LA=JLT+MX                                                 00590000
+//*           MAXA=LA+JX                                                00600000
+//*C                                                                    00610001
+//*C           TESTS IF THE SPACE IN BLANK COMMON IS SUFFICIENT         00620001
+//*C                                           FOR THE SLAVE3 ARRAYS    00630001
+//*        IF(MAXA.GT.MAD)  STOP 1                                      00640000
+//*        LAA=MAXA+1                                                   00650000
+//*       MA=MAD-MAXA                                                   00660000
+//*C                MA IS THE REMAINING SPACE IN THE BLANK COMMON       00670001
+//*C                                                                    00680000
+//*            CALL GELIB(MA,AD(LAA))                                   00690000
+//*            STOP                                                     00700000
+//*            END                                                      00710000
+//*                                                                     00720000
+//*********************** LINK STEP *****************************       00730000
+//*LINK     EXEC PGM=IEWL,                                              00740000
+//*            PARM=(NOLIST,NOXREF,LET),COND=(4,LT,FORT)                00750000
+//*SYSPRINT DD SYSOUT=A                                                 00760000
+//*SYSLIB   DD DSN=SYS3.LIFORTQ,DISP=SHR                                00770000
+//*         DD DSN=SYS1.FORTLIB,DISP=SHR                                00780000
+//*         DD DSN=SYS3.USERLIB,DISP=SHR                                00790000
+//*         DD DSN=SYS3.CNENLIB,DISP=SHR                                00800000
+//*         DD DSN=SYS3.SSPLIB,DISP=SHR                                 00810000
+//*         DD DSN=#BAZZO1.TESEO.LOAD,DISP=SHR                          00820000
+//*SYSUT1   DD UNIT=SYSVIO,SPACE=(CYL,(2,1)),                           00830000
+//*            DCB=(BLKSIZE=1024,BUFNO=1)                               00840000
+//*SYSLMOD  DD DSN=&&LOAD(TESEO),                                       00850000
+//*            UNIT=SYSVIO,SPACE=(CYL,(2,1,1)),                         00860000
+//*            DCB=(RECFM=U,BLKSIZE=13030,NCP=1),                       00870000
+//*            DISP=(MOD,PASS)                                          00880000
+//*  LOAD MODULE OF TESEO CODE IS SUPPOSED TO BE IN THE FOLLOWING FILE  00890000
+//*LOADTES  DD DSN=#BAZZO1.TESEO.LOAD,DISP=SHR                          00900000
+//*SYSLIN   DD DSN=&&OBJ,DISP=(OLD,DELETE)                              00910000
+//*         DD    *                                                     00920000
+//*  INCLUDE TESEO.LOAD(QOPT2)                                          00930000
+//**                                                                    00940000
+//***************************************************************       00950000
+//*=====================================================================00960000
+//*                    JCL TO COMPILE AND RUN THE TESEO PROGRAM         00970000
+//*=====================================================================00980000
+//* ======================== FORTRAN COMPILER                           00990000
+//FORT    EXEC PGM=FTQOVLY,                                             01000000
+//             PARM='MAP,OPT(2)'                                        01010000
+//SYSPRINT  DD DUMMY                                                    01020000
+//SYSTERM   DD SYSOUT=*                                                 01030000
+//SYSUT1    DD UNIT=SYSVIO,SPACE=(CYL,(1,1)),                           01040000
+//             DCB=(BLKSIZE=3465,BUFNO=1)                               01050000
+//SYSUT2    DD UNIT=SYSVIO,SPACE=(TRK,(2,2)),                           01060000
+//             DCB=(BLKSIZE=2048,BUFNO=1)                               01070000
+//SYSLIN    DD DSN=&&LOADSET,                                           01080000
+//             UNIT=SYSVIO,SPACE=(CYL,(3,1)),                           01090000
+//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120,BUFNO=1),            01100000
+//             DISP=(MOD,PASS)                                          01110000
+//*     TESEO FORTRAN SOURCE IN CATALOGED DATA SET:                     01120000
+//*                                          #BAZZO1.TESEO.FORT(SOURCE) 01130000
+//SYSIN     DD DSN=#BAZZO1.TESEO.FORT(SOURCE),DISP=SHR                  01140000
+//* ============================ LINK =======================           01150000
+//LKED    EXEC PGM=IEWL,                                                01160000
+//             PARM=(LIST,MAP,LET),COND=(4,LT,FORT)                     01170000
+//SYSPRINT  DD SYSOUT=*                                                 01180000
+//*         FORTRAN LIBRARIES                                           01190000
+//SYSLIB    DD DSN=SYS3.LIFORTQ,DISP=SHR                                01200000
+//          DD DSN=SYS1.FORTLIB,DISP=SHR                                01210000
+//SYSUT1    DD UNIT=SYSVIO,SPACE=(CYL,(2,1)),                           01220000
+//             DCB=(BLKSIZE=1024,BUFNO=1)                               01230000
+//SYSLMOD   DD DSN=&&GO(TEMPNAME),                                      01240000
+//             UNIT=SYSVIO,SPACE=(CYL,(2,1,1)),                         01250000
+//             DCB=(RECFM=U,BLKSIZE=6144,NCP=1),                        01260000
+//             DISP=(MOD,PASS)                                          01270000
+//SYSLIN    DD DSN=&&LOADSET,DISP=(OLD,DELETE)                          01280000
+//* =========================== RUN =========================           01290000
+//GO      EXEC PGM=*.LKED.SYSLMOD,                                      01300000
+//             COND=((4,LT,FORT),(4,LT,LKED))                           01310000
+//*                  ======================== INDEX FILES               01320000
+//FT01F001 DD   UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE),       01330000
+//             DCB=(RECFM=VBS,BLKSIZE=6160)                             01340000
+//FT02F001 DD   UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE),       01350000
+//             DCB=(RECFM=VBS,BLKSIZE=6160)                             01360000
+//FT03F001 DD   UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE),       01370000
+//             DCB=(RECFM=VBS,BLKSIZE=6160)                             01380000
+//*                  ========= INPUT   OUTPUT =======                   01390000
+//FT05F001 DD *                                                         01400000
+TITLE                                                                   01410000
+1                  TESEO SAMPLE PROBLEM                                 01420000
+TITLE                                                                   01430000
+                   ENDFB-IV DATA FOR C-12,B-10,U-235                    01440000
+TABLIN        1                                                         01450000
+C12             13   3  21  1274                                        01460000
+U235            13   3  22  1261                                        01470000
+B10             13   3  23  1273                                        01480000
+FINE                                                                    01490000
+GO                                                                      01500000
+STOP                                                                    01510000
+//FT06F001 DD SYSOUT=A                                                  01520000
+//FT11F001 DD SYSOUT=A                                                  01530000
+//FT12F001 DD DUMMY                                                     01540000
+//*       ============ ENDFB LIBRARY TO BE READ  ======                 01550000
+//FT13F001 DD DSN=#BAZZO1.TESEO.FORT(INPUT),DISP=SHR                    01560000
+//*        ========= FIRST GROUP OF INTERMEDIATE FILES ======           01570000
+//FT21F001 DD UNIT=SYSDA,SPACE=(TRK,(10,10)),                           01580000
+//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)                      01590000
+//FT22F001 DD UNIT=SYSDA,SPACE=(TRK,(10,10)),                           01600000
+//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)                      01610000
+//FT23F001 DD UNIT=SYSDA,SPACE=(TRK,(10,10)),                           01620000
+//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)                      01630000
+//*        ========= SECOND GROUP OF INTERMEDIATE FILES ======          01640000
+//FT31F001 DD   UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE),       01650000
+//             DCB=(RECFM=VBS,BLKSIZE=6160)                             01660000
+//FT33F001 DD   UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE),       01670000
+//             DCB=(RECFM=VBS,BLKSIZE=6160)                             01680000
+//FT34F001 DD   UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE),       01690000
+//             DCB=(RECFM=VBS,BLKSIZE=6160)                             01700000
+//FT35F001 DD   UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE),       01710000
+//             DCB=(RECFM=VBS,BLKSIZE=6160)                             01720000
+//FT36F001 DD   UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE),       01730000
+//             DCB=(RECFM=VBS,BLKSIZE=6160)                             01740000
+//FT37F001 DD   UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE),       01750000
+//             DCB=(RECFM=VBS,BLKSIZE=6160)                             01760000
+//FT38F001 DD   UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE),       01770000
+//             DCB=(RECFM=VBS,BLKSIZE=6160)                             01780000
+//*        ============ PRODUCED MC2-II LIBRARY =========               01790000
+//FT51F001 DD  DSN=#BAZZO1.MCC2F1,UNIT=SYSDA,DISP=(NEW,KEEP),           01800000
+//             SPACE=(TRK,(1,1)),DCB=(RECFM=VBS,BLKSIZE=6160)           01810000
+//FT53F001 DD  DSN=#BAZZO1.MCC2F3,UNIT=SYSDA,DISP=(NEW,KEEP),           01820000
+//             SPACE=(TRK,(5,5)),DCB=(RECFM=VBS,BLKSIZE=6160)           01830000
+//FT54F001 DD  DSN=#BAZZO1.MCC2F4,UNIT=SYSDA,DISP=(NEW,KEEP),           01840000
+//             SPACE=(TRK,(5,5)),DCB=(RECFM=VBS,BLKSIZE=6160)           01850000
+//FT55F001 DD  DSN=#BAZZO1.MCC2F5,UNIT=SYSDA,DISP=(NEW,KEEP),           01860000
+//             SPACE=(TRK,(5,5)),DCB=(RECFM=VBS,BLKSIZE=6160)           01870000
+//FT56F001 DD  DSN=#BAZZO1.MCC2F6,UNIT=SYSDA,DISP=(NEW,KEEP),           01880000
+//             SPACE=(TRK,(5,5)),DCB=(RECFM=VBS,BLKSIZE=6160)           01890000
+//FT57F001 DD  DSN=#BAZZO1.MCC2F7,UNIT=SYSDA,DISP=(NEW,KEEP),           01900000
+//             SPACE=(TRK,(5,5)),DCB=(RECFM=VBS,BLKSIZE=6160)           01910000
+//FT58F001 DD  DSN=#BAZZO1.MCC2F8,UNIT=SYSDA,DISP=(NEW,KEEP),           01920000
+//             SPACE=(TRK,(5,5)),DCB=(RECFM=VBS,BLKSIZE=6160)           01930000
+//*        =========== TEMPORARY FILES ================                 01940000
+//FT90F001 DD UNIT=SYSDA,SPACE=(CYL,(2,1)),DISP=(NEW,DELETE),           01950000
+//            DCB=(RECFM=VBS,BLKSIZE=3156,LRECL=3152)                   01960000
+//FT91F001 DD UNIT=SYSDA,SPACE=(CYL,(2,1)),DISP=(NEW,DELETE),           01970000
+//            DCB=(RECFM=VBS,BLKSIZE=3156,LRECL=3152)                   01980000
+//FT92F001 DD UNIT=SYSDA,SPACE=(CYL,(2,1)),DISP=(NEW,DELETE),           01990000
+//            DCB=(RECFM=VBS,BLKSIZE=3156,LRECL=3152)                   02000000
+//FT93F001 DD UNIT=SYSDA,SPACE=(CYL,(2,1)),DISP=(NEW,DELETE),           02010000
+//            DCB=(RECFM=VBS,BLKSIZE=3156,LRECL=3152)                   02020000
+//FT94F001 DD UNIT=SYSDA,SPACE=(CYL,(2,1)),DISP=(NEW,DELETE),           02030000
+//            DCB=(RECFM=VBS,BLKSIZE=3156,LRECL=3152)                   02040000
+//FT95F001 DD UNIT=SYSDA,SPACE=(CYL,(2,1)),DISP=(NEW,DELETE),           02050000
+//            DCB=(RECFM=VBS,BLKSIZE=3156,LRECL=3152)                   02060000
+//FT96F001 DD UNIT=SYSDA,SPACE=(CYL,(2,1)),DISP=(NEW,DELETE),           02070000
+//            DCB=(RECFM=VBS,BLKSIZE=3156,LRECL=3152)                   02080000
+//FT97F001 DD UNIT=SYSDA,SPACE=(CYL,(2,1)),DISP=(NEW,DELETE),           02090000
+//            DCB=(RECFM=VBS,BLKSIZE=3156,LRECL=3152)                   02100000
+//FT98F001 DD UNIT=SYSDA,SPACE=(CYL,(2,1)),DISP=(NEW,DELETE),           02110000
+//            DCB=(RECFM=VBS,BLKSIZE=3156,LRECL=3152)                   02120000
+//                                                                      02130000

diff --git a/teseo/source b/teseo/source
new file mode 100644 (file)
index 0000000..9c2ba3d
--- /dev/null
+++ b/teseo/source
@@ -0,0 +1,19663 @@
+C     ============================================================      00001000
+C     ENEA - TIB - CLEMENTEL CENTER - VIA MAZZINI 2,BOLOGNA -ITALY      00002000
+C     ============================================================      00003000
+C        ==                                                  ==         00004000
+C        ==                T  E  S E  O                      ==         00005000
+C        ==                                                  ==         00006000
+C        ======================================================         00007000
+C        == A CODE WHICH PROCESS ENDFB OR JEF DATA TO OBTAIN ==         00008000
+C        == EIGTH BINARY LIBRARY FILES FOR THE MC2-2 CODE    ==         00009000
+C        ======================================================         00010000
+C        ==                                                  ==         00011000
+C        ==            AUTHOR :   MARCELLO GALLI             ==         00012000
+C        ==            DATE   :   13- 8 - 1987               ==         00013005
+C        ==                                                  ==         00014000
+C        ==                                                  ==         00015000
+C        ======================================================         00016000
+C                                                                       00017000
+C                                                                       00018000
+C           MAIN PROGRAM                                                00019000
+C                                                                       00020000
+C       THE MAIN PROGRAM DEFINES THE DIMENSION OF THE BLANK COMMON      00021000
+C       AND THE AREA IN THE BLANK COMMON WHICH WILL BE USED BY THE      00022000
+C       SLAVE3 ROUTINES TO STORE ENDFB OR JEF RECORDS                   00023000
+C                                                                       00024000
+C       TO CHANGE THE AMOUNT OF SPACE AVAILABLE TO TESEO YOU            00025000
+C       MUST CHANGE THE FOLLOWING STATEMENTS:                           00026000
+C             COMMON MAXA,AD( ... )                                     00027000
+C             MAD= ...                                                  00028000
+C       TO CHANGE THE AMOUNT OF SPACE AVAILABLE TO SLAVE3 ROUTINES      00029000
+C       YOU MUST CHANGE THE STATEMENTS:                                 00030000
+C             N2X= ....                                                 00031000
+C             MX = ....                                                 00032000
+C             JX = ....                                                 00033000
+C             N1X= ....  IF YOU CHANGE N1X YOU MUST CHANGE ALSO         00034000
+C        THE DIMENSION OF NBT AND JNT IN COMMON RECS THROUGHOUT         00035000
+C        ALL THE CODE.                                                  00036000
+C                                                                       00037000
+C        -------------------------------------------------------        00038000
+C                                                                       00039000
+            COMMON MAXA,AD(800000)                                      00040000
+            COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),           00041000
+     1      JNT(200),N1X,N2X,NS,LX,LY,LB                                00042000
+            COMMON/DENS/JMT,JAT,JTT,JLT,LA,JNS,MNS,JX,MX                00043000
+C                                                                       00044000
+C           RECS AND DENS COMMONS ARE USED BY THE SLAVE3 ROUTINES       00045000
+C           BY HONEK ( BNL 50300 - ENDF 110 - (1971) )  THE ORIGINAL    00046000
+C           SLAVE3 ROUTINES HAVE BEEN MODIFIED BY G.C.PANINI TO         00047000
+C           ALLOW THE DINAMICAL ALLOCATION OF RECS AND DENS COMMONS.    00048000
+C           THESE COMMONS CONTAIN NOW ONLY THE POINTERS TO THE BLANK    00049000
+C           COMMON IN WHICH ENDFB RECORDS ARE STORED.                   00050000
+C                                                                       00051000
+C                                                                       00052000
+C          MAD = NUMBER OF WORDS IN BLANK COMMON AREA                   00053000
+C          MAXA= NUMBER OF WORDS USED BY SLAVE3 ROUTINES (COMPUTED      00054000
+C                BY THIS MAIN ROTINE)                                   00055000
+C          MA  = NUMBER OF WORDS IN BLANK COMMON AVAILABLE TO TESEO     00056000
+C                (COMPUTED BY THIS MAIN ROUTINE)                        00057000
+C                                                                       00058000
+         MAD=800000                                                     00059000
+C                                                                       00060000
+C                                                                       00061000
+C            N1X= MAXIMUM NUMBER OF INTERPOLATION RANGES IN ENDFB       00062000
+C                 RECORDS . THIS NUMBER MUST MATCH THE  IMENSIONS OF    00063000
+C                 JNT AND NBT IN RECS COMMON THROUGHT THE WHOLE CODE    00064000
+C            N2X= MAXIMUM NUMBER OF TABULATED POINT IN ENDFB RECORDS    00065000
+C            MX = MAXIMUM NUMBER OF ENDFB RECORDS WHICH CAN BE STORED   00066000
+C                 IN BLANK COMMON AT THE SAME TIME                      00067000
+C            JX = SPACE IN BLANK COMMON TO STORE ENDFB RECORDS          00068000
+C                                                                       00069000
+C                                                                       00070000
+           N1X=200                                                      00071000
+           N2X=70000                                                    00072000
+           MX=400                                                       00073000
+           JX=200000                                                    00074000
+C                                                                       00075000
+C          DEFINE POINTERS IN BLANK COMMON FOR RECS COMMON SIMULATION   00076000
+           LX=1                                                         00077000
+           LY=LX+N2X                                                    00078000
+           LB=LY+N2X                                                    00079000
+C          DEFINE POINTERS IN BLANK COMMON FOR DENS COMMON SIMULATION   00080000
+           JMT=LB+N2X                                                   00081000
+           JAT=JMT+MX                                                   00082000
+           JTT=JAT+MX                                                   00083000
+           JLT=JTT+MX                                                   00084000
+           LA=JLT+MX                                                    00085000
+C                                                                       00086000
+           MAXA=LA+JX                                                   00087000
+C               YOU MUST HAVE:                                          00088000
+C          MAXA=3*N2X+4*MX+JX .LT. MAD   ; OR TESEO WILL NOT BE ABLE    00089000
+C                                   TO ALLOCATE SPACE IN BLANK COMMON   00090000
+           IF(MAXA.GT.MAD)  CALL ERR(8HMAIN        ,0)                  00091000
+C                                                                       00092000
+C                                                                       00093000
+                     LAA=MAXA+1                                         00094000
+                     MA=MAD-MAXA                                        00095000
+                 CALL GELIB(MA,AD(LAA))                                 00096000
+C                                                                       00097000
+            STOP                                                        00098000
+            END                                                         00099000
+      SUBROUTINE GELIB(MA,A)                                            00100000
+C     ****************************************************************  00101000
+C         THIS ROUTINE IS THE FIRST ROUTINE OF THE TESEO CODE. IT       00102000
+C     READS INPUT COMMANDS AND CALL SUBROUTINES TO PERFORM CALCULATION  00103000
+C     ***************************************************************   00104000
+C     ============================================================      00105000
+C     ENEA - TIB - CLEMENTEL CENTER - VIA MAZZINI 2,BOLOGNA -ITALY      00106000
+C     ============================================================      00107000
+C        ==                                                  ==         00108000
+C        ==                T  E  S E  O                      ==         00109000
+C        ==                                                  ==         00110000
+C        ======================================================         00111000
+C        == A CODE WHICH PROCESS ENDFB OR JEF DATA TO OBTAIN ==         00112000
+C        == EIGTH BINARY LIBRARY FILES FOR THE MC2-2 CODE    ==         00113000
+C        ======================================================         00114000
+C        ==                                                  ==         00115000
+C        ==            AUTHOR :   MARCELLO GALLI             ==         00116000
+C        ==            DATE   :   13 - 8 - 1987               ==        00117005
+C        ==                                                  ==         00118000
+C        ==                                                  ==         00119000
+C        ======================================================         00120000
+C                                                                       00121000
+       DIMENSION A(MA)                                                  00122000
+       DIMENSION TITL(20)                                               00123000
+C                                                                       00124000
+C            ::::::::::::::::::::::::::::::::::::::::::                 00125000
+C            THIS COMMON CONTAINS THE INPUT COMMAND                     00126000
+       REAL*8C                                                          00127000
+       COMMON /COMM/C,IC(6),AC(4)                                       00128000
+C              :::::::::::::::::::::::::::::::::::::::::::::::::::      00129000
+C              THIS COMMON CONTAIN THE LOGICAL UNIT SPECIFICATIONS      00130000
+       COMMON/FILES/NT(4,99)                                            00131000
+       EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))               00132000
+C                                                                       00133000
+C      FILES: NT(1,.)= LOGICAL NUMBER                                   00134000
+C             NT(2,.)= FIRST RECORD (NO MORE USED)                      00135000
+C             NT(3,.)= FIRST RECORD AVAILABLE                           00136000
+C             NT(4,.)= CURRENT RECORD                                   00137000
+C                                                                       00138000
+C               ::::::::::::::::::::::::::::::::::::::::::::            00139000
+C               THIS COMMON CONTAINS THE CALCULATION OPTIONS            00140000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        00141000
+C                                                                       00142000
+C      OPZ= OPTION( PART 1,2 ..   ; FILE MCC2F1,2 ..  ; OPTION)         00143000
+C                                                                       00144000
+C                                                                       00145000
+C               :::::::::::::::::::::::::::::::::::::::::::::::::       00146000
+C               THIS COMMON CONTAINS DIMENSIONS OF ARRAYS               00147000
+       COMMON/DIM/M(5)                                                  00148000
+C      DIMENSIONI EFFETTIVE DI VARIE MATRICI :                          00149000
+C              M(1)=DIMENSION OF THE INPUT TABLE OF PART ONE            00150000
+C              M(2)=DIMENSION OF THE INDEX OF FIRST INTERMEDIATE FILES  00151000
+C              M(3)=DIMENSION OF THE INPUT TABLE OF PART TWO            00152000
+C              M(4)=DIMENSION OF THE INDEX OF SECOND INTERMEDIATE FILE  00153000
+C              M(5)=DIMENSION OF THE INPUT TABLE OF PART THREE          00154000
+C                                                                       00155000
+C               ::::::::::::::::::::::::::::::::::::::::::::::::        00156000
+C               THIS COMMON CONTAINS DIMENSIONS OF ARRAYS               00157000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     00158000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     00159000
+C                                                                       00160000
+C      DIMENSION OF COMMON ARRAYS:                                      00161000
+C     MMA= DIMENSIONI DI A (FISICAMENTE NEL BLANK COMMON,DOPO A(MAXA))  00162000
+C     INDX(MINDX1,MINDX2)                                               00163000
+C     MIX(MMIX1,MMIX2)                                                  00164000
+C     OPZ(MOPZ1,MOPZ2,MOPZ3)                                            00165000
+C     M(MM)                                                             00166000
+C      NT(MNT1,MNT2)                                                    00167000
+C      INDX1(MIND11,MIND12)                                             00168000
+C      /DENS/ JMT,JAT,JTT,JLT (MX=MMX)                                  00169000
+C             A(JX=MJX)                                                 00170000
+C      /RECS/NBT,JNT(N1X=MNX1)                                          00171000
+C             X,Y,B (N2X=MN2X)                                          00172000
+C                                                                       00173000
+C                                                                       00174000
+C                                                                       00175000
+C             ::::::::::::::::::::::::::::::::::::::::::::::::::        00176000
+C             THIS COMMON CONTAIN THE WORKING SPACE FOR TESEO AND SLAVE300177000
+C               MAXA IS THE DIMENSION OF SLAVE3 WORKING SPACE           00178000
+C                                                                       00179000
+       COMMON MAXA,ADD(1)                                               00180000
+C                                                                       00181000
+C              :::::::::::::::::::::::::::::::::::::::::::::::::        00182000
+C                                                                       00183000
+C       COMMON DENS OF SLAVE3:JMT=IDENT,JAT=LOC INIZ,JTT=TIPO REC,JNS=PR00184000
+C       VUOTO IN A,MNS=PRIMO VUOTO IN JAT,JTT ECC, MNS=DIM DI A ,MX=DIM 00185000
+C       JMT ECC                                                         00186000
+C                                                                       00187000
+       COMMON/DENS/JMT,JAT,JTT,JLT,LV,JNS,MNS,                          00188000
+     1JX,MX                                                             00189000
+C                                                                       00190000
+C     QUESTO COMMON CONTIENE IL RECORD ENDFB LETTO DA RREC E SCRITTO    00191000
+C     DA WREC ( SUBROUTINES DI SLAVE3 DI BNL ( HONEK)                   00192000
+C     LX,LY,LB SONO PUNTATORI NEL BLANK COMMON DEGLI SPAZI X,Y,B        00193000
+C     DEL COMMON DENS DI SLAVE3 ( MODIFICHE DI PANINI PER ALLOCAZIONI   00194000
+C     DINAMICHE )                                                       00195000
+C                                                                       00196000
+C                                                                       00197000
+C              :::::::::::::::::::::::::::::::::::::::::::::::::::      00198000
+C     COMMON RESC OF SLAVE3  : MAT=MATERIALE,MF=FILE ENDFB              00199000
+C                                      MT=REAZIONE                      00200000
+C                 C1,C2,L1,L2,N1,N1=PARAMETRI                           00201000
+C                 NBT=INIZIO APPLICAZ CODICE INTERPOLAZIONE             00202000
+C                 JNT=CODICE DI INTERPOLAZIONE                          00203000
+C                 N1X=DIMENSIONI DI NBT,JNT                             00204000
+C                 N2X=DIM  DI X,Y,B                                     00205000
+C                 NS=NUMERO DI SEQUENZA DELLA SCHEDA                    00206000
+C                 X,Y : COPPIE DI Y(X) TABULATE                         00207000
+C                  B: PARAMETRI DEL RECORD LIST                         00208000
+C                 PER PERMETTERE ALLOCAZIONI DINAMICHE NEL COMMON       00209000
+C                 SONO STATI MESSI LX ED LY ED LB: PUNTATORI DI         00210000
+C                 X,Y,B NEL BLANK COMMON                                00211000
+C                                                                       00212000
+      COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),       00213000
+     1N1X,N2X,NS,LX,LY,LB                                               00214000
+C                                                                       00215000
+C      ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::;      00216000
+C      INDEX OF THE FIRST INTERMEDIATE FILES OR READ  INTERM. FILES     00217000
+       COMMON /INDX/INDX(40,200)                                        00218000
+C             :::::::::::::::::::::::::::::::::::::::::::::::::::::     00219000
+C             THIS COMMON CONTAINS THE INPUT TABLE                      00220000
+       COMMON /MIX/MIX(15,300)                                          00221003
+C                                                                       00222000
+C       ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::  00223000
+C       INDEX OF THE PRODUCED INTERMEDIATE FILES (OR SECOND INT. FILES  00224000
+       COMMON /INDX1/INDX1(40,200)                                      00225000
+C                                                                       00226000
+C       ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::  00227000
+C       THIS COMMON CONTAINS THE FIRST RECORD OF MCC2F1 PRODUCED FILE   00228000
+      COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX,    00229000
+     1ETOP,DELTAU,MANY1,MMAT,NMAX                                       00230000
+C                                                                       00231000
+C     ==========================================================        00232000
+C     ==========================================================        00233000
+C      ACCEPTED COMMANDS:                                               00234000
+C                                                                       00235000
+       REAL *8 COM(24)                                                  00236000
+       DATA COM/8HSTOP    ,8HFILE    ,8HFILESHOW,8HTABLIN  ,8HP1        00237000
+     1,8HOPTION        ,8HSKIPE   ,8HP2      ,8HP3      ,8HP4           00238000
+     2,8HLOADIND ,8HSAVIND  ,8HINPUTSHO,8HMIXIND  ,8HREW     ,          00239000
+     3 8HFINE    ,8HEND     ,8HTITLE   ,8HPART2   ,8HPART3   ,          00240000
+     4 8HPART4   ,8HMERGE   ,8HMCC2F2  ,8HGO      /                     00241000
+C      REMEMBER TO CHANGE MCOM IF YOU ADD COMMANDS !!                   00242000
+C      ---------------------------------------------                    00243000
+C                                                                       00244000
+C      FIX DIMENSION PARAMETERS:                                        00245000
+C                                                                       00246000
+       MNT1=4                                                           00247000
+       MNT2=99                                                          00248000
+C      N1X=100             FIXED BY  MAIN                               00249000
+C      N2X=2000            FIXED BY  MAIN                               00250000
+       MN1X=N1X                                                         00251000
+       MN2X=N2X                                                         00252000
+C      JX=5000             LO FISSA IL MAIN                             00253000
+C      MX=100              LO FISSA IL MAIN                             00254000
+       MJX=JX                                                           00255000
+       MMX=MX                                                           00256000
+       MMA=MA                                                           00257000
+       MINDX1=40                                                        00258000
+       MINDX2=200                                                       00259000
+       MMIX1=15                                                         00260000
+       MMIX2=300                                                        00261003
+       MM=5                                                             00262000
+       MIND11=40                                                        00263000
+       MIND12=200                                                       00264000
+       MOPZ1=4                                                          00265000
+       MOPZ2=8                                                          00266000
+       MOPZ3=10                                                         00267000
+       MCOM=24                                                          00268000
+C      MCOM=NUMBER OF COMMANDS, (REALMENTE MAI USATO DAL PROGRAMMA)     00269000
+C                                                                       00270000
+C                                                                       00271000
+C       SET ARRAYS EQUAL TO ZERO                                        00272000
+       CALL RIEMP(0,MA,A)                                               00273000
+       CALL RIEMP(0,MM,M)                                               00274000
+       CALL RIEMP(0,MINDX1*MINDX2,INDX)                                 00275000
+       CALL RIEMP(0,MMIX1*MMIX2,MIX)                                    00276000
+       CALL RIEMP(0,MIND11*MIND12,INDX1)                                00277000
+C                                                                       00278000
+C       INITIALIZE OPTION COMMON AND FILE SPECIFICATION COMMON          00279000
+       CALL TABNIZ(MNT1,MNT2,NT,MOPZ1,MOPZ2,MOPZ3,OPZ)                  00280000
+C                                                                       00281000
+C        CONTROL OF DIMENSION OF BLANK COMMON                           00282000
+           IF(MA.LT.1) CALL ERR(8HGELIB     ,10)                        00283000
+C                                                                       00284000
+C      ............................ LOOP ON COMMANDS                    00285000
+ 10    CONTINUE                                                         00286000
+C                                                                       00287000
+              K1=1                                                      00288000
+              K2=1                                                      00289000
+              K3=6                                                      00290000
+              K4=4                                                      00291000
+C                                                                       00292000
+       CALL COMMR(K1,NI,NO,NP,K2,C,K3,IC,K4,AC)                         00293000
+C                                                                       00294000
+C                   LOOK FOR COMMAND                                    00295000
+       IF(C.EQ.COM(1).OR.C.EQ.COM(16).OR.C.EQ.COM(17)) STOP             00296000
+C       ----------------------------------------------------            00297000
+C       ==GO      == COMPLETE RUN : PART 1 + PART 2 + PART 3            00298000
+       IF(C.NE.COM(24)) GO TO 501                                       00299000
+        IC(1)=0                                                         00300000
+        IC(2)=0                                                         00301000
+        IC(3)=0                                                         00302000
+        IC(4)=0                                                         00303000
+        IC(5)=0                                                         00304000
+        IC(6)=0                                                         00305000
+        GO TO 124                                                       00306000
+ 501   IF(C.NE.COM(2)) GO TO 502                                        00307000
+C                                                                       00308000
+C       ==FILE    =  FILE DEFINITION  : NT(   )=IC( )                   00309000
+C       -----------------------------------------------------           00310000
+C                                                                       00311000
+       DO 20 I=1,MNT1                                                   00312000
+       NT(I,IC(1))=IC(I+1)                                              00313000
+ 20    CONTINUE                                                         00314000
+       GO TO 10                                                         00315000
+C                                                                       00316000
+ 502   CONTINUE                                                         00317000
+       IF(C.NE.COM(3)) GO TO 503                                        00318000
+C                                                                       00319000
+C       ==FILESHOW==  PRINT  FILES : NT(    )                           00320000
+C       ------------------------------------------------------------    00321000
+C                                                                       00322000
+       DO 25 I=1,MNT2                                                   00323000
+       WRITE(NO,4000)I,(NT(J,I),J=1,MNT1)                               00324000
+ 4000  FORMAT(' NUMBER:',I4,' LOGICAL NUMBER:',I4,' BEGINS AT RECORD:', 00325000
+     1I4,' FIRST AVAILABLE RECORD:',I4,' POSITION:',I4)                 00326000
+ 25    CONTINUE                                                         00327000
+       GOTO 10                                                          00328000
+ 503   CONTINUE                                                         00329000
+       IF(C.NE.COM(4)) GO TO 504                                        00330000
+C                                                                       00331000
+C       ==TABLIN  =  INPUT TABLE PART: IC(1)                            00332000
+C       -----------------------------------------------                 00333000
+               IF(IC(1).LE.0) IC(1)=1                                   00334000
+C                                                                       00335000
+       CALL RDMIX(IC(1))                                                00336000
+       GO TO 10                                                         00337000
+ 504   CONTINUE                                                         00338000
+       IF(C.NE.COM(5)) GO TO 505                                        00339000
+C                                                                       00340000
+C       ==P1      =      P A R T      O N E                             00341000
+C      ------------------------------------------------------           00342000
+C      READ AND SELECT ENDFB FILES, PRODUCES FIRST INTERMEDIATE FILES   00343000
+C                                                                       00344000
+ 124   CALL P1(MA,A)                                                    00345000
+        IF(C.EQ.COM(24)) GO TO 224                                      00346000
+       GO TO 10                                                         00347000
+ 505   CONTINUE                                                         00348000
+       IF(C.NE.COM(6)) GO TO 506                                        00349000
+        OPZ(IC(1),IC(2),IC(3))=AC(1)                                    00350000
+C                                                                       00351000
+C       ==OPTION  =          FIX CALCULATION OPTION                     00352000
+C       -----------------------------------------------------           00353000
+C                                                                       00354000
+        WRITE(NO,4010) IC(1),IC(2),IC(3),AC(1)                          00355000
+ 4010   FORMAT(' OPTION OPZ(',I4,',',I4,',',I4,') SET  =',E12.5)        00356000
+        WRITE(NP,4010) IC(1),IC(2),IC(3),AC(1)                          00357000
+       GO TO 10                                                         00358000
+ 506    CONTINUE                                                        00359000
+        IF(C.NE.COM(7)) GOTO 507                                        00360000
+C                                                                       00361000
+C       ==SKIPE   ==    SKIP  MATERIALS OR FILES ON ENDFB TAPE          00362000
+C       --------------------------------------------------------        00363000
+C                                                                       00364000
+      IF(IC(1).LE.0.OR.IC(1).GT.99) GO TO 507                           00365000
+        CALL SKIPE(NT(1,IC(1)),IC(2),IC(3),NDM)                         00366000
+        NT(4,IC(1))=NT(4,IC(1))+NDM                                     00367000
+        WRITE(NO,4020) IC(1),IC(2),IC(3),NDM,(NT(J,IC(1)),J=1,MNT1)     00368000
+        WRITE(NP,4020) IC(1),IC(2),IC(3),NDM,(NT(J,IC(1)),J=1,MNT1)     00369000
+ 4020   FORMAT('  TAPE:',I5,' MF:',I5,' MT:',I5,' RECORDS:',            00370000
+     1 I5,' TAPE DESC:',(1X,4I6))                                       00371000
+        GO TO 10                                                        00372000
+ 507    CONTINUE                                                        00373000
+C                                                                       00374000
+          IF(C.NE.COM(8)) GO TO508                                      00375000
+C                                                                       00376000
+C          ==P2      == P A R T     T W O                               00377000
+C          COMPUTATIONS AND PRODUCTION OF SECOND INTERMEDIATE FILES     00378000
+C       --------------------------------------------------------------- 00379000
+C                                                                       00380000
+C       FORCES P2 TO REWIND ALL FILES                                   00381000
+        CALL FORCRW                                                     00382000
+C                                                                       00383000
+         CALL P2(MA,A)                                                  00384000
+         GO TO10                                                        00385000
+ 508         CONTINUE                                                   00386000
+         IF(C.NE.COM(9)) GO TO 509                                      00387000
+C        ==P3      ==               P A R T     T H R E E               00388000
+C                WRITES MC2-2 LIBRARY FILES                             00389000
+C       --------------------------------------------------------        00390000
+C                                                                       00391000
+C       FORCES P3 TO REWIND ALL FILES                                   00392000
+        CALL FORCRW                                                     00393000
+C                                                                       00394000
+C         TO P3 AND P4 ALL THE BLANK COMMON IS MADE AVAILABLE,THEY DO   00395000
+C         NOT USE  /RECS/ E /DENS/ COMMONS OF SLAVE3 ROUTINES           00396000
+           MAXXA=MAXA+MA                                                00397000
+         CALL P3(MAXXA,ADD(1),MIND11,MIND12,INDX1)                      00398000
+         GOTO 10                                                        00399000
+ 509         CONTINUE                                                   00400000
+         IF(C.NE.COM(10)) GOTO510                                       00401000
+C                                                                       00402000
+C        ==P4      ==      P A R T      F O U R                         00403000
+C        DISMOUNT A FILE OF THE MC2-2 LIBRARY                           00404000
+C       --------------------------------------------------------        00405000
+C                                                                       00406000
+C       FORCES P4 TO REWIND ALL FILES                                   00407000
+        CALL FORCRW                                                     00408000
+C                                                                       00409000
+C          A P3 E P4 VIENE PASSATO TUTTO IL BLANK COMMON,NON USANO      00410000
+C          /RECS/ E /DENS/ DI SLAVE3                                    00411000
+           MAXXA=MAXA+MA                                                00412000
+         CALL P4(MAXXA,ADD(1) )                                         00413000
+         GOTO10                                                         00414000
+ 510  CONTINUE                                                          00415000
+       IF(C.NE.COM(11)) GO TO511                                        00416000
+C                                                                       00417000
+C      ==LOADIND == FILL /INDX/ OR /INDX1/ COMMON WITH INDEXOF INT.FILE 00418000
+C       -------------------------------------------------------------   00419000
+C                                                                       00420000
+C           M(I) :DIMENSION OF INDEX  :I=1 FOR FIRST INTERMEDIATE FILES 00421000
+C                                     :I=4 FOR SECOND INTERMEDIATE FILES00422000
+C           IC(2):UNIT TO BE READ : =2 FOR FIRST INTERMEDIATE FILES     00423000
+C                                 : =3 FOR SECOND INTERMEDIATE FILES    00424000
+       IF(IC(1).LE.0) IC(1)=1                                           00425000
+       K=1                                                              00426000
+       IF(IC(1).EQ.2) K=2                                               00427000
+       IF(IC(2).LE.0) IC(2)=1+K                                         00428000
+       IF(K.EQ.1) CALL LOADIN(M(2),IC(2),IC(3),IC(4),MINDX1,MINDX2,INDX)00429000
+       IF(K.EQ.2)CALL LOADIN(M(4),IC(2),IC(3),IC(4),MIND11,MIND12,INDX1)00430000
+       GOTO10                                                           00431000
+ 511   CONTINUE                                                         00432000
+       IF(C.NE.COM(12)) GOTO512                                         00433000
+C                                                                       00434000
+C      ==SAVIND ==     SAVE /INDX/  OR /INDX1/  ON FILE                 00435000
+C       -----------------------------------------------------------     00436000
+C                                                                       00437000
+       K=IC(1)                                                          00438000
+       IF(K.LE.0) K=1                                                   00439000
+       KK1=IC(2)                                                        00440000
+       IF(IC(2).GT.0) GO TO 100                                         00441000
+       KK1=2                                                            00442000
+       IF(K.EQ.2) KK1=3                                                 00443000
+ 100   CONTINUE                                                         00444000
+       IF(K.EQ.1) CALL SAVI(KK1,MINDX1,M(2),INDX)                       00445000
+       IF(K.EQ.2) CALL SAVI(KK1,MIND11,M(4),INDX1)                      00446000
+       GO TO 10                                                         00447000
+ 512   CONTINUE                                                         00448000
+         IF(C.NE.COM(13)) GO TO 513                                     00449000
+C                                                                       00450000
+C      ==INPUTSHO==       PRINT INPUT  TABLE                            00451000
+C       ----------------------------------------------------            00452000
+C                                                                       00453000
+       IF(IC(1).LE.0) IC(1)=1                                           00454000
+         NOOO=IC(2)                                                     00455000
+         IF(NOOO.LT.1) NOOO=6                                           00456000
+         NOOO=NT(1,NOOO)                                                00457000
+         CALL MIXSHO(IC(1),NOOO)                                        00458000
+            GOTO 10                                                     00459000
+ 513     CONTINUE                                                       00460000
+       IF(C.NE.COM(14))GO TO 514                                        00461000
+C                                                                       00462000
+C      ==MIXIND  ==       EDITOR OF THE INDEX IN /INDX/ /INDX1/ OR A(.) 00463000
+C       ----------------------------------------------------------------00464000
+C                                                                       00465000
+       IF(IC(1).LE.0) IC(1)=1                                           00466000
+       K=2                                                              00467000
+       IF(IC(1).EQ.2) K=4                                               00468000
+       IF(K.EQ.2) CALL MIXIND(M(2),MINDX1,MINDX2,INDX)                  00469000
+       IF(K.EQ.4)CALL MIXIND(M(4),MIND11,MIND12,INDX1)                  00470000
+       MAAA=MA/MINDX1                                                   00471000
+       IF(K.EQ.20) CALL MIXIND(M(2),MINDX1,MAAA,ADD(1))                 00472000
+       IF(K.EQ.40) CALL MIXIND(M(4),MIND11,MAAA,ADD(1))                 00473000
+             GOTO10                                                     00474000
+ 514   CONTINUE                                                         00475000
+       IF(C.NE.COM(15) ) GO TO 515                                      00476000
+C                                                                       00477000
+C      ==REW     ==      REWIND FILE                                    00478000
+C       ---------------------------------------------------             00479000
+C                                                                       00480000
+       IF(IC(1).LE.0) GO TO 10                                          00481000
+       CALL REW(IC(1))                                                  00482000
+       GO TO 10                                                         00483000
+ 515   CONTINUE                                                         00484000
+       IF(C.NE.COM(18)) GO TO 516                                       00485000
+C                                                                       00486000
+C      ==TITLE   ==      READ AND PRINT A TITLE CARD                    00487000
+C       ---------------------------------------------------             00488000
+C                                                                       00489000
+       READ(NI,6000) (TITL(J),J=1,20)                                   00490000
+ 6000  FORMAT(20A4)                                                     00491000
+       WRITE(NO,6000) (TITL(J),J=1,20)                                  00492000
+       GO TO 10                                                         00493000
+ 516   CONTINUE                                                         00494000
+        IF(C.NE.COM(19)) GO TO 517                                      00495000
+C                                                                       00496000
+C                      P A R T   T W O  (FOR A GREAT NUMBER OF MATERIALS00497000
+C      ==PART2   ==       A STEP FOR EACH MATERIAL(REORDERING MATERIALS)00498000
+C       ----------------------------------------------------------------00499000
+C                                                                       00500000
+ 224    CONTINUE                                                        00501000
+C       FORCES P2 TO REWIND ALL FILES                                   00502000
+        CALL FORCRW                                                     00503000
+C                                                                       00504000
+C        INPUT INDEX FILE                                               00505000
+        NTAP=2                                                          00506000
+        IF(IC(2).GT.0.AND.IC(2).LE.99) NTAP=IC(2)                       00507000
+C        SCRATCH FILE FOR INDEX                                         00508000
+        NTAP0=1                                                         00509000
+        IF(IC(1).GT.0.AND.IC(1).LE.99) NTAP0=IC(1)                      00510000
+C       NTP=NT(1,NTAP)                                                  00511000
+C       NTP0=NT(1,NTAP0)                                                00512000
+C                                                                       00513000
+        LKMA=MA/MINDX1                                                  00514000
+        K0=0                                                            00515000
+        K1=1                                                            00516000
+        CALL LOADIN(MIND,NTAP,K1,K0,MINDX1,LKMA,A)                      00517000
+        LIMIT=MINDX1*MIND+1                                             00518000
+        CALL ORDMD(35,KB,MINDX1,MIND,A,A(LIMIT))                        00519000
+C        IN A(LIMIT) INDEX OF INDEX: A8:NOME,INIZIO,DIMENSIONE          00520000
+        IF(4*KB.GT.MA-LIMIT) CALL ERR(8HGELIB     ,516)                 00521000
+        CALL REW(NTAP0)                                                 00522000
+C                                                                       00523000
+        DO  56 I=1,KB                                                   00524000
+C        BEGINNING OF MATERIAL                                          00525000
+        LNKKK=4*(I-1)+LIMIT-1                                           00526000
+        NK1=NAREAL(A(LNKKK+3))                                          00527000
+C        DIMENSION OF INDEX OF MATERIAL                                 00528000
+        NK2=NAREAL(A(LNKKK+4))                                          00529000
+C        LAST VALUE OF MATERIAL                                         00530000
+        NK3=NK1+NK2-1                                                   00531000
+        CALL SAVI(NTAP0,MINDX1,NK2,A((NK1-1)*MINDX1+1))                 00532000
+        WRITE(NP,9016) NTAP0,A(LNKKK+1),A(LNKKK+2),                     00533000
+     1  NK1,NK3                                                         00534000
+ 9016   FORMAT(' WRITTEN ON TAPE:',I5,' INDEX OF:',2A4,' FROM:',I5,     00535000
+     1          ' TO:',I5)                                              00536000
+ 56     CONTINUE                                                        00537000
+        CALL REW(NTAP0)                                                 00538000
+        DO 57 I=1,KB                                                    00539000
+        CALL LOADI1(M(2),NTAP0,MINDX1,MINDX2,INDX)                      00540000
+        CALL P2(MA,A)                                                   00541000
+ 57     CONTINUE                                                        00542000
+        IF(C.EQ.COM(24)) GO TO 324                                      00543000
+        GO TO 10                                                        00544000
+ 517    CONTINUE                                                        00545000
+        IF(C.NE.COM(20)) GO TO 518                                      00546000
+C                                                                       00547000
+C              P A R T   T H R E E    ( FOR A GRAT NUMBER OF MATERIALS )00548000
+C      ==PART3   ==       INDEX STORED IN ADD(.) (BLANK COMMON)         00549000
+C       ----------------------------------------------------------------00550000
+C                                                                       00551000
+ 324    CONTINUE                                                        00552000
+C       FORCES P3 TO REWIND ALL FILES                                   00553000
+        CALL FORCRW                                                     00554000
+C                                                                       00555000
+        K1=3                                                            00556000
+C                 TAPE                                                  00557000
+        IF(IC(1).GT.0) K1=IC(1)                                         00558000
+C                                                                       00559000
+        K2=1                                                            00560000
+C                 POSITION IN ADD(.)                                    00561000
+        IF(IC(2).GT.0) K2=IC(2)                                         00562000
+        K3=0                                                            00563000
+C                 NUMBER OF INDEX IN FILE (IF 0 => ALL FILE LOADED)     00564000
+        IF(IC(3).GT.0) K3=IC(3)                                         00565000
+C                                                                       00566000
+        MIND13=(MAXA+MA)/MIND11                                         00567000
+        CALL LOADIN(M(4),K1,K2,K3,MIND11,MIND13,ADD(1))                 00568000
+C        CARICA IN A L'INDICE                                           00569000
+ 200    MAXXA=MAXA+MA-M(4)*MIND11                                       00570000
+        IF(MAXXA.LE.0) CALL ERR(8HGELIB       ,517)                     00571000
+        LIMIT=M(4)*MIND11+1                                             00572000
+        MMM11=M(4)                                                      00573000
+        CALL P3(MAXXA,ADD(LIMIT),MIND11,MMM11,ADD(1))                   00574000
+        GO TO 10                                                        00575000
+ 518    CONTINUE                                                        00576000
+        IF(C.NE.COM(21)) GO TO 519                                      00577000
+C                                                                       00578000
+C        ==PART4   ==      P A R T      F O U R (ALL MC2-2 FILES)       00579000
+C                   DISMOUNT THE WHOLE MC2-2 LIBRARY                    00580000
+C       --------------------------------------------------------        00581000
+C                                                                       00582000
+C       FORCES P4 TO REWIND ALL FILES                                   00583000
+        CALL FORCRW                                                     00584000
+C                                                                       00585000
+        MAXXA=MAXA+MA                                                   00586000
+        IC(1)=0                                                         00587000
+        IC(2)=0                                                         00588000
+        IC(3)=0                                                         00589000
+        CALL P4(MAXXA,ADD(1))                                           00590000
+        GO TO 10                                                        00591000
+ 519    CONTINUE                                                        00592000
+        IF(C.NE.COM(22)) GO TO 520                                      00593000
+C                                                                       00594000
+C       ==MERGE   ==          MERGING OF NEW AND OLD MC2-2 LIBRARY      00595000
+C       --------------------------------------------------------------- 00596000
+C                                                                       00597000
+        MIND13=MAXA+MA/MIND11                                           00598000
+        K1=1                                                            00599000
+        IF(AC(1).GT.0.) K1=AC(1)                                        00600000
+        ICTOT=0                                                         00601000
+        K0=0                                                            00602000
+C       .... LOOP SUI POSSIBILI IC(.)   6 IC IN TOTALE IN /COMM/        00603000
+        DO 58 I=1,6                                                     00604000
+        IF(IC(I).LE.0) GO TO 58                                         00605000
+        ICTOT=ICTOT+1                                                   00606000
+        NTPK=IC(I)                                                      00607000
+        CALL LOADIN(M(4),NTPK,K1,K0,MIND11,MIND13,ADD(1))               00608000
+        K1=M(4)+1                                                       00609000
+ 58     CONTINUE                                                        00610000
+        IF(ICTOT.GT.0) GO TO 220                                        00611000
+C            DEFAULT : READ FROM 3 AND 4                                00612000
+        NTPK=3                                                          00613000
+        CALL LOADIN(M(4),NTPK,K1,K0,MIND11,MIND13,ADD(1))               00614000
+        NTPK=4                                                          00615000
+        K1=M(4)+1                                                       00616000
+        CALL LOADIN(M(4),NTPK,K1,K0,MIND11,MIND13,ADD(1))               00617000
+ 220     GO TO 200                                                      00618000
+ 520     CONTINUE                                                       00619000
+        IF(C.NE.COM(23)) GO TO 521                                      00620000
+C                                                                       00621000
+C       ==MCC2F2  =        WRITES MCC2F2 FILE CONTAINING TABULATED DATA 00622000
+C       ----------------------------------------------------------------00623000
+C                                                                       00624000
+        NTPE=IC(1)                                                      00625000
+        IF(NTPE.LE.0) NTPE=52                                           00626000
+C                  IC(1)=NTPE=OUTPUT FILE                               00627000
+        CALL FTABLE(NTPE,NO,NP,MA,A)                                    00628000
+        GO TO 10                                                        00629000
+ 521    CONTINUE                                                        00630000
+C            -------------------------------------                      00631000
+C                                                                       00632000
+C              YOU CAN INSERT HERE NEW COMMANDS !                       00633000
+C                                                                       00634000
+C            -------------------------------------                      00635000
+C                                                                       00636000
+ 500   CONTINUE                                                         00637000
+       WRITE(NO,5000) C,IC,AC                                           00638000
+ 5000  FORMAT(' !!!!!!!!!!!! WARNING! COMMAND NOT RECOGNIZED. IT IS',   00639000
+     1' IGNORED!!:'/1X,A8,6I4,4E12.5)                                   00640000
+       WRITE(NP,5000) C,IC,AC                                           00641000
+       GO TO 10                                                         00642000
+C                                                                       00643000
+       END                                                              00644000
+       SUBROUTINE TABNIZ(MNT1,MNT2,NT,MOPZ1,MOPZ2,MOPZ3,OPZ)            00645000
+C      ******************************************************           00646000
+C                                                                       00647000
+C      INITIALIZE OPTION COMMON  AND FILE DESCRIPTION                   00648000
+C                                                                       00649000
+C      ******************************************************           00650000
+C                                                                       00651000
+       DIMENSION NT(MNT1,MNT2),OPZ(MOPZ1,MOPZ2,MOPZ3)                   00652000
+C                                                                       00653000
+C       INITIALIZE FILE DESCRIPTORS                                     00654000
+       DO 10 I=1,MNT2                                                   00655000
+       NT(1,I)=I                                                        00656000
+       NT(2,I)=1                                                        00657000
+       NT(3,I)=1                                                        00658000
+       NT(4,I)=1                                                        00659000
+ 10    CONTINUE                                                         00660000
+C                                                                       00661000
+C     INITIALIZE OPTION MATRIX                                          00662000
+C      OPTION MATRIX HAS THREE DIMENSIONS;                              00663000
+C       THE FIRST INDEX MEANS THE PART OF THE CODE(1=READING OF ENDFB,  00664000
+C       2=CALCULATIONS , 3= MC2-2 LIBRARY PRODUCTION, 4=MC2-2 LIBRARY   00665000
+C       DISMOUNTING)                                                    00666000
+C       THE SECOND INDEX THE ENDFB FILE (FOR THE FIRST PART OF THE CODE)00667000
+C       OR THE MC2-2 LIBRARY FILE (FOR PARTS 2-3-4 OF THE CODE)         00668000
+C       THE THIRD INDEX IS THE OPTION NUMBER                            00669000
+C                                                                       00670000
+       CALL RIEMP(0.,MOPZ1*MOPZ2*MOPZ3,OPZ)                             00671000
+C                                                                       00672000
+C        PRINT OPTIONS : ( ALL ARE SET = 0  )                           00673000
+C        THE PRINT FLAGS OPZ(.,.,1) FIX THE AMOUNT OF PRINTED OUTPUT.   00674000
+C        IF THE FLAG HAS A GRAT VALUE A LOT OF OUTPUT IS PRODUCED.      00675000
+C         ALL OPTIONS OPZ(.,.,1) WITH LAST INDEX=1 ARE PRINT OPTIONS    00676000
+C                                                                       00677000
+C        REQUESTED PRECISION WHEN FISSION SPECTRUM REPRESENTATION       00678000
+C        FOR SECONDARY ENERGY DISTRIBUTION IS TO BE TRASFORMED          00679000
+C        INTO TABULATED DATA.      ( 1 % )                              00680000
+                    OPZ(1,5,2)=0.01                                     00681000
+C        REQUESTED PRECISION IN LINEARIZATION OF TABULATED CROSS        00682000
+C        SECTIONS FOR THE DOPPLER BROADENING OF THE TABULATED CROSS     00683000
+C        SECTIONS ( IF .LE. 0 , NO TABULATED CROSS SECTIONS DOPPLER     00684000
+C        BROADENING IS PERFORMED)                                       00685000
+C                   OPZ(2,1,5)=0.0                                      00686000
+C        PRECISION OF LINEARIZATION FOR DOPPLER BROADENING OF RESOLVED  00687000
+C        RESONANCE CROSS SECTION WITH THE CULLEN'S METHOD               00688000
+C        (IF .LE.0 , THIS METHOD IS NOT USED )                          00689000
+C                   OPZ(2,1,6)=0.0                                      00690000
+C        PRECISION OF LINEARIZATION FOR DOPPLER BROADENING OF UNRESOLVED00691000
+C        RESONANCE CROSS SECTION WITH THE CULLEN'S METHOD               00692000
+C        (IF .LE.0 , THIS METHOD IS NOT USED )                          00693000
+C                   OPZ(2,1,7)=0.0                                      00694000
+C       WHEIGHT FUNCTION FOR MULTIGROUP RESOLVED RESONANCE COMPUTATION  00695000
+C       IF  .LT.1  ,AN 1/E WEIGHT IS USED;                              00696000
+C        IF  .GE.1 , A COSTANT WEIGHT IS USED                           00697000
+                    OPZ(2,1,8)=2.                                       00698000
+C       INTERPOLATION LAW FOR MULTIGROUP RESOLVED RESONANCE CROSS       00699000
+C       SECTION COMPUTATION:                                            00700000
+C        IF .LE.2 - LINEAR INTERPOLATION                                00701000
+C        IF .EQ.3 - SIGMA LINEAR IN LOG(E) IS ASSUMED                   00702000
+C        IF .GT.3 - LOG(SIGMA) LINEAR IN LOG(E) IS ASSUMED              00703000
+                    OPZ(2,1,10)=1.                                      00704000
+C       NUMBER OF ENERGY POINT AT WHICH UNRESOLVED RESONANCE CROSS      00705000
+C       SECTIONS ARE COMPUTED FOR ENERGY-ENDEPENDENT RESONANCE          00706000
+C       PARAMETERS                                                      00707000
+                    OPZ(2,3,2)=15.                                      00708000
+C      MASS OPTION FOR RESOLVED RESONANCE:                              00709000
+C      (IF MASS.GT.OPZ RESONANCE PARAMETER                              00710000
+C      ARE INCLUDED IN THE MC2-2 LIBRARY AND RESONANCE CROSS SECTIONS   00711000
+C      ARE NOT INCLUDED IN MULTIGROUP CROSS SECTIONS)                   00712000
+                    OPZ(2,3,5)=100.                                     00713000
+C       NUMBER OF NEIGHBOURING RESONANCE FOR WHICH OVERLAP IS CONSIDERED00714000
+C       FOR UNRESOLVED RESONANCE COMPUTATION                            00715000
+C                   OPZ(2,3,2)=0.                                       00716000
+C       INTERPOLATION LAW FOR UNRESOLVED RESONANCE MULTIGROUP CROSS SECT00717000
+C        IF .LE.2 - LINEAR INTERPOLATION                                00718000
+C        IF .EQ.3 - SIGMA LINEAR IN LOG(E) IS ASSUMED                   00719000
+C        IF .GT.3 - LOG(SIGMA) LINEAR IN LOG(E) IS ASSUMED              00720000
+                    OPZ(2,3,9)=1.                                       00721000
+C       WHEIGHT FUNCTION FOR MULTIGROUP RESOLVED RESONANCE COMPUTATION  00722000
+C       IF  .LT.1  ,AN 1/E WEIGHT IS USED;                              00723000
+C        IF  .GE.1 , A COSTANT WEIGHT IS USED                           00724000
+                    OPZ(2,3,10)=2.                                      00725000
+C      IF GT.0 RESOLVED RESONANCE OUT OF ENERGY RANGE ARE INCLUDED      00726000
+C      IN RESONANCE PARAMETERS FILE OF MC2-2 LIBRARY                    00727000
+C                   OPZ(2,4,2)=-3.                                      00728000
+C      IF GT.0 GAMMA COMPETITIVE IS INCLUDED IN NEUTRON WIDTH           00729000
+C      IF .GT.1 GAMMA COMPETITIVE IS INCLUDED IN TOTLA WIDTH            00730000
+C                   OPZ(2,4,3)=0.                                       00731000
+C      IN THE BREIT-WIGNER INTERFERENCE TERM FOR  THE R-RESONANCE       00732000
+C       THE S-RESONANCE FOR WHICH:                                      00733000
+C          (GAMM S + GAMM R).LT.(ER-ES)*THIS PARAMETER                  00734000
+C       ARE INCLUDED                                                    00735000
+                    OPZ(2,4,6)=100000.                                  00736000
+C                                                                       00737000
+C                                                                       00738000
+C       DEFAULTS GROUP STRUCTURE                                        00739000
+C                      TOP ENERGY                                       00740000
+                    OPZ(2,5,2)=1.4190675E+7                             00741000
+C                      LETARGY WIDTH                                    00742000
+                    OPZ(2,5,3)=1./120.                                  00743000
+C                      NUMBER OF GROUPS                                 00744000
+                    OPZ(2,5,4)=2082.                                    00745000
+C      MASS OPTION                                                      00746000
+C      (IF MASS.GT.OPZ RESONANCE PARAMETER                              00747000
+C      ARE INCLUDED IN THE MC2-2 LIBRARY AND RESONANCE CROSS SECTIONS   00748000
+C      ARE NOT INCLUDED IN MULTIGROUP CROSS SECTIONS)                   00749000
+                    OPZ(2,5,5)=100.                                     00750000
+C       RESOLVED RESONANCE MORE FAR THAN THIS NUMBER MULTIPLIED BY THE  00751000
+C       RESONANCE WIDTH ARE NOT INCLUDED IN THE MULTIBROUP RESONANCE    00752000
+C       CALCULATION FOR THE ENERGY POINT                                00753000
+                    OPZ(2,5,7)=10.E+6                                   00754000
+C                                                                       00755000
+C       PRECISION USED IN THE GENERATION OF LINEAR-INTERPOLABLE         00756000
+C       RESONANCE CROSS SECTIONS , IN THE CALCULATION OF RESOLVED       00757000
+C       RESONANCE CROSS SECTIONS.  ( 1 % IS USED )                      00758000
+                    OPZ(2,5,9)=0.01                                     00759000
+C       SECONDARY ENERGY DISTRIBUTION ARE NOT  INCLUDED IN              00760000
+C       MC2-2 LIBRARY FILES FOR ENERGY GROUPS IN WHICH THE ANELASTIC    00761000
+C       OR N,2N IS LESS THAN THIS VALUE.                                00762000
+C                   OPZ(2,6,3)=0.                                       00763000
+C      IF .GT.0 THE CHI VALUE IS AVERAGED OVER ENERGY AND NO ENERGY     00764000
+C       DEPENDENT CHI IS PRODUCED (THIS VALUE MUST BE .GT.0 )           00765000
+                    OPZ(2,7,2)=10.                                      00766000
+C      LOWER AND UPPER ENERGY LIMIT (EV) OF THE ENERGY RANGE OVER WHICH 00767000
+C      THE CHI VALUES ARE AVERAGED                                      00768000
+                    OPZ(2,7,3)= 1000.                                   00769000
+                    OPZ(2,7,4)=600000.                                  00770000
+C                                                                       00771000
+C      NUMBER OF ENERGY GROUP FOR EACH BLOCK OF  LEGENDRE COMPONENT     00772000
+C      DATA IN MC2-2 LIBRARY                                            00773000
+                    OPZ(2,8,2)=126.                                     00774000
+C       MAXIMUM  NUMBER OF LEGENDRE EXPANSION COEFFICIENTS              00775000
+C       COMPUTED FROM TABULATED DATA                                    00776000
+                    OPZ(2,8,3)=20.                                      00777000
+C       PERCENTUAL PRECISION IN THE COMPUTATION OF LEGENDRE EXPANSION   00778000
+C       COEFFICIENTS FROM TABULATED DATA                                00779000
+                    OPZ(2,8,4)=1.                                       00780000
+C       IF .GT.0 NO TOTAL CROSS SECTION IS COMPUTED                     00781000
+C                   OPZ(3,5,2)=0.                                       00782000
+C       LOGICAL NUMBER OF THE UNIT ON WHICH MULTIGROUP DATA ARE WRITTEN 00783000
+C       TO BE READ BY A GRAPHIC ROUTINE.                                00784000
+C       IF .LE.0. NO OUTPUT IS PRODUCED FOR PLOTTING                    00785000
+C                   OPZ(3,5,9)=0.                                       00786000
+C       ORDER OF LEGENDRE POLINOMIAL FOR THE COMPUTATION OF THE TLJ     00787000
+C       MATRIX IN THE MC2-2 LIBRARY FILE :MCC2F8                        00788000
+                    OPZ(3,8,2)=9.                                       00789000
+C                                                                       00790000
+C                                                                       00791000
+C                                                                       00792000
+       RETURN                                                           00793000
+       END                                                              00794000
+       SUBROUTINE FORCRW                                                00795000
+C       *************************************                           00796000
+C       FORCES REWIND OF ALL FILES BY THE READING ROUTINES.             00797000
+C       IT SAYS TO THE ROUTINES THAT THE FILE POINTER  IS               00798000
+C        AT THE END OF THE FILE. (NT(4,.) IS AS GREAT AS POSSIBLE)      00799000
+C                                                                       00800000
+C       THIS ROUTINE IS CALLED BY GELIB AND HAS BEEN INSERTED           00801000
+C        TO AVOID PROBLEMS ARISEN IS SOME VERY RARE SITUATIONS          00802000
+C       *******************************************************         00803000
+C                                                                       00804000
+        COMMON /FILES/NT(4,99)                                          00805000
+        DO 10 I=1,99                                                    00806000
+ 10     NT(4,I)=2147483647                                              00807000
+        RETURN                                                          00808000
+        END                                                             00809000
+       SUBROUTINE P1(MA,NA)                                             00810000
+C      *****************************                                    00811000
+C                                                                       00812000
+C      READS ENDFB OR JEF FILES AND WRITES SELECTED SECTIONS ON         00813000
+C      FIRST INTERMEDIATE FILES. IT WRITES AN INDEX OF THESE FILES.     00814000
+C      THE INPUT TABLE DEFINES THE SECTIONS TO BE SELECTED.             00815000
+C      CALLS SUBROUTINES P1F1,P1F2,P1F3,P1F4,P1F5. DEPENDING ON         00816000
+C      THE ENDFB TAPE TO BE READ.                                       00817000
+C                                                                       00818000
+C      ******************************                                   00819000
+C                                                                       00820000
+       DIMENSION NA(3,MA)                                               00821000
+C      SPACE NA IS USED FOR INDEX OF INPUT TABLE.                       00822000
+C                                                                       00823000
+       DATA T/0.0/                                                      00824000
+C                                                                       00825000
+      COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),       00826000
+     1N1X,N2X,NS,LX,LY,LB                                               00827000
+C                                                                       00828000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        00829000
+C                                                                       00830000
+       COMMON/DIM/M(5)                                                  00831000
+       EQUIVALENCE (M(1),MX)                                            00832000
+C                                                                       00833000
+       COMMON/INDX/INDX(40,200)                                         00834000
+C                                                                       00835000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     00836000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     00837000
+C                                                                       00838000
+      COMMON/MIX/MIX(15,300)                                            00839003
+C                                                                       00840000
+       COMMON/FILES/NT(4,99)                                            00841000
+       EQUIVALENCE(NO,NT(1,6)),(NI,NT(1,5)),(NP,NT(1,11))               00842000
+C                                                                       00843000
+        LIMITA=3*MMIX2+1                                                00844000
+        LIM=MMIX2+1                                                     00845000
+        MAA=MA-LIMITA                                                   00846000
+       IF(LIMITA.GT.MA) CALL ERR(8HP1            ,0)                    00847000
+       IF(M(2).LT.0) M(2)=0                                             00848000
+C      M(2) IS THE DIMENSION OF THE INDEX OF THE INTERMEDIATE FILES     00849000
+C      THE INDEX IS CREATED BY THIS ROUTINE                             00850000
+C      CONTROL ON INPUT TABLE DIMENSION (MIX) (IN M(1)=MX):             00851000
+C      IF MIX MATRIX IS EMPTY USES DEFAULT INPUT TAPE: (TAPE 8 MODE 3)  00852000
+C      BUT NUCLIDE NAMES CANNOT BE SUPPLIED, SO THAT PART 2 OF THE      00853000
+C      CODE CAN NOT RECOGNIZE DIFFERENT MATERIALS AND PART 3 WILL NOT   00854000
+C      INSERT MATERIALS IN MC2-II LIBRARIES                             00855000
+       IF(MX.GT.0) GO TO 100                                            00856000
+C         GO TO READ INPUT TAPE                                         00857000
+C      DESCRIBES TAPE 8 TO BE READ  WITH A BLANK MIX MATRIX (INPUT TABLE00858000
+        WRITE(NP,9000)                                                  00859000
+        WRITE(NO,9000)                                                  00860000
+ 9000   FORMAT(' WARNING! NO INPUT TABLE HAS BEEN SUPPLIED FOR PART ',  00861000
+     1 'ONE OF THE CODE')                                               00862000
+       MX=1                                                             00863000
+       DO 5 I=1,MMIX1                                                   00864000
+ 5     MIX(I,1)=0                                                       00865000
+       MIX(3,1)=8                                                       00866000
+       MIX(4,1)=3                                                       00867000
+ 100   CONTINUE                                                         00868000
+C                                                                       00869000
+C         ORDERS MIX(MMIX1,MX) PER VALORI DELLA RIGA 3 ( DD TAPES IN)   00870000
+C         NA(3,KX) E L INDICE DI MIX ORDINATO PER NUMERI DI DD IN       00871000
+C         NA(1)=VALORE ; NA(2)= INIZIO VALORE ; NA(3)= LUNGHEZZA VALORE 00872000
+C         KX= NUMERO DI DIVERSI VALORI DELLA RIGA 4 DI MIX              00873000
+C                                                                       00874000
+          CALL ORDM(3,KX,MMIX1,MX,MIX,NA)                               00875000
+C                                                                       00876000
+           CALL MIXSHO(1,NO)                                            00877000
+           CALL MIXSHO(1,NP)                                            00878000
+          IF(KX.LE.0) CALL ERR(8HP1      ,100)                          00879000
+C          ..................................... LOOP ON TAPES INPUT    00880000
+          DO 20 I=1,KX                                                  00881000
+          NTEND=NA(1,I)                                                 00882000
+          NTE=NT(1,NTEND)                                               00883000
+          NIN=NA(2,I)                                                   00884000
+          NSK=NA(3,I)                                                   00885000
+          NFI=NA(2,I)+NSK-1                                             00886000
+          MODE=MIX(4,NIN)                                               00887000
+C                                                                       00888000
+C          CONTROLLO DI CONSISTENZA DEL PARAMETRO MODE                  00889000
+C                                                                       00890000
+           DO 50 IJ=NIN,NFI                                             00891000
+C                                                                       00892000
+       IF(MODE.NE.MIX(4,IJ)) WRITE(NO,2000)MODE,(MIX(J,IJ),J=1,MMIX1)   00893000
+       IF(MODE.NE.MIX(4,IJ)) WRITE(NP,2000)MODE,(MIX(J,IJ),J=1,MMIX1)   00894000
+ 2000 FORMAT(' WARNING!   ENDFB TAPE TTPE:',I5,' DESCRIBED BY WRONG     00895000
+     1INPUT CARD:'/1X,2A4,8I5,5E12.5)                                   00896000
+ 50    CONTINUE                                                         00897000
+       IF(MODE.LT.1.OR.MODE.GT.3) MODE=3                                00898000
+C      IL DEFAULT E PERO GIA MESSO NELLA LETTURA RDMIX                  00899000
+C                                                                       00900000
+C        POSIZIONA TAPE DI INPUT                                        00901000
+          CALL REW(NTEND)                                               00902000
+C                                                                       00903000
+      WRITE(NP,2501)NTEND,MODE,T                                        00904000
+      WRITE(NO,2500)NTEND,MODE,T                                        00905000
+ 2500  FORMAT(' ENDFB FILE READ : FILE NUMBER:',I4,' TYPE:',I4,         00906000
+     1' TEMPERATURE:',E12.5)                                            00907000
+ 2501  FORMAT(' ENDFB FILE READ: FILE NUMBER:',I3,' TYPE:',I2,          00908000
+     1' TEMPERATURE:',E12.5)                                            00909000
+C                                                                       00910000
+C      LETTURA PRIMO RECORD DEL TAPE                                    00911000
+            CALL RECTPI(NTE,MODE,NO)                                    00912000
+C                                                                       00913000
+C      LOOP SUI RECORDS DEL TAPE DA LEGGERE                             00914000
+C      READS ALL THE SPECIFIED TAPE. FOR EACH SECTION CONTROL IF        00915000
+C      FLAGS :MAT,MF,MT MATCH SOME VALUE IN MIX MATRIX (INPUT TABLE)    00916000
+C                                                                       00917000
+ 60    CONTINUE                                                         00918000
+C      ..........................................LOOP ON SECTIONS       00919000
+      CALL RREC(1,NTE,MODE,T)                                           00920000
+C         LEGGE RECORD HEAD                                             00921000
+       IF(.NOT.(MAT.EQ.-1 .AND.MT.EQ.0.AND.MF.EQ.0)) GO TO 610          00922000
+C       PER FINE TAPE (TEND RECORD ENCOUNTERED)                         00923000
+ 605   CONTINUE                                                         00924000
+       WRITE(NO,3000) NTEND,NTE                                         00925000
+       WRITE(NP,3000) NTEND,NTE                                         00926000
+ 3000  FORMAT(' END OF ENDFB FILE',I7,' LOGICAL UNIT NUMBER:',I5)       00927000
+       GOTO 200                                                         00928000
+C       A LOOP DEI TAPES O DI MIX                                       00929000
+ 610    CONTINUE                                                        00930000
+C                                                                       00931000
+C      ANALISI DEL RECORDS                                              00932000
+C                                                                       00933000
+       IF(MF.GT.5) GOTO 700                                             00934000
+          IF(MT.LE.0) GO TO 60                                          00935000
+C              SI TRATTA DI UN SEND RECORD                              00936000
+          IF(MAT.LE.0) GO TO 60                                         00937000
+C              SI TRATTA DI UN MEND RECORD                              00938000
+         IF(MF.LE.0) GO TO 60                                           00939000
+C              SI TRATTA DI UN FEND                                     00940000
+C                                                                       00941000
+C                                                                       00942000
+C            HERE A HEAD RECORD MUST BE FOUND OR YOU CAN HAVE           00943000
+C            ERRORS FOR THE WRONG FORMAT OF THE NEXT READ               00944000
+C      LOOP ON INPUT TABLE OF THE TAPE TO SEE IF MAT,MT IS TO BE TAKEN  00945000
+C      ................................. LOOP ON MIX OF THE TAPE        00946000
+C                                                                       00947000
+       DO 70 K=NIN,NFI                                                  00948000
+C           TEST ON MF( SE #0,#MF NON LO TRATTA)                        00949000
+       IF(MIX(7,K).NE.0.AND.MIX(7,K).NE.MF) GO TO 70                    00950000
+C           TEST ON MAT                                                 00951000
+       IF(MIX(6,K).NE.0.AND.MIX(6,K).NE.MAT) GO TO 70                   00952000
+C           IF ARRIVE HERE MAT,MT IS TO BE TAKEN                        00953000
+C          TEST ON MT  (SECTION )                                       00954000
+           IF(MIX(8,K).GT.0.AND.MIX(8,K).NE.MT)GO TO 70                 00955000
+           IF(MF.GT.5) GO TO 700                                        00956000
+       GO TO (701,702,703,704,705),MF                                   00957000
+C      ---------------- ONLY FILES 1-5 USED BY MC2-2 LIBRARY -------    00958000
+ 701   CALL P1F1(MMIX1,MIX(1,K),MAA,NA(1,LIM))                          00959000
+       GO TO 60                                                         00960000
+ 702   CALL P1F2(MMIX1,MIX(1,K),MAA,NA(1,LIM))                          00961000
+       GO TO 60                                                         00962000
+ 703   CALL P1F3(MMIX1,MIX(1,K),MAA,NA(1,LIM))                          00963000
+       GO TO 60                                                         00964000
+ 704   CALL P1F4(MMIX1,MIX(1,K),MAA,NA(1,LIM))                          00965000
+       GO TO 60                                                         00966000
+ 705   CALL P1F5(MMIX1,MIX(1,K),MAA,NA(1,LIM))                          00967000
+        GOTO 60                                                         00968000
+ 70    CONTINUE                                                         00969000
+ 700  CONTINUE                                                          00970000
+C                                                                       00971000
+C          IF HERE MAT,MF ARE NOT TO BE TAKEN , SECTION IS SKIPPED.     00972000
+C     SINGLE SECTIONS ARE SKIPPED,NOT FILE OR MATERIALS.                00973000
+C                                                                       00974000
+C                                                                       00975000
+            CALL SKIPS(MODE,NTE,1,STMP,NO)                              00976000
+C                                                                       00977000
+       GO TO 60                                                         00978000
+C        GO TO READ NEXT HEAD RECORD                                    00979000
+ 200   CONTINUE                                                         00980000
+C                    HERE WHEN THE ENDFB TAPE ENDS                      00981000
+C                                                                       00982000
+        IF(M(2).LE.0) GO TO 20                                          00983000
+C               SAVE INDX ON TAPE NT(1 ). AL PRIMO POSTO LIBERO.        00984000
+        WRITE(NP,9050) M(2)                                             00985000
+ 9050   FORMAT(1X,I7,' VECTORS OF INDEX MATRIX SCRATCHED ON UNIT 2 ')   00986000
+          CALL POSL(2)                                                  00987000
+          CALL SAVI(2,MINDX1,M(2),INDX)                                 00988000
+          M(2)=0                                                        00989000
+C                                                                       00990000
+C      .................END OF THE LOOP ON TAPES OF INPUT TABLE.        00991000
+ 20    CONTINUE                                                         00992000
+C                                                                       00993000
+       RETURN                                                           00994000
+       END                                                              00995000
+       SUBROUTINE P1F1(MMM,N,MAAA,SPAZ)                                 00996000
+C      ***************************                                      00997000
+C                                                                       00998000
+C      READS FILE1 ENDFB ANDE SELECT MAT SECTIONS                       00999000
+C      HERE MAT,MF AND THE HEAD RECORD OF MT TO READ IS   IN /RECS/     01000000
+C      IN N IS THE INPUT CARD (MIX) OF THE TAPE BEING READ.             01001000
+C                                                                       01002000
+C      *******************************                                  01003000
+C                                                                       01004000
+         DIMENSION N(MMM)                                               01005000
+C                                                                       01006000
+        DIMENSION A(4)                                                  01007000
+C        A(4) ARE THE FOUR COEFFICIENT FOR NU                           01008000
+C                                                                       01009000
+       COMMON/FILES/NT(4,99)                                            01010000
+       EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))               01011000
+C                                                                       01012000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        01013000
+C                                                                       01014000
+       COMMON /INDX/AINDX(40,200)                                       01015000
+C                                                                       01016000
+       COMMON/DIM/M(5)                                                  01017000
+C                                                                       01018000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     01019000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     01020000
+C                                                                       01021000
+       COMMON MAXA,AXYB(10000)                                          01022000
+      COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),       01023000
+     1N1X,N2X,NS,LX,LY,LB                                               01024000
+C                                                                       01025000
+       DATA T/0.0/                                                      01026000
+       EQUIVALENCE(OPZ(1,1,1),STMP),(IND,M(2))                          01027000
+C                                                                       01028000
+       MODE=N(4)                                                        01029000
+       NTENDF=N(3)                                                      01030000
+       NTOUT=N(5)                                                       01031000
+         NTE=NT(1,NTENDF)                                               01032000
+      NTO=NT(1,6)                                                       01033000
+C                                                                       01034000
+C                                                                       01035000
+       IF(MT.EQ.452) GO TO 452                                          01036000
+       IF(MT.EQ.458) GO TO 458                                          01037000
+C        REACTIONS      MF=1 NUMBER MT=456,454,455,453,457              01038000
+C        ARE NOT TREATED.                                               01039000
+C        P1F1 SAREBBE CHIAMATO INUTILMENTE UN SACCO                     01040000
+C        DI VOLTE CON ARGOMENTO MT NON USATO SE NON CHIAMASSI LA        01041000
+C        SUBROUTINE SEGUENTE CHE VA AVANTI NEL FILE FINO A SEND RECORD  01042000
+C        INOLTRE IN P1 LA LETTURA DI  RECORDS DI DIVERSO TIPO COME      01043000
+C        FOSSERO RECORDS CONT DA ERRORE                                 01044000
+C                                                                       01045000
+C                                                                       01046000
+         CALL SKIPS(MODE,NTE,1,STMP,NTO)                                01047000
+C                                                                       01048000
+       RETURN                                                           01049000
+ 452   CONTINUE                                                         01050000
+C      SECTION MT=452=NU                                                01051000
+       WRITE(NP,9020) MAT,N(1),N(2)                                     01052000
+ 9020  FORMAT(' NU                .MATERIAL:',I5,1X,2A4)                01053000
+C                                                                       01054000
+       LNU=L2                                                           01055000
+       ZA=C1                                                            01056000
+       AWR=C2                                                           01057000
+C                  SET OUTPUT TAPE:                                     01058000
+C             DEFAULT OUTPUT TAPE                                       01059000
+       IF(NTOUT.LE.0) NTOUT=21                                          01060000
+         NTO=NT(1,NTOUT)                                                01061000
+       CALL POSL(NTOUT)                                                 01062000
+C             POSIZIONA NTOUT ALL'ULTIMO RECORD LIBERO                  01063000
+       CALL WREC(1,NTO,3)                                               01064000
+       IF(STMP.GT.25.) CALL WREC(1,NO,4)                                01065000
+C         LIST O TAB1 IL RECORD 2                                       01066000
+       CALL RREC(LNU+1,NTE,MODE,T)                                      01067000
+C         FOR THE NU PUT IN  NCOF THE NUMBER OF COEFFICIENTS            01068000
+        NCOF=0                                                          01069000
+        IF(LNU.EQ.1) NCOF=N1                                            01070000
+C                                                                       01071000
+       CALL WREC(LNU+1,NTO,3)                                           01072000
+       IF(STMP.GT.25.) CALL WREC(LNU+1,NO,4)                            01073000
+C        IF  MAX  4 COEFF THEY ARE PUT IN INDEX OTHERWISE ON OUTPUT TAPE01074000
+        DO 20 I=1,4                                                     01075000
+  20    A(I)=0.                                                         01076000
+        IF(LNU.NE.1) GO TO 454                                          01077000
+        DO 30 I=1,NCOF                                                  01078000
+  30    A(I)=AXYB(LB-1+I)                                               01079000
+C                METTO I CEOFF IN A PER METTERLI IN INDICE              01080000
+        ANSK=3+N1/6+NREST(N1,6)                                         01081000
+  454      CONTINUE                                                     01082000
+       IF(LNU.EQ.2)ANSK=3+N1/3+NREST(N1,3)+N2/3+NREST(N2,3)             01083000
+C             IND=CURRENT POSITION OF THE INDEX BEING CREATED           01084000
+       IND=IND+1                                                        01085000
+       IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX)                01086000
+       CALL EMPIN(MINDX1,AINDX(1,IND),FLOAT(MAT),FLOAT(MF),FLOAT(MT),ZA,01087000
+     1AWR,0.,T,0.,0.,FLOAT(LNU),FLOAT(NCOF),A(1),A(2),A(3),A(4),0.,0.,0.01088000
+     1,0.,FLOAT(MODE),                                                  01089000
+     2FLOAT(NTENDF),FLOAT(NTE),FLOAT(NTOUT),FLOAT(NTO),FLOAT(NT(4,NTOUT)01090000
+     3),ANSK,3.,0.,0.,5.,2.,11.,0.,0.,N(1),N(2),N(11),0.,0.,0.)         01091000
+C                                                                       01092000
+C      CONTROLLO DEL SEND                                               01093000
+       IF(NCONT(STMP,NO,NTE,MODE,MAT,MF,0).GT.0)CALLERR(8HP1F1    ,452) 01094000
+C                                                                       01095000
+C      IL SEND                                                          01096000
+C                                                                       01097000
+C        METTO IL SEND SUL FILE DI OUTPUT                               01098000
+         CALL WREC(1,NTO,3)                                             01099000
+C                                                                       01100000
+       NT(3,NTOUT)=NT(3,NTOUT)+ANSK                                     01101000
+       NT(4,NTOUT)=NT(3,NTOUT)                                          01102000
+       RETURN                                                           01103000
+ 458   CONTINUE                                                         01104000
+C      SECTION MT=458:ENERGIA PER FISSIONE.RECORD SET ONLY IN INDEX     01105000
+       WRITE(NP,9010) MAT                                               01106000
+ 9010  FORMAT(' ENERGY PER FISSION.MATERIAL:',I5)                       01107000
+C                                                                       01108000
+C               THE FOLLOWING ONLY FOR ENDFB5 FILES                     01109000
+C        POSIZIONE IN INDICE                                            01110000
+       ZA=C1                                                            01111000
+       AWR=C2                                                           01112000
+       CALL RREC(2,NTE,MODE,T)                                          01113000
+       IF(STMP.GT.20.)   CALL WREC(2,NO,4)                              01114000
+C        ET=E PER FISSIONE                                              01115000
+       AK17=AXYB(LB+16)                                                 01116000
+C        ER=E PER FISS ESCLUSI NEUTRINI                                 01117000
+       AK15=AXYB(LB+14)                                                 01118000
+       IND=IND+1                                                        01119000
+       IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX)                01120000
+       CALL EMPIN(MINDX1,AINDX(1,IND),FLOAT(MAT),FLOAT(MF),FLOAT(MT),   01121000
+     1ZA,AWR,0.,T,0.,0.,0.,0.,0.,0.,AK15,AK17,0.,0.,0.,0.,FLOAT(MODE)   01122000
+     2,FLOAT(NTENDF),FLOAT(NTE),0.,0.,0.,0.,0.,0.,0.,1.,3.,4.,0.,0.     01123000
+     3,N(1),N(2),N(15),0.,0.,0.)                                        01124000
+C             LEGGE IL RECORD SEND E LO CONTROLLA                       01125000
+      IF(NCONT(STMP,NO,NTE,MODE,MAT,MF,0).GT.0)CALL ERR(8HP1F1    ,458) 01126000
+C                                                                       01127000
+       RETURN                                                           01128000
+       END                                                              01129000
+       SUBROUTINE P1F2(MMM,N,MAAA,NSPAZ)                                01130000
+C      *********************************                                01131000
+C      READ FILE 2 ENDFB AND SELECT SECTIONS                            01132000
+C             RESONANCES - PART 1                                       01133000
+C      *********************************                                01134000
+         DIMENSION N(MMM),NSPAZ(MAAA)                                   01135000
+       DATA T/0.0/                                                      01136000
+C                                                                       01137000
+       COMMON/FILES/NT(4,99)                                            01138000
+       EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))               01139000
+C                                                                       01140000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        01141000
+       EQUIVALENCE(OPZ(1,2,1),STMP)                                     01142000
+C                                                                       01143000
+C      OPZ= OPZIONI( PARTE 1,2 ECC  ; FILE MCC2F1,2 ECC ; OPZIONE)      01144000
+C                                                                       01145000
+C                                                                       01146000
+         COMMON/INDX/AINDX(40,200)                                      01147000
+C                                                                       01148000
+       COMMON/DIM/M(5)                                                  01149000
+            EQUIVALENCE(M(2),IND)                                       01150000
+C                                                                       01151000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     01152000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     01153000
+C                                                                       01154000
+       COMMON MAXXA,AAA(1)                                              01155000
+C                                                                       01156000
+      COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),       01157000
+     1N1X,N2X,NS,LX,LY,LB                                               01158000
+C                                                                       01159000
+C      NT(4,  ) E IL RECORD CORRENTE                                    01160000
+C      NT(3, ) E USATO PER INDX(25) PUNTATORE ALLA PRIMA SCHEDA         01161000
+C              CONT DELL ISOTOPO ED E-RANGE                             01162000
+       IF(MT.NE.151) CALL ERR(8HP1F2       ,151)                        01163000
+C              FILE 2 HAS ONLY SECTION 151                              01164000
+       MODE=N(4)                                                        01165000
+      NTENDF=N(3)                                                       01166000
+      NTE=NT(1,NTENDF)                                                  01167000
+       NTOUT=N(5)                                                       01168000
+C       DEFINISCE TAPE DI OUTPUT                                        01169000
+       IF(NTOUT.LE.0) NTOUT=22                                          01170000
+          NTO=NT(1,NTOUT)                                               01171000
+       CALL POSL(NTOUT)                                                 01172000
+C      NUMERO ISOTOPO                                                   01173000
+       NIS=N1                                                           01174000
+       ZA=C1                                                            01175000
+       AWR=C2                                                           01176000
+C       RECORD HEAD                                                     01177000
+       CALL WREC(1,NTO,3)                                               01178000
+       NT(4,NTOUT)=NT(4,NTOUT)+1                                        01179000
+ 111      CONTINUE                                                      01180000
+C     ............................... LOOP ISOTOPI DEL MAT(SU ENDFB     01181000
+       DO 10 I=1,NIS                                                    01182000
+C       IL PRIMO CONT DI OGNI ISOTOPO                                   01183000
+       CALL RREC(1,NTE,MODE,T)                                          01184000
+       ZAI=C1                                                           01185000
+       ABN=C2                                                           01186000
+       LFW=L2                                                           01187000
+       NER=N1                                                           01188000
+       CALL WREC(1,NTO,3)                                               01189000
+       NT(4,NTOUT)=NT(4,NTOUT)+1                                        01190000
+C     ................................ LOOP SUI RANGES DI ENERGIA       01191000
+       DO 20 II=1,NER                                                   01192000
+       ANEMX=0.                                                         01193000
+       AJMX=0                                                           01194000
+C          MAX NUM OF J FOR EACH L ( PER UNRESOLVED CALCR3 DI P2MCF3)   01195000
+C         MAX NUM DI E (PER UNRESOLVED CALCR3 DI P2MCF3)                01196000
+C        2 : CONT FOR EACH ENERGY RANGE                                 01197000
+       CALL RREC(1,NTE,MODE,T)                                          01198000
+       EL=C1                                                            01199000
+       EH=C2                                                            01200000
+       LRU=L1                                                           01201000
+       LRF=L2                                                           01202000
+       CALL WREC(1,NTO,3)                                               01203000
+C        CONTATORE NUMERO RECORDS ENDFB                                 01204000
+       ANSKEN=0.                                                        01205000
+       NT(3,NTOUT)=NT(4,NTOUT)+1                                        01206000
+C        PUNTATORE DOPO IL CONT DELL'ISOTOPO ED E RANGE PER L'INDICE    01207000
+       NT(4,NTOUT)=NT(4,NTOUT)+1                                        01208000
+C        SOLO SCATTERING RADIUS                                         01209000
+       IF(LRU.EQ.0) GO TO 100                                           01210000
+C        RESOLVED                                                       01211000
+       IF(LRU.EQ.1) GOTO 50                                             01212000
+C        UNRESOLVED LRU=2)                                              01213000
+C            ALL GAMMA ARE ENERGY DEPENDENT                             01214000
+       IF(LRF.EQ.2) GO TO 400                                           01215000
+C            GAMMA FISSION NOT E-DEPENDENT (UNRES)                      01216000
+       IF(LFW.EQ.0) GO TO 200                                           01217000
+C            GAMMA FISSION ENERGY DEPENDENT ( UNRES )                   01218000
+       IF(LFW.EQ.1) GO TO 300                                           01219000
+       CALL ERR(8HP1F2       ,49)                                       01220000
+ 50    CONTINUE                                                         01221000
+C                   RESOLVED                                            01222000
+C         BWSL OR BWML                                                  01223000
+       IF(LRF.EQ.2.OR.LRF.EQ.1) GO TO 500                               01224000
+C         A A                                                           01225000
+       IF(LRF.EQ.4) GO TO 600                                           01226000
+       IF(LRF.EQ.3) GO TO 700                                           01227000
+       CALL ERR(8HP1F2      ,50)                                        01228000
+ 100   CONTINUE                                                         01229000
+C                      ONLY SCATTERING RADIUS                           01230000
+       WRITE(NP,9000) MAT,N(1),N(2),I,II                                01231000
+ 9000  FORMAT(' SCATTERING RADIUS. MATERIAL:',I5,1X,2A4,' ISOTOPE:',    01232000
+     1 I3,'     ENERGY RANGE:',I3)                                      01233000
+C                                                                       01234000
+C       RECORD CONT                                                     01235000
+       CALL RREC(1,NTE,MODE,T)                                          01236000
+       SPI=C1                                                           01237000
+       AP=C2                                                            01238000
+       NLS=N1                                                           01239000
+       CALL WREC(1,NTO,3)                                               01240000
+       NT(4,NTOUT)=NT(4,NTOUT)+1                                        01241000
+C                 FILLS INDEX                                           01242000
+      IND=IND+1                                                         01243000
+       IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX)                01244000
+       CALL EMPIN(MINDX1,AINDX(1,IND),FLOAT(MAT),FLOAT(MF),FLOAT(MT),ZA,01245000
+     1AWR,FLOAT(NIS),T,ZAI,ABN,FLOAT(LFW),FLOAT(NER),FLOAT(LRU),        01246000
+     1FLOAT(LRF),EL,EH,SPI,AP,FLOAT(NLS),0.,                            01247000
+     2FLOAT(MODE),FLOAT(NTENDF),FLOAT(NTE),FLOAT(NTOUT),FLOAT(NTO),     01248000
+     3FLOAT(NT(3,NTOUT)),1.,1.,FLOAT(I),FLOAT(II),1.,                   01249000
+     46.,0.,0.,0.,N(1),N(2),N(15),0.,0.,AWR)                            01250000
+       GO TO 20                                                         01251000
+ 200   CONTINUE                                                         01252000
+C           U N R E S O L V E D                                         01253000
+C       THIRD RECORD UNRESOLVED GAMMA NOT ENERGY DEPENDENT              01254000
+       WRITE(NP,9010) MAT,N(1),N(2),I,II                                01255000
+ 9010  FORMAT(' UNRES COSTANT IN E.MATERIAL:',I5,1X,2A4,' ISOTOPE:',    01256000
+     1 I3,'     ENERGY RANGE:',I3)                                      01257000
+C                                                                       01258000
+       CALL RREC(1,NTE,MODE,T)                                          01259000
+       SPI=C1                                                           01260000
+       AP=C2                                                            01261000
+       NLS=N1                                                           01262000
+       CALL WREC(1,NTO,3)                                               01263000
+       NT(4,NTOUT)=NT(4,NTOUT)+1                                        01264000
+       ANSKEN=ANSKEN+1                                                  01265000
+       DO 22 III=1,NLS                                                  01266000
+C           LIST                                                        01267000
+       CALL RREC(2,NTE,MODE,T)                                          01268000
+       AWRI=C1                                                          01269000
+       NJS=N2                                                           01270000
+        IF(AJMX.LT.NJS) AJMX=NJS                                        01271000
+C            ANEMX RESTA ZERO                                           01272000
+       CALL WREC(2,NTO,3)                                               01273000
+       ANSKEN=ANSKEN+1                                                  01274000
+       NT(4,NTOUT)=NT(4,NTOUT)+1+NJS                                    01275000
+ 22    CONTINUE                                                         01276000
+C     INDICE                                                            01277000
+      AKS=NJS+1+NLS                                                     01278000
+      GOTO450                                                           01279000
+ 300   CONTINUE                                                         01280000
+C          LIST RECORD (UNRESOLVED): GAMMA FISSION ENERGY DEPENDENT     01281000
+       WRITE(NP,9020) MAT,N(1),N(2),I,II                                01282000
+ 9020  FORMAT(' UNRES GAM FISS(E) .MATERIAL:',I5,1X,2A4,' ISOTOPE:',    01283000
+     1 I3,'     ENERGY RANGE:',I3)                                      01284000
+C                                                                       01285000
+       CALL RREC(2,NTE,MODE,T)                                          01286000
+       SPI=C1                                                           01287000
+       AP=C2                                                            01288000
+       NLS=N2                                                           01289000
+       NE=N1                                                            01290000
+             ANEMX=NE                                                   01291000
+       CALL WREC(2,NTO,3)                                               01292000
+       ANSKEN=ANSKEN+1                                                  01293000
+       NT(4,NTOUT)=NT(4,NTOUT)+NE/6+1+NREST(NE,6)                       01294000
+       DO 32 III=1,NLS                                                  01295000
+C       CONT DEL NLS                                                    01296000
+       CALL RREC(1,NTE,MODE,T)                                          01297000
+       AWRI=C1                                                          01298000
+       NJS=N1                                                           01299000
+             IF(AJMX.LT.NJS) AJMX=NJS                                   01300000
+       CALL WREC(1,NTO,3)                                               01301000
+        NT(4,NTOUT)=NT(4,NTOUT)+1                                       01302000
+       ANSKEN=ANSKEN+1                                                  01303000
+       DO 33 II3=1,NJS                                                  01304000
+C      LIST                                                             01305000
+       CALL RREC(2,NTE,MODE,T)                                          01306000
+       CALL WREC(2,NTO,MODE)                                            01307000
+       NT(4,NTOUT)=NT(4,NTOUT)+1+1+NE/6+NREST(NE,6)                     01308000
+       ANSKEN=ANSKEN+1                                                  01309000
+ 33    CONTINUE                                                         01310000
+ 32    CONTINUE                                                         01311000
+C     INDICE                                                            01312000
+      GO TO 450                                                         01313000
+ 400   CONTINUE                                                         01314000
+C      ALL GAMMA E-DEPENDENT     ( UNRESOLVED)  BWML                    01315000
+       WRITE(NP,9030) MAT,N(1),N(2),I,II                                01316000
+ 9030  FORMAT(' UNRES GAM(E)      .MATERIAL:',I5,1X,2A4,' ISOTOPE:',    01317000
+     1 I3,'     ENERGY RANGE:',I3)                                      01318000
+C                                                                       01319000
+       CALL RREC(1,NTE,MODE,T)                                          01320000
+       SPI=C1                                                           01321000
+       AP=C2                                                            01322000
+       NLS=N1                                                           01323000
+       CALL WREC(1,NTO,3)                                               01324000
+       NT(4,NTOUT)=NT(4,NTOUT)+1                                        01325000
+       AKS=1                                                            01326000
+       DO 42 III=1,NLS                                                  01327000
+       CALL RREC(1,NTE,MODE,T)                                          01328000
+       AWRI=C1                                                          01329000
+         CALL WREC(1,NTO,3)                                             01330000
+         NT(4,NTOUT)=NT(4,NTOUT)+1                                      01331000
+        ANSKEN=ANSKEN+1                                                 01332000
+       NJS=N1                                                           01333000
+             IF(AJMX.LT.NJS) AJMX=NJS                                   01334000
+       DO 43 I3=1,NJS                                                   01335000
+C       RECORD LIST                                                     01336000
+       CALL RREC(2,NTE,MODE,T)                                          01337000
+        NE=N2                                                           01338000
+             IF(ANEMX.LT.NE) ANEMX=NE                                   01339000
+       CALL WREC(2,NTO,MODE)                                            01340000
+       NT(4,NTOUT)=NT(4,NTOUT)+2+NE                                     01341000
+       ANSKEN=ANSKEN+1                                                  01342000
+ 43    CONTINUE                                                         01343000
+ 42    CONTINUE                                                         01344000
+C       INDICI                                                          01345000
+ 450  CONTINUE                                                          01346000
+C       INDICE                                                          01347000
+      IND=IND+1                                                         01348000
+       IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX)                01349000
+       CALL EMPIN(MINDX1,AINDX(1,IND),FLOAT(MAT),FLOAT(MF),FLOAT(MT),ZA,01350000
+     1AWR,FLOAT(NIS),T,ZAI,ABN,FLOAT(LFW),FLOAT(NER),0.,                01351000
+     1FLOAT(LRF),EL,EH,SPI,AP,FLOAT(NLS),AJMX,                          01352000
+     2FLOAT(MODE),FLOAT(NTENDF),FLOAT(NTE),FLOAT(NTOUT),FLOAT(NTO),     01353000
+     3FLOAT(NT(3,NTOUT)),1.,1.,FLOAT(I),FLOAT(II),1.,6                  01354000
+     4.,0.,0.,0.,N(1),N(2),N(11),ANEMX,0.,AWRI)                         01355000
+      IND=IND+1                                                         01356000
+       IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX)                01357000
+       CALL EMPIN(MINDX1,AINDX(1,IND),FLOAT(MAT),FLOAT(MF),FLOAT(MT),   01358000
+     1ZA,AWR,FLOAT(NIS),T,ZAI,ABN,FLOAT(LFW),FLOAT(NER),FLOAT(LRU),     01359000
+     2FLOAT(LRF),EL,EH,SPI,AP,FLOAT(NLS),AJMX,FLOAT(MODE),FLOAT(NTENDF),01360000
+     3FLOAT(NTE),FLOAT(NTOUT),FLOAT(NTO),FLOAT(NT(3,NTOUT)),            01361000
+     4FLOAT(NT(4,NTOUT)-1),ANSKEN,FLOAT(I),FLOAT(II),3.,5.,0.,0.,       01362000
+     50.,N(1),N(2),N(15),ANEMX,0.,AWRI)                                 01363000
+        GO TO 20                                                        01364000
+ 500  CONTINUE                                                          01365000
+C                        R    E   S  O  L   V   E   D                   01366000
+C       B W    S L                                                      01367000
+       WRITE(NP,9040) MAT,N(1),N(2),I,II                                01368000
+ 9040  FORMAT(' RES : B. W.       .MATERIAL:',I5,1X,2A4,' ISOTOPE:',    01369000
+     1 I3,'     ENERGY RANGE:',I3)                                      01370000
+C                                                                       01371000
+C       CONT                                                            01372000
+       CALL RREC(1,NTE,MODE,T)                                          01373000
+       SPI=C1                                                           01374000
+       AP=C2                                                            01375000
+      NLS=N1                                                            01376000
+      CALL WREC(1,NTO,3)                                                01377000
+      NT(4,NTOUT)=NT(4,NTOUT)+1                                         01378000
+       ANSKEN=ANSKEN+1                                                  01379000
+      NRIS=0                                                            01380000
+       DO52 I2=1,NLS                                                    01381000
+C      LIST                                                             01382000
+       CALL RREC(2,NTE,MODE,T)                                          01383000
+       NRS=N2                                                           01384000
+       NRIS=NRIS+NRS                                                    01385000
+       AWRI=C1                                                          01386000
+       CALL WREC(2,NTO,3)                                               01387000
+       NT(4,NTOUT)=NT(4,NTOUT)+1+NRS                                    01388000
+       ANSKEN=ANSKEN+1                                                  01389000
+ 52    CONTINUE                                                         01390000
+C     INDICE                                                            01391000
+      NX=0                                                              01392000
+      GO TO 650                                                         01393000
+ 600   CONTINUE                                                         01394000
+C      A A                                                              01395000
+        CALL RREC(1,NTE,MODE,T)                                         01396000
+       SPI=C1                                                           01397000
+       AP=C2                                                            01398000
+       NLS=N1                                                           01399000
+       ANSKEN=1                                                         01400000
+       CALL WREC(1,NTO,3)                                               01401000
+       NT(4,NTOUT)=NT(4,NTOUT)+1                                        01402000
+C      LIST DEL BACKGROUND                                              01403000
+       CALL RREC(2,NTO,3,T)                                             01404000
+       LI=L1                                                            01405000
+       NX=N2                                                            01406000
+       AWRI=C1                                                          01407000
+       CALL WREC(2,NTO,MODE)                                            01408000
+       NT(4,NTOUT)=NT(4,NTOUT)+1+NX                                     01409000
+       ANSKEN=ANSKEN+1                                                  01410000
+       NRIS=1                                                           01411000
+        DO 62 I2=1,NLS                                                  01412000
+C      CONT                                                             01413000
+        CALL RREC(1,NTE,MODE,T)                                         01414000
+       NT(4,NTOUT)=NT(4,NTOUT)+1                                        01415000
+       ANSKEN=ANSKEN+1                                                  01416000
+       DO 64 I4=1,NJS                                                   01417000
+C      LIST FINALE                                                      01418000
+       CALL RREC(2,NTE,MODE,T)                                          01419000
+       NLJ=N2                                                           01420000
+       CALL WREC(2,NTO,3)                                               01421000
+       NT(4,NTOUT)=NT(4,NTOUT)+1+NLS*2                                  01422000
+       NRIS=NRIS+NLJ                                                    01423000
+ 64    CONTINUE                                                         01424000
+ 62    CONTINUE                                                         01425000
+       GO TO 650                                                        01426000
+ 700   CONTINUE                                                         01427000
+C                                                                       01428000
+C                 REICH -MOORE CONVERSION TO ADLER-ADLER FORMAAT        01429000
+C                                                                       01430000
+       WRITE(NP,9050) MAT,I,II                                          01431000
+ 9050  FORMAT(' RESOLVED RESONANCE: R-M TO A-A CONVERSION: MAT:',I5,    01432000
+     1 ' ISOTOPE:',I5,' ENERGY RANGE:',I5)                              01433000
+       WRITE(NP,9051)                                                   01434000
+ 9051  FORMAT(' WARNING !! THIS PART OF THE CODE HAS NOT BEEN TESTED!') 01435000
+       CALL RREC(1,NTE,MODE,T)                                          01436000
+       SPI=C1                                                           01437000
+       AP=C2                                                            01438000
+       NLS=N1                                                           01439000
+       CALL WREC(1,NTO,3)                                               01440000
+       NT(4,NTOUT)=NT(4,NTOUT)+1                                        01441000
+           ANSKEN=ANSKEN+1                                              01442000
+       NRIS=0                                                           01443000
+       NRISL=0                                                          01444000
+       CALL DELETE(0)                                                   01445000
+       DO 70 I2=1,NLS                                                   01446000
+C      LIST                                                             01447000
+       CALL RREC(2,NTE,MODE,T)                                          01448000
+C       NRISL=MAX NUM RISONANZE PER UN L                                01449000
+       IF(NRISL.LT.N2) NRISL=N2                                         01450000
+       AWRI=C1                                                          01451000
+C       NEL SEGUITO CONTO I DIVERSI J PER OGNI L                        01452000
+C       LEGGO E METTO I RECORDS IN DENS                                 01453000
+       NSPAZ(I2)=0                                                      01454000
+       AJ=500                                                           01455000
+       DO 71 I3=1,N2                                                    01456000
+       IF(AAA(6*(I3-1)+LB+1).EQ.AJ) GO TO 71                            01457000
+       AJ=AAA(6*(I3-1)+LB+1)                                            01458000
+       NSPAZ(I2)=NSPAZ(I2)+1                                            01459000
+ 71    CONTINUE                                                         01460000
+C                  METTO IL LIST IN DENS                                01461000
+       CALL STORE(2,I2,LOF)                                             01462000
+       IF(LOF.GT.0) CALL ERR(8HP1F2              ,71)                   01463000
+ 70    CONTINUE                                                         01464000
+C               FISSO GLI SPAZI PER PROGRAM POLLA                       01465000
+       LNLS=1                                                           01466000
+C              NUMERO J PER OGNI L                                      01467000
+       LPAR=LNLS+NLS                                                    01468000
+C              PARAMETRI DI ADLER-ADLER PRODOTTI                        01469000
+       LTT=LNLS+NRISL*12                                                01470000
+C              TT PER POLLA                                             01471000
+       NC1=3                                                            01472000
+       NC=2                                                             01473000
+C        NC=NUMERO CANALI=2 IN ENDFB                                    01474000
+       LER=NC1+LTT                                                      01475000
+C             ER: ENERGIE SPAZIO PER POLLA                              01476000
+       N2C=NRISL*4                                                      01477000
+C        N2C=SPAZIO =2 COMPLEX REAL*8 PER RISONANZA                     01478000
+       LEA=LER+N2C                                                      01479000
+C             EA=MI,NI DI A A PER POLLA                                 01480000
+       LRT=LEA+N2C                                                      01481000
+C             RT= ALFA,BETA DI A A PER POLLA                            01482000
+       LRA=LRT+N2C                                                      01483000
+C             RA=           SPAZIO PER POLLA                            01484000
+       LRF=LRA+N2C                                                      01485000
+C             RF= GF,HF  DI AA PER POLLA                                01486000
+       LRC=LRF+N2C                                                      01487000
+C             RC= GC,HC  DI AA PER POLLA                                01488000
+       LP=LRC+NRISL*NC1*NC1*2                                           01489000
+C             P= SPAZIO PER POLLA                                       01490000
+       LAP=LP+NC1*NC1*4*NRISL                                           01491000
+C             A= SPAZIO PER POLLA                                       01492000
+       LAB=LAP+NC1*NC1*4                                                01493000
+C             B= SPAZIO PER POLLA                                       01494000
+       LFIN=LAB+NC1*NC1*4                                               01495000
+       IF(LFIN.GT.MAAA) CALL ERR(8HP1F2          ,700)                  01496000
+C                                                                       01497000
+C           RIPRENDE I RECORD DA DENSE LI TRATTA J PER J                01498000
+C           GENERANDO UN LOOP SU J CHE AA HA E REICH-MOORE NO           01499000
+C                                                                       01500000
+C                                                                       01501000
+       DUM=0.                                                           01502000
+       NDUM=0                                                           01503000
+C              SCRIVO PRIMO LIST DI AA                                  01504000
+       LI=7                                                             01505000
+       LI7=42                                                           01506000
+       WRITE(NTO,1000) AWRI,DUM,LI,NDUM,LI7,LI,MAT,MF,MT                01507000
+ 1000  FORMAT(2E11.4,4I11,I4,I2,I3)                                     01508000
+       WRITE(NTO,2000) (DUM,J=1,LI7)                                    01509000
+ 2000  FORMAT(6E11.4)                                                   01510000
+       NT(4,NTOUT)=NT(4,NTOUT)+1                                        01511000
+       ANSKEN=ANSKEN+1                                                  01512000
+C                                                                       01513000
+C                       LOOP SULLE L DI REICH MOORE                     01514000
+       DO 72 ILLL=1,NLS                                                 01515000
+       CALL FETCH(ILLL,LOF)                                             01516000
+       IF(LOF.GT.0) CALL ERR(8HP1F2       , 70)                         01517000
+       NRS=N2                                                           01518000
+       L=L2                                                             01519000
+C            SCRIVE CONT DI AA DELL'L                                   01520000
+       WRITE(NTO,1000) DUM,DUM,L,NDUM,NSPAZ(ILLL),NDUM                  01521000
+       NT(4,NTOUT)=NT(4,NTOUT)+1                                        01522000
+       ANSKEN=ANSKEN+1                                                  01523000
+       AJ1=-500                                                         01524000
+       NRIS1=0                                                          01525000
+C              RESET POLLA                                              01526000
+       CALL POLL0                                                       01527000
+C       LOOP ON RESONANCES OF L READ ( WRITTEN J BY J)                  01528000
+       DO 73 IR=1,NRS                                                   01529000
+       AJ=AAA(LB+(6*(IR-1))+1)                                          01530000
+ 705   IF(AJ.NE.AJ1.AND.AJ1.GT.0) GO TO 710                             01531000
+       NRIS1=NRIS1+1                                                    01532000
+C                                                                       01533000
+C               DEFINES PARAMETERS FOR POLLA CODE                       01534000
+C          E0                                                           01535000
+       T3=AAA(LB+(6*(IR-1)))                                            01536000
+C          G                                                            01537000
+       G=(2*AJ+1)/2./(2.*SPI+1.)                                        01538000
+C          GG                                                           01539000
+       T4=AAA(LB+(6*(IR-1))+3)                                          01540000
+C          GN ( AD E0 MICA RIDOTTA ??????)                              01541000
+       TT1=AAA(LB+6*(IR-1)+2)                                           01542000
+C          GF1                                                          01543000
+       NSPAZ(LTT)=NAREAL(TT1)                                           01544000
+       TT2=AAA(LB+(6*(IR-1))+4)                                         01545000
+       NSPAZ(LTT+1)=NAREAL(TT2)                                         01546000
+C              GF2                                                      01547000
+       TT3=AAA(LB+(6*(IR-1))+5)                                         01548000
+       NSPAZ(LTT+2)=NAREAL(TT3)                                         01549000
+C                                                                       01550000
+C            CALL POLLA                                                 01551000
+       CALL POLLA(STMP,NO,G,T3,T4,NSPAZ(LTT),NSPAZ(LER),                01552000
+     1 NSPAZ(LEA),NSPAZ(LRT),                                           01553000
+     2 NSPAZ(LRA),NSPAZ(LRF),NSPAZ(LRC),NSPAZ(LP),NSPAZ(LAP),NSPAZ(LAB))01554000
+       GO TO 73                                                         01555000
+ 710   CONTINUE                                                         01556000
+C            QUI SE E' CAMBIATO J, ALLORA POLLA CALCOLA E SCRIVO I      01557000
+C            DATI DEL J                                                 01558000
+       CALL POLL1(STMP,NO,G,T3,T4,NSPAZ(LTT),NSPAZ(LER),                01559000
+     1 NSPAZ(LEA),NSPAZ(LRT),                                           01560000
+     2 NSPAZ(LRA),NSPAZ(LRF),NSPAZ(LRC),NSPAZ(LP),NSPAZ(LAP),NSPAZ(LAB))01561000
+C                                                                       01562000
+C              MI TRASFERISCO I PARAMETRI PRODOTTI PER SCRIVERLI IN     01563000
+C              OUTPUT IN MODO ACCONCIO                                  01564000
+       DO 75 IRR=1,NRIS1                                                01565000
+       MU=NSPAZ(LEA+(IRR-1)*2)                                          01566000
+       NU=NSPAZ(LEA+1+(IRR-1)*2)                                        01567000
+C      !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!01568000
+C      TO CONTROL: POLLA MANUAL PUT IN AA FORMULAE : SQRT(E)            01569000
+C                  ENDFB MANUAL PUT: PI*SQRT(E)/K**2                    01570000
+C                  WITH CON K=2.196771*AWRI/(AWRI+1)*E-3                01571000
+C      !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!01572000
+C         PER LE NOTAZIONI E': ALFA,BETA=GT,HT  DI ENDFB MANUAL         01573000
+       NGT=NSPAZ(LRT+(IRR-1)*2)                                         01574000
+       NHT=NSPAZ(LRT+(IRR-1)*2+1)                                       01575000
+       NGF=NSPAZ(LRF+(IRR-1)*2)                                         01576000
+       NHF=NSPAZ(LRF+(IRR-1)*2+1)                                       01577000
+       NGC=NSPAZ(LRC+(IRR-1)*2)                                         01578000
+       NHC=NSPAZ(LRC+(IRR-1)*2+1)                                       01579000
+C                                                                       01580000
+       NSPAZ(LPAR+(IRR-1)*12)=MU                                        01581000
+       NSPAZ(LPAR+(IRR-1)*12+1)=NU                                      01582000
+       NSPAZ(LPAR+(IRR-1)*12+2)=NGT                                     01583000
+       NSPAZ(LPAR+(IRR-1)*12+3)=NHT                                     01584000
+       NSPAZ(LPAR+(IRR-1)*12+4)=MU                                      01585000
+       NSPAZ(LPAR+(IRR-1)*12+5)=NU                                      01586000
+       NSPAZ(LPAR+(IRR-1)*12+6)=NGF                                     01587000
+       NSPAZ(LPAR+(IRR-1)*12+7)=NHF                                     01588000
+       NSPAZ(LPAR+(IRR-1)*12+8)=MU                                      01589000
+       NSPAZ(LPAR+(IRR-1)*12+9)=NU                                      01590000
+       NSPAZ(LPAR+(IRR-1)*12+10)=NGC                                    01591000
+       NSPAZ(LPAR+(IRR-1)*12+11)=NHC                                    01592000
+ 75    CONTINUE                                                         01593000
+       N12=NRIS1*12                                                     01594000
+       WRITE(NTO,1000) AJ,DUM,NDUM,NDUM,N12,NRIS1                       01595000
+       WRITE(NTO,2000)((NSPAZ(LPAR+(J1-1)*12+J-1),J=1,12),J1=1,NRIS1)   01596000
+       NT(4,NTOUT)=NT(4,NTOUT)+1+NRIS1*2                                01597000
+       ANSKEN=ANSKEN+1+NRIS1*2                                          01598000
+       AJ1=AJ                                                           01599000
+       NRIS1=0                                                          01600000
+       CALL POLL0                                                       01601000
+       GO TO 705                                                        01602000
+ 73    CONTINUE                                                         01603000
+ 72    CONTINUE                                                         01604000
+C                                                                       01605000
+C       INDICE                                                          01606000
+C                                                                       01607000
+ 650   CONTINUE                                                         01608000
+C       INDICE                                                          01609000
+      IND=IND+1                                                         01610000
+       IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX)                01611000
+       CALL EMPIN(MINDX1,AINDX(1,IND),FLOAT(MAT),FLOAT(MF),FLOAT(MT),ZA,01612000
+     1AWR,FLOAT(NIS),T,ZAI,ABN,FLOAT(LFW),FLOAT(NER),0.,                01613000
+     1FLOAT(LRF),EL,EH,SPI,AP,FLOAT(NLS),0.,                            01614000
+     2FLOAT(MODE),FLOAT(NTENDF),FLOAT(NTE),FLOAT(NTOUT),FLOAT(NTO),     01615000
+     3FLOAT(NT(3,NTOUT)),1.,1.,FLOAT(I),FLOAT(II),1.,                   01616000
+     46.,0.,0.,0.,N(1),N(2),N(15),0.,0.,AWRI)                           01617000
+C     INDICE                                                            01618000
+      IND=IND+1                                                         01619000
+       IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX)                01620000
+       CALL EMPIN(MINDX1,AINDX(1,IND),FLOAT(MAT),FLOAT(MF),FLOAT(MT),   01621000
+     1ZA,AWR,FLOAT(NIS),T,ZAI,ABN,FLOAT(LFW),FLOAT(NER),FLOAT(LRU),     01622000
+     2FLOAT(LRF),EL,EH,SPI,AP,FLOAT(NLS),0.,FLOAT(MODE),                01623000
+     3FLOAT(NTENDF),FLOAT(NTE),FLOAT(NTOUT),FLOAT(NTO),FLOAT(NT(3,NTOUT)01624000
+     4),FLOAT(NT(4,NTOUT)-1),ANSKEN,FLOAT(I),FLOAT(II),4.,5.,0.,0.,0.,  01625000
+     5N(1),N(2),N(15),FLOAT(NRIS),FLOAT(NX),AWRI)                       01626000
+ 20    CONTINUE                                                         01627000
+C      FINE LOOP SU RANGE E                                             01628000
+ 10     CONTINUE                                                        01629000
+C       FINE LOOP SU ISOTOPI                                            01630000
+C      SEND RECORD                                                      01631000
+                           NTST=NCONT(STMP,NO,NTE,MODE,MAT,MF,0)        01632000
+       IF(NTST.NE.0) CALL ERR(8H P1F2     ,10)                          01633000
+C      IL SEND                                                          01634000
+C                                                                       01635000
+C        METTO IL SEND SUL FILE DI OUTPUT                               01636000
+         CALL WREC(1,NTO,3)                                             01637000
+C                                                                       01638000
+       NT(4,NTOUT)=NT(4,NTOUT)+1                                        01639000
+       NT(3,NTOUT)=NT(4,NTOUT)                                          01640000
+       RETURN                                                           01641000
+       END                                                              01642000
+       SUBROUTINE POLLA(STMP,NO,G,T3,T4,TT,ER,EA,RT,RA,RF,RC,P,A,B)     01643000
+C     *************************************************************     01644000
+C     PROGRAM POLLA TO CONVERT REICH MOORE  FORMAT TO ADLER ADLER       01645000
+C     G.DE SAUSSURE AND R.B. PEREZ                                      01646000
+C     DESCRIBED IN ORNL-TM-2599   (JUNE 1969)                           01647000
+C                                                                       01648000
+C          MODIFIED BY MARCELLO GALLI - APRIL 1985                      01649000
+C          TO BE USED AS A ROUTINE FOR TESEO CODE                       01650000
+C                                                                       01651000
+C      ***************************************************************  01652000
+      IMPLICIT REAL * 8 (A-H,O-Z)                                       01653000
+      REAL*4 STMP,T3,T4,TT(3),T                                         01654000
+      REAL * 8 NA(1),N0(1),LEGEND                                       01655000
+      COMPLEX *16  Z,ZM,ZN,Z1,Z2,Z3,Z4,ZS,ZT,A,B,ER,EA,RT,RA,RF,RC,CI,CM01656000
+      DIMENSION A(15),B(15),P(1500)                                     01657000
+      DIMENSION ER(100),EA(100),RT(100),RA(100),RF(100),RC(100)         01658000
+C     DATA NA/5H(9A8)/, N0/8H(9A8,I8)/                                  01659000
+      DATA NR/0/,K/0/                                                   01660000
+      DATA RM/.5D0/,CI/(0.D0,1.D0)/,CM/(0.D0,.5D0)/                     01661000
+      DATA NC/3/,T1/1.D-70/, T2/1.D-10/, RR/2608000.D0/                 01662000
+C     TWO CHANNELS, NC=NUMBER OF CHANNELS+1=3                           01663000
+C1    READ N0,LEGEND,I                                                  01664000
+C     PRINT NA,LEGEND                                                   01665000
+C     IF(I)1,2,3                                                        01666000
+C2    READ 1008,G,NC,IK                                                 01667000
+      IF(STMP.GT.10) WRITE(NO,1001) G,NC                                01668000
+C     NC=NC+1                                                           01669000
+C3    K=0                                                               01670000
+C     NR=K                                                              01671000
+      R=RR*G                                                            01672000
+      IF(STMP.GT.11) WRITE(NO,1002)                                     01673000
+C4    READ 1005 ,T3,T4,(TT(I),I=1,NC)                                   01674000
+C     IF(T4)5,8,5                                                       01675000
+C5    PRINT 1006 ,T3,T4,(TT(I),I=1,NC)                                  01676000
+       IF(STMP.GT.11.) WRITE(NO,1006) T3,T4,(TT(I),I=1,3)               01677000
+      NR=NR+1                                                           01678000
+      EA(NR)=T3-CM*T4                                                   01679000
+      ER(NR)=EA(NR)                                                     01680000
+      DO 6 I=1,NC                                                       01681000
+      T=TT(I)                                                           01682000
+      T4=ABS(T)                                                         01683000
+      EA(NR)=EA(NR)-CM*T4                                               01684000
+      T3=SQRT(T4)                                                       01685000
+ 6    TT(I)=SIGN(T3,T)                                                  01686000
+      DO 7 I=1,NC                                                       01687000
+      DO 7 J=I,NC                                                       01688000
+      K=K+1                                                             01689000
+ 7    P(K)=TT(I)*TT(J)*RM                                               01690000
+C     GO TO 4                                                           01691000
+       RETURN                                                           01692000
+       ENTRY POLL1(STMP,NO,G,T3,T4,TT,ER,EA,RT,RA,RF,RC,P,A,B)          01693000
+C     COMPUTE POLES                                                     01694000
+ 8    DO 19 M=1,NR                                                      01695000
+      ZM=EA(M)                                                          01696000
+      Z=ZM                                                              01697000
+ 9    LC=0                                                              01698000
+      Z3=RM/ZM                                                          01699000
+      ZT=Z                                                              01700000
+      K=1                                                               01701000
+      DO 11 I=1,NC                                                      01702000
+      DO 11 J=I,NC                                                      01703000
+      LC=LC+1                                                           01704000
+      B(LC)=0.                                                          01705000
+      A(LC)=B(LC)                                                       01706000
+      IF(I-J)11,10,11                                                   01707000
+ 10   A(LC)=1.                                                          01708000
+ 11   CONTINUE                                                          01709000
+      A(1)=1./CDSQRT(ZM)                                                01710000
+      B(1)=-Z3*A(1)                                                     01711000
+      ZS=0.                                                             01712000
+      Z4=ZS                                                             01713000
+      DO 14 N=1,NR                                                      01714000
+      IF(N-M)12,13,13                                                   01715000
+ 12   ZS=ZS-1./(DCONJG(EA(N))-ZM)                                       01716000
+ 13   Z2=1./(ER(N)-ZM)                                                  01717000
+      ZS=ZS+Z2                                                          01718000
+      Z1=-CI*Z2                                                         01719000
+      Z2=Z1*Z2                                                          01720000
+      DO 14 L=1,LC                                                      01721000
+      A(L)=A(L)+Z1*P(K)                                                 01722000
+      B(L)=B(L)+Z2*P(K)                                                 01723000
+ 14   K=K+1                                                             01724000
+      L=0                                                               01725000
+      Z=T1                                                              01726000
+      CALL SR(A,NC,Z)                                                   01727000
+      T=Z*DCONJG(Z)                                                     01728000
+      IF(T)15,19,15                                                     01729000
+ 15   DO 17 I=1,NC                                                      01730000
+      DO 17 J=I,NC                                                      01731000
+      L=L+1                                                             01732000
+      IF(I-J)16,17,16                                                   01733000
+ 16   Z3=Z3+A(L)*B(L)                                                   01734000
+ 17   Z3=Z3+A(L)*B(L)                                                   01735000
+      Z=1./(ZS-Z3)                                                      01736000
+      ZM=ZM+Z                                                           01737000
+ 18   Z1=(ZT-Z)/ZM                                                      01738000
+      T=Z1*DCONJG(Z1)                                                   01739000
+      IF(T-T2)19,9,9                                                    01740000
+ 19   EA(M)=DCONJG(ZM)                                                  01741000
+C     PRINT 1004                                                        01742000
+       IF(STMP.GT.11.) WRITE(NO,1004)                                   01743000
+C     COMPUTE RESIDUES                                                  01744000
+ 20   DO 27 M=1,NR                                                      01745000
+      L=1                                                               01746000
+      K=L                                                               01747000
+      ZM=0.                                                             01748000
+      ZS=1.                                                             01749000
+      DO 22 I=1,NC                                                      01750000
+      DO 22 J=I,NC                                                      01751000
+      B(L)=ZM                                                           01752000
+      A(L)=B(L)                                                         01753000
+      IF(I-J)22,21,22                                                   01754000
+ 21   B(L)=ZS                                                           01755000
+      A(L)=B(L)                                                         01756000
+ 22   L=L+1                                                             01757000
+      Z4=EA(M)                                                          01758000
+      Z3=DCONJG(Z4)                                                     01759000
+      ZT=ZS/(Z3-Z4)                                                     01760000
+      A(1)=A(1)+1./CDSQRT(Z3)                                           01761000
+      B(1)=DCONJG(A(1))                                                 01762000
+      DO 25 N=1,NR                                                      01763000
+      ZN=ER(N)                                                          01764000
+      Z=ZN-Z3                                                           01765000
+      Z1=-CI/Z                                                          01766000
+      ZS=ZS*Z                                                           01767000
+      Z=ZN-Z4                                                           01768000
+      Z2=-CI/Z                                                          01769000
+      ZT=ZT*Z                                                           01770000
+      DO 23 L=2,LC                                                      01771000
+      K=K+1                                                             01772000
+      A(L)=A(L)+Z1*P(K)                                                 01773000
+ 23   B(L)=B(L)+Z2*P(K)                                                 01774000
+      IF(N-M)24,25,24                                                   01775000
+ 24   Z=DCONJG(EA(N))                                                   01776000
+      ZS=ZS/(Z-Z3)                                                      01777000
+      ZT=ZT/(Z-Z4)                                                      01778000
+ 25   K=K+1                                                             01779000
+      Z2=0.                                                             01780000
+      Z1=Z2                                                             01781000
+      CALL SR(A,NC,Z1)                                                  01782000
+      CALL SR(B,NC,Z2)                                                  01783000
+      Z4=Z1*DCONJG(Z2)                                                  01784000
+      Z1=Z1*A(1)                                                        01785000
+      Z2=Z2*B(1)                                                        01786000
+      DO 26 I=2,NC                                                      01787000
+ 26   ZM=ZM+Z4*A(I)*DCONJG(B(I))                                        01788000
+      ZT=DCONJG(ZT)                                                     01789000
+      ZS=CI*R*ZS                                                        01790000
+      Z3=1./CDSQRT(Z3)                                                  01791000
+      RF(M)=(ZS+ZS)*ZT*ZM                                               01792000
+      RT(M)=-ZS*Z1*Z3                                                   01793000
+      RA(M)=(RT(M)+RT(M))*(ZT*DCONJG(Z2)-RM)                            01794000
+ 27   RC(M)=RA(M)-RF(M)                                                 01795000
+ 28   IF(STMP.GT.11.)WRITE(NO,1003)(EA(M),RT(M),RF(M),RC(M),M=1,NR)     01796000
+C     IF(IK)30,1,29                                                     01797000
+C29   PUNCH 1007,(EA(M),RT(M),RF(M),RC(M),M=1,NR)                       01798000
+C     IK=IK-2                                                           01799000
+C     IF(IK)30,1,29                                                     01800000
+ 1001 FORMAT(12H0SPIN FACTOR,F6.3,I6,17H FISSION CHANNELS)              01801000
+ 1002 FORMAT(29H0INPUT REICH-MOORE PARAMETERS//                         01802000
+     19X,2HE0,14X,2HGG,10X,7HGNO(MV),10X,3HGF1,11X,3HGF2,               01803000
+     212X,3HGF3,11X,3HGF4//)                                            01804000
+ 1003 FORMAT(10X,2HMU,12X,2HNU,12X,5HALPHA,10X,4HBETA,8X,9HG-FISSION,7X,01805000
+     19HH-FISSION,6X,9HG-CAPTURE,6X,9HH-CAPTURE///(4 (F15.3,F14.3)))    01806000
+ 1004 FORMAT(30H0OUTPUT ADLER-ADLER PARAMETERS//)                       01807000
+C1005 FORMAT(2F10.3,3PF10.3,    4F10.3)                                 01808000
+ 1006 FORMAT(F15.3,F14.3,3PF15.3,2(F14.3,F15.3))                        01809000
+ 1007 FORMAT(4 (F10.3,F10.3))                                           01810000
+ 1008 FORMAT(F8.3,2I8)                                                  01811000
+C30   CALL EXIT                                                         01812000
+      RETURN                                                            01813000
+      ENTRY POLL0                                                       01814000
+C       RESET POLLA ROUTINE                                             01815000
+       NR=0                                                             01816000
+       RETURN                                                           01817000
+      END                                                               01818000
+      SUBROUTINE SR(F,N,B)                                              01819000
+C      *******************************************                      01820000
+C      SUBROUTINE SR IS PART OF POLLA CODE                              01821000
+C      ****************************************                         01822000
+      DIMENSION F(15)                                                   01823000
+      COMPLEX *16  C0,C1,F,A,T,D,B                                      01824000
+      DATA C0/(0.D0,0.D0)/,C1/(1.D0,0.D0)/                              01825000
+      TS=B                                                              01826000
+      B=1.                                                              01827000
+      IF(N-1)1,2,3                                                      01828000
+ 1    PRINT 99                                                          01829000
+   99 FORMAT (3H SP)                                                    01830000
+      CALL ERR(8HSRPOLLA             ,99)                               01831000
+ 2    B=F(1)                                                            01832000
+      F(1)=C1/B                                                         01833000
+      RETURN                                                            01834000
+ 3    K=1                                                               01835000
+      DO10M=1,N                                                         01836000
+      M1=M-1                                                            01837000
+      DO10L=M,N                                                         01838000
+      A=C0                                                              01839000
+      IF(M1)6,6,4                                                       01840000
+ 4    KL=L                                                              01841000
+      KM=M                                                              01842000
+      DO5LM=1,M1                                                        01843000
+      A=A+F(KL)*F(KM)                                                   01844000
+      J=N-LM                                                            01845000
+      KL=KL+J                                                           01846000
+ 5    KM=KM+J                                                           01847000
+ 6    T=F(K)-A                                                          01848000
+      IF(L-M)7,7,9                                                      01849000
+  7   D=CDSQRT(T)                                                       01850000
+      F(K)=D                                                            01851000
+      B=B*T                                                             01852000
+      TT=D*DCONJG(D)-TS                                                 01853000
+      IF(TT)8,10,10                                                     01854000
+ 8    B=0.                                                              01855000
+      RETURN                                                            01856000
+ 9    F(K)=T/D                                                          01857000
+ 10   K=K+1                                                             01858000
+      K=1                                                               01859000
+      F(K)=C1/F(K)                                                      01860000
+      DO12L=2,N                                                         01861000
+      K=K+2+N-L                                                         01862000
+      T=C1/F(K)                                                         01863000
+      F(K)=T                                                            01864000
+      L1=L-1                                                            01865000
+      KL=L                                                              01866000
+      KM=0                                                              01867000
+      DO12M=1,L1                                                        01868000
+      LK=KL                                                             01869000
+      A=C0                                                              01870000
+      DO 11 LM=M,L1                                                     01871000
+      II=KM+LM                                                          01872000
+      A=A-F(KL)*F(II)                                                   01873000
+ 11   KL=KL+N-LM                                                        01874000
+      F(LK)=A*T                                                         01875000
+      J=N-M                                                             01876000
+      KL=LK+J                                                           01877000
+ 12   KM=KM+J                                                           01878000
+      K=1                                                               01879000
+      DO14M=1,N                                                         01880000
+      KL=K                                                              01881000
+      DO14L=M,N                                                         01882000
+      KM=K                                                              01883000
+      A=C0                                                              01884000
+      I1=N-L+1                                                          01885000
+      DO13LM=1,I1                                                       01886000
+      A=A+F(KL)*F(KM)                                                   01887000
+      KL=KL+1                                                           01888000
+ 13   KM=KM+1                                                           01889000
+      F(K)=A                                                            01890000
+ 14   K=K+1                                                             01891000
+      RETURN                                                            01892000
+      END                                                               01893000
+       SUBROUTINE P1F3(MMM,N,MAAA,SPAZ)                                 01894000
+C      ***********************************                              01895000
+C                                                                       01896000
+C      READS  FILE 3 OF ENDFB                                           01897000
+C            SIGMA SMOOTH - PART  1                                     01898000
+C                                                                       01899000
+C      **********************************                               01900000
+       DIMENSION N(MMM)                                                 01901000
+       DATA T/0.0  /                                                    01902000
+C                                                                       01903000
+       COMMON/FILES/NT(4,99)                                            01904000
+       EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))               01905000
+C                                                                       01906000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        01907000
+       EQUIVALENCE(OPZ(1,3,1),STMP)                                     01908000
+C                                                                       01909000
+       COMMON/DIM/M(5)                                                  01910000
+            EQUIVALENCE(M(2),IND)                                       01911000
+C                                                                       01912000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     01913000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     01914000
+C                                                                       01915000
+            COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),           01916000
+     1      JNT(200),N1X,N2X,NS,LX,LY,LB                                01917000
+            COMMON/DENS/JMT,JAT,JTT,JLT,LA,JNS,MNS,JX,MX                01918000
+C                                                                       01919000
+       COMMON /INDX/AINDX(40,200)                                       01920000
+C                                                                       01921000
+C                                                                       01922000
+           MODE=N(4)                                                    01923000
+        NTENDF=N(3)                                                     01924000
+        NTOUT=N(5)                                                      01925000
+         NTE=NT(1,NTENDF)                                               01926000
+C                                                                       01927000
+C      K5 E K6 INDICANO LA DESTINAZIONE DEI DATI NELLINDICE             01928000
+       K5=0                                                             01929000
+       K6=0                                                             01930000
+C      SELEZIONA MT DI INTERESSE                                        01931000
+C             MT=3 NON SERVE                                            01932000
+              IF(MT.EQ.3) GO TO 100                                     01933000
+      IF(MT.GE.1.AND.MT.LE.4) K5=5                                      01934000
+C      TOT,EL,ANEL,SCATT ANEL(=SUM 51:91)                               01935000
+      IF(MT.EQ.16.OR.MT.EQ.18) K5=5                                     01936000
+C      N2N DIRETTA , FISS                                               01937000
+      IF(MT.GE.101.AND.MT.LE.107) K5=5                                  01938000
+C      101=CATT TOT=SUM OF 102:109  PLUS 111:114                        01939000
+C     N GAM , N P , N D , N T , N HE3, N ALFA                           01940000
+      IF(MT.EQ.4.OR.MT.EQ.16) K6=6                                      01941000
+C      ANEL  , N2N                                                      01942000
+      IF(MT.GE.51.AND.MT.LE.90) K6=6                                    01943000
+C      ANEL DAL LIVELLO 1,2,... 40 ( O N 2N PER LR=16 MA QUESTA RAPPR.  01944000
+C        CREDO NON SIA USATA)                                           01945000
+      IF(MT.GE.6.AND.MT.LE.9) K6=6                                      01946000
+          IF(MT.GE.6.AND.MT.LE.9) K5=5                                  01947000
+C       N2N PRIMO NEUT DAI PRIMI LIVELLI                                01948000
+      IF(MT.GE.46.AND.MT.LE.49) K6=6                                    01949000
+C      N 2N SECONDO NEUT DAI PRIMI LIVELLI                              01950000
+C                                                                       01951000
+C                                                                       01952000
+      IF(K5.GT.0.OR.K6.GT.0) GO TO 200                                  01953000
+C      NON E MT DI INTERESSE SE ARRIVA QUI                              01954000
+ 100     CALL SKIPS(MODE,NTE,1,STMP,NO)                                 01955000
+       RETURN                                                           01956000
+ 200   CONTINUE                                                         01957000
+C                                                                       01958000
+       WRITE(NP,9010) MAT,N(1),N(2),MT                                  01959000
+ 9010  FORMAT(' CROSS SECTIONS. MATERIAL:',I5,1X,2A4,' REACTION:',I5)   01960000
+C                                                                       01961000
+       IF(NTOUT.LE.0) NTOUT=23                                          01962000
+       CALL POSL(NTOUT)                                                 01963000
+       NTO=NT(1,NTOUT)                                                  01964000
+       AMAT=MAT                                                         01965000
+       AMF=MF                                                           01966000
+       AMT=MT                                                           01967000
+       ZA=C1                                                            01968000
+       AWR=C2                                                           01969000
+       ALIS=L1                                                          01970000
+       ALFS=L2                                                          01971000
+C       1: HEAD                                                         01972000
+       CALL WREC(1,NTO,3)                                               01973000
+C      TAB1 COLLE SIGMA                                                 01974000
+       CALL RREC(3,NTE,MODE,T)                                          01975000
+       S=C1                                                             01976000
+       Q=C2                                                             01977000
+       ALT=L1                                                           01978000
+       ALR=L2                                                           01979000
+       ANR=N1                                                           01980000
+       ANPP=N2                                                          01981000
+C      CALCOLO SCHEDE SCRITTE                                           01982000
+       ANSK=3+N1/3+NREST(N1,3)+N2/3+NREST(N2,3)                         01983000
+       CALL WREC(3,NTO,3)                                               01984000
+C      ULTIMO SEND                                                      01985000
+C      SEND RECORD                                                      01986000
+                           NTST=NCONT(STMP,NO,NTE,MODE,MAT,MF,0)        01987000
+       IF(NTST.NE.0) CALL ERR(8H P1F3     ,222)                         01988000
+C      IL SEND                                                          01989000
+C                                                                       01990000
+C        METTO IL SEND SUL FILE DI OUTPUT                               01991000
+         CALL WREC(1,NTO,3)                                             01992000
+C                                                                       01993000
+       IF(K5.NE.5) GO TO 300                                            01994000
+C      INDICE DESTINAZIONE F5                                           01995000
+C         REAZIONI MT=102-107,1-4,18=NGAM,NP,NT,NHE3,NALF,FISS          01996000
+C                                                                       01997000
+      IND=IND+1                                                         01998000
+       IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX)                01999000
+       CALL EMPIN(MINDX1,AINDX(1,IND),AMAT,AMF,AMT,ZA,AWR,              02000000
+     1   0.,T,Q,0.,ALIS,ALFS,ALT,ALR,                                   02001000
+     2     ANR,ANPP,S,Q,0.,0.,                                          02002000
+     3FLOAT(MODE),FLOAT(NTENDF),FLOAT(NTE),FLOAT(NTOUT),FLOAT(NTO),     02003000
+     4FLOAT(NT(3,NTOUT)),ANSK,3.,0.,0.,                                 02004000
+     55.,0.,0.,0.,0.,N(1),N(2),N(11),0.,0.,0.)                          02005000
+ 300   IF(K6.NE.6) GO TO 400                                            02006000
+        ANREC=2.                                                        02007000
+        IF(AMT.EQ.4..OR.AMT.EQ.16.) ANREC=1.                            02008000
+C       ANREC=2 PER DATI DI LIVELLO                                     02009000
+C       ANREC=1 PER SIGMA                                               02010000
+        ANWD=2.                                                         02011000
+      IF(AMT.EQ.4..OR.(AMT.GE.51..AND.AMT.LE.91..AND.LR.NE.16.))ANWD=1. 02012000
+C        ANWD= 1 PER ELASTICA                                           02013000
+C           = 2 PER N,2N                                                02014000
+C           =3 PER MI                                                   02015000
+C                                                                       02016000
+      IND=IND+1                                                         02017000
+       IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX)                02018000
+       CALL EMPIN(MINDX1,AINDX(1,IND),AMAT,AMF,AMT,ZA,AWR,              02019000
+     10.,T,Q,0.,ALIS,ALFS,ALT,ALR,                                      02020000
+     2ANR,ANPP,S,Q,0.,0.,                                               02021000
+     3FLOAT(MODE),FLOAT(NTENDF),FLOAT(NTE),FLOAT(NTOUT),FLOAT(NTO),     02022000
+     4FLOAT(NT(3,NTOUT)),ANSK,3.,0.,0.,                                 02023000
+     56.,ANREC,ANWD,0.,0.,N(1),N(2),N(15),0.,0.,0.)                     02024000
+ 400   IF(AMT.NE.18..AND.AMT.NE.102.) GO TO 600                         02025000
+C      Q PER FISS E CATT                                                02026000
+       WD=5.                                                            02027000
+       IF(AMT.EQ.18.) WD=10.                                            02028000
+      IND=IND+1                                                         02029000
+       IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX)                02030000
+       CALL EMPIN(MINDX1,AINDX(1,IND),AMAT,AMF,AMT,ZA,AWR,              02031000
+     1    0.,T,Q,0.,ALIS,ALFS,ALT,ALR,                                  02032000
+     2    ANR,ANPP,S,Q,0.,0.,                                           02033000
+     3FLOAT(MODE),FLOAT(NTENDF),FLOAT(NTE),0.,0.,                       02034000
+     4FLOAT(NT(3,NTOUT)),ANSK,3.,0.,0.,                                 02035000
+     51.,3.,WD,0.,0.,N(1),N(2),N(15),0.,0.,0.)                          02036000
+ 600   CONTINUE                                                         02037000
+      NT(3,NTOUT)=NT(3,NTOUT)+ANSK                                      02038000
+      NT(4,NTOUT)=NT(3,NTOUT)                                           02039000
+      RETURN                                                            02040000
+      END                                                               02041000
+      SUBROUTINE P1F4(MMM,N,MAAA,SPAZ)                                  02042000
+C     *********************************                                 02043000
+C                                                                       02044000
+C     READ ENDFB FILE 4                                                 02045000
+C         ANGOLAR DISTRIBUTIONS  - PARTE 1                              02046000
+C                                                                       02047000
+C      HEAD RECORD IS IN /RECS/ , IN N THE INPUT TABLE CARD OF THE TAPE 02048000
+C                                                                       02049000
+C     ********************************                                  02050000
+      DIMENSION N(MMM)                                                  02051000
+C                                                                       02052000
+       COMMON/FILES/NT(4,99)                                            02053000
+       EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))               02054000
+C                                                                       02055000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        02056000
+      EQUIVALENCE(OPZ(1,4,1),STMP)                                      02057000
+C                                                                       02058000
+       COMMON/DIM/M(5)                                                  02059000
+       EQUIVALENCE(M(2),IND)                                            02060000
+C                                                                       02061000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     02062000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     02063000
+C                                                                       02064000
+      DATA T/0.0/                                                       02065000
+C                                                                       02066000
+      COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),       02067000
+     1N1X,N2X,NS,LX,LY,LB                                               02068000
+C                                                                       02069000
+        COMMON/INDX/AINDX(40,200)                                       02070000
+C                                                                       02071000
+C                                                                       02072000
+      MODE=N(4)                                                         02073000
+      NTENDF=N(3)                                                       02074000
+      NTOUT=N(5)                                                        02075000
+      NTE=NT(1,NTENDF)                                                  02076000
+C                                                                       02077000
+C     SOLO SCATTERING ELASTICO (MT=2) E LIVELLI ANEL(MT=51:90)          02078000
+       IF(MT.GE.51.AND.MT.LE.90) GOTO110                                02079000
+      IF(MT.EQ.2) GO TO 110                                             02080000
+      CALL SKIPS(MODE,NTE,1,STMP,NO)                                    02081000
+      RETURN                                                            02082000
+ 110  CONTINUE                                                          02083000
+C                                                                       02084000
+       WRITE(NP,9010) MAT,N(1),N(2),MT                                  02085000
+ 9010  FORMAT(' ANGOLAR DISTRIBUTIONS.    MATERIAL:',I5,                02086000
+     1        1X,2A4,' REACTION:',I5)                                   02087000
+C                                                                       02088000
+      IF(NTOUT.LE.0) NTOUT=24                                           02089000
+      CALL POSL(NTOUT)                                                  02090000
+      NTO=NT(1,NTOUT)                                                   02091000
+C       RECORD 1 : HEAD (GIA' E' IN RECS )                              02092000
+       AMAT=MAT                                                         02093000
+       AMF=MF                                                           02094000
+       AMT=MT                                                           02095000
+      ZA=C1                                                             02096000
+      AWR=C2                                                            02097000
+      LVT=L1                                                            02098000
+      LTT=L2                                                            02099000
+      CALL WREC(1,NTO,3)                                                02100000
+      ANSK=1.                                                           02101000
+      NRE=1                                                             02102000
+C      RECORD 2: LIST PER LEGENDRE CON LVT=1,CONT PER LVT=0             02103000
+C       LVT=1 : DATA MATRICE U                                          02104000
+C       LVT=0 : NON DATRA MATRICE U                                     02105000
+C                                                                       02106000
+C       SE E UN CONT                                                    02107000
+      NTIP2=1                                                           02108000
+C      SE E UN LIST                                                     02109000
+      IF(LVT.EQ.1) NTIP2=2                                              02110000
+      CALL RREC(NTIP2,NTE,MODE,T)                                       02111000
+      LI=L1                                                             02112000
+      LCT=L2                                                            02113000
+      NK=N1                                                             02114000
+      NM=N2                                                             02115000
+      CALL WREC(NTIP2,NTO,3)                                            02116000
+      ANSK=ANSK+1+NK/6+NREST(NK,6)                                      02117000
+      NRE=NRE+1                                                         02118000
+C      NK E ZERO SE E UN CONT                                           02119000
+      IF(LTT.EQ.0) GO TO 100                                            02120000
+C     VA A INDICE  SE E ISOTROPO                                        02121000
+C                                                                       02122000
+C     TERZO RECORD (TAB2)                                               02123000
+      CALL RREC(4,NTE,MODE,T)                                           02124000
+      NR=N1                                                             02125000
+      NE=N2                                                             02126000
+      CALL WREC(4,NTO,3)                                                02127000
+      ANSK=ANSK+NR/3+NREST(NR,3)+1                                      02128000
+      NRE=NRE+1                                                         02129000
+      NTIP2=2                                                           02130000
+       IF(LTT.EQ.2) NTIP2=3                                             02131000
+       AMAXPL=0.                                                        02132000
+       AMAXPT=0.                                                        02133000
+      DO 10 I=1,NE                                                      02134000
+C      RECORD 5 ( TAB1 PER LTT=2, LIST PER LTT=1 )                      02135000
+      CALL RREC(NTIP2,NTE,MODE,T)                                       02136000
+      IF(NTIP2.EQ.2) ANSK=ANSK+1+N1/6+NREST(N1,6)                       02137000
+          IF(NTIP2.EQ.3)ANSK=ANSK+1+N1/3+NREST(N1,3)+N2/3+NREST(N2,3)   02138000
+      NRE=NRE+1                                                         02139000
+       IF(AMAXPL.LT.N1) AMAXPL=N1                                       02140000
+       IF(AMAXPT.LT.N2) AMAXPT=N2                                       02141000
+      CALL WREC(NTIP2,NTO,3)                                            02142000
+ 10   CONTINUE                                                          02143000
+ 100  CONTINUE                                                          02144000
+      IF(NCONT(STMP,NO,NTE,MODE,MAT,4,0).GT.0)CALL ERR(8HP1F4     ,100) 02145000
+C                                                                       02146000
+C        METTO IL SEND SUL FILE DI OUTPUT                               02147000
+         CALL WREC(1,NTO,3)                                             02148000
+       ANSK=ANSK+1                                                      02149000
+       NRE=NRE+1                                                        02150000
+C                                                                       02151000
+       DEST=8.                                                          02152000
+       DEST1=4.                                                         02153000
+       DEST2=0.                                                         02154000
+       IF(AMT.EQ.2.) GO TO 200                                          02155000
+C                            SCATT LIVELLI DISCRETI MT=51:90            02156000
+       DEST=6.                                                          02157000
+       DEST1=2.                                                         02158000
+       DEST2=3.                                                         02159000
+ 200   CONTINUE                                                         02160000
+C                                                                       02161000
+C                                                                       02162000
+C     INDICE                                                            02163000
+      IND=IND+1                                                         02164000
+       IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX)                02165000
+      CALL EMPIN(MINDX1,AINDX(1,IND),AMAT,AMF,AMT,                      02166000
+     1ZA,AWR,0.,T,0.,0.,FLOAT(LVT),FLOAT(LTT),FLOAT(LI),FLOAT(LCT),     02167000
+     2FLOAT(NK),FLOAT(NM),FLOAT(NR),FLOAT(NE),AMAXPL,AMAXPT,FLOAT(MODE),02168000
+     3FLOAT(NTENDF),FLOAT(NTE),FLOAT(NTOUT),FLOAT(NTO),FLOAT(NT(3,NTOUT)02169000
+     4),ANSK,FLOAT(NRE),0.,0.,DEST,DEST1,DEST2,0.,0.,N(1),N(2),         02170000
+     5N(11),0.,0.,0.)                                                   02171000
+      NT(3,NTOUT)=NT(3,NTOUT)+ANSK                                      02172000
+      NT(4,NTOUT)=NT(3,NTOUT)                                           02173000
+C                                                                       02174000
+      RETURN                                                            02175000
+      END                                                               02176000
+      SUBROUTINE P1F5(MMM,N,MAAA,SPAZ)                                  02177000
+C     ******************************                                    02178000
+C                                                                       02179000
+C     READS ENDFB FILE 5                                                02180000
+C          SECONDARY ENERGY DISTRIBUTION: PART 1                        02181000
+C                                                                       02182000
+C          CONVERT FISSION SPECTRUM FOR ANEL,N2N (LF=7,MT=16,91)        02183000
+C          IN TABULATED DATA  ( LF=1 )                                  02184000
+C                                                                       02185000
+C     *******************************                                   02186000
+        EXTERNAL FISS1                                                  02187000
+      DIMENSION N(MMM),SPAZ(MAAA),TEMP(2)                               02188000
+C                                                                       02189000
+       COMMON/FILES/NT(4,99)                                            02190000
+       EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))               02191000
+C                                                                       02192000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        02193000
+       EQUIVALENCE(STMP,OPZ(1,5,1)),(EUP,OPZ(2,5,2)),(DELU,OPZ(2,5,3))  02194000
+C                                                                       02195000
+       COMMON/DIM/M(5)                                                  02196000
+       EQUIVALENCE(M(2),IND)                                            02197000
+C                                                                       02198000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     02199000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     02200000
+C                                                                       02201000
+        COMMON MAXA,AD(1)                                               02202000
+      COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),       02203000
+     1N1X,N2X,NS,LX,LY,LB                                               02204000
+C                                                                       02205000
+       COMMON /INDX/AINDX(40,200)                                       02206000
+C                                                                       02207000
+       DATA T/0.0/                                                      02208000
+C                                                                       02209000
+        IF(EUP.LE.0.) EUP=1.4190675E+7                                  02210000
+        IF(DELU.LE.0.) DELU=1./120.                                     02211000
+        NG=OPZ(2,5,4)                                                   02212000
+        IF(NG.LE.0) NG=2083                                             02213000
+        EINF=EUP*EXP(-NG*DELU)                                          02214000
+        MODE=N(4)                                                       02215000
+         NTENDF=N(3)                                                    02216000
+         NTOUT=N(5)                                                     02217000
+      NTE=NT(1,NTENDF)                                                  02218000
+C                                                                       02219000
+C     TEST SUI MT CHE AMMETTE                                           02220000
+      IF(MT.EQ.91.OR.MT.EQ.16.OR.MT.EQ.18) GOTO 111                     02221000
+C             MT=91  ANEL PER F6 ( PARTE CONTINUO SOPRA I LIVELLI)      02222000
+C             MT=16  N,2N PER F6 ( N,2N DIRETTA                         02223000
+C             MT=18    CHI PER F7                                       02224000
+C                                                                       02225000
+C      ALTRE SECTION NON VENGONO LETTE MA SALTATE                       02226000
+        CALL SKIPS(MODE,NTE,1,STMP,NO)                                  02227000
+        RETURN                                                          02228000
+ 111    CONTINUE                                                        02229000
+C                                                                       02230000
+       WRITE(NP,9010) MAT,N(1),N(2),MT                                  02231000
+ 9010  FORMAT(' ENERGY  DISTRIBUTIONS.    MATERIAL:',I5,1X,2A4,         02232000
+     1        ' REACTION:',I5)                                          02233000
+C                                                                       02234000
+C                                                                       02235000
+      IF(NTOUT.LE.0) NTOUT=25                                           02236000
+      CALL POSL(NTOUT)                                                  02237000
+      NTO=NT(1,NTOUT)                                                   02238000
+C      RECORD 1 : HEAD GIA' IN  /RECS/                                  02239000
+       AMAT=MAT                                                         02240000
+       AMF=MF                                                           02241000
+       AMT=MT                                                           02242000
+      ZA=C1                                                             02243000
+      AWR=C2                                                            02244000
+      NK=N1                                                             02245000
+      CALL WREC(1,NTO,3)                                                02246000
+       NT(3,NTOUT)=NT(3,NTOUT)+1                                        02247000
+C      PUNTO AL TAB1 DOPO IL HEAD                                       02248000
+      ANSK=0.                                                           02249000
+      NRE=0                                                             02250000
+C       ..................LOOP SULLE VARIE LEGGI                        02251000
+      DO 10 I=1,NK                                                      02252000
+C      REC 1 : TAB1                                                     02253000
+      CALL RREC(3,NTE,MODE,T)                                           02254000
+      U=C1                                                              02255000
+      LT=L1                                                             02256000
+      LF=L2                                                             02257000
+      NRE=NRE+1                                                         02258000
+      ANSK=ANSK+N1/3+NREST(N1,3)+1+N2/3+NREST(N2,3)                     02259000
+C       -------------- VERRA CONVERTITO LF=7 IN LF=1 PER MT=16,91       02260000
+        IF(LF.EQ.7.AND.MT.NE.18) L2=1                                   02261000
+C                                                                       02262000
+      CALL WREC(3,NTO,3)                                                02263000
+C            LF PARAMETRO DI ENDFB= 1 PER TAB, 7 PER CHI, 9 PER EVAPORAT02264000
+      GO TO (100,550,550,400,550,550,200,550,200,550,400),LF            02265000
+      CALL ERR(8HP1F5      ,0)                                          02266000
+      CALL SKIPS(MODE,NTE,1,STMP,NO)                                    02267000
+      NT(3,NTOUT)=NT(3,NTOUT)+ANSK                                      02268000
+       GO TO 150                                                        02269000
+C                                                                       02270000
+ 100  CONTINUE                                                          02271000
+C      TABULATE    LF=1                                                 02272000
+C     LEGGE TAB2                                                        02273000
+      CALL RREC(4,NTE,MODE,T)                                           02274000
+      ANSK=ANSK+1+N1/3+NREST(N1,3)                                      02275000
+      NRE=NRE+1                                                         02276000
+      NE=N2                                                             02277000
+      CALL WREC(4,NTO,3)                                                02278000
+      DO 20 II=1,NE                                                     02279000
+      CALL RREC(3,NTE,MODE,T)                                           02280000
+      ANSK=ANSK+1+N1/3+NREST(N1,3)+N2/3+NREST(N2,3)                     02281000
+      NRE=NRE+1                                                         02282000
+      CALL WREC(3,NTO,3)                                                02283000
+ 20   CONTINUE                                                          02284000
+      GO TO 300                                                         02285000
+C                                                                       02286000
+ 200  CONTINUE                                                          02287000
+C     SPETTRO FISSIONE O SPETTRO EVAPORAZIONE LF=7,9                    02288000
+      CALL RREC(3,NTE,MODE,T)                                           02289000
+      IF(LF.EQ.7.AND.MT.NE.18) GO TO 700                                02290000
+      NE=N2                                                             02291000
+      NRE=NRE+1                                                         02292000
+      ANSK=ANSK+1+N1/3+NREST(N1,3)+N2/3+NREST(N2,3)                     02293000
+      CALL WREC(3,NTO,3)                                                02294000
+      GO TO 300                                                         02295000
+C                                                                       02296000
+ 700    CONTINUE                                                        02297000
+C       CONVERTE FISSION SPECTRUM IN TABULATE PER N,2N ED ANELASTICA    02298000
+C       PER MT .NE. 18; LF=7  VA IN LF=1                                02299000
+        WRITE(NP,9015)                                                  02300000
+        WRITE(NO,9015)                                                  02301000
+ 9015   FORMAT(' FISSION SPECTRUM DATA CHANGED INTO TABULATED DATA')    02302000
+C                                                                       02303000
+        NE=N2                                                           02304000
+        NRE=NRE+1                                                       02305000
+        ANSK=ANSK+1+N1/3+NREST(N1,3)                                    02306000
+C        SCRIVE IL TAB2                                                 02307000
+        CALL WREC(4,NTO,3)                                              02308000
+        DO 70 IE=1,NE                                                   02309000
+C        ENERGIE                                                        02310000
+        SPAZ(IE)=AD(LX+IE-1)                                            02311000
+C        TEMPERATURE                                                    02312000
+        SPAZ(NE+IE)=AD(LY+IE-1)                                         02313000
+ 70     CONTINUE                                                        02314000
+        DO 75 IE=1,NE                                                   02315000
+        EI=SPAZ(IE)                                                     02316000
+        TEMP(1)=SPAZ(NE+IE)                                             02317000
+C             FATTORE DI NORMALIZZAZIONE (FOLLOWING ENDFB MANUAL)       02318000
+C           U E' DATA  SOPRA                                            02319000
+C           NORMALIZZO COME ENDFB SULLE E FINO AD U                     02320000
+        SQRTEU=SQRT((EI-U)/TEMP(1))                                     02321000
+        TEMP(2)=TEMP(1)**1.5*(0.886227*ERF(SQRTEU)-                     02322000
+     1        SQRTEU*EXP(-(EI-U)/TEMP(1)))                              02323000
+        EPS=OPZ(1,5,2)                                                  02324000
+        IF(EPS.LE.0.) EPS=0.01                                          02325000
+        CALL GENT1(FISS1,TEMP,EINF,EI-U,EPS,LOF)                        02326000
+        IF(LOF.GT.0) CALL ERR(8HP1F5     ,75)                           02327000
+        ANSK=ANSK+1+N1/3+NREST(N1,3)+N2/3+NREST(N2,3)                   02328000
+        NRE=NRE+1                                                       02329000
+        CALL WREC(3,NTO,3)                                              02330000
+ 75     CONTINUE                                                        02331000
+        LF=1                                                            02332000
+        GO TO 300                                                       02333000
+C                                                                       02334000
+C        GENERAL EVAPORATION OR ENERGY DEPENDENT WATT : LF=5,11         02335000
+ 400   CALL RREC(3,NTE,MODE,T)                                          02336000
+      NE=N2                                                             02337000
+      NRE=NRE+1                                                         02338000
+      ANSK=ANSK+1+N1/3+NREST(N1,3)+N2/3+NREST(N2,3)                     02339000
+      CALL WREC(3,NTO,3)                                                02340000
+      CALL RREC(3,NTE,MODE,T)                                           02341000
+      NF=N2                                                             02342000
+      NRE=NRE+1                                                         02343000
+      ANSK=ANSK+1+N1/3+NREST(N1,3)+N2/3+NREST(N2,3)                     02344000
+      CALL WREC(3,NTO,3)                                                02345000
+C                                                                       02346000
+ 300  CONTINUE                                                          02347000
+C      INDICI ( UNO PER OGNI RANGE NK                                   02348000
+      ANREC=0                                                           02349000
+      ANFM=7                                                            02350000
+      ANWD=0                                                            02351000
+      IF(MT.EQ.18) GO TO 390                                            02352000
+      ANFM=6                                                            02353000
+C                                                                       02354000
+            IF(MT.EQ.91) ANWD=1                                         02355000
+            IF(MT.EQ.16) ANWD=2                                         02356000
+C                                                                       02357000
+      IF(LF.EQ.1) ANREC=4.                                              02358000
+      IF(LF.EQ.9) ANREC=3.                                              02359000
+      IF(ANREC.EQ.0.) CALL ERR(8HP1F5          ,300)                    02360000
+ 390   CONTINUE                                                         02361000
+C                                                                       02362000
+      IND=IND+1                                                         02363000
+       IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX)                02364000
+      CALL EMPIN(MINDX1,AINDX(1,IND),AMAT,AMF,AMT,                      02365000
+     1ZA,AWR,0.,T,U,0.,FLOAT(NK),FLOAT(LT),FLOAT(LF),FLOAT(NE),         02366000
+     2U,0.,0.,0.,0.,0.,FLOAT(MODE),FLOAT(NTENDF),FLOAT(NTE),            02367000
+     3FLOAT(NTOUT),FLOAT(NTO),FLOAT(NT(3,NTOUT)),ANSK,FLOAT(NRE),0.,0., 02368000
+     4ANFM,ANREC,ANWD,0.,0.,N(1),N(2),N(11),0.,0.,0.)                   02369000
+C                                                                       02370000
+C      PUNTA AL TAB1 DELLA LEGGE NK                                     02371000
+      NT(3,NTOUT)=NT(3,NTOUT)+ANSK                                      02372000
+       ANSK=0.                                                          02373000
+       NRE=0                                                            02374000
+      GO TO 560                                                         02375000
+C                                                                       02376000
+ 550  CONTINUE                                                          02377000
+C      THIS DISTRIBUTION LAW IS NOT ACCEPTED!                           02378000
+      CALL ERR(8HP1F5      ,550)                                        02379000
+      CALL SKIPS(MODE,NTE,1,STMP,NO)                                    02380000
+      NT(3,NTOUT)=NT(3,NTOUT)+ANSK                                      02381000
+       GO TO 150                                                        02382000
+ 560  CONTINUE                                                          02383000
+ 10   CONTINUE                                                          02384000
+C                                                                       02385000
+C        METTO IL SEND SUL FILE DI OUTPUT                               02386000
+ 150  IF(NCONT(STMP,NO,NTE,MODE,MAT,5,0).NE.0)CALL ERR(8H P1F5     ,10) 02387000
+       CALL WREC(1,NTO,3)                                               02388000
+       NT(3,NTOUT)=NT(3,NTOUT)+1                                        02389000
+      NT(4,NTOUT)=NT(3,NTOUT)                                           02390000
+      RETURN                                                            02391000
+      END                                                               02392000
+      FUNCTION FISS1(X,X0)                                              02393000
+C       ********************************************                    02394000
+C           FISSION SPECTRUM FOLLOWING ENDFB MANUAL                     02395000
+C           FISS : FISSION SPECTRUM IN SLAVE3 DIFFERS FROM THIS ROUTINE 02396000
+C           IN THE NORMALIZZATION FACTOR                                02397000
+C       *******************************************                     02398000
+        DIMENSION X0(2)                                                 02399000
+        IF(X0(2).LE.0.) GO TO 100                                       02400000
+        FISS1=SQRT(X)/X0(2)*EXP(-X/X0(1))                               02401000
+        RETURN                                                          02402000
+  100   FISS1=0.                                                        02403000
+        RETURN                                                          02404000
+        END                                                             02405000
+         SUBROUTINE RIEMP(K,M,NN)                                       02406000
+C        **************************                                     02407000
+C        FILLS NN(M) WITH K                                             02408000
+C        **************************                                     02409000
+C                                                                       02410000
+C       DIMENSION NN(M)                                                 02411000
+        DIMENSION NN(1)                                                 02412000
+        IF(M.LE.0) RETURN                                               02413000
+           DO 10 I=1,M                                                  02414000
+  10       NN(I)=K                                                      02415000
+          RETURN                                                        02416000
+          END                                                           02417000
+         SUBROUTINE BIANC(MA,A)                                         02418000
+C        ********************************                               02419000
+C         FILLS A(MA) WITH BLANKS                                       02420000
+C        *******************************                                02421000
+C           DIMENSION A(MA)                                             02422000
+            DIMENSION A(1)                                              02423000
+        IF(MA.LE.0) RETURN                                              02424000
+            DATA BIAN/4H       /                                        02425000
+            DO 10 I=1,MA                                                02426000
+  10        A(I)=BIAN                                                   02427000
+            RETURN                                                      02428000
+            END                                                         02429000
+       FUNCTION AREAL(A)                                                02430000
+C      ********************************                                 02431000
+C      EVITA LA CONVERSIONE AUTOMATICA                                  02432000
+C      ********************************                                 02433000
+       AREAL=A                                                          02434000
+       RETURN                                                           02435000
+       END                                                              02436000
+       FUNCTION NAREAL(NA)                                              02437000
+C      *****************************                                    02438000
+C      EVITA LA CONVERSIONE AUTOMATICA                                  02439000
+C      ****************************                                     02440000
+       NAREAL=NA                                                        02441000
+       RETURN                                                           02442000
+       END                                                              02443000
+       FUNCTION NREST(M,M1)                                             02444000
+C      ****************************************                         02445000
+C       0 IF M IS DIVISIBLE BY M1 , 1 OTHERWISE                         02446000
+C      ****************************************                         02447000
+        NREST=0                                                         02448000
+        N=M/M1                                                          02449000
+       IF(N*M1.NE.M) NREST=1                                            02450000
+       RETURN                                                           02451000
+       END                                                              02452000
+       SUBROUTINE REW(NTT)                                              02453000
+C      *************************************************************    02454000
+C      POSITION NTP FILE AT THE FIRST RECORD                            02455000
+C      AND SET THE POINTER TO THE FILE POSITION:NT(4,.)                 02456000
+C      MODIFIED 6-3-87 ( NT(2,.) NO MORE USED )                         02457000
+C      *************************************************************    02458000
+C                                                                       02459000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     02460000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     02461000
+C                                                                       02462000
+       COMMON/FILES/NT(4,99)                                            02463000
+       EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))               02464000
+C                                                                       02465000
+       NTP=(NT(1,NTT))                                                  02466000
+       IF(NTP.LE.0) GO TO 501                                           02467000
+       REWIND NTP                                                       02468000
+C      SET FILE POINTER                                                 02469000
+       NT(4,NTT)=1                                                      02470000
+C       REC CORRENTE=REC INIZIO FILE                                    02471000
+       RETURN                                                           02472000
+ 501   CONTINUE                                                         02473000
+       WRITE(NP,1000)(NT(J,NTT),J=1,MNT1)                               02474000
+       WRITE(NO,1000)(NT(J,NTT),J=1,MNT1)                               02475000
+ 1000  FORMAT(' SUB.REW:PROBABLY ERROR IN FILE DESCRIBED BY:',10I5)     02476000
+       RETURN                                                           02477000
+      END                                                               02478000
+      SUBROUTINE POSL(NTP)                                              02479000
+C     *************************************                             02480000
+C      POSITION  NT(1,NTP) AT THE FIRST AVAILABLE RECORD                02481000
+C     NT(3,NTP) IS THE FIRST AVAILABLE RECORD ,NT(4,NT) THE CURRENT ONE 02482000
+C     *******************************************                       02483000
+      COMMON /FILES/NT(4,99)                                            02484000
+      NP=NT(1,NTP)                                                      02485000
+ 200  N=NT(3,NTP)-NT(4,NTP)                                             02486000
+      IF(N.EQ.0) RETURN                                                 02487000
+      IF(N.GT.0) GO TO 100                                              02488000
+      REWIND NP                                                         02489000
+      NT(4,NTP)=1                                                       02490000
+      GO TO 200                                                         02491000
+ 100  CONTINUE                                                          02492000
+      DO 10 I=1,N                                                       02493000
+ 10    READ(NP)                                                         02494000
+      NT(4,NTP)=NT(3,NTP)                                               02495000
+      RETURN                                                            02496000
+      END                                                               02497000
+       SUBROUTINE SKIPE(NTP,MF,MT,N)                                    02498000
+C      ***************************************                          02499000
+C      SKIPS ON NTP (TAPE ENDFB MODE 3)                                 02500000
+C      RECORDS UNTIL IT FIND THE END OF SPECIFIED MF OR MAT             02501000
+C      ***************************************                          02502000
+C                                                                       02503000
+       N=0                                                              02504000
+  10    READ(NTP,1000) MAT1,MF1,MT1                                     02505000
+             N=N+1                                                      02506000
+ 1000   FORMAT(T67,I4,I2,I3)                                            02507000
+         IF(MF.NE.0.AND.MF1.EQ.MF) GO TO 10                             02508000
+         IF(MT.NE.0.AND.MT1.EQ.MT) GO TO 10                             02509000
+          RETURN                                                        02510000
+         END                                                            02511000
+        SUBROUTINE SKIPS(MODE,NTP,NK,STMP,NO)                           02512000
+C       ********************************************************        02513000
+C       ON TAPE NT SKIPS RECORDS UNTIL IT FIND A RECORD OF TYPE:        02514000
+C       SEND  FOR NK=1                                                  02515000
+C       MEND  FOR NK=2                                                  02516000
+C       FEND  FOR NK=3                                                  02517000
+C              WRITES ON NTO FILE DEPENDING ON STMP PARAMETERS          02518000
+C       ********************************************************        02519000
+C                                                                       02520000
+        DIMENSION D(66)                                                 02521000
+C                                                                       02522000
+      IF(MODE.LE.0.OR.MODE.GT.3) CALL ERR(8H SKIPS   ,0)                02523000
+      IF(NK.GT.3.OR.NK.LE.0) CALL ERR(8H SKIPS    ,1)                   02524000
+   10   CONTINUE                                                        02525000
+        IF(MODE.NE.3)GO TO 100                                          02526000
+         READ(NTP,1000,END=500)(D(J),J=1,66),MAT,MF,MT,NSEQ             02527000
+        IF(STMP.GT.20) WRITE(NO,2000) (D(J),J=1,66),MAT,MF,MT,NSEQ      02528000
+ 1000   FORMAT(66A1,I4,I2,I3,I5)                                        02529000
+ 2000   FORMAT(' RECORD SKIPPED:',66A1,I4,I2,I3,I5)                     02530000
+ 3000   FORMAT(' RECORD SKIPPED:  MAT,MF,MT,C1,C2,L1,L2,N1,N2:',        02531000
+     13I5,2E12.5,4I11)                                                  02532000
+        GO TO 200                                                       02533000
+ 100    CONTINUE                                                        02534000
+         READ(NTP,END=500) MAT,MF,MT,C1,C2,L1,L2,N1,N2                  02535000
+        IF(STMP.GT.20) WRITE(NO,3000) MAT,MF,MT,C1,C2,L1,L2,N1,N2       02536000
+ 200    CONTINUE                                                        02537000
+      IF(NK.EQ.1.AND.MT.LE.0) RETURN                                    02538000
+      IF(NK.EQ.2.AND.MAT.LE.0) RETURN                                   02539000
+      IF(NK.EQ.3.AND.MF.LE.0) RETURN                                    02540000
+      GO TO 10                                                          02541000
+ 500  CONTINUE                                                          02542000
+      CALL ERR(8H SKIPS   , 500)                                        02543000
+      CALL ERRP(5,MODE,NK,NTP,MAT,MT)                                   02544000
+      RETURN                                                            02545000
+      END                                                               02546000
+      SUBROUTINE RECTPI(NTE,MODE,NO)                                    02547000
+C      ******************************************                       02548000
+C      READS  RECORD TPID ( FIRST ENDFB RECORD)                         02549000
+C      ******************************************                       02550000
+       DIMENSION B(20)                                                  02551000
+       IF(MODE.NE.3) GO TO 100                                          02552000
+C       PER BCD                                                         02553000
+       READ(NTE,1000)B                                                  02554000
+ 1000  FORMAT(20A4)                                                     02555000
+                 WRITE(NO,1500) B                                       02556000
+ 1500          FORMAT(' READ TAPE LABEL:TPID:',20A4)                    02557000
+C                                                                       02558000
+       RETURN                                                           02559000
+ 100   CONTINUE                                                         02560000
+C       PER  BINARIO                                                    02561000
+       READ(NTE) (B(J),J=1,20)                                          02562000
+       WRITE(NO,2000) (B(J),J=1,20)                                     02563000
+ 2000  FORMAT(' READ TAPE LABEL: TPID=',3I10,16A4,A2)                   02564000
+       RETURN                                                           02565000
+       END                                                              02566000
+       FUNCTION NCONT(STMP,NO,NTP,MODE,MATT,MFF,MTT)                    02567000
+C      **************************************************************   02568000
+C      READ CONT RECORD; CONTROLS  MAT,MF,MT = ARGUMENTS MATT,MFF,MTT   02569000
+C      **************************************************************   02570000
+            COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2                     02571000
+C                                                                       02572000
+       NCONT=0                                                          02573000
+       IF(NTP.GT.0) GO TO 50                                            02574000
+       WRITE(NO,1000) MODE,NTP                                          02575000
+ 1000  FORMAT(' WARNING! ATTEMPT TO READ A FILE NUMBER OUT OF RANGE:',2I02576000
+     110)                                                               02577000
+       NCONT=1000                                                       02578000
+       RETURN                                                           02579000
+ 50    CONTINUE                                                         02580000
+        CALL RREC(1,NTP,MODE,T)                                         02581000
+       IF(STMP.GT.11) WRITE(NO,3000)MAT,MF,MT,C1,C2,L1,L2,N1,N2         02582000
+ 3000   FORMAT(' NCONT READS RECORD:',3I5,2E12.5,4I12)                  02583000
+        IF(STMP.GT.11) WRITE(NO,4000) MODE,NTP,MATT,MFF,MTT,NCONT       02584000
+ 4000   FORMAT(' PARAMETERS OF NCONT:MODE,NTP,MATT,MFF,MTT,NCONT=',     02585000
+     1  6I10)                                                           02586000
+       IF(MF.NE.MFF) NCONT=NCONT+100                                    02587000
+       IF(MAT.NE.MATT) NCONT=NCONT+10                                   02588000
+       IF(MT.NE.MTT) NCONT=NCONT+1                                      02589000
+      RETURN                                                            02590000
+      END                                                               02591000
+       SUBROUTINE ERRORE(A,N)                                           02592000
+C      ***********************************************                  02593000
+C      ERROR MESSAGE PRINTING FOR SLAVE3 ERRORS                         02594000
+C      ***********************************************                  02595000
+C                                                                       02596000
+       REAL*8 A                                                         02597000
+       COMMON /RECS/ MAT,MF,MT                                          02598000
+       COMMON /FILES/NT(4,99)                                           02599000
+       NO=NT(1,6)                                                       02600000
+       NP=NT(1,11)                                                      02601000
+       WRITE(NO,1000) A,N,MAT,MF,MT                                     02602000
+       WRITE(NP,1000) A,N,MAT,MF,MT                                     02603000
+ 1000  FORMAT(' SLAVE3 ERROR ENCOUNTERED!'/50(2H !)/                    02604000
+     1 (' ROUTINE:',A10,' ERROR NUMBER:',I10,' ENDFB IDENTIFIERS:'      02605000
+     2 ,'MAT,MF,MT=',3I10))                                             02606000
+       RETURN                                                           02607000
+       END                                                              02608000
+      SUBROUTINE ERR(A,I)                                               02609000
+C     *******************                                               02610000
+C     ERROR MESSAGE                                                     02611000
+C     *******************                                               02612000
+C                                                                       02613000
+       COMMON/FILES/NT(4,99)                                            02614000
+       EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))               02615000
+       REAL*8 A                                                         02616000
+       WRITE(NO,1000)A,I                                                02617000
+       WRITE(NP,1000)A,I                                                02618000
+ 1000  FORMAT(1X,10(2H*!),'ERROR IN SUB:',A10,' NEAR LABEL',I10,10(1H?) 02619000
+     1)                                                                 02620000
+       RETURN                                                           02621000
+       END                                                              02622000
+       SUBROUTINE ERRP(N,A1,A2,A3,A4,A5)                                02623000
+C      *******************************************************          02624000
+C      PRINT ERROR PARAMETERS                                           02625000
+C      *******************************************************          02626000
+C                                                                       02627000
+       COMMON/FILES/NT(4,99)                                            02628000
+       EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))               02629000
+C                                                                       02630000
+ 1000   FORMAT(' ERROR IN PARAMETER:',I10,E20.10,A8)                    02631000
+       WRITE(NO,1000)A1,A1,A1                                           02632000
+       WRITE(NP,1000)A1,A1,A1                                           02633000
+       IF(N.LE.1 ) RETURN                                               02634000
+       WRITE(NO,1000)A2,A2,A2                                           02635000
+       WRITE(NP,1000)A2,A2,A2                                           02636000
+       IF(N.LE.2 ) RETURN                                               02637000
+       WRITE(NO,1000)A3,A3,A3                                           02638000
+       WRITE(NP,1000)A3,A3,A3                                           02639000
+       IF(N.LE.3 ) RETURN                                               02640000
+       WRITE(NO,1000)A4,A4,A4                                           02641000
+       WRITE(NP,1000)A4,A4,A4                                           02642000
+       IF(N.LE.4 ) RETURN                                               02643000
+       WRITE(NO,1000)A5,A5,A5                                           02644000
+       WRITE(NP,1000)A5,A5,A5                                           02645000
+       RETURN                                                           02646000
+       END                                                              02647000
+       SUBROUTINE EMPIN(N,A,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13, 02648000
+     1A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,  02649000
+     2A30,A31,A32,A33,A34,A35,A36,A37,A38,A39,A40)                      02650000
+C      ***********************************************                  02651000
+C      FILL INDEX RECORD: A1,A2 ETC ARE PUT IN A(N)                     02652000
+C      ***********************************************                  02653000
+       DIMENSION A(N)                                                   02654000
+      COMMON/FILES/NT(4,99)                                             02655000
+      EQUIVALENCE(NT(1,12),NPP)                                         02656000
+C                                                                       02657000
+       A(1)=A1                                                          02658000
+       A(2)=A2                                                          02659000
+       A(3)=A3                                                          02660000
+       A(4)=A4                                                          02661000
+       A(5)=A5                                                          02662000
+       A(6)=A6                                                          02663000
+       A(7)=A7                                                          02664000
+       A(8)=A8                                                          02665000
+       A(9)=A9                                                          02666000
+       A(10)=A10                                                        02667000
+       A(11)=A11                                                        02668000
+       A(12)=A12                                                        02669000
+       A(13)=A13                                                        02670000
+       A(14)=A14                                                        02671000
+       A(15)=A15                                                        02672000
+       A(16)=A16                                                        02673000
+       A(17)=A17                                                        02674000
+       A(18)=A18                                                        02675000
+       A(19)=A19                                                        02676000
+       A(20)=A20                                                        02677000
+       A(21)=A21                                                        02678000
+       A(22)=A22                                                        02679000
+       A(23)=A23                                                        02680000
+       A(24)=A24                                                        02681000
+       A(25)=A25                                                        02682000
+       A(26)=A26                                                        02683000
+       A(27)=A27                                                        02684000
+       A(28)=A28                                                        02685000
+       A(29)=A29                                                        02686000
+       A(30)=A30                                                        02687000
+       A(31)=A31                                                        02688000
+       A(32)=A32                                                        02689000
+       A(33)=A33                                                        02690000
+       A(34)=A34                                                        02691000
+       A(35)=A35                                                        02692000
+       A(36)=A36                                                        02693000
+       A(37)=A37                                                        02694000
+       A(38)=A38                                                        02695000
+       A(39)=A39                                                        02696000
+       A(40)=A40                                                        02697000
+       WRITE(NPP,1234)                                                  02698000
+      WRITE(NPP,1235)(A(J),J=1,40)                                      02699000
+ 1234 FORMAT(' FOLLOWING INDEX RECORD HAS BEEN CREATED:')               02700000
+ 1235 FORMAT(1X,10E12.5)                                                02701000
+       RETURN                                                           02702000
+          END                                                           02703000
+      SUBROUTINE RDMIX(NP123)                                           02704000
+C     ***********************************                               02705000
+C                                                                       02706000
+C     READ INPUT TABLE OF PART 1,2, OR 3 DEPENDING ON N123=1,2,3        02707000
+C                                                                       02708000
+C      SUPPRESSED DOUBLE NUCLIDE NAME IN INPUT(NON IN MIX VARIABLE)     02709000
+C                                                                       02710000
+C     *********************************************                     02711000
+C                                                                       02712000
+C      READS MIX : INPUT TABLE FOR PART ONE:                            02713000
+C                 MIX(1-2,I)=IDENTIFIER OF MATERIAL FORMAT A8           02714000
+C                 MIX(3,I)=DD INPUT I4                                  02715000
+C                 MIX(4,I)=DD TYPE ENDFB = MODE I4                      02716000
+C                     5   =DD OUTPUT(LOGICAL NUMBER) I4                 02717000
+C                     6   = MAT  REACTION I4                            02718000
+C                     7   = MF   FILE ENDFB I4                          02719000
+C                     8   = MT   MATERIAL ENDFB I4                      02720000
+C                     9   = IDENTIFIER FOR MATERIAL FORMAT I4           02721000
+C                    10   = IDENTIFIER FOR MATERIAL FORMAT I4           02722000
+C                    11   = IDENTIFIER FOR MATERIAL FORMAT I4           02723000
+C                    12   = IDENTIFIER FOR MATERIAL FORMAT I4           02724000
+C                   13-14 =    IDENTIFIERS           FORMAT E12.5       02725000
+C                    15   = T = TEMPERATURE          FORMAT E12.5       02726000
+C                                                                       02727000
+C                                                                       02728000
+C             DEFAULTS :                                                02729000
+C                 MIX(3,.) OUT OF RANGE=8 ( NUM LOGOCO TAPE INPUT ENDFB)02730000
+C                 MIX(4,.) OUT OF RANGE=3 (ENDFB DA SCHEDE              02731000
+C                      MF=0=ALL MCF                                     02732000
+C                      MF <0 =ALL MCF EXCLUDED -MF                      02733000
+C                                                                       02734000
+C                                                                       02735000
+C     READS MIX : INPUT TABLE FOR PART 2                                02736000
+C      MIXING FATTA:1-2   A8 = OUPUT NAME  (BLANK= NOME IN)             02737000
+C                   3-4   A8 = INPUT NAME                               02738000
+C                    5    I4=  OUTPUT TAPE                              02739000
+C                    6    I4 = OUTPUT MCCF(MC2-2 FILE)                  02740000
+C                    7    I4=  OUTPUT RECORD                            02741000
+C                    8    I4=  OUTPUT WORD                              02742000
+C                    9-12    =   INTEGER PARAMETER I4                   02743000
+C                    13-15 E12.5 = REAL PARAMETERS                      02744000
+C                                                                       02745000
+C      DEFAULTS :    NAME OUT MISSING = NOME INPUT                      02746000
+C                    MCCF= 0  : ALL THE MCCF                            02747000
+C                    MCCF NEGATIVO : ALL MCCF EXCEPT THIS               02748000
+C                    MIX(5)<0     : THE MATERIAL IS EXCLUDED            02749000
+C                                                                       02750000
+C                                                                       02751000
+C          READS INPUT TABLE FOR PART 3                                 02752000
+C             MIX CONTAINS:                                             02753000
+C                          MIX(1-2,I)=A8=NOME OUT(SUPPRESSED IN INPUT)  02754000
+C                          MIX(3-4,.)=A8=NOME IN                        02755000
+C                          MIX(5, .) =I4= MCF                           02756000
+C                          MIX(6, .)= I4= PARAMETERS OF MC2-2 RECORDS   02757000
+C                          MIX(13-15)=E 12.5=REAL PARAMETERS            02758000
+C                                                                       02759000
+C               DEFAULTS:                                               02760000
+C                      NOME IN=BLANK=NOME OUT                           02761000
+C                      MCF=0=ALL  MCF                                   02762000
+C                      MCF <0 =ALL  MCF EXCEPT THIS                     02763000
+C                                                                       02764000
+C     *************************************************************     02765000
+C                                                                       02766000
+       COMMON/FILES/NT(4,99)                                            02767000
+       EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)),(NPP,NT(1,12))02768000
+C                                                                       02769000
+      COMMON /MIX/MIX(15,300)                                           02770003
+      COMMON /DIM/M(5)                                                  02771000
+      COMMON/DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3,      02772000
+     1MM,MNX1,MNX2,MJX,MMX,MNT1,MNT2,MIND11,MIND12                      02773000
+C                                                                       02774000
+      DATA NFIN/4HFINE/                                                 02775000
+      DIMENSION N123(3),NM(3)                                           02776000
+      DATA N123/4H 1  ,4H 2  ,4H 3  /                                   02777000
+C        POSIZIONE IN M (COMMON /DIM/ ) DELLE DIMENSIONI DELLA MIXING   02778000
+      DATA NM/1,3,5/                                                    02779000
+C      M(1),(3),(5)=DIM EFFETTIVE DELLE MIX DELLA PARTE 1,2,3           02780000
+      DATA MM1/15/                                                      02781000
+C                                                                       02782000
+      I=1                                                               02783000
+      CALL RIEMP(0,MMIX1*MMIX2,MIX)                                     02784000
+      IF(NP123.LE.3.AND.NP123.GT.0) GO TO 10                            02785000
+      CALL ERR(8HRDMIX       ,10)                                       02786000
+C     CALL ERRP(1,NP123,DUM,DUM,DUM,DUM)                                02787003
+      GO TO 500                                                         02788000
+ 10   CONTINUE                                                          02789000
+      WRITE(NP,1000) N123(NP123),I                                      02790000
+ 1000 FORMAT(' PART :',A4,'-- GIVE CARD:',I10)                          02791000
+C                                                                       02792000
+       K0=1                                                             02793000
+       K1=1                                                             02794000
+       K2=10                                                            02795000
+       K3=3                                                             02796000
+       K4=1                                                             02797000
+              I3=3                                                      02798000
+       IF(NP123.EQ.1) GOTO 101                                          02799000
+C      K0=2                                                             02800000
+C      K1=2                                                             02801000
+                I3=5                                                    02802000
+                K2=8                                                    02803000
+       K4=3                                                             02804000
+ 101       CONTINUE                                                     02805000
+        CALL COMMR(K0,NI,NO,NPP,K1,MIX(K4,I),K2,MIX(I3,I),K3,MIX(13,I)) 02806000
+C                                                                       02807000
+                IF(NP123.GT.1) GO TO 230                                02808000
+ 100      CONTINUE                                                      02809000
+ 3100  FORMAT(' READ INPUT TABLE CARD NUMB:',I5,',CONTAINING:'/1X,      02810000
+     12A4,10I5,3E12.5)                                                  02811000
+C                                                                       02812000
+      IF(MIX(1,I).EQ.NFIN) GO TO 500                                    02813000
+      IF(MIX(3,I).LT.0) GO TO 500                                       02814000
+C      DEFAULTS                                                         02815000
+      IF(MIX(4,I).EQ.0.OR.MIX(4,I).GT.3) MIX(4,I)=3                     02816000
+      IF(MIX(3,I).LE.0.OR.MIX(3,I).GT.99) MIX(3,I)=8                    02817000
+C     WRITE(NO,3100) I,(MIX(J,I),J=1,MM1)                               02818000
+      WRITE(NPP,3100) I,(MIX(J,I),J=1,MM1)                              02819000
+      IF(MIX(7,I).GT.0) GO TO 130                                       02820000
+C      ESPANDE I MCCF E METTE DEFAULTS                                  02821000
+         KMF=MIX(7,I)                                                   02822000
+         KI=I                                                           02823000
+         I=I-1                                                          02824000
+C                                                                       02825000
+      DO 15 K=1,5                                                       02826000
+       IF(KMF.EQ.-K) GO TO 15                                           02827000
+      I=I+1                                                             02828000
+      IF(I.GT.MMIX2) GO TO 501                                          02829000
+      DO 16 IK=1,MMIX1                                                  02830000
+ 16   MIX(IK,I)=MIX(IK,KI)                                              02831000
+      MIX(7,I)=K                                                        02832000
+C     WRITE(NO,3100) I,(MIX(J,I),J=1,MM1)                               02833000
+      WRITE(NPP,3100) I,(MIX(J,I),J=1,MM1)                              02834000
+ 15    CONTINUE                                                         02835000
+ 130  CONTINUE                                                          02836000
+      GO TO 400                                                         02837000
+ 3200 FORMAT(' READ INPUT TABLE CARD NUMB:',I5,' CONTAINING:'/1X,       02838000
+     14A4,8I4,3E12.5)                                                   02839000
+ 230  CONTINUE                                                          02840000
+C      PARTE COMUNE A MIXING 3 E 4                                      02841000
+C      STOPS                                                            02842000
+C      NOME OUT BIANCO= NOME IN                                         02843000
+C      IF(MIX(1,I).NE.NBIAN.OR.MIX(2,I).NE.NBIAN) GO TO 345             02844000
+      MIX(1,I)=MIX(3,I)                                                 02845000
+      MIX(2,I)=MIX(4,I)                                                 02846000
+ 345  IF(MIX(1,I).EQ.NFIN) GO TO 500                                    02847000
+      IF(NP123.NE.2) GO TO 347                                          02848000
+C     WRITE(NO,3200) I,(MIX(J,I),J=1,MM1)                               02849000
+      WRITE(NPP,3200) I,(MIX(J,I),J=1,MM1)                              02850000
+      IF(NP123.NE.3) GO TO 348                                          02851000
+ 347  WRITE(NPP,3200) I,(MIX(J,I),J=1,MM1)                              02852000
+C     WRITE(NO,3200) I,(MIX(J,I),J=1,MM1)                               02853000
+ 348  IF(MIX(6,I).GT.0) GO TO 400                                       02854000
+C      ESPANDE I MCCF E METTE DEFAULTS                                  02855000
+         KMF=MIX(6,I)                                                   02856000
+         KI=I                                                           02857000
+         I=I-1                                                          02858000
+C                                                                       02859000
+      DO 20 K=1,8                                                       02860000
+       IF(KMF.EQ.-K) GO TO 20                                           02861000
+      I=I+1                                                             02862000
+      IF(I.GT.MMIX2) GO TO 501                                          02863000
+      DO 30 IK=1,MMIX1                                                  02864000
+ 30   MIX(IK,I)=MIX(IK,KI)                                              02865000
+      MIX(6,I)=K                                                        02866000
+      IF(NP123.NE.2) GO TO 357                                          02867000
+C     WRITE(NO,3200) I,(MIX(J,I),J=1,MM1)                               02868000
+      WRITE(NPP,3200) I,(MIX(J,I),J=1,MM1)                              02869000
+             GO TO 358                                                  02870000
+ 357  WRITE(NPP,3200) I,(MIX(J,I),J=1,MM1)                              02871000
+C     WRITE(NO,3200) I,(MIX(J,I),J=1,MM1)                               02872000
+ 358    CONTINUE                                                        02873000
+ 20    CONTINUE                                                         02874000
+C      PARTE COMUNE A MIXING 1, 2 ,3                                    02875000
+ 400  CONTINUE                                                          02876000
+      I=I+1                                                             02877000
+      IF(I.LT.MMIX2) GO TO 10                                           02878000
+ 501  CALL ERR(8HRDMIX     ,501)                                        02879000
+C     CALL ERRP(2,I,MMIX2,0.,0.,0.)                                     02880003
+      I=I-1                                                             02881000
+      GO TO 10                                                          02882000
+C              NON PRENDE PIU SCHEDE MA VA AVANTI FINO ALLA SCHEDA FINE 02883000
+ 500  CONTINUE                                                          02884000
+      M(NM(NP123))=I-1                                                  02885000
+      RETURN                                                            02886000
+      END                                                               02887000
+      SUBROUTINE MIXSHO(K,NOU)                                          02888000
+C     *************************                                         02889000
+C     PRINTS INPUT TABLES                                               02890000
+C     *******************************                                   02891000
+C                                                                       02892000
+      COMMON /FILES/NT(4,99)                                            02893000
+      EQUIVALENCE (NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))               02894000
+      COMMON /MIX/MIX(15,300)                                           02895003
+      COMMON /DIM/M(5)                                                  02896000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     02897000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     02898000
+         DIMENSION FORM(20,3),FOR(20)                                   02899000
+         DATA FORM/4H(' C,4HARD:,4H'   ,4H    ,4H ,I3,4H,'=',           02900000
+     1   4H,2A4,4H,3I3,4H,I5,,4H6I3,,4H3E12,4H.5 ),8*4H    ,            02901000
+     2   4H(' C,4HARD:,4H'   ,4H    ,4H,I3,,4H'=',,4H4A4,,4H8I3,,       02902000
+     3   4H3E12,4H.5) ,10*4H     ,                                      02903000
+     4   4H(' C,4HARD:,4H'   ,4H    ,4H,I3,,4H'=',,4H4A4,,4H8I3,,       02904000
+     5   4H3E12,4H.5) ,10*4H     /                                      02905000
+C                                                                       02906000
+        MMM=M(2*K-1)                                                    02907000
+        WRITE(NOU,1000) K                                               02908000
+ 1000   FORMAT(' INPUT TABLE OF PART:',I5)                              02909000
+                  IF(K.LE.0.OR.K.GT.3) RETURN                           02910000
+        DO 5 I=1,20                                                     02911000
+  5     FOR(I)=FORM(I,K)                                                02912000
+C                                                                       02913000
+               DO 10 I=1,MMM                                            02914000
+               WRITE(NOU,FOR) I,(MIX(J,I),J=1,MMIX1)                    02915000
+ 10       CONTINUE                                                      02916000
+            RETURN                                                      02917000
+            END                                                         02918000
+       SUBROUTINE COMMR(K,NI,NO,NP,MC,C,MIC,IC,MAC,AC)                  02919000
+C      *************************************************                02920000
+C      READS A COMMAND IN FREE FORMAT : (A8 ... PARAMETERS)             02921000
+C       LEGGE UN COMANDO DATO AL MAIN IN FORMATO LIBERO                 02922000
+C         NELLA SCHEDA IL COMANDO VA NELLE PRIME 8 COLONNE,             02923000
+C         SEGUONO I PARAMETRI IN FORMATO LIBERO,SEPARATI DA             02924000
+C         SPAZIO BIANCO.                                                02925000
+C            L(3,.)= CIFRE COME NUMERI:PRIMA DI VIRGOLA,DOPO E DI EXP   02926000
+C            NL( ) = NUMERO CIFRE PRIMA,DOPO VIRGOLA ED EXP             02927000
+C            NSL( )= SEGNO PARTE INTERA,DECIMALE ED EXP                 02928000
+C            NIC= POSIZIONE LIBERA IN IC (PARAMETRI INTERI DEL COMANDO) 02929000
+C            NAC= POSIZIONE LIBERA IN AC (PARAMETRI REALI DEL COMANDO)  02930000
+C            I= NUMER O DEL CARATTERE DA INTERPRETARE                   02931000
+C       NUMERO CIFRE PRIMA DI VIRGOLA,NL(1)                             02932000
+C       NUMERO COFRE DOPO LA VIRGOLA, NL(2)                             02933000
+C        NUMERO CIFRE EXP ,  NL(3)                                      02934000
+C       SEGNO VALORE,                 NSL(1)                            02935000
+C       SEGNO EXP ,                   NSL(3)                            02936000
+C       POSIZIONE LIBERA IN IC        NIC                               02937000
+C      POSIZIONE LIBERA IN AC         NAC                               02938000
+C       CARATTERE DA INTERPRETARE     I                                 02939000
+C          FLAG PER REALE   NFLOT=1                                     02940000
+C                                                                       02941000
+C       NFLAG 1 : CIFRE  PRIMA DI VIRGOLA                               02942000
+C             2 :  CIFRE DOPO LA VIRGOLA                                02943000
+C             3 :  CIFRE EXP                                            02944000
+C          K= FORMATO DI LETTURA                                        02945000
+C                K=1=  A8..ETC                                          02946000
+C                K=2= 2A8..ETC                                          02947000
+C                K=3=    ..ETC                                          02948000
+C      ***************************************************              02949000
+       DIMENSION A(80),L(3,80),NL(3),NSL(3),ANUM(3)                     02950000
+       DIMENSION C(MC),IC(MIC),AC(MAC)                                  02951000
+       REAL*8 C                                                         02952000
+       EQUIVALENCE (NL(1),NL1),(NL(2),NL2),(NL(3),NL3)                  02953000
+       DIMENSION CIF(9)                                                 02954000
+       DATA BIAN/4H     /                                               02955000
+       DATA AMENO,E,PUNTO,ZERO/4H-   ,4HE   ,4H.                        02956000
+     1 ,4H0   /                                                         02957000
+       DATA CIF/4H1   ,4H2   ,4H3   ,4H4   ,4H5   ,4H6   ,4H7   ,       02958000
+     1 4H8   ,4H9    /                                                  02959000
+              CALL RIEMP(0,MIC,IC)                                      02960000
+              CALL RIEMP(0.,MAC,AC)                                     02961000
+C                                                                       02962000
+C                                                                       02963000
+       NL(1)=0                                                          02964000
+       NL(2)=0                                                          02965000
+       NL(3)=0                                                          02966000
+       NSL(1)=1                                                         02967000
+       NSL(2)=1                                                         02968000
+       NSL(3)=1                                                         02969000
+       NIC=0                                                            02970000
+       NAC=0                                                            02971000
+       I=0                                                              02972000
+       NFLAG=1                                                          02973000
+      NFLOT=0                                                           02974000
+        CALL BIANC(80,A)                                                02975000
+C                                                                       02976000
+       WRITE(NP,1000)                                                   02977000
+       IF(K.LE.0.OR.K.GT.3)  K=3                                        02978000
+             IF(K.NE.1) GO TO 2                                         02979000
+             ILIMT=64                                                   02980000
+       READ(NI,2000) C(1),(A(J),J=1,72)                                 02981000
+ 1000  FORMAT(' ENTER COMMAND >>>')                                     02982000
+ 2000  FORMAT(A8,72A1)                                                  02983000
+C      WRITE(NO,3000) C(1),(A(J),J=1,72)                                02984000
+       WRITE(NP,3000) C(1),(A(J),J=1,72)                                02985000
+ 3000  FORMAT('  ACCEPTED COMMAND:',A8,72A1)                            02986000
+  2       CONTINUE                                                      02987000
+          IF(K.NE.2) GOTO 3                                             02988000
+             ILIMT=56                                                   02989000
+          READ(NI,2002) C(1),C(2),(A(J),J=1,64)                         02990000
+ 2002     FORMAT(2A8,64A1)                                              02991000
+C         WRITE(NO,3002) C(1),C(2),(A(J),J=1,64)                        02992000
+          WRITE(NP,3002) C(1),C(2),(A(J),J=1,64)                        02993000
+ 3002     FORMAT(1X,2A8,64A1)                                           02994000
+ 3        CONTINUE                                                      02995000
+       IF(K.NE.3) GOTO 4                                                02996000
+       READ(NI,2004) (A(J),J=1,80)                                      02997000
+             ILIMT=72                                                   02998000
+C      WRITE(NO,3004) (A(J),J=1,80)                                     02999000
+       WRITE(NP,3004) (A(J),J=1,80)                                     03000000
+ 2004  FORMAT(80A1)                                                     03001000
+ 3004  FORMAT(1X,80A1)                                                  03002000
+ 4     CONTINUE                                                         03003000
+C                                                                       03004000
+ 10    CONTINUE                                                         03005000
+C       LOOP SUI CARATTERI DA INTERPRETARE                              03006000
+       I=I+1                                                            03007000
+       IF(I.GE.ILIMT)GO TO 100                                          03008000
+       IF(A(I).EQ.BIAN) GO TO 150                                       03009000
+C       VA A INTERPRETARE, UN BIANCO SEPARA I VALORI                    03010000
+C           GUARDA SE IL CARATTERE E LA CIFRA 1-9 OPPURE 0              03011000
+       DO 20 J=1,9                                                      03012000
+       IF(A(I).NE.CIF(J)) GO TO 20                                      03013000
+       NL(NFLAG)=NL(NFLAG)+1                                            03014000
+       L(NFLAG,NL(NFLAG))=J                                             03015000
+       GO TO 10                                                         03016000
+ 20    CONTINUE                                                         03017000
+       IF(A(I).NE.ZERO) GO TO 200                                       03018000
+       NL(NFLAG)=NL(NFLAG)+1                                            03019000
+       L(NFLAG,NL(NFLAG))=0                                             03020000
+           GO TO 10                                                     03021000
+ 200   CONTINUE                                                         03022000
+       IF(A(I).EQ.AMENO) NSL(NFLAG)=-1                                  03023000
+       IF(A(I).EQ.PUNTO) NFLAG=2                                        03024000
+       IF(A(I).EQ.E) NFLAG=3                                            03025000
+           IF(A(I).EQ.PUNTO) NFLOT=1                                    03026000
+C       CARATTERI NON CONTEMPLATI SONO IGNORATI                         03027000
+       GO TO 10                                                         03028000
+ 150        CONTINUE                                                    03029000
+C       INTERPRETAZIONE                                                 03030000
+       IF(NL(1).LE.0.AND.NL(2).LE.0.AND.NL(3).LE.0) GO TO 10            03031000
+C       LOOP SU CIFRE PRIMA DEL PUNTO,DOPO DEL PUNTO , SU EXP *******   03032000
+       DO 30 J=1,3                                                      03033000
+       ANUM(J)=0                                                        03034000
+       IF(NL(J).LE.0) GO TO 300                                         03035000
+       N1=NL(J)                                                         03036000
+       N2=N1                                                            03037000
+       IF(J.EQ.2) N2=0                                                  03038000
+       DO 40 JJ=1,N1                                                    03039000
+       ANUM(J)=ANUM(J)+L(J,JJ)*10.**(N2-JJ)                             03040000
+ 40    CONTINUE                                                         03041000
+ 300   CONTINUE                                                         03042000
+ 30         CONTINUE                                                    03043000
+       NEXP=ANUM(3)*NSL(3)                                              03044000
+       B=(ANUM(1)+ANUM(2))*NSL(1)*NSL(2)*10.**NEXP                      03045000
+C           HA DEFINITO IL NUMERO ORA LO METTE NEL PARAMETRO            03046000
+            IF(NFLOT.EQ.0) GOTO 400                                     03047000
+C       LA CIFRA DOPO LA VIRGOLA, DECIMALE                              03048000
+       NAC=NAC+1                                                        03049000
+       IF(NAC.GT.MAC) GOTO600                                           03050000
+       AC(NAC)=B                                                        03051000
+       GO TO 500                                                        03052000
+ 400   CONTINUE                                                         03053000
+C       E UN INTERO                                                     03054000
+       NIC=NIC+1                                                        03055000
+             IF(NIC.GT.MIC) GO TO 600                                   03056000
+       IC(NIC)=B                                                        03057000
+ 500   CONTINUE                                                         03058000
+C       RESET INIZIALI                                                  03059000
+       DO 50 J=1,3                                                      03060000
+       NL(J)=0                                                          03061000
+       NSL(J)=1                                                         03062000
+ 50    CONTINUE                                                         03063000
+       NFLAG=1                                                          03064000
+            NFLOT=0                                                     03065000
+       GO TO 10                                                         03066000
+  600      CONTINUE                                                     03067000
+           CALL ERR(8HCOMMR       ,100)                                 03068000
+C                                                                       03069000
+C                                                                       03070000
+       GO TO 500                                                        03071000
+ 100   CONTINUE                                                         03072000
+C      WRITE(NO,4000)  C                                                03073000
+       WRITE(NP,4000) C                                                 03074000
+ 4000  FORMAT(' ACCEPTED COMMAND: ',2A8)                                03075000
+C      IF(NIC.GT.0) WRITE(NO,5000) (IC(J),J=1,NIC)                      03076000
+       IF(NIC.GT.0) WRITE(NP,5000) (IC(J),J=1,NIC)                      03077000
+C      IF(NAC.GT.0) WRITE(NO,6000) (AC(J),J=1,NAC)                      03078000
+       IF(NAC.GT.0) WRITE(NP,6000) (AC(J),J=1,NAC)                      03079000
+ 5000  FORMAT(' INTEGER PARAMETERS:',10I10)                             03080000
+ 6000  FORMAT(' REAL PARAMETERS   :',5E12.5)                            03081000
+       MIC=NIC                                                          03082000
+       MAC=NAC                                                          03083000
+       RETURN                                                           03084000
+       END                                                              03085000
+         SUBROUTINE MIXIND(IND,MINDX1,MINDX2,AINDX)                     03086000
+C      ******************************************************           03087000
+C      EDITOR OF THE INDEX OF INTERMEDIATE FILES                        03088000
+C      *******************************************************          03089000
+C                                                                       03090000
+       DIMENSION AINDX(MINDX1,MINDX2)                                   03091000
+       COMMON /FILES/NT(4,99)                                           03092000
+       EQUIVALENCE (NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))              03093000
+       DIMENSION C(2),IC(6),AC(4)                                       03094000
+C                                                                       03095000
+ 10    WRITE(NP,1000)                                                   03096000
+ 1000  FORMAT(' INDEX EDITOR ENTERED: ACCEPTED OPTIONS:'/               03097000
+     1 ' 1=WRITE,2=LOAD,3=SAVE,4=DEL,5=SEL,6=CHANGE',                   03098000
+     2 ',7=DECR.ORD,8=INCR.ORD,9=NEW NAME,10=FILL,0=END')               03099000
+       N2=2                                                             03100000
+       N6=6                                                             03101000
+       N4=4                                                             03102000
+C                                                                       03103000
+       CALL COMMR(3,NI,NO,NP,N2,C,N6,IC,N4,AC)                          03104000
+       K=IC(1)                                                          03105000
+       IF(K.LE.0) RETURN                                                03106000
+       GO TO (100,200,300,400,500,600,700,800,900,910),K                03107000
+ 100   CONTINUE                                                         03108000
+              IF(IND.GT.0) GO TO 105                                    03109000
+             WRITE(NP,1500)                                             03110000
+ 1500        FORMAT('  NO INDEX AVAILABLE!')                            03111000
+              GOTO 10                                                   03112000
+ 105          CONTINUE                                                  03113000
+       N1=IC(2)                                                         03114000
+       N2=IC(3)                                                         03115000
+          IF(N1.LE.0) N1=1                                              03116000
+          IF(N2.GT.MINDX1.OR.N2.LT.N1) N2=IND                           03117000
+          NOOO=NO                                                       03118000
+       IF(IC(4).GT.0.AND.IC(4).LE.99) NOOO=IC(4)                        03119000
+       DO 20 I=N1,N2                                                    03120000
+       WRITE(NOOO,2000) I,(AINDX(J,I),J=1,MINDX1)                       03121000
+ 2000  FORMAT(' INDEX NUMBER:',I5/(1X,5E15.8))                          03122000
+ 20    CONTINUE                                                         03123000
+       GO TO 10                                                         03124000
+ 200   CONTINUE                                                         03125000
+       CALL LOADIN(IND,IC(2),IC(3),IC(4),MINDX1,MINDX2,AINDX)           03126000
+       GO TO 10                                                         03127000
+ 300   CONTINUE                                                         03128000
+       CALL SAVI(IC(2),MINDX1,IND,AINDX)                                03129000
+       GO TO 10                                                         03130000
+ 400   CONTINUE                                                         03131000
+       CALL COMPIN(IND,IC(2),IC(3),MINDX1,MINDX2,AINDX)                 03132000
+       GO TO 10                                                         03133000
+ 500   CONTINUE                                                         03134000
+       E1=AC(1)                                                         03135000
+       E2=AC(2)                                                         03136000
+       K1=IC(1)                                                         03137000
+       CALL SELR2(MINDX1,IND,AINDX,K1,E1,E2)                            03138000
+       GO TO 10                                                         03139000
+ 600   CONTINUE                                                         03140000
+       K1=IC(1)                                                         03141000
+       IF(K1.LE.0) RETURN                                               03142000
+       N1=IC(2)                                                         03143000
+       N2=IC(3)                                                         03144000
+       IF(N1.LE.0) N1=1                                                 03145000
+       IF(N2.LT.N1) N2=N1                                               03146000
+       A1=AC(1)                                                         03147000
+       A2=AC(2)                                                         03148000
+       DO 30 I=N1,N2                                                    03149000
+       IF(AINDX(K1,I).EQ.A1) AINDX(K1,I)=A2                             03150000
+ 30    CONTINUE                                                         03151000
+       GO TO 10                                                         03152000
+ 700   CONTINUE                                                         03153000
+       K1=IC(1)                                                         03154000
+       CALL ORDINA(K1,MINDX1,IND,AINDX)                                 03155000
+       GO TO 10                                                         03156000
+ 800   CONTINUE                                                         03157000
+       K1=IC(1)                                                         03158000
+       CALL ORDIN1(K1,MINDX1,IND,AINDX)                                 03159000
+       GO TO 10                                                         03160000
+ 900   CONTINUE                                                         03161000
+       K1=IC(1)                                                         03162000
+       IF(K1.LE.0) K1=35                                                03163000
+       K2=K1+1                                                          03164000
+       N1=IC(2)                                                         03165000
+       IF(N1.LE.0) N1=1                                                 03166000
+       N2=IC(3)                                                         03167000
+       IF(N2.LE.0) N2=N1                                                03168000
+       WRITE(NP,3000) K1                                                03169000
+ 3000  FORMAT(' GIVE OLD AND NEW NAME (A8),IN INDEX POSITION:',I5)      03170000
+       READ(NI,4000) A1,A2,A3,A4                                        03171000
+ 4000  FORMAT(4A4)                                                      03172000
+       DO 90 I=N1,N2                                                    03173000
+       IF(AINDX(K1,I).NE.A1.OR.AINDX(K2,I).NE.A2) GO TO 90              03174000
+       AINDX(K1,I)=A3                                                   03175000
+       AINDX(K2,I)=A4                                                   03176000
+ 90    CONTINUE                                                         03177000
+        GO TO 10                                                        03178000
+ 910    CONTINUE                                                        03179000
+       K1=IC(1)                                                         03180000
+       IF(K1.LE.0) RETURN                                               03181000
+       N1=IC(2)                                                         03182000
+       N2=IC(3)                                                         03183000
+       IF(N1.LE.0) N1=1                                                 03184000
+       IF(N2.LT.N1) N2=N1                                               03185000
+       A1=AC(1)                                                         03186000
+       DO 91 I=N1,N2                                                    03187000
+       AINDX(K1,I)=A1                                                   03188000
+ 91    CONTINUE                                                         03189000
+       GO TO 10                                                         03190000
+       END                                                              03191000
+      SUBROUTINE LOADIN(M,NTAP,K1,K,MINDX1,MINDX2,INDX)                 03192000
+C     *************************                                         03193000
+C                                                                       03194000
+C     LOAD  IN /INDX/ THE INTERMEDIATE FILE INDEX (FOR THE FIRST GROUP) 03195000
+C                                                 OF INTERMEDIATE FILES 03196000
+C       NTAP: TAPE DA CUI LEGGE                                         03197000
+C       M  : DIMENSIONI DELL INDICE LETTO                               03198000
+C       INDX(MINDX1,MINDX2) : INDICE LETTO                              03199000
+C                                                                       03200000
+C      PER K=0 LO METTE TUTTO                                           03201000
+C      PER K=N METTE IL N CHE TROVA SU TAPE                             03202000
+C          K1 = POSIZIONE IN INDX CHE SI INIZIA A RIEMPIRE              03203000
+C                                                                       03204000
+C     ******************************************************            03205000
+C                                                                       03206000
+C                                                                       03207000
+         DIMENSION INDX(MINDX1,MINDX2)                                  03208000
+C                                                                       03209000
+C                                                                       03210000
+       COMMON/FILES/NT(4,99)                                            03211000
+C      EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))               03212000
+C                                                                       03213000
+C                                                                       03214000
+C                                                                       03215000
+C                                                                       03216000
+C                                                                       03217000
+      IF(K1.LT.1) K1=1                                                  03218000
+        IF(NTAP.LE.0) NTAP=2                                            03219000
+      CALL REW(NTAP)                                                    03220000
+       NTP=NT(1,NTAP)                                                   03221000
+      IK=0                                                              03222000
+C     NUMERO DELL IND CHE LEGGE                                         03223000
+   1     READ(NTP,END=500) IND                                          03224000
+      IF(IND.LE.0) GO TO 10                                             03225000
+      IK=IK+1                                                           03226000
+      IF(MINDX2.LT.IND+K1-1) CALL ERR(8H LOADIN     , 10)               03227000
+      DO 10 I=1,IND                                                     03228000
+      READ(NTP,END=501) ( INDX(J,I+K1-1),J=1,MINDX1)                    03229000
+  10  CONTINUE                                                          03230000
+      IF(K.EQ.0.OR.K.EQ.IK) K1=K1+IND                                   03231000
+C     CONTINUA A LEGGERE ALTRI DI SEGUITO                               03232000
+      IF(K.EQ.0.OR.K.NE.IK) GO TO 1                                     03233000
+C     HA LETTO QUELLO SPECIFICO CHE DOVEVA                              03234000
+ 500  M=K1-1                                                            03235000
+C     SET DIMENSIONI INDICI PRIMA SERIE                                 03236000
+      RETURN                                                            03237000
+ 501  CALL ERR(8H LOADIN       , 501)                                   03238000
+      RETURN                                                            03239000
+      END                                                               03240000
+      SUBROUTINE LOADI1(M,NTAP,MINDX1,MINDX2,INDX)                      03241000
+C     **************************************************************    03242000
+C     LOAD THE INDEX OF INTERMEDIATE FILE FROM NTAP (WITHOUT REWIND)    03243000
+C                                                                       03244000
+C         M: LUNGHEZZA DELL'INDICE                                      03245000
+C         NTAP: TAPE DA CUI LEGGERE                                     03246000
+C       *************************************************************   03247000
+C                                                                       03248000
+        DIMENSION INDX(MINDX1,MINDX2)                                   03249000
+        COMMON /FILES/NT(4,99)                                          03250000
+        NTP=NT(1,NTAP)                                                  03251000
+ 1      READ(NTP,END=500) IND                                           03252000
+        IF(MINDX2.LT.IND) CALL ERR(8H LOADI1      ,10)                  03253000
+        DO 10 I=1,IND                                                   03254000
+        READ(NTP,END=501) (INDX(J,I),J=1,MINDX1)                        03255000
+        NT(4,NTAP)=NT(4,NTAP)+1                                         03256000
+ 10     CONTINUE                                                        03257000
+        M=IND                                                           03258000
+        RETURN                                                          03259000
+ 501    CALL ERR(8HLOADI1    ,501)                                      03260000
+        RETURN                                                          03261000
+ 500    CALL ERR(8HLOADI1      ,500)                                    03262000
+        RETURN                                                          03263000
+        END                                                             03264000
+       SUBROUTINE COMPIN(IND,K1,K2,MINDX1,MINDX2,AINDX)                 03265000
+C      ****************************************************             03266000
+C       COMPRESS MATRIX  AINDX(MINDX1,MINDX2).ELIMINANDO                03267000
+C       AINDX(.,K1) AD AINDX(.,K2) COMPRESE, IND E LA SECONDA           03268000
+C       DIMENSIONE DI IND ( CALATA DI K2-K1+1)                          03269000
+C      ******************************************************           03270000
+       DIMENSION AINDX(MINDX1,MINDX2)                                   03271000
+       IF(K1.GT.K2) GO TO 501                                           03272000
+       IF(K2.GT.MINDX2) K2=MINDX2                                       03273000
+       I1=K2+1                                                          03274000
+       I2=MINDX2                                                        03275000
+       ITOT=K2-K1+1                                                     03276000
+       DO  10 I=I1,I2                                                   03277000
+       IT=I-ITOT                                                        03278000
+       DO 20 IJ=1,MINDX1                                                03279000
+ 20    AINDX(IJ,IT)=AINDX(IJ,I)                                         03280000
+ 10    CONTINUE                                                         03281000
+       IND=IND-ITOT                                                     03282000
+       RETURN                                                           03283000
+ 501   CALL ERR(8H,COMPIN         ,501)                                 03284000
+       RETURN                                                           03285000
+       END                                                              03286000
+      SUBROUTINE SAVI(NTT,MINDX1,IND,INDX)                              03287000
+C     **********************************************                    03288000
+C     WRITES INDEX OF INTERMEDIATE FILES ON NTT FILE                    03289000
+C     **********************************************                    03290000
+C                                                                       03291000
+      DIMENSION INDX(MINDX1,IND)                                        03292000
+      COMMON/FILES/NT(4,99)                                             03293000
+C                                                                       03294000
+        NT2=NT(1,NTT)                                                   03295000
+      WRITE(NT2) IND                                                    03296000
+      DO 10 I=1,IND                                                     03297000
+      WRITE(NT2) (INDX(J,I),J=1,MINDX1)                                 03298000
+ 10   CONTINUE                                                          03299000
+      NT(4,2)=NT(4,2)+IND+1                                             03300000
+      NT(3,2)=NT(4,2)                                                   03301000
+      RETURN                                                            03302000
+      END                                                               03303000
+       SUBROUTINE SCARIN(NTPI,MINDX1,MIND,INDX)                         03304000
+C      *****************************************                        03305000
+C      WRITES INDEX ON FILE AND FREE THE INDEX MATRIX INDX              03306000
+C          SCARICA SU NT(1,NTPI) L'INDICE FINO A  MIND-1                03307000
+C                     ASSEGNA A MIND VALORE 1                           03308000
+C      *********************************************                    03309000
+        DIMENSION INDX(MINDX1,MIND)                                     03310000
+        COMMON /FILES/ NT(4,99)                                         03311000
+        EQUIVALENCE (NT(1,11),NP)                                       03312000
+        MIND=MIND-1                                                     03313000
+        CALL POSL(NTPI)                                                 03314000
+        CALL SAVI(NTPI,MINDX1,MIND,INDX)                                03315000
+        WRITE(NP,9000) MIND,NTPI                                        03316000
+ 9000   FORMAT(2X,I5,' VECTORS OF INDEX MATRIX SCRATCHED ON UNIT',I5)   03317000
+        MIND=1                                                          03318000
+        RETURN                                                          03319000
+        END                                                             03320000
+       SUBROUTINE ORDINA(K,N1,NP,A)                                     03321000
+C      **************************************                           03322000
+C      ORDERING ROUTINE                                                 03323000
+C      ORDINA A(N1,NP) PER VALORI DECRESCENTI DI A(K,.)                 03324000
+C      **************************************                           03325000
+       DIMENSION  A(N1,NP)                                              03326000
+       NP1=NP-1                                                         03327000
+       IF(NP1.LT.1) RETURN                                              03328000
+       DO 10 I=1,NP1                                                    03329000
+       I1=I+1                                                           03330000
+C      CERCA IL MAX SUI SUCCESSIVI                                      03331000
+       KK=I                                                             03332000
+       DO 20 J=I1,NP                                                    03333000
+       IF(A(K,KK).GT.A(K,J)) GO TO 20                                   03334000
+       KK=J                                                             03335000
+ 20    CONTINUE                                                         03336000
+C       SCAMBIO I E KK                                                  03337000
+       DO 30 JJ=1,N1                                                    03338000
+       D=A(JJ,KK)                                                       03339000
+       A(JJ,KK)=A(JJ,I)                                                 03340000
+ 30    A(JJ,I)=D                                                        03341000
+ 10    CONTINUE                                                         03342000
+       RETURN                                                           03343000
+       END                                                              03344000
+       SUBROUTINE ORDIN1(K,N1,NP,A)                                     03345000
+C      **************************************                           03346000
+C      ORDERING ROUTINE                                                 03347000
+C      ORDINA A(N1,NP) PER VALORI CRESCENTI DI A(K,.)                   03348000
+C      **************************************                           03349000
+       DIMENSION  A(N1,NP)                                              03350000
+       NP1=NP-1                                                         03351000
+       IF(NP1.LT.1) RETURN                                              03352000
+       DO 10 I=1,NP1                                                    03353000
+       I1=I+1                                                           03354000
+C      CERCA IL MIN SUI SUCCESSIVI                                      03355000
+       KK=I                                                             03356000
+       DO 20 J=I1,NP                                                    03357000
+       IF(A(K,KK).LT.A(K,J)) GO TO 20                                   03358000
+       KK=J                                                             03359000
+ 20    CONTINUE                                                         03360000
+C       SCAMBIO I E KK                                                  03361000
+       DO 30 JJ=1,N1                                                    03362000
+       D=A(JJ,KK)                                                       03363000
+       A(JJ,KK)=A(JJ,I)                                                 03364000
+ 30    A(JJ,I)=D                                                        03365000
+ 10    CONTINUE                                                         03366000
+       RETURN                                                           03367000
+       END                                                              03368000
+      SUBROUTINE ORDM(M,K,N1,N2,A,B)                                    03369000
+C     ***********************************                               03370000
+C     ORDERING ROUTINE                                                  03371000
+C                                                                       03372000
+C      METTE IN A(N1,N2) VICINI QUELLI CON = GRANDEZZA NELLA            03373000
+C     RIGA M                                                            03374000
+C         K+DIMENSIONI DI B                                             03375000
+C      B(1, ) = VALORE                                                  03376000
+C      B(2, ) = INIZIO VALORE                                           03377000
+C      B(3, ) DIMENSIONI VALORI DELLA RIGA M                            03378000
+C                                                                       03379000
+C     ****************************************                          03380000
+      DIMENSION A(N1,N2) ,B(3,N2)                                       03381000
+      INTEGER A,B,C                                                     03382000
+C     INTERI PER METTERCI INTERI SENZA CONVERSIONI                      03383000
+C     I = INDICE SUI A ( E IL NUMERO DA ANALIZZARE )                    03384000
+      I=1                                                               03385000
+C      K= INDICE DEI VALORI DIVERSI DELLA RIGA M                        03386000
+      K=0                                                               03387000
+C     ....................... LOOP SUI DIVERSI VALORI DELLA RIGA M      03388000
+  10  CONTINUE                                                          03389000
+C     SI ASSEGNA UN VALORE DI A(M DI CUI TROVARE UGUALI                 03390000
+      K=K+1                                                             03391000
+      B(1,K)=A(M,I)                                                     03392000
+      B(2,K)=I                                                          03393000
+      B(3,K)=0                                                          03394000
+ 200  CONTINUE                                                          03395000
+C      INCREMENTA I CONTATORI DEI VARI VALORI IN QUESTIONE (NE HA TROVAT03396000
+      B(3,K)=B(3,K)+1                                                   03397000
+C     ESAMINO IL SUCCESSIVO I+1                                         03398000
+      I=I+1                                                             03399000
+      IF(I.GT.N2) RETURN                                                03400000
+C     NEL CASO CHE STIA ANALIZZANDO L ULTIMO                            03401000
+C      GUARDA SE IL NUOVO NUMERO E =                                    03402000
+      IF(A(M,I).EQ.B(1,K)) GO TO 200                                    03403000
+ 100  CONTINUE                                                          03404000
+C     QUI SE E DIVERSO IL SUCCESSIVO  E VA SCAMBIATO CON UNO = DA CERCAR03405000
+C     FRA QUELLI DODO                                                   03406000
+C     I2= INDICE DI QUELLI DOPO                                         03407000
+      I2=I+1                                                            03408000
+C     SE STO ESAMINANDO L ULTIMO ( ED E DIVERSO LO ASSEGNO COME UN DIVER03409000
+      IF(I2.GT.N2) GO TO 10                                             03410000
+C     CERCA SUI SUCCESSIVI ALL'I ESIMO UNO = A QUELLO IN QUESTIONE      03411000
+      DO 30 JJ=I2,N2                                                    03412000
+      IF(A(M,JJ).NE.B(1,K)) GO TO 30                                    03413000
+C     SE SONO = SCAMBIO IL JJ CON L I                                   03414000
+      DO 40 J1=1,N1                                                     03415000
+      C=A(J1,JJ)                                                        03416000
+      A(J1,JJ)=A(J1,I)                                                  03417000
+      A(J1,I)=C                                                         03418000
+  40  CONTINUE                                                          03419000
+C     QUI ORA I ED I+1 SONO =                                           03420000
+      GO TO 200                                                         03421000
+ 30   CONTINUE                                                          03422000
+      GOTO 10                                                           03423000
+C      NON CE NE SONO DI UGUALI                                         03424000
+C     ALLORA IL SUCCESSIVO I NON LO SCAMBIO CON NESSUNO MA LO           03425000
+C     ASSEGNO COME NUOVO VALORE DI CUI CERCARE UGUALI                   03426000
+      END                                                               03427000
+      SUBROUTINE ORDMD(M,K,N1,N2,A,B)                                   03428000
+C     ***********************************                               03429000
+C     ORDERING ROUTINE                                                  03430000
+C                                                                       03431000
+C      METTE IN A(N1,N2) VICINI QUELLI CON = GRANDEZZA NELLA            03432000
+C     RIGA M                                                            03433000
+C         K=DIMENSIONI DI B                                             03434000
+C      B(1-2, )= VALORE ( A8 )                                          03435000
+C      B(3, ) = INIZIO VALORE                                           03436000
+C      B(4, ) DIMENSIONI VALORI DELLA RIGA M                            03437000
+C                                                                       03438000
+C     ****************************************                          03439000
+      DIMENSION A(N1,N2) ,B(4,N2)                                       03440000
+      INTEGER A,B,C                                                     03441000
+C     INTERI PER METTERCI INTERI SENZA CONVERSIONI                      03442000
+C     I = INDICE SUI A ( E IL NUMERO DA ANALIZZARE )                    03443000
+      I=1                                                               03444000
+C      K= INDICE DEI VALORI DIVERSI DELLA RIGA M                        03445000
+      K=0                                                               03446000
+C     ....................... LOOP SUI DIVERSI VALORI DELLA RIGA M      03447000
+  10  CONTINUE                                                          03448000
+C     SI ASSEGNA UN VALORE DI A(M DI CUI TROVARE UGUALI                 03449000
+      K=K+1                                                             03450000
+      B(1,K)=A(M,I)                                                     03451000
+      B(2,K)=A(M+1,I)                                                   03452000
+      B(3,K)=I                                                          03453000
+      B(4,K)=0                                                          03454000
+ 20   CONTINUE                                                          03455000
+C      INCREMENTA I CONTATORI DEI VARI VALORI IN QUESTIONE (NE HA TROVAT03456000
+      B(4,K)=B(4,K)+1                                                   03457000
+C     ESAMINO IL SUCCESSIVO I+1                                         03458000
+      I=I+1                                                             03459000
+      IF(I.GT.N2) RETURN                                                03460000
+C     NEL CASO CHE STIA ANALIZZANDO L ULTIMO                            03461000
+C      GUARDA SE IL NUOVO NUMERO E =                                    03462000
+      IF(A(M,I).EQ.B(1,K).AND.A(M+1,I).EQ.B(2,K)) GO TO 20              03463000
+ 100  CONTINUE                                                          03464000
+C     QUI SE E DIVERSO IL SUCCESSIVO  E VA SCAMBIATO CON UNO = DA CERCAR03465000
+C     FRA QUELLI DODO                                                   03466000
+C     I2= INDICE DI QUELLI DOPO                                         03467000
+      I2=I+1                                                            03468000
+C     SE STO ESAMINANDO L ULTIMO ( ED E DIVERSO LO ASSEGNO COME UN DIVER03469000
+      IF(I2.GT.N2) GO TO 10                                             03470000
+C     CERCA SUI SUCCESSIVI ALL'I ESIMO UNO = A QUELLO IN QUESTIONE      03471000
+      DO 30 JJ=I2,N2                                                    03472000
+      IF(A(M,JJ).NE.B(1,K).OR.A(M+1,JJ).NE.B(2,K)) GO TO 30             03473000
+C     SE SONO = SCAMBIO IL JJ CON L I                                   03474000
+      DO 40 J1=1,N1                                                     03475000
+      C=A(J1,JJ)                                                        03476000
+      A(J1,JJ)=A(J1,I)                                                  03477000
+      A(J1,I)=C                                                         03478000
+  40  CONTINUE                                                          03479000
+C     QUI ORA I ED I+1 SONO =                                           03480000
+      GO TO 20                                                          03481000
+ 30   CONTINUE                                                          03482000
+      GOTO 10                                                           03483000
+C      NON CE NE SONO DI UGUALI                                         03484000
+C     ALLORA IL SUCCESSIVO I NON LO SCAMBIO CON NESSUNO MA LO           03485000
+C     ASSEGNO COME NUOVO VALORE DI CUI CERCARE UGUALI                   03486000
+        END                                                             03487000
+       SUBROUTINE SELR2(NPK,NRS,PK,KE,EINF,ESUP)                        03488000
+C      *****************************************************            03489000
+C      COMPRESS PK KILLING VALUES IN A SPECIFIED RANGE                  03490000
+C      ELIMINA IN PK(NPK,NRS) I VALORI CON PK(KE,.) ENTRO EINF-ESUP     03491000
+C      **************************************************************** 03492000
+       DIMENSION PK(NPK,NRS)                                            03493000
+       NP=NRS                                                           03494000
+       I=0                                                              03495000
+ 10    I=I+1                                                            03496000
+ 20    IF(I.GT.NP) GO TO 500                                            03497000
+       IF(PK(KE,I).GT.EINF.AND.PK(KE,I).LE.ESUP) GO TO 100              03498000
+       GO TO 10                                                         03499000
+C      ELIMINA UN ELEMENTO METTENDO L'ULTIMO AL SUO POSTO               03500000
+ 100   DO 30 J=1,NPK                                                    03501000
+ 30    PK(J,I)=PK(J,NP)                                                 03502000
+       NP=NP-1                                                          03503000
+       GO TO 20                                                         03504000
+ 500   NRS=I-1                                                          03505000
+       IF(NRS.LE.0) CALL ERR(8HSELR2WAR   ,500)                         03506000
+       RETURN                                                           03507000
+       END                                                              03508000
+      SUBROUTINE P2(MA,N)                                               03509000
+C     ***************************************************************** 03510000
+C                                                                       03511000
+C       MAIN ROUTINE FOR THE PART 2 OF THE CODE.                        03512000
+C       READS FROM FIRST GROUP OF INTERMEDIATE FILES THE PARTS OF       03513000
+C        ENDFB SELECTED BY THE PART ONE.                                03514000
+C        PERFORMS ALMOST ALL THE CALCULATION TO BE DONE                 03515000
+C        WRITES THE SECOND GROUP OF INTERMEDIATE FILES, CONTAINING      03516000
+C      DATA IN THE FORMAT OF THE MCC2 INPUT LIBRARIES MCC2F1-3-4-5-6-7-803517000
+C                                                                       03518000
+C     ***************************************************************** 03519000
+C                                                                       03520000
+       DIMENSION N(MA)                                                  03521000
+       REAL*8C                                                          03522000
+       COMMON /COMM/C,IC(6),AC(4)                                       03523000
+       COMMON/FILES/NT(4,99)                                            03524000
+      EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)),(NP12,NT(1,12))03525000
+C                                                                       03526000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        03527000
+       EQUIVALENCE (OPZ(2,1,1),STMP)                                    03528000
+      EQUIVALENCE (EUP,OPZ(2,5,2)),(DELU,OPZ(2,5,3))                    03529000
+C                                                                       03530000
+C                                                                       03531000
+       COMMON/DIM/INDDUM,IND1,INMIX,IND2                                03532000
+C                                                                       03533000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     03534000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     03535000
+C                                                                       03536000
+C                                                                       03537000
+       COMMON /INDX/INDX(40,200)                                        03538000
+       COMMON /MIX/MIX(15,300)                                          03539003
+C                                                                       03540000
+       COMMON /INDX1/INDX1(40,200)                                      03541000
+       DATA NBIAN/4H     /                                              03542000
+C                                                                       03543000
+        IF(IND1.GT.0) GO TO 111                                         03544000
+        WRITE(NO,8000)                                                  03545000
+        WRITE(NP,8000)                                                  03546000
+ 8000   FORMAT(' WARNING! NO INDEX OF INPUT FILES FOUND IN PART 2!',    03547000
+     1       ' ROUTINE P2 IS NON EXECUTED!')                            03548000
+        RETURN                                                          03549000
+C                                                                       03550000
+ 111    DO  3 J1=1,4                                                    03551000
+        WRITE(NP12,9000) J1                                             03552000
+  3     WRITE(NP12,9001)((OPZ(J1,J2,J3),J3=1,10),J2=1,8)                03553000
+ 9000   FORMAT('  PART 2 EXECUTING . OPTION TABLE OF PART:',I4)         03554000
+ 9001   FORMAT(1X,10E12.5)                                              03555000
+C                                                                       03556000
+C      MIXING FITTIZIA UNA SCHEDA PER OGNI MCCF (ESCLUSO IL 2 )         03557000
+       IF(INMIX.GT.0) GOTO 71                                           03558000
+        CALL RIEMP(0,MMIX1*MMIX2,MIX)                                   03559000
+        MIX(1,1)=NBIAN                                                  03560000
+       MIX(2,1)=NBIAN                                                   03561000
+       MIX(3,1)=NBIAN                                                   03562000
+       MIX(4,1)=NBIAN                                                   03563000
+       MIX(5,1)=0                                                       03564000
+       MIX(6,1)=1                                                       03565000
+       DO 5 I=2,7                                                       03566000
+       MIX(1,I)=NBIAN                                                   03567000
+       MIX(2,I)=NBIAN                                                   03568000
+       MIX(3,I)=NBIAN                                                   03569000
+       MIX(4,I)=NBIAN                                                   03570000
+       MIX(5,I)=31+I                                                    03571000
+       MIX(6,I)=1+I                                                     03572000
+ 5     CONTINUE                                                         03573000
+       INMIX=7                                                          03574000
+ 71    CONTINUE                                                         03575000
+C        CALL MIXSHO(2,NO)                                              03576000
+         CALL MIXSHO(2,NP)                                              03577006
+C                                                                       03578000
+C      SET ZERO INDICE DI OUTPUT                                        03579000
+      CALL RIEMP(0,MIND11*MIND12,INDX1)                                 03580000
+      IND2=0                                                            03581000
+C                                                                       03582000
+C     ORDINA INDICE PER MATERIALE                                       03583000
+C        NELLE ROUTINES MCC2F1-3-4-5-6-7-8 QUESTO ORDINAMENTO E'        03584000
+C        USATO PER ABBREVIARE I CONTI IN CASO DI NUCLIDI CON            03585000
+C        RECORD DI INDICE MA NON RICHIESTI NELLA MIX.                   03586000
+C        I LOOP NON VENGONO FATTI SULL'INDICE DIRETTAMENTE, MA          03587000
+C        SUI NUCLIDI, CIOE' SULL'INDICE DELL'INDICE. COSI SCARTARE      03588000
+C        UN NUCLIDE E' SALTARE IN UNA SOLA VOLTA TUTTO IL SUI INDICE,   03589000
+C        SENZA GUARDARNE I RECORDS UNO PER UNO.                         03590000
+C                                                                       03591000
+C        I NUCLIDI VENGONO ORDINATI PER MASSE DECRESCENTI, IN MODO      03592000
+C        DA ESSERE SCRITTI NEI FILES SECONDA SERIE PER MASSE DECRESCENTI03593000
+C        IN CONFORMITA' A COME P3 LI CERCA. QUESTO RIDUE IL TEMPO NECESS03594000
+C        A P3 CHE LI TROVA GIA IN IFLA SENZA DOVER ANDARE SU E GIU PER I03595000
+C                                                                       03596000
+C              MCC2F6 ORDINA I RECORD DI INDICE DI UN SINGOLO MATERIALE 03597000
+C              PER VALORI CRESCENTI DI AINDX(25,.) = POSIZIONE OCCUPATA 03598000
+C              NEL FILE DI INPUT ONDE RIDURRE TEMPO DI LETTURA          03599000
+C                                                                       03600000
+C                                                                       03601000
+        CALL ORDINA(5,MINDX1,IND1,INDX)                                 03602000
+C                                                                       03603000
+C                                                                       03604000
+      CALL ORDMD(35,KB,MINDX1,IND1,INDX,N)                              03605000
+C     KB E LA DIMENSIONE DI N (4,KB) CON SPECIFICHE DI COME E IL INDX   03606000
+      IF(KB*4.GT.MA) CALL ERR(8H P2      ,0)                            03607000
+C     ORDINA MIX PER MCCF                                               03608000
+C             PASSA TUTTO UN MCCF DELLA MIX ALLE SUB DI CONTO CHE       03609000
+C              CERCANO OGNI INDX NELLE MIX DEL MCCF                     03610000
+C     KU= POSIZIONE DELL INDICE  DI MCCF                                03611000
+      KU=6                                                              03612000
+      CALL ORDMIC(KU,MMIX1,INMIX,MIX)                                   03613000
+      CALL EXAM(KU,KB1,MMIX1,INMIX,MIX,N(KB*4+1))                       03614000
+C     ORA A CONTIENE : N(4,KB) , N(3,KB1) CON INFORMAZIONI SULLA        03615000
+C     STRUTTURA DI INDX E DI MIX                                        03616000
+C      PER INDX :                                                       03617000
+C          N(1,2  , .)= VALORE (REAL*8                                  03618000
+C          N(3    ,.) = INIZIO                                          03619000
+C          N(4,.) = DIMENSIONE                                          03620000
+C                                                                       03621000
+C PER MIX :                                                             03622000
+C          N(1, ) = VALORE                                              03623000
+C          N(2, ) = INIZIO VALORE                                       03624000
+C          N(3, ) DIMENSIONE VALORE                                     03625000
+C                                                                       03626000
+       WRITE(NP12,9010) ((N(J+(JJ-1)*4),J=1,4),JJ=1,KB)                 03627000
+ 9010  FORMAT(' P2: INDEX OF THE INDEX:',2A4,' FIRST CARD:',I5,         03628000
+     1  '  CARDS:',I5)                                                  03629000
+       WRITE(NP12,9020) ((N(KB*4+J+(JJ-1)*3),J=1,3),JJ=1,KB1)           03630000
+ 9020  FORMAT(' P2: INDEX OF THE INPUT TABLE. MCC2 FILE:',I4,           03631000
+     1 ' FIRST CARD:',I4,' CARDS:',I4)                                  03632000
+C                                                                       03633000
+C       MONTA WTABLE: TAVOLE DI VALORI DI FUNZIONE W PER CALCOLO DELLE  03634000
+C       FUNZIONI DOPLLER. SERVE A SUBROUTINE P2MCF5 PER IL CALCOLO DEGLI03635000
+C       INTEGRALI DI RISONANZA CON EFFETTO DOPPLER                      03636000
+C                                                                       03637000
+       N27=27                                                           03638000
+       N41=41                                                           03639000
+       N4127=N41*N27                                                    03640000
+C                                                                       03641000
+       L1=KB*4+3*KB1+1                                                  03642000
+C                       TR                                              03643000
+       L2=L1+N4127                                                      03644000
+C                       TI                                              03645000
+       L3=L2+N4127                                                      03646000
+C                       TRS                                             03647000
+       L4=L3+N4127                                                      03648000
+C                       TIS                                             03649000
+       L5=L4+N4127                                                      03650000
+C                       AX    (REAL *8)                                 03651000
+       L6=L5+N41*2                                                      03652000
+C                       AY    (REAL *8)                                 03653000
+       LFIN=L6+N27*2                                                    03654000
+C                                                                       03655000
+       IF(LFIN.GT.MA) CALL ERR(8H P2       ,1)                          03656000
+C                                                                       03657000
+       CALL WTABL(N41,N27,N(L5),N(L6),N(L1),N(L2),N(L3),N(L4))          03658000
+C                                                                       03659000
+C      STAMPA DELLE TABULAZIONI DELLA FUNZIONE W                        03660000
+       IF(STMP.LT.1000.)  GO TO1                                        03661000
+       N272=N27*2                                                       03662000
+       N412=N41*2                                                       03663000
+       WRITE(NO,1000) (N(L5+J-1),J=1,N412,2)                            03664000
+ 1000  FORMAT(' W TABLE- X INTERVAL'/(1X,10E12.5))                      03665000
+       WRITE(NO,1000) (N(L6+J-1),J=1,N272,2)                            03666000
+ 2000  FORMAT(' W TABLE- Y INTERVAL'/(1X,10E12.5))                      03667000
+       WRITE(NO,3000) (N(L1+J-1),J=1,N4127)                             03668000
+ 3000  FORMAT(' REAL W TABULATION ,D=0.1,-0.1.LE.X.LE.3.9,',            03669000
+     1 '0.4.LE.Y.LE.3.0'/(1X,10E12.5))                                  03670000
+       WRITE(NO,4000) (N(L2+J-1),J=1,N4127)                             03671000
+ 4000  FORMAT(' IMM  W TABULATION ,D=0.1,-0.1.LE.X.LE.3.9,',            03672000
+     1 '0.4.LE.Y.LE.3.0'/(1X,10E12.5))                                  03673000
+       WRITE(NO,5000) (N(L3+J-1),J=1,N4127)                             03674000
+ 5000  FORMAT(' REAL W TABULATION ,DX=0.1:-0.1.LE.X.LE.3.9,',           03675000
+     1 'DY=0.02:0.4.LE.Y.LE.3.0'/(1X,10E12.5))                          03676000
+       WRITE(NO,6000) (N(L4+J-1),J=1,N4127)                             03677000
+ 6000  FORMAT(' IMM  W TABULATION ,DX=0.1:-0.1.LE.X.LE.3.9,',           03678000
+     1 'DY=0.02:0.4.LE.Y.LE.3.0'/(1X,10E12.5))                          03679000
+ 1     CONTINUE                                                         03680000
+C                                                                       03681000
+C      RILASCIO LO SPAZIO USATO DA AX ED AY                             03682000
+C      LFIN=L5                                                          03683000
+C      FIX GROUP UPPER ENERGY LIMITS (NG+1 VALUES FOR USE IN SOTTOSTANTI03684000
+C      ROUTINES )                                                       03685000
+       LNG=L5                                                           03686000
+       NG=OPZ(2,5,4)                                                    03687000
+       IF(NG.LE.0) NG=2082                                              03688000
+       LFIN=LNG+NG+2                                                    03689000
+            IF(LFIN.GT.MA) CALL ERR(8HP2       ,2)                      03690000
+       NG11N=NG+1                                                       03690107
+       CALL ENERG(NG11N,DELU,EUP,N(LNG))                                03691007
+C                                                                       03693000
+C                                                                       03694000
+C     CERCA IL FN SUPPONENDO CHE CI SIANO INTERI IN N                   03695000
+C      .............. SPAZIO RIMASTO IN MA (MADIM)                      03696000
+C      ............ IL PRIMO POSTO LIBERO IN N (ALTROVE DELLO A)=LFIN+1 03697000
+      MAPOS=LFIN+1                                                      03698000
+      MADIM=MA-MAPOS                                                    03699000
+        MPKB1=4*KB+1                                                    03700000
+C                     POSIZIONE DI INDICE MIX (MPKB1)                   03701000
+C                                                                       03702000
+C      ******************* LOOP SUI MCCF  DELLA MIXING                  03703000
+C                          KFPOS= NUM MCCF IN MIX                       03704000
+C                          KFIN = INIZIO IN MIX                         03705000
+C                          KFDIM=LUNGHEZZA IN MIX                       03706000
+C                                                                       03707000
+      KIX=1                                                             03708000
+ 10         KFPOS=N(3*(KIX-1)+1+KB*4)                                   03709000
+            KFIN=N(3*(KIX-1)+1+KB*4+1)                                  03710000
+            KFDIM=N(3*(KIX-1)+1+KB*4+2)                                 03711000
+C                                                                       03712000
+      GO TO (100,200,300,400,500,600,700,800),KFPOS                     03713000
+      CALL ERR(8H  P2      ,200)                                        03714000
+ 200  CONTINUE                                                          03715000
+C               LA PARTE CHE GENERA IL FILE 2 NON ESISTE                03716000
+      GO TO 110                                                         03717000
+C        ARGOMENTO 1 : SPAZIO RIMASTO                                   03718000
+C                  2 : MATRICE DI SCRATCH                               03719000
+C                  3 : DIMENSIONI MATRICE MIX                           03720000
+C                  4 : DIMENSIONI MATRICE MIX DELL FN IN QUESTINE       03721000
+C                  5 : MATRICE MIX DELL FN IN QUESTIONE                 03722000
+C         6: DIM DI INDICE DI INDX                                      03723000
+C         7: INDICI DI INDX                                             03724000
+C         8: DIM INDICI DI MIX                                          03725000
+C         9: INDICI DI MIX                                              03726000
+C                                                                       03727000
+C                                                                       03728000
+ 100  CALL P2MCF1(MADIM,N(MAPOS),MMIX1,KFDIM,                           03729000
+     1MIX(1,KFIN),KB,N(1),KB1,N(MPKB1))                                 03730000
+      GO TO 110                                                         03731000
+C                                                                       03732000
+ 300  CALL P2MCF3(MADIM,N(MAPOS),MMIX1,KFDIM,                           03733000
+     1MIX(1,KFIN),KB,N(1),KB1,N(MPKB1))                                 03734000
+      GO TO 110                                                         03735000
+C                                                                       03736000
+ 400  CALL P2MCF4(MADIM,N(MAPOS),MMIX1,KFDIM,                           03737000
+     1MIX(1,KFIN),KB,N(1),KB1,N(MPKB1))                                 03738000
+      GO TO 110                                                         03739000
+ 500  CALL P2MCF5(MADIM,N(MAPOS),MMIX1,KFDIM,                           03740000
+     1MIX(1,KFIN),KB,N(1),KB1,N(MPKB1),                                 03741000
+     2N41,N27,N(L1),N(L2),N(L3),N(L4),NG,N(L5) )                        03742000
+      GO TO 110                                                         03743000
+C                                                                       03744000
+ 600  CALL P2MCF6(MADIM,N(MAPOS),MMIX1,KFDIM,                           03745000
+     1MIX(1,KFIN),KB,N(1),KB1,N(MPKB1),NG,N(L5) )                       03746000
+      GO TO 110                                                         03747000
+ 700  CALL P2MCF7(MADIM,N(MAPOS),MMIX1,KFDIM,                           03748000
+     1MIX(1,KFIN),KB,N(1),KB1,N(MPKB1),NG,N(L5) )                       03749000
+      GO TO 110                                                         03750000
+C                                                                       03751000
+ 800  CALL P2MCF8(MADIM,N(MAPOS),MMIX1,KFDIM,                           03752000
+     1MIX(1,KFIN),KB,N(1),KB1,N(MPKB1),NG,N(L5) )                       03753000
+ 110  KIX=KIX+1                                                         03754000
+C     GUARDA IL VALORE SUCCESSIVO DI MCF IN MIX                         03755000
+      IF(KIX.LE.KB1) GOTO10                                             03756000
+      WRITE(NP,9050) IND2                                               03757000
+ 9050 FORMAT(' PART 2 TERMINATED. ',                                    03758000
+     1 I5,' VECTORS OF INDEX MATRIX WRITTEN ON UNIT 3')                 03759000
+      CALL POSL(3)                                                      03760000
+       CALL SAVI(3,MIND11,IND2,INDX1)                                   03761000
+       IND2=0                                                           03762000
+       RETURN                                                           03763000
+      END                                                               03764000
+      SUBROUTINE P2MCF1(MA,A,M1,M2,MIX,MKB1,INDIND,MKB,INDMIX)          03765000
+C     ***********************************************************       03766000
+C                                                                       03767000
+C       COMPUTES SCATTERING RADIUS,ENERGY PER CAPTURE AND ENERGY PER    03768000
+C       FISSION . THESE DATA ARE INCLUDED IN THE FILE MCC2F1 BY PART 3  03769000
+C                                                                       03770000
+C      A(MA)=WORKING SPACE                                              03771000
+C      MIX(M1,M2)=INPUT TABLE FOR MCC2F1 DATA                           03772000
+C      INDIND(3,MKB1)=INDEX OF AINDEX:1-2,3,4=VALUE(REAL*8),FIRS VALUE, 03773000
+C            THE INDEX AINDX IS ORDERED BY MATERIAL(LENGTH.             03774000
+C      INDMIX(3,MKB)= INDEX OF  MIX : 1,2,3= VALUE,FIRST VALUE,LENGTH.  03775000
+C            MIX IS ORDERED BY MCC2F LIBRARY FILE                       03776000
+C                                                                       03777000
+C     ******************************************************************03778000
+C                                                                       03779000
+      DIMENSION A(MA),MIX(M1,M2),INDIND(4,MKB1),INDMIX(3,MKB)           03780000
+C         ==== N100=MAX NUMBER OF ISOTOPES ====                         03781000
+       DATA N100/100/                                                   03782000
+C                                                                       03783000
+      COMMON /INDX/AINDX(40,200)                                        03784000
+      COMMON /INDX1/AINDX1(40,200)                                      03785000
+      COMMON /FILES/ NT(4,99)                                           03786000
+      COMMON /DIM/ MMIX,MIND,MNX2,IND2                                  03787000
+      EQUIVALENCE(NO,NT(1,6)),(NP,NT(1,11)),(NP12,NT(1,12))             03788000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        03789000
+       EQUIVALENCE (OPZ(2,7,1),STMP)                                    03790000
+C                                                                       03791000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     03792000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     03793000
+C                                                                       03794000
+            WRITE(NP12,7000)((MIX(J,JJ),J=1,M1),JJ=1,M2)                03795000
+ 7000    FORMAT(' P2MCF1 ENTERED. INPUT TABLE TO BE EXECUTED:'/         03796000
+     1 (1X,2A4,1X,2A4,8I4,3E12.5))                                      03797000
+C                                                                       03798000
+C                                                                       03799000
+C      ........................LOOP SULL INDICE DELL'INDICE(ISOTOPI)    03800000
+C      RICERCA SE GLI ELEMENTI DI IND SONO IN MIX ( DA TRATTARE)        03801000
+      DO 10 IS=1,MKB1                                                   03802000
+      N1=INDIND(3,IS)                                                   03803000
+       N2=INDIND(4,IS)                                                  03804000
+       N3=N1+N2-1                                                       03805000
+C                                                                       03806000
+C      CERCA L ISOTOPO DELLA MIX                                        03807000
+      NMT=NCERC1(MINDX1,MIND,AINDX,M1,M2,MIX,N1,35,3,1)                 03808000
+C      NON HA TROVATO MATERIALE NELLA MIX                               03809000
+       IF(NMT.LE.0.) GO TO 100                                          03810000
+C                                                                       03811000
+       CALL RIEMP(0.0,N100*2,A)                                         03812000
+       NIS=0                                                            03813000
+       SIGP=0.                                                          03814000
+       EFIS18=0.                                                        03815000
+       EFI428=0.                                                        03816000
+       EFISN=0.                                                         03817000
+       ECATT=0.                                                         03818000
+       ENECC=0.                                                         03819000
+C      ...................LOOP SU INDICE DEL MATERIALE                  03820000
+       DO 15 IR=N1,N3                                                   03821000
+C                                                                       03822000
+C           MEV/ASSORBIMENTO PER ALTRE REAZIONI                         03823000
+       IF(AINDX(2,IR).NE.3.) GO TO 101                                  03824000
+C            INSERISCO LE SOLE REAZIONI ESOTERMICHE                     03825000
+       IF(AINDX(8,IR).LE.0.) GO TO 101                                  03826000
+C       N,P                                                             03827000
+C      IF(AINDX(3,IR).EQ.103.) ENECC=ENECC+AINDX(8,IR)/1.E+6+ENECC      03828000
+C       N,D                                                             03829000
+C      IF(AINDX(3,IR).EQ.104.) ENECC=ENECC+AINDX(8,IR)/1.E+6+ENECC      03830000
+C       N,T                                                             03831000
+C      IF(AINDX(3,IR).EQ.105.) ENECC=ENECC+AINDX(8,IR)/1.E+6+ENECC      03832000
+C       N,HE3                                                           03833000
+C      IF(AINDX(3,IR).EQ.106.) ENECC=ENECC+AINDX(8,IR)/1.E+6+ENECC      03834000
+C       N,ALFA                                                          03835000
+       IF(AINDX(3,IR).EQ.107.) ENECC=ENECC+AINDX(8,IR)/1.E+6+ENECC      03836000
+C       N,2ALFA                                                         03837000
+C       IF(AINDX(3,IR).EQ.108.) ENECC=ENECC+AINDX(8,IR)/1.E+6+ENECC     03838000
+C                                                                       03839000
+ 101   IF(AINDX(30,IR).NE.1.) GOTO150                                   03840000
+       IF(AINDX(31,IR).NE.6.) GO TO 200                                 03841000
+C                  SCATTERING RADIUS                                    03842000
+       ANOME1=AINDX(35,IR)                                              03843000
+       ANOME2=AINDX(36,IR)                                              03844000
+       T=AINDX(37,IR)                                                   03845000
+       AMAT=AINDX(1,IR)                                                 03846000
+       AMF=AINDX(2,IR)                                                  03847000
+       AMT=AINDX(3,IR)                                                  03848000
+       ZA=AINDX(4,IR)                                                   03849000
+       Z=AINT(ZA/1000.)                                                 03850000
+       AA=ZA-Z*1000.                                                    03851000
+       AWR=AINDX(5,IR)                                                  03852000
+C                GUARDA  I DIVERSI ISOTOPI                              03853000
+       IF(NIS.GT.N100) CALL ERR(8HP2MCF1   ,1)                          03854000
+       IF(NIS.LE.0) NIS=AINDX(6,IR)                                     03855000
+       IF(NIS+100.GT.MA)CALL ERR(8HP2MCF1       ,2)                     03856000
+       IF(AINDX(6,IR).NE.NIS) CALL ERR(8HP2MCF1      ,3)                03857000
+       ISO=AINDX(28,IR)                                                 03858000
+       IF(A(ISO).GT.0.) GO TO 150                                       03859000
+C             METTE I DATI DEGLI ISOTOPI NON GIA' MONTATI.              03860000
+C             OGNI ISOTOPO PUO APPARIRE DUE VOLTE, UNA PER LE           03861000
+C             RESOLVED EDUNA PER LE UNRESOLVED                          03862000
+C                                                                       03863000
+       ABUN=AINDX(9,IR)                                                 03864000
+       IF(NIS.LE.1) ABUN=1.                                             03865000
+       AP=AINDX(17,IR)                                                  03866000
+       A(ISO)=12.5663706*AP*AP                                          03867000
+       SIGP=SIGP+A(ISO)*ABUN                                            03868000
+       A(100+ISO)=ABUN                                                  03869000
+C                                                                       03870000
+        WRITE(NP,9010) AINDX(35,IR),AINDX(36,IR),SIGP                   03871000
+ 9010   FORMAT(1X,2A4,' SCATTERING RADIUS:',E12.5)                      03872000
+C                                                                       03873000
+       GO TO 150                                                        03874000
+ 200    IF(AINDX(31,IR).NE.3) GO TO 150                                 03875000
+C           E FISS ED  E CATT  DALLE SMOOTH O DA MT=428 DI F1 ENDFB     03876000
+C            IN ENDFB QUESTI DATI SONO IN EV , IN MCC2F1 IN MEV         03877000
+       IF(AINDX(32,IR).EQ.5) ECATT=AINDX(8,IR)/1.E+6                    03878000
+       IF(AINDX(32,IR).EQ.10)EFIS18=AINDX(8,IR)/1.E+6                   03879000
+       IF(AINDX(32,IR).EQ.4)EFI428=AINDX(14,IR)/1.E+6                   03880000
+       IF(AINDX(32,IR).EQ.4)EFISN=AINDX(15,IR)/1.E+6                    03881000
+C                                                                       03882000
+ 300   CONTINUE                                                         03883000
+ 150   CONTINUE                                                         03884000
+ 15    CONTINUE                                                         03885000
+C                                                                       03886000
+C      ------------------------------SCRIVE                             03887000
+C                                                                       03888000
+       WRITE(NP,9020) AINDX(35,N1),AINDX(36,N1),ECATT,EFIS18,EFI428,    03889000
+     1                EFISN                                             03890000
+ 9020  FORMAT(1X,2A4,' E CATT,EFIS FROM FILE 3:',2E12.5/                03891000
+     1 '   EFIS ED EFIS WITH NEUTRINOS (MT=428, F1):',2E12.5)           03892000
+C                                                                       03893000
+       IF(NMT.LE.M2) GO TO 410                                          03894000
+       NOM=NAREAL(ANOME1)                                               03895000
+       NOM1=NAREAL(ANOME2)                                              03896000
+       NOM2=NAREAL(ANOME1)                                              03897000
+       NOM3=NAREAL(ANOME2)                                              03898000
+       GO TO 420                                                        03899000
+ 410  NOM=MIX(3,NMT)                                                    03900000
+      NOM1=MIX(4,NMT)                                                   03901000
+      NOM2=MIX(1,NMT)                                                   03902000
+      NOM3=MIX(2,NMT)                                                   03903000
+      AR1=AREAL(MIX(13,NMT))                                            03904000
+      AR2=AREAL(MIX(14,NMT))                                            03905000
+       AR3=AREAL(MIX(15,NMT))                                           03906000
+       IF(AR1.NE.0.) SIGP=AR1                                           03907000
+       IF(AR2.NE.0.) ECATT=AR2                                          03908000
+       IF(AR3.NE.0.) EFIS18=AR3                                         03909000
+C                                                                       03910000
+ 420  IND2=IND2+1                                                       03911000
+      IF(IND2.GT.MIND12) CALL ERR(8HP2MCF1   ,410)                      03912000
+      CALL EMPIN(MIND11,AINDX1(1,IND2),AMAT,AMF,AMT,ZA,AWR,             03913000
+     1NOM,NOM1,NOM2,NOM3,0.,                                            03914000
+     21.,0.,0.,0.,0.,0.,0.,0.,0.,                                       03915000
+     3FLOAT(NIS),Z,AA,SIGP,EFIS18,ECATT,EFI428,EFISN,ENECC,0.,          03916000
+     4A(1),A(101),A(2),A(102),A(3),A(103),A(4),A(104),A(5),A(105),T)    03917000
+C                                                                       03918000
+ 100       CONTINUE                                                     03919000
+  10       CONTINUE                                                     03920000
+       RETURN                                                           03921000
+       END                                                              03922000
+      SUBROUTINE  P2MCF3(MA,A,M1,M2,MIX,MKB1,INDIND,MKB,INDMIX)         03923000
+C     *********************************                                 03924000
+C                                                                       03925000
+C     UNRESOLVED RESONANCE PARAMETERS CALCULATION FOR MCC2F3 FILE       03926000
+C                                                                       03927000
+C     IN A SPAZIO SCRATCH                                               03928000
+C        PER INDIND:                                                    03929000
+C         (1,2     = VALORE ( REAL*8)                                   03930000
+C         (3       = INIZIO                                             03931000
+C         (4       = DIMENSIONI                                         03932000
+C                                                                       03933000
+C     IN MIX LA MIXING DELL F3                                          03934000
+C         IN INDMIX INDICE DI MIX                                       03935000
+C                   (1 ) = VALORE                                       03936000
+C                   (2 ) = INIZIO VALORE                                03937000
+C                   (3 ) = DIMENSIONI VALORE                            03938000
+C                                                                       03939000
+C                                                                       03940000
+C     **********************************************                    03941000
+C                                                                       03942000
+      DIMENSION A(MA),MIX(M1,M2)                                        03943000
+       DIMENSION INDMIX(3,MKB),INDIND(4,MKB1)                           03944000
+       COMMON /INDX1/AINDX1(40,200)                                     03945000
+       COMMON /INDX/AINDX(40,200)                                       03946000
+      COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),       03947000
+     1N1X,N2X,NS,LX,LY,LB                                               03948000
+       COMMON/DENS/JMT,JAT,JTT,JLT,LV,JNS,MNS,                          03949000
+     1JX,MX                                                             03950000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     03951000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     03952000
+       COMMON/DIM/M(5)                                                  03953000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        03954000
+       COMMON/FILES/NT(4,99)                                            03955000
+       EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))               03956000
+      EQUIVALENCE (OPZ(2,5,5),OPM),(OPZ(2,3,1),STMP)                    03957000
+      EQUIVALENCE (IND,M(2)),(IND2,M(4)),(NP12,NT(1,12))                03958000
+C      INDICE PRIMA SERIE = M(2)                                        03959000
+C     INDICE SECONDA SERIE = M(4)                                       03960000
+C            LA ISTRUZIONE IND2=0 STA IN SUB P2                         03961000
+C                                                                       03962000
+            WRITE(NP12,7000)((MIX(J,JJ),J=1,M1),JJ=1,M2)                03963000
+ 7000    FORMAT(' P2MCF3 ENTERED. INPUT TABLE TO BE EXECUTED:'/         03964000
+     1 (1X,2A4,1X,2A4,8I4,3E12.5))                                      03965000
+C                                                                       03966000
+C                                                                       03967000
+C      ............ LOOP SU INDICE DELL' INDICE (SUI NUCLIDI DELL'INDICE03968000
+       DO 5 IS=1,MKB1                                                   03969000
+       N1S=INDIND(3,IS)                                                 03970000
+       N2S=INDIND(4,IS)                                                 03971000
+       N3S=N1S+N2S-1                                                    03972000
+C                                                                       03973000
+C      NCERC1 CERCA NELLA MIX  L'ISOTOPO DELL'INDICE                    03974000
+C                                                                       03975000
+      NMT=NCERC1(MINDX1,IND,AINDX,M1,M2,MIX,N1S,35,3,1)                 03976000
+C     UNA SCHEDA MIX PREDOMINA SULL'OPZIONE DI MASSA (CHE PONE NMT=M2+2 03977000
+          IF(AINDX(5,N1S).GE.OPM.AND.OPM.GT.0.AND.NMT.GT.M2) NMT=M2+2   03978000
+C       L'OPZIONE DI MASSA PREDOMINA SU SCHEDA MIX BIANCA               03979000
+       IF(AINDX(5,N1S).LT.OPM.AND.NMT.EQ.M2+1.AND.OPM.GT.0.) GO TO 5    03980000
+      IF(NMT.LE.0) GO TO 5                                              03981000
+C             ESCLUSIONE ESPLICITA                                      03982001
+      IF(NMT.LE.M2.AND.MIX(7,NMT).LE.-5) GO TO 5                        03983002
+C                                                                       03984000
+C     ..................... LOOP SU INDICE PRIMA SERIE                  03985000
+      DO 10 I=N1S,N3S                                                   03986000
+       IF(AINDX(30,I).NE.3) GO TO 100                                   03987000
+C        NON E UNA RISONANZA UNRES    DA TRATTARE QUI                   03988000
+C                                                                       03989000
+C                                                                       03990000
+C      QUI HA ACCETTATO IL MATERIALE                                    03991000
+C                                                                       03992000
+        WRITE(NP12,7010) AINDX(35,I),AINDX(36,I)                        03993000
+ 7010   FORMAT(1X,2A4)                                                  03994000
+C                                                                       03995000
+C                                                                       03996000
+C     LAVORA SULL INDICE E LETTA UNA SCHEDA DI INDICE ( DI UN ISOTOPO ED03997000
+C     ENERGY RANGE) VA A TRATTARLA SENZA PREOCCUPARSI DI QUANTI ISOTOPI 03998000
+C     E RANGE VENGANO TRATTATI                                          03999000
+C                                                                       04000000
+      NLS=AINDX(18,I)                                                   04001000
+            JMX=AINDX(19,I)                                             04002000
+            NE=AINDX(38,I)                                              04003000
+            IF(NE.LE.0) NE=OPZ(2,3,2)                                   04004000
+            IF(NE.LE.0) NE=15                                           04005000
+C      SISTEMA LE MATRICI PER LA SUBROUTINE CALCR3 DI CALCOLO           04006000
+C              MATRICI PER DATI DI MCCF3                                04007000
+      K1=1                                                              04008000
+C     JST(NLS)                                                          04009000
+      K2=K1+NLS                                                         04010000
+C      E                                                                04011000
+      K3=K2+NE                                                          04012000
+C      DELTA                                                            04013000
+      K4=K3+NE                                                          04014000
+C      GAMMA                                                            04015000
+      K5=K4+NE*JMX*NLS                                                  04016000
+C      D                                                                04017000
+      K6=K5+NE*JMX*NLS                                                  04018000
+C      GF                                                               04019000
+      K7=K6+NE*JMX*NLS                                                  04020000
+C     GNO                                                               04021000
+      K8=K7+NE*JMX*NLS                                                  04022000
+C      G                                                                04023000
+      K9=K8+JMX*NLS                                                     04024000
+C      NDFF                                                             04025000
+      K10=K9+JMX*NLS                                                    04026000
+C      NDFN                                                             04027000
+      K11=K10+JMX*NLS                                                   04028000
+C      AJ                                                               04029000
+      K12=K11+JMX*NLS                                                   04030000
+C     AMUX                                                              04031000
+      K13=K12+JMX*NLS                                                   04032000
+C     AMUN                                                              04033000
+      K14=K13+JMX*NLS                                                   04034000
+C     AMUG                                                              04035000
+      K15=K14+JMX*NLS                                                   04036000
+C     AMUF                                                              04037000
+      K16=K15+JMX*NLS                                                   04038000
+C      D                                                                04039000
+      K17=K16+JMX*NLS*NE                                                04040000
+C     GX                                                                04041000
+      K18=K17+JMX*NLS*NE                                                04042000
+C     GNO                                                               04043000
+      K19=K18+JMX*NLS*NE                                                04044000
+C     GG                                                                04045000
+      K20=K19+JMX*NLS*NE                                                04046000
+C     GF                                                                04047000
+      KFIN=K20+JMX*NLS*NE                                               04048000
+      IF(KFIN.GT.MA) CALL ERR(8H P2MCF3  , 100)                         04049000
+      CALL RIEMP(0.0,KFIN,A)                                            04050000
+C                                                                       04051000
+      CALL CALCR3(I,NMT,M1,M2,MIX,NE,JMX,NLS,                           04052000
+     1A(K1),A(K2),A(K3),A(K4),A(K5),A(K6),A(K7),A(K8),A(K9),A(K10),     04053000
+     2A(K11),A(K12),A(K13),A(K14),A(K15),A(K16),A(K17),A(K18),          04054000
+     3A(K19),A(K20))                                                    04055000
+C                                                                       04056000
+C                                                                       04057000
+ 100   CONTINUE                                                         04058000
+ 10    CONTINUE                                                         04059000
+ 5          CONTINUE                                                    04060000
+      RETURN                                                            04061000
+      END                                                               04062000
+      SUBROUTINE CALCR3(I,NMT,M1,M2,MIX,NE,JMX,NLS,                     04063000
+     1JST,E,DEL,                                                        04064000
+     2GA,D,GF,GNO,G,NDFF,NDFN,                                          04065000
+     3AJ,AMUX,AMUN,AMUG,AMUF,D1,GX,GNO1,GG,GF1)                         04066000
+C     ******************************************************************04067000
+C                                                                       04068000
+C      CALCOLATIONS FOR UNRESOLVED RESONANCE PARAMETERS (CONTINUATION OF04069000
+C      I= INDICE                                         P2MCF3 ROUTINE)04070000
+C     NMT = NUMERO DELLA MIX                                            04071000
+C     M1,M2= DIMENSIONI DELLA MIX(DI MCCF3)                             04072000
+C                                                                       04073000
+C     ******************************************************************04074000
+C                                                                       04075000
+       DIMENSION  MIX(M1,M2)                                            04076000
+        COMMON /DIM/M(5)                                                04077000
+        COMMON /FILES/NT(4,99)                                          04078000
+       EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))               04079000
+     1            ,(NP12,NT(1,12))                                      04080000
+       COMMON /INDX/AINDX(40,200)                                       04081000
+       COMMON /INDX1/AINDX1(40,200)                                     04082000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        04083000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     04084000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     04085000
+      COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),       04086000
+     1N1X,N2X,NS,LX,LY,LB                                               04087000
+      DIMENSION JST(NLS),E(NE),DEL(NE),GA(NE,JMX,NLS),D(NE,JMX,NLS)     04088000
+      DIMENSION GF(NE,JMX,NLS),GNO(NE,JMX,NLS),G(JMX,NLS)               04089000
+      DIMENSION NDFF(JMX,NLS),NDFN(JMX,NLS),AMUG(JMX,NLS)               04090000
+      DIMENSION AJ(JMX,NLS),AMUX(JMX,NLS),AMUN(JMX,NLS),AMUF(JMX,NLS)   04091000
+      DIMENSIOND1(NE,JMX,NLS),GX(NE,JMX,NLS),GNO1(NE,JMX,NLS)           04092000
+      DIMENSION GG(NE,JMX,NLS),GF1(NE,JMX,NLS)                          04093000
+C                                                                       04094000
+C                                                                       04095000
+      EQUIVALENCE(IND,M(2)),(IND2,M(4))                                 04096000
+C     TEST SU E RANGE                                                   04097000
+      IF(AINDX(11,I).GT.2) CALL ERR(8H CALCR3     , 0)                  04098000
+C      POSIZIONA TAPE DI INPUT E LO DEFINISCE                           04099000
+      NPOST=AINDX(25,I)                                                 04100000
+      NTIN=AINDX(23,I)                                                  04101000
+      NTI=NT(1,NTIN)                                                    04102000
+      CALL POST(NTIN,NPOST)                                             04103000
+C      POSIZIONATO AD INIZIO E RANGE E ISOTOPO DELLA SCHEDA INDICE      04104000
+C      A SECONDA DEL TIPO DI RAPPRESENTAZIONE TRATTA IN MODO DIVERSO    04105000
+C     DEFINISCE TAPES DI  OUTPUT                                        04106000
+      NTOUT=33                                                          04107000
+      IF(NMT.LE.M2.AND.NMT.GT.0) NTOUT=MIX(5,NMT)                       04108000
+         IF(NTOUT.LE.0) NTOUT=33                                        04109000
+      NTO=NT(1,NTOUT)                                                   04110000
+      SPI=AINDX(16,I)                                                   04111000
+      AP=AINDX(17,I)                                                    04112000
+      LFW=AINDX(10,I)                                                   04113000
+      LRF=AINDX(13,I)                                                   04114000
+         T=AINDX(7,I)                                                   04115000
+         AWR=AINDX(5,I)                                                 04116000
+         AWRI=AINDX(40,I)                                               04117000
+      IF(AINDX(12,I).NE.2) CALL ERR(8H CALC3    ,1)                     04118000
+C                                                                       04119000
+         WRITE(NP12,7001) NTO                                           04120000
+ 7001  FORMAT(' CALCR3 ENTERED:UNRESOLVED PARAMETERS ON FILE:',I5)      04121000
+C                                                                       04122000
+       IF(LRF.NE.2) GO TO 200                                           04123000
+C                                                M  L  B  W             04124000
+C               TUTTE LE GAMMA FUNZIONE DI E                            04125000
+        WRITE(NP,9001) AINDX(35,I),AINDX(36,I)                          04126000
+ 9001   FORMAT(1X,2A4,' UNRES PARAMETERS.:ALL WIDTHS ENERGY DEPENDENT') 04127000
+C     LEGGE IL CONT (CHE E GIA IN AINDX)                                04128000
+      CALL RREC(1,NTI,3,T)                                              04129000
+          NLS=N1                                                        04130000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           04131000
+C     CONTROLLO MAT,MF,MT DEL RECORD LETTO                              04132000
+       CALL CONTR1(I,8HCALC3    ,2  ,MINDX1,MINDX2,AINDX)               04133000
+       DO 10 IL=1,NLS                                                   04134000
+       READ(NTI,1000) AWRI1,DUM,L,NDUM,NJS,NDUM                         04135000
+       IF(L+1.NE.IL)CALLERR(8HCALCR3    ,10)                            04136000
+C      IF(AWRI.NE.AWRI1) CALL ERR(8HCALCR3     ,11)                     04137000
+       NT(4,NTIN)=NT(4,NTIN)+1                                          04138000
+       JST(IL)=NJS                                                      04139000
+       DO 20 IJ=1,NJS                                                   04140000
+       READ(NTI,1000) AJ(IJ,IL),DUM,INT,NDUM,NKE,NE1                    04141000
+       READ(NTI,2000) DUM,DUM,AMUX(IJ,IL),AMUN(IJ,IL),AMUG(IJ,IL),      04142000
+     1 AMUF(IJ,IL),(E(IE),D1(IE,IJ,IL),GX(IE,IJ,IL),                    04143000
+     2 GNO1(IE,IJ,IL),GG(IE,IJ,IL),GF1(IE,IJ,IL),IE=1,NE1)              04144000
+       NT(4,NTIN)=NT(4,NTIN)+NE1+2                                      04145000
+ 20    CONTINUE                                                         04146000
+ 10     CONTINUE                                                        04147000
+       GOTO 500                                                         04148000
+ 200   CONTINUE                                                         04149000
+C                        S  L  B  W                                     04150000
+       IF(LFW.NE.1) GO TO 300                                           04151000
+        WRITE(NP,9002) AINDX(35,I),AINDX(36,I)                          04152000
+ 9002 FORMAT(1X,2A4,' UNRES PARAMETERS.:FISSION WIDTH ENERGY DEPENDENT')04153000
+C                             SOLO GAMMA FISSION FUNZIONE DI E          04154000
+C      PER LFW=1 LEGGE IL LIST COLLE E LO METTE IN A                    04155000
+      READ(NTI,1000) SPI,AP,NDUM,NDUM,NE1,NLS1                          04156000
+ 1000 FORMAT(2E11.4,4I11,I4,I2,I3)                                      04157000
+ 2000  FORMAT(6E11.4)                                                   04158000
+       IF(NE1.NE.NE) CALL ERR(8HCALCR3     ,200)                        04159000
+       IF(NLS1.NE.NLS) CALL ERR(8HCALCR3    ,201)                       04160000
+       READ(NTI,2000) (E(IE),IE=1,NE1)                                  04161000
+       NT(4,NTIN)=NT(4,NTIN)+NE1/6+NREST(NE1,6)+1                       04162000
+       DO 30 IL=1,NLS                                                   04163000
+       READ(NTI,1000) AWRI1,DUM,L,NDUM,NJS,NDUM                         04164000
+       IF(L+1.NE.IL)CALLERR(8HCALCR3    ,10)                            04165000
+       IF(AWRI.NE.AWRI1) CALL ERR(8HCALCR3     ,11)                     04166000
+       NT(4,NTIN)=NT(4,NTIN)+1                                          04167000
+       JST(IL)=NJS                                                      04168000
+       DO 40 IJ=1,NJS                                                   04169000
+       READ(NTI,1000) DUM,DUM,L,MUF,NKE,NDUM                            04170000
+               AMUF(IJ,IL)=MUF                                          04171000
+       READ(NTI,2000) D9,AJ(IJ,IL),AMUN(IJ,IL),GNO9,GG9,DUM,            04172000
+     1 (GF1(IE,IJ,IL),IE=1,NE1)                                         04173000
+       NT(4,NTIN)=NT(4,NTIN)+NE1/6+NREST(NE1,6)+2                       04174000
+C      SIMULA LA DIPENDFNZA ENERGETICA (PIATTA) PER CHI NON LA HA       04175000
+       DO 50 IE=1,NE1                                                   04176000
+       D1(IE,IJ,IL)=D9                                                  04177000
+       GNO1(IE,IJ,IL)=GNO9                                              04178000
+       GG(IE,IJ,IL)=GG9                                                 04179000
+  50     CONTINUE                                                       04180000
+ 40        CONTINUE                                                     04181000
+ 30        CONTINUE                                                     04182000
+        GO TO 500                                                       04183000
+C                                                                       04184000
+ 300   CONTINUE                                                         04185000
+C       GAMMA NON DIPENDFNTI DA E (NESSUNA DELLE GAMMA)                 04186000
+C                                                                       04187000
+        WRITE(NP,9003) AINDX(35,I),AINDX(36,I)                          04188000
+ 9003   FORMAT(1X,2A4,' UNRES PARAMETERS.:WIDTHS COSTANT IN ENERGY')    04189000
+C        COME ETOE-II SIMULA E DIP CON 15 PUNTI A LETARGIA COSTANTE     04190000
+       DELTAU=ALOG(AINDX(15,I)/AINDX(14,I))/(NE-1)                      04191000
+       E(1)=AINDX(14,I)                                                 04192000
+       DO 55 IE=2,NE                                                    04193000
+ 55    E(IE)=E(IE-1)*EXP(DELTAU)                                        04194000
+C       LE ENERGIE SONO CRESCENTI QUI COME ENDFB NON DECRESCENTI        04195000
+C       COME MCC2F3 ED MC2-II                                           04196000
+C                                                                       04197000
+       READ(NTI,1000) SPI,AP,DUM,DUM,NLS1                               04198000
+       NT(4,NTIN)=NT(4,NTIN)+1                                          04199000
+       IF(NLS1.NE.NLS) CALL ERR(8HCALCR3    ,60)                        04200000
+       DO 60 IL=1,NLS1                                                  04201000
+       READ(NTI,1000)AWRI1,DUM,L,NDUM,NKE,NJS                           04202000
+       IF(AWRI.NE.AWRI1) CALL ERR(8HCALCR3     ,61)                     04203000
+       JST(IL)=NJS                                                      04204000
+       READ(NTI,2000) (D1(1,IJ,IL),AJ(IJ,IL),AMUN(IJ,IL),               04205000
+     1 GNO1(1,IJ,IL),GG(1,IJ,IL),DUM,IJ=1,NJS)                          04206000
+       NT(4,NTIN)=NT(4,NTIN)+1+NJS                                      04207000
+C       SIMULA E DIP PER CHI NON LA HA                                  04208000
+       DO 70 IJ=1,NJS                                                   04209000
+       AMUF(IJ,IL)=1.                                                   04210000
+       DO 75  IE=2,NE                                                   04211000
+       GNO1(IE,IJ,IL)=GNO1(1,IJ,IL)                                     04212000
+       GG(IE,IJ,IL)=GG(1,IJ,IL)                                         04213000
+       D1(IE,IJ,IL)=D1(1,IJ,IL)                                         04214000
+ 75    CONTINUE                                                         04215000
+ 70    CONTINUE                                                         04216000
+ 60      CONTINUE                                                       04217000
+ 500   CONTINUE                                                         04218000
+C                                                                       04219000
+C                CALCOLO DEI PARAMETRI COME LI VUOLE MCC2F3 DA ENDFB    04220000
+C                                                                       04221000
+        DO 15 IL=1,NLS                                                  04222000
+      DO 25 IJ=1,NJS                                                    04223000
+      G(IJ,IL)=(2*AJ(IJ,IL)+1)/(2*(2*SPI+1))                            04224000
+      NDFF(IJ,IL)=AMUF(IJ,IL)                                           04225000
+      NDFN(IJ,IL)=AMUN(IJ,IL)                                           04226000
+C      SE SONO GLI STESSI NON E NECESSARIO TRASFERIRLI , MA LO FACCIO   04227000
+C     PER AVERE LE FORMULE SOTTOMANO                                    04228000
+      DO 35 IE=1,NE                                                     04229000
+      GA(IE,IJ,IL)=GG(IE,IJ,IL)                                         04230000
+      GF(IE,IJ,IL)=GF1(IE,IJ,IL)                                        04231000
+      D(IE,IJ,IL)=D1(IE,IJ,IL)                                          04232000
+      GNO(IE,IJ,IL)=GNO1(IE,IJ,IL)                                      04233000
+C     CONTROLLARE CHE GA=GC E NON GA=GC+GF                              04234000
+C       E'CONTROLLATO E' COSI'                                          04235000
+  35    CONTINUE                                                        04236000
+  25    CONTINUE                                                        04237000
+  15    CONTINUE                                                        04238000
+      DO 45 IE=1,NE                                                     04239000
+ 45   DEL(IE)=SQRT(4*8.6167E-5*E(IE)/AWRI)                              04240000
+      CR=2.196771*AWRI/(AWRI+1)*(0.123*AWRI**(1./3.)+0.08)*1.E-3        04241000
+      SR=2.196771*AWRI/(AWRI+1)*AP*1.E-3                                04242000
+C     FISSO I NOMI DELLE REGISTRAZIONI ( ESISTE UN DEFAULT IN CUI       04243000
+C     ARRIVA QUI SENZA IDENTIFICATORI IL NUCLIDE E QUI NON METTO IDENTIF04244000
+      IF(NMT.GT.M2) GO TO 600                                           04245000
+      NOM=MIX(3,NMT)                                                    04246000
+      NOM1=MIX(4,NMT)                                                   04247000
+      NOM2=MIX(1,NMT)                                                   04248000
+      NOM3=MIX(2,NMT)                                                   04249000
+      GO TO 610                                                         04250000
+C      ANDREBBE MESSO ENDFB ID COME CARATTERE MA NON HO FATTO LA SUBROUT04251000
+ 600  NOM=NAREAL(AINDX(35,I))                                           04252000
+      NOM1=NAREAL(AINDX(36,I))                                          04253000
+      NOM2=NAREAL(AINDX(35,I))                                          04254000
+      NOM3=NAREAL(AINDX(36,I))                                          04255000
+ 610  CONTINUE                                                          04256000
+          IF(OPZ(2,3,1).LT.10)  GO TO 700                               04257000
+          WRITE(NO,3001) NOM,NOM1                                       04258000
+ 3001     FORMAT(//10X,2A4/)                                            04259000
+          WRITE(NO,3000)                                                04260000
+ 3000     FORMAT(' PRODUCED UNRESOLVED RESONANCE PARAMETERS')           04261000
+          WRITE(NO,4000) (JST(J),J=1,NLS)                               04262000
+ 4000     FORMAT(' JST=NUMBER OF J-RESONANCE',10I5)                     04263000
+          WRITE(NO,5000) (E(J),DEL(J),J=1,NE)                           04264000
+ 5000     FORMAT(3(' E=',E12.5,' DEL=',E12.5))                          04265000
+          WRITE(NO,6000)(((JE,JJ,JL,GA(JE,JJ,JL),D(JE,JJ,JL),           04266000
+     1    GF(JE,JJ,JL),GNO(JE,JJ,JL),JE=1,NE),JJ=1,NJS),JL=1,NLS)       04267000
+ 6000    FORMAT(' JE=',I4,' JJ=',I4,' JL=',I4,' GA=',E12.5,' D=',       04268000
+     1   E12.5,' GF=',E12.5,' GNO=',E12.5)                              04269000
+         WRITE(NO,7000)((J,JL,G(J,JL),NDFF(J,JL),NDFN(J,JL),J=1,JMX),   04270000
+     1                     JL=1,NLS)                                    04271000
+ 7000    FORMAT(' J=',I4,' JL=',I4,' G=',E12.5,' NDFF=',                04272000
+     1   I5,' NDFN=',I5)                                                04273000
+ 700     CONTINUE                                                       04274000
+         IF(OPZ(2,3,1).LT.20) GO TO 800                                 04275000
+         WRITE(NO,8000) ((J,L,AJ(J,L),AMUX(J,L),AMUN(J,L),AMUG(J,L),    04276000
+     1   AMUF(J,L),J=1,JMX),L=1,NLS)                                    04277000
+ 8000 FORMAT(' ENDFB INPUT PARAMETERS:'/(                               04278000
+     1' J=',I4,' L=',I4,' AJ=',E12.5,' AMUX=',E12.5,                    04279000
+     2       ' AMUN=',E12.5,' AMUG=',E12.5,' AMUF=',E12.5))             04280000
+      WRITE(NO,9000) (((J,L,IE,GX(IE,J,L),GNO1(IE,J,L),GG(IE,J,L),      04281000
+     1             D1(IE,J,L),GF1(IE,J,L),J=1,JMX),L=1,NLS),IE=1,NE)    04282000
+ 9000 FORMAT(' J=',I4,' L=',I4,' IE=',I4,' GX=',E12.5,' GNO1=',E12.5,   04283000
+     1       ' GG=',E12.5,' D1=',E12.5,' GF1=',E12.5)                   04284000
+ 800        CONTINUE                                                    04285000
+C                                                                       04286000
+C                                                                       04287000
+C                                                                       04288000
+      CALL POSL(NTOUT)                                                  04289000
+C      POSIZIONA TAPE OUT AL PRIMO RECORD LIBERO                        04290000
+C             SCRITTO IN ORDINE INVERSO A QUELLO DI INPUT (E CALANTI)   04291000
+      WRITE(NTO) (E(NE-J+1),J=1,NE),(DEL(NE-J+1),J=1,NE),               04292000
+     1            (JST(J),J=1,NLS)                                      04293000
+C     PER NON AVERE LIMITI DI DO DIMENSINATI DEVO FARE QUESTO MARCHINGEG04294000
+C      POSSIBILE PER COME SONO IN FILA I GAMMA IN A                     04295000
+C      COMPRIMI GLI SPAZI VUOTI E STAMPO LA MATRICE COME UN TUTTO UNO   04296000
+C         PRESS METTE IN ORDINE DI ENERGIE DECRESCENTE                  04297000
+C         COME MCC2F, MENTRE ENDFB E IL CONTRARIO (ORD E CRESCENTE)     04298000
+C                                                                       04299000
+      CALL PRESS(NE,JMX,NLS,JST,NFIN,GA,GA)                             04300000
+      NFIN=NFIN+1                                                       04301000
+      CALL PRESS(NE,JMX,NLS,JST,KB,D,GA(NFIN,1,1))                      04302000
+      NFIN=NFIN+KB                                                      04303000
+      CALL PRESS(NE,JMX,NLS,JST,KB,GF,GA(NFIN,1,1))                     04304000
+      NFIN=NFIN+KB                                                      04305000
+      CALL PRESS(NE,JMX,NLS,JST,KB,GNO,GA(NFIN,1,1))                    04306000
+      NFIN=NFIN+KB                                                      04307000
+      CALL PRESS(1,JMX,NLS,JST,KB,G,GA(NFIN,1,1))                       04308000
+      NFIN=NFIN+KB                                                      04309000
+      CALL PRESS(1,JMX,NLS,JST,KB,NDFF,GA(NFIN,1,1))                    04310000
+      NFIN=NFIN+KB                                                      04311000
+      CALL PRESS(1,JMX,NLS,JST,KB,NDFN,GA(NFIN,1,1))                    04312000
+      NFIN=NFIN+KB-1                                                    04313000
+      WRITE(NTO) (GA(J,1,1),J=1,NFIN)                                   04314000
+      IND2=IND2+1                                                       04315000
+      IF(IND2.GT.MIND12) CALL ERR(8H CALCR3  ,40)                       04316000
+      CALL EMPIN(MIND11,AINDX1(1,IND2),AINDX(1,I),AINDX(2,I),AINDX(3,I),04317000
+     1AINDX(4,I),AINDX(5,I),NOM,NOM1,NOM2,NOM3,                         04318000
+     20.,3.,0.,0.,FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(4,NTOUT)),           04319000
+     32.,FLOAT(2*NE+NLS),FLOAT(NFIN),AINDX(6,I),AINDX(10,I),2.,         04320000
+     1AINDX(18,I),                                                      04321000
+     4FLOAT(JMX),FLOAT(NE),AINDX(9,I),AWRI,SR,CR,0.,0.,                 04322000
+     5AINDX(14,I),AINDX(15,I),AINDX(28,I),AINDX(29,I),0.,0.,0.,0.,0.)   04323000
+C                                                                       04324000
+      NT(4,NTO)=NT(4,NTO)+2                                             04325000
+      NT(3,NTO)=NT(4,NTO)                                               04326000
+      RETURN                                                            04327000
+      END                                                               04328000
+      SUBROUTINE PRESS(NE,JMX,NLS,JST,KB,A,B)                           04329000
+C     ***************************************                           04330000
+C     COMPRESS A MATRIX                                                 04331000
+C     COMPRIME MATRICE PER SCRITTURE FILES MCCF                         04332000
+C     LA MATRICE A E MESSA IN B , A HA  3 INDICI                        04333000
+C     IL SECONDO INDICE E FUNZIONE DEL PRIMO ED                         04334000
+C     E SPECIFICATO IN JST                                              04335000
+C                                                                       04336000
+C            PRESS RIBALTA L'ORDINE DELLE ENERGIE, CRESCENTI            04337000
+C            IN INPUT (ENDFB) DESCRESCENTI IN OUTPUT(MCC2F3)            04338000
+C                                                                       04339000
+C     *********************************************                     04340000
+C                                                                       04341000
+      DIMENSION JST(NLS),A(NE,JMX,NLS),B(1)                             04342000
+      KB=0                                                              04343000
+      DO 10 IL=1,NLS                                                    04344000
+      NJ=JST(IL)                                                        04345000
+      DO 20 IJ=1,NJ                                                     04346000
+      DO 30 IE=1,NE                                                     04347000
+            IE1=NE-IE+1                                                 04348000
+      KB=KB+1                                                           04349000
+      B(KB)=A(IE1,IJ,IL)                                                04350000
+ 30   CONTINUE                                                          04351000
+ 20   CONTINUE                                                          04352000
+ 10   CONTINUE                                                          04353000
+      RETURN                                                            04354000
+      END                                                               04355000
+      SUBROUTINE  P2MCF4(MA,A,M1,M2,MIX,MKB1,INDIND,MKB,INDMIX)         04356000
+C     *********************************                                 04357000
+C                                                                       04358000
+C     RESOLVED RESONANCE PARAMETERS CALCULATION FOR MCC2F4 FILE         04359000
+C                                                                       04360000
+C     IN A SPAZIO SCRATCH                                               04361000
+C     IN MIX LA MIXING DELL F3                                          04362000
+C         IN INDMIX INDICE DI MIX                                       04363000
+C         IN INDIND INDICE DI IND                                       04364000
+C             PER MIX:                                                  04365000
+C                   (1 ) = VALORE                                       04366000
+C                   (2 ) = INIZIO VALORE                                04367000
+C                   (3 ) = DIMENSIONI VALORE                            04368000
+C        PER INDIND:                                                    04369000
+C        (1,2    = VALORE(REAL*8)                                       04370000
+C        (3      = INIZIO                                               04371000
+C        (4      = DIMENSIONI                                           04372000
+C                                                                       04373000
+C                                                                       04374000
+C                                                                       04375000
+C     **********************************************                    04376000
+C                                                                       04377000
+      DIMENSION A(MA),MIX(M1,M2)                                        04378000
+       DIMENSION INDMIX(3,MKB),INDIND(4,MKB1)                           04379000
+       COMMON /INDX1/AINDX1(40,200)                                     04380000
+       COMMON /INDX/AINDX(40,200)                                       04381000
+      COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),       04382000
+     1N1X,N2X,NS,LX,LY,LB                                               04383000
+       COMMON/DENS/JMT,JAT,JTT,JLT,LV,JNS,MNS,                          04384000
+     1JX,MX                                                             04385000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     04386000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     04387000
+       COMMON/DIM/M(5)                                                  04388000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        04389000
+       COMMON/FILES/NT(4,99)                                            04390000
+       EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))               04391000
+       EQUIVALENCE  (NP12,NT(1,12))                                     04392000
+      EQUIVALENCE (OPZ(2,5,5),OPM),(OPZ(2,4,1),STMP)                    04393000
+      EQUIVALENCE (IND,M(2)),(IND2,M(4))                                04394000
+C      INDICE PRIMA SERIE = M(2)                                        04395000
+C     INDICE SECONDA SERIE = M(4)                                       04396000
+C     AZZERA INDICE SERIE 2 ( CHE CREA)                                 04397000
+C            LA ISTRUZIONE IND2=0 STA IN SUB P2                         04398000
+C                                                                       04399000
+            WRITE(NP12,7000)((MIX(J,JJ),J=1,M1),JJ=1,M2)                04400000
+ 7000    FORMAT(' P2MCF4 ENTERED. INPUT TABLE TO BE EXECUTED:'/         04401000
+     1 (1X,2A4,1X,2A4,8I4,3E12.5))                                      04402000
+C                                                                       04403000
+C      ............ LOOP SU INDICE DELL' INDICE (SUI NUCLIDI DELL'INDICE04404000
+       DO 5 IS=1,MKB1                                                   04405000
+       N1S=INDIND(3,IS)                                                 04406000
+       N2S=INDIND(4,IS)                                                 04407000
+       N3S=N1S+N2S-1                                                    04408000
+C                                                                       04409000
+C      NCERC1 CERCA NELLA MIX  L'ISOTOPO DELL'INDICE                    04410000
+C                                                                       04411000
+      NMT=NCERC1(MINDX1,IND,AINDX,M1,M2,MIX,N1S,35,3,1)                 04412000
+C       OPZIONE DI MASSA CHE PONE NMT=M2+2 (SU CUI PREDOMINA SCHEDA MIX)04413000
+          IF(AINDX(5,N1S).GE.OPM.AND.OPM.GT.0..AND.NMT.GT.M2) NMT=M2+2  04414000
+C       L'OPZIONE DI MASSA PREDOMINA SU SCHEDA MIX BIANCA               04415000
+       IF(AINDX(5,N1S).LT.OPM.AND.NMT.EQ.M2+1.AND.OPM.GT.0.) GO TO 5    04416000
+      IF(NMT.LE.0) GO TO 5                                              04417000
+C                 ESCLUSIONE ESPLICITA                                  04418001
+      IF(NMT.LE.M2.AND.MIX(7,NMT).LE.-5) GO TO 5                        04419001
+C                                                                       04420000
+C     ..................... LOOP SU INDICE PRIMA SERIE                  04421000
+      DO 10 I=N1S,N3S                                                   04422000
+       IF(AINDX(30,I).NE.4) GO TO 100                                   04423000
+C        NON E UNA RISONANZA RESOLVED DA TRATTARE QUI                   04424000
+C                                                                       04425000
+C      QUI HA ACCETTATO IL MATERIALE                                    04426000
+C                                                                       04427000
+        WRITE(NP12,7010) AINDX(35,I),AINDX(36,I)                        04428000
+ 7010   FORMAT(1X,2A4)                                                  04429000
+C                                                                       04430000
+C     DEFINISCE TAPES DI INPUT ED OUTPUT                                04431000
+      NTOUT=34                                                          04432000
+      IF(NMT.LE.M2.AND.NMT.GT.0) NTOUT=MIX(5,NMT)                       04433000
+            IF(NTOUT.LE.0) NTOUT=34                                     04434000
+      NTO=NT(1,NTOUT)                                                   04435000
+C                                                                       04436000
+C     LAVORA SULL INDICE E LETTA UNA SCHEDA DI INDICE ( DI UN ISOTOPO ED04437000
+C     ENERGY RANGE) VA A TRATTARLA SENZA PREOCCUPARSI DI QUANTI ISOTOPI 04438000
+C     E RANGE VENGANO TRATTATI                                          04439000
+C                                                                       04440000
+C     TEST SU E RANGE                                                   04441000
+      IF(AINDX(11,I).GT.2) CALL ERR(8H P2MCF4     , 0)                  04442000
+C      POSIZIONA TAPE DI INPUT E LO DEFINISCE                           04443000
+      NPOST=AINDX(25,I)                                                 04444000
+      NTIN=AINDX(23,I)                                                  04445000
+      NTI=NT(1,NTIN)                                                    04446000
+      CALL POST(NTIN,NPOST)                                             04447000
+C      POSIZIONATO AD INIZIO E RANGE E ISOTOPO DELLA SCHEDA INDICE      04448000
+      LRF=AINDX(13,I)                                                   04449000
+C     LRF=1,2,4=BWSL,BWML,AA                                            04450000
+      NLS=AINDX(18,I)                                                   04451000
+      IF(LRF.EQ.1.OR.LRF.EQ.2) GO TO200                                 04452000
+      IF(LRF.EQ.4) GO TO 400                                            04453000
+      CALL ERR(8H P2MCF4   ,200)                                        04454000
+ 200  CONTINUE                                                          04455000
+C     .......................... B W LETTURA PARAMETRI                  04456000
+      READ(NTI,1000)SPI,AP,DUM,DUM,NLS1,DUM                             04457000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           04458000
+C     LEGE IL CONT (GIA IN INDICE )                                     04459000
+ 1000 FORMAT(2E11.4,4I11,I4,I2,I3)                                      04460000
+      IF(NLS1.NE.NLS) CALL ERR(8H P2MCF4   ,30)                         04461000
+C     LEGGE I PARAMETRI                                                 04462000
+      NK=0                                                              04463000
+      DO 20 IL=1,NLS                                                    04464000
+      READ(NTI,1000)AWRI,QX,L,LRX,NRS6,NRS                              04465000
+      READ(NTI,2000)((A(NK+7*(J-1)+JJ),JJ=2,7),J=1,NRS)                 04466000
+ 2000  FORMAT(6E11.4)                                                   04467000
+C      COSI PERCHE LE RISONANZE DIPENDONO DA IL                         04468000
+      NT(4,NTIN)=NT(4,NTIN)+1+NRS                                       04469000
+C     METTO L IN MATRICE INSIEME AI PARAMETRI                           04470000
+      DO 30 ILG=1,NRS                                                   04471000
+       A(NK+7*(ILG-1)+1)= L                                             04472000
+ 30     CONTINUE                                                        04473000
+      NK=NK+7*NRS                                                       04474000
+ 20   CONTINUE                                                          04475000
+       NRS=NK/7                                                         04476000
+C     .............. DIMENSIONI PARAMETRI DA PASSARE A SUB. BW          04477000
+      K1=1                                                              04478000
+C     PARTE DI PK LETTI DA ENDFB                                        04479000
+      K2=K1+NRS*7                                                       04480000
+C     PARAMETRI DA CREARE PER MCCF                                      04481000
+       NPK=8                                                            04482000
+       IF(LRF.EQ.2)NPK=16                                               04483000
+      K3=K2+NRS*NPK                                                     04484000
+C                                   BWSL SONO 8 PARAMETRI               04485000
+C                                   BWML SONO 16 PARAMETRI              04486000
+      IF(K3.GT.MA) CALL ERR(8H P2MCF4   ,20)                            04487000
+      CALL BW(NRS,7,NPK,A(K1),A(K2),LRF,SPI,AWRI,AP,NTOUT,NTO,          04488000
+     1MINDX1,AINDX(1,I),M1,M2,MIX,NMT,NLS)                              04489000
+C     SPI E LETTO DAENDFB                                               04490000
+C     LRF DA INDICE                                                     04491000
+C     AWRI DA ENDFB                                                     04492000
+C      AP DA ENDFB                                                      04493000
+      GO TO 100                                                         04494000
+ 400  CONTINUE                                                          04495000
+C     ................................. LETTURA A A                     04496000
+      READ(NTI,1000) SPI,AP,DUM,DUM,NLS1,DUM                            04497000
+      IF(NLS.NE.NLS1) CALL ERR(8H P2MCF4   ,400)                        04498000
+      READ(NTI,1000) AWRI,DUM,LI,DUM,NX6,NX                             04499000
+      DO 3 J=1,18                                                       04500000
+ 3     A(J)=0.                                                          04501000
+C     PER AVERE BIANCHI OVE NON LEGGE ( SERVE COSI AD SUB. AA CHE METTE 04502000
+C     INDICE IL BACKGROUND                                              04503000
+      READ(NTI,2000) (A(J),J=1,NX6)                                     04504000
+      NT(4,NTIN)=NT(4,NTIN)+2+NX                                        04505000
+      NLA=18                                                            04506000
+C      POSIZIONI OCCUPATE IN A ( SPAZIO PER BACKGROUND POSSIBILI (MAX NX04507000
+       NRS=0                                                            04508000
+      NMA1=16                                                           04509000
+      DO 40 IL=1,NLS                                                    04510000
+      READ(NTI,1000) DUM,DUM,L,DUM,NJS,DUM                              04511000
+      DO 50 IJ=1,NJS                                                    04512000
+      READ(NTI,1000) AJ,DUM,DUM,DUM,NLJ12,NLJ                           04513000
+      READ(NTI,2000) ((A(NLA+J+(JJ-1)*NMA1),J=5,NMA1),JJ=1,NLJ)         04514000
+      DO 60 IJK=1,NLJ                                                   04515000
+      A(NLA+(IJK-1)*NMA1+1)=IL                                          04516000
+      A(NLA+(IJK-1)*NMA1+2)=IJ                                          04517000
+      A(NLA+(IJK-1)*NMA1+3)=AJ                                          04518000
+      A(NLA+(IJK-1)*NMA1+4)=IJK                                         04519000
+      NLA=NLA+NMA1*NLJ                                                  04520000
+       NRS=NRS+NLS                                                      04521000
+ 60   CONTINUE                                                          04522000
+ 50   CONTINUE                                                          04523000
+ 40   CONTINUE                                                          04524000
+C     DIMENSIONI MATRICI DA PASSARE A SUB. AA                           04525000
+      K1=1                                                              04526000
+C     BACKGROUND                                                        04527000
+      K2=K1+18                                                          04528000
+C     RISONANZE LETTE                                                   04529000
+      K3=K2+NMA1*NRS                                                    04530000
+C     RISONANZE DA CREARE                                               04531000
+      K4=K3+10*NRS                                                      04532000
+      NFIN=K4-1                                                         04533000
+      IF(KFIN.GT.MA) CALL ERR(8H P3MCF3   ,40)                          04534000
+C     PARAMETRI RISONANZE DI OUTPUT                                     04535000
+      NPKO=10                                                           04536000
+      CALL AA(NX,A(K1),NMA1,NRS,A(K2),NPKO,NRS,A(K3),NTOUT,NTO,         04537000
+     1AP,AWRI,SPI,MINDX1,AINDX(1,I),M1,M2,MIX,NMT,NLS)                  04538000
+ 100  CONTINUE                                                          04539000
+ 10   CONTINUE                                                          04540000
+  5    CONTINUE                                                         04541000
+      RETURN                                                            04542000
+      END                                                               04543000
+      SUBROUTINE BW(NRS,M7,NPK,PKIN,PKOU,LRF,SPI,AWRI,AP,NTOUT,NTO,     04544000
+     1MINDX1,AINDX,M1,M2,MIX,NMT,NLS)                                   04545000
+C     ***********************************************************       04546000
+C                                                                       04547000
+C                 BWSL AND   BWML RESONANCE PARAMETER                   04548000
+C                                                                       04549000
+C     ***************************************************************   04550000
+C                                                                       04551000
+      COMMON /OPZIO/OPZ(4,8,10)                                         04552000
+      EQUIVALENCE(OPZ(2,4,3),GAX),(OPZ(2,4,1),STMP)                     04553000
+      DIMENSION PKIN(M7,NRS),PKOU(NPK,NRS),AINDX(MINDX1),MIX(M1,M2)     04554000
+       COMMON /FILES/NT(4,99)                                           04555000
+       EQUIVALENCE(NO,NT(1,6)),(NP,NT(1,11))                            04556000
+      COMMON /INDX1/AINDX1(40,200)                                      04557000
+      COMMON /DIM/M(5)                                                  04558000
+       COMMON /DIMC/MMA,MINDD1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     04559000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     04560000
+C     PKIN (1 =L (L=0 PER ONDA S )                                      04561000
+C     PKIN (2 =ER                                                       04562000
+C           3 =AJ                                                       04563000
+C           4 =GT                                                       04564000
+C           5 =GN                                                       04565000
+C           6 =GG                                                       04566000
+C           7 =GF                                                       04567000
+      EQUIVALENCE (IND2,M(4))                                           04568000
+C                                                                       04569000
+       WRITE(NP,9000) AINDX(35),AINDX(36),NRS,AINDX(14),AINDX(15)       04570000
+ 9000 FORMAT(1X,2A4,' BREIT-WIGNER RES. RESONANCES:',I5,                04571000
+     1       ' RANGE:',2E12.5)                                          04572000
+C                                                                       04573000
+        EUP=OPZ(2,5,2)                                                  04574000
+        DELU=OPZ(2,5,3)                                                 04575000
+        NG=OPZ(2,5,4)                                                   04576000
+        IF(DELU.LE.0.) DELU=1./120.                                     04577000
+        IF(NG.LE.0) NG=2082                                             04578000
+        IF(EUP.LE.0.) EUP=1.4190675E+7                                  04579000
+        EDOWN=EUP*EXP(-NG*DELU)                                         04580000
+C                                                                       04581000
+C                                                                       04582000
+C       ........................... LOOP SU RISONANZE                   04583000
+      DO 10 IR=1,NRS                                                    04584000
+C     GI                                                                04585000
+      G=(2*PKIN(3,IR)+1)/(2*(2*SPI+1))                                  04586000
+C                                                                       04587000
+      GT=PKIN(5,IR)+PKIN(6,IR)+PKIN(7,IR)                               04588000
+           IF(GAX.GT.1) GT=PKIN(4,IR)                                   04589000
+C                INSERISCE GX (COMPETITIVE) NEL TOTALE PER GAX>1        04590000
+C      E                                                                04591000
+      PKOU(1,IR)=PKIN(2,IR)                                             04592000
+C      SIG0                                                             04593000
+      GN=PKIN(5,IR)                                                     04594000
+      IF(GAX.GT.0) GN=PKIN(4,IR)-PKIN(6,IR)-PKIN(7,IR)                  04595000
+C      INSERISCE GX NELLA GN ( COME MANUALE MC2 ( DESC MCCF))           04596000
+      PKOU(2,IR)=2.6039953E+6/PKIN(2,IR)*G*((AWRI+1)/AWRI)**2*GN/GT     04597000
+C      A PARTE QUELLO CHE E NEL MANUALE DI MC22 IO NON METTEREI GX NELLA04598000
+C     GN VISTO CHE  E GIA NELLE SMOOTHS                                 04599000
+C     THETA                                                             04600000
+      PKOU(3,IR)=GT/SQRT(34.4668E-5*ABS(PKIN(2,IR))/AWRI)               04601000
+C     AFAC                                                              04602000
+      PKOU(4,IR)=SQRT(ABS(G*PKIN(5,IR)*AP**2/GT/PKOU(2,IR)*12.56637062))04603000
+C         AFAC SET ZERO FOR D AND P RESONANCES                          04604000
+       IF(PKIN(1,IR).GE.1) PKOU(4,IR)=0.                                04605000
+C     GT                                                                04606000
+      PKOU(5,IR)=GT                                                     04607000
+C     GN                                                                04608000
+      PKOU(6,IR)=PKIN(5,IR)                                             04609000
+C     GG                                                                04610000
+      PKOU(7,IR)=PKIN(6,IR)                                             04611000
+C     GF                                                                04612000
+      PKOU(8,IR)=PKIN(7,IR)                                             04613000
+      IF(LRF.EQ.1) GO TO 100                                            04614000
+C     .................................. MULTI LEVEL                    04615000
+C     CS=GT                                                             04616000
+      PKOU(9,IR)=PKIN(4,IR)                                             04617000
+C     GC/GS                                                             04618000
+      PKOU(10,IR)=PKIN(6,IR)/PKOU(9,IR)                                 04619000
+C     GF/GS                                                             04620000
+      PKOU(11,IR)=PKIN(7,IR)/PKOU(9,IR)                                 04621000
+C     TERMINE CORRETTIVO GT+GCOR                                        04622000
+      PKOU(12,IR)=1                                                     04623000
+C     BC=0                                                              04624000
+      PKOU(13,IR)=0                                                     04625000
+      BF=0                                                              04626000
+      PKOU(14,IR)=0                                                     04627000
+C     TERMINI DI INTERFERENZA NELLA FORMA ADLER-GAUSS                   04628000
+      PKOU(15,IR)=0.                                                    04629000
+      PKOU(16,IR)=0.                                                    04630000
+ 100    CONTINUE                                                        04631000
+  10  CONTINUE                                                          04632000
+      IF(LRF.EQ.1) GO TO 200                                            04633000
+C       CALCOLO TERMINI SIMMETRICO ED ANTISIMMETRICO DELLE FORMULE DI AD04634000
+C         VENGONO MESSI IN PKOU(15,.) E PKOU(16,.)                      04635000
+C                                                                       04636000
+       DO 20 IRJ=1,NRS                                                  04637000
+       DO 17 IRK=1,NRS                                                  04638000
+       IF(IRJ.EQ.IRK) GOTO 17                                           04639000
+       IF(PKIN(1,IRK).NE.PKIN(1,IRJ) ) GO TO 17                         04640000
+       IF(PKIN(2,IRK).EQ.PKIN(2,IRJ) ) GO TO 17                         04641000
+       IF(PKIN(3,IRK).NE.PKIN(3,IRJ) ) GO TO 17                         04642000
+C                                                                       04643000
+C       ESCLUDE DALLA SOMMATORIA I CASI :                               04644000
+C            AUTOINTERFERENZA ( IRK=IRJ)                                04645000
+C            DIVERSO L    ( PKIN(1                                      04646000
+C            DIVERSO J    ( PKIN(3                                      04647000
+C                                                                       04648000
+C         CALCOLO GAMMA TOTAL COME FUNZIONE DI E PER RISONANZA K        04649000
+       IF(PKIN(1,IRK).LE.0) ESP=0.5                                     04650000
+       IF(PKIN(1,IRK).EQ.1) ESP=1.5                                     04651000
+       IF(PKIN(1,IRK).GE.2) ESP=2.5                                     04652000
+       GTK=PKIN(6,IRK)+PKIN(7,IRK)+PKIN(5,IRK)*                         04653000
+     1   ABS(PKIN(2,IRJ)/PKIN(2,IRK))**ESP                              04654000
+C                                                                       04655000
+C      CALCOLO FATTORE DI DIPENDENZA ENERGETICA                         04656000
+       IF(PKIN(1,IRK).LE.0) EFAC=PKIN(5,IRK)*0.5*                       04657000
+     1     SQRT(ABS(PKIN(2,IRJ)/PKIN(2,IRK)))                           04658000
+       IF(PKIN(1,IRK).EQ.1) EFAC=0.5*PKIN(5,IRK)*                       04659000
+     1     ABS(PKIN(2,IRJ))**(-0.5)*ABS(PKIN(2,IRK))**(-1.5)            04660000
+       IF(PKIN(1,IRK).GE.2) EFAC=PKIN(5,IRK)*0.5*                       04661000
+     1     ABS(PKIN(2,IRJ))**(-0.5)*ABS(PKIN(2,IRK))**(-3.5)            04662000
+C                                                                       04663000
+       TEMP=(PKIN(2,IRJ)-PKIN(2,IRK))**2+0.25*(PKIN(4,IRJ)+GTK)**2      04664000
+C                                                                       04665000
+       PKOU(15,IRJ)=PKOU(15,IRJ)+EFAC*(PKIN(4,IRJ)+GTK)/TEMP            04666000
+       PKOU(16,IRJ)=PKOU(16,IRJ)+EFAC*(PKIN(2,IRJ)-PKIN(2,IRK))/TEMP    04667000
+C                                                                       04668000
+ 17    CONTINUE                                                         04669000
+C                                                                       04670000
+C      SIG0=SIG0+(1+SIMM)                                               04671000
+       PKOU(2,IRJ)=PKOU(2,IRJ)*(1+PKOU(15,IRJ))                         04672000
+C      AFAC=(AFAC+ASIMM)/(1+SIMM)                                       04673000
+C      AFAC JUST SET ZERO FOR P AND D RESONANCES                        04674000
+       IF(PKIN(1,IRJ).GE.1.) GO TO 201                                  04675000
+       PKOU(4,IRJ)=(PKOU(4,IRJ)+PKOU(16,IRJ))/(1+PKOU(15,IRJ))          04676000
+C      GTA=1+SIMM                                                       04677000
+ 201   PKOU(12,IRJ)=1+PKOU(15,IRJ)                                      04678000
+C                                                                       04679000
+  20   CONTINUE                                                         04680000
+ 200    CONTINUE                                                        04681000
+C                                                                       04682000
+C      TOGLIE LE RISONANZE FUORI DELL'ENERGY RANGE E LE ORDINA          04683000
+C       QUI SI DEVE RIORDINARE ,I PK INPUT SOPRA PERCHE AD ADLER GAUSS  04684000
+C       SERVONO TUTTE LE RISONANZE PRATICAMENTE,ANCHE QUELLE FUORI RANGE04685000
+C                                                                       04686000
+C        SE EINF ED EUP SONO OLTRE I LIMITI DELLA STRUTTURA GRUPPALE    04687000
+C        SI RIFERISCE ALLA STRUTTURA GRUPPALE                           04688000
+        EEINFF=AINDX(14)                                                04689000
+        EEUPP=AINDX(15)                                                 04690000
+        IF(EEINFF.LT.EDOWN) EEINFF=EDOWN                                04691000
+        IF(EEUPP.GT.EUP)    EEUPP =EUP                                  04692000
+      IF(OPZ(2,4,2).LE.0.)CALL SELR1(NPK,NRS,PKOU,1,EEINFF,EEUPP)       04693000
+       CALL ORDINA(1,NPK,NRS,PKOU)                                      04694000
+C                                                                       04695000
+C      NUMERO PARAMETRI DI OUTPUT                                       04696000
+      NPKOU=NPK                                                         04697000
+C     TROVO E MAX RISONANZE                                             04698000
+      EMX=FNDMX(1,NPK,NRS,PKOU)                                         04699000
+C     CALCOLO  NUMERO RECORDS ( DI MCCF, NON DELLA SECONDA SERIE ) PER F04700000
+C      SCRIVO                                                           04701000
+C     ARRIVA QUI SENZA IDENTIFICATORI IL NUCLIDE E QUI NON METTO IDENTIF04702000
+      IF(NMT.GT.M2) GO TO 600                                           04703000
+      NOM=MIX(3,NMT)                                                    04704000
+      NOM1=MIX(4,NMT)                                                   04705000
+      NOM2=MIX(1,NMT)                                                   04706000
+      NOM3=MIX(2,NMT)                                                   04707000
+      GO TO 610                                                         04708000
+C      ANDREBBE MESSO ENDFB ID COME CARATTERE MA NON HO FATTO LA SUBROUT04709000
+ 600  NOM=NAREAL(AINDX(35))                                             04710000
+      NOM1=NAREAL(AINDX(36))                                            04711000
+      NOM2=NAREAL(AINDX(35))                                            04712000
+      NOM3=NAREAL(AINDX(36))                                            04713000
+ 610  CONTINUE                                                          04714000
+      CALL POSL(NTOUT)                                                  04715000
+C      POSIZIONA TAPE OUT AL PRIMO RECORD LIBERO                        04716000
+C     WRITE(NTO) NRS,NREC,EMX                                           04717000
+C     WRITE(NTO) NOM2,NOM3,AINDX(28)                                    04718000
+      IWR=1                                                             04719000
+      IF(LRF.NE.1) IWR=3                                                04720000
+C     NOME,ISOTOPO ( NON VA IN TAPES MCCF      )                        04721000
+C     WRITE(NTO) AINDX(6),IWR,AINDX(14),AINDX(15)                       04722000
+C      NUM ISOTOPO, RAPPR 1,3=BWSL,BWML,E INF, E UPP ( DA E RANGE NON DA04723000
+C     RISONANZE                                                         04724000
+C     WRITE(NTO) AINDX(9),NRS                                           04725000
+C     ABBONDANZA ISOTOPO, NUM RISONANZE                                 04726000
+C     VA ALL INDIETRO IN MCCF, IN AVANTI IN ENERGIE IN  ENDFB           04727000
+C                                                                       04728000
+       DO 31 I=1,4                                                      04729000
+ 31    WRITE(NTO) (PKOU(I,J),J=1,NRS)                                   04730000
+       WRITE(NTO) ((PKOU(I,J),J=1,NRS),I=5,6)                           04731000
+C                                                                       04732000
+C       I PARAMETRI 5 E 6 SONO NELLO STESSO RECORD IN MCC2F4            04733000
+C                                                                       04734000
+      DO 30 I=7,NPKOU                                                   04735000
+      WRITE(NTO) (PKOU(I,J),J=1,NRS)                                    04736000
+ 30   CONTINUE                                                          04737000
+       IF(STMP.LT.10) GO TO 700                                         04738000
+       WRITE(NO,901) NOM,NOM1                                           04739000
+ 901   FORMAT(//20X,2A4/)                                               04740000
+             WRITE(NO,900)                                              04741000
+ 900         FORMAT('  OUTPUT RESONANCE PARAMETERS' )                   04742000
+C                                                                       04743000
+       WRITE(NO,1000) NRS,NPKOU,EMX                                     04744000
+ 1000  FORMAT(' RESONANCES:',I10,' RECORDS:',I10,' E MAX:',E12.5)       04745000
+       WRITE(NO,2000) NOM2,NOM3,AINDX(28)                               04746000
+ 2000  FORMAT(1X,2A4,'  ISOTOPE:',F10.0)                                04747000
+       WRITE(NO,3000) AINDX(6),IWR,AINDX(14),AINDX(15)                  04748000
+ 3000  FORMAT(' ISOTOPE:',F10.0,' RAPPR:',I5,' ENERGY LIMITS:',2E12.5)  04749000
+       WRITE(NO,4000) AINDX(9),NRS                                      04750000
+ 4000  FORMAT(' ABUNDANCE:',E12.5,'  NUMBER OF RESONANCES:',I10/        04751000
+     1 '      E         SIGMA0        THETA      AFAC          GT',     04752000
+     2 '        GN        GC         GF        GAMS         GCC     '/  04753000
+     3 '   GFF       GTT         BC          BF         G           H') 04754000
+       DO 70 I=1,NRS                                                    04755000
+       WRITE(NO,5000) (PKOU(J,I),J=1,NPKOU)                             04756000
+ 5000  FORMAT(1X,10E12.5)                                               04757000
+ 70    CONTINUE                                                         04758000
+       WRITE(NO,6000)                                                   04759000
+ 6000  FORMAT(//'  INPUT RESONANCE PARAMETERS')                         04760000
+       DO 75 I=1,NRS                                                    04761000
+ 75    WRITE(NO,5000) (PKIN(J,I),J=1,M7)                                04762000
+ 700   CONTINUE                                                         04763000
+C                                                                       04764000
+      ANREC=NPKOU-1                                                     04765000
+      IND2=IND2+1                                                       04766000
+      IF(IND2.GT.MIND12) CALL ERR(8H BW       , 30)                     04767000
+      CALL EMPIN(MIND11,AINDX1(1,IND2),AINDX(1),AINDX(2),AINDX(3),      04768000
+     1 AINDX(4),                                                        04769000
+     1AINDX(5),NOM,NOM1,NOM2,NOM3,0.,4.,0.,0.,FLOAT(NTO),FLOAT(NTOUT),  04770000
+     2FLOAT(NT(4,NTOUT)),ANREC,FLOAT(NRS),FLOAT(NPKOU),AINDX(6),        04771000
+     3FLOAT(LRF),EMX,FLOAT(IWR),SPI,AP,AINDX(9),FLOAT(NLS),0.,0.,0.,0., 04772000
+     4AINDX(14),AINDX(15),AINDX(28),AINDX(29),0.,0.,0.,0.,0.)           04773000
+C                                                                       04774000
+      NT(4,NTOUT)=NT(4,NTOUT)+ANREC                                     04775000
+       NT(3,NTOUT)=NT(4,NTOUT)                                          04776000
+        RETURN                                                          04777000
+      END                                                               04778000
+      SUBROUTINE AA(NX,X,NI1,NI2,PKIN,NO1,NO2,PKOU,NTOUT,NTO,AP,        04779000
+     1AWRI,SPI,MINDX1,AINDX,M1,M2,MIX,NMT,NLS)                          04780000
+C     ***************************************************************   04781000
+C                                                                       04782000
+C     ADLER-ADLER RESONANCE PARAMETERS                                  04783000
+C     !!!!!!!!!!!!!!!!!!!! WARNING !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!      04784000
+C     THIS ROUTINE HAS NOT BEEN COMPLETELY TESTED !!!!!!!!!!!!!!!!      04785000
+C                                                                       04786000
+C     ***************************************************************   04787000
+C                                                                       04788000
+      DIMENSION X(NX),PKIN(NI1,NI2),PKOU(NO1,NO2),AINDX(MINDX1)         04789000
+C             X E IL BACKGROUND                                         04790000
+      DIMENSION MIX(M1,M2)                                              04791000
+         COMMON /FILES/NT(4,99)                                         04792000
+             EQUIVALENCE (NP,NT(1,11)),(NO,NT(1,6))                     04793000
+      COMMON /INDX1/AINDX1(40,200)                                      04794000
+      COMMON /OPZIO/OPZ(4,8,10)                                         04795000
+      COMMON /DIM/M(5)                                                  04796000
+       COMMON /DIMC/MMA,MINDD1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     04797000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     04798000
+C                                                                       04799000
+      NRES=NI2                                                          04800000
+      NPKIN=NI1                                                         04801000
+      NPKOU=NO1                                                         04802000
+C     PKIN : L,J,AJ,LJ,DET,DWT,GRT,GIT,DEF,DWT,GRF,GIF,DEC,DWC,GRC,GIC  04803000
+C            1 2  3  4  5   6   7   8   9  10  11  12  13  14   15  16  04804000
+C                      MI   NI SIM ASIM MI  NI SIM ASIM MI NI SIM ASIM  04805000
+C                       E  G /2 G(T)H(T)       G(F) H(F)      G(C) H(C) 04806000
+C                                                                       04807000
+           WRITE(NP,9000) AINDX(35),AINDX(36),NRES,AINDX(15),AINDX(15)  04808000
+ 9000   FORMAT(1X,2A4,' ADLER-ADLER RESONANCES:',I5,' RANGE:',2E12.5)   04809000
+C                                                                       04810000
+C     NUMERO DONDA DEL NEUTRONE /SQRT(E)                                04811000
+      AK=2.196771*AWRI/(AWRI+1)/1000.                                   04812000
+      DO 10 I=1,NRES                                                    04813000
+      SE=SQRT(PKIN(5,I))                                                04814000
+      FI=AK*AP*SE                                                       04815000
+      COSF=COS(2*FI)                                                    04816000
+      SINF=SIN(2*FI)                                                    04817000
+C     IPOTESI L=0 ( PHASE SHIFT PER L=0)                                04818000
+C      GITI ( NORMALIZZA AFAC                                           04819000
+      GITI=SE*(PKIN(7,I)*COSF+PKIN(8,I)*SINF)                           04820000
+C      E                                                                04821000
+      PKOU(1,I)=PKIN(5,I)                                               04822000
+C     SIG0                                                              04823000
+      PKOU(2,I)=2.6039953E+6/PKOU(1,I)*((AWRI+1)/AWRI)**2*PKIN(7,I)/4*  04824000
+     1PKIN(6,I)                                                         04825000
+C      D=DELTA = SQRT(T) * THETA                                        04826000
+      PKOU(3,I)=2.*PKIN(6,I)/SQRT(34.464E-5*ABS(PKOU(1,I))/AWRI)        04827000
+C     AFAC                                                              04828000
+      PKOU(4,I)=-0.5*SE*(PKIN(8,I)*COSF-PKIN(7,I)*SINF)/ABS(GITI)       04829000
+C     GAMS                                                              04830000
+      PKOU(5,I)=PKIN(6,I)*2                                             04831000
+C     GC                                                                04832000
+      PKOU(6,I)=SE*(PKIN(15,I)*COSF+PKIN(16,I)*SINF)                    04833000
+C     GF                                                                04834000
+      PKOU(7,I)=SE*(PKIN(11,I)*COSF+PKIN(12,I)*SINF)                    04835000
+C     GT                                                                04836000
+      PKOU(8,I)=SE*(PKIN(7,I)*COSF+PKIN(8,I)*SINF)                      04837000
+C     BC                                                                04838000
+      PKOU(9,I)=-0.5*SE*(PKIN(16,I)*COSF-PKIN(15,I)*SINF)/PKOU(6,I)     04839000
+C     BF                                                                04840000
+      PKOU(10,I)=-0.5*SE*(PKIN(12,I)*COSF-PKIN(11,I)*SINF)/PKOU(7,I)    04841000
+ 10    CONTINUE                                                         04842000
+C                                                                       04843000
+C       SCARTA LE RISONANZE FUORI ENERGY RANGE E LE ORDINA IN E DECRESCE04844000
+       IF(OPZ(2,4,2).LE.0)CALLSELR1(NO1,NRES,PKOU,1,AINDX(14),AINDX(15))04845000
+       CALL ORDINA(1,NO1,NRES,PKOU)                                     04846000
+C                                                                       04847000
+C      SPERIAMO DI AVERCI PRESO CON QUESTI MISCUGLI ALGEBRICI !!! ?     04848000
+C     NUMERO PARAMETRI DI OUTPUT                                        04849000
+C     TROVO E MAX                                                       04850000
+      EMX=FNDMX(1,NPKOU,NRS,PKOU)                                       04851000
+C     CALCOLO NUMERO RECORDS ( DI MCCF2 NON DI TAPES SERIE 2 ) PER MCCF104852000
+      NREC=1+NPKOU                                                      04853000
+C      SCRIVO                                                           04854000
+C     ARRIVA QUI SENZA IDENTIFICATORI IL NUCLIDE E QUI NON METTO IDENTIF04855000
+      IF(NMT.GT.M2) GO TO 600                                           04856000
+      NOM=MIX(3,NMT)                                                    04857000
+      NOM1=MIX(4,NMT)                                                   04858000
+      NOM2=MIX(1,NMT)                                                   04859000
+      NOM3=MIX(2,NMT)                                                   04860000
+      GO TO 610                                                         04861000
+C      ANDREBBE MESSO ENDFB ID COME CARATTERE MA NON HO FATTO LA SUBROUT04862000
+ 600  NOM=NAREAL(AINDX(35))                                             04863000
+      NOM1=NAREAL(AINDX(36))                                            04864000
+      NOM2=NAREAL(AINDX(35))                                            04865000
+      NOM3=NAREAL(AINDX(36))                                            04866000
+ 610  CONTINUE                                                          04867000
+      CALL POSL(NTOUT)                                                  04868000
+C      POSIZIONA TAPE OUT AL PRIMO RECORD LIBERO                        04869000
+C     WRITE(NTO) NRES,NREC,EMX                                          04870000
+C     WRITE(NTO) MIX(3,1),MIX(4,1),AINDX(28)                            04871000
+      IWR=1                                                             04872000
+      IF(LRF.NE.1) IWR=3                                                04873000
+C     NOME,ISOTOPO ( NON VA IN TAPES MCCF      )                        04874000
+C     WRITE(NTO) AINDX(6),IWR,AINDX(15),AINDX(16)                       04875000
+C      NUM ISOTOPO, RAPPR 1,3=BWSL,BWML,E INF, E UPP ( DA E RANGE NON DA04876000
+C     RISONANZE                                                         04877000
+C     WRITE(NTO) AINDX(9),NRES                                          04878000
+C     ABBONDANZA ISOTOPO, NUM RISONANZE                                 04879000
+      DO 30 I=1,NPKOU                                                   04880000
+      WRITE(NTO) (PKOU(I,J),J=1,NRES)                                   04881000
+ 30   CONTINUE                                                          04882000
+      ANREC=NPKOU                                                       04883000
+      IND2=IND2+1                                                       04884000
+      IF(IND2.GT.MIND12) CALL ERR(8H AA       , 30)                     04885000
+      CALL EMPIN(MIND11,AINDX1(1,IND2),AINDX(1),AINDX(2),AINDX(3),      04886000
+     1AINDX(4),AINDX(5),NOM,NOM1,NOM2,NOM3,0.,4.,0.,0.,FLOAT(NTO),FLOAT(04887000
+     2NTOUT),FLOAT(NT(4,NTOUT)),ANREC,FLOAT(NRES),FLOAT(NPKOU),AINDX(6),04888000
+     3FLOAT(LRF),EMX,FLOAT(IWR),SPI,AP,AINDX(9),NLS,0.,0.,0.,0.,        04889000
+     4AINDX(15),AINDX(16),AINDX(28),AINDX(29),0.,0.,0.,0.,0.)           04890000
+C                                                                       04891000
+      NT(4,NTOUT)=NT(4,NTOUT)+ANREC                                     04892000
+         NT(3,NTOUT)=NT(4,NTOUT)                                        04893000
+C     INDICE OVE METTE LE BACKGROUND .............................      04894000
+      IND2=IND2+1                                                       04895000
+      IF(IND2.GT.MIND12)CALL ERR(8H  A A   , 30 )                       04896000
+      CALL EMPIN(MIND11,AINDX1(1,IND2),AINDX(1),AINDX(2),AINDX(3),      04897000
+     1AINDX(4),AINDX(5),NOM,NOM1,NOM2,NOM3,0.,                          04898000
+     15.,0.,2.,0.,0.,                                                   04899000
+     2X(1),X(2),X(3),X(4),X(5),X(6),X(7),X(8),X(9),X(10),X(11),X(12),   04900000
+     3X(13),X(14),X(15),                                                04901000
+     4X(16),X(17),X(18),AINDX(9) )                                      04902000
+      RETURN                                                            04903000
+      END                                                               04904000
+      SUBROUTINE P2MCF5(MA,A,M1,M2,MIX,MKB1,INDIND,MKB,INDMIX,          04905000
+     1                  N41,N27,TR,TI,TRS,TIS,NG,E)                     04906000
+C     **************************************************************    04907000
+C                                                                       04908000
+C      ULTRAFINE GROUP CROSS SECTION ARE PRODUCED BY THIS ROUTINE       04909000
+C      FOR MCC2F5 FILE OF MC2-2                                         04910000
+C                                                                       04911000
+C     PRODUCE REAZIONI MT=NREAC STACCATE ( UNA REGISTRRAZIONE PER REAZ) 04912000
+C      PERCHE  ENDFB HA UN ASCRITTURA PER OGNI MT                       04913000
+C      PRODUCE RISONANZE E PARTI DI TOTALE DA SOMMARE NELLA PARTE 3     04914000
+C                                                                       04915000
+C      E(NG)=LIMITI ENERGETICI SUPERIORI DEI GRUPPI (NG+1 VALORI)       04916000
+C      A(MA)=SCR                                                        04917000
+C     MIX(M1,M2)=MIX DELL F5                                            04918000
+C      INDMIX(3,KB)= INDICE DI MIX 1,2,3=VALORE,INIZIO DIMENSIONI       04919000
+C                     ORDINATE PER FN)                                  04920000
+C      INDIND(4,KB1)= INDICE DI IND ( ORDINATO PER MAT)                 04921000
+C       TR,TI,TRS,TIS  SONO SPAZI PER LA TABULAZIONE                    04922000
+C       DELLA FUNZIONE W UTILE PER IL CALCOLO DELLE FUNZIONI DOPPLER    04923000
+C       QUESTI SPAZI SONO RIEMPITI DA WTABL CHIAMATA DA P2              04924000
+C                                                                       04925000
+C     FA LOOP SU INDICE, GUARDA SE L ELEMENTO E IN MIX DI F5            04926000
+C     ******************************************************************04927000
+C                                                                       04928000
+C                                                                       04929000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     04930000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     04931000
+C                                                                       04932000
+C                                                                       04933000
+      DIMENSION A(MA),MIX(M1,M2),INDMIX(3,MKB),INDIND(4,MKB1),E(NG)     04934000
+      DIMENSION TR(N41,N27),TI(N41,N27)                                 04935000
+       DIMENSION TRS(N41,N27),TIS(N41,N27)                              04936000
+      COMMON /INDX/AINDX(40,200)                                        04937000
+      COMMON /INDX1/AINDX1(40,200)                                      04938000
+      COMMON /DIM/ MX1,IND,MX2,IND1                                     04939000
+      COMMON /OPZIO/OPZ(4,8,10)                                         04940000
+      EQUIVALENCE (STMP,OPZ(2,5,1))                                     04941000
+      COMMON /FILES/NT(4,99)                                            04942000
+      EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))                04943000
+     1           ,(NP12,NT(1,12))                                       04944000
+      EQUIVALENCE (OPM,OPZ(2,5,5)),(EUP,OPZ(2,5,2)),(DELU,OPZ(2,5,3))   04945000
+C                                                                       04946000
+            WRITE(NP12,7000)((MIX(J,JJ),J=1,M1),JJ=1,M2)                04947000
+ 7000    FORMAT(' P2MCF5 ENTERED. INPUT TABLE TO BE EXECUTED:'/         04948000
+     1 (1X,2A4,1X,2A4,8I4,3E12.5))                                      04949000
+C                                                                       04950000
+      NG1=NG+1                                                          04951000
+C                                                                       04952000
+C      ............... LOOP SU INDICE DELL'INDICE                       04953000
+       DO 5 IS=1,MKB1                                                   04954000
+       N1S=INDIND(3,IS)                                                 04955000
+       N2S=INDIND(4,IS)                                                 04956000
+       N3S=N1S+N2S-1                                                    04957000
+C                                                                       04958000
+C      CERCO L ISOTOPO NELLA MIX E GUARDA I SEGUENTI CASI :             04959000
+C      1) SE LO TROVA                                                   04960000
+C      2) SE TROVA UN NOME BIANCO IN MIX (=TUTTI I MATERIALI) NMT=M2+1  04961000
+      NMT=NCERC1(MINDX1,IND,AINDX,M1,M2,MIX,N1S,35,3,1)                 04962000
+      IF(NMT.LE.0) GO TO 5                                              04963000
+C                                                                       04964000
+C     ...............LOOP SU INDICE DEL MATERIALE                       04965000
+      DO 10 I=N1S,N3S                                                   04966000
+C      CONTROLLO SE E DESTINATO AD F5                                   04967000
+      IF(AINDX(30,I).NE.5.AND.AINDX(30,I).NE.4.AND.AINDX(30,I).NE.3)    04968000
+     1 GOTO 100                                                         04969000
+C                                                                       04970000
+C       WRITE(NP,9010) AINDX(35,I),AINDX(36,I)                          04971000
+C9010   FORMAT(1X,2A4)                                                  04972000
+C                                                                       04973000
+C     DEFINIZIONE DEL TAPE DI OUTPUT                                    04974000
+      NTOUT=35                                                          04975000
+      IF(NMT.LE.M2.AND.NMT.GT.0) NTOUT=MIX(5,NMT)                       04976000
+      IF(NTOUT.LE.0) NTOUT=35                                           04977000
+      NTO=NT(1,NTOUT)                                                   04978000
+C      POSIZIONE TAPE DI INPUT ( INIZIO ISOTOPO ED E- RANGE)            04979000
+       NTIN=AINDX(23,I)                                                 04980000
+       NTI=NT(1,NTIN)                                                   04981000
+      NPOST=AINDX(25,I)                                                 04982000
+      CALL POST(NTIN,NPOST)                                             04983000
+C                                                                       04984000
+C            GUARDA NELL'INDICE SE SONO RISOLTE,UNRES,SMOOTH O NI       04985000
+C                                                                       04986000
+      IF(AINDX(30,I).EQ.3) GO TO 250                                    04987000
+      IF(AINDX(30,I).EQ.4) GO TO 200                                    04988000
+C      RISONANZE ( DA SOMMARE A SMMOOTHS NELLA PARTE 3 )                04989000
+      IF(AINDX(31,I).EQ.2) GO TO 300                                    04990000
+C      NI DA METTERE IN RECORD 2 DI F5                                  04991000
+C                                                                       04992000
+C      SMOOTHS ( TRATTA UNA REAZIONE PER VOLTA E FA UNA SCRITTTURA PER O04993000
+C      REAZIONE. GLI MT SONO QUINDI  STACCATI DA MONTARE NELLA PARTE 3 E04994000
+C      TOTALE VA FATTA SOMMANDO NELLA PARTE 3. QUESTO E FATTO COSI PER C04995000
+C      ENDFB CONTIENE I DIVERSI MT ( REAZIONI ) )                       04996000
+C                                                                       04997000
+       IF(NMT.GT.0.AND.NMT.LE.M2.AND.MIX(9,NMT).LT.0) GO TO 100         04998000
+C                                                                       04999000
+C                  TEMPERATURA                                          05000000
+       TEMPER=0.                                                        05001000
+       IF(NMT.LE.M2) TEMPER=AREAL(MIX(15,NMT))                          05002000
+       TEMP=OPZ(2,5,8)                                                  05003000
+       IF(TEMPER.GT.0.) TEMP=TEMPER                                     05004000
+       IF(TEMP.LE.0.) TEMP=300.                                         05005000
+C                                                                       05006000
+      CALL SMOOT(NTI,NTIN,NTO,NTOUT,NMT,M2,EUP,DELU,TEMP,NG,NG1,E,A,    05007000
+     1MA-NG-2,A(NG+2),MINDX1,AINDX(1,I),M1,MIX)                         05008000
+      GO TO 100                                                         05009000
+ 300  CONTINUE                                                          05010000
+C                                                                       05011000
+C     NI DA METTERE IN RECORD 2 DI F2                                   05012000
+C                                                                       05013000
+       IF(NMT.GT.0.AND.NMT.LE.M2.AND.MIX(10,NMT).LT.0) GO TO 100        05014000
+C                                                                       05015000
+C       RIDEFINIZIONE TAPE DI OUTPUT. NII SCRIVE SU 37 DI DEFAULT NON 3505016000
+C                                                                       05017000
+        NTOUT1=37                                                       05018000
+        IF(NMT.LE.M2.AND.NMT.GT.0) NTOUT1=MIX(10,NMT)                   05019000
+        IF(NTOUT1.LE.0) NTOUT1=37                                       05020000
+        NTO1=NT(1,NTOUT1)                                               05021000
+C                                                                       05022000
+      CALL NII(NTI,NTIN,NTO1,NTOUT1,NMT,M2,MINDX1,AINDX(1,I),M1,MIX,MA, 05023000
+     1A,EUP,DELU,NG)                                                    05024000
+      GO TO 100                                                         05025000
+ 250  CONTINUE                                                          05026000
+C                                                                       05027000
+C      RISONANZE UNRESOLVED DA SOMMARE ALLE SMOOTHS                     05028000
+C                                                                       05029000
+           IF(NMT.GT.0.AND.NMT.LE.M2.AND.MIX(7,NMT).LE.-5) GO TO 100    05030000
+       TEMP=OPZ(2,5,8)                                                  05031000
+         NFLRIS=0                                                       05032000
+      IF(NMT.GT.M2) GO TO 255                                           05033000
+C      SCHEDA MIX NON ESISTE ALLORA VALE IL DEFAULT                     05034000
+C                                                                       05035000
+      TEMPER=AREAL(MIX(15,NMT))                                         05036000
+      IF(TEMPER.GT.0.) TEMP=TEMPER                                      05037000
+      SIGBK=AREAL(MIX(14,NMT))                                          05038000
+C       IL FLAG NLRIS E' >0 OPPURE <0 SE OCCORRE SOLO SCATT DI RIS      05039000
+      NFLRIS=MIX(7,NMT)                                                 05040000
+C      MIX(7,.) < 0 SEGNALA NO RISONANZE                                05041000
+C      VEDERE BENE LO SCATTERING DI RISONANZA CHE DEVE CALCOLARE SEMPRE 05042000
+      IF(NFLRIS.NE.0)  GO TO 260                                        05043000
+C      QUESTO SEGNALA RISONANZE DA TRATTARE                             05044000
+C      QUI MIX(7,.)=0                                                   05045000
+C      OPZIONE DI MASSA                                                 05046000
+ 255  IF(AINDX(5,I).LT.OPZ(2,5,5)) NFLRIS=10                            05047000
+ 260   CONTINUE                                                         05048000
+      IF(TEMP.LE.0.) TEMP=300.                                          05049000
+C      FISSA ARGOMENTI PER UNRES                                        05050000
+      NOVRLP=OPZ(2,3,8)                                                 05051000
+C     DEFAULT PER SIGMA POTENZIALE E' LA DILUIZIONE INFINITA(COME ETOE) 05052000
+      IF(SIGBK.LE.0) SIGBK=1.E+5                                        05053000
+C                                                                       05054000
+              INTERP=OPZ(2,3,9)                                         05055000
+              IF(INTERP.LE.0) INTERP=2                                  05056000
+C                      INPUT(CALLED BY UNRES) SET INTERP=1 (COSTANT)    05057000
+      ZA=AINDX(4,I)                                                     05058000
+      AM=AINDX(5,I)                                                     05059000
+      NIS=AINDX(6,I)                                                    05060000
+      MAT=AINDX(1,I)                                                    05061000
+      MF=AINDX(2,I)                                                     05062000
+      MT=AINDX(3,I)                                                     05063000
+      ZAI=AINDX(8,I)                                                    05064000
+C             ABUNDANCE IS ACCOUNTED IN PART 3, HERE EACH ISOTOPE       05065000
+C             IS COMPUTED PER CONTO SUO .                               05066000
+      ABUNDI=1.                                                         05067000
+C     ABUNDI=AINDX(9,I)                                                 05068000
+      L1=0                                                              05069000
+      IFIS=AINDX(10,I)                                                  05070000
+C         IFIS=LFW  DI ENDFB                                            05071000
+      EL=AINDX(14,I)                                                    05072000
+      EH=AINDX(15,I)                                                    05073000
+      LRU=AINDX(12,I)                                                   05074000
+      LRF=AINDX(13,I)                                                   05075000
+      IF(LRF.GT.1) IFIS=1                                               05076000
+C                                                                       05077000
+C       PUNTATORI PER UNRES ARRAYS:                                     05078000
+       N150=AINDX(38,I)                                                 05079000
+       IF(N150.LE.1) N150=OPZ(2,3,2)                                    05080000
+       IF(N150.LE.0) N150=50                                            05081000
+C       50 E' IL NUMERO DI PUNTI E CON CUI VENGONO RAPPRESENTATE LE GAMM05082000
+C       IN UNRES QUANDO NON C'E' DIPENDENZA DA E IN ENDFB               05083000
+C       NELLA CATENA ORIGINARIA SI USAVANO SOLO 15 PUNTI                05084000
+C                                                                       05085000
+       N15012=N150*12                                                   05086000
+C                          QUI IN  :                                    05087000
+C            A(1): SEZIONI D'URTO A GRUPPI                              05088000
+C                       INIZIO SPAZIO VUOTO IN A:                       05089000
+       NL1=NG+3                                                         05090000
+C                       SIGCAP                                          05091000
+       NL2=NL1+N150                                                     05092000
+C                       SIGFIS                                          05093000
+       NL3=NL2+N150                                                     05094000
+C                       SIGTOT                                          05095000
+       NL4=NL3+N150                                                     05096000
+C                       SIGSCA                                          05097000
+       NL5=NL4+N150                                                     05098000
+C                       SIGPOT                                          05099000
+       NL6=NL5+N150                                                     05100000
+C                       SIGCMP                                          05101000
+       NL7=NL6+N150                                                     05102000
+C                       ES                                              05103000
+       NL8=NL7+N150                                                     05104000
+C                       DELTA                                           05105000
+       NL9=NL8+N150                                                     05106000
+C                       PSHFTO                                          05107000
+       NL10=NL9+N150                                                    05108000
+C                       PSHFT1                                          05109000
+       NL11=NL10+N150                                                   05110000
+C                       PSHFT2                                          05111000
+       NL12=NL11+N150                                                   05112000
+C                       V1                                              05113000
+       NL13=NL12+N150                                                   05114000
+C                       V2                                              05115000
+       NL14=NL13+N150                                                   05116000
+C                       GF                                              05117000
+       NL15=NL14+N15012                                                 05118000
+C                       D                                               05119000
+       NL16=NL15+N15012                                                 05120000
+C                       GG                                              05121000
+       NL17=NL16+N15012                                                 05122000
+C                       GNO                                             05123000
+       NL18=NL17+N15012                                                 05124000
+C                       GX                                              05125000
+       NL19=NL18+N15012                                                 05126000
+C                       GAMTOT                                          05127000
+       NL20=NL19+2000                                                   05128000
+C                       GAMFIS                                          05129000
+       NL21=NL20+2000                                                   05130000
+C                       GAMCMP                                          05131000
+       NL22=NL21+2000                                                   05132000
+C                       ZETA                                            05133000
+       NL23=NL22+1000                                                   05134000
+C                       PSIZRO                                          05135000
+       NL24=NL23+1000                                                   05136000
+C                       BETPSI                                          05137000
+       NL25=NL24+1000                                                   05138000
+C                       BBETA                                           05139000
+       NL26=NL25+4000                                                   05140000
+C                       BVCTR                                           05141000
+       NL27=NL26+5000                                                   05142000
+C                       PVCTR                                           05143000
+       NL28=NL27+5000                                                   05144000
+C                       RVCTR                                           05145000
+       NFIN=NL28+5000                                                   05146000
+C                                                                       05147000
+       IF(NFIN.GT.MA) CALL ERR(8HP2MCF5   ,200)                         05148000
+                        CALL RIEMP(0.0,NFIN,A)                          05149000
+C                                                                       05150000
+          WRITE(NP,9050)AINDX(35,I),AINDX(36,I)                         05151000
+ 9050    FORMAT(1X,2A4,                                                 05152000
+     1         ' UNRESOLVED MULTI-GROUP CROSS SECTIONS GENERATED')      05153000
+          IF(NFLRIS.LE.0) WRITE(NP,9060)                                05154000
+ 9060    FORMAT(10X,' ONLY POT. SCATT CROSS SECTION GENERATED')         05155000
+C                                                                       05156000
+      CALL UNRES(NTIN,INTERP,NTI,NO,NFLRIS,STMP,NOVRLP,TEMP,SIGBK,      05157000
+     1ZA,AM,MAT,MF,MT,ZAI,ABUNDI,L1,IFIS,EL,EH,LRU,LRF,NIS,             05158000
+     2N41,N27,TR,TI,TRS,TIS,                                            05159000
+     3N150,A(NL1),A(NL2),A(NL3),                                        05160000
+     4     A(NL22),A(NL23),A(NL24),A(NL25),A(NL26),A(NL27),A(NL28),     05161000
+     5     A(NL19),A(NL20),A(NL9),A(NL10),A(NL11),A(NL12),A(NL13),      05162000
+     6     A(NL7),A(NL14),A(NL15),A(NL16),A(NL17),A(NL8),A(NL21),       05163000
+     7     A(NL6),A(NL18),A(NL5)  )                                     05164000
+       IF(NFLRIS.LE.0) GO TO 265                                        05165000
+C                                                                       05166000
+C      CREO LO SCATTERING DI RISONANZA PER  DIFFERENZA                  05167000
+C        TOTAL-CATT-FISS-COMPETITIVE                                    05168000
+       DO 20 J=1,N150                                                   05169000
+       A(NL4+J-1)=A(NL3+J-1)-A(NL1+J-1)-A(NL2+J-1)-A(NL6+J-1)           05170000
+C               1  +A(NL5+J-1)                                          05171000
+C      NON    CI VA. LO SCATT POT (NON E' NELLA TOTAL) LO SOMMA P3.     05172000
+  20   CONTINUE                                                         05173000
+C                                                                       05174000
+C     CALCOLO SIGMA ( INTEGRANDO) E SCRITTURA SUL FILE DI OUTPUT (SERIE 05175000
+C                                                                       05176000
+ 265  CALL INTUN(NFLRIS,INTERP,NTI,NTO,NTOUT,NMT,M2,NG,EUP,DELU,E,      05177000
+     1NG1,A,MINDX1,AINDX(1,I),M1,MIX,                                   05178000
+     2N150,A(NL7),A(NL1),TEMP   ,MA-NL8,A(NL8))                         05179000
+C                                                                       05180000
+       GOTO100                                                          05181000
+ 200  CONTINUE                                                          05182000
+C                                                                       05183000
+C      RESOLVED DA SOMMARE ALLE SMOOT NELLA PARTE 3                     05184000
+C                                                                       05185000
+          IF(NMT.GT.0.AND.NMT.LE.M2.AND.MIX(8,NMT).LE.-5) GOTO100       05186000
+              NFLRIS=0                                                  05187000
+       TEMP=OPZ(2,5,8)                                                  05188000
+       IF(NMT.GT.M2) GO TO 455                                          05189000
+C      SE LA SCHEDA MIX DEL MATERIALE NON ESISTE :                      05190000
+       TEMPER=AREAL(MIX(15,NMT))                                        05191000
+       IF(TEMPER.GT.0.) TEMP=TEMPER                                     05192000
+       NFLRIS=MIX(8,NMT)                                                05193000
+       IF(NFLRIS.NE.0) GO TO 456                                        05194000
+C                                                                       05195000
+C      OPZIONE DI NON METTERE RISONANZE                                 05196000
+C      OPZIONE DI MASSA                                                 05197000
+ 455  IF(AINDX(5,I).LT.OPZ(2,5,5)) NFLRIS=10                            05198000
+ 456   CONTINUE                                                         05199000
+C      DEFAULT TEMPERATURA=300. K                                       05200000
+       IF(TEMP.LE.0.) TEMP=300.                                         05201000
+C                                                                       05202000
+C      FISSA ARGOMENTI PER SUBROUTINE RES (RESOLVED RESONANCES)         05203000
+C                                                                       05204000
+      NDOP=MIX(11,NMT)                                                  05205000
+      EL=AINDX(14,I)                                                    05206000
+      EH=AINDX(15,I)                                                    05207000
+      LRF=AINDX(13,I)                                                   05208000
+       NRIS=AINDX(38,I)                                                 05209000
+C                                                                       05210000
+C       DIMENSIONAMENTI  (IT SHOULD BE NBACK=0, BUT VS FORTRAN DOESN'T  05211000
+C                         LIKE NEGETIVE DIMENSION IN DUMMY ARGUMENTS)   05212000
+       NBACK=1                                                          05213000
+       NPK=7 + 6                                                        05214000
+C                        +6 E' PER A.G. E PK PER ACCELERARE RES         05215000
+       IF(LRF.EQ.4) NPK=14                                              05216000
+       IF(LRF.EQ.4) NBACK=3                                             05217000
+C                                                                       05218000
+C                                                                       05219000
+C        AVANTI STANNO ENERGIE    : E                                   05220000
+C                     SIGMA UFG: SIG(NG+1) IN A(1)                      05221000
+       NL1=NG+3                                                         05222000
+C                     PARAMETRI RISONANZA PK(NPK,NRIS)                  05223000
+       NL2=NL1+NRIS*NPK                                                 05224000
+C                     BACKGROUND DI ADLER ADLER BACK(6,NBACK)           05225000
+       NL3=NL2+6*NBACK                                                  05226000
+C       SPAZIO AUSILIARIO PER E RISONANZA                               05227000
+       NL4=NL3+NRIS+1                                                   05228000
+C                     SPAZIO AUSILIARIO PER GAMMA RISONANZE             05229000
+       NL5=NL4+NRIS+1                                                   05230000
+C                                                                       05231000
+C                     SPAZIO RIMASTO UTILIZZABILE PER PUNTI             05232000
+C                     DI INTERPOLAZIONE PUNTO(NPMX,3),PUNTO1(NPMX,2)    05233000
+       NPMX=(MA-NL5)/9                                                  05234000
+C                     PUNTO(NPMX,5)                                     05235000
+       NL6=NL5+NPMX*5                                                   05236000
+C                     PUNTO(NPMX,4)                                     05237000
+C                                                                       05238000
+       IF(NPMX.LE.0) CALL ERR(8HP2MCF5    ,100)                         05239000
+C                                                                       05240000
+C                                                                       05241000
+       CALL RES(NTI,NTIN,NTO,NTOUT,NMT,NFLRIS,NDOP,TEMP,                05242000
+     1 N41,N27,TR,TI,TRS,TIS,                                           05243000
+     2 LRF,EH,EL,NG,E,A,NPK,NRIS,A(NL1),                                05244000
+     3 NBACK,A(NL2),NPMX,A(NL3),A(NL4),A(NL5),A(NL6),                   05245000
+     4 MINDX1,AINDX(1,I),M1,M2,MIX,MAT,MF,MT,EUP,DELU)                  05246000
+C                                                                       05247000
+C                                                                       05248000
+ 100    CONTINUE                                                        05249000
+ 10     CONTINUE                                                        05250000
+  5    CONTINUE                                                         05251000
+      RETURN                                                            05252000
+      END                                                               05253000
+      SUBROUTINE SMOOT(NTI,NTIN,NTO,NTOUT,NMT,M2,EUP,DELU,TEMP,         05254000
+     1NG,NG1,E,SIG,MA,N,MINDX1,AINDX,M1,MIX)                            05255000
+C     ******************************************************************05256000
+C                                                                       05257000
+C      ULTRAFINE GROUP SMOOTH CROSS SECTIONS                            05258000
+C      FOR EACH MT A RECORD IS PRODUCED                                 05259000
+C                                                                       05260000
+C     ******************************************************************05261000
+C                                                                       05262000
+          DIMENSION E(NG1)                                              05263000
+      DIMENSION SIG(NG),N(MA),AINDX(MINDX1),MIX(M1,M2)                  05264000
+      COMMON /OPZIO/OPZ(4,8,10)                                         05265000
+      EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))                05266000
+     1          ,(NP12,NT(1,12))                                        05267000
+            COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),           05268000
+     1      JNT(200),N1X,N2X,NS,LX,LY,LB                                05269000
+            COMMON MAXA,AD( 1)                                          05270000
+       COMMON /DIMC/MMA,MIND1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3      05271000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     05272000
+      COMMON /FILES/ NT(4,99)                                           05273000
+      COMMON /INDX1/AINDX1(40,200)                                      05274000
+      COMMON /DIM/ NMX,MIND,NMX2,IND2                                   05275000
+C                                                                       05276000
+       REAL*8 NOME(11)                                                  05277000
+       DATA NOME/8HELASTIC  ,8H FISSION ,8HCAPTURE ,8H N,P     ,        05278000
+     1 8H N,D     ,8H N,H3    ,8H N,HE3   ,8H N,ALFA   ,                05279000
+     2 8H TOTAL   ,8H N,2N    ,8HANELAST  /                             05280000
+C                                                                       05281000
+C         ESCLUDE L'ANELASTICA MT=3                                     05282000
+       IF(AINDX(3).EQ.3.) RETURN                                        05283000
+C                                                                       05284000
+      WRITE(NP12,7000)                                                  05285000
+     1              AINDX(35),AINDX(36),AINDX(1),AINDX(2),AINDX(3),TEMP 05286000
+ 7000   FORMAT(1X,2A4,' SMOOTHS:  MAT:',F5.0,' MF:',F3.0,'  MT:',F5.0,  05287000
+     1 ' T=',E12.5)                                                     05288000
+C                                                                       05289000
+C      LETTURA DELL HEAD DEL MAT,MT                                     05290000
+      CALL RREC(1,NTI,3,TEMP)                                           05291000
+C         CONTROLLO MAT,MF,MT                                           05292000
+      IF(MAT.NE.AINDX(1).OR.MF.NE.AINDX(2).OR.MT.NE.AINDX(3))           05293000
+     1 CALL ERR(8H SMOOT         ,0)                                    05294000
+C     LETTURA TAB1                                                      05295000
+      CALL RREC(3,NTI,3,TEMP)                                           05296000
+          NT(4,NTIN)=NT(4,NTIN)+3+N1/3+N2/3+NREST(N1,3)+NREST(N2,3)     05297000
+C                                                                       05298000
+C                                                                       05299000
+C       ======  CULLEN METHOD FOR DOPPLER BROADENEING OF TABULATED SIGMA05300000
+C                                                                       05301000
+C       PER USARE IL METODO DI ALLARGAMENTO DOPLER DI CULLEN  SI FA:    05302000
+C        1) USANDO N(MA) COME SPAZIO DI LAVORO SI CREA COPPIE E-SIGMA   05303000
+C           CON LEGGE LINEARE - USANDO METODO TIPO RES CHE E'VELOCE NON 05304000
+C           RIORDINANDO.                                                05305000
+C        2) SI CHIAMA IL PROGRAMMA DI CULLEN CHE ALLARGA DOPPLER LE E-SI05306000
+C        3) SI INTEGRA CON ROUTINE INTS1                                05307000
+C        4) SI VA ALLA 200     (SCRITTURA)                              05308000
+C                                                                       05309000
+       IF(OPZ(2,1,5).LE.0.) GO TO 150                                   05310000
+       PRECIS=OPZ(2,1,5)                                                05311000
+C       SPAZI PER BROAD ROUTINE ETC                                     05312000
+       LKT=1                                                            05313000
+C           KT : TABULAZIONE TAB1 ESPANSA                               05314000
+       LSS1=N2+LKT                                                      05315000
+C       NUM MAX PUNTI PER LINEARIZZAZIONE                               05316000
+       LTNP=(MA-LSS1)/6                                                 05317000
+C        SPAZI                                                          05318000
+       LEP=LSS1                                                         05319000
+C          EP - A                                                       05320000
+       LSP=LEP+LTNP                                                     05321000
+C          SP - C                                                       05322000
+       LEF=LSP+LTNP                                                     05323000
+C        EF                                                             05324000
+       LSF=LEF+LTNP                                                     05325000
+C        SF                                                             05326000
+       LKP=LSF+LTNP                                                     05327000
+C        KP - EA                                                        05328000
+       LSA=LKP+LTNP                                                     05329000
+C        SA                                                             05330000
+       LFIN=LSA+LTNP                                                    05331000
+C                                                                       05332000
+       IF(LFIN.GT.MA) CALL ERR(8HSMOOTH      ,150)                      05333000
+C                                                                       05334000
+C       ESPANDE TABULAZIONE DEL TAB1                                    05335000
+       CALL FILTB2(N1,N2,N(LKT),NBT,JNT)                                05336000
+C       LINEARIZZA                                                      05337000
+       EDOWN=EUP*EXP(-NG*DELU)                                          05338000
+       NF=LTNP                                                          05339000
+       CALL LINSI1(N2,AD(LX),AD(LY),N(LKT),NF,N(LEF),N(LSF),            05340000
+     1 N(LEP),N(LSP),N(LKP),PRECIS,EUP,EDOWN)                           05341000
+        WRITE(NP,1001) AINDX(35),AINDX(36),NF,TEMP                      05342000
+        IF(STMP.LE.500) GO TO 148                                       05343000
+        WRITE(NO,1001) AINDX(35),AINDX(36),NF,TEMP                      05344000
+ 1001   FORMAT(1X,2A4,' LINEAR INTERPOLATED CROSS SECTIONS. POINTS:',   05345000
+     1 I7,' TEMPERATURE:',1PE11.2)                                      05346000
+        WRITE(NO,1002) (N(LEF-1+J),N(LSF-1+J),J=1,NF)                   05347000
+ 1002   FORMAT(' ENERGY - SIGMA '/(1X,10E12.5))                         05348000
+ 148    CONTINUE                                                        05349000
+C       LINEAR DOPPLER BROADENING                                       05350000
+       AWR=AINDX(5)                                                     05351000
+       DO  5 I=1,NF                                                     05352000
+  5    N(LKP+I-1)=N(LEF+I-1)                                            05353000
+C       IN LEF LE ENERGIE ED ANCHE IN LKP=LEA                           05354000
+C       A BROAD VANNO PASSATE E CRESCENTI DOPO RIBALTO                  05355000
+      CALL BROAD(NF,TEMP,AWR,N(LEF),N(LSF),N(LKP),N(LSA),N(LEP),N(LSP)) 05356000
+C       INTEGRATES AT UFG ( INTERP LIN, PESO 1/E)                       05357000
+C                                                                       05358000
+       CALL RIBA(NF,N(LSA))                                             05359000
+       CALL RIBA(NF,N(LEF))                                             05360000
+C                                                                       05361000
+       CALL RIEMP(0.0,NG,SIG)                                           05362000
+       NDUMMM=1                                                         05363000
+        ANDUMM=1.                                                       05364000
+       CALL INTS1(ANDUMM,NDUMMM,NG,E,SIG,NF,N(LEF),N(LSA))              05365000
+        WRITE(NP,9010) AINDX(35),AINDX(36),TEMP,NF                      05366000
+ 9010   FORMAT(' DOPPLER BRADENED TABULATED CROSS-SECTION, T=',1PE11.2, 05367000
+     1         ' POINTS:',I10)                                          05368000
+       GO TO 200                                                        05369000
+C                                                                       05370000
+C      INTEGRAZIONE                                                     05371000
+ 150  DO 10 I=1,NG                                                      05372000
+      E2=E(I+1)                                                         05373000
+      E1=E(I)                                                           05374000
+C      GRATE= SUBROUTINE INTEGRANTE ( IN RECS) DI SLAVE3                05375000
+      CALL GRATE(E2,E1,SIG(I))                                          05376000
+         SIG(I)=SIG(I)/(E1-E2)                                          05377000
+ 10      CONTINUE                                                       05378000
+C      SCRITTURA                                                        05379000
+C     ARRIVA QUI SENZA IDENTIFICATORI IL NUCLIDE E QUI NON METTO IDENTIF05380000
+ 200  IF(NMT.GT.M2) GO TO 600                                           05381000
+      NOM=MIX(3,NMT)                                                    05382000
+      NOM1=MIX(4,NMT)                                                   05383000
+      NOM2=MIX(1,NMT)                                                   05384000
+      NOM3=MIX(2,NMT)                                                   05385000
+      GO TO 610                                                         05386000
+C      ANDREBBE MESSO ENDFB ID COME CARATTERE MA NON HO FATTO LA SUBROUT05387000
+ 600  NOM=NAREAL(AINDX(35))                                             05388000
+      NOM1=NAREAL(AINDX(36))                                            05389000
+      NOM2=NAREAL(AINDX(35))                                            05390000
+      NOM3=NAREAL(AINDX(36))                                            05391000
+ 610  CONTINUE                                                          05392000
+      CALL POSL(NTOUT)                                                  05393000
+C      POSIZIONA TAPE OUT AL PRIMO RECORD LIBERO                        05394000
+C     WRITE(NTO)NOM2,NOM3,MAT,MF,MT                                     05395000
+C      PRIMO RECORD NOME( MAT,MF,MT NON SERVONO AD F5)                  05396000
+      IF(OPZ(2,5,1).GT.100.) WRITE(NO,1000)NOM2,NOM3,MAT,MF,MT          05397000
+ 1000 FORMAT(' PART 2: MULTI GROUP CROSS SECTION PRODUCED:'/            05398000
+     1 1X,2A4,3I10)                                                     05399000
+C       CALCOLO FLAGS DI SPECIFICA REAZIONI PER L'INDICE E LA PARTE 3   05400000
+C                                                                       05401000
+       CALL SOGLM(0.0,NLAST,NG,SIG)                                     05402000
+       CALL SOGLM1(0.0,NFIRST,NG,SIG)                                   05403000
+       IF(NFIRST.GT.NLAST) CALL ERR(8HSMOOTH      ,610)                 05404000
+       IF(NLAST.LE.0) GO TO 500                                         05405000
+       REAZ=0.                                                          05406000
+       REAZ1=1.                                                         05407000
+       REAZ2=0.                                                         05408000
+C          ELASTICA                                                     05409000
+       IF(MT.EQ.2) REAZ=1.                                              05410000
+C          FISSION                                                      05411000
+       IF(MT.EQ.18) REAZ=2.                                             05412000
+C          N,GAMM-N,P-N,H3-N,HE3-N,ALFA                                 05413000
+       IF(MT.GE.102.AND.MT.LE.107) REAZ=MT-99                           05414000
+C          TOTAL                                                        05415000
+       IF(MT.EQ.1) REAZ=9.                                              05416000
+C          N,2N                                                         05417000
+       IF(MT.EQ.16) REAZ=10.                                            05418000
+C          ANEL                                                         05419000
+       IF(MT.EQ.4)  REAZ=11.                                            05420000
+C                                                                       05421000
+       NREAZ=REAZ                                                       05422000
+C                                                                       05423000
+C     WRITE(NTO)(N(J),J=1,14)                                           05424000
+      WRITE(NTO) (SIG(J),J=NFIRST,NLAST)                                05425000
+       WRITE(NP,2001) NOM2,NOM3,MT,NOME(NREAZ),NFIRST,NLAST             05426000
+ 2001  FORMAT(1X,2A4,' REACTION :',I5,1X,A8,1X,' FIRST GROUP:',I5,      05427000
+     1 ' LAST GROUP:', I5)                                              05428000
+C      IN F5 E PREVISTO CHE I VALORI SIANO PRESENTI ANDANDO ALLE BASSE E05429000
+       IF(OPZ(2,5,1).LE.101) GO TO 100                                  05430000
+       WRITE(NO,2000)NOM2,NOM3, MT,NOME(NREAZ),NFIRST,NLAST             05431000
+       IF(OPZ(2,5,1).LE.105) GO TO 100                                  05432000
+       WRITE(NO,3000) (SIG(J),J=NFIRST,NLAST)                           05433000
+ 2000  FORMAT(1X,2A4,' REACTION :',I5,2X,A8,20X,' FIRST GROUP:',I5,     05434000
+     1 ' LAST GROUP:', I5)                                              05435000
+ 3000  FORMAT(1X,10E12.5)                                               05436000
+ 100   CONTINUE                                                         05437000
+      IND2=IND2+1                                                       05438000
+      IF(IND2.GT.MIND12)CALL ERR(8H SMOOT     ,20)                      05439000
+      CALL EMPIN(MIND11,AINDX1(1,IND2),AINDX(1),AINDX(2),AINDX(3),      05440000
+     1AINDX(4),AINDX(5),NOM,NOM1,NOM2,NOM3,0.                           05441000
+     2,5.,3.,0.,FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(3,NTOUT)),1.,0.,0.,    05442000
+     3 FLOAT(NG),EUP,DELU,                                              05443000
+     2 REAZ,FLOAT(NLAST),REAZ1,REAZ2, 0.,FLOAT(NFIRST),0.,AINDX(8),0.,  05444000
+     5 0.,0.,0.,0.,0.,0.,0.,0.,TEMP)                                    05445000
+C                                                                       05446000
+      NT(4,NTOUT)=NT(4,NTOUT)+1                                         05447000
+      NT(3,NTOUT)=NT(4,NTOUT)                                           05448000
+C            IL SEND RECORD(GIA CONTATO PRIMA PER NT(4,NTIN) )          05449000
+ 500         CALL RREC(1,NTI,3,TEMP)                                    05450000
+C                                                                       05451000
+      RETURN                                                            05452000
+      END                                                               05453000
+      SUBROUTINE UNRES(NTIN,INTERP,INPP,NOUTT,NFLRIS,STMP,NOVRPP,TEMP,  05454000
+     1SIGBK,ZA,AMMM,MATT,MF,MT,ZAI,ABUNDD,L1,IFISS,EL,EH,LRU,LRF,NIS,   05455000
+     2N41,N27,TR,TI,TRS,TIS,                                            05456000
+     3N150,SIGCAP,SIGFIS,SIGTOT,ZETA,PSIZRO,BETPSI,BBETA,               05457000
+     4BVCTR,PVCTR,RVCTR,GAMTOT,GAMFIS,PSHFT0,PSHFT1,PSHFT2,V1,V2,       05458000
+     5ES,GF,D,GG,GNO,DELTA,GAMCMP,SIGCMP,GX,SIGPOT  )                   05459000
+C     **************************************************************    05460000
+C                                                                       05461000
+C     MAIN ROUTINE OF THE UNRES PROGRAM BY TOPPEL.MODIFIED FOR TESEO.   05462000
+C     THIS PROGRAM COMPUTES UNRESOLVED RESONANCE CROSS SECTIONS         05463000
+C     BY MC2-2 ALGORITHMS                                               05464000
+C                                                                       05465000
+C     ***********************************************************       05466000
+C                                                                       05467000
+C     PROGRAM TO CALCULATE UNRESOLVED RESONANCE CROSS SECTIONS FROM     05468000
+C     ENDF/B DATA.  THIS PROGRAM IS BASED UPON THE UNRESOLVED RESONANCE 05469000
+C     CALCULATION OF THE MCC-2 CODE AS PROGRAMMED BY B.J.TOPPEL.        05470000
+C     THE PRESENT CODE PROVIDES A STANDALONE CAPABILITY WHICH READS     05471000
+C     ENDF/B BCD CARD INPUT DIRECTLY.  IT IS PROGRAMMED IN SUCH A WAY   05472000
+C     THAT IT MAY BE EASILY INCORPORATED INTO LARGER PROGRAMS SUCH AS   05473000
+C     THE SELF-SHIELDING FACTOR PROGRAMS ETOX OR MINX.  IT SHOULD       05474000
+C     ALSO PROVIDE ENDF/B DATA EVALUATORS WITH A BETTER TOOL THAN THE   05475000
+C     CURRENT UR CODE OR MENDEL-BEER METHODS WHICH ARE RESTRICTED       05476000
+C     TO INFINITE DILUTE CALCULATIONS.                                  05477000
+C                                                                       05478000
+C                                                                       05479000
+CIBM                                                                    05480000
+      DOUBLE PRECISION CAPTUR,FISION,TOTAL,COMPET,SCAPOT                05481000
+CIBM                                                                    05482000
+      COMMON /OUTPUT/ NOUT,INP                                          05483000
+      DIMENSION       TR(N41,N27),TI(N41,N27),TRS(N41,N27),TIS(N41,N27) 05484000
+C     COMMON/RATION/ ARG,PSIEZ                                          05485000
+      COMMON/INTEGL/ BETA,THETA,A,FJ,RHO,HH,TEST1,FJN,FJ2N,TERM2,FJT    05486000
+C     COMMON/REAIMW/AX,WHY,REW,AIMW                                     05487000
+      COMMON /DRCUNR/ TEMPM,ABUNDI,AM,CMCOR,LSTI,JSTI,IFIS,             05488000
+     1                NPORTR,NHERM,NHERM2,NOVRLP,MAT,NPT1,RPENTR,       05489000
+     2                RPSHFT,NGUS13,NGUS9,WATE13,WATE9,SIGP             05490000
+      COMMON /UNRDAT/ ETA(5),                                           05491000
+     1                AVGGM(5),AVGGM2(5),AVGTO(5),AVGTO2(5),AVGR2(5),   05492000
+     2                VECTOR(5),AVGFS(5),AVGFS2(5),E1(10),E2(10),       05493000
+     3                ANORM(10),A11(25),A12(25),D11(25),D12(25),        05494000
+     4                AMATRX(25),                                       05495000
+     8                JST(3),G(12),NDFN(12),NDFF(12),                   05496000
+     A                AVGCS(5),AVGCS2(5),                               05497000
+     B                NDFX(12)                                          05498000
+      DIMENSION SIGCAP(N150),SIGFIS(N150),SIGTOT(N150),ZETA(1000),      05499000
+     1          PSIZRO(1000),BETPSI(1000),BBETA(4000),BVCTR(5000),      05500000
+     2          PVCTR(5000),RVCTR(5000),GAMTOT(2000),GAMFIS(2000),      05501000
+     3          PSHFT0(N150),PSHFT1(N150),PSHFT2(N150),V1(N150),        05502000
+     4          V2(N150),ES(N150),GF(N150,12),D(N150,12),GG(N150,12),   05503000
+     5          GNO(N150,12),DELTA(N150),GAMCMP(2000),SIGCMP(N150),     05504000
+     6          GX(N150,12)                                             05505000
+      DIMENSION SIGPOT(N150)                                            05506000
+C                                                                       05507000
+      DATA CAPTUR/7HCAPTURE/,FISION/7HFISSION/,                         05508000
+     1     TOTAL/7H TOTAL /,COMPET/8HCOMPET. /,SCAPOT/8HPOT.SCAT/       05509000
+C                                                                       05510000
+C                                                                       05511000
+       INP=INPP                                                         05512000
+       NOUT=NOUTT                                                       05513000
+       MAT=MATT                                                         05514000
+       ABUNDI=ABUNDD                                                    05515000
+       NOVRLP=NOVRPP                                                    05516000
+       AM=AMMM                                                          05517000
+          IFIS=IFISS                                                    05518000
+C                                                                       05519000
+C       SIMULAZIONE DEL LOOP SU ISOTOPI CHE QUI E STATO SOPPRESSO       05520000
+C       VENGONO FISSATE LE VARIABILI CHE IL LOOP DEFINIVA               05521000
+        TEMPM=TEMP                                                      05522000
+C       IT=1                                                            05523000
+C       ISIG=1                                                          05524000
+        SIGP=SIGBK                                                      05525000
+C       IS=1                                                            05526000
+C                                                                       05527000
+C                                                                       05528000
+C      IL  RECORD HEAD INIZIALE  STA IN ARGOMENTO                       05529000
+       IF(NFLRIS.LE.0) GO TO 100                                        05530000
+C                                                                       05531000
+C     SET CONSTANTS                                                     05532000
+C                                                                       05533000
+C     10 POINT PORTER-THOMAS INTEGRATION. THE CHOICE OF 10 DETERMINES   05534000
+C     THE DIMENSION OF X AND THE INITIALIZATION OF X IN SUBROUTINE      05535000
+C     UNRINT                                                            05536000
+C                                                                       05537000
+C                                                                       05538000
+C************************                                               05539000
+      NPORTR=10                                                         05540000
+C************************                                               05541000
+C                                                                       05542000
+C                                                                       05543000
+C     10 POINT GAUSS-HERMITE INTEGRATION. THE CHOICE OF 10 DETERMINES   05544000
+C     THE DIMENSIONS OF XGH, WGH, AND E3 AND THE INITIALIZATION OF XGH, 05545000
+C     WGH, AND 53 IN SUBROUTINE UNRINT.  NHERM2=NHERM/2                 05546000
+C                                                                       05547000
+C                                                                       05548000
+C************************                                               05549000
+      NHERM=10                                                          05550000
+      NHERM2=5                                                          05551000
+C************************                                               05552000
+C                                                                       05553000
+C                                                                       05554000
+C     13 POINT GAUSS-JACOBI INTEGRATION. THE CHOICE OF 13 DETERMINES    05555000
+C     THE DIMENSION OF ZLP AND THE INITIALIZATION OF ZLP IN SUBROUTINE  05556000
+C     QUICKJ                                                            05557000
+C                                                                       05558000
+C                                                                       05559000
+C************************                                               05560000
+      NGUS13=13                                                         05561000
+C************************                                               05562000
+C                                                                       05563000
+C                                                                       05564000
+C     WATE13=PI/13                                                      05565000
+C                                                                       05566000
+C************************                                               05567000
+      WATE13=0.2416609734                                               05568000
+C************************                                               05569000
+C                                                                       05570000
+C     9 POINT GAUSS-JACOBI INTEGRATION. THE CHOICE OF 9 DETERMINES      05571000
+C     THE DIMENSION OF ALP AND THE INITIALIZATION OF ALP IN SUBROUTINE  05572000
+C     QUICKJ                                                            05573000
+C                                                                       05574000
+C************************                                               05575000
+      NGUS9=9                                                           05576000
+C************************                                               05577000
+C                                                                       05578000
+C     WATE9=PI/9                                                        05579000
+C                                                                       05580000
+C************************                                               05581000
+      WATE9=0.349065850504                                              05582000
+C************************                                               05583000
+C                                                                       05584000
+C                                                                       05585000
+C          READS MATERIAL AND COMPUTES SIGPOT=POTENTIAL SCATTERING      05586000
+C                                  USING ENDFB FORMULAE                 05587000
+ 100      CALL INPUT(NTIN,INTERP,ZAI,L1,IFIS,EL,EH,LRU,LRF,             05588000
+     3N150,SIGCAP,SIGFIS,SIGTOT,ZETA,PSIZRO,BETPSI,BBETA,               05589000
+     4BVCTR,PVCTR,RVCTR,GAMTOT,GAMFIS,PSHFT0,PSHFT1,PSHFT2,V1,V2,       05590000
+     5ES,GF,D,GG,GNO,DELTA,GAMCMP,SIGCMP,GX,SIGPOT )                    05591000
+C                                                                       05592000
+       IF(NFLRIS.LE.0) GO TO 200                                        05593000
+C                                                                       05594000
+C                                                                       05595000
+           CALL UNRINT(N41,N27,TR,TI,TRS,TIS,                           05596000
+     3N150,SIGCAP,SIGFIS,SIGTOT,ZETA,PSIZRO,BETPSI,BBETA,               05597000
+     4BVCTR,PVCTR,RVCTR,GAMTOT,GAMFIS,PSHFT0,PSHFT1,PSHFT2,V1,V2,       05598000
+     5ES,GF,D,GG,GNO,DELTA,GAMCMP,SIGCMP,GX,SIGPOT  )                   05599000
+C                                                                       05600000
+C       RIBALTA TUTTE LE UNRES PER AVERLE PER E DECRESCENTI             05601000
+       CALL RIBA(NPT1,SIGCAP)                                           05602000
+       CALL RIBA(NPT1,SIGFIS)                                           05603000
+       CALL RIBA(NPT1,SIGCMP)                                           05604000
+       CALL RIBA(NPT1,SIGTOT)                                           05605000
+ 200   CALL RIBA(NPT1,SIGPOT)                                           05606000
+       CALL RIBA(NPT1,ES)                                               05607000
+C                                                                       05608000
+C        VENGONO CALCOLATE (EX /UNRDAT/) :   SIGCAP(NPT1),SIGFIS(NPT1), 05609000
+C         SIGTOT(NPT1) , SIGCMP(NPT1)                                   05610000
+       IF(STMP.LT.10) GO TO 400                                         05611000
+      WRITE (NOUT,1040) SIGP,TEMPM                                      05612000
+      WRITE (NOUT,1025) (I,ES(I),I=1,NPT1)                              05613000
+      WRITE (NOUT,1050) SCAPOT,(I,SIGPOT(I),I=1,NPT1)                   05614000
+       IF(NFLRIS.LE.0) GO TO 400                                        05615000
+      WRITE (NOUT,1050) CAPTUR,(I,SIGCAP(I),I=1,NPT1)                   05616000
+      IF (IFIS.NE.0) WRITE (NOUT,1050) FISION,(I,SIGFIS(I),I=1,NPT1)    05617000
+      WRITE (NOUT,1050) TOTAL,(I,SIGTOT(I),I=1,NPT1)                    05618000
+      WRITE (NOUT,1050) COMPET,(I,SIGCMP(I),I=1,NPT1)                   05619000
+ 1000 FORMAT(12I6)                                                      05620000
+ 1010 FORMAT(6E12.5)                                                    05621000
+ 1020 FORMAT(A3)                                                        05622000
+ 1025 FORMAT(' ENERGY POINTS :'/7(1H ,2X,I3,1P1E12.4))                  05623000
+ 1030 FORMAT(1H1,36X,14HISOTOPE NUMBER,I2,33H OF UNRESOLVED RESONANCE MA05624000
+     1TERIAL,I6/1H ,36X,57H=============================================05625000
+     2============/1H0,48X,34HUNRESOLVED RESONANCE ENERGY POINTS//      05626000
+     37(1H ,2X,I3,1P1E12.4))                                            05627000
+ 1040 FORMAT(1H0,43X,6HSIGP =,1P1E12.4,14H TEMPERATURE =,1P1E12.4/      05628000
+     11H ,43X,44(1H=))                                                  05629000
+ 1050 FORMAT(1H0,42X,21HUNRESOLVED RESONANCE ,A7,15H CROSS SECTIONS//   05630000
+     17(1H ,2X,I3,1P1E12.4))                                            05631000
+ 3000 FORMAT(2E11.4,4I11,I4,I2,I3)                                      05632000
+C                                                                       05633000
+ 400       RETURN                                                       05634000
+           END                                                          05635000
+         SUBROUTINE INPUT(NTIN,INTERP,ZAI,L1,IFISS,EL,EH,LRU,LRF,       05636000
+     3N150,SIGCAP,SIGFIS,SIGTOT,ZETA,PSIZRO,BETPSI,DMM,                 05637000
+     4BVCTR,PVCTR,RVCTR,GAMTOT,GAMFIS,PSHFT0,PSHFT1,PSHFT2,V1,V2,       05638000
+     5ES,GF,D,GG,GN0,DEL,GAMCMP,SIGCMP,GX,SIGPOT   )                    05639000
+C        *********************************************                  05640000
+C       I DATI IN ARGOMENTO SONO I PRIMI 2 RECORDS CONT DI ENDFB CHE    05641000
+C       NON VENGONO PIU LETTI IN QUESTA SUBROUTINE, MA IN QUELLA CHE    05642000
+C       LA CHIAMA . CI SONO POI THE ARRAYS OF COMMON /UNRDAT/ NOW       05643000
+C       PLACED IN ARGOMENTO ALLE SUBROUTINES                            05644000
+C                                                                       05645000
+C       HO INTRODOTTO IL CALCOLO DI SIGMA SCATTERING POTENZIALE CHE POI 05646000
+C       IN UNRINT METTO IN SIGP.                                        05647000
+C        QUI VIENE CALCOLATA UNA SIGP1: SEZIONE D'URTO GEOMETRICA=      05648000
+C       4 * PIGREC *(AP)**2 CHE POI NON VIENE USATA DA NESSUNA          05649000
+C        PARTE POICHE IN /DRCUNR/ MANCA L'ULTIMO NOME SIGP              05650000
+C        ( 8 - 85  - GALLI)                                             05651000
+C                                                                       05652000
+C                                                                       05653000
+C     SUBROUTINE INPUT READS THE BCD INPUT DATA DESCRIBING THE          05654000
+C     UNRESOLVED RESONANCE PARAMETERS.  THE INPUT FORMAT IS CONSISTENT  05655000
+C     WITH ENDF/B SPECIFICATIONS.  THIS SUBROUTINE IS BASED UPON CODE   05656000
+C     WRITTEN BY C.G. STENBERG FOR THE PROGRAM ETOE-2.                  05657000
+C                                                                       05658000
+C                                                                       05659000
+C     SUBPROGRAMS CALLED BY SUBROUTINE INPUT                            05660000
+C                                                                       05661000
+C     ALOG              FORTRAN LOGARITHMIC FUNCTION                    05662000
+C     ATAN              FORTRAN ARC TANGENT FUNCTION (SINGLE PRECISION) 05663000
+C     SQRT              FORTRAN SQUARE ROOT FUNCTION (SINGLE PRECISION) 05664000
+C                                                                       05665000
+C     COMMON BLOCK IS DIMENSIONED FOR 150 ENERGY POINTS,                05666000
+C     3 L STATES, 12 SEQUENCES (SUM OVER J FOR ALL L STATES)            05667000
+C                                                                       05668000
+C     COMMON /UNRDAT/ SIGCAP(150),SIGFIS(150),SIGTOT(150),ETA(5),       05669000
+C    1                AVGGM(5),AVGGM2(5),AVGTO(5),AVGTO2(5),AVGR2(5),   05670000
+C    2                VECTOR(5),AVGFS(5),AVGFS2(5),E1(10),E2(10),       05671000
+C    3                ANORM(10),A11(25),A12(25),D11(25),D12(25),        05672000
+C    4                AMATRX(25),ZETA(1000),PSIZRO(1000),BETPSI(1000),  05673000
+C    5                DMM(4000),BVCTR(5000),PVCTR(5000),RVCTR(5000),    05674000
+C    6                GAMTOT(2000),GAMFIS(2000),PSHFT0(150),PSHFT1(150),05675000
+C    7                PSHFT2(150),V1(150),V2(150),ES(150),              05676000
+C    8                JST(3),G(12),NDFN(12),NDFF(12),GF(150,12),        05677000
+C    9                D(150,12),GG(150,12),GN0(150,12),DEL(150),        05678000
+C    A                GAMCMP(2000),SIGCMP(150),AVGCS(5),AVGCS2(5),      05679000
+C    B                NDFX(12),GX(150,12)                               05680000
+      COMMON /UNRDAT/ ETA(5),                                           05681000
+     1                AVGGM(5),AVGGM2(5),AVGTO(5),AVGTO2(5),AVGR2(5),   05682000
+     2                VECTOR(5),AVGFS(5),AVGFS2(5),E1(10),E2(10),       05683000
+     3                ANORM(10),A11(25),A12(25),D11(25),D12(25),        05684000
+     4                AMATRX(25),                                       05685000
+     8                JST(3),G(12),NDFN(12),NDFF(12),                   05686000
+     A                AVGCS(5),AVGCS2(5),                               05687000
+     B                NDFX(12)                                          05688000
+      DIMENSION SIGCAP(N150),SIGFIS(N150),SIGTOT(N150),ZETA(1000),      05689000
+     1          PSIZRO(1000),BETPSI(1000),DMM(4000),BVCTR(5000),        05690000
+     2          PVCTR(5000),RVCTR(5000),GAMTOT(2000),GAMFIS(2000),      05691000
+     3          PSHFT0(N150),PSHFT1(N150),PSHFT2(N150),V1(N150),        05692000
+     4          V2(N150),ES(N150),GF(N150,12),D(N150,12),GG(N150,12),   05693000
+     5          GN0(N150,12),DEL(N150),GAMCMP(2000),SIGCMP(N150),       05694000
+     6          GX(N150,12)                                             05695000
+      DIMENSION SIGPOT(N150)                                            05696000
+C                                                                       05697000
+      COMMON /DRCUNR/ TEMPM,ABUNDI,AM,CMCOR,LSTI,JSTI,IFIS,             05698000
+     1                NPORTR,NHERM,NHERM2,NOVRLP,MAT,NPT1,RPENTR,       05699000
+     2                RPSHFT,NGUS13,NGUS9,WATE13,WATE9                  05700000
+      COMMON /OUTPUT/ NOUT,INP                                          05701000
+C                                                                       05702000
+       COMMON/FILES/NT(4,99)                                            05703000
+       COMMON/OPZIO/OPZ(4,8,10)                                         05704000
+C                                                                       05705000
+C      INTERPOLATION PARAMETER OF ENDFB ( DEFAULT IS LINEAR=2)          05706000
+C      INTERP=2=OPZ(2,3,9) FISSATO IN P2MCF5                            05707000
+C       THIS PARAMETER IS NOT READ IN THIS ROUTINE                      05708000
+C                                                                       05709000
+C     NUMBER OF UNRESOLVED ENERGY POINTS WHEN ALL ENERGY INDEPENDENT    05710000
+C     PARAMETERS ARE GIVEN                                              05711000
+C                                                                       05712000
+       LNEUU=OPZ(2,3,2)                                                 05713000
+       IF(LNEUU.LE.0) LNEUU=15                                          05714000
+C      ETOE-II ED UNRES USANO SOLO 15 PUNTI                             05715000
+C                                                                       05716000
+C     ISOTOPE CONTROL RECORD                                            05717000
+C                                                                       05718000
+C         NON VENGONO LETTI PIU QUESTI, MA SONO DATI IN ARGOMENTO       05719000
+C     READ (INP,3000) ZAI,ABUNDI,L1,IFIS                                05720000
+C     READ (INP,3000) EL,EH,LRU,LRF                                     05721000
+C                                                                       05722000
+C     THE L-STATES AND J-STATES ARE COMBINED INTO SEQUENCES-ISQ         05723000
+C                                                                       05724000
+      ISQ=0                                                             05725000
+      IF (LRF.EQ.2) GO TO 255                                           05726000
+      IF (IFIS.NE.0) GO TO 250                                          05727000
+C                                                                       05728000
+C     ISOTOPE IS NON-FISSIONABLE. ALL ENERGY INDEPENDENT PARAMETERS.    05729000
+C     LRU=2,LRF=1,AND LFW=0                                             05730000
+C                                                                       05731000
+      READ(INP,3000)SPI,A,LIS,L2,N1                                     05732000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           05733000
+      LSTI=N1                                                           05734000
+C     SIGP1=12.56637062*A*A*ABUNDI                                      05735000
+      IF(N1.LE.0)GOTO245                                                05736000
+      DO 345 IL=1,N1                                                    05737000
+      READ (INP,3000) AWRI,DUM2,L,L2,N2,JST(IL),MAT,MF,MT,              05738000
+     1                (DMM(I),I=1,N2)                                   05739000
+      NT(4,NTIN)=NT(4,NTIN)+1+JST(IL)                                   05740000
+      INTERP=1                                                          05741000
+      IF(N2.LE.0)GOTO245                                                05742000
+      DO 344 I=1,N2,6                                                   05743000
+      ISQ=ISQ+1                                                         05744000
+      G(ISQ)=(DMM(I+1)+.5)/(2.*SPI+1.)                                  05745000
+      NDFN(ISQ)=DMM(I+2)                                                05746000
+      NDFF(ISQ)=1                                                       05747000
+      NDFX(ISQ)=0                                                       05748000
+      DO 244 IX=1,LNEUU                                                 05749000
+      GF(IX,ISQ)=0.                                                     05750000
+      GX(IX,ISQ)=0.                                                     05751000
+      D(IX,ISQ)=DMM(I)                                                  05752000
+      GG(IX,ISQ)=DMM(I+4)                                               05753000
+      GN0(IX,ISQ)=DMM(I+3)                                              05754000
+  244 CONTINUE                                                          05755000
+  344 CONTINUE                                                          05756000
+  345 CONTINUE                                                          05757000
+  245 CONTINUE                                                          05758000
+      RPENTR=2.196771E-4*AWRI/(AWRI+1.)*(1.23*(AWRI)**(1./3.)+0.8)      05759000
+      RPSHFT=2.196771E-3*AWRI/(AWRI+1.)*A                               05760000
+      NPT1=LNEUU                                                        05761000
+      IF (NPT1.EQ.0) NPT1=15                                            05762000
+C                                                                       05763000
+C     CALCULATE ENERGIES USING EQUAL LETHARGYS.                         05764000
+C                                                                       05765000
+      DE=LNEUU-1                                                        05766000
+      DE=ALOG(EH/EL)/DE                                                 05767000
+      DE=EXP(DE)                                                        05768000
+      ES(1)=EL                                                          05769000
+      LNEU1=LNEUU-1                                                     05770000
+      DO 248 I=2,LNEU1                                                  05771000
+      ES(I)=ES(I-1)*DE                                                  05772000
+  248 CONTINUE                                                          05773000
+      ES(LNEUU)=EH                                                      05774000
+      DO 249 IX=1,LNEUU                                                 05775000
+      DEL(IX)=SQRT(ES(IX)*3.44672E-4/AWRI)                              05776000
+  249 CONTINUE                                                          05777000
+      GO TO 260                                                         05778000
+C                                                                       05779000
+C     UNRESOLVED DATA IN FISSIONABLE FORM. FISSION WIDTHS GIVEN.        05780000
+C     LRU=2,LRF=1,AND LFW=1                                             05781000
+C                                                                       05782000
+  250 CONTINUE                                                          05783000
+      READ(INP,3000)SPI,A,LIS,L2,N1,N2,MAT,MF,MT,(DMM(I),I=1,N1)        05784000
+      NT(4,NTIN)=NT(4,NTIN)+1+N1/6+NREST(N1,6)                          05785000
+      INTERP=1                                                          05786000
+      DO 251 I=1,N1                                                     05787000
+      ES(I)=DMM(I)                                                      05788000
+  251 CONTINUE                                                          05789000
+      NPT1=N1                                                           05790000
+      LSTI=N2                                                           05791000
+C     SIGP1=12.56637062*A*A*ABUNDI                                      05792000
+      IF(N2.LE.0)GO TO 254                                              05793000
+      DO 253 IL=1,N2                                                    05794000
+      READ(INP,3000)AWRI,DUM2,L,L2,N3                                   05795000
+       NT(4,NTIN)=NT(4,NTIN)+1                                          05796000
+      JST(IL)=N3                                                        05797000
+      DO 352 IJ=1,N3                                                    05798000
+      ISQ=ISQ+1                                                         05799000
+      READ(INP,3000)DUM1,DUM2,L1,NDFF(ISQ),NDUM,NDUM,MAT,MF,MT,         05800000
+     1DUM3,AJ,DUM5,DUM6,DUM7,DUM8,(DMM(I),I=1,N1)                       05801000
+       NT(4,NTIN)=NT(4,NTIN)+2+N1/6+NREST(N1,6)                         05802000
+      NDFN(ISQ)=DUM5                                                    05803000
+      NDFX(ISQ)=0                                                       05804000
+      G(ISQ)=(AJ+.5)/(2.*SPI+1.)                                        05805000
+      DO 252 I=1,N1                                                     05806000
+      GF(I,ISQ)=DMM(I)                                                  05807000
+      GX(I,ISQ)=0.                                                      05808000
+      D(I,ISQ)=DUM3                                                     05809000
+      GG(I,ISQ)=DUM7                                                    05810000
+      GN0(I,ISQ)=DUM6                                                   05811000
+      DEL(I)=SQRT(ES(I)*3.44672E-4/AWRI)                                05812000
+  252 CONTINUE                                                          05813000
+  352 CONTINUE                                                          05814000
+  253 CONTINUE                                                          05815000
+  254 CONTINUE                                                          05816000
+      RPENTR=2.196771E-4*AWRI/(AWRI+1.)*(1.23*(AWRI)**(1./3.)+0.8)      05817000
+      RPSHFT=2.196771E-3*AWRI/(AWRI+1.)*A                               05818000
+      GO TO 260                                                         05819000
+C                                                                       05820000
+C     UNRESOLVED DATA WITH ALL ENERGY-DEPENDENT PARAMETERS              05821000
+C     LRU=2,LRF=2,LFW=0 OR 1                                            05822000
+C                                                                       05823000
+  255 CONTINUE                                                          05824000
+      READ(INP,3000)SPI,A,LIS,L2,N1,N2                                  05825000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           05826000
+      LSTI=N1                                                           05827000
+C     SIGP1=12.56637062*A*A*ABUNDI                                      05828000
+      DO 259 IL=1,N1                                                    05829000
+      READ(INP,3000)AWRI,DUM2,L,L2,N3,N4                                05830000
+       NT(4,NTIN)=NT(4,NTIN)+1                                          05831000
+      JST(IL)=N3                                                        05832000
+      DO 258 IJ=1,N3                                                    05833000
+      ISQ=ISQ+1                                                         05834000
+      READ(INP,3000)AJ,DUM2,L1,L2,N5,NPT1,MAT,MF,MT,(DMM(I),I=1,N5)     05835000
+       NT(4,NTIN)=NT(4,NTIN)+1+N5/6+NREST(N5,6)                         05836000
+C                                                                       05837000
+C      SET INTEPOLATION PARAMETER FOR INTS ROUTINE ( SI PRENDE LA LEGGE 05838000
+C      PIU COMPLICATA)                                                  05839000
+       IF(L1.GT.INTERP) INTERP=L1                                       05840000
+C                                                                       05841000
+      NDFX(ISQ)=DMM(3)                                                  05842000
+      NDFN(ISQ)=DMM(4)                                                  05843000
+      NDFF(ISQ)=DMM(6)                                                  05844000
+      G(ISQ)=(AJ+.5)/(2.*SPI+1.)                                        05845000
+      IE=1                                                              05846000
+      DO 256 I=7,N5,6                                                   05847000
+C                                                                       05848000
+C     IT IS ASSUMED THAT THE SAME ENERGIES ARE USED FOR ALL SEQUENCES   05849000
+C                                                                       05850000
+      ES(IE)=DMM(I)                                                     05851000
+      DEL(IE)=SQRT(ES(IE)*3.44672E-4/AWRI)                              05852000
+      D(IE,ISQ)=DMM(I+1)                                                05853000
+      GX(IE,ISQ)=DMM(I+2)                                               05854000
+      GN0(IE,ISQ)=DMM(I+3)                                              05855000
+      GG(IE,ISQ)=DMM(I+4)                                               05856000
+      GF(IE,ISQ)=DMM(I+5)                                               05857000
+      IE=IE+1                                                           05858000
+  256 CONTINUE                                                          05859000
+  258 CONTINUE                                                          05860000
+  259 CONTINUE                                                          05861000
+      RPENTR=2.196771E-4*AWRI/(AWRI+1.)*(1.23*(AWRI)**(1./3.)+0.8)      05862000
+      RPSHFT=2.196771E-3*AWRI/(AWRI+1.)*A                               05863000
+  260 CONTINUE                                                          05864000
+C                                                                       05865000
+C     CALCULATE THE CENTER OF MASS CORRECTION FACTOR FOR USE IN         05866000
+C     SIGMA 0                                                           05867000
+C                                                                       05868000
+      CMCOR=(AM+1.0)*(AM+1.0)/(AM*AM)                                   05869000
+C     ?????????? NON DOVREBBE ESSERE AWRI INVECE DI AM ?????            05870000
+C     AD OGNI MODO LA DIFFERENZA E' PICCOLA                             05871000
+C                                                                       05872000
+C                                                                       05873000
+C     CALCULATE DELTA SUB 0, DELTA SUB 1, AND DELTA SUB 2, THE          05874000
+C     L=0,1, AND 2 PHASE SHIFTS                                         05875000
+C                                                                       05876000
+C      CALCOLO DI K (NUMERO D'ONDA)                                     05877000
+       CAPPA2=(2.196771E-3*AWRI/(AWRI+1))**2                            05878000
+C                                                                       05879000
+      DO 300 N=1,NPT1                                                   05880000
+C            RPENTR E' IL RHO NELLE NOTAZIONI DEL MANUALE DI ENDFB      05881000
+C            RPSHFT  IL RHO SOPRASSEGNATO                               05882000
+C            PSHFT0-1-2   IL FHI                                        05883000
+C            V1-2        I V (PAGINA D.19 DEL MANUALE DI ENDFB-V)       05884000
+      RPENT1=RPENTR*SQRT(ES(N))                                         05885000
+      RPSHF1=RPSHFT*SQRT(ES(N))                                         05886000
+      PSHFT0(N)=RPSHF1                                                  05887000
+      X=RPSHF1                                                          05888000
+      PSHFT1(N)=X-ATAN(X)                                               05889000
+      X2=3.0*X/(3.0-X*X)                                                05890000
+      PSHFT2(N)=X-ATAN(X2)                                              05891000
+C                                                                       05892000
+C     CALCULATE THE L=1 AND L=2 PENETRATION FACTORS                     05893000
+C                                                                       05894000
+      X=RPENT1*RPENT1                                                   05895000
+      V1(N)=X/(1.0+X)                                                   05896000
+      V2(N)=X*X/(9.0+X*(3.0+X))                                         05897000
+C         CALCOLO DELLA SEZIONE D'URTO POTENZIALE DI SCATTERING         05898000
+C         LE FORMULE SONO QUELLE DEL MANUALE DI ENDFB-V                 05899000
+       SIGPOT(N)=12.5663706/CAPPA2/ES(N)*                               05900000
+     1             (SIN(PSHFT0(N))**2  +                                05901000
+     2            3*SIN(PSHFT1(N))**2 + 5*SIN(PSHFT2(N))**2  )          05902000
+  300 CONTINUE                                                          05903000
+C                                                                       05904000
+C     DETERMINE SUM OVER ALL L OF JST(L)                                05905000
+C                                                                       05906000
+      JSTI=0                                                            05907000
+      DO 310 L=1,LSTI                                                   05908000
+      JSTI=JSTI+JST(L)                                                  05909000
+  310 CONTINUE                                                          05910000
+ 3000 FORMAT(2E11.4,4I11,I4,I2,I3/(6E11.4))                             05911000
+      RETURN                                                            05912000
+      END                                                               05913000
+      SUBROUTINE INTUN(NFLRIS,INTERP,NTI,NTO,NTOUT,NMT,M2,NG,EUP,DELU,E,05914000
+     1MA,SIG,MINDX1,AINDX,M1,MIX,N150,ES,SIGU,T  ,MAA,A)                05915000
+C     ******************************************************************05916000
+C                                                                       05917000
+C       ULTRAFINE GROUP RESONANCE CROSS SECTIONS COMPUTED FROM CROSS    05918000
+C       SECTIONS COMPUTED AT E* POINTS BY UNRES IN COMMON /UNRDAT/      05919000
+C                                                                       05920000
+C     ******************************************************************05921000
+C                                                                       05922000
+C      LE SIGU CONTENGONO : CATTURA,FISSIONE,TOTAL,SCATTERING           05923000
+C       (OTTENUTO DA TOTAL-FISSIONE-CATTURA), LO SCATTERING POTENZIALE  05924000
+C                                                                       05925000
+      DIMENSION E(NG),SIG(MA),AINDX(MINDX1),MIX(M1,M2),A(MAA)           05926000
+      DIMENSION ES(N150),SIGU(N150,5)                                   05927000
+      DIMENSION N(14)                                                   05928000
+C                                                                       05929000
+       REAL*8 NOME(5)                                                   05930000
+       DATA NOME/8HCAPTURE ,8HFISSION ,8HTOTAL   ,8HSCATTER ,8HPOT.SCAT/05931000
+C                                                                       05932000
+       COMMON/FILES/NT(4,99)                                            05933000
+       EQUIVALENCE(NO,NT(1,6)),(PESO,OPZ(2,3,10)),(NP,NT(1,11))         05934000
+      COMMON /OPZIO/OPZ(4,8,10)                                         05935000
+       EQUIVALENCE (OPZ(2,5,1),STMP)                                    05936000
+      COMMON /DIM/NMX,MIND,MNX2,IND2                                    05937000
+       COMMON /DIMC/MDUMD(15),MIND11,MIND12                             05938000
+      COMMON/INDX1/AINDX1(40,200)                                       05939000
+      IF(NG.GT.MA) CALL ERR(8H INTUN   , 0)                             05940000
+C                                                                       05941000
+       N1=1                                                             05942000
+       IF(NFLRIS.LE.0) N1=5                                             05943000
+       N2=5                                                             05944000
+C                                                                       05945000
+C      LOOP SU  CATT,FISS,TOT,SCATT,SCATT POT                           05946000
+      DO 10 I=N1,N2                                                     05947000
+C                                                                       05948000
+C      INTEGRAZIONE SIGMA UNRES DA ES A GRUPPI ULTRAFINI                05949000
+C     LEGGE DI INTERPOLAZIONE : LIN,S-LOG E, LOG-LOG DEFINED BY INTERP  05950000
+C      OPZIONE DI ANDAMENTO FLUSSO : 1/E                                05951000
+C                                                                       05952000
+C                                                                       05953000
+C       NOTE ON CULLEN METHOD INSERTION                                 05954000
+C       PER INSERIRE QUI LE METODOLOGIE DI CULLEN SI FA:                05955000
+C      1) SI LINEARIZZA LA TABULAZIONE E-SIGMA                          05956000
+C      2) SI ALLARGA DOPPLER CON IL PROGRAMMA DI GABRIELE               05957000
+C      3) SI VA AVANTI CHE SOTTO INTS1 INTEGRA ( A 100 )                05958000
+C      4) SI FA CORRERE UNRES SENZA ALLARGARE (T=0)                     05959000
+C                                                                       05960000
+       IF(OPZ(2,1,6).LE.0) GO TO 150                                    05961000
+       PRECIS=OPZ(2,1,6)                                                05962000
+C       SPAZI                                                           05963000
+       LKT=1                                                            05964000
+C              KT ESPANSO                                               05965000
+       LSS1=LKT+N150                                                    05966000
+       LTNP=(MAA-LSS1)/6                                                05967000
+       LEP=LSS1                                                         05968000
+C              EP - A                                                   05969000
+       LSP=LEP+LTNP                                                     05970000
+C              SP - C                                                   05971000
+       LEF=LSP+LNTP                                                     05972000
+C              EF                                                       05973000
+       LSF=LSP+LNTP                                                     05974000
+C              SF                                                       05975000
+       LKP=LSF+LNTP                                                     05976000
+C              KP - EA                                                  05977000
+       LSA=LKP+LNTP                                                     05978000
+C              SA                                                       05979000
+       LFIN=LSA+LNTP                                                    05980000
+C                                                                       05981000
+       IF(LFIN.GT.MAA) CALL ERR(8HINTUN        ,150)                    05982000
+       DO 20 IJ=1,N150                                                  05983000
+       A(IJ)=AREAL(INTERP)                                              05984000
+ 20    CONTINUE                                                         05985000
+        EINFER=EUP*EXP(-(NG+1)*DELU)                                    05986000
+       CALL LINSI1(N150,ES,SIGU(1,I),A(LKT),LNTP,A(LEF),A(LSF),A(LEP),  05987000
+     1 A(LSP),A(LKP),PRECIS,EINFER,EUP+100.)                            05988000
+       AWR=AINDX(5)                                                     05989000
+       NF=LNTP                                                          05990000
+       CALL BROAD(NF,TEMP,AWR,A(LEF),A(LSF),A(LKP),                     05991000
+     1 A(LSA),A(LEP),A(LSP) )                                           05992000
+C         INTEGRA A 2000 PUNTI                                          05993000
+       CALL RIEMP(0.0,NG,SIG)                                           05994000
+       CALL INTS1(PESO,INTERP,NG,E,SIG,NF,A(LEF),A(LSA))                05995000
+       GO TO 200                                                        05996000
+C                                                                       05997000
+ 150   CALL RIEMP(0.0,NG,SIG)                                           05998000
+C                                                                       05999000
+      CALL INTS1(PESO,INTERP,NG,E,SIG,N150,ES,SIGU(1,I))                06000000
+C                                                                       06001000
+C      SCRITTURA SU TAPES                                               06002000
+C     ARRIVA QUI SENZA IDENTIFICATORI IL NUCLIDE E QUI NON METTO IDENTIF06003000
+ 200  IF(NMT.GT.M2) GO TO 600                                           06004000
+      NOM=MIX(3,NMT)                                                    06005000
+      NOM1=MIX(4,NMT)                                                   06006000
+      NOM2=MIX(1,NMT)                                                   06007000
+      NOM3=MIX(2,NMT)                                                   06008000
+      GO TO 610                                                         06009000
+C      ANDREBBE MESSO ENDFB ID COME CARATTERE MA NON HO FATTO LA SUBROUT06010000
+ 600  NOM=NAREAL(AINDX(35))                                             06011000
+      NOM1=NAREAL(AINDX(36))                                            06012000
+      NOM2=NAREAL(AINDX(35))                                            06013000
+      NOM3=NAREAL(AINDX(36))                                            06014000
+ 610  CONTINUE                                                          06015000
+      CALL POSL(NTOUT)                                                  06016000
+C      POSIZIONA TAPE OUT AL PRIMO RECORD LIBERO                        06017000
+C      LE RISONANZE HANNO SOLO MT=151                                   06018000
+C     WRITE(NTO) NOM2,NOM3,MAT,MF,MT                                    06019000
+C      FLAGS DEL TIPO DI REAZIONE :                                     06020000
+       REAZ=0.                                                          06021000
+       IF(I.EQ.1) REAZ=3.                                               06022000
+       IF(I.EQ.2) REAZ=2.                                               06023000
+       IF(I.EQ.3) REAZ=5.                                               06024000
+       IF(I.EQ.4) REAZ=1.                                               06025000
+       IF(I.EQ.5) REAZ=4.                                               06026000
+       CALL SOGLM(0.0,NLAST,NG,SIG)                                     06027000
+       CALL SOGLM1(0.0,NFIRST,NG,SIG)                                   06028000
+       IF(NLAST.LT.NFIRST) CALL ERR(8HINTUN     ,610)                   06029000
+       IF(NLAST.LE.0) GO TO 10                                          06030000
+C                                                                       06031000
+C     WRITE(NTO)(N(J),J=1,14)                                           06032000
+      WRITE(NTO)(SIG (J),J=NFIRST,NLAST)                                06033000
+C                                                                       06034000
+       IF(STMP.GT.100.)WRITE(NO,1000) NOM2,NOM3                         06035000
+ 1000  FORMAT(' PART 2: UNRESOLVED RESONANCE MULTIGROUP ',              06036000
+     1'CROSS SECTION PRODUCED:'/                                        06037000
+     2  1X,2A4,3I10)                                                    06038000
+       IF(STMP.GT.100.)                                                 06039000
+     1 WRITE(NO,2000) NOM2,NOM3,NOME(I),NFIRST,NLAST,T                  06040000
+       WRITE(NP,2001) NOM2,NOM3,NOME(I),NFIRST,NLAST,T                  06041000
+ 2000  FORMAT(1X,2A4,' REACTION: ',A8,5X,                               06042000
+     1        'FIRST GROUP:',I5,' LAST GROUP:',I5,' TEMPERATURE:',E12.5)06043000
+ 2001  FORMAT(1X,2A4,' REACTION:',A8,5X,                                06044000
+     1        'FIRST GROUP:',I4,' LAST GROUP:',I4,' TEMPER:',F5.0)      06045000
+       IF(STMP.GT.100) WRITE(NO,3000) (SIG(J),J=NFIRST,NLAST)           06046000
+ 3000  FORMAT(1X,10E12.5)                                               06047000
+C                                                                       06048000
+      IND2=IND2+1                                                       06049000
+      IF(IND2.GT.MIND12) CALL ERR(8H INTUN    ,10)                      06050000
+      CALL EMPIN(MIND11,AINDX1(1,IND2),AINDX(1),AINDX(2),AINDX(3),      06051000
+     1AINDX(4),AINDX(5),NOM,NOM1,NOM2,NOM3,AINDX(6),                    06052000
+     25.,3.,1.,FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(3,NTOUT)),1.,0.,0.,     06053000
+     3FLOAT(NG),EUP,DELU,0.,FLOAT(NLAST),2.,REAZ,0.,FLOAT(NFIRST),0.,   06054000
+     60.,AINDX(14),AINDX(15),0.,0.,AINDX(28),AINDX(9),AINDX(5),0.,0.,T) 06055000
+      NT(4,NTOUT)=NT(4,NTOUT)+1                                         06056000
+      NT(3,NTOUT)=NT(4,NTOUT)                                           06057000
+ 10   CONTINUE                                                          06058000
+       RETURN                                                           06059000
+      END                                                               06060000
+       SUBROUTINE RES(NTI,NTIN,NTO,NTOUT,NMT,NFLRIS,NDOP,TEMP,          06061000
+     1          N41,N27,TR,TI,TRS,TIS,                                  06062000
+     2          LRF,EH,EL,NG,E,SIG,                                     06063000
+     3          NPK,NRIS,PK,NBACK,BACK,NPMX,ERIS,GAM,PUNTO,PUNTO1,      06064000
+     4          MINDX1,AINDX,M1,M2,MIX,MAT,MF,MT,EUP,DELU)              06065000
+C      *****************************************************************06066000
+C     RESOLVED RESONANCE CROSS SECTION COMPUTED FROM RESONANCE PARAMETER06067000
+C                                                                       06068000
+C        == ALLO SCATTERING SI DEVE SOMMARE LO SCATTERING POTENZIALE..  06069000
+C        NON VIENE GENERATA UNA TOTAL . SE LA GENERARE POI LA           06070000
+C        PARTE TERZA SOMMANDO I CONTRIBUTI====                          06071000
+C                                                                       06072000
+C       !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! AA NOT JET IMPLEMENTED !!!!    06073000
+C       USA PER LE RISONANZE LE FORMULE DEL MANUALE DI ENDFB            06074000
+C       INTERPOLA LE SEZIONI D'URTO FINO A POTERLE RAPPRESENTARE        06075000
+C       CON APPROSSIMAZIONE LINEARE . POI INTEGRA LA FUNZIONE LINEARE   06076000
+C       CON PESO (FLUSSO) 1/E .                                         06077000
+C                                                                       06078000
+C       DI QUESTO GRUPPO DI ROUTINES FANNO PARTE:                       06079000
+C        SUBROUTINE ORDED : PER ORDINARE LE RISONANZE PER ENERGIA       06080000
+C        SUBROUTINE INTS1 : INTEGRAZIONE A GRUPPI DI UNA TABULAZIONE    06081000
+C        SUBROUTINE SIGR  : FORMULE DELLE SEZIONI D'URTO ALLARGATE DOPLE06082000
+C        FUNCTION FIL     : CALCOLO ANGOLO DI FASE DI FORMULE DELLE SIGM06083000
+C        SUBROUTINE GEDEP : CALCOLO GN ED ER DIP DA E IN FORM. DELLE SIG06084000
+C        SUBROUTINE QUICKW: PARTE REALE ED IMM DI FUNZ W PER FUNZ DOPPLE06085000
+C                                                                       06086000
+C             LE VARIABILI DI QUESTA ROUTINE SONO:                      06087000
+C             PK(NPK,NRIS)=PAR DI RIS: PER BW: L,ER,AJ,GT,GN,GG,GF      06088000
+C                      IN PIU PK A.G. PER BWML (OPPURE VUOTI):    +G,H  06089000
+C                      IN PIU PER ACCELERARE PK CALCOLATI IN RES:       06090000
+C                        ROE*SQRT(ER) ,  ZETA=GT/DELTR  ,         DELTR 06091000
+C             PUNTO(NPMX,5)=PUNTO INTERPOLATO: E ,PUNTO PREC A DX,      06092000
+C                           SIGMA CATT,FISS,SCATT )                     06093000
+C             PUNTO1(NPMX,4)= PUNTI ORDINATI : ENERGIA, SIGMA CATT,FISS 06094000
+C                                                              SCATT )  06095000
+C                  (LO SCATTERING POTENZIALE VA SOVRAPPOSTO             06096000
+C                   ALLO SCATTERING DI RISONANZA )                      06097000
+C                                                                       06098000
+C             BACK(6,NBACK) = BACKGROUND DI ADLER-ADLER                 06099000
+C             E(NG) = ENERGIE ESTREMO SUPERIORE GRUPPI ULTRAFINI        06100000
+C             SIG(NG)= SIGMA CALCOLATE A GRUPPI ULTRAFINI               06101000
+C             ERIS(NRIS),GAM(NRIS)=ERIS E GAM PER ROUTINE LINSIG        06102000
+C      *****************************************************************06103000
+C                                                                       06104000
+       DIMENSION TR(N41,N27),TI(N41,N27),TRS(N41,N27),TIS(N41,N27)      06105000
+       DIMENSION E(NG),SIG(NG),PK(NPK,NRIS),BACK(6,NBACK),PUNTO(NPMX,5) 06106000
+       DIMENSION AINDX(MINDX1),MIX(M1,M2),             PUNTO1(NPMX,4)   06107000
+       DIMENSION ERIS(NRIS),GAM(NRIS)                                   06108000
+       COMMON/DIM/NMX,MIND,MNX2,IND2                                    06109000
+       COMMON/DIMC/MDIMD(15),MIND11,MIND12                              06110000
+       COMMON/INDX1/AINDX1(40,200)                                      06111000
+       COMMON /OPZIO/OPZ(4,8,10)                                        06112000
+       COMMON/FILES/NT(4,99)                                            06113000
+       EQUIVALENCE(OPZ(2,5,9),PRECIS),(OPZ(2,5,1),STMP)                 06114000
+       EQUIVALENCE(OPZ(2,4,6),ADLRGS)                                   06115000
+           EQUIVALENCE (NO,NT(1,6)),(NPP,NT(1,11))                      06116000
+C                                                                       06117000
+       REAL*8 NOME(4)                                                   06118000
+       DATA NOME/8HCAPTURE ,8HFISSION   ,8HSCATTER  ,8HPOT.SCAT  /      06119000
+C                                                                       06120000
+        NFLGOU=0                                                        06121000
+C       NFLGOU FLAGS NO RESONANCES IN ENERGY RANGE                      06122000
+C      INTERP=OPZ(2,1,10)                                               06123000
+C      IF(INTERP.LE.0) INTERP=1                                         06124000
+        INTERP=1                                                        06125000
+C       LINEAR INTERPOLATION IS FORCED BEING LINEAR INTERPOLABLE THE    06126000
+C                                   COMPUTED CROSS SECTIONS             06127000
+       PESO=OPZ(2,1,8)                                                  06128000
+       IF(PESO.LE.0.) PESO=2.                                           06129000
+C                                                                       06130000
+C                                                                       06131000
+       AWRI=AINDX(5)                                                    06132000
+       AP=AINDX(17)                                                     06133000
+C      INIZIALIZZAZAIONI PER PARAMETRI DA USARE IN RES                  06134000
+       CAPPAE=2.196771E-3*AWRI/(AWRI+1)                                 06135000
+C              K/SQRT(E)=NUMERO D'ONDA NEUTRONE                         06136000
+       CAPPE2=12.56637/CAPPAE**2                                        06137000
+       ACR=.123*AWRI**(1./3.)+.08                                       06138000
+C              ACR = CHANNEL RADIUS                                     06139000
+       ROE=ACR*CAPPAE                                                   06140000
+C              RHO FOR SCHIFT FACTORS COMPUTATION                       06141000
+C                                                                       06142000
+C       FLAGS SEGNALANTI SE SONO STATI FATTI I PEZZI:                   06143000
+C          RISONANZA 1 - ESUP                                           06144000
+C          ESUP        - EINF                                           06145000
+C          EINF        - LAST RESONANCE OPPURE ULTIMO GRUPPO            06146000
+C                                                                       06147000
+       NFLAG1=0                                                         06148000
+       NFLAG2=0                                                         06149000
+       NFLAG3=0                                                         06150000
+C                                                                       06151000
+C      LETTURA RISONANZE ( TAPE POSIZIONATO DA SUB. P2MCF5)             06152000
+C                                                                       06153000
+       N1=0                                                             06154000
+          WRITE(NPP,9050)                                               06155000
+ 9050    FORMAT(10X,' RES.   RESOLVED MULTI-GROUP CROSS SECTIONS ')     06156000
+        IF(NDOP.GE.0) WRITE(NPP,9055) TEMP                              06157000
+ 9055    FORMAT(8X,' DOPPLER BROADENED TO TEMPERATURE:',E12.5)          06158000
+          IF(NFLRIS.LE.0) WRITE(NPP,9060)                               06159000
+          IF(NFLRIS.LE.0.AND.OPZ(2,4,2).LT.-3.) GO TO 490               06160000
+ 9060    FORMAT(8X,' ONLY POT. SCATT CROSS SECTION GENERATED')          06161000
+C          ..............................  B  W                         06162000
+       IF(LRF.GT.2) GO TO 200                                           06163000
+       READ(NTI,1000) SPI,AP,DUM,DUM,NLS                                06164000
+       NT(4,NTIN)=NT(4,NTIN)+1                                          06165000
+ 1000  FORMAT(2E11.4,4I11,I4,I2,I3/(6E11.4))                            06166000
+       DO 10 IL=1,NLS                                                   06167000
+       READ(NTI,1000) AWRI,QX,LL,LRX,NRS6,NRS,MAT,MF,MT,                06168000
+     1 ((PK(J,JJ+N1),J=2,7),JJ=1,NRS)                                   06169000
+       NT(4,NTIN)=NT(4,NTIN)+1+NRS                                      06170000
+       DO 15 IKL=1,NRS                                                  06171000
+       PK(10,IKL+N1)=ROE*SQRT(ABS(PK(2,IKL+N1)))                        06172000
+       PK(12,IKL+N1)=(2.*PK(3,IKL+N1)+1.)/(4.*SPI+2.)                   06173000
+       PK(13,IKL+N1)=SQRT(34.4668E-5*ABS(PK(2,IKL+N1))/AWRI*TEMP)       06174000
+       PK(11,IKL+N1)=PK(4,IKL+N1)/PK(13,IKL+N1)                         06175000
+ 15    PK(1,IKL+N1)=IL                                                  06176000
+       N1=N1+NRS                                                        06177000
+ 10    CONTINUE                                                         06178000
+C                                                                       06179000
+       GO TO 300                                                        06180000
+C                                                                       06181000
+C          ..............................  A  A                         06182000
+ 200           CONTINUE                                                 06183000
+       READ(NTI,1000) SPI,AP,DUM,DUM,NLS                                06184000
+       READ(NTI,1000)AWRI,DUM,LI,DUM,NX6,NX,MAT,MF,MT,                  06185000
+     1 ((BACK(J,JJ),J=1,6),JJ=1,NX)                                     06186000
+       NT(4,NTIN)=NT(4,NTIN)+2+NX                                       06187000
+       DO 20 IL=1,NLS                                                   06188000
+       READ(NTI,1000) DUM,DUM,DUM,DUM,NJS                               06189000
+       NT(4,NTIN)=NT(4,NTIN)+1                                          06190000
+        DO 25 IJ=1,NJS                                                  06191000
+       READ(NTI,1000) AJ,DUM,DUM,DUM,NLJ12,NLJ,MAT,MF,MT,               06192000
+     1 ((PK(J,JJ+N1),J=3,14),JJ=1,NLJ)                                  06193000
+       NT(4,NTIN)=NT(4,NTIN)+2*NLJ+1                                    06194000
+       DO 27 IKL=1,NLJ                                                  06195000
+       PK(2,IKL+N1)=AJ                                                  06196000
+ 27    PK(1,IKL+N1)=IL                                                  06197000
+ 25    N1=N1+NLJ                                                        06198000
+ 20    CONTINUE                                                         06199000
+C                                                                       06200000
+ 300   CONTINUE                                                         06201000
+       IF(N1.NE.NRIS) CALL ERR(8HRES           ,300)                    06202000
+C                                                                       06203000
+C       FINE LETTURA PARAMETRI ,. NEI PK CI SONO I PARAMETRI CHE ORA    06204000
+C       VENGONO ORDINATI PER ENERGIE DECRESCENTI                        06205000
+       NKE=2                                                            06206000
+       IF(LRF.EQ.4)NKE=3                                                06207000
+C       PER A A LA ENERGIA E' IN POSIZIONE 3, PER B W IN POS 1          06208000
+C                                                                       06209000
+       CALL ORDINA(NKE,NPK,NRIS,PK)                                     06210000
+C                                                                       06211000
+       IF(LRF.NE.2.OR.ADLRGS.LE.0.) GO TO 301                           06212000
+C       GENERATION OF ADLER GAUSS PARAMETERS FOR BWML                   06213000
+       DO 16 IR=1,NRIS                                                  06214000
+       PK(8,IR)=0.                                                      06215000
+       PK(9,IR)=0.                                                      06216000
+       GR=PK(4,IR)                                                      06217000
+       GNR=PK(5,IR)                                                     06218000
+       DO 17 IS=1,NRIS                                                  06219000
+       IF(IS.EQ.IR) GO TO 17                                            06220000
+C              INTERFERENZA SOLO FRA RISONANZA STESSO L,J               06221000
+        IF(PK(1,IS).NE.PK(1,IR).OR.PK(3,IS).NE.PK(3,IR)) GO TO 17       06222000
+       DE=ABS(PK(2,IR)-PK(2,IS))                                        06223000
+C       SI E' VISTO CHE SI DEVONO TENERE PRATICAMENTE TUTTE, ANCHE QUELL06224000
+C             FUORI E RANGE                                             06225000
+       IF(DE.GT.(GR+PK(4,IS))*ADLRGS) GO TO 17                          06226000
+       GS=PK(4,IS)                                                      06227000
+       GNS=PK(5,IS)                                                     06228000
+       L=PK(1,IS)                                                       06229000
+       ES=PK(2,IS)                                                      06230000
+       ER=PK(2,IR)                                                      06231000
+C      LA RISONANZA S VA CONTATA ALL'ENERGIA DELLA RISONANZA R          06232000
+C      SI TRATTA DI DIFFERENZE PICCOLE:NON CONTANO TANTO IN ESL,        06233000
+C      CHE ENTRA IN SOMMA, O GS , MA CONTA IN GGRS OVE GNS E' FATTORE   06234000
+       CALL GEDEP(L,ER,ES,GNS,ROE,ESL,GNSL)                             06235000
+       DE=ER-ESL                                                        06236000
+       GAMPIU=GR+GS-GNS+GNSL                                            06237000
+       GGRS=GNR*GNSL                                                    06238000
+       DENOMI=1./(DE*DE+GAMPIU*GAMPIU*0.25)                             06239000
+       PK(8,IR)=PK(8,IR)+GGRS*GAMPIU*DENOMI                             06240000
+       PK(9,IR)=PK(9,IR)+GGRS*DE*DENOMI                                 06241000
+ 17    CONTINUE                                                         06242000
+       IF(PK(8,IR).NE.0.) PK(8,IR)=PK(8,IR)*0.5                         06243000
+ 16    CONTINUE                                                         06244000
+C                                                                       06245000
+C                                                                       06246000
+ 301   CONTINUE                                                         06247000
+C                                                                       06248000
+C       STAMPE DEI PARAMETRI (SOLO PER BWML E BWSL )                    06249000
+        IF(STMP.LT.150.) GO TO 302                                      06250000
+        IF(LRF.GT.2) GO TO 302                                          06251000
+        WRITE(NO,1005) AINDX(35),AINDX(36)                              06252000
+ 1005   FORMAT(//20X,2A4/)                                              06253000
+        WRITE(NO,1010)                                                  06254000
+ 1010   FORMAT(' BREIT WIGNER RESONANCE PARAMETERS:'/                   06255000
+     1 ' RIS = L ,   E      ,  J  ,  GT   ,   GN    ,   GG     ,  GF  ' 06256000
+     2 ,'(FOR BWML: G , H ) , RHO SQRT(E),GAM/DELT=ZETA,   G   ,DELTR') 06257000
+                 ZERO=0.0                                               06258004
+        DO 30 I=1,NRIS                                                  06259000
+        IF(ADLRGS.GT.0.) WRITE(NO,1020)  I,(PK(J,I),J=1,NPK)            06260004
+        IF(ADLRGS.LE.0.) WRITE(NO,1020) I,(PK(J,I),J=1,7),ZERO,ZERO,    06261004
+     1                   (PK(J,I),J=10,NPK)                             06262004
+ 1020   FORMAT(1X,I4,'=',F4.1,E10.3,1X,F4.1,10E10.3)                    06263000
+ 30     CONTINUE                                                        06264000
+ 302    CONTINUE                                                        06265000
+C                                                                       06266000
+C       IL LOWER LIMIT OF THE MC2-2 LIBRARY IS E(NG). IF E(NG)>EL       06267000
+C        E(NG) IS USED INSTEAD OF EL (E' INUTILE CALCOLARE ROBA         06268000
+C        SOTTO ENERGIA DELLA LIBRERIA) (USO NG+1 PER EVITARE GUAI       06269007
+C                                                IN INTS1)              06270007
+        ELGR=EUP*EXP(-DELU*(NG+1))                                      06271007
+        ELL=AMAX1(ELGR,EL)                                              06272000
+C                                                                       06273000
+C      LOOK FOR THE FIRST RESONANCE IN THE RANGE                        06274000
+C                                                                       06275000
+       NRISF=1                                                          06276000
+       DO 70 I=1,NRIS                                                   06277000
+       IF(EH.LT.PK(NKE,I)) GO TO 70                                     06278000
+       NRISF=I                                                          06279000
+       GO TO 700                                                        06280000
+ 70    CONTINUE                                                         06281000
+       CALL ERR(8HRES WR  ,70)                                          06282000
+       NFLGOU=NRIS                                                      06283000
+C       ALL RESONANCES ABOVE THE ENERGY RANGE                           06284000
+C                                                                       06285000
+C      LOOKS FOR THE LAST RESONANCE IN THE RANGE                        06286000
+C                                                                       06287000
+ 700   NRISL=NRIS                                                       06288000
+       DO 75 I=1,NRIS                                                   06289000
+       I1=NRIS-I+1                                                      06290000
+       IF(ELL.GT.PK(NKE,I1)) GO TO 75                                   06291000
+       NRISL=I1                                                         06292000
+       GO TO 750                                                        06293000
+ 75    CONTINUE                                                         06294000
+       CALL ERR(8HRES WR   ,75)                                         06295000
+       NFLGOU=1                                                         06296000
+C       ALL RESONANCES BELOW THE ENERGY RANGE                           06297000
+ 750   CONTINUE                                                         06298000
+       NRISL1=NRISL+1                                                   06299000
+       IF(NRISL1-NRISF.LE.0) CALL ERR(8H  RES      ,750)                06300000
+       WRITE(NPP,9070) EH,EL,NRISF,NRISL,NRIS                           06301000
+ 9070  FORMAT(' UPPER E:',E9.4,' INF E:',E9.4,' FIRST RES:',            06302000
+     1  I5,' LAST RES:',I5,' TOT RES:',I5)                              06303000
+C                                                                       06304000
+C            LE RIS SONO QUI ORDINATE DECRESCENTI IN ENERGIA            06305000
+C           NP= CONTATORE PUNTI INSERITI                                06306000
+       NP=0                                                             06307000
+C                                                                       06308000
+       IF(NFLRIS.LE.0) WRITE(NPP,9080)                                  06309000
+ 9080  FORMAT(10X,' RESONANCES OUT OF ENERGY RANGE HAVE BEEN ADDED')    06310000
+C                                                                       06311000
+C         NFLRIS SEGNALA DI NON INSERIRE RISONANZE. IN QUESTO CASO      06312000
+C         VENGONO INSERITI I SOLI CONTRIBUTI DALLE RISONANZE FITTIZIE   06313000
+C         FUORI DELL'ENERGY RANGE. QUESTI SERVONO IN GENERE A FAR TORNAR06314000
+C         UNA SEZIONE D'URTO TIPO 1/V ALLE BASSE ENERGIE (ENTRO IL      06315000
+C         RANGE ENERGETICO DELLE RISONANZE).                            06316000
+C           QUESTI CONTRIBUTI VANNO AGGIUNTI QUI PERCHE MC2-2 POI       06317000
+C           TRATTERA' SOLO LE RISONANZE ENTRO IL RANGE ENERGETICO.      06318000
+C                                                                       06319000
+       NSCART=0                                                         06320000
+       IF(NFLRIS.LE.0) NSCART=1                                         06321000
+       NE=0                                                             06322000
+C                                                                       06323000
+       IF(NFLGOU.LE.0) GO TO 455                                        06324000
+C     NO RESONANCES IN THE RANGE ( ONLY EH AND ELL POINTS ARE INSERTED) 06325000
+        NE=NE+1                                                         06326000
+        ERIS(NE)=EH                                                     06327000
+        GAM(NE)=PK(4,NFLGOU)                                            06328000
+        NE=NE+1                                                         06329000
+        ERIS(NE)=ELL                                                    06330000
+        GAM(NE)=PK(4,NFLGOU)                                            06331000
+        GO TO 463                                                       06332000
+C                                                                       06333000
+C       VEDE SE IN EH E' UNA RISONANZA                                  06334000
+ 455   IF(PK(NKE,NRISF).EQ.EH) GO TO 460                                06335000
+C           SE IL PRIMO PUNTO NON COINCIDE CON EH METTE EH FRA I PUNTI  06336000
+       ERIS(1)=EH                                                       06337000
+       GAM(1)=PK(4,NRISF)                                               06338000
+       NE=1                                                             06339000
+ 460   CONTINUE                                                         06340000
+C                  METTO NEI PUNTI DELIMITANTI GLI INTERVALLI LE        06341000
+C                  RISONANZE DA NRISF SAD NRISL                         06342000
+       DO 81 I=NRISF,NRISL                                              06343000
+       NE=NE+1                                                          06344000
+       ERIS(NE)=PK(NKE,I)                                               06345000
+ 81    GAM(NE)=PK(4,I)                                                  06346000
+C      VEDE SE DEVE INSERIRE EL COME ULTIMO PUNTO O SE IN EL STA UNA RIS06347000
+       IF(PK(NKE,NRISL).EQ.ELL) GO TO 462                               06348000
+       NE=NE+1                                                          06349000
+       ERIS(NE)=ELL                                                     06350000
+       GAM(NE)=PK(4,NRISL)                                              06351000
+C                                                                       06352000
+ 462   CONTINUE                                                         06353000
+C               L'ULTIMO PUNTO ERA GIA' INSERITO COME ULTIMO NELL'INTERV06354000
+C               PRIMA RIS- EH  SE L'INTERVALLO ESISTE.                  06355000
+C               SE IL PUNTO E' GIA' INSERITO LO TOLGO, CHE ALTRIMENTI VI06356000
+C               CONTATO DOPPIO.                                         06357000
+       IF(NFLAG1.GT.0) NP=NP-1                                          06358000
+ 463   NP1=NP+1                                                         06359000
+       NPPP=1                                                           06360000
+       CALL LINSIG(NPK,NRIS,PK,NE,ERIS,GAM,NPPP,NPMX,                   06361000
+     1 PUNTO(NP1,1),PUNTO(NP1,2),PUNTO(NP1,3),PUNTO(NP1,4),PUNTO(NP1,5),06362000
+     2 PUNTO1(NP1,1),PUNTO1(NP1,2),PUNTO1(NP1,3),PUNTO1(NP1,4),         06363000
+     3  NDOP,TEMP,LRF,AWRI,SPI,AP,CAPPAE,CAPPE2,ROE,                    06364000
+     4  N41,N27,TR,TI,TRS,TIS,NBACK,BACK,NSCART,ELL,EH)                 06365000
+       NFLAG2=NPPP                                                      06366000
+       NP=NP+NPPP                                                       06367000
+ 480   CONTINUE                                                         06368000
+ 490   CONTINUE                                                         06369000
+C                                                                       06370000
+       N111=1                                                           06371000
+C           ONLY POTENTIAL SCATTERING                                   06372000
+       IF(NFLAG1.LE.0.AND.NFLAG2.LE.0.AND.NFLAG3.LE.0) N111=4           06373000
+C                                                                       06374000
+C        .......... LOOP SU CATTURA,FISSIONE,SCATT(SENZA POT),SCAT POT  06375000
+       DO 29 IC1=N111,4                                                 06376000
+       IC=IC1+1                                                         06377000
+       IF(IC1.NE.4) GO TO 500                                           06378000
+C                 POTENTIAL SCATTERING                                  06379000
+C              IS COMPUTED AT ULTRA FINE GROUPS BOUNDARIES              06380000
+C              AND IS SUPPOSED ABBASTANZA FLAT TO BE CONSIDERED LINEAR  06381000
+C              INTERPOLABLE IN AN  ULTRAFINE GROUP                      06382000
+C                                                                       06383000
+C      SIGMA POTENTIAL IS STORED IN PUNTO1(.,4) WHERE SIGMA SCATTERING  06384000
+C       HAD BEEN BEFORE                                                 06385000
+C                                                                       06386000
+       IC=4                                                             06387000
+C                                                                       06388000
+C      N1=1                                                             06389000
+       DO 95 I=1,NG                                                     06390000
+       IF(E(I).LT.EH) GO TO 950                                         06391000
+ 95    CONTINUE                                                         06392000
+ 950   N1=I                                                             06393000
+       DO 96 I=1,NG                                                     06394000
+       I1=NG-I+1                                                        06395000
+       IF(E(I1).GT.ELL) GO TO 960                                       06396000
+ 96    CONTINUE                                                         06397000
+ 960   N2=I1                                                            06398000
+       IF(N2.LT.0.OR.N2.LE.N1)CALL ERR(8H RES      ,960)                06399000
+       NP=N2-N1+1+2                                                     06400000
+       PUNTO1(1,1)=EH                                                   06401000
+       I3=1                                                             06402000
+       DO 97 I=N1,N2                                                    06403000
+       I3=I3+1                                                          06404000
+ 97    PUNTO1(I3,1)=E(I)                                                06405000
+       PUNTO1(NP,1)=ELL                                                 06406000
+C                                                                       06407000
+       CALL SCATP(NP,PUNTO1(1,1),PUNTO1(1,IC),CAPPAE,AP,CAPPE2)         06408000
+       IF(NPMX.LT.NP) CALL ERR(8HRES             ,500)                  06409000
+ 500   CONTINUE                                                         06410000
+C                                                                       06411000
+       IF(NP.GT.NPMX) CALL ERR(8H  RES      ,510)                       06412000
+C        =============== OUTPUT FOR PLOTTER ===============             06413000
+C      IF(OPZ(2,2,2).LE.0.) GO TO 510                                   06414000
+C      NUMER0=0                                                         06415000
+C      NOO=OPZ(2,2,2)                                                   06416000
+C      NOO=NT(1,NOO)                                                    06417000
+C      NWDS=2*NP+10                                                     06418000
+C      WRITE(NOO) NWDS,AINDX(35),AINDX(36),NOME(IC1),IC1,MAT,           06419000
+C    1 OPZ(2,5,7),PRECIS,NUMER0,NP,(PUNTO1(J,1),PUNTO1(J,IC),J=1,NP)    06420000
+C510   CONTINUE                                                         06421000
+C                                                                       06422000
+C       NOTE ON INSERTION OF  CULLEN METHOD                             06423000
+C       PER INSERIRE IL METODO DI CULLEN SI PROCEDE COSI:               06424000
+C       0) SI FA CORRERE RES SENZA DOPPLER BROADENING                   06425000
+C       1) SI ALLARGA LA TABULAZIONE CON CULLEN QUI (E' GIA' LINEARE)   06426000
+C       2) SI PROCEDE COME SOTTO                                        06427000
+C                                                                       06428000
+       IF(OPZ(2,1,7).LE.0.) GO TO 555                                   06429000
+C               POT SCATT IS NOT DOPPLER BROADENED                      06430000
+        IF(IC1.EQ.4) GO TO 555                                          06431000
+        IF(TEMP.LE.0.) GO TO 555                                        06432000
+C                                                                       06433000
+       AWR=AINDX(5)                                                     06434000
+C              A BROAD VANNO PASSATI SIGMA E ENERGIE CRESCENTI          06435000
+C              INDI VANNO RIBALTATE PRIMA E DOPO                        06436000
+       DO 99 I=1,NP                                                     06437000
+       PUNTO(I,3)=PUNTO1(NP-I+1,1)                                      06438000
+ 99    CONTINUE                                                         06439000
+       CALL RIBA(NP,PUNTO1(1,IC))                                       06440000
+C                                                                       06441000
+        IF(NP+100.GT.NPMX) CALL ERR(8HRES       ,99)                    06442000
+C                                                                       06443000
+       CALL BROAD(NP,TEMP,AWR,PUNTO(1,3),                               06444000
+     1 PUNTO1(1,IC),PUNTO(1,2),PUNTO(1,1),PUNTO(1,4),                   06445000
+     2 PUNTO(1,5) )                                                     06446000
+C                                                                       06447000
+       CALL RIBA(NP,PUNTO(1,1))                                         06448000
+C                                                                       06449000
+       CALL RIEMP( 0.0,NG,SIG)                                          06450000
+       CALL INTS1(PESO,INTERP,NG,E,SIG,NP,PUNTO1(1,1),PUNTO(1,1))       06451000
+       GO TO 560                                                        06452000
+C                                                                       06453000
+C      INTEGRA A GRUPPI ULTRAFINI ( STESSA ROUTINE DELLE UNRESOLVED,    06454000
+C                                   PESO 1/E )                          06455000
+ 555   CALL RIEMP(0.0,NG,SIG)                                           06456000
+       CALL INTS1(PESO,INTERP,NG,E,SIG,NP,PUNTO1(1,1),PUNTO1(1,IC))     06457000
+C                                                                       06458000
+C       SCRITTURA SU TAPES ( COME UNRES)                                06459000
+C                                                                       06460000
+C     ARRIVA QUI SENZA IDENTIFICATORI IL NUCLIDE E QUI NON METTO IDENTIF06461000
+ 560  IF(NMT.GT.M2) GO TO 600                                           06462000
+      NOM=MIX(3,NMT)                                                    06463000
+      NOM1=MIX(4,NMT)                                                   06464000
+      NOM2=MIX(1,NMT)                                                   06465000
+      NOM3=MIX(2,NMT)                                                   06466000
+      GO TO 610                                                         06467000
+C      ANDREBBE MESSO ENDFB ID COME CARATTERE MA NON HO FATTO LA SUBROUT06468000
+ 600  NOM=NAREAL(AINDX(35))                                             06469000
+      NOM1=NAREAL(AINDX(36))                                            06470000
+      NOM2=NAREAL(AINDX(35))                                            06471000
+      NOM3=NAREAL(AINDX(36))                                            06472000
+ 610  CONTINUE                                                          06473000
+      CALL POSL(NTOUT)                                                  06474000
+C      POSIZIONA TAPE OUT AL PRIMO RECORD LIBERO                        06475000
+C      LE RISONANZE HANNO SOLO MT=151                                   06476000
+C     WRITE(NTO) NOM2,NOM3,MAT,MF,MT                                    06477000
+C      INDICI PER IL RECORD 2                                           06478000
+       REAZ=0.                                                          06479000
+       IF(IC1.EQ.1) REAZ=3.                                             06480000
+       IF(IC1.EQ.2) REAZ=2.                                             06481000
+       IF(IC1.EQ.3) REAZ=1.                                             06482000
+       IF(IC1.EQ.4) REAZ=4.                                             06483000
+C           NLAST=  GRUPPO SOTTO CUI LA SIGMA E' NULLA                  06484000
+       CALL SOGLM(0.0,NLAST,NG,SIG)                                     06485000
+       CALL SOGLM1(0.0,NFIRST,NG,SIG)                                   06486000
+       IF(NFIRST.GT.NLAST) CALL ERR(8H,RES      , 50)                   06487000
+      WRITE(NPP,1100) NOM2,NOM3,NOME(IC1),NP,EH,ELL,NFIRST,NLAST        06488000
+       IF(NLAST.LE.0) GO TO 29                                          06489000
+C                                                                       06490000
+C     WRITE(NTO)(N(J),J=1,14)                                           06491000
+      WRITE(NTO)(SIG (J),J=NFIRST,NLAST)                                06492000
+C                                                                       06493000
+ 1100    FORMAT(1X,2A4,1X,A8,                                           06494000
+     1  ' POINTS:',I9,' E LIM.:',E9.4,E9.4,' GROUPS:',2I5)              06495000
+       IF(STMP.LT.1000.) GO TO 650                                      06496000
+       WRITE(NO,1100) NOM2,NOM3,NOME(IC1),NP,EH,ELL,NFIRST,NLAST        06497000
+       WRITE(NO,1201)                                                   06498000
+ 1201     FORMAT(5(1X,'   ENERGY ,   SIGMA   '))                        06499000
+               WRITE(NO,1300)(PUNTO1(J,1),PUNTO1(J,IC),J=1,NP)          06500000
+ 1300       FORMAT(1X,10E12.5)                                          06501000
+  650     CONTINUE                                                      06502000
+       IF(STMP.GT.100.)WRITE(NO,1500) NOM2,NOM3,MAT,MF,MT               06503000
+ 1500  FORMAT(' PART 2: RESOLVED RESONANCE ',                           06504000
+     1 'MULTI GROUP CROSS SECTION PRODUCED:'/                           06505000
+     2  1X,2A4,3I10)                                                    06506000
+        IF(NDOP.GE.0.AND.STMP.GT.100.) WRITE(NPP,9055) TEMP             06507000
+       IF(STMP.GT.101) WRITE(NO,2000) NOME(IC1),NFIRST,NLAST            06508000
+ 2000  FORMAT(' REACTION: ',A8,20X,'FIRST GROUP:',I5,' LAST GROUP:',I5) 06509000
+       IF(STMP.GT.105) WRITE(NO,3000) (SIG(J),J=NFIRST,NLAST)           06510000
+ 3000  FORMAT(1X,10E12.5)                                               06511000
+C                                                                       06512000
+      IND2=IND2+1                                                       06513000
+      IF(IND2.GT.MIND12) CALL ERR(8H RES     ,25)                       06514000
+      CALL EMPIN(MIND11,AINDX1(1,IND2),AINDX(1),AINDX(2),AINDX(3),      06515000
+     1AINDX(4),AINDX(5),NOM,NOM1,NOM2,NOM3,AINDX(6),                    06516000
+     25.,3.,2.,FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(3,NTOUT)),1.,0.,0.,     06517000
+     3FLOAT(NG),EUP,DELU,0.,FLOAT(NLAST),3.,REAZ,FLOAT(LRF),            06518000
+     4 FLOAT(NFIRST),0.,0.,EH,ELL,0.,0.,AINDX(28),AINDX(9),AINDX(5),    06519000
+     60.,FLOAT(NDOP),TEMP)                                              06520000
+      NT(4,NTOUT)=NT(4,NTOUT)+1                                         06521000
+      NT(3,NTOUT)=NT(4,NTOUT)                                           06522000
+C                                                                       06523000
+ 29    CONTINUE                                                         06524000
+C      ............. FINE LOOP SU REAZIONI:CATT,FISS,SCATT,SCATT POT    06525000
+       RETURN                                                           06526000
+       END                                                              06527000
+       SUBROUTINE SIGRR(SC,SF,SS,E,NDOP,TEMP,                           06528000
+     1  LRF,AWRI,SPI,AP,CAPPAE,CAPPE2,ROE,                              06529000
+     2  NPK,NRIS,PK,N41,N27,TR,TI,TRS,TIS,NBACK,BACK,NSCART,EINF,ESUP)  06530000
+C      *********************************************************        06531000
+C                                                                       06532000
+C       DOPPLER BROADENED RESONANCE CROSS SECTION AT ENERGY E           06533000
+C       ONLY BREIT WIGNER SINGLE OR MULTI LEVEL IS USED !!!!!!!!!       06534000
+C                                                                       06535000
+C       NSCART PARAMETER SCARTA RISONANZE ENTRO EINF,ESUP               06536000
+C       NDOP .LT. 0 - NO DOPPLER                                        06537000
+C       LRF=1,2,4 = BWSL, BWML, A A                                     06538000
+C       E  = ENERGIA                                                    06539000
+C       TEMP= TEMPERATURARISONA                                         06540000
+C       PK= PER BW = L,ER, AJ,GT,GN,GC,GF                               06541000
+C                             +G,H DI ADLER GAUSS PER BWML (POS 8,9 )   06542000
+C                             + ROE*SQRT(ER) ,ZETA=GT/DELTR (POS 10,11) 06543000
+C                             + G,DELTR                 (POSIZ 12, 13 ) 06544000
+C       BACK(6,NBACK)= BACKGROUND DI ADLER ADLER                        06545000
+C      CAPPE2=4*PIGREC/KAPPA**2 ( SENZA L'E)                            06546000
+C      CAPPAE=KAPPA/SQRT(E) (SENZA L'E)                                 06547000
+C      ************************************************************     06548000
+C                                                                       06549000
+       DIMENSION TR(N41,N27),TI(N41,N27),TRS(N41,N27),TIS(N41,N27)      06550000
+       DIMENSION PK(NPK,NRIS),BACK(6,NBACK)                             06551000
+       COMMON/OPZIO/OPZ(4,8,10)                                         06552000
+       EQUIVALENCE(OPZ(2,5,7),DELNUM),(OPZ(2,4,6),ADLRGS)               06553000
+       DATA SQRPI/1.772453851/                                          06554000
+       DIMENSION FI(3),COSF2(3),SINF2(3),SIN2F(3)                       06555000
+C                                                                       06556000
+       ABSE=ABS(E)                                                      06557000
+        PICA24=CAPPE2/ABSE                                              06558000
+       SQRTE=SQRT(ABSE)                                                 06559000
+       RHOE=ROE*SQRTE                                                   06560000
+       RO=CAPPAE*SQRTE*AP                                               06561000
+C                                                                       06562000
+       FI(1)=RO                                                         06563000
+       FI(2)=RO-ATAN(RO)                                                06564000
+       FI(3)=RO-ATAN(3.*RO/(3.-RO*RO))                                  06565000
+       DO 5 I=1,3                                                       06566000
+       FI2=FI(I)*2                                                      06567000
+       SINF2(I)=SIN(FI2)                                                06568000
+       COSF2(I)=COS(FI2)                                                06569000
+       SIN2F(I)=SIN(FI(I))**2                                           06570000
+ 5     CONTINUE                                                         06571000
+C                                                                       06572000
+C                                                                       06573000
+       SC=0.                                                            06574000
+       SF=0.                                                            06575000
+       SS=0.                                                            06576000
+C                                                                       06577000
+       DO 10 IR=1,NRIS                                                  06578000
+       ER=PK(2,IR)                                                      06579000
+       IF(NSCART.GT.0.AND.ER.GE.EINF.AND.ER.LE.ESUP) GO TO 10           06580000
+       GT=PK(4,IR)                                                      06581000
+C                       DELTR=SQRT(34.4668E-5*ABS(ER)/AWRI*TEMP)        06582000
+       DELTR=PK(13,IR)                                                  06583000
+       ALARG=DELTR                                                      06584000
+       IF(GT.GT.ALARG)ALARG=GT                                          06585000
+       IF(ABS(E-ER).GT.ALARG*DELNUM) GO TO 10                           06586000
+C                                                                       06587000
+C                      RHOER=RO*SQRT(ER)                                06588000
+       RHOER=PK(10,IR)                                                  06589000
+C                                                                       06590000
+C                      G=(2*PK(3,IR)+1)/(4*SPI+2)                       06591000
+       G=PK(12,IR)                                                      06592000
+       GRC=PK(6,IR)                                                     06593000
+       GRF=PK(7,IR)                                                     06594000
+C       CATTURA E FISSIONE                                              06595000
+       L=PK(1,IR)                                                       06596000
+       GN=PK(5,IR)                                                      06597000
+C       CALCOLO DIPENDENZA DA E DI ER E DI GN                           06598000
+C          ROUTINE NOT USED TO FASTEN:CALL GEDEP(L,E,ER,GN,ROE,ERL,GNL) 06599000
+       IF(L.GT.1) GO TO 102                                             06600000
+       ERL=ER                                                           06601000
+       GNL=GN*RHOE/RHOER                                                06602000
+       GO TO 401                                                        06603000
+ 102   IF(L.GT.2) GO TO 103                                             06604000
+       DENE=1.+RHOE*RHOE                                                06605000
+       DENER=1.+RHOER*RHOER                                             06606000
+       PFE=RHOE**3/DENE                                                 06607000
+C         DOPPLER BROADENING DO NOT USES E DEPENDENCE IN ER             06608000
+       IF(NDOP.LT.0) ERL=ER+(1./DENE-1./DENER)/2./PFE*GN                06609000
+       GNL=GN*PFE/(RHOER**3)*DENER                                      06610000
+       GO TO 401                                                        06611000
+ 103   CONTINUE                                                         06612000
+       DENE=9.+3.*RHOE*RHOE+RHOE**4                                     06613000
+       DENER=9.+3.*RHOER**2+RHOER**4                                    06614000
+       PFE=RHOE**5/DENE                                                 06615000
+C         DOPPLER BROADENING DO NOT USES E DEPENDENCE IN ER             06616000
+       IF(NDOP.LT.0) ERL=ER+((18.+3.*RHOER**3)/DENER-                   06617000
+     1                 (18.+3.*RHOE **3)/DENE  )/2./PFE*GN              06618000
+       GNL=GN*PFE/(RHOER**5)*DENER                                      06619000
+ 401   CONTINUE                                                         06620000
+C                                                                       06621000
+C                                                                       06622000
+C      ERL=ER                                                           06623000
+       GTL=GT-GN+GNL                                                    06624000
+C      GTL=GT                                                           06625000
+C                                                                       06626000
+       IF(NDOP.LT.0.OR.GT.EQ.0) GO TO 260                               06627000
+C                                                                       06628000
+C                         DOPPLER BROADENING                            06629000
+C                                                                       06630000
+C      DOPPLER FORMALISM DOES NOT USE ENERGY DEPENDECE FOR ER AND GT    06631000
+C                                                                       06632000
+C           DELTA IS DELTA AT RESONANCE IN DOPPLER BROADENING APPROXIMAT06633000
+C                                                                       06634000
+C      DELT=SQRT(34.4668E-5*ABS(E)/AWRI*TEMP)                           06635000
+C                          ZETA=GT/DELTR                                06636000
+       ZETA=PK(11,IR)                                                   06637000
+C                                                                       06638000
+       IF(E.NE.ER) GO TO 200                                            06639000
+       AY=ZETA*0.5                                                      06640000
+       AIMW=0.                                                          06641000
+       CALL WZERO(AY,REAW)                                              06642000
+       GO TO 210                                                        06643000
+ 200   CONTINUE                                                         06644000
+C                                                                       06645000
+       Y=2./GT*(E-ER)                                                   06646000
+C                                                                       06647000
+C       PSI(ZETA,Y)=ZETA*SQRT(PI)/2*REAL PART OF W(ZETA*Y/2,ZETA/2)     06648000
+C       CHI(ZETA,Y)=ZETA*SQRT(PI)*IMM PART OF W(ZETA*Y/2,ZETA/2)        06649000
+C             LA PARTE REALE ED IMMAGINARIA DELLA FUNZIONE W            06650000
+C           LA CALCOLA QUICKW(N41,N27,TR,TI,TRS,TIS,AX,AY,REW,AIMW)     06651000
+C           CHE USA TABULAZIONI DI W PRODOTTE DALLA WTABL               06652000
+C           (CHE A SUA VOLTA USA LA ROUTINE W)                          06653000
+C       NEL PICCO DELLLA RISONANZA (PER X=0 , SI PUO USARE WZERO(Y,REW) 06654000
+C       CHE FORNISCE VELOCEMENTE LA PARTE REALE DI W.                   06655000
+C       PER ALTRI DETTAGLI VEDI IL MANUALE DI MC2-2                     06656000
+C                                                                       06657000
+       AY=ZETA*0.5                                                      06658000
+       AX=AY*Y                                                          06659000
+       CALL QUICKW(N41,N27,TR,TI,TRS,TIS,AX,AY,REAW,AIMW)               06660000
+C                                                                       06661000
+ 210   PSI=ZETA*SQRPI*REAW*0.5                                          06662000
+       PIFAC=PICA24*G/(GT*GT)                                           06663000
+       SIGR=PIFAC*GNL*PSI                                               06664000
+       SC=SIGR*GRC+SC                                                   06665000
+       SF=SIGR*GRF+SF                                                   06666000
+C                             RESONANCE SCATTERING                      06667000
+       CHI=ZETA*SQRPI/2.*AIMW                                           06668000
+       T1=  GNL*COSF2(L)*PSI                                            06669000
+       T2=    GT*SINF2(L)*CHI                                           06670000
+       T3=-2.    *(GT-GN)*PSI*SIN2F(L)                                  06671000
+       IF(ADLRGS.LE.0..OR.LRF.NE.2) GO TO 211                           06672000
+C                                                                       06673000
+C       ================ NON SOLO LA DIPENDENZA ENERGETICA DEI TERMINI  06674000
+C       DI INTERFERENZA E' APPROSSIMATA, MA IL FATTO CHE SI POSSA ESTRAR06675000
+C        DALL'INTEGRALE DOPPLER LA E E' DUBBIO =========================06676000
+       EFACTR=E/ABS(ER)                                                 06677000
+       IF(L.GT.1) EFACTR=(E/ABS(ER))**(2*L-1)                           06678000
+       T1=T1+(PSI*PK(8,IR)   +  CHI*PK(9,IR))*GT/GNL *EFACTR            06679000
+ 211   SS=SS+PIFAC*(T1+T2+T3)*GNL                                       06680000
+       GO TO 10                                                         06681000
+ 260   CONTINUE                                                         06682000
+C                                                                       06683000
+C       NO DOPPLER BROADENING : ACCOUNTED FOR GTL AND ERL E DEPENDENCE  06684000
+C                                                                       06685000
+       PIFAC=PICA24*G/(4.*(E-ERL)**2+(GTL*GTL))                         06686000
+       SIGR=PIFAC*GNL                                                   06687000
+       SC=SIGR*GRC+SC                                                   06688000
+       SF=SIGR*GRF+SF                                                   06689000
+ 300   CONTINUE                                                         06690000
+C                        SCATTERING DI RISONANZA                        06691000
+       T1=    GNL*COSF2(L)                                              06692000
+       T2=2.*(E-ERL)    *SINF2(L)                                       06693000
+       T3=-2.*    (GTL-GNL)*SIN2F(L)                                    06694000
+C                                                                       06695000
+       IF(ADLRGS.LE.0..OR.LRF.NE.2) GO TO 301                           06696000
+       EFACTR=E/ABS(ER)                                                 06697000
+       IF(L.GT.1) EFACTR=(E/ABS(ER))**(2*L-1)                           06698000
+         T1=T1+(PK(8,IR)*GTL+2.*(E-ERL)*PK(9,IR))*EFACTR/GNL            06699000
+C                                                                       06700000
+C       ========= LA DIPENDENZA ENERGETICA DEL TERMINE DI               06701000
+C       INTERFERENZA E' APPROSSIMATA, IN QUANTO SI DOVREBBERO           06702000
+C       RICALCOLARE PK(8-9,.) AD OGNI E =====================           06703000
+C       ============ IN QUESTO MODO SI SUPPONE CHE IL DENOM DEL         06704000
+C       TERMINE DI INTERFERENZA IN PK(8-9,.) NON DIP DA E ======        06705000
+C       PK(8-9,.) SONO CALCOLATE AD ER, SOLO IL FATTORE GNR*GNS         06706000
+C       A NUMERATORE E' RIPORTATO DA ER AD E TRAMITE EFACTR ====        06707000
+C       ========================================================        06708000
+ 301   SS=SS+PIFAC*(T1+T2+T3)*GNL                                       06709000
+ 10    CONTINUE                                                         06710000
+C         ............... END OF LOOP ON RESONANCES                     06711000
+       RETURN                                                           06712000
+       END                                                              06713000
+       SUBROUTINE GEDEP(L,E,ER,GN,ROE,ERL,GNL)                          06714000
+C      **********************************************                   06715000
+C      CALCOLO DIPENDENZA DALL'ENERGIA DI ER E GN                       06716000
+C      SECONDO LE FORMULE DI ENDFB                                      06717000
+C          L=1  SAREBBE LA P0 (L=0)                                     06718000
+C      *********************************************                    06719000
+C                                                                       06720000
+       RHOE=ROE*SQRT(ABS(E))                                            06721000
+       RHOER=ROE*SQRT(ABS(ER))                                          06722000
+       GO TO (100,200,300),L                                            06723000
+ 100   CONTINUE                                                         06724000
+C       SHIFT FACTOR FOR ENERGY E AND ER ( L=0)                         06725000
+       SFE=0.                                                           06726000
+       SFER=0.                                                          06727000
+C      PENETRATION FACTOR FOR ENERGY E AND ER (L=0)                     06728000
+       PFE=RHOE                                                         06729000
+       PFER=RHOER                                                       06730000
+       GO TO 400                                                        06731000
+ 200   CONTINUE                                                         06732000
+C       SAME FOR L=1                                                    06733000
+       DENE=1.+RHOE**2                                                  06734000
+       DENER=1.+RHOER**2                                                06735000
+       SFE=1./DENE                                                      06736000
+       SFER=1./DENER                                                    06737000
+       PFE=(RHOE**3)/DENE                                               06738000
+       PFER=(RHOER**3)/DENER                                            06739000
+       GO TO 400                                                        06740000
+ 300   CONTINUE                                                         06741000
+C       SAME FOR L=2                                                    06742000
+       DENE =9.+3.*RHOE**2+RHOE**4                                      06743000
+       DENER=9.+3.*RHOER**2+RHOER**4                                    06744000
+       SFE=(18.+3.*RHOE**3)/DENE                                        06745000
+       SFER=(18.+3.*RHOER**3)/DENER                                     06746000
+       PFE=RHOE**5/DENE                                                 06747000
+       PFER=RHOER**5/DENER                                              06748000
+ 400   CONTINUE                                                         06749000
+       ERL=ER+(SFER-SFE)/2./PFE*GN                                      06750000
+       GNL=PFE*GN/PFER                                                  06751000
+       RETURN                                                           06752000
+       END                                                              06753000
+       FUNCTION FIL(E,L,CAPPAE,AP)                                      06754000
+C      ***********************************                              06755000
+C      PHASE ANGLE FOR RESOLVED RESONANCE COMPUTATION                   06756000
+C      ****************************************                         06757000
+C                                                                       06758000
+       RO=CAPPAE*SQRT(ABS(E))*AP                                        06759000
+       GO TO(100,200,300),L                                             06760000
+ 100   FIL=RO                                                           06761000
+       RETURN                                                           06762000
+ 200   FIL=RO-ATAN(RO)                                                  06763000
+       RETURN                                                           06764000
+ 300   FIL=RO-ATAN(3.*RO/(3.-RO**2))                                    06765000
+       RETURN                                                           06766000
+       END                                                              06767000
+       SUBROUTINE SCATP(NE,E,SIG,CAPPAE,AP,CAPPE2)                      06768000
+C      ********************************************                     06769000
+C       COMPUTES POTENTIAL SCATTERING CROSS SECTION                     06770000
+C      *******************************************                      06771000
+       DIMENSION E(NE),SIG(NE)                                          06772000
+C                                                                       06773000
+C          ENERGY IS SUPPOSED TO BE ALWAYS GT THAN ZERO                 06774000
+C                                                                       06775000
+       DO 10 IE=1,NE                                                    06776000
+       PICA24=CAPPE2/E(IE)                                              06777000
+       RO=CAPPAE*SQRT(E(IE))*AP                                         06778000
+       FI1=RO                                                           06779000
+       FI2=RO-ATAN(RO)                                                  06780000
+       FI3=RO-ATAN(3.*RO/(3.-RO**2))                                    06781000
+       SIG(IE)=PICA24*(SIN(FI1)**2+3.*SIN(FI2)**2+5*SIN(FI3)**2)        06782000
+ 10    CONTINUE                                                         06783000
+       RETURN                                                           06784000
+       END                                                              06785000
+       SUBROUTINE LINSIG(NPK,NRIS,PK,NE,E,GM,NP,MAXNP,                  06786000
+     1 EP,SC,SF,SS,KP,EPFIN,SCFIN,SFFIN,SSFIN,NDOP,TEMP,LRF,            06787000
+     2 AWRI,SPI,AP,CAPPAE,CAPPE2,ROE,                                   06788000
+     3 N41,N27,TR,TI,TRS,TIS,NBACK,BACK,NSCART,EINF,ESUP)               06789000
+C      *************************************************************    06790000
+C       PRODUCES LINEAR INTERPOLABLE TABULATION OF CROSS SECTION        06791000
+C       FROM RESONANCE PARAMETERS                                       06792000
+C      *************************************************************    06793000
+C                                                                       06794000
+       DIMENSION PK(NPK,NRIS),E(NE),GM(NE)                              06795000
+       DIMENSION SC(MAXNP),SF(MAXNP),SS(MAXNP),EP(MAXNP),KP(MAXNP),     06796000
+     1 EPFIN(MAXNP),SCFIN(MAXNP),SFFIN(MAXNP),SSFIN(MAXNP),             06797000
+     2 TR(N41,N27),TI(N41,N27),TRS(N41,N27),TIS(N41,N27),BACK(6,NBACK)  06798000
+C                                                                       06799000
+               COMMON /OPZIO/OPZ(4,8,10)                                06800000
+               EQUIVALENCE(PRECIS,OPZ(2,5,9))                           06801000
+C                                                                       06802000
+C                                                                       06803000
+       DIMENSION ANUMG(9)                                               06804000
+       DATA NUMG/9/,ANUMG/1.,2.,4.,6.,10.,20.,40.,60.,100./             06805000
+C                                                                       06806000
+C          FIX FIRST POINT OF FIRST INTERVAL                            06807000
+C                                                                       06808000
+       EP(NP)=E(1)                                                      06809000
+       KP(NP)=0                                                         06810000
+       CALL SIGRR(SC(NP),SF(NP),SS(NP),EP(NP),NDOP,TEMP,LRF,AWRI,       06811000
+     1 SPI,AP,CAPPAE,CAPPE2,ROE,NPK,NRIS,PK,                            06812000
+     2 N41,N27,TR,TI,TRS,TIS,NBACK,BACK,NSCART,EINF,ESUP)               06813000
+       NPREC=NP                                                         06814000
+       NP=NP+1                                                          06815000
+C                                                                       06816000
+C       .......... LOOP ON ENERGY INTERVALS (DEFINED BY RESONANCE PEACKS06817000
+       DO 10 IE=2,NE                                                    06818000
+C                    FIX FIRST POINT OF INTERVAL ( A POINT )            06819000
+       NPA=NPREC                                                        06820000
+       EA=EP(NPA)                                                       06821000
+       SIGCA=SC(NPA)                                                    06822000
+       SIGFA=SF(NPA)                                                    06823000
+       SIGSA=SS(NPA)                                                    06824000
+C                         FIX SECOND POINT OF INTERVAL ( B POINT)       06825000
+       EP(NP)=E(IE)                                                     06826000
+C                       KP IS (FOR EACH POINT) THE NUMBER OF THE NEXT PO06827000
+C                       KP=0  MEANS THAT THE INTERVAL IS FINISHED       06828000
+       KP(NP)=0                                                         06829000
+       CALL SIGRR(SC(NP),SF(NP),SS(NP),EP(NP),NDOP,TEMP,LRF,AWRI,       06830000
+     1 SPI,AP,CAPPAE,CAPPE2,ROE,NPK,NRIS,PK,                            06831000
+     2 N41,N27,TR,TI,TRS,TIS,NBACK,BACK,NSCART,EINF,ESUP)               06832000
+C                                                                       06833000
+       NPB=NP                                                           06834000
+       NP=NP+1                                                          06835000
+       IF(NP.GT.MAXNP) CALL ERR(8HLINSIG     ,0)                        06836000
+       EB=EP(NPB)                                                       06837000
+C      FOLLOWING DATA ARE REDEFINED AFTER (AFTER CONVERGENCE IMPROVEMENT06838000
+C      SIGCB=SC(NPB)                                                    06839000
+C      SIGFB=SF(NPB)                                                    06840000
+C      SIGSB=SS(NPB)                                                    06841000
+C          NPREC REMEMBER B POINT WHICH WILL BE USED AS AN A POINT IN   06842000
+C                                                  NEXT    SUBINTERVAL  06843000
+       NPREC=NPB                                                        06844000
+C         THE NUMBER OF THE POINT FOLLOWING A IS STORED IN KP(A) FOR    06845000
+C                                          REORDERING ROUTINE           06846000
+C                                                                       06847000
+C                                                                       06848000
+       NPREC1=NPB                                                       06849000
+       IF(OPZ(2,4,5).LT.0.)GO TO 300                                    06850000
+C                                                                       06851000
+C                                                                       06852000
+C          CONVERGENCE IMPROVEMENT: INSERT POINTS BETWEEN THE TWO       06853000
+C                                 RESONANCE PEACKS FOR A BEST FITTING   06854000
+C                                 OF THE RESONANCE SHAPE (THIS METHOD   06855000
+C                                 HAS BEEN USED BY CULLEN IN RECENT CODE06856000
+C      REMEMBER THAT INTERVALS AND RESONANCES ARE IN DECREASING ENERGY  06857000
+C                                                      ORDER            06858000
+       EALF=EA-(EA-EB)/2.                                               06859000
+C                                                                       06860000
+C        NPREC1 CONTAINS THE B POINT OF THE FIRST SUBINTERVAL           06861000
+C        TO BE SUBDIVIDED (OTHERWISE LOST AFTER CONVERGENCE IMPROVEMENT 06862000
+C        (IT IS THE FIRST POINT ADDED IN CONVERGENCE IMPROVEMENT LOOPS) 06863000
+       NPREC1=0                                                         06864000
+C                                                                       06865000
+C     ........... LOOP TO INSERT POINTS AT MULTIPLE OF RESONANCE WHIDT  06866000
+       DO 20 IG=1,NUMG                                                  06867000
+       E1=EA-GM(IE-1)*ANUMG(IG)                                         06868000
+       IF(E1.LT.EALF) GO TO 200                                         06869000
+C       HALF POINT HAS BEEN REACHED, OTHERWISE INSERT E1 POINT          06870000
+       EP(NP)=E1                                                        06871000
+       KP(NP)=NP+1                                                      06872000
+       IF(NPREC1.LE.0) NPREC1=NP                                        06873000
+       CALL SIGRR(SC(NP),SF(NP),SS(NP),EP(NP),NDOP,TEMP,LRF,AWRI,       06874000
+     1 SPI,AP,CAPPAE,CAPPE2,ROE,NPK,NRIS,PK,                            06875000
+     2 N41,N27,TR,TI,TRS,TIS,NBACK,BACK,NSCART,EINF,ESUP)               06876000
+       NP=NP+1                                                          06877000
+ 20    CONTINUE                                                         06878000
+ 200   CONTINUE                                                         06879000
+C       INSERT EALF POINT                                               06880000
+       EP(NP)=EALF                                                      06881000
+       KP(NP)=NP+1                                                      06882000
+       IF(NPREC1.LE.0) NPREC1=NP                                        06883000
+       CALL SIGRR(SC(NP),SF(NP),SS(NP),EP(NP),NDOP,TEMP,LRF,AWRI,       06884000
+     1 SPI,AP,CAPPAE,CAPPE2,ROE,NPK,NRIS,PK,                            06885000
+     2 N41,N27,TR,TI,TRS,TIS,NBACK,BACK,NSCART,EINF,ESUP)               06886000
+       NP=NP+1                                                          06887000
+C     INSERT POINTS BETWEEN HALF POINT AND THE PEAK OF SECOND RESONANCE 06888000
+       DO 30 IG=1,NUMG                                                  06889000
+       IG1=NUMG-IG+1                                                    06890000
+       E1=EB+GM(IE)*ANUMG(IG1)                                          06891000
+       IF (E1.GT.EALF) GO TO 30                                         06892000
+C        ADDING IS FINISCHED OR ADD E1 POINT                            06893000
+       EP(NP)=E1                                                        06894000
+       KP(NP)=NP+1                                                      06895000
+       CALL SIGRR(SC(NP),SF(NP),SS(NP),EP(NP),NDOP,TEMP,LRF,AWRI,       06896000
+     1 SPI,AP,CAPPAE,CAPPE2,ROE,NPK,NRIS,PK,                            06897000
+     2 N41,N27,TR,TI,TRS,TIS,NBACK,BACK,NSCART,EINF,ESUP)               06898000
+       NP=NP+1                                                          06899000
+ 30    CONTINUE                                                         06900000
+C                LAST POINT OF INTERVAL IS POINT B                      06901000
+       KP(NP-1)=NPB                                                     06902000
+ 300    CONTINUE                                                        06903000
+C                                                                       06904000
+C                                                                       06905000
+C      ................... LOOP IN WHICH POINTS ARE ADDED TO SUBDIVIDE  06906000
+C                               THE INTERVAL IN LINEAR INTERPOLABLE     06907000
+C                               SUBINTERVALS. THIS LOOP BEGIN WITH THE  06908000
+C                               LEFTMOST SUBINTERVAL DEFINED BY END     06909000
+C                               POINTS(NPA:NPREC1)                      06910000
+       NPB=NPREC1                                                       06911000
+       EB=EP(NPB)                                                       06912000
+       SIGCB=SC(NPB)                                                    06913000
+       SIGFB=SF(NPB)                                                    06914000
+       SIGSB=SS(NPB)                                                    06915000
+C                                                                       06916000
+ 40    CONTINUE                                                         06917000
+C                      IF(EA-EB) EXCEEDES COMPUTER PRECISION STOP SUBDIV06918000
+       IF(ABS((EA-EB)/EA).LT.0.0001) GO TO 400                          06919000
+       EC=(EA-EB)/2.+EB                                                 06920000
+C                  EC.GT.0 IS ASSUMED                                   06921000
+C       IF(ABS(EC.LT.1.E-2)EC=1.E-2                                     06922006
+       SIGLIC=(SIGCB-SIGCA)/(EB-EA)*(EC-EA)+SIGCA                       06923000
+       SIGLIF=(SIGFB-SIGFA)/(EB-EA)*(EC-EA)+SIGFA                       06924000
+       SIGLIS=(SIGSB-SIGSA)/(EB-EA)*(EC-EA)+SIGSA                       06925000
+       CALL SIGRR(SC1,SF1,SS1,EC,NDOP,TEMP,LRF,AWRI,                    06926000
+     1 SPI,AP,CAPPAE,CAPPE2,ROE,NPK,NRIS,PK,                            06927000
+     2 N41,N27,TR,TI,TRS,TIS,NBACK,BACK,NSCART,EINF,ESUP)               06928000
+C              CONVERGENCE TEST(SEE IF LINEAR INTERPOLABLE)             06929000
+       IF(ABS(SIGLIC).LT.1.E-5) GO TO 420                               06930000
+       IF(ABS((SIGLIC-SC1)/SIGLIC).GT.PRECIS) GO TO 450                 06931000
+ 420   IF(ABS(SIGLIF).LT.1.E-5) GO TO 422                               06932000
+       IF(ABS((SIGLIF-SF1)/SIGLIF).GT.PRECIS) GO TO 450                 06933000
+ 422   IF(ABS(SIGLIS).LT.1.E-5) GO TO 400                               06934000
+       IF(ABS((SIGLIS-SS1)/SIGLIS).GT.PRECIS) GO TO 450                 06935000
+C                  CONVERGENCE HAS BEEN REACHED                         06936000
+ 400   CONTINUE                                                         06937000
+C                  NEXT SUBINTERVAL IS TO BE SUBDIVIDED                 06938000
+C                  NEW A POINT IS OLD B ( PUT B IN A)                   06939000
+C          KP(A) IS DEFINED AS THE POINT AFTER A FOR REORDERING ROUTINE 06940000
+       KP(NPA)=NPB                                                      06941000
+C                  DEFINE NEW A POINT                                   06942000
+       NPA=NPB                                                          06943000
+       EA=EB                                                            06944000
+       SIGCA=SIGCB                                                      06945000
+       SIGFA=SIGFB                                                      06946000
+       SIGSA=SIGSB                                                      06947000
+C                 NEW B POINT IS THE ONE FOLLOWING NEW A POINT          06948000
+       NPB=KP(NPA)                                                      06949000
+       IF(NPB.LE.0) GO TO 10                                            06950000
+C                  SUBINTERVALS ARE FINISHED.KP(NPB) WILL BE DEFINED AT 06951000
+C                  AT NEXT TURN IN LOOP 10 OR 40                        06952000
+       EB=EP(NPB)                                                       06953000
+       SIGCB=SC(NPB)                                                    06954000
+       SIGFB=SF(NPB)                                                    06955000
+       SIGSB=SS(NPB)                                                    06956000
+       GO TO 40                                                         06957000
+ 450   CONTINUE                                                         06958000
+C                  CONVERGENCE HAS NOT BEEN REACHED. ADD C POINT        06959000
+       EP(NP)=EC                                                        06960000
+       SC(NP)=SC1                                                       06961000
+       SF(NP)=SF1                                                       06962000
+       SS(NP)=SS1                                                       06963000
+       KP(NP)=NPB                                                       06964000
+       NP=NP+1                                                          06965000
+C       NP MUST ALWAYS LESS THAN NPMAX. TO FASTEN THE INNER LOOP        06966000
+C       THIS CONDITION IS CHECKED ONLY IN LOOP 10                       06967000
+C      IF(NP.GT.MAXNP) CALL ERR(8HLINSIG       ,450)                    06968000
+C           NEW POINT B IS POINT C JUST ADDED                           06969000
+       NPB=NP-1                                                         06970000
+       EB=EP(NPB)                                                       06971000
+       SIGCB=SC(NPB)                                                    06972000
+       SIGFB=SF(NPB)                                                    06973000
+       SIGSB=SS(NPB)                                                    06974000
+       GO TO 40                                                         06975000
+C            END OF LOOP ON SUBINTERVAL SUBDIVISION                     06976000
+  10     CONTINUE                                                       06977000
+       NP=NP-1                                                          06978000
+C                                                                       06979000
+C                     ORDERING ROUTINE                                  06980000
+       CALL ORDPU1(NP,EP,SC,SF,SS,KP,EPFIN,SCFIN,SFFIN,SSFIN)           06981000
+       RETURN                                                           06982000
+       END                                                              06983000
+       SUBROUTINE LINSI1(NE,E,S,KT,NF,EF,SF,EP,SP,KP,PRECIS,E1,E2)      06984000
+C      ***************************************************              06985000
+C       LINEARIZE TABULATED ENDFB DATA                                  06986000
+C       BETWEEN   E1,E2  ENERGY LIMITS                                  06987000
+C        --  ENERGY IN INCREASING ORDER --                              06988000
+C         KT E S      (N) INPUT                                         06989000
+C            ES SF   (NF) OUTPUT  (ORDERED POINTS)                      06990000
+C            EP SP KP   SCRATCH SPACE FOR INSERTED POINTS               06991000
+C            PRECIS     REQUIRED PRECISION                              06992000
+C                                                                       06993000
+C      ***************************************************              06994000
+C                                                                       06995000
+       DIMENSION E(NE),S(NE),KT(NE),EF(NF),SF(NF)                       06996000
+       DIMENSION  EP(NF),SP(NF),KP(NF)                                  06997000
+C                                                                       06998000
+C       FIND FIRST E -POINT                                             06999000
+       N1=1                                                             07000000
+       DO 5 I=1,NE                                                      07001000
+       IF(E(I).LT.E2) GO TO 5                                           07002000
+       N1=I-1                                                           07003000
+       GOTO 100                                                         07004000
+ 5     CONTINUE                                                         07005000
+C                                                                       07006000
+C         FIND LAST E POINT                                             07007000
+ 100   N2=NE                                                            07008000
+       DO 6 I=1,NE                                                      07009000
+       I1=NE-I+1                                                        07010000
+       IF(E(I1).GT.E1) GO TO 6                                          07011000
+       N2=I1+1                                                          07012000
+       GO TO 101                                                        07013000
+ 6     CONTINUE                                                         07014000
+ 101   CONTINUE                                                         07015000
+C                                                                       07016000
+C        NP= COUNTERS FOR INSERTED POINTS                               07017000
+       NP=1                                                             07018000
+C             FIRST POINT                                               07019000
+       EP(1)=E(N1)                                                      07020000
+       SP(1)=S(N1)                                                      07021000
+       KP(1)=0                                                          07022000
+C              KP WILL BE REDEFINED AFTER                               07023000
+       NPREC=1                                                          07024000
+       NP=NP +1                                                         07025000
+       N11=N1+1                                                         07026000
+       DO 10 IE=N11,N2                                                  07027000
+C           FIX FIRST POINT OF INTERVAL                                 07028000
+       NPA=NPREC                                                        07029000
+       EA=EP(NPA)                                                       07030000
+       SIGA=SP(NPA)                                                     07031000
+       KTIE=KT(IE)                                                      07032000
+C             FIX SECOND POINT OF INTERVAL                              07033000
+       EP(NP)=E(IE)                                                     07034000
+       KP(NP)=0                                                         07035000
+       SP(NP)=S(IE)                                                     07036000
+C                                                                       07037000
+       NPB=NP                                                           07038000
+       NP=NP+1                                                          07039000
+       IF(NP.GT.NF) CALL ERR(8HLINSI1      ,0)                          07040000
+       EB=EP(NPB)                                                       07041000
+       SIGB=SP(NPB)                                                     07042000
+       NPREC=NPB                                                        07043000
+       KP(NPA)=NPB                                                      07044000
+C                     ................. LOOP TO SUBDIVIDE INTERVALS     07045000
+ 40    CONTINUE                                                         07046000
+        IF(EA.LT.1.E-10) GO TO 102                                      07047000
+        IF(ABS((EA-EB)/EA).LT.0.0001) GO TO 400                         07048000
+ 102   CONTINUE                                                         07049000
+       EC=(EB-EA)/2.+EA                                                 07050000
+       IF(ABS(EC).LT.1.E-2) EC=1.E-4                                    07051000
+       CALL TERP1(EA,SIGA,EB,SIGB,EC,SIGC,KTIE)                         07052000
+ 105   SIGLIN=(SIGB-SIGA)/(EB-EA)*(EC-EA)+SIGA                          07053000
+       IF(ABS(SIGLIN).LT.1.E-5) GO TO 400                               07054000
+       IF(ABS((SIGLIN-SIGC)/SIGLIN).GT.PRECIS) GO TO 450                07055000
+ 400   CONTINUE                                                         07056000
+C       NEXT SUBINTERVAL MUST BE SUBDIVIDED                             07057000
+C       CONVERGENCE HAS BEEN REACHED                                    07058000
+C       NEW POINT A IS OLD POINT B ( PUT B IN A)                        07059000
+       KP(NPA)=NPB                                                      07060000
+C       NEW A POINT                                                     07061000
+       NPA=NPB                                                          07062000
+       EA=EB                                                            07063000
+       SIGA=SIGB                                                        07064000
+C         NEW B POINT                                                   07065000
+       NPB=KP(NPA)                                                      07066000
+       IF(NPB.LE.0) GO TO 10                                            07067000
+C            INTERVAL IS EXAUSTED                                       07068000
+       EB=EP(NPB)                                                       07069000
+       SIGB=SP(NPB)                                                     07070000
+       GO TO 40                                                         07071000
+ 450   CONTINUE                                                         07072000
+C        CONVERGENCE HAS NOT BEEN REACHED                               07073000
+C        ADD POINT C                                                    07074000
+       EP(NP)=EC                                                        07075000
+       SP(NP)=SIGC                                                      07076000
+       KP(NP)=NPB                                                       07077000
+       NP=NP+1                                                          07078000
+       IF(NP.GT.NF) CALL ERR(8HLINSI1          , 450)                   07079000
+C           NEW POINT B IS POINT C JUST ADDED                           07080000
+       NPB=NP-1                                                         07081000
+       EB=EP(NPB)                                                       07082000
+       SIGB=SP(NPB)                                                     07083000
+       GO TO 40                                                         07084000
+C             END OF LOOP ON SUBINTERVAL DIVISION                       07085000
+  10   CONTINUE                                                         07086000
+       NP=NP-1                                                          07087000
+       NF=NP                                                            07088000
+       CALL ORDPU3(NP,EP,SP,KP,NF,EF,SF)                                07089000
+C       NF=NUMBER OF FINAL POINTS :RETURNED FROM ORDPU2                 07090000
+       RETURN                                                           07091000
+       END                                                              07092000
+      SUBROUTINE BROAD(N,T,AWR,E,S,EA,SA,C,A)                           07093000
+C     ******************************************                        07094000
+C                                                                       07095000
+C           DOPPLER BROADENING OF LINEAR TABULATED CROSS SECTIONS       07096000
+C           FOLLOWING THE METHOD IN : CULLEN WEISBIN                    07097000
+C                            NUCL SCI ENG  60,199 (1976)                07098000
+C                                                                       07099000
+C       THIS ROUTINE HAS BEEN WRITTEN BY GABRIELE FIONI                 07100000
+C                                                                       07101000
+C                                                                       07102000
+C       WARNING! :  THIS ROUTINE IS NOT SUITED FOR VERY LOW ENERGY      07103000
+C                                                                       07104000
+C       SUBROUTINE PER ALLARGARE DOPPLER SEZIONI D'URTO                 07105000
+C                                                                       07106000
+C       ARGOMENTI: N NUMERO DI PUNTI DA ALLARGARE                       07107000
+C                  T TEMPERATURA A CUI SI VUOLE ALLARGARE               07108000
+C                  AWR NUMERO DI MASSA DEL NUCLIDE CONSIDERATO          07109000
+C                  E ARRAY CONTENENTE ENERGIA DEI PT                    07110000
+C                  S VALORI SEZIONI D'URTO RELATIVE AD E                07111000
+C                  SA ARRAY SEZIONI ALLARGATE                           07112000
+C                  EA ENERGIE DELLE MEDESIME                            07113000
+C                  C  , A :WORK  ARRAYS                                 07114000
+C                                                                       07115000
+C     ENERGIE E SIGMA INPUT ED OUTPUT SONO IN ORDINE DI ENERG CRESCENTE 07116000
+C                                                                       07117000
+C      **************************************************************   07118000
+C                                                                       07119000
+C                                                                       07120000
+      COMMON /FILES/NT(4,99)                                            07121000
+      DIMENSION A(N),C(N),E(N),S(N),EA(N),SA(N),IDISC(30)               07122000
+      DOUBLE PRECISION SUP,SINF,PI,RAIPI,DER,DEX,F1ORA,F1PRE,F2ORA,F2PRE07123000
+     C,SINT1,SINT2                                                      07124000
+      DATA PI/3.14159265358979/                                         07125000
+      ALFA=11605.3*AWR/T                                                07126000
+      RAIPI=1.0/DSQRT(PI)                                               07127000
+      NO=NT(1,6)                                                        07128000
+      NP=NT(1,11)                                                       07129000
+C     WRITE(NP,9000) T                                                  07130000
+C     WRITE(NO,9000) T                                                  07131000
+C9000   FORMAT('  DOPPLER BROADENING OF THE TABULATED CROSS SECTION',   07132000
+C    1 ' TEMPERATURE:',E12.5)                                           07133000
+C                                                                       07134000
+C     CONVERSIONE DA ENERGIA A VELOCITA'(Y**2=ALFA*EA)                  07135000
+C                                                                       07136000
+      DO 10 L=1,N                                                       07137000
+      IF(E(L).LT.1.0E-12) E(L)=1.0E-12                                  07138000
+  10  EA(L)=SQRT(ALFA*E(L))                                             07139000
+C     CREAZIONE TABELLA DI DISCONTINUITA'                               07140000
+      NM1=N-1                                                           07141000
+      K=0                                                               07142000
+      DO 11 I=1,NM1                                                     07143000
+      IF(EA(I).NE.EA(I+1)) GOTO 11                                      07144000
+      K=K+1                                                             07145000
+      IDISC(K)=I                                                        07146000
+ 11   CONTINUE                                                          07147000
+      KDISC=K+1                                                         07148000
+      IDISC(KDISC)=N                                                    07149000
+C                                                                       07150000
+C     CALCOLO COSTANTI AK & CK                                          07151000
+C                                                                       07152000
+      DO 15 K=1,N                                                       07153000
+      EK1=EA(K+1)**2                                                    07154000
+      EK=EA(K)**2                                                       07155000
+      EDIF=EK1-EK                                                       07156000
+      IF(EDIF.EQ.0.) GOTO 13                                            07157000
+      A(K)=(EK1*S(K)-EK*S(K+1))/EDIF                                    07158000
+      C(K)=(S(K+1)-S(K))/EDIF                                           07159000
+      GOTO 15                                                           07160000
+ 13   IF(K.EQ.1)  GOTO 15                                               07161000
+      A(K)=A(K-1)                                                       07162000
+      C(K)=C(K-1)                                                       07163000
+ 15   CONTINUE                                                          07164000
+C                                                                       07165000
+C     ***************  CALCOLO INTEGRALE SIGMA* (Y,T) ***************** 07166000
+C                                                                       07167000
+C     LOOP SU TUTTI I VALORI PER ALLARGARLI                             07168000
+C                                                                       07169000
+      NCW=0                                                             07170000
+      NLL=1                                                             07171000
+      DO 500 LP=1,KDISC                                                 07172000
+      NHH=IDISC(LP)                                                     07173000
+      DO 100 I=NLL,NHH                                                  07174000
+      Y=EA(I)                                                           07175000
+      IF(Y.GT.4.) GOTO 20                                               07176000
+C                                                                       07177000
+C     SCRITTA DI WARNING CAUSATA DAL NON VERIFICARSI DELLA CONDIZIONE   07178000
+C     AE/KT > 16. IN QUESTO CASO BISOGNEREBBE CALCOLARE ANCHE L'ALTRO   07179000
+C     PEZZO DELL'INTEGRALE. NEI CALCOLI A CUI E' DESTINATE LA CATENA    07180000
+C     C2RV, DETTO CALCOLO E' TRASCURABILE: INFLUENZA SOLO GRUPPI ALTI   07181000
+C     NCW=NCW+1                                                         07182000
+C     IF(NCW.GT.1) GOTO 18                                              07183000
+C     WRITE(NO,1000) E(I)                                               07184000
+      WRITE(NP,1000) E(I)                                               07185000
+ 1000 FORMAT(' WARNING!! APPROXIMATED DOPPLER BROADENING ! ENERGY:',    07186000
+     1        E12.5)                                                    07187000
+ 18   SA(I)=S(I)                                                        07188000
+      GOTO 100                                                          07189000
+ 20   YY=Y*Y                                                            07190000
+      Y3=YY*Y*4                                                         07191000
+      Y4=YY*YY                                                          07192000
+      DERF1C=0.5+YY                                                     07193000
+      DERF2C=0.75+3*YY+Y4                                               07194000
+      DEXF2C=1.5+6*YY                                                   07195000
+      YC=4*Y                                                            07196000
+      KINF=I+1                                                          07197000
+      SINT1=0.                                                          07198000
+      SINT2=0.                                                          07199000
+C                                                                       07200000
+C            INTEGRALE SOPRA IL PUNTO Y                                 07201000
+C                                                                       07202000
+C     SONO ALL'ESTREMO DESTRO DELL'INTERVALLO? (SI=CONTINUARE COME 1/V) 07203000
+C     DISCONTINUITA' A DESTRA?                                          07204000
+      IF(I.EQ.NHH) GOTO 33                                              07205000
+C     SONO NEL RANGE DI DISCONTINUITA' ?                                07206000
+      IF((Y+4).GT.EA(NHH)) GOTO 33                                      07207000
+      F1ORA=-2*RAIPI*Y                                                  07208000
+      F2ORA=-RAIPI*(YC+Y3)                                              07209000
+      DO 30 J=KINF,N                                                    07210000
+C     VALORI INTEGRALI PRECEDENTE INTERVALLO                            07211000
+      F1PRE=F1ORA                                                       07212000
+      F2PRE=F2ORA                                                       07213000
+C     LIMITI INTERVALLO                                                 07214000
+      SUP=EA(J)-Y                                                       07215000
+      IF(SUP.LT.4.) GOTO 25                                             07216000
+      SUP=4.                                                            07217000
+C     CALCOLO VALORI DUE INTEGRALI                                      07218000
+ 25   DER=DERF(SUP)                                                     07219000
+      DEX=DEXP(-SUP*SUP)                                                07220000
+      F1ORA=DERF1C*DER-RAIPI*(SUP+2*Y)*DEX                              07221000
+      F2ORA=DERF2C*DER-RAIPI*(SUP*(DEXF2C+SUP*(YC+SUP))+Y3+YC)*DEX      07222000
+      SINT1=A(J-1)*(F1ORA-F1PRE)+SINT1                                  07223000
+      SINT2=C(J-1)*(F2ORA-F2PRE)+SINT2                                  07224000
+      IF(SUP.GE.4.) GOTO 35                                             07225000
+ 30   CONTINUE                                                          07226000
+C     CONTINUAZIONE NELLA DISCONTINUITA'                                07227000
+ 33   SINT1=SINT1+S(I)*EA(I)*(Y+RAIPI)                                  07228000
+C                                                                       07229000
+C      INTEGRALE SOTTO Y                                                07230000
+C                                                                       07231000
+C     NON CI SONO PUNTI A SINISTRA?                                     07232000
+  35  KORA=0                                                            07233000
+C     DISCONTINUITA' A SINISTRA ?                                       07234000
+      IF(I.EQ.NLL) GOTO 53                                              07235000
+C     RANGE DI DISCONTINUITA' A SINISTRA?                               07236000
+      IF((Y-4).LT.EA(NLL)) GOTO 53                                      07237000
+      NM1=I-1                                                           07238000
+      KORA=I                                                            07239000
+      F1ORA=-2*RAIPI*Y                                                  07240000
+      F2ORA=-RAIPI*(YC+Y3)                                              07241000
+      DO 50 J=1,NM1                                                     07242000
+      KORA=KORA-1                                                       07243000
+      IF(KORA.LE.0) GOTO 60                                             07244000
+      SINF=EA(KORA)-Y                                                   07245000
+      IF(SINF.GT.-4.) GOTO 40                                           07246000
+      SINF=-4.                                                          07247000
+ 40   F1PRE=F1ORA                                                       07248000
+      F2PRE=F2ORA                                                       07249000
+      DER=DERF(SINF)                                                    07250000
+      DEX=DEXP(-SINF*SINF)                                              07251000
+      F1ORA=DERF1C*DER-RAIPI*(SINF+2*Y)*DEX                             07252000
+      F2ORA=DERF2C*DER-RAIPI*(SINF*(DEXF2C+SINF*(YC+SINF))+Y3+YC)*DEX   07253000
+      SINT1=A(KORA)*(F1PRE-F1ORA)+SINT1                                 07254000
+      SINT2=C(KORA)*(F2PRE-F2ORA)+SINT2                                 07255000
+      IF(SINF.LE.-4.) GOTO 60                                           07256000
+ 50   CONTINUE                                                          07257000
+C     CONTINUAZIONE PER DISCONTINUITA' SINISTRA                         07258000
+ 53   SINT1=SINT1+S(I)*EA(I)*(Y-RAIPI)                                  07259000
+ 60   SA(I)=1/(2*YY)*(SINT1+SINT2)                                      07260000
+ 100  CONTINUE                                                          07261000
+      NLL=NHH+1                                                         07262000
+ 500  CONTINUE                                                          07263000
+      RETURN                                                            07264000
+      END                                                               07265000
+      SUBROUTINE NII(NTI,NTIN,NTO,NTOUT,NMT,M2,MINDX1,AINDX,M1,MIX,MA,A,07266000
+     1EUP,DELU,NG)                                                      07267000
+C     ******************************************************************07268000
+C      NI COEFFICIENTS COMPUTATION FOR MCC2F5 FILE, RECORD 2            07269000
+C      NI=A0+A1E+A2E**2+A3 E**3                                         07270000
+C     ******************************************************************07271000
+C                                                                       07272000
+C      PUNTI AGGIUNTI PER L'ENERGIA                                     07273000
+          DIMENSION EADD(19),IT(6)                                      07274000
+       DATA EADD/.1E6,.25E6,.5E6,.75E6,1.E6,1.25E6,1.5E6,1.75E6,2.E6,   07275000
+     A2.5E6,3.E6,3.5E6,4.E6,5.E6,6.5E6,9.E6,10.E6,12.E6,15.E6/          07276000
+C                                                                       07277000
+C                                                                       07278000
+       COMMON /INDX1/INDX1(40,200)                                      07279000
+            COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),           07280000
+     1      JNT(200),N1X,N2X,NS,LX,LY,LB                                07281000
+C                                                                       07282000
+       COMMON MAXA,AD(10000)                                            07283000
+C                                                                       07284000
+       COMMON/FILES/NT(4,99)                                            07285000
+        EQUIVALENCE(NP,NT(1,11)),(NO,NT(1,6))                           07286000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        07287000
+C                                                                       07288000
+       COMMON /DIMC/MMA,MIND1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3      07289000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     07290000
+C                                                                       07291000
+      DIMENSION AINDX(MINDX1),A(MA),MIX(M1,M2)                          07292000
+      COMMON /DIM/M(3),IND2                                             07293000
+C                                                                       07294000
+        WRITE(NP,9000) AINDX(35),AINDX(36)                              07295000
+ 9000   FORMAT(1X,2A4,' NU CALCULATED')                                 07296000
+C                                                                       07297000
+C      PER I 4 COEFF  CHE DESCRIVONO NI                                 07298000
+      DO 10 I=1,4                                                       07299000
+ 10   A(I)=0.                                                           07300000
+      IF(AINDX(10).EQ.2) GO TO 100                                      07301000
+      IF(AINDX(10).NE.1) CALL ERR(8H   NI     ,0 )                      07302000
+C      NON IN UN LIST COME ESPRESSIONE POLINIMIALE, MA 4 COEFF MAX(COME 07303000
+C         F5 ) NELL INDICE                                              07304000
+C      SCRITTURA (SOLO DELL INDICE) PER 4 COEFF                         07305000
+      IF(AINDX(11).LE.0) CALL ERR(8H  NI     ,1)                        07306000
+      NC=AINDX(11)                                                      07307000
+      DO 20 I=1,NC                                                      07308000
+ 20   A(I)=AINDX(11+I)                                                  07309000
+        ANTO=0.                                                         07310000
+        ANTOUT=0.                                                       07311000
+        AREC1=0.                                                        07312000
+        ARECN=0.                                                        07313000
+        ANWDS=0.                                                        07314000
+        NUME=0.                                                         07315000
+        AKT=0.                                                          07316000
+C      VA A SCRIVERE NELL INDICE                                        07317000
+      GO TO 200                                                         07318000
+ 100  CONTINUE                                                          07319000
+C                    TABULATO IN UN TAB1                                07320000
+      NTIN=AINDX(23)                                                    07321000
+      NTI=NT(1,NTIN)                                                    07322000
+C                     HEAD RECORD IS NOT READ. NPOST INCREASED BY 1     07323000
+      NPOST=AINDX(25) +1                                                07324000
+      CALL POST(NTIN,NPOST)                                             07325000
+      T=AINDX(7)                                                        07326000
+C      LETTURA RECORDS IN RECS                                          07327000
+C      LETTURA HEAD NON EFFETTUATA ANCHE SE SI PUNTA LI'                07328000
+C     CALL RREC(1,NTI,3,T)                                              07329000
+C      LETTURA TAB1                                                     07330000
+      CALL RREC(3,NTI,3,T)                                              07331000
+      NT(4,NTIN)=NT(4,NTIN)+1+N2/3+NREST(N2,3)+N1/3+NREST(N1,3)         07332000
+C                                                                       07333000
+C      SET ENERGY POINTS                                                07334000
+       DO 30 I=1,N2                                                     07335000
+ 30    A(4+I)=AD(LX+I-1)                                                07336000
+       DO 40 I=1,19                                                     07337000
+ 40    A(N2+4+I)=EADD(I)                                                07338000
+       NUME=N2+19                                                       07339000
+       LLA=4+NUME+1                                                     07340000
+C                    A(1) : A(4) = NU COEFFICIENTS                      07341000
+C                    A(5) : A(5+N2+19) = TAB1 ENERGIES + ADDED ENERGY   07342000
+C                               ( N2+19 =NUME)           POINTS         07343000
+C                    A(LLA):A(LLA+NUME)= Y(X) OBTAINED BY INTERPOLATION 07344000
+C                    A(LLKT):A(LLKT+NUME)= INTERPOLATION CODES          07345000
+C                                                                       07346000
+       LLKT=LLA+NUME+1                                                  07347000
+       CALL TERP1T(N1,N2,NBT,JNT,A(LLKT))                               07348000
+       IF(LLKT+NUME.GT.MA) CALL ERR(8H NII         ,40)                 07349000
+       CALL ORD(NUME,A(5))                                              07350000
+       DO 50 I=1,NUME                                                   07351000
+        CALL TERPET(AD(LX),AD(LY),A(LLKT),N2,A(4+I),A(LLA+I-1),         07352000
+     1              LFLAG,LFLAG1)                                       07353000
+ 50     CONTINUE                                                        07354000
+       CALL GNUFT(A(5),A(LLA),NUME,A)                                   07355000
+C                                                                       07356000
+C       SCRIVE SU FILE NTO LA TABULAZIONE DEL NU DELLA PARTE 2 DI MCC2F707357000
+        CALL POSL(NTOUT)                                                07358000
+        ANTO=NTO                                                        07359000
+        ANTOUT=NTOUT                                                    07360000
+        AREC1=NT(3,NTOUT)                                               07361000
+        ARECN=1.                                                        07362000
+        NUME=N2                                                         07363000
+        ANWDS=NUME*2                                                    07364000
+        AKT=3.                                                          07365000
+        IF(N1.GT.1) GO TO 110                                           07366000
+        KT=JNT(1)                                                       07367000
+C        MUTA LA TABULAZ DI ENDFB IN QUELLA DI MC2-2                    07368000
+        IF(KT.EQ.1) AKT=0.                                              07369000
+        IF(KT.EQ.2) AKT=3.                                              07370000
+        IF(KT.EQ.3) AKT=2.                                              07371000
+        IF(KT.EQ.4) AKT=4.                                              07372000
+        IF(KT.EQ.5) AKT=1.                                              07373000
+        GO TO 120                                                       07374000
+ 110    CALL ERR(8HNII         ,110)                                    07375000
+C             LINEAR INTERPOLATION IS ASSUMED                           07376000
+ 120  CONTINUE                                                          07377000
+        WRITE(NTO) (AD(NUME-J+LX),J=1,NUME),(AD(NUME-J+LY),J=1,NUME)    07378000
+        NT(4,NTOUT)=NT(4,NTOUT)+1                                       07379000
+        NT(3,NTOUT)=NT(4,NTOUT)                                         07380000
+C                                                                       07381000
+ 200  CONTINUE                                                          07382000
+C     ARRIVA QUI SENZA IDENTIFICATORI IL NUCLIDE E QUI NON METTO IDENTIF07383000
+      IF(NMT.GT.M2) GO TO 600                                           07384000
+      NOM=MIX(3,NMT)                                                    07385000
+      NOM1=MIX(4,NMT)                                                   07386000
+      NOM2=MIX(1,NMT)                                                   07387000
+      NOM3=MIX(2,NMT)                                                   07388000
+      GO TO 610                                                         07389000
+C      ANDREBBE MESSO ENDFB ID COME CARATTERE MA NON HO FATTO LA SUBROUT07390000
+ 600  NOM=NAREAL(AINDX(35))                                             07391000
+      NOM1=NAREAL(AINDX(36))                                            07392000
+      NOM2=NAREAL(AINDX(35))                                            07393000
+      NOM3=NAREAL(AINDX(36))                                            07394000
+ 610  CONTINUE                                                          07395000
+C      METTE SOLO IN INDICE NON IN FILE SECONDA SERIE                   07396000
+       IND2=IND2+1                                                      07397000
+       IF(IND2.GT.MIND12)  CALL ERR(8H NII       ,610)                  07398000
+      CALL EMPIN (MIND11,INDX1(1,IND2),                                 07399000
+     1AINDX(1),AINDX(2),AINDX(3),AINDX(4),AINDX(5),                     07400000
+     2NOM,NOM1,NOM2,NOM3,0.,5.,2.,11.,ANTO,ANTOUT,AREC1,ARECN,ANWDS,    07401000
+     3 FLOAT(NUME),FLOAT(NG),EUP,DELU,0.,0.,5.,0.,                      07402000
+     4AINDX(10),AINDX(11),AKT,                                          07403000
+     50.,0.,0.,0.,A(1),A(2),A(3),A(4),                                  07404000
+     60.,0.,0.)                                                         07405000
+      RETURN                                                            07406000
+      END                                                               07407000
+      SUBROUTINE TERPET(X,Y,IT,NX,Z,A,M,L)                              07408000
+C     ************************************************************      07409000
+C       THIS ROUTINE HAS BEEN TAKEN FROM ETOE CODE                      07410000
+C       ********************************************************        07411000
+C                                                                       07412000
+C     SUBROUTINE TERP INTERPOLATES BETWEEN VALUES OF Y.                 07413000
+C     MODIFIED BY D.M. GREEN 10/3/66 TO EXTRAPOLATE                     07414000
+C                                                                       07415000
+C     X,Y               COORDINATE PAIRS SUPPLIED TO SUBROUTINE TERP.   07416000
+C     IT                INTERPOLATION SCHEME. GIVEN FOR EACH X,Y PAIR.  07417000
+C     NX                NUMBER OF X,Y PAIRS GIVEN.                      07418000
+C     Z                 GIVEN VALUE OF X.                               07419000
+C     A                 INTERPOLATED VALUE OF Y(Z).                     07420000
+C     M                 VALUE OF Z LIES BETWEEN X(M) AND X(M+1) OR =X(M)07421000
+C     L                 =0 NORMAL RETURN.                               07422000
+C                       =1 Z LESS THAN X(1).                            07423000
+C                       =2 Z GREATER THAN X(NX).                        07424000
+C                                                                       07425000
+C     SUBROUTINES CALLED BY SUBROUTINE TERP.                            07426000
+C                                                                       07427000
+C     DLOG              FORTRAN NATURAL LOGRITHM (DOUBLE PRECISION).    07428000
+C     DEXP              FORTRAN EXPONENTIAL FUNCTION (DOUBLE PRECISION).07429000
+C     ERROR             PRINTS AND CONTROLS ERROR MESSAGES              07430000
+C                                                                       07431000
+C                                                                       07432000
+C     DECLARE LITERIAL CONSTANTS AS DOUBLE PRECISION                    07433000
+C                                                                       07434000
+      DOUBLE PRECISION SUBNAM                                           07435000
+      DIMENSION X(1),Y(1),IT(1)                                         07436000
+      DATA SUBNAM/6HTERPET/                                             07437000
+C                                                                       07438000
+C***********************************************************************07439000
+C                                                                       07440000
+C     CHANGE DOUBLE PRECISION SYSTEM FUNCTION TO SINGLE PRECISION.      07441000
+C                                                                       07442000
+C     DLOG(X)=ALOG(X)                                                   07443000
+C     DEXP(X)=EXP(X)                                                    07444000
+C                                                                       07445000
+C***********************************************************************07446000
+C                                                                       07447000
+      L=0                                                               07448000
+      IF(Z-X(1))20,30,30                                                07449000
+   20 CONTINUE                                                          07450000
+      L=1                                                               07451000
+      M=1                                                               07452000
+      GO TO 60                                                          07453000
+   30 CONTINUE                                                          07454000
+      IF(NX.LE.0) GO TO 41                                              07455000
+      DO 40 N=1,NX                                                      07456000
+      M=N-1                                                             07457000
+      IF(X(N)-Z) 40,50,60                                               07458000
+   40 CONTINUE                                                          07459000
+   41 CONTINUE                                                          07460000
+      L=2                                                               07461000
+      M=NX-1                                                            07462000
+      GO TO 60                                                          07463000
+   50 CONTINUE                                                          07464000
+      M=N                                                               07465000
+      A=Y(N)                                                            07466000
+      GO TO 160                                                         07467000
+   60 CONTINUE                                                          07468000
+      INT=IT(M+1)                                                       07469000
+      IF(INT) 70,70,80                                                  07470000
+   70 CONTINUE                                                          07471000
+C                                                                       07472000
+C     ******************************************************************07473000
+C                                                                       07474000
+C     ERROR=10000                                                       07475000
+C     INTERPOLATION CODE FOR M+1 POINT IS NOT A POSITIVE NUMBER.        07476000
+C     SET EQUAL TO 2.                                                   07477000
+C                                                                       07478000
+C     ******************************************************************07479000
+C                                                                       07480000
+      NERR=10000                                                        07481000
+      CALL ERRORE(SUBNAM,NERR)                                          07482000
+      INT=2                                                             07483000
+      GO TO 100                                                         07484000
+   80 CONTINUE                                                          07485000
+      IF(INT-5) 100,100,90                                              07486000
+   90 CONTINUE                                                          07487000
+C                                                                       07488000
+C     ******************************************************************07489000
+C                                                                       07490000
+C     ERROR=20000                                                       07491000
+C     INTERPOLATION CODE IS GREATER THAN 5. SET EQUAL TO 2.             07492000
+C                                                                       07493000
+C     ******************************************************************07494000
+C                                                                       07495000
+      NERR=20000                                                        07496000
+      CALL ERRORE(SUBNAM,NERR)                                          07497000
+      INT=2                                                             07498000
+  100 CONTINUE                                                          07499000
+      X1=X(M)                                                           07500000
+      X2=X(M+1)                                                         07501000
+      Y1=Y(M)                                                           07502000
+      Y2=Y(M+1)                                                         07503000
+      GO TO (110,120,130,140,150),INT                                   07504000
+  110 CONTINUE                                                          07505000
+      A=Y1                                                              07506000
+      GO TO 160                                                         07507000
+  120 CONTINUE                                                          07508000
+      IF(X2.EQ.X1) GO TO 110                                            07509000
+      A=Y1+(Z-X1)*(Y2-Y1)/(X2-X1)                                       07510000
+      GO TO 160                                                         07511000
+  130 CONTINUE                                                          07512000
+      T1=Z/X1                                                           07513000
+      T2=X2/X1                                                          07514000
+      IF(T1.LE.0.) GO TO 120                                            07515000
+      IF(T2.LE.0.) GO TO 120                                            07516000
+      IF(T2.EQ.1.) GO TO 110                                            07517000
+      A=Y1+ALOG(T1)*(Y2-Y1)/ALOG(T2)                                    07518000
+      GO TO 160                                                         07519000
+  140 CONTINUE                                                          07520000
+      T3=Y2/Y1                                                          07521000
+      IF(T3.LE.0.) GO TO 120                                            07522000
+      A=Y1*T3**((Z-X1)/(X2-X1))                                         07523000
+      GO TO 160                                                         07524000
+  150 CONTINUE                                                          07525000
+      T1=Z/X1                                                           07526000
+      T2=X2/X1                                                          07527000
+      T3=Y2/Y1                                                          07528000
+      IF(T1.LE.0.) GO TO 140                                            07529000
+      IF(T2.LE.0.) GO TO 140                                            07530000
+      IF(T2.EQ.1.) GO TO 110                                            07531000
+      IF(T3.LE.0.) GO TO 130                                            07532000
+      A=Y1*T3**(ALOG(T1)/ALOG(T2))                                      07533000
+  160 RETURN                                                            07534000
+      END                                                               07535000
+      SUBROUTINE TERP1T(NR,NP,NBT,INT,IT)                               07536000
+C     ***************************************************               07537000
+C     THIS ROUTINE HAS BEEN TAKEN FROM ETOE PROGRAM                     07538000
+C     ***************************************************               07539000
+C                                                                       07540000
+C     SUBROUTINE TERP1 SETS UP THE IT ARRAY NEEDED FOR SUBROUTINE       07541000
+C     TERP.                                                             07542000
+C                                                                       07543000
+C     NR                NUMBER OF INTERPOLATION REGIONS PROVIDED BY     07544000
+C                       ENDF/B.                                         07545000
+C     NP                NUMBER OF X,Y PAIRS GIVEN.                      07546000
+C     NBT               NBT(M) IS THE VALUE OF THE TABULATED PAIRS      07547000
+C                       SEPARATING THE M AND M+1 INTERPOLATION REGIONS. 07548000
+C                       SUPPLIED BY DAMMET.                             07549000
+C     INT               INT(M) IS THE INTERPOLATION SCHEME              07550000
+C                       IDENTIFICATION NUMBER USED IN THE M TH REGION.  07551000
+C                       SUPPLIED BY DAMMET.                             07552000
+C     IT                INTERPOLATION SCHEME. GIVEN FOR EACH X,Y PAIR.  07553000
+C                                                                       07554000
+      DIMENSION NBT(NR),INT(NR),IT(NP)                                  07555000
+      IF(NR.LE.0) RETURN                                                07556000
+      N2=0                                                              07557000
+      DO 10 IR=1,NR                                                     07558000
+      N1=N2+1                                                           07559000
+      N2=NBT(IR)                                                        07560000
+      IF(N2.LT.N1)GO TO 10                                              07561000
+      DO 9  I=N1,N2                                                     07562000
+      IT(I)=INT(IR)                                                     07563000
+    9 CONTINUE                                                          07564000
+   10 CONTINUE                                                          07565000
+   11 RETURN                                                            07566000
+      END                                                               07567000
+      SUBROUTINE GNUFT(X,Y,N,AA)                                        07568000
+C     *****************************************************             07569000
+C                                                                       07570000
+C     ROUTINE TAKEN FROM ETOE CODE                                      07571000
+C     QUESTA SUBROUTINE E' STATA PRESA DA ETOE-II. MEDIANTE IL          07572000
+C     METODO DEI MINIMI QUADRATI RESTITUISCE I COEFFICIENTI DEL         07573000
+C     POLINOMIO DEL TERZO ORDINE CHE FITTA IL NU                        07574000
+C                                                                       07575000
+C     X,Y           COORDINATE PUNTI DA FITTARE                         07576000
+C     N             NUMERO DI COPPIE                                    07577000
+C     K             ORDINE DEL POLINOMIO (PER NOI SOLO K=3)             07578000
+C     AA            COEFFICIENTI DEL POLINOMIO                          07579000
+C                                                                       07580000
+C     SUBROUTINES CHIAMATE                                              07581000
+C     SMEQ                CALCOLA I COEFFICIENTI DEL SISTEMA DEI MINIMI 07582000
+C                                                                       07583000
+C                                                                       07584000
+      DIMENSION X(N),Y(N),A(4,5),AA(4)                                  07585000
+      M2=2                                                              07586000
+      M4=4                                                              07587000
+      M5=5                                                              07588000
+C   SBIANCA ARRAY A(I,J)                                                07589000
+      DO 10 J=1,5                                                       07590000
+      DO 10 I=1,4                                                       07591000
+      A(I,J)=0.                                                         07592000
+   10 CONTINUE                                                          07593000
+C                                                                       07594000
+C     FORMA MATRICE A(I,J)-VEDI TEORIA MINIMI QUADRATI                  07595000
+C     HILDEBRAND-"INTRODUCTION TO NUMERICAL ANALYSIS"                   07596000
+C                                                                       07597000
+      IF (N.LE.0) GOTO25                                                07598000
+      DO 20 I=1,N                                                       07599000
+      X2=X(I)**2                                                        07600000
+      X4=X2**2                                                          07601000
+      A(1,2)=A(1,2)+X(I)                                                07602000
+      A(1,3)=A(1,3)+X2                                                  07603000
+      A(1,4)=A(1,4)+X2*X(I)                                             07604000
+      A(2,4)=A(2,4)+X4                                                  07605000
+      A(3,4)=A(3,4)+X4*X(I)                                             07606000
+      A(4,4)=A(4,4)+X4*X2                                               07607000
+      A(1,5)=A(1,5)+Y(I)                                                07608000
+      A(2,5)=A(2,5)+Y(I)*X(I)                                           07609000
+      A(3,5)=A(3,5)+Y(I)*X2                                             07610000
+      A(4,5)=A(4,5)+Y(I)*X2*X(I)                                        07611000
+  20  CONTINUE                                                          07612000
+  25  CONTINUE                                                          07613000
+      A(1,1)=N                                                          07614000
+      A(2,1)=A(1,2)                                                     07615000
+      A(2,2)=A(1,3)                                                     07616000
+      A(2,3)=A(1,4)                                                     07617000
+      A(3,1)=A(1,3)                                                     07618000
+      A(3,2)=A(2,3)                                                     07619000
+      A(3,3)=A(2,4)                                                     07620000
+      A(4,1)=A(1,4)                                                     07621000
+      A(4,2)=A(2,4)                                                     07622000
+      A(4,3)=A(3,4)                                                     07623000
+      CALL SMEQ(M4,M4,M5,A)                                             07624000
+C     CALCOLO E STAMPA ERRORE                                           07625000
+C     WRITE (85,1600)                                                   07626000
+C     DO 29 I=1,N                                                       07627000
+C     X2=((A(4,5)*X(I)+A(3,5))*X(I)+A(2,5))*X(I)+A(1,5)                 07628000
+C     X4=0.                                                             07629000
+C     IF(Y(I).NE.0.) X4=100.*(X2-Y(I))/Y(I)                             07630000
+C     WRITE (85,1601) X(I),Y(I),X2,X4                                   07631000
+C 29  CONTINUE                                                          07632000
+C                                                                       07633000
+C     CARICAMENTO COEFFICIENTI IN AA   (SI TROVANO NEL TERMINE NOTO)    07634000
+C                                                                       07635000
+      DO 30 I=1,4                                                       07636000
+      AA(I)=A(I,5)                                                      07637000
+ 30   CONTINUE                                                          07638000
+C1600 FORMAT(45H0    ENERGY     GNU IN     GNU FIT     ERROR )          07639000
+C1601 FORMAT(1X,1P4E11.3)                                               07640000
+      RETURN                                                            07641000
+      END                                                               07642000
+      SUBROUTINE SMEQ(N,NX1,NX2,A)                                      07643000
+C     ********************************************                      07644000
+C                                                                       07645000
+C     SUBROUTINE PRESA INTEGRALMENTE DA ETOE-II                         07646000
+C     EFFETTUA IL CALCOLO PER OTTENERE I COEFFICIENTI DI UN             07647000
+C     SISTEMA DI N EQUAZIONI.                                           07648000
+C                                                                       07649000
+C     N              NUMERO DELLE EQUAZIONI                             07650000
+C     NX1,NX2        DIMENSIONI DI A                                    07651000
+C     A              MATRICE DATA                                       07652000
+C                                                                       07653000
+C                                                                       07654000
+      DIMENSION A(NX1,NX2)                                              07655000
+      N1=N-1                                                            07656000
+      IF(N1.LE.0)GOTO 11                                                07657000
+      DO 10 I=1,N1                                                      07658000
+      I2=I+1                                                            07659000
+      DO 10 J=I,N                                                       07660000
+      A(I,J+1)=A(I,J+1)/A(I,I)                                          07661000
+      DO 10 I1=I2,N                                                     07662000
+      A(I1,J+1)=A(I1,J+1)-A(I1,I)*A(I,J+1)                              07663000
+ 10   CONTINUE                                                          07664000
+ 11   CONTINUE                                                          07665000
+      A(N,N+1)=A(N,N+1)/A(N,N)                                          07666000
+      IF(N1.LE.0) GOTO 21                                               07667000
+      DO 20 I=1,N1                                                      07668000
+      I1=N-I                                                            07669000
+      DO 20 J=1,I                                                       07670000
+      J1=N-J+1                                                          07671000
+      A(I1,N+1)=A(I1,N+1)-A(I1,J1)*A(J1,N+1)                            07672000
+ 20   CONTINUE                                                          07673000
+ 21   RETURN                                                            07674000
+      END                                                               07675000
+      SUBROUTINE P2MCF6(MA,A,M1,M2,MIX,KB1,INDIND,KB,INDMIX,NG,E)       07676000
+C     *******************************************************8          07677000
+C                                                                       07678000
+C      SECONDARY ENERGY DISTRIBUTION FOR FILE MCC2F6                    07679000
+C                                                                       07680000
+C     ***********************************************************       07681000
+C                                                                       07682000
+C                                                                       07683000
+C     IN A SPAZIO SCRATCH , IN E LE ENERGIE DEI GRUPPI(NG+1 VALORI)     07684000
+C     IN MIX LA MIXING DELL F3                                          07685000
+C         IN INDMIX INDICE DI MIX                                       07686000
+C                   (1 ) = VALORE                                       07687000
+C                   (2 ) = INIZIO VALORE                                07688000
+C                   (3 ) = DIMENSIONI VALORE                            07689000
+C        PER INDIND:                                                    07690000
+C         (1,2     = VALORE ( REAL*8)                                   07691000
+C         (3       = INIZIO                                             07692000
+C         (4       = DIMENSIONI                                         07693000
+C                                                                       07694000
+C                                                                       07695000
+C                                                                       07696000
+C     **********************************************                    07697000
+C                                                                       07698000
+      DIMENSION A(MA),MIX(M1,M2),E(NG)                                  07699000
+       DIMENSION INDMIX(3,KB),INDIND(4,KB1)                             07700000
+       COMMON /INDX1/AINDX1(40,200)                                     07701000
+       COMMON /INDX/AINDX(40,200)                                       07702000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     07703000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     07704000
+       COMMON/DIM/M(5)                                                  07705000
+       EQUIVALENCE (M(2),IND)                                           07706000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        07707000
+       COMMON/FILES/NT(4,99)                                            07708000
+       EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))               07709000
+      EQUIVALENCE (OPZ(2,6,1),STMP),(NP12,NT(1,12))                     07710000
+C      NUMERO SOTTO CUI SIGMA SONO CONSIDERATE NULLE                    07711000
+      EQUIVALENCE(OPZ(2,6,3),EPS)                                       07712000
+C      DEFINIZIONE STRUTTURA ENERGETICA                                 07713000
+      EQUIVALENCE(EUP,OPZ(2,5,2)),(DELU,OPZ(2,5,3))                     07714000
+C                                                                       07715000
+C            GLI IR SONO I NUMERI DEI RECORD DI INDICE CONTENENTE IL DAT07716000
+            WRITE(NP12,7000)((MIX(J,JJ),J=1,M1),JJ=1,M2)                07717000
+ 7000    FORMAT(' P2MCF6 ENTERED. INPUT TABLE TO BE EXECUTED:'/         07718000
+     1 (1X,2A4,1X,2A4,8I4,3E12.5))                                      07719000
+C                                                                       07720000
+      IRANEL=0                                                          07721000
+       IRN2N=0                                                          07722000
+C                                                                       07723000
+C                                                                       07724000
+C     LOOP SUI MATERIALI DELL INDICE ..........................         07725000
+C     L INDICE E ORDINATO PER MATERIALI, IL LOOP E SULL INDICE DI       07726000
+C      IND(NOMI MATERIALI)                                              07727000
+C                                                                       07728000
+C                                                                       07729000
+      DO 10 IS=1,KB1                                                    07730000
+C                  N1,N2,N3 = LIMITI DI ENTRO CUI E' IL MATERIALE IN IND07731000
+      N1S=INDIND(3,IS)                                                  07732000
+      N2S=INDIND(4,IS)                                                  07733000
+      N3S=N1S+N2S-1                                                     07734000
+C                  NCERC E LA POSIZIONE DELL ISOTOPO IN MIX             07735000
+      NMT=NCERC1(MINDX1,IND,AINDX,M1,M2,MIX,N1S,35,3,1)                 07736000
+C                                                                       07737000
+      IF(NMT.LE.0) GO TO 10                                             07738000
+C                  SE IL MATERIALE NON E' IN MIX VIENE SALTATO          07739000
+C                                                                       07740000
+        WRITE(NP,9010) AINDX(35,N1S),AINDX(36,N1S)                      07741000
+ 9010   FORMAT(1X,2A4)                                                  07742000
+C                                                                       07743000
+C       IN A(1)                                                         07744000
+C         NG*4  VALORI                                                  07745000
+C                   MATRICE DI INDICI VARI E SIGMA PER IL MATERIALE     07746000
+      LMA=NG*4+1                                                        07747000
+      N4=4                                                              07748000
+C                                                                       07749000
+C      LMA= LIMITE DI RIEMPIMENTO IN A                                  07750000
+C                                                                       07751000
+      IF(LMA.GT.MA) CALL ERR(8HP2MCF6     ,0)                           07752000
+      CALL RIEMP(0.0,LMA,A)                                             07753000
+C                                                                       07754000
+C      REWINDS TAPES DI SCR( LE SUBROUTINES CHE CI SCRIVONO SCRIVONO IN 07755000
+C      SEQUENZA E NON REWINDANO)                                        07756000
+      DO 5  I=1,9                                                       07757000
+       CALL REW(89+I)                                                   07758000
+  5   CONTINUE                                                          07759000
+C                                                                       07760000
+C      AZZERA SOGLIE N,2, ED ANELASTICHE  ; NUMERO LIVELLI E NUMERO     07761000
+C      SPETTRI                                                          07762000
+      NINEL=0                                                           07763000
+      N2NTH=0                                                           07764000
+      NLVN2N=0                                                          07765000
+      NLVAN=0                                                           07766000
+      NEVAN=0                                                           07767000
+      NEVN2N=0                                                          07768000
+      NLVANM=0                                                          07769000
+           NEINTN=0                                                     07770000
+           NEINTL=0                                                     07771000
+           LN=LMA                                                       07772000
+           LL=LMA                                                       07773000
+C                                                                       07774000
+C     ............. LOOP SULLE LE REGISTRAZIONI DEL MATERIALE IN INDICE 07775000
+C     ORDINA L'INDICE DEL MATERIALE PER VALORI CRESCENTI DELLA          07776000
+C     POSIZIONE NEL FILE DI INPUT ONDE SIA PIU PROBABILE DI TROVARLI    07777000
+C     IN FILA E RIDURRE IL TEMPO DI LETTURA                             07778000
+        N1SN3S=N3S-N1S+1                                                07779000
+        CALL ORDIN1(25,MINDX1,N1SN3S,AINDX(1,N1S))                      07780000
+C                                                                       07781000
+       DO 20 IR=N1S,N3S                                                 07782000
+C                      SCARTA DATI NON DESTINATI AD MFF2F6              07783000
+C                      CERCA CHE TIPO DI DATO E                         07784000
+C      VENGONO TRATTATI:                                                07785000
+C                 FILE ENDFB: 3  MT: 4     : ANEL SCATT TOT             07786000
+C                             3      16    : N,2N                       07787000
+C                             3      51-90 : LIVELLI ANEL               07788000
+C                             3      91    : ANEL SCATT CONTINUO        07789000
+C                             3      6-9   : LIVELLI N,2N (PRIMO N)     07790000
+C                             3      46-54 : LIVELLI N,2N (SECONDO N)   07791000
+C                             4      51-90 : MI MEDIO LIVELLI ANEL      07792000
+      IF(AINDX(30,IR).NE.6.) GO TO 200                                  07793000
+      IF(AINDX(31,IR).NE.1.) GO TO 210                                  07794000
+C                                                                       07795000
+C       SIGIN E SIGN2N = SEZIONI D'URTO A GRUPPO ANEL ED N,2N           07796000
+C                                                                       07797000
+      CALL P2F6SG(NG,N4,A,NGLIM,EPS,IR,E)                               07798000
+C      NGLIM E' L'ULTIMO GRUPPO DIVERSO DA 0                            07799000
+      IF(AINDX(32,IR).EQ.1.) NINEL=NGLIM                                07800000
+      IF(AINDX(32,IR).EQ.2.) N2NTH=NGLIM                                07801000
+      GO TO 200                                                         07802000
+ 210  CONTINUE                                                          07803000
+      IF(AINDX(31,IR).NE.2) GO TO 220                                   07804000
+C                                                                       07805000
+C      LIVELLI DISCRETI                                                 07806000
+C                                                                       07807000
+C       91,IL CONTINUO NON VA MESSO COME SIGMA QUI ANCHE SE             07808000
+C       EVENTUALMENTE P1 LO FA                                          07809000
+       IF(AINDX(3,IR).EQ.91.) GO TO 200                                 07810000
+C                                                                       07811000
+        MALMA1=MA-LMA+1                                                 07812000
+      CALL P2F6LV(NG,N4,A,NLVN2N,NLVAN,NLVANM,IR,MALMA1,A(LMA),E)       07813000
+      GO TO 200                                                         07814000
+ 220  IF(AINDX(31,IR).NE.3) GO TO 230                                   07815000
+C                                                                       07816000
+C      SPETTRO DI EVAPORAZIONE                                          07817000
+C                                                                       07818000
+        MALMA1=MA-LMA+1                                                 07819000
+      CALL P2F6EV(NG,N4,A,NEVN2N,NEVAN,IR,MALMA1,A(LMA),E)              07820000
+      GO TO 200                                                         07821000
+ 230  CONTINUE                                                          07822000
+      IF(AINDX(31,IR).NE.4) GO TO 240                                   07823000
+C                                                                       07824000
+C      TABULATI                                                         07825000
+C                                                                       07826000
+        MALMA1=MA-LMA+1                                                 07827000
+      CALL P2F6TB(NG,N4,A,IR,MALMA1,A(LMA),NEINTN,NEINTL,LN,LL,LMA,E)   07828000
+C                                                                       07829000
+       IF(AINDX(32,IR).EQ.1.) IRANEL=IR                                 07830000
+       IF(AINDX(32,IR).EQ.2.) IRN2N=IR                                  07831000
+      GOTO200                                                           07832000
+ 240  CONTINUE                                                          07833000
+      CALL ERR(8HP2MCF6IN    ,200)                                      07834000
+C                                                                       07835000
+C      DISTRIBUZIONE NON CONTEMPLATA                                    07836000
+C                                                                       07837000
+ 200  CONTINUE                                                          07838000
+ 20   CONTINUE                                                          07839000
+C      FINE LOOP SULLE DIVERSE REGISTRAZIONI DELL ISOTOPO ..............07840000
+C                                                                       07841000
+        NDUM=MAX0(NLVN2N,NLVAN,NEVAN,NEVN2N,                            07842000
+     1 NEINTN,NEINTL)                                                   07843000
+        IF(NDUM.GT.0) GO TO 201                                         07844000
+        WRITE(NP,9011)                                                  07845000
+ 9011   FORMAT(10X,' ANELASTIC AND N2N DATA NOT GIVEN')                 07846000
+C                                                                       07847000
+        RETURN                                                          07848000
+ 201   IF(NLVAN.GT.NLVANM) CALL ERR(8HP2MCF6    ,20)                    07849000
+C      CONTROLLA CHE PER OGNI LIV ANEL CI SIA UN MI                     07850000
+C      PUO ESSERCI UN NUMERO MAGGIORE DI MI PERCHE CERTI LIVELLI        07851000
+C      POSSONO ESSERE SALTATI SE SONO SOPRA ETOP                        07852000
+C      ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,             07853000
+C      USA IL PIU GRANDE DEI DUE PER FISSARE GLI SPAZI                  07854000
+       NLVAN1=MAX0(NLVAN,NLVANM)                                        07855000
+       NLVAN=MIN0(NLVAN,NLVANM)                                         07856000
+C      ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,07857000
+C                                                                       07858000
+C                                                                       07859000
+C      RILETTURA DEI SCR E SCRITTURA DELL ISOTOPO ( ORDINATO PER GRUPPO 07860000
+C                                                                       07861000
+C      A QUESTO PUNTO SONO PRESENTI :                                   07862000
+C       SCR: NT(1,90) = PER OGNI LIVELLO ANEL (NLVAN)MTT,IR,NSG,AVGMU(NG07863000
+C            NT(1,91) =                           MTT,IR,NSG,SIGLEV(NG) 07864000
+C            NT(1,92) =                  N2N  (NLVN2N) IR,NSG,SIGN(NG)  07865000
+C            NT(1,93) = PER OGNI SPETTRO EV   (NEVAN) IR,NSG,P(NG)      07866000
+C            NT(1,94) =                               IR,TETA(NG)       07867000
+C            NT(1,95) = PER OGNI SPETTRO N2N  (NEVN2N) IR,NSG,P(NG)     07868000
+C            NT(1,96) =                               IR,TETA(NG)       07869000
+C            NT(1,97) =  PER OGNI GRUPPO NG TABULAZ. EL(NEINTL)         07870000
+C            NT(1,98) =                             N2N(NEINTN)         07871000
+C                                                                       07872000
+C      IN A( NG,5) :                                                    07873000
+C                A(. ,1)=SIGIN(NG)  SCRITTO DA P2F6SG                   07874000
+C                     2 =SIGN2N(NG)                                     07875000
+C                     3 = KT ANELASTICA  SCRITTO DA P2F6TB              07876000
+C                     4 = KT N,2N                                       07877000
+C      IN A(NG*4+LL)    = EINT(NEINTL) ENERGIE DI ARRIVO TABULAZIONE ANE07878000
+C               +LN     = EINTN(NEINTN) ENERGIE DI ARRIVA TABULAZ. N,2N 07879000
+C                                                                       07880000
+C         LMA= LIMITE RIEMPIMENTO IN A:E' FISSATO FUORI LOOP 20,        07881000
+C      INCREMENTATO DA P2F6TB CHE AGGIUNGE E DI ARRIVO DEI DATI TABULATI07882000
+C                                                                       07883000
+C     CALCOLO NGPASS: NUMERO GRUPPI CHE SI POSSONO TRATTARE IN UNA VOLTA07884000
+C      CON LO SPAZIO A DISPOSIZIONE IN A                                07885000
+C                                                                       07886000
+C      CALCOLO SPAZIO DISPONIBILE( LA PARTTE FRA () SERVE ALLA P2F6RB   07887000
+C      PER METTERCI COMPATTATA LA ROBA DA SCRIVERE SU REC 3-4 DI MCF6   07888000
+      NSPAZ=MA-LMA-NEVAN-NLVN2N-NLVAN1-2*(NLVAN1+NLVN2N+NEVAN+NEVN2N)-  07889000
+     1  MAX0(2*NLVAN1+NLVN2N+2*NEVAN+2*NEVN2N,                          07890000
+     2  NEINTL+NEINTN,NEINTL+NEINTN+NLVAN1+NEVAN+NLVN2N)                07891000
+C      SPAZIO PER UN GRUPPO:                                            07892000
+      NSPZGR=NEINTL+NEINTN+2*NEVAN+2*NEVN2N+NLVN2N+NLVAN1*2             07893000
+C      NUMERO GRUPPI DI UN PASSO                                        07894000
+      NGPASS=NSPAZ/NSPZGR                                               07895000
+      IF(NGPASS.GT.NG) NGPASS=NG                                        07896000
+      IF(NGPASS.LT.1) CALL ERR(8HP2MCF6    ,30)                         07897000
+C                                                                       07898000
+C      CREAZIONE PUNTATORI                                              07899000
+C      .....................ROBA IN MEMORIA FINO AD ORA                 07900000
+      L1=LMA                                                            07901000
+C          ..................... SPAZIO PPER EGAM                       07902000
+      L2=L1+NLVAN1                                                      07903000
+C          ................................GAMN2N                       07904000
+      L3=L2+NLVN2N                                                      07905000
+C          ................................. U                          07906000
+      L4=L3+NEVAN                                                       07907000
+C          .................................  SIGLEV                    07908000
+      L5=L4+NLVAN1*NGPASS                                               07909000
+C          ................................. AVGMU                      07910000
+      L6=L5+NLVAN1*NGPASS                                               07911000
+C          ................................. SIGN                       07912000
+      L7=L6+NLVN2N*NGPASS                                               07913000
+C          ................................. TSTAT                      07914000
+      L8=L7+NEVAN*NGPASS                                                07915000
+C          ................................. PIN                        07916000
+      L9=L8+NEVAN*NGPASS                                                07917000
+C          ................................. TN2N                       07918000
+      L10=L9+NEVN2N*NGPASS                                              07919000
+C          ................................. PN2N                       07920000
+      L11=L10+NEVN2N*NGPASS                                             07921000
+C          ................................. PINTAB                     07922000
+      L12=L11+NEINTL                                                    07923000
+C          ................................. PNNTAB                     07924000
+      L13=L12+NEINTN                                                    07925000
+C          ................................. IR(LIV ANEL)IRLVA          07926000
+      L14=L13+NLVAN1                                                    07927000
+C          ................................. IR(LIV N2N) IRLVN          07928000
+      L15=L14+NLVN2N                                                    07929000
+C          ................................. IR(EVAP ANEL)IREVA         07930000
+      L16=L15+NEVAN                                                     07931000
+C          ................................. IR(EVAP N,2N)IREVN         07932000
+      L17=L16+NEVN2N                                                    07933000
+C          ................................. NSG( LIV ANEL)NSGLVA       07934000
+      L18=L17+NLVAN1                                                    07935000
+C          ................................. NSG (LIV N,2N)NSGLVN       07936000
+      L19=L18+NLVN2N                                                    07937000
+C          ................................. NSG (EVAP ANEL)NSGEVA      07938000
+      L20=L19+NEVAN                                                     07939000
+C          ................................. NSG (EVAP N,2N)NSGEVN      07940000
+      L21=L20+NEVN2N                                                    07941000
+C          ................................. NORDLA (ORDINE LIV ANEL)   07942000
+      L22=L21+NLVAN1                                                    07943000
+C          ................................. NORDLN (ORDINE LIV N,2N)   07944000
+      L23=L22+NLVN2N                                                    07945000
+C          ................................. NORDSA (ORDINE SPET ANEL)  07946000
+      L24=L23+NEVAN                                                     07947000
+C          ................................. NORDSN (ORDINE SPET N,2N)  07948000
+      L25=L24+NEVN2N                                                    07949000
+C                                                                       07950000
+C                                                                       07951000
+      LIMIT=L25                                                         07952000
+      IF(LIMIT.GT.MA)   CALL ERR(8HP2MCF6    ,31)                       07953000
+      IF(LIMIT.GT.MA)   WRITE(NP,9998) MA,LMA,LL,LN,NLVAN1,NLVN2N,      07954000
+     1    NEVAN,NEVN2N,NGPASS,NSPAZ,NSPZGR,NEINTL,NEINTN                07955000
+ 9998    FORMAT(' MA,LMA,LL,LN,NLVAN,NLVN2N,NEVAN,NEVN2N,NGPASS,NSPAZ,',07956000
+     1   'NSPZGR,NEINTL,NEINTN:'/(1X,13I5))                             07957000
+C                                                                       07958000
+       NLCAN=LIMIT-L1                                                   07959000
+       CALL RIEMP(0.0,NLCAN,A(LMA))                                     07960000
+C                                                                       07961000
+C       =====FOR FORTRAN VS COMPILERS (DUMMY DIMENSIONS CANNOT BE .LE.0)07962000
+        MDIMLA=NLVAN                                                    07963000
+        MDIMLN=NLVN2N                                                   07964000
+        MDIMEA=NEVAN                                                    07965000
+        MDIMEN=NEVN2N                                                   07966000
+        MDIMTA=NEINTL                                                   07967000
+        MDIMTN=NEINTN                                                   07968000
+        MDIMLM=NLVANM                                                   07969000
+        IF(MDIMLA.LE.0) MDIMLA=1                                        07970000
+        IF(MDIMLN.LE.0) MDIMLN=1                                        07971000
+        IF(MDIMEA.LE.0) MDIMEA=1                                        07972000
+        IF(MDIMEN.LE.0) MDIMEN=1                                        07973000
+        IF(MDIMTA.LE.0) MDIMTA=1                                        07974000
+        IF(MDIMTN.LE.0) MDIMTN=1                                        07975000
+        IF(MDIMLM.LE.0) MDIMLM=1                                        07976000
+C                                                                       07977000
+      CALL P2F6RB(IRANEL,IRN2N,NMT,NG,A(1),A(NG+1),A(2*NG+1),A(3*NG+1), 07978000
+     1 NEINTL,A(LL),NEINTN,A(LN), NLVAN,NLVANM,                         07979000
+     2 A(L1),NLVN2N,A(L2),NEVAN,A(L3),NEVN2N,MA-LIMIT,A(LIMIT+1),       07980000
+     3 NGPASS,                                                          07981000
+     4 A(L4),A(L5),A(L6),A(L7),A(L8),A(L9),A(L10),A(L11),A(L12),        07982000
+     5 A(L13),A(L14),A(L15),A(L16),A(L17),A(L18),A(L19),A(L20),         07983000
+     6 A(L21),A(L22),A(L23),A(L24),                                     07984000
+     7 M1,M2,MIX,                                                       07985000
+     8 MDIMLA,MDIMLN,MDIMEA,MDIMEN,MDIMTA,MDIMTN,MDIMLM)                07986000
+C                                                                       07987000
+C                                                                       07988000
+  10  CONTINUE                                                          07989000
+C              CLOSE FILES                                              07990000
+        DO 55 I=1,9                                                     07991000
+        CALL REW(89+I)                                                  07992000
+ 55     CONTINUE                                                        07993000
+      RETURN                                                            07994000
+      END                                                               07995000
+      SUBROUTINE P2F6RB(IRANEL,IRN2N,NMT,NG,SIGIN,SIGN2N,KTL,KTN,       07996000
+     1 NEINTL,EINTL,NEINTN,EINTN,                                       07997000
+     2 NLVAN,NLVANM,EGAM,NLVN2N,GAMN2N,NEVAN,U,NEVN2N,                  07998000
+     3 MA,A,NGPAS1,                                                     07999000
+     4 SIGLEV,AVGMU,SIGN,TSTAT,PIN,TN2N,PN2N,PINTAB,PNNTAB,             08000000
+     5 IRLVA,IRLVN,IREVA,IREVN,NSGLVA,NSGLVN,NSGEVA,NSGEVN,             08001000
+     6 NORDLA,NORDLN,NORDSA,NORDSN,                                     08002000
+     7 M1,M2,MIX,                                                       08003000
+     8 MDIMLA,MDIMLN,MDIMEA,MDIMEN,MDIMTA,MDIMTN,MDIMLM)                08004000
+C     ***************************************************************   08005000
+C                                                                       08006000
+C      REORDERS ANELASTIN AND N,2N SECONDARY ENERGY DISTRIBUTION DATA   08007000
+C      LEGGE FILES DI SCRATCH E SCRIVE IL NUCLIDE NEI FILES DELLA       08008000
+C     SECONDA SERIE                                                     08009000
+C                                                                       08010000
+C      SIGIN(NG) = SIGMA A GRUPPI DA P2F6SG PER REC 2 DI MCF6 (ANELASTIC08011000
+C      SIGN2N(NG)=                                             (N,2N   )08012000
+C      KTL (NG)  =LEGGE INTERP E'    P2F6TB     REC 2         (ANEL)    08013000
+C      KTN (NG)  =                                             (N,2N)   08014000
+C      EINTL(NEINTL)=E' ARRIVO TAB                  1         (ANEL)    08015000
+C      EINTN(NEINTN)=                                          (N,2N)   08016000
+C                                                                       08017000
+C      IR SONO I NUMERI DEI RECORD DELL'INDICE CORRISPONDENTI AI DATI   08018000
+C       UN IR PER OGNI LIVELLO ED SPETTRO EV                            08019000
+C                                                                       08020000
+C      NSG SONO I GRUPPI DI SOGLIA SOTTO CUI NON C'E' NULLA PER         08021000
+C       OGNI LIVELLO E SPETTRO EV                                       08022000
+C                                                                       08023000
+C      IR ED NSG SONO LETTI DAI FILES SCRATCH OVE SONO STATI MESSI      08024000
+C     ***************************************************************   08025000
+C                                                                       08026000
+       LOGICAL TNINEL,TN2NTH,TNLEVL,TN2NLV,TMAX1,TMAX2,TMAX3,TMAX4      08027000
+C                                                                       08028000
+      COMMON /OPZIO/OPZ(4,8,10)                                         08029000
+      EQUIVALENCE (OPZ(2,6,3),EPS),(OPZ(2,6,1),STMP)                    08030000
+          EQUIVALENCE(OPZ(2,5,2),EUP),(OPZ(2,5,3),DELTAU)               08031000
+            DIMENSION MIX(M1,M2)                                        08032000
+      COMMON/INDX/AINDX(40,200)                                         08033000
+      COMMON/INDX1/AINDX1(40,200)                                       08034000
+      COMMON /DIM/NMX,MIND,NMX2,IND2                                    08035000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     08036000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     08037000
+      COMMON /FILES/NT(4,99)                                            08038000
+      EQUIVALENCE (NO,NT(1,6)),(NP,NT(1,11))                            08039000
+      EQUIVALENCE (NT1,NT(1,91)),(NT2,NT(1,92)),(NT3,NT(1,93))          08040000
+      EQUIVALENCE (NT4,NT(1,94)),(NT5,NT(1,95)),(NT6,NT(1,96))          08041000
+      EQUIVALENCE (NT7,NT(1,97)),(NT8,NT(1,98)),(NT0,NT(1,90))          08042000
+C                                                                       08043000
+C     DIMENSION SIGIN(NG),SIGN2N(NG),KTL(NG),KTN(NG),                   08044000
+C    1 EINTL(NEINTL),EINTN(NEINTN),A(MA),EGAM(NLVAN),GAMN2N(NLVN2N)     08045000
+C     DIMENSION U(NEVAN)                                                08046000
+C     DIMENSION SIGLEV(NLVAN,NGPAS1),SIGN(NLVN2N,NGPAS1),               08047000
+C    1 AVGMU(NLVANM,NGPAS1),TSTAT(NEVAN,NGPAS1),PIN(NEVAN,NGPAS1),      08048000
+C    2 PN2N(NEVN2N,NGPAS1),PINTAB(NEINTL),PNNTAB(NEINTN)                08049000
+C    3 ,TN2N(NEVN2N,NGPAS1)                                             08050000
+C     DIMENSION IRLVA(NLVAN),IRLVN(NLVN2N),IREVA(NEVAN),IREVN(NEVN2N),  08051000
+C    1 NSGLVA(NLVAN),NSGLVN(NLVN2N),NSGEVA(NEVAN),NSGEVN(NEVN2N),       08052000
+C    2 NORDLA(NLVAN),NORDLN(NLVN2N),NORDSA(NEVAN),NORDSN(NEVN2N)        08053000
+C                                                                       08054000
+C                                                                       08055000
+      DIMENSION SIGIN(NG),SIGN2N(NG),KTL(NG),KTN(NG),                   08056000
+     1 EINTL(MDIMTA),EINTN(MDIMTN),A(MA),EGAM(MDIMLA),GAMN2N(MDIMLN)    08057000
+      DIMENSION U(MDIMEA)                                               08058000
+      DIMENSION SIGLEV(MDIMLA,NGPAS1),SIGN(MDIMLN,NGPAS1),              08059000
+     1 AVGMU(MDIMLM,NGPAS1),TSTAT(MDIMEA,NGPAS1),PIN(MDIMEA,NGPAS1),    08060000
+     2 PN2N(MDIMEN,NGPAS1),PINTAB(MDIMTA),PNNTAB(MDIMTN)                08061000
+     3 ,TN2N(MDIMEN,NGPAS1)                                             08062000
+      DIMENSION IRLVA(MDIMLA),IRLVN(MDIMLN),                            08063000
+     1 IREVA(MDIMEA),IREVN(MDIMEN),                                     08064000
+     1 NSGLVA(MDIMLA),NSGLVN(MDIMLN),NSGEVA(MDIMEA),NSGEVN(MDIMEN),     08065000
+     2 NORDLA(MDIMLA),NORDLN(MDIMLN),NORDSA(MDIMEA),NORDSN(MDIMEN)      08066000
+C                                                                       08067000
+C                                                                       08068000
+C      DETERMINA SOGLIE DI REAZIONI TABULATE ( SE ESISTONO O NO )       08069000
+C      PER RECORD 5 DI F1                                               08070000
+C                                                                       08071000
+            WRITE(NP,9000)                                              08072000
+ 9000    FORMAT(' P2F6RB :  REORDERS DATA')                             08073000
+C                                                                       08074000
+C                  FLAG DI ESISTENZA PER TABULAZIONI (REC 5 DI F1)      08075000
+      CALL SOGL(0,NSGKL,NG,KTL)                                         08076000
+      MAX2=0                                                            08077000
+      IF(NSGKL.GT.0) MAX2=1                                             08078000
+      TMAX2=.TRUE.                                                      08079000
+       IF(MAX2.GT.0) TMAX2=.FALSE.                                      08080000
+      CALL SOGL(0,NSGKN,NG,KTN)                                         08081000
+      MAX4=0                                                            08082000
+      IF(NSGKN.GT.0) MAX4=1                                             08083000
+       TMAX4=.TRUE.                                                     08084000
+       IF(MAX4.GT.0) TMAX4=.FALSE.                                      08085000
+C                      SOGLIE PER SIGIN E SIGN2N (RECORD 5 DI F1)       08086000
+      CALL SOGL(EPS,NINEL,NG,SIGIN)                                     08087000
+      CALL SOGL(EPS,N2NTH,NG,SIGN2N)                                    08088000
+C                   ALTRI PARAMETRI PER RECORD 5 DI F1                  08089000
+C                ( ESISTENZA E NUMERO LIVELLI E SPETTRI )               08090000
+      NLEVLS=NLVAN                                                      08091000
+       TNLEVL=.TRUE.                                                    08092000
+       IF(NLEVLS.GT.0) TNLEVL=.FALSE.                                   08093000
+      N2NLVS=NLVN2N                                                     08094000
+       TN2NLV=.TRUE.                                                    08095000
+       IF(N2NLVS.GT.0) TN2NLV=.FALSE.                                   08096000
+      MAX1=NEVAN                                                        08097000
+       TMAX1=.TRUE.                                                     08098000
+       IF(MAX1.GT.0) TMAX1=.FALSE.                                      08099000
+      MAX3=NEVN2N                                                       08100000
+       TMAX3=.TRUE.                                                     08101000
+       IF(MAX3.GT.0) TMAX3=.FALSE.                                      08102000
+      NSINK1=NEINTL                                                     08103000
+      NSINK2=NEINTN                                                     08104000
+      NUMREC=1                                                          08105000
+      IF(MAX1.GT.0.OR.MAX3.GT.0) NUMREC=NUMREC+1                        08106000
+      IF(MAX2.GT.0.OR.MAX4.GT.0) NUMREC=NUMREC+1                        08107000
+C      NOME MATERIALE (NOME OUT DELLA MIXING)                           08108000
+      NOME1=MIX(1,NMT)                                                  08109000
+      NOME2=MIX(2,NMT)                                                  08110000
+C        SOGLIA: GRUPPO SOTTO CUI NON C'E NULLA:                        08111000
+       NMAX=MAX0(NINEL,N2NTH)                                           08112000
+       IF(NMAX.LT.1) CALL ERR(8HP2F6RB     ,10)                         08113000
+C                                                                       08114000
+C      QUI ANCORA NON SI SA QUANTO E LUNGO IL RECORD MASSIMO            08115000
+      MAXREC=0                                                          08116000
+       AMAXW4=0                                                         08117000
+C                                                                       08118000
+C                                                                       08119000
+C      FISSA IL FILE DI OUTPUT                                          08120000
+       NTOUT=36                                                         08121000
+        IF(NMT.LE.M2.AND.NMT.GT.0) NTOUT=MIX(5,NMT)                     08122000
+      IF(NTOUT.LE.0) NTOUT=36                                           08123000
+      NTO=NT(1,NTOUT)                                                   08124000
+      CALL POSL(NTOUT)                                                  08125000
+C         I DATI TABULATI SONO NEI DUE FILES 97 E 98,UN RECORD PER GRUPP08126000
+       CALL REW(97)                                                     08127000
+       CALL REW(98)                                                     08128000
+C                                                                       08129000
+       WRITE(NP,9005) NMAX,NGPAS1                                       08130000
+ 9005  FORMAT(' GROUP LIMIT:',I5,' GROUPS FOR EACH PASS:',I5)           08131000
+C                                                                       08132000
+C     .............................. LOOP SUI GRUPPI (TRATTATI A NGPASS 08133000
+C                                             PER VOLTA FINO AD ANMAX ) 08134000
+C      PRIMO GRUPPO TRATTATO                                            08135000
+      NGI=1                                                             08136000
+ 10   CONTINUE                                                          08137000
+C      ULTIMO GRUPPO TRATTATO                                           08138000
+      NGF=NGI+NGPAS1-1                                                  08139000
+      IF(NGF.GT.NMAX) NGF=NMAX                                          08140000
+C      L'ULTIMO GRUPPO TRATTATO PUO ESSERE MENO DI NGPAS1+NGI (SE NG    08141000
+C                            NON E'    DIVISIBILE PER NGPAS1 )          08142000
+      NGPASS=NGF-NGI+1                                                  08143000
+C                       REWINDS INPUT FILES                             08144000
+C               NEI FILES UN SOLO RECORD CONTIENE TUTTI I GRUPPI.I FILES08145000
+C               VENGONO REWINDATI A OGNI GIRO E SOLO GLI NPASS          08146000
+C               GRUPPI CHE SERVONO SONO LETTI. ESCLUSE LE TABULAZIONI   08147000
+C               CHE SONO SCRITTE UN GRUPPO PER RECORD.                  08148000
+      DO 20 I=1,7                                                       08149000
+      CALL REW(89+I)                                                    08150000
+ 20   CONTINUE                                                          08151000
+C               N1,N12,N11=INDICI PER I DO IMPLICITI DI LETTURA         08152000
+      N1=NGI-1                                                          08153000
+      N12=NGI-1+2                                                       08154000
+      N11=NGI-1+1                                                       08155000
+C                                                                       08156000
+C      LETTURE GRUPPI DA NGI AD NGF                                     08157000
+C                                                                       08158000
+C               LIVELLI ANELASTICI                                      08159000
+C                                                                       08160000
+       WRITE(NP,9010) NLVAN,NT1,NT0,NGI,NGF                             08161000
+ 9010  FORMAT(1X,I5,' ANEL LEVELS AND MU FROM UNITS:',2I4,              08162000
+     1 5X,'GROUPS FROM:',I5,' TO:',I5)                                  08163000
+C                                                                       08164000
+      IF (NLVAN.LE.0) GO TO 301                                         08165000
+      DO 30 I=1,NLVAN                                                   08166000
+      IF(NGI.NE.1) GO TO 298                                            08167000
+      READ(NT1) MTT, IRLVA(MTT),NSGLVA(MTT),(SIGLEV(MTT,J),J=1,NGPASS)  08168000
+      GO TO 30                                                          08169000
+ 298  READ(NT1)MTT,(DUM,J=1,N12),(SIGLEV(MTT,J),J=1,NGPASS)             08170000
+ 30   CONTINUE                                                          08171000
+      DO 31 I=1,NLVANM                                                  08172000
+      IF(NGI.NE.1) GO TO 299                                            08173000
+       READ(NT0) MTT,DUM,DUM,(AVGMU(MTT,J),J=1,NGPASS)                  08174000
+      GO TO 31                                                          08175000
+ 299  READ(NT0)MTT,(DUM,J=1,N12),(AVGMU(MTT,J),J=1,NGPASS)              08176000
+ 31   CONTINUE                                                          08177000
+ 301  CONTINUE                                                          08178000
+C                  LIVELLI N,2N                                         08179000
+C                                                                       08180000
+       WRITE(NP,9020) NLVN2N,NT2,NGI,NGF                                08181000
+ 9020  FORMAT(1X,I5,' N2N LEVELS  FROM UNIT:',8X,I4,                    08182000
+     1  9X,'GROUPS FROM:',I5,' TO:',I5)                                 08183000
+C                                                                       08184000
+      IF(NLVN2N.LE.0) GO TO 302                                         08185000
+      DO 32 I=1,NLVN2N                                                  08186000
+      IF(NGI.EQ.1) READ(NT2) IRLVN(I),NSGLVN(I),(SIGN(I,J),J=1,NGPASS)  08187000
+      IF(NGI.NE.1) READ(NT2)(DUM,J=1,N12),(SIGN(I,J),J=1,NGPASS)        08188000
+ 32   CONTINUE                                                          08189000
+ 302  CONTINUE                                                          08190000
+C                  SPETTRI EVAP ANELASTICI                              08191000
+C                                                                       08192000
+       WRITE(NP,9030) NEVAN,NT3,NT4,NGI,NGF                             08193000
+ 9030  FORMAT(1X,I5,' EVAP PROB AND TEMP FROM UNITS:',2I4,              08194000
+     1 5X,'GROUPS FROM:',I5,' TO:',I5)                                  08195000
+C                                                                       08196000
+      IF(NEVAN.LE.0) GO TO 303                                          08197000
+      DO 33 I=1,NEVAN                                                   08198000
+      IF(NGI.NE.1) GO TO 333                                            08199000
+      READ(NT3)IREVA(I),NSGEVA(I),(PIN(I,J),J=1,NGPASS)                 08200000
+      READ(NT4)DUM,(TSTAT(I,J),J=1,NGPASS)                              08201000
+      GO TO 33                                                          08202000
+ 333  CONTINUE                                                          08203000
+      READ(NT3)(DUM,J=1,N12),(PIN(I,J),J=1,NGPASS)                      08204000
+      READ(NT4)(DUM,J=1,N11),(TSTAT(I,J),J=1,NGPASS)                    08205000
+ 33   CONTINUE                                                          08206000
+ 303  CONTINUE                                                          08207000
+C                  SPETTRI EVAP N,2N                                    08208000
+C                                                                       08209000
+       WRITE(NP,9040) NEVN2N,NT5,NT6,NGI,NGF                            08210000
+ 9040  FORMAT(1X,I5,' N2N EVAP PROB AND TEMP FROM UNITS:',2I4,          08211000
+     1 ' GROUPS FROM:',I5,' TO:',I5)                                    08212000
+C                                                                       08213000
+      IF(NEVN2N.LE.0) GO TO 305                                         08214000
+      DO 35 I=1,NEVN2N                                                  08215000
+      IF(NGI.NE.1) GO TO 355                                            08216000
+      READ(NT5) IREVN(I),NSGEVN(I),(PN2N(I,J),J=1,NGPASS)               08217000
+      READ(NT6) DUM,(TN2N(I,J),J=1,NGPASS)                              08218000
+      GO TO 35                                                          08219000
+ 355  CONTINUE                                                          08220000
+      READ(NT5)(DUM,J=1,N12),(PN2N(I,J),J=1,NGPASS)                     08221000
+      READ(NT6)(DUM,J=1,N11),(TN2N(I,J),J=1,NGPASS)                     08222000
+ 35   CONTINUE                                                          08223000
+ 305  CONTINUE                                                          08224000
+C                                                                       08225000
+C                                                                       08226000
+       IF(NGI.NE.1) GO TO 100                                           08227000
+C      AL PRIMO GIRO CALCOLA SOGLIE ED ESTREMI VARI DI PRESENZA DATI    08228000
+C     CIOE TUTTA LA ROBA INDIPENDENTE DAL GRUPPO MA DEDUCIBILE SOLO     08229000
+C     IN BASE  A DATI PRESENTI SUI SCRATCH                              08230000
+C                                                                       08231000
+C           DEFINESCE I VETTORI CONTENENTI L'ORDINAMENTO DEI LIVELLI E  08232000
+C           SPETTRI ( ORDINATI PER SOGLIE DESCRESCENTI, QUELLI CHE      08233000
+C           SPARISCONO PIU A BASSE ENERGIE SONO PER ULTIMI )            08234000
+C              QUESTO ORDINAMENTO E' DEFINITO NEI VETTORI NORDLA,       08235000
+C              NORDLN,NORDSA,NORDSN, USATI DALLE ROUTINES CHE ORDINANO. 08236000
+C                                                                       08237000
+        IF(NLVAN.GT.0) CALL ORDSOG(NLVAN,NSGLVA,NORDLA)                 08238000
+        IF(NLVN2N.GT.0)CALL ORDSOG(NLVN2N,NSGLVN,NORDLN)                08239000
+        IF(NEVAN.GT.0) CALL ORDSOG(NEVAN,NSGEVA,NORDSA)                 08240000
+        IF(NEVN2N.GT.0)CALL ORDSOG(NEVN2N,NSGEVN,NORDSN)                08241000
+C                                                                       08242000
+C                    EGAM, U,  GAMN2N  PER RECORD 1 DI F6               08243000
+      IF(NLVAN.LE.0) GO TO 45                                           08244000
+      DO 41 I=1,NLVAN                                                   08245000
+ 41   EGAM(NORDLA(I))=-AINDX(8,IRLVA(I))                                08246000
+ 45   IF(NEVAN.LE.0) GO TO 47                                           08247000
+      DO 42 I=1,NEVAN                                                   08248000
+ 42   U(NORDSA(I))=AINDX(8,IREVA(I))                                    08249000
+ 47   IF(NLVN2N.LE.0) GO TO 49                                          08250000
+      DO 43 I=1,NLVN2N                                                  08251000
+ 43   GAMN2N(NORDLN(I))=-AINDX(8,IRLVN(I))                              08252000
+ 49   CONTINUE                                                          08253000
+C                                                                       08254000
+C      DEVE ESSERE CHE I DATI SIANO IN FILAPER SOGLIA: IL PRIMO         08255000
+C      GRUPPO LI HA TUTTI, ANDANDO AVANTI POI PER PRIMO SPARISCE        08256000
+C      L'ULTIMO,POI IL PENULTIMO ECC.                                   08257000
+C      SE NON E' COSI' I DATI DI RECORD 1 NON SI RIESCONO A FAR         08258000
+C      CORRISPONDERE A QUELLI DEI RECORD 2 E 3 IN MCC2F6                08259000
+C                                                                       08260000
+      IF(NLVAN.LE.0) GO TO 345                                          08261000
+      WRITE(NP,9045)(NSGLVA(J),J=1,NLVAN)                               08262000
+      WRITE(NP,9049)(NORDLA(J),J=1,NLVAN)                               08263000
+ 9045    FORMAT('  ANEL LEVELS UP TO GROUP:',10I5)                      08264000
+ 345  IF(NLVN2N.LE.0) GO TO 346                                         08265000
+      WRITE(NP,9046) (NSGLVN(J),J=1,NLVN2N)                             08266000
+      WRITE(NP,9049) (NORDLN(J),J=1,NLVN2N)                             08267000
+ 9046    FORMAT('  N2N LEVELS UP TO GROUP:',10I5)                       08268000
+ 346  IF(NEVAN.LE.0) GO TO 347                                          08269000
+      WRITE(NP,9047) (NSGEVA(J),J=1,NEVAN)                              08270000
+      WRITE(NP,9049) (NORDSA(J),J=1,NEVAN)                              08271000
+ 9047    FORMAT('  EVAP SPECTR ANEL UP TO GROUP:',10I5)                 08272000
+ 347  IF(NEVN2N.LE.0) GO TO 348                                         08273000
+      WRITE(NP,9048) (NSGEVN(J),J=1,NEVN2N)                             08274000
+      WRITE(NP,9049) (NORDSN(J),J=1,NEVN2N)                             08275000
+ 9048    FORMAT('  EVAP SPECTR N2N UP TO GROUP:',10I5)                  08276000
+ 9049 FORMAT('       OUTPUT ORDER:',10I5)                               08277000
+C                                                                       08278000
+C      SCRIVE DATI NON DIPENDENTI DA GRUPPO                             08279000
+C                                                                       08280000
+C                      RECORD 5 DI MCC2F1                               08281000
+ 348  NWDS=14                                                           08282000
+      WRITE(NTO)NWDS,NOME1,NOME2,NINEL,N2NTH,NLEVLS,N2NLVS,MAX1,MAX2,   08283000
+     1MAX3,MAX4,NSINK1,NSINK2,NUMREC,MAXREC                             08284000
+      NT(3,NTOUT)=NT(3,NTOUT)+1                                         08285000
+C                                                                       08286000
+       IF(STMP.GT.100) WRITE(NO,1000)                                   08287000
+     1NWDS,NOME1,NOME2,NINEL,N2NTH,NLEVLS,N2NLVS,MAX1,MAX2,             08288000
+     2MAX3,MAX4,NSINK1,NSINK2,NUMREC,MAXREC                             08289000
+ 1000  FORMAT(' PART 2 FOR FILE MCC2F6 :WORDS:',I5,2X,2A4/1X,           08290000
+     1 'N2NTH,NLEVLS,N2NLVS,MAX1 ,MAX2 ,MAX3 ,MAX4 ,NSINK1,NSINK1,',    08291000
+     2 'NUMREC,MAXREC'/15I6)                                            08292000
+C                                                                       08293000
+C      NUMREC(IG) E' NUMERO RECORD DEL GRUPPO ( E' IL MAX(NINEL,N2NTH)  08294000
+C      LO CALCOLA IN REALTA' LA PARTE 3                                 08295000
+C                                                                       08296000
+C                      RECORD 1 DI MCC2F6                               08297000
+C                                                                       08298000
+      NWDS=NLVAN+NEVAN+NLVN2N+NEINTL+NEINTN                             08299000
+C      DIMENSIONI DEL RECORD 2 MASSIME                                  08300000
+       MAXREC=14                                                        08301000
+       IF(MAXREC.LT.NWDS) MAXREC=NWDS                                   08302000
+C                                                                       08303000
+      L=1                                                               08304000
+      IF(NLVAN.GT.0)CALL TRASF1(NLVAN,NORDLA,EGAM,A(L))                 08305000
+      L=L+NLVAN                                                         08306000
+      IF(NEVAN.GT.0)CALL TRASF1(NEVAN,NORDSA,U,A(L))                    08307000
+      L=L+NEVAN                                                         08308000
+      IF(NLVN2N.GT.0)CALL TRASF1(NLVN2N,NORDLN,GAMN2N,A(L))             08309000
+      L=L+NLVN2N                                                        08310000
+      IF(NEINTL.GT.0)CALL TRASF(NEINTL,EINTL,A(L))                      08311000
+      L=L+NEINTL                                                        08312000
+      IF(NEINTN.GT.0)CALL TRASF(NEINTN,EINTN,A(L))                      08313000
+      L=L+NEINTN                                                        08314000
+C                                                                       08315000
+C      ADESSO SONO TUTTI IN FILA SENZA BUCHI                            08316000
+C                                                                       08317000
+      WRITE(NTO)NWDS,(A(J),J=1,NWDS)                                    08318000
+      NT(3,NTOUT)=NT(3,NTOUT)+1                                         08319000
+C                                                                       08320000
+       IF(STMP.GT.101) WRITE(NO,2000)NWDS,                              08321000
+     1  NLVAN,NEVAN,NLVN2N,NEINTL,NEINTN,(A(J),J=1,NWDS)                08322000
+ 2000  FORMAT(' WORDS:',I4,' NLVAN:',I5,' NEVAN:',I5,' NLVN2N',I5,      08323000
+     1 ' NEINTL:',I5,' NEINTN:',I5/                                     08324000
+     2 ' EGAM(NLVAN),U(NEVAN),GAMN2N(NLVN2N),EINTL(NEINTL),',           08325000
+     3 ' EINTN(NEINTN):'/1X,(10E12.5))                                  08326000
+ 100   CONTINUE                                                         08327000
+C                                                                       08328000
+C        .....................LOOP SUI NGPASS GRUPPI (SCRITTURA)        08329000
+C                                  (SUI GRUPPI DEL PASSO )              08330000
+C                PER TABULAZ NULLE SCRIVO 2 RECORDS                     08331000
+      DO 50 IG=1,NGPASS                                                 08332000
+      NGC=NGI+IG-1                                                      08333000
+C                                                                       08334000
+C               LETTURA DATI TABULATI DEL GRUPPO                        08335000
+      IF(MAX2.LE.0) GO TO 306                                           08336000
+       IF(KTL(NGC).LT.0) GO TO 306                                      08337000
+C                                                                       08338000
+       WRITE(NP,9050) NEINTL,NT7,NGC                                    08339000
+ 9050  FORMAT(1X,I5,' ANEL TABULATED VALUES FROM UNIT:',I4,' GROUP:',I5)08340000
+C                                                                       08341000
+      READ(NT7)(PINTAB(J),J=1,NEINTL)                                   08342000
+      NT(3,97)=NT(3,97)+1                                               08343000
+      GO TO 307                                                         08344000
+ 306  IF(NEINTL.GT.0) CALL RIEMP(0.0,NEINTL,PINTAB)                     08345000
+ 307  IF(MAX4.LE.0) GOTO 308                                            08346000
+       IF(KTN(NGC).LE.0) GO TO 308                                      08347000
+C                                                                       08348000
+       WRITE(NP,9060) NEINTL,NT7,NGC                                    08349000
+ 9060  FORMAT(1X,I5,' N2N  TABULATED VALUES FROM UNIT:',I4,' GROUP:',I5)08350000
+C                                                                       08351000
+      READ(NT8)(PNNTAB(J),J=1,NEINTN)                                   08352000
+      NT(3,98)=NT(3,98)+1                                               08353000
+      GO TO 309                                                         08354000
+ 308  IF(NEINTN.GT.0) CALL RIEMP(0.0,NEINTN,PNNTAB)                     08355000
+ 309  CONTINUE                                                          08356000
+C                                                                       08357000
+C              NUMERO EVAPORAZIONI ANEL,N2N NINEVP,N2NTAB E NUM LIVELLI 08358000
+      NINEVP=NSUMG1(NGC,NEVAN,NSGEVA)                                   08359000
+      N2NEVP=NSUMG1(NGC,NEVN2N,NSGEVN)                                  08360000
+      NLVS=NSUMG1(NGC,NLVAN,NSGLVA)                                     08361000
+      N2NLV=NSUMG1(NGC,NLVN2N,NSGLVN)                                   08362000
+C                                                                       08363000
+C             LIMITI TABULAZIONI                                        08364000
+C                                                                       08365000
+      CALL LIMIT(EPS,NSTRT1,NEND1,NEINTL,PINTAB)                        08366000
+      CALL LIMIT(EPS,NSTRT2,NEND2,NEINTN,PNNTAB)                        08367000
+      NINTAB=0                                                          08368000
+      IF(NEND1.GE.NSTRT1.AND.NEND1.GT.0) NINTAB=1                       08369000
+      N2NTAB=0                                                          08370000
+      IF(NEND2.GE.NSTRT2.AND.NEND2.GT.0) N2NTAB=1                       08371000
+C                                                                       08372000
+C        MC2-2 E LA PARTE 4 PER CALCOLARE IL NUMERO PAROLE DEL          08373000
+C        RECORD 4 FANNO SEMPLICEMENTE NEND-NSTRT+1 SENZA CONTROLLARE    08374000
+C        NINTAB ED N2NTAB. PER QUESTO DEVE ESSERE , SE NON CI SONO      08375000
+C        DATI TABULATI,  NEND-NSTRT=-1 . QUI IMPONGO CHE QUESTO SI      08376000
+C        VERIFICHI.                                                     08377000
+        IF(NINTAB.GT.0) GO TO 450                                       08378000
+        NSTRT1=0                                                        08379000
+        NEND1=-1                                                        08380000
+ 450    IF(N2NTAB.GT.0) GO TO 460                                       08381000
+        NSTRT2=0                                                        08382000
+        NEND2=-1                                                        08383000
+ 460    CONTINUE                                                        08384000
+C                                                                       08385000
+C                                                                       08386000
+C     SCRITTURA DIP DAL GRUPPO :   RECORD 2 DI MCC2F6                   08387000
+C                                                                       08388000
+C       MUTO I CODICI DI ENDFB IN QUELLI DI MC2-2 :                     08389000
+C       1 IN 0 ; 2 IN 3 ; 3 IN 2 ; 4 IN 4 ; 5 IN 1                      08390000
+C       COST     LIN-LIN  LNX-Y    X-LNY   LNX-LNY                      08391000
+C                                                                       08392000
+       KTL1=0                                                           08393000
+C      IF(KTL(NGC).EQ.1) KTL1=0                                         08394000
+       IF(KTL(NGC).EQ.2) KTL1=3                                         08395000
+       IF(KTL(NGC).EQ.3) KTL1=2                                         08396000
+       IF(KTL(NGC).EQ.4) KTL1=4                                         08397000
+       IF(KTL(NGC).EQ.5) KTL1=1                                         08398000
+       KTN1=0                                                           08399000
+C      IF(KTN(NGC).EQ.1) KTN1=0                                         08400000
+       IF(KTN(NGC).EQ.2) KTN1=3                                         08401000
+       IF(KTN(NGC).EQ.3) KTN1=2                                         08402000
+       IF(KTN(NGC).EQ.4) KTN1=4                                         08403000
+       IF(KTN(NGC).EQ.5) KTN1=1                                         08404000
+C                                                                       08405000
+       TNINEL=.FALSE.                                                   08406000
+       IF(NGC.GT.NINEL) TNINEL=.TRUE.                                   08407000
+       TN2NTH=.FALSE.                                                   08408000
+       IF(NGC.GT.N2NTH) TN2NTH=.TRUE.                                   08409000
+C                                                                       08410000
+       NWDS=0                                                           08411000
+       IF(TNINEL) GO TO 401                                             08412000
+       NWDS=NWDS+1                                                      08413000
+       A(NWDS)=SIGIN(NGC)                                               08414000
+ 401   IF(TN2NTH) GO TO 402                                             08415000
+       NWDS=NWDS+1                                                      08416000
+       A(NWDS)=SIGN2N(NGC)                                              08417000
+ 402   IF(TNINEL) GO TO 404                                             08418000
+       IF(TMAX1) GO TO 403                                              08419000
+       NWDS=NWDS+1                                                      08420000
+       A(NWDS)=AREAL(NINEVP)                                            08421000
+ 403   IF(TMAX2) GO TO 404                                              08422000
+       NWDS=NWDS+1                                                      08423000
+       A(NWDS)=AREAL(NINTAB)                                            08424000
+ 404   IF(TN2NTH) GO TO 406                                             08425000
+       IF(TMAX3) GO TO 405                                              08426000
+       NWDS=NWDS+1                                                      08427000
+       A(NWDS)=AREAL(N2NEVP)                                            08428000
+ 405   IF(TMAX4) GO TO 406                                              08429000
+       NWDS=NWDS+1                                                      08430000
+       A(NWDS)=AREAL(N2NTAB)                                            08431000
+ 406   IF(TNINEL.OR.TMAX2) GO TO 407                                    08432000
+       NWDS=NWDS+1                                                      08433000
+       A(NWDS)=AREAL(NSTRT1)                                            08434000
+       NWDS=NWDS+1                                                      08435000
+       A(NWDS)=AREAL(NEND1)                                             08436000
+ 407   IF(TN2NTH.OR.TMAX4) GO TO 408                                    08437000
+       NWDS=NWDS+1                                                      08438000
+       A(NWDS)=AREAL(NSTRT2)                                            08439000
+       NWDS=NWDS+1                                                      08440000
+       A(NWDS)=AREAL(NEND2)                                             08441000
+ 408   IF(TMAX2.OR.TNINEL) GO TO 409                                    08442000
+       NWDS=NWDS+1                                                      08443000
+       A(NWDS)=AREAL(KTL1)                                              08444000
+ 409   IF(TMAX4.OR.TN2NTH) GO TO 410                                    08445000
+       NWDS=NWDS+1                                                      08446000
+       A(NWDS)=AREAL(KTN1)                                              08447000
+ 410   IF(TNINEL.OR.TNLEVL) GO TO 411                                   08448000
+       NWDS=NWDS+1                                                      08449000
+       A(NWDS)=AREAL(NLVS)                                              08450000
+ 411   IF(TN2NTH.OR.TN2NLV) GO TO 412                                   08451000
+       NWDS=NWDS+1                                                      08452000
+       A(NWDS)=AREAL(N2NLV)                                             08453000
+ 412   CONTINUE                                                         08454000
+      WRITE(NTO)NWDS,(A(J),J=1,NWDS)                                    08455000
+      NT(3,NTOUT)=NT(3,NTOUT)+1                                         08456000
+C                                                                       08457000
+       IF(STMP.GT.102) WRITE(NO,3000) NGC,                              08458000
+     1  SIGIN(NGC),SIGN2N(NGC),NINEVP,NINTAB,N2NEVP,N2NTAB,             08459000
+     1  NSTRT1,NEND1,NSTRT2,NEND2,KTL1,KTN1,NLVS,N2NLV                  08460000
+ 3000  FORMAT(' GROUP:',I4,' SIGIN=',E12.5,' SIGN2N=',E12.5/1X,         08461000
+     1 'NINEVP,NINTAB,N2NEVP,N2NTAB,NSTRT1,NEND1,NSTRT2,NEND2,KTL, ',   08462000
+     2 'KTN ,NLVS ,N2NLV:'/1X,2I5,2X,2I5,10I6)                          08463000
+C                                                                       08464000
+C                              :    RECORD 3 DI MCC2F6                  08465000
+      L=1                                                               08466000
+      IF(NLVS.GT.0)CALL TRASF1(NLVS,NORDLA,SIGLEV(1,IG),A(L))           08467000
+      L=L+NLVS                                                          08468000
+      IF(NLVS.GT.0)CALL TRASF1(NLVS,NORDLA,AVGMU(1,IG),A(L))            08469000
+      L=L+NLVS                                                          08470000
+      IF(N2NLV.GT.0)CALL TRASF1 (N2NLV,NORDLN,SIGN(1,IG),A(L))          08471000
+      L=L+N2NLV                                                         08472000
+      IF(NINEVP.GT.0)CALL TRASF1 (NINEVP,NORDSA,TSTAT(1,IG),A(L))       08473000
+      L=L+NINEVP                                                        08474000
+      IF(NINEVP.GT.0)CALL TRASF1 (NINEVP,NORDSA,PIN(1,IG),A(L))         08475000
+      L=L+NINEVP                                                        08476000
+      IF(N2NEVP.GT.0)CALL TRASF1 (N2NEVP,NORDSN,TN2N(1,IG),A(L))        08477000
+      L=L+N2NEVP                                                        08478000
+      IF(N2NEVP.GT.0)CALL TRASF1 (N2NEVP,NORDSN,PN2N(1,IG),A(L))        08479000
+      L=L+N2NEVP                                                        08480000
+      IF(L.GT.MA) CALL ERR(8HP2MCF6RB     ,50)                          08481000
+      NWDS=L-1                                                          08482000
+      IF(MAXREC.LT.NWDS) MAXREC=NWDS                                    08483000
+      WRITE(NTO) NWDS,(A(J),J=1,NWDS)                                   08484000
+C                   QUESTO SCRIVE UN RECORD ANCHE SE NWDS=0, P4 ANCHE.  08485000
+C                   E' PIU' FACILE LEGGERE UN RECORD VUOTO CHE CAPIRE   08486000
+C                   SE ESISTE O NO IN P3                                08487000
+C                                                                       08488000
+       IF(STMP.GT.103) WRITE(NO,4000) NWDS,(A(J),J=1,NWDS)              08489000
+ 4000 FORMAT(' RECORD 3 : WORDS:',I5,' SIGLEV(NLVS),AVGMU(NLVS),SIGN(N2N08490000
+     1LV),TSTAT(NINEVP),PIN(NINEVP),TN2N(NINTAB),PN2N(NINTAB):'/        08491000
+     2 (1X,10E12.5) )                                                   08492000
+C                                                                       08493000
+      NT(3,NTOUT)=NT(3,NTOUT)+1                                         08494000
+C                                                                       08495000
+C                       SCRIVE: RECORD 4 DI F6 : TABULAZIONI            08496000
+         NWDS=0                                                         08497000
+      L=1                                                               08498000
+           IF(NEND1.LE.0) GO TO 505                                     08499000
+      CALL TRASF (NEND1-NSTRT1+1,PINTAB(NSTRT1),A(L))                   08500000
+      NWDS=NEND1-NSTRT1+1                                               08501000
+      IF(NWDS.GT.0)L=L+NWDS                                             08502000
+ 505       IF(NEND2.LE.0) GO TO 506                                     08503000
+      CALL TRASF(NEND2-NSTRT2+1,PNNTAB(NSTRT2),A(L))                    08504000
+      NWDS=NEND2-NSTRT2+1                                               08505000
+      IF(NWDS.GT.0)L=L+NWDS                                             08506000
+ 506  NWDS=L -1                                                         08507000
+      IF(MAXREC.LT.NWDS) MAXREC=NWDS                                    08508000
+      IF(AMAXW4.LT.NWDS) AMAXW4=NWDS                                    08509000
+           IF(NWDS.LE.0) GO TO 50                                       08510000
+      WRITE(NTO) NWDS,(A(J),J=1,NWDS)                                   08511000
+      NT(3,NTOUT)=NT(3,NTOUT)+1                                         08512000
+C                                                                       08513000
+      IF(STMP.GT.104) WRITE(NO,5000) NWDS,NSTRT1,NEND1,NSTRT2,NEND2,    08514000
+     1 (A(J),J=1,NWDS)                                                  08515000
+ 5000 FORMAT(' TABULATED DATA: WORDS:',I8,' ANEL LIMITS:',2I10,         08516000
+     1 ' N2N LIMITS:',2I10/1X,(1X,10E12.5) )                            08517000
+C                                                                       08518000
+ 50   CONTINUE                                                          08519000
+C                        ........... FINE LOOP SUI GRUPPI DEL PASSO(50) 08520000
+      IF(NGF.EQ.NMAX) GO TO 600                                         08521000
+      NGI=NGF+1                                                         08522000
+      GO TO 10                                                          08523000
+C     ................ FINE LOOP 10 DI LETTURA E SCRITTURA SUI PASSI(10)08524000
+ 600  CONTINUE                                                          08525000
+C                                                                       08526000
+C                      RIEMPIMENTO INDICE                               08527000
+C                                                                       08528000
+C                RICERCA IR ( CERCA DEI .NE.0 NEI NUMERI RECORD  IR     08529000
+      CALL CERCM(IR1,0,NLVAN,IRLVA)                                     08530000
+      CALL CERCM(IR2,0,NLVN2N,IRLVN)                                    08531000
+      CALL CERCM(IR3,0,NEVAN,IREVA)                                     08532000
+      CALL CERCM(IR4,0,NEVN2N,IREVN)                                    08533000
+      IR=MAX0(IR1,IR2,IR3,IR4,IRANEL,IRN2N)                             08534000
+      IF(IR.LE.0) CALL ERR(8HP2F6RB   ,600)                             08535000
+C                                                                       08536000
+      IF(NMT.GT.M2) GO TO 700                                           08537000
+      NOM1=MIX(3,NMT)                                                   08538000
+      NOM2=MIX(4,NMT)                                                   08539000
+      NOM3=MIX(1,NMT)                                                   08540000
+      NOM4=MIX(2,NMT)                                                   08541000
+      GO TO 710                                                         08542000
+C      ANDREBBE MESSO ENDFB ID COME CARATTERE MA NON HO FATTO LA SUBROUT08543000
+ 700  NOM1=NAREAL(AINDX(35,IR))                                         08544000
+      NOM2=NAREAL(AINDX(36,IR))                                         08545000
+      NOM3=NAREAL(AINDX(35,IR))                                         08546000
+      NOM4=NAREAL(AINDX(36,IR))                                         08547000
+ 710  CONTINUE                                                          08548000
+      ANUMRE=NT(3,NTOUT)-NT(4,NTOUT)                                    08549000
+      IND2=IND2+1                                                       08550000
+      IF(IND2.GT.MIND12) CALL ERR(8HP2F6RB   ,650)                      08551000
+      CALL EMPIN(MIND11,AINDX1(1,IND2),AINDX(1,IR),AINDX(2,IR),         08552000
+     1 AINDX(3,IR),AINDX(4,IR),AINDX(5,IR),                             08553000
+     2 NOM1,NOM2,NOM3,NOM4,0.,                                          08554000
+     3  6.,0.,0.,FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(4,NTOUT)),            08555000
+     4ANUMRE,AMAXW4,0.,FLOAT(NG),EUP,DELTAU,0.,                         08556000
+     5FLOAT(NINEL),FLOAT(N2NTH),FLOAT(NLEVLS),FLOAT(N2NLVS),            08557000
+     6FLOAT(MAX1),FLOAT(MAX2),FLOAT(MAX3),FLOAT(MAX4),                  08558000
+     7FLOAT(NSINK1),FLOAT(NSINK2),FLOAT(NUMREC),FLOAT(MAXREC),          08559000
+     8 FLOAT(NMAX),0.,0.,0.,0.)                                         08560000
+      NT(4,NTOUT)=NT(3,NTOUT)                                           08561000
+      RETURN                                                            08562000
+      END                                                               08563000
+      SUBROUTINE P2F6SG(NG,MNTBG2,ANTBG,NGLIM,EPS,IR,E)                 08564000
+C     ******************************************************            08565000
+C      SIGIN AND SIGN2N COMPUTATION: ULTRAFINE GROUP CROSS SECTIONS     08566000
+C      FOR SECONDARY ENERGY DISTRIBUTION FILE MCC2F6                    08567000
+C      LEGGE SIGIN E SIGN2N LE INTEGRA A GRUPPI E LETIENE IN ANTBG      08568000
+C     **************************************************************    08569000
+C                                                                       08570000
+      DIMENSION ANTBG(NG,MNTBG2),E(NG)                                  08571000
+C                                                                       08572000
+          COMMON/FILES/NT(4,99)                                         08573000
+           EQUIVALENCE(NO,NT(1,6)),(NP,NT(1,11))                        08574000
+       COMMON /INDX/AINDX(40,200)                                       08575000
+C                                                                       08576000
+         WRITE(NP,9010) AINDX(3,IR)                                     08577000
+ 9010    FORMAT(' P2F6SG : MULTI-GROUP SCATT CROSS SECTIONS',E12.5)     08578000
+C                                                                       08579000
+C      NENEL=1 PER ANEL, 2 PER N2N                                      08580000
+      N2NEL=AINDX(32,IR)                                                08581000
+      IF(N2NEL.NE.1.AND.N2NEL.NE.2) CALL ERR(8HP2F6SG   ,0)             08582000
+      CALL INTEGG(NG,ANTBG(1,N2NEL),IR,E,1,0,0)                         08583000
+      NGLIM=1                                                           08584000
+      DO 10 I=1,NG                                                      08585000
+      IF(ANTBG(I,N2NEL).GT.EPS) NGLIM=I                                 08586000
+ 10   CONTINUE                                                          08587000
+      RETURN                                                            08588000
+      END                                                               08589000
+      SUBROUTINE P2F6LV(NG,MNTBG2,ANTBG,NLVN2N,NLVAN,NLVANM,IR,MA,A,E)  08590000
+C     ****************************************************************  08591000
+C     DISCRETE LEVELS DATA COMPUTATIONS                                 08592000
+C      LEGGE MU MEDIO, SIGLEV E SIGN LIVELLI ANEL ED N,2N               08593000
+C     ****************************************************************  08594000
+C                                                                       08595000
+       DIMENSION E(NG)                                                  08596000
+      COMMON/FILES/NT(4,99)                                             08597000
+          EQUIVALENCE(NP,NT(1,11))                                      08598000
+      COMMON/OPZIO/OPZ(4,8,10)                                          08599000
+      EQUIVALENCE (OPZ(2,6,3),EPS)                                      08600000
+       COMMON /INDX/AINDX(40,200)                                       08601000
+      COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),       08602000
+     1N1X,N2X,NS,LX,LY,LB                                               08603000
+       COMMON MAXA,AD(3000)                                             08604000
+      DIMENSION ANTBG(NG,MNTBG2),A(MA)                                  08605000
+      EQUIVALENCE(NT(1,90),NT90),(NT(1,91),NT91),(NT(1,92),NT92)        08606000
+C                                                                       08607000
+          WRITE(NP,9000) AINDX(3,IR),AINDX(32,IR)                       08608000
+ 9000     FORMAT(' P2F6LV : DISCRETE LEVEL:',F10.0,                     08609000
+     1  ' REACTION (1=ANEL,2=N2N,3=MU) :',F5.0)                         08610000
+C                                                                       08611000
+      IF(MA.LT.NG) CALL ERR(8HP2F6LV       ,0)                          08612000
+C                                                                       08613000
+C                           MU MEDIO                                    08614000
+C      MEDIO MU A GRUPPI E LO METTO IN SCR 90                           08615000
+      IF(AINDX(32,IR).NE.3) GO TO 100                                   08616000
+C                                                                       08617000
+C      MI MEDIO PER LIVELLI DISCRETI: MT=51-90 DA FILE 4 ENDFB          08618000
+C       I LIVELLI DISCRETI SU F4 DOVREBBERO ESSERE DATI IN C M          08619000
+C       SENZA MATRICE DI TRASFORMAZIONE                                 08620000
+C                                                                       08621000
+C               LETTURA                                                 08622000
+C                                                                       08623000
+       T=AINDX(7,IR)                                                    08624000
+       NTIN=AINDX(23,IR)                                                08625000
+       NTI=NT(1,NTIN)                                                   08626000
+       NPOST=AINDX(25,IR)                                               08627000
+       CALL POST(NTIN,NPOST)                                            08628000
+C                                   HEAD                                08629000
+       CALL RREC(1,NTI,3,T)                                             08630000
+       NT(4,NTIN)=NT(4,NTIN)+1                                          08631000
+       LVT=L1                                                           08632000
+       LTT=L2                                                           08633000
+C                                     EVENTUALI LIST                    08634000
+       IF(LVT.NE.1) GO TO 101                                           08635000
+       CALL RREC(2,NTI,3,T)                                             08636000
+       NT(4,NTIN)=NT(4,NTIN)+1                                          08637000
+       LCT=L2                                                           08638000
+       IF(LCT.EQ.2) GO TO 101                                           08639000
+C      SECONDO IL MANUALE DI ENDFB QUESTO LIST NON ESISTE E I DATI SONO 08640000
+C       SONO IN CM. IN CASO CONTRARIO SI DOVREBBE USARE LA MATRICE DI TR08641000
+C       DI TRASFORMAZIONE DI QUESTO LIST PER PORTARE I DATI IN C M      08642000
+       CALL ERR(8HP2F6LVIN    ,101)                                     08643000
+       GO TO 102                                                        08644000
+ 101   CALL RREC(1,NTI,3,T)                                             08645000
+       LI=L1                                                            08646000
+       LCT=L2                                                           08647000
+       NT(4,NTIN)=NT(4,NTIN)+1                                          08648000
+       IF(LTT.EQ.0) GO TO 190                                           08649000
+C                                   TAB2 COLLA TABULAZIONE IN E         08650000
+       CALL RREC(4,NTI,3,T)                                             08651000
+       NT(4,NTIN)=NT(4,NTIN)+1+NREST(N1,3)+N1/3                         08652000
+ 102   NE=N2                                                            08653000
+       NR=N1                                                            08654000
+C             PREPARO ARRAY (NE,3) IN A CON ( E , KT , MI)              08655000
+       LE=1                                                             08656000
+C               ENERGIE                                                 08657000
+       LKT=LE+NE                                                        08658000
+C               INTERPOLATION CODE KT (COME INTEGER)                    08659000
+       LMI=LKT+NE                                                       08660000
+C               MI MEDIO SU ANGOLI AD ENERGIA E                         08661000
+       LIMIT=LMI+NE                                                     08662000
+C                                                                       08663000
+       IF(LIMIT+NG.GT.MA) CALL ERR(8HP2F6LV     ,102)                   08664000
+C                                                                       08665000
+C       METTE LA TABULAZIONE DEL TAB2 IN A COME NUMERO INTERO           08666000
+       CALL FILTB2(NR,NE,A(LKT),NBT,JNT)                                08667000
+       IF(LTT.NE.2) GO TO 120                                           08668000
+C                                                                       08669000
+C                   FUNZIONI TABULATE                                   08670000
+       DO 10 IE=1,NE                                                    08671000
+C                                          TAB1                         08672000
+       CALL RREC(3,NTI,3,NT)                                            08673000
+       NT(4,NTIN)=NT(4,NTIN)+1+N1/3+NREST(N1,3)+N2/3+NREST(N2,3)        08674000
+C       ENERGIA                                                         08675000
+       A(IE)=C2                                                         08676000
+C       CALCOLO MI MEDIO                                                08677000
+       CALL GRATP(AMI,AD(LX),AD(LY))                                    08678000
+       A(LMI+IE-1)=AMI                                                  08679000
+ 10    CONTINUE                                                         08680000
+       GO TO130                                                         08681000
+ 120   CONTINUE                                                         08682000
+C                            LEGENDRE                                   08683000
+       DO 20 IE=1,NE                                                    08684000
+C                                  LIST                                 08685000
+       CALL RREC(2,NTI,3,T)                                             08686000
+        NL=N1                                                           08687000
+       NT(4,NTIN)=NT(4,NTIN)+1+N1/6+NREST(N1,6)                         08688000
+C       ENERGIA                                                         08689000
+       A(IE)=C2                                                         08690000
+C       CALCOLO MI MEDIO                                                08691000
+       IF(NL.LT.1) CALL ERR(8H P2F6LV     ,20)                          08692000
+       A(LMI+IE-1)=AD(LB)                                               08693000
+ 20    CONTINUE                                                         08694000
+       GO TO 130                                                        08695000
+ 190   CONTINUE                                                         08696000
+C       ISOTROPO                                                        08697000
+       NE=2                                                             08698000
+       LE=1                                                             08699000
+       LKT=3                                                            08700000
+       LMI=5                                                            08701000
+       LIMIT=LMI+NE                                                     08702000
+       IF(LIMIT+NG.GT.MA) CALL ERR(8HP2F6LV       ,190)                 08703000
+        A(1)=E(NG)                                                      08704000
+         A(2)=E(1)                                                      08705000
+       A(3)=AREAL(1)                                                    08706000
+           A(4)=A(3)                                                    08707000
+        A(5)=0.                                                         08708000
+        A(6)=A(5)                                                       08709000
+ 130   CONTINUE                                                         08710000
+C                                                                       08711000
+C       INTREGRAZIONE A GRUPPI DEL MI MEDIO(E)                          08712000
+       CALL RIEMP(0.0,NG,A(LIMIT))                                      08713000
+C       RIBALTA LE E DI ENDFB PER AVERE E DECRESCENTI PER INTS2         08714000
+       CALL RIBA(NE,A(LKT))                                             08715000
+       CALL RIBA(NE,A(LE))                                              08716000
+       CALL RIBA(NE,A(LMI))                                             08717000
+       CALL INTS2(1,A(LKT),NG,E,A(LIMIT),NE,A(LE),A(LMI))               08718000
+C         RIVERSO SULLO SCR 90 A(LIMIT) CON MI MEDIO A GRUPPI           08719000
+       CALL SOGL(EPS,NSG,NG,A(LIMIT))                                   08720000
+C      ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,           08721000
+C      NON INSERISCE I LIVELLI CON E MIN > E TOP                        08722000
+C      MA I MU LI INSERISCE TUTTI ( NON SI DISTINGUE IL                 08723000
+C      LIVELLO SOPRA DALL'ISOTROPIA                                     08724000
+C      ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,              08725000
+C                                                                       08726000
+       NLVANM=NLVANM+1                                                  08727000
+C      NUMERO I LIVELLI PER RITROVARMELI MEGIO NELLA P2F6RB             08728000
+C      E PER AVERE SEMPRE UNA SICURA CORRISPONDENZA FRA MI E SIGLEV     08729000
+       MTT=AINDX(3,IR)-50.                                              08730000
+       WRITE(NT90) MTT,IR,NSG,(A(LIMIT+J-1),J=1,NG)                     08731000
+       NT(3,90)=NT(3,90)+1                                              08732000
+       NT(4,90)=NT(3,90)                                                08733000
+      RETURN                                                            08734000
+ 100  CONTINUE                                                          08735000
+C                       ANELASTICO                                      08736000
+C      MEDIO   A GRUPPI E LO METTO IN A                                 08737000
+      IF(AINDX(32,IR).NE.1) GO TO 200                                   08738000
+      CALL INTEGG(NG,A,IR,E,1,0,0)                                      08739000
+C      RIVERSO SULLO SCRATCH 91 A                                       08740000
+C      LO SCATCH E REWINDATO DA P2MCF6 E QUI SCRITTO IN SEQUENZA        08741000
+      CALL SOGL(EPS,NSG,NG,A)                                           08742000
+C      ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,           08743000
+C      NON INSERISCE I LIVELLI CON E MIN > E TOP                        08744000
+       IF(NSG.LT.1)WRITE(NP,9010)                                       08745000
+ 9010  FORMAT(' THIS LEVEL IS SKIPPED')                                 08746000
+       IF(NSG.LT.1) RETURN                                              08747000
+C      ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,              08748000
+C                                                                       08749000
+      NLVAN=NLVAN+1                                                     08750000
+C      NUMERO I LIVELLI PER RITROVARMELI MEGIO NELLA P2F6RB             08751000
+C      E PER AVERE SEMPRE UNA SICURA CORRISPONDENZA FRA MI E SIGLEV     08752000
+       MTT=AINDX(3,IR)-50.                                              08753000
+      WRITE(NT91) MTT,IR,NSG,(A(J),J=1,NG)                              08754000
+      NT(3,91)=NT(3,91)+1                                               08755000
+      NT(4,91)=NT(3,91)                                                 08756000
+      RETURN                                                            08757000
+ 200  CONTINUE                                                          08758000
+C                           N2N                                         08759000
+C      MEDIO   A GRUPPI E METTE IN A                                    08760000
+      IF(AINDX(32,IR).NE.2) GO TO 300                                   08761000
+      CALL INTEGG(NG,A,IR,E,1,0,0)                                      08762000
+C      DIVIDO PER 2 ( N,2N) PER I MT CHE HANNO UN N SOLO (IL 16 NE HA 2)08763000
+      IF(AINDX(3,IR).NE.16) CALL NORM(NG,A,2.)                          08764000
+C      METTO LE N,2N NELLO SCR 92                                       08765000
+C      IL FILE 92 E REWINDATO DA P2MCF6                                 08766000
+      CALL SOGL(EPS,NSG,NG,A)                                           08767000
+C      ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,           08768000
+C      NON INSERISCE I LIVELLI CON E MIN > E TOP                        08769000
+       IF(NSG.LT.1)WRITE(NP,9010)                                       08770000
+       IF(NSG.LT.1) RETURN                                              08771000
+C      ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,              08772000
+C                                                                       08773000
+      NLVN2N=NLVN2N+1                                                   08774000
+      WRITE(NT92) IR,NSG,(A(J),J=1,NG)                                  08775000
+      NT(3,92)=NT(3,92)+1                                               08776000
+      NT(4,92)=NT(3,92)                                                 08777000
+      RETURN                                                            08778000
+ 300  CONTINUE                                                          08779000
+C     QUI ARRIVA PER ERRORE IN AINDX(32,.) CHE DEVE ESSERE 1 O 2 O 3    08780000
+      CALL ERR(8HP2FGLV   ,300)                                         08781000
+      RETURN                                                            08782000
+       END                                                              08783000
+      SUBROUTINE  P2F6EV(NG,N5,NA,NEVN2N,NEVAN,IR,MA,A,E)               08784000
+C     ***************************************************               08785000
+C                                                                       08786000
+C      EVAPORATION SPECTRUM                                             08787000
+C                                                                       08788000
+C     ****************************************************              08789000
+C                                                                       08790000
+      DIMENSION NA(NG,N5),A(MA),E(NG)                                   08791000
+      COMMON/OPZIO/OPZ(4,8,10)                                          08792000
+      EQUIVALENCE(OPZ(2,6,3),EPS)                                       08793000
+      COMMON/FILES/NT(4,99)                                             08794000
+             EQUIVALENCE(NP,NT(1,11))                                   08795000
+      EQUIVALENCE(NT(1,93),NT93),(NT(1,94),NT94),(NT(1,95),NT95)        08796000
+      EQUIVALENCE (NT(1,96),NT96)                                       08797000
+      COMMON/INDX/AINDX(40,200)                                         08798000
+C                                                                       08799000
+               WRITE(NP,9000) AINDX(3,IR)                               08800000
+ 9000          FORMAT(' P2F6EV : EVAPORATION SPECTRUM',F5.0)            08801000
+C                                                                       08802000
+      IF(MA.LT.NG*2) CALL ERR(8HP2F6EV     ,0)                          08803000
+C                                                                       08804000
+C                 MEDIO   P(E) SUL GRUPPO                               08805000
+      CALL INTEGG(NG,A,IR,E,1,1,0)                                      08806000
+C                                                                       08807000
+C                 INTEGRO THETA SUL GRUPPO                              08808000
+      CALL INTEGG(NG,A(NG+1),IR,E,1,1,1)                                08809000
+C                                                                       08810000
+C                                  ANELASTICHE                          08811000
+      IF(AINDX(32,IR).NE.1) GO TO 200                                   08812000
+      NEVAN=NEVAN+1                                                     08813000
+      CALL SOGL(EPS,NSG,NG,A)                                           08814000
+      WRITE(NT93) IR,NSG,(A(J),J=1,NG)                                  08815000
+      WRITE(NT94) IR,(A(NG+J),J=1,NG)                                   08816000
+      NT(3,93)=NT(3,93)+1                                               08817000
+      NT(3,94)=NT(3,94)+1                                               08818000
+      NT(4,93)=NT(4,93)+1                                               08819000
+      NT(4,94)=NT(4,94)+1                                               08820000
+      RETURN                                                            08821000
+ 200  CONTINUE                                                          08822000
+C                                     N,2,                              08823000
+      IF(AINDX(32,IR).NE.2.) GO TO300                                   08824000
+      NEVN2N=NEVN2N+1                                                   08825000
+      CALL SOGL(EPS,NSG,NG,A)                                           08826000
+      WRITE(NT95) IR,NSG,(A(J),J=1,NG)                                  08827000
+      WRITE(NT96) IR,(A(NG+J),J=1,NG)                                   08828000
+      NT(3,95)=NT(3,95)+1                                               08829000
+      NT(4,95)=NT(4,95)+1                                               08830000
+      NT(3,96)=NT(3,96)+1                                               08831000
+      NT(4,96)=NT(4,96)+1                                               08832000
+      RETURN                                                            08833000
+ 300  CONTINUE                                                          08834000
+       CALL ERR(8HP2F6EV    ,300)                                       08835000
+      RETURN                                                            08836000
+      END                                                               08837000
+      SUBROUTINE P2F6TB(NG,MNTBG2,NTBG,IR,MA,A,NEINTN,NEINTL,LN,LL,LMA, 08838000
+     1 E)                                                               08839000
+C     ****************************************************************  08840000
+C                                                                       08841000
+C      TABULATED ENERGY DISTRIBUTION                                    08842000
+C                                                                       08843000
+C      RESTITUISCE: LMA: INDICE DI FINO A DOVE E' PIENO NTBG((NG,5)+..) 08844000
+C       LL ED LN : INDIRIZZO DI EINTL ED EINTN IN A                     08845000
+C       NEINTN E NEINTL : NUMERO ENERGIE EINTL ED EINTN DI ARRIVO       08846000
+C                         DELLA TABULAZIONE                             08847000
+C                                                                       08848000
+C                 NTBG(1,NG) - SIGIN                                    08849000
+C                      2     - SIGN2N                                   08850000
+C                      3     - KTL                                      08851000
+C                      4     - KTN                                      08852000
+C                                                                       08853000
+C     ****************************************************************  08854000
+C                                                                       08855000
+      DIMENSION NTBG(NG,MNTBG2),A(MA),E(NG),EXX(2),PXX(2)               08856000
+      EQUIVALENCE(EXX(1),EX1),(EXX(2),EX2),(PXX(1),PX1),(PXX(2),PX2)    08857000
+      COMMON /OPZIO/OPZ(4,8,10)                                         08858000
+      EQUIVALENCE(OPZ(2,6,3),EPS),(OPZ(2,5,2),EUP),(OPZ(2,5,3),DELU)    08859000
+      EQUIVALENCE(OPZ(2,5,4),ANG)                                       08860000
+      COMMON MAXA,AD(3000)                                              08861000
+       COMMON/DENS/JMT,JAT,JTT,JLT,LA,JNS,MNS,JX,MX                     08862000
+       COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),       08863000
+     1 N1X,N2X,NS,LX,LY,LB                                              08864000
+      COMMON/INDX/AINDX(40,200)                                         08865000
+       COMMON/FILES/NT(4,99)                                            08866000
+             EQUIVALENCE(NP,NT(1,11)),(NO,NT(1,6))                      08867000
+C                                                                       08868000
+               WRITE(NP,9000) AINDX(3,IR)                               08869000
+ 9000          FORMAT(' P2F6TB  : TABULATED FUNCTIONS',E12.5)           08870000
+C                                                                       08871000
+      T=AINDX(37,IR)                                                    08872000
+C                   ANELASTICHE ON N,2N                                 08873000
+      N2NEL=AINDX(32,IR)                                                08874000
+      IF(N2NEL.NE.1.AND.N2NEL.NE.2) CALL ERR(8HP2F6TB   ,0)             08875000
+C      PER SEGNALARE AD P2F6RB CHE CERTI GRUPPI NON CI SONO             08876000
+       MEN1=-1                                                          08877000
+       CALL RIEMP(MEN1,NG,NTBG(1,2+N2NEL))                              08878000
+C                  POSIZIONAMENTO FILE DI INPUT                         08879000
+      NTIN=AINDX(23,IR)                                                 08880000
+      NTI=NT(1,NTIN)                                                    08881000
+      NPOST=AINDX(25,IR)                                                08882000
+      CALL POST(NTIN,NPOST)                                             08883000
+C      POSIZIONAMENTO TAPE DI OUTPUT                                    08884000
+      NTOUT=97                                                          08885000
+      IF(N2NEL.EQ.2) NTOUT=98                                           08886000
+      NTO=NT(1,NTOUT)                                                   08887000
+C      VIENE POSIZIONATO DEL MAIN                                       08888000
+C                        PULISCE DENS                                   08889000
+      CALL DELETE(0)                                                    08890000
+C                         LETTURA TAB1 CON P(E)                         08891000
+      CALL RREC(3,NTI,3,T)                                              08892000
+      NT(4,NTIN)=NT(4,NTIN)+1+N1/3+NREST(N1,3)+N2/3+NREST(N2,3)         08893000
+C                         LO   METTE IN DENS COL NUMERO 1               08894000
+      CALL STORE(3,1,LOF)                                               08895000
+      IF(LOF.GT.0) CALL ERR(8HP2F6TB    ,1)                             08896000
+C                         LEGGE TAB2                                    08897000
+      CALL RREC(4,NTI,3,T)                                              08898000
+       NT(4,NTIN)=NT(4,NTIN)+N1/3+NREST(N1,3)+1                         08899000
+C                         NUMERO ENERGIE DI PARTENZA                    08900000
+      NE=N2                                                             08901000
+C                      PUNTATORI                                        08902000
+       LNE=1                                                            08903000
+C        LE E DEL TAB2(E DI PARTENZA) VENGONO MESSE IN A(1) : NE VALORI 08904000
+        LNEKT=LNE+NE                                                    08905000
+C        KT : INTERPOLAZIONI DEL TAB2  A(LNEKT) :NE VALORI (QUANTE LE E 08906000
+       LEINT=LNEKT+NE                                                   08907000
+C        E' DI ARRIVO EINT : A(LEINT) : NEINT VALORI                    08908000
+C                                                                       08909000
+C            METTO LEGGI DI TABULAZIONE IN A                            08910000
+       CALL FILTB2(N1,NE,A(LNEKT),NBT,JNT)                              08911000
+C                         METTE IN DENS AL NUMERO 2                     08912000
+      CALL STORE(4,2,LOF)                                               08913000
+      IF(LOF.GT.0) CALL ERR(8HP2F6TB   ,2)                              08914000
+C                                                                       08915000
+C      NUMERO ENERGIE .E' L'INTERSEZIONE DELL ENERGIE DEI DIVERSI TAB1  08916000
+      NEINT=0                                                           08917000
+C                                                                       08918000
+C      LOOP SUI TAB1 DELLE DIVERSE ENERGIE DI PARTENZA ................ 08919000
+C      CHE VENGONO LETTI E MESSI IN /DENS/                              08920000
+        KT=-1                                                           08921000
+      DO 10 IE=1,NE                                                     08922000
+C                        LEGGE TAB1                                     08923000
+      CALL RREC(3,NTI,3,T)                                              08924000
+      NT(4,NTIN)=NT(4,NTIN)+1+N1/3+N2/3+NREST(N1,3)+NREST(N2,3)         08925000
+C                          ENERGIA                                      08926000
+      A(IE)=C2                                                          08927000
+C      PUNTI E' DI INTERPOLAZIONE VENGONO MESSI TUTTI IN FILA INSIEME   08928000
+C      POI VENGONO RIORDINATI ED I RIDONDANTI VENGONO ELIMINATI         08929000
+C                                                                       08930000
+C      PER PERFETTA COERENZA CON ETOE-II BISOGNA NON INSERIRE I PUNTI   08931000
+C      DI ARRIVO CORRISPONDENTI AD E DI PARTENZA SOPRA  ETOP=E(1)       08932000
+C      IF(C2.GT.E(1)) GO TO 101                                         08933000
+C       IN QUESTO MODO SI EVITA DI AVERE DELLE E DI ARRIVO IN PIU'      08934000
+C       CUI POI NON ARRIVA ALCUN CONTRIBUTO. QUESTO RENDE RIDONDANTE    08935000
+C       LA CHIAMATA ALLA ROUTINE INFER SOTTO ( OVE ELIMINA LE E DI      08936000
+C       ARRIVO > DEL PRIMO GRUPPO E(1)                                  08937000
+C       COSI PERO' SI ELIMINANO ANCHE LE E DI ARRIVO CHE HANNO          08938000
+C       CONTRIBUTO DALLE E FRA ETOP E LA PRIMA E DI PARTENZA TABULATA   08939000
+C       SOTTO ETOP.BISOGNEREBBE METTERE LE E DI ARRIVO E POI RISCARTARLE08940000
+C       AL GIRO DOPO SPOSTANDO INDIETRO I PUNTATORI SE NON SI E' SOTTO  08941000
+C       ETOP. IN MODO DA TENERE GLI ARRIVI PARTITI DALLA E SUBITO       08942000
+C       SOPRA ETOP FINO ALLA E SUBITO SOTTO.                            08943000
+C     E' COMPLICATO. LASCIO QUALCHE E IN PIU'.MC2-2 FUNZIONA LO STESSO  08944000
+C                                                                       08945000
+      DO 15 IE1=1,N2                                                    08946000
+ 15   A(LEINT+NEINT+IE1-1)=AD(LX+IE1-1)                                 08947000
+       NEINT=NEINT+N2                                                   08948000
+C      ESAME DELLE LEGGI DI INTERPOLAZIONE ,CHE DEVONO ESSERE           08949000
+C      COSTANTI SU TUTTO IL RANGE DELLE ENERGIE DI ARRIVO               08950000
+C            ANZI SUPPONGO CHE SIANO COSTANTI!                          08951000
+C                                                                       08952000
+      IF(KT.EQ.-1)KT=JNT(1)                                             08953000
+      DO 20 IKT=1,N1                                                    08954000
+      IF(JNT(IKT).EQ.KT) GO TO 100                                      08955000
+      KT=2                                                              08956000
+C     CALL ERR(8H P2F6TB    , 100)                                      08957000
+      WRITE(NP,7000) MAT,MT                                             08958000
+      WRITE(NO,7000) MAT,MT                                             08959000
+ 7000 FORMAT(' WARNING! LINEAR INTERPOLATION IS ASSUMED IN TABULATED'   08960000
+     1 ,' DATA, MAT=',I5,' MT=',I4)                                     08961000
+ 100  CONTINUE                                                          08962000
+ 20   CONTINUE                                                          08963000
+C       SE LE LEGGI DI INTERPOLAZIONE NON SONO COSTANTI SU              08964000
+C       TUTTO IL RANGE DELLE ENERGIE DI ARRIVO, NON SI PUO              08965000
+C       ASSEGNARE UNA LEGGE DI INTERPOLAZIONE PER F6, E NEPPURE         08966000
+C       INTEGRARE IN DE  F(E IN E') CON E' A DIVERSE LEGGI              08967000
+C       DI INTERPOLAZIONE A SECONDA DI E                                08968000
+C                                                                       08969000
+C       SE LE TABULAZIONI NON SONO SEMPRE QUELLE                        08970000
+C      QUI SI DOVREBBE RIDURRE AD UNA TABULAZIONE CON UNICA LEGGE;      08971000
+C      SI PROCEDEREBBE COSI':                                           08972000
+C      LOOP SU INTERVALLI ;                                             08973000
+C      SE E' DIVERSO AGGIUNGE PUNTI DI ENERGIA FINCHE'  2 PUNTI NON SONO08974000
+C      CIRCA UGUALI CALCOLATI COLLE 2 DIVERSE INTERPOLAZIONI            08975000
+C      I PUNTI AGGIUNTI VANNO MESSI IN A COGLI ALTRI,NON IN TAB1, OVE   08976000
+C      NON SERVONO, VISTE COME SONO FATTE LE COSE DOPO                  08977000
+C                                                    SU SCR 98 PER N2N  08978000
+C                     METTE IN DENS NUMERO 2+IE                         08979000
+ 101  CALL STORE(3,2+IE,LOF)                                            08980000
+      IF(LOF.GT.0) CALL ERR(8HP2F6TB   ,10)                             08981000
+ 10   CONTINUE                                                          08982000
+C                                                                       08983000
+C      RIBALTO LE E SU CUI INTERPOLA ED I RELATIVI CODICI DI            08984000
+C      INTERPOLAZIONE PER AVERLE NELLO STESSO ORDINE DEI GRUPPI         08985000
+       CALL RIBA(NE,A(LNE) )                                            08986000
+       CALL RIBA(NE,A(LNEKT))                                           08987000
+C                                                                       08988000
+C      RIORDINO ED ELIMINO LE E DI ARRIVO DOPPIE                        08989000
+           NEINT1=NEINT                                                 08990000
+       CALL ORDIND(1,1,NEINT,NEINT1,A(LEINT))                           08991000
+C                                                                       08992000
+C      ORA A E' PIENO FINO AD A(LBG=LEINT+NEINT )2* NE VALORI+E: EINT   08993000
+C       IN A(LBG+  ) METTE I VALORI DI SIGMA DEL GRUPPO (NEINT VALORI)  08994000
+C            OCCUPATI FINO ALLE F INTEGRATI A GRUPPI                    08995000
+      LBG=LEINT+NEINT                                                   08996000
+C                                                                       08997000
+C      ELIMINO LE ENERGIE DI ARRIVO MAGGIORI DEL PRIMO GRUPPO           08998000
+       CALL INFER(E(1),LIM,NEINT,A(LEINT))                              08999000
+                  IF(LIM.GT.1) LIM=LIM-1                                09000000
+       LEINT=LEINT+LIM-1                                                09001000
+       NEINT=NEINT-LIM+1                                                09002000
+C       SPOSTO L'INDIRIZZO DI EINT AL PRIMO ABBASTANZA PICCOLO DA       09003000
+C      STARE SOTTO LA E DEL PRIMO GRUPPO                                09004000
+C                                                                       09005000
+C      FISSA LIMITI ENERGETICI E  INTERVALLO INTERPOLAZIONE IN F(E,E')  09006000
+C      GUARDA I VALORI DI E RELATIVI AL TAB2                            09007000
+C                                                                       09008000
+C      LOOK FOR THE FIRST ENERGY GROUP                                  09009000
+       DO 50 I=2,NG                                                     09010000
+       IF(A(1).LT.E(I)) GO TO 50                                        09011000
+       NGI=I-1                                                          09012000
+       GO TO 500                                                        09013000
+ 50    CONTINUE                                                         09014000
+       NGI=NG                                                           09015000
+C      LOOK FOR THE LAST ENERGY GROUP                                   09016000
+ 500   NG1=NGI+1                                                        09017000
+       IF(NG1.LE.NG)     GO TO 200                                      09018000
+       GO TO 204                                                        09019000
+ 200   DO 55 I=NG1,NG                                                   09020000
+       IF(A(NE).LT.E(I)) GO TO 55                                       09021000
+       NGF=I-1                                                          09022000
+       IF(A(NE).EQ.E(I)) NGF=I                                          09023000
+       GO TO 205                                                        09024000
+ 55    CONTINUE                                                         09025000
+ 204   NGF=NG                                                           09026000
+ 205   CONTINUE                                                         09027000
+C      METTE IN RECS IL TAB1 DEI P(E)                                   09028000
+       CALL FETCH(1,LOF)                                                09029000
+       IF(LOF.GT.0) CALL ERR(8HP2F6TB    ,205)                          09030000
+       IEX=1                                                            09031000
+C      FISSA VALORI DI E DI PARTENZA FRA CUI INTERPOLARE,               09032000
+C      VALORI DI P CORRISPONDENTI E CODICI DI INTERPOLAZIONE IN         09033000
+C       E PER F( E IN E' )                                              09034000
+C                                                                       09035000
+C      CERCA IL PRIMO INTERVALLO DI INTERPOLAZIONE                      09036000
+       CALL INFER(E(NGI),LIM,NE,A)                                      09037000
+       IEX=LIM-1                                                        09038000
+       IF(IEX.LE.0) IEX=1                                               09039000
+       IF(IEX.GE.NE) RETURN                                             09040000
+C                                                                       09041000
+       EX1=A(IEX)                                                       09042000
+       EX2=A(IEX+1)                                                     09043000
+       KINT=NAREAL(A(LNEKT+IEX-1))                                      09044000
+C       RICAVA P(EX1) , P(EX2)                                          09045000
+       CALL TERP2(EX1,PX1,1)                                            09046000
+       CALL TERP2(EX2,PX2,1)                                            09047000
+       DO 60 IG=NGI,NGF                                                 09048000
+       E1=E(IG)                                                         09049000
+       E2=E(IG+1)                                                       09050000
+       CALL RIEMP(0.,NEINT,A(LBG))                                      09051000
+       IF(E2.LT.EX2) GO TO 300                                          09052000
+C       NORMALE INTEGRAZIONE CON ESTREMI DI INTERPOLAZIONE ESTERNI      09053000
+C       AGLI ESTREMI DI INTEGRAZIONE                                    09054000
+       CALL GRATTE(E1,E2,EX1,EX2,PX1,PX2,IEX,NE,KINT,NEINT,             09055000
+     1 A(LBG),A(LEINT) )                                                09056000
+       GO TO 600                                                        09057000
+ 300   CONTINUE                                                         09058000
+       IF(E1.LT.EX2) GO TO 310                                          09059000
+C      ESTREMI DI INTERPOLAZIONE ENTRAMBI SOPRA TUTTI I GRUPPI          09060000
+C                                                                       09061000
+C       IL PUNTO DI INTERPOLAZIONE FINISCE A META DEL GRUPPO.           09062000
+C       INTEGRA SULLA PRIMA PARTE POI CAMBIA I LIMITI DI INTERPOLAZIONE 09063000
+C       ED INTEGRA SULLA SECONDA PARTE, SE ESISTE(INTERP=INTEGR A DX)   09064000
+       IF(IG.EQ.NGI.AND.IEX.EQ.1) GO TO 310                             09065000
+C      CASO DEL PRIMO GRUPPO CON IL SUO PRIMO PEZZO VUOTO               09066000
+C                                                                       09067000
+       CALL GRATTE(E1,EX2,EX1,EX2,PX1,PX2,IEX,NE,KINT,NEINT,            09068000
+     1 A(LBG),A(LEINT) )                                                09069000
+C      NUMERI RECORDS) , NEX1,NEX2, POSIZIONI;EX1,EX2 ENERGIE;KINT CODIC09070000
+C      DI INTERPOLAZIONE IN E                                           09071000
+C                                                                       09072000
+ 310   IEX=IEX+1                                                        09073000
+C       SALTO I VALORI DOPPI CHE POSSONO ESISTERE NELLE TABULAZIONI     09074000
+       IF(A(IEX).EQ.A(IEX+1)) IEX=IEX+1                                 09075000
+       IF(IEX.GE.NE) GO TO 600                                          09076000
+       EX1=EX2                                                          09077000
+       PX1=PX2                                                          09078000
+       KINT=NAREAL(A(LNEKT+IEX-1))                                      09079000
+       EX2=A(IEX+1)                                                     09080000
+       CALL TERP2(EX2,PX2,1)                                            09081000
+       IF(E2.EQ.EX1) GO TO 600                                          09082000
+       IF(E2.LT.EX2) GO TO 320                                          09083000
+C       IN QUESTO CASO DEVO ANCORA INTEGRARE SU UN PEZZO DEL GRUPPO     09084000
+       CALL GRATTE(EX1,E2,EX1,EX2,PX1,PX2,IEX,NE,KINT,NEINT,            09085000
+     1 A(LBG),A(LEINT) )                                                09086000
+       GO TO 600                                                        09087000
+ 320   CONTINUE                                                         09088000
+C       QUI SE TUTTO IL RANGE DI INTERPOLAZIONE E' COMPRESO             09089000
+C       NEL GRUPPO , ALLORA INTEGRO IL RANGE E VADO AVANTI              09090000
+C       NELLO STESSO GRUPPO                                             09091000
+       CALL GRATTE(EX1,EX2,EX1,EX2,PX1,PX2,IEX,NE,KINT,NEINT,           09092000
+     1 A(LBG),A(LEINT) )                                                09093000
+       GO TO 310                                                        09094000
+C                                                                       09095000
+ 600   CONTINUE                                                         09096000
+C      SCRITTURA TABULAZIONI SU NTOUT( PER IL GRUPPO IN QUESTIONE)      09097000
+C           DIVIDE I DATI PER L'INTERVALLO ENERGETICO (SONO MEDIE)      09098000
+           DE=E1-E2                                                     09099000
+           DO 70 J=1,NEINT                                              09100000
+ 70        A(LBG+J-1)=A(LBG+J-1)/DE                                     09101000
+      NTBG(IG,2+N2NEL)=KT                                               09102000
+C           KT DEVE ESSERE EGUALE DA PER TUTTO  . ALTRIMENTI ANDREBBE   09103000
+C           PRODOTTO DA GRATTE ( CHE LO HA TRAMITE IPDS ) PER OGNI ENERG09104000
+C           DI PARTENZA E NEI CASI IN CUI LE DUE ENERGIE DI             09105000
+C           PARTENZA LO HANNO DIVERSO COME CI SI ARRANGIA?              09106000
+C                                                                       09107000
+      WRITE(NTO)(A(LBG+J-1),J=1,NEINT)                                  09108000
+ 60   CONTINUE                                                          09109000
+C      CONSERVA LE ENERGIE DI INTERPOLAZIONE EINT                       09110000
+C      LL ED LN SONO I L POSTO IN A IN CUI SONO LE ENERGIE PER ANEL ED N09111000
+      IF(NEINT.GT.NG) CALL ERR(8HP2F6TB   ,50)                          09112000
+      CALL TRASF(NEINT,A(LEINT),A(1))                                   09113000
+      IF(N2NEL.EQ.1) NEINTL=NEINT                                       09114000
+      IF(N2NEL.EQ.2)  NEINTN=NEINT                                      09115000
+      IF(N2NEL.EQ.1) LL=LMA                                             09116000
+      IF(N2NEL.EQ.2) LN=LMA                                             09117000
+      LMA=LMA+NEINT                                                     09118000
+      RETURN                                                            09119000
+      END                                                               09120000
+      SUBROUTINE P2MCF7(MA,A,M1,M2,MIX,MKB1,INDIND,MKB,INDMIX,NG,E)     09121000
+C     ***********************************************************       09122000
+C                                                                       09123000
+C       FISSION SPECTRUM DATA FOR FILE MCC2F7                           09124000
+C      A(MA)=SCR SPACE                                                  09125000
+C      MIX(M1,M2)=MIX DELL F7                                           09126000
+C      INDMIX(3,MKB)= INDICE DI MIX : 1,2,3= VALORE,INIZIO,DURATA       09127000
+C            MIX E' ORDINATA PER FN                                     09128000
+C      INDIND(3,MKB1)=INDICE DI IND :1-2,3,4=VALORE(REAL*8),INIZIO,DURAT09129000
+C            IND E' ORDINATA PER MAT                                    09130000
+C                                                                       09131000
+C     ******************************************************************09132000
+C                                                                       09133000
+       DATA ZERO,UNO/0.,1./                                             09134000
+      DIMENSION A(MA),MIX(M1,M2),INDIND(4,MKB1),INDMIX(3,MKB),E(NG)     09135000
+      COMMON /INDX/AINDX(40,200)                                        09136000
+      COMMON /INDX1/AINDX1(40,200)                                      09137000
+      COMMON /FILES/ NT(4,99)                                           09138000
+      COMMON /DIM/ MMIX,MIND,MNX2,IND2                                  09139000
+      EQUIVALENCE(NO,NT(1,6)),(NP,NT(1,11)),(NP12,NT(1,12))             09140000
+            COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),           09141000
+     1      JNT(200),N1X,N2X,NS,LX,LY,LB                                09142000
+            COMMON MAXA,AD( 4000)                                       09143000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        09144000
+       EQUIVALENCE (OPZ(2,7,1),STMP),(COST,OPZ(2,7,2))                  09145000
+       EQUIVALENCE (OPZ(2,7,3),EUNO),(OPZ(2,7,4),EDUE)                  09146000
+C                                                                       09147000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     09148000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     09149000
+C                                                                       09150000
+            WRITE(NP12,7000)((MIX(J,JJ),J=1,M1),JJ=1,M2)                09151000
+ 7000    FORMAT(' P2MCF7 ENTERED. INPUT TABLE TO BE EXECUTED:'/         09152000
+     1 (1X,2A4,1X,2A4,8I4,3E12.5))                                      09153000
+C                                                                       09154000
+C      IN A HO :                                                        09155000
+C                    A(1)                                               09156000
+C                           ALFA  ( O P DI WATT)                        09157000
+C                    A(NG+1)                                            09158000
+C                           BETA ( A A DI WATT)                         09159000
+C                    A(2*NG+1)                                          09160000
+C                           TAU ( O C DI WATT)                          09161000
+C                    A(3*NG+1)                                          09162000
+       LE=3*NG+1                                                        09163000
+C                           E RIBALTATE PER ESSERE USATE DA TERP2,GRATE 09164000
+C                    A(4*NG+1)                                          09165000
+       LIMIT=4*NG                                                       09166000
+       IF(LIMIT.GT.MA) CALL ERR(8HP2MCF7   ,  15)                       09167000
+       DO 20 I=1,NG                                                     09168000
+ 20    A(3*NG+I)=E(NG-I+1)                                              09169000
+C                 HO RIBALTATO LE E PER USARLE MEGLIO IN TERP2          09170000
+C                                                                       09171000
+C      ........................LOOP SULL INDICE                         09172000
+C      RICERCA SE GLI ELEMENTI DI IND SONO IN MIX ( DA TRATTARE)        09173000
+      DO 10 IS=1,MKB1                                                   09174000
+      N1S=INDIND(3,IS)                                                  09175000
+       N2S=INDIND(4,IS)                                                 09176000
+       N3S=N1S+N2S-1                                                    09177000
+C                                                                       09178000
+C      CERCA L ISOTOPO DELLA MIX                                        09179000
+      NMT=NCERC1(MINDX1,IND,AINDX,M1,M2,MIX,N1S,35,3,1)                 09180000
+C      NON HA TROVATO MATERIALE NELLA MIX                               09181000
+       IF(NMT.LE.0.) GO TO 100                                          09182000
+C                                                                       09183000
+C      ...................LOOP SU INDICE DEL MATERIALE                  09184000
+       DO 15 IR=N1S,N3S                                                 09185000
+C      CERCA SE IL MATERIALE E DESTINATO AD F7 ED E SPETTRO DI FISSIONE 09186000
+          IF(AINDX(3,IR).NE.18.) GOTO 150                               09187000
+          IF(AINDX(30,IR).NE.7.) GO TO 150                              09188000
+      IF(AINDX(12,IR).NE.7..AND.AINDX(12,IR).NE.9..AND.AINDX(12,IR).NE. 09189000
+     1   11.) CALL ERR(8HP2MCF7     ,170)                               09190000
+       L79=0                                                            09191000
+       IF(AINDX(12,IR).EQ.7.) L79=1                                     09192000
+       IF(AINDX(12,IR).EQ.9.) L79=2                                     09193000
+       IF(AINDX(12,IR).EQ.11.) L79=1                                    09194000
+C       L79 E' L'INDIRIZZO IN A DI BETA E TAU,TEMPERATURA PER RAPPR 7 O 09195000
+       LL79=L79*NG+1                                                    09196000
+       IF(L79.LE.0) GO TO 150                                           09197000
+C                                                                       09198000
+       COST1=COST                                                       09199000
+         IF(NMT.LE.M2) COST1=MIX(12,NMT)                                09200000
+C           COST1 =OPZIONE PER IL FORCED E INDEPENDENT CHI              09201000
+C      ENERGY LIMITS FOR FORCED E ENDEPENDENT CHI                       09202000
+       E111=E(NG)                                                       09203000
+       E222=E(1)                                                        09204000
+       IF(EUNO.LE.0.OR.EDUE.LE.0.) GO TO 170                            09205000
+       E111=EUNO                                                        09206000
+       E222=EDUE                                                        09207000
+ 170   IF(NMT.GT.M2) GO TO 180                                          09208000
+       E11=AREAL(MIX(13,NMT))                                           09209000
+       E22=AREAL(MIX(14,NMT))                                           09210000
+       IF(E11.LE.0..OR.E22.LE.0.) GO TO 180                             09211000
+       E111=E11                                                         09212000
+       E222=E22                                                         09213000
+ 180   CONTINUE                                                         09214000
+C                                                                       09215000
+       T=AINDX(37,IR)                                                   09216000
+C                                                                       09217000
+C                     DEFINIZIONE TAPE DI OUTPUT                        09218000
+       NTOUT=0                                                          09219000
+       IF(NMT.LE.M2.AND.NMT.GT.0) NTOUT=MIX(5,NMT)                      09220000
+ 171  IF(NTOUT.LE.0) NTOUT=37                                           09221000
+      NTO=NT(1,NTOUT)                                                   09222000
+      CALL POSL(NTOUT)                                                  09223000
+C                       DEF TAPE DI INPUT                               09224000
+      NTIN=AINDX(23,IR)                                                 09225000
+      NTI=NT(1,NTIN)                                                    09226000
+      NPOST=AINDX(25,IR)                                                09227000
+      CALL POST(NTIN,NPOST)                                             09228000
+C                                                                       09229000
+C      FISSION SPECTRUM LF=7 OPPURE LF=9 ( WATT) SONO LE LEGGI AMMESSE D09230000
+C          MC2-2                                                        09231000
+C      IN PIU' C'E' WATT E DEPENDENT (LF=11) COME USATO NON E' CHIARO   09232000
+C                                                                       09233000
+C                                                                       09234000
+       ANREC=0.                                                         09235000
+C                                                                       09236000
+C         L'OPZIONE DI CHI VECTOR NON E' ACCETTATA DA MC2-2             09237000
+C        CONTRARIAMENTE A QUANTO PARREBBE DALLA DESCRIZIONE DI MCC2F7   09238000
+C        DEI MANUALI                                                    09239000
+        COST1=0.                                                        09240000
+       IF(COST1.LE.0.) GO TO 300                                        09241000
+C      -------------INTERPOLATION AND CHI VECTOR                        09242000
+           WRITE(NP,9010) AINDX(35,IR),AINDX(36,IR)                     09243000
+ 9010  FORMAT(1X,2A4,' CHI VECTOR OPTION USED')                         09244000
+C                                                                       09245000
+C      LEGGO P(E) (TAB1)                                                09246000
+       CALL RREC(3,NTI,3,T)                                             09247000
+       ANREC=ANREC+1+N1/3+N2/3+NREST(N1,3)+NREST(N2,3)                  09248000
+       CALL DTERP2(A(LE),A(1),NG,AD(LX),AD(LY),AD(LB))                  09249000
+C      LETTO THETA(E) (TAB1)                                            09250000
+       CALL RREC(3,NTI,3,T)                                             09251000
+       ANREC=ANREC+1+N1/3+N2/3+NREST(N1,3)+NREST(N2,3)                  09252000
+       CALL DTERP2(A(LE),A(LL79),NG,AD(LX),AD(LY),AD(LB))               09253000
+C                                                                       09254000
+       IF(AINDX(12,IR).NE.11.) GO TO 250                                09255000
+C      LEGGE ED INTERPOLA IL TERZO RECORD TAB1 (PER WATT SPECTRUM)(L79=109256000
+       LL80=(L79+1)*NG+1                                                09257000
+       CALL RREC(3,NTI,3,T)                                             09258000
+       ANREC=ANREC+1+N1/3+N2/3+NREST(N1,3)+NREST(N2,3)                  09259000
+       CALL DTERP2(A(LE),A(LL80),NG,AD(LX),AD(LY),AD(LB))               09260000
+C                                                                       09261000
+ 250   NGFIN=NG                                                         09262000
+       GO TO 500                                                        09263000
+C                                                                       09264000
+ 300   CONTINUE                                                         09265000
+C      ---------------MEDIA E  CHI FATTO SCALARE                        09266000
+            WRITE(NP,9020) AINDX(35,IR),AINDX(36,IR),E111,E222          09267000
+ 9020   FORMAT(1X,2A4,' CHI MEDIATED BETWEEN ENERGY LIMITS:',2E12.5)    09268000
+C                                                                       09269000
+C      LEGGO P(E) (TAB1)                                                09270000
+       CALL RREC(3,NTI,3,T)                                             09271000
+       ANREC=ANREC+1+N1/3+N2/3+NREST(N1,3)+NREST(N2,3)                  09272000
+       CALL GRATE(E111,E222,ANS)                                        09273000
+       A(1)=ANS/(E222-E111)                                             09274000
+C      LETTO THETA(E) (TAB1)                                            09275000
+       CALL RREC(3,NTI,3,T)                                             09276000
+       ANREC=ANREC+1+N1/3+N2/3+NREST(N1,3)+NREST(N2,3)                  09277000
+       CALL GRATE(E111,E222,ANS)                                        09278000
+       A(L79*NG+1)=ANS/(E222-E111)                                      09279000
+C                                                                       09280000
+        IF(AINDX(12,IR).NE.11.)GO TO 260                                09281000
+C         LEGGE E MEDIA IL TERZO TAB1 PER WATT SPECTRUM                 09282000
+       CALL RREC(3,NTI,3,T)                                             09283000
+       ANREC=ANREC+1+N1/3+N2/3+NREST(N1,3)+NREST(N2,3)                  09284000
+       CALL GRATE(E111,E222,ANS)                                        09285000
+       A((L79+1)*NG+1)=ANS/(E222-E111)                                  09286000
+C                                                                       09287000
+ 260   NGFIN=1                                                          09288000
+ 500   CONTINUE                                                         09289000
+C                                                                       09290000
+       NT(4,NTIN)=NT(4,NTIN)+ANREC                                      09291000
+C                                                                       09292000
+        IF(AINDX(12,IR).EQ.11.)GO TO 400                                09293000
+       CALL RIEMP(1.,NGFIN,A((3-L79)*NG+1))                             09294000
+       IF(L79.EQ.2) GO TO 400                                           09295000
+       DO 40 I=1,NGFIN                                                  09296000
+ 40    A(I)=1.-A(I)                                                     09297000
+ 400   CONTINUE                                                         09298000
+C                                                                       09299000
+C      ------------------------------SCRIVE                             09300000
+C                                                                       09301000
+C       VIENE SCRITTO ANCHE UNO SPETTRO DI WATT NON MEGLIO IDENTIFICATO 09302000
+C       CHE MCC2 LEGGE , MA E' SEMPRE NULLO E NON E' PREVISTO NEL MANUAL09303000
+C                                           DI MC2-2                    09304000
+C        IN JEF ESISTONO NUCLIDI CON SPETTRO DI WATT QUINDI LO METTO.   09305000
+       IF(NMT.LE.M2) GO TO 410                                          09306000
+       NOM=NAREAL(AINDX(35,IR))                                         09307000
+       NOM1=NAREAL(AINDX(36,IR))                                        09308000
+       NOM2=NAREAL(AINDX(35,IR))                                        09309000
+       NOM3=NAREAL(AINDX(36,IR))                                        09310000
+       GO TO 420                                                        09311000
+ 410  NOM=MIX(3,NMT)                                                    09312000
+      NOM1=MIX(4,NMT)                                                   09313000
+      NOM2=MIX(1,NMT)                                                   09314000
+      NOM3=MIX(2,NMT)                                                   09315000
+ 420  CONTINUE                                                          09316000
+C     WRITE(NTO) NOM2,NOM3,MAT,MF,MT                                    09317000
+C     WRITE(NTO) NGFIN                                                  09318000
+        IF(AINDX(12,IR).NE.11.) GO TO 430                               09319000
+C        SARANNO GIUSTI I PARAMETRI ?                                   09320000
+        WRITE(NTO)(ZERO,ZERO,ZERO,J=1,NGFIN),                           09321000
+     1 (A(NGFIN-J+1),J=1,NGFIN),(A(NG+NGFIN-J+1),J=1,NGFIN),            09322000
+     2 (A(2*NG+NGFIN-J+1),J=1,NGFIN)                                    09323000
+        GO TO 440                                                       09324000
+ 430  WRITE(NTO)(A(NG+NGFIN-J+1),J=1,NGFIN),                            09325000
+     1(A(NGFIN-J+1),J=1,NGFIN),(A(2*NG+NGFIN-J+1),J=1,NGFIN),           09326000
+     2 (ZERO,J=1,NGFIN),(UNO,UNO,J=1,NGFIN)                             09327000
+ 440  IF(STMP.LT.50) GO TO 600                                          09328000
+       WRITE(NO,1000) NOM2,NOM3,MAT,MF,MT                               09329000
+ 1000  FORMAT(' MATERIAL: ',2A4,' MAT:',I5,' MF:',I5,' MT:',I5)         09330000
+       WRITE(NO,2000) NGFIN,AINDX(12,IR)                                09331000
+ 2000 FORMAT(' NUMBER OF CHI VALUES:',I5,' SPECTRUM FLAG:',I5)          09332000
+       IF(AINDX(12,IR).NE.11.) GO TO 605                                09333000
+       WRITE(NO,3005) (J,A(NGFIN-J+1),A(NG+NGFIN-J+1),A(2*NG+NGFIN-J+1),09334000
+     1               J=1,NGFIN)                                         09335000
+ 3005  FORMAT('  GROUP   ,   A (WATT)       ,  B (WATT) , C (WATT)'/1X, 09336000
+     1  (1X,I5,5X,3E12.5))                                              09337000
+        GO TO 600                                                       09338000
+ 605   WRITE(NO,3000) (J,A(NG+NGFIN-J+1),A(NGFIN-J+1),A(2*NG+NGFIN-J+1),09339000
+     1               J=1,NGFIN)                                         09340000
+ 3000  FORMAT('  GROUP   ,      BETA    ,    ALFA   , TAU     '/1X,     09341000
+     1  (1X,I5,5X,3E12.5))                                              09342000
+ 600   CONTINUE                                                         09343000
+C                                                                       09344000
+      IND2=IND2+1                                                       09345000
+      IF(IND2.GT.MIND12) CALL ERR(8HP2MCF7   ,600)                      09346000
+      CALL EMPIN(MIND11,AINDX1(1,IND2),                                 09347000
+     1AINDX(1,IR),AINDX(2,IR),AINDX(3,IR),                              09348000
+     2AINDX(4,IR),AINDX(5,IR),NOM,NOM1,NOM2,NOM3,0.,                    09349000
+     37.,1.,0.,FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(4,NTOUT)),3.,           09350000
+     4FLOAT(NGFIN),0.,OPZ(2,5,4),OPZ(2,5,3),OPZ(2,5,4),AINDX(10,IR),    09351000
+     5AINDX(12,IR),AINDX(13,IR),AINDX(8,IR),0.,0.,0.,COST1,E111,E222,   09352000
+     60.,0.,0.,0.,0.,0.,0.,0.)                                          09353000
+C                                                                       09354000
+      NT(4,NTOUT)=NT(4,NTOUT)+1                                         09355000
+      NT(3,NTOUT)=NT(4,NTOUT)                                           09356000
+C                                                                       09357000
+ 150   CONTINUE                                                         09358000
+ 15    CONTINUE                                                         09359000
+ 100   CONTINUE                                                         09360000
+ 10    CONTINUE                                                         09361000
+C                                                                       09362000
+       RETURN                                                           09363000
+      END                                                               09364000
+      SUBROUTINE P2MCF8(MA,A,M1,M2,MIX,KB1,INDIND,KB,INDMIX,NG,E)       09365000
+C     ***********************************************************       09366000
+C                                                                       09367000
+C      ANGULAR DISTRIBUTION FOR ELASTIC SCATTERING (FOR MCC2F8 FILE)    09368000
+C                                                                       09369000
+C     ***********************************************************       09370000
+C                                                                       09371000
+C                                                                       09372000
+C     IN A SPAZIO SCRATCH                                               09373000
+C     IN MIX LA MIXING DELL F3                                          09374000
+C         IN INDMIX INDICE DI MIX                                       09375000
+C                   (1 ) = VALORE                                       09376000
+C                   (2 ) = INIZIO VALORE                                09377000
+C                   (3 ) = DIMENSIONI VALORE                            09378000
+C         IN INDIND INDICE DI IND                                       09379000
+C         (1,2     = VALORE ( REAL*8)                                   09380000
+C         (3       = INIZIO                                             09381000
+C         (4       = DIMENSIONI                                         09382000
+C                                                                       09383000
+C                                                                       09384000
+C                                                                       09385000
+C     **********************************************                    09386000
+C                                                                       09387000
+      DIMENSION A(MA),MIX(M1,M2),E(NG)                                  09388000
+       DIMENSION INDMIX(3,KB),INDIND(4,KB1)                             09389000
+       COMMON /INDX1/AINDX1(40,200)                                     09390000
+       COMMON /INDX/AINDX(40,200)                                       09391000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     09392000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     09393000
+       COMMON/DIM/M(5)                                                  09394000
+       EQUIVALENCE (M(2),IND)                                           09395000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        09396000
+       EQUIVALENCE (OPZ(2,8,1),STMP),(NP12,NT(1,12))                    09397000
+       COMMON/FILES/NT(4,99)                                            09398000
+       EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))               09399000
+            WRITE(NP12,7000)((MIX(J,JJ),J=1,M1),JJ=1,M2)                09400000
+ 7000    FORMAT(' P2MCF8 ENTERED. INPUT TABLE TO BE EXECUTED:'/         09401000
+     1 (1X,2A4,1X,2A4,8I4,3E12.5))                                      09402000
+C                                                                       09403000
+      MANY1=OPZ(2,8,2)                                                  09404000
+C                 LOOP SUI MATERIALI DELL ' INDICE                      09405000
+C      QUI IL LOOP E' STRUTTURATO COME F6, CORRE SUI MATERIALI E        09406000
+C      POI GUARDA PER OGNI MATERIALE LE SUE SCHEDE DI INDICE            09407000
+C     ALTRIMENTI ESISTE L'ALTRA POSSIBILITA' DI FARLO CORRERE           09408000
+C      SULL'INDICE DIRETTAMENTE,SCARTANDO POI I RECORDS DI INDICE       09409000
+C      CHE NON SERVONO                                                  09410000
+C                                                                       09411000
+      DO 10 IS=1,KB1                                                    09412000
+      N1=INDIND(3,IS)                                                   09413000
+      N2=INDIND(4,IS)                                                   09414000
+      N3=N1+N2-1                                                        09415000
+C      CERCA L'ISOTOPO IN MIX (NMT E' LA POSIZIONE IN MIX)              09416000
+      NMT=NCERC1(MINDX1,IND,AINDX,M1,M2,MIX,N1,35,3,1)                  09417000
+      IF(NMT.LE.0) GO TO 100                                            09418000
+           WRITE(NP,9010) AINDX(35,N1),AINDX(36,N1)                     09419000
+ 9010      FORMAT(1X,2A4,' SUB.P2MCF8:     ANGULAR SCATTERING')         09420000
+      IF(STMP.GT.0) WRITE(NO,1000) AINDX(35,N1),AINDX(36,N1)            09421000
+ 1000   FORMAT(//2A4,5X,' ANGULAR SCATTERING DATA'/)                    09422000
+C                                                                       09423000
+C      LOOP SU PARTE DI INDICE RELATIVA AL MATERIALE                    09424000
+      DO 20 IR=N1,N3                                                    09425000
+C      SCARTA I RECORDS NON DI F8                                       09426000
+      IF(AINDX(30,IR).NE.8.) GO TO 200                                  09427000
+C           LI=1 : ISOTROPO                                             09428000
+      LI=AINDX(12,IR)                                                   09429000
+      IF(LI.EQ.1) GO TO 200                                             09430000
+C      CERCA CHE TIPO DI DATO E'                                        09431000
+      LTT=AINDX(11,IR)                                                  09432000
+      IF(LTT.NE.1) GO TO 300                                            09433000
+C      E' ESPRESSA IN TERMINI DI FUNZIONI DI LEGENDRE                   09434000
+C                                                                       09435000
+C      SPAZIO PER MATRICI VARIE                                         09436000
+C                                                                       09437000
+C      NUMERO RANGES DI INTERPOLAZIONE ( LO ZERO E' COMPRESO)           09438000
+ 110  NR=AINDX(16,IR)                                                   09439000
+C             NUMERO MAX DI PL                                          09440000
+      IPTMAX=AINDX(18,IR)                                               09441000
+      IF(LTT.EQ.2) IPTMAX=OPZ(2,8,3)                                    09442000
+       IF(IPTMAX.LE.0) IPTMAX=20                                        09443000
+C                 NM E' IL NUMERO DI PL DELLA MATRICE V                 09444000
+      NM=AINDX(15,IR)                                                   09445000
+C             NUMERO DI ENERGIE                                         09446000
+      NE=AINDX(17,IR)                                                   09447000
+C             LUNGHEZZA MATRICE DI TRASFORMAZIONE                       09448000
+      NK=AINDX(14,IR)                                                   09449000
+C            NUMERO MAX DI PASSI (SPAZIO DI 1 GRUPPO/GRUPPI DI 1 PASSO) 09450000
+      NPSMX=NG/MANY1+1                                                  09451000
+C                                                                       09452000
+      L1=1                                                              09453000
+C                  ER(NE) ENERGIE DI LEGENDRE                           09454000
+      L2=L1+NE                                                          09455000
+C                  KT(NR) LEGGI DI INTERPOLAZIONE (ENDFB)               09456000
+      L3=L2+NR                                                          09457000
+C                  KT1(NR) LEGGI DI INTERPOLAZIONE (MC2-2)              09458000
+      L4=L3+NR                                                          09459000
+C                  NGR(IR) GRUPPI ESTREMI DI INTERPOLAZIONE             09460000
+      L5=L4+NR                                                          09461000
+C                  F(IPTMAX,MANY1) COEFF DI LEGENDRE(PER MANY1 E)       09462000
+      L6=L5+MANY1*IPTMAX                                                09463000
+C                  MATRICE V (NK)  =V(NM+1,NM+1)(SAREBBE NM NON IPTMAX) 09464000
+      L7=L6+NK                                                          09465000
+C                  NUMERO PL PER OGNI ENERGIA NPLE(NE)                  09466000
+      L8=L7+NE                                                          09467000
+C              LEUFLE(NG): NUMERO ENERGIA DI TABULAZIONE PER OGNI GRUPPO09468000
+      L9=L8+NG                                                          09469000
+C                  IPT(NPASS) :NUM COEFF DI LEGENDRE PER OGNI PASSO     09470000
+      L10=L9+NPSMX                                                      09471000
+C                                                                       09472000
+      LIMIT=L10                                                         09473000
+      IF(LIMIT.GT.MA) CALL ERR(8HP2MCF8     ,1)                         09474000
+      CALL P2F8LG(M1,M2,MIX,NMT,IR,NE,NG,E,A(L1),NR,A(L2),A(L3),A(L4),  09475000
+     1 IPTMAX,MANY1,A(L5),A(L6),A(L7),A(L8),NPSMX,                      09476000
+     2 A(L9),MA-LIMIT,A(L10))                                           09477000
+C                                                                       09478000
+      GO TO 200                                                         09479000
+ 300  CONTINUE                                                          09480000
+C      TABULATE DA TRASFORMARE IN LEGENDRE                              09481000
+       IF(LTT.EQ.2) GO TO 110                                           09482000
+C        LO FA P2F8LG SUPPONENDO CHE I DATI SIANO INTERPOLABILI         09483000
+C        LINEARMENTE IN MI                                              09484000
+      CALL ERR(8HP2MCF8IN   ,300)                                       09485000
+ 200  CONTINUE                                                          09486000
+  20        CONTINUE                                                    09487000
+C      FINE LOOP SU SCHEDE DELL'ISOTOPO ...................             09488000
+ 100  CONTINUE                                                          09489000
+ 10   CONTINUE                                                          09490000
+C      FINE LOOP SU ISOTOPI (SULL'INDICE NELL'ORDINE)                   09491000
+      RETURN                                                            09492000
+      END                                                               09493000
+      SUBROUTINE P2F8LG(M1,M2,MIX,NMT,IR,NE,NG,E,ER,NR,KT,KT1,NGR,      09494000
+     1 IPTMAX,MANY1,F,V,NPL,LEUFLE,NPSMX,IPT,MA,A)                      09495000
+C      *************************************************************    09496000
+C                                                                       09497000
+C      ANGULAR DISTRIBUTION FOR ELASTIC SCATTERING (CONTINUATION OF     09498000
+C      P2MCF8 ROUTINE )                                                 09499000
+C                                                                       09500000
+C      MIX(M1,M2)= TABELLA DI INPUT DELL'ISOTOPO                        09501000
+C      NMT= NUMERO DELLA MIX DELL'ISOTOPO                               09502000
+C      IR = NUMERO DELLA REGISTRAZIONE DELL'INDICE                      09503000
+C      NE = NUMERO DELLE ENERGIE TABULATE                               09504000
+C      NG = NUMERO GRUPPI                                               09505000
+C      NR = NUMERO DEI RANGE DI INTERPOLAZIONE                          09506000
+C      E(NG)=ENERGIE SUP DEI GRUPPI                                     09507000
+C      ER(NR)=ENERGIE DI INTERPOLAZIONE                                 09508000
+C      KT(NR)=LEGGI DI INTERPOLAZIONE DI ENDFB                          09509000
+C      KT1(NR)=LEGGI DI INTERPOLAZIONE DI MC2-2                         09510000
+C      NGR(NR)=GRUPPO CUI SI APPLICA UNA LEGGE DI INTERPOLAZIONE        09511000
+C      F(IPTMAX,MANY1)=COEFFICIENTI DI LEGENDRE                         09512000
+C      V(IPTMAX,MANY1)=MATRICE DI TRASFORMAZIONE AL C.M.                09513000
+C      NPL(NE)= NUMERO DI PL PER OGNI ER                                09514000
+C      LEUFLE(NE)= ENERGIA DI TABULAZIONE PER OGNI GRUPPO               09515000
+C      IPT(NSPMX)=NUMERO PL PER OGNI PASSO                              09516000
+C                                                                       09517000
+C                                                                       09518000
+C     ***************************************************************   09519000
+      DIMENSION KT(NR),NGR(NR),E(NG),F(IPTMAX,MANY1),V(IPTMAX,IPTMAX)   09520000
+      DIMENSION A(MA),NPL(NE),IPT(NPSMX),ER(NE),LEUFLE(NG),MIX(M1,M2)   09521000
+      DIMENSION KT1(NR)                                                 09522000
+      COMMON /INDX/AINDX(40,200)                                        09523000
+      COMMON /INDX1/AINDX1(40,200)                                      09524000
+      COMMON /DIM/ MX1,IND,MX2,IND2                                     09525000
+      COMMON /OPZIO/OPZ(4,8,10)                                         09526000
+      EQUIVALENCE (OPZ(2,8,1),STMP),(EUP,OPZ(2,5,2)),(DELU,OPZ(2,5,3))  09527000
+      EQUIVALENCE (OPZ(2,8,3),PLMX)                                     09528000
+      COMMON /FILES/NT(4,99)                                            09529000
+      EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11))                09530000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     09531000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     09532000
+C                                                                       09533000
+       COMMON/DENS/JMT,JAT,JTT,JLT,LA,JNS,MNS,JX,MX                     09534000
+      COMMON  MAXA,AD(1)                                                09535000
+C                                                                       09536000
+C                                                                       09537000
+      COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),       09538000
+     1N1X,N2X,NS,LX,LY,LB                                               09539000
+C                                                                       09540000
+C       STIMA DEL MAX NUMERO PL PER TABULATI IN LEGENDRE                09541000
+C       ( IN QUESTO CASO IPTMAX E' OPZ(2,8,3) OPPURE 20)                09542000
+C                                                                       09543000
+       IPMX=IPTMAX                                                      09544000
+       IF(PLMX.GT.0) IPMX=PLMX                                          09545000
+       IF(IPMX.LE.0) IPMX=1                                             09546000
+C                                                                       09547000
+C       TEMPERATURA                                                     09548000
+      T=AINDX(37,IR)                                                    09549000
+      IF(MA.LT.IPTMAX) CALL ERR(8HP2F8LG   ,0)                          09550000
+C                                                                       09551000
+C                                                                       09552000
+C           LCT : 1=LAB,2=C.M.                                          09553000
+      LCT=AINDX(13,IR)                                                  09554000
+C           LVT=1=DATA MATRICE V                                        09555000
+       LVT=AINDX(10,IR)                                                 09556000
+C           LTT : 1=LEGENDRE,2=TABULATE                                 09557000
+       LTT=AINDX(11,IR)                                                 09558000
+C                                                                       09559000
+       IF(LTT.EQ.2) CALL COEGEN(IPMX,A(1))                              09560000
+C      GENERA COEFF DELLE FORMULE DI RODRIGUEZ PER I POL DI LEGENDRE    09561000
+C                                                                       09562000
+C                                                                       09563000
+C                       TAPE DI INPUT                                   09564000
+      NTIN=AINDX(23,IR)                                                 09565000
+      NTI=NT(1,NTIN)                                                    09566000
+      NPOST=AINDX(25,IR)                                                09567000
+      CALL POST(NTIN,NPOST)                                             09568000
+C      PULISCE DENS                                                     09569000
+      CALL DYDELE(AD(JMT),AD(JAT),AD(JTT),AD(JLT),AD(LA),0)             09570000
+C                   LETTURA : LEGGE HEAD                                09571000
+      CALL RREC(1,NTI,3,T)                                              09572000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           09573000
+C                                                                       09574000
+      IF(LVT.NE.L1.OR.LTT.NE.L2) CALL ERR(8HP2F8LG    ,1)               09575000
+      IF(LVT.NE.0) GO TO 100                                            09576000
+C       CONT ( NON C'E' LA MATRICE V )                                  09577000
+       CALL RREC(1,NTI,3,T)                                             09578000
+       NT(4,NTIN)=NT(4,NTIN)+1                                          09579000
+       GO TO 200                                                        09580000
+ 100   CONTINUE                                                         09581000
+C                  LIST RECORD CON MATRICE V                            09582000
+       CALL RREC(2,NTI,3,T)                                             09583000
+       NT(4,NTIN)=NT(4,NTIN)+1+N1/6+NREST(N1,6)                         09584000
+C      NM=N2                                                            09585000
+C      METTE IN V LA MATRICE LETTA DA REC                               09586000
+C     DO 10 I=1,NM+1                                                    09587000
+C     DO 10 J=1,NM+1                                                    09588000
+C     V(J,I)=AD(LB-1+IPTMAX*(I-1)+J)                                    09589000
+C10   CONTINUE                                                          09590000
+ 200  CONTINUE                                                          09591000
+C                LEGGE TAB2 COLLA TABULAZIONE DELLE ENERGIE             09592000
+      CALL RREC(4,NTI,3,T)                                              09593000
+      NT(4,NTIN)=NT(4,NTIN)+1+N1/3+NREST(N1,3)                          09594000
+C       LI RICORDO PER STABILIRE IL PUNTO SOTTO CUI E' ISOTROPO         09595000
+       KT11=JNT(1)                                                      09596000
+       NBT11=NBT(1)                                                     09597000
+C      LO METTE IN DENS ,COL NUMERO 1                                   09598000
+      CALL STORE(4,1,LOF)                                               09599000
+      IF(LOF.GE.1) CALL ERR(8HP2F8LG    ,100)                           09600000
+      NERIS=0                                                           09601000
+      DO 20 IE=1,NE                                                     09602000
+      IF(LTT.NE.2) GO TO 210                                            09603000
+C          LEGGE I TAB1 COLLE TABULAZIONI                               09604000
+       CALL RREC(3,NTI,3,T)                                             09605000
+       NT(4,NTIN)=NT(4,NTIN)+1+NREST(N1,3)+N1/3+NREST(N2,3)+N2/3        09606000
+C                                                                       09607000
+C              TRASFORMA IL TAB1 LETTO IN UN LIST COLLE PL              09608000
+C              QUESTO PROCEDIMENTO E' POSSIBILE SOLO SE LA              09609000
+C              TABULAZIONE E' LINEARE IN MI, ALTRIMENTI NON             09610000
+C              SI PUO' PRIMA FARE INTEGRALI E PL IL MU E POI            09611000
+C              INTEGRARE IN E. OCCORRE FARE IL CONTRARIO (SEMPRE        09612000
+C              CHE IN E SIA LINEARE )                                   09613000
+C                                                                       09614000
+C                                                                       09615000
+        LBB=IPMX*IPMX*2+1                                               09616000
+C                 PUNTATORE A SPAZIO PER COEFF LEGENDRE REAL*8          09617000
+       IF(MA.LT.LBB+IPMX*2) CALL ERR(8HP2F8LG     ,210)                 09618000
+       CALL TABPL(N2X,AD(LX),AD(LY),AD(LB),A(LBB),IPMX,A(1))            09619000
+       GO TO 220                                                        09620000
+C                                                                       09621000
+C      LEGGE I RECORDS LIST COLLE PL PER OGNI ENERGIA DI TABULAZIONE    09622000
+ 210  CALL RREC(2,NTI,3,T)                                              09623000
+            NT(4,NTIN)=NT(4,NTIN)+1+NREST(N1,6)+N1/6                    09624000
+ 220  NPL(IE)=N1                                                        09625000
+      ER(IE)=C2                                                         09626000
+C                 CERCA SE A QUESTA E E' ISOTROPO                       09627000
+C       (BASTAVA POI PRENDERE IL PUNTO 2 CHE I PRIMI DUE PUNTI          09628000
+C        FISSANO IN GENERE IN ENDFB LA ZONA ISOTROPA)                   09629000
+       IF(NERIS.NE.0) GO TO 260                                         09630000
+C       NERIS .NE. 0 SE HA TROVATO GIA UNA E NON ISOTROPA               09631000
+       DO 25 IPIS=1,N1                                                  09632000
+       IF(AD(LB+IPIS-1).NE.0.) GO TO 250                                09633000
+ 25    CONTINUE                                                         09634000
+C       E' ISOTROPO:HA PL NULLE:NON ASSEGNO NERIS CHE RESTA ZERO        09635000
+       GO TO 260                                                        09636000
+C      AL PRIMO NON ISOTROPO ASSEGNO NERIS                              09637000
+ 250   NERIS=IE-1                                                       09638000
+       IF(NBT11.GE.IE.AND.KT11.EQ.1) NERIS=IE                           09639000
+C      PER INTERP COST UN PUNTO 0. SEGNALA ISOTROPIA FINO ALLA PRIMA E  09640000
+C      CON COEFF NON NULLI.INDI E' QUI E NON NEL PREC CHE ARRIVA ISOTROP09641000
+       IF(NERIS.LE.0) NERIS=1                                           09642000
+ 260   CONTINUE                                                         09643000
+C                                                                       09644000
+C      IN DENS CON NUMERI PROGRESSIVI                                   09645000
+      CALL STORE(2,1+IE,LOF)                                            09646000
+      IF(LOF.GE.1) CALL ERR(8HP2F8LG    ,260)                           09647000
+ 20   CONTINUE                                                          09648000
+C                                                                       09649000
+C                      CREO KT(IR) ED NGR(IR)                           09650000
+C      METTO IL TAB2 IN RECS                                            09651000
+      CALL FETCH(1,LOF)                                                 09652000
+      IF(LOF.NE.0) CALL ERR(8HP2F8LG     ,20)                           09653000
+      IF(NR.NE.N1) CALL ERR(8HP2F8LG    ,21)                            09654000
+      NR=N1                                                             09655000
+      NE1=1                                                             09656000
+      DO 30 I=1,NR                                                      09657000
+      KT(I)=JNT(NR-I+1)                                                 09658000
+C      CORRE SULLE ENERGIE UFG ANDANDO IN GIU A CERCARE LA ENERGIA      09659000
+C      E SOTTO LA ER(NBT(I)) CUI INIZIA LA TABULAZIONE JNT              09660000
+       IF(NE1.GT.NG) GO TO 300                                          09661000
+       INBT=NBT(NR-I+1)                                                 09662000
+      DO 40 IE=NE1,NG                                                   09663000
+      IF(ER(INBT).GT.E(IE)) GO TO 400                                   09664000
+ 40   CONTINUE                                                          09665000
+      IE=NG                                                             09666000
+ 400  CONTINUE                                                          09667000
+      NGR(I)=IE-1                                                       09668000
+      IF(NGR(I).LE.0) NGR(I)=1                                          09669000
+      NE1=IE                                                            09670000
+ 30   CONTINUE                                                          09671000
+ 300   CONTINUE                                                         09672000
+C                                                                       09673000
+C                      CALCOLO NPASS ,NUMERO PASSI FINO ALLA E SOTTO CUI09674000
+C                      LO SCATTERING E' ISOTROPO                        09675000
+      DO 50 I=1,NG                                                      09676000
+      IF(E(I).LT.ER(NERIS)) GO TO 500                                   09677000
+ 50   CONTINUE                                                          09678000
+        NGEIS=NG                                                        09679000
+        GO TO 501                                                       09680000
+ 500  NGEIS=I-1                                                         09681000
+      IF(NGEIS.GT.NG) NGEIS=NG                                          09682000
+      IF(NGEIS.LT.1) NGEIS=1                                            09683000
+ 501  NPASS=NGEIS/(MANY1-1)+NREST(NGEIS,MANY1-1)                        09684000
+C      MANY1-1 PERCHE' IL PRIMO VALORE DI UN PASSO E' EGUALE ALL'ULTIMO 09685000
+C      DEL PASSO PRECEDENTE                                             09686000
+C                                                                       09687000
+C      PER CALCOLO IPT:CALCOLO LEUFLE, PER OGNI GRUPPO E L'ENERGIA DELL 09688000
+C      TABULAZIONE CHE LO PRECEDE.(MUTA GRUPPI IN ER)                   09689000
+C                                                                       09690000
+C      LOOP SUGLI INTERVALLI ER DI INTERPOLAZIONE                       09691000
+C      GUARDA QUALI E SONO COMPRESE NELL'INTERVALLO                     09692000
+       IE=1                                                             09693000
+       NE1=NE-1                                                         09694000
+       DO 60 I=1,NE1                                                    09695000
+       IER=NE-I+1                                                       09696000
+ 61    IF(E(IE).LE.ER(IER-1)) GO TO 60                                  09697000
+       LEUFLE(IE)=IER                                                   09698000
+       IE=IE+1                                                          09699000
+       IF(IE.GT.NG) GO TO 600                                           09700000
+       GO TO 61                                                         09701000
+ 60    CONTINUE                                                         09702000
+ 600   CONTINUE                                                         09703000
+C                                                                       09704000
+C           CALCOLA IPT,NUMERO DEI PL CHE OGNI BLOCCO HA                09705000
+      DO 65 I=1,NPASS                                                   09706000
+C      LIMITI GRUPPI DI UN PASSO                                        09707000
+      LL1=LL2                                                           09708000
+      IF(I.EQ.1) LL1=1                                                  09709000
+C      PER IL SOLITO FATTO CHEIL PRIMO VALORE DI UN BLOCCO E'           09710000
+C      EGUALE ALL'ULTIMO VALORE DEL BLOCCO PRECEDENTE                   09711000
+      LL2=LL1+MANY1-1                                                   09712000
+      IF(LL2.GT.NG) LL2=NG                                              09713000
+      IPT(I)=1                                                          09714000
+      DO 67 IJ=LL1,LL2                                                  09715000
+      IF(IPT(I).LT.NPL(LEUFLE(IJ))) IPT(I)=NPL(LEUFLE(IJ))              09716000
+ 67   CONTINUE                                                          09717000
+ 65   CONTINUE                                                          09718000
+C                                                                       09719000
+C                     TAPE DI OUTPUT                                    09720000
+      NTOUT=0                                                           09721000
+              IF(NMT.GT.0.AND.NMT.LE.M2) NTOUT=MIX(5,NMT)               09722000
+      IF(NTOUT.LE.0) NTOUT=38                                           09723000
+      NTO=NT(1,NTOUT)                                                   09724000
+      CALL POSL(NTOUT)                                                  09725000
+      LGTH=2*NR                                                         09726000
+      IL=NPASS                                                          09727000
+C     ------------------- RECORD 1                                      09728000
+      WRITE(NTO) LGTH,NR,IL,(IPT(J),J=1,NPASS)                          09729000
+      IF(STMP.GT.1000.) WRITE(NO,1000) LGTH,NR,IL,(IPT(J),J=1,NPASS)    09730000
+ 1000 FORMAT(' ELASTIC SCATTERING ANGOLAR DISTRIBUTION : MCC2F8 FILE:'  09731000
+     1 /' LGTH,NR,IL,IPT(NPASS)',3I5/(1X,20I5) )                        09732000
+C                                                                       09733000
+C     ------------------- RECORD 2                                      09734000
+      IF(NMT.GT.M2) GO TO 700                                           09735000
+      NOM1=MIX(3,NMT)                                                   09736000
+      NOM2=MIX(4,NMT)                                                   09737000
+      NOM3=MIX(1,NMT)                                                   09738000
+      NOM4=MIX(2,NMT)                                                   09739000
+      GO TO 710                                                         09740000
+C      ANDREBBE MESSO ENDFB ID COME CARATTERE MA NON HO FATTO LA SUBROUT09741000
+ 700  NOM1=NAREAL(AINDX(35,IR))                                         09742000
+      NOM2=NAREAL(AINDX(36,IR))                                         09743000
+      NOM3=NAREAL(AINDX(35,IR))                                         09744000
+      NOM4=NAREAL(AINDX(36,IR))                                         09745000
+ 710  CONTINUE                                                          09746000
+C                                                                       09747000
+      WRITE(NTO) NOM1,NOM2                                              09748000
+      IF(STMP.GT.1000.)WRITE(NO,2000) NOM1,NOM2                         09749000
+ 2000 FORMAT(1X,2A4)                                                    09750000
+C     ------------------- RECORD 3                                      09751000
+C                                                                       09752000
+C      TRASFORMA LEGGI DI ENDFB IN LEGGI DI MC2-2, SECONDO:             09753000
+C                  ENDFB CODE      INTERP. LAW     MC2-2 CODE           09754000
+C                     1            COSTANT             0                09755000
+C                     2          X LINEAR IN Y         3                09756000
+C                     3          LN X LINEAR IN Y      2                09757000
+C                     4          X LINEAR IN LN Y      4                09758000
+C                     5         LN X LINEAR IN LN Y    1                09759000
+C                                                                       09760000
+       DO 90 I=1,NR                                                     09761000
+       J=KT(I)                                                          09762000
+       GO TO (901,902,903,904,905),J                                    09763000
+       CALL ERR(8HP2F8LG      ,90)                                      09764000
+       KT1(I)=0                                                         09765000
+       GO TO 90                                                         09766000
+ 901    KT1(I)=0                                                        09767000
+       GO TO 90                                                         09768000
+ 902    KT1(I)=3                                                        09769000
+       GO TO 90                                                         09770000
+ 903    KT1(I)=2                                                        09771000
+       GO TO 90                                                         09772000
+ 904    KT1(I)=4                                                        09773000
+       GO TO 90                                                         09774000
+ 905    KT1(I)=1                                                        09775000
+ 90    CONTINUE                                                         09776000
+C                                                                       09777000
+      WRITE(NTO)(KT1(NR-J+1),J=1,NR),(NGR(NR-J+1),J=1,NR)               09778000
+       IF(STMP.GT.1000.)WRITE(NO,3000)(KT1(NR-J+1),NGR(NR-J+1),J=1,NR)  09779000
+ 3000  FORMAT(' KT,NGR:',5(1X,I5,1X,I5,5X))                             09780000
+      NT(3,NTOUT)=NT(3,NTOUT)+3                                         09781000
+C                                                                       09782000
+C     ................................. LOOP SU NPASS                   09783000
+      DO 70 IP=1,NPASS                                                  09784000
+      CALL RIEMP(0.0,IPTMAX*MANY1,F)                                    09785000
+      LL1=LL2                                                           09786000
+      IF(IP.EQ.1) LL1=1                                                 09787000
+C      L'ULTIMO DATO DI UN PASSO E' EGUALE AL PRIMO DEL PASSO PRECEDENTE09788000
+      LL2=LL1+MANY1-1                                                   09789000
+      IF(LL2.GT.NG) LL2=NG                                              09790000
+C      LOOP SU UFG DEL PASSO                                            09791000
+      IMAN=0                                                            09792000
+      DO 80 IEU=LL1,LL2                                                 09793000
+      IMAN=IMAN+1                                                       09794000
+C      ENERGIA TABULATE (RECORD LIST) DELL'UFG                          09795000
+      IREC=LEUFLE(IEU)                                                  09796000
+C      LOCATE RECORD IN DENS (JA=RECORD ADDRESS)                        09797000
+      CALL LRIDS(1+IREC,JA1,LNT)                                        09798000
+      CALL LRIDS(1+IREC-1,JA2,LNT1)                                     09799000
+      IF(LNT.GT.0.OR.LNT1.GT.0) CALL ERR(8HP2F8LG   ,86)                09800000
+C                                                                       09801000
+C     ..................... LOOP SULLE PL                               09802000
+      N1PL=IPT(IP)                                                      09803000
+      E1=ER(IREC)                                                       09804000
+      E2=ER(IREC-1)                                                     09805000
+      DO 85 IPL=1,N1PL                                                  09806000
+C     DA(LA-1+JA+IPL+8) E' LA F1,F2 CERCATA . F1 PER JA1; F2 PER JA2    09807000
+       IADDP1=LA-1+JA1+IPL+8                                            09808000
+       IADDP2=LA-1+JA2+IPL+8                                            09809000
+      F1=0.                                                             09810000
+      F2=0.                                                             09811000
+      IF(NPL(IREC).GE.IPL) F1=AD(IADDP1)                                09812000
+      IF(NPL(IREC-1).GE.IPL) F2=AD(IADDP2)                              09813000
+C      FISSO CODICE DI INTERPOLAZIONE                                   09814000
+C      DEFAULT E' LINEARE (RECCOMENDED IN ENDFB MANUAL)                 09815000
+      KTINT=2                                                           09816000
+      DO 86 IT=1,NR                                                     09817000
+      IF(IEU.GT.NGR(NR-IT+1)) GO TO 866                                 09818000
+ 86   CONTINUE                                                          09819000
+      GOTO 807                                                          09820000
+ 866  CONTINUE                                                          09821000
+      KTINT=KT(NR-IT+1)                                                 09822000
+ 807  CONTINUE                                                          09823000
+C                                                                       09824000
+      CALL TERP1(E2,F2,E1,F1,E(IEU),VAL,KTINT)                          09825000
+      F(IPL,IMAN)=VAL                                                   09826000
+C     .........................FINE LOOP SULLE PL                       09827000
+ 85   CONTINUE                                                          09828000
+C      EVENTUALE TRASFORMAZIONE DI SISTEMA DI RIFERIMENTO               09829000
+C      LE REGOLE DI ENDFB PREVEDONO CHE SI SIA GIA IN C.M.              09830000
+C     IF(LVT.EQ.1.AND.LCT.EQ.2) CALL MATPER(IPTMAX,V,F(1,IMAN),A)       09831000
+ 80   CONTINUE                                                          09832000
+C     .........................FINE LOOP SUI GRUPPI DEL PASSO           09833000
+C      SCRIVE IL PASSO                                                  09834000
+      NWDS=N1PL*MANY1                                                   09835000
+      WRITE(NTO) ((F(J,JJ),J=1,N1PL),JJ=1,MANY1)                        09836000
+      NT(3,NTOUT)=NT(3,NTOUT)+1                                         09837000
+      IF(STMP.LE.1001.)GO TO 801                                        09838000
+      DO 95 I=1,N1PL                                                    09839000
+       WRITE(NO,4000) I,IP,MANY1,(F(I,J),J=1,MANY1)                     09840000
+ 4000  FORMAT(' LEGENDRE COEFF:',I10,' STEP:',I10,' MANY1:',I10/        09841000
+     11X,(1X,10E12.5))                                                  09842000
+ 95    CONTINUE                                                         09843000
+ 801   CONTINUE                                                         09844000
+ 70   CONTINUE                                                          09845000
+C     ......................... FINE LOOP SUI PASSI                     09846000
+C                                                                       09847000
+C                                                                       09848000
+C      RIEMPIE INDICE                                                   09849000
+C                                                                       09850000
+      ANREC=NT(3,NTOUT)-NT(4,NTOUT)                                     09851000
+      IPTMAX=MAXX(NPASS,IPT)                                            09852000
+      IND2=IND2+1                                                       09853000
+      IF(IND2.GT.MIND12) CALL ERR(8HP2F8LG     ,70)                     09854000
+      CALL EMPIN(MIND11,AINDX1(1,IND2),                                 09855000
+     1AINDX(1,IR),AINDX(2,IR),AINDX(3,IR),AINDX(4,IR),AINDX(5,IR),      09856000
+     2 NOM1,NOM2,NOM3,NOM4,                                             09857000
+     3 0.,8.,1.,0.,FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(4,NTOUT)),ANREC,    09858000
+     4 0.,0.,FLOAT(NG),EUP,DELU,FLOAT(NPASS),0.,FLOAT(IPTMAX),          09859000
+     5 FLOAT(MANY1),FLOAT(LGTH),FLOAT(NR),FLOAT(IL),0.,0.,0.,0.,0.,0.,  09860000
+     6 0.,0.,0.,0.,0.)                                                  09861000
+      NT(4,NTOUT)=NT(3,NTOUT)                                           09862000
+      RETURN                                                            09863000
+      END                                                               09864000
+      SUBROUTINE TABPL(MX,X,Y,B,BB,IPMX,C)                              09865000
+C     ****************************************************              09866000
+C     TRASFORMS A TABULATED DISTRIBUTION INTO A LIST RECORD             09867000
+C     CONTAINING LEGENDRE POLINOMIAL COEFFICIENTS                       09868000
+C     ***************************************************               09869000
+       REAL*8 C,PPLX,PPL,PL,AA,BB(MX),X1,X2,Y1,Y2,VALPL,PPL4            09870000
+       DIMENSION X(MX),Y(MX),B(MX),C(IPMX,IPMX)                         09871000
+       COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),       09872000
+     1 N1X,N2X,NS,LX,LY,LB                                              09873000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        09874000
+       COMMON/FILES/NT(4,99)                                            09875000
+       EQUIVALENCE(NP,NT(1,11)),(OPZ(2,8,1),STMP),(NO,NT(1,6))          09876000
+C      EQUIVALENCE(PLMX,OPZ(2,8,3))                                     09877000
+C              PLMX E' IL MAX NUMERO DI PL AMMESSO (DEFINISCE IPMX NELL 09878000
+C                                         ROUTINE P2F8LG (CHIAMANTE))   09879000
+       DIFPL=OPZ(2,8,4)                                                 09880000
+       IF(DIFPL.LE.0.) DIFPL=1.                                         09881000
+C              DIFPL E' LA PRECISIONE RICHIESTA NELLE PL                09882000
+C                                                                       09883000
+       NPL=0                                                            09884000
+C      ................. LOOP SULLE PL                                  09885000
+       DO 5 IL=1,IPMX                                                   09886000
+       N22=0                                                            09887000
+       BB(IL)=0.                                                        09888000
+C       ................ LOOP SUI RANGE DI INTERPOLAZIONE               09889000
+       DO 10 IR=1,N1                                                    09890000
+       KT=JNT(IR)                                                       09891000
+C                                                                       09892000
+       IF(KT.LE.2.OR.KT.EQ.4) GO TO 110                                 09893000
+       CALL ERR(8HTABPL        ,110)                                    09894000
+       WRITE(NP,1000)MAT,MF,MT,IR,KT                                    09895000
+       WRITE(NO,1000)MAT,MF,MT,IR,KT                                    09896000
+ 1000  FORMAT(' WARNING! LINEAR INTERPOLATION IS SUPPOSED FOR ',        09897000
+     1 ' TAB1 RECORD IN ANGULAR DISTRIBUTION.'/                         09898000
+     2 ' MAT=',I5,' MF=',I5,' MT=',I5,' RANGE:',I4,' INTERP CODE:',I4)  09899000
+ 110   CONTINUE                                                         09900000
+C                                                                       09901000
+       N11=N22+1                                                        09902000
+       N22=NBT(IR)                                                      09903000
+C      ................... LOOP SUI PUNTI DEL RANGE IR                  09904000
+             IF(N11.LE.1) N11=2                                         09905000
+       IF(N22.LT.N11) CALL ERR(8HTABPL     ,20)                         09906000
+C                                                                       09907000
+       IF(KT.NE.4) GO TO 115                                            09908000
+        DO 25 IP=N11,N22                                                09909000
+        X1=DBLE(X(IP-1))                                                09910000
+        X2=DBLE(X(IP))                                                  09911000
+        IF(X1.EQ.X2) GO TO 25                                           09912000
+        Y1=DBLE(Y(IP-1))                                                09913000
+        Y2=DBLE(Y(IP))                                                  09914000
+        AA=DLOG(Y2/Y1)/(X2-X1)                                          09915000
+        BB(IL)=BB(IL)+Y1*PPL4(X2,X1,AA,IL,IPMX,C)                       09916000
+        NPL=IL                                                          09917000
+ 25     CONTINUE                                                        09918000
+        GO TO 116                                                       09919000
+ 115    CONTINUE                                                        09920000
+C                                                                       09921000
+       DO 20 IP=N11,N22                                                 09922000
+C       I LIMITI DEL LOOP SONO PRESI IN MODO DA USARE COME ESTREMI DI   09923000
+C       INTEGRAZIONE IP ED IP-1                                         09924000
+C                                                                       09925000
+       IF(KT.EQ.1) GO TO 20                                             09926000
+C       UN TERMINE COSTANTE DA SOLO CONTRIBUTO ALLA P0, CHE NON E'      09927000
+C       IN ENDFB POICHE' SI USA P0=1                                    09928000
+C                                                                       09929000
+       X1=DBLE(X(IP-1))                                                 09930000
+       X2=DBLE(X(IP))                                                   09931000
+       IF(X1.EQ.X2) GO TO 20                                            09932000
+       Y1=DBLE(Y(IP-1))                                                 09933000
+       Y2=DBLE(Y(IP))                                                   09934000
+       AA=(Y2-Y1)/(X2-X1)                                               09935000
+       BB(IL)=BB(IL)+AA*(PPLX(IL,X2,IPMX,C)-PPLX(IL,X1,IPMX,C)) +       09936000
+     1       (Y1-AA*X1)*(PPL(IL,X2,IPMX,C)-PPL(IL,X1,IPMX,C))           09937000
+       NPL=IL                                                           09938000
+ 20    CONTINUE                                                         09939000
+ 116   CONTINUE                                                         09940000
+ 10    CONTINUE                                                         09941000
+C                                                                       09942000
+C       HA FATTO LA PL NUMERO IL , ORA VEDE SE E' BASTANTE              09943000
+       DIFTOT=0.                                                        09944000
+        DIFFT=0.                                                        09945000
+        TOTY=0.                                                         09946000
+       DO 30 IP=1,N2                                                    09947000
+       X1=DBLE(X(IP))                                                   09948000
+       Y1=DBLE(Y(IP))                                                   09949000
+C      0.5 E' IL CONTRIBUTO DELLA P0 ( Y E' NORMALIZZATO AD 1 )         09950000
+       VALPL=0.5                                                        09951000
+       DO 40 ILL=1,NPL                                                  09952000
+       VALPL=VALPL+(2*ILL+1)/2.*BB(ILL)*PL(ILL,X1,IPMX,C)               09953000
+C      WRITE(NP,9999) ILL,VALPL,Y1,X1                                   09954000
+C9999  FORMAT(' PL :',I5,' VALUE OBTAINED:',E12.5,' REAL VALUE:',E12.5, 09955000
+C    1        ' COS(THETA):',E12.5)                                     09956000
+ 40    CONTINUE                                                         09957000
+             DIFFT=DIFFT+DABS(VALPL-Y1)                                 09958000
+             TOTY=TOTY+Y1                                               09959000
+        IF(Y1.EQ.0.) GO TO 401                                          09960000
+       DIFF=DABS(VALPL-Y1)/Y1*100.                                      09961000
+        GO TO 402                                                       09962000
+ 401    DIFF=DABS(VALPL)/100.                                           09963000
+ 402   DIFTOT=DIFTOT+DIFF                                               09964000
+ 30    CONTINUE                                                         09965000
+       DIFTOT=DIFTOT/N2                                                 09966000
+       IF(DIFTOT.LT.DIFPL) GO TO 100                                    09967000
+C      SE LA DIFFERENZA FRA PL E TABULATI E' PICCOLA SMETTE             09968000
+C                                                                       09969000
+        IF(KT.EQ.4.AND.IL.GT.5) GO TO 105                               09970000
+C        TO COMPUTE LEGENDRE COMPONENTS .GT. ABOUT 6                    09971000
+C        DUE TO NUMERICAL PROBLEM YOU SHOULD HAVE A PXEA ROUTINE WRITTEN09972000
+C        USING EXTENDED PRECISION (REAL*16)                             09973000
+C                                                                       09974000
+C                                                                       09975000
+ 5     CONTINUE                                                         09976000
+ 105   DIFFT1=DIFFT/TOTY*100.                                           09977000
+       WRITE(NO,2000)DIFFT1,MAT,MT                                      09978000
+       WRITE(NP,2000) DIFFT1,MAT,MT                                     09979000
+ 2000  FORMAT(' WARNING! LOSS OF PRECISION IN PL REPRESENTATION OF',    09980000
+     1 ' ANGULAR DISTRIBUTION.'/' GLOBAL ERROR (%) :',1PE8.1,           09981000
+     2 ' MAT=',I5,'  MT=',I5)                                           09982000
+ 100   CONTINUE                                                         09983000
+       DIFFT=DIFFT/TOTY*100.                                            09984000
+       WRITE(NP,3000) C2,NPL,DIFFT                                      09985000
+ 3000  FORMAT(' ENERGY:',1PE11.4,'NUMBER OF PL:',I4,1X,                 09986000
+     1 ' GLOBAL ERROR (%) :',1PE8.1)                                    09987000
+C                                                                       09988000
+C       TRASFORMO IL RECORD TAB1 IN UN LIST                             09989000
+       DO 50 I=1,N2                                                     09990000
+       X(I)=0.                                                          09991000
+ 50    Y(I)=0.                                                          09992000
+       DO 60 I=1,N1                                                     09993000
+       JNT(I)=0                                                         09994000
+ 60    NBT(I)=0                                                         09995000
+       N1=NPL                                                           09996000
+       DO 70 I=1,N1                                                     09997000
+ 70    B(I)=BB(I)                                                       09998000
+       N2=0                                                             09999000
+       RETURN                                                           10000000
+       END                                                              10001000
+       SUBROUTINE COEGEN(N,C)                                           10002000
+C      *********************                                            10003000
+C      LEGENDRE POLINOMIAL COEFFICIENTS COMPUTATION                     10004000
+C       C(COEFF,PL)  E LE PL PARTONO DA 1 CHE LA 0 E' PL0=1.            10005000
+C      C SONO I COEFF DELLE POTENZE DI X NELLA FORMULA DI               10006000
+C      RODRIGUEZ. C(1,N) E' IL COEFF DI X**N , C(2,N) DI X**(N-1) ECC.  10007000
+C                                                                       10008000
+C      *****************************************                        10009000
+C                                                                       10010000
+       REAL*8 FATT,COST,C,K                                             10011000
+       DIMENSION C(N,N)                                                 10012000
+       CALL RIEMP(0.0,2*N*N,C)                                          10013000
+C         ............... LOOP SULLE PL                                 10014000
+       DO 10 IL=1,N                                                     10015000
+       COST=FATT(2*IL)/FATT(IL)**2/2.D0**IL                             10016000
+C         ............... LOOP SUI COEFF                                10017000
+       C(1,IL)=COST                                                     10018000
+       IF(N.LT.2) RETURN                                                10019000
+       DO 20 I=2,N                                                      10020000
+       K=2*I-2                                                          10021000
+       IF(N-K.LT.0) GO TO 20                                            10022000
+       C(I,IL)=C(I-1,IL)*(IL-K+1.)*(IL-K+2.)/K/(2.*IL-K+1.)*(-1.)       10023000
+ 20    CONTINUE                                                         10024000
+ 10    CONTINUE                                                         10025000
+       RETURN                                                           10026000
+       END                                                              10027000
+       FUNCTION FATT(N)                                                 10028000
+C      ******************************                                   10029000
+C      FATT E' IL FATTORIALE DI N                                       10030000
+C      ******************************                                   10031000
+       REAL*8 FATT                                                      10032000
+       FATT=1.D0                                                        10033000
+       DO 10 I=1,N                                                      10034000
+ 10    FATT=FATT*I                                                      10035000
+       RETURN                                                           10036000
+       END                                                              10037000
+       FUNCTION PPLX(N,X,NPX,C)                                         10038000
+C      **********************************                               10039000
+C       FA LA PRIMITIVA DI PN(X)*X                                      10040000
+C      ********************************                                 10041000
+       REAL*8 C,PPLX,X                                                  10042000
+       DIMENSION C(NPX,NPX)                                             10043000
+           IF(N.LE.0) GO TO 100                                         10044000
+       PPLX=0.D0                                                        10045000
+        IF(DABS(X).LT.1.D-70) RETURN                                    10046000
+C     IN QUESTO CASO VIENE ZERO                                         10047000
+        NDD=DABS(DLOG10(DABS(X)))                                       10048000
+C     NDD PUO ESSERE GRANDE E NEGATIVO(ES X=1.E-13)POTREBBE DARE OVERFLO10049000
+        IF(NDD.GT.0) N3=70/NDD                                          10050000
+        IF(NDD.EQ.0) N3=70                                              10051000
+C                  70 E' CIRCA IL MAX EXP POSSIBILE                     10052000
+       DO 10 I=1,N                                                      10053000
+       K=2*I-2                                                          10054000
+       IF(N-K.LT.0) GO TO 10                                            10055000
+C       QUESTO RENDE N2 SEMPRE POSITIVO                                 10056000
+       N2=N-K+2                                                         10057000
+C        EVITA OVERFLOW PECCATO CONSUMI TEMPO!                          10058000
+C         IMPONGO ALL'EXP DI X**N2   DI ESSERE < 70                     10059000
+        N4=MIN0(N2,N3)                                                  10060000
+C                                                                       10061000
+       PPLX=PPLX+X**N4/N2*C(I,N)                                        10062000
+ 10    CONTINUE                                                         10063000
+       RETURN                                                           10064000
+C             P0                                                        10065000
+ 100            PPLX=X*X*.5D0                                           10066000
+       RETURN                                                           10067000
+       END                                                              10068000
+       FUNCTION PL(N,X,NPX,C)                                           10069000
+C      **************************************                           10070000
+C       FA IL POLINOMIO DI LEGENDRE PN(X)                               10071000
+C      *****************************                                    10072000
+       REAL*8 C,PL,X                                                    10073000
+       DIMENSION C(NPX,NPX)                                             10074000
+       PL=0.D0                                                          10075000
+       IF(DABS(X).GT.1.D-70) GO TO 101                                  10076000
+        N3=70                                                           10077000
+        GO TO 102                                                       10078000
+ 101    NDD=DABS(DLOG10(DABS(X)))                                       10079000
+        IF(NDD.GT.0) N3=70/NDD                                          10080000
+        IF(NDD.EQ.0) N3=70                                              10081000
+ 102   DO 10 I=1,N                                                      10082000
+C      K=2*I-2                                                          10083000
+       N2=N-2*I+2                                                       10084000
+       IF(N2.GT.0) GO TO 200                                            10085000
+       IF(N2.EQ.0) PL=PL+C(I,N)                                         10086000
+       GO TO 10                                                         10087000
+ 200    N4=MIN0(N2,N3)                                                  10088000
+C                                                                       10089000
+       PL=PL+X**N4*C(I,N)                                               10090000
+ 10    CONTINUE                                                         10091000
+       RETURN                                                           10092000
+       END                                                              10093000
+       FUNCTION PPL(N,X,NPX,C)                                          10094000
+C      *************************************                            10095000
+C      PRIMITIVA DI PN(X)                                               10096000
+C      *************************************                            10097000
+       REAL*8 C,PPL,X                                                   10098000
+       DIMENSION C(NPX,NPX)                                             10099000
+       IF(N.LE.0) GO TO 100                                             10100000
+       PPL=0.D0                                                         10101000
+        IF(DABS(X).LT.1.D-70) RETURN                                    10102000
+        NDD=DABS(DLOG10(DABS(X)))                                       10103000
+        IF(NDD.GT.0) N3=70/NDD                                          10104000
+        IF(NDD.EQ.0) N3=70                                              10105000
+       DO 10 I=1,N                                                      10106000
+       K=2*I-2                                                          10107000
+       IF(N-K.LT.0) GO TO 10                                            10108000
+       N2=N-K+1                                                         10109000
+C        EVITA OVERFLOW PECCATO CONSUMI TEMPO!                          10110000
+C         IMPONGO ALL'EXP DI X**N2   DI ESSERE < 70                     10111000
+        N4=MIN0(N2,N3)                                                  10112000
+C                                                                       10113000
+       PPL=PPL+X**N4/N2*C(I,N)                                          10114000
+ 10    CONTINUE                                                         10115000
+       RETURN                                                           10116000
+C                P0                                                     10117000
+ 100       PPL=X                                                        10118000
+       RETURN                                                           10119000
+       END                                                              10120000
+       FUNCTION PPL4(X,X1,A,N,IPMX,C)                                   10121000
+C       *******************************************                     10122000
+C     INTEGRALE FRA X1 ED X DI  (PN*EXP(A*(X-X1))                       10123000
+C       ************************************************                10124000
+        REAL*8 X,X1,A,C,PXEA,PPL4,PPL                                   10125000
+        DIMENSION C(IPMX,IPMX)                                          10126000
+        IF(A.EQ.0.D0) GOTO 200                                          10127000
+        IF(N.LE.0) GO TO 100                                            10128000
+        PPL4=0.D0                                                       10129000
+        DO 10 I=1,N                                                     10130000
+        N2=N-2*I+2                                                      10131000
+        IF(N2.LT.0) GO TO 10                                            10132000
+        PPL4=PPL4+C(I,N)*PXEA(X,X1,A,N2)                                10133000
+ 10     CONTINUE                                                        10134000
+        RETURN                                                          10135000
+C             P0 IS UNITY                                               10136000
+ 100    PPL4=PXEA(X,X1,A,N)                                             10137000
+        RETURN                                                          10138000
+ 200    PPL4=PPL(N,X,IPMX,C)-PPL(N,X1,IPMX,C)                           10139000
+        RETURN                                                          10140000
+        END                                                             10141000
+        FUNCTION PXEA(X2,X1,A,N)                                        10142000
+C       ***********************************                             10143000
+        IMPLICIT REAL*8 (A-H,O-Z)                                       10144000
+        IF(A.EQ.0.D0) GO TO 200                                         10145000
+        PROD=-1.D0                                                      10146000
+        UNA=1.D0/A                                                      10147000
+        ESP=DEXP(A*(X2-X1))                                             10148000
+        SUM=0.D0                                                        10149000
+        IF(N.LE.0) GO TO 100                                            10150000
+C             PRIMO TERMINE ( X **N )                                   10151000
+        PROD=UNA                                                        10152000
+        SUM=(X2**N*ESP-X1**N)*PROD                                      10153000
+        IF(N.LE.1) GO TO 100                                            10154000
+        DO 10 I=2,N                                                     10155000
+        J=N-I+1                                                         10156000
+C       I=N-J+1                                                         10157000
+        PROD=PROD*UNA*(-1)*(J+1)                                        10158000
+        SUM=SUM+PROD*(X2**J*ESP-X1**J)                                  10159000
+ 10     CONTINUE                                                        10160000
+ 100    CONTINUE                                                        10161000
+C        ULTIMO TERMINE (X**0=1                                         10162000
+        PROD=PROD*UNA*(-1)                                              10163000
+        SUM=SUM+PROD*(ESP-1)                                            10164000
+        PXEA=SUM                                                        10165000
+        RETURN                                                          10166000
+ 200    PXEA=0.D0                                                       10167000
+        IF(N.EQ.0) RETURN                                               10168000
+        PXEA=(X2**(N+1)-X1**(N+1))/(N+1)                                10169000
+        RETURN                                                          10170000
+        END                                                             10171000
+      SUBROUTINE POST(NTP,N)                                            10172000
+C     ****************************                                      10173000
+C                                                                       10174000
+C     POSITION FILE NT(1,NTP) AT RECORD N                               10175000
+C                                                                       10176000
+C     *************************************************                 10177000
+C                                                                       10178000
+      COMMON /FILES/NT(4,99)                                            10179000
+      NTT=NT(1,NTP)                                                     10180000
+ 50     NSK=N-NT(4,NTP)                                                 10181000
+      IF(NSK) 100,200,300                                               10182000
+ 300  CONTINUE                                                          10183000
+      DO 10 I=1,NSK                                                     10184000
+  10  READ(NTT,1500)                                                    10185000
+ 1500     FORMAT(A80)                                                   10186000
+      NT(4,NTP)=N                                                       10187000
+ 200  RETURN                                                            10188000
+ 100  CONTINUE                                                          10189000
+      REWIND NTT                                                        10190000
+      NT(4,NTP)=1                                                       10191000
+      GO TO 50                                                          10192000
+      END                                                               10193000
+      FUNCTION NCERC1(M1,M2,IND,M3,M4,MIX,N,K1,K2,K3)                   10194000
+C     *****************************************************             10195000
+C LOOK FOR INDEX MATERIAL IN INPUT TABLE                                10196000
+C      GUARDA UN ISOTOPO DELL INDICE PRIMA SERIE SE E IN MIX            10197000
+C       SE IL NOME IN MIX E BIANCO CI SONO TUTTI                        10198000
+C      E IL NUMERO DELLA MIX IN CUI E L ISOTOPO OD M4+1 SE              10199000
+C     L ISOTOPO NON E IN MIX , MA VA MESSO                              10200000
+C     IND(M1,M2)=INDICE                                                 10201000
+C     MIX(M3,M4)=MIX                                                    10202000
+C     NCERC : POSOZIONE ISOTOPO IN MIX =0 SE NON TROVATO                10203000
+C                                  = POSIZIONI IN MIX IN CUI E          10204000
+C                                  =M4+1 SE NON CI E MA LO METTE        10205000
+C                                        ( BIANCO INPUT NAME )          10206000
+C                                  =-1 SE ESCLUSO (MIX(5).LT.0)         10207000
+C      N= ISOTOPO DELL INDICE                                           10208000
+C      K1= POSIZIONE NELL INDICE DEL NOME                               10209000
+C      K2= POSIZIONE NELLA MIX DEL NOME DELL ISOTOPO                    10210000
+C      K3= NOME DI OUTPUT                                               10211000
+C                                                                       10212000
+C     ****************************************************************  10213000
+C                                                                       10214000
+           INTEGER BIANC                                                10215000
+      DIMENSION IND(M1,M2),MIX(M3,M4)                                   10216000
+      DATA BIANC/4H     /                                               10217000
+      NCERC1=0                                                          10218000
+C     NON LO CONSIDERO ALL INIZIO ( COME NON TROVATO L ISOTOPO)         10219000
+      DO 10 I=1,M4                                                      10220000
+C      UN NOME BIANCO IN MIX SEGNALA DI METTERLO                        10221000
+       IF(MIX(K2,I).EQ.BIANC.AND.MIX(K2+1,I).EQ.BIANC)NCERC1=M4+1       10222000
+      IF(IND(K1,N).NE.MIX(K2,I).OR.IND(K1+1,N).NE.MIX(K2+1,I))GOTO 10   10223000
+C      QUI LO HA TROVATO                                                10224000
+       NCERC1=I                                                         10225000
+C      GUARDA SE E ESCLUSO                                              10226000
+      IF(MIX(5,I).GE.0) RETURN                                          10227000
+      NCERC1=-1                                                         10228000
+      RETURN                                                            10229000
+ 10   CONTINUE                                                          10230000
+C      QUI NON LO HA TROVATO                                            10231000
+C      RESTA ZERO                                                       10232000
+      RETURN                                                            10233000
+      END                                                               10234000
+      SUBROUTINE CONTR1(I,AK,NK,MINDX1,MINDX2,INDX)                     10235000
+C     ***********************************                               10236000
+C      CONTROL OF MAT,MF,MT FLAGS IN INDEX                              10237000
+C      CONFRONTA IN /RECS/ MAT,MF,MT CON INDX E SE NON VA               10238000
+C      BENE LO SEGNALA                                                  10239000
+C                                                                       10240000
+C     ******************************************************            10241000
+C                                                                       10242000
+      COMMON /RECS/M(3)                                                 10243000
+      COMMON /FILES/ NT(4,99)                                           10244000
+       DIMENSION INDX(MINDX1,MINDX2)                                    10245000
+      LOGICAL T                                                         10246000
+      T=.FALSE.                                                         10247000
+      DO 10 IJ=1,3                                                      10248000
+      T=T.OR.(FLOAT(INDX(IJ,I)).NE.M(I))                                10249000
+ 10   CONTINUE                                                          10250000
+      IF(T) RETURN                                                      10251000
+      WRITE(NO,1000) AK,NT                                              10252000
+ 1000  FORMAT(' SUBROUTINE CONTR FOUD INDEX ERROR:',A8,I10)             10253000
+      WRITE(NO,2000) I,(INDX(J,I),J=1,MINDX1)                           10254000
+ 2000 FORMAT(' INDEX:',10E12.5)                                         10255000
+      WRITE(NO,3000)                                                    10256000
+ 3000 FORMAT(' FOR RECS RECORD :')                                      10257000
+      CALL WREC(1,NO,4)                                                 10258000
+      CALL WREC(2,NO,4)                                                 10259000
+      CALL WREC(3,NO,4)                                                 10260000
+      RETURN                                                            10261000
+      END                                                               10262000
+       SUBROUTINE SELR1(NPK,NRS,PK,KE,EINF,ESUP)                        10263000
+C      *****************************************************            10264000
+C      SELECT RESONANCES                                                10265000
+C      ELIMINA IN PK(NPK,NRS) I VALORI CON PK(KE,.) FUORI EINF-ESUP     10266000
+C      **************************************************************** 10267000
+       DIMENSION PK(NPK,NRS)                                            10268000
+       NP=NRS                                                           10269000
+       I=0                                                              10270000
+ 10    I=I+1                                                            10271000
+ 20    IF(I.GT.NP) GO TO 500                                            10272000
+       IF(PK(KE,I).LT.EINF.OR.PK(KE,I).GT.ESUP) GO TO 100               10273000
+       GO TO 10                                                         10274000
+C      ELIMINA UN ELEMENTO METTENDO L'ULTIMO AL SUO POSTO               10275000
+ 100   DO 30 J=1,NPK                                                    10276000
+ 30    PK(J,I)=PK(J,NP)                                                 10277000
+       NP=NP-1                                                          10278000
+       GO TO 20                                                         10279000
+ 500   NRS=I-1                                                          10280000
+       IF(NRS.LE.0) CALL ERR(8HSELR1WAR   ,500)                         10281000
+       RETURN                                                           10282000
+       END                                                              10283000
+      SUBROUTINE ENERG(NG1,DELU,EUP,E)                                  10284000
+C      **************************************                           10285000
+C      COMPUTES ENERGY BOUNDARIES                                       10286000
+C      **************************************                           10287000
+       DIMENSION E(NG1)                                                 10288000
+       REAL*8 DEUP,DDELU,EDEL                                           10289000
+C      SET DEFAULTS BUT                                                 10290000
+C      DEFAULTS ARE JUST  SET IN SUBROUTINE TABNIZ                      10291000
+        DEUP=EUP                                                        10292000
+        DDELU=DELU                                                      10293000
+      IF(DEUP.LE.0) DEUP=1.419D+7                                       10294000
+      IF(DDELU.LE.0) DDELU=1./120.                                      10295000
+      IF(NG1.LE.0) NG1=2083                                             10296000
+C                                                                       10297000
+          EDEL=DEXP(-DDELU)                                             10298000
+          E(1)=DEUP                                                     10299000
+          DO 10 I=2,NG1                                                 10300000
+ 10       E(I)=E(I-1)*EDEL                                              10301000
+C                                                                       10302000
+       RETURN                                                           10303000
+       END                                                              10304000
+      SUBROUTINE NORM(MA,A,C)                                           10305000
+C     **************************************                            10306000
+C     DIVIDE A(MA) PER C                                                10307000
+C     **************************************                            10308000
+      DIMENSION A(MA)                                                   10309000
+      DO 10 I=1,MA                                                      10310000
+ 10   A(I)=A(I)/C                                                       10311000
+      RETURN                                                            10312000
+      END                                                               10313000
+      FUNCTION NSUMG1(NG,M,NL)                                          10314000
+C     ******************************************                        10315000
+C      CONTA I NL(M)>=NG                                                10316000
+C     ************************************                              10317000
+C     DIMENSION NL(M)                                                   10318000
+      DIMENSION NL(1)                                                   10319000
+      NSUMG1=0                                                          10320000
+      IF(M.LE.0) RETURN                                                 10321000
+      DO 10 I=1,M                                                       10322000
+      IF(NL(I).GE.NG) NSUMG1=NSUMG1+1                                   10323000
+ 10   CONTINUE                                                          10324000
+      RETURN                                                            10325000
+      END                                                               10326000
+      SUBROUTINE INFER(E,LIM,N,A)                                       10327000
+C      **************************************                           10328000
+C      CERCA IL PRIMO PIU PICCOLO DI E IN A(N)                          10329000
+C      ***************************************                          10330000
+       DIMENSION A(N)                                                   10331000
+       DO 10 I=1,N                                                      10332000
+       IF(A(I).GT.E) GO TO 10                                           10333000
+       LIM=I                                                            10334000
+       RETURN                                                           10335000
+ 10    CONTINUE                                                         10336000
+       LIM=N                                                            10337000
+       RETURN                                                           10338000
+       END                                                              10339000
+      FUNCTION MAXX(N,M)                                                10340000
+C      ***********************************                              10341000
+C       MASSIMO DEL VETTORE M(N)                                        10342000
+C      ***********************************                              10343000
+       DIMENSION M(N)                                                   10344000
+       MAXX=-99999                                                      10345000
+       DO 10 I=1,N                                                      10346000
+       IF(MAXX.LT.M(I)) MAXX=M(I)                                       10347000
+ 10    CONTINUE                                                         10348000
+       RETURN                                                           10349000
+       END                                                              10350000
+       SUBROUTINE FILTB2(NR,NE,KT,NBT,JNT)                              10351000
+C      *******************************************                      10352000
+C      RIEMPIE UN VETTORE LUNGO NE COLLA TABULAZIONE RELATIVA           10353000
+C      *******************************************                      10354000
+       DIMENSION KT(NE),JNT(100),NBT(100)                               10355000
+       NR1=1                                                            10356000
+       DO 10 IR=1,NR                                                    10357000
+       NR2=NBT(IR)                                                      10358000
+       IF(NR2.LT.NR1) CALL ERR(8HFILTB2   ,15)                          10359000
+       DO 15 IE=NR1,NR2                                                 10360000
+ 15    KT(IE)=JNT(IR)                                                   10361000
+       NR1=NR2                                                          10362000
+ 10    CONTINUE                                                         10363000
+       RETURN                                                           10364000
+       END                                                              10365000
+      SUBROUTINE SOGLM(EPS,NSG,NG,SIG)                                  10366000
+C     *************************************                             10367000
+C                                                                       10368000
+C      DETERMINA IL POSTO NSG SOTTO CUI ABS(SIG)<=EPS                   10369000
+C                                                                       10370000
+C     *********************************************************         10371000
+      DIMENSION SIG(NG)                                                 10372000
+      DO 10 I=1,NG                                                      10373000
+      I1=NG-I+1                                                         10374000
+      IF(ABS(SIG(I1)).GT.EPS) GO TO 100                                 10375000
+ 10   CONTINUE                                                          10376000
+       NSG=0                                                            10377000
+      RETURN                                                            10378000
+ 100  CONTINUE                                                          10379000
+      NSG=I1                                                            10380000
+      RETURN                                                            10381000
+      END                                                               10382000
+      SUBROUTINE SOGLM1(EPS,NSG,NG,SIG)                                 10383000
+C     *************************************                             10384000
+C                                                                       10385000
+C      DETERMINA IL POSTO NSG SOPRA CUI ABS(SIG)<=EPS                   10386000
+C                                                                       10387000
+C     *********************************************************         10388000
+      DIMENSION SIG(NG)                                                 10389000
+      DO 10 I=1,NG                                                      10390000
+      IF(ABS(SIG(I)).GT.EPS) GO TO 100                                  10391000
+ 10   CONTINUE                                                          10392000
+       NSG=0                                                            10393000
+      RETURN                                                            10394000
+ 100  CONTINUE                                                          10395000
+      NSG=I                                                             10396000
+      RETURN                                                            10397000
+      END                                                               10398000
+      SUBROUTINE SOGL(EPS,NSG,NG,SIG)                                   10399000
+C     *************************************                             10400000
+C                                                                       10401000
+C      DETERMINA IL POSTO NSG SOTTO CUI SIG<=EPS                        10402000
+C                                                                       10403000
+C     *********************************************************         10404000
+      DIMENSION SIG(NG)                                                 10405000
+      DO 10 I=1,NG                                                      10406000
+      I1=NG-I+1                                                         10407000
+      IF(SIG(I1).GT.EPS) GO TO 100                                      10408000
+ 10   CONTINUE                                                          10409000
+       NSG=0                                                            10410000
+      RETURN                                                            10411000
+ 100  CONTINUE                                                          10412000
+      NSG=I1                                                            10413000
+      RETURN                                                            10414000
+      END                                                               10415000
+      SUBROUTINE RIBA(N,A)                                              10416000
+C      *****************************                                    10417000
+C       RIBALTA IL VATTORE A(N)                                         10418000
+C      ****************************                                     10419000
+       DIMENSION A(N)                                                   10420000
+       N1=N/2                                                           10421000
+       DO 10 I=1,N1                                                     10422000
+       I1=N-I+1                                                         10423000
+       D=A(I)                                                           10424000
+       A(I)=A(I1)                                                       10425000
+       A(I1)=D                                                          10426000
+ 10    CONTINUE                                                         10427000
+       RETURN                                                           10428000
+       END                                                              10429000
+       SUBROUTINE TRASF(M,A,B)                                          10430000
+C     *********************************                                 10431000
+C      METTE A IN B                                                     10432000
+C     ********************************                                  10433000
+C     DIMENSION A(M),B(M)                                               10434000
+      DIMENSION A(1),B(1)                                               10435000
+      IF(M.LE.0) RETURN                                                 10436000
+      DO 10 I=1,M                                                       10437000
+      B(I)=A(I)                                                         10438000
+ 10   CONTINUE                                                          10439000
+      RETURN                                                            10440000
+      END                                                               10441000
+        SUBROUTINE TRASF1(M,N,A,B)                                      10442000
+C       *********************************                               10443000
+C     METTE A IN B NELL'ORDINE SPECIFICATO DA N                         10444000
+C       **************************************                          10445000
+C       DIMENSION A(M),B(M),N(M)                                        10446000
+        DIMENSION A(1),B(1),N(1)                                        10447000
+        IF(M.LE.0) RETURN                                               10448000
+        DO 10 I=1,M                                                     10449000
+        B(N(I))=A(I)                                                    10450000
+ 10     CONTINUE                                                        10451000
+        RETURN                                                          10452000
+        END                                                             10453000
+      FUNCTION FNDMX(K,M1,M2,A)                                         10454000
+C     *****************************                                     10455000
+C                                                                       10456000
+C      TROVA IN A(M1,M2) IL MAX DELLA COL A(K, )                        10457000
+C                                                                       10458000
+C     **********************************************                    10459000
+C                                                                       10460000
+      DIMENSION A(M1,M2)                                                10461000
+      FNDMX=1.E-30                                                      10462000
+      DO 10 I=1,M2                                                      10463000
+      IF(A(K,I).GT.FNDMX) FNDMX=A(K,I)                                  10464000
+ 10   CONTINUE                                                          10465000
+      RETURN                                                            10466000
+      END                                                               10467000
+      SUBROUTINE EXAM(M,K,N1,N2,NA,NB)                                  10468000
+C     *******************************************                       10469000
+C                                                                       10470000
+C     ESAMINA A ( COLONNA M) E FA MATRICE NB:                           10471000
+C                  NB(1,.)=VALORE IN A(M, )                             10472000
+C                  NB(2, )=INIZIO DEL VALORE                            10473000
+C                  NB(3, )=DIMENSIONI DEL VALORE DI A(M, )              10474000
+C               K= DIMENSIONI DI B                                      10475000
+C                                                                       10476000
+C     ****************************************************              10477000
+      DIMENSION NA(N1,N2),NB(3,N2)                                      10478000
+      IF(M.EQ.0.OR.M.GT.N1) CALL ERR(8H   EXAM     ,0)                  10479000
+      K=1                                                               10480000
+      NB(1,K)=NA(M,1)                                                   10481000
+      NB(2,K)=1                                                         10482000
+      NB(3,K)=1                                                         10483000
+      IF(N2.LT.2) RETURN                                                10484000
+      DO 10 I=2,N2                                                      10485000
+      IF(NA(M,I).NE.NB(1,K))GO TO 100                                   10486000
+C     QUI SE SONO UGUALI INCREMENTA LE DIMENSIONI DI B(3,K)             10487000
+      NB(3,K)=NB(3,K)+1                                                 10488000
+      GO TO 10                                                          10489000
+ 100  CONTINUE                                                          10490000
+C     CAMBIA B                                                          10491000
+      K=K+1                                                             10492000
+      NB(1,K)=NA(M,I)                                                   10493000
+      NB(2,K)=I                                                         10494000
+      NB(3,K)=1                                                         10495000
+ 10   CONTINUE                                                          10496000
+      RETURN                                                            10497000
+      END                                                               10498000
+      SUBROUTINE LIMIT(EPS,N1,N2,N,A)                                   10499000
+C     ***************************************                           10500000
+C      IN A(N) CERCA I LIMITI N1,N2 FRA CUI CI SONO VALORI >EPS         10501000
+C     **********************************************************        10502000
+C     DIMENSION A(N)                                                    10503000
+      DIMENSION A(1)                                                    10504000
+      IF(N.LE.0) GO TO 300                                              10505000
+      N1=1                                                              10506000
+      N2=N                                                              10507000
+      DO 10 I=1,N                                                       10508000
+      IF(A(I).GT.EPS) GOTO100                                           10509000
+ 10   CONTINUE                                                          10510000
+       I=0                                                              10511000
+ 100  N1=I                                                              10512000
+      DO 20 I=1,N                                                       10513000
+      II=N-I+1                                                          10514000
+      IF(A(II).GT.EPS) GO TO 200                                        10515000
+ 20   CONTINUE                                                          10516000
+       II=0                                                             10517000
+ 200  N2=II                                                             10518000
+      RETURN                                                            10519000
+ 300   N1=0                                                             10520000
+       N2=0                                                             10521000
+       RETURN                                                           10522000
+      END                                                               10523000
+       SUBROUTINE CERCM(NUM,K,M,N)                                      10524000
+C      ********************************                                 10525000
+C      CERCA IL PRIMO N(M) >K E LO METTE IN NUM                         10526000
+C      ************************************                             10527000
+C       DIMENSION N(M)                                                  10528000
+        DIMENSION N(1)                                                  10529000
+       NUM=K                                                            10530000
+       IF(M.LE.0) RETURN                                                10531000
+       DO 10 I=1,M                                                      10532000
+       IF(N(I).LE.K) GO TO 10                                           10533000
+       NUM=N(I)                                                         10534000
+       RETURN                                                           10535000
+ 10    CONTINUE                                                         10536000
+       RETURN                                                           10537000
+       END                                                              10538000
+      SUBROUTINE ORDMIC(M,N1,N2,NA)                                     10539000
+C     ********************************                                  10540000
+C                                                                       10541000
+C     ORDINA NA PER VALORI CRESCENTI DELLA COLONNA M                    10542000
+C     !!!!!!!!!!!!!!!! ORDIN1 E' PIU' EFFICIENTE !!!!!!!!!!!!!!!        10543000
+C                                                                       10544000
+C     ***********************************                               10545000
+C                                                                       10546000
+      DIMENSION NA(N1,N2)                                               10547000
+C                                                                       10548000
+      DO 10 KI=1,N2                                                     10549000
+C     CERCA IL PIU PICCOLO SUI SUCCESSIVI ( DA KI+1=I1)                 10550000
+                I1=KI+1                                                 10551000
+                IF(I1.GT.N2) GOTO 10                                    10552000
+      DO 10 I=I1,N2                                                     10553000
+      IF(NA(M,KI).LE.NA(M,I)) GO TO 10                                  10554000
+C     SCAMBIO I ED K                                                    10555000
+      DO 20 II=1,N1                                                     10556000
+      ND=NA(II,KI)                                                      10557000
+      NA(II,KI)=NA(II,I)                                                10558000
+      NA(II,I)=ND                                                       10559000
+ 20   CONTINUE                                                          10560000
+ 10    CONTINUE                                                         10561000
+      RETURN                                                            10562000
+      END                                                               10563000
+       SUBROUTINE ORDPU1(NP,EP,SC,SF,SS,KP,EP1,SC1,SF1,SS1)             10564000
+C      **********************************************************       10565000
+C      ORDINA LE TABULAZIONI EP SC SF SS (NP) IN BASE A KP              10566000
+C       METTE QUELLO CHE OTTIENE IN SC1 SF1 SS1                         10567000
+C      **********************************************************       10568000
+C                                                                       10569000
+       DIMENSION EP(NP),SC(NP),SF(NP),SS(NP),EP1(NP),SC1(NP),SS1(NP)    10570000
+       DIMENSION SF1(NP),KP(NP)                                         10571000
+       NEXT=1                                                           10572000
+       DO 10 I=1,NP                                                     10573000
+       EP1(I)=EP(NEXT)                                                  10574000
+       SC1(I)=SC(NEXT)                                                  10575000
+       SF1(I)=SF(NEXT)                                                  10576000
+       SS1(I)=SS(NEXT)                                                  10577000
+       NEXT=KP(NEXT)                                                    10578000
+ 10    CONTINUE                                                         10579000
+       RETURN                                                           10580000
+       END                                                              10581000
+       SUBROUTINE ORDPU3(NP,EP,SP,KP,NF,EF,SF)                          10582000
+C      ***********************************************                  10583000
+C       ORDINA LA TABULAZIONE EP SP (NP) IN BASE A KP                   10584000
+C       METTE QUELLO CHE OTTIENE IN EF SF (NF)                          10585000
+C       NON ELIMINA I DOPPIONI (CONTRARIAMENTE A ORDPU2)                10586000
+C      ***********************************************                  10587000
+C                                                                       10588000
+       DIMENSION EP(NP),SP(NP),KP(NP),EF(NF),SF(NF)                     10589000
+       NEXT=1                                                           10590000
+        DO 10 I=1,NP                                                    10591000
+        EF(I)=EP(NEXT)                                                  10592000
+        SF(I)=SP(NEXT)                                                  10593000
+        NEXT=KP(NEXT)                                                   10594000
+ 10     CONTINUE                                                        10595000
+        NF=NP                                                           10596000
+        RETURN                                                          10597000
+        END                                                             10598000
+      SUBROUTINE ORD(N,A)                                               10599000
+C     **************************************                            10600000
+C      ORDINA A PER VALORI CRESCENTI                                    10601000
+C      ********************************************                     10602000
+       DIMENSION A(N)                                                   10603000
+       N1=N-1                                                           10604000
+       DO 10 I=1,N1                                                     10605000
+       N2=I+1                                                           10606000
+       DO 20 J=N2,N                                                     10607000
+       IF(A(I).LE.A(J)) GO TO 20                                        10608000
+       D=A(I)                                                           10609000
+       A(I)=A(J)                                                        10610000
+       A(J)=D                                                           10611000
+ 20    CONTINUE                                                         10612000
+ 10    CONTINUE                                                         10613000
+       RETURN                                                           10614000
+       END                                                              10615000
+       SUBROUTINE ORDIND(K,N1,NP,NPMX,A)                                10616000
+C      ***************************************                          10617000
+C       ORDINA A(NP,N1) PER VALORI DECRESCENTI DI A (.,K)               10618000
+C      ELIMINA I VALORI EGUALI DI A (.,K) METTENDOLI ALLA FINE          10619000
+C      E CALANDO DI CONSEGUENZA NP                                      10620000
+C      **************************************************               10621000
+       DIMENSION A(NPMX,N1)                                             10622000
+       I=0                                                              10623000
+C      LOOP SUI NUOVI POSTI I                                           10624000
+ 10    I=I+1                                                            10625000
+       IF(I.GE.NP) RETURN                                               10626000
+C      CERCA IL MAX SUI SUCCESSIVI                                      10627000
+       J=I                                                              10628000
+ 20    J=J+1                                                            10629000
+ 25    IF(J.GT.NP) GO TO 10                                             10630000
+       IF(A(I,K).GT.A(J,K)) GO TO 20                                    10631000
+       IF(A(I,K).EQ.A(J,K)) GO TO 100                                   10632000
+C      SCAMBIA                                                          10633000
+ 110   DO 30 JJ=1,N1                                                    10634000
+       D=A(I,JJ)                                                        10635000
+       A(I,JJ)=A(J,JJ)                                                  10636000
+ 30    A(J,JJ)=D                                                        10637000
+       GO TO 20                                                         10638000
+C      ELIMINA L'ELEMENTO                                               10639000
+ 100   DO 40 JJ=1,N1                                                    10640000
+       D=A(J,JJ)                                                        10641000
+       A(J,JJ)=A(NP,JJ)                                                 10642000
+ 40    A(NP,JJ)=D                                                       10643000
+       NP=NP-1                                                          10644000
+       GO TO 25                                                         10645000
+       END                                                              10646000
+      SUBROUTINE ORDSOG(N,NSG,NORD)                                     10647000
+C       ***********************************                             10648000
+C        DEFINISCE NORD, CONTENENTE L'ORDINAMENTO                       10649000
+C        DECRESCENTE DEI NUMERI IN NSG                                  10650000
+C       *****************************************                       10651000
+C                                                                       10652000
+C       DIMENSION NSG(N),NORD(N)                                        10653000
+        DIMENSION NSG(1),NORD(1)                                        10654000
+        IF(N.LE.0) RETURN                                               10655000
+        DO 10 I=1,N                                                     10656000
+ 10     NORD(I)=0                                                       10657000
+        DO 20 I=1,N                                                     10658000
+C            K E' IL PRIMO  NON ASSEGNATO                               10659000
+        DO 30 K=1,N                                                     10660000
+        IF(NORD(K).LE.0) GO TO 300                                      10661000
+ 30     CONTINUE                                                        10662000
+        CALL ERR(8HORDSOG    ,300)                                      10663000
+ 300    DO 40 J=1,N                                                     10664000
+C            NORD.NE.0 =>NSG ORDER DEFINED                              10665000
+        IF(NORD(J).GT.0) GO TO 40                                       10666000
+        IF(NSG(J).LE.NSG(K)) GOTO 40                                    10667000
+        K=J                                                             10668000
+ 40     CONTINUE                                                        10669000
+        NORD(K)=I                                                       10670000
+ 20     CONTINUE                                                        10671000
+        RETURN                                                          10672000
+        END                                                             10673000
+      SUBROUTINE GRATTE(E1,E2,EX1,EX2,PX1,PX2,IEX,NE,KINT,NEINT,A,EINT) 10674000
+C     **************************************************************    10675000
+C                                                                       10676000
+C      INTEGRATION ROUTINE                                              10677000
+C      INTEGRA PER OGNI EI F(E,EI) FRA E1 ED E2, INTERPOLANDO           10678000
+C      FRA EX1 ED EX2                                                   10679000
+C                                                                       10680000
+C      E1,E2 = ESTREMI DI INTEGRAZIONE                                  10681000
+C      NE1,NE2 = 2 RECORDS (DI 2 ENERGIE E) DI F(E,.) FRA CUI INTEGRA   10682000
+C      EX1,EX2 =ENERGIE ALL'ESTREMO DELL'INTERVALLO DI INTERPOLAZIONE   10683000
+C                      F(E1,.)  F(E2,.)                                 10684000
+C      KINT= CODICE DI INTERPOLAZIONE FRA E1 ED E2                      10685000
+C                                                                       10686000
+C     ****************************************************************  10687000
+C                                                                       10688000
+      DIMENSION A(NEINT),EINT(NEINT)                                    10689000
+C     COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),       10690000
+C    1N1X,N2X,NS,LX,LY,LB                                               10691000
+C      COMMON/DENS/JMT,JAT,JTT,JLT,LV,JNS,MNS,JX,MX                     10692000
+       NEX1=NE-IEX+1                                                    10693000
+C       NUMERO DEL RECORD TAB1 IN DENS,CONTANDO CHE IN DENS SONO        10694000
+C       PER E CRESCENTI COME ENDFB, IN P2F6TB IN E DECRESCENTI          10695000
+       NEX2=NEX1-1                                                      10696000
+C      LOCATE RECORDS IN DENS FOR F(E1,.) F(E2,.)  ( IL RECORD 1 E' P(E)10697000
+C      IL RECORD 2 E' IL TAB2 ) I TAB1 SONO IL NUMERO NEX+2             10698000
+      CALL LRIDS(NEX1+2,JAF1,LNT)                                       10699000
+      IF(LNT.GT.1) CALL ERR(8HGRATTE      ,2)                           10700000
+      CALL LRIDS(NEX2+2,JAF2,LNT)                                       10701000
+      IF(LNT.GT.1) CALL ERR(8HGRATTE    ,3)                             10702000
+      DO 10 I=1,NEINT                                                   10703000
+C                ESCLUDO IL CASO OVE GUADAGNA E NELL'URTO               10704000
+       IF(EINT(I).GT.E1) GO TO 10                                       10705000
+C      PROCURO I VALORI DI F(NEX1,E(I)) F(NEX2,E(I)) INTERPOLANDO SU E(I10706000
+      NPF1=1                                                            10707000
+      CALL IPDS(JAF1,NPF1,EINT(I),FX1EI,IPF1)                           10708000
+      NPF2=1                                                            10709000
+      CALL IPDS(JAF2,NPF2,EINT(I),FX2EI,IPF2)                           10710000
+C      MOLTIPLICO P PER F ( QUESTO SUPPONE P SMOOTH RISPETTO AD F O CHE 10711000
+C      ABBIANO LA STESSA LEGGE DI INTERPOLAZIONE OPPURE NON SI PUO'     10712000
+C      FARE IL PRODOTTO E POI INTEGRARE IL PRODOTTO CON LA LEGGE DI INTE10713000
+C      INTERPOLAZIONE DELLE ENERGIE E DI F                              10714000
+      EF1=FX1EI*PX1                                                     10715000
+      EF2=FX2EI*PX2                                                     10716000
+C            INTEGRO P*F SULLE E DI PARTENZA E1-E2                      10717000
+      CALL ECSI(EX2,EF2,EX1,EF1,E2,E1,KINT,B)                           10718000
+      A(I)=A(I)+B                                                       10719000
+ 10   CONTINUE                                                          10720000
+      RETURN                                                            10721000
+      END                                                               10722000
+      SUBROUTINE INTEGG(NG,SIG,IR,E,M,IHED,IPOST)                       10723000
+C     ***************************************                           10724000
+C                                                                       10725000
+C      INTEGRATION ROUTINE                                              10726000
+C      INTEGRO O MEDIO A GRUPPI IL RECORD ENDFB IN INDICE INDX(.,IR)    10727000
+C      LO METTE IN SIG ,  NON LEGGE IL SEND FINALE DI ENDFB             10728000
+C      PER M >=1 MEDIA ALTRIMENTI INTEGRA                               10729000
+C      PER IHED >0 NON LEGGE L'HEAD                                     10730000
+C      PER IPOST >0 NON POSIZIONA IL FILE                               10731000
+C     ***********************************************************       10732000
+C                                                                       10733000
+      DIMENSION SIG(NG),E(NG)                                           10734000
+      COMMON /FILES/NT(4,99)                                            10735000
+      EQUIVALENCE(NT(1,6),NO)                                           10736000
+      COMMON/INDX/AINDX(40,200)                                         10737000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2                           10738000
+C     COMMON /OPZIO/ OPZ(4,8,10)                                        10739000
+C     EQUIVALENCE (OPZ(2,6,1),STMP)                                     10740000
+C      COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     10741000
+C    1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     10742000
+C                                                                       10743000
+C      DEFINISCE E POSIZIONA IL FILE DI INPUT                           10744000
+       T=AINDX(7,IR)                                                    10745000
+      NTIN=AINDX(23,IR)                                                 10746000
+      NTI=NT(1,NTIN)                                                    10747000
+      IF(IPOST.GT.0) GO TO 100                                          10748000
+      NPOST=AINDX(25,IR)                                                10749000
+      CALL POST(NTIN,NPOST)                                             10750000
+C                                                                       10751000
+ 100   IF(IHED.GT.0) GO TO 200                                          10752000
+C      LETTURA DELL HEAD DEL MAT,MT                                     10753000
+      CALL RREC(1,NTI,3,T)                                              10754000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           10755000
+C     LETTURA TAB1                                                      10756000
+ 200  CALL RREC(3,NTI,3,T)                                              10757000
+      NT(4,NTIN)=NT(4,NTIN)+1+N1/3+NREST(N1,3)+N2/3+NREST(N2,3)         10758000
+C                                                                       10759000
+C      INTEGRAZIONE                                                     10760000
+      DO 10 I=1,NG                                                      10761000
+      E1=E(I)                                                           10762000
+       E2=E(I+1)                                                        10763000
+C      GRATE= SUBROUTINE INTEGRANTE ( IN RECS) DI SLAVE3                10764000
+      CALL GRATE(E2,E1,SIG(I))                                          10765000
+      IF(M.GT.0) SIG(I)=SIG(I)/(E1-E2)                                  10766000
+ 10      CONTINUE                                                       10767000
+      RETURN                                                            10768000
+      END                                                               10769000
+      SUBROUTINE GRATP(AMED,X,Y)                                        10770000
+C      ******************************************                       10771000
+C      CALCOLO DI AINT(X * Y(X) ) IN UN TAB1 ( AINT(Y(X)=1 PER DEF      10772000
+C      ******************************************                       10773000
+C                                                                       10774000
+       DIMENSION X(200),Y(200)                                          10775000
+       COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),       10776000
+     1 N1X,N2X,NS,LX,LY,LB                                              10777000
+       NI1=1                                                            10778000
+       AINT=0.                                                          10779000
+       DO 10 IR=1,N1                                                    10780000
+       KT=JNT(IR)                                                       10781000
+       NI2=NBT(IR)-1                                                    10782000
+C       L'ULTIMO NUMERO DEL RANGE NON HA INTEGRALE ASSOCIATO            10783000
+       DO 20 IE=NI1,NI2                                                 10784000
+       X1=X(IE)                                                         10785000
+       X2=X(IE+1)                                                       10786000
+       Y1=Y(IE)                                                         10787000
+       Y2=Y(IE+1)                                                       10788000
+       GO TO (100,200,300,900,500),KT                                   10789000
+ 900   CALL ERR(8HGRATPIN   ,900)                                       10790000
+       GO TO 600                                                        10791000
+C       LEGGE COSTANTE                                                  10792000
+ 100   AINT=Y1/2.*(X2**2-X1**2) +AINT                                   10793000
+       GO TO 600                                                        10794000
+C       LEGGE LINEARE                                                   10795000
+ 200   AN=(Y2-Y1)/(X2-X1)                                               10796000
+       AINT=AN*(X2**3-X1**3)/3.+(AN*X1+Y1)/2.*(X2**2-X1**2) +AINT       10797000
+       GO TO 600                                                        10798000
+C        LN(X) - Y                                                      10799000
+ 300   ALGX1=ALOG(X1)                                                   10800000
+       ALGX2=ALOG(X2)                                                   10801000
+       X12=X1**2                                                        10802000
+       X22=X2**2                                                        10803000
+       AN=(Y2-Y1)/(ALGX2-ALGX1)                                         10804000
+       AINT=(Y1-AN*ALGX1)/2.*(X22-X12)+X22*(ALGX2/2.-0.25)-             10805000
+     1  X12*(ALGX1/2.-0.25) +AINT                                       10806000
+       GO TO 600                                                        10807000
+C       LN (X) - LN (Y)                                                 10808000
+ 500   AN=(ALOG(Y2)-ALOG(Y1))/(ALOG(X2)-ALOG(X1))                       10809000
+       AINT=Y1/X1**AN/(AN+2)*(X2**(AN+2)-X1**(AN+2)) +AINT              10810000
+ 600   CONTINUE                                                         10811000
+ 20    CONTINUE                                                         10812000
+       NI1=NBT(IR)                                                      10813000
+ 10    CONTINUE                                                         10814000
+C            CALL GRATE(-1.,1.,ANS)                                     10815000
+C            AMED=AINT/ANS                                              10816000
+C            IL DI CUI SOPRA NON SERVE PER LA NORMALIZZ DI P IN ENDFB   10817000
+       AMED=AINT                                                        10818000
+       RETURN                                                           10819000
+       END                                                              10820000
+       SUBROUTINE INTS1(PESO,INTERP,NG,E,SIG,NP,ES,SIGU)                10821000
+C      *****************************************************            10822000
+C                                                                       10823000
+C       INTEGRATION ROUTINE                                             10824000
+C       INTEGRA A GRUPPI ULTRA FINI E(NG)-SIG(NG) , UNA                 10825000
+C       TABULAZIONE ES(NP)-SIGU(NP) CON LEGGI  DI                       10826000
+C       INTERPOLAZIONE INTERP=<2,3,>3=LIN,SIGMA-LOG E,LOG-LOG           10827000
+C        PESO= 1,>1 =COSTANTE,1/E                                       10828000
+C                                                                       10829000
+C       QUESTA ROUTINE NON ORDINA E NON AZZERA SIG                      10830000
+C      **********************************************************       10831000
+C                                                                       10832000
+       DIMENSION E(NG),SIG(NG),ES(NP),SIGU(NP)                          10833000
+       REAL*8 ETEGL,ETEGR,AN,ALGES,ALGES1,ALGE,ALGE1,DELTAU,ESA         10834000
+       REAL*8 DENUM                                                     10835000
+C      LOOK FOR THE FIRST ENERGY GROUP                                  10836000
+       DO 10 I=1,NG                                                     10837000
+       IF(ES(1).LT.E(I)) GO TO 10                                       10838000
+       NGI=I-1                                                          10839000
+       GO TO 100                                                        10840000
+ 10    CONTINUE                                                         10841000
+       CALL ERR(8H INTS1     ,10)                                       10842000
+       RETURN                                                           10843000
+ 100   CONTINUE                                                         10844000
+C      LOOK FOR THE LAST ENERGY GROUP                                   10845000
+       NG1=NGI+1                                                        10846000
+       IF(NG1.LE.NG) GO TO 150                                          10847000
+       CALL ERR(8HINTS1     ,150)                                       10848000
+       RETURN                                                           10849000
+ 150   CONTINUE                                                         10850000
+       DO 20 I=NG1,NG                                                   10851000
+       IF(ES(NP).LT.E(I)) GOTO 20                                       10852000
+       NGF=I-1                                                          10853000
+          IF(ES(NP).EQ.E(I)) NGF=I                                      10854000
+       GOTO 200                                                         10855000
+ 20    CONTINUE                                                         10856000
+       NGF=NG                                                           10857000
+ 200   CONTINUE                                                         10858000
+C                                                                       10859000
+C       LOOP ON ULTRA-FINE GROUPS INVOLVED                              10860000
+       KKL1=1                                                           10861000
+       DO 30 IG=NGI,NGF                                                 10862000
+       IG1=IG+1                                                         10863000
+       IF(IG1.GT.NG+1)GO TO 500                                         10864000
+C       SONO FINITI I GRUPPI. L'INTEGRALE E' FINITO                     10865000
+       ALGE=E(IG)                                                       10866000
+       ALGE1=E(IG1)                                                     10867000
+       IF(PESO.LE.1.) GO TO 301                                         10868000
+       DENUM=DLOG(ALGE1/ALGE)                                           10869000
+       GO TO 35                                                         10870000
+ 301   DENUM=ALGE1-ALGE                                                 10871000
+C       USA IL PRECEDENTE A DESTRA COME PUNTO A SINISTRA SE E'          10872000
+C       PASSATO OLTRE IN ENERGIA                                        10873000
+ 35    ITERPL=KKL1                                                      10874000
+C                                                                       10875000
+C      CERCA GLI ESTREMI DI INTEGRAZIONE E DI INTERPOLAZIONE A SINISTRA 10876000
+C       SE E(IG) ED E(ITERPL) SONO EGUALI I PUNTI DI INTERP ED INTEGR   10877000
+C       COINCIDONO . SE ES(ITERPL) E' PRIMA DELL'ENERGIA E(IG)          10878000
+C       IL PUNTO DI INTERPOLAZIONE E' E(ITERPL),IL PUNTO DI INTEGRAZIONE10879000
+C       E' E(IG)                                                        10880000
+C                                                                       10881000
+       ETEGL=E(IG)                                                      10882000
+C       SE ES(ITERPL) E' DOPO E(IG) ALLORA IL PUNTO DI INTERPOLAZIONE   10883000
+C       ES(ITERPL) E' ANCHE PUNTO DI INIZIO INTEGRAZIONE                10884000
+       IF(E(IG).GT.ES(ITERPL)) ETEGL=ES(ITERPL)                         10885000
+C       FISSA PUNTO DI INTERPOLAZIONE E DI INTEGRAZIONE A DESTRA.       10886000
+       ITERPR=ITERPL+1                                                  10887000
+       IF(ITERPR.GT.NP) GO TO 550                                       10888000
+C       NON HA PIU' PUNTI DI INTERPOLAZIONE A DESTRA, L'INTEGRALE E'    10889000
+C       FINITO (E' A META' GRUPPO VA A DIVIDERE PER DENUM )             10890000
+       ETEGR=E(IG1)                                                     10891000
+       IF(ES(ITERPR).LT.ETEGR) GO TO 310                                10892000
+C       SE L'ENERGIA DI INTERPOLAZIONE E' PRIMA DELLA FINE DEL GRUPPO   10893000
+C      ALLORA SI INTEGRA FINO ALLA FINE DEL GRUPPO .                    10894000
+C       SIA IN QUESTO CASO SIA IN CASO SIANO EGUALI SI SEGNA CHE        10895000
+C       AL PROSSIMO GIRO IL PUNTO DI INTERPOLAZIONE A DESTRA            10896000
+C       DIVIENE PUNTO DI INTERPOLAZIONE A SINISTRA                      10897000
+       KKL1=ITERPR                                                      10898000
+       ETEGR=ES(ITERPR)                                                 10899000
+ 310   CONTINUE                                                         10900000
+C                                                                       10901000
+C      NOW INTEGRATION FOLLOWS:                                         10902000
+C                                                                       10903000
+C      ITERPL AND ITERPR ARE THE LEFT AND RIGHT INTERPOLATION POINTS    10904000
+C      ETEGR AND ETEGL ARE THE LEFT AND RIGHT INTEGRATION POINTS        10905000
+C                                                                       10906000
+C      UTILIZZA FORMULE DI PAG. 25-26 DEL MANUALE DI MC2-I              10907000
+C          PESO 1/E OPPURE COST (COERENTE CON LE SMOOT):PESO=2,1..      10908000
+       IF(INTERP.NE.3) GO TO 600                                        10909000
+C        LEGGE SIGMA - LOG E                                            10910000
+       ALGES1=ALOG(ES(ITERPR))                                          10911000
+       ALGES=ALOG(ES(ITERPL))                                           10912000
+       AN=(SIGU(ITERPR)-SIGU(ITERPL))/(ALGES1-ALGES)                    10913000
+       ALGE1=DLOG(ETEGR)                                                10914000
+       ALGE=DLOG(ETEGL)                                                 10915000
+       IF(PESO.GT.1.) GO TO 601                                         10916000
+       SIG(IG)=SIG(IG)+AN*                                              10917000
+     1 (ETEGR*ALGE1-ETEGL*ALGE-ETEGR+ETEGL)+                            10918000
+     2 (SIGU(ITERPL)-AN*ALGES)*(ETEGR-ETEGL)                            10919000
+       GOTO400                                                          10920000
+ 601   CONTINUE                                                         10921000
+       DELTAU=DLOG(ETEGR/ETEGL)                                         10922000
+       SIG(IG)=AN/2.*(ALGE1**2-ALGE**2)+(SIGU(ITERPL)-AN*ALGES)*DELTAU+ 10923000
+     1          SIG(IG)                                                 10924000
+       GO TO 400                                                        10925000
+ 600   CONTINUE                                                         10926000
+       IF(INTERP.LE.2) GO TO 450                                        10927000
+C       LEGGE LOGE - LOG SIGMA                                          10928000
+        IF(SIGU(ITERPR).EQ.0..OR.SIGU(ITERPL).EQ.0.) GO TO 450          10929000
+C             IN QUESTI CASI IL LOGRITMO E" INDEFINITO,INTERPOLO LINEARE10930000
+       ALGES1=ALOG(ES(ITERPR))                                          10931000
+       ALGES=ALOG(ES(ITERPL))                                           10932000
+       AN=(ALOG(ABS(SIGU(ITERPR)))-ALOG(ABS(SIGU(ITERPL))))/            10933000
+     1  (ALGES1-ALGES)                                                  10934000
+       ESA=ES(ITERPL)**AN                                               10935000
+       IF(PESO.GT.1.) GO TO 402                                         10936000
+       SIG(IG)=SIG(IG)+SIGU(ITERPL)/ESA/                                10937000
+     1                   (AN+1)*(ETEGR**(AN+1)-ETEGL**(AN+1))           10938000
+       GO TO 400                                                        10939000
+ 402   CONTINUE                                                         10940000
+       EA=ETEGL**AN                                                     10941000
+       EA1=ETEGR**AN                                                    10942000
+       SIG(IG)=+SIGU(ITERPL)/ESA/AN*(EA1-EA)+                           10943004
+     1          SIG(IG)                                                 10944000
+       GO TO 400                                                        10945000
+ 450   CONTINUE                                                         10946000
+C      LEGGE LINEARE                                                    10947000
+C                TO AVOID OVERFLOWS                                     10948000
+        IF(ABS(ES(ITERPR)-ES(ITERPL)).LT.1.E-20) GO TO 400              10949000
+       AN=(SIGU(ITERPR)-SIGU(ITERPL))/(ES(ITERPR)-ES(ITERPL))           10950000
+       IF(PESO.GT.1.) GO TO 403                                         10951000
+       DDDDDD=SIG(IG)+AN/2.*(ETEGR*ETEGR-ETEGL*ETEGL)+                  10952000
+     1               (SIGU(ITERPL)-AN*ES(ITERPL))*(ETEGR-ETEGL)         10953000
+       SIG(IG)=DDDDDD                                                   10954000
+       GO TO 400                                                        10955000
+ 403   CONTINUE                                                         10956000
+       DELTAU=DLOG(ETEGR/ETEGL)                                         10957000
+       DDDDDD=AN*(ETEGR-ETEGL)+(SIGU(ITERPL)-AN*ES(ITERPL))*DELTAU+     10958000
+     1          SIG(IG)                                                 10959000
+       SIG(IG)=DDDDDD                                                   10960000
+ 400   CONTINUE                                                         10961000
+C       NEL CASO SOTTOCONTEMPLATO NON HA FINITO IL GRUPPO               10962000
+       IF(E(IG1).LT.ETEGR) GOTO35                                       10963000
+       SIG(IG)=SIG(IG)/DENUM                                            10964000
+ 30    CONTINUE                                                         10965000
+ 500   CONTINUE                                                         10966000
+       RETURN                                                           10967000
+ 550     SIG(NGF)=SIG(NGF)/DENUM                                        10968000
+         RETURN                                                         10969000
+C        DA QUI ESCE SE FINISCE I PUNTI DI INTERPOLAZ A META DI         10970000
+C        UN GRUPPO.ALLORA DEVE ANCORA DIVIDERE PER IL DENUM             10971000
+C      RICORDARE CHE TUTTE LE SIGMA A GRUPPI VANNO DIVISE PER           10972000
+C       LO STESSO DENOM DEL GRUPPO PERCHE POI VANNO SOMMATE INSIEME     10973000
+       END                                                              10974000
+       SUBROUTINE INTS2(PESO,KT,NG,E,SIG,NP,ES,SIGU)                    10975000
+C      *****************************************************            10976000
+C        INTEGRATION ROUTINE                                            10977000
+C       MEDIA   A GRUPPI ULTRA FINI E(NG)-SIG(NG) , UNA                 10978000
+C       TABULAZIONE ES(NP)-SIGU(NP) CON LEGGI  DI                       10979000
+C       INTERPOLAZIONE INTERP=<2,3,>3=LIN,SIGMA-LOG E,LOG-LOG           10980000
+C        PESO= 1,>1 =COSTANTE,1/E                                       10981000
+C                                                                       10982000
+C       QUESTA ROUTINE NON ORDINA E NON AZZERA SIG                      10983000
+C                                                                       10984000
+C      DIFFERISCE DA INTS1 PERCHE LE INTERPOLAZIONI SONO IN UN VETTORE  10985000
+C         LUNGO NP INVECE CHE UNA LEGGE DI INTERPOLAZIONE SOLA          10986000
+C         E' INSERITA LEGGE COSTANTE E I CODICI DI INTERPOLAZIONE       10987000
+C         SONO RESI COERENTI CON QUELLI DI ENDFB                        10988000
+C                                                                       10989000
+C      AGGIUNTA POSSIBILITA' DI INTERVALLO DI ES ESTESO AD ES>E         10990000
+C                                                                       10991000
+C      **********************************************************       10992000
+C                                                                       10993000
+       DIMENSION E(NG),SIG(NG),ES(NP),SIGU(NP),KT(NP)                   10994000
+       REAL*8 ETEGL,ETEGR,AN,ALGES,ALGES1,ALGE,ALGE1,DELTAU,ESA         10995000
+       REAL*8 DENUM                                                     10996000
+C      LOOK FOR THE FIRST ENERGY GROUP                                  10997000
+       DO 10 I=1,NG                                                     10998000
+       IF(ES(1).LT.E(I)) GO TO 10                                       10999000
+       NGI=I-1                                                          11000000
+       IF(NGI.LT.1) NGI=1                                               11001000
+       GO TO 100                                                        11002000
+ 10    CONTINUE                                                         11003000
+       CALL ERR(8H INTS2     ,10)                                       11004000
+       RETURN                                                           11005000
+ 100   CONTINUE                                                         11006000
+C      LOOK FOR THE LAST ENERGY GROUP                                   11007000
+       NG1=NGI+1                                                        11008000
+       IF(NG1.LE.NG) GO TO 150                                          11009000
+       CALL ERR(8HINTS2     ,150)                                       11010000
+       RETURN                                                           11011000
+ 150   CONTINUE                                                         11012000
+       DO 20 I=NG1,NG                                                   11013000
+       IF(ES(NP).LT.E(I)) GOTO 20                                       11014000
+       NGF=I-1                                                          11015000
+          IF(ES(NP).EQ.E(I)) NGF=I                                      11016000
+       GOTO 200                                                         11017000
+ 20    CONTINUE                                                         11018000
+       NGF=NG                                                           11019000
+ 200   CONTINUE                                                         11020000
+C                                                                       11021000
+C       RICERCA DEL PRIMO PUNTO ES ( IL PIU VICINO AD E(1)  )           11022000
+       DO 25 I=1,NP                                                     11023000
+       IF(ES(I).LT.E(1)) GO TO 250                                      11024000
+ 25    CONTINUE                                                         11025000
+       KKL1=1                                                           11026000
+       GO TO 260                                                        11027000
+ 250   KKL1=I-1                                                         11028000
+       IF(KKL1.LE.0) KKL1=1                                             11029000
+ 260   CONTINUE                                                         11030000
+C                                                                       11031000
+C       LOOP ON ULTRA-FINE GROUPS INVOLVED                              11032000
+       DO 30 IG=NGI,NGF                                                 11033000
+       IG1=IG+1                                                         11034000
+       IF(IG1.GT.NG+1)GO TO 500                                         11035000
+C       SONO FINITI I GRUPPI. L'INTEGRALE E' FINITO                     11036000
+       ALGE=E(IG)                                                       11037000
+       ALGE1=E(IG1)                                                     11038000
+       IF(PESO.LE.1.) GO TO 301                                         11039000
+       DENUM=DLOG(ALGE1/ALGE)                                           11040000
+       GO TO 35                                                         11041000
+ 301   DENUM=ALGE1-ALGE                                                 11042000
+C       USA IL PRECEDENTE A DESTRA COME PUNTO A SINISTRA SE E'          11043000
+C       PASSATO OLTRE IN ENERGIA                                        11044000
+ 35    ITERPL=KKL1                                                      11045000
+C                                                                       11046000
+C      CERCA GLI ESTREMI DI INTEGRAZIONE E DI INTERPOLAZIONE A SINISTRA 11047000
+C       SE E(IG) ED E(ITERPL) SONO EGUALI I PUNTI DI INTERP ED INTEGR   11048000
+C       COINCIDONO . SE ES(ITERPL) E' PRIMA DELL'ENERGIA E(IG)          11049000
+C       IL PUNTO DI INTERPOLAZIONE E' E(ITERPL),IL PUNTO DI INTEGRAZIONE11050000
+C       E' E(IG)                                                        11051000
+C                                                                       11052000
+       ETEGL=E(IG)                                                      11053000
+C       SE ES(ITERPL) E' DOPO E(IG) ALLORA IL PUNTO DI INTERPOLAZIONE   11054000
+C       ES(ITERPL) E' ANCHE PUNTO DI INIZIO INTEGRAZIONE                11055000
+       IF(E(IG).GT.ES(ITERPL)) ETEGL=ES(ITERPL)                         11056000
+C       FISSA PUNTO DI INTERPOLAZIONE E DI INTEGRAZIONE A DESTRA.       11057000
+       ITERPR=ITERPL+1                                                  11058000
+       IF(ITERPR.GT.NP) GO TO 550                                       11059000
+C       NON HA PIU' PUNTI DI INTERPOLAZIONE A DESTRA, L'INTEGRALE E'    11060000
+C       FINITO (E' A META' GRUPPO VA A DIVIDERE PER DENUM )             11061000
+       ETEGR=E(IG1)                                                     11062000
+       IF(ES(ITERPR).LT.ETEGR) GO TO 310                                11063000
+C       SE L'ENERGIA DI INTERPOLAZIONE E' PRIMA DELLA FINE DEL GRUPPO   11064000
+C      ALLORA SI INTEGRA FINO ALLA FINE DEL GRUPPO .                    11065000
+C       SIA IN QUESTO CASO SIA IN CASO SIANO EGUALI SI SEGNA CHE        11066000
+C       AL PROSSIMO GIRO IL PUNTO DI INTERPOLAZIONE A DESTRA            11067000
+C       DIVIENE PUNTO DI INTERPOLAZIONE A SINISTRA                      11068000
+       KKL1=ITERPR                                                      11069000
+       ETEGR=ES(ITERPR)                                                 11070000
+ 310   CONTINUE                                                         11071000
+C                                                                       11072000
+C      NOW INTEGRATION FOLLOWS:                                         11073000
+C                                                                       11074000
+C      ITERPL AND ITERPR ARE THE LEFT AND RIGHT INTERPOLATION POINTS    11075000
+C      ETEGR AND ETEGL ARE THE LEFT AND RIGHT INTEGRATION POINTS        11076000
+C                                                                       11077000
+C      UTILIZZA FORMULE DI PAG. 25-26 DEL MANUALE DI MC2-I              11078000
+C          PESO 1/E OPPURE COST (COERENTE CON LE SMOOT):PESO=2,1..      11079000
+       INTERP=KT(ITERPL)                                                11080000
+       IF(INTERP.NE.3) GO TO 600                                        11081000
+C        LEGGE SIGMA - LOG E                                            11082000
+       ALGES1=ALOG(ES(ITERPR))                                          11083000
+       ALGES=ALOG(ES(ITERPL))                                           11084000
+       AN=(SIGU(ITERPR)-SIGU(ITERPL))/(ALGES1-ALGES)                    11085000
+       ALGE1=DLOG(ETEGR)                                                11086000
+       ALGE=DLOG(ETEGL)                                                 11087000
+       IF(PESO.GT.1.) GO TO 601                                         11088000
+       SIG(IG)=SIG(IG)+AN*                                              11089000
+     1 (ETEGR*ALGE1-ETEGL*ALGE-ETEGR+ETEGL)+                            11090000
+     2 (SIGU(ITERPL)-AN*ALGES)*(ETEGR-ETEGL)                            11091000
+       GOTO400                                                          11092000
+ 601   CONTINUE                                                         11093000
+       DELTAU=DLOG(ETEGR/ETEGL)                                         11094000
+       SIG(IG)=AN/2.*(ALGE1**2-ALGE**2)+(SIGU(ITERPL)-AN*ALGES)*DELTAU+ 11095000
+     1          SIG(IG)                                                 11096000
+       GO TO 400                                                        11097000
+ 600   CONTINUE                                                         11098000
+       IF(INTERP.NE.5) GO TO 450                                        11099000
+C       LEGGE LOGE - LOG SIGMA                                          11100000
+       ALGES1=ALOG(ES(ITERPR))                                          11101000
+       ALGES=ALOG(ES(ITERPL))                                           11102000
+       AN=(ALOG(SIGU(ITERPR))-ALOG(SIGU(ITERPL)))/(ALGES1-ALGES)        11103000
+       ESA=ES(ITERPL)**AN                                               11104000
+       IF(PESO.GT.1) GO TO 402                                          11105000
+       SIG(IG)=SIG(IG)+SIGU(ITERPL)/ESA/                                11106000
+     1                   (AN+1)*(ETEGR**(AN+1)-ETEGL**(AN+1))           11107000
+       GO TO 400                                                        11108000
+ 402   CONTINUE                                                         11109000
+       EA=ETEGL**AN                                                     11110000
+       EA1=ETEGR**AN                                                    11111000
+       SIG(IG)=+SIGU(ITERPL)/ESA/AN*(EA1-EA)+                           11112004
+     1          SIG(IG)                                                 11113000
+       GO TO 400                                                        11114000
+ 450   CONTINUE                                                         11115000
+       IF(INTERP.NE.2) GO TO 700                                        11116000
+C      LEGGE LINEARE                                                    11117000
+       AN=(SIGU(ITERPR)-SIGU(ITERPL))/(ES(ITERPR)-ES(ITERPL))           11118000
+       IF(PESO.GT.1.) GO TO 403                                         11119000
+       SIG(IG)=SIG(IG)+AN/2.*(ETEGR*ETEGR-ETEGL*ETEGL)+                 11120000
+     1               (SIGU(ITERPL)-AN*ES(ITERPL))*(ETEGR-ETEGL)         11121000
+       GO TO 400                                                        11122000
+ 403   CONTINUE                                                         11123000
+       DELTAU=DLOG(ETEGR/ETEGL)                                         11124000
+       SIG(IG)=AN*(ETEGR-ETEGL)+(SIGU(ITERPL)-AN*ES(ITERPL))*DELTAU+    11125000
+     1          SIG(IG)                                                 11126000
+       GO TO 400                                                        11127000
+ 700   IF(INTERP.NE.1) GO TO 800                                        11128000
+       IF(PESO.GT.1) GO TO 710                                          11129000
+       SIG(IG)=SIGU(ITERPL)+SIG(IG)                                     11130000
+       GO TO 400                                                        11131000
+ 710   SIG(IG)=SIGU(ITERPL)*DLOG(ETEGR/ETEGL)+SIG(IG)                   11132000
+       GO TO 400                                                        11133000
+ 800   CALL ERR(8HINTS2       ,800)                                     11134000
+ 400   CONTINUE                                                         11135000
+C       NEL CASO SOTTOCONTEMPLATO NON HA FINITO IL GRUPPO               11136000
+       IF(E(IG1).LT.ETEGR) GOTO35                                       11137000
+       SIG(IG)=SIG(IG)/DENUM                                            11138000
+ 30    CONTINUE                                                         11139000
+ 500   CONTINUE                                                         11140000
+       RETURN                                                           11141000
+ 550     SIG(NGF)=SIG(NGF)/DENUM                                        11142000
+         RETURN                                                         11143000
+C        DA QUI ESCE SE FINISCE I PUNTI DI INTERPOLAZ A META DI         11144000
+C        UN GRUPPO.ALLORA DEVE ANCORA DIVIDERE PER IL DENUM             11145000
+C      RICORDARE CHE TUTTE LE SIGMA A GRUPPI VANNO DIVISE PER           11146000
+C       LO STESSO DENOM DEL GRUPPO PERCHE POI VANNO SOMMATE INSIEME     11147000
+       END                                                              11148000
+      SUBROUTINE FTABLE(NTPE,NO,NP,MA,A)                                11149000
+C       *************************************************************** 11150000
+C        THIS IS A MODIFIED  VERSION OF THE FTABLE ROUTINE OF ETOE CODE 11151000
+C       *************************************************************** 11152000
+C                                                                       11153000
+C     THIS SUBROUTINE CONTROLS THE CALCULATION AND WRITING OF FILE 2    11154000
+C     OF THE MC**2-2 LIBRARY                                            11155000
+C                                                                       11156000
+C     SUBROUTINES CALLED BY SUBROUTINE FTABLE                           11157000
+C                                                                       11158000
+C     WTABLE            CONTROLS THE CALCULATION AND WRITING OF THE     11159000
+C                       COURSE AND FINE, REAL AND IMAGINARY PARTS       11160000
+C                       OF THE W TABLE                                  11161000
+C     E3                CONTROLS THE CALCULATION AND WRITING OF THE     11162000
+C                       E3 FUNCTION                                     11163000
+C     EXPFCT            CALCULATES AN EXPONENTIAL FUNCTION FOR MC**2-2  11164000
+C                       LIBRARY FILE 2                                  11165000
+C     ESCAPE            GENERATES TABLES USED BY RABBLE TO COMPUTE      11166000
+C                       REGIONAL FIRST FLIGHT ESCAPE AND TRANSMISSION   11167000
+C                       PROBABILITIES                                   11168000
+C     FXPTBL            CALCULATE THE INTERCEPTS AND SLOPES USED        11169000
+C                       FOR THE CALCULATION OF THE EXPONENTIAL EXP(-X)  11170000
+C     ETABLE            CALCULATES THE EXPONENTIAL INTEGRALS            11171000
+C                       E3(X) AND E4(X)                                 11172000
+C                                                                       11173000
+C     DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN        11174000
+C     ORDER TO PRESERVE ACCURACY                                        11175000
+C                                                                       11176000
+      DOUBLE PRECISION BLK,EXPON                                        11177000
+C                                                                       11178000
+        COMMON/OPZIO/OPZ(4,8,10)                                        11179000
+C                                                                       11180000
+      COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,                     11181000
+     1NPASS,NPL,IPTMAX,ETOP,DELTAU                                      11182000
+C     DATA EXPON/6HEXPON /                                              11183000
+         DIMENSION A(MA)                                                11184000
+C                    DEFINE OPTIONS                                     11185000
+        STMP=OPZ(3,2,1)                                                 11186000
+        NGROUP=OPZ(2,5,4)                                               11187000
+        ETOP=OPZ(2,5,2)                                                 11188000
+        DELTAU=OPZ(2,5,3)                                               11189000
+C                        DEFAULT OPTIONS                                11190000
+        IF(NGROUP.LE.0.) NGROUP=2082                                    11191000
+        IF(DELTAU.LE.0.) DELTAU=1./120.                                 11192000
+        IF(ETOP.LE.0.) ETOP=1.4190675E+7                                11193000
+C                                                                       11194000
+        WRITE(NO,1000) NGROUP,ETOP,DELTAU                               11195000
+ 1000   FORMAT(///10X,'FILE MCC2F2 PRODUCED FOR',I5,' ENERGY GROUPS,',  11196000
+     1 'TOP ENERGY=',E12.5,' LETARGY INTERVAL:',E12.5//)                11197000
+C                                                                       11198000
+C                                                                       11199000
+C                 DEFINE POINTERS                                       11200000
+        N41=41                                                          11201000
+        N27=27                                                          11202000
+        LAX=1                                                           11203000
+        LAY=LAX+  N41*2                                                 11204000
+        LTR=LAY+  N27*2                                                 11205000
+        LTI=LTR+   N27*N41                                              11206000
+        LTRS=LTI+  N27*N41                                              11207000
+        LTIS=LTRS+ N27*N41                                              11208000
+        LEXE3=LTIS+N27*N41                                              11209000
+        LENE3=LEXE3+1001*2                                              11210000
+C                                                                       11211000
+        IF(LENE3+1001.GT.MA) CALL ERR(8HFTABLE    ,0)                   11212000
+C                                                                       11213000
+      M4=4                                                              11214000
+      NG2=NGROUP*2                                                      11215000
+C                                                                       11216000
+        REWIND NTPE                                                     11217000
+C                                                                       11218000
+C     CALCULATE AND WRITE THE W TABLE                                   11219000
+C                                                                       11220000
+      CALL WTABL(N41,N27,A(LAX),A(LAY),A(LTR),A(LTI),A(LTRS),A(LTIS))   11221000
+C                                                                       11222000
+        LTI1=LTI-1                                                      11223000
+        LTRS1=LTRS-1                                                    11224000
+        LTIS1=LTIS-1                                                    11225000
+        LEXE31=LEXE3-1                                                  11226000
+C                                                                       11227000
+        WRITE(NTPE) (A(J),J=LTR,LTI1)                                   11228000
+        WRITE(NTPE) (A(J),J=LTI,LTRS1)                                  11229000
+        WRITE(NTPE) (A(J),J=LTRS,LTIS1)                                 11230000
+        WRITE(NTPE) (A(J),J=LTIS,LEXE31)                                11231000
+        IF(STMP.LE.100) GO TO 100                                       11232000
+        WRITE(NO,2000) (A(J),J=LTR,LTI1)                                11233000
+ 2000   FORMAT(10X,' W TABLE REAL , COARSE TABULATION'/(1X,10E12.5))    11234000
+        WRITE(NO,3000) (A(J),J=LTI,LTRS1)                               11235000
+ 3000   FORMAT(10X,' W TABLE IMM. , COARSE TABULATION'/(1X,10E12.5))    11236000
+        WRITE(NO,4000) (A(J),J=LTRS,LTIS1)                              11237000
+ 4000   FORMAT(10X,' W TABLE REAL , FINE   TABULATION'/(1X,10E12.5))    11238000
+        WRITE(NO,5000) (A(J),J=LTIS,LEXE31)                             11239000
+ 5000   FORMAT(10X,' W TABLE IMM. , FINE   TABULATION'/(1X,10E12.5))    11240000
+C                                                                       11241000
+ 100    WRITE(NP,9010)                                                  11242000
+ 9010   FORMAT(' FILE MCC2F2: W TABLE PRODUCED')                        11243000
+C                                                                       11244000
+C                                                                       11245000
+C     CALCULATE AND WRITE THE EXPONENTIAL INTEGRAL                      11246000
+C                                                                       11247000
+      CALL E3(NTPE,STMP,NO,A(LEXE3),A(LENE3))                           11248000
+C                                                                       11249000
+        WRITE(NP,9020)                                                  11250000
+ 9020   FORMAT(' FILE MCC2F2: EXPONENTIAL INTEGRAL TABLE PRODUCED')     11251000
+C                                                                       11252000
+C     CALCULATE AND WRITE THE EXPONENTIAL FUNCTION                      11253000
+C                                                                       11254000
+      CALL EXPFCT(NTPE,NO,STMP,A(1))                                    11255000
+C                                                                       11256000
+        WRITE(NP,9030)                                                  11257000
+ 9030   FORMAT(' FILE MCC2F2: EXPONENTIAL FUNCTION TABLE PRODUCED')     11258000
+C                                                                       11259000
+C     CALCULATE AND WRITE THE FIRST FLIGHT ESCAPE AND TRANSMISSION      11260000
+C     PROBABILITIES                                                     11261000
+C                                                                       11262000
+        LA1=1                                                           11263000
+        LA11=LA1+181*51                                                 11264000
+        LA2=LA11+181*26                                                 11265000
+        LA3=LA2+ 181*51                                                 11266000
+        LA4=LA3+ 181                                                    11267000
+C                                                                       11268000
+        CALL ESCAPE(NTPE,NO,STMP,A(LA1),A(LA11),A(LA2),A(LA3),A(LA4))   11269000
+C                                                                       11270000
+        WRITE(NP,9040)                                                  11271000
+ 9040   FORMAT(' FILE MCC2F2: ESCAPE AND TRASMISSION TABLE PRODUCED')   11272000
+C                                                                       11273000
+C     CALCULATE AND WRITE EXPONENTIAL INTEGRALS AND FUNCTIONS           11274000
+C                                                                       11275000
+        LXYK=1                                                          11276000
+        LTAB=LXYK+2044                                                  11277000
+C                                                                       11278000
+      CALL FXPTBL(XYKZ,A(LXYK))                                         11279000
+      CALL ETABLE(NTPE,NO,STMP,XYKZ,A(LXYK),A(LTAB))                    11280000
+C                                                                       11281000
+        WRITE(NP,9050)                                                  11282000
+ 9050   FORMAT(' FILE MCC2F2: EXPONENTIAL INTEGRALS AND FUNCTIONS PRODUC11283000
+     1ED')                                                              11284000
+C                                                                       11285000
+C     REWIND DATA SET LMCCF2                                            11286000
+C                                                                       11287000
+      REWIND NTPE                                                       11288000
+      RETURN                                                            11289000
+      END                                                               11290000
+      SUBROUTINE FXPTBL(XYKZ,XYK)                                       11291000
+C     ********************************************************          11292000
+C     THIS IS A MODIFIED VERSION OF FXPTBL ROUTINE OF ETOE CODE         11293000
+C       *************************************************************** 11294000
+C                                                                       11295000
+C     SUBROUTINE FXPTBL CALCULATES THE INTERCEPTS Y(I) AND SLOPES M(I)  11296000
+C     USED FOR THE CALCULATION OF THE EXPONENTIAL EXP(-X) ACCORDING TO  11297000
+C     THE LINEAR INTERPOLATION SCHEME EXP(-X)=Y(I)+M(I)*X WHERE         11298000
+C     0.LE.I.LT.1022.  THE ARGUEMENT X MAY RANGE BETWEEN 0 AND 18,      11299000
+C     INCLUSIVE. AREAS ARE PRESERVED UNDER THE CURVE WHICH IS CONTINUOUS11300000
+C     REF. ARNE P. OLSON, A FAST EXPONENTIAL SUBROUTINE FOR CALCULATING 11301000
+C          COLLISION PROBABILITIES ON THE IBM/360, ANL-7710, P.447,     11302000
+C          JANUARY (1971).                                              11303000
+C                                                                       11304000
+C     SUBPROGRAMS CALLED BY SUBROUTINE FXPTBL                           11305000
+C                                                                       11306000
+C     DEXP              FORTRAN EXPONENTIAL FUNCTION (DOUBLE PRECISION) 11307000
+C                                                                       11308000
+C     DECLARE VARIABLES REQUIRED FOR PRECISION TO BE DOUBLE PRECISION   11309000
+C                                                                       11310000
+      DOUBLE PRECISION ELIM,XLEN,C1,C2                                  11311000
+C                                                                       11312000
+C     THE CALCULATED INTERCEPTS AND SLOPES ARE RETURNED IN COMMON BLOCK 11313000
+C     EXCOM. XYKZ AND XYK(I),I=1,1022 ARE THE 1023 VALUES OF THE Y      11314000
+C     INTERCEPTS. XYK(I),I=1023,2044 ARE THE 1022 VALUES OF THE SLOPES  11315000
+C                                                                       11316000
+      DIMENSION          XYK(2044)                                      11317000
+      ELIM=18.D0                                                        11318000
+      NPNT=1023                                                         11319000
+      NINT=NPNT-1                                                       11320000
+      XNINT=NINT                                                        11321000
+      NIN=NINT-1                                                        11322000
+      XLEN=ELIM/XNINT                                                   11323000
+      C1=DEXP(-XLEN)                                                    11324000
+      C2=2.D0*(1.D0-C1)/((1.D0+C1)*XLEN)                                11325000
+      XYKZ=C2                                                           11326000
+      DO 20 I=2,NPNT                                                    11327000
+      C2=C1*C2                                                          11328000
+      J=I-1                                                             11329000
+      JP=J+NPNT                                                         11330000
+      XYK(J)=C2                                                         11331000
+      IF (J.EQ.1) GO TO 10                                              11332000
+      XYK(JP-1)=-(XYK(J)-XYK(J-1))/XLEN                                 11333000
+      GO TO 20                                                          11334000
+   10 CONTINUE                                                          11335000
+      XYK(JP-1)=-(XYK(J)-XYKZ)/XLEN                                     11336000
+   20 CONTINUE                                                          11337000
+      DO 30 J=1,NIN                                                     11338000
+      XJ=J                                                              11339000
+      JP=J+NPNT                                                         11340000
+      XYK(J)=XYK(J)+XJ*XLEN*XYK(JP)                                     11341000
+   30 CONTINUE                                                          11342000
+      RETURN                                                            11343000
+      END                                                               11344000
+      SUBROUTINE EI(X,NX,ENX)                                           11345000
+C       ****************************************************************11346000
+C       THIS IS A MODIFIED VERSION OF THE EI ROUTINE OF ETOE CODE       11347000
+C       *************************************************************8  11348000
+C                                                                       11349000
+C     SUBROUTINE EI CALCULATES THE EXPONENTIAL INTEGRAL E3              11350000
+C                                                                       11351000
+C     X                 ARGUMENT                                        11352000
+C     NX                NUMBER OF VALUES TO BE CALCULATED               11353000
+C     ENX               COMPUTED EXPONENTIAL INTEGRAL                   11354000
+C                                                                       11355000
+C     SUBROUTINES CALLED BY SUBROUTINE EI                               11356000
+C                                                                       11357000
+C     DEXP              FORTRAN EXPONENTIAL FUNCTION (DOUBLE PRECISION) 11358000
+C     DLOG              FORTRAN NATURAL LOGARITHM FUNCTION (DOUBLE      11359000
+C                       PRECISION)                                      11360000
+C     DFLOAT            FORTRAN FUNCTION. CHANGES FIXED POINT NUMBER    11361000
+C                       INTO FLOATING POINT NUMBER (DOUBLE PRECISION)   11362000
+C                                                                       11363000
+C     DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER  11364000
+C     TO PRESERVE ACCURACY.                                             11365000
+C                                                                       11366000
+      DOUBLE PRECISION X,ENX,A,B,C                                      11367000
+      DIMENSION ENX(1)                                                  11368000
+      IF(X.GT.1.D-30) GO TO 250                                         11369000
+      ENX(1)=1.0D+30                                                    11370000
+      IF(NX.EQ.1) GO TO 150                                             11371000
+      DO 240 I=2,NX                                                     11372000
+      A=I                                                               11373000
+      ENX(I)=1.D0/(A-1.D0)                                              11374000
+  240 CONTINUE                                                          11375000
+      GO TO 150                                                         11376000
+  250 CONTINUE                                                          11377000
+      IF(X.LT.75.D0) GO TO 280                                          11378000
+      DO 270 I=1,NX                                                     11379000
+      ENX(I)=0.D0                                                       11380000
+  270 CONTINUE                                                          11381000
+      GO TO 150                                                         11382000
+  280 CONTINUE                                                          11383000
+      A=DEXP(-X)                                                        11384000
+      IF(X.GT.1.D0) GO TO 120                                           11385000
+      B=DLOG(X)                                                         11386000
+      IF(X.GT.1.D-3) GO TO 110                                          11387000
+      ENX(1)=X-B-0.577215665                                            11388000
+      GO TO 130                                                         11389000
+  110 CONTINUE                                                          11390000
+      ENX(1)=-0.577215665-B+X*(1.D0+X*(-0.25D0+X*(0.055555555+X*        11391000
+     1(-0.010416666+X*(0.16666666D-02+X*(-0.23148148D-03+X*             11392000
+     2(0.28344671D-04+X*(-0.31001984D-05+X*0.30619244D-06))))))))       11393000
+      GO TO 130                                                         11394000
+  120 CONTINUE                                                          11395000
+      B=0.23729050+X*(4.53079235+X*(5.12669020+X))                      11396000
+      C=2.47663307+X*(8.66601262+X*(6.12652717+X))                      11397000
+      ENX(1)=((A/X)*B)/C                                                11398000
+  130 CONTINUE                                                          11399000
+      IF(NX.EQ.1) GO TO 150                                             11400000
+      DO 140 I=2,NX                                                     11401000
+      B=DFLOAT(I)-1.D0                                                  11402000
+      ENX(I)=(A-X*ENX(I-1))/B                                           11403000
+  140 CONTINUE                                                          11404000
+  150 CONTINUE                                                          11405000
+      RETURN                                                            11406000
+      END                                                               11407000
+      SUBROUTINE ESCAPE(NTPE,LTPO,STMP,A1,A11,A2,A3,A4)                 11408000
+C       *************************************************************** 11409000
+C       THIS IS A MODIFIED VERSION OF THE ESCAPE ROUTINE OF ETOE CODE   11410000
+C       *************************************************************** 11411000
+C                                                                       11412000
+C                                                                       11413000
+C     PROGRAM TO GENERATE TABLES USED BY RABBLE TO COMPUTE REGIONAL     11414000
+C             FIRST FLIGHT ESCAPE AND TRANSMISSION PROBABILITIES        11415000
+C     Z = SIGMA * OUTER RADIUS                                          11416000
+C     X = (INNER RADIUS) / (OUTER RADIUS)                               11417000
+C     TABLE A1  TRANSMISSION PROBABILITY INNER TO OUTER SURFACE FOR     11418000
+C               CYLINDRICAL GEOMETRY                                    11419000
+C     TABLE A2  TRANSMISSION PROBABILITY OUTER TO OUTER SURFACE FOR     11420000
+C               CYLINDRICAL GEOMETRY                                    11421000
+C     TABLE A3  EXPONENTIAL INTEGRAL OF ORDER TWO                       11422000
+C     TABLE A4  EXPONENTIAL INTEGRAL OF ORDER FOUR                      11423000
+C                                                                       11424000
+C                        RANGE OF X              DX                     11425000
+C                        0.0-0.4                 0.01                   11426000
+C                        0.4-1.0                 0.02                   11427000
+C                        1.0-2.6                 0.04                   11428000
+C                        2.6-5.0                 0.06                   11429000
+C                        5.0-8.0                 0.10                   11430000
+C                                                                       11431000
+C     SUBROUTINES CALLED BY SUBROUTINE ESCAPE                           11432000
+C                                                                       11433000
+C     KI3               CALCULATES THIRD ORDER BICKLEY FUNCTION         11434000
+C     IBCOM#            FORTRAN I/O ROUTINE                             11435000
+C     DCOS              FORTRAN COSINE FUNCTION (DOUBLE PRECISION)      11436000
+C     DLOG              FORTRAN NATURAL LOGARITHM FUNCTION (DOUBLE      11437000
+C                       PRECISION)                                      11438000
+C     DSQRT             FORTRAN SQUARE ROOT FUNCTION(DOUBLE             11439000
+C                       PRECISION)                                      11440000
+C     DEXP              FORTRAN EXPONENTIAL FUNCTION (DOUBLE PRECISION) 11441000
+C                                                                       11442000
+      IMPLICIT REAL*8 (B-H,O-Z)                                         11443000
+      DIMENSION A1(181,51)                                              11444000
+      DIMENSION A11(181,26),A2(181,51),A3(181),A4(181)                  11445000
+C                                                                       11446000
+      DO 160 I=1,181                                                    11447000
+      IF(I.GT.41) GO TO 10                                              11448000
+      Z=I-1                                                             11449000
+      Z=.01*Z                                                           11450000
+      GO TO 50                                                          11451000
+   10 CONTINUE                                                          11452000
+      IF(I.GT.71) GO TO 20                                              11453000
+      Z=I-21                                                            11454000
+      Z=.02*Z                                                           11455000
+      GO TO 50                                                          11456000
+   20 CONTINUE                                                          11457000
+      IF(I.GT.111) GO TO 30                                             11458000
+      Z=I-46                                                            11459000
+      Z=.04*Z                                                           11460000
+      GO TO 50                                                          11461000
+   30 CONTINUE                                                          11462000
+      IF(I.GT.151) GO TO 40                                             11463000
+      Z=I-71                                                            11464000
+      Z=.2+.06*Z                                                        11465000
+      GO TO 50                                                          11466000
+   40 CONTINUE                                                          11467000
+      Z=I-101                                                           11468000
+      Z=.1*Z                                                            11469000
+   50 CONTINUE                                                          11470000
+      N=-1                                                              11471000
+      DO 120 J=1,50                                                     11472000
+      X=J-1                                                             11473000
+      X=.02*X                                                           11474000
+      X2=X*X                                                            11475000
+      Q=Z/(1.-X)                                                        11476000
+      T1=.0                                                             11477000
+      T2=.0                                                             11478000
+      DO 110 K=1,8                                                      11479000
+      DO 110 L=1,7                                                      11480000
+      W=.9817477D-02                                                    11481000
+      GO TO (80,70,90,60,90,70,90),L                                    11482000
+   60 CONTINUE                                                          11483000
+      W=W+.9817477D-02                                                  11484000
+   70 CONTINUE                                                          11485000
+      W=W+.39269908D-01                                                 11486000
+      GO TO 90                                                          11487000
+   80 CONTINUE                                                          11488000
+      IF(K.GT.L) GO TO 100                                              11489000
+   90 CONTINUE                                                          11490000
+      H=6*K+L-7                                                         11491000
+      Y=DCOS(.327249234D-01*H)                                          11492000
+      Y2=Y*Y                                                            11493000
+      FY3=2.*Q*Y                                                        11494000
+      FY2=2.*Q*DSQRT(1.-X2*(1.-Y2))                                     11495000
+      CALL KI3(Z2,FY2)                                                  11496000
+      CALL KI3(Z3,FY3)                                                  11497000
+      XT2=Y*(Z3-X*Z2)                                                   11498000
+      IF(N.EQ.1) GO TO 100                                              11499000
+      FY1=.5*FY2-Q*Y*X                                                  11500000
+      CALL KI3(Z1,FY1)                                                  11501000
+      XT1=Y*Z1                                                          11502000
+  100 CONTINUE                                                          11503000
+      T2=T2+W*XT2                                                       11504000
+      IF(N.EQ.1) GO TO 110                                              11505000
+      T1=T1+W*XT1                                                       11506000
+  110 CONTINUE                                                          11507000
+      A1(I,J)=1.2732395*T1                                              11508000
+      A2(I,J)=1.2732395*T2                                              11509000
+      N=-N                                                              11510000
+  120 CONTINUE                                                          11511000
+      EX=DEXP(-Z)                                                       11512000
+      IF(I.GT.1) GO TO 130                                              11513000
+      A1(I,51)=1.                                                       11514000
+      A3(I)=1.                                                          11515000
+      A4(I)=.3333333                                                    11516000
+      GO TO 155                                                         11517000
+  130 CONTINUE                                                          11518000
+      IF(Z.GT.1.) GO TO 140                                             11519000
+      T=-DLOG(Z)-.57721566+Z*(.99999193-Z*(.24991055-Z*(.05519968-Z*(   11520000
+     X    .00976004-.00107857*Z))))                                     11521000
+      GO TO 150                                                         11522000
+  140 CONTINUE                                                          11523000
+      T=(EX/Z)*(.2677737343+Z*(8.634760892+Z*(18.05901697+Z*(8.57332874 11524000
+     X    +Z))))/(3.958496923+Z*(21.09965308+Z*(25.63295615+Z*(         11525000
+     X    9.573322345+Z))))                                             11526000
+  150 CONTINUE                                                          11527000
+      A3(I)=EX-Z*T                                                      11528000
+      A1(I,51)=EX-Z*A3(I)                                               11529000
+      A4(I)=(EX-.5*Z*A1(I,51))/3.                                       11530000
+  155 CONTINUE                                                          11531000
+      A2(I,51)=.0                                                       11532000
+  160 CONTINUE                                                          11533000
+      K=0                                                               11534000
+      DO 170 J=1,51,2                                                   11535000
+      K=K+1                                                             11536000
+      DO 170 I=1,181                                                    11537000
+      A11(I,K)=A1(I,J)                                                  11538000
+  170 CONTINUE                                                          11539000
+        IF(STMP.LT.10.) GO TO 1111                                      11540000
+      WRITE(LTPO,1000)                                                  11541000
+      WRITE(LTPO,1500)((I,J,A11(I,J),I=1,181),J=1,26)                   11542000
+      WRITE(LTPO,1100)                                                  11543000
+      WRITE(LTPO,1500)((I,J,A2(I,J),I=1,181),J=1,51)                    11544000
+ 1111   CONTINUE                                                        11545000
+C                                                                       11546000
+C     WRITE FIRST FLIGHT TRANSMISSION PROBABILITIES                     11547000
+C                                                                       11548000
+C     NWDS=14299    NO LONGER WRITE A3 AND A4 INTO FIRST FLIGHT         11549000
+C     TRANSMISSION PROBABILITIES RECORD                                 11550000
+C     NWDS=13937                                                        11551000
+C                                                                       11552000
+      WRITE(NTPE) A11,A2                                                11553000
+C                                                                       11554000
+ 1000 FORMAT(1H1,40X,48HTRANSMISSION PROBABILITY, INNER TO OUTER SURFACE11555000
+     1 /41X,12HI,J,T1(I,J) /)                                           11556000
+ 1100 FORMAT(1H1,40X,48HTRANSMISSION PROBABILITY, OUTER TO OUTER SURFACE11557000
+     1 /41X,12HI,J,T2(I,J) /)                                           11558000
+ 1500 FORMAT(4(2X,2I6,1PE14.5))                                         11559000
+ 1600 FORMAT(6(2X,I6,1PE14.5))                                          11560000
+      RETURN                                                            11561000
+      END                                                               11562000
+      SUBROUTINE ETABLE(NTPE,LTPO,STMP,XYKZ,XYK,TAB)                    11563000
+C       *************************************************************** 11564000
+C       THIS IS A MODIFIED VERSION OF THE ETABLE ROUTINE OF ETOE CODE   11565000
+C       *************************************************************** 11566000
+C                                                                       11567000
+C     SUBROUTINE ETABLE CALCULATES THE EXPONENTIAL INTEGRALS E3(X) AND  11568000
+C     E4(X) FOR THE TABULAR RANGE 0(0.01)2(0.02)4(0.08)6.4.  THE        11569000
+C     TABULATED VALES OF E3 AND E4 ARE RETURNED IN TAB                  11570000
+C                                                                       11571000
+C     SUBPROGRAMS CALLED BY SUBROUTINE ETABLE                           11572000
+C                                                                       11573000
+C     EXP               FORTRAN EXPONENTIAL FUNCTION                    11574000
+C     ALOG              FORTRAN NATURAL LOGARITM FUNCTION               11575000
+C                                                                       11576000
+      DIMENSION TAB(662)                                                11577000
+      DIMENSION XYK(2044)                                               11578000
+C     EQUIVALENCE (E3(1),TAB(1))                                        11579000
+C                                                                       11580000
+C                                                                       11581000
+      DO 100 I=1,331                                                    11582000
+      IF(I.GT.201) GO TO 110                                            11583000
+      FI=I-1                                                            11584000
+      X=FI*0.01+1.0E-09                                                 11585000
+      GO TO 120                                                         11586000
+  110 CONTINUE                                                          11587000
+      IF(I.GT.301) GO TO 130                                            11588000
+      FI=I-101                                                          11589000
+      X=FI*0.02                                                         11590000
+      GO TO 120                                                         11591000
+  130 CONTINUE                                                          11592000
+      FI=I-251                                                          11593000
+      X=FI*0.08                                                         11594000
+  120 CONTINUE                                                          11595000
+      FAC=EXP(-X)                                                       11596000
+      IF(X.GT.1.0) GO TO 140                                            11597000
+C                                                                       11598000
+C     POLYNOMIAL EXPANSION FOR E1(X) FOR X .LE. 1.0                     11599000
+C                                                                       11600000
+      TAB(I)=-ALOG(X)-0.57721566+X*(0.99999193+X*(-0.24991055+X*        11601000
+     1        (0.05519968+X*(-0.00976004+X*0.00107857))))               11602000
+      GO TO 150                                                         11603000
+  140 CONTINUE                                                          11604000
+C                                                                       11605000
+C     POLYNOMIAL EXPANSION FOR E1(X) FOR X .GT.1.0                      11606000
+C                                                                       11607000
+      TAB(I)=(FAC/X)*(0.2677737343+X*(8.6347608925+X*(18.0590169730+X*  11608000
+     1                (8.5733287401+X))))/(3.9584969228+X*(21.099653082711609000
+     2                +X*(25.6329561486+X*(9.5733223454+X))))           11610000
+  150 CONTINUE                                                          11611000
+C                                                                       11612000
+C     E2=E2(X)=EXP(-X)-X*E1(X)                                          11613000
+C                                                                       11614000
+      E2=FAC-X*TAB(I)                                                   11615000
+C                                                                       11616000
+C     E3(X)=0.5*(EXP(-X)-X*E2(X))                                       11617000
+C                                                                       11618000
+      TAB(I)=0.5*(FAC-X*E2)                                             11619000
+C                                                                       11620000
+C     E4(X)=(EXP(-X)-X*E3(X))/3                                         11621000
+C                                                                       11622000
+      I331=I+331                                                        11623000
+      TAB(I331)=0.33333333*(FAC-X*TAB(I))                               11624000
+  100 CONTINUE                                                          11625000
+C                                                                       11626000
+C     WRITE EXPONENTIAL INTEGRALS AND FUNCTIONS                         11627000
+C                                                                       11628000
+      I1=1                                                              11629000
+      I1022=1022                                                        11630000
+      IF(STMP.LT.10.) GO TO 1111                                        11631000
+      WRITE(LTPO,1200)                                                  11632000
+      WRITE(LTPO,1000)I1,XYKZ,(I,XYK(I-I1),I=2,1023)                    11633000
+      WRITE(LTPO,1400)                                                  11634000
+      WRITE(LTPO,1000)(I,XYK(I+I1022),I=1,1022)                         11635000
+      WRITE(LTPO,1600)                                                  11636000
+      WRITE(LTPO,1000)(I,TAB(I),I=1,331)                                11637000
+      WRITE(LTPO,1800)                                                  11638000
+      WRITE(LTPO,1000)(I,TAB(I+331),I=1,331)                            11639000
+ 1111   CONTINUE                                                        11640000
+C                                                                       11641000
+      NWDS=2707                                                         11642000
+C                                                                       11643000
+      WRITE(NTPE) XYKZ,XYK,TAB                                          11644000
+C                                                                       11645000
+ 1000 FORMAT(7(I6,1PE12.5))                                             11646000
+ 1200 FORMAT(1H1,40X,38HORDINATES Y(I) FOR EXP(-X)=Y(I)-M(I)*X /        11647000
+     141X,7HI, EXPY /)                                                  11648000
+ 1400 FORMAT(1H1,40X,35HSLOPES M(I) FOR EXP(-X)=Y(I)-M(I)*X /           11649000
+     141X,7HI, EXPM /)                                                  11650000
+ 1600 FORMAT(1H1,40X,21HEXPONENTIAL INTEGRAL /41X,8HI, E3(I) /)         11651000
+ 1800 FORMAT(1H1,40X,21HEXPONENTIAL INTEGRAL /41X,8HI, E4(I) /)         11652000
+      RETURN                                                            11653000
+      END                                                               11654000
+      SUBROUTINE EXPFCT(NTPE,LTPO,STMP,EXPON)                           11655000
+C       ************************************************************    11656000
+C       THIS ROUTINE IS A MODIFIED VERSION OF ROUTINE EXPON OF ETOE CODE11657000
+C       ****************************************************************11658000
+C                                                                       11659000
+C     SUBROUTINE EXPFCT CALCULATES AN EXPONENTIAL FUNCTION              11660000
+C     FOR MC**2-2 LIBRARY FILE 2                                        11661000
+C                                                                       11662000
+C     SUBROUTINES CALLED BY SUBROUTINE EXPFCT                           11663000
+C                                                                       11664000
+C     IBCOM#            FORTRAN I/O ROUTINE                             11665000
+C     DEXP              FORTRAN EXPONENTIAL FUNCTION (DOUBLE PRECISION) 11666000
+C                                                                       11667000
+C     DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER  11668000
+C     TO PRESERVE ACCURACY                                              11669000
+C                                                                       11670000
+      DOUBLE PRECISION C,DELTAU                                         11671000
+      DIMENSION EXPON(1)                                                11672000
+      COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,                     11673000
+     1NPASS,NPL,IPTMAX,ETOP,DU                                          11674000
+C                                                                       11675000
+      DELTAU=DU                                                         11676000
+      C=DEXP(-DELTAU)                                                   11677000
+      NG21=NGROUP*2-1                                                   11678000
+      DO 100 I=1,NG21                                                   11679000
+      IF(-(1./C)**(NGROUP-I).LT.-180.D0)GOTO101                         11680000
+C       THIS ISTRUCTION GIVES DEXP UNDERFLOW                            11681000
+      EXPON(I)=(1.+(1./C)**(NGROUP-I))*DEXP(-(1./C)**(NGROUP-I))        11682000
+      GO TO 100                                                         11683000
+ 101  EXPON(I)=0.                                                       11684000
+  100 CONTINUE                                                          11685000
+      IF(STMP.GT.10.) WRITE (LTPO,1000) (I,EXPON(I),I=1,NG21)           11686000
+      NWDS=NG21                                                         11687000
+C                                                                       11688000
+      WRITE(NTPE) (EXPON(J),J=1,NWDS)                                   11689000
+C                                                                       11690000
+ 1000 FORMAT (1H1,40X,20HEXPONENTIAL FUNCTION/(5(2X,I6,1PE13.6)))       11691000
+      RETURN                                                            11692000
+      END                                                               11693000
+      SUBROUTINE E3(NTPE,STMP,LTPO,AX,EN)                               11694000
+C       ************************************************************    11695000
+C       THIS IS A MODIFIED ETOE ROUTINE                                 11696000
+C       ***********************************************************     11697000
+C                                                                       11698000
+C     SUBROUTINE E3 CONTROLS THE CALCULATION AND WRITING OF THE E3      11699000
+C     FUNCTION                                                          11700000
+C                                                                       11701000
+C     SUBROUTINES CALLED BY SUBROUTINE E3                               11702000
+C                                                                       11703000
+C     EI                CALCULATES THE EXPONENTIAL INTEGRAL E3          11704000
+C     IBCOM#            FORTRAN I/O ROUTINE                             11705000
+C                                                                       11706000
+C     DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER  11707000
+C     TO PRESERVE ACCURACY.                                             11708000
+C                                                                       11709000
+      DOUBLE PRECISION ENX,X,AX,DELX                                    11710000
+      DIMENSION AX(1001),EN(1001),ENX(3)                                11711000
+C                                                                       11712000
+      NWDS=1001                                                         11713000
+      NX=3                                                              11714000
+      AX(1)=0.0D0                                                       11715000
+      AX(2)=0.01D0                                                      11716000
+      DELX=0.01D0                                                       11717000
+      DO 100 I=3,1001                                                   11718000
+      AX(I)=AX(I-1)+DELX                                                11719000
+  100 CONTINUE                                                          11720000
+      DO 200 I=1,1001                                                   11721000
+      X=AX(I)                                                           11722000
+      CALL EI(X,NX,ENX)                                                 11723000
+      EN(I)=ENX(3)                                                      11724000
+  200 CONTINUE                                                          11725000
+C                                                                       11726000
+      WRITE(NTPE) EN                                                    11727000
+C                                                                       11728000
+        IF(STMP.LT.10) RETURN                                           11729000
+      WRITE(LTPO,1000)                                                  11730000
+      WRITE(LTPO,2000)(AX(I),EN(I),I=1,1001)                            11731000
+ 1000 FORMAT(1H1/6X,1HX,10X,5HE3(X) /)                                  11732000
+ 2000 FORMAT(1PE11.3,E15.6)                                             11733000
+      RETURN                                                            11734000
+      END                                                               11735000
+      SUBROUTINE KI3(Z,X)                                               11736000
+C       *************************************************************   11737000
+C        THIS ROUTINE HAS BEEN TAKEN FROM ETOE CODE                     11738000
+C       *************************************************************   11739000
+C                                                                       11740000
+C     SUBROUTINE KI3 CALCULATES THE THIRD ORDER BICKLEY FUNCTION        11741000
+C                                                                       11742000
+C     X                 ARGUMENT                                        11743000
+C     Z                 CALCULATED BICKLEY FUNCTION                     11744000
+C                                                                       11745000
+C     SUBROUTINES CALLED BY SUBROUTINE KI3                              11746000
+C                                                                       11747000
+C     DSQRT             FORTRAN SQUARE ROOT FUNCTION (DOUBLE PRECISION) 11748000
+C     DEXP              FORTRAN EXPONENTIAL FUNCTION (DOUBLE PRECISION) 11749000
+C                                                                       11750000
+      IMPLICIT REAL*8 (A-H,O-Z)                                         11751000
+      IF(X.GT..0) GO TO 10                                              11752000
+      Z=.785398163D-00                                                  11753000
+      GO TO 30                                                          11754000
+   10 CONTINUE                                                          11755000
+      IF(X.LT.30.) GO TO 20                                             11756000
+      IF(X.LT.160.) GO TO 15                                            11757000
+      Z=0.0                                                             11758000
+      GO TO 30                                                          11759000
+   15 CONTINUE                                                          11760000
+      Z=DEXP(-X)*DSQRT(1.570796/X)*(1.-(1.625-5.13281/X)/X)             11761000
+      GO TO 30                                                          11762000
+   20 CONTINUE                                                          11763000
+      ZD=.16852107+X*(5.05688558+X*(34.1521732+X*(79.7244201+X*(        11764000
+     X   78.79235419+X*(34.81496948+X*(6.561524932+.4172698268*X))))))  11765000
+      ZN=.13235614+X*(3.86932674+X*(23.8493885+X*(44.6280232+X*(        11766000
+     X   29.46275616+X*(7.112371513+.522969883*X)))))                   11767000
+      Z=DEXP(-X)*DSQRT(1.+X)*ZN/ZD                                      11768000
+   30 CONTINUE                                                          11769000
+      IF(Z.LT.1.D-50)Z=0.0                                              11770000
+      RETURN                                                            11771000
+      END                                                               11772000
+      SUBROUTINE P3(MA,NA,ML1,ML2,AINDX1)                               11773000
+C     ***************************************************               11774000
+C     THIS IS THE MAIN ROUTINE FOR THE PART 3 OF THE CODE.              11775000
+C     IT READS THE SECOND GROUP OF INTERMEDIATE FILES AND WRITES THE    11776000
+C     MC2-2 LIBRARY FILES MCC2F1-3-4-5-6-7-8                            11777000
+C     ****************************************************              11778000
+C                                                                       11779000
+      DIMENSION NA(MA),AINDX1(ML1,ML2)                                  11780000
+      DATA NBIANC/4H      /                                             11781000
+       COMMON/FILES/NT(4,99)                                            11782000
+       EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)),(NPP,NT(1,12))11783000
+C                                                                       11784000
+C      FILES: NT(1,.)= NUM LOGICO                                       11785000
+C             NT(2,.)= REC INIZIALE (NO MORE USED )                     11786000
+C             NT(3,.)=PRIMO REC LIBERO                                  11787000
+C             NT(4,.)=RECORD CORRENTE                                   11788000
+C                                                                       11789000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        11790000
+       EQUIVALENCE (OPZ(3,1,1),STMP)                                    11791000
+C                                                                       11792000
+C      OPZ= OPZIONI( PARTE 1,2 ECC  ; FILE MCC2F1,2 ECC ; OPZIONE)      11793000
+C                                                                       11794000
+C                                                                       11795000
+       COMMON/DIM/M(5)                                                  11796000
+      EQUIVALENCE (M(4),IND),(M(5),KMIX)                                11797000
+C      DIMENSIONI EFFETTIVE DI VARIE MATRICI : M(1)=DIM MIX SERIE 1 FILE11798000
+C                                              M(2)=DIM INDICE PRIMA SER11799000
+C                                              M(3)=DIM MIX SECONDA SERI11800000
+C                                              M(4)=DIM INDICE SECONDA S11801000
+C                                              M(5)=DIM MIX TERZA SERIE 11802000
+C                                                                       11803000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     11804000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     11805000
+C                                                                       11806000
+       COMMON /INDX/NTABL(40,200)                                       11807000
+C      INDICI PRIMA SERIE   ; ORA USATI PER TABELLA FATTA CON MIXING    11808000
+       COMMON /MIX/MIX(15,300)                                          11809003
+C       MIXING  ISOTOPI DA TRATTARE                                     11810000
+C                                                                       11811000
+C       ALTRI INDICI TAPES DI OUTPUT (INDX ED INDX1 SONO SCAMBIATI      11812000
+C       RISPETTO A P2: P2 LEGGE INDX SCRIVE INDX1,QUI LEGGE INDX1       11813000
+C                       USA INDX COME SPAZIO SCRATCH                    11814000
+      COMMON/RC1F1/ NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX,   11815000
+     1ETOP,DELTAU,MANY1,MMAT,NMAX,MAXREC                                11816000
+C        MAXREC E' UN DATO DEL RECORD 5 DI F1, MA E' MESSO IN /RC1F1/   11817000
+C        PER COMODITA'.                                                 11818000
+C                                                                       11819000
+      DIMENSION NRC1F1(13)                                              11820000
+      EQUIVALENCE (NRC1F1(1),NMAT)                                      11821000
+C                                                                       11822000
+C      SE NON ESISTE INDICE PARTE 2                                     11823000
+       IF(M(4).GT.0) GOTO 110                                           11824000
+        WRITE(NO,9000)                                                  11825000
+        WRITE(NP,9000)                                                  11826000
+ 9000   FORMAT(' WARNING! PART 3 CAN NOT FIND THE INDEX OF THE DATA!'   11827000
+     1 ,' PART 3 NOT EXECUTED')                                         11828000
+        RETURN                                                          11829000
+ 110    CONTINUE                                                        11830000
+C                       ANNULLA COMMON /RC1F1/ ED NA(MA)                11831000
+       CALL RIEMP(0.,14,NMAT)                                           11832000
+       CALL RIEMP(0.,MA,NA)                                             11833000
+C                                                                       11834000
+C      ESPANDE IN NOME BIANCO NELLA MIX A RAPPRESENTARE TUTTI I         11835000
+C      NOMI DI NUCLIDI DELL'INDICE                                      11836000
+        IF(KMIX.LE.0) GO TO 401                                         11837000
+        KKMIX=KMIX                                                      11838000
+C       .......... LOOP SULLA MIX E PER OGNI NOME BIANCO AGGIUNGE       11839000
+        DO 5 I=1,KKMIX                                                  11840000
+        IF(MIX(1,I).NE.NBIANC.OR.MIX(2,I).NE.NBIANC) GO TO5             11841000
+C       ........ LOOP SU INDICE ED AGGIUNGE TUTTI I NUCLIDI DELL'INDICE 11842000
+        KMIX1=KMIX+1                                                    11843000
+        DO 6 IJ=1,IND                                                   11844000
+        NA1=NAREAL(AINDX1(8,IJ))                                        11845000
+        NA2=NAREAL(AINDX1(9,IJ))                                        11846000
+C          ESCLUDO NUCLIDI CON NOME BIANCO (USUALLY CODE ERRORS  )      11847000
+        IF(NA1.EQ.NBIANC.AND.NA2.EQ.NBIANC) GO TO 6                     11848000
+        IF(NA1.EQ.0.AND.NA2.EQ.0) GO TO 6                               11849000
+        IF(AREAL(NA1).EQ.0.0.AND.AREAL(NA2).EQ.0.0) GO TO 6             11850000
+        IF(KMIX.LT.KMIX1) GO TO402                                      11851000
+C        ......... LOOP PER VEDERE SE LO HA GIA' MESSO                  11852000
+        DO 7 IJJ=KMIX1,KMIX                                             11853000
+        IF(NA1.EQ.MIX(1,IJJ).AND.NA2.EQ.MIX(2,IJJ)) GO TO 6             11854000
+ 7      CONTINUE                                                        11855000
+ 402    CONTINUE                                                        11856000
+C           AGGIUNGE                                                    11857000
+        KMIX=KMIX+1                                                     11858000
+        MIX(1,KMIX)=NA1                                                 11859000
+        MIX(2,KMIX)=NA2                                                 11860000
+        MIX(3,KMIX)=NA1                                                 11861000
+        MIX(4,KMIX)=NA2                                                 11862000
+        DO 8 J=5,15                                                     11863000
+ 8      MIX(J,KMIX)=MIX(J,I)                                            11864000
+ 6      CONTINUE                                                        11865000
+ 5      CONTINUE                                                        11866000
+C                                                                       11867000
+C      SE NON ESISTE MIX FA UNA MIX FITTIZIA E CONTEMPORANEAMENTE IL SUO11868000
+C      INDICE PRENDENDO TUTTI I MATERIALI DALL'INDICE DEI TAPES         11869000
+ 401   KMAT=0                                                           11870000
+       IF(M(5).GT.0) GO TO 400                                          11871000
+       N1=M(4)                                                          11872000
+       DO 42 IR=1,N1                                                    11873000
+       NA1=NAREAL(AINDX1(8,IR))                                         11874000
+       NA2=NAREAL(AINDX1(9,IR))                                         11875000
+C          ESCLUDO NUCLIDI CON NOME BIANCO (USUALLY CODE ERRORS  )      11876000
+        IF(NA1.EQ.NBIANC.AND.NA2.EQ.NBIANC) GO TO 42                    11877000
+        IF(NA1.EQ.0.AND.NA2.EQ.0) GO TO 42                              11878000
+       IF(KMAT.LE.0) GO TO 410                                          11879000
+C       GUARDA NELLA MIX GIA FATTA SE C'E'                              11880000
+       DO 45 I=1,KMAT                                                   11881000
+       IF(NA1.EQ.NA(1+(I-1)*4).AND.NA2.EQ.NA(2+(I-1)*4)) GO TO 420      11882000
+ 45    CONTINUE                                                         11883000
+C       METTE IL MATERIALE (CHE NON C'E') NELLA MIX CHE STA FACENDO     11884000
+ 410   KMAT=KMAT+1                                                      11885000
+       MIX(1,KMAT)=NA1                                                  11886000
+       MIX(3,KMAT)=NA1                                                  11887000
+       MIX(2,KMAT)=NA2                                                  11888000
+       MIX(4,KMAT)=NA2                                                  11889000
+       DO 47 II=5,15                                                    11890000
+ 47    MIX(II,KMAT)=0                                                   11891000
+       NA(1+(KMAT-1)*4)=NA1                                             11892000
+       NA(2+(KMAT-1)*4)=NA2                                             11893000
+C      POSIZIONE DEL NOME NELLA MIX (INDICE DELLA MIX)                  11894000
+       NA(3+(KMAT-1)*4)=KMAT                                            11895000
+       NA(4+(KMAT-1)*4)=1                                               11896000
+ 420   CONTINUE                                                         11897000
+ 42    CONTINUE                                                         11898000
+       KMIX=KMAT                                                        11899000
+       GOTO 430                                                         11900000
+ 400   CONTINUE                                                         11901000
+C     ORDINA MIX PER MATERIALI OUT, CREA KMAT=NUMERO MATERIALI          11902000
+C      E CREA MATRICE A(4,K)=NOME,NOME(A8IN DUE) ,INIZIO VALORE,LUNGHEZZ11903000
+          CALL ORDMD(1,K,MMIX1,KMIX,MIX,NA)                             11904000
+          KMAT=K                                                        11905000
+C                                                                       11906000
+ 430   CALL RIEMP(0,MINDX1*MINDX2,NTABL)                                11907000
+            CALL MIXSHO(3,NP)                                           11908006
+C                A PIENO FINO A: A(4*KMAT) : INDICE DI MIX              11909000
+C                                                                       11910000
+C      ORDINA AINDX1 PER MATERIALE E FA MATRICE DI INDICE DELL'INDICE   11911000
+       CALL ORDMD(8,KIND,MIND11,IND,AINDX1,NA(4*KMAT+1))                11912000
+C                                                                       11913000
+C                A PIENO FINO A: A(4*KMAT + 4*KIND): INDICE DI AIND     11914000
+C                                                                       11915000
+C        PUTATORE ALLA TAVOLA DEGLI ISOTOPI                             11916000
+        LISTAB=4*KMAT+4*KIND+1                                          11917000
+C        DIMENSIONE TAVOLA DEGLI ISOTOPI (INCREMENTATO POI MENTRE LA FA)11918000
+        NISTAB=0                                                        11919000
+        NISO=0                                                          11920000
+C                                                                       11921000
+C                                                                       11922000
+C                         RIEMPIE LA TABELLA DI CREAZIONE MCCF          11923000
+C                                                                       11924000
+C       FISSA  I NOMI DEI MATERIALI                                     11925000
+      DO 10 I=1,KMAT                                                    11926000
+      NTABL(1,I)=NA(1+(I-1)*4)                                          11927000
+      NTABL(2,I)=NA(2+(I-1)*4)                                          11928000
+ 10    CONTINUE                                                         11929000
+C                                                                       11930000
+C      ...........   LOOP SUI  MATERIALI  OUTPUT (DI INDICE DI MIX)     11931000
+          DO 15 I=1,KMAT                                                11932000
+          N1=NA(3+(I-1)*4)                                              11933000
+          N2=NA(4+(I-1)*4)+N1-1                                         11934000
+C                                                                       11935000
+C     ...  LOOP SU MIXING DEL MATERIALE QUESTIONE                       11936000
+      DO 20 IMX=N1,N2                                                   11937000
+        IF(IMX.GT.N1) GO TO 202                                         11938000
+C      CERCA NELL INDICE DELL' INDICE IL NOME OUT                       11939000
+C      INDIVIDUA I RECORD DELL'INDICE DEL MATERIALE IN CUI CERCARE      11940000
+C                                                                       11941000
+       DO 21 J=1,KIND                                                   11942000
+       KKINDN=(J-1+KMAT)*4                                              11943000
+       IF(MIX(3,IMX).EQ.NA(1+KKINDN).AND.                               11944000
+     1 MIX(4,IMX).EQ.NA(2+KKINDN))  GO TO 201                           11945000
+ 21    CONTINUE                                                         11946000
+       NI1=1                                                            11947000
+       NI2=IND                                                          11948000
+       CALL ERR(8HP3          ,201)                                     11949000
+       GO TO 20                                                         11950000
+ 201   NI1=NA(3+KKINDN)                                                 11951000
+       NI2=NA(4+KKINDN)+NI1-1                                           11952000
+C      ........................... LOOP SULL'INDICE DEL MATERIALE       11953000
+ 202  DO 30 IIND=NI1,NI2                                                11954000
+C              VEDE SE E L MCCF N                                       11955000
+      IF(AINDX1(11,IIND).NE.MIX(6,IMX).AND.MIX(6,IMX).NE.0) GO TO 30    11956000
+C              VEDE SE E IL NOME INPUT I                                11957000
+      IF(     NAREAL(AINDX1(8,IIND)).EQ.MIX(3,IMX)                      11958000
+     1   .AND.NAREAL(AINDX1(9,IIND)).EQ.MIX(4,IMX)) GO TO 203           11959000
+       CALL ERR(8HP3           ,202)                                    11960000
+       GOTO 30                                                          11961000
+C      QUI HA TROVATO NOME E NUMERO MCF (OPPURE MCF=0)                  11962000
+ 203  NPOST=0                                                           11963000
+      NMCF=AINDX1(11,IIND)                                              11964000
+C     DETERMINA PEZZO DELLA TABELLA IN CUI VA IL NUMERO DELL INDICE     11965000
+C     F1 SIGMA POTENZIALE DI BACKGROUD                                  11966000
+      IF(NMCF.EQ.1) NPOST=3                                             11967000
+C      F3 SIGMA UNRES                                                   11968000
+      IF(NMCF.EQ.3) NPOST=4                                             11969000
+C      F4 PK UNRESOLVED                                                 11970000
+      IF(NMCF.EQ.4) NPOST=5                                             11971000
+C     F7 FISSION SPECTRUM                                               11972000
+      IF(NMCF.EQ.7) NPOST=6                                             11973000
+C     F6: DISTRIBUZIONI ANEL, N,2N                                      11974000
+      IF(NMCF.EQ.6) NPOST=32                                            11975000
+C      F5 SMMOOTH PIU RESTO                                             11976000
+        IF(NMCF.EQ.8) NPOST=33                                          11977000
+C                                                                       11978000
+      IF(NMCF.NE.5) GO TO 100                                           11979000
+C      F5 SMOOTHS                                                       11980000
+C      DETERMINO IN CHE POSIZIONE DELLATAVOLA VA ( ESISTE UNA POSIZIONE 11981000
+C      PER OGNI REAZIONE CON DENTRO IL NUMERO DELL INDICE)              11982000
+C      DETERMINO IL TIPO DI DATO : SMMOOTH,UNRES,RES                    11983000
+       INCR=0                                                           11984000
+C      SMOOTHS                                                          11985000
+      IF(AINDX1(25,IIND).EQ.1.) INCR=6                                  11986000
+C      UNRESOLVED                                                       11987000
+      IF(AINDX1(25,IIND).EQ.2.) INCR=15                                 11988000
+C      RESOLVED                                                         11989000
+      IF(AINDX1(25,IIND).EQ.3.) INCR=20                                 11990000
+C      BACK DI A.A.                                                     11991000
+      IF(AINDX1(25,IIND).EQ.4.) INCR=25                                 11992000
+C      NI                                                               11993000
+       IF(AINDX1(25,IIND).EQ.5.) INCR=31                                11994000
+C                                                                       11995000
+C      A SECONDA DELLA REAZIONE FISSA IL PUNTO=0                        11996000
+      INCR1=0                                                           11997000
+C      SCARTA I CASI SENZA TIPO DI REAZIONE ,ALTRIMENTI METTO           11998000
+C      ( PER SMMOOTH,RES,UNRES) ULTERIORE INCREMENTO A SECONDA DEL      11999000
+C      TIPO DI REAZIONE : TOT,EL ,ANEL,NG,FISS, ETC                     12000000
+      IF(AINDX1(25,IIND).EQ.1.) INCR1=AINDX1(23,IIND)                   12001000
+       IF(AINDX1(25,IIND).GE.2.AND.AINDX1(25,IIND).LE.4.)               12002000
+     1 INCR1=AINDX1(26,IIND)                                            12003000
+       IF(AINDX1(26,IIND).EQ.4.) INCR1=4                                12004000
+C                                                                       12005000
+C      ANELASTICA DA SOMMARE ALLA TOTAL: POS=39=INCR1+INCR=33+6         12006000
+       IF(AINDX1(23,IIND).EQ.10.) INCR1=33                              12007000
+C       N,2N  DA SOMMARE ALLA TOTAL: POS=40=INCR1+INCR=34+6             12008000
+       IF(AINDX1(23,IIND).EQ.11.) INCR1=34                              12009000
+       IF(INCR.NE.31.AND.INCR1.LE.0) GO TO 30                           12010000
+ 200  CONTINUE                                                          12011000
+C                                                                       12012000
+C      QUI HO DETERMINATO IL POSTO IN CUI VA LA COORDINATA DELL INDICE  12013000
+C      ORA VEDO SE LA DEVO METTERE OPPURE NO, A SECONDA DI CHE MI DICE  12014000
+C      LA MIX. CALCOLA IL POSTO COLLA MIX E SE NON COINCIDONO( E LA     12015000
+C      MIX NON E' NULLA) SALTO IL MATERIALE                             12016000
+C      INCREMENTO DETERMINATO IN BASE A MIX                             12017000
+      INCRM=0                                                           12018000
+C      SMOOTH                                                           12019000
+      IF(MIX(7,IMX).EQ.1) INCRM=6                                       12020000
+C      UNRES                                                            12021000
+      IF(MIX(7,IMX).EQ.2) INCRM=15                                      12022000
+C      RESOLVED                                                         12023000
+      IF(MIX(7,IMX).EQ.3) INCRM=20                                      12024000
+C      BACK DI A.A.                                                     12025000
+      IF(MIX(7,IMX).EQ.4) INCRM=25                                      12026000
+C      NU                                                               12027000
+      IF(MIX(7,IMX).EQ.5) INCRM=31                                      12028000
+      INCRM1=MIX(8,IMX)                                                 12029000
+       IF(INCRM1.EQ.10.) INCRM1=5                                       12030000
+       IF(INCRM1.EQ.11.) INCRM1=4                                       12031000
+       IF(INCRM1.EQ.12.)INCRM1=39                                       12032000
+       IF(INCRM1.EQ.13.) INCRM1=40                                      12033000
+      IF(MIX(8,IMX).GT.11) INCRM1=0                                     12034000
+C      CONFRONTO DEI 2 INCREMENTI                                       12035000
+        IF(INCRM.NE.0.AND.INCRM.NE.INCR) GO TO 30                       12036000
+        IF(INCRM1.NE.0.AND.INCRM1.NE.INCR1) GO TO 30                    12037000
+C      ASSEGNAZIONE INDICE                                              12038000
+        NPOST=INCR+INCR1                                                12039000
+ 300  CONTINUE                                                          12040000
+ 100  CONTINUE                                                          12041000
+       IF(NPOST.LE.0)                                                   12042000
+     1CALL ERR(8HP3          ,100)                                      12043000
+C                                                                       12044000
+C        NU TABULATO VA NEL POSTO 36                                    12045000
+        IF(NPOST.EQ.31.AND.AINDX1(14,IIND).GT.0.) NPOST=36              12046000
+C        SE NU TABULATO E' NELLO STESSO RECORD DI INDICE DEL NU COEFFICI12047000
+C        ALLORA VA ANCHE NEL POSTO 31 DI NTABL                          12048000
+        IF(NPOST.EQ.36.AND.AINDX1(34,IIND).GT.0.) NTABL(31,I)=IIND      12049000
+C                                                                       12050000
+C        STRUTTURA AD ISOTOPI PER RES ED UNRES SOMMATE ALLE SMOOTHS     12051000
+C        FA TAVOLA DI ISOTOPI PER OGNUNA DELLE 10 REAZIONI RISONANTI E  12052000
+C        PER OGNI REAZIONE NISO VALORI DI IND CUI RIFERIRSI NELLE SOMME 12053000
+C               IN NTABL VIENE MESSO(CON SEGNO -) L'INDIRIZZO DELLA     12054000
+C               TAVOLA DEGLI ISOTOPI DELLA REAZIONE                     12055000
+C                                                                       12056000
+        IF(NPOST.LT.16.OR.NPOST.GT.25) GO TO 301                        12057000
+        IF(AINDX1(10,IIND).LE.1.) GO TO 301                             12058000
+C        SE NISO E' .GT.1 DEVE FARE LA TAVOLA DEI NUCLIDI               12059000
+        NISO=AINDX1(10,IIND)                                            12060000
+C                                                                       12061000
+C            ===== SI SUPPONE CHE L'ISOTOPO NUMERO 1 ESISTA SEMPRE      12062000
+C        IN CASO CONTRARIO SI DOVRANNO CERCARE GLI ALTRI, PER AVERE NISO12063000
+C        E POI CONTROLLARE CHE NISO SIA COERENTE E SPERARE DI AVERCI PRE12064000
+C        CHE QUI NON SI SA QUANTI ISOTOPI CI SONO ==============        12065000
+C                                                                       12066000
+        ISO=AINDX1(35,IIND)                                             12067000
+C        NELLA POSIZIONE NPOST DELLA TAVOLA STA CON SEGNO - L'ADDRESS   12068000
+C        DELLA REAZIONE NELLA TAVOLA DEI NUCLIDI                        12069000
+        IF(NTABL(NPOST,I).NE.0.AND.NTABL(NPOST,I).NE.(-((NPOST-16)*NISO+12070000
+     1  1+NISTAB))) CALL ERR(8HP3       ,301)                           12071000
+        NTABL(NPOST,I)=-((NPOST-16)*NISO+1+NISTAB)                      12072000
+C       IL NUMERO DELL'INDICE E' NELLA TABELLA DEGLI ISOTOPI            12073000
+        NTB=((NPOST-16)*NISO+ISO)+NISTAB+LISTAB-1                       12074000
+        IF(NA(NTB).GT.0) CALL ERR(8HP3          ,302)                   12075000
+        NA(NTB)=IIND                                                    12076000
+        GO TO 30                                                        12077000
+C                                                                       12078000
+ 301   NTABL(NPOST,I)=IIND                                              12079000
+C                                                                       12080000
+ 30   CONTINUE                                                          12081000
+ 20   CONTINUE                                                          12082000
+        NISTAB=NISTAB+NISO*10                                           12083000
+        NISO=0                                                          12084000
+ 15     CONTINUE                                                        12085000
+C                                                                       12086000
+C               ORDINAMENTO E SISTEMAZIONE TAVOLA DEI NUCLIDI           12087000
+C                                                                       12088000
+        CALL ORDTAB(MINDX1,KMAT,NTABL,ML1,ML2,AINDX1)                   12089000
+C                                                                       12090000
+C                                                                       12091000
+       WRITE(NP,1000) (I,I=3,20)                                        12092000
+       DO 58 I=1,KMAT                                                   12093000
+ 58    WRITE(NP,2000)(NTABL(J,I),J=1,20)                                12094000
+       WRITE(NP,1000) (I,I=21,40)                                       12095000
+       DO 59 I=1,KMAT                                                   12096000
+ 59    WRITE(NP,2000)NTABL(1,I),NTABL(2,I),(NTABL(J,I),J=21,MINDX1)     12097000
+        WRITE(NP,1010) NISTAB                                           12098000
+ 1010   FORMAT(' TABLE OF ISOTOPES: (TABLE LENGTH:',I10,')')            12099000
+        NK11=LISTAB+NISTAB-1                                            12100000
+        IF(NISTAB.GT.0) WRITE(NP,2010) (NA(J),J=LISTAB,NK11)            12101000
+ 2010   FORMAT(1X,10I7)                                                 12102000
+C                                                                       12103000
+ 1000  FORMAT(30X,'PART 3 - MC2-II FILES WRITENER '/                    12104000
+     120X,' TABLE OF INPUT MATERIALS:'/1X,(8X,40I5))                    12105000
+ 2000  FORMAT(1X,2A4,38I5)                                              12106000
+C                                                                       12107000
+C      FISSO CODICE DI ESISTENZA FILES                                  12108000
+      NFLG1=NEXDI1(0,3,3,MINDX1,KMAT,INDX)                              12109000
+C     NEXDI1 DIVERSO DA ZERO SE NELLE COL DA 3 A 3 NTABL(MINDX1,KM).NE.012110000
+      NFLG3=NEXDI1(0,4,4,MINDX1,KMAT,NTABL)                             12111000
+      NFLG4=NEXDI1(0,5,5,MINDX1,KMAT,NTABL)                             12112000
+      NFLG5=NEXDI1(0,7,31,MINDX1,KMAT,NTABL)                            12113000
+      NFLG6=NEXDI1(0,32,32,MINDX1,KMAT,NTABL)                           12114000
+      NFLG7=NEXDI1(0,6,6,MINDX1,KMAT,NTABL)                             12115000
+      NFLG8=NEXDI1(0,33,34,MINDX1,KMAT,NTABL)                           12116000
+C                                                                       12117000
+C     AZZERA DATI IN COMMON CHE E RECORD 1 DI F1                        12118000
+      DO 40 IKJ=1,13                                                    12119000
+ 40    NRC1F1(IKJ)=0                                                    12120000
+C                                                                       12121000
+C     FISSO SPAZIO PER FILE 1 IN A (PIENA FINO A 4*KMAT+4*KIND)+NISTAB  12122000
+C                                                                       12123000
+C     IF ISOTOPE TABLE DOESN'T EXIST NISTAB IS SET 1 TO AVOID DIM .LE.0 12124000
+        IF(NISTAB.LE.0) NISTAB=1                                        12125000
+C                                                                       12126000
+C      DETERMINO POSIZIONE INIZIALE DEI DATI PER I RECORDS DI F1        12127000
+      NREC2=1+(KMAT+KIND)*4 +NISTAB                                     12128000
+C                  SPAZIO PER RECORD 2 ( NOMI MAT)                      12129000
+      NREC3=NREC2+2*KMAT                                                12130000
+C                  RECORD 3 : A,Z,ENDF ID,EFISS,ECATT, PER OGNI MAT     12131000
+      NREC4=NREC3+5*KMAT                                                12132000
+C                  RECORD 4 : SPECIFICHE DI UNRES E RES                 12133000
+      NREC5=NREC4+5*KMAT                                                12134000
+C                  RECORD 5 : SPECIFICHE F6 ( ANEL,N2N ECC )            12135000
+C      12 PAROLE + 1 PAROLA PER GRUPPO+ 1 PAROLA (OPZ(2,5,4)=NG         12136000
+      NREC6=NREC5+12*KMAT+OPZ(2,5,4)+1                                  12137000
+C           RECORD 6 : SIGP                                             12138000
+C                                                                       12139000
+      NREC7=NREC6+KMAT                                                  12140000
+C                                                                       12141000
+      IF(NREC7.GT.MA) CALL ERR(8H P3      ,20)                          12142004
+C     IF(NREC7.GT.MA) CALL ERRP(2,MA,NREC7,0.,0.,0.)                    12143000
+C                                                                       12144000
+      IF(NFLG3.GT.0)CALL P3MCF3(KMAT,NA(NREC2),NA(NREC3),NA(NREC4),     12145000
+     1NA(NREC5),NA(NREC6),MA-NREC7,NA(NREC7),NA(1),KIND,NA(KMAT*4+1),   12146000
+     2 ML1,ML2,AINDX1)                                                  12147000
+C                                                                       12148000
+      IF(NFLG4.GT.0)CALL P3MCF4(KMAT,NA(NREC2),NA(NREC3),NA(NREC4),     12149000
+     1NA(NREC5),NA(NREC6),MA-NREC7,NA(NREC7),NA(1),KIND,NA(KMAT*4+1),   12150000
+     2 ML1,ML2,AINDX1)                                                  12151000
+C                                                                       12152000
+      IF(NFLG5.GT.0)CALL P3MCF5(KMAT,NA(NREC2),NA(NREC3),NA(NREC4),     12153000
+     1NA(NREC5),NA(NREC6),MA-NREC7,NA(NREC7),NISTAB,NA(LISTAB),         12154000
+     2 ML1,ML2,AINDX1)                                                  12155000
+C                                                                       12156000
+      IF(NFLG6.GT.0)CALL P3MCF6(KMAT,NA(NREC2),NA(NREC3),NA(NREC4),     12157000
+     1NA(NREC5),NA(NREC6),MA-NREC7,NA(NREC7),                           12158000
+     2 ML1,ML2,AINDX1)                                                  12159000
+C                                                                       12160000
+      IF(NFLG7.GT.0)CALL P3MCF7(KMAT,NA(NREC2),NA(NREC3),NA(NREC4),     12161000
+     1NA(NREC5),NA(NREC6),MA-NREC7,NA(NREC7),                           12162000
+     2 ML1,ML2,AINDX1)                                                  12163000
+C                                                                       12164000
+      IF(NFLG8.GT.0)CALL P3MCF8(KMAT,NA(NREC2),NA(NREC3),NA(NREC4),     12165000
+     1NA(NREC5),NA(NREC6),MA-NREC7,NA(NREC7),                           12166000
+     2 ML1,ML2,AINDX1)                                                  12167000
+C                                                                       12168000
+      IF(NFLG1.GT.0)CALL P3MCF1(KMAT,NA(NREC2),NA(NREC3),NA(NREC4),     12169000
+     1NA(NREC5),NA(NREC6),MA-NREC7,NA(NREC7),                           12170000
+     2 ML1,ML2,AINDX1)                                                  12171000
+      RETURN                                                            12172000
+      END                                                               12173000
+      SUBROUTINE ORDTAB(M1,KMAT,NTABL,ML1,ML2,AINDX1)                   12174000
+C     *****************************************************             12175000
+C        THIS ROUTINE ORDERS THE MATERIALS TABLE FOR DECREASING         12176000
+C        MASS NUMBERS                                                   12177000
+C     *****************************************************             12178000
+C                                                                       12179000
+        DIMENSION AINDX1(ML1,ML2),NTABL(M1,KMAT)                        12180000
+        COMMON/FILES/NT(4,99)                                           12181000
+        EQUIVALENCE (NO,NT(1,6)),(NP,NT(1,11))                          12182000
+        DIMENSION NHIDR(2)                                              12183000
+        DATA NHIDR/4HHYDR,4HGN  /                                       12184000
+C                                                                       12185000
+C          LA TABELLA VIENE ORDINATA IN BASE AD A : AINDX1(5,NTABL(3,IS)12186000
+C          VIENE ORDINATA PER NUMERI DI MASSA DECRESCENTI               12187000
+        IF(KMAT.LE.0) RETURN                                            12188000
+C                                                                       12189000
+        DO 10 IS=1,KMAT                                                 12190000
+        KAI=NTABL(3,IS)                                                 12191000
+        IF(KAI.GT.0.AND.KAI.LE.ML2) GO TO 100                           12192000
+        CALL ERR(8HORDTAB    ,100)                                      12193000
+        GO TO10                                                         12194000
+ 100    AI=AINDX1(5,KAI)                                                12195000
+        I1=IS+1                                                         12196000
+        IF(I1.GT.KMAT) GO TO 300                                        12197000
+        DO 20 IS1=I1,KMAT                                               12198000
+        KAI1=NTABL(3,IS1)                                               12199000
+        IF(KAI1.LE.0.OR.KAI.GT.ML2) GO TO 200                           12200000
+        AI1=AINDX1(5,KAI1)                                              12201000
+        IF(AI1.LE.AI) GO TO 20                                          12202000
+C         SCAMBIA                                                       12203000
+        DO 30  I=1,M1                                                   12204000
+        NDUM=NTABL(I,IS)                                                12205000
+        NTABL(I,IS)=NTABL(I,IS1)                                        12206000
+        NTABL(I,IS1)=NDUM                                               12207000
+ 30     CONTINUE                                                        12208000
+        AI=AI1                                                          12209000
+ 20     CONTINUE                                                        12210000
+ 200    CONTINUE                                                        12211000
+ 10     CONTINUE                                                        12212000
+ 300    CONTINUE                                                        12213000
+C         L'ULTIMO IL PIU LEGGERE, SE E' H LA CHIAMA                    12214000
+C         COL NOME HYDRGN                                               12215000
+C                                                                       12216000
+        IF(NTABL(3,KMAT).LE.0.OR.NTABL(3,KMAT).GT.ML2) GOTO500          12217000
+        IF(AINDX1(5,NTABL(3,KMAT)).GT.1.5) GO TO 500                    12218000
+        IF(NTABL(1,KMAT).EQ.NHIDR(1).AND.NTABL(2,KMAT).EQ.NHIDR(2))     12219000
+     1     GO TO 500                                                    12220000
+        WRITE(NP,1000) NTABL(1,KMAT),NTABL(2,KMAT),NHIDR                12221000
+        WRITE(NO,1000) NTABL(1,KMAT),NTABL(2,KMAT),NHIDR                12222000
+ 1000   FORMAT(' WARNING! NAME: ',2A4,' ,RECOGNIZED AS HYDROGEN,'       12223000
+     1         ,' HAS BEEN CHANGED INTO: ',2A4,' AS REQUIRED BY MC2-2') 12224000
+        NTABL(1,KMAT)=NHIDR(1)                                          12225000
+        NTABL(2,KMAT)=NHIDR(2)                                          12226000
+ 500    RETURN                                                          12227000
+        END                                                             12228000
+      SUBROUTINE P3MCF3(NNUC,NAME,NREC3,NREC4,NREC5,SIGP,MA,NA,         12229000
+     1 INDMIX,KIND,INDIND,ML1,ML2,AINDX1)                               12230000
+C     *******************************************************           12231000
+C      FILE MCC2F3 GENERATION:UNRESOLVED RESONANCE PARAMETERS           12232000
+C      FA FILE  MCC2F3 . IN ARGOMENTI NA: SPAZIO DI LAVORO ED I         12233000
+C                            DIVERSI RECORDS DI MCC2F1                  12234000
+C                                                                       12235000
+C      INDIND(4,KIND) = INDICE DI IND: NOME(REAL*8) INIZIO DURATA       12236000
+C      INDMIX(4,NNUC) = INDICE DI MIX:    "           "      "          12237000
+C                                                                       12238000
+C     **************************************************************    12239000
+C                                                                       12240000
+      DIMENSION NREC3(5,NNUC),NREC4(5,NNUC),NREC5(12,NNUC)              12241000
+      DIMENSION SIGP(NNUC),NA(MA),INDIND(4,KIND),INDMIX(4,NNUC)         12242000
+      DIMENSION AINDX1(ML1,ML2)                                         12243000
+      REAL*8 NAME(NNUC)                                                 12244000
+C                                                                       12245000
+        COMMON/FILES/NT(4,99)                                           12246000
+        EQUIVALENCE (NO,NT(1,6)),(NP,NT(1,11))                          12247000
+      COMMON /DIM/M(5)                                                  12248000
+      EQUIVALENCE (M(2),MIND)                                           12249000
+C      IN DIM IN M(4) STA ANCHE NNUC, LUNGHEZZA DI INDX ( NUMERO ISOTOP 12250000
+      COMMON /RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,          12251000
+     1IPTMAX,ETOP,DELTAU,MANY1,MMAT,NMAX                                12252000
+      COMMON/INDX/NTABL(40,200)                                         12253000
+       COMMON/OPZIO/ OPZ(4,8,10)                                        12254000
+       EQUIVALENCE (OPZ(3,3,1),STMP)                                    12255000
+C                                                                       12256000
+       WRITE(NP,9999)                                                   12257000
+ 9999  FORMAT(' P3MCF3 ENTERED : UNRESOLVED RESONANCE PARAMETERS')      12258000
+C                                                                       12259000
+C      COSTRUISCO SPAZI PER RECORDS 1,2,3                               12260000
+C     CON DATI DELL INDICE                                              12261000
+C                                                                       12262000
+C      GLI INDIRIZZI IN QUESTA ROUTINE, CONTRARIAMENTE ALLA             12263000
+C      PRATICA CORRENTE IN QUESTO PROGRAMMA SONO IL NUMERO              12264000
+C       DI LOCAZIONI CHE PRECEDONO IL DATO E NON, COME                  12265000
+C       USUALMENTE, LA PRIMA LOCAZIONE DEL DATO.                        12266000
+C                                                                       12267000
+      NR1=0                                                             12268000
+C      INIZIO DI RECORD 1  DI F3 ( NOMI REAL*8) I NOMI SONO INDICATI    12269000
+C                     NEL RESTO DEL PROGRAMMA COME NA(1) NON NA(NR1+1)  12270000
+       NR2=NR1+2*NNUC                                                   12271000
+C      POSIZIONAMENTO DELLE PAROLE DEL RECORD 2 ( SPECIFICHE GENERALI)  12272000
+      NR2NIS=NR2                                                        12273000
+C     .................. NOMI MATERIALI                                 12274000
+      NR2IFI=NNUC+NR2NIS                                                12275000
+C     .................. IFI ( FLAG DI FISSIONE)                        12276000
+      NR2ISK=NR2IFI+NNUC                                                12277000
+C     .................. ISK  NUMERO DEI RECORDS                        12278000
+      NR2LSM=NR2ISK+NNUC                                                12279000
+      NR2LS1=NR2LSM+1                                                   12280000
+C     .................. LST MAX ( DEL FILE MCC2F3                      12281000
+      NR2JSM=NR2LSM+1                                                   12282000
+      NR2JS1=NR2JSM+1                                                   12283000
+C     .................. JST MAX ( DI MCC2F3                            12284000
+      NR2NPM=NR2JSM+1                                                   12285000
+       NR2NP1=NR2NPM+1                                                  12286000
+C     .................. NPTMAX (DI MCC2F3                              12287000
+C          RECORD 3                                                     12288000
+      NR3=NR2NPM+1                                                      12289000
+      IF(NR3.GT.MA) CALL ERR(8HP3MCF3   ,0)                             12290000
+C                                                                       12291000
+C      IL RECORD 3 PER MCF3 VIENE QUINDI PREPARATO IN QUESTO MODO:      12292000
+C      ABUND,A,RPF,LST,NPT,RPS,NADD                                     12293000
+C       1    2  3  4    5   6   7   / POSIZ=(NUNRMT-1)(7*(NUM ISO-1)+NR312294000
+C      TUTTI I DATI DEL RECORD SONO VERI E PROPRI DATI DEL RECORD 3 DI M12295000
+C     MCF3  , SALVO NADD, CHE E IL NUMERO DEL RECORD DI INDX CHE CONTIEN12296000
+C      L ISOTOPO                                                        12297000
+C                                                                       12298000
+C      QUESTA ROBA VA MESSA QUI PER IL CALCOLO DEL MAX CHE VA IN RECORD 12299000
+C                                                                       12300000
+C      NMNG E IL NUMERO DEI GRUPPI DI QUESTI 7 VALORI CHE VIENE RIEMPITO12301000
+C                                                                       12302000
+      CALL RIEMP(0.0,MA,NA)                                             12303000
+C                                                                       12304000
+C      NUMERO DI MATERIALI UNRES PER F1:NUNRMT                          12305000
+      NUNRMT=0                                                          12306000
+      NMNG=0                                                            12307000
+C        -----------------  CALCOLO DATI DEI RECORDS 1 - 2 -------------12308000
+C                                                                       12309000
+C      .....................LOOP SU MATERIALI ( SULLE RIGHE DELLA TAVOLA12310000
+C     RIEMPIMENTO RECORD 3                                              12311000
+      DO 10 IM=1,NNUC                                                   12312000
+      NINDX=NTABL(4,IM)                                                 12313000
+      IF(NINDX.LE.0) GO TO 10                                           12314000
+C      SALTA SE NON E' UN F3 DEL MATERIALE ( ESISTE UN ALMENO DI SPECIFI12315000
+C      DI MCF3 NELLA TAVOLA OPPURE P3MCF3 NON SAREBBE STATA CHIAMATA)   12316000
+      NUNRMT=NUNRMT+1                                                   12317000
+C      NUNRMT E' UN DATO DI MCF1                                        12318000
+       NOM=NAREAL(AINDX1(8,NINDX))                                      12319000
+       NOM1=NAREAL(AINDX1(9,NINDX))                                     12320000
+C       NOM,NOM1 DEFINISCONO IL NOME DI INPUT CHE NON E' QUELLO         12321000
+C        DELLA TABELLA NTABL, CONTENENTE IL NOME DI OUTPUT.             12322000
+      NISO=AINDX1(20,NINDX)                                             12323000
+      IF(NISO.LE.0) CALL ERR(8HP3MCF3    ,1)                            12324000
+C      .................. DEFINIZIONE PARTE DI IND DEL MATERIALE        12325000
+       DO 20 I=1,KIND                                                   12326000
+       IF(NOM.EQ.INDIND(1,I).AND.NOM1.EQ.INDIND(2,I)) GO TO 151         12327000
+ 20    CONTINUE                                                         12328000
+       CALL ERR(8HP3MCF3    ,20)                                        12329000
+       GO TO 10                                                         12330000
+ 151   NI1=INDIND(3,I)                                                  12331000
+       NI2=NI1+INDIND(4,I)-1                                            12332000
+C      ............. LOOP SU INDICE DI INTERESSE                        12333000
+       DO 30 IND=NI1,NI2                                                12334000
+C     CERCO GLI ISOTOPI. QUANDO NE TROVO UNO LO METTO NEL SUO POSTO     12335000
+C       POI ALLA FINE CONTROLLO SE CI SONO TUTTI.                       12336000
+       IF(AINDX1(11,IND).NE.3.) GO TO 30                                12337000
+       NUMIS=AINDX1(34,IND)                                             12338000
+       IF(NUMIS.LE.0.OR.NUMIS.GT.NISO) GO TO 30                         12339000
+       NPOST=NR3+(NMNG+NUMIS-1)*7                                       12340000
+C       SE L'ISOTOPO E' GIA STATO PRESO NON LO RIPRENDE                 12341000
+       IF(AREAL(NA(NPOST+1)).GT.0.)GO TO 30                             12342000
+C           TROVATO L'ISOTOPO LO METTE NEL RECORD  3                    12343000
+C                                                                       12344000
+C                                                                       12345000
+C                               ABBONDANZA ISOTOPO                      12346000
+      NA(NPOST+1)=NAREAL(AINDX1(26,IND))                                12347000
+C                               A                                       12348000
+      NA(NPOST+2)=NAREAL(AINDX1(27,IND))                                12349000
+C                               RPF                                     12350000
+      NA(NPOST+3)=NAREAL(AINDX1(29,IND))                                12351000
+C                               LST                                     12352000
+      NA(NPOST+4)=AINDX1(23,IND)                                        12353000
+C                                NPT                                    12354000
+      NA(NPOST+5)=AINDX1(25,IND)                                        12355000
+C                               RPS                                     12356000
+      NA(NPOST+6)=NAREAL(AINDX1(28,IND))                                12357000
+C                                                                       12358000
+C            POSIZIONE DELL INDICE                                      12359000
+      NA(NPOST+7)=IND                                                   12360000
+C                                                                       12361000
+C     MASSIMI DI RECORD 3-4 CONTENUTI NEL RECORD 2:                     12362000
+C                                                                       12363000
+      IF(NA(NR2LS1).LT.AINDX1(23,IND))NA(NR2LS1)=AINDX1(23,IND)         12364000
+C                                                                       12365000
+      IF(NA(NR2JS1).LT.AINDX1(24,IND))NA(NR2JS1)=AINDX1(24,IND)         12366000
+C                                                                       12367000
+      IF(NA(NR2NP1).LT.AINDX1(25,IND))NA(NR2NP1)=AINDX1(25,IND)         12368000
+C                                                                       12369000
+C      METTO EMAX ED EMIN IN F1                                         12370000
+      IF(AREAL(NREC4(4,NUNRMT)).LT.AINDX1(33,IND))                      12371000
+     1                 NREC4(4,NUNRMT)=NAREAL(AINDX1(33,IND))           12372000
+C                                                                       12373000
+      IF(AREAL(NREC4(5,NUNRMT)).LE.0.)                                  12374000
+     1                 NREC4(5,NUNRMT)=NAREAL(AINDX1(32,IND))           12375000
+      IF(AREAL(NREC4(5,NUNRMT)).GT.AINDX1(32,IND))                      12376000
+     1                 NREC4(5,NUNRMT)=NAREAL(AINDX1(32,IND))           12377000
+C                                                                       12378000
+C      FINE LOOP SU IND DEL MAT PER RICERCA ISOTOPO.................... 12379000
+  30  CONTINUE                                                          12380000
+       NMNG=NMNG+NISO                                                   12381000
+C                                                                       12382000
+C       CONTROLLO DI AVER TROVATO TUTTI GLI ISOTOPI                     12383000
+       DO 31 J=1,NISO                                                   12384000
+       IF(NAREAL(NA(NPOST+J)).GT.0.) GO TO 31                           12385000
+       CALL ERR(8HP3MCF3     , 31)                                      12386000
+C      CALL ERRP(5,IM,NUNRMT,NISO,J,NA)                                 12387000
+ 31    CONTINUE                                                         12388000
+C                                                                       12389000
+C      IL SEGUITO NON DIPENDE DA ISOTOPI                                12390000
+C                                                                       12391000
+C    -------------------   DATI DEL RECORD 1 -----------------          12392000
+C                                   NOMI MATERIALI IN DOPPIA            12393000
+      NA(1+2*(NUNRMT-1))=NTABL(1,IM)                                    12394000
+      NA(2*NUNRMT)=NTABL(2,IM)                                          12395000
+C                                           NISO                        12396000
+      NA(NR2NIS+NUNRMT)=AINDX1(20,NINDX)                                12397000
+C                                           IFI                         12398000
+      NA(NR2IFI+NUNRMT)=AINDX1(21,NINDX)                                12399000
+C                                           ISK                         12400000
+      NA(NR2ISK+NUNRMT)=AINDX1(22,NINDX)+1                              12401000
+C       FINE LOOP SU TAVOLA ( NUCLIDI ) IM                              12402000
+C                                                                       12403000
+ 10   CONTINUE                                                          12404000
+       NR4=NR3+NMNG*7                                                   12405000
+C                                                                       12406000
+C      ------------------ SCRITTURE E LETTURE -----------------         12407000
+C                                                                       12408000
+C      DEFINIZIONE TAPE DI OUTPUT ( E IL NUMERO 53 DELLA TAVOLA NT)     12409000
+      NTOUT=53                                                          12410000
+      NTO=NT(1,NTOUT)                                                   12411000
+      CALL REW(NTOUT)                                                   12412000
+C     ------------------------------------ SCRIVE RECORD 1              12413000
+      N1=2*NUNRMT                                                       12414000
+      WRITE(NTO) (NA(J),J=1,N1)                                         12415000
+      WRITE(NO,1000)(NA(J),J=1,N1)                                      12416000
+      WRITE(NP,1001)(NA(J),J=1,N1)                                      12417000
+ 1000  FORMAT(///20X,'FILE MCC2F3 PRODUCED - UNRESOLVED RESONANCE',     12418000
+     1               ' PARAMETERS'                                      12419000
+     2 ///20X,' MATERIALS:'//                                           12420000
+     3 1X,(10(2X,2A4)))                                                 12421000
+ 1001  FORMAT(1X,'FILE MCC2F3 PRODUCED. MATERIALS:'                     12422000
+     1 /(10(2X,2A4)))                                                   12423000
+C                                                                       12424000
+C     ---------------------------------- SCRIVE RECORD 2                12425000
+C                                                                       12426000
+      WRITE(NTO) (NA(NR2NIS+J),J=1,NUNRMT),(NA(NR2IFI+J),J=1,NUNRMT),   12427000
+     1(NA(NR2ISK+J),J=1,NUNRMT),NA(NR2LS1),NA(NR2JS1),NA(NR2NP1)        12428000
+      IF(STMP.GT.1001) WRITE(NO,2000)                                   12429000
+     1 NUNRMT,NA(NR2LS1),NA(NR2JS1),NA(NR2NP1),                         12430000
+     2 (J,NA(NR2NIS+J),NA(NR2IFI+J),NA(NR2ISK+J),J=1,NUNRMT)            12431000
+ 2000  FORMAT(//20X,'RECORD 2:'/' UNRESOLVED RESONANCE MATERIALS:',     12432000
+     1I5,5X,' LSTMAX:',I5,5X,'JSTMAX:',I5,5X,'NPTMAX:',I5/              12433000
+     2' MATERIAL ,    NISO   ,  IFI   ,   ISK  '/1X,(1X,I6,3I10))       12434000
+C                                                                       12435000
+C     ..................... LOOP SU MATERIALI ...............           12436000
+C                                                                       12437000
+      NMNG=0                                                            12438000
+C      SONO IGRUPPI DI 7 GIA LETTI (DEI MATERIALI PRECEDENTI(TUTTI GLI I12439000
+C      ISOTOPI)                                                         12440000
+       DO 40 IM=1,NNUC                                                  12441000
+C                                                                       12442000
+      NINDX=NTABL(4,IM)                                                 12443000
+      IF(NINDX.LE.0) GO TO 40                                           12444000
+      NISO=AINDX1(20,NINDX)                                             12445000
+C                                                                       12446000
+C     ------------------------------------SCRITTURA RECORD 3            12447000
+C                                                                       12448000
+      WRITE (NTO)((NA(NR3+NMNG+7*(J-1)+JJ),J=1,NISO),JJ=1,6)            12449000
+      IF(STMP.GT.1003.)                                                 12450000
+     1WRITE(NO,3000)IM,(J,(NA(NR3+NMNG+7*(J-1)+JJ),JJ=1,6),J=1,NISO)    12451000
+ 3000 FORMAT(/20X,'RECORD 3 , MATERIAL:',I5/                            12452000
+     1' ISOTOPE , ABUND    ,      A     ,      RPF   , LST, NPT , RPS'/ 12453000
+     2 1X,(1X,I5,3X,3E12.5,2I5,E12.5))                                  12454000
+C                                                                       12455000
+C     -------------------------------  RECORD  4  E  RECORD 5           12456000
+C                                                                       12457000
+      DO 50 IS=1,NISO                                                   12458000
+C        POSIZIONE DELL'ISOTOPO NELL'INDICE                             12459000
+      NINDP=NA(NR3+NMNG+7*(IS-1)+7)                                     12460000
+C      DEFINIZIONE POSIZIONE SUL FILE                                   12461000
+      NTIN=AINDX1(15,NINDP)                                             12462000
+      NTI=NT(1,NTIN)                                                    12463000
+      NRECI=AINDX1(16,NINDP)                                            12464000
+      CALL POST1(NTIN,NRECI)                                            12465000
+C      IN QUESTO INDEX LA PARTE 2 METTE LE PAROLE DEI RECORDS 4 E 5 , CO12466000
+C      NON DEVO RICALCOLARLE CHE E COMPLICATO                           12467000
+      NL4=AINDX1(18,NINDP)                                              12468000
+      NL5=AINDX1(19,NINDP)                                              12469000
+C       USA SPAZIO A RIMASTO                                            12470000
+      IF(NR4+NL4+1.GT.MA) CALL ERR(8HP3MCF3   ,50)                      12471000
+      IF(NR4+NL5+1.GT.MA) CALL ERR(8HP3MCF3   ,51)                      12472000
+      READ(NTI)(NA(NR4+J),J=1,NL4)                                      12473000
+      WRITE(NTO)(NA(NR4+J),J=1,NL4)                                     12474000
+      READ(NTI)(NA(NR4+J),J=1,NL5)                                      12475000
+      WRITE(NTO)(NA(NR4+J),J=1,NL5)                                     12476000
+C                                                                       12477000
+      NT(4,NTI)=NT(4,NTI)+2                                             12478000
+  50  CONTINUE                                                          12479000
+      NMNG=NMNG+NISO*7                                                  12480000
+C                                                                       12481000
+C     NMNG E IL NUMERO DI GRUPPI DI 7 LETTI NELLO SPAZIO NA PER IL RECOR12482000
+C                                                                       12483000
+ 40   CONTINUE                                                          12484000
+C     ........................................... FINE LOOP MATERIALI   12485000
+                CALL REW(NTOUT)                                         12486000
+      RETURN                                                            12487000
+      END                                                               12488000
+      SUBROUTINE P3MCF4(NNUC,NAME,NREC3,NREC4,NREC5,SIGP,MA,NA,         12489000
+     1 INDMIX,KIND,INDIND,ML1,ML2,AINDX1)                               12490000
+C     ****************************************************************  12491000
+C      FILE MCC2F4 GENERATION: RESOLVED RESONANCE PARAMETERS            12492000
+C      FA FILE MCF4 IN ARGOMENTO : SPAZIO DI LAVORO NA ED I DIVERSI     12493000
+C                                  RECORDS DI MC2F1                     12494000
+C      INDIND(4,KIND)=INDICE DI INDX                                    12495000
+C      INDMIX(4,NNUC)=INDICE DI MIX                                     12496000
+C                                                                       12497000
+C     ****************************************************************  12498000
+C                                                                       12499000
+      DIMENSION SIGP(NNUC),NA(MA),INDIND(4,KIND),INDMIX(4,NNUC)         12500000
+      DIMENSION NREC3(5,1),NREC4(5,1),NREC5(12,1)                       12501000
+      DIMENSION AINDX1(ML1,ML2)                                         12502000
+      REAL*8 NAME(NNUC)                                                 12503000
+C                                                                       12504000
+        COMMON/FILES/NT(4,99)                                           12505000
+        EQUIVALENCE (NT(1,6),NO),(NP,NT(1,11))                          12506000
+      COMMON /DIM/M(5)                                                  12507000
+      EQUIVALENCE(M(2),MIND)                                            12508000
+      COMMON /INDX/NTABL(40,200)                                        12509000
+      COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX,    12510000
+     1ETOP,DELTAU,MANY1,MMAT,NMAX                                       12511000
+       COMMON/OPZIO/OPZ(4,8,10)                                         12512000
+       EQUIVALENCE (OPZ(3,4,1),STMP)                                    12513000
+C                                                                       12514000
+       WRITE(NP,9999)                                                   12515000
+ 9999  FORMAT(' P3MCF4 ENTERED :   RESOLVED RESONANCE PARAMETERS')      12516000
+C                                                                       12517000
+C                                                                       12518000
+C     COSTRUZIONE SPAZI PER I RECORDS 1,2,3                             12519000
+C                                                                       12520000
+C     INIZIO RECORD 1 DI F4                                             12521000
+      NR1=0                                                             12522000
+C     ------------------ INIZIO RECORD 2                                12523000
+       NR2=NR1+NNUC*2                                                   12524000
+C      POSIZIONE PAROLE DELE RECORD 2 (SPECIFICHE GENERALI)             12525000
+      NR2NIS=NR2                                                        12526000
+C                        NOMI MATERALI                                  12527000
+      NR2IWR=NR2NIS+NNUC                                                12528000
+C                        IWR: TIPO RAPPRESENTAZIONE                     12529000
+      NR2EL=NR2IWR+NNUC                                                 12530000
+C                        E INF                                          12531000
+      NR2EU=NR2EL+NNUC                                                  12532000
+C                        ENERGIA UPPER                                  12533000
+C     ---------------- RECORD 3 : INIZIO                                12534000
+      NR3=NR2EU+NNUC                                                    12535000
+      CALL RIEMP(0.0,MA,NA)                                             12536000
+      IF(NR3.GT.MA) CALL ERR(8HP3MCF4    ,0)                            12537000
+C      NUOVO RES PER F2                                                 12538000
+      NRESMT=0                                                          12539000
+C        RIEMPIMENTO RECORD 3 ( TUTTO COME P3MCF3 LA STRUTTURA)         12540000
+      NMNG=0                                                            12541000
+C      ...................................LOOP SU MATERIALI( RIGHE DELLA12542000
+C                                                             TAVOLA)   12543000
+      DO 10 IM=1,NNUC                                                   12544000
+      NINDX=NTABL(5,IM)                                                 12545000
+      IF(NINDX.LE.0) GO TO 10                                           12546000
+C      SALTA SE NON CI E F4 NELLA TAVOLA                                12547000
+      NRESMT=NRESMT+1                                                   12548000
+      NOM=NAREAL(AINDX1(8,NINDX))                                       12549000
+       NOM1=NAREAL(AINDX1(9,NINDX))                                     12550000
+      NISO=AINDX1(20,NINDX)                                             12551000
+      IF(NISO.LE.0) CALL ERR(8HP3MCF4    ,1)                            12552000
+C       CERCA IL NOME NELL'INDICE DELL'INDICE                           12553000
+      DO 20 I=1,KIND                                                    12554000
+      IF(NOM.EQ.INDIND(1,I).AND.NOM1.EQ.INDIND(2,I))GOTO 151            12555000
+ 20    CONTINUE                                                         12556000
+       CALL ERR(8HP3MCF4    ,20)                                        12557000
+       GO TO 10                                                         12558000
+ 151    NI1=INDIND(3,I)                                                 12559000
+       NI2=NI1+INDIND(4,I)-1                                            12560000
+C       LOOP SU INDICE DEL MATERIALE (CERCA ISOTOPI)                    12561000
+       DO 30 IND=NI1,NI2                                                12562000
+C                                                                       12563000
+       IF(AINDX1(11,IND).NE.4.) GO TO 30                                12564000
+       NUMIS=AINDX1(34,IND)                                             12565000
+       IF(NUMIS.LE.0.OR.NUMIS.GT.NISO) GO TO 30                         12566000
+       NPOST=NR3+(NMNG+NUMIS-1)*3                                       12567000
+       IF(AREAL(NA(NPOST+1)).GT.0.) GO TO 30                            12568000
+C                                                                       12569000
+C     ----------------- RIEMPIE IL RECORD 3 (PER ISOTOPO TROVATO)       12570000
+C                             ABBONDANZA                                12571000
+      NA(NPOST+1)=NAREAL(AINDX1(26,IND))                                12572000
+C                             NUMERO RISONANZE                          12573000
+      NA(NPOST+2)=AINDX1(18,IND)                                        12574000
+C                             POSIZIONE NELL INDICE                     12575000
+      NA(NPOST+3)=IND                                                   12576000
+C                              E INF                                    12577000
+      IF(NA(NR2EU+NRESMT).EQ.0) NA(NR2EL+NRESMT)=NAREAL(AINDX1(32,IND)) 12578000
+      IF(AREAL(NA(NR2EL+NRESMT)).GT.AINDX1(32,IND))                     12579000
+     1  NA(NR2EL+NRESMT)=NAREAL(AINDX1(32,IND))                         12580000
+C                              E UPPER                                  12581000
+      IF(NAREAL(NA(NR2EU+NRESMT)).LT.AINDX1(33,IND))                    12582000
+     1 NA(NR2EU+NRESMT)=NAREAL(AINDX1(33,IND))                          12583000
+ 30   CONTINUE                                                          12584000
+C       CONTROLLO DI AVER TROVATO TUTTI GLI ISOTOPI                     12585000
+       DO 31 J=1,NISO                                                   12586000
+       NPOST=NR3+(NMNG+J-1)*3+1                                         12587000
+       IF(NAREAL(NA(NPOST)).GT.0.) GO TO 31                             12588000
+       CALL ERR(8HP3MCF4     , 31)                                      12589000
+C      CALL ERRP(5,IM,NUNRMT,NISO,J,NA(NPOST))                          12590000
+ 31    CONTINUE                                                         12591000
+      NMNG=NMNG+NISO                                                    12592000
+C                                                                       12593000
+C      RIEMPIO IL RECORD 1 ( SUPPONGO  COERENZA FRA I VARI PEZZI DI NTAB12594000
+C      , CIOE STESSO NUM ISOTOPI ETC O E IL CAOS, I SINGOLI ISOTOPI DEVO12595000
+C      ESSERE COERENTI                                                  12596000
+C                                                                       12597000
+C      ------------------------------RECORD 1                           12598000
+      NA(1+2*(NRESMT-1))=NTABL(1,IM)                                    12599000
+      NA(2*NRESMT)=NTABL(2,IM)                                          12600000
+C      -----------------------------  RECORD 2                          12601000
+      NA(NR2NIS+NRESMT)=AINDX1(20,NINDX)                                12602000
+C      -------------------------------NISO                              12603000
+      NA(NR2IWR+NRESMT)=AINDX1(23,NINDX)                                12604000
+C      -------------------------------IWR : TIPO RAPPRESENTAZIONE       12605000
+C                                                                       12606000
+ 10     CONTINUE                                                        12607000
+C      FINE LOOP SU IM: TAVOLA DEI NUCLIDI ; HA FATTO RECORDS 1,2,3     12608000
+      NR4=NR3+NMNG*3                                                    12609000
+C                                                                       12610000
+C      -------------------- LEGGE RECORD RESTANTI E SCRIVE              12611000
+C      DEFINIZIONE TAPE DI OUTPUT ( E IL 54 DELLA TAVOLA NT )           12612000
+      NTOUT=54                                                          12613000
+      NTO=NT(1,NTOUT)                                                   12614000
+      CALL REW(NTOUT)                                                   12615000
+C     --------------------SCRIVE RECORD 1                               12616000
+      N1=2*NRESMT                                                       12617000
+      WRITE(NTO) (NA(J),J=1,N1)                                         12618000
+      WRITE(NO,1000)(NA(J),J=1,N1)                                      12619000
+      WRITE(NP,1001)(NA(J),J=1,N1)                                      12620000
+ 1000  FORMAT(///20X,'FILE MCC2F4 PRODUCED - RESOLVED RESONANCE',       12621000
+     1               ' PARAMETERS'                                      12622000
+     2 ///20X,'MATERIALS:'/                                             12623000
+     3 1X,(10(2X,2A4)))                                                 12624000
+ 1001  FORMAT(1X,'FILE MCC2F4 PRODUCED. MATERIALS:'                     12625000
+     1 /(10(2X,2A4)))                                                   12626000
+C                                                                       12627000
+C     --------------------- SCRIVE RECORD 2                             12628000
+      WRITE(NTO) (NA(NR2NIS+J),J=1,NRESMT),(NA(NR2IWR+J),J=1,NRESMT),   12629000
+     1(NA(NR2EL+J),J=1,NRESMT),(NA(NR2EU+J),J=1,NRESMT)                 12630000
+      IF(STMP.GT.1001) WRITE(NO,2000)                                   12631000
+     1 NRESMT,                                                          12632000
+     2 (J,NA(NR2NIS+J),NA(NR2IWR+J),NA(NR2EL+J),NA(NR2EU+J),J=1,NRESMT) 12633000
+ 2000  FORMAT(//20X,'RECORD 2:'/' RESOLVED RESONANCE MATERIALS:',I5/    12634000
+     15X,' MATERIAL ,   NISO   ,  IWR   ,   EL    ,EU'/(1X,3I10,2E12.5))12635000
+C                                                                       12636000
+C      LOOP SUI MATERIALI ............................................  12637000
+      NMNG=0                                                            12638000
+C                                                                       12639000
+C        IM CORRE SU TUTTI I NUCLIDI, IMM SUI SOLI RISONANTI.           12640000
+C                                                                       12641000
+        IMM=0                                                           12642000
+      DO 40 IM=1,NNUC                                                   12643000
+      NINDX=NTABL(5,IM)                                                 12644000
+      IF(NINDX.LE.0) GO TO 40                                           12645000
+        IMM=IMM+1                                                       12646000
+      NISO=AINDX1(20,NINDX)                                             12647000
+C     ----------------------- SCRITTURA RECORD 3                        12648000
+      WRITE(NTO) ((NA(NR3+NMNG+3*(J-1)+JJ),J=1,NISO),JJ=1,2)            12649000
+      IF(STMP.GT.1003.)                                                 12650000
+     1WRITE(NO,3000)IMM,(J,(NA(NR3+NMNG+3*(J-1)+JJ),JJ=1,2),J=1,NISO)   12651000
+ 3000 FORMAT(/20X,'RECORD 3 , MATERIAL:',I5/                            12652000
+     1' ISOTOPE ,    ABUND    ,      NRES  '/                           12653000
+     2 (1X,I5,3X,E12.5,I10))                                            12654000
+C                                                                       12655000
+C      TENGO DATI PER F1                                                12656000
+C                                                                       12657000
+C                  NUMERO  RECORDS SCRITTI PER QUESTI NUCLIDI           12658000
+      NREC4(2,IMM)=1                                                    12659000
+C                  E DELLA UPPER RESONANCE                              12660000
+      NREC4(3,IMM)=0                                                    12661000
+C      LOOP SU ISOTOPI ...........................................      12662000
+      DO 50 IS=1,NISO                                                   12663000
+C                 POSIZIONE DELL'ISOTOPO NELL'INDICE                    12664000
+      NINDP=NA(NR3+NMNG+3*(IS-1)+3)                                     12665000
+C                  E DELLA UPPER RESONANCE                              12666000
+       IF(AREAL(NREC4(3,IMM)).LT.AINDX1(22,NINDP))                      12667000
+     1 NREC4(3,IMM)=NAREAL(AINDX1(22,NINDP))                            12668000
+C                                                                       12669000
+C      DEFINIZIONE POSIZIONE SUL FILE DEL ISOTOPO                       12670000
+      NTIN=AINDX1(15,NINDP)                                             12671000
+      NTI=NT(1,NTIN)                                                    12672000
+      NRECI=AINDX1(16,NINDP)                                            12673000
+      CALL POST1(NTIN,NRECI)                                            12674000
+C                                                                       12675000
+C                                                                       12676000
+      NPK=AINDX1(19,NINDP)                                              12677000
+      IF(NPK.LT.7)CALL ERR(8HP2MCF4   , 59)                             12678000
+      NRES=AINDX1(18,NINDP)                                             12679000
+C      PER F1 NUMERO DI RISONANZE DEL NUCLIDE ( SOMMA SU ISOTOPI)       12680000
+      NREC4(1,IMM)=NREC4(1,IMM)+NRES                                    12681000
+      IF(MA.LT.NR3+NMNG*3+NRES) CALL ERR(8HP3MCF4    ,60)               12682000
+      DO 59 IPK=1,4                                                     12683000
+      READ(NTI)(NA(NR4+J),J=1,NRES)                                     12684000
+      IF(STMP.GT.1010.)WRITE(NO,4000)IPK,(NA(NR4+J),J=1,NRES)           12685000
+ 4000  FORMAT(' RESONANCE PARAMETER:',I5/(1X,10E12.5))                  12686000
+ 59   WRITE(NTO)(NA(NR4+J),J=1,NRES)                                    12687000
+       IF(AINDX1(23,NINDP).NE.1..AND.AINDX1(23,NINDP).NE.3.)GOTO 610    12688000
+       NRES2=NRES*2                                                     12689000
+C               PER BWML E BWSL  2 PARAMETRI STANNO IN UN SOLO RECORD   12690000
+      READ(NTI)(NA(NR4+J),J=1,NRES2)                                    12691000
+      WRITE(NTO)(NA(NR4+J),J=1,NRES2)                                   12692000
+      IF(STMP.LE.1010.) GO TO 610                                       12693000
+      IPK=5                                                             12694000
+      WRITE(NO,4000)IPK,(NA(NR4+J),J=1,NRES)                            12695000
+      IPK=6                                                             12696000
+      WRITE(NO,4000)IPK,(NA(NR4+NRES+J),J=1,NRES)                       12697000
+ 610   IF(AINDX1(23,NINDP).NE.2.) GO TO 620                             12698000
+      READ(NTI)(NA(NR4+J),J=1,NRES)                                     12699000
+      WRITE(NTO)(NA(NR4+J),J=1,NRES)                                    12700000
+      IPK=5                                                             12701000
+      IF(STMP.GT.1010.)WRITE(NO,4000)IPK,(NA(NR4+J),J=1,NRES)           12702000
+      READ(NTI)(NA(NR4+J),J=1,NRES)                                     12703000
+      WRITE(NTO)(NA(NR4+J),J=1,NRES)                                    12704000
+      IPK=6                                                             12705000
+      IF(STMP.GT.1010.)WRITE(NO,4000)IPK,(NA(NR4+J),J=1,NRES)           12706000
+ 620  NPK1=7                                                            12707000
+      DO 60 IPK=NPK1,NPK                                                12708000
+      READ(NTI)(NA(NR4+J),J=1,NRES)                                     12709000
+      IF(STMP.GT.1010.)WRITE(NO,4000)IPK,(NA(NR4+J),J=1,NRES)           12710000
+C        PER BWML IL PARAMETRO 16 (INTERFERENZA SIMMETRICO) NON C'E'    12711000
+        IF(AINDX1(23,NINDP).EQ.3.AND.IPK.EQ.NPK) GO TO 630              12712000
+ 60   WRITE(NTO)(NA(NR4+J),J=1,NRES)                                    12713000
+ 630    CONTINUE                                                        12714000
+      NT(4,NTIN)=NT(4,NTIN)+NPK                                         12715000
+C            PER F1 : NUMERO DI RECORDS                                 12716000
+      NREC4(2,IMM)=NREC4(2,IMM)+NPK                                     12717000
+            IF(AINDX1(23,NINDP).EQ.2.) GO TO 50                         12718000
+C                PER BW 2 PARAMETRI STANNO NELLO STESSO RECORD          12719000
+            NT(4,NTIN)=NT(4,NTIN)-1                                     12720000
+            NREC4(2,IMM)=NREC4(2,IMM)-1                                 12721000
+C                PER BWML IL PARAMETRO 16 NON VIENE SCRITTO             12722000
+            IF(AINDX1(23,NINDP).EQ.3.) NREC4(2,IMM)=NREC4(2,IMM)-1      12723000
+ 50    CONTINUE                                                         12724000
+C        ........................... FINE LOOP SU ISOTOPI               12725000
+      NMNG=NMNG+NISO*3                                                  12726000
+ 40   CONTINUE                                                          12727000
+C        ........................... FINE LOOP TAVOLA NUCLIDI           12728000
+                CALL REW(NTOUT)                                         12729000
+      RETURN                                                            12730000
+      END                                                               12731000
+      SUBROUTINE P3MCF5(NNUC,NAME,NREC3,NREC4,NREC5,SIGP,MA,A,          12732000
+     1                  MISTAB,NISTAB,ML1,ML2,AINDX1)                   12733000
+C     *****************************************************             12734000
+C                                                                       12735000
+C      FILE MCC2F5 GENERATION: SMOOTH CROSS SECTIONS                    12736000
+C                                                                       12737000
+C     ******************************************************            12738000
+C                                                                       12739000
+         DIMENSION A(MA),NREC3(5,NNUC),NREC4(5,NNUC),NREC5(12,NNUC)     12740000
+         DIMENSION SIGP(NNUC),NISTAB(MISTAB),AINDX1(ML1,ML2)            12741000
+       REAL*8 NAME(NNUC)                                                12742000
+       COMMON/FILES/NT(4,99)                                            12743000
+       EQUIVALENCE (NT(1,11),NP),(NO,NT(1,6))                           12744000
+      COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX,    12745000
+     1ETOP,DELTAU,MANY1,MMAT,NMAX                                       12746000
+       COMMON /DIMC/MMMMMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3  12747000
+     1,MMMMM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                  12748000
+C                                                                       12749000
+      COMMON/INDX/NTABL(40,200)                                         12750000
+      COMMON/DIM/M(5)                                                   12751000
+C                                                                       12752000
+       WRITE(NP,9999)                                                   12753000
+ 9999  FORMAT(' P3MCF5 ENTERED: SMOOTH CROSS SECTIONS')                 12754000
+C                                                                       12755000
+      NMAT=NNUC                                                         12756000
+      CALL CNTRI(NNUC,M(2),GROUP,20,7,30,                               12757000
+     1           ML1,ML2,AINDX1,MINDX1,MINDX2,NTABL)                    12758000
+      CALL CNTRI(NNUC,M(2),GROUP,20,39,40,                              12759000
+     1           ML1,ML2,AINDX1,MINDX1,MINDX2,NTABL)                    12760000
+      NGROUP=GROUP                                                      12761000
+      NG=NGROUP                                                         12762000
+      CALL CNTRI(NNUC,M(2),ETOP,21,7,30,                                12763000
+     1           ML1,ML2,AINDX1,MINDX1,MINDX2,NTABL)                    12764000
+      CALL CNTRI(NNUC,M(2),DELTAU,22,39,40,                             12765000
+     1           ML1,ML2,AINDX1,MINDX1,MINDX2,NTABL)                    12766000
+      CALL CNTRI(NNUC,M(2),ETOP,21,7,30,                                12767000
+     1           ML1,ML2,AINDX1,MINDX1,MINDX2,NTABL)                    12768000
+      CALL CNTRI(NNUC,M(2),DELTAU,22,39,40,                             12769000
+     1           ML1,ML2,AINDX1,MINDX1,MINDX2,NTABL)                    12770000
+      N1=1                                                              12771000
+      N9=11                                                             12772000
+      N2=N1+NGROUP*N9+1                                                 12773000
+      MMA=MA-N2                                                         12774000
+      IF(MMA.LT.NG) CALL ERR(8HP3MCF5    ,0)                            12775000
+      CALL P3F51(NNUC,NAME,NREC3,NREC4,NREC5,SIGP,NG,N9,A(N1),MMA,A(N2),12776000
+     1 MISTAB,NISTAB,ML1,ML2,AINDX1)                                    12777000
+      RETURN                                                            12778000
+      END                                                               12779000
+      SUBROUTINE P3F51(NNUC,NAME,NREC3,NREC4,NREC5,SIGP,NG,N9,SIG,MA,A, 12780000
+     1 MISTAB,NISTAB,ML1,ML2,AINDX1)                                    12781000
+C     ***************************************************************** 12782000
+C      CONTINUATION OF P3MCF5 ROUTINE                                   12783000
+C      NUC E'=NMAT  , NGROUP=NG, C'E' SOVRABBONDANZA DI PARAMETRI       12784000
+C      QUI LA PARTE 3 SOMMA SOLO, IN BASE AD INDICI, PER FARE TOTAL     12785000
+C      ECC. NELL'INPUT ALLA  PARTE 3 ( MIXING) SI DEVE DECIDERE         12786000
+C      COSA FARE                                                        12787000
+C                                                                       12788000
+C     ******************************************************************12789000
+C                                                                       12790000
+       DIMENSION A (MA), SIG(N9,NG),NISTAB(MISTAB)                      12791000
+      DIMENSION NAME(2,NNUC),AINDX1(ML1,ML2)                            12792000
+       DIMENSION SIGP(NNUC)                                             12793000
+      DIMENSION NREC3(5,NNUC),NREC4(5,NNUC),NREC5(12,NNUC)              12794000
+      COMMON/FILES/NT(4,99)                                             12795000
+                EQUIVALENCE(OPZ(3,5,9),GRAFIC),(NP,NT(1,11))            12796000
+      COMMON/OPZIO/OPZ(4,8,10)                                          12797000
+       EQUIVALENCE(OPZ(3,5,1),STMP),(OPZ(3,5,2),TOT),(NO,NT(1,6))       12798000
+      COMMON/INDX/NTABL(40,200)                                         12799000
+      COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX,ETOP12800000
+     1,DELTAU,MANY1,MMAT,NMAX                                           12801000
+      COMMON/DIM/M(5)                                                   12802000
+      EQUIVALENCE(M(2),MMIND)                                           12803000
+      DIMENSION NSUMT(40)                                               12804000
+       REAL*8 NOME(11)                                                  12805000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     12806000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     12807000
+C                                                                       12808000
+       DATA NSUMT/0,0,0,0,0, 0,1,2,3,4,5,6,7,8,0,                       12809000
+     1    1,2,3,1,0,  1,2,3,1,0,  1,2,3,1,0, 0,0,0,0,0, 0,0,0,10,11/    12810000
+C       NSUMT SONO I POSTI IN CUI VANNO SOMMATE LE SEZIONE              12811000
+C       D'URTO CUI LA TAVOLA FA RIFERIMENTO                             12812000
+C       LO SCATT POTENZIALE DEVE ESSERE NELLA 1:ELASTICA                12813000
+C       LA TOTALE NON VIENE USATA , MA E' RICALCOLATA.                  12814000
+C                                                                       12815000
+       DATA NOME/8HELASTIC ,8HFISSION ,8HCAPTURE  ,8H N,P    ,          12816000
+     1 8H N,D     ,8H N,H3      ,8H N,HE3     ,8H N,ALFA     ,          12817000
+     2 8H TOTAL   ,8H N,2N      ,8H ANEL      /                         12818000
+      DIMENSION NRC(9),ANU(4)                                           12819000
+C                                                                       12820000
+C      DEFINIZIONE FILE DI OUTPUT                                       12821000
+      NTOUT=55                                                          12822000
+      NTO=NT(1,NTOUT)                                                   12823000
+      CALL REW(NTOUT)                                                   12824000
+      WRITE(NO,1010)                                                    12825000
+ 1010   FORMAT(//20X,' FILE MCC2F5 PRODUCED - SMOOTH CROSS SECTIONS')   12826000
+C        LOOP SU ISOTOPI ........................................       12827000
+       DO 10 I=1,NNUC                                                   12828000
+C      RECORD 1                                                         12829000
+      NAM1=NTABL(1,I)                                                   12830000
+      NAM2=NTABL(2,I)                                                   12831000
+C      CREA RECORD 2 DI F1                                              12832000
+      NAME(1,I)=NAM1                                                    12833000
+      NAME(2,I)=NAM2                                                    12834000
+      WRITE(NP,9000) NAM1,NAM2                                          12835000
+ 9000   FORMAT(1X,2A4)                                                  12836000
+C      RECORD 2  DI F5  INIZIALIZZAZIONE                                12837000
+      NREAC=0                                                           12838000
+      DO 15 IJ=1,9                                                      12839000
+ 15   NRC(IJ)=0                                                         12840000
+      DO 16 IJ=1,4                                                      12841000
+ 16   ANU(IJ)=0.                                                        12842000
+       CALL RIEMP(0.0,NG*N9,SIG)                                        12843000
+C                                                                       12844000
+C      RICERCA DEL NU                                                   12845000
+      IND=NTABL(31,I)                                                   12846000
+      IF(IND.LE.0) GO TO100                                             12847000
+C      NU ( E' IN INDICE                                                12848000
+      DO 20 IJ=1,4                                                      12849000
+ 20   ANU(IJ)=AINDX1(33+IJ,IND)                                         12850000
+ 100  CONTINUE                                                          12851000
+C      REAZIONI VARIE                                                   12852000
+      DO 30 IC=7,40                                                     12853000
+      IND=NTABL(IC,I)                                                   12854000
+      IF(IND.EQ.0) GO TO  30                                            12855000
+C        NSUMT E' PER OGNI POSTO DELLA TAVOLA IL POSTO IN CUI VA        12856000
+C        SOMMATA LA SIGMA CONTENUTA, NELL'ORDINE:                       12857000
+C        NEL,NF,NGAMMA,NP,ND,NH3,NHE3,NALFA,TOT                         12858000
+C      PER TUTTI I TIPI DI ROBA CHE POI VA MESSA IN F5 (DA UNRES,RES ECC12859000
+C                                                                       12860000
+        INDNN=IND                                                       12861000
+        ABUND=1.                                                        12862000
+C       ..........LOOP SU ISOTOPI DEL NUCLIDE  ........................ 12863000
+        IF(IND.GT.0) GO TO 301                                          12864000
+C        ========= IL PRIMO NUCLIDE CI DEVE SEMPRE ESSERE,PERCHE' DA LUI12865000
+C        SI RICAVA NISO =============                                   12866000
+        IF(-IND.GT.MISTAB) CALL ERR(8HP3F51     ,101)                   12867000
+        IND1N=NISTAB(-IND)                                              12868000
+        IF(IND1N.LE.0.OR.IND1N.GT.ML2) CALL ERR(8HP3F51     ,100)       12869000
+        NISO=AINDX1(10,IND1N)                                           12870000
+        IF(NISO.LE.0) CALL ERR(8HP3F51        ,35)                      12871000
+C                                                                       12872000
+        IIJJ=-IND-1                                                     12873000
+ 35     IIJJ=IIJJ+1                                                     12874000
+        IF(IIJJ.GT.NISO-IND-1) GO TO 305                                12875000
+        INDNN=NISTAB(IIJJ)                                              12876000
+        IF(INDNN.LE.0) GO TO 300                                        12877000
+        ABUND=AINDX1(36,INDNN)                                          12878000
+        ISO=AINDX1(35,INDNN)                                            12879000
+                 NREC=NSUMT(IC)                                         12879105
+                 IF(NREC.LE.0) GOTO 30                                  12879205
+        WRITE(NP,9010) ISO,ABUND,NISO,INDNN                             12880000
+ 9010   FORMAT(' ISOTOPE:',I4,' ABUNDANCE:',E12.5,' NISO:',I4,' INDEX:',12881000
+     1  I10 )                                                           12882000
+ 301             NREC=NSUMT(IC)                                         12885005
+                 IF(NREC.LE.0) GO TO 30                                 12886005
+      NLAST=AINDX1(24,INDNN)                                            12887000
+      NFIRST=AINDX1(28,INDNN)                                           12888000
+      IF(NFIRST.GT.NG.OR.NFIRST.LE.0) CALL ERR(8HP3F51    ,301)         12889000
+        IF(NLAST.GT.NG.OR.NLAST.LE.0) CALL ERR(8HP3F51    ,302)         12890000
+        IF(NFIRST.GT.NLAST) CALL ERR(8HP3F51    ,303)                   12891000
+C      TAPE DI INPUT                                                    12892000
+      NTIN=AINDX1(15,INDNN)                                             12893000
+      NTI=NT(1,NTIN)                                                    12894000
+      NRECI=AINDX1(16,INDNN)                                            12895000
+      CALL POST1(NTIN,NRECI)                                            12896000
+C      RECORD 2 AGGIUNGO GLI INDICI DI ESISTENZA (CONTENGONO IL NUMERO  12897000
+C      DI GRUPPI PIENI )                                                12898000
+C                                                                       12899000
+      IF(NRC(NREC).LT.NLAST) NRC(NREC)=NLAST                            12900000
+      READ(NTI) (A(J),J=NFIRST,NLAST)                                   12901000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           12902000
+      DO 40 IJ=NFIRST,NLAST                                             12903000
+      SIG(NREC,IJ)=SIG(NREC,IJ)+A(IJ)*ABUND                             12904000
+ 40   CONTINUE                                                          12905000
+ 300  CONTINUE                                                          12906000
+C                FINE DEL LOOP SU ISOTOPI ...................           12907000
+        IF(IND.LT.0) GO TO 35                                           12908000
+  305   WRITE(NP,9020) NOME(NSUMT(IC))                                  12909000
+ 9020   FORMAT(' READ DATA FOR REACTION : ',A8)                         12910000
+C                FINE DEL LOOP SU REAZIONI...................           12911000
+ 30   CONTINUE                                                          12912000
+C          SOMMANDO CREO LA TOTALE. NELLE RISONANZE RISOLTE UNA         12913000
+C            TOTALE NON VIENE PRODOTTA, INDI DEVO SOMMARE TUTTO         12914000
+C            E NON POSSO USARE LA TOTALE SOMMA DELLE TOTALI             12915000
+C            DELLA PARTE 2.                                             12916000
+       IF(TOT.GT.0) GO TO 450                                           12917000
+       WRITE(NP,9025)                                                   12918000
+ 9025  FORMAT(' TOTAL CROSS SECTION GENERATED')                         12919000
+       DO 43 J=1,NG                                                     12920000
+ 43    SIG(9,J)=0.0                                                     12921000
+C                                                                       12922000
+       DO 45 II=1,8                                                     12923000
+         IF(NRC(9).LT.NRC(II)) NRC(9)=NRC(II)                           12924000
+       DO 45 J=1,NG                                                     12925000
+ 45    SIG(9,J)=SIG(9,J)+SIG(II,J)                                      12926000
+       DO 46 J=1,NG                                                     12927000
+ 46    SIG(9,J)=SIG(9,J)+SIG(10,J)+SIG(11,J)                            12928000
+ 450   CONTINUE                                                         12929000
+C                                                                       12930000
+C      ORA HA FATTO LE SIGMA E IL RECORD 2 FA N REAZIONI DEL RECORD 2   12931000
+      NREAC=0                                                           12932000
+      DO 50 IJ=1,9                                                      12933000
+      IF(NRC(IJ).GT.0) NREAC=NREAC+1                                    12934000
+ 50    CONTINUE                                                         12935000
+C      SCRITTURA DELL' ISOTOPO                                          12936000
+C      PRIMO RECORD: NOME ISOTOPO                                       12937000
+      WRITE(NTO) NAM1,NAM2                                              12938000
+      WRITE(NO,1000) NAM1,NAM2                                          12939000
+ 1000  FORMAT(//20X,' MULTIGROUP DATA PRODUCED FOR',                    12940000
+     1 ' MATERIAL : ',2A4)                                              12941000
+C      SECONDO RECORD                                                   12942000
+        WRITE(NP,9030) NAM1,NAM2,NREAC,(NRC(J),J=1,9)                   12943000
+ 9030   FORMAT(1X,2A4,' , ',I4,' REACTIONS, FLAGS:',9I5)                12944000
+      WRITE(NTO) NREAC,(NRC(J),J=1,9),(ANU(J),J=1,4)                    12945000
+      IF(STMP.GT.101.) WRITE(NO,2000) NREAC,(NRC(J),J=1,9),             12946000
+     1 (ANU(J),J=1,4)                                                   12947000
+ 2000 FORMAT(1X,' CROSS SECTION FLAGS:',10I10/' NU COEFF:',4E12.5)      12948000
+C      ALTRI RECORDS SCRITTI A SECONDA DEI FLAG DI ESISTENZA            12949000
+       DO 60 IJ=1,9                                                     12950000
+      NLAST=NRC(IJ)                                                     12951000
+       IF(NLAST.LE.0) GO TO 600                                         12952000
+      WRITE(NTO) ( SIG(IJ,J),J=1,NLAST)                                 12953000
+        WRITE(NP,9040) NOME(IJ),NLAST                                   12954000
+ 9040   FORMAT(1X,' REACTION:',A8,' LAST GROUP:',I10)                   12955000
+C           OUTPUT PER GRAFICO                                          12956000
+            IF(GRAFIC.LE.0.) GO TO 550                                  12957000
+            NTGRF=GRAFIC                                                12958000
+            NTGR=NT(1,NTGRF)                                            12959000
+            NWDS=NLAST+10                                               12960000
+            NDUM=0                                                      12961000
+            NDUM1=1                                                     12962000
+            WRITE(NTGR)NWDS,NAME(1,I),NAME(2,I),NOME(IJ),IJ,I,NDUM,NDUM,12963000
+     1      NDUM1,NLAST,(SIG(IJ,J),J=1,NLAST)                           12964000
+ 550   IF(STMP.GT.110.) WRITE(NO,3000)NOME(IJ),(SIG(IJ,J),J=1,NLAST)    12965000
+ 3000  FORMAT(1X,A8,' CROSS SECTION :'/(1X,10E12.5))                    12966000
+ 600   CONTINUE                                                         12967000
+ 60    CONTINUE                                                         12968000
+ 10    CONTINUE                                                         12969000
+C      FINE DEI LOOP SUI MATERIALI .....................................12970000
+                 CALL REW(NTOUT)                                        12971000
+       RETURN                                                           12972000
+       END                                                              12973000
+      SUBROUTINE P3MCF6(NNUC,NAME,NREC3,NREC4,NREC5,SIGP,MA,A,ML1,ML2,  12974000
+     1                                                           AINDX1)12975000
+C     ************************************************************      12976000
+C                                                                       12977000
+C      FILE MCC2F6 GENERATION: ANELASTIC AND N,2N SECONDARY ENERGY      12978000
+C                                                       DISTRIBUTION    12979000
+C     *******************************************************           12980000
+C                                                                       12981000
+C      IN ARGOMENTO: NNUC=NUMERO NUCLIDI ( DI MCC2F1)                   12982000
+C      NAME(NNUC) NOME NUCLIDE ( RECORD 1 DI MCC2F1) REAL*8             12983000
+C      NREC3        RECORD 3 DI MCC2F1                                  12984000
+C      NREC4               4                                            12985000
+C      NREC5               5                                            12986000
+C      SIGP        RECORD   DI MCC2F1                                   12987000
+C      A(MA)      SPAZIO DI LAVORO                                      12988000
+C                                                                       12989000
+C     ******************************************************            12990000
+C                                                                       12991000
+       DIMENSION NREC5(12,NNUC)                                         12992000
+C                              E' IL RECORD 5 DI MCC2F1 FATTO COSI':    12993000
+C       NOME,NOME,NINEL,N2NTH,NLEVLS,N2NLEV,MAX1,MAX2,MAX3,MAX4,        12994000
+C       NSINK1,NSINK2,NUMREC(1 PAROLA PER GRUPPO),MAXREC                12995000
+C        MAXREC E' VERAMENTE MESSO NON IN ARRAY NREC5, MA IN /RC1F1/    12996000
+C                                                                       12997000
+C                                                                       12998000
+         DIMENSION A(MA),AINDX1(ML1,ML2)                                12999000
+       COMMON/FILES/NT(4,99)                                            13000000
+       EQUIVALENCE (NO,NT(1,6)),(NP,NT(1,11))                           13001000
+      COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX,    13002000
+     1ETOP,DELTAU,MANY1,MMAT,NMAX,MAXREC                                13003000
+      COMMON/INDX/NTABL(40,200)                                         13004000
+      COMMON/DIM/M(5)                                                   13005000
+       COMMON /OPZIO/ OPZ(4,8,10)                                       13006000
+       EQUIVALENCE (STMP,OPZ(3,6,1))                                    13007000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     13008000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     13009000
+C                                                                       13010000
+       WRITE(NP,9999)                                                   13011000
+ 9999  FORMAT(' P3MCF6 ENTERED: ENERGY DISTRIBUTIONS')                  13012000
+C                                                                       13013000
+C                                                                       13014000
+      NG=OPZ(2,5,4)                                                     13015000
+C                                                                       13016000
+C      CALCOLO NUMERO NUCLIDI DI F6 PER RECORD 1 DI F1                  13017000
+C                  DEFINIZIONE FILE DI OUTPUT                           13018000
+      NTOUT=56                                                          13019000
+      NTO=NT(1,56)                                                      13020000
+      CALL REW(NTOUT)                                                   13021000
+C         INIZIALIZZA RECORD 1 DI F1 (MAX NUM GRUPPI IN F6)             13022000
+      NMAX=0                                                            13023000
+      MAXREC=0                                                          13024000
+C      INIZIALIZZA NUMREC(NMAX); IL MAX DI NMAX E' NG                   13025000
+      CALL RIEMP(0.,NG,NREC5(12+1,NNUC))                                13026000
+      LIMIT=0                                                           13027000
+C                                                                       13028000
+C                            LETTURA RECORD 1                           13029000
+C                                                                       13030000
+      INUC=0                                                            13031000
+C      MAX LUNGHEZZA RECORD PER UN SINGOLO NUCLIDE                      13032000
+       MAXRCM=0                                                         13033000
+C      ................... LOOP SUI NUCLIDI DELLA TAVOLA                13034000
+      DO 10 IS=1,NNUC                                                   13035000
+      IND=NTABL(32,IS)                                                  13036000
+      IF(IND.LE.0) GO TO 10                                             13037000
+      INUC=INUC+1                                                       13038000
+C      POSIZIONAMENTO FILE DI INPUT                                     13039000
+      NTIN=AINDX1(15,IND)                                               13040000
+      NTI=NT(1,NTIN)                                                    13041000
+      NRECI=AINDX1(16,IND)                                              13042000
+      CALL POST1(NTIN,NRECI+1)                                          13043000
+C     NON LEGGE  IL RECORD 5 DI F1 LO PRENDE DALL'INDICE                13044000
+       NREC5(1,INUC)=NTABL(1,IS)                                        13045000
+       NREC5(2,INUC)=NTABL(2,IS)                                        13046000
+      DO 15     I=3,12                                                  13047000
+      NREC5(I,INUC)=AINDX1(21+I,IND)                                    13048000
+ 15   CONTINUE                                                          13049000
+C      DETERMINO IL NUMERO DI GRUPPO MAX CHE ESISTE PER OGNI NUCLIDE    13050000
+      NMING=MAX1(AINDX1(24,IND),AINDX1(25,IND))                         13051000
+       NMING1=AINDX1(36,IND)                                            13052000
+       IF(NMING1.NE.NMING) CALL ERR(8HP3MCF6     ,15)                   13053000
+      IF(NMAX.LT.NMING) NMAX=NMING                                      13054000
+C       MAXRCM E' PER LEGGERE E' IL MAX LUNGHEZZA DEL RECORD DI UN      13055000
+C       MATERIALE, INVECE MAXREC E' LA LUNGHEZZA MAX DI UNO DEI RECORDS 13056000
+C       CON DENTRO TUTTI I MATERIALI                                    13057000
+       IF(MAXRCM.LT.AINDX1(35,IND)) MAXRCM=AINDX1(35,IND)               13058000
+C      LEGGE RECORD 1 DI F6                                             13059000
+      READ(NTI) NWDS,(A(LIMIT+J),J=1,NWDS)                              13060000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           13061000
+C      CI METTE DENTRO IL RECORD SUCCESSIVO DA LEGGERE (IN AINDX1(39,IND13062000
+      AINDX1(39,IND)=NT(4,NTIN)                                         13063000
+      LIMIT=LIMIT+NWDS                                                  13064000
+ 10   CONTINUE                                                          13065000
+       IF(MAXRCM.LE.0) CALL ERR(8HP3MCF6     ,10)                       13066000
+      MMAT=INUC                                                         13067000
+      IF(MMAT.LE.0) CALL ERR(8HP3MCF6    ,11)                           13068000
+C      SCRIVE IL RECORD 1                                               13069000
+      WRITE(NTO) (A(J),J=1,LIMIT)                                       13070000
+      IF(MAXREC.LT.LIMIT) MAXREC=LIMIT                                  13071000
+      NT(3,NTOUT)=NT(3,NTOUT)+1                                         13072000
+      NT(4,NTOUT)=NT(3,NTOUT)                                           13073000
+      IF(STMP.LE.100.) GO TO 105                                        13074000
+       WRITE(NO,1000) (A(J),J=1,LIMIT)                                  13075000
+ 1000  FORMAT(' FILE MCC2F6 CREATION : RECORD 1 PRODUCED:'/             13076000
+     1 (1X,6E12.5))                                                     13077000
+C                                                                       13078000
+C                             RECORDS 2,3,4                             13079000
+C                                                                       13080000
+ 105   NGRMX=(MA-MAXRCM*MMAT)/((MAXRCM+1)*MMAT*3)                       13081000
+       IF(NGRMX.LE.0) NGRMX=1                                           13082000
+       WRITE(NP,9998) NGRMX,MAXRCM                                      13083000
+ 9998   FORMAT(' IN EACH PASS ',I4,'   GROUPS ARE READ. MAX REC FOR A'  13084000
+     1 ,' MATERIAL:',I10)                                               13085000
+       NPASSI=NMAX/NGRMX                                                13086000
+       IF(NGRMX*NPASSI.LT.NMAX) NPASSI=NPASSI+1                         13087000
+C                                                                       13088000
+C       IN A METTO UNA MATRICE LARGA MAXRCM*MMAT (MEGLIO SAREBBE MAXREC 13089000
+C       PER IL RECORD DA SCRIVERE                                       13090000
+C                                                                       13091000
+C       IN A METTO ANCHE UNA MATRICE (MMAT,3,NGRMX) CON LE LUNGHEZZE DEI13092000
+C       RECORDS DA LEGGERE E DA SCIVERE                                 13093000
+C                                                                       13094000
+C      LLIMW PUNTA ALLA MATRICE COL NUMERO DI PAROLE DEI RECORDS        13095000
+       LLIMW= MAXRCM*MMAT+1                                             13096000
+C                                                                       13097000
+C       IN A SIMULO UNA MATRICE (MAXRCM,MMAT,3,NGRMX) OVE NGRMX E'      13098000
+C       IL NUMERO MAX DI GRUPPI CHE SI RIESCE A TRATTARE IN UNA VOLTA   13099000
+C                                                                       13100000
+C      LLIMR PUNTA AI RECORDS DA LEGGERE                                13101000
+       LLIMR=LLIMW+NGRMX*3*MMAT                                         13102000
+C                                                                       13103000
+C          ............................ LOOP SUI GRUPPI DI GRUPPI       13104000
+       DO 20 IP=1,NPASSI                                                13105000
+       NGI=NGRMX*(IP-1)+1                                               13106000
+       NGF=NGI+NGRMX-1                                                  13107000
+       IF(NGF.GT.NMAX) NGF=NMAX                                         13108000
+       NGTOT=NGF-NGI+1                                                  13109000
+C           AZZERA L'ARRAY DEI LIMITI DEI RECORDS                       13110000
+       CALL RIEMP(0,MMAT*3*NGRMX,A(LLIMW))                              13111000
+C                                                                       13112000
+       INUC=0                                                           13113000
+C      ..................   LETTURA: UN LOOP SUI NUCLIDI:               13114000
+       DO 40 I=1,NNUC                                                   13115000
+       IND=NTABL(32,I)                                                  13116000
+       IF(IND.LE.0) GO TO 40                                            13117000
+       INUC=INUC+1                                                      13118000
+C       POSIZIONO FILE DI INPUT                                         13119000
+       NTIN=AINDX1(15,IND)                                              13120000
+       NTI=NT(1,NTIN)                                                   13121000
+       NRECI=AINDX1(39,IND)                                             13122000
+       CALL POST1(NTIN,NRECI)                                           13123000
+C         LETTURA DI NGRMX RECORDS E CALCOLO DEI LIMITI RELATIVI        13124000
+        CALL READ6(NTIN,NT(4,NTIN),NGI,NGTOT,INUC,NREC5(3,INUC),        13125000
+     1 NREC5(4,INUC),NREC5(7,INUC),NREC5(8,INUC),NREC5(9,INUC),         13126000
+     2NREC5(10,INUC),                                                   13127000
+     3 AINDX1(1,IND),MAXRCM,MMAT,NGRMX,A(LLIMW),A(LLIMR))               13128000
+ 40    CONTINUE                                                         13129000
+C                                                                       13130000
+C       SCRITTURA DEI NGRMX GRUPPI DEL PASSO                            13131000
+C      .................. LOOP SUI GRUPPI                               13132000
+       DO 50 IG=1,NGTOT                                                 13133000
+       NGC=NGI+IG-1                                                     13134000
+       INR=0                                                            13135000
+C       .................LOOP SUI TRE RECORDS                           13136000
+       DO 60 IR=1,3                                                     13137000
+C      METTE INSIEME IN A I RECORDS DI TUTTI I NUCLIDI                  13138000
+       NWDS=1                                                           13139000
+       CALL COMPAT(IR,NWDS,IG,MAXRCM,MMAT,NGRMX,A,A(LLIMW),A(LLIMR))    13140000
+       IF(NWDS.LE.0) GO TO 60                                           13141000
+       WRITE(NTO) (A(J),J=1,NWDS)                                       13142000
+       IF(NWDS.GT.MAXREC) MAXREC=NWDS                                   13143000
+       NT(3,NTOUT)=NT(3,NTOUT)+1                                        13144000
+       NT(4,NTOUT)=NT(3,NTOUT)                                          13145000
+       INR=INR+1                                                        13146000
+      IF(IR.NE.1) GO TO 501                                             13147000
+       IF(STMP.LT.102.) GO TO 501                                       13148000
+       WRITE(NO,5001)  IG,(A(J),J=1,NWDS)                               13149000
+ 5001  FORMAT(' RECORD 2:   GRUPPO:',I5 /(1X,20I4))                     13150000
+       GO TO 502                                                        13151000
+ 501   IF(STMP.LT.103.) GO TO 502                                       13152000
+       IRR23=IR+1                                                       13153000
+       WRITE(NO,5002) IRR23,IG,(A(J),J=1,NWDS)                          13154000
+ 5002  FORMAT(' RECORD:',I5,'  GRUPPO:',I5/(1X,10E12.5))                13155000
+ 502  CONTINUE                                                          13156000
+  60   CONTINUE                                                         13157000
+       NREC5(12+NGC,NNUC)=INR                                           13158000
+ 50    CONTINUE                                                         13159000
+C        .......................... FINE LOOP SCRITTURA GRUPPI          13160000
+ 20    CONTINUE                                                         13161000
+C       .......................... FINE LOOP SUI PASSI                  13162000
+        WRITE(NO,7000)                                                  13163000
+ 7000   FORMAT(//20X,' FILE MCC2F6 PRODUCED - ANELASTIC AND N,2N DATA') 13164000
+               CALL REW(NTOUT)                                          13165000
+      RETURN                                                            13166000
+      END                                                               13167000
+      SUBROUTINE READ6(NTI,NT4NT,NGI,NGTOT,INUC,NINEL,N2NTH,MAX1,MAX2,  13168000
+     1 MAX3,MAX4,AINDX1,MAXRCM,MMAT,NGRMX,LIMITI,RECORD)                13169000
+C      ***************************************************************  13170000
+C       LEGGE RECORDS DEL NUCLIDE INUC   PER NGRMX GRUPPI E NE          13171000
+C       RICORDA LE LUNGHEZZA ( IN LIMITI)                               13172000
+C      ***************************************************************  13173000
+       DIMENSION AINDX1(40),LIMITI(MMAT,3,NGRMX)                        13174000
+       INTEGER RECORD(MAXRCM,MMAT,3,NGRMX)                              13175000
+C                                                                       13176000
+       DO 10 IG=1,NGTOT                                                 13177000
+C       RECORD 2                                                        13178000
+       NGC=NGI+IG-1                                                     13179000
+       IF(NINEL.LT.NGC.AND.N2NTH.LT.NGC) GO TO 10                       13180000
+       READ(NTI) NWDS,(RECORD(J,INUC,1,IG),J=1,NWDS)                    13181000
+       LIMITI(INUC,1,IG)=NWDS                                           13182000
+       NT4NT=NT4NT+1                                                    13183000
+C       CERCA SE ESISTE IL RECORD 4 ( LIMITI E' AZZERATO ALL'INIZIO )   13184000
+       NINTAB=0                                                         13185000
+       N2NTAB=0                                                         13186000
+       N1=4                                                             13187000
+       IF(N2NTH.LT.NGC) N1=N1-1                                         13188000
+       IF(MAX1.LT.1) N1=N1-1                                            13189000
+       IF(NINEL.LT.NGC.OR.MAX2.LT.1) N1=0                               13190000
+C                                                                       13191000
+       N2=2                                                             13192000
+       IF(NINEL.GT.NGC) N2=N2+1                                         13193000
+       IF(MAX1.GT.0.AND.NINEL.GT.NGC) N2=N2+1                           13194000
+       IF(MAX2.GT.0.AND.NINEL.GT.NGC) N2=N2+1                           13195000
+       IF(MAX3.GT.0.AND.N2NTH.GT.NGC) N2=N2+1                           13196000
+       IF(N2NTH.LT.NGC.OR.MAX4.LT.1) N2=0                               13197000
+       IF(N1.GT.0) NINTAB=RECORD(N1,INUC,1,IG)                          13198000
+       IF(N2.GT.0) N2NTAB=RECORD(N2,INUC,1,IG)                          13199000
+C        READS RECORD 3                                                 13200000
+       READ(NTI) NWDS,(RECORD(J,INUC,2,IG),J=1,NWDS)                    13201000
+       LIMITI(INUC,2,IG)=NWDS                                           13202000
+       NT4NT=NT4NT+1                                                    13203000
+C             READS RECORD 4 SE ESISTE                                  13204000
+       IF(NINTAB.LE.0.AND.N2NTAB.LE.0) GO TO 10                         13205000
+       READ(NTI) NWDS,(RECORD(J,INUC,3,IG),J=1,NWDS)                    13206000
+       LIMITI(INUC,3,IG)=NWDS                                           13207000
+       NT4NT=NT4NT+1                                                    13208000
+ 10    CONTINUE                                                         13209000
+C      ..................   FINE LOOP SUI GRUPPI                        13210000
+       AINDX1(39)=NT4NT                                                 13211000
+C       IN AINDX1 RI CORDA DOVE E' ARRIVATO A LEGGERE                   13212000
+       RETURN                                                           13213000
+       END                                                              13214000
+       SUBROUTINE COMPAT(NREC,NWDS,IG,MAXRCM,MMAT,NGRMX,A,LIMITI,RECORD)13215000
+C      **************************************************************** 13216000
+C       COSTRUISCE UN RECORD DI OUTPUT DI UN GRUPPO CON I RECORDS DI    13217000
+C       TUTTI I NUCLIDI                                                 13218000
+C       NREC E' IL TIPO DI RECORD                                       13219000
+C      ***************************************************************  13220000
+       DIMENSIONA(NWDS),LIMITI(MMAT,3,NGRMX),RECORD(MAXRCM,MMAT,3,NGRMX)13221000
+       NWDS=0                                                           13222000
+       DO 10 IM=1,MMAT                                                  13223000
+       LIMIT=LIMITI(IM,NREC,IG)                                         13224000
+       IF(LIMIT.LE.0) GO TO 10                                          13225000
+        DO 20 J=1,LIMIT                                                 13226000
+ 20     A(NWDS+J)=RECORD(J,IM,NREC,IG)                                  13227000
+       NWDS=NWDS+LIMIT                                                  13228000
+ 10    CONTINUE                                                         13229000
+       RETURN                                                           13230000
+       END                                                              13231000
+      SUBROUTINE P3MCF7(NNUC,NAME,NREC3,NREC4,NREC5,SIGP,MA,NA,         13232000
+     1                    ML1,ML2,AINDX1)                               13233000
+C     *****************************************************             13234000
+C     FILE MCC2F7 GENERATION: FISSION SPECTRUM DATA                     13235000
+C     ********************************************************          13236000
+C                                                                       13237000
+        COMMON/FILES/NT(4,99)                                           13238000
+        EQUIVALENCE (NT(1,11),NP)                                       13239000
+      COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPL,IPTMAX,ETOP,     13240000
+     1DELTAU,MANY1,MMAT,NMAX                                            13241000
+      DIMENSION AINDX1(ML1,ML2)                                         13242000
+      COMMON/INDX/NTABL(40,200)                                         13243000
+      COMMON /OPZIO/OPZ(4,8,10)                                         13244000
+      COMMON/DIM/M(5)                                                   13245000
+      EQUIVALENCE(M(2),MIND),(OPZ(3,7,1),STMP),(NT(1,6),NO)             13246000
+      DIMENSION NA(MA)                                                  13247000
+C                                                                       13248000
+       WRITE(NP,9999)                                                   13249000
+ 9999  FORMAT(' P3MCF7 ENTERED :   FISSION SPECTRUM')                   13250000
+C                                                                       13251000
+C     SPAZI PER RECORDS 1,2,3                                           13252000
+      NRC0=0                                                            13253000
+C      PER MEMORIZZARE GLI INDICI NEL PRIMO LOOP SULLATAVOLA E          13254000
+C      RIUTILIZZARLI NEL SECONDO LOOP SENZA LOPPARE ANCORA PER TROVARLI 13255000
+      NRC1=NRC0+NNUC                                                    13256000
+C      NOMI REAL*8                                                      13257000
+      NRC2=NRC1+NNUC*2                                                  13258000
+C      ICHI                                                             13259000
+      NRC3=NRC2+NNUC                                                    13260000
+      MSORS=0                                                           13261000
+C      LOOP SU NUCLIDI ( TAVOLA)                                        13262000
+       DO 10 I=1,NNUC                                                   13263000
+      IND=NTABL(6,I)                                                    13264000
+      IF(IND.LE.0) GO TO 100                                            13265000
+C      RECORD 1 DI F1                                                   13266000
+      MSORS=MSORS+1                                                     13267000
+C      MEMORIZZAZIONE INDICE PER NON DOVERSI RIGUARDARE TUTTA LA TAVOLA 13268000
+C      SECONDO LOOP                                                     13269000
+      NA(NRC0+MSORS)=IND                                                13270000
+C      RECORD 2 DI F7 ( ICHI)                                           13271000
+      NA(NRC2+MSORS)=AINDX1(18,IND)                                     13272000
+C      RECORD 1 DI F7 ( NOMI)                                           13273000
+      NA(NRC1+MSORS*2-1)=NTABL(1,I)                                     13274000
+      NA(NRC1+MSORS*2)=NTABL(2,I)                                       13275000
+ 100  CONTINUE                                                          13276000
+ 10    CONTINUE                                                         13277000
+      IF(MSORS.LE.0) RETURN                                             13278000
+C      MA SE E CHIAMATO F7 VUOL DIRE CHE NE ESISTE ALMENO 1 DI SPETTRO D13279000
+C      FISSIONE                                                         13280000
+      NTOUT=57                                                          13281000
+      NTO=NT(1,NTOUT)                                                   13282000
+      CALL REW(NTOUT)                                                   13283000
+C      SCRITTURE                                                        13284000
+      N1=2*MSORS                                                        13285000
+C      RECORD 1                                                         13286000
+      WRITE(NTO) (NA(NRC1+J),J=1,N1)                                    13287000
+      WRITE(NO,1000) (NA(NRC1+J),J=1,N1)                                13288000
+      WRITE(NP,1001) (NA(NRC1+J),J=1,N1)                                13289000
+ 1000  FORMAT(///20X,' FILE MCC2F7 PRODUCED - FISSION SPECTRUM '///20X, 13290000
+     1 ' SOURCE NAMES:'//(1X,10(2X,2A4)))                               13291000
+ 1001  FORMAT(' FILE MCC2F7 PRODUCED,',                                 13292000
+     1 ' SOURCE NAMES:'/(1X,10(2X,2A4)))                                13293000
+C      RECORD 2                                                         13294000
+      WRITE(NTO) (NA(NRC2+J),J=1,MSORS)                                 13295000
+      IF(STMP.GT.101.)WRITE(NO,2000) (J,NA(NRC2+J),J=1,MSORS)           13296000
+ 2000 FORMAT( ' SOURCE:',I10,5X,' GROUP DEPENDENCE FLAG:',I10)          13297000
+      DO 20 I=1,MSORS                                                   13298000
+      IND=NA(NRC0+I)                                                    13299000
+      ICHI=NA(NRC2+I)                                                   13300000
+C      FIX DD DI INPPUT                                                 13301000
+      NTIN=AINDX1(15,IND)                                               13302000
+      NTI=NT(1,NTIN)                                                    13303000
+      NRECI=AINDX1(16,IND)                                              13304000
+      CALL POST1(NTIN,NRECI)                                            13305000
+C        RECORD 3                                                       13306000
+      N1=NRC3+1                                                         13307000
+      N2=6*ICHI+N1-1                                                    13308000
+      READ(NTI)(NA(J),J=N1,N2)                                          13309000
+      WRITE(NTO)(NA(J),J=N1,N2)                                         13310000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           13311000
+       IF(STMP.GT.110.) WRITE(NO,3000) I,(NA(J),J=N1,N2)                13312000
+ 3000  FORMAT(' SOURCE:',I5,' CHI VALUES:'/(1X,10E12.5))                13313000
+ 20   CONTINUE                                                          13314000
+C                                                                       13315000
+C       ESISTE LA POSSIBILITA' DI AVERE DATI TABULATI DEL NU SUL FILE   13316000
+C       MCC2F7 ( COSA CONTEMPLATA DA MC2-2 MA NON DAL SUO MANUALE)      13317000
+C                                                                       13318000
+C       TRATTO QUI LA SECONDA PARTE DI F7 CON I DATI TABULATI DEL NU    13319000
+        L1=1                                                            13320000
+C           NUMNU                                                       13321000
+        L2=NNUC+L1                                                      13322000
+C           KT                                                          13323000
+        L3=L2+NNUC                                                      13324000
+        LFIN=L3                                                         13325000
+        IF(LFIN.GT.MA) CALL ERR(8HP3MCF7       ,20)                     13326000
+        CALL P3MC7N(NTO,NTOUT,NNUC,NA(L1),NA(L2),MA-LFIN,NA(LFIN),      13327000
+     1              ML1,ML2,AINDX1)                                     13328000
+C                                                                       13329000
+                CALL REW(NTOUT)                                         13330000
+      RETURN                                                            13331000
+      END                                                               13332000
+      SUBROUTINE P3MC7N(NTO,NTOUT,NNUC,NUMNU,KT,MA,A,ML1,ML2,AINDX1)    13333000
+C       ************************************************************    13334000
+C         NU TABULATED ON MCC2F7 ********                               13335000
+C       ************************************************************    13336000
+        DIMENSION NUMNU(NNUC),KT(NNUC),A(MA),AINDX1(ML1,ML2)            13337000
+        COMMON/FILES/NT(4,99)                                           13338000
+        EQUIVALENCE (NT(1,11),NP)                                       13339000
+      COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPL,IPTMAX,ETOP,     13340000
+     1DELTAU,MANY1,MMAT,NMAX                                            13341000
+      COMMON/INDX/NTABL(40,200)                                         13342000
+      COMMON /OPZIO/OPZ(4,8,10)                                         13343000
+      COMMON/DIM/M(5)                                                   13344000
+      EQUIVALENCE(M(2),MIND),(OPZ(3,7,1),STMP),(NT(1,6),NO)             13345000
+C                                                                       13346000
+C          FIX NUM NU   E KT (INTERPOLAZ) PER OGNI NUCLIDE              13347000
+C                                                                       13348000
+        DO 10 I=1,NNUC                                                  13349000
+        IND=NTABL(36,I)                                                 13350000
+        IF(IND.LE.0) GO TO 100                                          13351000
+        NUMNU(I)=AINDX1(19,IND)                                         13352000
+        KT(I)=AINDX1(29,IND)                                            13353000
+        GO TO 10                                                        13354000
+ 100    NUMNU(I)=0                                                      13355000
+        IF(NTABL(31,I).GT.0) NUMNU(I)=1                                 13356000
+        KT(I)=0                                                         13357000
+ 10     CONTINUE                                                        13358000
+        WRITE(NTO) (NUMNU(J),J=1,NNUC),(KT(J),J=1,NNUC)                 13359000
+        IF(STMP.GT.120.) WRITE(NO,1000) (J,NUMNU(J),KT(J),J=1,NNUC)     13360000
+ 1000   FORMAT(' NUCLIDE:',I5,' NU NUMBER:',I5,'  INTERP CODE:',I5)     13361000
+C                                                                       13362000
+        DO 20 I=1,NNUC                                                  13363000
+        IF(NUMNU(I).LE.1) GO TO 20                                      13364000
+C                LETTURA                                                13365000
+        IND=NTABL(36,I)                                                 13366000
+        NTIN=AINDX1(15,IND)                                             13367000
+        NTI=NT(1,NTIN)                                                  13368000
+        NRECI=AINDX1(16,IND)                                            13369000
+        CALL POST1(NTIN,NRECI)                                          13370000
+        NWDS=AINDX1(18,IND)                                             13371000
+        READ(NTI) (A(J),J=1,NWDS)                                       13372000
+        NT(4,NTIN)=NT(4,NTIN)+1                                         13373000
+        NUM=AINDX1(19,IND)                                              13374000
+        WRITE(NTO) (A(J),J=1,NWDS)                                      13375000
+        IF(STMP.GT.130.) WRITE(NO,2000) (A(J),A(J+NUM),J=1,NUM)         13376000
+ 2000   FORMAT(2(' ENERGY:',E12.5,'  NU:',E12.5))                       13377000
+ 20     CONTINUE                                                        13378000
+        RETURN                                                          13379000
+        END                                                             13380000
+      SUBROUTINE P3MCF8(NNUC,NAME,NREC3,NREC4,NREC5,SIGP,MA,A,          13381000
+     1                                              ML1,ML2,AINDX1)     13382000
+C     ************************************************************      13383000
+C                                                                       13384000
+C      MCC2F8  FILE GENERATION: ANGULAR DISTRIBUTION FOR ELASTIC SCATTER13385000
+C                                                                       13386000
+C     *******************************************************           13387000
+C                                                                       13388000
+C      IN ARGOMENTO: NNUC=NUMERO NUCLIDI ( DI MCC2F1)                   13389000
+C      NAME(NNUC) NOME NUCLIDE ( RECORD 1 DI MCC2F1) REAL*8             13390000
+C      NREC3        RECORD 3 DI MCC2F1                                  13391000
+C      NREC4               4                                            13392000
+C      NREC5               5                                            13393000
+C      SIGP        RECORD 6 DI MCC2F1                                   13394000
+C      A(MA)      SPAZIO DI LAVORO                                      13395000
+C                                                                       13396000
+C     ******************************************************            13397000
+C                                                                       13398000
+         DIMENSION A(MA),AINDX1(ML1,ML2),NREC5(12,NNUC)                 13399000
+       COMMON/FILES/NT(4,99)                                            13400000
+       EQUIVALENCE (NO,NT(1,6)),(NP,NT(1,11))                           13401000
+      COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX,    13402000
+     1ETOP,DELTAU,MANY1,MMAT,NMAX                                       13403000
+      COMMON/INDX/NTABL(40,200)                                         13404000
+      COMMON /OPZIO/OPZ(4,8,10)                                         13405000
+      EQUIVALENCE (STMP,OPZ(3,8,1))                                     13406000
+C                                                                       13407000
+       WRITE(NP,9999)                                                   13408000
+ 9999  FORMAT(' P3MCF8 ENTERED: ANGULAR DISTRIBUTIONS')                 13409000
+C                                                                       13410000
+C                                                                       13411000
+C      DEFINIZIONE FILES DI OUTPUT                                      13412000
+       NTOUT=58                                                         13413000
+      NTO=NT(1,NTOUT)                                                   13414000
+      CALL REW(NTOUT)                                                   13415000
+C                                                                       13416000
+C     ............. LOOP SU TABELLA DI P3 ( NTABL)                      13417000
+C              RECORD 1  DI F1                                          13418000
+      NPL=0                                                             13419000
+      IPTMAX=0                                                          13420000
+      NPASS=0                                                           13421000
+      MANY1=OPZ(2,8,2)                                                  13422000
+      IF(MANY1.LE.0) MANY1=126                                          13423000
+      INUC=0                                                            13424000
+      WRITE(NO,1010)                                                    13425000
+ 1010   FORMAT(//20X,' FILE MCC2F8 PRODUCED - ELASTIC SCATTERING DATA') 13426000
+C           FISSA IPTMAX , MAX DI IPT SU TUTTI I NUCLIDI                13427000
+C           FISSA NPASS    NUMERO DI PASSI MAX SU TUTTI I NUCLIDI       13428000
+      DO 10 IS=1,NNUC                                                   13429000
+      IND=NTABL(33,IS)                                                  13430000
+      IF(IND.LE.0) GO TO 10                                             13431000
+C        PL                                                             13432000
+      IF(NPASS.LT.AINDX1(23,IND)) NPASS=AINDX1(23,IND)                  13433000
+      IF(MANY1.NE.AINDX1(26,IND)) CALL ERR(8HP3MCF8    , 9)             13434000
+      IF(IPTMAX.LT.AINDX1(25,IND)) IPTMAX=AINDX1(25,IND)                13435000
+C      TJ,FACK                                                          13436000
+      IF(NPL.LT.AINDX1(24,IND)) NPL=AINDX1(24,IND)                      13437000
+       INUC=INUC+1                                                      13438000
+ 10   CONTINUE                                                          13439000
+       IF(OPZ(3,8,2).GT.0.) NPL=OPZ(3,8,2)                              13440000
+       IF(NPL.LE.0) NPL=9                                               13441000
+       NPL1=NPL+1                                                       13442000
+       IPTMX1=IPTMAX+1                                                  13443000
+       IF(NPL.GT.IPTMX1) NPL=IPTMX1                                     13444000
+C      NINUC E' IL NUMERO DEI NUCLIDI DI F8                             13445000
+        IF(NNUC.NE.INUC) CALL ERR(8HP3MCF8WR  ,10)                      13446000
+      NINUC=INUC                                                        13447000
+C     FISSA SPAZI PER RECORD 1 (USO NMAT DI F1)=NNUC, NON NINUC,        13448000
+C      NUMERO NUCLIDI FISSATO QUI. NEGLI ALTRI POSTI USO SEMPRE NINUC)  13449000
+C                                                                       13450000
+C      CONTRARIAMENTE AL SOLITO I PUNTATORI INDICANO IL NUMERO DI LOCAZI13451000
+C       PRECEDENTI IL DATO IN MEMORIA. PIU COMODO PER LETTURE E SCRITTUR13452000
+C                                                                       13453000
+      LLGTH=0                                                           13454000
+C                     LGTH                                              13455000
+      LIR=LLGTH+NNUC                                                    13456000
+C                     IR                                                13457000
+      LIL=LIR+NNUC                                                      13458000
+C                     IL                                                13459000
+      LIPT=LIL+NNUC                                                     13460000
+C                     IPT                                               13461000
+      LIMIT=LIPT+NPASS*NNUC                                             13462000
+C                                                                       13463000
+       IF(LIMIT.GT.MA) CALL ERR(8HP3MCF8           ,11)                 13464000
+      CALL RIEMP(0.0,LIMIT,A)                                           13465000
+C      LETTURA RECORD 1 E SCRITTURA                                     13466000
+C      (RECORD 1 SERVE PER LEGGERE RECORD 4 ED INDI VIENE CREATO A PARTE13467000
+C      ................... LOOP SUI NUCLIDI DELLA TAVOLA                13468000
+      INUC=0                                                            13469000
+      DO 20 IS=1,NNUC                                                   13470000
+      IND=NTABL(33,IS)                                                  13471000
+C      CONTEMPLO LA POSSIBILITA CHE ESISTANO NUCLIDI SENZA PL,          13472000
+C      ANCHE SE QUESTO IN MCC2F8 NON E' PRECISATO                       13473000
+        IF(IND.LE.0)CALL ERR(8HP3MCF8WR ,105)                           13474000
+      IF(IND.LE.0) GO TO 200                                            13475000
+      INUC=INUC+1                                                       13476000
+C      POSIZIONE FILE DI INPUT                                          13477000
+      NTIN=AINDX1(15,IND)                                               13478000
+      NTI=NT(1,NTIN)                                                    13479000
+      NRECI=AINDX1(16,IND)                                              13480000
+      CALL POST1(NTIN,NRECI)                                            13481000
+C        NPASSI NUMERO PASSI DEL NUCLIDE                                13482000
+      NPASSI=AINDX1(23,IND)                                             13483000
+C     FOLLOWING 5 INSTRUCTIONS TO ALLOW CONPILATION BY VS FORTRAN       13484000
+C       OF THE FOLLOWING STATEMENT:                                     13485000
+C         READ(NTI)  A(LLGTH+INUC),A(LIR+INUC),A(LIL+INUC),             13486000
+C       1 (A(LIPT+(INUC-1)*NPASS+J),J=1,NPASSI)                         13487000
+        LVS1=LLGTH+INUC                                                 13488000
+        LVS2=LIR+INUC                                                   13489000
+        LVS3=LIL+INUC                                                   13490000
+        LVS4=LIPT+(INUC-1)*NPASS                                        13491000
+        READ(NTI)A(LVS1),A(LVS2),A(LVS3),(A(LVS4+J),J=1,NPASSI)         13492000
+C               IPTMAX DEL MATERIALE                                    13493000
+       IPTMXM=MAXX(NPASSI,A(LIPT+(INUC-1)*NPASS+1))                     13494000
+       AM=AINDX1(5,IND)                                                 13495000
+       IF(AM.GT.1.)GO TO 105                                            13496000
+        Q3=0                                                            13497000
+        GO TO 106                                                       13498000
+ 105   Q3=ALOG((AM+1.)/(AM-1.))**2/3.                                   13499000
+ 106   N26=2                                                            13500000
+       N50=50                                                           13501000
+       IF(DELTAU.GE.Q3) N50=54                                          13502000
+       IF(DELTAU.GE.Q3) N26=6                                           13503000
+C         PER MC2-2 LGTH=NUMERO WORDS RECORD DEI TLJ E:                 13504000
+C         PER I TLJ IL NUMERO DELLE PAROLE REAL*8                       13505000
+C         PER KT,NG IL NUMERO DELLE PAROLE REAL*4                       13506000
+       NWDS3=2*(NAREAL(A(LIR+INUC)))+(N50+IPTMXM*(NPL+N26)+NPL)         13507000
+       A(LLGTH+INUC)=AREAL(NWDS3)                                       13508000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           13509000
+ 200  CONTINUE                                                          13510000
+ 20   CONTINUE                                                          13511000
+C      SCRITTURA DEL RECORD 1                                           13512000
+C            NEL RECORD 1 ANCHE EVENTUALI NUCLIDI SENZA PL              13513000
+C                                USO  NNUC , NON NINUC                  13514000
+      N1=NPASS*NNUC                                                     13515000
+      WRITE(NTO) (A(LLGTH+J),J=1,NNUC),(A(LIR+J),J=1,NNUC),             13516000
+     1 (A(LIL+J),J=1,NNUC),(A(LIPT+J),J=1,N1)                           13517000
+C                                                                       13518000
+       IF(STMP.LT.10) GO TO 210                                         13519000
+       WRITE(NO,1000) NINUC,NPASS                                       13520000
+ 1000  FORMAT(' RECORD 1 OF FILE MCC2F8 PRODUCED: NUCLIDES:',I5,        13521000
+     1    ' NUMBER OF PASS:',I5)                                        13522000
+       WRITE(NO,2000) (J,A(LLGTH+J),A(LIR+J),A(LIL+J),J=1,NNUC)         13523000
+ 2000  FORMAT(' NUCLIDE,LENGTH OF RECORD 3,INTERP CODE,NUMB OF BLOCKS'  13524000
+     1 /(1X,I5,2X,3I10))                                                13525000
+       WRITE(NO,3000)  (A(LIPT+J),J=1,N1)                               13526000
+ 3000  FORMAT(' IPT: NUMBER OF LEGENDRE COMP FOR EACH PASS AND MATERIAL'13527000
+     1 /(10I10))                                                        13528000
+ 210   CONTINUE                                                         13529000
+      NT(3,NTOUT)=NT(3,NTOUT)+1                                         13530000
+      NT(4,NTOUT)=NT(3,NTOUT)                                           13531000
+C                                                                       13532000
+      MXIR=MAXX(NNUC,A(LIR+1))                                          13533000
+      MXXPT=MAXX(NPASS*INUC,A(LIPT+1))                                  13534000
+C                                                                       13535000
+C                             DEFINIZIONE SPAZI                         13536000
+C       HO SOVRADIMENSIONATO TUTTO                                      13537000
+C       LIMIT=LIMITE CUI A E PIENO                                      13538000
+      LNOME=LIMIT                                                       13539000
+C                       NOME (REAL*8)                                   13540000
+      LKT=LNOME+2                                                       13541000
+C                       KT                                              13542000
+      LNG=LKT+MXIR                                                      13543000
+C                       NG                                              13544000
+      LTLJ=LNG+MXIR                                                     13545000
+C                       TLJ                                             13546000
+      LTLJ1=LTLJ+(NPL1*IPTMX1)*2                                        13547000
+C                       TLJ1 E FAC                                      13548000
+      LTLJ2=LTLJ1+(6*IPTMX1)*2                                          13549000
+C                       TLJ2                                            13550000
+      LFACK=LTLJ2+2*2*MAX0(IPTMX1,6)                                    13551000
+C                       FACK                                            13552000
+      LFN=LFACK+(6*6)*2                                                 13553000
+C                       FN                                              13554000
+      LVV=LFN+IPTMX1*IPTMX1*2                                           13555000
+C                       VV (SCR PER TMATRIX)                            13556000
+      LLLPP=MAX0(IPTMX1*3/2,30)                                         13557000
+      LPN=LVV+IPTMX1*LLLPP*2                                            13558000
+C                       PN ( SCR PER PN PER TMATRIX)                    13559000
+      LIMIT=LPN+MANY1*MXXPT                                             13560000
+      LIMIT1=LPN+MANY1*128*2                                            13561000
+      LIMIT=MAX0(LIMIT,LIMIT1)                                          13562000
+      IF(LIMIT.GT.MA) CALL ERR(8HP3MCF8   ,210)                         13563000
+      IF(LIMIT1.GT.MA) CALL ERR(8HP3MCF8   ,211)                        13564000
+      CALL P3MF81(NTO,NTOUT,NNUC,NINUC,NPASS,MANY1,NPL,NPL1,IPTMAX,     13565000
+     1 IPTMX1,MXIR,MXXPT,                                               13566000
+     2 A(LLGTH+1),A(LIR+1),A(LIL+1),A(LIPT+1),A(LNOME),A(LKT),A(LNG),   13567000
+     3 A(LTLJ),A(LTLJ1),A(LTLJ2),A(LFACK),A(LFN),A(LVV),A(LPN),         13568000
+     4 MA-LIMIT,A(LIMIT),ML1,ML2,AINDX1)                                13569000
+C                                                                       13570000
+        WRITE(NP,9000)                                                  13571000
+ 9000   FORMAT(' FILE MCC2F8 PRODUCED : ELASTIC SCATTERING DATA')       13572000
+                 CALL REW(NTOUT)                                        13573000
+      RETURN                                                            13574000
+      END                                                               13575000
+      SUBROUTINE P3MF81(NTO,NTOUT,NNUC,NINUC,NPASS,MANY1,NPL,NPL1,      13576000
+     1 IPTMAX,IPTMX1,MXIR,MAXPT,                                        13577000
+     2 LGTH,IR,IL,IPT,NOME,KT,NG,TLJ,FAC,TLJ2,FACK,FN,VV,PN,MA,A,       13578000
+     3 ML1,ML2,AINDX1)                                                  13579000
+C     ******************************************************************13580000
+C      CONTINUATION OF ROUTINE P3MCF8                                   13581000
+C      SEGUITO DI P3MCF8 - TRATTA RECORDS  2,3,4  DI F8                 13582000
+C           I TLJ1 SONO CONTENUTI IN FAC(5-6,.)                         13583000
+C                                                                       13584000
+C     *************************************************************     13585000
+C                                                                       13586000
+      DIMENSION IPT(NPASS,NINUC),LGTH(NINUC),IR(NINUC),IL(NINUC)        13587000
+      REAL*8 NOME,TLJ(NPL1,IPTMX1),TLJ2(2,IPTMX1),FACK(6,6),            13588000
+     1 FAC(6,IPTMX1),                                                   13589000
+     2 VV(IPTMX1,1),PN(IPTMX1,1)                                        13590000
+       DIMENSION KT(MXIR),NG(MXIR),FN(MAXPT,MANY1),A(MA)                13591000
+       DIMENSION AINDX1(ML1,ML2)                                        13592000
+C                                                                       13593000
+C       TLJ2 E' NEI FACK(5:6,.)                                         13594000
+C                                                                       13595000
+      COMMON/FILES/NT(4,99)                                             13596000
+      COMMON/INDX/NTABL(40,200)                                         13597000
+       COMMON/OPZIO/OPZ(4,8,10)                                         13598000
+       EQUIVALENCE(OPZ(2,5,3),DELTAU),(NO,NT(1,6)),(NP,NT(1,11))        13599000
+       EQUIVALENCE(STMP,OPZ(3,8,1))                                     13600000
+C                                                                       13601000
+C                                                                       13602000
+C      LOOP SUI NUCLIDI ( TAVOLA FATTA DA P3: NTABL)                    13603000
+C                                                                       13604000
+      INUC=0                                                            13605000
+      DO 10 IS=1,NNUC                                                   13606000
+      IND=NTABL(33,IS)                                                  13607000
+      IF(IND.LE.0) GO TO 100                                            13608000
+C                                                                       13609000
+      INUC=INUC+1                                                       13610000
+C      LETTURA DELLA PL                                                 13611000
+C                                                                       13612000
+C      POSIZIONAMENTO FILES                                             13613000
+      NTIN=AINDX1(15,IND)                                               13614000
+      NTI=NT(1,NTIN)                                                    13615000
+      NRECI=AINDX1(16,IND) +2                                           13616000
+      CALL POST1(NTIN,NRECI)                                            13617000
+C      SALTA RECORD 1 (LETTO IN P3MCF8 E RECORD 2 ( NOME NUCLIDE) )     13618000
+      NOM1=NTABL(1,IS)                                                  13619000
+       NOM2=NTABL(2,IS)                                                 13620000
+       WRITE(NTO) NOM1,NOM2                                             13621000
+       IF(STMP.GT.100.) WRITE(NO,1000) NOM1,NOM2                        13622000
+ 1000  FORMAT( ' MATERIAL:',2A4)                                        13623000
+C      RECORD 3                                                         13624000
+      IR1=IR(INUC)                                                      13625000
+C        IL NUMERO DI PL PUO' ESSERE DIVERSO PER DIVERSI NUCLIDI        13626000
+C        RICALCOL LE TLJ IN OGNI CASO.                                  13627000
+C          IF(AINDX1(18,IND).GE.0..AND.AINDX1(12,IND).EQ.3.) GOTO400    13628000
+      READ(NTI)(KT(J),J=1,IR1),(NG(J),J=1,IR1)                          13629000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           13630000
+C                                                                       13631000
+ 400   AM=AINDX1(5,IND)                                                 13632000
+        IF(AM.GT.1.) GO TO 405                                          13633000
+        Q3=0.                                                           13634000
+        GO TO 406                                                       13635000
+ 405   Q3=ALOG((AM+1.)/(AM-1.))**2/3.                                   13636000
+ 406   IPTMXM=AINDX1(25,IND)                                            13637000
+       IPTXM1=IPTMXM+1                                                  13638000
+C                 LETTURA DEI TLJ SOPPRESSA (VENGONO RICALCOLATI SEMPRE)13639000
+C      IF(AINDX1(18,IND).LE.0..OR.AINDX1(12,IND).NE.3.) GOTO200         13640000
+C                             LETTURA DEI TLJ SE ESISTONO               13641000
+C      IF(DELTAU.GE.Q3)                                                 13642000
+C    1 READ(NTI) (KT(J),J=1,IR1),(NG(J),J=1,IR1),                       13643000
+C    2 ((TLJ(J,JJ),J=2,NPL1),JJ=1,IPTXM1),                              13644000
+C    3 ((FAC(J,JJ),J=5,6),JJ=1,IPTXM1),                                 13645000
+C    4 ((TLJ2(J,JJ),J=1,2),JJ=1,6),                                     13646000
+C    5 ((FACK(J,JJ),J=1,6),JJ=1,6),((FAC(J,JJ),J=1,4),JJ=1,IPTXM1)      13647000
+C      IF(DELTAU.LT.Q3)                                                 13648000
+C    1 READ(NTI) (KT(J),J=1,IR1),(NG(J),J=1,IR1),                       13649000
+C    2 ((TLJ(J,JJ),J=2,NPL1),JJ=1,IPTXM1),                              13650000
+C    3 ((FAC(J,JJ),J=5,6),JJ=1,IPTXM1),                                 13651000
+C    4 ((TLJ2(J,JJ),J=1,2),JJ=1,6),                                     13652000
+C    5 ((FACK(J,JJ),J=1,6),JJ=1,6)                                      13653000
+C      NT(4,NTIN)=NT(4,NTIN)+1                                          13654000
+C                                CREAZIONE DEI TLJ                      13655000
+C      GO TO 300                                                        13656000
+C200   CONTINUE                                                         13657000
+       CALL MODPAR(AM,FACK)                                             13658000
+C         TMATRX ACCETTA IPTMX1 SOLO FINO A 20 (MUST BE IPTMX1<=20 )    13659000
+        IF(IPTMX1.GT.21) CALL ERR(8HP3MF81IN  ,200)                     13660000
+       CALL TMATRX(AM,FAC,PN,TLJ,TLJ2,VV,NPL1,IPTMX1,DELTAU,IPTXM1,Q3)  13661000
+ 300   IF(DELTAU.GE.Q3)                                                 13662000
+     1WRITE(NTO) (KT(J),J=1,IR1),(NG(J),J=1,IR1),                       13663000
+     2 ((TLJ(J,JJ),J=2,NPL1),JJ=1,IPTXM1),                              13664000
+     3 ((FAC(J,JJ),J=5,6),JJ=1,IPTXM1),                                 13665000
+     4 ((TLJ2(J,JJ),J=1,2),JJ=1,6),                                     13666000
+     5 ((FACK(J,JJ),J=1,6),JJ=1,6),((FAC(J,JJ),J=1,4),JJ=1,IPTXM1)      13667000
+       IF(DELTAU.LT.Q3)                                                 13668000
+     1WRITE(NTO) (KT(J),J=1,IR1),(NG(J),J=1,IR1),                       13669000
+     2 ((TLJ(J,JJ),J=2,NPL1),JJ=1,IPTXM1),                              13670000
+     3 ((FAC(J,JJ),J=5,6),JJ=1,IPTXM1),                                 13671000
+     4 ((TLJ2(J,JJ),J=1,2),JJ=1,6),                                     13672000
+     5 ((FACK(J,JJ),J=1,6),JJ=1,6)                                      13673000
+       IF(STMP.LT.1000.) GO TO 350                                      13674000
+      WRITE(NO,2000) (KT(J),NG(J),J=1,IR1)                              13675000
+ 2000 FORMAT(4(' KT:',I5,'  NG:',I5))                                   13676000
+       WRITE(NO,3000)NPL1,IPTMX1,((TLJ(J,JJ),J=2,NPL1),JJ=1,IPTXM1)     13677000
+ 3000 FORMAT(' TLJ: (NPL1=',I5,'IPTMX1=',I5,')'/(1X,10E12.5))           13678000
+       WRITE(NO,4000)((FAC(J,JJ),J=5,6),JJ=1,IPTXM1)                    13679000
+ 4000 FORMAT(' FAC:',10E12.5)                                           13680000
+       WRITE(NO,5000) ((TLJ2(J,JJ),J=1,2),JJ=1,6)                       13681000
+ 5000 FORMAT(' TLJ2:',10E12.5)                                          13682000
+        WRITE(NO,6000)                                                  13683000
+     5 ((FACK(J,JJ),J=1,6),JJ=1,6)                                      13684000
+ 6000 FORMAT(' FACK:',10E12.5)                                          13685000
+       IF(DELTAU.GE.Q3) WRITE(NO,7000)                                  13686000
+     5      ((FAC(J,JJ),J=1,4),JJ=1,IPTXM1)                             13687000
+ 7000 FORMAT(' FAC: ',10E12.5)                                          13688000
+C                                                                       13689000
+ 350   IL1=IL(INUC)                                                     13690000
+      DO 20 IP=1,IL1                                                    13691000
+      IP1=IPT(IP,INUC)                                                  13692000
+      READ(NTI)((FN(J,JJ),J=1,IP1),JJ=1,MANY1)                          13693000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           13694000
+      WRITE(NTO)((FN(J,JJ),J=1,IP1),JJ=1,MANY1)                         13695000
+      IF(STMP.GT.1020.) WRITE(NO,8000)                                  13696000
+     1          ((FN(J,JJ),J=1,IP1),JJ=1,MANY1)                         13697000
+ 8000 FORMAT(' FN:',10E12.5)                                            13698000
+ 20   CONTINUE                                                          13699000
+ 100  CONTINUE                                                          13700000
+ 10   CONTINUE                                                          13701000
+      RETURN                                                            13702000
+      END                                                               13703000
+      SUBROUTINE P3MCF1(NNUC,NAME,REC3,REC4,REC5,SIGP,MA,A,             13704000
+     1                                          ML1,ML2,AINDX1)         13705000
+C     ******************************************************            13706000
+C     FILE MCC2F1 GENERATION: GENERAL DATA                              13707000
+C                                                                       13708000
+C      IN ARGOMENTO: NNUC=NUMERO NUCLIDI ( DI MCC2F1)                   13709000
+C      NAME(NNUC) NOME NUCLIDE ( RECORD 1 DI MCC2F1) REAL*8             13710000
+C      REC3        RECORD 3 DI MCC2F1                                   13711000
+C      REC4               4                                             13712000
+C      REC5               5                                             13713000
+C      SIGP        RECORD   DI MCC2F1                                   13714000
+C      A(MA)      SPAZIO DI LAVORO                                      13715000
+C                                                                       13716000
+C     ******************************************************            13717000
+C                                                                       13718000
+      DIMENSION REC3(5,NNUC),REC4(5,NNUC),REC5(12,NNUC),SIGP(NNUC)      13719000
+C                                                                       13720000
+C      INTEGER REC5(12,NNUC)                                            13721000
+C                              E' IL RECORD 5 DI MCC2F1 FATTO COSI':    13722000
+C       NOME,NOME,NINEL,N2NTH,NLEVLS,N2NLEV,MAX1,MAX2,MAX3,MAX4,        13723000
+C       NSINK1.NSINK2,NUMREC(1 PAROLA PER GRUPPO),MAXREC                13724000
+C                                                                       13725000
+C                                                                       13726000
+         DIMENSION A(MA),AINDX1(ML1,ML2)                                13727000
+       COMMON/FILES/NT(4,99)                                            13728000
+       EQUIVALENCE(NO,NT(1,6)),(NP,NT(1,11))                            13729000
+      COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX,    13730000
+     1ETOP,DELTAU,MANY1,MMAT,NMAX,MAXREC                                13731000
+      COMMON/INDX/NTABL(40,200)                                         13732000
+      COMMON/DIM/M(5)                                                   13733000
+      COMMON/OPZIO/OPZ(4,8,10)                                          13734000
+      EQUIVALENCE( STMP,OPZ(3,1,1))                                     13735000
+C                                                                       13736000
+       WRITE(NP,9999)                                                   13737000
+ 9999  FORMAT(' P3MCF1 ENTERED: GENERAL DATA FILE')                     13738000
+C                                                                       13739000
+C                                                                       13740000
+      NTOUT=51                                                          13741000
+      NTO=NT(1,NTOUT)                                                   13742000
+      CALL REW(NTOUT)                                                   13743000
+C      RECORD 1 MESSO DALLE DIVERSE SUBROUTINES DI P3 IN COMMON /RC1F1/ 13744000
+C      NNUC=LUNGHEZZA TAVOLA COI NOMI DEI NUCLIDI                       13745000
+      NMAT=NNUC                                                         13746000
+      NGROUP=OPZ(2,5,4)                                                 13747000
+      ETOP=OPZ(2,5,2)                                                   13748000
+      DELTAU=OPZ(2,5,3)                                                 13749000
+C                                                                       13750000
+      WRITE(NTO) NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX,      13751000
+     1 ETOP,DELTAU,MANY1,MMAT,NMAX                                      13752000
+      WRITE(NO,1000)  NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,        13753000
+     1 IPTMAX,ETOP,DELTAU,MANY1,MMAT,NMAX                               13754000
+ 1000 FORMAT('0                 FILE MCC2F1 PRODUCED - GENERAL DATA.'// 13755000
+     1 ' NUMBER OF MATERIALS (NMAT):',I5/                               13756000
+     2 ' NUMBER OF ENERGY GROUPS (NGROUP):',I5/                         13757000
+     3 ' RESOLVED RESONANCE MATERIALS (NRESMT):',I5/                    13758000
+     4 ' UNRESOLVED RESONANCE MATERIALS (NUNRMT):',I5/                  13759000
+     5 ' NUMBER OF FISSION SOURCES (MSORS):',I5/                        13760000
+     6 ' NUMBER OF STEPS FOR ELASTIC SCATTERING DATA (NPASS):',I5/      13761000
+     7 ' NUMBER OF LEGENDRE POLINOMIAL COEFFICIENTS (NPL):',I5/         13762000
+     8 ' MAXIMUN NUMBER OF LEGENDRE COMPONENTS (IPTMAX):',I5/           13763000
+     9 ' TOP ENERGY OF MULTIGROUP SCHEME (ETOP):',E12.5/                13764000
+     A ' LETARGY INTERVAL (DELTAU):',E12.5/                             13765000
+     B ' STEP LENGTH FOR LEGENDRE POLINOMIAL (MANY1):',I5/              13766000
+     C ' NUMBER OF MATERIALS IN THE ENERGY DISTRIBUTION FILE (MMAT):',I513767000
+     D/' NUMBER OF GROUPS IN THE ENERGY DISTRIBUTION FILE (NMAX):',I5///13768000
+     E )                                                                13769000
+C                                                                       13770000
+C      RECORD 2 (NOMI DELLA TABELLE NTABL) (NAME NON E' USATO)          13771000
+      WRITE(NTO) (NTABL(1,J),NTABL(2,J),J=1,NMAT)                       13772000
+      WRITE(NO,2000) (NTABL(1,J),NTABL(2,J),J=1,NMAT)                   13773000
+ 2000  FORMAT(' MATERIALS:'/(10(5X,2A4)))                               13774000
+      DO 10 IS=1,NNUC                                                   13775000
+      IND=NTABL(3,IS)                                                   13776000
+      IF(IND.GT.0) GO TO 100                                            13777000
+       CALL ERR(8HP3MCF1      ,100)                                     13778000
+ 100   CONTINUE                                                         13779000
+C       A                                                               13780000
+       REC3(1,IS)=AINDX1(5,IND)                                         13781000
+C       Z                                                               13782000
+       NDUM=AINDX1(21,IND)                                              13783000
+       REC3(2,IS)=AREAL(NDUM)                                           13784000
+C        MAT                                                            13785000
+       NDUM=AINDX1(1,IND)                                               13786000
+       REC3(3,IS)=AREAL(NDUM)                                           13787000
+C       E FISS , E CATT ( DA SMOOTHS) + E PER N,ALFA,NH ETC             13788000
+       REC3(5,IS)=AINDX1(25,IND)+AINDX1(28,IND)                         13789000
+       REC3(4,IS)=AINDX1(24,IND)                                        13790000
+C         QUESTO E/FISS NON COMPRENDE I NEUTRINI (DA MT=18)             13791000
+      SIGP(IS)=AINDX1(23,IND)                                           13792000
+ 10   CONTINUE                                                          13793000
+C                                                                       13794000
+C      SCRIVE RECORD 3                                                  13795000
+      WRITE(NTO) ((REC3(J,I),I=1,NMAT),J=1,5)                           13796000
+      WRITE(NO,4000)(I,NTABL(1,I),NTABL(2,I),                           13797000
+     1 (REC3(J,I),J=1,5),I=1,NMAT)                                      13798000
+ 4000 FORMAT(/' MATERIAL    ,      A',12X,',  Z  ,   MAT ,   E FISS ,', 13799000
+     1 '   E CAPT '/                                                    13800000
+     2 (1X,I5,1X,2A4,E12.5,I10,I10,2E12.5))                             13801000
+C                                                                       13802000
+C      SCRIVE RECORD 4                                                  13803000
+       WRITE(NTO) ((REC4(I,J),J=1,NRESMT),I=1,3),                       13804000
+     1 ((REC4(I,J),J=1,NUNRMT),I=4,5)                                   13805000
+       WRITE(NO,5000)((REC4(I,J),I=1,3),J=1,NRESMT)                     13806000
+ 5000  FORMAT(/ ' RESOLVED RESONANCES,RECORDS,E MAX RESOLVED'/          13807000
+     1  (1X,I10,I15,3X,E12.5))                                          13808000
+       WRITE(NO,6000)((REC4(I,J),I=4,5),J=1,NUNRMT)                     13809000
+ 6000  FORMAT(/' INF ENERGY   , UPPER ENERGY (UNRESOLVED RESONANCE DATA)13810000
+     1 '/(1X,E12.5,4X,E12.5))                                           13811000
+C                                                                       13812000
+C       SCRIVE RECORD 5                                                 13813000
+       WRITE(NTO)(REC5(1,J),REC5(2,J),J=1,MMAT),                        13814000
+     1 ((REC5(I,J),J=1,MMAT),I=3,12),(REC5(12+J,NNUC),J=1,NMAX),MAXREC  13815000
+       WRITE(NO,7000)((REC5(I,J),I=1,12),J=1,MMAT)                      13816000
+ 7000  FORMAT(//' NAME',6X,'NINEL,N2NTH,NLEVLS,N2NLEV,',                13817000
+     1 'MAX1,MAX2, MAX3, MAX4,',                                        13818000
+     2 'NSINK1,NSINK2 (FILE MCC2F6 PARAMETERS)'/(1X,2A4,10I6))          13819000
+       WRITE(NO,8000) MAXREC,(REC5(12+J,NNUC),J=1,NMAX)                 13820000
+ 8000  FORMAT(' MAXIMUM NUMBER OF RECORDS MAXREC:',I10//                13821000
+     2 ' NUMBER OF RECORDS FOR EACH GROUP (FILE MCC2F6):'               13822000
+     1 /(1X,30I4))                                                      13823000
+                                                                        13824000
+C                                                                       13825000
+C      RECORD 6 : SIGP                                                  13826000
+      WRITE(NTO) (SIGP(J),J=1,NMAT)                                     13827000
+      WRITE(NO,9000) (NTABL(1,J),NTABL(2,J),SIGP(J),J=1,NMAT)           13828000
+ 9000  FORMAT(/' SCATTERING RADIUS:'/(3(5X,2A4,1X,E12.5)))              13829000
+                  CALL REW(NTOUT)                                       13830000
+      RETURN                                                            13831000
+      END                                                               13832000
+      SUBROUTINE P4(MA,A)                                               13833000
+C     *******************************                                   13834000
+C                                                                       13835000
+C     READS THE FILES OF  MC2-II  : MCC2F1,3,4,5,6,7,8 .                13836000
+C     PUT THEM IN THE FORMAT OF THE SECOND GROUP OF INTERMEDIATE FILES  13837000
+C     AND WRITES THEIR INDEX, TO ALLOW  MERGING OF LIBRARIES            13838000
+C                                                                       13839000
+C     **********************************************************        13840000
+C                                                                       13841000
+C      IL COMANDO DI QUESTA PARTE CONSTA DI UN NUMERO DI FILE MCC2F...  13842000
+C      ED ALCUNI NUMERI INTERI:                                         13843000
+C           IC(1)=NUMERO  FILE MCC2F1, 3 , 4,5,6,7,8                    13844000
+C           IC(2)= NUMERO LOGICO FILE INPUT                             13845000
+C           IC(3)= NUMERO LOGICO FILE OUTPUT                            13846000
+C       SE IC(1)=0 LI FA TUTTI                                          13847000
+C       SE IC=-N   LI FA TUTTI MA NON IL NUMERO N                       13848000
+C                                                                       13849000
+C       ******************************************************          13850000
+      DIMENSION A(MA)                                                   13851000
+      COMMON/FILES/NT(4,99)                                             13852000
+      EQUIVALENCE (NT(1,6),NO),(NT(1,11),NP),(OPZ(4,1,1),STMP)          13853000
+      COMMON/OPZIO/OPZ(4,5,10)                                          13854000
+      COMMON/COMM/C,IC(6),AC(4)                                         13855000
+      REAL*8 C                                                          13856000
+      COMMON/RC1F1/ NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX,   13857000
+     1ETOP,DELTAU,MANY1,MMAT,NMAX,MAXREC                                13858000
+      COMMON/DIM/MDI1,MDI2,MDI3,IND                                     13859000
+      COMMON/INDX1/AINDX1(40,200)                                       13860000
+C                                                                       13861000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     13862000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     13863000
+C                                                                       13864000
+      DATA NFLGF1/0/                                                    13865000
+      DATA LIMIT/1/                                                     13866000
+C                                                                       13867000
+C       MCC2F1, SEMPRE RICHIESTO,                                       13868000
+C      VA LETTO ALMENO UNA VOLTA NEL CORSO DEL RUN                      13869000
+C                                                                       13870000
+ 9001 FORMAT(' PART 4 : READING OF A MC2-2 INPUT LIBRARY TO BE UPDATED')13871000
+ 9000  FORMAT('0 FILE MCC2F',I1,'  INPUT FILE NUMBER:',I4,              13872000
+     1 ' OUTPUT FILE NUMBER:',I4)                                       13873000
+      IF(NFLGF1.LE.0.AND.ICCCC.NE.1.AND.ICCCC.NE.0.AND.ICCCC.GE.-1)     13874000
+     1 CALL ERR(8HP4       ,100)                                        13875000
+C                                                                       13876000
+C      CERCA IL FILE CHE DEVE SMONTARE                                  13877000
+      IF(IC(1).GT.8.OR.IC(1).LT.-8) RETURN                              13878000
+      WRITE(NP,9001)                                                    13879000
+      IF(IC(1).NE.1.AND.IC(1).GT.0) GO TO 200                           13880000
+      IF(IC(1).EQ.-1) GO TO 200                                         13881000
+      ICCCC=1                                                           13882000
+      NTIN=IC(2)                                                        13883000
+       IF(NTIN.LE.0) NTIN=41                                            13884000
+C                                                                       13885000
+       WRITE(NO,9000) ICCCC,NTIN                                        13886000
+      NTI=NT(1,NTIN)                                                    13887000
+      CALL REW(NTIN)                                                    13888000
+ 100  CONTINUE                                                          13889000
+      READ(NTI,END=555)  NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,     13890000
+     1 IPTMAX,ETOP,DELTAU,MANY1,MMAT,NMAX                               13891000
+      WRITE(NO,1000)  NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,        13892000
+     1 IPTMAX,ETOP,DELTAU,MANY1,MMAT,NMAX                               13893000
+ 1000 FORMAT('0                  CONTENTS OF MC2-2 FILES TO UPDATE:'/   13894000
+     1 ' NUMBER OF MATERIALS (NMAT):',I5/' ENERGY GROUPS (NGROUP):',I5/ 13895000
+     2 ' RESOLVED RES.MATERIALS (NRESMT):',I5/' UNRESOLVED RESONANCE',  13896000
+     3 ' MATERIALS (NUNRMT):',I5/' FISSION SOURCES (MSORS):',I5/        13897000
+     4 ' PASSES FOR ELASTIC SCATTERING DATA (NPASS):',I5/               13898000
+     5 ' LEGENDRE POLINOMIAL COEFFICIENTS (NPL):',I5/' MAX LEGENDRE'    13899000
+     6 ,' COMPONENTS (IPTMAX):',I5/' TOP ENERGY (ETOP):',E12.5/         13900000
+     7 ' LETARGY INTERVAL (DELTAU):',E12.5/                             13901000
+     8 ' PASS LENGTH FOR LEGENDRE POLINOMIAL (MANY1):',I5/' ANELASTIC'  13902000
+     9,' AND N,2N MATERIALS (MMAT):',I5/' GROUPS OF ANEL AND N,2N DATA' 13903000
+     A,' (NMAX):',I5//)                                                 13904000
+C      SPAZI PER RECORDS DEL FILE F1                                    13905000
+      LRC2=1                                                            13906000
+C                RECORD 2                                               13907000
+C                         NAMES ( REAL*8)                               13908000
+      LRC3=LRC2+2*NMAT                                                  13909000
+C                RECORD 3                                               13910000
+C                         A,Z,MAT,EFISS,ECATT                           13911000
+      LRC4=LRC3+5*NMAT                                                  13912000
+C                RECORD 4                                               13913000
+C                         RESONANCES                                    13914000
+      LRC41=LRC4                                                        13915000
+      LRC42=LRC4+NRESMT                                                 13916000
+      LRC43=LRC42+NRESMT                                                13917000
+      LRC44=LRC43+NRESMT                                                13918000
+      LRC45=LRC44+NUNRMT                                                13919000
+C                                                                       13920000
+      LRC5=LRC45+NUNRMT                                                 13921000
+C                 RECORD 5                                              13922000
+C                         ANEL,N2N  ENERGY DISTRIBUTIONS                13923000
+       LRC51=LRC5                                                       13924000
+C                        NOME                                           13925000
+      LRC52=LRC5+2*MMAT                                                 13926000
+C                        NINEL                                          13927000
+      LRC53=LRC52+MMAT                                                  13928000
+C                        N2NTH                                          13929000
+      LRC54=LRC53+MMAT                                                  13930000
+C                        NLEVLS                                         13931000
+      LRC55=LRC54+MMAT                                                  13932000
+C                        N2NLVS                                         13933000
+      LRC56=LRC55+MMAT                                                  13934000
+C                        MAX1                                           13935000
+      LRC57=LRC56+MMAT                                                  13936000
+C                        MAX2                                           13937000
+      LRC58=LRC57+MMAT                                                  13938000
+C                        MAX3                                           13939000
+      LRC59=LRC58+MMAT                                                  13940000
+C                        MAX4                                           13941000
+      LRC60=LRC59+MMAT                                                  13942000
+C                        NSINK1                                         13943000
+      LRC61=LRC60+MMAT                                                  13944000
+C                        NSINK2                                         13945000
+      LRC62=LRC61+MMAT                                                  13946000
+C                        NUMREC                                         13947000
+      LRC63=LRC62+NMAX                                                  13948000
+C                        MAXREC                                         13949000
+      LRC6=LRC63+1                                                      13950000
+C                 RECORD 6                                              13951000
+C                          SIGP                                         13952000
+      LIMIT=LRC6+NMAT +1                                                13953000
+      IF(LIMIT.GT.MA) CALL ERR(8H P4       ,0)                          13954000
+C                                                                       13955000
+C      LETTURA DI F1                                                    13956000
+      N1=2*NMAT                                                         13957000
+      READ(NTI) (A(LRC2+J-1),J=1,N1)                                    13958000
+      READ(NTI)((A(LRC3-1+5*(J-1)+JJ),J=1,NMAT),JJ=1,5)                 13959000
+      N1=3*NRESMT+2*NUNRMT                                              13960000
+      READ(NTI)(A(LRC4+J-1),J=1,N1)                                     13961000
+C             RESONANCE RECORD                                          13962000
+      N1=12*MMAT+1+NMAX                                                 13963000
+      READ(NTI)(A(LRC5+J-1),J=1,N1)                                     13964000
+C             MCC2F6 RECORD                                             13965000
+      MAXREC=NAREAL(A(LRC63))                                           13966000
+      N1=NMAT                                                           13967000
+      READ(NTI)(A(LRC6+J-1),J=1,N1)                                     13968000
+C     THE FOLLOWING STATEMENTS TO ALLOW COMPILATION BY VS FORTRAN       13969000
+C     OF THE STATEMENT:                                                 13970000
+C       WRITE(NO,2000) (A(LRC2+2*J-2),A(LRC2+2*J-1),A(LRC6+J-1),        13971000
+C     1 (A(LRC3-1+5*(J-1)+JJ),JJ=1,5),J=1,NMAT)                         13972000
+      DO 10 J=1,NMAT                                                    13973000
+        LVS1=LRC2+2*J-2                                                 13974000
+        LVS2=LRC2+2*J-1                                                 13975000
+        LVS3=LRC6+J-1                                                   13976000
+        LVS4=LRC3-1+5*(J-1)                                             13977000
+      WRITE(NO,2000) A(LVS1),A(LVS2),A(LVS3),(A(LVS4+JJ),JJ=1,5)        13978000
+ 10     CONTINUE                                                        13979000
+ 2000 FORMAT(1X,2A4,' SIGP:',E12.5,' A:',F6.2,' Z:',I5,' MAT',I5,       13980000
+     1' E FISS:',E12.5,' E CATT:',E12.5)                                13981000
+      NT(3,NTIN)=NT(3,NTIN)+6                                           13982000
+      NFLGF1=NTI                                                        13983000
+      CALL P4MCF1(NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,            13984000
+     1IPTMAX,ETOP,DELTAU,MANY1,MMAT,NMAX,                               13985000
+     2 A(LRC2),A(LRC3),A(LRC6) ,MA-LIMIT,A(LIMIT+1))                    13986000
+            CALL REW(NTIN)                                              13987000
+C                                                                       13988000
+ 200  CONTINUE                                                          13989000
+      IF(IC(1).EQ.2) CALL ERR(8HP4INIMPL  ,200)                         13990000
+C                                                                       13991000
+C                                                                       13992000
+ 300  CONTINUE                                                          13993000
+      IF(IC(1).NE.3.AND.IC(1).GT.0) GO TO 400                           13994000
+      IF(IC(1).EQ.-3) GO TO 400                                         13995000
+      ICCCC=3                                                           13996000
+      NTIN=IC(2)                                                        13997000
+       IF(NTIN.LE.0) NTIN=43                                            13998000
+C                                                                       13999000
+       WRITE(NO,9000) ICCCC,NTIN                                        14000000
+C      SPAZI PER LETTURE RECORDS 1 ETC DI F3                            14001000
+      L1=LIMIT                                                          14002000
+C             NOME                                                      14003000
+       L2=L1+NUNRMT*2                                                   14004000
+C             NISO                                                      14005000
+       L3=L2+NUNRMT                                                     14006000
+C             IFI                                                       14007000
+       L4=L3+NUNRMT                                                     14008000
+C             ISK                                                       14009000
+       L5=L4+NUNRMT                                                     14010000
+C                                                                       14011000
+      LIMIT1=L5                                                         14012000
+C                                                                       14013000
+      CALL P4MCF3(NTIN,MMAT,NGROUP,NRESMT,NUNRMT,                       14014000
+     1 A(LRC2),A(LRC3),A(LRC41),A(LRC42),A(LRC43),A(LRC44),A(LRC45),    14015000
+     2 A(L1),A(L2),A(L3),A(L4),MA-LIMIT1,A(LIMIT1+1))                   14016000
+        CALL REW(NTIN)                                                  14017000
+C                                                                       14018000
+ 400  CONTINUE                                                          14019000
+      IF(IC(1).NE.4.AND.IC(1).GT.0) GO TO 500                           14020000
+      IF(IC(1).EQ.-4) GO TO 500                                         14021000
+      ICCCC=4                                                           14022000
+      NTIN=IC(2)                                                        14023000
+       IF(NTIN.LE.0) NTIN=44                                            14024000
+C                                                                       14025000
+       WRITE(NO,9000) ICCCC,NTIN                                        14026000
+C      SPAZI PER RECORDS 1 E 2 DI F4                                    14027000
+      L1=LIMIT                                                          14028000
+C              NOME                                                     14029000
+      L2=L1+NRESMT*2                                                    14030000
+C              NISO                                                     14031000
+      L3=L2+NRESMT                                                      14032000
+C              IWR                                                      14033000
+      L4=L3+NRESMT                                                      14034000
+C              EL                                                       14035000
+      L5=L4+NRESMT                                                      14036000
+C              EU                                                       14037000
+      L6=L5+NRESMT                                                      14038000
+C                                                                       14039000
+      LIMIT1=L6+1                                                       14040000
+C                                                                       14041000
+      CALL P4MCF4(NTIN,NMAT,NGROUP,NRESMT,                              14042000
+     1A(LRC2),A(LRC3),A(LRC41),A(LRC42),A(LRC43),                       14043000
+     2 A(L1),A(L2),A(L3),A(L4),A(L5),MA-LIMIT1,A(LIMIT1+1))             14044000
+           CALL REW(NTIN)                                               14045000
+C                                                                       14046000
+C                                                                       14047000
+ 500  CONTINUE                                                          14048000
+      IF(IC(1).NE.5.AND.IC(1).GT.0) GO TO 600                           14049000
+      IF(IC(1).EQ.-5) GO TO 600                                         14050000
+      ICCCC=5                                                           14051000
+      NTIN=IC(2)                                                        14052000
+      NTOUT=IC(3)                                                       14053000
+       IF(NTOUT.LE.0) NTOUT=65                                          14054000
+       IF(NTIN.LE.0) NTIN=45                                            14055000
+C                                                                       14056000
+       WRITE(NO,9000) ICCCC,NTIN,NTOUT                                  14057000
+      CALL P4MCF5(NTIN,NTOUT,NMAT,NGROUP,                               14058000
+     1ETOP,DELTAU,A(LRC2),A(LRC3),MA,A(LIMIT+1))                        14059000
+            CALL REW(NTIN)                                              14060000
+C                                                                       14061000
+ 600  CONTINUE                                                          14062000
+      IF(IC(1).NE.6.AND.IC(1).GT.0) GO TO 700                           14063000
+      IF(IC(1).EQ.-6) GO TO 700                                         14064000
+      ICCCC=6                                                           14065000
+      NTIN=IC(2)                                                        14066000
+      NTOUT=IC(3)                                                       14067000
+       IF(NTOUT.LE.0) NTOUT=66                                          14068000
+       IF(NTIN.LE.0) NTIN=46                                            14069000
+C                                                                       14070000
+       WRITE(NO,9000) ICCCC,NTIN,NTOUT                                  14071000
+      NTI=NT(1,NTIN)                                                    14072000
+      CALL REW(NTIN)                                                    14073000
+C      SPAZI VARI PER LETTURA INDICI DI INDICI                          14074000
+      L1=LIMIT                                                          14075000
+      L2=L1+MMAT                                                        14076000
+      LIMIT1=L2+MMAT                                                    14077000
+      CALL P4MCF6(NTIN,NTOUT,NMAT,NGROUP,                               14078000
+     1  ETOP,DELTAU,MMAT,NMAX,                                          14079000
+     2 A(LRC2),A(LRC3),A(LRC5),                                         14080000
+     3 A(LRC52),A(LRC53),A(LRC54),A(LRC55),A(LRC56),A(LRC57),           14081000
+     4 A(LRC58),A(LRC59),A(LRC60),A(LRC61),A(LRC62),MAXREC,             14082000
+     5 A(L1),A(L2),MA-LIMIT1,A(LIMIT1+1))                               14083000
+            CALL REW(NTIN)                                              14084000
+C                                                                       14085000
+C                                                                       14086000
+700   CONTINUE                                                          14087000
+      IF(IC(1).NE.7.AND.IC(1).GT.0) GO TO 800                           14088000
+      IF(IC(1).EQ.-7) GO TO 800                                         14089000
+      ICCCC=7                                                           14090000
+      NTIN=IC(2)                                                        14091000
+      NTOUT=IC(3)                                                       14092000
+       IF(NTOUT.LE.0) NTOUT=67                                          14093000
+       IF(NTIN.LE.0) NTIN=47                                            14094000
+C                                                                       14095000
+       WRITE(NO,9000) ICCCC,NTIN,NTOUT                                  14096000
+C      SPAZI VARI PER LETTURE                                           14097000
+      L1=LIMIT                                                          14098000
+      L2=L1+2*MSORS                                                     14099000
+      L3=L2+MSORS                                                       14100000
+      L4=L3+NMAT                                                        14101000
+        LIMIT1=L4+NMAT                                                  14102000
+C                                                                       14103000
+      CALL P4MCF7(NTIN,NTOUT,NMAT,NGROUP,MSORS,                         14104000
+     1       ETOP,DELTAU,                                               14105000
+     2 A(LRC2),A(LRC3),                                                 14106000
+     5 A(L1),A(L2),A(L3),A(L4),MA-LIMIT1,A(LIMIT1+1))                   14107000
+            CALL REW(NTIN)                                              14108000
+C                                                                       14109000
+ 800  CONTINUE                                                          14110000
+      IF(IC(1).NE.8.AND.IC(1).GT.0) GO TO 900                           14111000
+      IF(IC(1).EQ.-8) GO TO 900                                         14112000
+      ICCCC=8                                                           14113000
+      NTIN=IC(2)                                                        14114000
+      NTOUT=IC(3)                                                       14115000
+       IF(NTOUT.LE.0) NTOUT=68                                          14116000
+       IF(NTIN.LE.0) NTIN=48                                            14117000
+C                                                                       14118000
+       WRITE(NO,9000) ICCCC,NTIN,NTOUT                                  14119000
+      L1=LIMIT                                                          14120000
+C                    LGTH                                               14121000
+      L2=L1+NMAT                                                        14122000
+C IR                                                                    14123000
+      L3=L2+NMAT                                                        14124000
+C                    IL                                                 14125000
+      L4=L3+NMAT                                                        14126000
+C                    IPT                                                14127000
+      LIMIT1=L4+NMAT*NPASS                                              14128000
+C                                                                       14129000
+      CALL P4MCF8(NTIN,NTOUT,NMAT,NGROUP,NPASS,NPL,                     14130000
+     1IPTMAX,ETOP,DELTAU,MANY1,                                         14131000
+     2 A(LRC2),A(LRC3),                                                 14132000
+     5 A(L1),A(L2),A(L3),A(L4),MA-LIMIT1,A(LIMIT1+1))                   14133000
+                       CALL REW(NTIN)                                   14134000
+ 900   CONTINUE                                                         14135000
+        IND=IND+1                                                       14136000
+        CALL SCARIN(4,MIND11,IND,AINDX1)                                14137000
+      RETURN                                                            14138000
+ 555  WRITE(NP,9555) NTI                                                14139000
+      WRITE(NO,9555) NTI                                                14140000
+ 9555 FORMAT(' !!! WARNING !! NO FILE MCC2F1 TO BE UPDATED FOUND ON'    14141000
+     1 ,' UNIT:',I4)                                                    14142000
+      RETURN                                                            14143000
+      END                                                               14144000
+      SUBROUTINE P4MCF1(NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,      14145000
+     1 IPTMAX,ETOP,DELTAU,MANY1,MMAT,NMAX,NAME,NREC3,SIGP,MA,A)         14146000
+C     ****************************************************************  14147000
+C      FILE MCC2F1                                                      14148000
+C     SMONTA FILE MCC2F1 E SCRIVE RECORD INDICE CON RECORD 6=SIGP       14149000
+C                 IL FILE MCC2F1 LO LEGGE P4                            14150000
+C                                                                       14151000
+C     ********************************************************          14152000
+C                                                                       14153000
+      COMMON/DIM/M(5)                                                   14154000
+      EQUIVALENCE(M(4),IND)                                             14155000
+      COMMON/INDX1/AINDX1(40,200)                                       14156000
+C                                                                       14157000
+       COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3     14158000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     14159000
+C                                                                       14160000
+      DIMENSION NREC3(5,NMAT),SIGP(NMAT),NAME(NMAT)                     14161000
+C                                                                       14162000
+      DO 10 IM=1,NMAT                                                   14163000
+       ZA=1000.0*(NREC3(2,IM))+AREAL(NREC3(1,IM))                       14164000
+       NA=AREAL(NREC3(1,IM))                                            14165000
+C                                                                       14166000
+      IND=IND+1                                                         14167000
+      IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1)                14168000
+      CALL EMPIN(MIND11,AINDX1(1,IND),FLOAT(NREC3(3,IM)),               14169000
+     1 -1. ,0.,ZA,NREC3(1,IM),                                          14170000
+     2 NAME(IM*2-1),NAME(IM*2),NAME(IM*2-1),NAME(IM*2),0.,              14171000
+     3 1.,0.,0.,0.,0.,0.,0.,0.,0.,0.,                                   14172000
+     4 FLOAT(NREC3(2,IM)),FLOAT(NA),SIGP(IM),                           14173000
+     5 NREC3(4,IM),NREC3(5,IM),0.,0.,0.,0.,SIGP(IM),                    14174000
+     6 1.,0.,0.,0.,0.,0.,0.,0.,0.,0.)                                   14175000
+C                                                                       14176000
+ 10   CONTINUE                                                          14177000
+      RETURN                                                            14178000
+      END                                                               14179000
+      SUBROUTINE P4MCF3(NTIN,NMAT,NGROUP,NRESMT,NUNRMT,                 14180000
+     1 NAME,NREC3,NRES,NREC,EMAXR,EMAXU,EMINU,                          14181000
+     2 NAMUN,NISO,IFI,ISK,MA,NA)                                        14182000
+C     ******************************************************************14183000
+C                                                                       14184000
+C      READS  FILE MCC2F3                                               14185000
+C                                                                       14186000
+C       IL FILE NON VIENE REALMENTE SMONTATO, NE E' SOLO FATTO UN INDICE14187000
+C                                                                       14188000
+C     ***************************************************************   14189000
+C                                                                       14190000
+      DIMENSION NAME(NMAT),NREC3(5,NMAT),NRES(NRESMT),NREC(NRESMT)      14191000
+      DIMENSION EMAXU(NUNRMT),EMINU(NUNRMT),NAMUN(NUNRMT),NISO(NUNRMT)  14192000
+      DIMENSION IFI(NUNRMT),ISK(NUNRMT),NA(MA),EMAXR(NRESMT)            14193000
+C                                                                       14194000
+C      COMMONS:                                                         14195000
+      COMMON/FILES/NT(4,99)                                             14196000
+      EQUIVALENCE (NO,NT(1,6)),(NP,NT(1,11))                            14197000
+      COMMON/INDX1/AINDX1(40,200)                                       14198000
+      COMMON/COMM/C,IC(6),AC(4)                                         14199000
+      COMMON/DIM/M1,M2,M3,IND                                           14200000
+      COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3      14201000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     14202000
+C                                                                       14203000
+C                                                                       14204000
+C      FILE INPUT                                                       14205000
+      NTI=NT(1,NTIN)                                                    14206000
+      CALL REW(NTIN)                                                    14207000
+C                      LETTURA RECORD 1                                 14208000
+       N1=NUNRMT*2                                                      14209000
+      READ(NTI,END=555)(NAMUN(J),J=1,N1)                                14210000
+C                      LETTURA RECORD 2                                 14211000
+      READ(NTI)(NISO(J),J=1,NUNRMT),(IFI(J),J=1,NUNRMT),                14212000
+     1 (ISK(J),J=1,NUNRMT),LSTMAX,JSTMAX,NPTMAX                         14213000
+        WRITE(NP,1000) NTI,(NAMUN(2*J-1),NAMUN(2*J),EMAXU(J),EMINU(J),  14214000
+     1 NISO(J),IFI(J),ISK(J),J=1,NUNRMT)                                14215000
+ 1000   FORMAT(' UNRESOLVED RESONANCE FILE MCC2F3 READ ON UNIT:',I5/    14216000
+     2 (1X,2A4,' EMAX:',E12.5,' EMIN:',E12.5,' NISO:',I5,' IFI:',I4,    14217000
+     3 ' ISK:',I4))                                                     14218000
+      NT(4,NTIN)=NT(4,NTIN)+2                                           14219000
+      DO 10 IN=1,NUNRMT                                                 14220000
+      NIS=NISO(IN)                                                      14221000
+      N1=6*NIS                                                          14222000
+C                      LETTURA RECORD 3                                 14223000
+      READ(NTI)(NA(J),J=1,N1)                                           14224000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           14225000
+C                                                                       14226000
+      DO 20 IS=1,NIS                                                    14227000
+      NPT=NA(NIS*4+IS)                                                  14228000
+      LST=NA(NIS*3+IS)                                                  14229000
+      L1=N1+1                                                           14230000
+C              ES(NPT)                                                  14231000
+      L2=L1+NPT                                                         14232000
+C              DEL(NPT)                                                 14233000
+      L3=L2+NPT                                                         14234000
+C              JST(LST)                                                 14235000
+      L4=L3+LST-1                                                       14236000
+C                                                                       14237000
+      READ(NTI) (NA(J),J=L1,L4)                                         14238000
+      N1=L4+1                                                           14239000
+      N2=0                                                              14240000
+      DO 30 IJ=L3,L4                                                    14241000
+ 30   N2=N2+NA(IJ)                                                      14242000
+      N2=N2*(4*NPT+3) + N1-1                                            14243000
+      IF(N2.GT.MA) CALL ERR(8HP4MCF3    ,30)                            14244000
+      READ(NTI) (NA(J),J=N1,N2)                                         14245000
+C                                                                       14246000
+C      RIEMPIE L'INDICE                                                 14247000
+C      CERCA IL MATERIALE ( L'ORDINE IN CUI E' IN F1)                   14248000
+      I=IDENT8(NMAT,NAMUN(IN*2-1),NAME)                                 14249000
+      IF(I.LE.0) CALL ERR(8HP4MCF3      ,40)                            14250000
+C      I E' IL NUMERO DEL NUCLIDE NEI RECORDS DI F1                     14251000
+C                                                                       14252000
+      IND=IND+1                                                         14253000
+      IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1)                14254000
+      CALL EMPIN(MIND11,AINDX1(1,IND),FLOAT(NREC3(3,I)),-3.,0.,0.,      14255000
+     1 NREC3(1,I),NAMUN(IN*2-1),NAMUN(IN*2),NAMUN(IN*2-1),NAMUN(IN*2),  14256000
+     2 0.,3.,0.,0.,FLOAT(NTI),FLOAT(NTIN),FLOAT(NT(4,NTIN)),2.,         14257000
+     3 FLOAT(L4-L1+1),FLOAT(N2-N1+1),FLOAT(NIS),FLOAT(IFI(IN)),2.,      14258000
+     4 FLOAT(LST),FLOAT(JSTMAX),FLOAT(NPT),                             14259000
+     5 NA(IS),NA(NIS+IS),NA(NIS*5+IS),NA(NIS*2+IS),0.,0.,               14260000
+     6 EMINU(IN),EMAXU(IN),FLOAT(IS),0.,0.,0.,0.,0.,0.)                 14261000
+      NT(4,NTIN)=NT(4,NTIN)+2                                           14262000
+ 20   CONTINUE                                                          14263000
+ 10   CONTINUE                                                          14264000
+C      FINE LOOP ISOTOPI E MATERIALE ...............................    14265000
+      RETURN                                                            14266000
+ 555  WRITE(NP,9555) NTI                                                14267000
+      WRITE(NO,9555) NTI                                                14268000
+ 9555 FORMAT(' !!! WARNING !! NO FILE MCC2F3 TO BE UPDATED FOUND ON'    14269000
+     1 ,' UNIT:',I4)                                                    14270000
+      RETURN                                                            14271000
+      END                                                               14272000
+      SUBROUTINE P4MCF4(NTIN,NMAT,NGROUP,NRESMT,                        14273000
+     1 NAME,NREC3,NRES,NREC,EMAXR,                                      14274000
+     2 NAMER,NISO,IWR,EL,EU,MA,A)                                       14275000
+C     *************************************************************     14276000
+C                                                                       14277000
+C      READS FILE MCC2F4                                                14278000
+C                                                                       14279000
+C       NON VIENE REALMENTE SMONTATO, NE VIENE SOLO FATTO UN INDICE     14280000
+C                                                                       14281000
+C     *******************************************************           14282000
+C                                                                       14283000
+      DIMENSION NAMER(NRESMT),NISO(NRESMT),IWR(NRESMT),EL(NRESMT),      14284000
+     1 EU(NRESMT),NAME(NMAT),NREC3(5,NMAT),A(MA),EMAXR(NRESMT)          14285000
+C                                                                       14286000
+C      COMMONS:                                                         14287000
+      COMMON/FILES/NT(4,99)                                             14288000
+      EQUIVALENCE (NO,NT(1,6)),(NP,NT(1,11))                            14289000
+      COMMON/INDX1/AINDX1(40,200)                                       14290000
+      COMMON/DIM/M1,M2,M3,IND                                           14291000
+      COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3      14292000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     14293000
+C                                                                       14294000
+C      FILE INPUT                                                       14295000
+      NTI=NT(1,NTIN)                                                    14296000
+      CALL REW(NTIN)                                                    14297000
+C                                                                       14298000
+C     LETTURA RECORD 1 E  RECORD  2                                     14299000
+      N1=2*NRESMT                                                       14300000
+      READ(NTI,END=555) (NAMER(J),J=1,N1)                               14301000
+      READ(NTI) (NISO(J),J=1,NRESMT),(IWR(J),J=1,NRESMT),               14302000
+     1(EL(J),J=1,NRESMT),(EU(J),J=1,NRESMT)                             14303000
+      NT(4,NTIN)=NT(4,NTIN)+2                                           14304000
+      WRITE(NP,1000) NTI,(NAMER(2*J-1),NAMER(2*J),NISO(J),IWR(J),       14305000
+     2               EL(J),EU(J),EMAXR(J),J=1,NRESMT)                   14306000
+ 1000 FORMAT(' RESOLVED RESONANCE FILE MCC2F4 READ ON UNIT:',I5/        14307000
+     1 (1X,2A4,' NISO:',I4,' IWR:',I4,' EL:',E12.5,' EU:',E12.5,        14308000
+     2 ' EMAXR:',E12.5))                                                14309000
+      DO 10 IM=1,NRESMT                                                 14310000
+      IW=IWR(IM)                                                        14311000
+      ELL=EL(IM)                                                        14312000
+      EUU=EU(IM)                                                        14313000
+      NIS=NISO(IM)                                                      14314000
+      L1=1                                                              14315000
+C               ABUN                                                    14316000
+       L2=NIS+L1                                                        14317000
+C               NRGYS                                                   14318000
+       L3=L2+NIS-1                                                      14319000
+C                                                                       14320000
+      IF(MA.LT.L3) CALL ERR(8HP4MCF4    ,39)                            14321000
+      READ(NTI) (A(J),J=L1,L3)                                          14322000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           14323000
+C                                                                       14324000
+      DO 20 IS=1,NIS                                                    14325000
+      ABU=A(L1+IS-1)                                                    14326000
+      NRGY=NAREAL(A(L2+IS-1))                                           14327000
+      NRGY2=NRGY*2                                                      14328000
+C                                                                       14329000
+C      NUMERO DI PARAMETRI                                              14330000
+      NRCF=8                                                            14331000
+      IF(IW.EQ.2) NRCF=10                                               14332000
+      IF(IW.EQ.3) NRCF=16                                               14333000
+C                                                                       14334000
+C     NUMERO RECORDS (I PARAMETRI 5 E 6 SONO IN UN SOLO RECORD PER BW)  14335000
+       NREC=7                                                           14336000
+       IF(IW.EQ.2) NREC=10                                              14337000
+       IF(IW.EQ.3) NREC=15                                              14338000
+C                                                                       14339000
+       DO 30 IR=1,NREC                                                  14340000
+ 30    READ(NTI)                                                        14341000
+C                                                                       14342000
+C                                                                       14343000
+C     IDENTIFICAZIONE NUMERO NUCLIDE IN F1 : =I                         14344000
+      I=IDENT8(NMAT,NAMER(IM*2-1),NAME)                                 14345000
+C      RIEMPIE INDICE                                                   14346000
+      IND=IND+1                                                         14347000
+      IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1)                14348000
+      CALL EMPIN(MIND11,AINDX1(1,IND),FLOAT(NREC3(3,I)),-4.,0.,0.,      14349000
+     1NREC3(1,I),NAMER(IM*2-1),NAMER(IM*2),NAMER(IM*2-1),NAMER(IM*2),   14350000
+     2 0.,4.,0.,0.,FLOAT(NTI),FLOAT(NTIN),FLOAT(NT(4,NTIN)),FLOAT(      14351000
+     3 NREC),FLOAT(NRGY),FLOAT(NRCF),FLOAT(NIS),FLOAT(IW),EMAXR(IM),    14352000
+     4 FLOAT(IW),0.,0.,ABU,0.,0.,0.,0.,0.,ELL,EUU,                      14353000
+     5 FLOAT(IS),0.,0.,0.,0.,0.,0.)                                     14354000
+      NT(4,NTIN)=NT(4,NTIN)+NREC                                        14355000
+C      FINE LOOPS.............................................          14356000
+ 20   CONTINUE                                                          14357000
+ 10   CONTINUE                                                          14358000
+      RETURN                                                            14359000
+ 555  WRITE(NP,9555) NTI                                                14360000
+      WRITE(NO,9555) NTI                                                14361000
+ 9555 FORMAT(' !!! WARNING !! NO FILE MCC2F4 TO BE UPDATED FOUND ON'    14362000
+     1 ,' UNIT:',I4)                                                    14363000
+      RETURN                                                            14364000
+      END                                                               14365000
+      SUBROUTINE P4MCF5(NTIN,NTOUT,NMAT,NGROUP,                         14366000
+     1  ETOP,DELTAU,NOM,NREC3,MA,A)                                     14367000
+C     ****************************************************************  14368000
+C                                                                       14369000
+C      FILE MCC2F5 OF MC2-II                                            14370000
+C                                                                       14371000
+C       SOLO UNA ANELASTICA VIENE PRODOTTA, IL RESTO NON VIENE          14372000
+C       REALMENTE SMONTATO MA SE NE FA SOLO L'INDICE                    14373000
+C                                                                       14374000
+C     ****************************************************************  14375000
+C                                                                       14376000
+      DIMENSION NOM(NMAT),NREC3(5,NMAT),A(MA)                           14377000
+      DIMENSION NFLG(10),ANMT(10)                                       14378000
+      DATA ANMT/0.,2.,18.,102.,103.,104.,105.,106.,107.,1./             14379000
+C                                                                       14380000
+C      COMMONS:                                                         14381000
+      COMMON/FILES/NT(4,99)                                             14382000
+      EQUIVALENCE (NO,NT(1,6)),(NP,NT(1,11))                            14383000
+      COMMON/INDX1/AINDX1(40,200)                                       14384000
+      COMMON/DIM/M1,M2,M3,IND                                           14385000
+      COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3      14386000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     14387000
+C                                                                       14388000
+C                                                                       14389000
+      LTOT=NGROUP+5                                                     14390000
+      NGR2=LTOT+NGROUP-1                                                14391000
+C      FILE INPUT                                                       14392000
+      NTI=NT(1,NTIN)                                                    14393000
+      CALL REW(NTIN)                                                    14394000
+C      FILE DI OUTPUT                                                   14395000
+      NTO=NT(1,NTOUT)                                                   14396000
+      CALL POSL(NTOUT)                                                  14397000
+      IF(MA.LT.NGROUP+LTOT) CALL ERR(8HP4MCF5    ,0)                    14398000
+      WRITE(NP,1000) NTI                                                14399000
+ 1000   FORMAT(' SMOOTH CROSS SECTION FILE MCC2F5 READ ON UNIT:',I5)    14400000
+      DO 10 IM=1,NMAT                                                   14401000
+      CALL RIEMP(0,NGROUP,A(LTOT))                                      14402000
+      READ(NTI,END=555) NOM1,NOM2                                       14403000
+      READ(NTI) NFLG,A0,A1,A2,A3                                        14404000
+      NT(4,NTIN)=NT(4,NTIN)+2                                           14405000
+C                                                                       14406000
+       IF(A0.EQ.0.AND.A1.EQ.0..AND.A2.EQ.0..AND.A3.EQ.0.) GO TO 100     14407000
+       IND=IND+1                                                        14408000
+       IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1)               14409000
+       CALL EMPIN(MIND11,AINDX1(1,IND),FLOAT(NREC3(3,IM)),-5.,18.,0.,   14410000
+     1NREC3(1,IM),NOM(IM*2-1),NOM(IM*2),NOM1,NOM2,0.,5.,2.,11.          14411000
+     2 ,0.,0.,0.,0.,0.,0.,FLOAT(NGROUP),ETOP,DELTAU,0.,0.,              14412000
+     3 5.,0.,1.,0.,0.,0.,0.,0.,0.,A0,A1,A2,A3,0.,0.,0.)                 14413000
+C                                                                       14414000
+ 100  DO 20 IR=2,10                                                     14415000
+      NFL=NFLG(IR)                                                      14416000
+      IF(NFL.LE.0) GO TO 20                                             14417000
+      READ(NTI) (A(J),J=1,NFL)                                          14418000
+      WRITE(NP,2000) NOM1,NOM2,ANMT(IR),NFL                             14419000
+ 2000 FORMAT(1X,2A4,' MT=',F4.0,' READ FROM GROUP 1 TO GROUP:',I5)      14420000
+      IND=IND+1                                                         14421000
+      IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1)                14422000
+      CALL EMPIN(MIND11,AINDX1(1,IND),FLOAT(NREC3(3,IM)),-5.,ANMT(IR),  14423000
+     1 0.,NREC3(1,IM),NOM(IM*2-1),NOM(IM*2),NOM1,NOM2,0.,5.,3.,0.,      14424000
+     2 FLOAT(NTI),FLOAT(NTIN),FLOAT(NT(4,NTIN)),1.,0.,0.,               14425000
+     3 FLOAT(NGROUP),ETOP,DELTAU,FLOAT(IR-1),FLOAT(NFL),1.,0.,0.,1.,    14426000
+     4 0.,0.,0., 0.,0.,0., 0.,0.,0., 0.,0.,0.)                          14427000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           14428000
+C                                                                       14429000
+       IF(IR.EQ.10) GO TO 200                                           14430000
+       DO 30 I=1,NFL                                                    14431000
+ 30    A(LTOT+I-1)=A(LTOT+I-1)+A(I)                                     14432000
+       GO TO 20                                                         14433000
+C       FA UNA NELASTICA , DALLA TOTAL MENO TUTTE LE SUE COMPONENTI, DAT14434000
+C       CHE P3 RICREALA TOTAL PER SOMMA ( COSI QUESTA ANELASTICA VIENE A14435000
+C       CONTENERE TUTTO QUELLO CHE NON E' NELLE PRIME 7 REAZIONI)       14436000
+ 200     DO 40 I=1,NFL                                                  14437000
+ 40    A(LTOT+I-1)=A(I)-A(LTOT+I-1)                                     14438000
+       WRITE(NTO) (A(J),J=LTOT,NGR2)                                    14439000
+       WRITE(NP,3000) NOM1,NOM2                                         14440000
+ 3000   FORMAT(1X,2A4,' ANELASTIC CROSS SECTION GENERATED')             14441000
+       IND=IND+1                                                        14442000
+      IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1)                14443000
+      CALL EMPIN(MIND11,AINDX1(1,IND),FLOAT(NREC3(3,IM)),-5.,4.,0.,     14444000
+     1 NREC3(1,IM),NOM(IM*2-1),NOM(IM*2),NOM1,NOM2,0.,5.,3.,0.,         14445000
+     2 FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(3,NTOUT)),1.,0.,0.,             14446000
+     3 FLOAT(NGROUP),ETOP,DELTAU,11.,FLOAT(NGROUP),1.,0.,0.,1.,         14447000
+     4 0.,0.,0., 0.,0.,0., 0.,0.,0., 0.,0.,0.)                          14448000
+       NT(3,NTOUT)=NT(3,NTOUT)+1                                        14449000
+       NT(4,NTOUT)=NT(3,NTOUT)                                          14450000
+ 20    CONTINUE                                                         14451000
+ 10   CONTINUE                                                          14452000
+      RETURN                                                            14453000
+ 555  WRITE(NP,9555) NTI                                                14454000
+      WRITE(NO,9555) NTI                                                14455000
+ 9555 FORMAT(' !!! WARNING !! FILE MCC2F5 TO BE UPDATED INCOMPLETE,'    14456000
+     1 ,' UNIT:',I4)                                                    14457000
+      RETURN                                                            14458000
+      END                                                               14459000
+      SUBROUTINE P4MCF6(NTIN,NTOUT,NMAT,NGROUP,                         14460000
+     1 ETOP,DELTAU,MMAT,NMAX,NOMI,NREC3,ANAME,                          14461000
+     2 NINEL,N2NTH,NLEVLS,N2NLVS,MAX1,MAX2,MAX3,MAX4,                   14462000
+     3 NSINK1,NSINK2,NUMREC,MAXREC,NRC1I,NRC1L,MA,A)                    14463000
+C     ************************************************************      14464000
+C                                                                       14465000
+C        FILE MCC2F6 : DISTRIBUZIONI ENERGETICHE REAZIONI DI            14466000
+C                            SCATTERING ANELASTICO ED N,2N              14467000
+C      NRC1I : INIZIO DATI DI 1 NUCLIDE IN RECORD 1 DI F6               14468000
+C      NRC1L : LUNGHEZZA DATI DI UN NUCLIDE IN RECORD 1 DI F6           14469000
+C                                                                       14470000
+C     **************************************************************    14471000
+C                                                                       14472000
+      DIMENSION NOMI(NMAT),AR2(14),NREC3(5,NMAT)                        14473000
+      DIMENSION ANAME(MMAT),NINEL(MMAT),N2NTH(MMAT),NLEVLS(MMAT),       14474000
+     1 MAX1(MMAT),MAX2(MMAT),MAX3(MMAT),MAX4(MMAT),NSINK1(MMAT),        14475000
+     2 NSINK2(MMAT),NUMREC(NMAX)                                        14476000
+      DIMENSION A(MA),NRC1I(MMAT),NRC1L(MMAT),N2NLVS(MMAT)              14477000
+C                                                                       14478000
+C                                                                       14479000
+C      COMMONS:                                                         14480000
+        COMMON /OPZIO/OPZ(4,8,10)                                       14481000
+        EQUIVALENCE (OPZ(4,6,1),STMP),(NT(1,6),NO),(NT(1,11),NP)        14482000
+      COMMON/FILES/NT(4,99)                                             14483000
+      COMMON/INDX1/AINDX1(40,200)                                       14484000
+      COMMON/DIM/M1,M2,M3,IND                                           14485000
+      COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3      14486000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     14487000
+C                                                                       14488000
+C      FILE INPUT                                                       14489000
+      NTI=NT(1,NTIN)                                                    14490000
+      CALL REW(NTIN)                                                    14491000
+C      FILE DI OUTPUT                                                   14492000
+      NTO=NT(1,NTOUT)                                                   14493000
+      CALL POSL(NTOUT)                                                  14494000
+      WRITE(NP,1000) NTI                                                14495000
+ 1000 FORMAT(' ENERGY DISTRIBUTION FILE MCC2F6 READ FROM UNIT:',I5)     14496000
+C     LOOP SU MATERIALI .........................................       14497000
+C      CALCOLA PER OGNI MATERIALE LE DIMENSIONI DEL RECORD 1,2,3        14498000
+C      CALCOLA POSIZIONE DEI DATI DEI VARI NUCLIDI NEL RECORD 1         14499000
+      NRC1I(1)=1                                                        14500000
+      NRC1L(1)=NLEVLS(1)+MAX1(1)+N2NLVS(1)+NSINK1(1)+NSINK2(1)          14501000
+            IF(MMAT.LT.2) GO TO 55                                      14502000
+       DO  5 I=2,MMAT                                                   14503000
+      NRC1L(I)=NLEVLS(I)+MAX1(I)+N2NLVS(I)+NSINK1(I)+NSINK2(I)          14504000
+      NRC1I(I)=NRC1I(I-1)+NRC1L(I-1)                                    14505000
+ 5    CONTINUE                                                          14506000
+ 55   NRC1=NRC1I(MMAT)+NRC1L(MMAT) -1                                   14507000
+      IF(NRC1+MAXREC+1.GT.MA) CALL ERR(8HP4MCF6       ,0)               14508000
+      READ(NTI,END=555) (A(J),J=1,NRC1)                                 14509000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           14510000
+      LIMIT=NRC1 +1                                                     14511000
+C      IL RECORD 1 LO TENGO IN MEMORIA CON TUTTI I MATERIALI            14512000
+C     LOOP SUI NUCLIDI ( LETTURA DI UN NUCLIDE ) ...............        14513000
+      DO 10 IM=1,MMAT                                                   14514000
+      NUMREM=2                                                          14515000
+       MAXREM=0                                                         14516000
+C      LETTURA DI 1 MATERALE                                            14517000
+C      RICERCA DEL MATERIALE : I=POSIZ DEL MAT IN F1                    14518000
+      I=IDENT8(NMAT,ANAME(IM*2-1),NOMI)                                 14519000
+C     LEGGE TUTTO FINO AL MATERIALE IN QUESTIONE                        14520000
+C      POSIZIONE AD INIZIO LOOP SUI GRUPPI                              14521000
+      CALL REW(NTIN)                                                    14522000
+      READ(NTI)                                                         14523000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           14524000
+C      SCRIVE RECORD  DEL MATERIALE  (RECORD 5 DI MCC2F1)               14525000
+      WRITE(NTO) ANAME(IM*2-1),ANAME(IM*2),NINEL(IM),N2NTH(IM),         14526000
+     1 NLEVLS(IM),N2NLVS(IM),                                           14527000
+     1 MAX1(IM),MAX2(IM),MAX3(IM),MAX4(IM),NSINK1(IM),NSINK2(IM),       14528000
+     2 NUMREC,MAXREC                                                    14529000
+C      SCRIVE RECORD 1 DI F6                                            14530000
+      N1=NRC1I(IM)                                                      14531000
+      N2=N1+NRC1L(IM)-1                                                 14532000
+      WRITE(NTO) NRC1L(IM),(A(J),J=N1,N2)                               14533000
+      IF(MAXREM.LT.NRC1L(IM)) MAXREM=NRC1L(IM)                          14534000
+      NT3OU=2                                                           14535000
+      WRITE(NP,9000) ANAME(IM*2-1),ANAME(IM*2),NINEL(IM),N2NTH(IM),     14536000
+     1      NLEVLS(IM),N2NLVS(IM),MAX1(IM),MAX3(IM),MAX2(IM),MAX4(IM)   14537000
+ 9000 FORMAT(1X,2A4,' N2N,ANEL GROUPS:',I4,I5,' LEVELS:',2I3,           14538000
+     1       ' EVAP.SPEC.:',2I3,' TAB.:',2I2)                           14539000
+        IF(STMP.GT.10.)                                                 14540000
+     1WRITE(NO,1100) ANAME(IM*2-1),ANAME(IM*2),NINEL(IM),N2NTH(IM),     14541000
+     2 NLEVLS(IM),N2NLVS(IM),                                           14542000
+     3 MAX1(IM),MAX2(IM),MAX3(IM),MAX4(IM),NSINK1(IM),NSINK2(IM),       14543000
+     4 MAXREC,NUMREC                                                    14544000
+ 1100 FORMAT(1X,2A4,' PARAMETERS: NINEL,  N2NTH,NLELVS,N2NLVS,   MAX1,' 14545000
+     1,'MAX2  MAX3 ,  MAX4 ,NSINK1,NSINK2, MAXREC, NUMREC:'/(20X,12I7)) 14546000
+      IF(STMP.GT.100.) WRITE(NO,2000) (A(J),J=N1,N2)                    14547000
+ 2000 FORMAT(' RECORD 1 READ:'/(1X,10E12.5))                            14548000
+      DO 15 IG=1,NMAX                                                   14549000
+C     SE IL GRUPPO E' SOTTO SOGLIA NON VIENE SCRITTO E NON VIENE LETTO  14550000
+C     ( NON C'E' PIU NULLA SU MCC2F6 PER IL MATERIALE ) MCC2F6 VIENE    14551000
+C     POI RIAVVOLTO PER LEGGERCI IL NUCLIDE SUCCESSIVO                  14552000
+C                                                                       14553000
+        IF(NINEL(IM).LT.IG.AND.N2NTH(IM).LT.IG) GOTO 160                14554000
+C                                                                       14555000
+C      RECORD 2                                                         14556000
+C                                                                       14557000
+C       SUMJ LEGGE IL RECORD 2 DEL GRUPPO. PER IL NUCLIDE IN QUESTIONE  14558000
+C        CALCOLA I VALORI DEI PARAMETRI SIGIN,SIGN2N,...N2NLV           14559000
+C        CALCOLA IL NUMERO DI PAROLE DEL RECORD 3 E 4                   14560000
+C                                                                       14561000
+       CALL SUMJ(IG,IM,NTI,NR,NWDS,NPDS3,NPDS4,NWDS3,NWDS4,NFLAG4,      14562000
+     1 NFLAG3,                                                          14563000
+     1 A(LIMIT),MMAT,SIGIN,SIGN2N,NINEVP,                               14564000
+     2 NINTAB,N2NEVP,N2NTAB,NSTRT1,NEND1,NSTRT2,NEND2,KT1,KT2,NLVS,     14565000
+     3 N2NLV,NINEL,N2NTH,NLEVLS,N2NLVS,MAX1,MAX2,MAX3,MAX4)             14566000
+       NT(4,NTIN)=NT(4,NTIN)+1                                          14567000
+C                                                                       14568000
+C       IN A(NWDS) C'E' IL RECORD 2 ED ANCHE IN SIGIN,SIGN2N ECC.       14569000
+C                                                                       14570000
+C      NR  : PAROLE DEL RECORD 2 PRECEDENTI IL NUCLIDE                  14571000
+C      NWDS: PAROLE DEL RECORD 2 DEL NUCLIDE                            14572000
+C      NWDS3: PAROLE RECORD 3 DEL MAT                                   14573000
+C      NPDS3: PAROLE DEL RECORD 3 PRECEDENTI IL MAT                     14574000
+C      NWDS4,NPDS4: IDEM PER RECORD 4, NR,NWDS: IDEM PER RECORD 2       14575000
+C      NFLAG4:  SEGNALA SE ESISTE UN RECORD 4 NEL GRUPPO, ANCHE SE      14576000
+C             IL NUCLIDE E I NUCLIDI PRECEDENTI NON HANNO RECORD 4      14577000
+C      NFLAG3   ANALOGAMENTE SEGNALA L'ESISTENZA DI UN RECORD 3         14578000
+C                                                                       14579000
+C                                                                       14580000
+       N1=NR+LIMIT                                                      14581000
+       N2=N1+NWDS-1                                                     14582000
+      WRITE(NTO) NWDS,(A(J),J=N1,N2)                                    14583000
+      NT3OU=NT3OU+1                                                     14584000
+      IF(STMP.LT.101) GO TO 101                                         14585000
+        WRITE(NO,8887) SIGIN,SIGN2N,NINEVP,NINTAB,N2NEVP,N2NTAB,        14586000
+     1         NSTRT1,NEND1,NSTRT2,NEND2,KT1,KT2,NLVS,N2NLV             14587000
+ 8887   FORMAT(' REC 2 :SIGIN,SIGN2N:',2E12.5/                          14588000
+     1' NINEVP,NINTAB,N2NEVP,N2NTAB,NSTRT1,NEND1,NSTRT2,NEND2,'         14589000
+     2,'KT1,KT2,NLVS,N2NLV'/1X,12I6)                                    14590000
+C       IF(IG.LE.NINEL(IM).AND.IG.LE.N2NTH(IM)) GO TO 102               14591000
+C       WRITE(NO,3000) (A(J),J=N1,N2)                                   14592000
+C3000   FORMAT(' RECORD 2 READ:',E12.5,12I5)                            14593000
+C       GOTO101                                                         14594000
+C102    WRITE(NO,4000) (A(J),J=N1,N2)                                   14595000
+C4000   FORMAT(' RECORD 2 READ:',2E12.5,12I5)                           14596000
+ 101    CONTINUE                                                        14597000
+C                                                                       14598000
+C      RECORD 3                                                         14599000
+       N1=NPDS3+LIMIT                                                   14600000
+       N2=N1+NWDS3-1                                                    14601000
+       IF(NWDS3.LE.0) GO TO 105                                         14602000
+       READ(NTI) (A(J),J=LIMIT,N2)                                      14603000
+       NT(4,NTIN)=NT(4,NTIN)+1                                          14604000
+       WRITE(NTO) NWDS3,(A(J),J=N1,N2)                                  14605000
+       IF(NWDS3.GT.MAXREM) MAXREM=NWDS3                                 14606000
+      NT3OU=NT3OU+1                                                     14607000
+      IF(STMP.GT.200) WRITE(NO,5000) (A(J),J=N1,N2)                     14608000
+ 5000   FORMAT(' RECORD 3 READ:'/(1X,10E12.5))                          14609000
+       GO TO 106                                                        14610000
+ 105   WRITE(NTO) NWDS3,DUM,DUM,DUM                                     14611000
+       NT3OU=NT3OU+1                                                    14612000
+C             IL RECORD 3 VA SCRITTO IN TUTTI I MODI,COSI' FA P2        14613000
+C             P3 LEGGE SEMPRE UN RECORD 3 ANCHE SE VUOTO.               14614000
+C             E' PIU' SEMPLICE LEGGERE UN RECORD VUOTO CHE              14615000
+C             ESAMINARE IN P3 SE ESISTE O NO                            14616000
+C                                                                       14617000
+C          SUL FILE DI INPUT, SE C'E',                                  14618000
+C          IL RECORD 3 VA SALTATO IN TUTTI I MODI ANCHE SE IL NUCIDE IM 14619000
+C          O NUCLIDI PRECEDENTI NON CI SONO                             14620000
+       IF(NFLAG3.LE.0.AND.NPDS3.LE.0) GO TO 106                         14621000
+       READ(NTI) DUM                                                    14622000
+       NT(4,NTIN)=NT(4,NTIN)+1                                          14623000
+C                                                                       14624000
+C      RECORD 4                                                         14625000
+ 106   N1=NPDS4+LIMIT                                                   14626000
+       N2=N1+NWDS4-1                                                    14627000
+       IF(NWDS4.LE.0) GO TO 150                                         14628000
+       READ(NTI) (A(J),J=LIMIT,N2)                                      14629000
+       NT(4,NTIN)=NT(4,NTIN)+1                                          14630000
+       WRITE(NTO) NWDS4,(A(J),J=N1,N2)                                  14631000
+       NUMREM=3                                                         14632000
+       IF(NWDS4.GT.MAXREM) MAXREM=NWDS4                                 14633000
+      NT3OU=NT3OU+1                                                     14634000
+      IF(STMP.GT.300) WRITE(NO,6000) (A(J),J=N1,N2)                     14635000
+ 6000   FORMAT(' RECORD 4 READ:'/(1X,10E12.5))                          14636000
+        GOTO 15                                                         14637000
+C                                                                       14638000
+ 150  CONTINUE                                                          14639000
+C       SALTA IL RECORD 4 DEL GRUPPO SE ESISTE E NON E' STATO LETTO     14640000
+        IF(NFLAG4.LE.0.AND.NPDS4.LE.0) GO TO 15                         14641000
+        READ(NTI) DUM                                                   14642000
+        NT(4,NTIN)=NT(4,NTIN)+1                                         14643000
+C                                                                       14644000
+ 15   CONTINUE                                                          14645000
+C      FINE LOOP SUI GRUPPI ..................................          14646000
+ 160   NMAXIM=MAX0(NINEL(IM),N2NTH(IM))                                 14647000
+C     RIEMPIE INDICE                                                    14648000
+      IND=IND+1                                                         14649000
+      IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1)                14650000
+      CALL EMPIN(MIND11,AINDX1(1,IND),FLOAT(NREC3(3,I)),-6.,0.,0.,      14651000
+     1 NREC3(1,I),NOMI(2*I-1),NOMI(2*I),ANAME(2*IM-1),ANAME(2*IM),0.,   14652000
+     2 6.,0.,0.,FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(3,NTOUT)),             14653000
+     3 FLOAT(NT3OU),FLOAT(MAXREM),0.,FLOAT(NGROUP),ETOP,DELTAU,0.,      14654000
+     4 FLOAT(NINEL(IM)),FLOAT(N2NTH(IM)),FLOAT(NLEVLS(IM)),             14655000
+     4 FLOAT(N2NLVS(IM)),FLOAT(MAX1(IM)),FLOAT(MAX2(IM)),               14656000
+     4 FLOAT(MAX3(IM)),FLOAT(MAX4(IM)),FLOAT(NSINK1(IM)),               14657000
+     5 FLOAT(NSINK2(IM)),FLOAT(NUMREM),FLOAT(MAXREM),FLOAT(NMAXIM),     14658000
+     6 0.,0.,0.,0.)                                                     14659000
+C                                                                       14660000
+      NT(3,NTOUT)=NT(3,NTOUT)+NT3OU                                     14661000
+            NT(4,NTOUT)=NT(3,NTOUT)                                     14662000
+ 10   CONTINUE                                                          14663000
+C      FINE LOP SUI NUCLIDI .........................................   14664000
+      RETURN                                                            14665000
+ 555  WRITE(NP,9555) NTI                                                14666000
+      WRITE(NO,9555) NTI                                                14667000
+ 9555 FORMAT(' !!! WARNING !! FILE MCC2F6 TO BE UPDATED NOT FOUND!'     14668000
+     1 ,' UNIT:',I4)                                                    14669000
+      RETURN                                                            14670000
+      END                                                               14671000
+      SUBROUTINE SUMJ(IG,IM,NTI,NR,NWDS,NPDS3,NPDS4,NWDS3,NWDS4,NFLAG4, 14672000
+     1 NFLAG3,                                                          14673000
+     1 NA,MMAT,SIGIN,SIGN2N,NINEVP,NINTAB,N2NEVP,                       14674000
+     1 N2NTAB,NSTRT1,NEND1,NSTRT2,NEND2,KT1,KT2,NLVS,N2NLV,NINEL,N2NTH, 14675000
+     2 NLEVLS,N2NLVS,MAX1,MAX2,MAX3,MAX4)                               14676000
+C      ***************************************************************  14677000
+C      LEGGE IL RECORD 2 DI F6 CALCOLANDOSI QUANTO E' LUNGA LA PARTE    14678000
+C       PRIMA DEL MATERIALE DA LEGGERE. IL RECORD E' MESSO IN A(NWDS)   14679000
+C       E NEI SIGIN,SIGN2N ECC.                                         14680000
+C       NWDS3,NWDS4,NPDS3,NPDS4: DATI DI LUNGHEZZA RECORD 3 E 4         14681000
+C      *****************************************************************14682000
+C                                                                       14683000
+       DIMENSION NINEL(MMAT),N2NTH(MMAT),NLEVLS(MMAT),N2NLVS(MMAT)      14684000
+       DIMENSION MAX1(MMAT),MAX2(MMAT),MAX3(MMAT),MAX4(MMAT)            14685000
+            DIMENSION NA(NWDS)                                          14686000
+            INTEGER SIGIN,SIGN2N                                        14687000
+C                                                                       14688000
+       NR=0                                                             14689000
+       IM1=IM-1                                                         14690000
+       IF(IM1.LE.0) GO TO 500                                           14691000
+C           CALCOLO PAROLE PRECEDENTI IL PRIMO NUCLIDE NEL RECORD 2     14692000
+       DO 20 IMM=1,IM1                                                  14693000
+       IF(NINEL(IMM).LT.IG) GO TO 300                                   14694000
+       NR=NR+1                                                          14695000
+       IF(MAX1(IMM).GT.0) NR=NR+1                                       14696000
+       IF(MAX2(IMM).GT.0) NR=NR+4                                       14697000
+       IF(NLEVLS(IMM).GT.0) NR=NR+1                                     14698000
+ 300   IF(N2NTH(IMM).LT.IG) GO TO 400                                   14699000
+       NR=NR+1                                                          14700000
+       IF(MAX3(IMM).GT.0) NR=NR+1                                       14701000
+       IF(MAX4(IMM).GT.0) NR=NR+4                                       14702000
+       IF(N2NLVS(IMM).GT.0) NR=NR+1                                     14703000
+ 400   CONTINUE                                                         14704000
+ 20    CONTINUE                                                         14705000
+ 500   CONTINUE                                                         14706000
+C       FINE DEL CALCOLO DEI PRECEDENTI                                 14707000
+C         CALCOLO DELLE PAROLE DEL RECORD 2 DEL NUCLIDE                 14708000
+       NWDS=0                                                           14709000
+       IF(NINEL(IM).LT.IG) GO TO 600                                    14710000
+       NWDS=NWDS+1                                                      14711000
+       IF(MAX1(IM).GT.0) NWDS=NWDS+1                                    14712000
+       IF(MAX2(IM).GT.0) NWDS=NWDS+4                                    14713000
+       IF(NLEVLS(IM).GT.0) NWDS=NWDS+1                                  14714000
+ 600   IF(N2NTH(IM).LT.IG) GO TO 700                                    14715000
+        NWDS=NWDS+1                                                     14716000
+       IF(MAX3(IM).GT.0) NWDS=NWDS+1                                    14717000
+       IF(MAX4(IM).GT.0) NWDS=NWDS+4                                    14718000
+       IF(N2NLVS(IM).GT.0) NWDS=NWDS+1                                  14719000
+ 700   CONTINUE                                                         14720000
+C          CALCOLO PAROLE SUCCESSIVE AL NUCLIDE NEL RECORD 2            14721000
+        NRDOPO=0                                                        14722000
+        IM2=IM+1                                                        14723000
+        IF(IM2.GT.MMAT) GO TO 750                                       14724000
+       DO 25 IMM=IM2,MMAT                                               14725000
+       IF(NINEL(IMM).LT.IG) GO TO 350                                   14726000
+       NRDOPO=NRDOPO+1                                                  14727000
+       IF(MAX1(IMM).GT.0) NRDOPO=NRDOPO+1                               14728000
+       IF(MAX2(IMM).GT.0) NRDOPO=NRDOPO+4                               14729000
+       IF(NLEVLS(IMM).GT.0) NRDOPO=NRDOPO+1                             14730000
+ 350   IF(N2NTH(IMM).LT.IG) GO TO 450                                   14731000
+       NRDOPO=NRDOPO+1                                                  14732000
+       IF(MAX3(IMM).GT.0) NRDOPO=NRDOPO+1                               14733000
+       IF(MAX4(IMM).GT.0) NRDOPO=NRDOPO+4                               14734000
+       IF(N2NLVS(IMM).GT.0) NRDOPO=NRDOPO+1                             14735000
+ 450   CONTINUE                                                         14736000
+ 25    CONTINUE                                                         14737000
+ 750   CONTINUE                                                         14738000
+       N1=NR+NWDS+NRDOPO                                                14739000
+       IF(N1.LE.0) GO TO 800                                            14740000
+       READ(NTI) (NA(J),J=1,N1)                                         14741000
+ 800   CONTINUE                                                         14742000
+C                                                                       14743000
+C         CALCOLO DELLE PAROLE PRECEDENTI IL NUCLIDE NEI RECORD 3 E 4   14744000
+       NPDS3=0                                                          14745000
+       NPDS4=0                                                          14746000
+       J=1                                                              14747000
+       IF(NR.LE.0) GO TO 850                                            14748000
+       DO 85 IMM=1,IM1                                                  14749000
+C             CERCA NINEVP DEL NUCLIDE IMM                              14750000
+       IF(NINEL(IMM).GE.IG) J=J+1                                       14751000
+       IF(N2NTH(IMM).GE.IG) J=J+1                                       14752000
+       IF(NINEL(IMM).LT.IG.OR.MAX1(IMM).LE.0) GO TO 852                 14753000
+       NPDS3=NPDS3+NA(J)*2                                              14754000
+       J=J+1                                                            14755000
+C           CERCA N2NEVP DEL NUCLIDE IMM                                14756000
+ 852   IF(NINEL(IMM).GE.IG.AND.MAX2(IMM).GT.0) J=J+1                    14757000
+       IF(N2NTH(IMM).LT.IG.OR.MAX3(IMM).LE.0) GO TO 854                 14758000
+       NPDS3=NPDS3+NA(J)*2                                              14759000
+       J=J+1                                                            14760000
+C           CERCA NSTRT1,NEND1  DEL NUCLIDE IMM                         14761000
+ 854   IF(N2NTH(IMM).GE.IG.AND.MAX4(IMM).GT.0) J=J+1                    14762000
+       IF(NINEL(IMM).LT.IG.OR.MAX2(IMM).LE.0) GO TO 856                 14763000
+       NPDS4=NPDS4+NA(J+1)-NA(J)+1                                      14764000
+       J=J+2                                                            14765000
+C           CERCA NSTRT2,NEND2 DEL NUCLIDE IMM                          14766000
+ 856   IF(N2NTH(IMM).LT.IG.OR.MAX4(IMM).LE.0) GO TO 857                 14767000
+       NPDS4=NPDS4+NA(J+1)-NA(J)+1                                      14768000
+       J=J+2                                                            14769000
+C           CERCA NLVS DEL NUCLIDE IMM                                  14770000
+ 857   IF(NINEL(IMM).GE.IG.AND.MAX2(IMM).GT.0) J=J+1                    14771000
+       IF(N2NTH(IMM).GE.IG.AND.MAX4(IMM).GT.0) J=J+1                    14772000
+       IF(NINEL(IMM).LT.IG.OR.NLEVLS(IMM).LE.0) GO TO860                14773000
+       NPDS3=NPDS3+NA(J)*2                                              14774000
+       J=J+1                                                            14775000
+C           CERCA N2NLV DEL NUCLIDE IN QUESTIONE                        14776000
+ 860   IF(N2NTH(IMM).LT.IG.OR.N2NLVS(IMM).LE.0) GO TO 85                14777000
+       NPDS3=NPDS3+NA(J)                                                14778000
+       J=J+1                                                            14779000
+ 85    CONTINUE                                                         14780000
+ 850   CONTINUE                                                         14781000
+C                                                                       14782000
+C            FINE CALCOLO NUMERO PAROLE PRECEDENTI IL NUCLIDE NEL REC3,414783000
+C                                                                       14784000
+C            QUI ASSEGNA GLI SCALARI                                    14785000
+       SIGIN=0                                                          14786000
+       SIGN2N=0                                                         14787000
+       NINEVP=0                                                         14788000
+       NINTAB=0                                                         14789000
+       N2NEVP=0                                                         14790000
+       N2NTAB=0                                                         14791000
+       NSTRT1=0                                                         14792000
+       NEND1=0                                                          14793000
+       NSTRT2=0                                                         14794000
+       NEND2=0                                                          14795000
+       KT1=0                                                            14796000
+       KT2=0                                                            14797000
+       NLVS=0                                                           14798000
+       N2NLV=0                                                          14799000
+C                                                                       14800000
+       IF(J.NE.NR+1) CALL ERR(8HSUMJ      ,900)                         14801000
+       IF(NINEL(IM).LT.IG) GO TO 900                                    14802000
+       SIGIN=NA(J)                                                      14803000
+       J=J+1                                                            14804000
+ 900   IF(N2NTH(IM).LT.IG) GO TO 910                                    14805000
+       SIGN2N=NA(J)                                                     14806000
+       J=J+1                                                            14807000
+ 910   IF(NINEL(IM).LT.IG.OR.MAX1(IM).LE.0) GO TO 920                   14808000
+       NINEVP=NA(J)                                                     14809000
+       J=J+1                                                            14810000
+ 920   IF(NINEL(IM).LT.IG.OR.MAX2(IM).LE.0) GO TO 930                   14811000
+       NINTAB=NA(J)                                                     14812000
+       J=J+1                                                            14813000
+ 930   IF(N2NTH(IM).LT.IG.OR.MAX3(IM).LE.0) GO TO 940                   14814000
+       N2NEVP=NA(J)                                                     14815000
+       J=J+1                                                            14816000
+ 940   IF(N2NTH(IM).LT.IG.OR.MAX4(IM).LE.0) GO TO 950                   14817000
+       N2NTAB=NA(J)                                                     14818000
+       J=J+1                                                            14819000
+ 950   IF(NINEL(IM).LT.IG.OR.MAX2(IM).LE.0) GO TO 960                   14820000
+       NSTRT1=NA(J)                                                     14821000
+       J=J+1                                                            14822000
+       NEND1=NA(J)                                                      14823000
+       J=J+1                                                            14824000
+ 960   IF(N2NTH(IM).LT.IG.OR.MAX4(IM).LE.0) GO TO 970                   14825000
+       NSTRT2=NA(J)                                                     14826000
+       J=J+1                                                            14827000
+       NEND2=NA(J)                                                      14828000
+       J=J+1                                                            14829000
+ 970   IF(NINEL(IM).LT.IG.OR.MAX2(IM).LE.0) GO TO 980                   14830000
+       KT1=NA(J)                                                        14831000
+       J=J+1                                                            14832000
+ 980   IF(N2NTH(IM).LT.IG.OR.MAX4(IM).LE.0) GO TO 990                   14833000
+       KT2=NA(J)                                                        14834000
+       J=J+1                                                            14835000
+ 990   IF(NINEL(IM).LT.IG.OR.NLEVLS(IM).LE.0) GO TO 995                 14836000
+       NLVS=NA(J)                                                       14837000
+       J=J+1                                                            14838000
+ 995   IF(N2NTH(IM).LT.IG.OR.N2NLVS(IM).LE.0) GO TO 996                 14839000
+        N2NLV=NA(J)                                                     14840000
+        J=J+1                                                           14841000
+C                                                                       14842000
+ 996   NWDS3=2*(N2NEVP+NINEVP+NLVS)+N2NLV                               14843000
+        NWDS4=0                                                         14844000
+        IF(NINTAB.GT.0) NWDS4=NWDS4+(NEND1-NSTRT1+1)                    14845000
+        IF(N2NTAB.GT.0) NWDS4=NWDS4+(NEND2-NSTRT2+1)                    14846000
+C                                                                       14847000
+C              IL CONTROLLO SU NINTAB,N2NTAB NON SEMPRE SI TROVA. IN MC214848000
+C              NON ESISTE. PER CUI DEVE ESSERE NEND1-NSTRT1=-1          14849000
+C                                                                       14850000
+        NFLAG3=0                                                        14851000
+        NFLAG4=0                                                        14852000
+C       SOLO NEL CASO IL RECORD 4 SIA COSTITUITO DA DATI DI NUCLIDI     14853000
+C       SUCCESSIVI AL IMM ;LA SUA LETTURA VERREBBE SALTATA SE NON SI    14854000
+C                                 ATTIVA NFLAG4                         14855000
+C              IDEM PER RECORD 3 CON NFLAG3                             14856000
+       IF(IM2.GT.MMAT.OR.NRDOPO.LE.0) RETURN                            14857000
+       DO 95 IMM=IM2,MMAT                                               14858000
+C             CERCA NINEVP DEL NUCLIDE IMM                              14859000
+       IF(NINEL(IMM).GE.IG) J=J+1                                       14860000
+       IF(N2NTH(IMM).GE.IG) J=J+1                                       14861000
+       IF(NINEL(IMM).LT.IG.OR.MAX1(IMM).LE.0) GO TO 952                 14862000
+       NFLAG3=NFLAG3+NA(J)*2                                            14863000
+       J=J+1                                                            14864000
+C           CERCA N2NEVP DEL NUCLIDE IMM                                14865000
+ 952   IF(NINEL(IMM).GE.IG.AND.MAX2(IMM).GT.0) J=J+1                    14866000
+       IF(N2NTH(IMM).LT.IG.OR.MAX3(IMM).LE.0) GO TO 954                 14867000
+       NFLAG3=NFLAG3+NA(J)*2                                            14868000
+       J=J+1                                                            14869000
+C           CERCA NSTRT1,NEND1  DEL NUCLIDE IMM                         14870000
+ 954   IF(N2NTH(IMM).GE.IG.AND.MAX4(IMM).GT.0) J=J+1                    14871000
+       IF(NINEL(IMM).LT.IG.OR.MAX2(IMM).LE.0) GO TO 956                 14872000
+       NFLAG4=NFLAG4+NA(J+1)-NA(J)+1                                    14873000
+       J=J+2                                                            14874000
+C           CERCA NSTRT2,NEND2 DEL NUCLIDE IMM                          14875000
+ 956   IF(N2NTH(IMM).LT.IG.OR.MAX4(IMM).LE.0) GO TO 957                 14876000
+       NFLAG4=NFLAG4+NA(J+1)-NA(J)+1                                    14877000
+       J=J+2                                                            14878000
+C           CERCA NLVS DEL NUCLIDE IMM                                  14879000
+ 957   IF(NINEL(IMM).GE.IG.AND.MAX2(IMM).GT.0) J=J+1                    14880000
+       IF(N2NTH(IMM).GE.IG.AND.MAX4(IMM).GT.0) J=J+1                    14881000
+       IF(NINEL(IMM).LT.IG.OR.NLEVLS(IMM).LE.0) GO TO 958               14882000
+       NFLAG3=NFLAG3+NA(J)*2                                            14883000
+       J=J+1                                                            14884000
+C           CERCA N2NLV DEL NUCLIDE IN QUESTIONE                        14885000
+ 958   IF(N2NTH(IMM).LT.IG.OR.N2NLVS(IMM).LE.0) GO TO 95                14886000
+        NFLAG3=NFLAG3+NA(J)                                             14887000
+       J=J+1                                                            14888000
+ 95    CONTINUE                                                         14889000
+       RETURN                                                           14890000
+       END                                                              14891000
+      SUBROUTINE P4MCF7(NTIN,NTOUT,NMAT,NGROUP,MSORS,                   14892000
+     1ETOP,DELTAU,NOMI,NREC3,NAM,ICHI,NUMNU,KT,MA,A)                    14893000
+C     **************************************************************    14894000
+C                                                                       14895000
+C      READS FILE  MCC2F7 OF MC2-II                                     14896000
+C                                                                       14897000
+C     *********************************************************         14898000
+C                                                                       14899000
+      DIMENSION NAM(MSORS),ICHI(MSORS),NOMI(NMAT),NREC3(5,NMAT),A(MA)   14900000
+      DIMENSION NUMNU(NMAT),KT(NMAT)                                    14901000
+C                                                                       14902000
+C      COMMONS:                                                         14903000
+      COMMON/FILES/NT(4,99)                                             14904000
+      COMMON/INDX1/AINDX1(40,200)                                       14905000
+      COMMON/COMM/C,IC(6),AC(4)                                         14906000
+      COMMON/DIM/M1,M2,M3,IND                                           14907000
+      COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3      14908000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     14909000
+      EQUIVALENCE (NO,NT(1,6)),(NP,NT(1,11))                            14910000
+C                                                                       14911000
+C      FILE INPUT                                                       14912000
+      NTI=NT(1,NTIN)                                                    14913000
+      CALL REW(NTIN)                                                    14914000
+C      FILE DI OUTPUT                                                   14915000
+      NTO=NT(1,NTOUT)                                                   14916000
+      CALL POSL(NTOUT)                                                  14917000
+C                                                                       14918000
+      N1=2*MSORS                                                        14919000
+      READ(NTI,END=555) (NAM(J),J=1,N1)                                 14920000
+      READ(NTI) (ICHI(J),J=1,MSORS)                                     14921000
+      NT(4,NTIN)=NT(4,NTIN)+2                                           14922000
+      WRITE(NP,1000) NTI,(NAM(J),J=1,N1)                                14923000
+ 1000 FORMAT(' SOURCE FILE READ FROM UNIT:',I5/(10X,' SOURCES:',10A4))  14924000
+      DO 10 IM=1,MSORS                                                  14925000
+      I=IDENT8(NMAT,NAM(IM*2-1),NOMI)                                   14926000
+      ICH=ICHI(IM)                                                      14927000
+      N1=6*ICH                                                          14928000
+      READ(NTI) (A(J),J=1,N1)                                           14929000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           14930000
+      WRITE(NTO) (A(J),J=1,N1)                                          14931000
+      NT(3,NTOUT)=NT(3,NTOUT)+1                                         14932000
+      IND=IND+1                                                         14933000
+      IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1)                14934000
+      CALL EMPIN(MIND11,AINDX1(1,IND),FLOAT(NREC3(3,I)),-7.,18.,        14935000
+     10.,NREC3(1,I),NOMI(2*I-1),NOMI(2*I),NAM(2*IM-1),NAM(2*IM),        14936000
+     2 0.,7.,1.,0.,FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(4,NTOUT)),          14937000
+     3 1.,FLOAT(ICH),0.,FLOAT(NGROUP),ETOP,DELTAU,                      14938000
+     4 0.,0.,0.,0.,0.,0.,0.,0.,0.,0. ,0.,0.,0.,0.,0.,0.,0.,0.)          14939000
+      NT(4,NTOUT)=NT(3,NTOUT)                                           14940000
+ 10   CONTINUE                                                          14941000
+C                                                                       14942000
+C          SECONDA PARTE COL NU TABULATO (NON LO SMONTA,NE FA UN INDICE)14943000
+C                                                                       14944000
+        READ(NTI) (NUMNU(J),J=1,NMAT),(KT(J),J=1,NMAT)                  14945000
+        ANTCON=NT(4,NTIN)                                               14946000
+        NT(4,NTIN)=NT(4,NTIN)+1                                         14947000
+        DO 20 IM=1,NMAT                                                 14948000
+        IF(NUMNU(IM).LE.1) GO TO 20                                     14949000
+        ANTCON=ANTCON+1.                                                14950000
+        ANUM=NUMNU(IM)*2                                                14951000
+        IND=IND+1                                                       14952000
+        IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1)              14953000
+        CALL EMPIN(MIND11,AINDX1(1,IND),                                14954000
+     1 FLOAT(NREC3(3,IM)),-5.,18.,0.,NREC3(1,IM),NOMI(2*IM-1),NOMI(2*IM)14955000
+     2,  NOMI(2*IM-1),NOMI(2*IM),0.,                                    14956000
+     3   5.,2.,11.,FLOAT(NTI),FLOAT(NTIN),ANTCON,1.,ANUM,               14957000
+     4   FLOAT(NUMNU(IM)),FLOAT(NGROUP),ETOP,DELTAU,                    14958000
+     5   0.,0.,5.,0.,2.,0.,FLOAT(KT(IM)),0.,                            14959000
+     6   0.,0.,0.,0.,0.,0.,0.,0.,0.,0.)                                 14960000
+C                                                                       14961000
+ 20     CONTINUE                                                        14962000
+      RETURN                                                            14963000
+ 555  WRITE(NP,9555) NTI                                                14964000
+      WRITE(NO,9555) NTI                                                14965000
+ 9555 FORMAT(' !!! WARNING !! FILE MCC2F7 TO BE UPDATED NOT FOUND!'     14966000
+     1 ,' UNIT:',I4)                                                    14967000
+      RETURN                                                            14968000
+      END                                                               14969000
+      SUBROUTINE P4MCF8(NTIN,NTOUT,NMAT,NGROUP,NPASS,NPL,               14970000
+     1IPTMAX,ETOP,DELTAU,MANY1,NOMI,NREC3,                              14971000
+     2 LGTH,IR,IL,IPT,MA,A)                                             14972000
+C     ********************************************************8         14973000
+C                                                                       14974000
+C      READS FILE  MCC2F8 : DISTRIBUZIONI ANGOLARI SCATT ELASTICO       14975000
+C                                                                       14976000
+C     ************************************************************      14977000
+C                                                                       14978000
+       REAL*8 NOME                                                      14979000
+      DIMENSION NOMI(NMAT),NREC3(5,NMAT),A(MA),NOM11(2)                 14980000
+      DIMENSION LGTH(NMAT),IR(NMAT),IL(NMAT),IPT(NPASS,NMAT)            14981000
+      EQUIVALENCE(NOME,NOM11(1)),(NT(1,6),NO),(NT(1,11),NP)             14982000
+      EQUIVALENCE (STMP,OPZ(4,8,1))                                     14983000
+C                                                                       14984000
+C                                                                       14985000
+C      COMMONS:                                                         14986000
+        COMMON /OPZIO/OPZ(4,8,10)                                       14987000
+      COMMON/FILES/NT(4,99)                                             14988000
+      COMMON/INDX1/AINDX1(40,200)                                       14989000
+      COMMON/DIM/M1,M2,M3,IND                                           14990000
+      COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3      14991000
+     1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12                     14992000
+C                                                                       14993000
+C      FILE INPUT                                                       14994000
+      NTI=NT(1,NTIN)                                                    14995000
+      CALL REW(NTIN)                                                    14996000
+C      FILE DI OUTPUT                                                   14997000
+      NTO=NT(1,NTOUT)                                                   14998000
+      CALL POSL(NTOUT)                                                  14999000
+      READ(NTI,END=555) (LGTH(J),J=1,NMAT),(IR(J),J=1,NMAT),            15000000
+     1 (IL(J),J=1,NMAT),((IPT(J,JJ),J=1,NPASS),JJ=1,NMAT)               15001000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           15002000
+      WRITE(NP,1000) NTI                                                15003000
+ 1000 FORMAT(' ANGULAR DISTRIBUTION FILE MCC2F8 READ FROM UNIT:',I5)    15004000
+C      .......................... LOOP SU ISOTOPI                       15005000
+      DO 10 IM=1,NMAT                                                   15006000
+      IRIM=IR(IM)                                                       15007000
+      LGTHIM=LGTH(IM)                                                   15008000
+      ILIM=IL(IM)                                                       15009000
+           IPTMXM=MAXX(NPASS,IPT(1,IM))                                 15010000
+C                   ISOTOPO IN F1 POSTO = ISOTOPO IN F8 (LO CERCO LO STE15011000
+      READ(NTI) NOME                                                    15012000
+      I=IDENT8(NMAT,NOME,NOMI)                                          15013000
+        WRITE(NP,9010) NOME,I,LGTHIM,IRIM,ILIM                          15014000
+ 9010   FORMAT(1X,A8,' NUMBER:',I3,' LENGTH (LGTH):',I5,                15015000
+     1  ' INTERP. (IR):',I2,' BLOCKS (IL):',I4)                         15016000
+      AMASS=AREAL(NREC3(1,I))                                           15017000
+       Q=ALOG(((AMASS+1)/(AMASS-1))**2)/3.                              15018000
+       N2IR=2*IRIM                                                      15019000
+       IF(DELTAU.GE.Q) N3=N2IR+2*(54+IPTMXM*(NPL+6)+NPL)                15020000
+       IF(DELTAU.LT.Q) N3=N2IR+2*(50+IPTMXM*(NPL+2)+NPL)                15021000
+          IF(N3.GT.MA) CALL ERR(8HP4MCF8      ,0)                       15022000
+      READ(NTI) (A(J),J=1,N3)                                           15023000
+      NT(4,NTIN)=NT(4,NTIN)+2                                           15024000
+      WRITE(NTO) LGTHIM,IRIM,ILIM,(IPT(J,IM),J=1,NPASS)                 15025000
+      WRITE(NTO) NOME                                                   15026000
+      WRITE(NTO) (A(J),J=1,N3)                                          15027000
+      WRITE(NO,1010) NOME                                               15028000
+ 1010   FORMAT(1X,2A4)                                                  15029000
+        IF(STMP.LT.100) GO TO 101                                       15030000
+      WRITE(NO,2000) LGTHIM,IRIM,ILIM,(IPT(J,IM),J=1,NPASS)             15031000
+ 2000   FORMAT(' PARAMETERS: LGTH=',I5,' IR=',I5,' IL=',I5/             15032000
+     1      (5X,' IPT=',20I5))                                          15033000
+        IF(STMP.LT.200) GO TO 101                                       15034000
+        WRITE(NO,3000) (A(J),J=1,N3,2)                                  15035000
+ 3000   FORMAT(' TLJ FACTORS DATA:'/(1X,10E12.5))                       15036000
+ 101    CONTINUE                                                        15037000
+       NT3OU=3                                                          15038000
+C                                                                       15039000
+      DO 20 IP=1,ILIM                                                   15040000
+      N4=MANY1*IPT(IP,IM)                                               15041000
+      IF(N4.GT.MA) CALL ERR(8HP4MCF8    ,0)                             15042000
+      READ(NTI) (A(J),J=1,N4)                                           15043000
+      NT(4,NTIN)=NT(4,NTIN)+1                                           15044000
+      WRITE(NTO) (A(J),J=1,N4)                                          15045000
+      NT3OU=NT3OU+1                                                     15046000
+        IF(STMP.GT.300) WRITE(NO,4000) IP,IPT(IP,IM),(A(J),J=1,N4)      15047000
+ 4000   FORMAT( ' LEGENDRE COEFFICIENTS: PASS:',I5,'ORDER:',I5/         15048000
+     1      (1X,10E12.5))                                               15049000
+ 20   CONTINUE                                                          15050000
+      NT(3,NTOUT)=NT(3,NTOUT)+NT3OU                                     15051000
+      IND=IND+1                                                         15052000
+      IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1)                15053000
+      CALL EMPIN(MIND11,AINDX1(1,IND),FLOAT(NREC3(3,IM)),-8.,2.,0.,     15054000
+     1NREC3(1,I),NOMI(2*I-1),NOMI(2*I),NOM11(1),NOM11(2),0.,8.,3.,0.,   15055000
+     2 FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(4,NTOUT)),FLOAT(NT3OU),         15056000
+     3 FLOAT(N3-N2IR),0.,FLOAT(NGROUP),ETOP,DELTAU,                     15057000
+     4 FLOAT(NPASS),FLOAT(NPL),FLOAT(IPTMXM),FLOAT(MANY1),FLOAT(LGTHIM),15058000
+     5 FLOAT(IRIM),FLOAT(ILIM),0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.)        15059000
+      NT(4,NTOUT)=NT(3,NTOUT)                                           15060000
+C                                                                       15061000
+ 10   CONTINUE                                                          15062000
+      RETURN                                                            15063000
+ 555  WRITE(NP,9555) NTI                                                15064000
+      WRITE(NO,9555) NTI                                                15065000
+ 9555 FORMAT(' !!! WARNING !! FILE MCC2F8 TO BE UPDATED NOT FOUND!'     15066000
+     1 ,' UNIT:',I4)                                                    15067000
+      RETURN                                                            15068000
+      END                                                               15069000
+      FUNCTION NEXDI1(VAL,I1,I2,M1,M2,A)                                15070000
+C     *******************************************                       15071000
+C                                                                       15072000
+C         NEXDI1= VALORE PRIMO POSTO IN CUI  E , NELLE                  15073000
+C              RIGHE   DA I1 AD I2 DI A(M1,M2) , UN                     15074000
+C              VALORE DIVERSO DA VAL                                    15075000
+C                                                                       15076000
+C     *******************************************************           15077000
+C                                                                       15078000
+      DIMENSION A(M1,M2)                                                15079000
+      NEXDI1=0                                                          15080000
+      DO 10 I=1,M2                                                      15081000
+      DO 20 J=I1,I2                                                     15082000
+      IF(A(J,I).NE.VAL) GO TO 500                                       15083000
+ 20   CONTINUE                                                          15084000
+ 10   CONTINUE                                                          15085000
+      RETURN                                                            15086000
+ 500  NEXDI1=I                                                          15087000
+      RETURN                                                            15088000
+      END                                                               15089000
+      SUBROUTINE CNTRI(NNUC,MIND,ANG,NCIN,NCOL,NCOL1,                   15090000
+     1     ML1,ML2,AINDX1,ML3,ML4,NTABL)                                15091000
+C      ************************************************                 15092000
+C                                                                       15093000
+C      CONTROLLA IL VALORE DI NG IN COL NCIN DI INDX                    15094000
+C       PER GLI INDX INDIVIDUATI DAL VALORE NELLE COLONNE DA            15095000
+C      NCOL AD NCOL1 DI NTABL                                           15096000
+C          NNUC E IL DIM 2 EFFETTIVA DI NTABL                           15097000
+C          MIND E IL DIM 2 EFFETTIVA DI INDX                            15098000
+C                                                                       15099000
+C     ********************************************************8         15100000
+C                                                                       15101000
+C                                                                       15102000
+      DIMENSION AINDX1(ML1,ML2),NTABL(ML3,ML4)                          15103000
+      IF(NCOL1.LT.NCOL) CALL ERR(8HCNTRI    ,0)                         15104000
+      NFLAG=0                                                           15105000
+      DO 10 I=1,NNUC                                                    15106000
+      DO 20 IJ=NCOL,NCOL1                                               15107000
+      IND=NTABL(IJ,I)                                                   15108000
+      IF(IND.LE.0) GO TO 20                                             15109000
+C      QUESTA LO FA SOLA LA PRIMA VOLT ( INIZIALIZZA ) ANG              15110000
+      IF(NFLAG.NE.0) GOTO 100                                           15111000
+      ANG=AINDX1(NCIN,IND)                                              15112000
+      NFLAG=IND                                                         15113000
+ 100  CONTINUE                                                          15114000
+C      CONTROLLI                                                        15115000
+      IF(ANG.EQ.AINDX1(NCIN,IND)) GO TO 200                             15116000
+      CALL ERR(8H CNTRI    ,100)                                        15117000
+      CALL ERRP(4,AINDX1(NCIN,IND),IND,I,IJ,0)                          15118000
+ 200  CONTINUE                                                          15119000
+ 20   CONTINUE                                                          15120000
+ 10   CONTINUE                                                          15121000
+      RETURN                                                            15122000
+      END                                                               15123000
+      SUBROUTINE POST1(NTP,N)                                           15124000
+C     ****************************                                      15125000
+C                                                                       15126000
+C     POSIZIONA IL TAPE NT(1,NTP) AL RECORD N. LETTURA SENZA FORMAT     15127000
+C                                                                       15128000
+C     *************************************************                 15129000
+C                                                                       15130000
+      COMMON /FILES/NT(4,99)                                            15131000
+      NTT=NT(1,NTP)                                                     15132000
+ 50     NSK=N-NT(4,NTP)                                                 15133000
+      IF(NSK) 100,200,300                                               15134000
+ 300  CONTINUE                                                          15135000
+      DO 10 I=1,NSK                                                     15136000
+  10  READ(NTT)                                                         15137000
+      NT(4,NTP)=N                                                       15138000
+ 200  RETURN                                                            15139000
+ 100  CONTINUE                                                          15140000
+      REWIND NTT                                                        15141000
+      NT(4,NTP)=1                                                       15142000
+      GO TO 50                                                          15143000
+      END                                                               15144000
+      FUNCTION IDENT8(N,A,B)                                            15145000
+C     ****************************                                      15146000
+C                                                                       15147000
+C      IDENT8 E' LA POSIZIONE DI A IN B(N)                              15148000
+C                                                                       15149000
+C     ***************************************                           15150000
+C                                                                       15151000
+      REAL*8 A,B(N)                                                     15152000
+      DO 10 I=1,N                                                       15153000
+      IF(A.EQ.B(I)) GO TO 100                                           15154000
+ 10   CONTINUE                                                          15155000
+      IDENT8=0                                                          15156000
+      RETURN                                                            15157000
+ 100  CONTINUE                                                          15158000
+      IDENT8=I                                                          15159000
+      RETURN                                                            15160000
+      END                                                               15161000
+C      *****************************************************            15162000
+C                                                                       15163000
+C     ROUTINES TAKEN FROM ETOE-II TO GENERATE                           15164000
+C     TLJ FUNCTIONS ETC. FOR MC2-II FILE MCC2F8                         15165000
+C                                                                       15166000
+C      *****************************************************            15167000
+C                                                                       15168000
+C                                                                       15169000
+      BLOCK DATA                                                        15170000
+C                                                                       15171000
+C     WRITTEN BY R.F.BERLAND ATOMICS INTERNATIONAL 7/66                 15172000
+C     BLOCK DATA STORES FROM 0 TO 100 FACTORIAL IN ARGUMENT             15173000
+C     AND EXPONENT FORM.                                                15174000
+C     REFERENCE - R.F.BERLAND,CHAD - CODE TO HANDLE ANGULAR             15175000
+C     DATA,NAA-SR-11231,DEC.1965                                        15176000
+C                                                                       15177000
+C     NFAC(I)           EXPONENT FOR I-1 FACTORIAL.                     15178000
+C     FAC(I)            ARGUMENT FOR I-1 FACTORIAL.                     15179000
+C                                                                       15180000
+C     SUBROUTINES USING BLOCK DATA.                                     15181000
+C                                                                       15182000
+C     CLEB              CALCULATES CLEBSCH-GORDAN COEFFICIENTS.         15183000
+C     MATRIX            CALCULATES ZERO ORDER T AND ZERO ORDER T        15184000
+C                       INVERSE MATRIX ELEMENTS.                        15185000
+C                                                                       15186000
+C                                                                       15187000
+C     DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER  15188000
+C     TO PRESERVE ACCURACY.                                             15189000
+C                                                                       15190000
+      IMPLICIT REAL*8 (A-H,O-Z,$)                                       15191000
+      COMMON/FACTRL/FAC(101),NFAC(101)                                  15192000
+C                                                                       15193000
+      DATA                    FAC/1.0,1.0,2.0,6.0,2.4,1.2,7.2,5.04,4.03215194000
+     1,3.6288,3.6288,3.99168,4.790016,6.2270208,8.7178291,1.3076744,    15195000
+     22.0922790,3.5568743,6.4023737,1.2164510,2.4329020,5.1090942,      15196000
+     31.1240007,2.5852017,6.2044840,1.5511210,4.0329146,1.0888869,      15197000
+     43.0488834,8.8417620,2.6525286,8.2228387,2.6313084,8.6833176,      15198000
+     52.9523280,1.0333148,3.7199333,1.3763753,5.2302262,2.0397882,      15199000
+     68.1591528,3.3452527,1.4050061,6.0415263,2.6582716,1.1962222,      15200000
+     75.5026222,2.5862324,1.2413916,6.0828186,3.0414093,1.5511188,      15201000
+     88.0658175,4.2748833,2.3084370,1.2696403,7.1099859,4.0526920,      15202000
+     92.3505613,1.3868312,8.3209871,5.0758021,3.1469973,1.9826083,      15203000
+     X1.2688693,8.2476506,5.4434494,3.6471111,2.4800355,1.7112245,      15204000
+     X1.1978572,8.5047859,6.1234458,4.4701155,3.3078854,2.4809141,      15205000
+     X1.8854947,1.4518309,1.1324281,8.9461821,7.1569457,5.7971260,      15206000
+     X4.7536433,3.9455240,3.3142401,2.8171041,2.4227095,2.1077573,      15207000
+     X1.8548264,1.6507955,1.4857160,1.3520015,1.2438414,1.1567725,      15208000
+     X1.0873662,1.0329978,9.9167793,9.6192760,9.4268904,2*9.3326215 /   15209000
+      DATA                NFAC/0,0,0,0,1,2,2,3,4,5,6,7,8,9,10,12,13,14, 15210000
+     115,17,18,19,21,22,23,25,26,28,29,30,32,33,35,36,38,40,41,43,44,46,15211000
+     247,49,51,52,54,56,57,59,61,62,64,66,67,69,71,73,74,76,78,80,81,83,15212000
+     385,87,89,90,92,94,96,98,100,101,103,105,107,109,111,113,115,116,  15213000
+     4118,120,122,124,126,128,130,132,134,136,138,140,142,144,146,148,  15214000
+     5149,151,153,155,157/                                              15215000
+      END                                                               15216000
+      FUNCTION CLEB(I1,I2,I3)                                           15217000
+C                                                                       15218000
+C     WRITTEN BY R.F.BERLAND ATOMICS INTERNATIONAL 7/66                 15219000
+C     FUNCTION CLEB COMPUTES THE CLEBSCH-GORDAN COEFFICIENTS.           15220000
+C     REFERENCE - R.F.BERLAND,CHAD - CODE TO HANDLE ANGULAR             15221000
+C     DATA,NAA-SR-11231,DEC.1965                                        15222000
+C                                                                       15223000
+C     I1,I2,I3          INDICES FOR DESIRED COEFFICIENT.                15224000
+C                                                                       15225000
+C     SUBROUTINES CALLED BY FUNCTION CLEB.                              15226000
+C                                                                       15227000
+C     DSQRT             FORTRAN SQUARE ROOT FUNCTION (DOUBLE            15228000
+C                       PRECISION).                                     15229000
+C     MOD               FORTRAN MODULAR ARITHMETIC ROUTINE.             15230000
+C                                                                       15231000
+C     DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER  15232000
+C     TO PRESERVE ACCURACY.                                             15233000
+C                                                                       15234000
+      IMPLICIT REAL*8 (A-H,O-Z,$)                                       15235000
+      COMMON/FACTRL/FAC(101),NFAC(101)                                  15236000
+C                                                                       15237000
+      CLEB=0.0                                                          15238000
+      N1=I1+I2-I3+1                                                     15239000
+      IF(N1.LE.0) GO TO 99                                              15240000
+      N2=I1-I2+I3+1                                                     15241000
+      IF(N2.LE.0) GO TO 99                                              15242000
+      N3=-I1+I2+I3+1                                                    15243000
+      IF(N3.LE.0) GO TO 99                                              15244000
+      IT=I1+I2+I3                                                       15245000
+      IF(MOD(IT,2).NE.0) GO TO 99                                       15246000
+      N4=IT+2                                                           15247000
+      NEPT=NFAC(N1)+NFAC(N2)+NFAC(N3)-NFAC(N4)                          15248000
+      ARG=FAC(N1)*FAC(N2)*FAC(N3)/FAC(N4)                               15249000
+      Z1=ARG*10.0**NEPT                                                 15250000
+      D123=DSQRT(Z1)                                                    15251000
+      IS=IT/2                                                           15252000
+      SIGNX=1                                                           15253000
+      IF(MOD(IS+I3,2).EQ.1) SIGNX=-1                                    15254000
+      IA=IS+1                                                           15255000
+      IB=IS-I1+1                                                        15256000
+      IC=IS-I2+1                                                        15257000
+      ID=IS-I3+1                                                        15258000
+      NEPT=NFAC(IA)-NFAC(IB)-NFAC(IC)-NFAC(ID)                          15259000
+      ARG=FAC(IA)/(FAC(IB)*FAC(IC)*FAC(ID))                             15260000
+      Z1=2*I3+1                                                         15261000
+      CLEB=SIGNX*DSQRT(Z1)*D123*ARG*10.0**NEPT                          15262000
+   99 RETURN                                                            15263000
+      END                                                               15264000
+      SUBROUTINE MODPAR(AM,FACK)                                        15265000
+C     ***********************************************************       15266000
+C                                                                       15267000
+C     SUBROUTINE MODPAR CALCULATES THE MASS DEPENDENT CONSTANTS         15268000
+C     USED IN  THE CALCULATION OF CONTINUOUS SLOWING DOWN MODERATING    15269000
+C     PARAMETERS.                                                       15270000
+C                                                                       15271000
+C     AM                RATIO OF THE NUCLEAR MASS OF THE MATERIAL       15272000
+C                       TO THAT OF THE NEUTRON.                         15273000
+C     FACK              MASS DEPENDENT CONSTANTS.                       15274000
+C                                                                       15275000
+C     SUBROUTINES CALLED BY SUBROUTINE MODPAR                           15276000
+C                                                                       15277000
+C     IBCOM#            FORTRAN I/O ROUTINE                             15278000
+C                                                                       15279000
+C     DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER  15280000
+C     TO PRESERVE ACCURACY.                                             15281000
+C                                                                       15282000
+      IMPLICIT REAL*8 (A-H,O-Z,$)                                       15283000
+      REAL*4 AM                                                         15284000
+      COMMON/FILES/NT(4,99)                                             15285000
+      COMMON /OPZIO/OPZ(4,8,10)                                         15286000
+       EQUIVALENCE(NT(1,6),LTPO),(STMP,OPZ(3,8,1))                      15287000
+C                                                                       15288000
+      DIMENSION FACK(6,6)                                               15289000
+      A=AM                                                              15290000
+      ALPHA=((A-1.)/(A+1.))**2                                          15291000
+      GAM=2./(1.-ALPHA)                                                 15292000
+      BET=(1.+ALPHA)/(1.-ALPHA)                                         15293000
+      DO 20 J=1,6                                                       15294000
+      DO 10 I=1,6                                                       15295000
+      FACK(I,J)=0.0                                                     15296000
+   10 CONTINUE                                                          15297000
+   20 CONTINUE                                                          15298000
+      FACK(1,1)=GAM                                                     15299000
+      FACK(2,1)=-1.*GAM*BET                                             15300000
+      FACK(2,2)=GAM*GAM                                                 15301000
+      FACK(3,1)=(1.5*BET*BET-.5)*GAM                                    15302000
+      FACK(3,2)=-3.*BET*GAM*GAM                                         15303000
+      FACK(3,3)=1.5*GAM*GAM*GAM                                         15304000
+      FACK(4,1)=(3.*BET-5.*(BET**3))*GAM*.5                             15305000
+      FACK(4,2)=(7.5*(BET**2)-1.5)*(GAM**2)                             15306000
+      FACK(4,3)=-7.5*BET*(GAM**3)                                       15307000
+      FACK(4,4)=2.5*(GAM**4)                                            15308000
+      FACK(5,1)=(4.375*(BET**4)-3.75*(BET**2)+.375)*GAM                 15309000
+      FACK(5,2)=-1.*(17.5*(BET**3)-7.5*BET)*(GAM**2)                    15310000
+      FACK(5,3)=(26.25*(BET**2)-3.75)*(GAM**3)                          15311000
+      FACK(5,4)=-17.5*BET*(GAM**4)                                      15312000
+      FACK(5,5)=4.375*(GAM**5)                                          15313000
+      FACK(6,1)=-1.*(7.875*(BET**5)-8.75*(BET**3)+1.875*BET)*GAM        15314000
+      FACK(6,2)=(39.375*(BET**4)-26.25*(BET**2)+1.875)*(GAM**2)         15315000
+      FACK(6,3)=-1.*(78.75*(BET**3)-26.25*BET)*(GAM**3)                 15316000
+      FACK(6,4)=(78.75*(BET**2)-8.75)*(GAM**4)                          15317000
+      FACK(6,5)=-39.375*BET*(GAM**5)                                    15318000
+      FACK(6,6)=7.875*(GAM**6)                                          15319000
+      IF(STMP.LT.50) RETURN                                             15320000
+      WRITE(LTPO,1320)                                                  15321000
+      WRITE(LTPO,1350)                                                  15322000
+      DO 100 J=1,6                                                      15323000
+      N=J-1                                                             15324000
+      WRITE(LTPO,1300)N,(FACK(J,K),K=1,6)                               15325000
+  100 CONTINUE                                                          15326000
+ 1300 FORMAT(2X,I2,4X,1P6E15.7)                                         15327000
+ 1320 FORMAT( 80H0 MASS DEPENDENT CONSTANTS FOR CONTINOUS SLOWING DOWN P15328000
+     1ARAMETERS.    FACK(L,L')   /)                                     15329000
+ 1350 FORMAT(6H0 L/L',8X,1H1,14X,1H2,14X,1H3,14X,1H4,14X,1H5,14X,1H6 /) 15330000
+      RETURN                                                            15331000
+      END                                                               15332000
+      SUBROUTINE LEGPOL(PN,Z,MIPT1)                                     15333000
+C     *******************************************************8          15334000
+C                                                                       15335000
+C     SUBROUTINE LEGPOL CALCULATES LEGENDRE POLYNOMIALS BY A            15336000
+C     RECURSIVE METHOD.                                                 15337000
+C                                                                       15338000
+C     PN                LEGENDRE POLYNOMIALS.                           15339000
+C     Z                 VALUE AT WHICH LEGENDRE POLYNOMIALS ARE TO      15340000
+C                       BE CALCULATED.                                  15341000
+C     MIPT1             HIGHEST ORDER POLYNOMIALS TO BE CALCULATED.     15342000
+C                                                                       15343000
+C     SUBROUTINES CALLED BY SUBROUTINE LEGPOL.                          15344000
+C                                                                       15345000
+C     DFLOAT            FORTRAN FUNCTION. CHANGES FIXED POINT NUMBER    15346000
+C                       INTO FLOATING POINT NUMBER (DOUBLE PRECISION).  15347000
+C                                                                       15348000
+C     DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER  15349000
+C     TO PRESERVE ACCURACY.                                             15350000
+C                                                                       15351000
+      IMPLICIT REAL*8 (A-H,O-Z)                                         15352000
+      DIMENSION PN(MIPT1,1),Z(1)                                        15353000
+      NMAX1=MIPT1-1                                                     15354000
+      DO 10 J=1,128                                                     15355000
+      PN(1,J)=1.D0                                                      15356000
+      PN(2,J)=Z(J)                                                      15357000
+      IF (MIPT1.LT.3) GO TO 10                                          15358000
+      DO 20 I=2,NMAX1                                                   15359000
+      G=Z(J)*PN(I,J)                                                    15360000
+      PN(I+1,J)=G-PN(I-1,J)+G-(G-PN(I-1,J))/DFLOAT(I)                   15361000
+   20 CONTINUE                                                          15362000
+   10 CONTINUE                                                          15363000
+      RETURN                                                            15364000
+      END                                                               15365000
+      SUBROUTINE MATRIX(GG,T,M,MM,LAB)                                  15366000
+C     ********************************************************          15367000
+C                                                                       15368000
+C     WRITTEN BY R.F.BERLAND ATOMICS INTERNATIONAL 7/66                 15369000
+C     MATRIX COMPUTES THE TRANSFORMATION MATRICES T OR                  15370000
+C     T INVERSE FOR LEGENDRE COEFFICIENTS WITH F0(E)=1                  15371000
+C     NORMALIZATION.                                                    15372000
+C     A RECURSIVE METHOD IS USED.                                       15373000
+C     REFERENCE - R.F.BERLAND,CHAD - CODE TO HANDLE ANGULAR             15374000
+C     DATA,NAA-SR-11231,DEC.1965                                        15375000
+C                                                                       15376000
+C     GG                RATIO OF THE NUCLEAR MASS OF THE MATERIAL       15377000
+C                       TO THAT OF THE NEUTRON.                         15378000
+C     T                 TRANSFORMATION MATRIX.                          15379000
+C     M                 NUMBER OF ROWS IN T MATRIX.                     15380000
+C     MM                NUMBER OF COLUMNS IN T MATRIX (SHOULD INITIALLY 15381000
+C                       BE SET TO MIN(1.5*M,30) TO PRESERVE THE         15382000
+C                       ACCURACY IN THE GENERATION OF THE ELEMENTS UP   15383000
+C                       TO T(M,M)). THE PRESENT SIZE OF BLOCK DATA      15384000
+C                       LIMITS THE NUMBER OF COLUMNS TO SLIGHTLY        15385000
+C                       ABOVE 30.                                       15386000
+C     LAB               =0,T MATRIX IS GENERATED (CM TO LAB).           15387000
+C                       =1,T INVERSE IS GENERATED (LAB TO CM).          15388000
+C                                                                       15389000
+C     SUBROUTINES CALLED BY SUBROUTINE MATRIX.                          15390000
+C     DABS              FORTRAN ABSOLUTE VALUE FUNCTION (DOUBLE         15391000
+C                       PRECISION).                                     15392000
+C     DSQRT             FORTRAN SQUARE ROOT FUNCTION (DOUBLE            15393000
+C                       PRECISION).                                     15394000
+C     MIN0              FORTRAN MINIMUM VALUE FUNCTION-INTEGER          15395000
+C     CLEB              CALCULATE CLEBSCH-GORDAN COEFFICIENTS           15396000
+C                                                                       15397000
+C     DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER  15398000
+C     TO PRESERVE ACCURACY.                                             15399000
+C                                                                       15400000
+      IMPLICIT REAL*8 (A-H,O-Z,$)                                       15401000
+      COMMON/FACTRL/FAC(101),NFAC(101)                                  15402000
+      REAL*4 GG                                                         15403000
+C                                                                       15404000
+      DIMENSION  T(M,MM)                                                15405000
+C                                                                       15406000
+      AWR=GG                                                            15407000
+      G=1./AWR                                                          15408000
+      IF(MM.LE.0)GOTO 21                                                15409000
+      DO 20 I=1,MM                                                      15410000
+      IF(M.LE.0)GOTO 20                                                 15411000
+      DO 19 L=1,M                                                       15412000
+      T(L,I)=0.0                                                        15413000
+   19 CONTINUE                                                          15414000
+   20 CONTINUE                                                          15415000
+   21 CONTINUE                                                          15416000
+      T(1,1)=1.0                                                        15417000
+      IF(LAB.EQ.0) GO TO 100                                            15418000
+      T(2,1)=-2.0*G/3.0                                                 15419000
+      T(2,3)=2.0*G/3.0                                                  15420000
+      M2=MIN0(M,MM/2,15)                                                15421000
+      MUP=0                                                             15422000
+      R=G*G/(1.0-G*G)                                                   15423000
+      IF(M2.LE.0)GOTO51                                                 15424000
+      DO 50 I=1,M2                                                      15425000
+      I1=I-1                                                            15426000
+      RM=(-R)**I1/DSQRT(1.0+R)                                          15427000
+      SUM=0.0                                                           15428000
+      DO 30 K=1,20                                                      15429000
+      K1=K-1                                                            15430000
+      SN=K1+I1                                                          15431000
+      DIV=(1.0-4.0*SN*SN)*4.0**K1                                       15432000
+      IA=K1+2*I1+2                                                      15433000
+      IB=IA+K1                                                          15434000
+      IC=K+I1                                                           15435000
+      ID=2*K1+4*I                                                       15436000
+      ARG=FAC(IA)*FAC(IB)**2/(FAC(K)*FAC(ID)*FAC(IC)**2)                15437000
+      NEPT=NFAC(IA)+2*NFAC(IB)-NFAC(K)-NFAC(ID)-2*NFAC(IC)              15438000
+      TERM=(-R)**K1*(ARG*10.0**NEPT)/DIV                                15439000
+      SUM=SUM+TERM                                                      15440000
+      IF(DABS(TERM).LT.1.0E-32) GO TO 40                                15441000
+      IF(DABS(RM*SUM).LT.1.0E-32) GO TO 40                              15442000
+   30 CONTINUE                                                          15443000
+   40 CONTINUE                                                          15444000
+      Z1=4*I1+3                                                         15445000
+      IT=2*I                                                            15446000
+      X1=2.0*Z1*RM*SUM                                                  15447000
+      T(2,IT)=X1                                                        15448000
+      IF(MUP.NE.0) GO TO 48                                             15449000
+      IF(DABS(X1).GE.1.0E-16) GO TO 50                                  15450000
+      MUP=IT-2                                                          15451000
+   48 CONTINUE                                                          15452000
+      IF(DABS(X1).LT.1.0E-32) GO TO 120                                 15453000
+   50 CONTINUE                                                          15454000
+   51 CONTINUE                                                          15455000
+      IF(MUP.EQ.0) MUP=M                                                15456000
+      GO TO 120                                                         15457000
+  100 CONTINUE                                                          15458000
+      T(2,1)=2.0*G/3.0                                                  15459000
+      T(2,2)=1.0-.6*G**2                                                15460000
+      MUP=0                                                             15461000
+      IF(MM.LE.2)GOTO 111                                               15462000
+      DO 110 I=3,MM                                                     15463000
+      I1=I-1                                                            15464000
+      Z1=I1                                                             15465000
+      Z2=I1+2                                                           15466000
+      Z3=2*I1-1                                                         15467000
+      Z4=2*I1+3                                                         15468000
+      I2=I1-1                                                           15469000
+      X1=(Z1/Z3-Z2*G**2/Z4)*(-G)**I2                                    15470000
+      T(2,I)=X1                                                         15471000
+      IF(MUP.NE.0) GO TO 105                                            15472000
+      IF(DABS(X1).GE.1.0E-16) GO TO 110                                 15473000
+      MUP=I1                                                            15474000
+  105 CONTINUE                                                          15475000
+      IF(DABS(X1).LT.1.0E-32) GO TO 120                                 15476000
+  110 CONTINUE                                                          15477000
+  111 CONTINUE                                                          15478000
+      IF(MUP.EQ.0) MUP=M                                                15479000
+  120 CONTINUE                                                          15480000
+      MUP=MM                                                            15481000
+      ILO=1                                                             15482000
+      IF(M.LE.2)GOTO 161                                                15483000
+      DO 160 L=3,M                                                      15484000
+      L1=L-2                                                            15485000
+      Z1=2*L1+1                                                         15486000
+      Z2=L1+1                                                           15487000
+      Z3=L1                                                             15488000
+      ILOW=ILO                                                          15489000
+      DO 150 I=ILOW,MM                                                  15490000
+      I1=I-1                                                            15491000
+      SUM=-Z3*T(L1,I)/Z2                                                15492000
+      IF(MUP.LE.0)GOTO 145                                              15493000
+      DO 140 N1=1,MUP                                                   15494000
+      X2=T(2,N1)                                                        15495000
+      IF(DABS(X2).EQ.0.0) GO TO 140                                     15496000
+      N2=N1-1                                                           15497000
+      MAX=N2+I1+1                                                       15498000
+      IF(MAX.GT.MM) MAX=MM                                              15499000
+      MIN=IABS(N2-I1)+1                                                 15500000
+      SUM1=0.0                                                          15501000
+      IF(MAX.LT.MIN)GOTO 131                                            15502000
+      DO 130 M1=MIN,MAX,2                                               15503000
+      X1=T(L1+1,M1)                                                     15504000
+C     IF(DABS(X1).LT.1.0E-16) GO TO 130                                 15505000
+      M2=M1-1                                                           15506000
+      SUM1=SUM1+CLEB(N2,M2,I1)**2*X1                                    15507000
+  130 CONTINUE                                                          15508000
+  131 CONTINUE                                                          15509000
+      SUM=SUM+Z1*X2*SUM1/Z2                                             15510000
+  140 CONTINUE                                                          15511000
+  145 CONTINUE                                                          15512000
+C     IF(I.GE.L) GO TO 147                                              15513000
+C     IF(G.GT.0.3) GO TO 147                                            15514000
+C     IF(DABS(SUM).GE.DABS(T(L-1,I))) GO TO 148                         15515000
+C 147 CONTINUE                                                          15516000
+      T(L,I)=SUM                                                        15517000
+C     GO TO 150                                                         15518000
+C 148 CONTINUE                                                          15519000
+C     ILO=I+1                                                           15520000
+  150 CONTINUE                                                          15521000
+  160 CONTINUE                                                          15522000
+  161 RETURN                                                            15523000
+      END                                                               15524000
+      SUBROUTINE TMATRI(AM,FAC,PN,TLJ,TLJ2,NPL,MIPT1,NMAX,DU)           15525000
+C     *******************************************************           15526000
+C                                                                       15527000
+C     SUBROUTINE TMATRI CALCULATES 'INCOMPLETE' T MATRIX ELEMENTS AND   15528000
+C     ALSO CALCULATES SECOND ORDER T MATRIX ELEMENTS.                   15529000
+C                                                                       15530000
+C     AM                RATIO OF THE NUCLEAR MASS OF THE MATERIAL       15531000
+C                       TO THAT OF THE NEUTRON.                         15532000
+C     FAC               'INCOMPLETE' T MATRIX ELEMENTS.                 15533000
+C     PN                LEGENDRE POLYNOMIALS.                           15534000
+C     TLJ               ZERO ORDER T MATRIX ELEMENTS.                   15535000
+C     TLJ2              SECOND ORDER T MATRIX ELEMENTS.                 15536000
+C     NPL               HIGHEST ORDER PERMITTED FOR EXTENDED TRANSPORT  15537000
+C                       APPROXIMATION +1.                               15538000
+C     MIPT1             MAXIMUM NUMBER OF LEGENDRE COEFFICIENTS         15539000
+C     NMAX              =MIPT1                                          15540000
+C     DU                ULTRAFINE GROUP LETHARGY WIDTH.                 15541000
+C                                                                       15542000
+C     SUBROUTINES CALLED BY SUBROUTINE TMATRI.                          15543000
+C                                                                       15544000
+C     DEXP              FORTRAN EXPONENTIAL FUNCTION (DOUBLE PRECISION).15545000
+C     DLOG              FORTRAN NATURAL LOGRITHM (DOUBLE PRECISION).    15546000
+C     LEGPOL            CALCULATES LEGENDRE POLYNOMIALS.                15547000
+C                                                                       15548000
+C     DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER  15549000
+C     TO PRESERVE ACCURACY.                                             15550000
+C                                                                       15551000
+      IMPLICIT REAL*8 (A-H,O-Z)                                         15552000
+      REAL*4 AM,DU                                                      15553000
+      DIMENSION W(64),W1(22),W2(42),X(64),Z(128),PN(MIPT1,1),FAC(6,1),  15554000
+     1TLJ(NPL,1),TLJ2(2,1)                                              15555000
+      EQUIVALENCE (W(1),W1(1)),(W(23),W2(1))                            15556000
+      DATA W1/4.4938096029D-04,1.0458126793D-03,1.6425030187D-03,       15557000
+     12.2382884310D-03,2.8327514714D-03,3.4255260409D-03,               15558000
+     24.0162549837D-03,4.6045842567D-03,5.1901618327D-03,               15559000
+     35.7726375429D-03,6.3516631617D-03,6.9268925669D-03,               15560000
+     47.4979819256D-03,8.0645898905D-03,8.6263777986D-03,               15561000
+     59.1830098717D-03,9.7341534150D-03,1.0279479016D-02,               15562000
+     61.0818660740D-02,1.1351376324D-02,1.1877307373D-02,               15563000
+     71.2396139544D-02/                                                 15564000
+      DATA W2/1.2907562739D-02,1.3411271289D-02,1.3906964133D-02,       15565000
+     11.4394345004D-02,1.4873122602D-02,1.5343010769D-02,               15566000
+     21.5803728659D-02,1.6255000910D-02,1.6696557801D-02,               15567000
+     31.7128135423D-02,1.7549475827D-02,1.7960327185D-02,               15568000
+     41.8360443937D-02,1.8749586940D-02,1.912752361D-02,                15569000
+     51.9494028059D-02,1.9848881233D-02,2.0191871042D-02,               15570000
+     62.0522792487D-02,2.0841447781D-02,2.1147646468D-02,               15571000
+     72.1441205539D-02,2.1721949538D-02,2.1989710668D-02,               15572000
+     82.2244328894D-02,2.2485652033D-02,2.2713535850D-02,               15573000
+     92.2927844144D-02,2.3128448824D-02,2.3315229994D-02,               15574000
+     A2.3488076016D-02,2.3646883584D-02,2.3791557781D-02,               15575000
+     B2.3922012137D-02,2.4038168681D-02,2.4139957989D-02,               15576000
+     C2.4227319223D-02,2.4300200168D-02,2.4358557265D-02,               15577000
+     D2.4402355634D-02,2.4431569100D-02,2.4446180197D-02/               15578000
+      DATA X/.99982488795,.99907745998,.99773324863,.99579275853,       15579000
+     1.99325711290,.99012781849,.98640674272,.98209610844,.97719849146, 15580000
+     2.97171681875,.96565436643,.95901475785,.95180196134,.94402028783, 15581000
+     3.93567438828,.92676925088,.91731019808,.90730288340,.89675328805, 15582000
+     4.88566771734,.87405279696,.86191546894,.84926298758,.83610291506, 15583000
+     5.82244311696,.80829175751,.79365729476,.77854847551,.76297433004, 15584000
+     6.74694416680,.73046756674,.71355437768,.69621470837,.67845892245, 15585000
+     7.66029763227,.64174169256,.62280219391,.60349045616,.58381802163, 15586000
+     8.56379664823,.54343830241,.52275515205,.50175955914,.48046407240, 15587000
+     9.45888141983,.43702450104,.41490637955,.39254027503,.36993955535, 15588000
+     A.34711772860,.32408843502,.30086543888,.27746262018,.25389396642, 15589000
+     B.23017356423,.20631559090,.18233430598,.15824404271,.13405919946, 15590000
+     C.10979423113,.85463640504D-01,.61081969604D-01,                   15591000
+     D.36663790969D-01,.12223698961D-01/                                15592000
+      A=AM                                                              15593000
+      ALPHA=((A-1.)/(A+1.))**2                                          15594000
+      Q=1./ALPHA                                                        15595000
+      Q=DLOG(Q)                                                         15596000
+      MARK=0                                                            15597000
+      V=1.D0                                                            15598000
+      DELT=DU                                                           15599000
+   25 CONTINUE                                                          15600000
+      AINT=(2.*DEXP(-DELT)-(1.+ALPHA))/(1.-ALPHA)                       15601000
+      A1=(V-AINT)*0.5                                                   15602000
+      B1=(V+AINT)*0.5                                                   15603000
+      DO 30 I=1,64                                                      15604000
+      J=I+64                                                            15605000
+      Z(I)=A1*X(I)+B1                                                   15606000
+      Z(J)=-A1*X(I)+B1                                                  15607000
+   30 CONTINUE                                                          15608000
+      CALL LEGPOL(PN,Z,MIPT1)                                           15609000
+      DO 60 N=1,NMAX                                                    15610000
+      SUM=0.                                                            15611000
+      SUM1=0.                                                           15612000
+      SUM2=0.                                                           15613000
+      SUM3=0.                                                           15614000
+      SUM4=0.                                                           15615000
+      SUM5=0.                                                           15616000
+      DO 40 I=1,64                                                      15617000
+      J=I+64                                                            15618000
+      F=PN(N,I)                                                         15619000
+      G=PN(N,J)                                                         15620000
+      SUM=SUM+W(I)*(F+G)                                                15621000
+      ARF=0.5D0*(1.+ALPHA+(1.-ALPHA)*Z(I))                              15622000
+      ARG=0.5D0*(1.+ALPHA+(1.-ALPHA)*Z(J))                              15623000
+      ARF=1.D0/ARF                                                      15624000
+      ARG=1.D0/ARG                                                      15625000
+      U1=DLOG(ARF)                                                      15626000
+      U2=DLOG(ARG)                                                      15627000
+      U3=0.5*U1                                                         15628000
+      U4=0.5*U2                                                         15629000
+      U3=((A+1.)*DEXP(-U3)-(A-1.)*DEXP(U3))*0.5                         15630000
+      U4=((A+1.)*DEXP(-U4)-(A-1.)*DEXP(U4))*0.5                         15631000
+      SUM1=SUM1+W(I)*(F*U1+G*U2)                                        15632000
+      SUM2=SUM2+W(I)*(F*U3+G*U4)                                        15633000
+      SUM3=SUM3+W(I)*(F*U1*U3+G*U2*U4)                                  15634000
+      IF(MARK.NE.2) GO TO 40                                            15635000
+      IF(N.GT.6) GO TO 40                                               15636000
+      SUM4=SUM4+W(I)*(F*U1*U1+G*U2*U2)                                  15637000
+      SUM5=SUM5+W(I)*(F*U1*U1*U3+G*U2*U2*U4)                            15638000
+   40 CONTINUE                                                          15639000
+      M=N-1                                                             15640000
+      AX=0.5D0*A1*(2*M+1)                                               15641000
+      Y1=AX*SUM                                                         15642000
+      Y2=-AX*SUM1                                                       15643000
+      Y3=AX*SUM2                                                        15644000
+      Y4=-AX*SUM3                                                       15645000
+      IF (MARK.GT.0) GO TO 45                                           15646000
+      FAC(1,N)=DELT*Y1+Y2                                               15647000
+      FAC(3,N)=DELT*Y3+Y4                                               15648000
+      GO TO 60                                                          15649000
+   45 CONTINUE                                                          15650000
+      IF (MARK.EQ.2) GO TO 50                                           15651000
+      FAC(2,N)=DELT*Y1+Y2                                               15652000
+      FAC(4,N)=DELT*Y3+Y4                                               15653000
+      GO TO 60                                                          15654000
+   50 CONTINUE                                                          15655000
+      IF(N.GT.6) GO TO 60                                               15656000
+      AX2=(2.*M+1.)/4                                                   15657000
+      TLJ2(1,N)=AX2*SUM4                                                15658000
+      TLJ2(2,N)=AX2*SUM5                                                15659000
+   60 CONTINUE                                                          15660000
+      MARK=MARK+1                                                       15661000
+      IF (MARK.EQ.1) DELT=DELT+DELT                                     15662000
+      IF (MARK.EQ.2) DELT=Q                                             15663000
+      IF (MARK.LT.3) GO TO 25                                           15664000
+      RETURN                                                            15665000
+      END                                                               15666000
+      SUBROUTINE TMATRX(AM,FAC1,PN,TLJ,TLJ2,VV,NPL1,MIPT1,DU,MAXPT1,Q3) 15667000
+C     ****************************************************************  15668000
+C                                                                       15669000
+C     SUBROUTINE TMATRX CONTROLS THE CALCULATION AND PRINT OUT OF       15670000
+C     THE T MATRIX ELEMENTS.                                            15671000
+C                                                                       15672000
+C     AM                RATIO OF THE NUCLEAR MASS OF THE MATERIAL       15673000
+C                       TO THAT OF THE NEUTRON.                         15674000
+C     FAC1              'INCOMPLETE' T MATRIX ELEMENTS AND FIRST ORDER  15675000
+C                       T MATRIX ELEMENTS.                              15676000
+C     PN                LEGENDRE POLYNOMIALS.                           15677000
+C     TLJ               ZERO ORDER T MATRIX ELEMENTS.                   15678000
+C     TLJ2              SECOND ORDER T MATRIX ELEMENTS.                 15679000
+C     VV                ZERO ORDER T MATRIX ELEMENTS. OBTAINED FROM     15680000
+C                       SUBROUTINE MATRIX.                              15681000
+C     NPL1              HIGHEST ORDER PERMITTED FOR EXTENDED TRANSPORT  15682000
+C                       APPROXIMATION +1.                               15683000
+C     MIPT1             MAXIMUM NUMBER OF LEGENDRE COEFFICIENTS         15684000
+C                       FOR THIS PROBLEM +1.                            15685000
+C     DU                ULTRAFINE GROUP LETHARGY WIDTH.                 15686000
+C     MAXPT1            MAXIMUM NUMBER OF LEGENDRE COEFFICIENTS         15687000
+C                       FOR THIS MATERIAL +1.                           15688000
+C     Q3                EQUAL TO ALOG(((AWR(M)+1.)/(AWR(M)-1.)))**2/3.  15689000
+C                       WHERE AWR(M) IS THE RATIO OF THE NUCLEAR MASS   15690000
+C                       OF THE MATERIAL TO THAT OF THE NEUTRON.         15691000
+C                                                                       15692000
+C     SUBROUTINES CALLED BY SUBROUTINE TMATRX.                          15693000
+C                                                                       15694000
+C     MATRIX            CALCULATES ZERO ORDER T MATRIX ELEMENTS.        15695000
+C     TMATRI            CALCULATES 'INCOMPLETE' T MATRIX ELEMENTS.      15696000
+C     TMATRY            CALCULATES FIRST ORDER T MATRIX ELEMENTS.       15697000
+C     IBCOM#            FORTRAN I/O ROUTINE                             15698000
+C                                                                       15699000
+C     DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER  15700000
+C     TO PRESERVE ACCURACY.                                             15701000
+C                                                                       15702000
+      DOUBLE PRECISION PN,VV,FAC1,TLJ,TLJ2                              15703000
+      DIMENSION FAC1(6,1),PN(MIPT1,1),TLJ(NPL1,1),TLJ2(2,1),VV(1),M(6)  15704000
+      COMMON/FILES/NT(4,99)                                             15705000
+       COMMON/OPZIO/OPZ(4,8,10)                                         15706000
+         EQUIVALENCE (NT(1,6),LTPO),(OPZ(3,8,1),STMP)                   15707000
+C                                                                       15708000
+C     CALCULATE 0 MOMENT OF T  L J WHERE BOTH L AND J RANGE             15709000
+C     FROM 0 TO MIPT.                                                   15710000
+C                                                                       15711000
+      LAB=0                                                             15712000
+      MIPT1M=3*MIPT1/2                                                  15713000
+      CALL MATRIX(AM,VV,MIPT1,MIPT1M,LAB)                               15714000
+      DO 80 L=2,NPL1                                                    15715000
+      K=L                                                               15716000
+      DO 70 J=1,MIPT1                                                   15717000
+      TLJ(L,J)=VV(K)                                                    15718000
+      K=K+MIPT1                                                         15719000
+   70 CONTINUE                                                          15720000
+   80 CONTINUE                                                          15721000
+C                                                                       15722000
+C     CALCULATE 'INCOMPLETE' T MATRIX ELEMENTS AND                      15723000
+C     2 MOMENT OF T 0 J AND 2 MOMENT OF T 1 J FOR J RANGING             15724000
+C     FROM 0 TO MIPT.                                                   15725000
+C                                                                       15726000
+      CALL TMATRI(AM,FAC1,PN,TLJ,TLJ2,NPL1,MIPT1,MIPT1,DU)              15727000
+C                                                                       15728000
+C     CALCULATE 1 MOMENT OF T 0 J AND 1 MOMENT OF T 1 J FOR             15729000
+C     J RANGING FEOM 0 TO MIPT.                                         15730000
+C                                                                       15731000
+      CALL TMATRY(AM,FAC1,TLJ,MIPT1,NPL1)                               15732000
+C                                                                       15733000
+C     PRINT OUT THE ABOVE CALCULATIONS.                                 15734000
+C      IF REQUESTED                                                     15735000
+       IF(STMP.LT.50) RETURN                                            15736000
+C                                                                       15737000
+C                                                                       15738000
+      WRITE(LTPO,1410)                                                  15739000
+      IF(DU.LT.Q3) GO TO 91                                             15740000
+      DO 90 I=1,MAXPT1                                                  15741000
+      N=I-1                                                             15742000
+      WRITE(LTPO,1200)(N,FAC1(J,I),J=1,6)                               15743000
+   90 CONTINUE                                                          15744000
+      GO TO 94                                                          15745000
+   91 CONTINUE                                                          15746000
+      DO 93 I=1,MAXPT1                                                  15747000
+      N=I-1                                                             15748000
+      WRITE(LTPO,1201)(N,FAC1(J,I),J=5,6)                               15749000
+   93 CONTINUE                                                          15750000
+   94 CONTINUE                                                          15751000
+      WRITE(LTPO,1420)                                                  15752000
+      DO 95 I=1,6                                                       15753000
+      N=I-1                                                             15754000
+      WRITE(LTPO,1200)N,TLJ2(1,I),N,TLJ2(2,I)                           15755000
+   95 CONTINUE                                                          15756000
+      DO 98 I=1,6                                                       15757000
+      M(I)=I                                                            15758000
+   98 CONTINUE                                                          15759000
+      K=2                                                               15760000
+      IF(NPL1.LE.7) GO TO 100                                           15761000
+      L=7                                                               15762000
+      GO TO 112                                                         15763000
+  100 CONTINUE                                                          15764000
+      L=NPL1                                                            15765000
+  112 CONTINUE                                                          15766000
+      WRITE(LTPO,1430)(M(I),I=1,6)                                      15767000
+      DO 114 I=1,MAXPT1                                                 15768000
+      N=I-1                                                             15769000
+      WRITE(LTPO,1200)(N,TLJ(J,I),J=K,L)                                15770000
+  114 CONTINUE                                                          15771000
+      DO 115 I=1,6                                                      15772000
+      M(I)=M(I)+6                                                       15773000
+  115 CONTINUE                                                          15774000
+      K=L+1                                                             15775000
+      IF(NPL1.LE.L) GO TO 120                                           15776000
+      L=NPL1                                                            15777000
+      IF(L.GT.(K+5)) L=K+5                                              15778000
+      GO TO 112                                                         15779000
+  120 CONTINUE                                                          15780000
+ 1200 FORMAT(6(2X,I3,1PE15.7))                                          15781000
+ 1201 FORMAT(82X,I3,1PE15.7,2X,I3,1E15.7)                               15782000
+ 1410 FORMAT(127H0   J    FAC  1         J    FAC  2         J    FAC  315783000
+     1         J   FAC  4         J   1 MOMENT T 0 J  J  1 MOMENT T 1 J 15784000
+     2             /)                                                   15785000
+ 1420 FORMAT(45H0  J  2 MOMENT T 0 J    J  2 MOMENT T 1 J      /)       15786000
+ 1430 FORMAT(15H0   J  0 MOMENT ,I2,18HJ      J  0 MOMENT ,I2,18HJ      15787000
+     1J  0 MOMENT  ,I2,18HJ      J  0 MOMENT  ,I2,18HJ     J  0 MOMENT  15788000
+     2 ,I2,18HJ      J  0 MOMENT  ,I2,2HJ  /)                           15789000
+      RETURN                                                            15790000
+      END                                                               15791000
+      SUBROUTINE TMATRY(GG,FAC1,TLJ,MIPT1,NPL1)                         15792000
+C     **********************************************************        15793000
+C                                                                       15794000
+C     SUBROUTINE TMATRY CALCULATES FIRST ORDER T MATRIX ELEMENTS.       15795000
+C                                                                       15796000
+C     AM                RATIO OF THE NUCLEAR MASS OF THE MATERIAL       15797000
+C                       TO THAT OF THE NEUTRON.                         15798000
+C     FAC1              FIRST ORDER T MATRIX ELEMENTS.                  15799000
+C     TLJ               ZERO ORDER T MATRIX ELEMENTS.                   15800000
+C     MIPT1             MAXIMUM NUMBER OF LEGENDRE COEFFICIENTS         15801000
+C                       FOR THIS PROBLEM +1.                            15802000
+C     NPL1              HIGHEST ORDER PERMITTED FOR EXTENDED TRANSPORT  15803000
+C                       APPROXIMATION +1.                               15804000
+C                                                                       15805000
+C     SUBROUTINES CALLED BY SUBROUTINE TMATRY.                          15806000
+C                                                                       15807000
+C     CLEB              CALCULATES CLEBSCH-GORDEN COEFFICIENTS.         15808000
+C     DABS              FORTRAN ABSOLUTE VALUE ROUTINE (DOUBLE          15809000
+C     DLOG              FORTRAN LOGARITHM FUNCTION (DOUBLE PRECISION)   15810000
+C                       PRECISION).                                     15811000
+C     IABS              FORTRAN ABSOLUTE VALUE ROUTINE FOR INTEGERS.    15812000
+C                                                                       15813000
+C     DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER  15814000
+C     TO PRESERVE ACCURACY.                                             15815000
+C                                                                       15816000
+      IMPLICIT REAL*8 (A-H,O-Z)                                         15817000
+      REAL*4 GG                                                         15818000
+      DIMENSION FAC1(6,2),TLJ(NPL1,1)                                   15819000
+      COMMON/FACTRL/FAC(101),NFAC(101)                                  15820000
+      A=GG                                                              15821000
+      MM=MIPT1                                                          15822000
+      ALPHA=((A-1.)/(A+1.))**2                                          15823000
+      ALP=1.-ALPHA                                                      15824000
+      Q=DLOG(1./ALPHA)                                                  15825000
+C     CALCULATE FIRST MOMENT OF T SUB 0,N                               15826000
+C                                                                       15827000
+      FAC1(5,1)=-(1.-ALPHA*Q/ALP)                                       15828000
+      FAC1(5,2)=3.*((1.+ALPHA)/(2*ALP)-ALPHA*Q/(ALP*ALP))               15829000
+      DO 20 L=3,MM                                                      15830000
+      SUM=0.0                                                           15831000
+      ISGN=1                                                            15832000
+      IF (L.NE.2*(L/2)) ISGN=-1                                         15833000
+      N=L-1                                                             15834000
+      ISGN=ISGN*(N+L)                                                   15835000
+      NN=N                                                              15836000
+      IF (N.EQ.0) NN=N+1                                                15837000
+      DO 30 K=NN,60                                                     15838000
+      IA=K+1                                                            15839000
+      IB=K-N+1                                                          15840000
+      IC=K+L+1                                                          15841000
+      ARG=FAC(IA)**2/(FAC(IB)*FAC(IC))                                  15842000
+      NEPT=2*NFAC(IA)-NFAC(IB)-NFAC(IC)                                 15843000
+      P1=K                                                              15844000
+      TERM=ALP**K*(ARG*10.0**NEPT)/P1                                   15845000
+      SUM=SUM+TERM                                                      15846000
+      IF (TERM.LE.SUM*1.E-06) GO TO 25                                  15847000
+      IF (TERM.LT.1.0E-42) GO TO 25                                     15848000
+   30 CONTINUE                                                          15849000
+   25 SIGN=ISGN                                                         15850000
+      FAC1(5,L)=SIGN*SUM                                                15851000
+      XX=FAC1(5,L)                                                      15852000
+      IF(DABS(XX).LT.1.D-46) GO TO 21                                   15853000
+   20 CONTINUE                                                          15854000
+   21 CONTINUE                                                          15855000
+C                                                                       15856000
+C     CALCULATE FIRST MOMENT OF T SUB 1,N                               15857000
+C                                                                       15858000
+      ILO=1                                                             15859000
+      DO 150 I=ILO,MM                                                   15860000
+      N=I-1                                                             15861000
+      SUM=0.0                                                           15862000
+      DO 140 N1=1,MIPT1                                                 15863000
+      X2=TLJ(2,N1)                                                      15864000
+      IF (X2.EQ.0) GO TO 140                                            15865000
+      K=N1-1                                                            15866000
+      MAX=K+N+1                                                         15867000
+      IF (MAX.GT.MM) MAX=MM                                             15868000
+      MIN=IABS(K-N) +1                                                  15869000
+      SUM1=0.0                                                          15870000
+      DO 130 M1=MIN,MAX,2                                               15871000
+      X1=FAC1(5,M1)                                                     15872000
+      IF (DABS(X1).LT.1.0E-40) GO TO 130                                15873000
+      M2=M1-1                                                           15874000
+      SUM1=SUM1+CLEB(K,M2,N)**2*X1                                      15875000
+  130 CONTINUE                                                          15876000
+      SUM=SUM+X2*SUM1                                                   15877000
+  140 CONTINUE                                                          15878000
+  150 FAC1(6,I)=SUM                                                     15879000
+      RETURN                                                            15880000
+      END                                                               15881000
+C *********************************************************             15882000
+C           THE FOLLOWING ROUTINES COMPUTES THE W FUNCION               15883000
+C           FOR THE CALCULATION OF DOPPLER FUNCTIONS                    15884000
+C           THESE ROUTINES ARE TAKEN FROM MC2-2 AND ETOE CODE           15885000
+C                                                                       15886000
+      SUBROUTINE QUICKW(N41,N27,TR,TI,TRS,TIS,AX,Y,REW,AIMW)            15887000
+C     ********************************************************          15888000
+C                                                                       15889000
+C     SUBROUTINE QUICKW CALCULATES THE REAL AND IMAGINARY PARTS         15890000
+C     OF W(X,Y).                                                        15891000
+C                                                                       15892000
+C     TR                REAL PART OF W(X,Y) TABULATED AT INCREMENTS     15893000
+C                       OF 0.1 FOR -0.1.LE.X.LE.3.9 AND 0.4.LE.Y.LE.3.0 15894000
+C     TI                IMAGINARY PART OF W(X,Y) TABULATED AT INCREMENTS15895000
+C                       OF 0.1 FOR -0.1.LE.X.LE.3.9 AND 0.4.LE.Y.LE.3.0 15896000
+C     TRS               REAL PART OF W(X,Y) TABULATED AT INCREMENTS OF  15897000
+C                       OF 0.1 FOR -0.1.LE.X.LE.3.9 AND AT INCREMENTS OF15898000
+C                       0.02 FOR -0.02.LE.Y.LE.0.5                      15899000
+C     TIS               IMAGINARY PART OF W(X,Y) TABULATED AT INCREMENTS15900000
+C                       OF 0.1 FOR -0.1.LE.X.LE.3.9 AND AT INCREMENTS OF15901000
+C                       0.02 FOR -0.02.LE.Y.LE.0.5                      15902000
+C                                                                       15903000
+C     COMMON/REAIMW/AX,Y,REW,AIMW                                       15904000
+C     COMMON /TABDAT/ TR(41,27),TI(41,27),TRS(41,27),TIS(41,27)         15905000
+       DIMENSION TR(N41,N27),TI(N41,N27),TRS(N41,N27),TIS(N41,N27)      15906000
+C                                                                       15907000
+C     C1=1/ SQRT(PI)                                                    15908000
+C                                                                       15909000
+      DATA C1/0.5641895835/,C2/0.2752551/,                              15910000
+     1     C3/2.724745/,C4/0.5124242/,                                  15911000
+     2     C5/0.05176536/,HALF/0.5/,TEN/10.0/,                          15912000
+     4     D1/0.4613135/,D2/0.1901635/,D3/0.09999216/,                  15913000
+     5     D4/1.7844927/,D5/0.002883894/,D6/5.5253437/,FIFTY/50.0/      15914000
+C                                                                       15915000
+C                                                                       15916000
+C                                                                       15917000
+      X=AX                                                              15918000
+      XABS=ABS(X)                                                       15919000
+      IF(XABS.LE.3.9.AND.Y.LE.3.0) GO TO 100                            15920000
+      A1=(X+Y)*(X-Y)                                                    15921000
+      A2=2.0*X*Y                                                        15922000
+      A3=A2*A2                                                          15923000
+      TEMP1=A2*X                                                        15924000
+      TEMP2=A2*Y                                                        15925000
+      IF(XABS.GT.6.0.OR.Y.GT.6.0) GO TO 110                             15926000
+      GO TO 150                                                         15927000
+  110 CONTINUE                                                          15928000
+      IF(XABS.GT.100.0.OR.Y.GT.100.0) GO TO 400                         15929000
+      GO TO 200                                                         15930000
+  100 CONTINUE                                                          15931000
+C                                                                       15932000
+C     SIX POINT TABLE INTERPOLATION FOR 0.LE.ABS(X).LE.3.9              15933000
+C                                                                       15934000
+      AKI= SIGN(1.  ,AX)                                                15935000
+      X=XABS                                                            15936000
+      TEMPOR=TEN*X                                                      15937000
+      II=TEMPOR                                                         15938000
+      I=II+2                                                            15939000
+      P=TEMPOR-II                                                       15940000
+      P2=P*P                                                            15941000
+      HP=HALF*P                                                         15942000
+      HP2=HALF*P2                                                       15943000
+      A2=HP2-HP                                                         15944000
+      IF(Y.LT.0.5) GO TO 210                                            15945000
+C                                                                       15946000
+C     Y.GE.0.5                                                          15947000
+C                                                                       15948000
+      TEMPOR=TEN*Y                                                      15949000
+      JJ=TEMPOR                                                         15950000
+      J=JJ-3                                                            15951000
+      N=J-1                                                             15952000
+      Q=TEMPOR-JJ                                                       15953000
+      Q2=Q*Q                                                            15954000
+      PQ=P*Q                                                            15955000
+      HQ=HALF*Q                                                         15956000
+      HQ2=HALF*Q2                                                       15957000
+      A1=HQ2-HQ                                                         15958000
+      A3=1.  +PQ-P2-Q2                                                  15959000
+      A4=HP2-PQ+HP                                                      15960000
+      A5=HQ2-PQ+HQ                                                      15961000
+      REW=A1*TR(I,N  )+A2*TR(I-1,J)+A3*TR(I,J)+A4*TR(I+1,J)+A5*TR(I,J+1)15962000
+     1+PQ*TR(I+1,J+1)                                                   15963000
+      IF(AX.EQ.0.0) GO TO 120                                           15964000
+      AIMW=A1*TI(I,N  )+A2*TI(I-1,J)+A3*TI(I,J)+A4*TI(I+1,J)+A5*TI(I,J+115965000
+     1)+PQ*TI(I+1,J+1)                                                  15966000
+      AIMW=AIMW*AKI                                                     15967000
+      RETURN                                                            15968000
+  210 CONTINUE                                                          15969000
+C                                                                       15970000
+C     Y.LT.0.5                                                          15971000
+C                                                                       15972000
+      TEMPOR=FIFTY*Y                                                    15973000
+      JJ=TEMPOR                                                         15974000
+      J=JJ+2                                                            15975000
+      N=J-1                                                             15976000
+      Q=TEMPOR-JJ                                                       15977000
+      Q2=Q*Q                                                            15978000
+      PQ=P*Q                                                            15979000
+      HQ=HALF*Q                                                         15980000
+      HQ2=HALF*Q2                                                       15981000
+      A1=HQ2-HQ                                                         15982000
+      A3=1.  +PQ-P2-Q2                                                  15983000
+      A4=HP2-PQ+HP                                                      15984000
+      A5=HQ2-PQ+HQ                                                      15985000
+      REW=A1*TRS(I,N  )+A2*TRS(I-1,J)+A3*TRS(I,J)+A4*TRS(I+1,J)+        15986000
+     1A5*TRS(I,J+1)+PQ*TRS(I+1,J+1)                                     15987000
+      IF(AX.EQ.0) GO TO 120                                             15988000
+      AIMW=A1*TIS(I,N  )+A2*TIS(I-1,J)+A3*TIS(I,J)+A4*TIS(I+1,J)+       15989000
+     1A5*TIS(I,J+1)+PQ*TIS(I+1,J+1)                                     15990000
+      AIMW=AIMW*AKI                                                     15991000
+      RETURN                                                            15992000
+C                                                                       15993000
+C     RATIONAL APPROXIMATION FOR X.GT.3.9 OR Y.GT.3.0 BUT X AND Y .LE.6 15994000
+C                                                                       15995000
+  150 CONTINUE                                                          15996000
+      A4=A1-D2                                                          15997000
+      A5=A1-D4                                                          15998000
+      A6=A1-D6                                                          15999000
+      E1=D1/(A4*A4+A3)                                                  16000000
+      E2=D3/(A5*A5+A3)                                                  16001000
+      E3=D5/(A6*A6+A3)                                                  16002000
+      REW=E1*(TEMP1-A4*Y)+E2*(TEMP1-A5*Y)+E3*(TEMP1-A6*Y)               16003000
+      IF(AX.EQ.0.0) GO TO 120                                           16004000
+      AIMW=E1*(A4*X+TEMP2)+E2*(A5*X+TEMP2)+E3*(A6*X+TEMP2)              16005000
+      RETURN                                                            16006000
+C                                                                       16007000
+C     RATIONAL APPROXIMATION FOR X.GT.6 OR Y.GT.6 BUT X AND Y .LE.100   16008000
+C                                                                       16009000
+  200 CONTINUE                                                          16010000
+      A4=A1-C2                                                          16011000
+      A5=A1-C3                                                          16012000
+      F1=C4/(A4*A4+A3)                                                  16013000
+      F2=C5/(A5*A5+A3)                                                  16014000
+      REW=F1*(TEMP1-A4*Y)+F2*(TEMP1-A5*Y)                               16015000
+      IF(AX.EQ.0.0) GO TO 120                                           16016000
+      AIMW=F1*(A4*X+TEMP2)+F2*(A5*X+TEMP2)                              16017000
+      RETURN                                                            16018000
+C                                                                       16019000
+C     ASYMPTOTIC TERM FOR X.GT.100 OR Y.GT.100                          16020000
+C                                                                       16021000
+  400 CONTINUE                                                          16022000
+      TEST=X*X+Y*Y                                                      16023000
+      A1=C1/TEST                                                        16024000
+      REW=Y*A1                                                          16025000
+      AIMW=X*A1                                                         16026000
+      RETURN                                                            16027000
+C                                                                       16028000
+C     AIMW=0. FOR X=0.                                                  16029000
+C                                                                       16030000
+  120 CONTINUE                                                          16031000
+      AIMW=0.0                                                          16032000
+      RETURN                                                            16033000
+      END                                                               16034000
+      SUBROUTINE WZERO(ARG,PSIEZ)                                       16035000
+C     **********************************************************        16036000
+C                                                                       16037000
+C     SUBROUTINE WZERO CALCULATES THE REAL PART OF W(0,ARG) USING A     16038000
+C     RATIONAL APPROXIMATION FOR EXP(ARG*ARG)*ERFC(ARG)                 16039000
+C     OR VARIOUS RATIONAL APPROXIMATIONS FOR ARG .GE. 2.0               16040000
+C                                                                       16041000
+C     COMMON/RATION/ ARG,PSIEZ                                          16042000
+C                                                                       16043000
+C     SET CONSTANTS FOR RATIONAL APPROXIMATIONS IN DATA STATEMENT       16044000
+C                                                                       16045000
+      DATA W21/0.5124242/,W22/0.05176536/,Y21/0.2752551/,               16046000
+     1     Y22/2.724745/,W31/0.4613135/,W32/0.09999216/,                16047000
+     2     W33/0.002883894/,Y31/0.1901635/,Y32/1.7844927/,              16048000
+     3     Y33/5.5253437/                                               16049000
+      IF(ARG.GE.2.0) GO TO 100                                          16050000
+C                                                                       16051000
+C     RATIONAL APPROXIMATION 7.1.26 ON PAGE 299 IN HANDBOOK OF          16052000
+C     MATHEMATICAL FUNCTIONS WITH FORMULAS, GRAPHS, AND MATHEMATICAL    16053000
+C     TABLES, EDITED BY MILTON ABRAMOWITZ AND IRENE A. STEGUN,          16054000
+C     NBS APPLED MATHEMATICS SERIES 55, JUNE 1964                       16055000
+C                                                                       16056000
+      T=1.0/(1.0+0.3275911*ARG)                                         16057000
+      PSIEZ=T*(0.254829592+T*(-0.284496736+T*(1.421413741+T*            16058000
+     1        (-1.453152027+T*(1.061405429)))))                         16059000
+      RETURN                                                            16060000
+  100 CONTINUE                                                          16061000
+C                                                                       16062000
+C     RATIONAL APPROXIMATIONS BASED ON FORMULAS ON PAGE 328 OF ABOVE    16063000
+C     REFERENCED HANDBOOK                                               16064000
+C                                                                       16065000
+      IF(ARG.GT.6.0) GO TO 120                                          16066000
+      X=ARG*ARG                                                         16067000
+      PSIEZ=ARG*(W31/(X+Y31)+W32/(X+Y32)+W33/(X+Y33))                   16068000
+      RETURN                                                            16069000
+  120 CONTINUE                                                          16070000
+      IF(ARG.GT.100.0) GO TO 130                                        16071000
+      X=ARG*ARG                                                         16072000
+      PSIEZ=ARG*(W21/(X+Y21)+W22/(X+Y22))                               16073000
+      RETURN                                                            16074000
+  130 CONTINUE                                                          16075000
+C                                                                       16076000
+C     0.5641895835 IS 1/SQRT(PI)                                        16077000
+C                                                                       16078000
+      PSIEZ=0.5641895835/ARG                                            16079000
+      RETURN                                                            16080000
+      END                                                               16081000
+      SUBROUTINE WTABL(N41,N27,AX,AY,TR,TI,TRS,TIS)                     16082000
+C     **********************************************************        16083000
+C      !!! ATTENZIONE A AX ED AY CHE SONO IN DOUDLE PREC !!!            16084000
+C                                                                       16085000
+C     SUBROUTINE WTABLE CONTROLS THE CALCULATION AND WRITING OF THE     16086000
+C     COURSE AND FINE, REAL AND IMAGINARY PARTS OF THE W TABLE          16087000
+C                                                                       16088000
+C     SUBROUTINES CALLED BY SUBROUTINE WTABLE                           16089000
+C                                                                       16090000
+C     W                 CALCULATES REAL AND IMAGINARY COMPLEX           16091000
+C                       PROBABILITY INTEGRALS                           16092000
+C     IBCOM#            FORTRAN I/O ROUTINE                             16093000
+C                                                                       16094000
+C     DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER  16095000
+C     TO PRESERVE ACCURACY.                                             16096000
+C                                                                       16097000
+      DOUBLE PRECISION   X,Y,REW,AIMW,DELX,DELY,AX,AY                   16098000
+C     COMMON /UNRDAT/  AX(41),AY(27)                                    16099000
+C     COMMON /TABDAT/ TR(41,27),TI(41,27),TRS(41,27),TIS(41,27)         16100000
+       DIMENSION AX(N41),AY(N27)                                        16101000
+       DIMENSION TR(N41,N27),TI(N41,N27),TRS(N41,N27),TIS(N41,N27)      16102000
+      AX(1)=-0.1D0                                                      16103000
+      AX(2)=0.0D0                                                       16104000
+      DELX=0.1D0                                                        16105000
+      DO 130 I=3,41                                                     16106000
+      AX(I)=AX(I-1)+DELX                                                16107000
+  130 CONTINUE                                                          16108000
+      AY(1)=0.4D0                                                       16109000
+      AY(2)=0.5D0                                                       16110000
+      DELY=0.1D0                                                        16111000
+      DO 140 J=3,27                                                     16112000
+      AY(J)=AY(J-1)+DELY                                                16113000
+  140 CONTINUE                                                          16114000
+  160 CONTINUE                                                          16115000
+      DO 170 I=2,41                                                     16116000
+      X=AX(I)                                                           16117000
+      DO 170 J=1,27                                                     16118000
+      Y=AY(J)                                                           16119000
+      CALL W(X,Y,REW,AIMW)                                              16120000
+      TR (I,J)=REW                                                      16121000
+      TI (I,J)=AIMW                                                     16122000
+  170 CONTINUE                                                          16123000
+      DO 180 J=1,27                                                     16124000
+      TR (1,J)=TR (3,J)                                                 16125000
+      TI (1,J)=-TI (3,J)                                                16126000
+      TI (2,J)=0.                                                       16127000
+  180 CONTINUE                                                          16128000
+      AY(1)=-0.02D0                                                     16129000
+      AY(2)=0.0D0                                                       16130000
+      DELY=0.02D0                                                       16131000
+      DO 190 J=3,27                                                     16132000
+      AY(J)=AY(J-1)+DELY                                                16133000
+  190 CONTINUE                                                          16134000
+      DO 270 I=2,41                                                     16135000
+      X=AX(I)                                                           16136000
+      DO 270 J=1,27                                                     16137000
+      Y=AY(J)                                                           16138000
+      CALL W(X,Y,REW,AIMW)                                              16139000
+      TRS(I,J)=REW                                                      16140000
+      TIS(I,J)=AIMW                                                     16141000
+  270 CONTINUE                                                          16142000
+      DO 280 J=1,27                                                     16143000
+      TRS(1,J)=TRS(3,J)                                                 16144000
+      TIS(1,J)=-TIS(3,J)                                                16145000
+      TIS(2,J)=0.                                                       16146000
+  280 CONTINUE                                                          16147000
+      RETURN                                                            16148000
+      END                                                               16149000
+      SUBROUTINE W(REZ,AIM1,REW,AIMW)                                   16150000
+C     ***********************************************************       16151000
+C                                                                       16152000
+C     SUBROUTINE W CALCULATES REW(REZ,AIM1) AND AIMW(REZ,AIM1) THE      16153000
+C     REAL AND IMAGINARY COMPLEX PROBABILITY INTEGRALS                  16154000
+C                                                                       16155000
+C     REZ               ARGUMENT REZ AT WHICH REW AND AIMW ARE TO BE    16156000
+C                       CALCULATED                                      16157000
+C     AIM1              ARGUMENT AIM1 AT WHICH REW AND AIMW ARE TO BE   16158000
+C                       CALCULATED                                      16159000
+C     REW               REAL COMPLEX PROBABILITY INTEGRAL W             16160000
+C     AIMW              IMAGINARY COMPLEX PROBABILITY INTEGRAL W        16161000
+C                                                                       16162000
+C     SUBROUTINES CALLED BY SUBROUTINE W                                16163000
+C                                                                       16164000
+C     DABS              FORTRAN ABSOLUTE VALUE FUNCTION (DOUBLE         16165000
+C                       PRECISION)                                      16166000
+C     DEXP              FORTRAN EXPONENTIAL FUNCTION (DOUBLE PRECISION) 16167000
+C     DCOS              FORTRAN COSINE FUNCTION (DOUBLE PRECISION)      16168000
+C     DSIN              FORTRAN SINE FUNCTION (DOUBLE PRECISION)        16169000
+C                                                                       16170000
+C     DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER  16171000
+C     TO PRESERVE ACCURACY.                                             16172000
+C                                                                       16173000
+      IMPLICIT REAL*8 (A-H,O-Z)                                         16174000
+      REW=0.                                                            16175000
+      AIMW=0.                                                           16176000
+      AIMZ=DABS(AIM1)                                                   16177000
+      ABREZ=DABS(REZ)                                                   16178000
+      IF ((ABREZ+AIMZ).NE.0) GO TO 10                                   16179000
+      REW=1.                                                            16180000
+      AIMW=0.                                                           16181000
+      RETURN                                                            16182000
+   10 CONTINUE                                                          16183000
+      R2=REZ*REZ                                                        16184000
+      AI2=AIMZ*AIMZ                                                     16185000
+      IF (ABREZ+1.25D0*AIMZ.LE.5.) GO TO 40                             16186000
+   20 CONTINUE                                                          16187000
+      IF (ABREZ+1.1D0*AIMZ-6.6D0) 190,190,180                           16188000
+   30 CONTINUE                                                          16189000
+      IF (ABREZ+1.43333D0*AIMZ-4.3D0) 210,210,200                       16190000
+   40 CONTINUE                                                          16191000
+      IF (ABREZ+1.863636D0*AIMZ-4.1D0) 130,130,60                       16192000
+   50 CONTINUE                                                          16193000
+      IF (AIMZ-1.5) 120,220,220                                         16194000
+   60 CONTINUE                                                          16195000
+      IF (AIMZ-1.4D0) 170,170,30                                        16196000
+   70 CONTINUE                                                          16197000
+      IF (ABREZ+1.07317D0*AIMZ-4.4D0) 210,210,200                       16198000
+   80 CONTINUE                                                          16199000
+      IF (ABREZ-2.7D0) 290,300,300                                      16200000
+   90 CONTINUE                                                          16201000
+      IF (ABREZ.LT.3.1D0) GO TO 80                                      16202000
+  100 CONTINUE                                                          16203000
+      IF (ABREZ-3.4D0) 310,320,320                                      16204000
+  110 CONTINUE                                                          16205000
+      IF (R2+1.18D0*AI2-5.76D0) 50,90,90                                16206000
+  120 CONTINUE                                                          16207000
+      IF (R2+1.7227D0*AI2-4.41D0) 270,280,280                           16208000
+  130 CONTINUE                                                          16209000
+      IF (R2+1.71D0*AI2-2.89D0) 150,110,110                             16210000
+  140 CONTINUE                                                          16211000
+      IF (R2+1.69D0*AI2-1.69D0) 250,260,260                             16212000
+  150 CONTINUE                                                          16213000
+      IF (R2+2.0408D0*AI2-1.0) 160,140,140                              16214000
+  160 CONTINUE                                                          16215000
+      IF (R2+1.5625D0*AI2-0.25D0) 230,240,240                           16216000
+  170 CONTINUE                                                          16217000
+      IF (ABREZ+1.43333D0*AIMZ-4.3D0) 220,220,70                        16218000
+  180 CONTINUE                                                          16219000
+      NMAX=1                                                            16220000
+      GO TO 340                                                         16221000
+  190 CONTINUE                                                          16222000
+      NMAX=2                                                            16223000
+      GO TO 340                                                         16224000
+  200 CONTINUE                                                          16225000
+      NMAX=3                                                            16226000
+      GO TO 340                                                         16227000
+  210 CONTINUE                                                          16228000
+      NMAX=4                                                            16229000
+      GO TO 340                                                         16230000
+  220 CONTINUE                                                          16231000
+      NMAX=6                                                            16232000
+      GO TO 340                                                         16233000
+  230 CONTINUE                                                          16234000
+      NMAX=2                                                            16235000
+      GO TO 330                                                         16236000
+  240 CONTINUE                                                          16237000
+      NMAX=3                                                            16238000
+      GO TO 330                                                         16239000
+  250 CONTINUE                                                          16240000
+      NMAX=4                                                            16241000
+      GO TO 330                                                         16242000
+  260 CONTINUE                                                          16243000
+      NMAX=5                                                            16244000
+      GO TO 330                                                         16245000
+  270 CONTINUE                                                          16246000
+      NMAX=6                                                            16247000
+      GO TO 330                                                         16248000
+  280 CONTINUE                                                          16249000
+      NMAX=7                                                            16250000
+      GO TO 330                                                         16251000
+  290 CONTINUE                                                          16252000
+      NMAX=8                                                            16253000
+      GO TO 330                                                         16254000
+  300 CONTINUE                                                          16255000
+      NMAX=9                                                            16256000
+      GO TO 330                                                         16257000
+  310 CONTINUE                                                          16258000
+      NMAX=10                                                           16259000
+      GO TO 330                                                         16260000
+  320 CONTINUE                                                          16261000
+      NMAX=11                                                           16262000
+  330 CONTINUE                                                          16263000
+      KW=2                                                              16264000
+      AIMZ=AIM1                                                         16265000
+      GO TO 400                                                         16266000
+  340 CONTINUE                                                          16267000
+      KW=1                                                              16268000
+      IF (AIM1.GE.0) GO TO 350                                          16269000
+      KW=2                                                              16270000
+      AIMZ=AIM1                                                         16271000
+      GO TO 400                                                         16272000
+C                                                                       16273000
+C      W IS OBTAINED FROM ASYMPTOTIC SERIES                             16274000
+C                                                                       16275000
+  350 CONTINUE                                                          16276000
+      RV=R2+R2 -AI2-AI2                                                 16277000
+      AK=4.*REZ*AIMZ                                                    16278000
+      EL=AK                                                             16279000
+      H=0.                                                              16280000
+      B=0.                                                              16281000
+      A=0.                                                              16282000
+      TEMPM=0.                                                          16283000
+      TEMEL=0.                                                          16284000
+      G=1.                                                              16285000
+      C=-1.1283792*AIMZ                                                 16286000
+      D=1.1283792*REZ                                                   16287000
+      AM=RV-1.                                                          16288000
+      AAK=1.                                                            16289000
+      K=0                                                               16290000
+  360 CONTINUE                                                          16291000
+      AJTEMP=AAK+AAK                                                    16292000
+      TEMP4=(1.-AJTEMP)*AJTEMP                                          16293000
+      AJP=RV-(4.*AAK+1.)                                                16294000
+      GO TO 460                                                         16295000
+  370 CONTINUE                                                          16296000
+      AAK=AAK+1.                                                        16297000
+      K=K+1                                                             16298000
+      PR=REW                                                            16299000
+      PI=AIMW                                                           16300000
+      AMAGN=TEMPM*TEMPM + TEMEL*TEMEL                                   16301000
+      REW=(TEMPC*TEMPM+TEMPD*TEMEL)/AMAGN                               16302000
+      AIMW=(TEMPM*TEMPD-TEMEL*TEMPC)/AMAGN                              16303000
+      IF (DABS(REW-PR)-1.D-6) 380,360,360                               16304000
+  380 CONTINUE                                                          16305000
+      IF (REZ.EQ.0.) GO TO 500                                          16306000
+      IF (DABS(AIMW-PI)-1.D-6) 390,360,360                              16307000
+  390 CONTINUE                                                          16308000
+      RETURN                                                            16309000
+C                                                                       16310000
+C     WT IS OBTAINED FROM TAYLOR SERIES                                 16311000
+C                                                                       16312000
+  400 CONTINUE                                                          16313000
+      TEMP1=R2+AI2                                                      16314000
+      TEMP2=2.*TEMP1*TEMP1                                              16315000
+      AJ=-(R2-AI2)/TEMP2                                                16316000
+      AK=2.*REZ*AIMZ/TEMP2                                              16317000
+      C=0.                                                              16318000
+      B=0.                                                              16319000
+      AJSIG=0.                                                          16320000
+      D=0.                                                              16321000
+      JSIG=0                                                            16322000
+      G=0.                                                              16323000
+      H=0.                                                              16324000
+      EL=0.                                                             16325000
+      A=1.                                                              16326000
+      AM=1.                                                             16327000
+      SIGP=1.5                                                          16328000
+      EXPON=DEXP(TEMP2*AJ)                                              16329000
+      EXPC=EXPON*DCOS(TEMP2*AK)                                         16330000
+      EXPS=-EXPON*DSIN(TEMP2*AK)                                        16331000
+      SIG2P=SIGP+SIGP                                                   16332000
+  410 CONTINUE                                                          16333000
+      AJ4SIG=4.*AJSIG                                                   16334000
+      AJ4SM1=AJ4SIG-1.                                                  16335000
+      TEMP3=1./(AJ4SM1*(AJ4SIG+3.))                                     16336000
+      TT4=SIG2P*(AJSIG+AJSIG-1.)                                        16337000
+      TEMP4=TT4/(AJ4SM1*(AJ4SIG+1.)*(AJ4SIG-3.)*AJ4SM1)                 16338000
+      AJP=AJ+TEMP3                                                      16339000
+      GO TO 460                                                         16340000
+  420 CONTINUE                                                          16341000
+      AJSIG=AJSIG+1.                                                    16342000
+      JSIG=JSIG+1                                                       16343000
+      TEMP7=(AM*AM+EL*EL)*1.7724539                                     16344000
+      REF=(AIMZ*(C*AM+D*EL)-REZ*(AM*D-C*EL))/TEMP7/TEMP1                16345000
+      AIMF=(AIMZ*(AM*D-C*EL)+REZ*(C*AM+D*EL))/TEMP7/TEMP1               16346000
+      PR=REW                                                            16347000
+      PI=AIMW                                                           16348000
+      REW=EXPC-REF                                                      16349000
+      AIMW=EXPS-AIMF                                                    16350000
+      IF (DABS(REW-PR)-1.D-6) 430,450,450                               16351000
+  430 CONTINUE                                                          16352000
+      IF (REZ.EQ.0.) GO TO 500                                          16353000
+      IF (DABS(AIMW-PI)-1.D-6) 440,450,450                              16354000
+  440 CONTINUE                                                          16355000
+      RETURN                                                            16356000
+  450 CONTINUE                                                          16357000
+      SIG2P=AJSIG+AJSIG                                                 16358000
+      GO TO 410                                                         16359000
+  460 CONTINUE                                                          16360000
+      TEMPC=AJP*C+TEMP4*A-AK*D                                          16361000
+      TEMPD=AJP*D+TEMP4*B+AK*C                                          16362000
+      TEMEL=AJP*EL+TEMP4*H+AK*AM                                        16363000
+      TEMPM=AJP*AM+TEMP4*G-AK*EL                                        16364000
+      A=C                                                               16365000
+      B=D                                                               16366000
+      G=AM                                                              16367000
+      H=EL                                                              16368000
+      C=TEMPC                                                           16369000
+      D=TEMPD                                                           16370000
+      AM=TEMPM                                                          16371000
+      EL=TEMEL                                                          16372000
+      IF (DABS(TEMPM)+DABS(TEMEL)-1.D15) 480,470,470                    16373000
+  470 CONTINUE                                                          16374000
+      C=1.D-15*C                                                        16375000
+      D=1.D-15*D                                                        16376000
+      AM=1.D-15*AM                                                      16377000
+      EL=1.D-15*EL                                                      16378000
+      TEMPC=1.D-15*TEMPC                                                16379000
+      TEMPD=1.D-15*TEMPD                                                16380000
+      TEMPM=1.D-15*TEMPM                                                16381000
+      TEMEL=1.D-15*TEMEL                                                16382000
+      GO TO 490                                                         16383000
+  480 CONTINUE                                                          16384000
+      IF (DABS(TEMPM)+DABS(TEMEL).GT.1.D-15) GO TO 490                  16385000
+      C=1.D15*C                                                         16386000
+      D=1.D15*D                                                         16387000
+      AM=1.D15*AM                                                       16388000
+      EL=1.D15*EL                                                       16389000
+      TEMPC=1.D15*TEMPC                                                 16390000
+      TEMPD=1.D15*TEMPD                                                 16391000
+      TEMPM=1.D15*TEMPM                                                 16392000
+      TEMEL=1.D15*TEMEL                                                 16393000
+  490 CONTINUE                                                          16394000
+      GO TO (370,420,510),KW                                            16395000
+  500 CONTINUE                                                          16396000
+      AIMW=0.0                                                          16397000
+  510 CONTINUE                                                          16398000
+      RETURN                                                            16399000
+      END                                                               16400000
+      SUBROUTINE UNRINT (                                               16401000
+     2N41,N27,TR,TI,TRS,TIS,                                            16402000
+     3N150,SIGCAP,SIGFIS,SIGTOT,ZETA,PSIZRO,BETPSI,BBETA,               16403000
+     4BVCTR,PVCTR,RVCTR,GAMTOT,GAMFIS,PSHFT0,PSHFT1,PSHFT2,V1,V2,       16404000
+     5ES,GF,D,GA,GNO,DELTA,GAMCMP,SIGCMP,GX,SIGPOT )                    16405000
+C     ***************************************************************   16406000
+C                                                                       16407000
+C     SUBROUTINE UNRINT IS TAKEN FROM  UNRES PROGRAM,WRITTEN BY TOPPEL  16408000
+C     (ANL)                                                             16409000
+C                                                                       16410000
+C                                                                       16411000
+C     SUBROUTINE UNRINT CALCULATES THE SINGLE LEVEL UNRESOLVED          16412000
+C     RESONANCE INTEGRAL INCLUDING INTERFERENCE SCATTERING. SELF        16413000
+C     OVERLAP IS ACCOUNTED FOR TO SECOND ORDER. THE OVERLAP INTEGRAL    16414000
+C     CAN BE WRITTEN AS A FIRST ORDER TERM, SAY K1, MINUS A SECOND      16415000
+C     ORDER TERM, SAY K2.  K1 AND K2 EACH CONSIST OF TWO TERMS, A       16416000
+C     LEAD TERM AND A SECOND TERM.  THE SECOND TERMS OF K1 AND K2,      16417000
+C     SAY L1 AND L2, REQUIRE EVALUATING FOURIER TRANSFORMS OF           16418000
+C     VARIOUS EXPRESSIONS.                                              16419000
+C                                                                       16420000
+C     SIGCAP            UNRESOLVED RESONANT CAPTURE CROSS SECTIONS      16421000
+C     SIGFIS            UNRESOLVED RESONANT FISSION CROSS SECTIONS      16422000
+C     SIGTOT            UNRESOLVED RESONANCE TOTAL CROSS SECTIONS       16423000
+C     SIGCMP            UNRESOLVED RESONANCE COMPETITIVE CROSS SECTIONS 16424000
+C     ETA               ABSOLUTE VALUE OF THE RATIO OF THE GAUSS-       16425000
+C                       HERMITE QUADRATURE POINTS TO THE NORMALIZATION  16426000
+C                       FACTOR ALPHA                                    16427000
+C     GAMTOT            AVERAGE TOTAL WIDTHS WORKING ARRAY              16428000
+C     GAMFIS            AVERAGE FISSION WIDTHS WORKING ARRAY            16429000
+C     GAMCMP            AVERAGE COMPETITIVE WIDTHS WORKING ARRAY        16430000
+C     ZETA              RATIO OF TOTAL WIDTHS TO DOPPLER WIDTHS         16431000
+C                       WORKING ARRAY                                   16432000
+C     PSIZRO            PSI(THETA,0) WORKING ARRAY                      16433000
+C     BETPSI            BETA+PSIZRO WORKING ARRAY                       16434000
+C     BBETA             WORKING ARRAY FOR BETA AND WEIGHT.  BETA IS THE 16435000
+C                       RATIO OF SIGMA POTENTIAL TO SIGMA ZERO.         16436000
+C                       WEIGHT IS THE PRODUCT OF TWO OF THE W VALUES    16437000
+C                       WHERE W ARE THE PORTER-THOMAS INTEGRATION       16438000
+C                       WEIGHTS.  THE WEIGHTS ARE STORED OFFSET BY      16439000
+C                       2*NPORTR*NPORTR BEYOND THE BETAS                16440000
+C     E1                WORKING ARRAY                                   16441000
+C     E2                WORKING ARRAY                                   16442000
+C     AMATRX            WORKING ARRAY USED DURING MATRIX INVERSION      16443000
+C     BVCTR             VECTOR B IN A*P=B                               16444000
+C     AVGGM             WORKING ARRAY FOR SECOND TERM OF FIRST          16445000
+C                       ORDER OVERLAP TERM                              16446000
+C     AVGFS             WORKING ARRAY FOR SECOND TERM OF FIRST          16447000
+C                       ORDER OVERLAP TERM                              16448000
+C     AVGTO             WORKING ARRAY FOR SECOND TERM FO FIRST          16449000
+C                       ORDER OVERLAP TERM                              16450000
+C     AVGCS             WORKING ARRAY FOR SECOND TERM OF FIRST          16451000
+C                       ORDER OVERLAP TERM                              16452000
+C     NDIM              ONE HALF OF THE ORDER OF THE GAUSS-HERMITE      16453000
+C                       INTEGRATION, NHERM/2                            16454000
+C     D11               WORKING ARRAY FOR THE LEFT PARTITION OF         16455000
+C                       THE INVERSE OF MATRIX A IN A*P=B                16456000
+C     D12               WORKING ARRAY FOR THE RIGHT PARTITION OF        16457000
+C                       THE INVERSE OF MATRIX A IN A*P=B                16458000
+C     A11               WORKING ARRAY FOR THE LEFT PARTITION OF         16459000
+C                       THE MATRIX A IN A*P=B                           16460000
+C     A12               WORKING ARRAY FOR THE RIGHT PARTITION OF        16461000
+C                       THE MATRIX A IN A*P=B                           16462000
+C     PVCTR             VECTOR P IN A*P=B                               16463000
+C     RVCTR             R VECTOR IN A*R=V                               16464000
+C     AVGGM2            WORKING ARRAY FOR THE SECOND TERM OF THE SECOND 16465000
+C                       ORDER OVERLAP TERM                              16466000
+C     AVGFS2            WORKING ARRAY FOR THE SECOND TERM OF THE SECOND 16467000
+C                       ORDER OVERLAP TERM                              16468000
+C     AVGTO2            WORKING ARRAY FOR THE SECOND TERM OF THE SECOND 16469000
+C                       ORDER OVERLAP TERM                              16470000
+C     AVGCS2            WORKING ARRAY FOR THE SECOND TERM OF THE SECOND 16471000
+C                       ORDER OVERLAP TERM                              16472000
+C     AVGR2             WORKING ARRAY FOR THE SECOND TERM OF THE SECOND 16473000
+C                       ORDER OVERLAP TERM                              16474000
+C     ANORM             WORKING ARRAY FOR THE DIAGONAL ELEMENTS OF      16475000
+C     VECTOR            WORKING ARRAY                                   16476000
+C     NPTI              NUMBER OF ENERGY POINTS E STAR AT WHICH         16477000
+C                       UNRESOLVED RESONANCE INTEGRALS WILL BE          16478000
+C                       CALCULATED FOR THE CURRENT ISOTOPE              16479000
+C     ES                ENERGY POINTS E STAR AT WHICH RESONANCE         16480000
+C                       INTEGRALS WILL BE EVALUATED FOR CURRENT ISOTOPE 16481000
+C     DELTA             DOPPLER LINE WIDTHS                             16482000
+C     JST               NUMBER OF CHANNEL SPIN STATES ASSOCIATED WITH   16483000
+C                       A PARTICULAR ANGULAR MOMENTUM STATE L           16484000
+C     GA                AVERAGE RADIATION WIDTHS, EV                    16485000
+C     D                 AVERAGE LEVEL SPACINGS, EV                      16486000
+C     GF                AVERAGE FISSION WIDTHS, EV                      16487000
+C     GNO               AVERAGE REDUCED NEUTRON WIDTHS, EV              16488000
+C     GX                AVERAGE COMPETITIVE WIDTHS, EV                  16489000
+C     G                 STATISTICAL FACTOR (2J+1)/(2*(2I+1)) WHERE      16490000
+C                       J IS THE CHANNEL SPIN AND I IS THE SPIN OF THE  16491000
+C                       TARGET NUCLEUS                                  16492000
+C     NDFF              NUMBER OF DEGREES OF FREEDOM IN THE FISSION     16493000
+C                       WIDTH DISTRIBUTION (1,2,3, OR 4)                16494000
+C     NDFN              NUMBER OF DEGREES OF FREEDOM IN THE NEUTRON     16495000
+C                       WIDTH DISTRIBUTION (1 OR 2)                     16496000
+C     NDFX              NUMBER OF DEGREES OF FREEDOM IN THE COMPETITIVE 16497000
+C                       WIDTH DISTRIBUTION (0,1,2,3, OR 4)              16498000
+C     PSHFT0            L=0 PHASE SHIFTS                                16499000
+C     PSHFT1            L=1 PHASE SHIFTS                                16500000
+C     PSHFT2            L=2 PHASE SHIFTS                                16501000
+C     V1                L=1 PENETRATION FACTORS                         16502000
+C     V2                L=2 PENETRATION FACTORS                         16503000
+C                                                                       16504000
+C      SIGPOT      SCATT POTENZIALE DI RISONANZA (INSERTED BY GALLI)    16505000
+C                                                                       16506000
+C     SUBPROGRAMS CALLED BY SUBROUTINE UNRINT                           16507000
+C                                                                       16508000
+C     QUICKW            PROGRAM SUBROUTINE TO OBTAIN THE REAL AND       16509000
+C                       IMAGINARY PARTS OF THE W FUNCTION. QUICKW IS    16510000
+C                       AN ENTRY POINT OF SUBROUTINE QUICK1             16511000
+C     SQRT              FORTRAN SQUARE ROOT FUNCTION (SINGLE PRECISION) 16512000
+C     QUICKJ            CALCULATES THE RESONANCE INTEGRALS INCLUDING    16513000
+C                       INTERFERENCE SCATTERING                         16514000
+C     ABS               FORTRAN ABSOLUTE VALUE FUNCTION                 16515000
+C                       (SINGLE PRECISION)                              16516000
+C     EXP               FORTRAN EXPONENTIAL FUNCTION (SINGLE            16517000
+C                       PRECISION)                                      16518000
+C     WZERO             CALCULATES THE REAL PART OF W(0,ARG)            16519000
+C     ALOG              FORTRAN LOGARITM FUNCTION (SINGLE PRECISION)    16520000
+C     COS               FORTRAN COSINE FUNCTION (SINGLE PRECISION)      16521000
+C     TAN               FORTRAN TANGENT FUNCTION (SINGLE PRECISION)     16522000
+C     MATRI1            INVERTS A SQUARE MATRIX                         16523000
+C                                                                       16524000
+C                                                                       16525000
+      DIMENSION X(40),XGH(10),WGH(10),E3(5),W(40)                       16526000
+C                                                                       16527000
+      COMMON /DRCUNR/ TEMPM,ABUNDI,AM,CMCOR,LSTI,JSTI,IFIS,             16528000
+     1                NPORTR,NHERM,NHERM2,NOVRLP,MAT,NPTI,RPENTR,       16529000
+     2                RPSHFT,NGUS13,NGUS9,WATE13,WATE9,SIGP11           16530000
+      COMMON/INTEGL/ BETA,THETA,A,FJ,PSIZ,H,TEST1,FJN,FJ2N,TERM2,FJT    16531000
+C     COMMON/RATION/ARG,PSIEZ                                           16532000
+C     COMMON /UNRDAT/ SIGCAP(150),SIGFIS(150),SIGTOT(150),ETA(5),       16533000
+C    1                AVGGM(5),AVGGM2(5),AVGTO(5),AVGTO2(5),AVGR2(5),   16534000
+C    2                VECTOR(5),AVGFS(5),AVGFS2(5),E1(10),E2(10),       16535000
+C    3                ANORM(10),A11(5,5),A12(5,5),D11(5,5),D12(5,5),    16536000
+C    4                AMATRX(5,5),ZETA(1000),PSIZRO(1000),BETPSI(1000), 16537000
+C    5                BBETA(4000),BVCTR(5,1000),PVCTR(5,1000),          16538000
+C    6                RVCTR(5,1000),GAMTOT(2000),GAMFIS(2000),          16539000
+C    7                PSHFT0(150),PSHFT1(150),                          16540000
+C    7                PSHFT2(150),V1(150),V2(150),ES(150),              16541000
+C    8                JST(3),G(12),NDFN(12),NDFF(12),GF(150,12),        16542000
+C    9                D(150,12),GA(150,12),GNO(150,12),DELTA(150),      16543000
+C    A                GAMCMP(2000),SIGCMP(150),AVGCS(5),AVGCS2(5),      16544000
+C    B                NDFX(12),GX(150,12)                               16545000
+      COMMON /UNRDAT/ ETA(5),                                           16546000
+     1                AVGGM(5),AVGGM2(5),AVGTO(5),AVGTO2(5),AVGR2(5),   16547000
+     2                VECTOR(5),AVGFS(5),AVGFS2(5),E1(10),E2(10),       16548000
+     3                ANORM(10),A11(5,5),A12(5,5),D11(5,5),D12(5,5),    16549000
+     4                AMATRX(5,5),                                      16550000
+     8                JST(3),G(12),NDFN(12),NDFF(12),                   16551000
+     A                AVGCS(5),AVGCS2(5),                               16552000
+     B                NDFX(12)                                          16553000
+      DIMENSION SIGCAP(N150),SIGFIS(N150),SIGTOT(N150),ZETA(1000),      16554000
+     1          PSIZRO(1000),BETPSI(1000),BBETA(4000),BVCTR(5,1000),    16555000
+     2          PVCTR(5,1000),RVCTR(5,1000),GAMTOT(2000),GAMFIS(2000),  16556000
+     3          PSHFT0(N150),PSHFT1(N150),PSHFT2(N150),V1(N150),        16557000
+     4          V2(N150),ES(N150),GF(N150,12),D(N150,12),GA(N150,12),   16558000
+     5          GNO(N150,12),DELTA(N150),GAMCMP(2000),SIGCMP(N150),     16559000
+     6          GX(N150,12)                                             16560000
+C                                                                       16561000
+       DIMENSION SIGPOT(N150)                                           16562000
+       DIMENSION TI(N41,N27),TR(N41,N27),TRS(N41,N27),TIS(N41,N27)      16563000
+C                                                                       16564000
+C     CONSTANTS FOR PORTER-THOMAS INTEGRATION. X(1)-X(10) ARE FOR 1     16565000
+C     DEGREE OF FREEDOM, X(11)-X(20) ARE FOR 2 DEGREES OF FREEDOM, ETC. 16566000
+      DATA X/ 3.0013465E-03,7.8592886E-02,4.3282415E-01,1.3345267E+00,  16567000
+     1        3.0481846E+00,5.8263198E+00,9.9452656E+00,1.5782128E+01,  16568000
+     2        2.3996824E+01,3.6216208E+01,                              16569000
+     3        1.3219203E-02,7.2349624E-02,1.9089473E-01,3.9528842E-01,  16570000
+     4        7.4083443E-01,1.3498293E+00,2.5297983E+00,5.2384894E+00,  16571000
+     5        1.3821772E+01,7.5647525E+01,                              16572000
+     6        1.0004488E-03,2.6197629E-02,1.4427472E-01,4.4484223E-01,  16573000
+     7        1.0160615E+00,1.9421066E+00,3.3150885E+00,5.2607092E+00,  16574000
+     8        7.9989414E+00,1.2072069E+01,                              16575000
+     9        1.3219203E-02,7.2349624E-02,1.9089473E-01,3.9528842E-01,  16576000
+     A        7.4083443E-01,1.3498293E+00,2.5297983E+00,5.2384894E+00,  16577000
+     B        1.3821772E+01,7.5647525E+01/                              16578000
+C                                                                       16579000
+C     CORRESPONDING WEIGHTS FOR THE PORTER-THOMAS INTEGRATION           16580000
+C                                                                       16581000
+      DATA W/ 1.1120413E-01,2.3546798E-01,2.8440987E-01,2.2419127E-01,  16582000
+     1        1.0967668E-01,3.0493789E-02,4.2930874E-03,2.5827047E-04,  16583000
+     2        4.9031965E-06,1.4079206E-08,                              16584000
+     3        3.3773418E-02,7.9932171E-02,1.2835937E-01,1.7652616E-01,  16585000
+     4        2.1347043E-01,2.1154965E-01,1.3365186E-01,2.2630659E-02,  16586000
+     5        1.6313638E-05,0.0,                                        16587000
+     6        3.3376214E-04,1.8506108E-02,1.2309946E-01,2.9918923E-01,  16588000
+     7        3.3431475E-01,1.7766657E-01,4.2695894E-02,4.0760575E-03,  16589000
+     8        1.1766115E-04,5.0989546E-07,                              16590000
+     9        1.7623788E-03,2.1517749E-02,8.0979849E-02,1.8797998E-01,  16591000
+     A        3.0156335E-01,2.9616091E-01,1.0775649E-01,2.5171914E-03,  16592000
+     B        8.9630388E-10,0.0/                                        16593000
+C                                                                       16594000
+C     ABSCISSA FOR 10 POINT GAUSS-HERMITE INTEGRATION                   16595000
+C                                                                       16596000
+      DATA XGH/3.436159119,2.532731674,1.756683649,1.036610830,         16597000
+     1         0.3429013272,-3.436159119,-2.532731674,-1.756683649,     16598000
+     2         -1.036610830,-0.3429013272/                              16599000
+C                                                                       16600000
+C     WEIGHTS FOR 10 POINT GAUSS-HERMITE INTEGRATION                    16601000
+C                                                                       16602000
+      DATA WGH/0.7640432855E-5,0.1343645747E-2,0.3387439446E-1,         16603000
+     1         0.2401386111,0.6108626337,0.7640432855E-5,               16604000
+     2         0.1343645747E-2,0.3387439446E-1,0.2401386111,            16605000
+     3         0.6108626337/                                            16606000
+C                                                                       16607000
+C     E3=EXP(XGH*XGH)                                                   16608000
+C                                                                       16609000
+      DATA E3/0.1342138216E06,0.6107756657E03,0.2188797595E02,          16610000
+     1        0.2928709882E01,0.1124773093E01/                          16611000
+C                                                                       16612000
+C                                                                       16613000
+C     0.636619772 IS 2/PI                                               16614000
+C     1.591549431 IS 1/(2*PI)                                           16615000
+C     0.101321184 IS 1/(PI*PI)                                          16616000
+C     1.253314137 IS SQRT OF (PI/2)                                     16617000
+C     0.353553391 IS 1/(2*SQRT(2))                                      16618000
+C     0.707106781 IS 1/(SQRT(2))                                        16619000
+C     0.626657069 IS SQRT(PI)/(2*SQRT(2))                               16620000
+C     0.797884561 IS SQRT(2/PI)                                         16621000
+C     0.318309886 IS 1/PI                                               16622000
+C     0.392699082 IS PI/8                                               16623000
+C     1.570796327 IS PI/2                                               16624000
+C     0.7853981633 IS PI/4                                              16625000
+C     0.8862269254 IS SQRT(PI)/2                                        16626000
+C                                                                       16627000
+C                                                                       16628000
+C     ELIMINATE ANY 0 FROM THE NDFF AND NDFN ARRAYS                     16629000
+C     ALLOW A MAXIMUM OF 4 DEGREES OF FREEDOM FOR COMPETITIVE WIDTH     16630000
+C                                                                       16631000
+      DO 350 I=1,JSTI                                                   16632000
+      IF(NDFF(I).EQ.0) NDFF(I)=1                                        16633000
+      IF(NDFN(I).EQ.0) NDFN(I)=1                                        16634000
+      IF (NDFX(I).GT.4) NDFX(I)=4                                       16635000
+  350 CONTINUE                                                          16636000
+C                                                                       16637000
+C     INTFIS IS SET EQUAL TO 1 FOR NON-FISSILE MATERIALS AND            16638000
+C     SET TO NPORTR FOR FISSILE MATERIALS. INTFIS IS A LOOP INDEX       16639000
+C     LIMIT FOR THE PORTER THOMAS INTEGRATION OF THE FISSION WIDTHS     16640000
+C                                                                       16641000
+      INTFIS=1                                                          16642000
+      IF (IFIS.NE.0) INTFIS=NPORTR                                      16643000
+C                                                                       16644000
+C     OFFSET IN ARRAYS GAMTOT, GAMFIS, AND BBETA FOR USE IN THE         16645000
+C     ASYMPTOTIC TERMS OF THE GAUSS-HERMITE INTEGRATION                 16646000
+C                                                                       16647000
+      JOG1=NPORTR*NPORTR                                                16648000
+      IF(IFIS.EQ.1) JOG1=JOG1*NPORTR                                    16649000
+C                                                                       16650000
+C     OFFSET IN ARRAY BBETA FOR THE WEIGHTS WHICH ARE THE PRODUCT OF    16651000
+C     TWO OF THE W VALUES                                               16652000
+C                                                                       16653000
+      JOG2=2*JOG1                                                       16654000
+      SQTTEM=SQRT(TEMPM)                                                16655000
+C                                                                       16656000
+C     INITIALIZE SIGCAP, SIGFIS, SIGTOT, SIGCMP                         16657000
+C                                                                       16658000
+      DO 140 N=1,NPTI                                                   16659000
+C                                                                       16660000
+      SIGCMP(N)=0.                                                      16661000
+      SIGCAP(N)=0.                                                      16662000
+      SIGTOT(N)=0.                                                      16663000
+      SIGFIS(N)=0.                                                      16664000
+  140 CONTINUE                                                          16665000
+C                                                                       16666000
+C                                                                       16667000
+C     LOOP OVER ENERGY POINTS E STAR                                    16668000
+C                                                                       16669000
+      DO 100 NN=1,NPTI                                                  16670000
+      DEL=DELTA(NN)*SQTTEM                                              16671000
+C                                                                       16672000
+C     RECIPROCAL OF DELTA, THE DOPPLER LINE WIDTH                       16673000
+C                                                                       16674000
+      DELTIN=1.0/DEL                                                    16675000
+      SRE=SQRT(ES(NN))                                                  16676000
+      JOG=0                                                             16677000
+C                                                                       16678000
+       SIGP  = SIGP11+SIGPOT(NN)                                        16679000
+C                                                                       16680000
+C     LOOP OVER L STATES                                                16681000
+C                                                                       16682000
+      DO 130 LL=1,LSTI                                                  16683000
+C                                                                       16684000
+C     SET PENETRATION FACTORS AND PHASE ANGLES                          16685000
+C                                                                       16686000
+      IF(LL.NE.1) GO TO 192                                             16687000
+      V=1.0                                                             16688000
+      ANGLE=PSHFT0(NN)                                                  16689000
+      GO TO 190                                                         16690000
+  192 CONTINUE                                                          16691000
+      IF(LL.NE.2) GO TO 194                                             16692000
+      V=V1(NN)                                                          16693000
+      ANGLE=PSHFT1(NN)                                                  16694000
+      GO TO 190                                                         16695000
+  194 CONTINUE                                                          16696000
+      V=V2(NN)                                                          16697000
+      ANGLE=PSHFT2(NN)                                                  16698000
+  190 CONTINUE                                                          16699000
+C                                                                       16700000
+C     INTERFERENCE FACTOR A                                             16701000
+C                                                                       16702000
+      ANGLE2=2.0*ANGLE                                                  16703000
+      A=0.5*TAN(ANGLE2)                                                 16704000
+      FACTOR=COS(ANGLE2)                                                16705000
+      JS=JST(LL)                                                        16706000
+      IF(LL.GT.1) JOG=JOG+JST(LL-1)                                     16707000
+C                                                                       16708000
+C     LOOP OVER J STATES                                                16709000
+C                                                                       16710000
+      DO 130 JJ=1,JS                                                    16711000
+      BARJ=0.                                                           16712000
+      TBARJ=0.                                                          16713000
+      FBARJ=0.                                                          16714000
+      BARJN=0.                                                          16715000
+      TBARJN=0.                                                         16716000
+      FBARJN=0.                                                         16717000
+      CBARJ=0.                                                          16718000
+      CBARJN=0.                                                         16719000
+      FC=0.                                                             16720000
+      FC2=0.                                                            16721000
+      FG=0.                                                             16722000
+      FG2=0.                                                            16723000
+      FF=0.                                                             16724000
+      FF2=0.                                                            16725000
+      FT=0.                                                             16726000
+      FT2=0.                                                            16727000
+      OVG=0.                                                            16728000
+      OVF=0.                                                            16729000
+      OVT=0.                                                            16730000
+      OVC=0.                                                            16731000
+      OVERLC=0.                                                         16732000
+      OVERLG=0.                                                         16733000
+      OVERLF=0.                                                         16734000
+      OVERLT=0.                                                         16735000
+      INS=0                                                             16736000
+      IAS=0                                                             16737000
+      AVGAM=0.                                                          16738000
+      AVIND=0.                                                          16739000
+      AVINDF=0.                                                         16740000
+      AVINDT=0.                                                         16741000
+      AVINDC=0.                                                         16742000
+      SEC=0.                                                            16743000
+      TBARJ2=0.                                                         16744000
+      SEG=0.                                                            16745000
+      SEF=0.                                                            16746000
+      SET=0.                                                            16747000
+      JL=JJ+JOG                                                         16748000
+      NDNOFF=NPORTR*(NDFN(JL)-1)                                        16749000
+      NDFOFF=NPORTR*(NDFF(JL)-1)                                        16750000
+      NDXOFF=NPORTR*(NDFX(JL)-1)                                        16751000
+C                                                                       16752000
+C     CHECK TO DETERMINE WHETHER THERE IS A COMPETITIVE WIDTH           16753000
+C                                                                       16754000
+      INTCMP=1                                                          16755000
+      GXX=GX(NN,JL)                                                     16756000
+      IF (GXX.GT.0.0.AND.NDXOFF.GE.0) INTCMP=NPORTR                     16757000
+      AMU=NDFN(JL)                                                      16758000
+      AVD=D(NN,JL)                                                      16759000
+      AVD1=1.0/AVD                                                      16760000
+      GAMCAP=GA(NN,JL)                                                  16761000
+C                                                                       16762000
+C     PORTER-THOMAS AVERAGING FOR THE LEAD TERM OF THE RESONANCE        16763000
+C     INTEGRALS AND THE LEAD TERMS OF THE FIRST AND SECOND ORDER PARTS  16764000
+C     OF THE OVERLAP INTEGRALS                                          16765000
+C                                                                       16766000
+C     PORTER-THOMAS INTEGRATION FOR THE COMPETITIVE WIDTH               16767000
+C                                                                       16768000
+      DO 200 L=1,INTCMP                                                 16769000
+      WGTX=1.0                                                          16770000
+      IF (INTCMP.EQ.1) GO TO 500                                        16771000
+      INDEXC=L+NDXOFF                                                   16772000
+      WGTX=W(INDEXC)                                                    16773000
+      GXX=GX(NN,JL)*X(INDEXC)                                           16774000
+  500 CONTINUE                                                          16775000
+C                                                                       16776000
+C     PORTER-THOMAS INTEGRATION FOR THE NEUTRON WIDTH                   16777000
+C                                                                       16778000
+      DO 200 J=1,NPORTR                                                 16779000
+      INDEXN=J+NDNOFF                                                   16780000
+      GN=GNO(NN,JL)*SRE*V*AMU*X(INDEXN)                                 16781000
+      WEIGHT=WGTX*W(INDEXN)                                             16782000
+C                                                                       16783000
+C     PORTER-THOMAS INTEGRATION FOR FISSION WIDTH                       16784000
+C                                                                       16785000
+      DO 200 K=1,INTFIS                                                 16786000
+      IF(IFIS.EQ.0) GO TO 210                                           16787000
+      INDEXF=K+NDFOFF                                                   16788000
+      WEIGHT=WGTX*W(INDEXN)*W(INDEXF)                                   16789000
+      GFF=GF(NN,JL)*X(INDEXF)                                           16790000
+      GAM=GN+GFF+GAMCAP+GXX                                             16791000
+      THETA=GAM*DELTIN                                                  16792000
+      WHY=0.5*THETA                                                     16793000
+      SIG0=ABUNDI*2.6039953E06*G(JL)*GN*CMCOR/(ES(NN)*GAM)              16794000
+      BETA=SIGP/(SIG0*FACTOR)                                           16795000
+      BETA1=1.0/BETA                                                    16796000
+      BETA1P=BETA1*1.570796327                                          16797000
+C*****CALL QUICKJ*******************************************************16798000
+      CALL QUICKJ(N41,N27,TR,TI,TRS,TIS)                                16799000
+C                                                                       16800000
+C     THE RESONANCE INTEGRAL IS RETURNED IN FJ IN COMMON/INTEGL/        16801000
+C     THE RESONANCE INTEGRAL WITHOUT INTERFERENCE SCATTERING IS         16802000
+C     RETURNED IN FJN IN COMMON/INTEGL/                                 16803000
+C                                                                       16804000
+C                                                                       16805000
+      GO TO 220                                                         16806000
+C                                                                       16807000
+C     THE MATERIAL IS NOT FISSILE                                       16808000
+C                                                                       16809000
+  210 CONTINUE                                                          16810000
+      GAM=GN+GAMCAP+GXX                                                 16811000
+      THETA=GAM*DELTIN                                                  16812000
+      WHY=0.5*THETA                                                     16813000
+      SIG0=ABUNDI*2.6039953E06*G(JL)*GN*CMCOR/(ES(NN)*GAM)              16814000
+      BETA=SIGP/(SIG0*FACTOR)                                           16815000
+      BETA1=1.0/BETA                                                    16816000
+      BETA1P=BETA1*1.570796327                                          16817000
+C*****CALL QUICKJ*******************************************************16818000
+      CALL QUICKJ(N41,N27,TR,TI,TRS,TIS)                                16819000
+C                                                                       16820000
+C     THE RESONANCE INTEGRAL IS RETURNED IN FJ IN COMMON/INTEGL/        16821000
+C     THE RESONANCE INTEGRAL WITHOUT INTERFERENCE SCATTERING IS         16822000
+C     RETURNED IN FJN IN COMMON/INTEGL/.  THE INTEGRAL OF               16823000
+C     BETA*PSI/(BETA+PSI)**2 WITHOUT INTERFERENCE SCATTERING IS         16824000
+C     RETURNED IN FJ2N IN COMMON/INTEGL/. THE TOTAL RESONANCE INTEGRAL  16825000
+C     IS RETURNED IN FJT IN COMMON/INTEGL/                              16826000
+C                                                                       16827000
+  220 CONTINUE                                                          16828000
+      BARJ=BARJ+FJ*WEIGHT                                               16829000
+      BARJN=BARJN+FJN*WEIGHT                                            16830000
+      GW=GAM*WEIGHT                                                     16831000
+      TBARJ=TBARJ+FJT*GW                                                16832000
+      TBARJN=TBARJN+FJN*GW                                              16833000
+      IF(IFIS.EQ.0) GO TO 225                                           16834000
+      GFW=GFF*WEIGHT                                                    16835000
+      FBARJ=FBARJ+FJ*GFW                                                16836000
+      FBARJN=FBARJN+FJN*GFW                                             16837000
+  225 CONTINUE                                                          16838000
+      GXW=GXX*WEIGHT                                                    16839000
+      CBARJ=CBARJ+FJ*GXW                                                16840000
+      CBARJN=CBARJN+FJN*GXW                                             16841000
+C     EVALUATE 1/BETA TIMES THE INTEGRAL OF PSI**2/(BETA+PSI)           16842000
+C     ****** LE PRIME DUE RIGHE DENTRO IF ERANO FUORI. H NON E DEFINITO 16843004
+C     *** PER IF VERIFICATO, DAVA OVERFLOW ** GALLI - 16 - 7 - 87 ***** 16844004
+      IF(TEST1.LT.4.5) GO TO 235                                        16845000
+      TEMPID=BETA1P*PSIZ/H-TERM2                                        16846004
+      AVIND=AVIND+TEMPID*WEIGHT                                         16847004
+      AVINDT=AVINDT+GW *TEMPID                                          16848000
+      IF(IFIS.EQ.1) AVINDF=AVINDF+GFW*TEMPID                            16849000
+      AVINDC=AVINDC+GXW*TEMPID                                          16850000
+      GO TO 255                                                         16851000
+  235 CONTINUE                                                          16852000
+      BETAFJ=BETA1P-FJN                                                 16853000
+      AVIND=AVIND+BETAFJ*WEIGHT                                         16854000
+      AVINDT=AVINDT+GW *BETAFJ                                          16855000
+      IF(IFIS.EQ.1) AVINDF=AVINDF+GFW*BETAFJ                            16856000
+      AVINDC=AVINDC+GXW*BETAFJ                                          16857000
+  255 CONTINUE                                                          16858000
+C                                                                       16859000
+C     EVALUATE GAMMA TOTAL*BETA*PSI/(BETA+PSI)**2                       16860000
+C                                                                       16861000
+      TBARJ2=TBARJ2+FJ2N*GW                                             16862000
+C                                                                       16863000
+C     EVALUATE GAMMA TOTAL*SQRT((BETA+1)/BETA)                          16864000
+C                                                                       16865000
+      AVGAM=AVGAM+GW *SQRT((BETA+1.0)*BETA1)                            16866000
+C                                                                       16867000
+C     TEST1 IS USED TO CHECK FOR APPLICABILITY OF THE ASYMPTOTIC        16868000
+C     EXPRESSIONS FOR THE FOURIER TRANSFORM OF PSI/(PSI+BETA)           16869000
+C                                                                       16870000
+      IF(TEST1.GE.2.5) GO TO 230                                        16871000
+C                                                                       16872000
+C     SET UP FOR NON-ASYMPTOTIC TERMS OF THE GAUSS-HERMITE              16873000
+C     INTEGRATION. INS IS THE NUMBER OF PORTER THOMAS POINTS GOING      16874000
+C     TO THE NON-ASYMPTOTIC PART OF THE OVERLAP INTEGRAL                16875000
+C                                                                       16876000
+      INS=INS+1                                                         16877000
+         IF(INS.GT.2000) CALL ERR(8HUNRINT   ,230)                      16878000
+      BBETA(INS)=BETA                                                   16879000
+      GAMTOT(INS)=GAM                                                   16880000
+      INSOFF=INS+JOG2                                                   16881000
+         IF(INSOFF.GT.4000) CALL ERR(8HUNRINT    ,231)                  16882000
+      BBETA(INSOFF)=WEIGHT                                              16883000
+      IF(IFIS.EQ.1) GAMFIS(INS)=GFF                                     16884000
+      GAMCMP(INS)=GXX                                                   16885000
+      GO TO 200                                                         16886000
+C                                                                       16887000
+C     SET UP FOR ASYMPTOTIC TERMS OF THE GAUSS-HERMITE                  16888000
+C     INTEGRATION. IAS IS THE NUMBER OF PORTER THOMAS POINTS GOING      16889000
+C     TO THE ASYMPTOTIC PART OF THE OVERLAP INTEGRALS                   16890000
+C                                                                       16891000
+  230 CONTINUE                                                          16892000
+      IAS=IAS+1                                                         16893000
+               IF(IAS.GT.1000) CALL ERR(8HUNRINT   ,232)                16894000
+      ZETA(IAS)=THETA                                                   16895000
+C                                                                       16896000
+C     ASYMPTOTIC TERMS FOR GAM, GFF, AND BETA STORED OFFSET IN GAMTOT,  16897000
+C     GAMFIS, AND BBETA ARRAYS. JOG1 WAS SET AT THE BEGINNING OF THE    16898000
+C     SUBROUTINE                                                        16899000
+C                                                                       16900000
+      JJJ=IAS+JOG1                                                      16901000
+                IF(JJJ.GT.2000) CALL ERR(8HUNRINT        ,233)          16902000
+      GAMTOT(JJJ)=GAM                                                   16903000
+      IF(IFIS.EQ.1) GAMFIS(JJJ)=GFF                                     16904000
+      GAMCMP(JJJ)=GXX                                                   16905000
+      BBETA(JJJ)=BETA                                                   16906000
+      KKK=JJJ+JOG2                                                      16907000
+                 IF(KKK.GT.4000) CALL ERR(8HUNRINT    ,235)             16908000
+      BBETA(KKK)=WEIGHT                                                 16909000
+C                                                                       16910000
+C     PSIZ AND H ARE CALCULATED IN SUBROUTINE QUICKJ AND PASSED IN      16911000
+C     COMMON/INTEGL/ BUT ONLY FOR TEST1.GE.4.5                          16912000
+C                                                                       16913000
+      IF(TEST1.GE.4.5) GO TO 215                                        16914000
+      ARG=1.41421356237*WHY                                             16915000
+C*****CALL WZERO********************************************************16916000
+      CALL WZERO(ARG,PSIEZ)                                             16917000
+      PSIZ=0.8862269254*ARG*PSIEZ                                       16918000
+      H=PSIZ+BETA                                                       16919000
+  215 CONTINUE                                                          16920000
+      PSIZRO(IAS)=PSIZ                                                  16921000
+      BETPSI(IAS)=H                                                     16922000
+  200 CONTINUE                                                          16923000
+C                                                                       16924000
+C     AVERAGE OF GAMMAX*J/AVERAGE D FOR X EQUAL CAPTURE AND FISSION,    16925000
+C     GAMMA TOTAL*J/AVERAGE D, GAMMAX/(BETA*AVERAGE D),                 16926000
+C     GAMMA TOTAL/(BETA*AVERAGE D), AND (BETA/AVERAGE D)*               16927000
+C     PSI/(BETA+PSI)**2                                                 16928000
+C                                                                       16929000
+      BARJ=      BARJ*GAMCAP*AVD1                                       16930000
+      TBARJ=      TBARJ*AVD1                                            16931000
+      IF(IFIS.EQ.1) FBARJ=      FBARJ*AVD1                              16932000
+      CBARJ=CBARJ*AVD1                                                  16933000
+C                                                                       16934000
+C     TEST TO SEE IF THE OVERLAP INTEGRAL IS TO BE IGNORED. THIS IS     16935000
+C     USER DETERMINED. THE OVERLAP INTEGRAL CAN BE WRITTEN AS K1-K2     16936000
+C     WHERE K1= A LEAD TERM-L1 AND K2= A LEAD TERM-L2. L1 AND L2 REQUIRE16937000
+C     INTEGRATION OVER THE CORRELATION FUNCTION WHICH GIVES THE         16938000
+C     PROBABILITY OF A RESONANCE K BEING FOUND AT A SEPARATION EK-EJ    16939000
+C     FROM A RESONANCE J                                                16940000
+C                                                                       16941000
+C                                                                       16942000
+C     GO TO 240 IF THERE IS NO OVERLAP INTEGRAL. THIS IS USER SPECIFIED 16943000
+C                                                                       16944000
+      IF(NOVRLP.LE.0) GO TO 240                                         16945000
+C                                                                       16946000
+C     TEST WHETHER OVERLAP CAN BE IGNORED OWING TO AN EXCESSIVELY       16947000
+C     LARGE VALUE FOR BETA.  THIS WILL BE REFLECTED IN A SMALL VALUE    16948000
+C     FOR TBARJ2 WHICH IS INVERSELY PROPORTIONAL TO BETA                16949000
+C                                                                       16950000
+      IF(TBARJ2.LT.1.0E-10) GO TO 240                                   16951000
+      BARJN=      BARJN*GAMCAP*AVD1                                     16952000
+      TBARJN=      TBARJN*AVD1                                          16953000
+      AVIND=      AVIND*GAMCAP*AVD1                                     16954000
+      AVINDT=      AVINDT*AVD1                                          16955000
+      IF(IFIS.EQ.0) GO TO 245                                           16956000
+      FBARJN=      FBARJN*AVD1                                          16957000
+      AVINDF=      AVINDF*AVD1                                          16958000
+  245 CONTINUE                                                          16959000
+      CBARJN=CBARJN*AVD1                                                16960000
+      AVINDC=AVINDC*AVD1                                                16961000
+      TBARJ2=      TBARJ2*AVD1                                          16962000
+C                                                                       16963000
+C     COMBINE TERMS TO OBTAIN THE LEAD TERM OF K2, THE SECOND ORDER     16964000
+C     TERM OF THE OVERLAP INTEGRAL. THE LEAD TERM OF K1, THE FIRST      16965000
+C     ORDER TERM ONLY INVOLVES BARJN AND TBARJN                         16966000
+C                                                                       16967000
+      SEG=AVIND*TBARJ2                                                  16968000
+      SET=AVINDT*TBARJ2                                                 16969000
+      IF(IFIS.EQ.1) SEF=AVINDF*TBARJ2                                   16970000
+      SEC=AVINDC*TBARJ2                                                 16971000
+C                                                                       16972000
+C     ALPHA IS THE FACTOR TO CONVERT THE OVERLAP INTEGRAL TO THE        16973000
+C     GAUSS-HERMITE FORM                                                16974000
+C                                                                       16975000
+      ALPHA=SQRT(0.5*DEL*DEL+.1013212*AVD*AVD+AVGAM*AVGAM)              16976000
+      ALPHA1=1.0/ALPHA                                                  16977000
+      ALPHA2=ALPHA1*ALPHA1                                              16978000
+      DO 250 N=1,NHERM2                                                 16979000
+C                                                                       16980000
+C     INITIALIZE WORKING ARRAYS FOR USE IN CALCULATING L1 AND L2 THE    16981000
+C     SECOND TERMS OF THE FIRST AND SECOND ORDER TERMS OF THE OVERLAP   16982000
+C     INTEGRALS AND SET ETA, E1, AND E2                                 16983000
+C                                                                       16984000
+      AVGGM(N)=0.                                                       16985000
+      AVGGM2(N)=0.                                                      16986000
+      AVGCS(N)=0.                                                       16987000
+      AVGCS2(N)=0.                                                      16988000
+      AVGFS(N)=0.                                                       16989000
+      AVGFS2(N)=0.                                                      16990000
+      AVGTO(N)=0.                                                       16991000
+      AVGTO2(N)=0.                                                      16992000
+      AVGR2(N)=0.                                                       16993000
+      ETA(N)=XGH(N)*ALPHA1                                              16994000
+      ARG1=ETA(N)*ETA(N)                                                16995000
+      E1(N)=EXP((AVGAM*AVGAM+.1013212*AVD*AVD)*ARG1)                    16996000
+      N5=N+NHERM2                                                       16997000
+C                                                                       16998000
+C     INVOKE THE SYMMETRY PROPERTY OF E1                                16999000
+C                                                                       17000000
+      E1(N5)=E1(N)                                                      17001000
+      E2(N)=EXP(0.25*DEL*DEL*ARG1)                                      17002000
+C                                                                       17003000
+C     INVOKE THE SYMMETRY PROPERTY OF E2                                17004000
+C                                                                       17005000
+      E2(N5)=E2(N)                                                      17006000
+  250 CONTINUE                                                          17007000
+C                                                                       17008000
+C     GO TO 260 IF THERE ARE NO NON-ASYMPTOTIC CONTRIBUTIONS            17009000
+C                                                                       17010000
+      IF(INS.EQ.0) GO TO 260                                            17011000
+C                                                                       17012000
+C     OBTAIN THE FOURIER TRANSFORM OF THE J INTEGRAL AND RELATED        17013000
+C     QUANTITES FOR THE NON-ASYMPTOTIC CASES FOR USE IN THE EVALUATION  17014000
+C     OF THE TERMS L1 AND L2. THIS REQUIRES SOLUTION OF AN INTEGRAL     17015000
+C     EQUATION USING MATRIX INVERSION                                   17016000
+C                                                                       17017000
+      DO 270 NINS=1,INS                                                 17018000
+      BBB=BBETA(NINS)                                                   17019000
+      GMM=GAMTOT(NINS)                                                  17020000
+C                                                                       17021000
+C     SET UP THE ELEMENTS FOR MATRICES A11, A12, AND AMATRX AND THE     17022000
+C     ELEMENTS OF THE B VECTOR, AND NORMALIZE THE DIAGONAL ELEMENTS     17023000
+C     OF MATRIX A11 (AND AMATRX) TO UNITY                               17024000
+C                                                                       17025000
+      DO 280 I=1,NHERM2                                                 17026000
+      YY=XGH(I)                                                         17027000
+      ARG1=ETA(I)                                                       17028000
+      BVCTR(I,NINS)=1.253314137*EXP(-0.5*GMM*ARG1)                      17029000
+C                                                                       17030000
+C     DIAGONAL ELEMENT OF MATRIX A IN A*P=B                             17031000
+C                                                                       17032000
+      ANORM(I)=E2(I)*(BBB+0.25*GMM*WGH(I)*E3(I)*ALPHA1)                 17033000
+      VECTOR(I)=BVCTR(I,NINS)/ANORM(I)                                  17034000
+      DO 280 J=1,NHERM                                                  17035000
+      XX=XGH(J)                                                         17036000
+      FCTR=0.25*GMM*ALPHA1*WGH(J)*E1(J)*E2(J)*EXP(0.5*DEL*DEL*          17037000
+     1     XX*YY*ALPHA2-0.5*GMM*ABS(YY-XX)*ALPHA1)/ANORM(I)             17038000
+      IF(I.EQ.J) GO TO 290                                              17039000
+      IF(J.LE.NHERM2) GO TO 285                                         17040000
+      J5=J-NHERM2                                                       17041000
+      A12(I,J5)=FCTR                                                    17042000
+      GO TO 280                                                         17043000
+  285 CONTINUE                                                          17044000
+      A11(I,J)=FCTR                                                     17045000
+      GO TO 280                                                         17046000
+  290 CONTINUE                                                          17047000
+      A11(I,J)=1.0                                                      17048000
+  280 CONTINUE                                                          17049000
+C                                                                       17050000
+C     THE CODING THROUGH STATEMENT 340 ACCOMPLISHES THE INVERSION OF    17051000
+C     THE MATRIX A IN A*P=B                                             17052000
+C                                                                       17053000
+      DO 300 J=1,NHERM2                                                 17054000
+      DO 300 I=1,NHERM2                                                 17055000
+      AMATRX(I,J)=A11(I,J)                                              17056000
+  300 CONTINUE                                                          17057000
+C                                                                       17058000
+C     A11 AND AMATRX ARE NOW EACH THE UPPER LEFT PARTITION OF MATRIX A  17059000
+C     AND A12 IS THE UPPER RIGHT PARTITION OF MATRIX A IN A*P=B         17060000
+C                                                                       17061000
+C*****CALL MATRIX***(MATRI1 IN THIS VERSION OF THE ROUTINE )************17062000
+      CALL MATRI1(A11,NHERM2)                                           17063000
+C                                                                       17064000
+C     A11 IS NOW THE INVERSE OF THE UPPER LEFT PARTITION OF A11, 1/A11  17065000
+C                                                                       17066000
+      DO 310 J=1,NHERM2                                                 17067000
+      DO 310 K=1,NHERM2                                                 17068000
+C                                                                       17069000
+C     D11 WILL BE THE UPPER LEFT PARTITION OF THE INVERSE OF MATRIX A IN17070000
+C     A*P=B                                                             17071000
+C                                                                       17072000
+      D11(J,K)=0.                                                       17073000
+      DO 320 M1=1,NHERM2                                                17074000
+      IF(J.GT.1) GO TO 335                                              17075000
+C                                                                       17076000
+C     USE D12 AS A TEMPORARY WORKING ARRAY                              17077000
+C                                                                       17078000
+      D12(M1,K)=0.                                                      17079000
+      DO 330 N=1,NHERM2                                                 17080000
+      D12(M1,K)=D12(M1,K)+A11(M1,N)*A12(N,K)                            17081000
+  330 CONTINUE                                                          17082000
+C                                                                       17083000
+C     D12 IS NOW (1/A11)*A12                                            17084000
+C                                                                       17085000
+  335 CONTINUE                                                          17086000
+      D11(J,K)=D11(J,K)+A12(J,M1)*D12(M1,K)                             17087000
+  320 CONTINUE                                                          17088000
+C                                                                       17089000
+C     D11 IS NOW A12*(1/A11)*A12                                        17090000
+C                                                                       17091000
+      D11(J,K)=AMATRX(J,K)-D11(J,K)                                     17092000
+C                                                                       17093000
+C     D11 IS NOW A11-A12*(1/A11)*A12                                    17094000
+C                                                                       17095000
+  310 CONTINUE                                                          17096000
+C*****CALL MATRIX*******************************************************17097000
+      CALL MATRI1(D11,NHERM2)                                           17098000
+C                                                                       17099000
+C     D11 IS NOW THE LEFT PARTITION OF THE INVERSE OF MATRIX A IN A*P=B 17100000
+C                                                                       17101000
+      DO 360 K=1,NHERM2                                                 17102000
+      DO 360 J=1,NHERM2                                                 17103000
+      AMATRX(J,K)=-D12(J,K)                                             17104000
+  360 CONTINUE                                                          17105000
+C                                                                       17106000
+C     AMATRX IS NOW -(1/A11)*A12                                        17107000
+C                                                                       17108000
+      DO 340 K=1,NHERM2                                                 17109000
+      DO 340 J=1,NHERM2                                                 17110000
+C                                                                       17111000
+C     D12 WILL BE THE UPPER RIGHT PARTITION OF THE INVERSE OF MATRIX A  17112000
+C     IN A*P=B                                                          17113000
+C                                                                       17114000
+      D12(J,K)=0.                                                       17115000
+      DO 340 I=1,NHERM2                                                 17116000
+      D12(J,K)=D12(J,K)+AMATRX(J,I)*D11(I,K)                            17117000
+  340 CONTINUE                                                          17118000
+C                                                                       17119000
+C     D12 IS NOW THE UPPER RIGHT PARTITION OF THE INVERSE OF MATRIX A IN17120000
+C     A*P=B                                                             17121000
+C                                                                       17122000
+C                                                                       17123000
+C     THE INVERSION OF MATRIX A IN A*P=B IS NOW COMPLETE                17124000
+C                                                                       17125000
+C                                                                       17126000
+C     COMPUTE THE P VECTOR IN A*P=B USING P=D*B WHERE P IS THE          17127000
+C     FOURIER TRANSFORM OF THE J INTEGRAL FOR THE NON-ASYMPTOTIC CASES  17128000
+C                                                                       17129000
+      DO 370 I=1,NHERM2                                                 17130000
+      PVCTR(I,NINS)=0.                                                  17131000
+      DO 370 J=1,NHERM2                                                 17132000
+      PVCTR(I,NINS)=PVCTR(I,NINS)+VECTOR(J)*(D11(I,J)+D12(I,J))         17133000
+  370 CONTINUE                                                          17134000
+C                                                                       17135000
+C     COMPUTE THE R VECTOR IN A*R=V USING R=D*V WHERE R IS MINUS        17136000
+C     BETA TIMES THE BETA DERIVATIVE OF THE FOURIER TRANSFORM           17137000
+C     OF THE J INTEGRAL FOR THE NON-ASYMPTOTIC CASES.                   17138000
+C                                                                       17139000
+      DO 380 I=1,NHERM2                                                 17140000
+      RVCTR(I,NINS)=0.                                                  17141000
+      DO 380 J=1,NHERM2                                                 17142000
+      ANORM1=1.0/ANORM(J)                                               17143000
+      RVCTR(I,NINS)=RVCTR(I,NINS)+PVCTR(J,NINS)*E2(J)*ANORM1*           17144000
+     1              (D11(I,J)+D12(I,J))                                 17145000
+  380 CONTINUE                                                          17146000
+      DO 385 I=1,NHERM2                                                 17147000
+      RVCTR(I,NINS)=RVCTR(I,NINS)*BBB                                   17148000
+  385 CONTINUE                                                          17149000
+  270 CONTINUE                                                          17150000
+C                                                                       17151000
+C     PERFORM THE PORTER-THOMAS STATISTICAL AVERAGING FOR GAMMAX*P,     17152000
+C     GAMMAX*(FOURIER TRANSFORM OF PSI)/BETA, AND GAMMA TOTAL*R         17153000
+C     TO BE USED IN THE GAUSS-HERMITE INTEGRATION FOR THE EVALUATION    17154000
+C     OF L1 AND L2                                                      17155000
+C                                                                       17156000
+      DO 400 I=1,NHERM2                                                 17157000
+C                                                                       17158000
+C     AVGGM, AVGFS, AVGTO, AVGGM2, AVGFS2, AVGTO2, AND AVGR2 HAVE BEEN  17159000
+C     INITIALIZED EARLIER                                               17160000
+C                                                                       17161000
+      DO 400 NINS=1,INS                                                 17162000
+      INSOFF=NINS+JOG2                                                  17163000
+      WEIGHT=BBETA(INSOFF)                                              17164000
+      GW=WEIGHT*GAMTOT(NINS)                                            17165000
+      IF(IFIS.EQ.1) GFW=WEIGHT*GAMFIS(NINS)                             17166000
+      GXW=WEIGHT*GAMCMP(NINS)                                           17167000
+      AVGGM(I)=AVGGM(I)+PVCTR(I,NINS)*WEIGHT                            17168000
+      IF(IFIS.EQ.1) AVGFS(I)=AVGFS(I)+PVCTR(I,NINS)*GFW                 17169000
+      AVGCS(I)=AVGCS(I)+PVCTR(I,NINS)*GXW                               17170000
+      AVGTO(I)=AVGTO(I)+PVCTR(I,NINS)*GW                                17171000
+      AVGGM2(I)=AVGGM2(I)+(BVCTR(I,NINS)/BBETA(NINS))*WEIGHT            17172000
+      AVGTO2(I)=AVGTO2(I)+BVCTR(I,NINS)*GW          /BBETA(NINS)        17173000
+      IF(IFIS.EQ.1) AVGFS2(I)=AVGFS2(I)+BVCTR(I,NINS)*GFW         /     17174000
+     1              BBETA(NINS)                                         17175000
+      AVGCS2(I)=AVGCS2(I)+BVCTR(I,NINS)*GXW/BBETA(NINS)                 17176000
+      AVGR2(I)=AVGR2(I)+RVCTR(I,NINS)*GW                                17177000
+  400 CONTINUE                                                          17178000
+  260 CONTINUE                                                          17179000
+C                                                                       17180000
+C     COMPUTE THE FOURIER TRANSFORMS OF THE J INTEGRALS AND RELATED     17181000
+C     QUATITIES FOR THE ASYMPTOTIC CASES (IF ANY) FOR USE IN THE        17182000
+C     EVALUATION OF THE TERMS L1 AND L2                                 17183000
+C                                                                       17184000
+      DO 410 I=1,NHERM2                                                 17185000
+      AVGG=0.                                                           17186000
+      AVGG2=0.                                                          17187000
+      AVGF=0.                                                           17188000
+      AVGF2=0.                                                          17189000
+      AVGT=0.                                                           17190000
+      AVGT2=0.                                                          17191000
+      AVR=0.                                                            17192000
+      AVGC=0.                                                           17193000
+      AVGC2=0.                                                          17194000
+C                                                                       17195000
+C     GO TO 420 IF THERE ARE NO ASYMPTOTIC CONTRIBUTIONS                17196000
+C                                                                       17197000
+      IF(IAS.EQ.0) GO TO 420                                            17198000
+      ARG1=ETA(I)                                                       17199000
+      TEM=0.353553391*ARG1*DEL                                          17200000
+      ARG=TEM                                                           17201000
+C*****CALL WZERO********************************************************17202000
+      CALL WZERO(ARG,PSIEZ)                                             17203000
+      B1=EXP(ARG*ARG)-PSIEZ                                             17204000
+      Q=1.0                                                             17205000
+C                                                                       17206000
+C     PORTER-THOMAS STATISTICAL AVERAGING FOR GAMMAX*P,                 17207000
+C     GAMMAX*(FOURIER TRANSFORM OF PSI**2/(BETA*(BETA+PSI)), AND GAMMA  17208000
+C     TOTAL*R TO BE USED IN THE GAUSS-HERMITE INTEGRATION               17209000
+C                                                                       17210000
+      DO 430 NIAS=1,IAS                                                 17211000
+      TEST6=BETPSI(NIAS)/PSIZRO(NIAS)                                   17212000
+C                                                                       17213000
+C     OFFSET FOR GAMTOT, GAMFIS, AND BBETA ARRAYS                       17214000
+C                                                                       17215000
+      NNN=NIAS+JOG1                                                     17216000
+      NNNOFF=NNN+JOG2                                                   17217000
+      WEIGHT=BBETA(NNNOFF)                                              17218000
+      GW=WEIGHT*GAMTOT(NNN)                                             17219000
+      IF(IFIS.EQ.1) GFW=WEIGHT*GAMFIS(NNN)                              17220000
+      GXW=WEIGHT*GAMCMP(NNN)                                            17221000
+      IF(TEST6.GE.25.0) GO TO 460                                       17222000
+      ARG=TEM+0.707106781*ZETA(NIAS)                                    17223000
+C*****CALL WZERO********************************************************17224000
+      CALL WZERO(ARG,PSIEZ)                                             17225000
+      B2=PSIEZ                                                          17226000
+C                                                                       17227000
+C     Q3=(1+2*(RHO-U)/(BETA+RHO))*BETA/(BETA+RHO)...SEE FRA-TM-16, EQ.4617228000
+C                                                                       17229000
+      Q=1.0+(PSIZRO(NIAS)-0.626657069*ZETA(NIAS)*(B1+B2))/BETPSI(NIAS)  17230000
+  460 CONTINUE                                                          17231000
+      Q2=BETPSI(NIAS)/BBETA(NNN)-Q                                      17232000
+C                                                                       17233000
+C     Q=1+(RHO-U)/(BETA+RHO)...SEE FRA-TM-16, EQ.33                     17234000
+C                                                                       17235000
+      Q3=(Q-0.5)*2.0*BBETA(NNN)/BETPSI(NIAS)                            17236000
+      EE1=EXP(-0.5*GAMTOT(NNN)*ARG1)/BETPSI(NIAS)                       17237000
+      AVGG=AVGG+EE1*Q*WEIGHT                                            17238000
+      IF(IFIS.EQ.1) AVGF=AVGF+EE1*Q*GFW                                 17239000
+      AVGC=AVGC+EE1*Q*GXW                                               17240000
+      AVGT=AVGT+EE1*Q*GW                                                17241000
+      AVGG2=AVGG2+EE1*Q2*WEIGHT                                         17242000
+      IF(IFIS.EQ.1) AVGF2=AVGF2+EE1*Q2*GFW                              17243000
+      AVGC2=AVGC2+EE1*Q2*GXW                                            17244000
+      AVGT2=AVGT2+EE1*Q2*GW                                             17245000
+      AVR=AVR+EE1*Q3*GW                                                 17246000
+  430 CONTINUE                                                          17247000
+  420 CONTINUE                                                          17248000
+C                                                                       17249000
+C     COMBINE THE FOURIER TRANSFORMS OF THE J INTEGRALS, OF             17250000
+C     PSI**2/(BETA+PSI), AND OF R FOR THE ASYMPTOTIC AND NON-ASYMPTOTIC 17251000
+C     CASES                                                             17252000
+C                                                                       17253000
+      OVLG=(AVGG+0.797884561*AVGGM(I)*E2(I))*GAMCAP                     17254000
+      OVLF=0.                                                           17255000
+      IF(IFIS.EQ.1) OVLF=(AVGF+0.797884561*AVGFS(I)*E2(I))              17256000
+      OVLC=(AVGC+0.797884561*AVGCS(I)*E2(I))                            17257000
+      OVLT=(AVGT+0.797884561*AVGTO(I)*E2(I))                            17258000
+      OVLG2=(AVGG2+0.797884561*(AVGGM2(I)-AVGGM(I)*E2(I)))*GAMCAP       17259000
+      OVLF2=0.                                                          17260000
+      IF(IFIS.EQ.1) OVLF2=(AVGF2+0.797884561*(AVGFS2(I)-AVGFS(I)*E2(I)))17261000
+      OVLC2=(AVGC2+0.797884561*(AVGCS2(I)-AVGCS(I)*E2(I)))              17262000
+      OVLT2=(AVGT2+0.797884561*(AVGTO2(I)-AVGTO(I)*E2(I)))              17263000
+      OVLR=(AVR+0.797884561*AVGR2(I)*E2(I))                             17264000
+C                                                                       17265000
+C     ARGUMENT FOR THE DYSON FUNCTION                                   17266000
+C                                                                       17267000
+      QQ=0.318309886*AVD*ARG1                                           17268000
+      QQ2=0.5*QQ                                                        17269000
+      QQ1=1.0+QQ                                                        17270000
+      QQM1=QQ-1.0                                                       17271000
+      IF(QQ.GT.2.0) GO TO 440                                           17272000
+      DYSON=QQ2*ALOG(QQ1)-QQM1                                          17273000
+      GO TO 450                                                         17274000
+  440 CONTINUE                                                          17275000
+      DYSON=QQ2*ALOG(QQ1/QQM1)-1.0                                      17276000
+C                                                                       17277000
+C     GAUSS-HERMITE INTEGRATION OF THE SECOND TERM L1 OF THE FIRST ORDER17278000
+C     OVERLAP TERM                                                      17279000
+C                                                                       17280000
+  450 CONTINUE                                                          17281000
+      TEMP2=2.0*WGH(I)*OVLT*DYSON*E1(I)*AVD1                            17282000
+      FG=FG+OVLG*TEMP2                                                  17283000
+      IF(IFIS.EQ.1) FF=FF+OVLF*TEMP2                                    17284000
+      FC=FC+OVLC*TEMP2                                                  17285000
+      FT=FT+OVLT*TEMP2                                                  17286000
+C                                                                       17287000
+C     GAUSS-HERMITE INTEGRATION OF THE SECOND TERM L2 OF THE SECOND     17288000
+C     ORDER OVERLAP TERM                                                17289000
+C                                                                       17290000
+      TEMP22=2.0*WGH(I)*OVLR*DYSON*E1(I)*AVD1                           17291000
+      FG2=FG2+OVLG2*TEMP22                                              17292000
+      IF(IFIS.EQ.1) FF2=FF2+OVLF2*TEMP22                                17293000
+      FC2=FC2+OVLC2*TEMP22                                              17294000
+      FT2=FT2+OVLT2*TEMP22                                              17295000
+  410 CONTINUE                                                          17296000
+C                                                                       17297000
+C     COMBINE L1 AND L2                                                 17298000
+C                                                                       17299000
+      OVERLG=0.392699082*(FG-FG2)*ALPHA1                                17300000
+      IF(IFIS.EQ.1) OVERLF=0.392699082*(FF-FF2)*ALPHA1                  17301000
+      OVERLC=0.392699082*(FC-FC2)*ALPHA1                                17302000
+      OVERLT=0.392699082*(FT-FT2)*ALPHA1                                17303000
+C                                                                       17304000
+C     COMBINE THE FIRST AND SECOND TERMS OF THE FIRST AND SECOND        17305000
+C     ORDER TERMS TO OBTAIN THE COMPLETE OVERLAP INTEGRALS              17306000
+C                                                                       17307000
+      OVG=(BARJN*TBARJN-SEG-OVERLG)                                     17308000
+      IF(OVG.LT.0.) GO TO 470                                           17309000
+      IF(IFIS.EQ.1) OVF=(FBARJN*TBARJN-SEF-OVERLF)                      17310000
+      OVC=(CBARJN*TBARJN-SEC-OVERLC)                                    17311000
+      OVT=(TBARJN*TBARJN-SET-OVERLT)                                    17312000
+      GO TO 240                                                         17313000
+  470 CONTINUE                                                          17314000
+      OVG=0.                                                            17315000
+C                                                                       17316000
+C     TRANSFER TO STATEMENT 240 IF NOVRLP.NE.0. IN THIS CASE            17317000
+C     OVG, OVF, AND OVT ARE ALL ZERO                                    17318000
+C                                                                       17319000
+  240 CONTINUE                                                          17320000
+C                                                                       17321000
+C     FLUX CORRECTION FACTOR. THIS IS THE DENOMINATOR FOR THE           17322000
+C     CAPTURE AND FISSION CROSS SECTIONS                                17323000
+C                                                                       17324000
+      FLXCF=1.0-TBARJ+OVT                                               17325000
+      FLXCF1=1.0/FLXCF                                                  17326000
+      CNUM=(BARJ-OVG)/FACTOR                                            17327000
+      TNUM=(TBARJ-OVT)                                                  17328000
+      IF(IFIS.EQ.1) FNUM=(FBARJ-OVF)/FACTOR                             17329000
+      XNUM=(CBARJ-OVC)/FACTOR                                           17330000
+      SIGCAP(NN)=SIGCAP(NN)+CNUM*FLXCF1                                 17331000
+      SIGTOT(NN)=SIGTOT(NN)+TNUM*FLXCF1                                 17332000
+      IF(IFIS.EQ.1) SIGFIS(NN)=SIGFIS(NN)+FNUM*FLXCF1                   17333000
+      SIGCMP(NN)=SIGCMP(NN)+XNUM*FLXCF1                                 17334000
+  130 CONTINUE                                                          17335000
+      SIGCAP(NN)=SIGCAP(NN)*SIGP*ABUNDI                                 17336000
+      SIGTOT(NN)=SIGTOT(NN)*SIGP*ABUNDI                                 17337000
+      IF(IFIS.EQ.1) SIGFIS(NN)=SIGFIS(NN)*SIGP*ABUNDI                   17338000
+      SIGCMP(NN)=SIGCMP(NN)*SIGP*ABUNDI                                 17339000
+  100 CONTINUE                                                          17340000
+      RETURN                                                            17341000
+      END                                                               17342000
+      SUBROUTINE MATRI1(A,N)                                            17343000
+C                                                                       17344000
+C     SUBROUTINE MATRIX INVERTS THE SQUARE MATRIX A OF DIMENSION N.     17345000
+C     N IS LIMITED TO 99 BY THE DIMENSION OF VARIABLE INDEX.            17346000
+C     MATRIX IS BASED ON THE ANL LIBRARY ROUTINE MATINV ANL F402S.      17347000
+C     MODIFIED BY A. HINDS  3 JULY 1975.                                17348000
+C                                                                       17349000
+C     A                 ARRAY CONTAINING THE MATRIX TO BE INVERTED      17350000
+C                       AT INPUT, AND THE INVERSE MATRIX ON OUTPUT      17351000
+C     N                 DIMENSION OF MATRIX A                           17352000
+C                                                                       17353000
+C                                                                       17354000
+C     SUBPROGRAMS CALLED BY SUBROUTINE MATRIX                           17355000
+C                                                                       17356000
+C     ABS               FORTRAN ABSOLUTE VALUE FUNCTION                 17357000
+C                                                                       17358000
+      DIMENSION A(1),INDEX(99)                                          17359000
+C                                                                       17360000
+C     INITIALIZE ARRAY OF POINTERS TO COLUMNS NOT YET PIVOTED.          17361000
+C                                                                       17362000
+      NMAT = N*N                                                        17363000
+      DO 20 I=1,N                                                       17364000
+      INDEX (I) = I                                                     17365000
+   20 CONTINUE                                                          17366000
+C                                                                       17367000
+C     PERFORM SUCCESSIVE PIVOT OPERATIONS (GRAND LOOP)                  17368000
+C                                                                       17369000
+      M = N                                                             17370000
+      DO 550 I=1,N                                                      17371000
+C                                                                       17372000
+C                                                                       17373000
+      JI = 0                                                            17374000
+      JISAVE = 0                                                        17375000
+      AMAX = 0.0                                                        17376000
+      DO 105 KK = 1,M                                                   17377000
+      KX = (INDEX (KK) - 1) * N                                         17378000
+      JK = KX + INDEX (1)                                               17379000
+      DO 100 JJ = 1,M                                                   17380000
+      IF ( ABS (A (JK) ) .LE. AMAX) GO TO 100                           17381000
+      AMAX = ABS (A (JK))                                               17382000
+      JI = JK                                                           17383000
+  100 JK = KX + INDEX (JJ+1)                                            17384000
+      IF (JI .NE. JISAVE) II = KK                                       17385000
+      JISAVE = JI                                                       17386000
+  105 CONTINUE                                                          17387000
+C                                                                       17388000
+      ICOLUM = INDEX (II)                                               17389000
+      IROW = JI - (ICOLUM - 1) * N                                      17390000
+C                                                                       17391000
+      INDEX (II) = INDEX (M)                                            17392000
+C     PACK PIVOT ROW AND COLUMN INDICES FOR FINAL COLUMN EXCHANGE.      17393000
+      INDEX (M) = 4096 * IROW + ICOLUM                                  17394000
+      M = M - 1                                                         17395000
+C                                                                       17396000
+      AMAX = A (JI)                                                     17397000
+C                                                                       17398000
+C     RETURN IF MATRIX IS SINGULAR (ZERO PIVOT) AFTER COLUMN INTERCHANGE17399000
+C                                                                       17400000
+      IF ( AMAX .NE. 0.0) GO TO 110                                     17401000
+10100 CONTINUE                                                          17402000
+C***********************************************************************17403000
+C                                                                       17404000
+C     FATAL ERROR -10100. DETERMINANT IS SINGULAR.                      17405000
+C                                                                       17406000
+C***********************************************************************17407000
+  110 CONTINUE                                                          17408000
+C                                                                       17409000
+C     INTERCHANGE ROWS TO PUT PIVOT ELEMENT ON DIAGONAL                 17410000
+C                                                                       17411000
+      IF (IROW.EQ.ICOLUM) GO TO 260                                     17412000
+      JK = IROW                                                         17413000
+      DO 200 IK = ICOLUM,NMAT,N                                         17414000
+      SWAP = A (JK)                                                     17415000
+      A (JK) = A (IK)                                                   17416000
+      A (IK) = SWAP                                                     17417000
+      JK = JK + N                                                       17418000
+  200 CONTINUE                                                          17419000
+C                                                                       17420000
+C     DIVIDE PIVOT ROW BY PIVOT ELEMENT                                 17421000
+C                                                                       17422000
+  260 CONTINUE                                                          17423000
+      II = (ICOLUM - 1) * N + ICOLUM                                    17424000
+      A (II) = 1.0                                                      17425000
+      DO 350 IK = ICOLUM,NMAT,N                                         17426000
+      A (IK) = A (IK) / AMAX                                            17427000
+  350 CONTINUE                                                          17428000
+C                                                                       17429000
+C     REDUCE NON-PIVOT ROWS TWO AT A TIME.                              17430000
+C                                                                       17431000
+      JI = (ICOLUM - 1) * N + 1                                         17432000
+      NMAX = N - MOD (N,2)                                              17433000
+      DO 500 J = 1,NMAX,2                                               17434000
+      T = 0.0                                                           17435000
+      IF (J .EQ. ICOLUM) GO TO 430                                      17436000
+      T = - A (JI)                                                      17437000
+      A (JI) = 0.0                                                      17438000
+  430 CONTINUE                                                          17439000
+      T1 = 0.0                                                          17440000
+      IF ( (J+1) .EQ. ICOLUM) GO TO 440                                 17441000
+      T1 = - A (JI+1)                                                   17442000
+      A (JI+1) = 0.0                                                    17443000
+  440 CONTINUE                                                          17444000
+      JK = J                                                            17445000
+      DO 450 IK = ICOLUM,NMAT,N                                         17446000
+      A (JK) = A (JK) + A (IK) * T                                      17447000
+      A (JK + 1) = A (JK + 1) + A (IK) * T1                             17448000
+      JK = JK + N                                                       17449000
+  450 CONTINUE                                                          17450000
+      JI = JI + 2                                                       17451000
+  500 CONTINUE                                                          17452000
+C     IF AN ODD NUMBER OF ROWS REDUCE THE LAST ONE HERE.                17453000
+      IF ( MOD(N,2) .EQ. 0 .OR. N .EQ. ICOLUM) GO TO 530                17454000
+      NI = N * ICOLUM                                                   17455000
+      T = - A (NI)                                                      17456000
+      A (NI) = 0.0                                                      17457000
+      JK = N                                                            17458000
+      DO 510 IK = ICOLUM,NMAT,N                                         17459000
+      A (JK) = A (JK) + A (IK) * T                                      17460000
+      JK = JK + N                                                       17461000
+  510 CONTINUE                                                          17462000
+  530 CONTINUE                                                          17463000
+  550 CONTINUE                                                          17464000
+C                                                                       17465000
+C     INTERCHANGE COLUMNS AFTER ALL PIVOT OPERATIONS HAVE BEEN PERFORMED17466000
+C                                                                       17467000
+      DO 710 I=1,N                                                      17468000
+      K = INDEX (I) / 4096                                              17469000
+      ICOLUM = INDEX (I) - 4096 * K                                     17470000
+      IF(K.EQ.ICOLUM) GO TO 720                                         17471000
+      JK = (K - 1) * N + 1                                              17472000
+      JI = (ICOLUM - 1) * N + 1                                         17473000
+      DO 705 J=1,N                                                      17474000
+      SWAP = A (JK)                                                     17475000
+      A (JK) = A (JI)                                                   17476000
+      A (JI) = SWAP                                                     17477000
+      JI = JI + 1                                                       17478000
+      JK = JK + 1                                                       17479000
+  705 CONTINUE                                                          17480000
+  720 CONTINUE                                                          17481000
+  710 CONTINUE                                                          17482000
+C                                                                       17483000
+      RETURN                                                            17484000
+      END                                                               17485000
+      SUBROUTINE QUICKJ(N41,N27,TR,TI,TRS,TIS)                          17486000
+C     ************************************************************      17487000
+C                                                                       17488000
+C     SUBROUTINE QUICKJ CALCULATES THE ISOLATED J INTEGRAL INCLUDING    17489000
+C     INTERFERENCE SCATTERING FOR THE SINGLE LEVEL REPRESENTATION.      17490000
+C     QUICKJ ALSO CALCULATES THE J INTEGRAL EXCLUDING INTERFERENCE      17491000
+C     SCATTERING AND THE INTEGRAL OF BETA*PSI/(BETA+PSI)**2             17492000
+C                                                                       17493000
+C     SUBPROGRAMS CALLED BY SUBROUTINE QUICKJ                           17494000
+C                                                                       17495000
+C     QUICKW            PROGRAM SUBROUTINE TO OBTAIN THE REAL AND       17496000
+C                       IMAGINARY PARTS OF THE W FUNCTION. QUICKW IS    17497000
+C                       AN ENTRY POINT OF SUBROUTINE QUICK1             17498000
+C     ALOG              FORTRAN LOGARITHM FUNCTION (SINGLE PRECISION)   17499000
+C     SQRT              FORTRAN SQUARE ROOT FUNCTION (SINGLE PRECISION) 17500000
+C     WZERO             CALCULATES THE REAL PART OF W(0,ARG)            17501000
+C     EXP               FORTRAN EXPONENTIAL FUNCTION (SINGLE PRECISION) 17502000
+C                                                                       17503000
+      DIMENSION TR(N41,N27),TI(N41,N27),TRS(N41,N27),TIS(N41,N27)       17504000
+      DIMENSION ZLP(6),ALP(4),AN(6),BM(6),ZLP1(6),ALP1(4)               17505000
+      COMMON/INTEGL/ BETA,THETA,A,FJ,RHO,HH,TEST1,FJN,FJ2N,TERM2,FJT    17506000
+C     COMMON/REAIMW/AX,WHY,REW,AIMW                                     17507000
+C     COMMON/RATION/ ARG,PSIEZ                                          17508000
+      COMMON /DRCUNR/ TEMPM,ABUNDI,AM,CMCOR,LSTI,JSTI,IFIS,             17509000
+     1                NPORTR,NHERM,NHERM2,NOVRLP,MAT,NPT1,RPENTR,       17510000
+     2                RPSHFT,NGUS13,NGUS9,WATE13,WATE9                  17511000
+C                                                                       17512000
+C     ZLP=U/SQRT(1.0-U*U) WHERE U ARE THE 13 POINT GAUSS-JACOBI         17513000
+C     QUADRATURE ABSCISSAE                                              17514000
+C                                                                       17515000
+      DATA ZLP/8.235740955,2.636783295,1.448750112,0.8859226935,        17516000
+     1         0.5248404873,0.2464778630/                               17517000
+C                                                                       17518000
+C     ALP=V/SQRT(1.0-V*V) WHERE V ARE THE 9 POINT GAUSS-JACOBI          17519000
+C     QUADRATURE ABSCISSAE                                              17520000
+C                                                                       17521000
+      DATA ALP/5.671281817,1.732050807,0.8390996312,0.3639702342/       17522000
+C                                                                       17523000
+C                                                                       17524000
+C     ZLP1=1.0/(1.0-U*U) WHERE U ARE THE 13 POINT GAUSS-JACOBI          17525000
+C     QUADRATURE ABSCISSAE                                              17526000
+C                                                                       17527000
+      DATA ZLP1/68.82742908,7.952626149,3.098876889,1.784859018,        17528000
+     1          1.275457537,1.060751336/                                17529000
+C                                                                       17530000
+C     ALP1=1.0/(1.0-V*V) WHERE V ARE THE 9 POINT GAUSS-JACOBI           17531000
+C     QUADRATURE ABSCISSAE                                              17532000
+C                                                                       17533000
+      DATA ALP1/33.16343745,4.0,1.704088191,1.132474331/                17534000
+C                                                                       17535000
+C     CONSTANTS FOR SUM IN LARGE BETA APPROXIMATION TO THE RESONANCE    17536000
+C     INTEGRALS                                                         17537000
+C                                                                       17538000
+      DATA AN/ 0.1666666667,0.3333333333E-1,0.7142857142E-2,            17539000
+     1         0.1587301587E-2,0.3607503607E-3,0.832500832E-4/          17540000
+C                                                                       17541000
+      DATA BM/ 0.1666666667,0.5555555555E-1,0.1234567901E-1,            17542000
+     1         0.2057613168E-2,0.2743484224E-3,0.3048315805E-4/         17543000
+C                                                                       17544000
+C                                                                       17545000
+      TOTJ=0.                                                           17546000
+      TOTI=0.                                                           17547000
+      TOTM=0.                                                           17548000
+      TOTJ2=0.                                                          17549000
+      ZETA=THETA                                                        17550000
+      ASQ=A*A                                                           17551000
+      WHY=0.5*ZETA                                                      17552000
+C                                                                       17553000
+C     OBTAIN PSI(THETA,0)                                               17554000
+C                                                                       17555000
+      ARG=WHY                                                           17556000
+C*****CALL WZERO********************************************************17557000
+      CALL WZERO(ARG,PSIEZ)                                             17558000
+C                                                                       17559000
+C     1.77245380509 IS SQRT(PI)                                         17560000
+C                                                                       17561000
+      PSIZ=1.7724538509*WHY*PSIEZ                                       17562000
+      H=BETA+PSIZ                                                       17563000
+      TEST1=H/PSIZ                                                      17564000
+C                                                                       17565000
+C     LARGE BETA APPROXIMATION AT STATEMENT 100                         17566000
+C                                                                       17567000
+      IF(TEST1.GE.4.5)GO TO 100                                         17568000
+C                                                                       17569000
+C     ZERO POINT FOR GAUSS-JACOBI QUADRATURE                            17570000
+C                                                                       17571000
+      AINTZ=0.5/TEST1                                                   17572000
+C                                                                       17573000
+C     DETERMINE APPROPRIATE FACTOR C FOR GAUSS-JACOBI INTEGRATION       17574000
+C                                                                       17575000
+      IF(ZETA.GT.2.5) GO TO 110                                         17576000
+      IF(BETA.GE.0.018)GO TO 120                                        17577000
+      IF(ZETA.GE.0.5) GO TO 110                                         17578000
+      IF(TEST1.GE.1.2) GO TO 120                                        17579000
+      BB=4.*(1.8971+ALOG(1.+.7532929*ZETA/BETA))/(ZETA*ZETA)            17580000
+      TEST2=BB*BETA                                                     17581000
+      IF(TEST2.GT.0.03)GO TO 130                                        17582000
+  110 CONTINUE                                                          17583000
+      C=0.7071*SQRT((1.0+BETA)/BETA)                                    17584000
+      NGAUSS=NGUS9                                                      17585000
+      NGAUS2=(NGAUSS-1)/2                                               17586000
+      WEIGHT=WATE9                                                      17587000
+C                                                                       17588000
+C     GAUSS-JACOBI 9 POINT INTEGRATION FOR J AND I INTEGRALS            17589000
+C                                                                       17590000
+      DO 330 I=1,NGAUS2                                                 17591000
+      ALPI=ALP1(I)                                                      17592000
+      AX=WHY*ALP(I)*C                                                   17593000
+C*****CALL QUICKW*******************************************************17594000
+      CALL QUICKW(N41,N27,TR,TI,TRS,TIS,AX,WHY,REW,AIMW)                17595000
+C                                                                       17596000
+C     1.7724538509 IS SQRT(PI)                                          17597000
+C                                                                       17598000
+      PSI=1.7724538509*WHY*REW                                          17599000
+      AKI=1.7724538509*ZETA*AIMW                                        17600000
+      DEN=BETA+PSI                                                      17601000
+      RAT=PSI*ALPI/DEN                                                  17602000
+      RAT2=BETA*RAT/DEN                                                 17603000
+      AKISQ=AKI*AKI*ASQ                                                 17604000
+      TEMP=DEN*DEN-AKISQ                                                17605000
+      TOTJ=TOTJ+RAT                                                     17606000
+      TOTJ2=TOTJ2+RAT2                                                  17607000
+      IF(ASQ.EQ.0.) GO TO 330                                           17608000
+      TOTM=TOTM+ALPI*AKISQ/(A*TEMP)                                     17609000
+      TOTI=TOTI+(AKISQ/TEMP)*RAT                                        17610000
+  330 CONTINUE                                                          17611000
+      GO TO 200                                                         17612000
+  120 CONTINUE                                                          17613000
+      C=2.5/WHY                                                         17614000
+      GO TO 140                                                         17615000
+  130 CONTINUE                                                          17616000
+      IF(TEST2.LT.1.0)GO TO 150                                         17617000
+      FAC=1.+.018*(BETA-.00128)/(BETA+.00128)+.08*(TEST1-1.0)           17618000
+      C=.8292* SQRT( BB)*FAC                                            17619000
+      GO TO 140                                                         17620000
+  150 CONTINUE                                                          17621000
+      C=0.7071*SQRT(BB+(1.0+BETA)/BETA)                                 17622000
+  140 CONTINUE                                                          17623000
+      NGAUSS=NGUS13                                                     17624000
+      NGAUSS=(NGAUSS-1)/2                                               17625000
+      WEIGHT=WATE13                                                     17626000
+C                                                                       17627000
+C     GAUSS-JACOBI 13 POINT INTEGRATION FOR J AND I INTEGRALS           17628000
+C                                                                       17629000
+      DO 180 I=1,NGAUSS                                                 17630000
+      ZLPI=ZLP1(I)                                                      17631000
+      AX=WHY*ZLP(I)*C                                                   17632000
+C*****CALL QUICKW*******************************************************17633000
+      CALL QUICKW(N41,N27,TR,TI,TRS,TIS,AX,WHY,REW,AIMW)                17634000
+      PSI=1.7724538509 *WHY*REW                                         17635000
+      AKI=1.7724538509 *ZETA*AIMW                                       17636000
+      DEN=BETA+PSI                                                      17637000
+      RAT=PSI*ZLPI/DEN                                                  17638000
+      RAT2=BETA*RAT/DEN                                                 17639000
+      AKISQ=AKI*AKI*ASQ                                                 17640000
+      TEMP=DEN*DEN-AKISQ                                                17641000
+      TOTJ=TOTJ+RAT                                                     17642000
+      TOTJ2=TOTJ2+RAT2                                                  17643000
+      IF(ASQ.EQ.0.) GO TO 180                                           17644000
+      TOTM=TOTM+ZLPI*AKISQ/(A*TEMP)                                     17645000
+      TOTI=TOTI+(AKISQ/TEMP)*RAT                                        17646000
+  180 CONTINUE                                                          17647000
+  200 CONTINUE                                                          17648000
+C                                                                       17649000
+C     ADD IN ZERO POINT FOR THE J INTEGRAL. THE I AND M INTEGRALS HAVE  17650000
+C     NO ZERO POINT CONTRIBUTION.                                       17651000
+C                                                                       17652000
+      TOTJ=TOTJ+AINTZ                                                   17653000
+C                                                                       17654000
+C     MULTIPLY BY C AND THE WEIGHTING FACTOR, EITHER PI/13 OR PI/9      17655000
+C                                                                       17656000
+      TOTJ=TOTJ*C*WEIGHT                                                17657000
+      TOTM=TOTM*C*WEIGHT                                                17658000
+      TOTJ2=TOTJ2*C*WEIGHT                                              17659000
+      TOTI=TOTI*C*WEIGHT                                                17660000
+      GO TO 190                                                         17661000
+C                                                                       17662000
+C     LARGE BETA APPROXIMATION                                          17663000
+C                                                                       17664000
+  100 CONTINUE                                                          17665000
+C                                                                       17666000
+C     1.41421356237 IS SQRT(2)                                          17667000
+C                                                                       17668000
+      ARG=1.41421356237*WHY                                             17669000
+C*****CALL WZERO********************************************************17670000
+      CALL WZERO(ARG,PSIEZ)                                             17671000
+C                                                                       17672000
+C     0.8862269254 IS 0.5*SQRT(PI)                                      17673000
+C                                                                       17674000
+      RHO=0.8862269254*ARG*PSIEZ                                        17675000
+      RHO2=RHO*RHO                                                      17676000
+      HH=BETA+RHO                                                       17677000
+      HH1=1.0/HH                                                        17678000
+C                                                                       17679000
+C     FOR BETA .GE. 1.0E10, USE THE INFINITELY DILUTE LIMIT             17680000
+C                                                                       17681000
+      IF(BETA.LT.1.0E10) GO TO 160                                      17682000
+      TOTJ=1.57079632680*HH1                                            17683000
+      TOTJ2=TOTJ*HH1                                                    17684000
+      TERM2=0.                                                          17685000
+      GO TO 190                                                         17686000
+  160 CONTINUE                                                          17687000
+      HH3=HH1*HH1*HH1                                                   17688000
+      HH4=HH3*HH1                                                       17689000
+C                                                                       17690000
+C     FIRST TERM OF THE ASYMPTOTIC FORM OF J                            17691000
+C                                                                       17692000
+C                                                                       17693000
+C     1.57079632680 IS PI/2                                             17694000
+C                                                                       17695000
+      TOTJ=1.57079632680*HH1                                            17696000
+      TOTJ2=TOTJ*BETA*HH1                                               17697000
+      ZETA2=ZETA*ZETA                                                   17698000
+      IF(ZETA.GT.2.5) GO TO 360                                         17699000
+C                                                                       17700000
+C     0.8164965809 IS SQRT(2/3)                                         17701000
+C                                                                       17702000
+      ARG=0.8164965809*WHY                                              17703000
+C*****CALL WZERO********************************************************17704000
+      CALL WZERO(ARG,PSIEZ)                                             17705000
+C                                                                       17706000
+C     1.772453851 IS SQRT(PI)                                           17707000
+C                                                                       17708000
+      PS3=1.772453851*ARG*PSIEZ                                         17709000
+C                                                                       17710000
+C     2.170803764 IS SQRT(3*PI/2)                                       17711000
+C                                                                       17712000
+      ZEX=2.170803764*ZETA*EXP(ZETA2/6.0)                               17713000
+      S=0.                                                              17714000
+      SUM=0.                                                            17715000
+      PROD=1.0                                                          17716000
+C                                                                       17717000
+C     USE 6 TERMS IN THE SERIES USED FOR THE EVALUATION OF THE INTEGRAL 17718000
+C     OF PSI**3. THIS DETERMINES THE DIMENSIONS OF AN AND BM AND        17719000
+C     THE INITIALIZATION OF AN AND BM                                   17720000
+C                                                                       17721000
+      DO 350 I=1,6                                                      17722000
+      PROD=PROD*ZETA2                                                   17723000
+      SUM=SUM+BM(I)*PROD                                                17724000
+      S=S+AN(I)*(SUM +0.25)                                             17725000
+  350 CONTINUE                                                          17726000
+      S=S+0.25                                                          17727000
+C                                                                       17728000
+C     INTEGRAL OF PSI**3                                                17729000
+C                                                                       17730000
+      PSIZ3=1.570796327*(RHO*(3.0*PS3-ZEX)+1.5*ZETA2*S)                 17731000
+      GO TO 370                                                         17732000
+  360 CONTINUE                                                          17733000
+      X=0.666666667*ZETA2                                               17734000
+      X1=1.0/X                                                          17735000
+      X12=X1*X1                                                         17736000
+C                                                                       17737000
+C     E1 IS A RATIONAL EXPRESSION FOR X*EXP(X)*E1(X)                    17738000
+C                                                                       17739000
+      IF(X.GE.10.0) GO TO 300                                           17740000
+      E1=(X*(X+2.334733)+0.250621)/(X*(X+3.330657)+1.681534)            17741000
+      GO TO 310                                                         17742000
+  300 CONTINUE                                                          17743000
+      E1=(X*(X+4.03640)+1.15198)/(X*(X+5.03637)+4.19160)                17744000
+  310 CONTINUE                                                          17745000
+      H1=1.0-E1                                                         17746000
+      H2=X1-H1                                                          17747000
+      H3=2.22222222*X12-1.11111111*H2                                   17748000
+      H4=7.77777778*X1*X12-1.16666667*H3                                17749000
+C                                                                       17750000
+C     0.589048622 IS 3PI/16                                             17751000
+C     0.392699082 IS PI/8                                               17752000
+C                                                                       17753000
+       PSIZ3=0.589048622*E1-0.392699082*(H1-H2+H3-H4)                   17754000
+  370 CONTINUE                                                          17755000
+C                                                                       17756000
+C     ADD IN THE SECOND TERM TO THE ASYMPTOTIC FORM FOR J               17757000
+C                                                                       17758000
+C                                                                       17759000
+C     4.71238898 IS 3*PI/2                                              17760000
+C                                                                       17761000
+      TERM2=(PSIZ3-1.570796327*RHO2)*HH3                                17762000
+      TOTJ=TOTJ+TERM2                                                   17763000
+      TOTJ2=TOTJ2+(3.0*PSIZ3-4.71238898*RHO2)*HH4*BETA                  17764000
+      TOTI=1.33333333*ASQ*PSIZ3*HH3                                     17765000
+C                                                                       17766000
+C     6.283185307 IS 2*PI AND 2.666666667 IS 8/3                        17767000
+C                                                                       17768000
+      TOTM=(6.283185307*(BETA*RHO+3.0*RHO2)-2.666666667*PSIZ3)*A*HH3    17769000
+  190 CONTINUE                                                          17770000
+C                                                                       17771000
+C     COMBINE J AND I INTEGRALS                                         17772000
+C                                                                       17773000
+      FJ=TOTJ+TOTI                                                      17774000
+C                                                                       17775000
+C     FJT IS THE TOTAL RESONANCE INTEGRAL                               17776000
+C                                                                       17777000
+      FJT=FJ-A*TOTM                                                     17778000
+C                                                                       17779000
+C     FJN IS THE J INTEGRAL WITHOUT INTERFERENCE SCATTERING             17780000
+C                                                                       17781000
+      FJN=TOTJ                                                          17782000
+C                                                                       17783000
+C     FJ2N IS THE INTEGRAL OF BETA*PSI/(BETA+PSI)**2 WITHOUT            17784000
+C     INTERFERENCE SCATTERING                                           17785000
+C                                                                       17786000
+      FJ2N=TOTJ2                                                        17787000
+      RETURN                                                            17788000
+      END                                                               17789000
+C                                                                       17790000
+      SUBROUTINE WREC(JT,NT,MODE)                                       17791000
+C     *******************************************************           17792000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        17793000
+     *            N1X,N2X,NS,LX,LY,LB                                   17794000
+      COMMON MAXA,A(1)                                                  17795000
+C-----                                                                  17796000
+      CALL DYWREC(JT,NT,MODE,A(LX),A(LY),A(LB))                         17797000
+      RETURN                                                            17798000
+       END                                                              17799000
+      SUBROUTINE DYWREC(JT,NT,MODE,X,Y,B)                               17800000
+C      **************************************************               17801000
+C       DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI)                   17802000
+C      **************************************************               17803000
+      DIMENSION X(1),Y(1),B(1)                                          17804000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        17805000
+     *            N1X,N2X,NS,LX,LY,LB                                   17806000
+C=====WRITE ONE RECORD ON ENDF/B TAPE===================================17807000
+C     JT  = RECORD TYPE, 1-CONT, 2-LIST, 3-TAB1, 4-TAB2, 5-HOL LIST     17808000
+C                        6-TPID                                         17809000
+C     NT  = OUTPUT TAPE NUMBER. IF NT.LE.0, WRITE IS IGNORED.           17810000
+C     MODE=1 BINARY TAPE, STANDARD ARRANGEMENT.                         17811000
+C         =2 BINARY TAPE, ALTERNATE ARRANGEMENT.                        17812000
+C         =3 BCD CARD IMAGE TAPE FOR PUNCHING.                          17813000
+C         =4 EXPANDED AND INTERPRETED PRINT TAPE.                       17814000
+C-----ERROR STOP 108, JT OUT OF RANGE 1-6                               17815000
+C     ERROR STOP 109, MODE OUT OF RANGE 1-4                             17816000
+C-----PRELIMINARY TESTS                                                 17817000
+      IF(NT.LE.0)GOTO 330                                               17818000
+      IF(JT.LT.1)GOTO 10                                                17819000
+      IF(JT.LE.6)GOTO 20                                                17820000
+   10 CALL ERRORE(8HSLAVE3   ,108)                                      17821000
+   20 IF(MODE.LT.1)GOTO 30                                              17822000
+      IF(MODE.LE.4)GOTO 40                                              17823000
+   30 CALL ERRORE(8HSLAVE3   ,109)                                      17824000
+   40 GOTO( 50 , 120 , 190 , 260 ),MODE                                 17825000
+C-----BINARY TAPE, STANDARD ARRANGEMENT                                 17826000
+   50 GOTO( 60 , 70 , 80 , 90 , 70 , 100 ), JT                          17827000
+   60 WRITE(NT)MAT,MF,MT,C1,C2,L1,L2,N1,N2                              17828000
+      GOTO 110                                                          17829000
+   70 WRITE(NT)MAT,MF,MT,C1,C2,L1,L2,N1,N2,(B(N),N=1,N1)                17830000
+      GOTO 110                                                          17831000
+   80 WRITE(NT)MAT,MF,MT,C1,C2,L1,L2,N1,N2,(NBT(N),JNT(N),N=1,N1),      17832000
+     *(X(N),Y(N),N=1,N2)                                                17833000
+      GOTO 110                                                          17834000
+   90 WRITE(NT)MAT,MF,MT,C1,C2,L1,L2,N1,N2,(NBT(N),JNT(N),N=1,N1)       17835000
+      GO TO 110                                                         17836000
+  100 WRITE (NT) MAT,MF,MT,(B(N),N=1,17)                                17837000
+  110 GOTO 330                                                          17838000
+C-----BINARY TAPE, ALTERNATE ARRANGEMENT                                17839000
+  120 GOTO( 130 , 140 , 150 , 160 , 140 , 170 ), JT                     17840000
+  130 WRITE(NT)MF,MAT,MT,C1,C2,L1,L2,N1,N2                              17841000
+      GOTO 180                                                          17842000
+  140 WRITE(NT)MF,MAT,MT,C1,C2,L1,L2,N1,N2,(B(N),N=1,N1)                17843000
+      GOTO 180                                                          17844000
+  150 WRITE(NT)MF,MAT,MT,C1,C2,L1,L2,N1,N2,(NBT(N),JNT(N),N=1,N1),      17845000
+     *(X(N),Y(N),N=1,N2)                                                17846000
+      GOTO 180                                                          17847000
+  160 WRITE(NT)MF,MAT,MT,C1,C2,L1,L2,N1,N2,(NBT(N),JNT(N),N=1,N1)       17848000
+      GO TO 180                                                         17849000
+  170 WRITE (NT) MF,MAT,MT,(B(N),N=1,17)                                17850000
+  180 GOTO 330                                                          17851000
+C-----BCD CARD IMAGE TAPE                                               17852000
+  190 GOTO( 200 , 210 , 220 , 230 , 240 , 250 ), JT                     17853000
+  200 CALL PUCONT(NT,X,Y,B)                                             17854000
+      GOTO 330                                                          17855000
+  210 CALL PULIST(NT,X,Y,B)                                             17856000
+      GOTO 330                                                          17857000
+  220 CALL PUTAB1(NT,X,Y,B)                                             17858000
+      GOTO 330                                                          17859000
+  230 CALL PUTAB2(NT,X,Y,B)                                             17860000
+      GOTO 330                                                          17861000
+  240 CALL PUHOL(NT,X,Y,B)                                              17862000
+      GOTO 330                                                          17863000
+  250 CALL PUTPID(NT,X,Y,B)                                             17864000
+      GO TO 330                                                         17865000
+C-----EXPANDED AND INTERPRETED PRINT                                    17866000
+  260 GOTO( 270 , 280 , 290 , 300 , 310 , 320 ), JT                     17867000
+  270 CALL PRCONT(NT,X,Y,B)                                             17868000
+      GOTO 330                                                          17869000
+  280 CALL PRLIST(NT,X,Y,B)                                             17870000
+      GOTO 330                                                          17871000
+  290 CALL PRTAB1(NT,X,Y,B)                                             17872000
+      GOTO 330                                                          17873000
+  300 CALL PRTAB2(NT,X,Y,B)                                             17874000
+      GOTO 330                                                          17875000
+  310 CALL PRHOL(NT,X,Y,B)                                              17876000
+      GO TO 330                                                         17877000
+  320 CALL PRTPID(NT,X,Y,B)                                             17878000
+C-----FINISHED                                                          17879000
+  330 RETURN                                                            17880000
+      END                                                               17881000
+      SUBROUTINE DELETE(MA)                                             17882000
+C     ********************************************                      17883000
+C=====DELETE RECORD MA FROM DENSE STORAGE===============================17884000
+C     IF MA=0, CLEAR DENSE STORAGE                                      17885000
+C-----NO ERROR STOPS                                                    17886000
+      COMMON MAXA,A(1)                                                  17887000
+      COMMON/DENS/LJMT,LJAT,LJTT,LJLT,LARRAY,JNS,MNS,JX,MX              17888000
+      CALL DYDELE(A(LJMT),A(LJAT),A(LJTT),A(LJLT),A(LARRAY),            17889000
+     1            MA)                                                   17890000
+      RETURN                                                            17891000
+       END                                                              17892000
+      SUBROUTINE DYDELE(JMT,JAT,JTT,JLT,A,         MA)                  17893000
+C     ********************************************                      17894000
+      DIMENSION JMT(1),JAT(1),JTT(1),JLT(1),A(1)                        17895000
+      COMMON/DENS/LJMT,LJAT,LJTT,LJLT,LARRAY,JNS,MNS,JX,MX              17896000
+C=====TEST MA                                                           17897000
+  100 IF(MA)200,102,200                                                 17898000
+C=====CLEAR DENSE STORAGE                                               17899000
+  102 MNS=1                                                             17900000
+      JNS=1                                                             17901000
+      DO110M=1,MX                                                       17902000
+      JMT(M)=0                                                          17903000
+      JAT(M)=0                                                          17904000
+      JLT(M)=0                                                          17905000
+  110 JTT(M)=0                                                          17906000
+      DO120J=1,JX                                                       17907000
+  120 A(J)=0.0                                                          17908000
+      GOTO300                                                           17909000
+C=====DELETE RECORD MA, SEARCH FOR LOCATION                             17910000
+  200 IF(MNS.LE.1)GOTO300                                               17911000
+      MNSP=MNS-1                                                        17912000
+      DO210M=1,MNSP                                                     17913000
+      MP=M                                                              17914000
+      IF(JMT(M).EQ.MA)GOTO220                                           17915000
+  210 CONTINUE                                                          17916000
+      GOTO300                                                           17917000
+  220 JA=JAT(MP)                                                        17918000
+      JL=JLT(MP)                                                        17919000
+C-----CLOSE UP ARRAY A(J)                                               17920000
+      JP=JNS-JA-JL                                                      17921000
+      IF(JP)240,240,222                                                 17922000
+  222 DO230N=1,JP                                                       17923000
+      J1=JA+N-1                                                         17924000
+      J2=J1+JL                                                          17925000
+  230 A(J1)=A(J2)                                                       17926000
+  240 JNS=JNS-JL                                                        17927000
+      DO250N=1,JL                                                       17928000
+      J=JNS+N-1                                                         17929000
+  250 A(J)=0.0                                                          17930000
+C-----CLOSE UP J TABLES                                                 17931000
+      MXP=MNS-MP-1                                                      17932000
+      IF(MXP)270,270,252                                                17933000
+  252 DO260M=1,MXP                                                      17934000
+      M1=MP+M-1                                                         17935000
+      JMT(M1)=JMT(M1+1)                                                 17936000
+      JTT(M1)=JTT(M1+1)                                                 17937000
+  260 JLT(M1)=JLT(M1+1)                                                 17938000
+  270 MNS=MNS-1                                                         17939000
+      JMT(MNS)=0                                                        17940000
+      JAT(MNS)=0                                                        17941000
+      JTT(MNS)=0                                                        17942000
+      JLT(MNS)=0                                                        17943000
+      MXP=MXP-1                                                         17944000
+      IF(MXP)300,300,272                                                17945000
+  272 DO 280 M=1,MXP                                                    17946000
+      M1=MP+M                                                           17947000
+  280 JAT(M1)=JAT(M1-1)+JLT(M1-1)                                       17948000
+C=====FINISHED                                                          17949000
+  300 RETURN                                                            17950000
+      END                                                               17951000
+      SUBROUTINE IPDS(JA,NP,XP,YP,IP)                                   17952000
+C      ************************************************                 17953000
+C      DYNAMIC ALLOCATION VERSION OF IPDS                               17954000
+C      **********************************************                   17955000
+            COMMON MAXA,AD( 3000)                                       17956000
+            COMMON/DENS/JMT,JAT,JTT,JLT,LA,JNS,MNS,JX,MX                17957000
+       CALL IPDSDY(JA,NP,XP,YP,IP,AD(JMT),AD(JAT),AD(JTT),              17958000
+     1 AD(JLT),AD(LA),AD(LA))                                           17959000
+       RETURN                                                           17960000
+       END                                                              17961000
+       SUBROUTINE IPDSDY(JA,NP,XP,YP,IP,JMT,JAT,JTT,JLT,A,LA)           17962000
+C      ********************************************************         17963000
+C                                                                       17964000
+C=====INTERPOLATE POINT IN /DENS/ STORAGE===============================17965000
+C     JA - STARTING INDEX IN /DENS/ ARRAY A OF THE TAB1 RECORD          17966000
+C     XP - GIVEN VALUE OF X                                             17967000
+C     YP - CORRESPONDING(DESIRED) VALUE OF Y                            17968000
+C     IP - INTERPOLATION CODE USED TO COMPUTE YP                        17969000
+C     NP - INDEX OF X AND Y ARRAYS SUCH THAT XP LIES                    17970000
+C          BETWEEN X(NP) AND X(NP+1). IF NP.GT.0 ON INPUT, IT           17971000
+C          IS USED TO START SEARCH.                                     17972000
+C     JA, XP, AND NP(GUESSED VALUE OR 0) ARE GIVEN AS INPUT             17973000
+C     YP, IP, AND NP(CORRECT VALUE) ARE OUTPUT FROM S.R.                17974000
+C     IF XP.LT.X(1),  YP=0.0, NP=0, IP=1                                17975000
+C     IF XP.GT.X(N2), YP=0.0, NP=N2+1, IP=1, WHERE N2 IS THE            17976000
+C          NUMBER OF X,Y VALUES GIVEN IN THE TAB1 RECORD.               17977000
+C-----ERROR STOP 314, IMPROPER INTERPOLATION TABLE                      17978000
+            COMMON/DENS/LJMT,LJAT,LJTT,LJLT,LLA,JNS,MNS,JX,MX           17979000
+C     COMMON/DENS/JMT(100),JAT(100),JTT(100),JLT(100),A(11000),         17980000
+C    *            JNS,MNS,JX,MX                                         17981000
+       DIMENSION JMT(100),JAT(100),JTT(100),JLT(100),A(1100)            17982000
+      DIMENSION LA(1)                                                   17983000
+C     EQUIVALENCE (A(1),LA(1))                                          17984000
+C-----INITIALIZE                                                        17985000
+      N1=LA(JA+7)                                                       17986000
+      N2=LA(JA+8)                                                       17987000
+      J1=JA+9                                                           17988000
+      J2=J1+2*N1                                                        17989000
+C-----TEST FOR XP OUT OF RANGE                                          17990000
+      IF(XP.GE.A(J2))GOTO 10                                            17991000
+      YP=0.0                                                            17992000
+      NP=0                                                              17993000
+      IP=1                                                              17994000
+      GOTO 70                                                           17995000
+   10 K=J2+2*(N2-1)                                                     17996000
+      IF(XP.LE.A(K))GOTO 20                                             17997000
+      YP=0.0                                                            17998000
+      NP=N2+1                                                           17999000
+      IP=1                                                              18000000
+      GOTO 70                                                           18001000
+C-----SEARCH TABLE FOR PROPER PANEL                                     18002000
+   20 IF(NP.LE.0)NP=1                                                   18003000
+      IF(NP.GE.N2)NP=N2-1                                               18004000
+      K=J2+2*(NP-1)                                                     18005000
+      IF(XP.LT.A(K))NP=1                                                18006000
+      N2P=N2-1                                                          18007000
+      DO 30 N=NP,N2P                                                    18008000
+      NPP=N+1                                                           18009000
+      K=J2+2*N                                                          18010000
+      IF(XP.LT.A(K))GOTO 40                                             18011000
+   30 CONTINUE                                                          18012000
+      YP=A(K+1)                                                         18013000
+      IP=2                                                              18014000
+      NP=N2+1                                                           18015000
+      GOTO 70                                                           18016000
+C-----FIND INTERPOLATION CODE                                           18017000
+   40 DO 50 M=1,N1                                                      18018000
+      MP=M                                                              18019000
+      K=J1+2*(M-1)                                                      18020000
+      IF(NPP.LE.LA(K))GOTO 60                                           18021000
+   50 CONTINUE                                                          18022000
+      CALL ERRORE(8HSLAVE3  ,314)                                       18023000
+   60 IP=LA(K+1)                                                        18024000
+C-----INTERPOLATE                                                       18025000
+      K=J2+2*(NPP-2)                                                    18026000
+      CALL TERP1(A(K),A(K+1),A(K+2),A(K+3),XP,YP,IP)                    18027000
+      NP=NPP-1                                                          18028000
+C-----FINISHED                                                          18029000
+   70 RETURN                                                            18030000
+      END                                                               18031000
+      SUBROUTINE LRIDS(MA,JA,LNT)                                       18032000
+C      **************************************                           18033000
+C      DYNAMIC ALLOCATION VERSION                                       18034000
+C      ********************************                                 18035000
+            COMMON MAXA,AD( 3000)                                       18036000
+            COMMON/DENS/JMT,JAT,JTT,JLT,LA,JNS,MNS,JX,MX                18037000
+       CALL LRIDDY(MA,JA,LNT,AD(JMT),AD(JAT),AD(JTT),                   18038000
+     1 AD(JLT),AD(LA),AD(LA))                                           18039000
+       RETURN                                                           18040000
+       END                                                              18041000
+       SUBROUTINE LRIDDY(MA,JA,LNT,JMT,JAT,JTT,JLT,A,LA)                18042000
+C      ********************************************************         18043000
+C                                                                       18044000
+C=====LOCATE RECORD IN DENSE STORAGE====================================18045000
+C     MA  - RECORD INDENT                                               18046000
+C     JA  - STARTING INDEX IN ARRAY A FOR RECORD MA                     18047000
+C     LNT =0, NORMAL RETURN                                             18048000
+C         =1, RECORD MA NOT IN DENSE STORAGE                            18049000
+C-----NO ERROR STOPS                                                    18050000
+            COMMON/DENS/LJMT,LJAT,LJTT,LJLT,LLA,JNS,MNS,JX,MX           18051000
+C     COMMON/DENS/JMT(100),JAT(100),JTT(100),JLT(100),A(11000),         18052000
+C    *            JNS,MNS,JX,MX                                         18053000
+       DIMENSION JMT(100),JAT(100),JTT(100),JLT(100),A(1100)            18054000
+      DIMENSION LA(1)                                                   18055000
+C     EQUIVALENCE (A(1),LA(1))                                          18056000
+      LNT=0                                                             18057000
+      MXP=MNS-1                                                         18058000
+      IF(MXP.LE.0)GOTO 20                                               18059000
+      IF(MA.EQ.0)GOTO 20                                                18060000
+      DO 10 M=1,MXP                                                     18061000
+      JA=JAT(M)                                                         18062000
+      IF(JMT(M).EQ.MA)GOTO 30                                           18063000
+   10 CONTINUE                                                          18064000
+   20 LNT=1                                                             18065000
+   30 RETURN                                                            18066000
+      END                                                               18067000
+      SUBROUTINE FETCH(MA,LNT)                                          18068000
+C      **************************************                           18069000
+C      DYNAMIC ALLOCATION VERSION                                       18070000
+C      ********************************                                 18071000
+            COMMON MAXA,AD( 3000)                                       18072000
+            COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),           18073000
+     1      JNT(200),N1X,N2X,NS,LX,LY,LB                                18074000
+            COMMON/DENS/JMT,JAT,JTT,JLT,LA,JNS,MNS,JX,MX                18075000
+       CALL FETCHD(MA,LNT,AD(JMT),AD(JAT),AD(JTT),                      18076000
+     1 AD(JLT),AD(LA),AD(LA),AD(LX),AD(LY),AD(LB) )                     18077000
+       RETURN                                                           18078000
+       END                                                              18079000
+       SUBROUTINE FETCHD(MA,LNT,JMT,JAT,JTT,JLT,A,LA,X,Y,B)             18080000
+C      ********************************************************         18081000
+C                                                                       18082000
+C=====FETCH RECORD FROM DENSE STORAGE===================================18083000
+C     MA - RECORD IDENT TO BE FETCHED                                   18084000
+C     LNT=0, RECORD FOUND AND MOVED TO COMMON/RECS/                     18085000
+C        =1, RECORD NOT IN DENSE STORAGE                                18086000
+C-----NO ERROR STOPS                                                    18087000
+C     COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18088000
+C    *            X(5000),Y(5000),B(5000),N1X,N2X,NS                    18089000
+C     COMMON/DENS/JMT(100),JAT(100),JTT(100),JLT(100),A(11000),         18090000
+C    *            JNS,MNS,JX,MX                                         18091000
+            COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),           18092000
+     1      JNT(200),N1X,N2X,NS,LX,LY,LB                                18093000
+            COMMON/DENS/LJMT,LJAT,LJTT,LJLT,LLA,JNS,MNS,JX,MX           18094000
+       DIMENSION JMT(100),JAT(100),JTT(100),JLT(100),A(1100)            18095000
+       DIMENSION X(5000),Y(5000),B(5000)                                18096000
+      DIMENSION LA(1)                                                   18097000
+C     EQUIVALENCE (A(1),LA(1))                                          18098000
+C-----SEARCH FOR RECORD                                                 18099000
+      LNT=0                                                             18100000
+      IF(MNS.LE.1)GOTO 20                                               18101000
+      MNSP=MNS-1                                                        18102000
+      DO 10 M=1,MNSP                                                    18103000
+      MP=M                                                              18104000
+      IF(JMT(M).EQ.MA)GOTO 30                                           18105000
+   10 CONTINUE                                                          18106000
+   20 LNT=1                                                             18107000
+      GOTO 130                                                          18108000
+   30 JA=JAT(MP)                                                        18109000
+      JT=JTT(MP)                                                        18110000
+      IF(JT.EQ.6)GOTO 110                                               18111000
+C-----MOVE FIRST 9 WORDS                                                18112000
+      MAT=LA(JA)                                                        18113000
+      MF=LA(JA+1)                                                       18114000
+      MT=LA(JA+2)                                                       18115000
+      C1=A(JA+3)                                                        18116000
+      C2=A(JA+4)                                                        18117000
+      L1=LA(JA+5)                                                       18118000
+      L2=LA(JA+6)                                                       18119000
+      N1=LA(JA+7)                                                       18120000
+      N2=LA(JA+8)                                                       18121000
+      JA=JA+9                                                           18122000
+C-----MOVE REMAINDER OF RECORD                                          18123000
+      GOTO( 130 , 40 , 60 , 90 , 40 ),JT                                18124000
+   40 DO 50 N=1,N1                                                      18125000
+      J=JA+N-1                                                          18126000
+   50 B(N)=A(J)                                                         18127000
+      GOTO 130                                                          18128000
+   60 DO 70 N=1,N1                                                      18129000
+      J=JA+2*(N-1)                                                      18130000
+      NBT(N)=LA(J)                                                      18131000
+   70 JNT(N)=LA(J+1)                                                    18132000
+      JA=JA+2*N1                                                        18133000
+      DO 80 N=1,N2                                                      18134000
+      J=JA+2*(N-1)                                                      18135000
+      X(N)=A(J)                                                         18136000
+   80 Y(N)=A(J+1)                                                       18137000
+      GOTO 130                                                          18138000
+   90 DO 100 N=1,N1                                                     18139000
+      J=JA+2*(N-1)                                                      18140000
+      NBT(N)=LA(J)                                                      18141000
+  100 JNT(N)=LA(J+1)                                                    18142000
+      GOTO 130                                                          18143000
+C-----TPID RECORD                                                       18144000
+  110 MAT=LA(JA)                                                        18145000
+      MF=LA(JA+1)                                                       18146000
+      MT=LA(JA+2)                                                       18147000
+      DO 120 N=1,17                                                     18148000
+      J=JA+2+N                                                          18149000
+  120 B(N)=A(J)                                                         18150000
+C-----FINISHED                                                          18151000
+  130 RETURN                                                            18152000
+      END                                                               18153000
+      SUBROUTINE TERP1(X1,Y1,X2,Y2,X,Y,I)                               18154000
+C     ************************************************                  18155000
+C=====INTERPOLATE ONE POINT=============================================18156000
+C     (X,Y) IS THE INTERPOLATED POINT                                   18157000
+C     I IS THE INTERPOLATION CODE                                       18158000
+C     NOTE- IF A NEGATIVE OR ZERO ARGUMENT OF A LOG IS                  18159000
+C           DETECTED, THE INTERPOLATION CODE IS AUTOMATICALLY           18160000
+C           CHANGED FROM LOG TO LINEAR                                  18161000
+C-----ERROR STOP 133, INTERPOLATION CODE OUT OF RANGE                   18162000
+C     ERROR STOP 134, ZERO OR NEG VALUE CANNOT BE                       18163000
+C                     INTERPOLATED BY LOGS                              18164000
+C-----ERROR STOP 135, X1=X2 (DISCONTINUITY)                             18165000
+      XA=X1                                                             18166000
+      YA=Y1                                                             18167000
+      XB=X2                                                             18168000
+      YB=Y2                                                             18169000
+      XP=X                                                              18170000
+      II=I                                                              18171000
+      IF(XA.EQ.XB) CALL ERRORE(8HSLAVE3   ,135)                         18172000
+      IF(II) 10 , 10 , 20                                               18173000
+   10 CALL ERRORE(8HSLAVE3   ,133)                                      18174000
+   20 IF(II-5) 30 , 30 , 10                                             18175000
+   30 GO TO ( 40 , 50 , 60 , 110 , 140 ),II                             18176000
+   40 YP=YA                                                             18177000
+      GO TO 200                                                         18178000
+   50 YP=YA+(XP-XA)*(YB-YA)/(XB-XA)                                     18179000
+      GO TO 200                                                         18180000
+   60 IF(XA) 50 , 50 , 70                                               18181000
+   70 IF(XB) 50 , 50 , 80                                               18182000
+   80 IF(XP) 90 , 90 , 100                                              18183000
+   90 CALL ERRORE(8HSLAVE3   ,134)                                      18184000
+  100 YP=YA+ALOG(XP/XA)*(YB-YA)/ALOG(XB/XA)                             18185000
+      GO TO 200                                                         18186000
+  110 IF(YA) 50 , 50 , 120                                              18187000
+  120 IF(YB) 50 , 50 , 130                                              18188000
+  130 YP=YA*EXP((XP-XA)*ALOG(YB/YA)/(XB-XA))                            18189000
+      GO TO 200                                                         18190000
+  140 IF(YA) 60 , 60 , 150                                              18191000
+  150 IF(YB) 60 , 60 , 160                                              18192000
+  160 IF(XA) 130 , 130 , 170                                            18193000
+  170 IF(XB) 130 , 130 , 180                                            18194000
+  180 IF(XP) 90 , 90 , 190                                              18195000
+  190 YP=YA*EXP(ALOG(XP/XA)*ALOG(YB/YA)/ALOG(XB/XA))                    18196000
+  200 Y=YP                                                              18197000
+      RETURN                                                            18198000
+      END                                                               18199000
+      SUBROUTINE RREC(JT,NT,MODE,T)                                     18200000
+C     *********************************************************         18201000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18202000
+     *            N1X,N2X,NS,LX,LY,LB                                   18203000
+      COMMON MAXA,A(1)                                                  18204000
+C-----                                                                  18205000
+      CALL DYRREC(JT,NT,MODE,T,A(LX),A(LY),A(LB))                       18206000
+      RETURN                                                            18207000
+       END                                                              18208000
+      SUBROUTINE DYRREC(JT,NT,MODE,T,X,Y,B)                             18209000
+C      **************************************************               18210000
+C       DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI)                   18211000
+C      **************************************************               18212000
+      DIMENSION X(1),Y(1),B(1)                                          18213000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18214000
+     *            N1X,N2X,NS,LX,LY,LB                                   18215000
+C=====READ ONE RECORD FROM ENDF/B TAPE==================================18216000
+C     JT  = RECORD TYPE, 1-CONT, 2-LIST, 3-TAB1, 4-TAB2, 5-HOL LIST     18217000
+C                        6-TPID                                         18218000
+C     NT  = INPUT TAPE NUMBER.                                          18219000
+C     MODE=1 BINARY TAPE, STANDARD ARRANGEMENT                          18220000
+C         =2 BINARY TAPE, ALTERNATE ARRANGEMENT                         18221000
+C         =3 BCD CARD IMAGE TAPE                                        18222000
+C     T   = TEMPERATURE(KELVIN). IF T.GE.0 AND RECORD HAS A TEMPERATURE 18223000
+C           DEPENDENCE, DATA WILL BE EVALUATED AT T.  IF T.LT.0, ONLY   18224000
+C           FIRST RECORD WILL BE READ.                                  18225000
+C-----ERROR STOP  99, NT NOT DEFINED                                    18226000
+C     ERROR STOP 100, JT OUT OF RANGE 1-6                               18227000
+C     ERROR STOP 101, MODE OUT OF RANGE 1-3                             18228000
+C     ERROR STOP 102, T NOT IN RANGE GIVEN IN DATA                      18229000
+C     ERROR STOP 103, INTERPOLATION TABLE TOO LONG OR 0                 18230000
+C     ERROR STOP 104, LIST TOO LONG OR 0                                18231000
+C     ERROR STOP 105, TABULATION TOO LONG OR .LT.2                      18232000
+C     ERROR STOP 106, IMPROPER TEMPERATURE DEPENDENCE                   18233000
+C-----ERROR STOP 107, MAT, MF, MT INCORRECT FOR JT=2, 3, 4, 5           18234000
+C-----PRELIMINARY TESTS                                                 18235000
+      IF(NT.LE.0)CALL ERRORE(8HSLAVE3   ,99)                            18236000
+      IF(JT.LT.1)GOTO 10                                                18237000
+      IF(JT.LE.6)GOTO 20                                                18238000
+   10 CALL ERRORE(8HSLAVE3   ,100)                                      18239000
+   20 IF(MODE.LT.1)GOTO 30                                              18240000
+      IF(MODE.LE.3)GOTO 40                                              18241000
+   30 CALL ERRORE(8HSLAVE3   ,101)                                      18242000
+   40 GOTO( 50 , 110 , 200 , 310 , 390 , 430 ),JT                       18243000
+C-----JT=1, CONT RECORD                                                 18244000
+   50 GOTO( 60 , 70 , 80 ),MODE                                         18245000
+   60 READ(NT)MAT,MF,MT,C1,C2,L1,L2,N1,N2                               18246000
+      GOTO 100                                                          18247000
+   70 READ(NT)MF,MAT,MT,C1,C2,L1,L2,N1,N2                               18248000
+      GOTO 100                                                          18249000
+   80 READ(NT, 90 )C1,C2,L1,L2,N1,N2,MAT,MF,MT                          18250000
+   90 FORMAT(2E11.0,4I11,I4,I2,I3)                                      18251000
+  100 GOTO 710                                                          18252000
+C-----JT=2, LIST RECORD                                                 18253000
+  110 GOTO( 120 , 130 , 140 ),MODE                                      18254000
+  120 READ(NT)MAT,MF,MT,C1,C2,L1,L2,N1,N2,(B(N),N=1,N1)                 18255000
+      GOTO 160                                                          18256000
+  130 READ(NT)MF,MAT,MT,C1,C2,L1,L2,N1,N2,(B(N),N=1,N1)                 18257000
+      GOTO 160                                                          18258000
+  140 READ(NT, 150 )C1,C2,L1,L2,N1,N2,MAT,MF,MT,(B(N),N=1,N1)           18259000
+  150 FORMAT(2E11.0,4I11,I4,I2,I3/(6E11.0))                             18260000
+  160 IF(N1.GT.N2X)GOTO 170                                             18261000
+      IF(N1.GE.1)GOTO 180                                               18262000
+  170 CALL ERRORE(8HSLAVE3   ,104)                                      18263000
+  180 IF(L1.LE.0)GOTO 690                                               18264000
+      IF(T.LT.0.0)GOTO 690                                              18265000
+      IF (MF.EQ.2) GO TO 690                                            18266000
+      NP=N1                                                             18267000
+      DO 190 N=1,NP                                                     18268000
+  190 Y(N)=B(N)                                                         18269000
+      GOTO 490                                                          18270000
+C-----JT=3, TAB1 RECORD                                                 18271000
+  200 GOTO( 210 , 220 , 230 ),MODE                                      18272000
+  210 READ(NT)MAT,MF,MT,C1,C2,L1,L2,N1,N2,(NBT(N),JNT(N),N=1,N1),(X(N),Y18273000
+     *(N),N=1,N2)                                                       18274000
+      GOTO 260                                                          18275000
+  220 READ(NT)MF,MAT,MT,C1,C2,L1,L2,N1,N2,(NBT(N),JNT(N),N=1,N1),(X(N),Y18276000
+     *(N),N=1,N2)                                                       18277000
+      GOTO 260                                                          18278000
+  230 READ(NT, 240 )C1,C2,L1,L2,N1,N2,MAT,MF,MT,(NBT(N),JNT(N),N=1,N1)  18279000
+  240 FORMAT(2E11.0,4I11,I4,I2,I3/(6I11))                               18280000
+      READ(NT, 250 )(X(N),Y(N),N=1,N2)                                  18281000
+  250 FORMAT(6E11.0)                                                    18282000
+  260 IF(N1.GT.N1X)GOTO 270                                             18283000
+      IF(N1.GE.1)GOTO 280                                               18284000
+  270 CALL ERRORE(8HSLAVE3   ,103)                                      18285000
+  280 IF(N2.GT.N2X)GOTO 290                                             18286000
+      IF(N2.GE.2)GOTO 300                                               18287000
+  290 CALL ERRORE(8HSLAVE3   ,105)                                      18288000
+  300 IF(L1.EQ.0)GOTO 690                                               18289000
+      IF(T.LT.0.0)GOTO 690                                              18290000
+      IF (MF.EQ.2) GO TO 690                                            18291000
+      NP=N2                                                             18292000
+      GOTO 490                                                          18293000
+C-----JT=4, TAB2 RECORD                                                 18294000
+  310 GOTO( 320 , 330 , 340 ),MODE                                      18295000
+  320 READ(NT)MAT,MF,MT,C1,C2,L1,L2,N1,N2,(NBT(N),JNT(N),N=1,N1)        18296000
+      GOTO 360                                                          18297000
+  330 READ(NT)MF,MAT,MT,C1,C2,L1,L2,N1,N2,(NBT(N),JNT(N),N=1,N1)        18298000
+      GOTO 360                                                          18299000
+  340 READ(NT, 350 )C1,C2,L1,L2,N1,N2,MAT,MF,MT,(NBT(N),JNT(N),N=1,N1)  18300000
+  350 FORMAT(2E11.0,4I11,I4,I2,I3/(6I11))                               18301000
+  360 IF(N1.GT.N1X)GOTO 370                                             18302000
+      IF(N1.GE.1)GOTO 380                                               18303000
+  370 CALL ERRORE(8HSLAVE3   ,103)                                      18304000
+  380 IF(N2.GT.N2X) GO TO 290                                           18305000
+      IF(N2.LT.2) GO TO 290                                             18306000
+      GO TO 690                                                         18307000
+C-----JT=5, HOL LIST                                                    18308000
+  390 GOTO( 110 , 110 , 400 ),MODE                                      18309000
+  400 READ(NT, 410 )C1,C2,L1,L2,NCD,N2,MAT,MF,MT                        18310000
+  410 FORMAT(2E11.0,4I11,I4,I2,I3)                                      18311000
+      N1=17*NCD                                                         18312000
+      IF(N1.LE.0)GOTO 170                                               18313000
+      READ(NT, 420 )(B(N),N=1,N1)                                       18314000
+  420 FORMAT(16A4,A2)                                                   18315000
+      IF(N1.GT.N2X)GOTO 170                                             18316000
+      GOTO 690                                                          18317000
+C-----JT=6, TPID RECORD                                                 18318000
+  430 GO TO ( 440 , 450 , 460 ), MODE                                   18319000
+  440 READ (NT) MAT,MF,MT,(B(N),N=1,17)                                 18320000
+      GO TO 480                                                         18321000
+  450 READ (NT) MF,MAT,MT, (B(N),N=1,17)                                18322000
+      GO TO 480                                                         18323000
+  460 READ (NT, 470 ) (B(N),N=1,17), MAT,MF,MT                          18324000
+  470 FORMAT(16A4,A2,I4,I2,I3)                                          18325000
+  480 GO TO 710                                                         18326000
+C-----TEMPERATURE DEPENDENCE                                            18327000
+  490 IF(L1.GE.1)GOTO 510                                               18328000
+  500 CALL ERRORE(8HSLAVE3   ,106)                                      18329000
+  510 LT=L1                                                             18330000
+      TA=C1                                                             18331000
+      IF(T.GE.TA)GOTO 520                                               18332000
+      CALL ERRORE(8HSLAVE3   ,102)                                      18333000
+  520 IF(T.EQ.TA)GOTO 610                                               18334000
+  530 GOTO( 540 , 540 , 550 ),MODE                                      18335000
+  540 READ(NT)Z,Z,Z,TB,Z,IC,Z,NP1,Z,(B(N),N=1,NP1)                      18336000
+      GOTO 570                                                          18337000
+  550 READ(NT, 560 )TB,IC,NP1,(B(N),N=1,NP1)                            18338000
+  560 FORMAT(E11.0,11X,I11,11X,I11/(6E11.0))                            18339000
+  570 LT=LT-1                                                           18340000
+      IF(NP1.NE.NP)GOTO 500                                             18341000
+      IF(TB.LT.TA)GOTO 500                                              18342000
+      IF(IC.LT.1)GOTO 500                                               18343000
+      IF(IC.GT.5)GOTO 500                                               18344000
+      IF(T.LE.TB)GOTO 590                                               18345000
+      TA=TB                                                             18346000
+      DO 580 N=1,NP                                                     18347000
+  580 Y(N)=B(N)                                                         18348000
+      IF(LT.LE.0)GOTO 500                                               18349000
+      GOTO 530                                                          18350000
+  590 DO 600 N=1,NP                                                     18351000
+      CALL TERP1(TA,Y(N),TB,B(N),T,Z,IC)                                18352000
+  600 Y(N)=Z                                                            18353000
+  610 GOTO( 640 , 620 , 640 , 640 ),JT                                  18354000
+  620 DO 630 N=1,NP                                                     18355000
+  630 B(N)=Y(N)                                                         18356000
+  640 IF(LT.LE.0)GOTO 680                                               18357000
+      DO 670 L=1,LT                                                     18358000
+      GOTO( 650 , 650 , 660 ),MODE                                      18359000
+  650 READ(NT)Z,Z,Z,TB,Z,IC,Z,NP1,Z,(B(N),N=1,NP1)                      18360000
+      GOTO 670                                                          18361000
+  660 READ(NT, 560 )TB,IC,NP1,(B(N),N=1,NP1)                            18362000
+  670 CONTINUE                                                          18363000
+  680 GOTO 690                                                          18364000
+C-----CHECK MAT, MF, AND MT FOR JT=2, 3, 4, 5                           18365000
+  690 IF(MAT.LE.0)GOTO 700                                              18366000
+      IF(MF.LE.0)GOTO 700                                               18367000
+      IF(MT.LE.0)GOTO 700                                               18368000
+      GOTO 710                                                          18369000
+  700 CALL ERRORE(8HSLAVE3   ,107)                                      18370000
+C-----FINISHED                                                          18371000
+  710 RETURN                                                            18372000
+      END                                                               18373000
+      SUBROUTINE CXFP(X,F,S,N)                                          18374000
+C     *************************************************************     18375000
+C=====CONVERT X FOR PUNCHING ===========================================18376000
+C     X - FLOATING POINT NUMBER = F*10.0**N                             18377000
+C     F - 0.999995 LE F LT 9.999995                                     18378000
+C     S - SIGN (HOLLERITH + OR -) OF EXPONENT                           18379000
+C     N - EXPONENT                                                      18380000
+      DATA SP/1H+/,SM/1H-/                                              18381000
+      IF(X.NE.0.0) GO TO 10                                             18382000
+      F=0.0                                                             18383000
+      S=SP                                                              18384000
+      N=0                                                               18385000
+      RETURN                                                            18386000
+   10 N=ALOG10(ABS(X))                                                  18387000
+      IF(ABS(X)-1.0) 40 , 20 , 20                                       18388000
+   20 F=X/10.0**N                                                       18389000
+      S=SP                                                              18390000
+      IF(ABS(F)-9.999995) 70 , 30 , 30                                  18391000
+   30 F=F/10.0                                                          18392000
+      N=N+1                                                             18393000
+      GO TO 70                                                          18394000
+   40 N=1-N                                                             18395000
+      F=X*10.0**N                                                       18396000
+      S=SM                                                              18397000
+      IF(ABS(F)-9.999995) 70 , 50 , 50                                  18398000
+   50 F=F/10.0                                                          18399000
+      N=N-1                                                             18400000
+      IF(N) 60 , 60 , 70                                                18401000
+   60 S=SP                                                              18402000
+   70 CONTINUE                                                          18403000
+      RETURN                                                            18404000
+      END                                                               18405000
+      SUBROUTINE PRCONT(NT,X,Y,B)                                       18406000
+C=====PRINT CONT TYPE RECORD ===========================================18407000
+C      **************************************************               18408000
+C       DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI)                   18409000
+C      **************************************************               18410000
+      DIMENSION X(1),Y(1),B(1)                                          18411000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18412000
+     *            N1X,N2X,NS,LX,LY,LB                                   18413000
+      IF(MAT.LT.0) GO TO 20                                             18414000
+      IF(MAT.EQ.0) GO TO 80                                             18415000
+      IF(MF.EQ.0) GO TO 60                                              18416000
+      IF(MT.EQ.0) GO TO 40                                              18417000
+      WRITE(NT, 10 )C1,C2,L1,L2,N1,N2,MAT,MF,MT,NS                      18418000
+   10 FORMAT(5H0CONT,9X,2HC1,11X,2HC2,                                  18419000
+     *11X,2HL1,11X,2HL2,11X,2HN1,11X,2HN2,8X,                           18420000
+     *3HMAT,16H  MF   MT    SEQ/E20.4,E13.4,I9,3I13,I11,I4,I5,I7)       18421000
+      GO TO 100                                                         18422000
+   20 WRITE(NT, 30 ) MAT,MF,MT,NS                                       18423000
+   30 FORMAT(5H0TEND,19X,11HEND OF TAPE,53X,I4,I4,I5,I7)                18424000
+      GO TO 100                                                         18425000
+   40 WRITE(NT, 50 ) MAT,MF,MT,NS                                       18426000
+   50 FORMAT(5H0SEND,4X,14HEND OF SECTION,65X,I4,I4,I5,I7)              18427000
+      GO TO 100                                                         18428000
+   60 WRITE(NT, 70 ) MAT,MF,MT,NS                                       18429000
+   70 FORMAT(5H0FEND,9X,11HEND OF FILE,63X,I4,I4,I5,I7)                 18430000
+      GO TO 100                                                         18431000
+   80 WRITE(NT, 90 ) MAT,MF,MT,NS                                       18432000
+   90 FORMAT(5H0MEND,14X,15HEND OF MATERIAL,54X,I4,I4,I5,I7)            18433000
+  100 NS=NS+1                                                           18434000
+      RETURN                                                            18435000
+      END                                                               18436000
+      SUBROUTINE PRHOL(NT,X,Y,B)                                        18437000
+C=====PRINT HOLLERITH LIST RECORD=======================================18438000
+C      **************************************************               18439000
+C       DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI)                   18440000
+C      **************************************************               18441000
+      DIMENSION X(1),Y(1),B(1)                                          18442000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18443000
+     *            N1X,N2X,NS,LX,LY,LB                                   18444000
+      NCD=N1/17                                                         18445000
+      WRITE(NT, 10 ) C1,C2,L1,L2,NCD,N2,MAT,MF,MT,NS                    18446000
+   10 FORMAT(5H0COMM,9X,2HC1,11X,2HC2,11X,2HL1,                         18447000
+     *11X,2HL2,10X,3HNCD,11X,2HN2,8X,                                   18448000
+     *3HMAT,16H  MF   MT    SEQ/E20.4,E13.4,I9,3I13,I11,I4,I5,I7)       18449000
+      NS=NS+1                                                           18450000
+      NI=1                                                              18451000
+      DO 30 NC=1,NCD                                                    18452000
+      NF=NI+16                                                          18453000
+      WRITE(NT, 20 ) (B(N),N=NI,NF),MAT,MF,MT,NS                        18454000
+   20 FORMAT(1H /(10X,16A4,A2,9X,I7,I4,I5,I7))                          18455000
+      NS=NS+1                                                           18456000
+   30 NI=NI+17                                                          18457000
+      RETURN                                                            18458000
+      END                                                               18459000
+      SUBROUTINE PRLIST(NT,X,Y,B)                                       18460000
+C=====PRINT LIST TYPE RECORD============================================18461000
+C      **************************************************               18462000
+C       DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI)                   18463000
+C      **************************************************               18464000
+      DIMENSION X(1),Y(1),B(1)                                          18465000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18466000
+     *            N1X,N2X,NS,LX,LY,LB                                   18467000
+      WRITE(NT, 10 ) C1,C2,L1,L2,N1,N2,MAT,MF,MT,NS                     18468000
+   10 FORMAT(5H0LIST,9X,2HC1,11X,2HC2,                                  18469000
+     *11X,2HL1,11X,2HL2,11X,2HN1,11X,2HN2,8X,                           18470000
+     *3HMAT,16H  MF   MT    SEQ/E20.4,E13.4,I9,3I13,I11,I4,I5,I7)       18471000
+      NS=NS+1                                                           18472000
+      WRITE(NT, 20 )                                                    18473000
+   20 FORMAT(5H  (N),7X,4HB(N),9X,6HB(N+1),7X,                          18474000
+     *6HB(N+2),7X,6HB(N+3),7X,6HB(N+4),                                 18475000
+     *7X,6HB(N+5))                                                      18476000
+      NI=1                                                              18477000
+      NF=6                                                              18478000
+   30 IF(NF-N1) 40 , 40 , 70                                            18479000
+   40 WRITE(NT, 50 )NI,(B(N),N=NI,NF),MAT,MF,MT,NS                      18480000
+   50 FORMAT(2H (,I3,2H) ,6E13.4,I7,I4,I5,I7)                           18481000
+      NS=NS+1                                                           18482000
+      IF(NF-N1) 60 , 190 , 190                                          18483000
+   60 NI=NI+6                                                           18484000
+      NF=NI+5                                                           18485000
+      GO TO 30                                                          18486000
+   70 NE=N1-NI+1                                                        18487000
+      GO TO( 80 , 100 , 120 , 140 , 160 ),NE                            18488000
+   80 WRITE(NT, 90 )NI,(B(N),N=NI,N1),MAT,MF,MT,NS                      18489000
+   90 FORMAT(2H (,I3,2H) , E13.4,65X,I7,I4,I5,I7)                       18490000
+      GO TO 180                                                         18491000
+  100 WRITE(NT, 110 )NI,(B(N),N=NI,N1),MAT,MF,MT,NS                     18492000
+  110 FORMAT(2H (,I3,2H) ,2E13.4,52X,I7,I4,I5,I7)                       18493000
+      GO TO 180                                                         18494000
+  120 WRITE(NT, 130 )NI,(B(N),N=NI,N1),MAT,MF,MT,NS                     18495000
+  130 FORMAT(2H (,I3,2H) ,3E13.4,39X,I7,I4,I5,I7)                       18496000
+      GO TO 180                                                         18497000
+  140 WRITE(NT, 150 )NI,(B(N),N=NI,N1),MAT,MF,MT,NS                     18498000
+  150 FORMAT(2H (,I3,2H) ,4E13.4,26X,I7,I4,I5,I7)                       18499000
+      GO TO 180                                                         18500000
+  160 WRITE(NT, 170 )NI,(B(N),N=NI,N1),MAT,MF,MT,NS                     18501000
+  170 FORMAT(2H (,I3,2H) ,5E13.4,13X,I7,I4,I5,I7)                       18502000
+  180 NS=NS+1                                                           18503000
+  190 RETURN                                                            18504000
+      END                                                               18505000
+      SUBROUTINE PRTAB1(NT,X,Y,B)                                       18506000
+C=====PRINT TAB1 TYPE RECORD============================================18507000
+C      **************************************************               18508000
+C       DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI)                   18509000
+C      **************************************************               18510000
+      DIMENSION X(1),Y(1),B(1)                                          18511000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18512000
+     *            N1X,N2X,NS,LX,LY,LB                                   18513000
+      NR=N1                                                             18514000
+      NP=N2                                                             18515000
+      WRITE(NT, 10 )C1,C2,L1,L2,NR,NP,MAT,MF,MT,NS                      18516000
+   10 FORMAT(5H0TAB1,9X,2HC1,11X,2HC2,                                  18517000
+     *11X,2HL1,11X,2HL2,11X,2HNR,11X,2HNP,8X,                           18518000
+     *3HMAT,16H  MF   MT    SEQ/E20.4,E13.4,I9,3I13,I11,I4,I5,I7)       18519000
+      NS=NS+1                                                           18520000
+      WRITE(NT, 20 )                                                    18521000
+   20 FORMAT(5H  (N),7X,6HNBT(N),7X,6HINT(N),                           18522000
+     *7X,8HNBT(N+1),5X,8HINT(N+1),5X,                                   18523000
+     *8HNBT(N+2),5X,8HINT(N+2))                                         18524000
+      NI=1                                                              18525000
+      NF=3                                                              18526000
+   30 IF(NF-NR) 40 , 40 , 70                                            18527000
+   40 WRITE(NT, 50 )NI,(NBT(N),JNT(N),N=NI,NF),MAT,MF,MT,NS             18528000
+   50 FORMAT(3H ( ,I2,1H),I10,5I13,I11,I4,I5,I7)                        18529000
+      NS=NS+1                                                           18530000
+      IF(NF-NR) 60 , 130 , 130                                          18531000
+   60 NI=NI+3                                                           18532000
+      NF=NI+2                                                           18533000
+      GO TO 30                                                          18534000
+   70 IF(NF-NR-1) 130 , 100 , 80                                        18535000
+   80 WRITE(NT, 90 )NI,(NBT(N),JNT(N),N=NI,NR),MAT,MF,MT,NS             18536000
+   90 FORMAT(3H ( ,I2,1H),I10,I13,52X,I11,I4,I5,I7)                     18537000
+      GO TO 120                                                         18538000
+  100 WRITE(NT, 110 )NI,(NBT(N),JNT(N),N=NI,NR),MAT,MF,MT,NS            18539000
+  110 FORMAT(3H ( ,I2,1H),I10,3I13,26X,I11,I4,I5,I7)                    18540000
+  120 NS=NS+1                                                           18541000
+  130 WRITE(NT, 140 )                                                   18542000
+  140 FORMAT(5H  (N),7X,4HX(N),9X,4HY(N),                               18543000
+     *9X,6HX(N+1),7X,6HY(N+1),7X,6HX(N+2),                              18544000
+     *7X,6HY(N+2))                                                      18545000
+      NI=1                                                              18546000
+      NF=3                                                              18547000
+  150 IF(NF-NP) 160 , 160 , 190                                         18548000
+  160 WRITE(NT, 170 )NI,(X(N),Y(N),N=NI,NF),MAT,MF,MT,NS                18549000
+  170 FORMAT(2H (,I3,2H) ,6E13.4,I7,I4,I5,I7)                           18550000
+      NS=NS+1                                                           18551000
+      IF(NF-NP) 180 , 250 , 250                                         18552000
+  180 NI=NI+3                                                           18553000
+      NF=NI+2                                                           18554000
+      GO TO 150                                                         18555000
+  190 IF(NF-NP-1) 250 , 220 , 200                                       18556000
+  200 WRITE(NT, 210 )NI,(X(N),Y(N),N=NI,NP),MAT,MF,MT,NS                18557000
+  210 FORMAT(2H (,I3,2H) ,2E13.4,52X,I7,I4,I5,I7)                       18558000
+      GO TO 240                                                         18559000
+  220 WRITE(NT, 230 )NI,(X(N),Y(N),N=NI,NP),MAT,MF,MT,NS                18560000
+  230 FORMAT(2H (,I3,2H) ,4E13.4,26X,I7,I4,I5,I7)                       18561000
+  240 NS=NS+1                                                           18562000
+  250 RETURN                                                            18563000
+      END                                                               18564000
+      SUBROUTINE PRTAB2(NT,X,Y,B)                                       18565000
+C=====PRINT TAB2 TYPE RECORD============================================18566000
+C      **************************************************               18567000
+C       DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI)                   18568000
+C      **************************************************               18569000
+      DIMENSION X(1),Y(1),B(1)                                          18570000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18571000
+     *            N1X,N2X,NS,LX,LY,LB                                   18572000
+      NR=N1                                                             18573000
+      NP=N2                                                             18574000
+      WRITE(NT, 10 )C1,C2,L1,L2,NR,NP,MAT,MF,MT,NS                      18575000
+   10 FORMAT(5H0TAB2,9X,2HC1,11X,2HC2,11X,                              18576000
+     *2HL1,11X,2HL2,11X,2HNR,11X,2HNP,8X,                               18577000
+     *3HMAT,16H  MF   MT    SEQ/E20.4,E13.4,I9,3I13,I11,I4,I5,I7)       18578000
+      NS=NS+1                                                           18579000
+      WRITE(NT, 20 )                                                    18580000
+   20 FORMAT(5H  (N),7X,6HNBT(N),7X,                                    18581000
+     *6HINT(N),7X,8HNBT(N+1),5X,8HINT(N+1),5X,                          18582000
+     *8HNBT(N+2),5X,8HINT(N+2))                                         18583000
+      NI=1                                                              18584000
+      NF=3                                                              18585000
+   30 IF(NF-NR) 40 , 40 , 70                                            18586000
+   40 WRITE(NT, 50 )NI,(NBT(N),JNT(N),N=NI,NF),MAT,MF,MT,NS             18587000
+   50 FORMAT(3H ( ,I2,1H),I10,5I13,I11,I4,I5,I7)                        18588000
+      NS=NS+1                                                           18589000
+      IF(NF-NR) 60 , 130 , 130                                          18590000
+   60 NI=NI+3                                                           18591000
+      NF=NI+2                                                           18592000
+      GOTO 30                                                           18593000
+   70 IF(NF-NR-1) 130 , 100 , 80                                        18594000
+   80 WRITE(NT, 90 )NI,(NBT(N),JNT(N),N=NI,NR),MAT,MF,MT,NS             18595000
+   90 FORMAT(3H ( ,I2,1H),I10,I13,52X,I11,I4,I5,I7)                     18596000
+      GOTO 120                                                          18597000
+  100 WRITE(NT, 110 )NI,(NBT(N),JNT(N),N=NI,NR),MAT,MF,MT,NS            18598000
+  110 FORMAT(3H ( ,I2,1H),I10,3I13,26X,I11,I4,I5,I7)                    18599000
+  120 NS=NS+1                                                           18600000
+  130 RETURN                                                            18601000
+      END                                                               18602000
+      SUBROUTINE PRTPID(NT,X,Y,B)                                       18603000
+C=====PRINT TPID RECORD ================================================18604000
+C      **************************************************               18605000
+C       DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI)                   18606000
+C      **************************************************               18607000
+      DIMENSION X(1),Y(1),B(1)                                          18608000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18609000
+     *            N1X,N2X,NS,LX,LY,LB                                   18610000
+      WRITE (NT, 10 ) (B(N),N=1,17), MAT                                18611000
+   10 FORMAT(5H0TPID,82X,5HLABEL/10X,16A4,A2,9X,I7)                     18612000
+      NS=NS+1                                                           18613000
+      RETURN                                                            18614000
+      END                                                               18615000
+      SUBROUTINE PUCONT(NT,X,Y,B)                                       18616000
+C=====PUNCH CONT TYPE RECORD ===========================================18617000
+C      **************************************************               18618000
+C       DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI)                   18619000
+C      **************************************************               18620000
+      DIMENSION X(1),Y(1),B(1)                                          18621000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18622000
+     *            N1X,N2X,NS,LX,LY,LB                                   18623000
+      IF(MT.LE.0) GO TO 20                                              18624000
+      CALL CXFP(C1,F1,S1,J1)                                            18625000
+      CALL CXFP(C2,F2,S2,J2)                                            18626000
+      WRITE(NT, 10 )F1,S1,J1,F2,S2,J2,L1,L2,N1,N2,MAT,MF,MT,NS          18627000
+   10 FORMAT(2(F8.5,A1,I2),4I11,I4,I2,I3,I5)                            18628000
+      GO TO 40                                                          18629000
+   20 WRITE(NT, 30 )MAT,MF,MT,NS                                        18630000
+   30 FORMAT(66X,I4,I2,I3,I5)                                           18631000
+   40 NS=NS+1                                                           18632000
+      RETURN                                                            18633000
+      END                                                               18634000
+      SUBROUTINE PUHOL(NT,X,Y,B)                                        18635000
+C=====PUNCH HOLLERITH LIST RECORD=======================================18636000
+C      **************************************************               18637000
+C       DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI)                   18638000
+C      **************************************************               18639000
+      DIMENSION X(1),Y(1),B(1)                                          18640000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18641000
+     *            N1X,N2X,NS,LX,LY,LB                                   18642000
+      DIMENSION F(6),S(6),J(6)                                          18643000
+      NCD=N1/17                                                         18644000
+      CALL CXFP(C1,F(1),S(1),J(1))                                      18645000
+      CALL CXFP(C2,F(2),S(2),J(2))                                      18646000
+      WRITE(NT, 10 ) F(1),S(1),J(1),F(2),S(2),J(2),L1,L2,NCD,N2,MAT,MF,M18647000
+     *T,NS                                                              18648000
+   10 FORMAT(2(F8.5,A1,I2),4I11,I4,I2,I3,I5)                            18649000
+      NS=NS+1                                                           18650000
+      NI=1                                                              18651000
+      DO 30 NC=1,NCD                                                    18652000
+      NF=NI+16                                                          18653000
+      WRITE(NT, 20 ) (B(N),N=NI,NF),MAT,MF,MT,NS                        18654000
+   20 FORMAT(16A4,A2,I4,I2,I3,I5)                                       18655000
+      NS=NS+1                                                           18656000
+   30 NI=NI+17                                                          18657000
+      RETURN                                                            18658000
+      END                                                               18659000
+      SUBROUTINE PULIST(NT,X,Y,B)                                       18660000
+C=====PUNCH LIST TYPE RECORD============================================18661000
+C      **************************************************               18662000
+C       DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI)                   18663000
+C      **************************************************               18664000
+      DIMENSION X(1),Y(1),B(1)                                          18665000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18666000
+     *            N1X,N2X,NS,LX,LY,LB                                   18667000
+      DIMENSION F(6),S(6),J(6)                                          18668000
+      CALL CXFP(C1,F(1),S(1),J(1))                                      18669000
+      CALL CXFP(C2,F(2),S(2),J(2))                                      18670000
+      WRITE(NT, 10 )F(1),S(1),J(1),F(2),S(2),J(2),L1,L2,N1,N2,MAT,MF,MT,18671000
+     *NS                                                                18672000
+   10 FORMAT(2(F8.5,A1,I2),4I11,I4,I2,I3,I5)                            18673000
+      NS=NS+1                                                           18674000
+      NI=1                                                              18675000
+   20 NE=N1-NI+1                                                        18676000
+      KX=6                                                              18677000
+      IF(NE-6) 30 , 40 , 40                                             18678000
+   30 KX=NE                                                             18679000
+   40 DO 50 K=1,KX                                                      18680000
+      N=NI+K-1                                                          18681000
+   50 CALL CXFP(B(N),F(K),S(K),J(K))                                    18682000
+      IF(NE-6) 90 , 60 , 60                                             18683000
+   60 WRITE(NT, 70 )(F(K),S(K),J(K),K=1,6),MAT,MF,MT,NS                 18684000
+   70 FORMAT(6(F8.5,A1,I2),I4,I2,I3,I5)                                 18685000
+      NS=NS+1                                                           18686000
+      IF(NE-6) 210 , 210 , 80                                           18687000
+   80 NI=NI+6                                                           18688000
+      GO TO 20                                                          18689000
+   90 GO TO ( 100 , 120 , 140 , 160 , 180 ),NE                          18690000
+  100 WRITE(NT, 110 )(F(K),S(K),J(K),K=1,1),MAT,MF,MT,NS                18691000
+  110 FORMAT(1(F8.5,A1,I2),55X,I4,I2,I3,I5)                             18692000
+      GO TO 200                                                         18693000
+  120 WRITE(NT, 130 )(F(K),S(K),J(K),K=1,2),MAT,MF,MT,NS                18694000
+  130 FORMAT(2(F8.5,A1,I2),44X,I4,I2,I3,I5)                             18695000
+      GO TO 200                                                         18696000
+  140 WRITE(NT, 150 )(F(K),S(K),J(K),K=1,3),MAT,MF,MT,NS                18697000
+  150 FORMAT(3(F8.5,A1,I2),33X,I4,I2,I3,I5)                             18698000
+      GO TO 200                                                         18699000
+  160 WRITE(NT, 170 )(F(K),S(K),J(K),K=1,4),MAT,MF,MT,NS                18700000
+  170 FORMAT(4(F8.5,A1,I2),22X,I4,I2,I3,I5)                             18701000
+      GO TO 200                                                         18702000
+  180 WRITE(NT, 190 )(F(K),S(K),J(K),K=1,5),MAT,MF,MT,NS                18703000
+  190 FORMAT(5(F8.5,A1,I2),11X,I4,I2,I3,I5)                             18704000
+  200 NS=NS+1                                                           18705000
+  210 RETURN                                                            18706000
+      END                                                               18707000
+      SUBROUTINE PUTAB1(NT,X,Y,B)                                       18708000
+C=====PUNCH TAB1 TYPE RECORD ===========================================18709000
+C      **************************************************               18710000
+C       DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI)                   18711000
+C      **************************************************               18712000
+      DIMENSION X(1),Y(1),B(1)                                          18713000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18714000
+     *            N1X,N2X,NS,LX,LY,LB                                   18715000
+      DIMENSION F(6),S(6),J(6)                                          18716000
+      NR=N1                                                             18717000
+      NP=N2                                                             18718000
+      CALL CXFP(C1,F(1),S(1),J(1))                                      18719000
+      CALL CXFP(C2,F(2),S(2),J(2))                                      18720000
+      WRITE(NT, 10 )F(1),S(1),J(1),F(2),S(2),J(2),L1,L2,NR,NP,MAT,MF,MT,18721000
+     *NS                                                                18722000
+   10 FORMAT(F8.5,A1,I2,F8.5,A1,I2,4I11,I4,I2,I3,I5)                    18723000
+      NS=NS+1                                                           18724000
+      NI=1                                                              18725000
+      NF=3                                                              18726000
+   20 IF(NF-NR) 30 , 30 , 60                                            18727000
+   30 WRITE(NT, 40 )(NBT(N),JNT(N),N=NI,NF),MAT,MF,MT,NS                18728000
+   40 FORMAT(6I11,I4,I2,I3,I5)                                          18729000
+      NS=NS+1                                                           18730000
+      IF(NF-NR) 50 , 120 , 120                                          18731000
+   50 NI=NI+3                                                           18732000
+      NF=NI+2                                                           18733000
+      GO TO 20                                                          18734000
+   60 IF(NF-NR-1) 120 , 90 , 70                                         18735000
+   70 WRITE(NT, 80 )(NBT(N),JNT(N),N=NI,NR),MAT,MF,MT,NS                18736000
+   80 FORMAT(2I11,44X,I4,I2,I3,I5)                                      18737000
+      GO TO 110                                                         18738000
+   90 WRITE(NT, 100 ) (NBT(N),JNT(N),N=NI,NR),MAT,MF,MT,NS              18739000
+  100 FORMAT(4I11,22X,I4,I2,I3,I5)                                      18740000
+  110 NS=NS+1                                                           18741000
+  120 NI=1                                                              18742000
+      NF=3                                                              18743000
+  130 IF(NF-NP) 140 , 140 , 180                                         18744000
+  140 DO 150 K=1,6,2                                                    18745000
+      N=NI+K/2                                                          18746000
+      CALL CXFP(X(N),F(K),S(K),J(K))                                    18747000
+  150 CALL CXFP(Y(N),F(K+1),S(K+1),J(K+1))                              18748000
+      WRITE(NT, 160 )(F(K),S(K),J(K),K=1,6),MAT,MF,MT,NS                18749000
+  160 FORMAT(6(F8.5,A1,I2),I4,I2,I3,I5)                                 18750000
+      NS=NS+1                                                           18751000
+      IF(NF-NP) 170 , 250 , 250                                         18752000
+  170 NI=NI+3                                                           18753000
+      NF=NI+2                                                           18754000
+      GO TO 130                                                         18755000
+  180 IF(NF-NP-1) 250 , 210 , 190                                       18756000
+  190 CALL CXFP(X(NI),F(1),S(1),J(1))                                   18757000
+      CALL CXFP(Y(NI),F(2),S(2),J(2))                                   18758000
+      WRITE(NT, 200 )(F(K),S(K),J(K),K=1,2),MAT,MF,MT,NS                18759000
+  200 FORMAT(2(F8.5,A1,I2),44X,I4,I2,I3,I5)                             18760000
+      GO TO 240                                                         18761000
+  210 DO 220 K=1,4,2                                                    18762000
+      N=NI+K/2                                                          18763000
+      CALL CXFP(X(N),F(K),S(K),J(K))                                    18764000
+  220 CALL CXFP(Y(N),F(K+1),S(K+1),J(K+1))                              18765000
+      WRITE(NT, 230 )(F(K),S(K),J(K),K=1,4),MAT,MF,MT,NS                18766000
+  230 FORMAT(4(F8.5,A1,I2),22X,I4,I2,I3,I5)                             18767000
+  240 NS=NS+1                                                           18768000
+  250 CONTINUE                                                          18769000
+      RETURN                                                            18770000
+      END                                                               18771000
+      SUBROUTINE PUTAB2(NT,X,Y,B)                                       18772000
+C=====PUNCH TAB2 TYPE RECORD ===========================================18773000
+C      **************************************************               18774000
+C       DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI)                   18775000
+C      **************************************************               18776000
+      DIMENSION X(1),Y(1),B(1)                                          18777000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18778000
+     *            N1X,N2X,NS,LX,LY,LB                                   18779000
+      DIMENSION F(6),S(6),J(6)                                          18780000
+      NR=N1                                                             18781000
+      NP=N2                                                             18782000
+      CALL CXFP(C1,F(1),S(1),J(1))                                      18783000
+      CALL CXFP(C2,F(2),S(2),J(2))                                      18784000
+      WRITE(NT, 10 )F(1),S(1),J(1),F(2),S(2),J(2),L1,L2,NR,NP,MAT,MF,MT,18785000
+     *NS                                                                18786000
+   10 FORMAT(F8.5,A1,I2,F8.5,A1,I2,4I11,I4,I2,I3,I5)                    18787000
+      NS=NS+1                                                           18788000
+      NI=1                                                              18789000
+      NF=3                                                              18790000
+   20 IF(NF-NR) 30 , 30 , 60                                            18791000
+   30 WRITE(NT, 40 )(NBT(N),JNT(N),N=NI,NF),MAT,MF,MT,NS                18792000
+   40 FORMAT(6I11,I4,I2,I3,I5)                                          18793000
+      NS=NS+1                                                           18794000
+      IF(NF-NR) 50 , 120 , 120                                          18795000
+   50 NI=NI+3                                                           18796000
+      NF=NI+2                                                           18797000
+      GO TO 20                                                          18798000
+   60 IF(NF-NR-1) 120 , 90 , 70                                         18799000
+   70 WRITE(NT, 80 )(NBT(N),JNT(N),N=NI,NR),MAT,MF,MT,NS                18800000
+   80 FORMAT(2I11,44X,I4,I2,I3,I5)                                      18801000
+      GO TO 110                                                         18802000
+   90 WRITE(NT, 100 ) (NBT(N),JNT(N),N=NI,NR),MAT,MF,MT,NS              18803000
+  100 FORMAT(4I11,22X,I4,I2,I3,I5)                                      18804000
+  110 NS=NS+1                                                           18805000
+  120 RETURN                                                            18806000
+      END                                                               18807000
+      SUBROUTINE PUTPID(NT,X,Y,B)                                       18808000
+C=====PUNCH TPID RECORD ================================================18809000
+C      **************************************************               18810000
+C       DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI)                   18811000
+C      **************************************************               18812000
+      DIMENSION X(1),Y(1),B(1)                                          18813000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18814000
+     *            N1X,N2X,NS,LX,LY,LB                                   18815000
+      NZ=0                                                              18816000
+      WRITE (NT, 10 ) (B(N),N=1,17), MAT,NZ,NZ,NZ                       18817000
+   10 FORMAT(16A4,A2,I4,I2,I3,I5)                                       18818000
+      NS=NS+1                                                           18819000
+      RETURN                                                            18820000
+      END                                                               18821000
+      SUBROUTINE STORE(JT,MA,LOF)                                       18822000
+C     ****************************************************************  18823000
+C=====STORE RECORD IN DENSE STORAGE=====================================18824000
+C     JT = RECORD TYPE, 1-CONT, 2-LIST, 3-TAB1, 4-TAB2, 5-HOL, 6-TPID   18825000
+C     MA = IDENT OF RECORD TO BE STORED. IF A RECORD WITH               18826000
+C          THE SAME IDENT IS ALREADY STORED, IT IS DELETED.             18827000
+C     LOF= OVERFLOW INDICATOR NORMALLY ZERO. IF LOF=1, RECORD           18828000
+C          WILL NOT FIT.                                                18829000
+C-----ERROR STOP 300, JT NOT IN RANGE 1-6                               18830000
+C     ERROR STOP 301, MA=0 NOT ALLOWED                                  18831000
+      COMMON MAXA,A(1)                                                  18832000
+      COMMON/DENS/LJMT,LJAT,LJTT,LJLT,LARRAY,JNS,MNS,JX,MX              18833000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18834000
+     1            N1X,N2X,NS,LX,LY,LB                                   18835000
+      CALL DYSTOR(A(LJMT),A(LJAT),A(LJTT),A(LJLT),A(LARRAY),A(LARRAY),  18836000
+     1            A(LX),A(LY),A(LB),                                    18837000
+     2            JT,MA,LOF)                                            18838000
+      RETURN                                                            18839000
+       END                                                              18840000
+      SUBROUTINE DYSTOR(JMT,JAT,JTT,JLT,A,LA,X,Y,B,JT,MA,LOF)           18841000
+C     ******************************************************            18842000
+      DIMENSION JMT(1),JAT(1),JTT(1),JLT(1),A(1),LA(1)                  18843000
+      COMMON/DENS/LJMT,LJAT,LJTT,LJLT,LARRAY,JNS,MNS,JX,MX              18844000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18845000
+     1            N1X,N2X,NS,LX,LY,LB                                   18846000
+      DIMENSION X(1),Y(1),B(1)                                          18847000
+C-----INITIALIZE ANT TEST JT AND MA                                     18848000
+  100 LOF=0                                                             18849000
+      IF(MA)114,112,114                                                 18850000
+  112 CALL ERRORE(6HDENSST,301)                                         18851000
+  114 IF((JT.LT.1).OR.(JT.GT.6))CALL ERRORE(6HDENSST,300)               18852000
+C-----TEST FOR RECORD WITH SAME IDENT                                   18853000
+  110 IF(MNS.LE.1)GOTO130                                               18854000
+      MNSP=MNS-1                                                        18855000
+      DO120M=1,MNSP                                                     18856000
+      IF(JMT(M).EQ.MA)CALL DELETE(MA)                                   18857000
+  120 CONTINUE                                                          18858000
+      IF(MNS.GT.MX)GOTO320                                              18859000
+C-----TEST FOR TOO MANY VALUES                                          18860000
+  130 GOTO(140,150,160,170,150,180),JT                                  18861000
+  140 JL=9                                                              18862000
+      GOTO190                                                           18863000
+  150 JL=9+N1                                                           18864000
+      GOTO190                                                           18865000
+  160 JL=9+2*(N1+N2)                                                    18866000
+      GOTO190                                                           18867000
+  170 JL=9+2*N1                                                         18868000
+      GOTO190                                                           18869000
+  180 JL=20                                                             18870000
+  190 IF((JNS+JL-1).GT.JX)GOTO320                                       18871000
+C-----MOVE FIRST 9 WORDS                                                18872000
+  200 LA(JNS)=MAT                                                       18873000
+      LA(JNS+1)=MF                                                      18874000
+      LA(JNS+2)=MT                                                      18875000
+      A(JNS+3)=C1                                                       18876000
+      A(JNS+4)=C2                                                       18877000
+      LA(JNS+5)=L1                                                      18878000
+      LA(JNS+6)=L2                                                      18879000
+      LA(JNS+7)=N1                                                      18880000
+      LA(JNS+8)=N2                                                      18881000
+C-----MOVE REST OF RECORD                                               18882000
+  210 GOTO(310,220,240,270,220,290),JT                                  18883000
+  220 DO230N=1,N1                                                       18884000
+      J=JNS+8+N                                                         18885000
+  230 A(J)=B(N)                                                         18886000
+      GOTO310                                                           18887000
+  240 DO250N=1,N1                                                       18888000
+      J=JNS+7+2*N                                                       18889000
+      LA(J)=NBT(N)                                                      18890000
+  250 LA(J+1)=JNT(N)                                                    18891000
+      JP=JNS+7+2*N1                                                     18892000
+      DO260N=1,N2                                                       18893000
+      J=JP+2*N                                                          18894000
+      A(J)=X(N)                                                         18895000
+  260 A(J+1)=Y(N)                                                       18896000
+      GOTO310                                                           18897000
+  270 DO280N=1,N1                                                       18898000
+      J=JNS+7+2*N                                                       18899000
+      LA(J)=NBT(N)                                                      18900000
+  280 LA(J+1)=JNT(N)                                                    18901000
+      GOTO310                                                           18902000
+  290 DO300N=1,17                                                       18903000
+      J=JNS+2+N                                                         18904000
+  300 A(J)=B(N)                                                         18905000
+C-----UPDATE TABLES AND COUNTERS                                        18906000
+  310 JMT(MNS)=MA                                                       18907000
+      JTT(MNS)=JT                                                       18908000
+      JAT(MNS)=JNS                                                      18909000
+      JLT(MNS)=JL                                                       18910000
+      MNS=MNS+1                                                         18911000
+      JNS=JNS+JL                                                        18912000
+      GOTO400                                                           18913000
+C-----OVERFLOW                                                          18914000
+  320 LOF=1                                                             18915000
+C-----FINISHED                                                          18916000
+  400 RETURN                                                            18917000
+      END                                                               18918000
+      SUBROUTINE TERP2(XP,YP,NX)                                        18919000
+C     **************************************                            18920000
+C                                                                       18921000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18922000
+     *            N1X,N2X,NS,LX,LY,LB                                   18923000
+         DIMENSION XP(NX),YP(NX)                                        18924000
+      COMMON MAXA,A(1)                                                  18925000
+C-----                                                                  18926000
+      CALL DTERP2(XP,YP,NX,A(LX),A(LY),A(LB))                           18927000
+      RETURN                                                            18928000
+       END                                                              18929000
+       SUBROUTINE DTERP2(XP,YP,NX,X,Y,B)                                18930000
+C      *************************************                            18931000
+C        DYNAMIC ALLOCATION VERSION OF TERP2 FROM SLAVE3                18932000
+C      **************************************************               18933000
+C                                                                       18934000
+C=====FORM A NEW TABLE BY INTERPOLATION=================================18935000
+C     XP(N),N=1,NX IS THE TABLE OF X AT WHICH Y IS WANTED               18936000
+C     YP(N),N=1,NX IS THE TABLE OF Y TO BE COMPUTED BY                  18937000
+C                  INTERPOLATION IN THE TAB1 RECORD IN /RECS/           18938000
+C     DISCONTINUITIES ARE TREATED PROPERLY                              18939000
+C-----ERROR STOP 130, X NOT IN INCREASING ORDER                         18940000
+C     ERROR STOP 131, XP NOT IN INCREASING ORDER                        18941000
+C-----ERROR STOP 132, INTERPOLATION TABLE INCORRECT                     18942000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18943000
+     *            N1X,N2X,NS,LX,LY,LB                                   18944000
+      DIMENSION XP(1),YP(1),X(1),Y(1),B(1)                              18945000
+      NST=1                                                             18946000
+      NSTP=1                                                            18947000
+      DO 210 M=1,NX                                                     18948000
+      XA=XP(M)                                                          18949000
+      IF(XA-X(1)) 10 , 20 , 20                                          18950000
+   10 YP(M)=0.0                                                         18951000
+      GOTO 210                                                          18952000
+   20 DO 30 N=NST,N2                                                    18953000
+      NSTP=N                                                            18954000
+      NA=N                                                              18955000
+      IF(XA-X(N)) 160 , 40 , 30                                         18956000
+   30 CONTINUE                                                          18957000
+      GOTO 10                                                           18958000
+   40 IF(NA-N2) 50 , 150 , 150                                          18959000
+   50 IF(X(NA)-X(NA+1)) 150 , 70 , 60                                   18960000
+   60 CALL ERRORE(8H TERP2   ,130)                                      18961000
+   70 IF(M-1) 140 , 140 , 80                                            18962000
+   80 IF(XP(M-1)-XP(M)) 110 , 100 , 90                                  18963000
+   90 CALL ERRORE(8H TERP2   ,131)                                      18964000
+  100 NA=NA+1                                                           18965000
+      GOTO 150                                                          18966000
+  110 IF(M-NX) 120 , 150 , 150                                          18967000
+  120 IF(XP(M)-XP(M+1)) 130 , 150 , 90                                  18968000
+  130 YP(M)=0.5*(Y(NA)+Y(NA+1))                                         18969000
+      GOTO 210                                                          18970000
+  140 IF(XP(M)-XP(M+1)) 100 , 150 , 90                                  18971000
+  150 YP(M)=Y(NA)                                                       18972000
+      GOTO 210                                                          18973000
+  160 K=1                                                               18974000
+  170 IF(NA-NBT(K)) 200 , 200 , 180                                     18975000
+  180 K=K+1                                                             18976000
+      IF(K-N1) 170 , 170 , 190                                          18977000
+  190 CALL ERRORE(8H TERP2  ,132)                                       18978000
+  200 I=JNT(K)                                                          18979000
+      CALL TERP1(X(NA-1),Y(NA-1),X(NA),Y(NA),XA,YP(M),I)                18980000
+  210 NST=NSTP                                                          18981000
+      RETURN                                                            18982000
+      END                                                               18983000
+      SUBROUTINE GRATE(XLP,XHP,ANS)                                     18984000
+C     ********************************************************8         18985000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        18986000
+     *            N1X,N2X,NS,LX,LY,LB                                   18987000
+      COMMON MAXA,A(1)                                                  18988000
+C-----                                                                  18989000
+      CALL DGRATE(XLP,XHP,ANS,A(LX),A(LY),A(LB))                        18990000
+      RETURN                                                            18991000
+       END                                                              18992000
+      SUBROUTINE DGRATE(XLP,XHP,ANS,X,Y,B)                              18993000
+C     ********************************************************8         18994000
+C=====INTEGRATE TAB1 FUNCTION===========================================18995000
+C     THE TAB1 FUNCTION IS IN COMMON/RECS/                              18996000
+C     XLP AND XHP ARE THE INTEGRATION LIMITS                            18997000
+C     ANS IS THE ANSWER                                                 18998000
+C-----ERROR STOP 315, INTERPOLATION TABLE INCORRECT                     18999000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        19000000
+     *            N1X,N5X,NS,LX,LY,LB                                   19001000
+      DIMENSION X(1),Y(1),B(1)                                          19002000
+C-----SWITCH LIMITS IF NECESSARY AND INITIALIZE                         19003000
+      ANS=0.0                                                           19004000
+      XL=XLP                                                            19005000
+      XH=XHP                                                            19006000
+      IF(XL-XH) 20 , 250 , 10                                           19007000
+   10 XL=XHP                                                            19008000
+      XH=XLP                                                            19009000
+C-----LOCATE XL IN TABLE, XL GTHN OR EQUAL TO X(NL)                     19010000
+   20 IF(XL-X(1)) 30 , 40 , 40                                          19011000
+   30 XL=X(1)                                                           19012000
+      IF(XH-XL) 250 , 250 , 40                                          19013000
+   40 DO 50 N=1,N2                                                      19014000
+      NL=N-1                                                            19015000
+      IF(XL-X(N)) 60 , 50 , 50                                          19016000
+   50 CONTINUE                                                          19017000
+      GO TO 250                                                         19018000
+C-----LOCATE XH IN TABLE, XH GTHN X(NH)                                 19019000
+   60 IF(XH-X(N2)) 80 , 80 , 70                                         19020000
+   70 XH=X(N2)                                                          19021000
+      NH=N2-1                                                           19022000
+      GO TO 100                                                         19023000
+   80 DO 90 N=NL,N2                                                     19024000
+      NH=N-1                                                            19025000
+      IF(XH-X(N)) 100 , 100 , 90                                        19026000
+   90 CONTINUE                                                          19027000
+C-----FIND STARTING INTERPOLATION CODE                                  19028000
+  100 M=1                                                               19029000
+  110 IF(NL+1-NBT(M)) 140 , 140 , 120                                   19030000
+  120 M=M+1                                                             19031000
+      IF(M-N1) 110 , 110 , 130                                          19032000
+  130 CALL ERRORE(8H GRATE   ,315)                                      19033000
+  140 I=JNT(M)                                                          19034000
+C=====SUM OVER PANELS                                                   19035000
+      IF(NH-NL) 150 , 150 , 160                                         19036000
+C-----ONLY ONE PANEL                                                    19037000
+  150 CALL ECSI(X(NL),Y(NL),X(NL+1),Y(NL+1),XL,XH,I,ANS)                19038000
+      GO TO 230                                                         19039000
+C-----DO FIRST PANEL                                                    19040000
+  160 CALL ECSI(X(NL),Y(NL),X(NL+1),Y(NL+1),XL,X(NL+1),I,ANS)           19041000
+      N=NL                                                              19042000
+C-----DO INTERMEDIATE PANELS                                            19043000
+  170 N=N+1                                                             19044000
+  180 IF(N+1-NBT(M)) 200 , 200 , 190                                    19045000
+  190 M=M+1                                                             19046000
+      IF(M-N1) 180 , 180 , 130                                          19047000
+  200 I=JNT(M)                                                          19048000
+      IF(N-NH) 210 , 220 , 220                                          19049000
+  210 CALL ECSI(X(N),Y(N),X(N+1),Y(N+1),X(N),X(N+1),I,AN)               19050000
+      ANS=ANS+AN                                                        19051000
+      GO TO 170                                                         19052000
+C-----DO LAST PANEL                                                     19053000
+  220 CALL ECSI(X(N),Y(N),X(N+1),Y(N+1),X(N),XH,I,AN)                   19054000
+      ANS=ANS+AN                                                        19055000
+C=====FINISHED                                                          19056000
+  230 IF(XLP-XHP) 250 , 250 , 240                                       19057000
+  240 ANS=-ANS                                                          19058000
+  250 RETURN                                                            19059000
+      END                                                               19060000
+      SUBROUTINE ECSI(X3,Y3,X4,Y4,X1,X2,I,ANS)                          19061000
+C     ******************************************                        19062000
+C=====COMPUT INTEGRAL OF Y(X)===========================================19063000
+C     Y(X) DEFINED BY THE END POINTS (X3,Y3), (X4,Y4), AND THE          19064000
+C     INTERPOLATION CODE I. X1 AND X2 ARE THE INTEGRATION LIMITS.       19065000
+C-----ERROR STOP                                                        19066000
+C     110 INTERPOLATION CODE OUT OF RANGE                               19067000
+C     X1 AND X2 MAY LIE OUTSIDE X3 AND X4                               19068000
+      ANS=0.0                                                           19069000
+      IF(X4-X3) 160 , 160 , 10                                          19070000
+   10 IP=I                                                              19071000
+      IF(IP) 20 , 20 , 30                                               19072000
+   20 CALL ERRORE(8H ECSI     ,110)                                     19073000
+   30 IF(IP-5) 40 , 40 , 20                                             19074000
+   40 GOTO( 50 , 60 , 70 , 100 , 130 ),IP                               19075000
+C-----Y CONSTANT                                                        19076000
+   50 ANS=(X2-X1)*Y3                                                    19077000
+      GO TO 160                                                         19078000
+C-----Y LINEAR IN X                                                     19079000
+   60 B=(Y4-Y3)/(X4-X3)                                                 19080000
+      A=Y3-B*X3                                                         19081000
+      ANS=(X2-X1)*(A+0.5*B*(X2+X1))                                     19082000
+      GO TO 160                                                         19083000
+C-----Y LINEAR IN LN(X)                                                 19084000
+   70 IF((X3.LE.0.0).OR.(X4.LE.0.0)) GO TO 60                           19085000
+      B=(Y4-Y3)/ALOG(X4/X3)                                             19086000
+      Z=(X2-X1)/X1                                                      19087000
+      IF(ABS(Z)-0.15) 80 , 80 , 90                                      19088000
+   80 ANS=(X2-X1)*(Y3+B*ALOG(X1/X3))+(0.5*B*X1*Z*Z)*                    19089000
+     *(1.0+Z*(-0.3333333+Z*(0.16666667-0.1*Z)))                         19090000
+      GO TO 160                                                         19091000
+   90 ANS=(X2-X1)*(Y3+B*ALOG(X1/X3))+B*X1*                              19092000
+     *(1.0+(X2/X1)*(ALOG(X2/X1)-1.0))                                   19093000
+      GO TO 160                                                         19094000
+C-----LN(Y) LINEAR IN X                                                 19095000
+  100 IF((Y3.LE.0.0).OR.(Y4.LE.0.0))GO TO 60                            19096000
+      B=ALOG(Y4/Y3)/(X4-X3)                                             19097000
+      A=ALOG(Y3)-B*X3                                                   19098000
+      Z=(X2-X1)*B                                                       19099000
+      IF(ABS(Z)-0.1) 110 , 110 , 120                                    19100000
+  110 ANS=EXP(A+B*X1)*(X2-X1)*(1.0+Z*(0.5+0.16666667*Z))                19101000
+      GO TO 160                                                         19102000
+  120 ANS=EXP(A+B*X1)*(EXP(Z)-1.0)/B                                    19103000
+      GO TO 160                                                         19104000
+C-----LN(Y) LINEAR IN LN(X)                                             19105000
+  130 IF((X3.LE.0.0).OR.(X4.LE.0.0)) GO TO 100                          19106000
+      IF((Y3.LE.0.0).OR.(Y4.LE.0.0))GO TO 70                            19107000
+      B=ALOG(Y4/Y3)/ALOG(X4/X3)                                         19108000
+      Z=(B+1.0)*ALOG(X2/X1)                                             19109000
+      IF(ABS(Z)-0.1) 140 , 140 , 150                                    19110000
+  140 ANS=Y3*X1*((X1/X3)**B)*ALOG(X2/X1)*(1.+Z*(0.5+0.16666667*Z))      19111000
+      GO TO 160                                                         19112000
+  150 ANS=Y3*X1*((X1/X3)**B)*(((X2/X1)**(B+1.0))-1.0)/(B+1.0)           19113000
+      GO TO 160                                                         19114000
+C-----FINISHED                                                          19115000
+  160 RETURN                                                            19116000
+      END                                                               19117000
+      SUBROUTINE CROP(XL,XH,EPS,LOF)                                    19118000
+C      **************************************************               19119000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        19120000
+     *            N1X,N2X,NS,LX,LY,LB                                   19121000
+      COMMON MAXA,A(1)                                                  19122000
+C-----                                                                  19123000
+      CALL DYCROP(XL,XH,EPS,LOF,A(LX),A(LY),A(LB))                      19124000
+      RETURN                                                            19125000
+       END                                                              19126000
+      SUBROUTINE DYCROP(XL,XH,EPS,LOF,X,Y,B)                            19127000
+C      **************************************************               19128000
+C       DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI)                   19129000
+C      **************************************************               19130000
+      DIMENSION X(5),Y(5),B(5)                                          19131000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        19132000
+     *            N1X,N2X,NS,LX,LY,LB                                   19133000
+C=====CROP A TAB1 RECORD================================================19134000
+C     A TAB1 RECORD IN /RECS/ IS CROPPED AND ONLY THE PORTION           19135000
+C     BETWEEN X=XL AND X=XH IS RETAINED.  PORTIONS OF THE RANGE         19136000
+C     NOT DEFINED BY THE  ORIGINAL TAB1 RECORD ARE SET TO ZERO.         19137000
+C     UNNECESSARY POINTS ARE ELIMINATED IF THEY CAN BE                  19138000
+C     PREDICTED BY INTERPOLATION BETWEEN ADJACENT POINTS TO             19139000
+C     RELATIVE ACCURACY OF EPS.                                         19140000
+C     LOF=0, NORMAL RETURN                                              19141000
+C        =1, RECORD TOO LARGE, REPEAT WITH LARGER EPS.                  19142000
+C-----ERROR STOP 312, TAB1 RECORD INCORRECT                             19143000
+C     ERROR STOP 313, NBT, JNT TABLES TOO LARGE                         19144000
+C     COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(100),JNT(100),        19145000
+C    *            X(5000),Y(5000),B(5000),N1X,N2X,NS                    19146000
+      LOF=0                                                             19147000
+C-----CROP UPPER END                                                    19148000
+      IF(X(N2).LE.XH)GOTO 50                                            19149000
+      DO 10 N=1,N2                                                      19150000
+      NP=N                                                              19151000
+      IF(X(N).GE.XH)GOTO 20                                             19152000
+   10 CONTINUE                                                          19153000
+   20 IF(NP.LE.1)GOTO 140                                               19154000
+      DO 30 M=1,N1                                                      19155000
+      MP=M                                                              19156000
+      IF(NP.LE.NBT(M))GOTO 40                                           19157000
+   30 CONTINUE                                                          19158000
+      CALL ERRORE(8HSLAVE3    ,312)                                     19159000
+   40 I=JNT(MP)                                                         19160000
+      CALL TERP1(X(NP-1),Y(NP-1),X(NP),Y(NP),XH,YP,I)                   19161000
+      X(NP)=XH                                                          19162000
+      Y(NP)=YP                                                          19163000
+      N2=NP                                                             19164000
+      N1=MP                                                             19165000
+C-----CROP LOWER END                                                    19166000
+   50 IF(X(1).GE.XL)GOTO 150                                            19167000
+      DO 60 N=1,N2                                                      19168000
+      NP=N                                                              19169000
+      IF(X(N).GT.XL)GOTO 70                                             19170000
+   60 CONTINUE                                                          19171000
+      GOTO 140                                                          19172000
+   70 DO 80 M=1,N1                                                      19173000
+      MP=M                                                              19174000
+      IF(NP.LE.NBT(M))GOTO 90                                           19175000
+   80 CONTINUE                                                          19176000
+      CALL ERRORE(8HSLAVE3     ,312)                                    19177000
+   90 I=JNT(MP)                                                         19178000
+      CALL TERP1(X(NP-1),Y(NP-1),X(NP),Y(NP),XL,YP,I)                   19179000
+      X(NP-1)=XL                                                        19180000
+      Y(NP-1)=YP                                                        19181000
+      ND=NP-2                                                           19182000
+      IF(ND.LE.0)GOTO 150                                               19183000
+      N2=N2-ND                                                          19184000
+      DO 100 N=1,N2                                                     19185000
+      K=N+ND                                                            19186000
+      X(N)=X(K)                                                         19187000
+  100 Y(N)=Y(K)                                                         19188000
+      DO 110 M=1,N1                                                     19189000
+  110 NBT(M)=NBT(M)-ND                                                  19190000
+      ND=MP-1                                                           19191000
+      IF(ND.LE.0)GOTO 130                                               19192000
+      N1=N1-ND                                                          19193000
+      DO 120 M=1,N1                                                     19194000
+      K=M+ND                                                            19195000
+      NBT(M)=NBT(K)                                                     19196000
+  120 JNT(M)=JNT(K)                                                     19197000
+  130 GOTO 150                                                          19198000
+C-----ENTIRE RANGE ZERO                                                 19199000
+  140 X(1)=XL                                                           19200000
+      Y(1)=0.0                                                          19201000
+      X(2)=XH                                                           19202000
+      Y(2)=0.0                                                          19203000
+      N2=2                                                              19204000
+      NBT(1)=2                                                          19205000
+      JNT(1)=2                                                          19206000
+      N1=1                                                              19207000
+      GOTO 300                                                          19208000
+C-----ELIMINATE UNNECESSARY POINTS                                      19209000
+  150 IF(EPS.LE.0.0)GOTO 210                                            19210000
+      IF(N2.LE.2)GOTO 210                                               19211000
+      M=1                                                               19212000
+      N=2                                                               19213000
+  160 IF(N.LE.NBT(M))GOTO 170                                           19214000
+      M=M+1                                                             19215000
+      IF(M.LE.N1)GOTO 160                                               19216000
+      CALL ERRORE(8HSLAVE3    ,312)                                     19217000
+  170 I=JNT(M)                                                          19218000
+      IF(N+1.GT.NBT(M))GOTO 200                                         19219000
+      IF(ABS(Y(N)).LE.1.0E-10)GOTO 200                                  19220000
+      CALL TERP1(X(N-1),Y(N-1),X(N+1),Y(N+1),X(N),YP,I)                 19221000
+      IF(ABS((Y(N)-YP)/Y(N)).GT.EPS)GOTO 200                            19222000
+      NP=N+1                                                            19223000
+      DO 180 K=NP,N2                                                    19224000
+      X(K-1)=X(K)                                                       19225000
+  180 Y(K-1)=Y(K)                                                       19226000
+      N2=N2-1                                                           19227000
+      DO 190 K=M,N1                                                     19228000
+  190 NBT(K)=NBT(K)-1                                                   19229000
+      IF(N.GE.N2) GO TO 210                                             19230000
+      GOTO 160                                                          19231000
+  200 N=N+1                                                             19232000
+      IF(N.LT.N2)GOTO 160                                               19233000
+C-----ADD ZEROS TO UPPER END                                            19234000
+  210 IF(X(N2).GE.XH)GOTO 240                                           19235000
+      IF(N2+2.GT.N2X)GOTO 290                                           19236000
+      X(N2+1)=X(N2)                                                     19237000
+      Y(N2+1)=0.0                                                       19238000
+      X(N2+2)=XH                                                        19239000
+      Y(N2+2)=0.0                                                       19240000
+      N2=N2+2                                                           19241000
+      IF(JNT(N1).NE.2)GOTO 220                                          19242000
+      NBT(N1)=N2                                                        19243000
+      GOTO 230                                                          19244000
+  220 IF(N1+1.GT.N1X)CALL ERRORE(8HSLAVE3   ,313)                       19245000
+      N1=N1+1                                                           19246000
+      NBT(N1)=N2                                                        19247000
+      JNT(N1)=2                                                         19248000
+  230 CONTINUE                                                          19249000
+C-----ADD ZEROS TO LOWER END                                            19250000
+  240 IF(X(1).LE.XL)GOTO 300                                            19251000
+      IF(N2+2.GT.N2X)GOTO 290                                           19252000
+      DO 250 N=1,N2                                                     19253000
+      K=N2-N+1                                                          19254000
+      X(K+2)=X(K)                                                       19255000
+  250 Y(K+2)=Y(K)                                                       19256000
+      X(1)=XL                                                           19257000
+      Y(1)=0.0                                                          19258000
+      X(2)=X(3)                                                         19259000
+      Y(2)=0.0                                                          19260000
+      N2=N2+2                                                           19261000
+      DO 260 M=1,N1                                                     19262000
+  260 NBT(M)=NBT(M)+2                                                   19263000
+      IF(JNT(1).EQ.2)GOTO 280                                           19264000
+      IF(N1+1.GT.N1X)CALL ERRORE(8HSLAVE3   ,313)                       19265000
+      DO 270 M=1,N1                                                     19266000
+      K=N1-M+1                                                          19267000
+      NBT(K+1)=NBT(K)                                                   19268000
+  270 JNT(K+1)=JNT(K)                                                   19269000
+      NBT(1)=3                                                          19270000
+      JNT(1)=2                                                          19271000
+      N1=N1+1                                                           19272000
+  280 GOTO 300                                                          19273000
+C-----OVERFLOW                                                          19274000
+  290 LOF=1                                                             19275000
+C-----FINISHED                                                          19276000
+  300 RETURN                                                            19277000
+      END                                                               19278000
+      SUBROUTINE GENT1(FUNC,CON,XL,XH,EPS,LOF)                          19279000
+C      **************************************************               19280000
+        EXTERNAL FUNC                                                   19281000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        19282000
+     *            N1X,N2X,NS,LX,LY,LB                                   19283000
+      COMMON MAXA,A(1)                                                  19284000
+      DIMENSION CON(2)                                                  19285000
+C-----                                                                  19286000
+      CALL DYGNT1(FUNC,CON,XL,XH,EPS,LOF,A(LX),A(LY),A(LB))             19287000
+      RETURN                                                            19288000
+       END                                                              19289000
+      SUBROUTINE DYGNT1(FUNC,CON,XL,XH,EPS,LOF,X,Y,B)                   19290000
+C      **************************************************               19291000
+C       DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI)                   19292000
+C      **************************************************               19293000
+      DIMENSION X(1),Y(1),B(1)                                          19294000
+      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200),        19295000
+     *            N1X,N2X,NS,LX,LY,LB                                   19296000
+C=====GENERATE TAB1 FOR AN ANALYTIC FUNCTION============================19297000
+C     FUNC IS THE NAME OF A FUNCTION SUBPROGRAM CALLED BY               19298000
+C          Y=FUNC(X,CON), WHERE CON(N) IS A LIST OF                     19299000
+C          AUXILLIARY CONSTANTS NEEDED TO EVALUATE THE FUNCTION.        19300000
+C     XL AND XH ARE THE LOWER AND UPPER LIMITS OF X TO BE USED.         19301000
+C     EPS IS A RELATIVE ERROR CRITERION.                                19302000
+C     LOF=0, NORMAL RETURN                                              19303000
+C        =1, TAB1 RECORD IS TOO LARGE                                   19304000
+C-----THE RESULTING TAB1 RECORD APPEARS IN COMMON/RECS/                 19305000
+C      COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(100),JNT(100),       19306000
+C     *            X(5000),Y(5000),B(5000),N1X,N2X,NS                   19307000
+      DIMENSION TX(9),TY(9),ICTA(5),ERTA(5),ICTB(5),ERTB(5),CON(2)      19308000
+      EXTERNAL FUNC                                                     19309000
+C=====INITIALIZE                                                        19310000
+      LOF=0                                                             19311000
+      NR=0                                                              19312000
+      NP=1                                                              19313000
+      X(1)=XL                                                           19314000
+      Y(1)=FUNC(XL,CON)                                                 19315000
+      TX(1)=X(1)                                                        19316000
+      TY(1)=Y(1)                                                        19317000
+      DEL=(XH-XL)/100.0                                                 19318000
+C-----SET UP STRING OF 4 MORE POINTS                                    19319000
+   10 DO 20 N=2,5                                                       19320000
+      TX(N)=TX(N-1)+DEL                                                 19321000
+   20 TY(N)=FUNC(TX(N),CON)                                             19322000
+   30 DO 40 IC=2,5                                                      19323000
+   40 ICTA(IC)=1                                                        19324000
+      K=5                                                               19325000
+C=====CONSIDER POINT K, TEST INTERMEDIATE VALUES                        19326000
+   50 DO 60 IC=2,5                                                      19327000
+      ICTB(IC)=ICTA(IC)                                                 19328000
+   60 ERTB(IC)=ERTA(IC)                                                 19329000
+      DO 80 N=1,K                                                       19330000
+      IF(TX(N).GT.0.0)GOTO 70                                           19331000
+      ICTA(3)=0                                                         19332000
+      ICTA(5)=0                                                         19333000
+   70 IF(TY(N).GT.0.0)GOTO 80                                           19334000
+      ICTA(4)=0                                                         19335000
+      ICTA(5)=0                                                         19336000
+   80 CONTINUE                                                          19337000
+      IPC=0                                                             19338000
+      KMO=K-1                                                           19339000
+      DO 110 IC=2,5                                                     19340000
+      IF(ICTA(IC).EQ.0)GOTO 110                                         19341000
+      ERX=0.0                                                           19342000
+      DO 100 N=2,KMO                                                    19343000
+      CALL TERP1(TX(1),TY(1),TX(K),TY(K),TX(N),TYP,IC)                  19344000
+      IF(TY(N).NE.0.0) GOTO 81                                          19345000
+        ERR=ABS(TYP-TY(N))                                              19346000
+      GOTO 82                                                           19347000
+ 81   ERR=ABS((TYP-TY(N))/TY(N))                                        19348000
+ 82   IF(ERR.LE.EPS)GOTO 90                                             19349000
+      ICTA(IC)=0                                                        19350000
+      GOTO 110                                                          19351000
+   90 IF(ERR.GT.ERX)ERX=ERR                                             19352000
+  100 CONTINUE                                                          19353000
+      ERTA(IC)=ERX                                                      19354000
+      IPC=1                                                             19355000
+  110 CONTINUE                                                          19356000
+      IF(IPC.EQ.0)GOTO 170                                              19357000
+      IF(TX(K).LT.XH) GO TO 130                                         19358000
+      K=K+1                                                             19359000
+      DO 120 IC=2,5                                                     19360000
+      ICTB(IC)=ICTA(IC)                                                 19361000
+  120 ERTB(IC)=ERTA(IC)                                                 19362000
+      GO TO 180                                                         19363000
+C-----AT LEAST ONE CODE WORKS                                           19364000
+  130 IF(K.GE.9)GOTO 150                                                19365000
+C    -K.LT.9, ADD ANOTHER POINT AND TRY AGAIN                           19366000
+  140 K=K+1                                                             19367000
+      TX(K)=TX(K-1)+DEL                                                 19368000
+      TY(K)=FUNC(TX(K),CON)                                             19369000
+      GOTO 50                                                           19370000
+C    -K.EQ.9, DOUBLE SPACING, ADD ANOTHER POINT AND TRY AGAIN           19371000
+  150 DO 160 N=2,5                                                      19372000
+      M=2*N-1                                                           19373000
+      TX(N)=TX(M)                                                       19374000
+  160 TY(N)=TY(M)                                                       19375000
+      DEL=2.0*DEL                                                       19376000
+      K=5                                                               19377000
+      GOTO 140                                                          19378000
+C-----ALL CODES FAILED                                                  19379000
+  170 IF(K.GT.5)GOTO 180                                                19380000
+C    -HALVE SPACING AND TRY AGAIN                                       19381000
+      DEL=DEL/2.0                                                       19382000
+      TX(5)=TX(3)                                                       19383000
+      TY(5)=TY(3)                                                       19384000
+      TX(3)=TX(2)                                                       19385000
+      TY(3)=TY(2)                                                       19386000
+      TX(2)=TX(1)+DEL                                                   19387000
+      TY(2)=FUNC(TX(2),CON)                                             19388000
+      TX(4)=TX(3)+DEL                                                   19389000
+      TY(4)=FUNC(TX(4),CON)                                             19390000
+      GOTO 30                                                           19391000
+C=====OK, ACCEPT LAST GOOD POINT                                        19392000
+  180 K=K-1                                                             19393000
+      IF(TX(K).LE.XH)GOTO 190                                           19394000
+      TX(K)=XH                                                          19395000
+      TY(K)=FUNC(XH,CON)                                                19396000
+  190 IF(NR.LE.0)GOTO 200                                               19397000
+      ICL=JNT(NR)                                                       19398000
+      IF(ICTB(ICL).EQ.0)GOTO 200                                        19399000
+      NBT(NR)=NP+1                                                      19400000
+      GOTO 220                                                          19401000
+  200 ERM=1.0E+10                                                       19402000
+      DO 210 IC=2,5                                                     19403000
+      IF(ICTB(IC).EQ.0)GOTO 210                                         19404000
+      IF(ERTB(IC).GT.ERM)GOTO 210                                       19405000
+      ERM=ERTB(IC)                                                      19406000
+      ICP=IC                                                            19407000
+  210 CONTINUE                                                          19408000
+      NR=NR+1                                                           19409000
+      IF(NR.GT.N1X)GOTO 230                                             19410000
+      NBT(NR)=NP+1                                                      19411000
+      JNT(NR)=ICP                                                       19412000
+  220 NP=NP+1                                                           19413000
+      IF(NP.GT.N2X)GOTO 230                                             19414000
+      X(NP)=TX(K)                                                       19415000
+      Y(NP)=TY(K)                                                       19416000
+      IF(TX(K).GE.XH)GOTO 240                                           19417000
+      DEL=(TX(K)-TX(1))/4.0                                             19418000
+      TX(1)=TX(K)                                                       19419000
+      TY(1)=TY(K)                                                       19420000
+      GOTO 10                                                           19421000
+C-----OVERFLOW ERROR                                                    19422000
+  230 LOF=1                                                             19423000
+C=====FINISHED                                                          19424000
+  240 N1=NR                                                             19425000
+      N2=NP                                                             19426000
+      RETURN                                                            19427000
+      END                                                               19428000
+      FUNCTION FISS(X,X0)                                               19429000
+C     ***************************************                           19430000
+C=====EVALUATE SIMPLE FISSION SPECTRUM==================================19431000
+      FISS=SQRT((4.0*X)/(3.1415927*X0**3))*EXP(-X/X0)                   19432000
+      RETURN                                                            19433000
+      END                                                               19434000
+C       ***************************************************************819435000
+C       ================================================================19436000
+C        INDEX OF ROUTINES OF TESEO CODE                                19437000
+C       ================================================================19438000
+C        NAME               FUNCTION                           STATEMENT19439000
+C       ----------------------------------------------------------------19440000
+C       MAIN       FIX DIMENSIONS OF THE BLANK COMMON                 1 19441000
+C       GELIB      READS USER COMMAND, CALL SUBROUTINES            1000 19442000
+C       TABNIZ     DEFINES COMPUTATION PARAMETERS                  6450 19443000
+C       FORCRW     FORCES ROUTINES TO REWIND FILES                 7950 19444000
+C       P1         DRIVER FOR PART 1 OF THE CODE                   8100 19445000
+C       P1F1       READS ENDFB FILE 1                              9960 19446000
+C       P1F2       READS ENDFB FILE 2                             11300 19447000
+C       POLLA #    CONVERTS REICH-MOORE TO ADLER-ADLER FORMAT     16430 19448000
+C       POLL0 #    ENTRY OF POLLA ROUTINE                               19449000
+C       POLL1 #    ENTRY OF POLLA ROUTINE                               19450000
+C       SR    #    PART OF POLLA CODE                             18190 19451000
+C       P1F3       READS ENDFB FILE 3                             18940 19452000
+C       P1F4       READS ENDFB FILE 4                             20420 19453000
+C       P1F5       READS ENDFB FILE 5                             21770 19454000
+C       FISS1 *    FISSION SPECTRUM FORMULA                       23930 19455000
+C       RIEMP      FILLS A MATRIX WITH A NUMBER                   24060 19456000
+C       BIANC      FILLS A MATRIX WITH BLANKS                     24180 19457000
+C       AREAL *    USES AN INTEGER NUMBER AS A REAL ONE           24300 19458000
+C       NAREAL*    USES A REAL NUMBER AS AN INTEGER ONE           24370 19459000
+C       NREST *    TEST OF DIVISIBILITY                           24440 19460000
+C       REW        REWIND A FILE                                  24530 19461000
+C       POSL       POSITION A FILE AT THE FIRST AVAILABLE RECORD  24790 19462000
+C       SKIPE      SKIPS ENDFB SECTIONS                           24980 19463000
+C       SKIPS      SKIPS ENDFB RECORDS                            25120 19464000
+C       RECTPI     READ TPID ENDFB RECORD (FIRST RECORD)          25470 19465000
+C       NCONT *    READ CONT RECORD AND CONTROLS MAT,MF,MT        25670 19466000
+C       ERRORE     PRINT ERROR MESSAGE FOR SLAVE3 ROUTINES        25920 19467000
+C       ERR        PRINT ERROR MESSAGE                            26090 19468000
+C       ERRP       PRINT ERROR PARAMETERS                         26230 19469000
+C       EMPIN      FILLS LINE OF INDEX MATRIX                     26480 19470000
+C       RDMIX      READS INPUT TABLE                              27040 19471000
+C       MIXSHO     PRINTS INPUT TABLE                             28880 19472000
+C       COMMR      READS A COMMAND IN FREE FORMAT                 29190 19473000
+C       MIXIND     EDITOR FOR INDEX OF INTERMEDIATE FILES         30860 19474000
+C       LOADIN     READS INDEX                                    31920 19475000
+C       LOADI1     READS INDEX                                    32410 19476000
+C       COMPIN     REMOVES DATA FROM INDEX MATRIX                 32650 19477000
+C       SAVI       WRITES INDEX MATRIX INTO A FILE                32870 19478000
+C       SCARIN     WRITES INDEX MATRIX INTO A FILE                33040 19479000
+C       ORDINA     ORDERING ROUTINE                               33210 19480000
+C       ORDIN1     ORDERING ROUTINE                               33450 19481000
+C       ORDM       ORDERING ROUTINE                               33690 19482000
+C       ORDMD      ORDERING ROUTINE                               34280 19483000
+C       SELR2      REMOVES DATA FROM A MATRIX                     34880 19484000
+C       P2         DRIVER FOR PART 2 OF TESEO CODE                35090 19485000
+C       P2MCF1     COMPUTATIONS FOR FILE MCC2F1 OF MC2-II         37650 19486000
+C       P2MCF3     COMPUTATION FOR FILE MCC2F3                    39230 19487000
+C       CALCR3     UNRESOLVED RESONANCE DATA                      40630 19488000
+C       PRESS      COMPRESS A MATRIX ( UNRESOLVED RESONANCE DATA) 43290 19489000
+C       P2MCF4     COMPUTATIONS FOR FILE MCC2F4                   43560 19490000
+C       BW         BREIT-WIGNER RESONANCE PARAMETERS              45440 19491000
+C       AA         ADLER-ADLER RESONANCE PARAMETERS               47790 19492000
+C       P2MCF5     COMPUTATIONS FOR FILE MCC2F5                   49050 19493000
+C       SMOOT      SMOOTH CROSS SECTION COMPUTATION               52540 19494000
+C       UNRES      UNRESOLVED RESONANCE CROSS SECTIONS            54540 19495000
+C       INPUT     READS DATA (UNRESOLVED RESONANCE CROOS SECTIONS)56360 19496000
+C       INTUN     UNRESOLVED RESONANCE CALCULATION                59140 19497000
+C       RES       RESOLVED RESONANCE CALCULATION                  60610 19498000
+C       SIGRR     RESOLVED RESONANCE CROSS SECTION FORMULAE       65280 19499000
+C       GEDEP     ENERGY DEPENDENCE OF RESONANCE PARAMETERS       67140 19500000
+C       FIL       PHASE ANGLE                                     67540 19501000
+C       SCATP     POTENTIAL SCATTERING                            67680 19502000
+C       LINSIG    LINEAR TABULATION FROM RESONANCE PARAMETERS     67860 19503000
+C       LINSI1    LINEARIZE ENDFB TABULATION                      69840 19504000
+C       BROAD  @  DOPPLER BROADENING OF TABULATED CROSS SECTIONS  70930 19505000
+C       NII       NU CALCULATION                                  72660 19506000
+C       TERPET $  INTERPOLATION                                   74080 19507000
+C       TERP1T $  INTERPOLATION PARAMETERS                        75360 19508000
+C       GNUFT  $  POLINOMIAL FIT                                  75680 19509000
+C       SMEQ   $  POLINOMIAL COEFFICIENTS                         76430 19510000
+C       P2MCF6    COMPUTATION FOR FILE MCC2F6                     76760 19511000
+C       P2F6RB    REORDERS ENERGY DISTRIBUTION DATA               79960 19512000
+C       P2F6SG    ANELASTIC AND N,2N MULTIGROUP CROSS SECTIONS    85640 19513000
+C       P2F6LV    DISCRETE LEVELS FOR ANELASTIC AND N,2N          85900 19514000
+C       P2F6EV    EVAPORATION SPECTRUM FOR ANEL. AND N,2N         87840 19515000
+C       P2F6TB    TABULATED DATA FOR ANEL. AND N,2N DATA          88380 19516000
+C       P2MCF7    CALCULATIONS FOR FILE MCC2F7                    91210 19517000
+C       P2MCF8    CALCULATIONS FOR FILE MCC2F8                    93650 19518000
+C       P2F8LG    CONTINUATION OF P2MCF8 ROUTINE                  94940 19519000
+C       TABPL     ELASTIC SCATTERING TABULATED DATA INTO LEG. POL.98650 19520000
+C       COEGEN    LEGENDRE POLINOMIAL COEFFICIENTS               100020 19521000
+C       FATT   *  FACTORIAL                                      100280 19522000
+C       PPLX   *  INTEGRAL OF LEGENDRE POLINOMIAL*X              100380 19523000
+C       PL     *  LEGENDRE POLINOMIAL                            100690 19524000
+C       PPL    *  INTEGRAL OF LEGENDRE POLINOMIAL                100940 19525000
+C       PPL4   *  INTEGRAL OF LEGENDRE POLINOMIAL*EXP(..         101210 19526000
+C       PXEA   *  INTEGRAL OF FUNCTION OF LEGENDRE POLINOMIAL    101420 19527000
+C       POST      SET POSITION OF A FILE                         101720 19528000
+C       NCERC1 *  LOOK FOR MATERILAL IN INPUT TABLE              101940 19529000
+C       CONTR1    CONTROL OF MAT,MF,MT FLAGS                     102350 19530000
+C       SELR1     SELECTS RESONANCES                             102630 19531000
+C       ENERG     ULTRAFINE GROUP ENERGY BOUNDARIES              102840 19532000
+C       NORM      NORMALIZES                                     103570 19533000
+C       NSUMG1 *  TESTS A VECTOR                                 103140 19534000
+C       INFER  *  LOOKS FOR MINIMUM VALUE IN A VECTOR            103270 19535000
+C       MAXX   *  LOOKS FOR MAXIMUM VALUE IN A VECTOR            103400 19536000
+C       FILTB2    EXPANDS INTERPOLATION PARAMETERS               103510 19537000
+C       SOGLM     FIND ENERGY THRESHOLD FOR MULTIGROUP DATA      103660 19538000
+C       SOGLM1    FIND THE RANGE OF MULTIGROUP DATA              103830 19539000
+C       SOGL      FIND THRESHOLD                                 103990 19540000
+C       RIBA      TURNS OVER A VECTOR                            104160 19541000
+C       TRASF     FILLS A VECTOR WITH ANOTHER VECTOR             104300 19542000
+C       TRASF1    FILLS A VECTOR                                 104420 19543000
+C       FNDMX  *  FIND MAXIMUM FOR A ROW IN A MATRIX             104540 19544000
+C       EXAM      ANALYZE A VECTOR                               104680 19545000
+C       LIMIT     THRESHOLD FOR A VECTOR                         104990 19546000
+C       CERCM     FINDS A VALUE IN A VECTOR                      105240 19547000
+C       ORDMIC    ORDERING ROUTINE                               105390 19548000
+C       ORDPU1    ORDERING ROUTINE                               105460 19549000
+C       ORDPU3    ORDERING ROUTINE                               105820 19550000
+C       ORD       ORDERING ROUTINE                               105990 19551000
+C       ORDIND    ORDERING ROUTINE                               106160 19552000
+C       ORDSOG    ORDERING ROUTINE                               106470 19553000
+C       GRATTE    INTEGRATION ROUTINE                            106740 19554000
+C       INTEGG    INTEGRATION ROUTINE                            107230 19555000
+C       GRATP     INTEGRATION ROUTINE                            107700 19556000
+C       INTS1     INTEGRATION ROUTINE                            108210 19557000
+C       INTS2     INTEGRATION ROUTINE                            109750 19558000
+C       FTABLE $  CALCULATIONS FOR FILE MCC2F2                   111490 19559000
+C       FXPTBL $  CALCULATIONS FOR FILE MCC2F2                   112910 19560000
+C       EI     $  CALCULATIONS FOR FILE MCC2F2                   113450 19561000
+C       ESCAPE $  CALCULATIONS FOR FILE MCC2F2                   114080 19562000
+C       ETABLE $  CALCULATIONS FOR FILE MCC2F2                   115630 19563000
+C       EXPFCT $  CALCULATIONS FOR FILE MCC2F2                   116550 19564000
+C       E3     $  CALCULATIONS FOR FILE MCC2F2                   116940 19565000
+C       KI3    $  CALCULATIONS FOR FILE MCC2F2                   117360 19566000
+C       P3        DRIVER FOR PART 3 OF TESEO CODE                117730 19567000
+C       ORDTAB    ORDERS MUCLIDE TO BE PRODUCED                  121740 19568000
+C       P3MCF3    PRODUCES FILE MCC2F3                           122290 19569000
+C       P3MCF4    PRODUCES FILE MCC2F4                           124890 19570000
+C       P3MCF5    PRODUCES FILE MCC2F5                           127320 19571000
+C       P3F51     CONTINUATION OF P3MCF5 ROUTINE                 127800 19572000
+C       P3MCF6    PRODUCES FILE MCC2F6                           129740 19573000
+C       READ6     READS DATA FOR P3MCF6 ROUTINE                  131680 19574000
+C       COMPAT    ASSEMBLING OF DATA FOR FILE MCC2F6             132150 19575000
+C       P3MCF7    PRODUCES FILE MCC2F7                           132320 19576000
+C       P3MC7N    PRODUCES FILE MCC2F7 ( NU DATA )               133330 19577000
+C       P3MCF8    PRODUCES FILE MCC2F8                           133810 19578000
+C       P3MF81    CONTINUATION OF P3MCF8 ROUTINE                 135760 19579000
+C       P3MCF1    PRODUCES FILE MCC2F1                           137040 19580000
+C       P4        DRIVER FOR PART 4 OF TESEO CODE                138330 19581000
+C       P4MCF1    READS MCC2F1 FILE                              141450 19582000
+C       P4MCF3    READS MCC2F3 FILE                              141800 19583000
+C       P4MCF4    READS MCC2F4 FILE                              142730 19584000
+C       P4MCF5    READS MCC2F5 FILE                              143660 19585000
+C       P4MCF6    READS MCC2F6 FILE                              144600 19586000
+C       SUMJ      COMPUTES POSITIONS OF MCC2F6 DATA              146720 19587000
+C       P4MCF7    READS MCC2F7 FILE                              148920 19588000
+C       P4MCF8    READS MCC2F8 FILE                              149700 19589000
+C       NEXDI1 *  FIND A VALUE IN A MATRIX                       150700 19590000
+C       CNTRI     TESTS ON INDEX MATRIX                          150900 19591000
+C       POST1     POSITIONS A FILE                               151240 19592000
+C       IDENT8 *  POSITION OF A DATA IN A VECTOR                 151450 19593000
+C       BLOCK DATA $     FOR MCC2F8 DATA                         151700 19594000
+C       CLEB   $  COMPUTES TABULATED DATA FOR MCC2F8             152170 19595000
+C       MODPAR $  COMPUTES TABULATED DATA FOR MCC2F8             152650 19596000
+C       LEGPOL $  COMPUTES TABULATED DATA FOR MCC2F8             153330 19597000
+C       MATRIX $  COMPUTES TABULATED DATA FOR MCC2F8             153660 19598000
+C       TMATRI $  COMPUTES TABULATED DATA FOR MCC2F8             155250 19599000
+C       TMATRX $  COMPUTES TABULATED DATA FOR MCC2F8             156670 19600000
+C       TMATRY $  COMPUTES TABULATED DATA FOR MCC2F8             157920 19601000
+C       QUICKW $  CALCULATION OF DOPPLER FUNCTIONS               158870 19602000
+C       WZERO  $  CALCULATION OF DOPPLER FUNCTIONS               160350 19603000
+C       WTABL  $  CALCULATION OF DOPPLER FUNCTIONS               160820 19604000
+C       W      $  CALCULATION OF DOPPLER FUNCTIONS               161500 19605000
+C       UNRINT +  UNRESOLVED RESONANCE CROSS SECTIONS            164010 19606000
+C       MATRIX1+  UNRESOLVED RESONANCE CROSS SECTIONS            173430 19607000
+C       QUICKJ +  UNRESOLVED RESONANCE CROSS SECTIONS            174860 19608000
+C       WREC   -  WRITE ENDFB RECORD                             177910 19609000
+C       DYWREC -  WRITE ENDFB RECORD                             178000 19610000
+C       DELETE -  CLEAR STORAGE                                  178820 19611000
+C       DYDELE -  CLEAR STORAGE                                  178930 19612000
+C       IPDS   -  INTERPOLATION ROUTINE                          179520 19613000
+C       IPDSDY -  INTERPOLATION ROUTINE                          179620 19614000
+C       LRIDS  -  LOCATES RECORD IN STORAGE                      180320 19615000
+C       LRIDDY -  LOCATES RECORD IN STORAGE                      180420 19616000
+C       FETCH  -  FETCH A RECORD FROM STORAGE                    180680 19617000
+C       FETCHD -  FETCH A RECORD FROM STORAGE                    180800 19618000
+C       TERP1  -  INTERPOLATION ROUTINE                          181540 19619000
+C       RREC   -  READS ENDFB RECORD                             182000 19620000
+C       DYRREC -  READS ENDFB RECORD                             182090 19621000
+C       CXFP   -  FORMATS RECORD FOR OUTPUT                      183740 19622000
+C       PRCONT -  PRINT CONT ENDFB RECORD                        184060 19623000
+C       PRHOL  -  PRINT HOLL ENDFB RECORD                        184370 19624000
+C       PRLIST -  PRINT LIST ENDFB RECORD                        184600 19625000
+C       PRTAB1 -  PRINT TAB1 ENDFB RECORD                        185060 19626000
+C       PRTAB2 -  PRINT TAB2 ENDFB RECORD                        185650 19627000
+C       PRTPID -  PRINT TPID ENDFB RECORD                        186030 19628000
+C       PUCONT -  PRINT CONT ENDFB RECORD (IN CARD FORM)         186160 19629000
+C       PUHOL  -  PRINT HOLL ENDFB RECORD ( IN CARD FORM)        186350 19630000
+C       PULIST -  PRINT LIST ENDFB RECORD ( IN CARD FORM )       186600 19631000
+C       PUTAB1 -  PRINT TAB1 ENDFB RECORD ( IN CARD FORM)        187080 19632000
+C       PUTAB2 -  PRINT TAB2 ENDFB RECORD (IN CARD FORM)         187720 19633000
+C       PUTPID -  PRINT TPID ENDFB RECORD ( IN CARD FORM)        188080 19634000
+C       STORE  -  STORE RECORD IN STORAGE                        188220 19635000
+C       DYSTOR -  STORE RECORD IN STORAGE                        188410 19636000
+C       TERP2  -  INTERPOLATION ROUTINE                          189190 19637000
+C       DTERP2 -  INTERPOLATION ROUTINE                          189300 19638000
+C       GRATE  -  INTEGRATION ROUTINE                            189840 19639000
+C       DGRATE -  INTEGRATION ROUTINE                            189930 19640000
+C       ECSI   -  INTEGRATION ROUTINE                            190610 19641000
+C       CROP   -  COMPRESS A RECORD                              191180 19642000
+C       DYCROP -  COMPRESS A RECORD                              191270 19643000
+C       GENT1  -  GENERATE TAB1 DATA FROM A FUNCTION             192790 19644000
+C       DYGNT1 -  GENERATES TAB1 DATA FROM A FUNCTION            192900 19645000
+C       FISS   -  FISSION SPECTRUM FORMULA                       194290 19646000
+C       --------------------------------------------------------------- 19647000
+C    *   MEANS THAT THE ROUTINE IS A FUNCTION                           19648000
+C    #         ROUTINE FROM POLLA CODE ( ORNL-TM-2599 BY G.DE SAUSSURE  19649000
+C                                        AND R.B. PEREZ (1969) )        19650000
+C    @         ROUTINE WRITTEN BY G. FIONI                              19651000
+C    $         ROUTINE FROM ETOE CODE (APDA-219 , ENDF-120 (1968) ,     19652000
+C                                      BY D,M,GREEN AND T.A. PITTERLE)  19653000
+C    +         ROUTINE FROM MC2-II CODE ( ANL-8144 ,ENDF 239  (1976)    19654000
+C                                   BY H.HENRYSON II,B.J. TOPPEL AND    19655000
+C                                   C.G. STENBERG )                     19656000
+C    -         ROUTINE FROM SLAVE3 PROGRAM BY HONEK (ENDF-110 ,         19657000
+C                                   BNL 50300 (1971) )                  19658000
+C              SLAVE#  ROUTINES HAVE BEEN MODIFYED BY G. PANINI         19659000
+C              TO ALLOW DYNAMIC ALLOCATION OF STORAGE                   19660000
+C      ______________________________________________________________   19661000
+       STOP                                                             19662000
+       END                                                              19663000

diff --git a/teseo/tape b/teseo/tape
new file mode 100644 (file)
index 0000000..be6ab98
--- /dev/null
+++ b/teseo/tape
@@ -0,0 +1,62 @@
+//#BAZZO1I JOB (1J7R,IT05),GALLI,CLASS=T,REGION=2048K,                  00000100
+//  MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=#BAZZO1,TIME=(,30)                 00000200
+//********************************************************              00000201
+//*****  JCL TO GENERATE TESEO TAPE  *********************              00000210
+//*****  WITH SAMPLE PROBLEM AND TESEO SOURCE ************              00000220
+//********************************************************              00000230
+/*SETUP        TESEO                                                    00000300
+//JOBCAT DD DSN=UTIBCATA,DISP=SHR                                       00000410
+//       DD DSN=UTIBCATB,DISP=SHR                                       00000420
+//*********************************** SOURCE                            00000428
+//A      EXEC PGM=IEBGENER                                              00000430
+//SYSPRINT DD SYSOUT=A                                                  00000500
+//SYSIN DD DUMMY                                                        00000600
+//SYSUT1 DD  DSN=#BAZZO1.TESEO.FORT(SOURCE),DISP=SHR                    00000800
+//SYSUT2 DD UNIT=SELF4,VOL=SER=TESEO,DISP=(NEW,PASS),                   00001000
+//  LABEL=(1,NL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160,DEN=4)             00001100
+//*********************************** INPUT                             00001110
+//B EXEC PGM=IEBGENER                                                   00001200
+//SYSPRINT DD SYSOUT=A                                                  00001300
+//SYSIN DD DUMMY                                                        00001400
+//SYSUT1 DD DSN=#BAZZO1.TESEO.FORT(INPUT),DISP=SHR                      00001500
+//SYSUT2 DD UNIT=SELF4,VOL=SER=TESEO,DISP=(NEW,PASS),                   00002100
+//  LABEL=(2,NL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160,DEN=4)             00002200
+//*********************************** JCL TO RUN SAMPLE PROBLEM         00002210
+//C EXEC PGM=IEBGENER                                                   00002300
+//SYSPRINT DD SYSOUT=A                                                  00002400
+//SYSIN DD DUMMY                                                        00002500
+//SYSUT1 DD DSN=#BAZZO1.TESEO.FORT(JCL),DISP=SHR                        00002600
+//SYSUT2 DD UNIT=SELF4,VOL=SER=TESEO,DISP=(NEW,PASS),                   00003200
+//  LABEL=(3,NL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160,DEN=4)             00003300
+//*********************************** THIS JOB *****************        00003320
+//D EXEC PGM=IEBGENER                                                   00003330
+//SYSPRINT DD SYSOUT=A                                                  00003340
+//SYSIN DD DUMMY                                                        00003350
+//SYSUT1 DD DSN=#BAZZO1.TESEO.FORT(TAPE),DISP=SHR                       00003360
+//SYSUT2 DD UNIT=SELF4,VOL=SER=TESEO,DISP=(NEW,PASS),                   00003370
+//  LABEL=(4,NL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160,DEN=4)             00003380
+//*************************** TSO COMMANDS TO RUN SAMPLE PROBLEM        00003390
+//E EXEC PGM=IEBGENER                                                   00003400
+//SYSPRINT DD SYSOUT=A                                                  00003500
+//SYSIN DD DUMMY                                                        00003600
+//SYSUT1 DD DSN=#BAZZO1.TESEO.FORT(TSO),DISP=SHR                        00003700
+//SYSUT2 DD UNIT=SELF4,VOL=SER=TESEO,DISP=(NEW,PASS),                   00004300
+//  LABEL=(5,NL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160,DEN=4)             00004400
+//************ PRINTED OUTPUT OF THE SAMPLE PROBLEM **************      00005530
+//F EXEC PGM=IEBGENER                                                   00005600
+//SYSPRINT DD SYSOUT=A                                                  00005700
+//SYSIN DD DUMMY                                                        00005800
+//SYSUT1 DD DSN=#BAZZO1.MGOUT.DATA,DISP=SHR                             00005900
+//SYSUT2 DD UNIT=SELF4,VOL=SER=TESEO,DISP=(NEW,PASS),                   00006500
+//  LABEL=(6,NL),DCB=(RECFM=FBA,LRECL=133,BLKSIZE=13300,DEN=4)          00006600
+//****************************************************************      00006610
+//******************** LOAD MODULE *******************************      00006620
+//************ COMPILED BY FORTRAN H ENHANCED OPTIMIZATION 2 *****      00006630
+//G EXEC PGM=IEBGENER                                                   00006640
+//SYSPRINT DD SYSOUT=A                                                  00006650
+//SYSIN DD DUMMY                                                        00006660
+//SYSUT1 DD DSN=#BAZZO1.TESEO.LOAD(QOPT2),DISP=SHR                      00006670
+//SYSUT2 DD UNIT=SELF4,VOL=SER=TESEO,DISP=(NEW,PASS),                   00006680
+//  LABEL=(7,NL),DCB=(RECFM=U,BLKSIZE=19069,DEN=4)                      00006690
+//POI EXEC ANALTAPE,VOL=TESEO,DEN=4,DEV=SELF                            00006691
+//                                                                      00006700

diff --git a/teseo/tso b/teseo/tso
new file mode 100644 (file)
index 0000000..7019671
--- /dev/null
+++ b/teseo/tso
@@ -0,0 +1,97 @@
+/* TSO PROCEDURE TO RUN TESEO SAMPLE PROBLEM IN AN INTERACTIVE WAY      00010001
+/* THE LOAD MODULE OF THE TESEO CODE IS SUPPOSED TO BE IN               00020001
+/* A DATA SET NAMED: TESEO.LOAD(QOPT2)                                  00030001
+/* THE FOLLOWING STATEMENT  COMPILE AND LINK TESEO CODE                 00040001
+/* FORVSCL TESEO.FORT LOADSET(TESEO.LOAD(VS))                           00050001
+/* FORTQCL TESEO.FORT LOADSET(TESEO.LOAD(QOPT2)) OPT(2) LARGE           00060001
+/* FORVSCL IS AN ENEA PROCEDURE TO COMPILE AND LINK BY FORTRAN VS IBM   00070001
+/* FORTQCL IS AN ENEA PROCEDURE TO COMPILE AND LINK BY FORTRAN IV       00080001
+/*                                      -HEXTENDED -ENHANCHED COMPILER  00090001
+/* THE SPACE TO BE ALLOCATED ON FILES DEPENDS ON THE NUMBER OF MATERIALS00100001
+/*                                                                      00110001
+PROC 0 MEMBER(QOPT2) OUTPUT(*) LIBRARY(ENDFBIV.CU35B.DATA) NEW          00120001
+ IF &NEW^=NEW THEN SET NEW=SHR                                          00130001
+CONTROL PROMPT,LIST,MSG                                                 00140001
+WRITE        ======== INDEX FILES     =======                           00150000
+ALLOCATE DD(FT01F001) SPACE(10,10) TR UNIT(SYSDA) NEW,+                 00160000
+                 RECFM(V B S) BLKSIZE(6160) REUSE                       00170001
+ALLOCATE DD(FT02F001) SPACE(10,10) TR UNIT(SYSDA) NEW,+                 00180001
+                 RECFM(V B S) BLKSIZE(6160) REUSE                       00190001
+ALLOCATE DD(FT03F001) SPACE(10,10) TR UNIT(SYSDA) NEW,+                 00200001
+                 RECFM(V B S) BLKSIZE(6160) REUSE                       00210001
+WRITE        ========= INPUT   OUTPUT =======                           00220000
+ALLOCATE DD(FT05F001) DSN(*) SHR REUSE                                  00230000
+ALLOCATE DD(FT06F001) DSN(&OUTPUT) SHR REUSE                            00240000
+ALLOCATE DD(FT11F001) DSN(*) SHR REUSE                                  00250000
+ALLOCATE DD(FT12F001) DUMMY  REUSE                                      00260000
+/* WRITE       ============ ENDFB LIBRARY TO BE READ  ======            00270000
+ALLOCATE DD(FT13F001) DSN(&LIBRARY) SHR REUSE                           00280000
+WRITE        ========= FIRST GROUP OF INTERMEDIATE FILES ======         00290000
+ALLOCATE DD(FT21F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+               00300000
+                      RECFM(F B) LRECL(80) BLKSIZE(6160)                00310001
+ALLOCATE DD(FT22F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+               00320001
+                      RECFM(F B) LRECL(80) BLKSIZE(6160)                00330001
+ALLOCATE DD(FT23F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+               00340001
+                      RECFM(F B) LRECL(80) BLKSIZE(6160)                00350001
+WRITE        ========= SECOND GROUP OF INTERMEDIATE FILES ======        00360001
+ALLOCATE DD(FT31F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+               00370001
+                      RECFM(V B S)  BLKSIZE(6160)                       00380001
+ALLOCATE DD(FT33F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+               00390001
+                      RECFM(V B S)  BLKSIZE(6160)                       00400001
+ALLOCATE DD(FT34F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+               00410001
+                      RECFM(V B S)  BLKSIZE(6160)                       00420001
+ALLOCATE DD(FT35F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+               00430001
+                      RECFM(V B S)  BLKSIZE(6160)                       00440001
+ALLOCATE DD(FT36F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+               00450001
+                      RECFM(V B S)  BLKSIZE(6160)                       00460001
+ALLOCATE DD(FT37F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+               00470001
+                      RECFM(V B S)  BLKSIZE(6160)                       00480001
+ALLOCATE DD(FT38F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+               00490001
+                      RECFM(V B S)  BLKSIZE(6160)                       00500001
+ WRITE    ============ PRODUCED MC2-II LIBRARY =========                00510001
+ALLOCATE DD(FT51F001) DSN(MCC2F1) &NEW TR SPACE(1,1) REUSE,+            00520001
+                      RECFM(V B S)  BLKSIZE(6160)                       00530001
+ALLOCATE DD(FT52F001) DUMMY         REUSE  REUSE                        00540001
+ALLOCATE DD(FT53F001) DSN(MCC2F3) &NEW TR SPACE(5,5) REUSE,+            00550001
+                      RECFM(V B S)  BLKSIZE(6160)                       00560000
+ALLOCATE DD(FT54F001) DSN(MCC2F4) &NEW TR SPACE(5,5)  REUSE,+           00570001
+                      RECFM(V B S)  BLKSIZE(6160)                       00580001
+ALLOCATE DD(FT55F001) DSN(MCC2F5) &NEW TR SPACE(20,10) REUSE,+          00590001
+                      RECFM(V B S)  BLKSIZE(6160)                       00600001
+ALLOCATE DD(FT56F001) DSN(MCC2F6) &NEW TR SPACE(20,10) REUSE,+          00610001
+                      RECFM(V B S)  BLKSIZE(6160)                       00620001
+ALLOCATE DD(FT57F001) DSN(MCC2F7) &NEW TR SPACE(1,1)   REUSE,+          00630001
+                      RECFM(V B S)  BLKSIZE(6160)                       00640001
+ALLOCATE DD(FT58F001) DSN(MCC2F8) &NEW TR SPACE(20,10) REUSE,+          00650000
+                      RECFM(V B S)  BLKSIZE(6160)                       00660000
+WRITE     ============ SCRATCH FILES FOR MCC2F6 ROUTINE ========        00670000
+ALLOCATE DD(FT90F001) SPACE(20,10) TR UNIT(SYSDA) REUSE,+               00680000
+                      RECFM(V B S)  BLKSIZE(6160)                       00690001
+ALLOCATE DD(FT91F001) SPACE(20,10) TR UNIT(SYSDA) REUSE,+               00700000
+                      RECFM(V B S)  BLKSIZE(6160)                       00710001
+ALLOCATE DD(FT92F001) SPACE(20,10) TR UNIT(SYSDA) REUSE,+               00720000
+                      RECFM(V B S)  BLKSIZE(6160)                       00730001
+ALLOCATE DD(FT93F001) SPACE(20,10) TR UNIT(SYSDA) REUSE,+               00740000
+                      RECFM(V B S)  BLKSIZE(6160)                       00750001
+ALLOCATE DD(FT94F001) SPACE(20,10) TR UNIT(SYSDA) REUSE,+               00760000
+                      RECFM(V B S)  BLKSIZE(6160)                       00770001
+ALLOCATE DD(FT95F001) SPACE(20,10) TR UNIT(SYSDA) REUSE,+               00780000
+                      RECFM(V B S)  BLKSIZE(6160)                       00790001
+ALLOCATE DD(FT96F001) SPACE(20,10) TR UNIT(SYSDA) REUSE,+               00800000
+                      RECFM(V B S)  BLKSIZE(6160)                       00810001
+ALLOCATE DD(FT97F001) SPACE(20,10) TR UNIT(SYSDA) REUSE,+               00820000
+                      RECFM(V B S)  BLKSIZE(6160)                       00830001
+ALLOCATE DD(FT98F001) SPACE(20,10) TR UNIT(SYSDA) REUSE,+               00840000
+                      RECFM(V B S)  BLKSIZE(6160)                       00850001
+WRITE     ============ CALL TESEO CODE        =======                   00860000
+CALL TESEO.LOAD(&MEMBER)                                                00870000
+/* INPUT TO BE GIVEN TO THE CODE:                                       00880000
+/*TITLE                                                                 00890001
+/*1          TESEO SAMPLE PROBLEM - 3 NUCLIDE  LIBRARY GENERATION       00900001
+/*TABLIN        1                                                       00910000
+/*B10           13    3   21   1273                                     00920000
+/*C12           13    3   22   1274                                     00930000
+/*U235          13    3   23   1261                                     00940000
+/*FINE                                                                  00950000
+/*GO                                                                    00960000
+/*STOP                                                                  00970000