--- /dev/null
+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.
--- /dev/null
+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/).
+
--- /dev/null
+{
+ "@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"
+ },
+ ]
+}
--- /dev/null
+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.
--- /dev/null
+{
+ "@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",
+ },
+ ]
+}
--- /dev/null
+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
--- /dev/null
+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.
--- /dev/null
+{
+ "@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",
+ },
+ ]
+}
--- /dev/null
+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
--- /dev/null
+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.
--- /dev/null
+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
--- /dev/null
+{
+ "@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",
+ },
+ ]
+}
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+ 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
--- /dev/null
+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.
+
+
+
--- /dev/null
+{
+ "@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",
+ },
+ ]
+}
--- /dev/null
+ 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
--- /dev/null
+//#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
--- /dev/null
+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
--- /dev/null
+//#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
--- /dev/null
+/* 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
projects / oldfortrancodes.git / commitdiff