From: Marcello Galli Date: Sun, 29 Dec 2019 18:13:16 +0000 (+0100) Subject: Initial commit by Marcello Galli X-Git-Url: http://legacy.helldragon.eu/gitweb/?a=commitdiff_plain;h=477bcebf79ef8c4a3929f0604c148dd599185975;p=oldfortrancodes.git Initial commit by Marcello Galli --- 477bcebf79ef8c4a3929f0604c148dd599185975 diff --git a/LICENSE b/LICENSE new file mode 100644 index 0000000..aae855e --- /dev/null +++ b/LICENSE @@ -0,0 +1,10 @@ +The license of these codes is unclear. + +Their development was financed by the Italian Energy Acengy: ENEA, +and they should belong to the Agency; but a license for these +programs was never defined. + +After the ending of the nuclear program in Italy the Agency +was restructured; changed name and purpose. +These codes where forgotten and lost. Their source code +should be considered in the public domain. diff --git a/README.md b/README.md new file mode 100644 index 0000000..35fae9f --- /dev/null +++ b/README.md @@ -0,0 +1,140 @@ +Legacy codes for neutron reactor cross section management +========================================================= + +These codes where developed between 1976 and 1985 at the +Italian Nuclear Energy Agency: *CNEN*, restructured +and renamed in 1982 as *ENEA*. + +They are FORTRAN code, running on IBM mainframes, used to +compute cross sections for fast nuclear reactor. + +After the ending of the nuclear program in Italy the agency +was restructured and changed name and purpose. It is now: +[*"ENEA: Agenzia nazionale per le nuove tecnologie, +l'energia e lo sviluppo economico sostenibile"*] +(http://www.enea.it/). Some activity +on nuclear reactors has been maintained, but these codes, +intended for fast reactor, where forgotten and lost. + +Marcello Galli wrote most of them; they are saved +here to be included in the collection of the +[*Software Heritage*] project (https://www.softwareheritage.org/). + +Micro +----- + +M.Galli, then student of Physics at the Bologna University, +wrote this code for his thesis, between 1976 and 1977; +it was used for the interpretation of cross section measurements +performed in Bologna, in the RB2 experimental reactor, at +[Montecuccolino](https://www.bibliotecasalaborsa.it/cronologia/bologna/1963/1136) + +It is written in FORTRAN 66, about one thousand lines; in this +period punched cards where used with a rigid 80-columns formatting. +The code was run on the IBM 3090 of the Bologna CNEN center. + +There was no dynamic allocation of arrays in old FORTRAN. +Here, at the beginning, the FORTRAN code compute the dimension of all the +needed arrays, then a little assembler routine (maybe by R.Simonini) is called to allocate +space for a big array named: "A". This is divided into small arrays when +passed to the routines of the code, along with the needed dimensions +of the arrays, which are defined in the routines. +FORTRAN gives arguments to routines by address, making possible +to obtain some kind of dynamical dimensions in this way. + +We can note here a peculiar usage of labels; the common usage, at that time, was +a progressive numbering, here instead label numbering is used to ease code +reading: low numbers are loop ending statements, intermediate values +are target of goto statements, higher values are used for format statements. +There are almost no comments... to save punching time, +but the author maintained somewhere an hand written and detailed documentation. + +In old FORTRAN the last characters of each card where used for card numbering; +the numbers that can be seen here in the source code have been inserted later, +by some IBM archive system (maybe the old 'librarian' system), +the numbers in the original card deck here different: when changing or adding a card +the deck wasn't renumbered... punching again all the cards. + + +Reference: + + Marcello Galli + + Thesis, degree in physics, Bologna University, 1977. + + Interpretazione di Misure Integrali di Sezioni d'Urto + di Materiali di Interesse per i Reattori Veloci Effettuate + con la Tecnica della Reattivita Nulla + +Geres +----- + +This is a FORTRAN-77 program of about two thousand lines, +written around 1980 by M.Galli, +then a contractor at the CNEN research center in Bologna; +C.Petrella contributed to the code; some parts are taken +from the [MC2-II] (https://www.ne.anl.gov/codes/mc2-2/) code. + +The program was used to compute heterogeneous cross section, starting +from data from the MC2-II code, for fast reactor calculations. +The code was run on an IBM 3090 computer. + +We have the rigid 80-columns format of the old FORTRAN, but the +TSO IBM option had been introduced at the CNEN research center, +with visual terminals and interactive usage. We hadn't +punched cards anymore. + +If we compare this program with the "Micro" program of same years before, +by the same author, we can see many differences due to the use of a +visual editor and a slightly different coding style: +there are more and clearer comments (no need to punch more cards), +and the code structure is more clear. +We haven't yet structured programming, and the author uses +the same tricks we have seen in the Micro program: +fortran common areas to isolate part of the code and different label numbers +for loop, goto and formatting statements; to ease code readability. + +The main program has the unique function of allocating a +big array, in a common area; this array is subdivided in different, +smaller, arrays when subroutines are called. The subroutine: 'address' +computes the dimension of the smaller arrays. + +Magnetic tapes where used for input and output data: some megabytes +of data where, at that time, too much for the limited computer memory. + + +Teseo +----- + +Teseo is a program of about twenty thousand statements, written +by M.Galli, between 1984 and 1987, in FORTRAN-IV, running on an IBM 3090 computer. +It computes data for the MC2-II code, starting from the +[ENDF-B IV](https://t2.lanl.gov/nis/data/endf/endfiv.htmldata) +evaluated nuclear data files. + +It used a somewhat modular structure, being divided into four independent parts, +communicating via temporary files; the available memory on mainframe +computers of that period was limited. +In this program we can see some changes in the coding style, under the influence of +more modern versions of FORTRAN, as the one used on the Vax mini-computers, +which was FORTRAN-77 with Dec extension; +these extensions weren't available on the IBM, and the code is still +FORTRAN IV, we find some indentation here and there, +but not the: "if, then, else, endif" statements introduced in FORTRAN-77. + + +Other programs +-------------- + +Data produced by different +codes for nuclear reactor projects had different formatting; +to allow for interoperability many little programs where +needed to change data format. Some of these old FORTRAN +code codes are saved in the *other* folder. + +------------------------------------------------------------ + +These programs are here as an example of old FORTRAN usage, +to be included in the collection of the +[*Software Heritage*] project (https://www.softwareheritage.org/). + diff --git a/codmeta.json b/codmeta.json new file mode 100644 index 0000000..7e6ceeb --- /dev/null +++ b/codmeta.json @@ -0,0 +1,30 @@ +{ + "@context": "https://doi.org/10.5063/schema/codemeta-2.0", + "@type": "SoftwareSourceCode", + "name": "Legacy FORTRAN codes", + "description": "A collection of legacy FORTRAN codes for nuclear reactor cross section computations, developed at CNEN, and then at ENEA by Marcello Galli, between 1976 and 1987" + "codeRepository": "http://legacy.helldragon.eu/gitweb/oldfortrancodes.git", + "downloadUrl": "git://legacy.helldragon.eu/oldfortrancodes.git", + "programmingLanguage": "FORTRAN", + "operatingSystem": "IBM 3090" + "license": "Public domain", + "dateCreated":"1977-12-01", + "developmentStatus": "Unsupported", + "creativeWorkStatus": "Legacy software" + "keywords": [ + "nuclear reactors", + "cross sections", + "fortran", + "software", + "ENEA","CNEN","C2RV","Micro","Teseo","Mediator","Medil", + ], + "author": [ + { + "@type": "Person", + "givenName": "Marcello", + "familyName": "Galli", + "email": "marcello.galli@enea.it", + "@id": "https://orcid.org/0000-0002-9135-3228" + }, + ] +} diff --git a/geres/Geres-ENEA-RT_TIB_85_26.pdf b/geres/Geres-ENEA-RT_TIB_85_26.pdf new file mode 100644 index 0000000..dc8544f Binary files /dev/null and b/geres/Geres-ENEA-RT_TIB_85_26.pdf differ diff --git a/geres/README.md b/geres/README.md new file mode 100644 index 0000000..22d6677 --- /dev/null +++ b/geres/README.md @@ -0,0 +1,14 @@ +Geres +----- + +This is a FORTRAN-77 program, written around 1980 by M.Galli, +then a contractor at the CNEN research center in Bologna; +C.Petrella contributed to the code; some parts are taken +from the [MC2-II] (https://www.ne.anl.gov/codes/mc2-2/) code. + +The program was used to compute heterogeneous cross section, starting +from data from the MC2-II code, for fast reactor calculations. +The code was run on an IBM 3090 computer. + +The ENEA report RT/TIB/85/26 describes the program. +A scan of the report, in pdf format, is saved here. diff --git a/geres/codmeta.json b/geres/codmeta.json new file mode 100644 index 0000000..3849624 --- /dev/null +++ b/geres/codmeta.json @@ -0,0 +1,29 @@ +{ + "@context": "https://doi.org/10.5063/schema/codemeta-2.0", + "@type": "SoftwareSourceCode", + "name": "Legacy FORTRAN codes", + "description": "Geres, a legacy FORTRAN code for cross section computations, developed at ENEA by Marcello Galli, around 1980." + "codeRepository": "http://coding.bologna.enea.it/gitrepo/oldfortrancodes.git", + "downloadUrl": "http://coding.bologna.enea.it/gitrepo/oldfortrancodes.git", + "programmingLanguage": "FORTRAN", + "operatingSystem": "IBM 3090" + "license": "Public domain", + "dateCreated":"1980-12-01", + "developmentStatus": "Unsupported", + "creativeWorkStatus": "Legacy software" + "keywords": [ + "nuclear reactors", + "cross sections", + "fortran", + "software", + "ENEA","Geres", + ], + "author": [ + { + "@type": "Person", + "givenName": "Marcello", + "familyName": "Galli", + "email": "marcello.galli@enea.it", + }, + ] +} diff --git a/geres/geresa b/geres/geresa new file mode 100644 index 0000000..914bf37 --- /dev/null +++ b/geres/geresa @@ -0,0 +1,2309 @@ +C PROGRAMMA G E R E S GALLI-PETRELLA 00000010 +C MAIN SERVE SOLO AI DIMENSIONAMENTI 00000020 +C L'ARGOMENTO DI COMMON/A/A(...) ED NDIM=.... 00000030 +C SONO LO SPAZIO NECESSARIO PER TUTTE LE MATRICI 00000040 +C NEL DEFINE FILE IL RECORD DEVE ESSERE PIU DI IHM ANISN 00000050 +C (LUNGHEZZA TAVOLA) I RECORD DEVONO ESSERE MAGGIORI DI 00000060 +C NUMERO ISOTOPI * GRUPPI * NUMERO COMPONENTI DI LEGENDRE 00000070 +C DELLO SCATTERING 00000080 +C---- 00000090 + COMMON /A/A(150000) 00000100 + COMMON /NDMX/ NDIM 00000110 + DEFINE FILE 99(60000,170,U,IRAC) 00000120 + NDIM=150000 00000130 + CALL PROG 00000140 + STOP 00000150 +C---- 00000160 +C---- 00000170 +C---- 00000180 + END 00000190 + SUBROUTINE PROG 00000200 +C 00000210 +C---- ======================================================== 00000220 +C---- ======================================================== 00000230 +C 00000240 +C 00000250 +C---- P R O G R A M M A G E R E S 00000260 +C---- 00000270 +C 00000280 +C +++++++++++++++++++++++++++++++++++++++++++++++++ 00000290 +C 00000300 +C 00000310 +C---- CALCOLA SEZIONI D'URTO DI RISONANZA ETEROGENEE A 00000320 +C---- PARTIRE DAI FILES DI MC2-2 E GENERA TAPE ANISN MACRO 00000330 +C---- E MICRO PER GRUPPI DALLE LIBRERIE XS.ISO DI MC2-2 00000340 +C---- PER SUCCESSIVO CALCOLO DI CELLA IN ANISN 00000350 +C---- 00000360 +C---- AUTORI : MARCELLO GALLI - CARLO PETRELLA. 00000370 +C--- 00000380 +C 00000390 +C 00000400 +C---- VERSIONE DEL 5-5-1981 00000410 +C MODIFICATO IL 27-4-82 00000420 +C 00000430 +C MODIFICHATO IL 29-12-82 GALLI 00000440 +C AGGIUNTE OPZIONI INP(3)=4 , 5 ED INP(4) A PET02 00000450 +C 00000460 +C**** INSERITA VARIANTE DEL 17-9-84 CHE UTILIZZA UN 00000470 +C UN FILE DIRAC NON AD ACCESSO DIRETTO, MA SEQUENZIALE, 00000480 +C PER ACCORCIARE IL TEMPO DI ELAPSED. 00000490 +C QUESTA VARIANTE NON SI PUO USARE QUANDO SI UTILIZZANO 00000500 +C I DATI PRODOTTI DAL MODULO RABANL. 00000510 +C UN DIRAC=99 E INTESO AD ACCESSO DIRETTO, UN DIRAC.NE.99 00000520 +C E INTESO DAL PROGRAMMA COME UN SEQUENZIALE 00000530 +C 00000540 +C CORREZIONE 17-3-1987 ISTRUZIONE 18360 WRITE(NP,... 00000541 +C IN ISTRUZIONE WRITE(11,....(SUB PET03) 00000542 +C 00000543 +C---- ================================================ 00000550 +C---- ================================================ 00000560 +C 00000570 +C---- SUBROUTINE PROG: 00000580 +C---- DEFINISCE I COMMONS E CHIAMA LE 3 SUBROUTINES PRINCIPALI DEL 00000590 +C---- PROGRAMMA. 00000600 + COMMON /NPR/NPRMAT,NGROUP,MGCSP,NGEOM,NREG,NBG1,NREG1, 00000610 + 1NUMRES,NREGU,NPTMAX,MAXISO, 00000620 + 2NRES,NREGR,NRESMT, 00000630 + 3NGROUS,MGCUT,NPRMAS,NGEOS,NREGS,MAXHTM, 00000640 + 4ICHI,IBSQ,MAXHTP,NCMP,ISORS,NREAL, 00000650 + 5MAXNOL,MAXGRP,MAXGPH,NOLRES,N1MIN,N2MAX 00000660 + COMMON /DIM/NBG,M2,M3,NSP,NDL,MXNL 00000670 + COMMON /A/A(1) 00000680 + COMMON /NTP/NI,NO,NPC,NP,NU,NR,NS,NSS,NL,NT(9) 00000690 + COMMON /INP/ INP(18) 00000700 + COMMON /SPECS/ DUM(12),NUFG 00000710 + COMMON /NDMX/ NDIM,NTAPE,NINP,NNPR 00000720 + COMMON /TITL/ TITL(20) 00000730 + COMMON /NPUNT/LPRBNA,LHETDE,LMATHE,LSIGM,LEBG1,LNGPRE,LMATRE,LEN,L00000740 + 1EUFG,LNUMBG,LNUMUF,LGEJ,LDEN,LANTUF,LPESI,LSUNRE,LESTAR,LUNRMA,LNU00000750 + 2MMA,LINT,LAN,LSP,LSPMAT,LNUMLO,LLORRE,LNDOLO,LGEJLO,LIMIT 00000760 +C**** **************** VARIANTE DEL 17-9-1984 NUMERO 1-1 00000770 + COMMON /N99P/N99P,N99P1 00000780 +C**** ********** INSERIMENTO OPZIONE PER USARE FILE 99 NON DA 00000790 +C---- +++++++++++++++ TEMPORIZZATORE ++++++++++++++ 00000800 + CALL STIME(100000) 00000810 +C---- DIMENSIONI DEL COMMON /NPR/ 00000820 + NNPR=32 00000830 +C---- NUMERO OPZIONI DEL COMMON INP (QUESTE ASSEGNAZ AD INP ED NTAPE 00000840 +C---- SONO SOLO PER ZERO7 POI OGNI PEZZO SI FISSA I SUOI ) 00000850 + NINP=4 00000860 +C---- NUMERO TAPES COMMON NTP. 00000870 + NTAPE=9 00000880 +C---- GENERAZIONE DI SEZIONI D'URTO MICROSCOPICHE RISONANTI A PARTIRE 00000890 +C---- DAI TAPES DI MCC-2. 00000900 + CALL ZERO7 00000910 +C---- AGGIUNTA RISONANZE A LIBRERIA XS.ISO DI MCC-2 E CREAZIONE 00000920 +C---- TAPE ANISN AD ISOTOPI. 00000930 + CALL PET02 00000940 +C---- TRASFORMAZIONE TAPE ANISN AD ISOTOPI IN TAPE ANISN A GRUPPI 00000950 +C---- E CALCOLO MACRO. 00000960 + CALL PET03 00000970 + RETURN 00000980 +C---- 00000990 +C---- FINE SUBROUTINE PROG. 00001000 +C---- 00001010 + END 00001020 + SUBROUTINE SKIP(NT,M) 00001030 +C---- SALTA M RECORDS SUL TAPE NT. SE M E* NEGATIVO FA IL REWIND AD NT. 00001040 + WRITE(11,999) NT,M 00001050 + 999 FORMAT(' SKIP UNITA'' : ',I5,' RECORDS',I5) 00001060 + IF(M.EQ.0) RETURN 00001070 + IF(M.GT.0) GOTO 5 00001080 + REWIND NT 00001090 + M=-M 00001100 + 5 CONTINUE 00001110 + DO 10 I=1,M 00001120 + 10 READ(NT) DUM 00001130 + RETURN 00001140 +C---- 00001150 +C---- FINE SUBROUTINE SKIP. 00001160 +C---- 00001170 + END 00001180 + SUBROUTINE NULL(N1,N) 00001190 +C---- ANNULLA NEL COMMON /A/ N LOCAZIONI A PARTIRE DALLA N1ESIMA 00001200 +C---- COMPRESA. 00001210 + COMMON/A/A(1) 00001220 + M=N1+N-1 00001230 + WRITE(11,1100) N1,A(N1),M,A(M) 00001240 + 1100 FORMAT(' SUB.NULL DA A(',I9,')=',E12.6,' AD A(',I9,')=',E12.6) 00001250 + DO 1 I=1,N 00001260 + 1 A(N1+I-1)=0.0 00001270 + RETURN 00001280 +C---- 00001290 +C---- FINE SUBROUTINE NULL. 00001300 +C---- 00001310 + END 00001320 + SUBROUTINE ZERO7 00001330 +C---- PSEUDO SECTION CSC007 DI SDX (FA CIRCA LE STESSE COSE) 00001340 +C---- SUBROUTINE PRINCIPALE PER IL CALCOLO DI SEZIONI D'URTO RISONANTI 00001350 +C---- MICROSCOPICHE ETEROGENEE DA FILES DI MCC-2. 00001360 + COMMON /A/A(1) 00001370 + COMMON /NTP/NI,NO,NPC,NP,NU,NR,NS,NSS,NL 00001380 + COMMON /INP/ INP(1) 00001390 + COMMON /NPR/NPR(1) 00001400 + COMMON /SPECS/ DUM(12),NUFG 00001410 + COMMON /NDMX/ NDIM,NTAPE,NINP,NNPR 00001420 + COMMON /TITL/ TITL(1) 00001430 + COMMON /NPUNT/LPRBNA,LHETDE,LMATHE,LSIGM,LEBG1,LNGPRE,LMATRE,LEN,L00001440 + 1EUFG,LNUMBG,LNUMUF,LGEJ,LDEN,LANTUF,LPESI,LSUNRE,LESTAR,LUNRMA,LNU00001450 + 2MMA,LINT,LAN,LSP,LSPMAT,LNUMLO,LLORRE,LNDOLO,LGEJLO,LIMIT 00001460 + REAL *4 AANOM(1) 00001470 + REAL*8 ANOM(9) 00001480 + DIMENSION NTP1(18),NTP(18) 00001490 + EQUIVALENCE (NI,NTP(1)) 00001500 +C---- DEFAULTS DI /NTP/ (NUMERI LOGICI DEI TAPES). 00001510 + DATA NTP1/5,6,7,35,48,36,42,90,20,9*0/ 00001520 +C---- NOMI TAPES. 00001530 + DATA ANOM/8HINPUT ,8HOUTPUT ,8HPUNCH ,8HPRBSPC , 00001540 + 18HUNRES ,8HRESINT ,8HSIGMAP ,8HSCR ,8HLORENTZ / 00001550 + DATA AANOM/4HNO / 00001560 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00001570 + CALL TTIME(NORA) 00001580 + WRITE(11,999) NORA 00001590 + 999 FORMAT(' ZERO7', ' ORA:',I10) 00001600 +C---- PRIMA LETTURA DALL'INPUT DI DEFAULT. 00001610 + NI=NTP1(1) 00001620 + READ(NI,10) (NTP(J),J=1,NTAPE) 00001630 +C---- LEGGE NUMERI LOGICI DEI TAPES(SE NULLI METTE DEFAULT, 00001640 +C---- SE NEGATIVI IL FILE NON ESISTE). 00001650 + 10 FORMAT(18I4) 00001660 +C---- ASSEGNAZIONE NUMERI LOGICI TAPES LETTI O DEFAULTS SE TROVATI NULLI00001670 + DO 20 I=1,NTAPE 00001680 + IF(NTP(I).EQ.0) NTP(I)=NTP1(I) 00001690 + 20 CONTINUE 00001700 +C---- LETTURA TITOLO (SE TITL(1)=NO LA SUB. ZERO7 NON VIENE ESEGUITA). 00001710 + READ(NI,30) (TITL(J),J=1,20) 00001720 + 30 FORMAT(20A4) 00001730 + WRITE(NO,40) (TITL(J),J=1,20) 00001740 + 40 FORMAT(1H1,20X,20A4////) 00001750 + IF(TITL(1).EQ.AANOM(1)) RETURN 00001760 + WRITE(NO,45) 00001770 + 45 FORMAT(1X,11(1H+),' PROGRAMMA GERES PARTE 1 : CREAZIONE SIGMA 00001780 + 1 RISONANZE '///) 00001790 + DO 70 I=1,NTAPE 00001800 + WRITE(NO,50)(ANOM(I),NTP(I)) 00001810 + 50 FORMAT(5X,' IL FILE ',A8,' E* SULLA UNITA LOGICA ',I4) 00001820 + IF(NTP(I).LE.0) WRITE(NO,60) 00001830 + 60 FORMAT(1H+,50X,'**** NON ESISTE ****') 00001840 + 70 CONTINUE 00001850 +C---- ANNULLA /NPR/ PERCHE USATO TUTTO DA ADDRESS IN OGNI CASO 00001860 + DO 1 I=1,NNPR 00001870 + 1 NPR(I)=0 00001880 +C---- LETTURA OPZIONI DI INPUT. 00001890 + READ(NI,10) (INP(J),J=1,NINP) 00001900 + WRITE(NO,80) (INP(J),J=1,NINP) 00001910 + 80 FORMAT(///(' OPZIONI DI INPUT:',18I4)) 00001920 +C---- SCAMBIO DEI VALORI 0 E 1 IN INP(1) PER INTERPOLAZIONE CON SIGAVC. 00001930 + NDUM=INP(1) 00001940 + IF(INP(1).EQ.0) NDUM=1 00001950 + IF(INP(1).EQ.1) NDUM=0 00001960 + INP(1)=NDUM 00001970 +C---- CONTROLLI DI COESISTENZA FRA LE OPZIONI DI INPUT E LA PRESENZA 00001980 +C---- DI TAPES. 00001990 + IF(NS.GT.0.OR.INP(2).NE.0) GOTO 95 00002000 +C---- IN QUESTO CASO INPONE OPZIONE DI PESATURA COSTANTE. 00002010 + INP(2)=1 00002020 + WRITE(NO,90) 00002030 + 90 FORMAT(/' *** LA ASSENZA DI SIGMAP NON E* COERENTE CON LA OPZIONE00002040 + 1 DI PESATURA 1/SP DELLE IRRISOLTE,SI ASSUME PESATURA COSTANTE***')00002050 + 95 CONTINUE 00002060 + IF(NR.LT.0.OR.NS.GT.O) GOTO 110 00002070 +C---- IN QUESTO CASO PONE RESINT INESISTENTE(NIENTE CALCOLO DI RISONANZE00002080 +C---- RISOLTE). 00002090 + NR=-1 00002100 + WRITE(NO,100) 00002110 + 100 FORMAT(/' *** SENZA IL TAPE SIGMAP NON SI POSSONO FARE CALCOLI DEL00002120 + 1 DELLE SIGMA RISOLTE***') 00002130 + 110 CONTINUE 00002140 + IF(NP.GT.0) GOTO 130 00002150 + WRITE(NO,120) 00002160 + 120 FORMAT(/' *** MANCA TAPE PRBSPC IMPOSSIBILE PROSEGUIRE') 00002170 + STOP 00002180 + 130 CONTINUE 00002190 +C---- SE NON ESISTE RESINT NON SERVE NEANCHE LORENTZ 00002200 + IF(NR.LE.0) NL=-1 00002210 +C---- LETTURA PARAMETRI DEL PROBLEMA DA PRBSPC. 00002220 + REWIND NP 00002230 + READ(NP)(NPR(J),J=1,3),(NUL,J=1,5),(NPR(J),J=4,5),NUL1,(NPR(J),J=200002240 + 11,22),(NUL1,J=1,5),NPR(23),(NUL1,J=1,4),NPR(6),(NUL,J=1,4),NPR(24)00002250 + 2,(NUL1,J=1,2),NPR(25) 00002260 +C---- FISSA NREG1=NREG+1. 00002270 + NPR(7)=NPR(5) 00002280 + IF(NPR(4).EQ.2) NPR(7)=1 00002290 + IF(NPR(4).EQ.0) NPR(7)=0 00002300 + IF(NPR(23).LE.0) NPR(7)=0 00002310 +C---- FISSA NREAL. 00002320 + NREAL=NPR(7)+1 00002330 + NPR(26)=NREAL 00002340 + WRITE(NO,140) ANOM(4),(NPR(J),J=1,7),(NPR(J),J=21,26) 00002350 + 140 FORMAT(/' LETTI DAL FILE ',A8,' I PARAMETRI: ',(1X,13I5)) 00002360 +C---- LETTURA PARAMETRI DEL PROBLEMA DA UNRES. 00002370 + IF(NU.LE.0) GOTO 170 00002380 + REWIND NU 00002390 + READ(NU) (NPR(J),J=8,11) 00002400 + WRITE(NO,140) ANOM(5),(NPR(J),J=8,11) 00002410 +C---- CONTROLLI DI COESISTENZA CON PARAMETRI DI PRBSPC. 00002420 + IF(NPR(9).NE.NPR(26)) WRITE(NO,150) NPR(9),ANOM(5),NPR(5),ANOM(4) 00002430 + 150 FORMAT(/' ***ATTENZIONE AL PARAMETRO',I5,' DI ',A8,' NON E* 00002440 + 1 COERENTE COL PARAMETRO',I5,' DI ',A8) 00002450 + IF(NPR(8).GT.NPR(1)) WRITE(NO,150) NPR(8),ANOM(5),NPR(1),ANOM(4) 00002460 + IF(NPR(11).NE.1) WRITE(NO,160) NPR(11),ANOM(5) 00002470 + 160 FORMAT(/' *** ATTENZIONE IL PARAMETRO',I5,' SEGNALA SU ',A8,' UNA 00002480 + 1 STRUTTURA PER ISOTOPI CHE IL CODICE NON TRATTA') 00002490 + 170 CONTINUE 00002500 +C---- LETTURA PARAMETRI DI RESINT. 00002510 + IF(NR.LE.0) GOTO 180 00002520 + REWIND NR 00002530 + READ(NR) (NPR(J),J=12,14) 00002540 + WRITE(NO,140) ANOM(6),(NPR(J),J=12,14) 00002550 +C---- CONTROLLI DI COESISTENZA. 00002560 + IF(NPR(13).NE.NPR(26))WRITE(NO,150) NPR(13),ANOM(6),NPR(5),ANOM(4)00002570 + IF(NPR(14).GT.NPR(1)) WRITE(NO,150) NPR(14),ANOM(6),NPR(1),ANOM(4)00002580 + 180 CONTINUE 00002590 +C---- LETTURA PARAMETRI DI SIGMAP. 00002600 + IF(NS.LE.0) GOTO 190 00002610 + REWIND NS 00002620 + READ(NS)(NPR(J),J=15,20) 00002630 + WRITE(NO,140) ANOM(7),(NPR(J),J=15,20) 00002640 +C---- CONTROLLI DI COESISTENZA. 00002650 + IF(NPR(15).NE.NPR(2)) WRITE(NO,150) NPR(15),ANOM(7),NPR(2),ANOM(4)00002660 + IF(NPR(17).NE.NPR(1)) WRITE(NO,150) NPR(17),ANOM(7),NPR(1),ANOM(4)00002670 + IF(NPR(18).NE.NPR(4)) WRITE(NO,150) NPR(18),ANOM(7),NPR(4),ANOM(4)00002680 + IF(NPR(19).NE.NPR(7)) WRITE(NO,150) NPR(19),ANOM(7),NPR(7),ANOM(4)00002690 + IF(NPR(20).NE.NPR(23))WRITE(NO,150)NPR(20),ANOM(7),NPR(23),ANOM(4)00002700 + NUFG=NPR(15) 00002710 + 190 CONTINUE 00002720 +C---- LETTURE DA LORENTZ 00002730 + IF(NL.LE.0) GOTO 200 00002740 + REWIND NL 00002750 + READ(NL) (NPR(J),J=27,29) 00002760 + WRITE(NO,140) ANOM(9), (NPR(J),J=27,29) 00002770 + IF(NPR(27).LE.0) NL=-1 00002780 + 200 CONTINUE 00002790 +C---- DEFINISCE I PUNTATORI NPUNT E LO SPAZIO PER LE DIVERSE 00002800 +C---- GRANDEZZE DEL COMMON /A/. 00002810 + CALL ADDRSS 00002820 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00002830 + CALL TTIME(NORA) 00002840 + WRITE(11,999) NORA 00002850 +C---- LETTURE DEI TAPES DI MCC-2 NON DIPENDENTI DALLA REGIONE. 00002860 +C---- CREAZIONE DI NUMMAT, CHE METTE IN CORRISPONDENZA MATERIALI 00002870 +C---- DI UNRES CON QUELLI DI PRBSPC. 00002880 + CALL EMPIE(A(LPRBNA),A(LHETDE),A(LMATHE),A(LEBG1),A(LNGPRE),A(LMAT00002890 + 1RE),A(LEN),A(LUNRMA),A(LNUMMA)) 00002900 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00002910 + CALL TTIME(NORA) 00002920 + WRITE(11,999) NORA 00002930 + IF(NP.GT.0) REWIND NP 00002940 +C---- PRBSPC NON SERVE PIU'. UNRES SERVE ANCORA, MA LA SUBROUTINE CHE 00002950 +C---- LO LEGGE LO RIPOSIZIONA OGNI VOLTA. 00002960 + IF(NU.GT.0) REWIND NU 00002970 +C---- CALCOLA ENERGIE U.F.G. CALCOLA NUMBG E NUMUFG 00002980 +C---- PER CORRISPONDENZA U.F.G. - B.G. 00002990 + CALL ENERG(A(LEBG1),A(LEUFG),A(LNUMBG),A(LNUMUF)) 00003000 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00003010 + CALL TTIME(NORA) 00003020 + WRITE(11,999) NORA 00003030 +C---- ********** INIZIO LOOP SULLE REGIONI. 00003040 + DO 240 I=1,NREAL 00003050 + IF(NS.LE.0) GO TO 210 00003060 +C---- LETTURA SP DA SIGMAP (SIGMA MACROSCOPICHE ETEROGENEE DEI 00003070 +C---- MATERIALI DELLA ZONA).CALCOLA NSPMAT (CORRISPONDENZA MATERIALI-SP)00003080 + CALL READSP(I,A(LSP),A(LMATHE),A(LSPMAT)) 00003090 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00003100 + CALL TTIME(NORA) 00003110 + WRITE(11,999) NORA 00003120 + 210 CONTINUE 00003130 + IF(NR.LE.0) GO TO 220 00003140 +C---- LETTURE DA LORENTZ CREA LORRES CORR> LORENTZ-RISONANZE 00003150 + IF(NL.GT.0) CALL LEGGLR(I,A(LNUMLO),A(LLORRE),A(LNDOLO),A(LGEJLO))00003160 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00003170 + CALL TTIME(NORA) 00003180 + WRITE(11,999) NORA 00003190 +C---- LETTURE DA RESINT E CREAZIONE SIGMA ETEROGENEE RISONANTI RISOLTE 00003200 +C---- PER LA ZONA. 00003210 + CALL RSNT(I,A(LSIGM),A(LEBG1),A(LNGPRE),A(LMATRE),A(LEN),A(LNUMBG)00003220 + 1,A(LGEJ),A(LDEN),A(LSP),A(LSPMAT),A(LHETDE),A(LLORRE)) 00003230 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00003240 + CALL TTIME(NORA) 00003250 + WRITE(11,999) NORA 00003260 + 220 CONTINUE 00003270 + IF(NU.LE.0) GO TO 230 00003280 +C---- LETTURE DA UNRES, CREAZIONE DELLE SIGMA IRRISOLTE 00003290 +C---- E LORO SOMMA ALLE SIGMA RISONANTI RISOLTE DELLA REGIONE. 00003300 + CALL NRS(I,A(LSIGM),A(LEBG1),A(LEUFG),A(LNUMBG),A(LNUMUF), 00003310 + 1A(LDEN),A(LANTUF),A(LPESI),A(LSUNRE),A(LESTAR),A(LUNRMA),A(LNUMMA)00003320 + 2,A(LINT),A(LAN),A(LSP),A(LSPMAT),A(LMATHE)) 00003330 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00003340 + CALL TTIME(NORA) 00003350 + WRITE(11,999) NORA 00003360 + 230 CONTINUE 00003370 + 240 CONTINUE 00003380 +C---- ********** FINE LOOP SULLE REGIONI. 00003390 + IF(NU.GT.0) REWIND NU 00003400 + IF(NR.GT.0) REWIND NR 00003410 + IF(NL.GT.0) REWIND NL 00003420 + IF(NS.GT.0) REWIND NS 00003430 +C--- SU OPZIONE DI INPUT EFFETTUA STAMPE 00003440 + IF(INP(3).GE.1) CALL STAMP(A(LSIGM),A(LPRBNA),A(LHETDE),A(LMATHE))00003450 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00003460 + CALL TTIME(NORA) 00003470 + WRITE(11,999) NORA 00003480 +C---- SE ESISTE IL TAPE PER RESTART VI VENGONO SCRITTI I DATI UTILI. 00003490 + IF(NSS.GT.0) CALL STAP(A(LSIGM),A(LPRBNA),A(LHETDE),A(LMATHE),A(LE00003500 + 1BG1)) 00003510 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00003520 + CALL TTIME(NORA) 00003530 + WRITE(11,999) NORA 00003540 + RETURN 00003550 +C---- 00003560 +C---- FINE SUBROUTINE ZERO7. 00003570 +C---- 00003580 + END 00003590 + SUBROUTINE ADDRSS 00003600 +C---- DEFINIZIONE PUNTATORI PER LE VARIABILI ENTRO IL COMMON /A/. 00003610 +C---- DEFINIZIONE COMMON /DIM/ USATO PER I DIMENSION. 00003620 + COMMON /NPUNT/NPUNT(1) 00003630 + COMMON /NPR/NPRMAT,NGROPP,MGCSP,NGEOM,NREG,NBG1,NREG1, 00003640 + 1NUMRES,NREGU,NPTMAX,MAXISO, 00003650 + 2NRES,NREGR,NRESMT, 00003660 + 3NGROUP,MGCUT,NPRMAS,NGEOS,NREGS,MAXHTM, 00003670 + 4ICHI,IBSQ,MAXHTP,NCMP,ISORS,NREAL, 00003680 + 5MAXNOL,MAXGRP,MAXGPH,NOLRES,N1MIN,N2MAX 00003690 + COMMON /NDMX/ILIM,DUM 00003700 + COMMON /DIM/NBG,M2,M3,NSP,NDL,MXNL 00003710 + COMMON /NTP/NI,NO 00003720 + WRITE(11,999) 00003730 + 999 FORMAT(' ADDRESS') 00003740 + NPUNT(1)=1 00003750 +C---- PRBNAM : NOMI MATERIALI (DUE PAROLE). 00003760 + NPUNT(2)=NPUNT(1)+NPRMAT*2 00003770 +C---- HETDEN : DENSITA'. 00003780 + M3=NPRMAT 00003790 + NPUNT(3)=NPUNT(2)+NPRMAT*(NREG+1) 00003800 +C---- MATHET : INDICI DI ETEROGENEITA'. 00003810 + NPUNT(4)=NPUNT(3)+NPRMAT*NREG1 00003820 + NBG=NBG1 00003830 + M2=2 00003840 +C---- SIGM : SIGMA RISONANZE CREATE. 00003850 + NPUNT(5)=NBG1*NPRMAT*2*NREAL+NPUNT(4) 00003860 +C---- EBG1 : ENERGIE B.G. 00003870 + NPUNT(6)=NPUNT(5)+NBG1 00003880 +C---- NGPRES,MATRES,EN : GRUPPI, MATERIALI, ENERGIE DELLE RISONANZE. 00003890 + DO 10 I=7,9 00003900 + 10 NPUNT(I)=NPUNT(I-1)+NRES 00003910 +C---- EUFG : ENERGIE GRUPPI ULTRAFINI. 00003920 + NPUNT(10)=NPUNT(9)+NGROUP+1 00003930 +C---- NUMBG : BROAD GROUP DI OGNI ULTRAFIN GROUP. 00003940 + NPUNT(11)=NPUNT(10)+NGROUP 00003950 +C---- NUMUF : NUMERO DI U.F.G. PER OGNI B.G. 00003960 + NPUNT(12)=NPUNT(11)+(NBG1-1) 00003970 +C---- GEJ : GAMMA/E*J RISONANZE RISOLTE. 00003980 + NPUNT(13)=NPUNT(12)+NRES 00003990 +C---- DEN : DENOMINATORE FORMULA A B.G. 00004000 + NPUNT(14)=NPUNT(13)+(NBG1-1) 00004010 +C---- ANTUF : INTERPOLAZIONE U.F.G. 00004020 + NPUNT(15)=NPUNT(14)+NGROUP 00004030 +C---- PESI : PESI MEDIE SIGMA IRRISOLTE. 00004040 + NPUNT(16)=NPUNT(15)+NGROUP 00004050 +C---- SUNRE : SIGMA IRRISOLTE. 00004060 + NPUNT(17)=NPUNT(16)+(NPTMAX*MAXISO) 00004070 +C---- ESTAR : ENERGIE SIGMA IRRISOLTE. 00004080 + NPUNT(18)=NPUNT(17)+NPTMAX 00004090 +C---- UNRMAT : NOMI MATERIALI UNRES. 00004100 + NPUNT(19)=NPUNT(18)+NUMRES*2 00004110 +C---- NUMMA : NUMERI MATERIALI NON RISOLTI. 00004120 + NPUNT(20)=NPUNT(19)+NUMRES 00004130 +C---- INT : PER SUBROUTINE SIGAVC DI MCC-2. 00004140 + NPUNT(21)=NPUNT(20)+NPTMAX 00004150 +C---- AN : PER SUBROUTINE SIGAVC DI MCC-2. 00004160 + NPUNT(22)=NPUNT(21)+NPTMAX 00004170 +C---- SP : SIGMA MACRO LETTE DA SIGMAP. 00004180 + NSP=NGROUP 00004190 + NPUNT(23)=NPUNT(22)+NSP*(MAXHTM+1) 00004200 +C---- NSPMAT : CORRISPONDENZA NUMERI MATERIALI E SP. 00004210 + NPUNT(24)=NPUNT(23)+NPRMAT 00004220 +C---- NUMLOR : NUMERI RISONANZE IN LORENTZ 00004230 + NPUNT(25)=NPUNT(24)+MAXNOL 00004240 +C---- LORRES : NUMERO IN LORENTZ DI OGNI RISONANZA 00004250 + NPUNT(26)=NPUNT(25)+NRES 00004260 +C---- NDOLOR : LIMITI ENERGETICI RISONANZE IN LORENTZ 00004270 + NDL=3 00004280 + NPUNT(27)=NPUNT(26)+NDL*MAXNOL 00004290 +C---- GEJLOR : GEJ DI LORENTZ 00004300 + MXNL=MAXNOL 00004310 + NPUNT(28)=NPUNT(27)+MXNL*MAXGRP-1 00004320 + WRITE(NO,20) NPUNT(28),ILIM 00004330 + 20 FORMAT(/' LA OCCUPAZIONE E* DI ',I20,' PAROLE,DISPONIBILI: ',I10,'00004340 + 1 PAROLE') 00004350 + WRITE(11,998) (J,NPUNT(J),J=1,28) 00004360 +998 FORMAT(1X,(' NPUNT(',I4,')= ',I7)) 00004370 + IF(NPUNT(28).GT.ILIM) WRITE(NO,30) 00004380 + 30 FORMAT(/' ******** ATTENZIONE LO SPAZIO FORNITO NON BASTA********00004390 + 1'/' ******** AUMENTARE LE DIMENSIONI DEL COMMON/A/ NEL MAIN*******00004400 + 2'/'*********** AUMENTARE IL PARAMETRO MDIM DEL MAIN ***********')00004410 + IF(NPUNT(28).GT.ILIM) STOP 00004420 +C---- PULISCE TUTTO LO SPAZIO DA ADOPERARE. 00004430 + CALL NULL(1,NPUNT(28)) 00004440 + RETURN 00004450 +C---- 00004460 +C---- FINE SUBROUTINE ADDRSS. 00004470 +C---- 00004480 + END 00004490 + SUBROUTINE EMPIE(PRBNAM,HETDEN,MATHET,EBG1,NGPRES,MATRES,EN,UNRMAT00004500 + 1,NUMMAT) 00004510 +C---- LEGGE DA PRBSPC, RESINT, UNRES LE GRANDEZZE IN ARGOMENTO, 00004520 +C---- CALCOLA NUMMAT. 00004530 + REAL *8 PRBNAM,UNRMAT 00004540 + DIMENSION PRBNAM(1),HETDEN(MMAT,1),MATHET(MMAT,1),EBG1(1),NGP 00004550 + 1RES(1),MATRES(1),EN(1),UNRMAT(1),NUMMAT(1) 00004560 + COMMON /DIM/NBG,M2,MMAT,NSP 00004570 + COMMON /NTP/NI,NO,NPC,NP,NU,NR,NS 00004580 + COMMON /INP/INP(1) 00004590 + COMMON /NPR/NPRMAT,NUFG,MGCSP,NGEOM,NREG,NBG1,NREG1, 00004600 + 1NUMRES,NREGU,NPTMAX,MAXISO, 00004610 + 2NRES,NREGR,NRESMT, 00004620 + 3NGROUS,MGCUTS,NPRMAS,NGEOS,NREGS,MAXHTS, 00004630 + 4ICHI,IBSQ,MAXHTM,NCMP,ISORS,NREAL 00004640 +C---- LETTURE DA PRBSPC. 00004650 + READ(NP)(PRBNAM(J),J=1,NPRMAT) 00004660 + READ(NP)(HETDEN(J,1),J=1,NPRMAT) 00004670 + WRITE(11,999) 00004680 + 999 FORMAT(' EMPIE LETTURE DA PRBSPC,RESINT UNRES') 00004690 +C---- SALTA UN RECORD DA PRBSPC. 00004700 + CALL SKIP(NP,1) 00004710 + NREGE1=NREG+1 00004720 + IF(MAXHTM.GT.0) READ(NP)((HETDEN(J,JJ),J=1,NPRMAT),JJ=2,NREGE1) 00004730 + IF(NGEOM.GT.0) READ(NP)((MATHET(J,JJ),J=1,NPRMAT),JJ=1,NREG1) 00004740 +C---- CALCOLO NUMERO RECORDS DA SALTARE SU PRBSPC. 00004750 + NSK=1 00004760 + IF(NGEOM.EQ.1.AND.MAXHTM.GT.0) NSK=NSK+2 00004770 + IF(MAXHTM.GT.0) NSK=NSK+2 00004780 + IF(ICHI.GE.1) NSK=NSK+1 00004790 + IF(IABS(IBSQ).LE.1)NSK=NSK+1 00004800 + IF(NCMP.GT.0) NSK=NSK+1 00004810 + IF(ISORS.GT.0) NSK=NSK+1 00004820 + CALL SKIP(NP,NSK) 00004830 + READ(NP) (EBG1(J),J=1,NBG1) 00004840 +C---- FINE LETTURA PRBSPC. 00004850 + IF(NR.LE.0) GOTO 10 00004860 +C---- LETTURE DA RESINT. 00004870 + READ(NR)(NGPRES(J),J=1,NRES) 00004880 + READ(NR)(MATRES(J),J=1,NRES) 00004890 + READ(NR) (EN(J),J=1,NRES) 00004900 + NSK=3*NREGR 00004910 +C---- SALTA LA PARTE DI RESINT CON INTEGRALI DI RISONANZA 'NON' 00004920 +C---- CORRETTI PER OVERLAP CON IRRISOLTE. CAUSA ERRORE SE LA PARTE 00004930 +C---- CORRETTA NON ESISTE. 00004940 + CALL SKIP(NR,NSK) 00004950 + 10 CONTINUE 00004960 + IF(NU.LE.0) GOTO 60 00004970 +C---- LETTURA UNRES. 00004980 + READ(NU) (UNRMAT(J),J=1,NUMRES) 00004990 +C---- CREA NUMMAT, CHE PER OGNUNO DEI MATERIALI CON RISONANZE 00005000 +C---- IRRISOLTE IN UNRMAT CONTIENE IL NUMERO DEL MATERIALE 00005010 +C---- (POSIZIONE IN PRBNAM). 00005020 + DO 50 II=1,NUMRES 00005030 + DO 30 I=1,NPRMAT 00005040 + IF(UNRMAT(II).EQ.PRBNAM(I)) GO TO 40 00005050 + 30 CONTINUE 00005060 + WRITE(NO,35) UNRMAT(II) 00005070 + 35 FORMAT(/' ************* ATTENZIONE, IL MATERIALE : ',A8,' NON E* 00005080 + 1 IN PRBSPC') 00005090 + NUMMAT(II)=1 00005100 +C---- VIENE DATO VALORE 1 A NUMMAT PERCHE' IL PROGRAMMA POSSA 00005110 +C---- IN OGNI CASO PROSEGUIRE. 00005120 + GO TO 50 00005130 + 40 NUMMAT(II)=I 00005140 + 50 CONTINUE 00005150 + 60 CONTINUE 00005160 + RETURN 00005170 +C---- 00005180 +C---- FINE SUBROUTINE EMPIE. 00005190 +C---- 00005200 + END 00005210 + SUBROUTINE ENERG(EBG1,EUFG,NUMBG,NUMUFG) 00005220 +C---- CALCOLO ENERGIE DEI GRUPPI ULTRAFINI. 00005230 + DIMENSION EBG1(1),EUFG(1),NUMBG(1),NUMUFG(1) 00005240 + COMMON /NPR/NPR(6) 00005250 + EQUIVALENCE (NUFG,NPR(2)),(NBG1,NPR(6)) 00005260 + WRITE(11,999) 00005270 + 999 FORMAT(' ENERG') 00005280 +C---- CALCOLO LETARGIA COSTANTE. 00005290 + DU=ALOG(EBG1(1)/EBG1(NBG1))/NUFG 00005300 + EUFG(1)=EBG1(1) 00005310 +C---- CALCOLO ENERGIE U.F.G. 00005320 + DO 1 I=2,NUFG 00005330 + 1 EUFG(I)=EUFG(I-1)*EXP(-DU) 00005340 + EUFG(NUFG+1)=EBG1(NBG1) 00005350 +C---- SONO LE ISTRUZIONI DAL NUM 39660 DI BGSPEC DI MCC-2. 00005360 +C---- SERVONO A CREARE : NUMUFG(N. DI U.F.G. DEL B.G.) 00005370 +C---- NUMBG(N. DEL B.G. DI OGNI U.F.G.). 00005380 + DEL =1./DU 00005390 + NMAX=0 00005400 + DO 110 I=2,NBG1 00005410 + INDX=I-1 00005420 + NUMUFG(INDX)=DEL*ALOG(EBG1(INDX)/EBG1(I))+0.01 00005430 + NMIN=NMAX+1 00005440 + NMAX=NMAX+NUMUFG(INDX) 00005450 + DO 100 J=NMIN,NMAX 00005460 + NUMBG(J)=INDX 00005470 + 100 CONTINUE 00005480 + 110 CONTINUE 00005490 + RETURN 00005500 +C---- 00005510 +C---- FINE SUBROUTINE ENERG. 00005520 +C---- 00005530 + END 00005540 + SUBROUTINE READSP(I,SP,MATHET,NSPMAT) 00005550 +C---- LETTURA SP(SIGMA MACRO "ETEROGENEE") DELLA ZONA I, 00005560 +C---- CREAZIONE NSPMAT CONTENENTE PER OGNI MATERIALE IL 00005570 +C---- NUMERO DEL CORRISPONDENTE SP. 00005580 + COMMON /DIM/NBG,M2,MMAT,NSP 00005590 + COMMON /NTP/NI,NO,NPC,NP,NU,NR,NS 00005600 + COMMON /NPR/JNPRMA,JNUFG,MGCSD,JNGEO,NREG,NBG1,JNREG1, 00005610 + 1NUMRES,JNREG,NPTMAX,MAXISO, 00005620 + 2NRES,JDNREG,NRESMT, 00005630 + 3NUFG,MGCUT,NPRMAT,NGEOM,NREG1,MAXHTM 00005640 + DIMENSION SP(NSP,1),MATHET(MMAT,1),NSPMAT(1) 00005650 + WRITE(11,999) 00005660 + 999 FORMAT(' READSP LETTURA SP DA SIGMAP') 00005670 + IF(I.GT.1) GOTO 20 00005680 +C---- LETTURE SP DELLA ZONA OMOGENEA (I=1). VENGONO 00005690 +C---- CONSERVATE IN SP(J,1). 00005700 + K=1 00005710 + READ(NS) (SP(J,K),J=MGCUT,NUFG) 00005720 +C---- ...E VENGONO ASSEGNATE AD OGNI MATERIALE(NSPMAT=1). 00005730 + DO 10 II=1,NPRMAT 00005740 + 10 NSPMAT(II)=K 00005750 + GO TO 100 00005760 + 20 K=1 00005770 +C---- PER OGNI ZONA DIVERSA DA 1 RIEMPIE SP A PARTIRE DA SP(J,2), 00005780 +C---- CONSERVANDO LA SP OMOGENEA. 00005790 + IF(MAXHTM.LE.0) GO TO 100 00005800 +C---- IN QUESTO CASO NON ESISTONO SP "ETEROGENEE" SU SIGMAP. A TUTTI 00005810 +C---- I MATERIALI RESTA ASSEGNATA LA SP OMOGENEA, ALTRIMENTI PER OGNI 00005820 +C---- MATERIALE PER CUI MATHET E* >0 SI EFFETTUA UNA LETTURA METTENDO 00005830 +C---- LA SP LETTA IN SP(J,INDICE CRESCENTE K) E LA SI ASSEGNA AL 00005840 +C---- MATERIALE CORRISPONDENTE PONENDO IL VALORE K IN NSPMAT(MATERIALE).00005850 + DO 50 II=1,NPRMAT 00005860 + IF(MATHET(II,I-1).LE.0) GO TO 30 00005870 +C---- PER CILINDRI QUI E* PRESENTE UNA SOLA SP ETEROGENEA PER TUTTI I 00005880 +C---- MATERIALI. INDI, FATTA LA PRIMA LETTURA (K=2), SI ASSEGNA LO 00005890 +C---- SP LETTO A TUTTI I MATERIALI "ETEROGENEI" (MATHET.NE.0) SENZA 00005900 +C---- LEGGERE PIU'. 00005910 + IF(NGEOM.EQ.2.AND.K.GE.2) GO TO 40 00005920 + K=K+1 00005930 + READ(NS) (SP(J,K),J=MGCUT,NUFG) 00005940 + 40 NSPMAT(II)=K 00005950 + GO TO 50 00005960 +C---- AI MATERIALI PER CUI MATHET=0 RESTA ASSEGNATA LA SP OMOGENEA. 00005970 + 30 NSPMAT(II)=1 00005980 + 50 CONTINUE 00005990 + 100 RETURN 00006000 +C---- 00006010 +C---- FINE SUBROUTINE READSP. 00006020 +C---- 00006030 + END 00006040 + SUBROUTINE LEGGLR (I, NUMLOR,LORRES, NDOLOR, GEJLOR) 00006050 +C---- LEGGE DATI IN ARGOMENTO DELLE REGIONI I DA LORENTZ, 00006060 +C---- CREA NUMLOR, CORRISP. FRA RISONANZE E GEJLOR LETTO. 00006070 + COMMON /NPR/NPRMAT,NGROUP,MGCSP,NGEOM,NREG,NBG1,NREG1, 00006080 + 1NUMRES,NREGU,NPTMAX,MAXISO, 00006090 + 2NRES,NREGR,NRESMT, 00006100 + 3NGROUS,MGCUT,NPRMAS,NGEOS,NREGS,MAXHTM, 00006110 + 4ICHI,IBSQ,MAXHTP,NCMP,ISORS,NREAL, 00006120 + 5MAXNOL,MAXGRP,MAXGPH,NOLRES,N1MIN,N2MAX 00006130 + COMMON /DIM/NBG,M2,M3,NSP,NDL,MXNL 00006140 + COMMON /A/A(1) 00006150 + COMMON /NTP/NI,NO,NPC,NP,NU,NR,NS,NSS,NL,NT(9) 00006160 + COMMON /INP/ INP(1) 00006170 + COMMON /NDMX/ NDIM,NTAPE,NINP 00006180 + COMMON /TITL/ TITL(20) 00006190 + COMMON /NPUNT/LPRBNA,LHETDE,LMATHE,LSIGM,LEBG1,LNGPRE,LMATRE,LEN,L00006200 + 1EUFG,LNUMBG,LNUMUF,LGEJ,LDEN,LANTUF,LPESI,LSUNRE,LESTAR,LUNRMA,LNU00006210 + 2MMA,LINT,LAN,LSP,LSPMAT,LNUMLO,LLORRE,LNDOLO,LGEJLO,LIMIT 00006220 + DIMENSION NUMLOR(1), LORRES(1),NDOLOR(NDL,1), GEJLOR(MXNL,1) 00006230 + READ(NL) NOLRES, N1MIN, N2MAX 00006240 + WRITE(11,999) I, NOLRES,N1MIN, N2MAX 00006250 + 999 FORMAT(/' LETTURE DA LORENTZ : REGIONE',I5, 00006260 + 1' LETTI NUMERO RISONANZE, LIMITI E MAX: ',3I5) 00006270 +C---- ANNULLA LORRES CORRISP. RISONANZE- LORENTZ 00006280 + CALL NULL (LLORRE,NRES) 00006290 + IF(NOLRES.LE.0) RETURN 00006300 + READ(NL) (NUMLOR(J),J=1,NOLRES) 00006310 +C---- CREAZIONE MATRICE LORRES : CONTIENE IL NUMERO 00006320 +C---- D'ORDINE DELLA RISONANZA IN LORENTZ. 00006330 + DO 1 K=1,NOLRES 00006340 + LORRES(NUMLOR(K))=K 00006350 + 1 CONTINUE 00006360 +C---- ********** LOOP LETTURA LIMITI ENERGETICI NDOLOR E GEJLOR 00006370 + DO 3 K=1,NOLRES 00006380 + READ(NL) (NDOLOR(J,K),J=1,3) 00006390 + NOLINT=NDOLOR(1,K) 00006400 + READ(NL) (GEJLOR(K,J),J=1,NOLINT) 00006410 +C NORMALIZZAZIONE DELLE DISTRIBUZ. LETTE 00006420 + SMNRM=0.0 00006430 + DO 4 JJ=1,NOLINT 00006440 + 4 SMNRM=SMNRM+GEJLOR(K,JJ) 00006450 + DO 5 JJ=1,NOLINT 00006460 + 5 GEJLOR(K,JJ)=GEJLOR(K,JJ)/SMNRM 00006470 + 3 CONTINUE 00006480 + RETURN 00006490 +C---- 00006500 +C---- FINE SUBROUTINE LEGGLR 00006510 +C---- 00006520 + END 00006530 + SUBROUTINE RSNT(I,SIGM,EBG,NGPRES,MATRES,EN,NUMBG,GEJ,DEN,SP,NSPMA00006540 + 1T,HETDEN,LORRES) 00006550 +C---- LETTURA INTEGRALI DI RISONANZA DA RESINT. CALCOLO SEZIONI 00006560 +C---- D'URTO RISONANZE RISOLTE. 00006570 + COMMON /A/A(1) 00006580 + COMMON /INP/INP(1) 00006590 + COMMON /NPR/NPR(11),NRES,NREG,NRESMT 00006600 + COMMON /DIM/ NBG,M2,MMAT,NSP,NDL,MXNL 00006610 + COMMON /NTP/ NI,NO,NPC,NP,NU,NR,NS,NSS,NL 00006620 + COMMON /NPUNT/LPRBNA,LHETDE,LMATHE,LSIGM,LEBG1,LNGPRE,LMATRE,LEN,L00006630 + 1EUFG,LNUMBG,LNUMUF,LGEJ,LDEN,LANTUF,LPESI,LSUNRE,LESTAR,LUNRMA,LNU00006640 + 2MMA,LINT,LAN,LSP,LSPMAT,LNUMLO,LLORRE,LNDOLO,LGEJLO,LIMIT 00006650 + EQUIVALENCE(NPRMAT,NPR(1)) 00006660 + DIMENSION SIGM(NBG,M2,1),EBG(1),NGPRES(1),MATRES(1),EN(1) 00006670 + DIMENSION NUMBG(1),GEJ(1),DEN(1),SP(NSP,1),NSPMAT(1),HETDEN(MMAT,100006680 + 1),LORRES(1) 00006690 +C---- :::::::: QUESTO DIMENSION DEVE ESSERE UGUALE AD M2 00006700 + DIMENSION SCF(2) 00006710 +C---- ANNULLA IL DENOMINATORE. 00006720 + CALL NULL(LDEN,NPR(6)-1) 00006730 + WRITE(11,999) I 00006740 + 999 FORMAT(' RSNT RISONANZE RISOLTE , ZONA:',I5) 00006750 +C---- ********** LOOP SUI TRE TIPI DI GEJ IN RESINT: 00006760 +C---- CATT, FISS, TOTAL. 00006770 + DO 100 II=1,3 00006780 + READ(NR) (GEJ(J),J=1,NRES) 00006790 +C---- TRATTAMENTO RISONANZE DI LORENTZ 00006800 + IF(NL.GT.0) CALL LOR(I,II,A(LNDOLO),SIGM,NUMBG,MATRES,A(LNUMLO),GE00006810 + 1J,SP,NSPMAT,A(LGEJLO),DEN) 00006820 +C---- LA GEJ TOTAL (3.) SERVE SOLO PER IL DENOMINATORE. 00006830 + IF(II.EQ.3) GOTO 60 00006840 +C---- OGNI RISONANZA LETTA VIENE SOMMATA ALLA SIGM DEL SUO B.G. 00006850 +C---- NUMBG(NGPRES(IK)), MATERIALE(MATRES(IK)) E ZONA (I-1)*NPRMAT 00006860 +C---- MOLTIPLICATA PER LA SUA SP. LE SIGM SONO AZZERATE DA ADDRESS 00006870 +C---- ALL'INIZIO DEL PROGRAMMA. 00006880 + DO 50 IK=1,NRES 00006890 + IF(NL.GT.0.AND.LORRES(IK).NE.0) GO TO 50 00006900 +C---- IN QUESTO CASO E* STATO TRATTATO CON LORENTZ 00006910 + SIGM(NUMBG(NGPRES(IK)),II,MATRES(IK)+(I-1)*NPRMAT)= 00006920 + 1SIGM(NUMBG(NGPRES(IK)),II,MATRES(IK)+(I-1)*NPRMAT) + 00006930 + 2 GEJ(IK)*SP(NGPRES(IK),NSPMAT(MATRES(IK))) 00006940 + 50 CONTINUE 00006950 + IF(II.NE.3) GOTO 80 00006960 + 60 CONTINUE 00006970 +C---- IN DEN VENGONO SOMMATI I GEJ TOTAL. 00006980 + DO 70 IK=1,NRES 00006990 + IF(NL.GT.0.AND.LORRES(IK).NE.0.AND.INP(4).NE.1) GO TO 70 00007000 +C---- IN QUESTO CASO E* STATO TRATTATO CON LORENTZ 00007010 + DEN(NUMBG(NGPRES(IK)))=DEN(NUMBG(NGPRES(IK)))+GEJ(IK) 00007020 + 70 CONTINUE 00007030 + 80 CONTINUE 00007040 + 100 CONTINUE 00007050 +C---- ********** FINE LOOP SUI TRE TIPI DI GEJ. 00007060 +C---- CALCOLO DENOM. DI SIGM E DIVISIONE DI SIGM PER IL DENOMINATORE. 00007070 +C---- ********** LOOP SUI MATERIALI DI SIGM. 00007080 + NGR=NPR(6)-1 00007090 + DO 200 II=1,NPRMAT 00007100 + IF(HETDEN(II,I).LE.0) GOTO 200 00007110 +C---- AZZERAMENTO SOMMATORIE 00007120 + ST=0.0 00007130 + DO 101 JJK=1,M2 00007140 + 101 SCF(JJK)=0.0 00007150 + NEXP =0 00007160 +C---- ********************** LOOP SUI GRUPPI DI SIGM 00007170 + DO 125 IIE=1,NGR 00007180 + NEXP =NEXP+1 00007190 + DSM=ALOG(EBG(IIE-NEXP+1)/EBG(IIE+1)) 00007200 + ST=DEN(IIE)+ST 00007210 + DO 102 JJK=1,M2 00007220 + 102 SCF(JJK)=SCF(JJK)+SIGM(IIE,JJK,II+(I-1)*NPRMAT) 00007230 +C---- SE SIGM E* NULLA NON FA LA DIVISIONE 00007240 +C:::: QUI SI FA CORRERE SCF SU CATT,FISS NON SU M2 COME DOVREBBE 00007250 + IF(SCF(1).EQ.0.0.AND.SCF(2).EQ.0.0) GO TO 110 00007260 +C---- L*ULTIMO GRUPPO VA TRATTATO IN OGNI MODO,SALVO SIA OVERFLOW 00007270 + IF(IIE.EQ.NGR.AND.(DSM-ST).NE.0.0) GO TO 103 00007280 +C---- IN QUESTO CASO LA RISONANZA E' TROPPO GROSSA PER QUESTA APPROSS 00007290 +C---- E SI MEDIA SU PIU' GRUPPI CONTINUANDO LA SOMM NEL LOOP 00007300 + IF((ST/DSM).GT.0.6) GO TO 120 00007310 +C---- MEDIE (SU UNO O PIU GRUPPI) ED AZZERA CONTATORE E SOMM 00007320 + 103 JIE=IIE-NEXP+1 00007330 + DO 105 JJK=JIE,IIE 00007340 + DO 104 II3=1,M2 00007350 +C---- ************** LOOP SU CATT E FISS 00007360 + SIGM(JJK,II3,II+(I-1)*NPRMAT)=SCF(II3)/((DSM-ST)*HETDEN(II,I)) 00007370 + 104 CONTINUE 00007380 + 105 CONTINUE 00007390 + IF(NEXP.EQ.1) GO TO 110 00007400 +C---- ALTRIMEMTI HA MEDIATO SU PIU' GRUPPI E LO SEGNALA IN OUTP 00007410 + NEX1=NEXP-1 00007420 + WRITE(NO,205) I,II,IIE,NEX1 00007430 + 205 FORMAT(/' REGIONE:',I4,' ISOTOPO:',I4/' -- IL GRUPPO :',I4,' 00007440 + 1E'' INGLOBATO COI PRECEDENTI:',I4,' PER CALCOLO RISOLTE'/) 00007450 + 110 NEXP=0 00007460 + ST=0.0 00007470 + DO 112 JJK=1,M2 00007480 + 112 SCF(JJK)=0.0 00007490 +C---- FINE RIPRISTINO CONDIZ DI ZERO IN SOMMATORIA 00007500 + 120 CONTINUE 00007510 + 125 CONTINUE 00007520 +C---- ************************ FINE LOOP SUI GRUPPI PER DIVIS 00007530 + 200 CONTINUE 00007540 +C---- ********** FINE LOOP SUI TIPI, SUI GRUPPI E SUI MATERIALI DI SIGM.00007550 +C---- 00007560 +C---- FINE SUBROUTINE RSNT. 00007570 +C---- 00007580 + RETURN 00007590 + END 00007600 + SUBROUTINE LOR (I, II, NDOLOR, SIGM, NUMBG, MATRES, 00007610 + 1NUMLOR, GEJ, SP, NSPMAT, GEJLOR, DEN) 00007620 +C---- TRATTA LE DISTRIBUZIONI DI LORENTZ PER REGIONE I, TIPO SIGMA II. 00007630 + COMMON /NPR/NPRMAT,NGROUP,MGCSP,NGEOM,NREG,NBG1,NREG1, 00007640 + 1NUMRES,NREGU,NPTMAX,MAXISO, 00007650 + 2NRES,NREGR,NRESMT, 00007660 + 3NGROUS,MGCUT,NPRMAS,NGEOS,NREGS,MAXHTM, 00007670 + 4ICHI,IBSQ,MAXHTP,NCMP,ISORS,NREAL, 00007680 + 5MAXNOL,MAXGRP,MAXGPH,NOLRES,N1MIN,N2MAX 00007690 + COMMON /DIM/NBG,M2,M3,NSP,NDL,MXNL 00007700 + COMMON /A/A(1) 00007710 + COMMON /NTP/NI,NO,NPC,NP,NU,NR,NS,NSS,NL,NT(9) 00007720 + COMMON /INP/ INP(18) 00007730 + COMMON /SPECS/ DUM(12),NUFG 00007740 + COMMON /NDMX/ NDIM,NTAPE,NINP 00007750 + COMMON /TITL/ TITL(20) 00007760 + COMMON /NPUNT/LPRBNA,LHETDE,LMATHE,LSIGM,LEBG1,LNGPRE,LMATRE,LEN,L00007770 + 1EUFG,LNUMBG,LNUMUF,LGEJ,LDEN,LANTUF,LPESI,LSUNRE,LESTAR,LUNRMA,LNU00007780 + DIMENSION GEJ(1), SP(NSP,1), NSPMAT(1), GEJLOR(MXNL,1), DEN(1), 00007790 + 1 NDOLOR(NDL,1), SIGM(NBG,M2,1), NUMBG(1), MATRES(1), NUMLOR(1) 00007800 + IF(NOLRES.LE.0) RETURN 00007810 + WRITE(11,999) II 00007820 + 999 FORMAT(' SUBROUTINE LOR:TRATTAMENTO RISONANZE DI LORENTZ,SIG:',I4)00007830 +C---- ********** LOOP SULLE RISONANZE DI LORENTZ. 00007840 + DO 1 K=1,NOLRES 00007850 + NOLINT=NDOLOR(1,K) 00007860 + N1=NDOLOR(2,K) 00007870 + N2=NDOLOR(3,K) 00007880 + IF(II.GT.2) GO TO 20 00007890 +C---- ********** LOOP SUI GRUPPI ULTRAFINI DELLE RISONANZE DI LORENTZ 00007900 + DO 2 KG=N1,N2 00007910 + SIGM(NUMBG(KG),II,MATRES(NUMLOR(K))+(I-1)*NPRMAT) = 00007920 + 1 SIGM(NUMBG(KG),II,MATRES(NUMLOR(K))+(I-1)*NPRMAT) + 00007930 + 2GEJ(NUMLOR(K))*SP(KG,NSPMAT(MATRES(NUMLOR(K))))*GEJLOR(K,KG-N1+1) 00007940 +C---- SP E' DIMENSIONATO OLTRE MGCUT ED IL PEZZO IN PIU' E' VUOTO. 00007950 + 2 CONTINUE 00007960 + GO TO 30 00007970 + 20 CONTINUE 00007980 +C CON QUESTA OPZIONE LORENZ NON TRATTA IL DENOM 00007990 + IF(INP(4).EQ.1) GO TO 30 00008000 +C---- ********** LOOP SUI GRUPPI ULTRAFINI DEL DENOMINATORE. 00008010 + DO 3 KG=N1,N2 00008020 + DEN(NUMBG(KG))=DEN(NUMBG(KG))+GEJ(NUMLOR(K))*GEJLOR(K,KG-N1+1) 00008030 + 3 CONTINUE 00008040 + 30 CONTINUE 00008050 + 1 CONTINUE 00008060 + RETURN 00008070 +C---- 00008080 +C---- FINE SUBROUTINE LOR. 00008090 +C---- 00008100 +C-----------------------------------------------------------------------00008110 +C-----------------------------------------------------------------------00008120 + END 00008130 + SUBROUTINE NRS(I,SIGM,EBG1,EUFG,NUMBG,NUMUFG,DEN,ANTUF,PESI, 00008140 + 1SUNRE,ESTAR,UNRMAT,NUMMA,INT,AN,SP,NSPMAT,MATHET) 00008150 +C---- LEGGE DA UNRES SIGMA IRRISOLTE, LE MEDIA A 2000 GRUPPI, 00008160 +C---- LE SOMMA ALLE RISOLTE PRESENTI IN SIGM. I E' LA REGIONE. 00008170 + REAL*8 UNRMAT 00008180 + COMMON /DIM/NBG,M2,M3,NSP 00008190 + DIMENSION SIGM(NBG,M2,1),EBG1(1),EUFG(1),NUMBG(1),NUMUFG(1) 00008200 + DIMENSION DEN(1),ANTUF(1),PESI(1),SUNRE(1),ESTAR(1) 00008210 + DIMENSION UNRMAT(1),NUMMA(1),INT(1),AN(1),SP(NSP,1),NSPMAT(1) 00008220 + DIMENSION NPTS(1),MATHET(M3,1) 00008230 +C---- NPTS E* EFFETTIVAMENTE DIMENSIONATO UNO IN QUANTO VARIA 00008240 +C---- SU UNA STRUTTURA PER ISOTOPI CHE IL CODICE MCC-2 NON 00008250 +C---- GENERA. PERTANTO NON COMPARE NEGLI ARGOMENTI E NON 00008260 +C---- CORRISPONDE AD ALCUNA LOCAZIONE IN COMMON /A/. 00008270 + COMMON /NTP/NTP(4),NU 00008280 + COMMON /INP/INP(18) 00008290 + COMMON /NPR/NPRMAT,NUFG,MGCSD,NGEOM,JNREG,NBG1,NREG1, 00008300 + 1NUMRES,NREG,NPTMAX,MAXISO 00008310 +C---- IL COMMON /SPECS/ PER SIGAVG DI MC2-2 E* RIEMPITO DAL MAIN. 00008320 + NSK2=-2 00008330 +C---- POSIZIONAMENTO UNRES AL TERZO RECORD A PARTIRE DALL'INIZIO 00008340 +C---- (ALL'INIZIO DEL PRIMO ISOTOPO). 00008350 + CALL SKIP(NU,NSK2) 00008360 + WRITE(11,999) 00008370 + 999 FORMAT(' NRS RISONANZE NON RISOLTE') 00008380 +C---- ********** LOOP SUI MATERIALI DI UNRES. 00008390 + DO 500 IM=1,NUMRES 00008400 +C---- LETTURE N. ISOTOPI (STRUTTURA FITTIZIA DI UNRES CON PIU' 00008410 +C---- ISOTOPI PER MATERIALE), INDICE IFI DI FISSIONE, N. PUNTI 00008420 +C---- ENERGETICI CUI SONO DATE LA SIGMA UNRES. 00008430 + READ(NU) NISO,IFI 00008440 + IF(IFI.NE.0) IFI=1 00008450 + READ(NU) (NPTS(J),J=1,NISO) 00008460 +C---- ********** LOOP SULLA STRUTTURA FITTIZIA AD ISOTOPI 00008470 +C---- PER MATERIALE DI UNRES. 00008480 + DO 500 IDM=1,NISO 00008490 + NPNT=NPTS(IDM) 00008500 +C---- LETTURE ENERGIE DELLA SIGMA UNRES. 00008510 + READ(NU) (ESTAR(J),J=1,NPNT) 00008520 + IF(I.EQ.1) GOTO 40 00008530 +C---- NELLA ZONA OMOGENEA E' IL PRIMO RECORD DELL'ISOTOPO, 00008540 +C---- ALTRIMENTI DEVE SALTARE RECORDS PER ARRIVARE ALLA REGIONE I. 00008550 +C---- CALCOLO N. RECORDS DA SALTARE PER ARRIVARE A QUELLO DELLA 00008560 +C---- ZONA I PER IL MATERIALE TRATTATO. 00008570 + NSK=1 00008580 +C---- RECORD ZONA OMOGENEA. 00008590 + I1=I-2 00008600 +C---- I1 = REGIONI ETEROGENEE PRECEDENTI I (I1=0 : NON ESISTONO 00008610 +C---- REGIONI ETEROGENEE PRECEDENTI). 00008620 + IF(I1.EQ.0) GOTO 30 00008630 +C---- CONTA IN QUANTE DELLE REGIONI ETEROGENEE PRECEDENTI E' 00008640 +C---- PRESENTE LA SIGMA UNRES DEL MATERIALE DA TRATTARE (QUANTI 00008650 +C---- RECORDS SALTARE). 00008660 + DO 20 I2=1,I1 00008670 + IF(MATHET(NUMMA(IM),I2).NE.0) NSK=NSK+1 00008680 + 20 CONTINUE 00008690 +C---- POSIZIONAMENTO TAPE UNRES ALLA REGIONE DA TRATTARE. 00008700 + 30 CALL SKIP (NU,NSK*(2+IFI)) 00008710 +C---- ISK E' UN CONTATORE CHE INDICA CHE C'E* UNA SIGMA TOTAL 00008720 +C---- DA SALTARE IN UNRES. 00008730 + ISK=0 00008740 + IF(MATHET(NUMMA(IM),I-1).EQ.0) GOTO 70 00008750 +C---- SE IL MATERIALE CORRENTE DELLA REGIONE PRESENTE NON E* 00008760 +C---- IN UNRES PASSA OLTRE. 00008770 + 40 CONTINUE 00008780 +C---- AL PRIMO GIRO DEGLI ISOTOPI (LOOP FITTIZIO) CALCOLA I PESI 00008790 +C---- PER MEDIA SIGMA A B.G. E DENOMINATORE DI MEDIE. 00008800 + IF(IDM.EQ.1) CALL PESA(I,IM,EBG1,EUFG,NUMBG,NUMUFG,DEN,PESI,SP,NSP00008810 + 1MAT,NUMMA) 00008820 +C---- ********** LOOP SU CATTURA E FISSIONE. 00008830 + DO 60 I5=1,2 00008840 +C---- SE LA FISSIONE NON C'E* NON LA LEGGE. 00008850 + IF(I5.EQ.2.AND.IFI.EQ.0) GOTO 60 00008860 +C---- LETTURA SEZIONI D'URTO IN UNRES. 00008870 + READ(NU)(SUNRE(J),J=1,NPNT) 00008880 +C---- SIGAVG E* UNA SUBROUTINE INTERPOLANTE DI MCC-2. INTERPOLA 00008890 +C---- A 2000 GRUPPI LE SIGMA UNRES LETTE, CALCOLA IMIN ED IMAX, 00008900 +C---- LIMITI FRA I QUALI HA MESSO QUALCOSA INTERPOLANDO. 00008910 + CALL SIGAVG(SUNRE,ESTAR,EUFG,ANTUF,INT,AN,NPNT,IMIN,IMAX,INP(1)) 00008920 +C---- **********LOOP SUI GRUPPI. 00008930 +C---- SOMMA IN SIGM (ANNULLATA DA ADDRESS ED ORA 00008940 +C---- CONTENENTE LE RISOLTE) LE IRRISOLTE MEDIATE A B.G. 00008950 + DO 50 I6=IMIN,IMAX 00008960 + SIGM(NUMBG(I6),I5,NPRMAT*(I-1)+NUMMA(IM))= 00008970 + 1SIGM(NUMBG(I6),I5,NPRMAT*(I-1)+NUMMA(IM))+ANTUF(I6)*PESI(I6)/DEN( 00008980 + 2NUMBG(I6)) 00008990 + 50 CONTINUE 00009000 + 60 CONTINUE 00009010 +C---- ********** FINE LOOP SU CATTURA E FISSIONE. 00009020 +C---- RECORD DELLE SIGMA TOTAL UNRES DA SALTARE. 00009030 + ISK=1 00009040 + 70 CONTINUE 00009050 +C---- AZZERAMENTO CONTATORE RECORDS PRECEDENTI DEL MATERIALE DA SALTARE.00009060 + NSK=0 00009070 + IF(I.GT.NREG1) GOTO 100 00009080 +C---- CALCOLO NUMERO RECORDS RIMANENTI DELL'ISOTOPO DA SALTARE. 00009090 + DO 90 I2=I,NREG1 00009100 + IF(MATHET(NUMMA(IM),I2).NE.0) NSK=NSK+1 00009110 + 90 CONTINUE 00009120 +C---- POSIZIONAMENTO TAPE UNRES ALL'INIZIO DELL'ISOTOPO SUCCESSIVO. 00009130 + 100 CALL SKIP(NU,NSK*(2+IFI)+ISK) 00009140 + 500 CONTINUE 00009150 +C---- ********** FINE LOOP SU ISOTOPI UNRES. 00009160 + RETURN 00009170 +C---- 00009180 +C---- FINE SUBROUTINE NRS. 00009190 +C---- 00009200 + END 00009210 + SUBROUTINE PESA(I,IM,EBG1,EUFG,NUMBG,NUMUFG,DEN,PESI,SP,NSPMAT,NUM00009220 + 1MA) 00009230 +C---- CALCOLO PESI E DENOM. PER LE MEDIE A B.G. DELLE SIGMA IRRISOLTE. 00009240 + COMMON /DIM/NBG,M2,M3,NSP 00009250 + COMMON /INP/INP(1) 00009260 + COMMON /NPR/NPRMAT,NUFG,MG,NG,NR,NBG1,NR1,NUMR,NREG,NPTMAX,MAXISO,00009270 + 1NPR(4),MGCUT 00009280 + DIMENSION EBG1(1),EUFG(1),NUMBG(1),NUMUFG(1),DEN(1) 00009290 + DIMENSION PESI(1),SP(NSP,1),NSPMAT(1),NUMMA(1) 00009300 + COMMON /NPUNT/NPUNT(24) 00009310 + WRITE(11,999) I,IM 00009320 + 999 FORMAT(' PESA REGIONE,ISOTOPO:',2I8) 00009330 +C---- ********** LOOP SUI GRUPPI ULTRAFINI. 00009340 + DO 50 ID=1,NUFG 00009350 + IF(INP(2).NE.0.OR.ID.LT.MGCUT) GO TO 20 00009360 +C---- PESATURA (1/SP)) SE (SP.NE.0) ED E* RICHIESTA QUESTA 00009370 +C---- OPZIONE. 00009380 + C=SP(ID,NSPMAT(NUMMA(IM))) 00009390 + IF(C.EQ.0) GO TO 20 00009400 + PESI(ID)=1./C 00009410 + GOTO 50 00009420 +C---- OPPURE PESATURA COSTANTE (PESO PROP. ALL'INTERVALLO E). 00009430 + 20 PESI(ID)=EUFG(ID)-EUFG(ID+1) 00009440 + 50 CONTINUE 00009450 +C---- ********** FINE LOOP SUI GRUPPI ULTRAFINI. 00009460 +C---- ANNULLA DENOMINATORE PESO. 00009470 + CALL NULL(NPUNT(13),NBG1-1) 00009480 +C---- CALCOLO DENOMINATORE DI MEDIA PER MEDIE A B.G. 00009490 + DO 60 ID=1,NUFG 00009500 + 60 DEN(NUMBG(ID))=DEN(NUMBG(ID))+PESI(ID) 00009510 + RETURN 00009520 +C---- 00009530 +C---- FINE SUBROUTINE PESA. 00009540 +C---- 00009550 + END 00009560 +C---- 00009570 +C---- 00009580 +C---- SUBROUTINE SIGAVG DI MC2-2 SENZA COMMENTI PER USO IN 007 00009590 +C---- 00009600 +C---- 00009610 + SUBROUTINE SIGAVG(SIG,ESTAR,E,SIGGRP,INT,AN,NPTS,IMIN,IMAX,KT) 00009620 + DOUBLE PRECISION DP1,DP2 00009630 + DIMENSION SIG(1),ESTAR(1),E(1),SIGGRP(1),INT(1),AN(1) 00009640 + COMMON /SPECS/IDUM(12),NGRP 00009650 + NPTS0=NPTS-1 00009660 + NGRP1=NGRP+1 00009670 + DO 10 I=1,NGRP 00009680 + SIGGRP(I)=0. 00009690 + 10 CONTINUE 00009700 + IMIN=0 00009710 + IMAX=0 00009720 + IF (ESTAR(1).LE.E(NGRP1).OR.ESTAR(NPTS).GE.E(1)) RETURN 00009730 + DO 60 J=1,NPTS0 00009740 + SSIG=SIG(J+1)-SIG(J) 00009750 + IF (ABS(SSIG).LE.1.E-06.OR.KT.EQ.0) GO TO 50 00009760 + INT(J)=0 00009770 + GO TO (20,30,40),KT 00009780 + 20 CONTINUE 00009790 + IF (SIG(J).LE.1.E-06.OR.SIG(J+1).LE.1.E-06) GO TO 30 00009800 + SSIG=SIG(J)/SIG(J+1) 00009810 + ELOG=ESTAR(J)/ESTAR(J+1) 00009820 + AN(J)=ALOG(SSIG)/ALOG(ELOG) 00009830 + GO TO 60 00009840 + 30 CONTINUE 00009850 + ELOG=ESTAR(J)/ESTAR(J+1) 00009860 + AN(J)=(SIG(J)-SIG(J+1))/ALOG(ELOG) 00009870 + GO TO 60 00009880 + 40 CONTINUE 00009890 + AN(J)=(SIG(J)-SIG(J+1))/(ESTAR(J)-ESTAR(J+1)) 00009900 + GO TO 60 00009910 + 50 CONTINUE 00009920 + INT(J)=1 00009930 + AN(J)=0. 00009940 + 60 CONTINUE 00009950 + I=1 00009960 + J=1 00009970 + IMIN=1 00009980 + IF (E(1)-ESTAR(1)) 70,90,110 00009990 + 70 CONTINUE 00010000 + J=0 00010010 + 80 CONTINUE 00010020 + J=J+1 00010030 + IF (E(1).LE.ESTAR(J+1)) GO TO 80 00010040 + 90 CONTINUE 00010050 + TEMP=0. 00010060 + EU=E(I) 00010070 + GO TO 130 00010080 + 100 CONTINUE 00010090 + I=I+1 00010100 + 110 CONTINUE 00010110 + IF (E(I+1).GE.ESTAR(1)) GO TO 100 00010120 + IMIN=I 00010130 + TEMP=0. 00010140 + 120 CONTINUE 00010150 + EU=ESTAR(J) 00010160 + 130 CONTINUE 00010170 + IF (E(I+1).GE.ESTAR(J+1)) GO TO 195 00010180 + EL=ESTAR(J+1) 00010190 + IF (INT(J).GT.0) GO TO 180 00010200 + GO TO (140,160,170),KT 00010210 + 140 CONTINUE 00010220 + IF (SIG(J).LE.1.E-06.OR.SIG(J+1).LE.1.E-06) GO TO 160 00010230 + IF (ABS(AN(J)+1.).LE.1.E-08) GO TO 150 00010240 + DP1=EU/ESTAR(J) 00010250 + DP2=EL/ESTAR(J) 00010260 + TEMP=TEMP+(DP1**(AN(J)+1.)-DP2**(AN(J)+1.))* 00010270 + 1 ESTAR(J)*SIG(J)/(AN(J)+1.) 00010280 + GO TO 190 00010290 + 150 CONTINUE 00010300 + TEMP=TEMP+ESTAR(J)*SIG(J)*ALOG(EU/EL) 00010310 + GO TO 190 00010320 + 160 CONTINUE 00010330 + ELOG=ESTAR(J) 00010340 + TEMP=TEMP+((EU*ALOG(EU)-EL*ALOG(EL))-(EU-EL))*AN(J) 00010350 + 1 +(SIG(J)-AN(J)*ALOG(ELOG))*(EU-EL) 00010360 + GO TO 190 00010370 + 170 CONTINUE 00010380 + TEMP=TEMP+(EU-EL)*((SIG(J)-AN(J)*ESTAR(J))+ 00010390 + 1 0.5*(EU+EL)*AN(J)) 00010400 + GO TO 190 00010410 + 180 CONTINUE 00010420 + TEMP=TEMP+SIG(J)*(EU-EL) 00010430 + 190 CONTINUE 00010440 + J=J+1 00010450 + IF (J.LE.NPTS0) GO TO 120 00010460 + SIGGRP(I)=TEMP/(E(I)-E(I+1)) 00010470 + IMAX=I 00010480 + RETURN 00010490 + 195 CONTINUE 00010500 + EL=E(I+1) 00010510 + IF (INT(J).GT.0) GO TO 240 00010520 + GO TO (200,220,230),KT 00010530 + 200 CONTINUE 00010540 + IF (SIG(J).LE.1.E-06.OR.SIG(J+1).LE.1.E-06) GO TO 220 00010550 + IF (ABS(AN(J)+1.).LE.1.E-08) GO TO 210 00010560 + DP1=EU/ESTAR(J) 00010570 + DP2=EL/ESTAR(J) 00010580 + TEMP=TEMP+(DP1**(AN(J)+1.)-DP2**(AN(J)+1.))* 00010590 + 1 ESTAR(J)*SIG(J)/(AN(J)+1.) 00010600 + GO TO 250 00010610 + 210 CONTINUE 00010620 + TEMP=TEMP+ESTAR(J)*SIG(J)*ALOG(EU/EL) 00010630 + GO TO 250 00010640 + 220 CONTINUE 00010650 + ELOG=ESTAR(J) 00010660 + TEMP=TEMP+((EU*ALOG(EU)-EL*ALOG(EL))-(EU-EL))*AN(J) 00010670 + 1 +(SIG(J)-AN(J)*ALOG(ELOG))*(EU-EL) 00010680 + GO TO 250 00010690 + 230 CONTINUE 00010700 + TEMP=TEMP+(EU-EL)*((SIG(J)-AN(J)*ESTAR(J))+ 00010710 + 1 0.5*(EU+EL)*AN(J)) 00010720 + GO TO 250 00010730 + 240 CONTINUE 00010740 + TEMP=TEMP+SIG(J)*(EU-EL) 00010750 + 250 CONTINUE 00010760 + SIGGRP(I)=TEMP/(E(I)-E(I+1)) 00010770 + I=I+1 00010780 + IF (I.LE.NGRP) GO TO 90 00010790 + IMAX=I-1 00010800 + RETURN 00010810 +C---- 00010820 +C---- FINE SIGAVG DI MC22 00010830 +C---- 00010840 + END 00010850 + SUBROUTINE STAP(SIGM,PRBNAM,HETDEN,MATHET,EBG1) 00010860 +C---- PONE SUL TAPE NSS I DATI PRODOTTI E TUTTI QUELLI NECESSARI A 00010870 +C---- PROCEDERE CON LA SECONDA PARTE DEL PROGRAMMA. 00010880 + COMMON/DIM/NBG,M2,M3,NSP 00010890 + DIMENSION SIGM(NBG,M2,1),PRBNAM(1),HETDEN(M3,1) 00010900 + DIMENSION MATHET(M3,1) 00010910 + REAL*8 PRBNAM 00010920 + COMMON /NTP/NTP(7),NSS 00010930 + COMMON/NPR/NPRMAT,NUFGP,MGCSD,NGEOM,NREG,NBG1,NREG1,NPR(15),MAXHE 00010940 + 1T,NPR1,NPR2,NREAL 00010950 + REWIND NSS 00010960 + WRITE(NSS) NPRMAT,NGEOM,NREG,NBG1,NREG1,MAXHET 00010970 + WRITE(NSS) (PRBNAM(J),J=1,NPRMAT) 00010980 + NRR=NREG+1 00010990 + IF(NRR.GT.0) WRITE(NSS)((HETDEN(J,J1),J=1,NPRMAT),J1=1,NRR) 00011000 + IF(NREG1.GT.0) WRITE(NSS)((MATHET(J,J1),J=1,NPRMAT),J1=1,NREG1) 00011010 + DO 10 I=1,NREAL 00011020 + 10 WRITE(NSS)(((SIGM(J,JJ,J1+(I-1)*NPRMAT),J=1,NBG),JJ=1,M2),J1=1,NPR00011030 + 1MAT) 00011040 + REWIND NSS 00011050 + RETURN 00011060 +C---- 00011070 +C---- FINE SUBROUTINE STAP. 00011080 +C---- 00011090 + END 00011100 + SUBROUTINE STAMP(SIGM,PRBNAM,HETDEN,MATHET) 00011110 +C---- SU OPZIONE DI INPUT STAMPA ALCUNI RISULTATI OTTENUTI : 00011120 +C---- INP(3).GE.1 : STAMPA HETDEN. 00011130 +C---- INP(3).GE.2 : STAMPA MATHET. 00011140 +C---- INP(3).GE.3 : STAMPA SIGM. 00011150 + COMMON /NPR/NPRMAT,NGROUP,MGCSP,NGEOM,NREG,NBG1,NREG1, 00011160 + 1NUMRES,NREGU,NPTMAX,MAXISO, 00011170 + 2NRES,NREGR,NRESMT, 00011180 + 3NGROUS,MGCUT,NPRMAS,NGEOS,NREGS,MAXHTM, 00011190 + 4ICHI,IBSQ,MAXHTP,NCMP,ISORS,NREAL 00011200 + COMMON /DIM/NBG,M2,M3,NSP 00011210 + COMMON/NPUNT/NPUNT(1) 00011220 + COMMON /INP/INP(2),IST 00011230 + EQUIVALENCE (NPR(1),NPRMAT) 00011240 + DIMENSION NPR(1) 00011250 + COMMON/NTP/NI,NO 00011260 + DIMENSION NOM(2) 00011270 + DATA NOM/4HCATT,4HFISS/ 00011280 + DIMENSION SIGM(NBG,M2,1),PRBNAM(1),MATHET(M3,1),HETDEN(M3,1) 00011290 + REAL*8 PRBNAM 00011300 + NRR=NREG+1 00011310 + WRITE(NO,101) 00011320 + DO 1 I=1,NPRMAT 00011330 + 1 WRITE(NO,100) PRBNAM(I),(HETDEN(I,J),J=1,NRR) 00011340 + 100 FORMAT(/2X,A8,2X,(5(1X,E12.6))) 00011350 + IF(IST.EQ.1) RETURN 00011360 + 101 FORMAT(//' DENSITA DEI MATERIALI NELLE VARIE ZONE'//) 00011370 + IF(NREG1.LE.0) GO TO 27 00011380 + WRITE(NO,102) 00011390 + 102 FORMAT(//' INDICI DI ETEROGENEITA'//) 00011400 + DO 2 I=1,NPRMAT 00011410 + 2 WRITE(NO,110)PRBNAM(I),(MATHET(I,J),J=1,NREG1) 00011420 + 110 FORMAT(/2X,A8,2X,(5(1X,I8))) 00011430 + 27 CONTINUE 00011440 + IF(IST.EQ.2) RETURN 00011450 + DO 20 I=1,NREAL 00011460 + DO 20 I1=1,NPRMAT 00011470 + DO 20 I2=1,M2 00011480 + DO 5 J=1,NBG 00011490 + IF(SIGM(J,I2,I1+(I-1)*NPRMAT).NE.0.) GO TO 15 00011500 + 5 CONTINUE 00011510 + WRITE(NO,120) PRBNAM(I1),I,NOM(I2) 00011520 + 120 FORMAT(//' PER IL MATERIALE ',A8,' ZONA ',I4,' LA SIGMA ',A4,' E00011530 + 1'' NULLA PER LA PARTE RISONANTE') 00011540 + GO TO 20 00011550 + 15 WRITE(NO,10)PRBNAM(I1),I,NOM(I2),(J,SIGM(J,I2,I1+(I-1)*NPRMAT),J=100011560 + 1,NBG) 00011570 + 10 FORMAT(//' MATERIALE ',A8,' ZONA',I4,' SIGMA ',A4,' PER B.G'/ 00011580 + 1(5(2X,I4,2X,E12.5))) 00011590 + 20 CONTINUE 00011600 + RETURN 00011610 +C---- 00011620 +C---- FINE SUBROUTINE STAMP. 00011630 +C---- 00011640 + END 00011650 + SUBROUTINE PET02 00011660 +C---- TRATTA L'INPUT PER LA PARTE 2 DI 007, CHE AGGIUNGE ALLE LIBRERIE 00011670 +C---- XS.ISO DI MCC-2 I DATI RISONANTI CREATI DALLA PARTE 1 FORMANDO UNA00011680 +C---- LIBRERIA ANISN A GRUPPI. 00011690 + COMMON/A/A(1) 00011700 + COMMON/INP/INP(1) 00011710 + COMMON/NPUNT/NPUNT(1) 00011720 + COMMON/DIM/NBG,M2,M3,MAX1,IN1,M4 00011730 + COMMON/NDMX/NDIM,NTAPE,NINP 00011740 + COMMON/NTP/NI,NO,NPC,NSS,NX1,NX2,NDIR,NSS1 00011750 + COMMON/TITL/TITL(1) 00011760 + COMMON/NPR/NPRMAT,NUFG,MGCSD,NGEOM,NREG,NBG1,NREG1,NGROUP, 00011770 + 1NISO,MAXUP,MAXDN,MAXORD,IPREC,IHM,IHT,LMAX,NREAL,NPR(5),MAXHET 00011780 + REAL*8 ANOM(8) 00011790 +C**** ************************ VARIANTE DEL 17-9-1984 NUMERO 1-2 00011800 + COMMON/N99P/N99P,N99P1 00011810 +C**** ************************ INSERIMENTO OPZIONE PER UN FILE 99 PS 00011820 + DIMENSION NTP1(18),NTP(18) 00011830 + EQUIVALENCE(NI,NTP(1)) 00011840 + DATA AANOM/4HNO / 00011850 +C---- NUMERI LOGICI TAPES DI DEFAULT. 00011860 + DATA NTP1/5,6,7,90,49,50,99,91,10*0/ 00011870 + DATA ANOM/8HINPUT ,8HOUTPUT ,8HPUNCH ,8HSCR , 00011880 + 18HXS.ISO1 ,8HXS.ISO2 ,8HDIRAC ,8HSCR2 / 00011890 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00011900 + CALL TTIME(NORA) 00011910 + WRITE(11,999) NORA 00011920 + 999 FORMAT(' PARTE 2 ORA:',I10) 00011930 +C---- LA PRIMA LETTURA LA FA DAL DEFAULT SE NI DELLA PARTE PRECEDENTE 00011940 +C---- NON CONTIENE UN NUMERO BUONO. 00011950 + NINP=4 00011960 + NTAPE=8 00011970 + IF(NI.LE.0.OR.NI.GT.99) NI=NTP1(1) 00011980 +C---- LETTURA NUMERI LOGICI TAPES. 00011990 + READ(NI,1)(NTP(J),J=1,NTAPE) 00012000 + 1 FORMAT(18I4) 00012010 +C---- SE NSS1 E' NEGATIVO SI LASCIA TALE E SEGNALA DI NON SCRIVERE SU 00012020 +C---- NSS1. ASSEGNAZIONE DEFAULTS. 00012030 + NTP2=NSS1 00012040 + DO 2 I=1,NTAPE 00012050 + IF(NTP(I).LE.0) NTP(I)=NTP1(I) 00012060 + 2 CONTINUE 00012070 + IF(NTP2.LT.0) NSS1=NTP2 00012080 +C---- LETTURA TITOLO. 00012090 + READ(NI,3) (TITL(J),J=1,20) 00012100 + 3 FORMAT(20A4) 00012110 + WRITE(NO,4)(TITL(J),J=1,20) 00012120 +C---- SE TITL(1)=NO NON EFFETTUA LA PARTE 2. 00012130 + IF(TITL(1).EQ.AANOM) RETURN 00012140 + WRITE(NO,100) 00012150 + 100 FORMAT(1X,10(1H+),' PROGRAMMA GERES PARTE 2 : CORREZIONI ETEROGE00012160 + 1NEE A LIBRERIA XS.ISO'//) 00012170 + 4 FORMAT(1H1,20X,20A4//) 00012180 + WRITE(NO,5)(ANOM(I),NTP(I),I=1,NTAPE) 00012190 + 5 FORMAT(5X,' IL FILE ',A8,' E* SULLA UNITA LOGICA ',I4) 00012200 + IF(NSS1.LE.0) WRITE(NO,105) ANOM(8) 00012210 + 105 FORMAT(5X,' IL FILE ',A8,' NON ESISTE') 00012220 +C---- LETTURA PARAMETRI DI XS.ISO1. 00012230 + REWIND NX1 00012240 + READ(NX1)NGROUP,NISO,MAXUP,MAXDN,MAXORD,IPREC 00012250 + WRITE(NO,110) NGROUP,NISO,MAXUP,MAXDN,MAXORD,IPREC 00012260 + 110 FORMAT(/' LETTI DAL FILE XS.ISO1 : NGROUP NISO MAXUP MAXDN MAXORD 00012270 + 1 IPREC'/26X,10I6) 00012280 +C---- NX1 NON SERVE PIUÄ. 00012290 + REWIND NX1 00012300 +C---- COSI' CONTA ANCHE LA P0. 00012310 + MAXORD=MAXORD+1 00012320 + IHT=8 00012330 +C---- DEFINISCE POSIZIONE SIGMA TOTAL IN TAVOLA ANISN. 00012340 + IHM=MAXUP+MAXDN+1+IHT 00012350 +C---- DEFINISCE LUNGHEZZA TAVOLA ANISN. 00012360 +C---- SI UTILIZZA UN XS.ISO CHE DEVE ESSERE IN SEMPLICE PRECISIONE. 00012370 + IF(IPREC.NE.1) GO TO 6 00012380 +C---- LETTURA OPZIONI DI INPUT. 00012390 + READ(NI,1)(INP(J),J=1,NINP) 00012400 + WRITE(NO,9) (INP(J),J=1,NINP) 00012410 + 9 FORMAT(//5X,'OPZIONI DI INPUT:',18I4) 00012420 + IF(INP(1).EQ.0) GO TO 90 00012430 + WRITE(NO,10) NSS 00012440 + 10 FORMAT(/20X,' SI UTILIZZA LA UNITA LOGICA:',I4,' PER LETTURE E RE00012450 + 1START'/) 00012460 +C---- LETTURE PARAMETRI DA NSS SE NON SONO GIA' DENTRO I COMMONS 00012470 +C---- PER LA PARTE PRECEDENTE. 00012480 + REWIND NSS 00012490 + READ(NSS) NPRMAT,NGEOM,NREG,NBG1,NREG1,MAXHET 00012500 + WRITE(NO,11) NPRMAT,NGEOM,NREG,NBG1,NREG1,MAXHET 00012510 + 11 FORMAT(' LETTI I PARAMETRI: NPRMAT,NGEOM,NREG,NBG1,NREG1,MAXHET'/00012520 + 120X,6(I4,2X)) 00012530 + 90 CONTINUE 00012540 +C---- CONTROLLI DI COESISTENZA PARAMETRI DI NSS E XS.ISO. 00012550 + IF(NGROUP.NE.NBG1) GO TO 7 00012560 + IF(NISO.NE.NPRMAT) WRITE(NO,16) NISO,NPRMAT 00012570 + 16 FORMAT(10X,' IL NUMERO DEI MATERIALI SU XSISO2:',I4,' NON E COEREN00012580 + 1TE CON:',I4/) 00012590 + IF(NGEOM.EQ.0) NREAL=1 00012600 + IF(NGEOM.EQ.1) NREAL=NREG+1 00012610 + IF(NGEOM.EQ.2) NREAL=2 00012620 +C---- CALCOLO PUNTATORI PER SPAZI VARIABILI NEL COMMON /A/. 00012630 + CALL INDIRA 00012640 +C---- PASSA IL CONTROLLO A LAVORA PER IL RESTO DEL CALCOLO. 00012650 + CALL LAVORA(A(NPUNT(4)),A(NPUNT(2)),A(NPUNT(3)),A(NPUNT(1)),A(NPUN00012660 + 1T(9))) 00012670 + GO TO 14 00012680 + 6 WRITE(NO,13) 00012690 + 13 FORMAT(10X,' XSISO 2 IN DOPPIA PRECISIONE.IL PROGRAMMA NON CONTE00012700 + 1MPLA QUESTA POSSIBILITA'/) 00012710 + GO TO 17 00012720 + 7 WRITE(NO,15) NGROUP,NBG1 00012730 + 15 FORMAT(10X,' IL NUMERO DEI GRUPPI DI XSISO2:',I4,' NON E COERENTE 00012740 + 1 CON:',I4/) 00012750 + GO TO 17 00012760 + 17 WRITE(NO,20) 00012770 + 20 FORMAT(10X,20(1H*),' ATTENZIONE LA PARTE 2 VIENE SALTATA ',10(1H*)00012780 + 1) 00012790 + 14 CONTINUE 00012800 + RETURN 00012810 +C---- 00012820 +C---- FINE SUBROUTINE PET02. 00012830 +C---- 00012840 + END 00012850 + SUBROUTINE INDIRA 00012860 +C---- CALCOLO PUNTATORI PER SPAZIO NEL COMMON /A/. 00012870 +C---- DEFINISCE GRANDEZZE COMMON /DIM/ (PER DIMENSION). 00012880 + COMMON/DIM/NBG,M2,M3,MAXOR1,IN1,M4 00012890 + COMMON/NPUNT/NPUNT(1) 00012900 + COMMON/INP/INP(1) 00012910 + COMMON/NDMX/NDIM 00012920 + COMMON/NPR/NPRMAT,NUFG,MGCSD,NGEOM,NREG,NBG1,NREG1,NGROUP,NISO, 00012930 + 1MAXUP,MAXDN,MAXORD,IPREC,IHM,IHT,LMAX,NREAL,NPR(5),MAXHET 00012940 + COMMON/NTP/NI,NO,NPC,NSS,NX1,NX2,NDIR 00012950 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00012960 + CALL TTIME(NORA) 00012970 + WRITE(11,999) NORA 00012980 + 999 FORMAT(' INDIRA DEFINIZIONE PUNTATORI ORA: ',I10) 00012990 + IN1=MAXUP+MAXDN+1 00013000 + IF(INP(1).EQ.0) GO TO 1 00013010 +C---- PER RESTART RICEVE QUESTI DATI CHE ALTRIMENTI HA GIA'. 00013020 + NPUNT(1)=1 00013030 +C---- PRBNAM : NOMI MATERIALI. 00013040 + NPUNT(2)=NPUNT(1)+NPRMAT*2 00013050 +C---- HETDEN : DENSITA'. 00013060 + M3=NPRMAT 00013070 + NPUNT(3)=NPUNT(2)+NPRMAT*(NREG+1) 00013080 +C---- MATHET : INDICI DI ETEROGENEITA'. 00013090 + NPUNT(4)=NPUNT(3)+NPRMAT*NREG1 00013100 +C---- SIGM : SIGMA RISONANTI PRODOTTE DALLA PARTE 1. 00013110 + NBG=NBG1 00013120 + M2=2 00013130 + NPUNT(5)=NPUNT(4)+NBG1*2*NPRMAT*NREAL 00013140 + 1 CONTINUE 00013150 +C---- LEGSCT : PER LEGGERE SCATTERING. 00013160 + NPUNT(6)=NPUNT(5)+MAXUP+MAXDN+1 00013170 +C---- LEGSIG : PER LEGGERE SIGMA. 00013180 + NPUNT(7)=NPUNT(6)+NGROUP*11 00013190 +C---- MSSCAT : PER SCRIVERE LO SCATTERING. 00013200 + MAXOR1=MAXORD 00013210 + NPUNT(8)=NPUNT(7)+NGROUP*MAXOR1*(MAXUP+MAXDN+1) 00013220 +C---- MSSIGM : PER SCRIVERE LE SIGMA. 00013230 + NPUNT(9)=NPUNT(8)+IHT 00013240 + M4=3 00013250 +C---- MATCOR : PER COORDINATE DIRAC. 00013260 + NPUNT(10)=NPUNT(9)+3*(MAXHET+1)*MAXORD*NPRMAT-1 00013270 +C---- STIMA PER ECCESSO RECORDS DI DIRAC NECESSARI. 00013280 + IDA1=(NPRMAT*MAXORD*(MAXHET+1))*(NGROUP+1)+1 00013290 +C---- STIMA LUNGHEZZA NECESSARIA RECORDS DI DIRAC. 00013300 + IDA2=MAXUP+MAXDN+1+IHT 00013310 + WRITE(11,25) (K,NPUNT(K),K=1,10) 00013320 + 25 FORMAT(1X,(' NPUNT(',I4,')=',I7)) 00013330 + WRITE(NO,2) IDA1,IDA2 00013340 + 2 FORMAT(/'********** NUMERO MASSIMO DI RECORDS SU TAPE DIRAC: ',I00013350 + 110,' RECORDS.*********'//' ********** LUNGHEZZA MASSIMA DEI RECORD00013360 + 2S DI DIRAC:',I10,' PAROLE ******************** '/) 00013370 + WRITE(NO,3) NPUNT(10),NDIM 00013380 + 3 FORMAT(' LA OCCUPAZIONE E* DI ',I10,' PAROLE. DISPONIBILI ', 00013390 + 1I10,' PAROLE'/) 00013400 + IF(NPUNT(10).GT.NDIM) WRITE(NO,4) 00013410 + 4 FORMAT(' **********ATTENZIONE, LO SPAZIO FORNITO NON BASTA********00013420 + 1'/' **********AUMENTARE LE DIMENSIONI DEL COMMON/A/ NEL MAIN******00013430 + 2AUMENTARE IL PARAMETRO NDIM DEL MAIN**********'/) 00013440 + IF(NPUNT(10).GT.NDIM) STOP 00013450 + RETURN 00013460 +C---- 00013470 +C---- FINE SUBROUTINE INDIRA. 00013480 +C---- 00013490 + END 00013500 + SUBROUTINE LAVORA(SIGM,HETDEN,MATHET,PRBNAM,MATCOR) 00013510 +C---- EFFETTUA I CALCOLI PER LA PARTE 2 (CREA TAPE ANISN AD ISOTOPI). 00013520 + COMMON/NPR/NPRMAT,NUFG,MGCSD,NGEOM,NREG,NBG1,NREG1,NGROUP,NISO, 00013530 + 1MAXUP,MAXDN,MAXORD,IPREC,IHM,IHT,LMAX,NREAL,NPR(5),MAXHET 00013540 + COMMON/NTP/NI,NO,NPC,NSS,NX1,NX2,NDIR,NSS1 00013550 + COMMON/TITL/TITL(1) 00013560 + COMMON/DIM/NBG,M2,M3,MAX,IN1,M4 00013570 + COMMON/A/A(1) 00013580 + COMMON/INP/INP(1) 00013590 + COMMON/NPUNT/NPUNT(1) 00013600 +C**** ****************************** VARIANTE DEL 17-9-83 NUM 1-3 00013610 + COMMON /N99P/N99P,N99P1 00013620 +C**** ********************** PER UN TAPE DIRAC NON DA,MA PS 00013630 + DIMENSION SIGM(NBG,M2,1),MATHET(M3,1),MATCOR(M4,1) 00013640 + INTEGER*2 ID 00013650 + REAL*4 HETDEN(M3,1) 00013660 + REAL*8 PRBNAM(1),ANOME 00013670 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00013680 + CALL TTIME(NORA) 00013690 + WRITE(11,999) NORA 00013700 + 999 FORMAT(' LAVORA PARTE 2 , CALCOLI ORA : ',I10) 00013710 +C---- N : CONTATORE RECORDS SCRITTI SU DIRAC INCREMENTATO DA CORSTA. 00013720 + N=0 00013730 +C---- SE NON LI HA GIA' LEGGE I DATI PER IL CALCOLO DA NSS. 00013740 + IF(INP(1).EQ.0) GO TO 1 00013750 + READ(NSS)(PRBNAM(J),J=1,NPRMAT) 00013760 + NRR=NREG+1 00013770 + IF(NRR.GT.0) READ(NSS)((HETDEN(J,J1),J=1,NPRMAT),J1=1,NRR) 00013780 + IF(NREG1.GT.0) READ(NSS)((MATHET(J,J1),J=1,NPRMAT),J1=1,NREG1) 00013790 + DO 2 I=1,NREAL 00013800 + 2 READ(NSS)(((SIGM(J,JJ,J1+(I-1)*NPRMAT),J=1,NBG),JJ=1,M2), 00013810 + 1J1=1,NPRMAT) 00013820 + REWIND NSS 00013830 +C---- NSS NON SERVE PIU'. 00013840 + 1 CONTINUE 00013850 + REWIND NX2 00013860 +C**** ************************* VARIANTE DEL 17-9-84 NUM 1-4 00013870 + IF(NDIR.NE.99) REWIND NDIR 00013871 + IF(NDIR.NE.99) WRITE(NDIR) N,TITL(20),ID 00013880 + N99P=2 00013900 + N99P1=0 00013910 +C**** ************************* PER UN DIRAC PS 00013920 +C---- ********** LOOP SUGLI ISOTOPI DI XS.ISO2. 00013930 + DO 3 II=1,NISO 00013940 +C---- LETTURA NOME DELL'ISOTOPO E SUA RICERCA FRA QUELLI DI PRBNAM. 00013950 + READ(NX2) ANOME 00013960 + DO 4 I=1,NPRMAT 00013970 + IF(ANOME.EQ.PRBNAM(I)) GO TO 5 00013980 + 4 CONTINUE 00013990 + WRITE(NO,6) ANOME,NX2 00014000 + 6 FORMAT(10X,' ISOTOPO ',A8,' DEL TAPE XSISO2 NUM:',I4,' NON SI TROV00014010 + 1A NEL PROBLEMA'/) 00014020 +C---- SE NON TROVA L'ISOTOPO SCRIVE DIAGNOSTICO E PASSA AL SUCCESSIVO. 00014030 + CALL SALT(NX2) 00014040 + GO TO 3 00014050 + 5 CONTINUE 00014060 + IF(HETDEN(I,1).GT.0) GO TO 7 00014070 +C---- SE L'ISOTOPO NON E' PRESENTE NELLA ZONA OMOGENEA SCRIVE 00014080 +C---- DIAGNOSTICO E PASSA AL SUCCESSIVO. 00014090 + WRITE(NO,8) ANOME,NX2 00014100 + 8 FORMAT (1X,' ISOTOPO ',A8,' DEL TAPE XSISO2 NUM:',I4,' NON ESISTE 00014110 + 1 NELLA ZONA OMOGENEA'/) 00014120 + CALL SALT(NX2) 00014130 + GO TO 3 00014140 +C---- LETTURA SIGMA (LEGSIG) E CREAZIONE MSSCAT (MATRICE DI SCATTERING 00014150 +C---- TOTALE PER L'ISOTOPO). CREA SIGMA REMOUVAL PER EL, ANEL, N2N. 00014160 +C E SIGMA REMOUVAL PER P1 00014170 + 7 CALL SOMSIG(A(NPUNT(6)),A(NPUNT(7)),A(NPUNT(5))) 00014180 +C---- CALCOLO SEZIONI D'URTO COMPRENSIVE DELLE RISONANZE E SCRITTURA 00014190 +C---- RECORDS DEL TAPE DI LIBRERIA ANISN AD ISOTOPI. FISSA I VALORI 00014200 +C---- DI MATCOR (ZONA OMOGENEA). 00014210 + CALL CORSTA(N,I,1,MATCOR,PRBNAM,A(NPUNT(8)),A(NPUNT(6)),A(NPUNT(4)00014220 + 1),A(NPUNT(7))) 00014230 + IF(NGEOM.EQ.0) GO TO 3 00014240 +C---- ********** LOOP SULLE REGIONI. 00014250 + DO 9 K=2,NREAL 00014260 +C---- PER OGNI REGIONE GUARDA SE L'ISOTOPO LETTO HA UNA CORREZIONE 00014270 +C---- SIGM DI REGIONE (DENSITA' POSITIVA ED INDICE MATHET >0). 00014280 + IF(HETDEN(I,K).LE.0) GO TO 9 00014290 + WRITE(NO,10) ANOME,K 00014300 + 10 FORMAT(/' ISOTOPO ',A8,' E* PRESENTE NELLA REGIONE ',I4) 00014310 + IF(MATHET(I,(K-1)).LE.0) GO TO 9 00014320 + WRITE(NO,11) 00014330 + 11 FORMAT(1H+,55X,' COME ETEROGENEO') 00014340 +C---- IN QUESTO CASO CHIAMA CORSTA PER LA CORREZIONE CON SIGM E 00014350 +C---- LA REGISTRAZIONE SU DIRAC. 00014360 + CALL CORSTA(N,I,K,MATCOR,PRBNAM,A(NPUNT(8)),A(NPUNT(6)),A(NPUNT(4)00014370 + 1),A(NPUNT(7))) 00014380 + 9 CONTINUE 00014390 +C---- ********** FINE LOOP SULLE REGIONI. 00014400 + 3 CONTINUE 00014410 +C---- ********** FINE LOOP SUGLI ISOTOPI. 00014420 +C---- SCRITTURA PRIMO RECORD DI DIRAC CHE E* UN TAPE AD ACCESSO 00014430 +C---- DIRETTO FATTO A LIBRERIA ANISN AD ISOTOPI. 00014440 +C NON E SICURO ANISN VOGLIA QUESTO RECORD 00014450 +C WRITE(NDIR'1) N,TITL(20),ID 00014460 + REWIND NX2 00014470 +C**** ***************************** VARIANTE DEL 17-9-84 NUM 1-5 00014480 + IF(NDIR.EQ.99) WRITE(NDIR'1) N,TITL(20),ID 00014490 +C**** ******************* PER UN DIRAC NON DA MA PS 00014500 +C**** ************************ VARIANTE DEL 17-9-1984 NUM 1-6 00014510 + N99P1=N 00014520 +C---- IN N99P1 RICORDO IL NUMERO DI ISOTOPI SCRITTO SU DIRAC 00014530 +C**** **********************PER UN FILE DIRAC PS 00014540 + IF(NSS1.LE.0) GOTO 20 00014550 +C---- REGISTRA SU NSS1 TUTTI I DATI DA UTILIZZARE PER LA PARTE TERZA. 00014560 + REWIND NSS1 00014570 + WRITE(NSS1) NPRMAT,NREG,NGEOM,NREG1,NGROUP,IHM,IHT,NREAL,N 00014580 + WRITE(NSS1)(PRBNAM(J),J=1,NPRMAT) 00014590 + NRR=NREG+1 00014600 + IF(NRR.GT.0) WRITE(NSS1)((HETDEN(J,J1),J=1,NPRMAT),J1=1,NRR) 00014610 + IF(NREG1.GT.0) WRITE(NSS1)((MATHET(J,J1),J=1,NPRMAT),J1=1,NREG1) 00014620 + WRITE(NSS1)((MATCOR(I,J),I=1,M4),J=1,N) 00014630 +C---- STAMPE SU OPZIONE DI INPUT. 00014640 + WRITE(NO,99) NSS1 00014650 + 99 FORMAT(//' EFFETTUATA REGISTRAZIONE SU NSS1=',I4,' PER RESTART') 00014660 + REWIND NSS1 00014670 + 20 WRITE(NO,100) NPRMAT,NREG,NGEOM,NREG1,NGROUP,IHM,IHT,NREAL 00014680 + 100 FORMAT(/' PARAMETRI: NPRMAT NREG NGEOM NREG1 NGROUP IHM IHT NREA00014690 + 1L'/11X,10I5) 00014700 + IF(INP(2).LE.0) RETURN 00014710 + NRR=NREG+1 00014720 + WRITE(NO,101) 00014730 + DO 21I=1,NPRMAT 00014740 + 21 WRITE(NO,30) PRBNAM(I),(HETDEN(I,J),J=1,NRR) 00014750 + 30 FORMAT(/2X,A8,2X,(5(1X,E12.6))) 00014760 + IF(INP(2).EQ.1) RETURN 00014770 + 101 FORMAT(//' DENSITA DEI MATERIALI NELLE VARIE ZONE'//) 00014780 + WRITE(NO,102) 00014790 + 102 FORMAT(//' INDICI DI ETEROGENEITA'//) 00014800 + DO 22 I=1,NPRMAT 00014810 + 22 WRITE(NO,110)PRBNAM(I),(MATHET(I,J),J=1,NREG1) 00014820 + 110 FORMAT(/2X,A8,2X,(5(1X,I8))) 00014830 + IF(INP(2).EQ.2) RETURN 00014840 + WRITE(NO,130)((MATCOR(I,J),I=1,M4),J=1,N) 00014850 + 130 FORMAT(/' COORDINATE DEL TAPE DIRAC:'/(5(2H :,3I4))) 00014860 + RETURN 00014870 +C---- 00014880 +C---- FINE SUBROUTINE LAVORA. 00014890 +C---- 00014900 + END 00014910 + SUBROUTINE SALT(NX2) 00014920 +C---- SALTA UN ISOTOPO SUL TAPE NX2 (LIBRERIA XS.ISO2 DI MCC-2). 00014930 + COMMON/NPR/NP(7),NGROUP 00014940 + REAL*8ANOM 00014950 +C---- TORNA INDIETRO DI UN RECORD PER RILEGGERLO E SCRIVERLO 00014960 +C---- SU UNITA' 11. 00014970 +1000 BACKSPACE NX2 00014980 +1001 READ(NX2) ANOM 00014990 +1002 WRITE(11,1100) ANOM 00015000 +1100 FORMAT(' SALT SALTA ',A8) 00015010 +C---- LEGGE SPECIFICHE INIZIALI DELL'ISOTOPO ED IN BASE AD ESSE 00015020 +C---- CALCOLA QUANTI RECORDS DEVE SALTARE SU NX2. 00015030 + READ(NX2) ICHI,LIN,LEL,LN2N,EFISS,ECAPT 00015040 + IF(ICHI.GT.0) READ(NX2) SPEFIS 00015050 + CALL SKIP(NX2,NGROUP) 00015060 + LMAX=MAX0(LIN,LEL,LN2N) 00015070 + IF(LMAX.LE.0) RETURN 00015080 + CALL SKIP(NX2,NGROUP*(LMAX+LIN+LN2N+LEL)) 00015090 + RETURN 00015100 +C---- 00015110 +C---- FINE SUBROUTINE SALT. 00015120 +C---- 00015130 + END 00015140 + SUBROUTINE SOMSIG(LEGSIG,MSSCAT,LEGSCT) 00015150 +C---- LEGGE SEZIONI D'URTO SU XS.ISO2 E CREA MSSCAT CON LA MATRICE 00015160 +C---- DI SCATTERING TOTALE (SOMMA DELLE N-2N, ANELASTICHE, ELASTICHE). 00015170 +C---- CREA IN LEGSIG(NG, 8-9-10) LE REMOUVAL PER EL, ANEL, N2N. 00015180 +C IN LEGSIG(NG,11) LA REMOUVAL DI ORDINE 1 00015190 + COMMON/NPR/NP(7),NGRU,NISO,MAXUP,MAXDN,MAXORD,NP2(3),LMAX 00015200 + COMMON/DIM/NBG,M2,NPRM,MAXOR1,IN1 00015210 + COMMON /NTP/NI,NO,NPC,NSS,NX1,NX2,NDIR 00015220 + COMMON/NPUNT/NPUNT(1) 00015230 + REAL*4 LEGSIG(NBG,1),MSSCAT(NBG,MAXOR1,1),LEGSCT(1) 00015240 +C---- REAL*4 LEGSIG(5,7),MSSCAT(5,4,11),LEGSCT(11) 00015250 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00015260 + CALL TTIME(NORA) 00015270 + WRITE(11,1100) NORA 00015280 + 1100 FORMAT(' SOMSIG LEGGE DA XSISO SIGMA ISOTOPO,SOMMA SCATT.EL ,ANEL 00015290 + 1,N2N:ORA:',I10) 00015300 +C---- LETTURA SPECIFICHE INIZIALI DELL'ISOTOPO SU NX2 (SE FISSILE 00015310 +C---- SALTA RECORD DI SPETTRO DI FISSIONE). 00015320 + READ(NX2) ICHI,LIN,LEL,LN2N,EF,EC 00015330 + IF(ICHI.GT.0) READ(NX2) SPEFIS 00015340 +C---- AZZERA LEGSIG(VI FA ANCHE LA SOMMA DELLE REMOUVAL). 00015350 + CALL NULL(NPUNT(6),NBG*11) 00015360 +C---- ********** LOOP DI LETTURA SIGMA (SE FISSILE LEGGE ANCHE 00015370 +C---- SIGMA F. E NU*SIGMA F. ALTRIMENTE LE METTE =0). 00015380 + DO 1 II=1,NGRU 00015390 + IF(ICHI.NE.0) GO TO 2 00015400 + READ(NX2) J,(LEGSIG(J,JJ),JJ=1,5) 00015410 + LEGSIG(J,6)=0.0 00015420 + LEGSIG(J,7)=0.0 00015430 + GO TO 1 00015440 + 2 READ(NX2) J,(LEGSIG(J,JJ),JJ=1,7) 00015450 + 1 CONTINUE 00015460 +C---- ********** FINE LETTURA SIGMA. 00015470 +C---- ANNULLA LA MSSCAT OVE SOMMA LO SCATTERING CHE LEGGERA'. 00015480 + CALL NULL(NPUNT(7),NBG*MAXOR1*IN1) 00015490 + LMAX=MAX0(LIN,LEL,LN2N) 00015500 + IF(LMAX.LE.0) RETURN 00015510 +C---- ********** LOOP DI LETTURA SCATTERING IN MSSCAT. 00015520 +C---- PER OGNI REAZIONE : 00015530 +C---- INEL, ELASTICA, N-2N VIENE LETTA CON SOM LA MATRICE DI 00015540 +C---- SCATTERING E SOMMATA IN MSSCAT(LL, L,...), CREA REMOUVAL 00015550 +C---- IN LEGSIG(ULTIMO ARG.: 8-9-10). 00015560 + DO 3 L=1,LMAX 00015570 + DO 3 LL=1,NGRU 00015580 + READ(NX2) LINUP,LINDN,LELUP,LELDN,LN2NUP,LN2NDN 00015590 + IF(LIN.GE.L) CALL SOM(MAXUP,LINUP,LINDN,NX2,LEGSCT,MSSCAT,LEGSIG,L00015600 + 1L,L,1,8) 00015610 + IF(LEL.GE.L) CALL SOM(MAXUP,LELUP,LELDN,NX2,LEGSCT,MSSCAT,LEGSIG,L00015620 + 1L,L,1,9) 00015630 + IF(LN2N.GE.L) CALL SOM(MAXUP,LN2NUP,LN2NDN,NX2,LEGSCT,MSSCAT,LEGSI00015640 + 1G,LL,L,2,10) 00015650 + 3 CONTINUE 00015660 + RETURN 00015670 +C---- 00015680 +C---- FINE SUBROUTINE SOMSIG. 00015690 +C---- 00015700 + END 00015710 + SUBROUTINE SOM(MXP,LNP,LND,NX,LEGSCT,MSSCAT,LEGSIG,LLA,LI,N2N,NUMR00015720 + 1) 00015730 +C---- LEGGE DA XS.ISO2 LO SCATTERING DI UN GRUPPO E LO SOMMA NELLA 00015740 +C---- GIUSTA POSIZIONE DI MSSCAT (ORDINE DI SCATTERING LI, GRUPPO LLA). 00015750 + COMMON/DIM/NGROUP,M,MAT,MAXORD,IN1 00015760 + COMMON/NTP/NI,NO,NPC,NSS,NX1,NX2,NDIR 00015770 + REAL*4 LEGSCT(1),MSSCAT(NGROUP,MAXORD,1),LEGSIG(NGROUP,1) 00015780 +C---- IA E* IL GRUPPO DELLA PRIMA SIGMA LETTA (GRUPPO DA CUI SI 00015790 +C---- INIZIA A LEGGERE). 00015800 + IA=MXP-LNP 00015810 +C---- IO E* IL NUMERO DI SIGMA DI SCATTERING DA LEGGERE. 00015820 + IO=LNP+LND+1 00015830 + IF(IA+1.LT.0.OR.IA+IO.GT.IN1) WRITE(NO,100) MXP,LNP,LND,LLA,LI 00015840 + 100 FORMAT(//' ***** ATTENZIONE LETTO SCATTERING FUORI DIMENSIONI MAT00015850 + 1RICE ANISN'/' *********** POSSIBILI ERRORI !!!!!!'/1X,5I5) 00015860 + READ(NX)(LEGSCT(IA+J),J=1,IO) 00015870 +C---- CREA LE SIGMA REMOUVAL 00015880 + IF(LI.NE.1) GO TO 25 00015890 + DO 4 J=1,IO 00015900 + LEGSIG(LLA+LNP-J+1,NUMR)=LEGSIG(LLA+LNP-J+1,NUMR)+LEGSCT(IA+J) 00015910 + 4 CONTINUE 00015920 + 25 CONTINUE 00015930 +C REMOUVAL DI ORDINE 1 00015940 + IF(LI.NE.2) GO TO 225 00015950 + DO 10 J=1,IO 00015960 + LEGSIG(LLA+LNP-J+1,11)=LEGSIG(LLA+LNP-J+1,11)+LEGSCT(IA+J) 00015970 + 10 CONTINUE 00015980 + 225 CONTINUE 00015990 + DO 2 J=1,IO 00016000 + MSSCAT(LLA,LI,J+IA)=MSSCAT(LLA,LI,J+IA)+LEGSCT(IA+J)*N2N*(2*LI-1) 00016010 + 2 CONTINUE 00016020 + RETURN 00016030 +C---- 00016040 +C---- FINE SUBROUTINE SOM. 00016050 +C---- 00016060 + END 00016070 + SUBROUTINE CORSTA(N,I,J,MATCOR,PRBNAM,MSSIGM,LEGSIG,SIGM,MSSCAT) 00016080 +C---- CORREGGE LE SEZIONI D'URTO LETTE DA XS.ISO2 CON I DATI SIGM 00016090 +C---- DELLE RISONANZE PER LE VARIE ZONE E SCRIVE I RECORDS DELLA 00016100 +C---- LIBRERIA ANISN AD ISOTOPI SU DIRAC. SCRIVE N+1ESIMO ISOTOPO 00016110 +C---- DI DIRAC (ISOTOPO I, REGIONE J). 00016120 + REAL*8 PRBNAM(1) 00016130 + REAL*4 MSSIGM(1),MSSCAT(NBG,MAXORD,1),LEGSIG(NBG,1) 00016140 + DIMENSION SIGM(NBG,M2,1),MATCOR(M4,1) 00016150 + COMMON/NTP/ NI,NO,NT(4),NDIR,NSS1 00016160 + COMMON/NPR/NPRMAT,NUFG,MGCSD,NGEOM,NREG,NBG1,NREG1,NGROUP,NISO, 00016170 + 1MAXUP,MAXDN,MAXOR1,IPREC,IHM,IHT,LMAX,NREAL,NPR(5),MAXHET 00016180 + COMMON/DIM/ NBG,M2,NPRM,MAXORD,IN1,M4 00016190 + COMMON /INP/INP(1) 00016200 +C**** ****************************** VARIANTE DEL 17-9-1984 NUM 1-7 00016210 + COMMON /N99P/N99P,N99P1 00016220 +C**** ****************************** PER UN FILE DIRAC NON DA MA PS 00016230 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00016240 + CALL TTIME(NORA) 00016250 + WRITE(11,1100) N,I,J,NORA 00016260 + 1100 FORMAT(' SUB.CORSTA: SCRIVE DIRAC DA RECORD:',I4,' ISOTOPO:',I4, 00016270 + 1' REGIONE:',I4,' ORA:',I10) 00016280 + DUMMY=0.0 00016290 +C---- ********** LOOP SUGLI ORDINI DI SCATTERING. 00016300 +C---- DIVERSI ORDINI DI SCATTERING VENGONO REGISTRATI 00016310 +C---- COME DIVERSI ISOTOPI SU DIRAC. 00016320 + DO 1 L=1,MAXOR1 00016330 +C---- INCREMENTA CONTATORE ISOTOPI. FISSA MATCOR. 00016340 +C 00016350 +C---- IN QUESTO CASO NON PRODUCE PN,SOLO PO 00016360 + IF(INP(4).EQ.1.AND.L.GT.1) GO TO 1 00016370 +C 00016380 + N=N+1 00016390 + MATCOR(1,N)=I 00016400 + MATCOR(2,N)=J 00016410 + MATCOR(3,N)=L 00016420 +C---- SCRITTURA RECORD DI TITOLO SU DIRAC. 00016430 +C WRITE(NDIR'2+(NBG+1)*(N-1)) NBG,IHM,IHT,PRBNAM(I) 00016440 +C**** *********************************** VARIANTE DEL 17-9-84 NUM 1-8 00016450 + IF(NDIR.EQ.99) 00016460 + 1WRITE(NDIR'2+(NBG+1)*(N-1)) NBG,IHM,IHT,PRBNAM(I) 00016470 + IF(NDIR.NE.99) WRITE(NDIR) NBG,IHM,IHT,PRBNAM(I) 00016480 + N99P=N99P+1 00016490 +C**** ************************** PER UN FILE DIRAC PS 00016500 + LMEN1=L-1 00016510 + WRITE(NO,100) N,I,J,LMEN1,PRBNAM(I) 00016520 + 100 FORMAT(/' REGISTRAZIONE SU DIRAC N. :',I4,' DI ISOTOPO:',I4,' REGI00016530 + 1ONE:',I4,' SCATT ORD:',I4,5X,A8) 00016540 +C---- ********** LOOP SUI GRUPPI (OGNI GRUPPO UN RECORD SU DIRAC). 00016550 + DO 1 K=1,NGROUP 00016560 + IF(L.GT.1) GO TO 2 00016570 +C---- CREAZIONE SEZIONI D'URTO TAPE ANISN (SOLO PER PRIMO ORDINE 00016580 +C---- DI SCATTERING). LE PRIME 4 POSIZIONI SONO VUOTE PER EVENTUALI 00016590 +C---- ACTIVITIES. 00016600 +C---- NELLE PRIME TRE POSIZIONI SONO LE 3 REMOUVAL 00016610 + MSSIGM(1)=LEGSIG(K,8) 00016620 + MSSIGM(2)=LEGSIG(K,9) 00016630 + MSSIGM(3)=LEGSIG(K,10) 00016640 +C REMOUVAL DI ORDINE 1 00016650 + MSSIGM(4)=LEGSIG(K,11) 00016660 +C---- FISSIONE + RISONANZE. 00016670 + MSSIGM(5)=LEGSIG(K,6)+SIGM(K,2,I+NPRMAT*(J-1)) 00016680 +C---- N GAMMA + N ALFA + NP + CATTURA DI RISONANZA + FISS 00016690 + MSSIGM(6)=LEGSIG(K,2)+LEGSIG(K,3)+LEGSIG(K,4)+SIGM(K,1,I+N 00016700 + 1PRMAT*(J-1))+ MSSIGM(5) 00016710 +C 00016720 +C---- CORREZIONE ALL'ASSORBIMENTO PER N,2N 00016730 + IF(INP(3).EQ.4.OR.INP(3).EQ.5) MSSIGM(6)=MSSIGM(6)-MSSIGM(3) 00016740 +C 00016750 + IF(LEGSIG(K,6).EQ.0) GO TO 3 00016760 +C---- SE FISSILE NU*SIGMA F. 00016770 + MSSIGM(7)=MSSIGM(5)*LEGSIG(K,7)/LEGSIG(K,6) 00016780 + GO TO 4 00016790 + 3 MSSIGM(7)=0.0 00016800 + 4 CONTINUE 00016810 +C---- TRANSPORT PER USO IN P0. 00016820 + MSSIGM(8)=LEGSIG(K,1)+SIGM(K,1,I+NPRMAT*(J-1))+SIGM(K,2,I+NPRMAT*(00016830 + 1J-1)) 00016840 + IF(INP(3).EQ.5) GO TO 24 00016850 + IF(INP(3).NE.2) GO TO 23 00016860 +C---- SIGMA TOTALE ORDINE 1 PER USO PN 00016870 + MSSIGM(8)=LEGSIG(K,5)+MSSIGM(8)-MSSCAT(K,1,MAXUP+1) 00016880 + MSSCAT(K,1,MAXUP+1)=LEGSIG(K,5) 00016890 + 23 CONTINUE 00016900 + 24 CONTINUE 00016910 +C IN QUESTA OPZIONE 00016920 +C GENERA TOTAL 00016930 + IF(INP(3).NE.1) GO TO 300 00016940 + SIGT=MSSIGM(6)+LEGSIG(K,8)+LEGSIG(K,9)+LEGSIG(K,10) 00016950 +C ASSORBIMENTO PIU REMOUVAL 00016960 +C SCATTERING CHE STA ALLA TOTAL COME QUELLO DELLA 00016970 +C TRANSPORT ALLA TRANSPORT 00016980 +C SCATT=SIGT+MSSCAT(K,1,MAXUP+1)-MSSIGM(8) 00016990 +C MSSCAT(K,1,MAXUP+1)=SCATT 00017000 + MSSIGM(8)=SIGT 00017010 + 300 CONTINUE 00017020 +C 00017030 +C 00017040 + NF=MAXUP+MAXDN+1 00017050 +C---- SCRITTURA DELLE SIGMA SU TAPE DIRAC. 00017060 +C WRITE(NDIR'2+K+(NBG+1)*(N-1))(MSSIGM(JJ),JJ=1,IHT),(MSSCAT(K,L,KK)00017070 +C 1,KK=1,NF) 00017080 +C**** *************************** VARIANTE DEL 17-9-84 NUM 1-9 00017090 + IF (NDIR.EQ.99) 00017100 + 1WRITE(NDIR'2+K+(NBG+1)*(N-1))(MSSIGM(JJ),JJ=1,IHT),(MSSCAT(K,L,KK)00017110 + 1,KK=1,NF) 00017120 + IF (NDIR.NE.99) 00017130 + 1WRITE(NDIR)(MSSIGM(JJ),JJ=1,IHT),(MSSCAT(K,L,KK) 00017140 + 1,KK=1,NF) 00017150 + N99P=N99P+1 00017160 +C**** ************************** PER UN DIRAC PS 00017170 +C---- STAMPA SU OPZIONI DI INPUT. 00017180 + IF(INP(2).GT.4) WRITE(NO,109)I,PRBNAM(I),K 00017190 + 109 FORMAT(/' ISOTOPO NUMERO: ',I4,4X,A8,' GRUPPO : ',I4) 00017200 + IF(INP(2).GT.4) WRITE(NO,110) (MSSIGM(JJ),JJ=1,IHT) 00017210 + IF(INP(2).GT.5) WRITE(NO,110) (MSSCAT(K,L,KK),KK=1,NF) 00017220 + GO TO 1 00017230 +C---- PER ORDINI DI SCATTERING OLTRE IL PRIMO SCRIVE UN ISOTOPO 00017240 +C---- CONTENENTE SOLO LA MATRICE DI SCATTERING DELL'ORDINE SUPERIORE. 00017250 + 2 CONTINUE 00017260 +C WRITE(NDIR'2+K+(NBG+1)*(N-1))(DUMMY,II=1,IHT),(MSSCAT(K,L,KK),KK=100017270 +C 1,NF) 00017280 +C**** ******************************** VARIANTE DEL 17-9 -84 NUM 1-10 00017290 + IF(NDIR.EQ.99) 00017300 + 1WRITE(NDIR'2+K+(NBG+1)*(N-1))(DUMMY,II=1,IHT),(MSSCAT(K,L,KK),KK=100017310 + 1,NF) 00017320 + IF(NDIR.NE.99) 00017330 + 1WRITE(NDIR)(DUMMY,II=1,IHT),(MSSCAT(K,L,KK),KK=1 00017340 + 1,NF) 00017350 + N99P=N99P+1 00017360 +C**** ************************************ PER UN DIRAC PS 00017370 +C---- STAMPA SU OPZIONI DI INPUT. 00017380 + IF(INP(2).GT.4) WRITE(NO,109)I,PRBNAM(I),K 00017390 + IF(INP(2).GT.4) WRITE(NO,110) (DUMMY,II=1,IHT) 00017400 + IF(INP(2).GT.5) WRITE(NO,110) (MSSCAT(K,L,KK),KK=1,NF) 00017410 + 110 FORMAT(/(10(1X,E12.6))) 00017420 + 1 CONTINUE 00017430 +C---- ********** FINE LOOP SU ORDINI DI SCATTERING E GRUPPI. 00017440 + RETURN 00017450 +C---- 00017460 +C---- FINE SUBROUTINE CORSTA. 00017470 +C---- 00017480 + END 00017490 + SUBROUTINE PET03 00017500 +C---- SUBROUTINE PRINCIPALE DELLA PARTE 3 DI 007. CREA LIBRERIA ANISN 00017510 +C---- AD ISOTOPI E FORMA LE SIGMA MACROSCOPICHE. 00017520 + COMMON/A/A(1) 00017530 + COMMON/NTP/NI,NO,NPC,NSS1,NAGGAN,NOUTAN,NDIR 00017540 + COMMON/NPR/NPRMAT,NREG,NGEOM,NREG1,NGROUP,IHM,IHT,NREAL,N,NP(13) 00017550 + COMMON/NDMX/NDIM,NTAPE,NINP 00017560 + COMMON/TITL/TITL(1) 00017570 + COMMON/NPUNT/NPUNT(1) 00017580 + COMMON/INP/INP(1) 00017590 + COMMON/DIM/NRZ,M4,NPRM,NIHM,NMAC,NMIC 00017600 + REAL*8 ANOM(7) 00017610 + DIMENSION NTP(1),NTP1(18),TITOL(20) 00017620 + EQUIVALENCE(NI,NTP(1)) 00017630 + DATA AANOM/4HNO / 00017640 + DATA ANOM/8HINPUT ,8HOUTPUT ,8HPUNCH ,8HSCR2 ,8HAGGAN ,800017650 + 1HOUTAN ,8HDIRAC / 00017660 +C**** *************************** VARIANTE DEL 17-9-84 NUM 1-11 00017670 + COMMON/N99P/N99P,N99P1 00017680 +C**** ***************************** PERUN DIRAC PS 00017690 + DATA NTP1/5,6,7,91,92,93,99,11*0/ 00017700 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00017710 + CALL TTIME(NORA) 00017720 +C---- NUMERO TAPES USATI E NUMERO OPZIONI DI INPUT PER LA PARTE 3. 00017730 + NTAPE=7 00017740 + NINP=4 00017750 + WRITE(11,999) NORA 00017760 + 999 FORMAT(' PARTE3 ORA: ',I10) 00017770 +C---- LA PRIMA LETTURA LA FA DAL DEFAULT SE NI NON CONTIENE GIA' 00017780 +C---- UN NUMERO BUONO. 00017790 + IF(NI.LE.0.OR.NI.GT.99) NI=NTP1(1) 00017800 +C---- LETTURA NUMERI LOGICI TAPES. 00017810 + READ(NI,1) (NTP(J),J=1,NTAPE) 00017820 + 1 FORMAT(18I4) 00017830 +C---- ASSEGNAZIONE DEFAULTS. 00017840 + DO 2 I=1,NTAPE 00017850 + 2 IF(NTP(I).LE.0) NTP(I)=NTP1(I) 00017860 +C---- LETTURA TITOLO. SE TITL(1) =NO NON FA LA PARTE 3. 00017870 + READ(NI,3) (TITL(J),J=1,20) 00017880 + 3 FORMAT(20A4) 00017890 + WRITE(NO,4) (TITL(J),J=1,20) 00017900 + 4 FORMAT(1H1,20X,20A4//) 00017910 + IF(TITL(1).EQ.AANOM) RETURN 00017920 +C---- IN QUESTO CASO LA PARTE 3 NON VIENE EFFETTUATA. 00017930 + WRITE(NO,5) 00017940 + 5 FORMAT(//1X,10(1H+),' PROGRAMMA GERES - PARTE 3 : PREPARA NAST00017950 + 1RO ANISN ORGANIZZATO PER GRUPPI'//) 00017960 + WRITE(NO,6) (ANOM(I),NTP(I),I=1,NTAPE) 00017970 + 6 FORMAT(5X,' IL FILE ',A8,' E* SULLA UNITA LOGICA ',I4) 00017980 +C---- LETTURA OPZIONI DI INPUT. 00017990 + READ(NI,1) (INP(J),J=1,NINP) 00018000 + WRITE(NO,7) (INP(J),J=1,NINP) 00018010 + 7 FORMAT(//5X,' OPZIONI DI INPUT : ',18I4) 00018020 + IF(INP(1).LE.0) GO TO 8 00018030 +C---- RESTART : LEGGE I DATI DA NSS1 PER COMMON /NPR/. 00018040 + REWIND NSS1 00018050 + READ(NSS1) NPRMAT,NREG,NGEOM,NREG1,NGROUP,IHM,IHT,NREAL,N 00018060 + WRITE(NO,100) NSS1,NPRMAT,NREG,NGEOM,NREG1,NGROUP, 00018070 + 1IHM,IHT,NREAL 00018080 +C**** **************************** VARIANTE DEL 17-9-84 NUM 1- 12 00018090 + N99P1=N 00018100 +C**** ************************ PER UN DIRAC PS ******** 00018110 + 100 FORMAT(/' LETTI DA SCR2,UNITA*:',I4,' NPRMAT,NREG,NGEOM,NREG1,NGRO00018120 + 1UP,IHM,IHT,NREAL'/26X,10I5/) 00018130 + GO TO 9 00018140 + 8 CONTINUE 00018150 +C---- NEL CASO I DATI SIANO GIA' IN /NPR/ RIORDINA IL COMMON STESSO 00018160 +C---- IN MODO DA NON AVERVI DEI BUCHI. 00018170 + NREG=NGROUP 00018180 + NGEOM=NREG1 00018190 + NREG1=IHT 00018200 + NGROUP=NREAL 00018210 + IHM=NP(5) 00018220 + IHT=NP(6) 00018230 + NREAL=NP(8) 00018240 + 9 CONTINUE 00018250 +C---- LETTURA NUMERO ISOTOPI SU DIRAC (N : DIMENSIONE VARIABILI). 00018260 +C READ(NDIR'1) N,TITOL(1) 00018270 +C**** ****************************** VARIANTE DEL 17-9-84 NUM 1-13 00018280 + IF(NDIR.EQ.99) GO TO 110 00018290 + REWIND NDIR 00018300 + N99P=1 00018310 + READ(NDIR) NNNN,TITOL(1) 00018320 + N99P=N99P+1 00018330 + IF (N99P1.GT.0) GO TO 105 00018340 + WRITE(NO,6001)N99P1,NDIR 00018350 + WRITE(11,6001)N99P1,NDIR 00018360 + N99P1=NREAL*NPRMAT 00018370 + 6001 FORMAT(' WARNING!!!!!!!! A MAXIMUM OF',I5,' ISOTOPES IS ' 00018380 + 1 ,' SUPPOSED TO BE ON UNIT:',I5) 00018390 + 105 CONTINUE 00018400 +C---- PER DIRAC NON DA IL NUMERO DI ISOTOPI NON E SCRITTO SUL 00018410 +C---- PRIMO RECORD DI DIRAC, MA CONTENUTO IN/N99P/:N99P1 00018420 +C---- PER RESTART USA N CHE 00018430 +C---- LEGGE DA NSS1, SE QUESTO E' NULLO ASSEGNA AD N99P1=N UN 00018440 +C---- NUMERO CALCOLATO PER ECCESSO. QUESTO PROVOCA ERRORE (VEDI 00018450 +C---- LABEL 500 IN SUBROUTINE CALSCR) 00018460 + N=N99P1 00018470 + 110 IF(NDIR.EQ.99) 00018480 + 1READ(NDIR'1) N,TITOL(1) 00018490 +C**** ******************************** PER UN DIRAC NON PS 00018500 + WRITE(NO,10) N,TITOL(1) 00018510 + 10 FORMAT(//5X,' ISOTOPI SUL NASTRO AD ACCESSO DIRETTO : ',I4 00018520 + 1/5X,' INTESTAZIONE DEL NASTRO : ',20A4) 00018530 +C---- DEFINIZIONE PUNTATORI /NPUNT/ PER INDIRIZZI VARIABILI NEL COMMON 00018540 +C---- /A/ E RESTO DELLE LETTURE. 00018550 + CALL SPOMEM 00018560 +C---- CALCOLO MACRO E SCRITTURA TAPE ANISN A GRUPPI. 00018570 + CALL CALSCR(A(NPUNT(1)),A(NPUNT(2)),A(NPUNT(3)),A(NPUNT(4)),A(NPUN00018580 + 1T(5)),A(NPUNT(6)),A(NPUNT(7)),A(NPUNT(8)),A(NPUNT(9))) 00018590 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00018600 + CALL TTIME(NORA) 00018610 + WRITE(11,995) NORA 00018620 + 995 FORMAT(' FINE PARTE 3 , ORA: ',I10) 00018630 + RETURN 00018640 +C---- 00018650 +C---- FINE SUBROUTINE PET03. 00018660 +C---- 00018670 + END 00018680 + SUBROUTINE SPOMEM 00018690 +C---- DEFINISCE GLI SPAZI DEL COMMON /A/, CALCOLA I PUNTATORI /NPUNT/ 00018700 +C---- E MAN MANO RIEMPIE GLI SPAZI DI /A/ CON I RELATIVI DATI. 00018710 + COMMON/A/A(1) 00018720 + COMMON /NTP/ NI,NO,NPC 00018730 + COMMON/DIM/NRZ,M4,NPRM,NIHM,ND(2) 00018740 + COMMON/NDMX/NDIM 00018750 + COMMON/INP/INP(1) 00018760 + COMMON/NPUNT/NPUNT(1) 00018770 + COMMON/NPR/NPRMAT,NREG,NGEOM,NREG1,NGROUP,IHM,IHT,NREAL,N 00018780 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00018790 + CALL TTIME(NORA) 00018800 + WRITE(11,999) NORA 00018810 + 999 FORMAT(' SPOMEM RIEMPIMENTO COMMON A ORA: ',I10) 00018820 + IF(INP(1).GT.0) GO TO 1 00018830 +C---- CASO IN CUI MATCOR E* IN /A/. LO SPOSTA DAL NONO POSTO OVE ERA 00018840 +C---- E LO METTE AL QUARTO POSTO IN MODO DA NON AVERE BUCHI IN /A/. 00018850 +C---- RIORDINAMENTO COMMON /DIM/. 00018860 + M4=ND(2) 00018870 + J=M4*N 00018880 +C---- VENGONO SPOSTATI SOLO I VALORI RELATIVI ALLE N REGISTRAZIONI 00018890 +C---- ESISTENTI SU DIRAC. NELLA PARTE SECONDA MATCOR ERA 00018900 +C---- SOVRADIMENSIONATO. QUI CI SI LIMITA ALLA PARTE EFFETTIVAMENTE 00018910 +C---- ESISTENTE. 00018920 + DO 2 I=1,J 00018930 + 2 A(NPUNT(4)+I-1)=A(NPUNT(9)+I-1) 00018940 + 1 IF(INP(1).LE.0) GO TO 3 00018950 +C---- IN CASO DI RESTART DEFINISCE I PRIMI PUNTATORI CHE NON SONO 00018960 +C---- IN MEMORIA. 00018970 + NPUNT(1)=1 00018980 + NPRM=NPRMAT 00018990 +C---- PRBNAM : NOMI MATERIALI. 00019000 + NPUNT(2)=NPUNT(1)+NPRMAT*2 00019010 +C---- HETDEN : DENSITA'. 00019020 + NPUNT(3)=NPUNT(2)+NPRMAT*(NREG+1) 00019030 +C---- MATHET : INDICI MATERIALI ETEROGENEI. 00019040 + NPUNT(4)=NPUNT(3)+NPRMAT*NREG1 00019050 +C---- MATCOR : COORDINATE DI DIRAC. 00019060 + M4=3 00019070 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00019080 + CALL TTIME(NORA) 00019090 + WRITE(11,998) NORA 00019100 +C---- LETTURA DA NSS1 DI PRBNAM, HETDEN, MATHET, MATCOR. 00019110 + 998 FORMAT('CHIAMATA A LEGNS1, ORA:',I10) 00019120 + CALL LEGNS1(A(NPUNT(1)),A(NPUNT(2)),A(NPUNT(3)),A(NPUNT(4))) 00019130 + 3 NPUNT(5)=NPUNT(4)+M4*N 00019140 +C---- MACROD : COORDINATE DI MATISA PER INIZIO MACRO DEI 00019150 +C---- DIVERSI MATERIALI. 00019160 +C---- PULISCE TUTTA LA MEMORIA RESTANTE. 00019170 + CALL NULL(NPUNT(5),NDIM-NPUNT(5)+1) 00019180 + WRITE(NO,120) INP(3) 00019190 + 120 FORMAT(//' FARE ATTENZIONE AL TERZO PARAMETRO DI INPUT :', 00019200 + 1I4,' CHE DIMENSIONA DIRETTAMENTE LE MATRICI') 00019210 + NPUNT(6)=NPUNT(5)+NREAL 00019220 + IF(INP(2).LT.0) NPUNT(6)=NPUNT(5) 00019230 +C---- NOMISA : NUMERO DELLE MICRO RICHIESTE NELLE VARIE ZONE. 00019240 + IF(NDIM.LT.NPUNT(6)) WRITE(NO,5) 00019250 + NPUNT(7)=NPUNT(6)+NPRMAT*NREAL 00019260 + IF(INP(2).EQ.0) NPUNT(7)=NPUNT(6) 00019270 +C---- MATISA : 1 GRUPPO MACRO + MICRO PER NOUTAN (TAPE ANISN A GRUPPI). 00019280 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00019290 + CALL TTIME(NORA) 00019300 + WRITE(11,997) NORA 00019310 + 997 FORMAT(' CHIAMATE A MATNOM E MANN, ORA: ',I10) 00019320 +C---- SU OPZIONE LETTURA MATRICE MICRO RICHIESTE. 00019330 + IF(INP(2).NE.0) CALL MATNOM(A(NPUNT(1)),A(NPUNT(6))) 00019340 +C---- MANN : NUMERO DI ISOTOPI IN UN RECORD DEL TAPE PRODOTTO (MACRO + 00019350 +C---- MICRO). CALCOLA ANCHE NMAC ED NMIC DI /DIM/. 00019360 + NRZ=MANN(A(NPUNT(2)),A(NPUNT(3)),A(NPUNT(4)),A(NPUNT(5)),A(NPUN 00019370 + 1T(6))) 00019380 + NIHM=IHM 00019390 + NPUNT(8)=NPUNT(7) + NRZ*IHM 00019400 +C---- MAT1AN : PER LEGGERE TAVOLA ANISN DI UN GRUPPO. 00019410 + WRITE(NO,100) NRZ,ND(1),ND(2) 00019420 + 100 FORMAT(/' RISERVATI SPAZI PER ',I4,' ISOTOPI NEL RECORD,DI CUI 00019430 + 1 ',I4,' MACRO ED ',I4,' MICRO'/) 00019440 + NPUNT(9)=NPUNT(8)+IHM 00019450 +C---- AGGISA : PER LETTURA NAGGAN (TAPE ANISN DA AGGIORNARE). 00019460 +C---- IN CASO INP(3) SIA ERRATO VIENE LASCIATO SPAZIO PER 10 ISOTOPI. 00019470 +C---- POICHE' QUESTA E* L'ULTIMA GRANDEZZA IN /A/ UN ERRORE PUO' NON 00019480 +C---- INCIDERE SUL PROGRAMMA SE /A/ E* SOVRADIMENSIONATO. 00019490 + IF(INP(3).LT.0) INP(3)=10 00019500 + NPUNT(10)=NPUNT(9)+INP(3)*IHM-1 00019510 + WRITE(NO,110) INP(3) 00019520 + 110 FORMAT(/' RISERVATO SPAZIO PER :',I4,' ISOTOPI DI AGGISAN'/) 00019530 + WRITE(NO,4) NPUNT(10),NDIM 00019540 + 4 FORMAT(//5X,' LA OCCUPAZIONE E* DI ',I10,' PAROLE. DISPONIBILI ',I00019550 + 110,' PAROLE') 00019560 + IF(NPUNT(9).GT.NDIM) WRITE(NO,5) 00019570 + 5 FORMAT(//5X,10(1H*),' ATTENZIONE, LO SPAZIO FORNITO NON BASTA '/ 00019580 + 15X,10(1H*),' AUMENTARE LE DIMENSIONI DEL COMMON/A/ E IL PARAMETRO 00019590 + 1 NDIM') 00019600 + IF(NPUNT(10).GT.NDIM) STOP 00019610 + WRITE(11,1000) (J,NPUNT(J),J=1,10) 00019620 + 1000 FORMAT(' NPUNT(',I4,')=',I10) 00019630 + RETURN 00019640 +C---- 00019650 +C---- FINE SUBROUTINE SPOMEM. 00019660 +C---- 00019670 + END 00019680 + FUNCTION MANN(HETDEN,MATHET,MATCOR,MACROD,NOMISA) 00019690 +C---- CALCOLA N. ISOTOPI DEL RECORD DEL TAPE PRODOTTO (DIMENSIONE 00019700 +C---- DI MATISA). CALCOLA MACROD (COORDINATE MACRO DIVERSE ZONE IN 00019710 +C---- MATISA). CALCOLA NMIC E NMAC (NUMERO MACRO E MICRO). 00019720 + COMMON/INP/INP(1) 00019730 + COMMON /A/A(1) 00019740 + COMMON/DIM/NRZ,M4,NPRM,NIHM,NMAC,NMIC 00019750 + COMMON /NPR/NPRMAT,NREG,NGEOM,NREG1,NGROUP,IHM,IHT,NREAL,N 00019760 + COMMON/NPUNT/NPUNT(1) 00019770 + DIMENSION MATHET(NPRM,1) 00019780 + DIMENSION MATCOR(M4,1),MACROD(1),NOMISA(NPRM,1),HETDEN(NPRM,1) 00019790 + WRITE(11,999) 00019800 + 999 FORMAT(' MANN CALCOLO NUMERO ISOTOPI DEL TAPE ANISN ') 00019810 + NMIC=0 00019820 + NMAC=0 00019830 + IF(INP(2).LT.0) GOTO 20 00019840 +C---- CALCOLO NUMERO MACRO. 00019850 +C---- ANNULLA MACROD. 00019860 + CALL NULL(NPUNT(5),NREAL) 00019870 +C---- ********** LOOP SUGLI ISOTOPI DI DIRAC. 00019880 + DO 1 I=1,N 00019890 + IF(HETDEN(MATCOR(1,I),MATCOR(2,I)).EQ.0) GOTO 10 00019900 +C---- DI OGNI ISOTOPO GUARDA COME E* PN, CIOE' IN QUANTI ISOTOPI 00019910 +C---- SI SPEZZA NEL TAPE ANISN. PER OGNI ZONA MACROD VIENE AD ASSUMERE 00019920 +C---- IL VALORE DEL NUMERO DI PN PRESENTI(NUMERO DI MACRO DELLA REGIONE)00019930 + IF(MACROD(MATCOR(2,I)).LT.MATCOR(3,I)) MACROD(MATCOR(2,I))=MATCOR(00019940 + 13,I) 00019950 + 10 IF(NREAL.EQ.1) GOTO 15 00019960 + IF(MATCOR(2,I).NE.1) GOTO 15 00019970 +C---- AL SOLITO PER SIGMA IN ZONA OMOGENEA SI VEDE A QUANTE ETEROGENEE 00019980 +C---- VA AGGIUNTO (ISOTOPI A TRATTAMENTO OMOGENEO MA PRESENTI IN PIU' 00019990 +C---- ZONE). 00020000 +C---- ********** LOOP SULLE REGIONI. 00020010 + DO 2 IJ=2,NREAL 00020020 + IF(MATHET(MATCOR(1,I),IJ-1).EQ.0.AND.HETDEN(MATCOR(1,I),IJ).NE.0. 00020030 + 1AND.MACROD(IJ).LT.MATCOR(3,I)) MACROD(IJ)=MATCOR(3,I) 00020040 + 2 CONTINUE 00020050 +C---- ********** FINE LOOP SULLE REGIONI. 00020060 + 15 CONTINUE 00020070 + 1 CONTINUE 00020080 +C---- FINE LOOP SUGLI ISOTOPI. 00020090 +C---- MACROD VIENE CONVERTITA IN MODO CHE CONTENGA NON IL NUMERO 00020100 +C---- DI SIGMA MACRO PRESENTI IN OGNI ZONA, MA LE COORDINATE (IN MATISA)00020110 +C---- DELLA PRIMA SIGMA MACRO DI OGNI ZONA. 00020120 + NCON=MACROD(1) 00020130 + MACROD(1)=1 00020140 + IF(NREAL.EQ.1) GOTO 17 00020150 + DO 3 I=2,NREAL 00020160 + NCON1=MACROD(I) 00020170 + IF(NCON.LE.0) NCON=1 00020180 + MACROD(I)=MACROD(I-1)+NCON 00020190 + WRITE(11,1002) MACROD(I),I 00020200 + 1002 FORMAT(' MACROD=',I5,' REGIONE:',I5) 00020210 + NCON=NCON1 00020220 + 3 CONTINUE 00020230 + 17 NMAC=MACROD(NREAL)+NCON-1 00020240 + 20 CONTINUE 00020250 + IF(INP(2).EQ.0) GOTO 30 00020260 +C---- CALCOLO MICRO : SI GUARDANO TUTTI GLI ISOTOPI SU DIRAC E SI 00020270 +C---- INCREMENTA NMIC QUANDO UNO DI ESSI E* RICHIESTO MICRO. 00020280 + DO 4 I=1,N 00020290 + IF(NOMISA(MATCOR(1,I),MATCOR(2,I)).NE.0) NMIC=NMIC+1 00020300 + 4 CONTINUE 00020310 + 30 CONTINUE 00020320 + MANN=NMAC+NMIC 00020330 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00020340 + CALL TTIME(NORA) 00020350 + WRITE(11,997) NORA 00020360 + 997 FORMAT(' FINE MANN ( CALCOLO NUMERO ISOTOPI ), ORA : ',I10) 00020370 + RETURN 00020380 +C---- 00020390 +C---- FINE FUNCTION MANN. 00020400 +C---- 00020410 + END 00020420 + SUBROUTINE LEGNS1(PRBNAM,HETDEN,MATHET,MATCOR) 00020430 +C---- LETTURA DA NSS1 IN CASO DI RESTART. 00020440 + COMMON/NTP/NI,NO,NPC,NSS1,NAGGAN,NOUTAN,NDIR 00020450 + COMMON/NPR/NPRMAT,NREG,NGEOM,NREG1,NGROUP,IHM,IHT,NREAL,N 00020460 + COMMON/DIM/NRZ,M4,NPRM,NIHM 00020470 + REAL*8 PRBNAM(1) 00020480 + DIMENSION HETDEN(NPRM,1),MATHET(NPRM,1),MATCOR(M4,1) 00020490 + READ(NSS1) (PRBNAM(J),J=1,NPRMAT) 00020500 + NRR=NREG+1 00020510 + IF(NRR.GT.0) READ(NSS1) ((HETDEN(J,J1),J=1,NPRMAT),J1=1,NRR) 00020520 + IF(NREG1.GT.0) READ(NSS1) ((MATHET(J,J1),J=1,NPRMAT),J1=1,NREG1) 00020530 + READ(NSS1) ((MATCOR(I,J),I=1,M4),J=1,N) 00020540 + REWIND NSS1 00020550 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00020560 + CALL TTIME(NORA) 00020570 + WRITE(11,999) NORA 00020580 + 999 FORMAT(' FINE LEGNS1, LETTURA NSS1, ORA: ',I10) 00020590 + RETURN 00020600 +C---- 00020610 +C---- FINE SUBROUTINE LEGNES1. 00020620 +C---- 00020630 + END 00020640 + SUBROUTINE MATNOM(PRBNAM,NOMISA) 00020650 +C---- LETTURA NOMI MICRO RICHIESTI DA INPUT. 00020660 +C---- DEFINIZIONE MATRICE DELLE MICRO RICHIESTE. 00020670 + COMMON /NPUNT/NPUNT(1) 00020680 + COMMON/NPR/NPRMAT,NREG,NGEOM,NREG1,NGROUP,IHM,IHT,NREAL,N 00020690 + COMMON/NTP/NI,NO,NPC,NSS1,NAGGAN,NOUTAN,NDIR 00020700 + COMMON/DIM/NRZ,M4,NPRM,NIHM 00020710 + DIMENSION NOMISA(NPRM,1) 00020720 + REAL*8 PNOME(8),BLNOM,PNOMT,PRBNAM(1) 00020730 + DATA BLNOM/8H /,PNOMT/8HTUTTI / 00020740 + WRITE(11,999) 00020750 + 999 FORMAT(' MATNOM ,DARE MICRO ') 00020760 +C---- VUOTA LA MATRICE DELLE MICRO RICHIESTE. 00020770 + CALL NULL(NPUNT(6),NPRMAT*NREAL) 00020780 + WRITE(NO,110) 00020790 + 110 FORMAT(//2X,' MICRO RICHIESTE'/3X,'ZONA , ISOTOPI MICRO') 00020800 +C---- ********** INIZIO LOOP DI LETTURA SCHEDE 00020810 +C---- CON NUMERO ZONA E NOMI ISOTOPI. 00020820 + 1 READ(NI,2) NZON,(PNOME(J),J=1,8) 00020830 + 2 FORMAT(I4,8A8) 00020840 + WRITE(NO,100) NZON,(PNOME(J),J=1,8) 00020850 + 100 FORMAT(1X,I4,5X,8(3X,A8)) 00020860 +C---- USCITA LOOP DI LETTURA. 00020870 + IF(NZON.LE.0) GO TO 3 00020880 +C---- SE IL NUMERO DELLA ZONA E* FUORI CAMPO DA' UN DIAGNOSTICO 00020890 + IF(NZON.GT.NREAL) GO TO 4 00020900 +C---- SE C'E* 'TUTTI' METTE 1 IN TUTTE LE ZONE. 00020910 + IF(PNOME(1).EQ.PNOMT) GO TO 6 00020920 + DO 8 J=1,8 00020930 +C---- SALTA NOMI BIANCHI. 00020940 + IF(PNOME(J).EQ.BLNOM) GOTO 8 00020950 +C---- LOOP DI RICERCA DEL NOME LETTO. 00020960 + DO 9 I=1,NPRMAT 00020970 + IF(PNOME(J).EQ.PRBNAM(I)) GO TO 10 00020980 + 9 CONTINUE 00020990 + WRITE(NO,120) PNOME(J) 00021000 + WRITE(11,120) PNOME(J) 00021010 + 120 FORMAT(//' ATTENZIONE, IL MATERIALE ',A8,' NON E* FRA QUELLI DEL 00021020 + 1 PROBLEMA ',10(1H?)) 00021030 + GO TO 8 00021040 + 10 NOMISA(I,NZON)=1 00021050 + 8 CONTINUE 00021060 + GO TO 1 00021070 + 6 DO 7 I=1,NPRMAT 00021080 + 7 NOMISA(I,NZON)=1 00021090 + GOTO 1 00021100 + 4 WRITE(NO,5) NREAL 00021110 + WRITE(11,5) NREAL 00021120 + 5 FORMAT(//5X,10(1H*),' ATTENZIONE, IL NUMERO MASSIMO DI ZONE E* ',I00021130 + 14,10(1H*)) 00021140 + GO TO 1 00021150 +C---- ********** FINE LOOP DI LETTURA. 00021160 + 3 CONTINUE 00021170 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00021180 + CALL TTIME(NORA) 00021190 + WRITE(11,997) NORA 00021200 + 997 FORMAT(' FINE MATNOM, ORA : ',I10) 00021210 + RETURN 00021220 +C---- 00021230 +C---- FINE SUBROUTINE MATNOM. 00021240 +C---- 00021250 + END 00021260 + SUBROUTINE CALSCR(PRBNAM,HETDEN,MATHET,MATCOR,MACROD,NOMISA,MATISA00021270 + 1,MAT1AN,AGGISA) 00021280 +C---- CALCOLO MACRO E SCRITTURA RECORDS LIBRERIA ANISN A GRUPPI. 00021290 + COMMON /A/A(1) 00021300 + COMMON/DIM/NRZ,M4,NPRM,NIHM,NMAC,NMIC 00021310 + COMMON/NPUNT/NPUNT(1) 00021320 + COMMON/NPR/NPRMAT,NREG,NGEOM,NREG1,NGROUP,IHM,IHT,NREAL,N 00021330 + COMMON/NTP/NI,NO,NPC,NSS1,NAGGAN,NOUTAN,NDIR 00021340 + COMMON/INP/INP(1) 00021350 + REAL*4 MATISA(NIHM,1),MAT1AN(1) 00021360 + REAL*8 PRBNAM(1) 00021370 + DIMENSION AGGISA(1),MATHET(NPRM,1),HETDEN(NPRM,1),MATCOR(M4,1) 00021380 + DIMENSION MACROD(1) 00021390 + DIMENSION NOMISA(NPRM,1) 00021400 +C**** *************************** VARIANTE DEL 17-9-84 NUM 1-14 00021401 + COMMON/N99P/N99P,N99P1 00021402 +C**** ***************************** PERUN DIRAC PS 00021403 +C---- +++++++++++ ESAME DEL TEMPO ++++++++++++++ 00021410 + CALL TTIME(NORA) 00021420 + WRITE(11,999) NORA 00021430 + 999 FORMAT(' CALSCR MACRO E SCRITTURA NOUTAN ORA : ',I10) 00021440 + IF(INP(3).GT.0) REWIND NAGGAN 00021450 + REWIND NOUTAN 00021460 +C---- ********** LOOP SUI GRUPPI. SCRIVE 1 RECORD PER GRUPPO. 00021470 + DO 1 I=1,NGROUP 00021480 +C---- ANNULLA MATISA (PER MACRO + MICRO DEL GRUPPO). 00021490 + CALL NULL(NPUNT(7),NRZ*IHM) 00021500 +C---- CONTATORE MICRO. 00021510 + NMICRO=0 00021520 +C---- ********** LOOP SUGLI ISOTOPI DI DIRAC. 00021530 + DO 2 J=1,N 00021540 +C---- LETTURA DEL GRUPPO CORRENTE DELL'ISOTOPO CORRENTE SU DIRAC. 00021550 +C READ(NDIR'2+(NGROUP+1)*(J-1)+I) (MAT1AN(K),K=1,IHM) 00021560 +C**** ****************************** VARIANTE DEL 17-9-84 NUM 1-15 00021570 + NPSZN=2+(NGROUP+1)*(J-1)+I 00021580 + IF(NDIR.EQ.99) GO TO 201 00021590 + CALL POSIZ(NDIR,NPSZN,N99P) 00021600 + READ(NDIR,ERR=500,END=500) (MAT1AN(K),K=1,IHM) 00021610 + N99P=N99P+1 00021620 + GO TO 501 00021630 + 500 CONTINUE 00021640 + WRITE(NP,1000) NDIR,NPSZN,NGROUP,J,I 00021650 + WRITE(NO,1000) NDIR,NPSZN,NGROUP,J,I 00021660 + 1000 FORMAT(' WARNING!!!! ERROR ON UNIT:',I5,' !!!!!!!!'/ 00021670 + 1' RECORD:',I5,' GRUPPI:',I5,' ISOTOPO NON TROVATO:',I5, 00021680 + 2' DEL GRUPPO:',I5,' CERCO DI PROCEDERE EGUALMENTE!?') 00021690 + GO TO 2 00021700 + 501 CONTINUE 00021710 + 201 IF(NDIR.EQ.99) 00021720 + 1READ(NDIR'NPSZN) (MAT1AN(K),K=1,IHM) 00021730 +C**** ******************************* PER UN DIRAC PS E NON DA 00021740 + IF(INP(2).LT.0) GO TO 3 00021750 +C---- CALCOLO MACRO. SE LA DENSITA' DEL MATERIALE E* DIVERSA DA 00021760 +C---- ZERO VIENE SOMMATO NELLE MACRO DELLA SUA ZONA. 00021770 + IF(HETDEN((MATCOR(1,J)),(MATCOR(2,J))).EQ.0) GO TO 33 00021780 + DO 4 K=1,IHM 00021790 + 4 MATISA(K,MACROD(MATCOR(2,J))-1+MATCOR(3,J))= 00021800 + 1MATISA(K,MACROD(MATCOR(2,J))-1+MATCOR(3,J))+ MAT1AN(K) 00021810 + 2*HETDEN(MATCOR(1,J),MATCOR(2,J)) 00021820 +C---- LE STAMPE SONO FATTE SOLO PER IL PRIMO GRUPPO PERCHE' 00021830 +C---- PER TUTTI GLI ALTRI GRUPPI SONO SEMPRE UGUALI. 00021840 + IF(I.EQ.1) NPRNT=MATCOR(3,J)-1 00021850 + IF(I.EQ.1) WRITE(NO,6) PRBNAM(MATCOR(1,J)),J,MATCOR(2,J),NPRNT 00021860 + 6 FORMAT(//' ISOTOPO ',A8,' DEL NASTRO AD ACCESSO DIRETTO NELLA POSI00021870 + 1ZIONE ',I4/' E* STATO AGGIUNTO ALLA SIGMA MACROSCOPICA DELLA REGIO00021880 + 2NE ',I4,' ORDINE DI SCATTERING :',I4/) 00021890 + 33 IF(MATCOR(2,J).GT.1) GO TO 3 00021900 + IF(NREAL.EQ.1) GOTO 3 00021910 +C---- NEL CASO CI SI TROVI NELLA ZONA OMOGENEA IL MATERIALE VA 00021920 +C---- ANCHE AGGIUNTO A TUTTE LE ETEROGENEE OVE E* PRESENTE, 00021930 +C---- MA HA TRATTAMENTO 'OMOGENEO'. 00021940 +C---- ********** LOOP SULLE REGIONI. 00021950 + DO 5 NZET=1,NREG1 00021960 + NZET1=NZET+1 00021970 + IF(HETDEN((MATCOR(1,J)),NZET1).EQ.0) GO TO 5 00021980 + IF(MATHET((MATCOR(1,J)),NZET).NE.0) GO TO 5 00021990 + DO 44 K=1,IHM 00022000 + 44 MATISA(K,MACROD(NZET1)-1+MATCOR(3,J))= 00022010 + 1MATISA(K,MACROD(NZET1)-1+MATCOR(3,J))+MAT1AN(K)* 00022020 + 2HETDEN(MATCOR(1,J),NZET1) 00022030 + IF(I.NE.1) GO TO 43 00022040 + WRITE(NO,110) NZET1 00022050 + 110 FORMAT(' :::::: ED ALLA REGIONE : ',I4) 00022060 + 43 CONTINUE 00022070 + 5 CONTINUE 00022080 +C---- ********** FINE LOOP SULLE REGIONI. 00022090 + 3 CONTINUE 00022100 + IF(INP(2).EQ.0) GO TO 9 00022110 + IF(NOMISA(MATCOR(1,J),MATCOR(2,J)).EQ.0) GO TO 9 00022120 +C---- MICRO : LA SIGMA LETTA VIENE CONSERVATA IN MATISA. 00022130 + NMICRO=NMICRO+1 00022140 + DO 7 K=1,IHM 00022150 + 7 MATISA(K,NMAC+NMICRO)=MAT1AN(K) 00022160 + IF(I.EQ.1) NPRNT=MATCOR(3,J)-1 00022170 + IF(I.EQ.1) WRITE(NO,8) PRBNAM(MATCOR(1,J)),J,MATCOR(2,J),NPRNT 00022180 + 8 FORMAT(5X,' ISOTOPO ',A8,' DEL NASTRO AD ACCESSO DIRETTO NELLA 00022190 + 1POSIZIONE ',I4/' E'' STATO AGGIUNTO COME SIGMA MICRO DELLA REGIONE00022200 + 2 ',I4,' ORDINE DI SCATTERING :',I4/) 00022210 + 9 CONTINUE 00022220 + 2 CONTINUE 00022230 +C---- ********** FINE LOOP SUGLI ISOTOPI DI DIRAC. 00022240 + NMINB=NMICRO+NMAC 00022250 + IF(NMINB.NE.NRZ) WRITE(NO,100) NMINB,NR2,NMIC,NMAC 00022260 + 100 FORMAT(//' ATTENZIONE POSSIBILE STIMA ERRATA DIMENSIONE MEMORIA 00022270 + 1'/' ISOTOPI VERI,SIMATI,MICRO,MACRO=',4I5/50(2H !)//) 00022280 + IF(INP(3).GT.0) GO TO 10 00022290 +C---- SCRITTURA DEL RECORD CREATO NEL CASO NON SI STIA AGGIUNGENDO 00022300 +C---- AD UN TAPE ANISN A GRUPPI PREESISTENTE. 00022310 + WRITE(NOUTAN) ((MATISA(K,J),K=1,IHM),J=1,NMINB) 00022320 + IF(INP(4).LT.5) GOTO 30 00022330 + DO 55 J=1,NMINB 00022340 + 55 WRITE(NO,120) I, (MATISA(K,J),K=1,IHM) 00022350 + 30 CONTINUE 00022360 + GO TO 11 00022370 + 10 CONTINUE 00022380 + KK=INP(3)*IHM 00022390 +C---- CASO DI AGGIUNTA A TAPE PREESISTENTE NAGGAN. 00022400 +C---- LETTURA RECORD DEL GRUPPO CORRENTE DEL TAPE DA AGGIUNGERE. 00022410 + READ(NAGGAN) (AGGISA(JJ),JJ=1,KK) 00022420 +C---- SCRITTURA GRUPPO CORRENTE SUL TAPE AGGIORNATO. 00022430 + WRITE(NOUTAN) (AGGISA(JJ),JJ=1,KK),((MATISA(K,J),K=1,IHM),J=1,NMIN00022440 + 1B) 00022450 + IF(INP(4).LT.5) GO TO 20 00022460 + WRITE(NO,120) I, (AGGISA(JJ),JJ=1,KK) 00022470 + DO 50 J=1,NMINB 00022480 + 50 WRITE(NO,120) I,(MATISA(K,J),K=1,IHM) 00022490 + 20 CONTINUE 00022500 + 11 CONTINUE 00022510 + 120 FORMAT(//' RECORD ',I4,' DI NOUTAN'/(1H ,10E13.6)) 00022520 + 1 CONTINUE 00022530 +C---- ********** FINE LOOP SUI GRUPPI. 00022540 + REWIND NOUTAN 00022550 + IF(INP(3).EQ.0) GO TO 12 00022560 + WRITE(11,13) INP(3),NMINB 00022570 + WRITE(NO,13) INP(3),NMINB 00022580 + 13 FORMAT(//' SONO STATI SCRITTI SU NASTRO DI OUTPUT ',I4,' ISOTOPI 00022590 + 1GIA'' ESISTENTI + ',I4,' NUOVI ISOTOPI'/) 00022600 + REWIND NAGGAN 00022610 + GO TO 15 00022620 + 12 CONTINUE 00022630 + WRITE(11,14) NMINB 00022640 + WRITE(NO,14) NMINB 00022650 + 14 FORMAT(//' SONO STATI SCRITTI SU NASTRO DI OUTPUT ',I4,' ISOTOPI' 00022660 + 1/) 00022670 + 15 CONTINUE 00022680 +C---- +++++++++++++++ ESAME DEL TEMPO ++++++++++++++ 00022690 + CALL TTIME(NORA) 00022700 + WRITE(11,997) NORA 00022710 + 997 FORMAT(' FINE CALSCR, ORA: ',I10) 00022720 +C 00022730 +C FINE CALSCR 00022740 +C FINE PROGRAMMA 00022750 + RETURN 00022760 + END 00022770 +C**** *************** VARIANTE DEL 17-9-84 ******NUM 1- 16 00022780 + SUBROUTINE POSIZ(NT,NR,N99) 00022790 + COMMON /NTP/NI,NO,NP 00022800 +C---- ----------- QUESTA SUBROUTINE POSIZIONA IL TAPE NT AL 00022810 +C---- RECORD NUMERO NR. IL TAPE E ORA AL RECORD N99 00022820 + N1=NR-N99 00022830 + IF(N1) 100,200,300 00022840 + 200 RETURN 00022850 + 100 REWIND NT 00022860 + N99=1 00022870 + N1=NR-N99 00022880 + 300 CONTINUE 00022890 + IF(N1.LE.0) RETURN 00022900 + DO 10 I=1,N1 00022910 + READ(NT,END=500) 00022920 + N99=N99+1 00022930 + 10 CONTINUE 00022940 + RETURN 00022950 + 500 CONTINUE 00022960 + N99=N99+1 00022970 + WRITE(NO,1000) NT,N99 00022980 + WRITE(NP,1000) NT,N99 00022990 + 1000 FORMAT(' WARNING, END OF FILE ENCOUNTERED ON TAPE:',I5, 00023000 + 1' RECORD POSITION:',I10,' REQUESTED RECORD:',I10) 00023010 + RETURN 00023020 + END 00023030 diff --git a/micro/README.md b/micro/README.md new file mode 100644 index 0000000..031bbd4 --- /dev/null +++ b/micro/README.md @@ -0,0 +1,14 @@ +Micro +----- + +M.Galli, then student of Physics at the Bologna University, +wrote this code for his thesis, between 1976 and 1977; +it was used for the interpretation of cross section measurements +performed in Bologna, in the RB2 experimental reactor, at +[Montecuccolino](https://www.bibliotecasalaborsa.it/cronologia/bologna/1963/1136) +and was run on a 3090 IBM computer, at the CNEN research center in +Bologna. + + +We have here the source code and a little assembler program +(compiled for IBM 3090) used to allocate memory for a big array. diff --git a/micro/codmeta.json b/micro/codmeta.json new file mode 100644 index 0000000..c9c5823 --- /dev/null +++ b/micro/codmeta.json @@ -0,0 +1,29 @@ +{ + "@context": "https://doi.org/10.5063/schema/codemeta-2.0", + "@type": "SoftwareSourceCode", + "name": "Micro", + "description": "Micro, a legacy FORTRAN code for cros section mesasurement interpretation, developed at CNEN by Marcello Galli, between 1976 and 1977" + "codeRepository": "http://coding.bologna.enea.it/gitrepo/oldfortrancodes.git", + "downloadUrl": "http://coding.bologna.enea.it/gitrepo/oldfortrancodes.git", + "programmingLanguage": "FORTRAN", + "operatingSystem": "IBM 3090" + "license": "Public domain", + "dateCreated":"1987-12-01", + "developmentStatus": "Unsupported", + "creativeWorkStatus": "Legacy software" + "keywords": [ + "nuclear reactors", + "cross sections", + "fortran", + "software", + "CNEN","Micro","RB2","Montecuccolino", + ], + "author": [ + { + "@type": "Person", + "givenName": "Marcello", + "familyName": "Galli", + "email": "marcello.galli@enea.it", + }, + ] +} diff --git a/micro/micro3 b/micro/micro3 new file mode 100644 index 0000000..8952d49 --- /dev/null +++ b/micro/micro3 @@ -0,0 +1,1363 @@ +C 00000010 +C P R O G R A M M A M I C R O 00000020 +C EFFETTUA: CALCOLO REATTIVITA DEL CAMPIONE A REATTIVITA NULLA 00000030 +C COL FORMALISMO DI OLDEKOP,CON INPUT DAI CODICI ALCI E CITATION 00000040 +C E CALCOLI PER LA INTERPRETAZIONE DELLE MISURE DI 00000050 +C REACTIVITY-WORTHS 00000060 +C 00000070 +C AUTORE: MARCELLO GALLI 00000080 +C VERSIONE DEL : 20-10-1977 00000090 +C 00000100 +C AGGIUNTE E VARIANTI: 00000110 +C 16-2-1979 AGGIUNTA SUBROUTINE SUBR PER LETTURA 00000120 +C TAPES TIPO DOT (GALLI) 00000130 +C 5-4-1980 CAMBIATO FORMATO 703 DI CITIN (GALLI) 00000140 +C 00000150 +C 4-7-1982 MODIFICATA SUBROUTINE VOL PER LAVORARE IN 00000160 +C GEOMETRIA CILINDRICA 00000170 +C INSERITA POSSIBILITA DI LEGGERE CAMPIONE 00000180 +C NON AL CENTRO DEL REATTORE (SUBROUTINE SUB ) 00000190 +C ( GALLI ) 00000200 +C 00000210 +C 00000220 +C 00000230 + IMPLICIT REAL*8(A-H,O-Z) 00000240 + DIMENSION A(1) 00000250 + COMMON/GEN/NGRP,INPT,I1,I2,J1,J2,K1,K2 00000260 + COMMON/TITL/TITOLO(20) 00000270 + REAL*4 TITOLO 00000280 + WRITE(6,701) 00000290 + 701 FORMAT('1 FLUSSO SUBR.MAIN') 00000300 + 600 READ(5,100,END=500)TITOLO 00000310 + 100 FORMAT(20A4) 00000320 + WRITE(6,101)TITOLO 00000330 + 101 FORMAT(1H0,11X,20A4) 00000340 + READ(5,102)NGRP,INPT,I1,I2,J1,J2,K1,K2 00000350 +C FISSATI ALCUNI PARAMETRI DI INPUT 00000360 +C I1=0 00000370 +C J1=0 00000380 + K1=0 00000390 + K2=1 00000400 + NV=NGRP 00000410 + 102 FORMAT(20I4) 00000420 + WRITE(6,103)NGRP,INPT,I1,I2,J1,J2,K1,K2 00000430 + 103 FORMAT(5X,8I4,53X,'GRUPPI,INPUT,MESH(CITATION)'/80X,'INPUT=1=ALCI,00000440 + 1INPUT=2=CIT,INPUT=3=COFRT') 00000450 +C DIMENSIONI MATRICI 00000460 + MF=5 00000470 + MFF=4 00000480 + MS=5 00000490 + NV3=NV+3 00000500 + GOTO(1,2,2,2),INPT 00000510 + 1 MFLP=1 00000520 + I21=1 00000530 + J21=1 00000540 + K21=1 00000550 + I22=1 00000560 + J22=1 00000570 + K22=1 00000580 + GO TO 1003 00000590 + 2 CONTINUE 00000600 + MFLP=4 00000610 + I21=I2-I1 00000620 + J21=J2-J1 00000630 + K21=K2-K1 00000640 + I22=I21+1 00000650 + J22=J21+1 00000660 + K22=K21+1 00000670 + IF(INPT.NE.3)GO TO 1003 00000680 + NV3=NV 00000690 + MFF=2 00000700 + MFLP=2 00000710 + 1003 MMFLP=MFLP*NGRP*I21*J21*K21 00000720 + 1002 NWORDS=NV3+NGRP*NGRP+MS*NGRP+MF*NGRP+MFF*NGRP*NGRP+MMFLP+I22+J22+K00000730 + 122 00000740 + CALLGET$(8*(NWORDS+1),A(1),ISENT,LU) 00000750 + IF(ISENT.EQ.0)GO TO 2000 00000760 + WRITE(6,1999) 00000770 + 1999 FORMAT(' AUMENTA LA REGIONE DEL JOB ') 00000780 + STOP 00000790 + 2000 CONTINUE 00000800 + LA=(LU+6)/8+1 00000810 + LSS=LA+NV3 00000820 + LS=LSS+NGRP*NGRP 00000830 + LF=LS+MS*NGRP 00000840 + LFF=LF+MF*NGRP 00000850 + LFLP=LFF+MFF*NGRP*NGRP 00000860 + LM1=LFLP+MMFLP 00000870 + LM2=LM1+I22 00000880 + LM3=LM2+J22 00000890 + GOTO(10,20,30,40),INPT 00000900 + 10 CALL ALCIN(A(LA),A(LSS),A(LS),A(LF),A(LFF),A(LFLP),A(LM1),A(LM2),A00000910 + 1(LM3),NV,NV3,I21,J21,K21,I22,J22,K22,MS,MF,MFF,MFLP) 00000920 + GO TO 600 00000930 + 20 CALL CITIN(A(LA),A(LSS),A(LS),A(LF),A(LFF),A(LFLP),A(LM1),A(LM2),A00000940 + 1(LM3),NV,NV3,I21,J21,K21,I22,J22,K22,MS,MF,MFF,MFLP) 00000950 + GO TO 600 00000960 + 30 CALL COFRTP(A(LA),A(LSS),A(LS),A(LF),A(LFF),A(LFLP),A(LM1),A(LM2),00000970 + 1A(LM3),NV,NV3,I21,J21,K21,I22,J22,K22,MS,MF,MFF,MFLP) 00000980 + GO TO 600 00000990 + 40 CALL CHIAMA(A(LA),A(LSS),A(LS),A(LF),A(LFF),A(LFLP),A(LM1),A(LM2),00001000 + 1A(LM3),NV,NV3,I21,J21,K21,I22,J22,K22,MS,MF,MFF,MFLP) 00001010 + GO TO 600 00001020 + 500 STOP 00001030 + END 00001040 + SUBROUTINE CHIAMA(AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I11,J00001050 + 111,K11,I22,J22,K22,MS,MF,MFF,MFLP) 00001060 + IMPLICIT REAL*8(A-H,O-Z) 00001070 + REAL*8 MESH1,MESH2,MESH3 00001080 + DIMENSION AUS(NV3),SS(NV,NV),S(NV,MS),F(NV,MF),FF(NV,NV,MFF),FLP(I00001090 + 111,J11,K11,NV,MFLP),MESH1(I22),MESH2(J22),MESH3(K22) 00001100 + COMMON/GEN/NGEN(8) 00001110 + COMMON/TAPF/NTPF(4,5) 00001120 + COMMON/DAT/RHO,DR,DQ 00001130 + COMMON/RESLT/RST(19) 00001140 + COMMON/TITL/TITOL(20) 00001150 + COMMON/MEDIE/A(14) 00001160 + DIMENSION NPK(6),PK(4) 00001170 + REAL*4 TITOL,TITOLO(20) 00001180 + REAL*8 LGF$,LGS$,LGSM$,MED$,INDIC$,MEDIE$ 00001190 + DATA FINE$,DAT$,CITIN$,ALCIN$,LGF$,LGS$,LGSM$,FLS$,VOL$,FLCRX$,OUT00001200 + 1PT$,CALC$,MED$,INDIC$,COFRT$,CFRTP$,TITL$,TAPF$,RESLT$,TITOT$,GEN$00001210 + 2,MEDIE$,SUBR$/'FINE ','RHO DRDQ','CITIN ','ALCIN ','LEGGEF 00001220 + 3 ','LEGGES ','LEGGSM ','FLUSSO ','VOL ','FLCRX ','OUTPUT 00001230 + 4 ','CALC ','MED ','INDIC ','COFRT ','COFRTP ','TITL 00001240 + 5 ','TAPF ','RESLT ','TITOLO ','GEN ','MEDIE ','SUBROUT00001250 + 6 '/ 00001260 + DATA REWIN$/'REWIND '/ 00001270 + DATA SKIP$/'SKIP '/ 00001280 + DATA STOP$/'STOP '/ 00001290 + WRITE(6,701) NV,NV3,I11,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP 00001300 + 701 FORMAT(' FLUSSO SUBR.CHIAMA,PARAMETRI=',20I4) 00001310 + 500 READ(5,100,END=501) FUNZ,NPK,PK 00001320 + 100 FORMAT(1A8,6I4,4E12.8) 00001330 + WRITE(6,200) FUNZ,NPK,PK 00001340 + 200 FORMAT(5X,1A8,6I4,4E12.5,5X,'COMANDO E SUOI PARAMETRI') 00001350 + IF(FUNZ.EQ.FINE$)RETURN 00001360 + IF(FUNZ.EQ.DAT$)GO TO 10 00001370 + IF(FUNZ.EQ.CITIN$)GO TO 11 00001380 + IF(FUNZ.EQ.ALCIN$)GO TO 12 00001390 + IF(FUNZ.EQ.LGF$) GO TO 13 00001400 + IF(FUNZ.EQ.LGS$) GO TO 14 00001410 + IF(FUNZ.EQ.LGSM$)GO TO 15 00001420 + IF(FUNZ.EQ.FLS$) GO TO 16 00001430 + IF(FUNZ.EQ.VOL$) GO TO 17 00001440 + IF(FUNZ.EQ.FLCRX$)GO TO 18 00001450 + IF(FUNZ.EQ.OUTPT$)GO TO 19 00001460 + IF(FUNZ.EQ.CALC$)GO TO 20 00001470 + IF(FUNZ.EQ.MED$) GO TO 21 00001480 + IF(FUNZ.EQ.INDIC$)GO TO 22 00001490 + IF(FUNZ.EQ.COFRT$)GO TO 23 00001500 + IF(FUNZ.EQ.CFRTP$)GO TO 24 00001510 + IF(FUNZ.EQ.TITL$) GO TO 25 00001520 + IF(FUNZ.EQ.TAPF$) GO TO 26 00001530 + IF(FUNZ.EQ.RESLT$)GO TO 27 00001540 + IF(FUNZ.EQ.TITOT$)GO TO 28 00001550 + IF(FUNZ.EQ.GEN$) GO TO 29 00001560 + IF(FUNZ.EQ.MEDIE$)GO TO 30 00001570 + IF(FUNZ.EQ.SUBR$)GOTO31 00001580 + IF(FUNZ.EQ.SKIP$) GOTO32 00001590 + IF(FUNZ.EQ.REWIN$) GOTO 33 00001600 + IF(FUNZ.EQ.STOP$) STOP 00001610 + WRITE(6,201) 00001620 + 201 FORMAT('0******ERRORE*** COMANDO NON CONTEMPLATO*******'/) 00001630 + GOTO 500 00001640 + 501 STOP 00001650 + 10 RHO=PK(1) 00001660 + DR=PK(2) 00001670 + DQ=PK(3) 00001680 + GO TO 500 00001690 + 11 CALL CITIN(AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I11,J11,K11,00001700 + 1I22,J22,K22,MS,MF,MFF,MFLP) 00001710 + GOTO 500 00001720 + 12 CALL ALCIN(AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I11,J11,K11,00001730 + 1I22,J22,K22,MS,MF,MFF,MFLP) 00001740 + GOTO 500 00001750 + 13 CALL LEGGEF(NPK(1),NPK(2),NPK(3),PK(1),F,FF,NV,MF,MFF) 00001760 + GOTO 500 00001770 + 14 CALL LEGGES(NPK(1),PK(1),AUS,SS,S,MESH1,MESH2,MESH3,NV,NV3,MS,I22,00001780 + 1J22,K22) 00001790 + GOTO 500 00001800 + 15 CALL LEGGSM(NPK(1),NPK(2),NPK(3),SS,S,NV,MS,2*NV) 00001810 + GOTO 500 00001820 + 16 CALL FLUSSO(NPK(1),NPK(2),FLP,I11,J11,K11,NV,MFLP) 00001830 + GOTO 500 00001840 + 17 V=VOL(NPK(1),NPK(2),NPK(3),MESH1,MESH2,MESH3,I22,J22,K22) 00001850 + WRITE(6,202)V 00001860 + 202 FORMAT('0 VOLUME=',E20.8) 00001870 + GOTO500 00001880 + 18 CALL FLCRX(NPK(1),NPK(2),NPK(3),NPK(4),NPK(5),NPK(6),F,FF,MESH1,ME00001890 + 1SH2,MESH3,FLP,NV,I11,J11,K11,I22,J22,K22,MF,MFF,MFLP) 00001900 + GOTO 500 00001910 + 19 CALL OUTPT(NPK(1),NPK(2),PK(1),PK(2),AUS,SS,S,F,FF,FLP,MESH1,MESH200001920 + 1,MESH3,NV,NV3,I11,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP) 00001930 + GOTO 500 00001940 + 20 CALL CALC(NPK(1),PK(1),PK(2),SS,S,F,FF,NV,MS,MF,MFF) 00001950 + GOTO 500 00001960 + 21 CALL MED(NPK(1),NPK(2),NPK(3),NPK(4),NPK(5),NPK(6),SS,S,F,FF,NV,MS00001970 + 1,MF,MFF) 00001980 + GOTO 500 00001990 + 22 CALL INDIC(NPK(1),AUS,SS,S,F,FF,NV,NV3,MS,MF,MFF) 00002000 + GOTO 500 00002010 + 23 CALL COFRT(AUS,SS,S,F,FF,NV,NV3,MS,MF,MFF) 00002020 + GOTO 500 00002030 + 24 CALL COFRTP(AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I11,J11,K1100002040 + 1,I22,J22,K22,MS,MF,MFF,MFLP) 00002050 + GOTO 500 00002060 + 25 READ(5,103)TITOL 00002070 + 103 FORMAT(20A4) 00002080 + WRITE(6,203)TITOL 00002090 + 203 FORMAT(5X,20A4,5X,'CONTENUTI DEL COMMON TITL') 00002100 + GO TO 500 00002110 + 26 READ(5,104)NTPF 00002120 + 104 FORMAT(4I4) 00002130 + WRITE(6,204)NTPF 00002140 + 204 FORMAT(5X,4I4,64X,5X,'NUOVE SPECIFICHE TAPES') 00002150 + GOTO 500 00002160 + 27 N=NPK(1) 00002170 + M=NPK(2) 00002180 + J=NPK(3) 00002190 + IF(J.LE.0) J=1 00002200 + READ(5,105) (RST(I),I=N,M,J) 00002210 + 105 FORMAT(E12.8) 00002220 + WRITE(6,206)(RST(I),I=N,M,J) 00002230 + 206 FORMAT(5X,E12.5,77X,'RISULTATO(I),I=N,M,J') 00002240 + WRITE(6,207)N,M,J 00002250 + 207 FORMAT(90X,'N=',I4,'M=',I4,'J=',I4) 00002260 + GOTO 500 00002270 + 28 READ(5,103) TITOLO 00002280 + WRITE(6,103)TITOLO 00002290 + GO TO 500 00002300 + 29 DO6I=1,6 00002310 + 6 NGEN(I)=NPK(I) 00002320 + NGEN(7)=PK(1) 00002330 + NGEN(8)=PK(2) 00002340 + GOTO 500 00002350 + 30 N=NPK(1) 00002360 + M=NPK(2) 00002370 + L=NPK(3) 00002380 + IF(L.LE.0) L=1 00002390 + READ(5,108)(A(I),I=N,M,L) 00002400 + 108 FORMAT(6E12.8) 00002410 + WRITE(6,106)N,M,L 00002420 + WRITE(6,208)(A(I),I=N,M,L) 00002430 + 106 FORMAT(90X,'A(I),I=',I4,',',I4,',',I4) 00002440 + 208 FORMAT(5X,6E12.5,13X,'CONTENUTO DEL COMMON MEDIE') 00002450 + GOTO 500 00002460 + 31 CALL SUBR(NPK,PK,AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I11,J100002470 + 11,K11,I22,J22,K22,MS,MF,MFF,MFLP) 00002480 + GOTO500 00002490 + 32 NTP=NPK(1) 00002500 + N1=NPK(2) 00002510 + DO 7 I=1,N1 00002520 + 7 READ(NTP) 00002530 + GOTO500 00002540 + 33 CONTINUE 00002550 + IF(NPK(1).LE.0) GOTO 500 00002560 + NTP=NPK(1) 00002570 + REWIND NTP 00002580 + GOTO 500 00002590 + END 00002600 + SUBROUTINE OUTPT(N,M,DR,DQ,AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,00002610 + 1NV3,I21,J21,K21,I22,J22,K22,MS,MF,MFF,MFLP) 00002620 + IMPLICITREAL*8(A-H,O-Z) 00002630 + REAL*8MESH1,MESH2,MESH3 00002640 + REAL*4 TITOLO 00002650 + DIMENSION AUS(NV3),SS(NV,NV),S(NV,MS),F(NV,MF),FF(NV,NV,MFF),FLP(I00002660 + 121,J21,K21,NV,MFLP),MESH1(I22),MESH2(J22),MESH3(K22) 00002670 + COMMON/GEN/NGRP,INPT,I1,I2,J1,J2,K1,K2 00002680 + COMMON/TITL/TITOLO(20) 00002690 + COMMON/RESLT/RI,RINK,H,Z,C,ER,AK,AKI,AKP,AKIP,E1,F1,AR,BR,AA,BB,RH00002700 + 1O,FNORM,FNMAG 00002710 + COMMON/TAPF/NTPF(4,5) 00002720 + COMMON/DAT/RHHO,DDR,DDQ 00002730 + COMMON/RESL1/SH,CH,ERH,RIN,CCC,E1R,F1R,RHOR 00002740 + N1=M 00002750 + WRITE(6,701) N,M,NV,NV3,I21,J21,K21,I22,J22,K22,MS,MF,MFF,MFLP 00002760 + 701 FORMAT(' FLUSSO SUBR.OUTPT,PARAMETRI=',20I4) 00002770 + GO TO(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15),N 00002780 + 1 WRITE(6,201)TITOLO 00002790 + 201 FORMAT(1H1,20X,20A4) 00002800 + WRITE(6,110)DDR,DDQ,RHHO 00002810 + 110 FORMAT(/////' DR=INTEGRALE(F*F+ *X*NUSFISS)/K=',E15.5/' DQ=INTEGRA00002820 + 1LE(F INF*F+ INF*X*NUSFISS)/K=',E15.5/' RHO SPERIMENTALE=',E15.5) 00002830 + N1=N1-1 00002840 + IF(N1.LE.0)RETURN 00002850 + 2 CONTINUE 00002860 + WRITE(6,111)(F(I,5),I=1,NGRP) 00002870 + 111 FORMAT('0 GRAD FLUSSI(I)*GRAD FLUSSI AGG(I)'/(7E15.5)) 00002880 + N1=N1-1 00002890 + IF(N1.LE.0) RETURN 00002900 + 3 CONTINUE 00002910 + WRITE(6,106) 00002920 + 106 FORMAT('0 FLUSSI INTEGRALI NEL CAMPIONE') 00002930 + WRITE(6,107)(F(I,1),I=1,NGRP) 00002940 + 107 FORMAT(1H ,7E15.5) 00002950 + N1=N1-1 00002960 + IF(N1.LE.0)RETURN 00002970 + 4 CONTINUE 00002980 + 54 WRITE(6,112) FNORM 00002990 + 112 FORMAT('0 FLUSSI INTEGRALI DEL MEZZO INFINITO NORMALIZZATI',10X,'F00003000 + 1ATTORE NORM=',E15.5) 00003010 + WRITE(6,107)(F(I,3),I=1,NGRP) 00003020 + N1=N1-1 00003030 + IF(N1.LE.0)RETURN 00003040 + 5 CONTINUE 00003050 + WRITE(6,141) 00003060 + 141 FORMAT(///' FLUSSI AGGIUNTI CAMPIONE') 00003070 + WRITE(6,107)(F(I,2),I=1,NGRP) 00003080 + N1=N1-1 00003090 + IF(N1.LE.0)RETURN 00003100 + 6 CONTINUE 00003110 + WRITE(6,142)FNMAG 00003120 + 142 FORMAT(///' FLUSSI AGGIUNTI DEL MEZZO INFINITO NORMALIZZATI',10X,'00003130 + 1 FATTORE NORM=',E15.5) 00003140 + WRITE(6,107)(F(I,4),I=1,NGRP) 00003150 + N1=N1-1 00003160 + IF(N1.LE.0)RETURN 00003170 + 7 CONTINUE 00003180 + WRITE(6,104) 00003190 + 104 FORMAT(//' FLUSSI(I)*FLUSSI AGG(J) CAMPIONE NEL REATTORE'/' I-----00003200 + 1------ J') 00003210 + DO 333 I=1,NGRP 00003220 + 333 WRITE(6,103)I,(FF(J,I,1),J=1,NGRP) 00003230 + N1=N1-1 00003240 + IF(N1.LE.0)RETURN 00003250 + 8 CONTINUE 00003260 + WRITE(6,105) 00003270 + 105 FORMAT(//' FLUSSI(I)* FLUSSI AGG(J) MEZZO INFINITO'/' I 00003280 + 1---------- J') 00003290 + DO444 I=1,NGRP 00003300 + 444 WRITE(6,103)I,(FF(J,I,4),J=1,NGRP) 00003310 + N1=N1-1 00003320 + IF(N1.LE.0)RETURN 00003330 + 9 CONTINUE 00003340 + 103 FORMAT(1H ,I5,(9X,7E15.5)) 00003350 + WRITE(6,129)I1,I2,J1,J2 00003360 + 129 FORMAT(///' MESH RADIALI DA',I4,' A ',I4/'00003370 + 1 MESH ASSIALI DA ',I4,' A ',I4) 00003380 + WRITE(6,130)MESH1 00003390 + WRITE(6,131)MESH2 00003400 + 131 FORMAT(' MESH ASSIALI ',6E12.4) 00003410 + 130 FORMAT(' MESH RADIALI ',6E12.4) 00003420 + N1=N1-1 00003430 + IF(N1.LE.0) RETURN 00003440 + 10 CONTINUE 00003450 + WRITE(6,126)NTPF 00003460 + 126 FORMAT(//' SPECIFICHE NASTRI IMAX JMAX KMAX TAPE '/18X,400003470 + 1I6,' FLUSSI CAMPIONE'/18X,4I6,' FLUSSI AGGIUNTI CAMPIONE'/18X,4I6,00003480 + 2' FLUSSI MEZZO INFINITO'/18X,4I6,' FLUSSI AGGIUNTI MEZZO INFINITO'00003490 + 3/18X,4I6,' FLUSSI AGGIUNTI PERTURBATI') 00003500 + N1=N1-1 00003510 + IF(N1.LE.0)RETURN 00003520 + 11 CONTINUE 00003530 + WRITE(6,120) 00003540 + 120 FORMAT('1',40X,' RISULTATI'//30X,' MICRO CALCOLO PERTURBATIVO DI O00003550 + 1LDEKOP') 00003560 + WRITE(6,139)TITOLO 00003570 + 139 FORMAT(//30X,20A4//) 00003580 + WRITE(6,140) H 00003590 + WRITE(6,220)SH 00003600 + WRITE(6,320)CH 00003610 + WRITE(6,420)ERH 00003620 + WRITE(6,520)RIN 00003630 + WRITE(6,620)RINK 00003640 + WRITE(6,121)AK,AKI 00003650 + WRITE(6,136) AKP,AKIP 00003660 + WRITE(6,920) E1R 00003670 + WRITE(6,921) F1R 00003680 + WRITE(6,922)CCC 00003690 + WRITE(6,820)RHOR 00003700 + 140 FORMAT(///' DENOMINATORE H =',E20.6) 00003710 + 220 FORMAT(///' TERMINE DISADATTAMENTO SPETTRALE=(PCM) ',E20.6) 00003720 + 320 FORMAT(//' TERMINE DI FUGHE (PCM)=',E20.6) 00003730 + 420 FORMAT(//' TERMINE REATTIVITA REATTORE (PCM)=',E20.6) 00003740 + 520 FORMAT(///' RHO INF(PCM)= -1/H*(DS+F+ES)=',E20.6) 00003750 + 620 FORMAT(//' K INF=1/(1-RHO INF)=',E20.6) 00003760 + 121 FORMAT(///' (P/A)R=',E20.6/' (P/A)INFINITO=',E20.6//) 00003770 + 136 FORMAT(' (K+)R=',E20.6/' (K+)INFINITO=',E20.6) 00003780 + 920 FORMAT(/////' PROD/DR(PCM)=',E20.6) 00003790 + 921 FORMAT(' (SCATT IN-ASS-REM)/DR(PCM)=',E20.6) 00003800 + 922 FORMAT(' FUGHE/DR(PCM)=',E20.6) 00003810 + WRITE(6,123)AR,BR,AA,BB 00003820 + WRITE(6,124) FNORM,FNMAG 00003830 + N1=N1-1 00003840 + IF(N1.LE.0) RETURN 00003850 + 123 FORMAT(//' PRODUZIONI REALI=',E20.6,' ASSORBIMENTI=',E20.6/' PR 00003860 + 1ODUZIONI CASO INFINITO=',E20.6,' ASSORBIMENTI CASO INFINITO=',E2 00003870 + 20.6) 00003880 + 124 FORMAT(//' FATT NORM FLUSSI INFINITI=',E20.6/' FATT NORM FLUSSI A00003890 + 1GGIUNTI INFINITI=',E20.6///) 00003900 + N1=N1-1 00003910 + IF(N1.LE.0) RETURN 00003920 + 820 FORMAT(//' RHO R=(KV-K)/K=-1/DR*(P+(S-A-R)+F) (PCM)=',E15.5) 00003930 + 12 CONTINUE 00003940 + WRITE(6,100) 00003950 + 100 FORMAT(////' GRUPPO',10X,'DIFF',10X,'SIGMA A',10X,'NUSFISS',10X,'S00003960 + 1IGMA(A+R)',15X,'X') 00003970 + DO1111 I=1,NGRP 00003980 + 1111 WRITE(6,101)I,(S(I,J),J=1,5) 00003990 + 101 FORMAT(I5,9X,5E15.5) 00004000 + WRITE(6,102) 00004010 + 102 FORMAT(//' MATRICE DI SCATTERING(J,I)'/' DA J',7X,'-----------00004020 + 1----- IN I') 00004030 + DO22J=1,NGRP 00004040 + 22 WRITE(6,103)J,(SS(J,I),I=1,NGRP) 00004050 + N1=N1-1 00004060 + IF(N1.LE.0)RETURN 00004070 + 13 WRITE(6,1000)(S(I,5),I=1,NGRP) 00004080 + 1000 FORMAT(' X '/(7E15.5)) 00004090 + N1=N1-1 00004100 + IF(N1.LE.0) RETURN 00004110 + 14 CONTINUE 00004120 + WRITE(6,108) 00004130 + 108 FORMAT('0 FLUSSI INFINITI(I)*FLUSSI AGGIUNTI(J)'/' I -----00004140 + 1------------ J') 00004150 + DO99I=1,NGRP 00004160 + 99 WRITE(6,103)I,(FF(J,I,3),J=1,NGRP) 00004170 + WRITE(6,109) 00004180 + 109 FORMAT('0 FLUSSI AGGIUNTI INFINITI(J)*FLUSSI(I)'/' I ---00004190 + 1----------------J') 00004200 + DO98I=1,NGRP 00004210 + 98 WRITE(6,103)I,(FF(J,I,2),J=1,NGRP) 00004220 + N1=N1-1 00004230 + IF(N1.LE.0)RETURN 00004240 + 15 CONTINUE 00004250 + WRITE(6,127) 00004260 + 127 FORMAT('0FLUSSI PUNTUALI(I,J),I=1,IMX),J=1,JMX)',60X,' MESH.ASS G00004270 + 1RUPPO TAPE') 00004280 + DO200 NT=1,MFLP 00004290 + DO200 NG=1,NGRP 00004300 + DO200 J=1,J21 00004310 + WRITE(6,128)(FLP(I,J,1,NG,NT),I=1,I21) 00004320 + WRITE(6,203) J,NG,NT 00004330 + 203 FORMAT(1H+,100X,3I4) 00004340 + 200 CONTINUE 00004350 + 128 FORMAT(2H ,7E14.7) 00004360 + N1=N1-1 00004370 + IF(N1.LE.0) RETURN 00004380 + RETURN 00004390 + END 00004400 + SUBROUTINE SUBR(N,P,AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I1100004410 + 1,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP) 00004420 + IMPLICIT REAL*8 (A-H,O-Z) 00004430 + DIMENSION N(6),P(4),AUS(NV3),SS(NV,NV),S(NV,MS),F(NV,MF),FF(NV,NV,00004440 + 1MFF),FLP(I11,J11,K11,NV,MFLP,2),MESH1(I22),MESH2(J22),MESH3(K22) 00004450 + REAL*8 MESH1,MESH2,MESH3 00004460 + LOGICAL LOG 00004470 + REAL *4 FLP 00004480 + REAL*4 BUTTO 00004490 + COMMON /TAPF/ NTPF(4,5) 00004500 + COMMON /GEN/ NGRP,INPT,I1,I2,J1,J2,K1,K2 00004510 + WRITE (6,1000) NV,NV3,I11,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP 00004520 + 1000 FORMAT(' FLUSSO SUBR.SUBR, PARAMETRI: ',14I5) 00004530 + NTNOV=1 00004540 + LOG=.TRUE. 00004550 + K=1 00004560 + LI=I2-I1 00004570 + LJ=J2-J1 00004580 + DO 1 NT=1,5 00004590 + READ(5,100) (NTPF(I,NT),I=1,4) 00004600 + 100 FORMAT(4I4) 00004610 + IF(NTPF(4,NT).LE.0) GOTO 50 00004620 + M=NTPF(4,NT) 00004630 + IF(LOG) REWIND NTNOV 00004640 + REWIND M 00004650 + LZ=LJ 00004660 + IF(NTPF(2,NT).LE.1) LZ=1 00004670 + KLII=NTPF(1,NT)-I2 00004680 + JIKJ=J1*NTPF(1,NT) 00004690 + IF(KLII.LE.0)GOTO30 00004700 + DO 3 NG=1,NGRP 00004710 + IF(I1.LE.0.AND.J1.LE.0) 00004720 + 1READ(M) (((FLP(I,J,K,NG,1,1),I=1,LI),(BUTTO,NAMM=1,KLII)),J=1,LZ) 00004730 + IF(I1.LE.0.AND.J1.GT.0) READ(M) (BUTTO,NAMM=1,JIKJ), 00004740 + 1(((FLP(I,J,K,NG,1,1),I=1,LI),(BUTTO,NAMM=1,KLII)),J=1,LZ) 00004750 + IF(I1.GT.0.AND.J1.LE.0) READ(M) (((BUTTO,NAMM=1,I1),(FLP(I,J,K,NG,00004760 + 11,1),I=1,LI),(BUTTO,NAMM=1,KLII)),J=1,LZ) 00004770 + IF(I1.GT.0.AND.J1.GT.0) READ(M) (BUTTO,NAMM=1,JIKJ), 00004780 + 1(((BUTTO,NAMM=1,I1),(FLP(I,J,K,NG,1,1),I=1,LI),(BUTTO,NAMM=1,KLII)00004790 + 2),J=1,LZ) 00004800 + 3 CONTINUE 00004810 +C 00004820 + GO TO 61 00004830 + 30 CONTINUE 00004840 + DO 4 NG=1,NGRP 00004850 + IF(I1.LE.0.AND.J1.LE.O) 00004860 + 1READ(M) ((FLP(I,J,K,NG,1,1),I=1,LI),J=1,LZ) 00004870 + IF(I1.LE.0.AND.J1.GT.0) READ(M) (BUTTO,NAMM=1,JIKJ), 00004880 + 1((FLP(I,J,K,NG,1,1),I=1,LI),J=1,LZ) 00004890 + IF(I1.GT.0.AND.J1.LE.0) READ(M) ((BUTTO,NAMM=1,I1), 00004900 + 1(FLP(I,J,K,NG,1,1),I=1,LI),J=1,LZ) 00004910 + IF(I1.GT.0.AND.J1.GT.0) READ(M) (BUTTO,NAMM=1,JIKJ), 00004920 + 1(((BUTTO,NAMM=1,I1),(FLP(I,J,K,NG,1,1),I=1,LI)),J=1,LZ) 00004930 + 4 CONTINUE 00004940 +C 00004950 + 61 IF(LZ.EQ.LJ) GOTO 60 00004960 + DO 5 I=1,NGRP 00004970 + DO 5 J=1,LI 00004980 + DO 5 KK=1,LJ 00004990 + FLP(J,KK,1,I,1,1)=FLP(J,1,1,I,1,1) 00005000 + 5 CONTINUE 00005010 + 60 CONTINUE 00005020 + IF(NT.NE.5) GOTO 88 00005030 + NG1=NGRP+1 00005040 + DO 8 IMMM=1,NG1 00005050 + 8 WRITE(NTNOV) ABUTTO 00005060 + 88 CONTINUE 00005070 + DO 7 NG=1,NGRP 00005080 + NGAG=NG 00005090 + IF((.NOT.LOG).OR.NT.EQ.5) NGAG=NGRP-NG+1 00005100 + 7 WRITE(NTNOV) (((FLP(I,J,K,NGAG,1,IU),IU=1,2),I=1,LI),J=1,LJ) 00005110 + IF(LOG.AND.NT.NE.5) WRITE(NTNOV) ABUTTO 00005120 + NTPF(1,NT)=LI 00005130 + NTPF(2,NT)=LJ 00005140 + NTPF(3,NT)=K 00005150 + NTPF(4,NT)=NTNOV 00005160 + WRITE(6,200) (NTPF(I,NT),I=1,4),NTNOV 00005170 + 200 FORMAT(/5X,' TRASCRITTO IN DOPPIA PRECISIONE IL CAMPIONE DEL REATT00005180 + 1ORE DESCRITTO DALLA SCHEDA: ',4I4,' SULLA UNIT:',I3) 00005190 + IF(LOG) GOTO 40 00005200 + END FILE NTNOV 00005210 + NTNOV=NTNOV+1 00005220 + 40 LOG=.NOT.LOG 00005230 + 1 CONTINUE 00005240 + 50 IF(.NOT.LOG) END FILE NTNOV 00005250 + RETURN 00005260 + END 00005270 + SUBROUTINE FLCRX(MM,NN,KF1,KF2,KF3,KF4,F,FF,MESH1,MESH2,MESH3,FLP,00005280 + 1NV,I21,J21,K21,I22,J22,K22,MF,MFF,MFLP) 00005290 + IMPLICIT REAL*8(A-H,O-Z) 00005300 + REAL*8 MESH1,MESH2,MESH3 00005310 + DIMENSION F(NV,MF),FF(NV,NV,MFF),MESH1(I22),MESH2(J22),MESH3(K22),00005320 + 1FLP(I21,J21,K21,NV,MFLP) 00005330 + DIMENSION KFS(4),KFD(2,4) 00005340 + DATA KFS/1,2,3,4/ 00005350 + DATA KFD/1,2,1,4,3,2,3,4/ 00005360 + COMMON/GEN/NGRP,INPT,I1,I2,J1,J2,K1,K2 00005370 + WRITE(6,701) MM,NN,KF1,KF2,KF3,KF4,NV,I21,J21,K21,I22,J22,K22,MF,M00005380 + 1FF,MFLP 00005390 + 701 FORMAT(' FLUSSO SUBR.FLCRX,PARAMETRI=',20I4) 00005400 + IF(MM.LE.0.OR.NN.LE.0.OR.KF1.LE.0) GO TO 10 00005410 + DO 3 I=MM,NN,KF1 00005420 + DO 3 NG=1,NGRP 00005430 + 3 F(NG,I)=0.0D+1 00005440 + 10 CONTINUE 00005450 + IF(KF2.LE.0.OR.KF3.LE.0.OR.KF4.LE.0) GO TO 11 00005460 + DO 2 J=KF2,KF3,KF4 00005470 + DO 2 NG=1,NGRP 00005480 + DO 2 NGG=1,NGRP 00005490 + 2 FF(NG,NGG,J)=0.0D+1 00005500 + 11 CONTINUE 00005510 + K11=K2-K1+1 00005520 + J11=J2-J1+1 00005530 + I11=I2-I1+1 00005540 + I2I1=I2-I1 00005550 + J2J1=J2-J1 00005560 + K2K1=K2-K1 00005570 + DO1 MK=1,K2K1 00005580 + MKV=MK+1 00005590 + DO1MJ=1,J2J1 00005600 + MKJ=MJ+1 00005610 + DO1MI=1,I2I1 00005620 + MKI=MI+1 00005630 + V=VOL(MKI,MKJ,MKV,MESH1,MESH2,MESH3,I22,J22,K22) 00005640 + IF(MM.LE.0.OR.NN.LE.0.OR.KF1.LE.0) GO TO 12 00005650 + DO 4 NSMP=MM,NN,KF1 00005660 + DO 4 MGF=1,NGRP 00005670 + 4 F(MGF,NSMP)=F(MGF,NSMP)+FLP(MI,MJ,MK,MGF,KFS(NSMP))*V 00005680 + 12 CONTINUE 00005690 + IF(KF2.LE.0.OR.KF3.LE.0.OR.KF4.LE.0) GO TO 13 00005700 + DO1MGF=1,NGRP 00005710 + DO 1 MGFA=1,NGRP 00005720 + DO 1 NDB=KF2,KF3,KF4 00005730 + FF(MGFA,MGF,NDB)=FF(MGFA,MGF,NDB)+V*FLP(MI,MJ,MK,MGF,KFD(1,NDB))*F00005740 + 1LP(MI,MJ,MK,MGFA,KFD(2,NDB)) 00005750 + 13 CONTINUE 00005760 + 1 CONTINUE 00005770 + RETURN 00005780 + END 00005790 + SUBROUTINE CALC(K,DR,DQ,SS,S,F,FF,NV,MS,MF,MFF) 00005800 + IMPLICIT REAL*8(A-H,O-Z) 00005810 + DIMENSION SS(NV,NV),S(NV,MS),F(NV,MF),FF(NV,NV,MFF) 00005820 + COMMON/GEN/NGRP,INPT,I1,I2,J1,J2,K1,K2 00005830 + COMMON/DAT/RHO 00005840 + COMMON/RESLT/RIN,RINK,H,Z,C,HER,AK,AKI,AKP,AKIP,E1R,F1R,AR,BR,AA,B00005850 + 1B,RHOR,FNORM,FNMAG 00005860 + COMMON/RESL1/SHPCM,CHPCM,ERHPCM,RINPCM,CCDRPC,E1RPCD,F1RPCD,RHORPC00005870 + WRITE(6,701) K,NV,MS,MF,MFF,DR,DQ 00005880 + 701 FORMAT(' FLUSSO SUBR.CALC,PARAMETRI=',5I4,2E18.8) 00005890 + GOTO(2,2,4),K 00005900 + 2 CONTINUE 00005910 + AR1=0.0D+1 00005920 + BR1=0.0D+1 00005930 + ER=0.0D+1 00005940 + FR=0.0D+1 00005950 + DO1000 I=1,NGRP 00005960 + AR1=AR1+S(I,3)*F(I,1) 00005970 + BR1=BR1+S(I,2)*F(I,1) 00005980 + DO 1000 J=1,NGRP 00005990 + DELT=0.0D+1 00006000 + IF(I.EQ.J)DELT=1.D+0 00006010 + ER=ER+S(J,5)*S(I,3)*FF(J,I,1) 00006020 + FR=FR+(SS(I,J)-DELT*S(J,4))*FF(J,I,1) 00006030 + 1000 CONTINUE 00006040 + IF(K.EQ.2) GOTO30 00006050 + AKP=-ER/FR 00006060 + AK=AR1/BR1 00006070 + IF(K.EQ.4) GOTO 30 00006080 + RETURN 00006090 + 30 CONTINUE 00006100 + E1R=ER 00006110 + F1R=FR 00006120 + E1RPCD=E1R/DR*1.D+5 00006130 + F1RPCD=F1R/DR*1.D+5 00006140 + AR=AR1 00006150 + BR=BR1 00006160 + RETURN 00006170 + 4 CONTINUE 00006180 + E1=0.0D+1 00006190 + F1=0.0D+1 00006200 + C=0.0D+1 00006210 + A=0.0D+1 00006220 + AA=0.0D+1 00006230 + B=0.0D+1 00006240 + BB=0.0D+1 00006250 + FFF=0.0D+1 00006260 + EE=0.0D+1 00006270 + FZ=0.0D+1 00006280 + G=0.0D+1 00006290 + GG=0.0D+1 00006300 + GGG=0.0D+1 00006310 + DO1I=1,NGRP 00006320 + A=A+S(I,3)*F(I,1) 00006330 + B=B+S(I,2)*F(I,1) 00006340 + AA=AA+S(I,3)*F(I,3) 00006350 + BB=BB+S(I,2)*F(I,3) 00006360 + C=C+S(I,1)*F(I,5) 00006370 + DO1 J=1,NGRP 00006380 + DELT=0.0D+1 00006390 + IF(I.EQ.J)DELT=1.D+0 00006400 + XSFN=S(J,5)*S(I,3) 00006410 + STDSS=SS(I,J)-DELT*S(I,4) 00006420 + E1=E1+XSFN*FF(J,I,1) 00006430 + F1=F1+STDSS*FF(J,I,1) 00006440 + EE=EE+XSFN*FF(J,I,4) 00006450 + FZ=FZ+STDSS*FF(J,I,4) 00006460 + FFF=FFF+XSFN*FF(J,I,3) 00006470 + G=G+XSFN*FF(J,I,2) 00006480 + XSFN=XSFN+STDSS 00006490 + GG=GG+XSFN*FF(J,I,3) 00006500 + GGG=GGG+XSFN*FF(J,I,2) 00006510 + 1 CONTINUE 00006520 + AKIP=EE/(-FZ) 00006530 + AKI=AA/BB 00006540 + FNORM=AR/AA 00006550 + FNMAG=E1R/(EE*FNORM) 00006560 + H=G*FNMAG+FFF*FNORM-EE*FNMAG*FNORM 00006570 + Z=-GGG*FNMAG-GG*FNORM+E1+F1+(EE+FZ)*FNORM*FNMAG 00006580 + HER=RHO*DR 00006590 + RIN=-(Z+C+HER)/H 00006600 + RINK=1/(1-RIN) 00006610 + RHOR=-(C+E1R+F1R)/DR 00006620 + SHPCM=Z/H*1.D+5 00006630 + CHPCM=C/H*1.D+5 00006640 + ERHPCM=HER/H*1.D+5 00006650 + RINPCM=RIN*1.D+5 00006660 + CCDRPC=C/DR*1.D+5 00006670 + RHORPC=RHOR*1.D+5 00006680 + RETURN 00006690 + END 00006700 + SUBROUTINE ALCIN(AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I11,J100006710 + 11,K11,I22,J22,K22,MS,MF,MFF,MFLP) 00006720 + IMPLICITREAL*8(A-H,O-Z) 00006730 + REAL*8MESH1,MESH2,MESH3 00006740 + DIMENSION AUS(NV3),SS(NV,NV),S(NV,MS),F(NV,MF),FF(NV,NV,MFF),FLP(I00006750 + 111,J11,K11,NV,MFLP) 00006760 + DIMENSION MESH1(I22),MESH2(J22),MESH3(K22) 00006770 + COMMON/RESLT/DUM(17),FNORM,FNMAG 00006780 + COMMON/GEN/NGRP,INPT 00006790 + COMMON/DAT/RHO,DDR,DDQ 00006800 + WRITE(6,701) NV,NV3,I11,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP 00006810 + 701 FORMAT(' FLUSSO SUBR.ALCIN,PARAMETRI=',20I4) 00006820 + READ(5,100)K,KFP 00006830 + WRITE(6,200)K,KFP 00006840 + 100 FORMAT(20I4) 00006850 + 200 FORMAT(5X,2I4,72X,5X,' OPZIONI') 00006860 + READ(5,101)DR,DQ,RHO,COM,COM1 00006870 + WRITE(6,201)DR,DQ,RHO,COM,COM1 00006880 + 101 FORMAT(6E12.5) 00006890 + 201 FORMAT(5X,5E12.5,18X,5X,' DR,DQ,RHO,COMPLEMENT') 00006900 + DDR=DR 00006910 + DDQ=DQ 00006920 + CALL LEGGES(1,COM,AUS,SS,S,MESH1,MESH2,MESH3,NV,NV3,MS,I22,J22,K2200006930 + 1) 00006940 + CALL LEGGEF(1,5,1,DR,F,FF,NV,MF,MFF) 00006950 + CALL LEGGEF(3,0,4,DQ,F,FF,NV,MF,MFF) 00006960 + IF(KFP.EQ.1) CALL LEGGEF(2,0,0,0.0D+1,F,FF,NV,MF,MFF) 00006970 + DO 6 J=1,NGRP 00006980 + IF(KFP.EQ.1)GOTO20 00006990 + F(J,2)=FF(J,J,1)/F(J,1) 00007000 + 20 CONTINUE 00007010 + F(J,4)=FF(J,J,4)/F(J,3) 00007020 + DO 6 I=1,NGRP 00007030 + FF(J,I,2)=F(I,1)*F(J,4) 00007040 + 6 FF(J,I,3)=F(I,3)*F(J,2) 00007050 + CALL CALC(4,DR,DQ,SS,S,F,FF,NV,MS,MF,MFF) 00007060 + IF(K.EQ.1)CALL LEGGES(1,COM1,AUS,SS,S,MESH1,MESH2,MESH3,NV,NV3,MS,00007070 + 1I22,J22,K22) 00007080 + CALL CALC(3,DR,DQ,SS,S,F,FF,NV,MS,MF,MFF) 00007090 + CALL LEGGEF(MF+1,4,0,FNMAG,F,FF,NV,MF,MFF) 00007100 + CALL LEGGEF(MF+1,3,0,FNORM,F,FF,NV,MF,MFF) 00007110 + CALL LEGGEF(MF+1,0,1,1.0D+0/DR,F,FF,NV,MF,MFF) 00007120 + CALL LEGGEF(MF+1,0,4,1.0D+0/DQ,F,FF,NV,MF,MFF) 00007130 + CALL OUTPT(1,6,DR,DQ,AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I100007140 + 11,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP) 00007150 + CALL OUTPT(11,1,DR,DQ,AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I00007160 + 111,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP) 00007170 + CALL INDIC(1,AUS,SS,S,F,FF,NV,NV3,MS,MF,MFF) 00007180 + RETURN 00007190 + END 00007200 + SUBROUTINE CITIN(AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I11,J100007210 + 11,K11,I22,J22,K22,MS,MF,MFF,MFLP) 00007220 + IMPLICITREAL*8(A-H,O-Z) 00007230 + REAL*8 MESH1,MESH2,MESH3 00007240 + DIMENSION AUS(NV3),SS(NV),S(NV,MS),F(NV,MF),FF(NV,NV,MFF),FLP(I11,00007250 + 1J11,K11,NV,MFLP),MESH1(I22),MESH2(J22),MESH3(K22) 00007260 + COMMON/GEN/NGRP,INPT,I1,I2,J1,J2,K1,K2/TAPF/NTPF(4,5)/DAT/RHO,DR,D00007270 + 1Q 00007280 + COMMON/RESLT/RIN,RINK,H,Z,C,ER,AK,AKI,AKP,AKIP,E1R,F1R,AR,BR,AA,BB00007290 + 1,RHOR,FNORM,FNMAG 00007300 + T=0.0 00007310 + WRITE(6,701) NV,NV3,I11,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP 00007320 + 701 FORMAT(' FLUSSO SUBR.CITIN,PARAMETRI=',20I4) 00007330 + READ(5,100)K 00007340 + 100 FORMAT(20I4) 00007350 + WRITE(6,200)K 00007360 + 200 FORMAT(5X,I4,76X,5X,' OPZIONI') 00007370 + READ(5,101)DR,DQ,RHO 00007380 + WRITE(6,201)DR,DQ,RHO 00007390 + 101 FORMAT(6E12.5) 00007400 + 201 FORMAT(5X,3E12.5,44X,5X,' DR,DQ,RHO') 00007410 + L=5 00007420 + IF(K.EQ.2.OR.K.EQ.3)L=4 00007430 + READ(5,103)((NTPF(I,J),I=1,4),J=1,L) 00007440 + 103 FORMAT(4I4) 00007450 + WRITE(6,205)((NTPF(I,J),I=1,4),J=1,L) 00007460 + 205 FORMAT(5X,4I4,76X,5X,' DESCRIZIONE TAPES DEI FLUSSI') 00007470 + CALL LEGGES(4,T,AUS,SS,S,MESH1,MESH2,MESH3,NV,NV3,MS,I22,J22,K22) 00007480 + CALLLEGGEF(0,5,0,-DR,F,FF,NV,MF,MFF) 00007490 + WRITE(6,702) 00007500 + 702 FORMAT(//20X,' S E Z I O N I D I U R T O Z O N A 00007510 + 1 V E L O C E'/) 00007520 + CALL LEGGES(3,T,AUS,SS,S,MESH1,MESH2,MESH3,NV,NV3,MS,I22,J22,K22) 00007530 + DO 1 I=1,4 00007540 + CALL FLUSSO(I,I,FLP,I11,J11,K11,NV,MFLP) 00007550 + 1 CONTINUE 00007560 + CALL FLCRX(1,1,1,1,1,1,F,FF,MESH1,MESH2,MESH3,FLP,NV,I11,J11,K11,I00007570 + 122,J22,K22,MF,MFF,MFLP) 00007580 + CALL CALC(1,DR,DQ,SS,S,F,FF,NV,MS,MF,MFF) 00007590 + M1=2 00007600 + IF(K.EQ.3.OR.K.EQ.2) GOTO10 00007610 + CALL FLUSSO(5,2,FLP,I11,J11,K11,NV,MFLP) 00007620 + M1=1 00007630 + 10 CONTINUE 00007640 + CALL FLCRX(2,4,1,M1,4,1,F,FF,MESH1,MESH2,MESH3,FLP,NV,I11,J11,K11,00007650 + 1I22,J22,K22,MF,MFF,MFLP) 00007660 + CALL CALC(2,DR,DQ,SS,S,F,FF,NV,MS,MF,MFF) 00007670 + 703 FORMAT(//20X,' S E Z I O N I D I U R T O Z O N A 00007680 + 1 V E L O C E '//30X,' M E Z Z O I N F I N I T O'/) 00007690 + IF(K.EQ.3.OR.K.EQ.1) GOTO 11 00007700 + WRITE(6,703) 00007710 + CALL LEGGES(3,T,AUS,SS,S,MESH1,MESH2,MESH3,NV,NV3,MS,I22,J22,K22) 00007720 + 11 CONTINUE 00007730 + CALL CALC(3,DR,DQ,SS,S,F,FF,NV,MS,MF,MFF) 00007740 + CALL LEGGEF(MF+1,3,0,FNORM,F,FF,NV,MF,MFF) 00007750 + CALL LEGGEF(MF+1,4,0,FNMAG,F,FF,NV,MF,MFF) 00007760 + CALL LEGGEF(MF+1,0,1,1.D+0/DR,F,FF,NV,MF,MFF) 00007770 + CALL LEGGEF(MF+1,0,4,1.D+0/DQ,F,FF,NV,MF,MFF) 00007780 + CALL OUTPT(1,11,DR,DQ,AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I00007790 + 111,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP) 00007800 + CALL INDIC(2,AUS,SS,S,F,FF,NV,NV3,MS,MF,MFF) 00007810 + CALL COFRT(AUS,SS,S,F,FF,NV,NV3,MS,MF,MFF) 00007820 + RETURN 00007830 + END 00007840 + SUBROUTINE MED(M,NS,ND,KS,KD,KFF,SS,S,F,FF,NV,MS,MF,MFF) 00007850 + IMPLICIT REAL*8(A-H,O-Z) 00007860 + DIMENSION F(NV,MF),S(NV,MS),FF(NV,NV,MFF),SS(NV,NV) 00007870 + COMMON/MEDIE/A(5),B(5),SA,SB,AKSS,AKFF 00007880 + COMMON/GEN/NGRP,INPT 00007890 + IF(KFF.GE.1) AKSS=0.0D+1 00007900 + IF(KFF.GE.1.AND.KFF.LE.MFF)AKFF=0.0D+1 00007910 + IF(NS.LE.0)GOTO11 00007920 + DO 1 I=1,NS 00007930 + A(I)=0.0D+1 00007940 + 1 CONTINUE 00007950 + 11 CONTINUE 00007960 + IF(ND.LE.0) GOTO22 00007970 + DO 2 I=1,ND 00007980 + B(I)=0.0D+1 00007990 + 2 CONTINUE 00008000 + 22 CONTINUE 00008010 + IF(M.LE.0) GOTO 9 00008020 + IF(M.NE.2)SA=0.0D+1 00008030 + IF(M.NE.1)SB=0.0D+1 00008040 + DO4 I=1,NGRP 00008050 + IF(M.NE.2)SA=SA+F(I,KS) 00008060 + IF(M.NE.1)SB=SB+FF(I,I,KD) 00008070 + 4 CONTINUE 00008080 + 9 CONTINUE 00008090 + DO 6 J=1,NGRP 00008100 + IF(NS.LE.0) GO TO 7 00008110 + DO 3 I=1,NS 00008120 + A(I)=A(I)+F(J,KS)*S(J,I) 00008130 + 3 CONTINUE 00008140 + 7 IF(ND.LE.0) GO TO 8 00008150 + DO 5 I=1,ND 00008160 + B(I)=B(I)+FF(J,J,KD)*S(J,I) 00008170 + 5 CONTINUE 00008180 + 8 IF(KFF.LE.0) GOTO6 00008190 + DO 66 K=1,NGRP 00008200 + AKSS=AKSS+FF(J,K,KD)*SS(K,J) 00008210 + IF(KFF.LE.MFF) AKFF=AKFF+FF(J,K,KD)*FF(J,K,KFF) 00008220 + 66 CONTINUE 00008230 + 6 CONTINUE 00008240 + RETURN 00008250 + END 00008260 + SUBROUTINE INDIC(M,AUS,SS,S,F,FF,NV,NV3,MS,MF,MFF) 00008270 + IMPLICIT REAL*8(A-H,O-Z) 00008280 + COMMON/MEDIE/A(5),B(5),SA,SB 00008290 + DIMENSION AUS(NV3),F(NV,MF),S(NV,MS),SS(NV,NV),FF(NV,MFF) 00008300 + REAL*4 TITOLO(20),INF,REAT,MEZ,FINE 00008310 + COMMON/GEN/NGRP,INPT 00008320 + DATA INF,REAT,MEZ,FINE/'INF ','REAT','MED ','FINE'/ 00008330 + WRITE(6,701) M,NV,NV3,MS,MF,MFF 00008340 + 701 FORMAT(' FLUSSO SUBR.INDIC,PARAMETRI=',10I4) 00008350 + K=1 00008360 + NTP1=0 00008370 + KK=1 00008380 + IF(M.EQ.1)GOTO60 00008390 + 50 READ(5,100)(TITOLO(I),I=1,16),NTP,NNUC,TITOLO(19),TITOLO(20) 00008400 + 100 FORMAT(16A4,2I4,2A4) 00008410 + IF(TITOLO(1).EQ. FINE)RETURN 00008420 + IF(K.EQ.1.AND.KK.EQ.1) WRITE(6,200) 00008430 + 200 FORMAT('1',30X,' I N D I C I S P E T T R A L I'///) 00008440 + WRITE(6,201)(TITOLO(I),I=1,16),NTP,NNUC,TITOLO(19),TITOLO(20) 00008450 + 201 FORMAT(5X,16A4,2I4,2A4,5X,'TAPE,NUCLIDE') 00008460 + IF(TITOLO(1).EQ.INF.OR.TITOLO(1).EQ.REAT.OR.TITOLO(1).EQ.MEZ)GOTO900008470 + WRITE(6,202) 00008480 + 202 FORMAT(' ******** ERRORE *****IL TITOLO DEVE INIZIARE CON INF O RE00008490 + 1AT O MED O FINE') 00008500 + GOTO 50 00008510 + 9 CONTINUE 00008520 + NN1=1 00008530 + IF(NTP.LE.0) GOTO 40 00008540 + IF(NTP.EQ.NTP1) GOTO 41 00008550 + REWIND NTP 00008560 + READ(NTP) 00008570 + READ(NTP) 00008580 + READ(NTP) 00008590 + NTP1=NTP 00008600 + 41 NN1=3 00008610 + 40 CALL LEGGSM(NN1,NTP,NNUC,SS,S,NV,MS,NV*2) 00008620 + DO 1 I=1,NGRP 00008630 + S(I,1)=S(I,2)-S(I,3) 00008640 + 1 S(I,4)=S(I,3)*S(I,4) 00008650 + IF(TITOLO(1).EQ.INF) GOTO20 00008660 + CALL MED(K,4,0,1,0,0,SS,S,F,FF,NV,MS,MF,MFF) 00008670 + IF(K.EQ.1)SBB=SA 00008680 + K=0 00008690 + DO2I=1,4 00008700 + 2 A(I)=A(I)/SBB 00008710 + WRITE(6,203)(A(I),I=1,4) 00008720 + 203 FORMAT(//' SIGMA CATTURA SIGMA ASSORBIMENTO SIGMA FISSI00008730 + 1ONE NU*SIGMA FISSION/MEDIE SU FLUSSI REALI'/(1H ,4E20.500008740 + 1)) 00008750 + 20 IF(TITOLO(1).EQ.REAT) GOTO30 00008760 + CALL MED(KK,4,0,3,0,0,SS,S,F,FF,NV,MS,MF,MFF) 00008770 + IF(KK.EQ.1)SAA=SA 00008780 + KK=0 00008790 + DO 3 I=1,5 00008800 + 3 A(I)=A(I)/SAA 00008810 + WRITE(6,204)(A(I),I=1,4) 00008820 + 204 FORMAT(//' SIGMA CATTURA',7X,'SIGMA ASSORBIMENTO',6X,'SIGMA FISSIO00008830 + 1NE',8X,'NU*SIGMA FISSION/MEDIE SU REATT.INF'/1H ,4E20.5//) 00008840 + 30 CONTINUE 00008850 + GOTO50 00008860 + 60 CONTINUE 00008870 +C GLI INDICI FORMATO ALCI NON SONO INSERITI IN QUESTA VERSIONE 00008880 + RETURN 00008890 + END 00008900 + SUBROUTINE COFRTP(AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I11,J00008910 + 111,K11,I22,J22,K22,MS,MF,MFF,MFLP) 00008920 + IMPLICIT REAL*8(A-H,O-Z) 00008930 + REAL*8 MESH1,MESH2,MESH3 00008940 + DIMENSION AUS(NV3),SS(NV,NV),S(NV,MS),F(NV,MF),FF(NV,NV,MFF),FLP(I00008950 + 111,J11,K11,NV,MFLP),MESH1(I22),MESH2(J22),MESH3(K22) 00008960 + COMMON/GEN/NGRP,INPT,I1,I2,J1,J2,K1,K2 00008970 + COMMON/TAPF/NTPF(4,5)/DAT/RHO,DR,DQ 00008980 + T=0.0D+1 00008990 + WRITE(6,701) NV,NV3,I11,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP 00009000 + 701 FORMAT(' FLUSSO SUBR.COFRTP,PARAMETRI=',20I4) 00009010 + READ(5,100)DR 00009020 + WRITE(6,200)DR 00009030 + 100 FORMAT(6E12.8) 00009040 + READ(5,103)((NTPF(I,J),I=1,4),J=1,2) 00009050 + WRITE(6,205)((NTPF(I,J),I=1,4),J=1,2) 00009060 + 103 FORMAT(4I4) 00009070 + 205 FORMAT(//5X,4I4,76X,5X,'TAPE FLUSSI'/5X,4I4,76X,5X,'TAPE FLUSSI AG00009080 + 1GIUNTI'//) 00009090 + CALL LEGGES(4,T,AUS,SS,S,MESH1,MESH2,MESH3,NV,NV3,MS,I22,J22,K22) 00009100 + CALLLEGGEF(0,5,0,-.1D+1,F,FF,NV,MF,MFF) 00009110 + 200 FORMAT(5X,E12.5,67X,5X,' DR') 00009120 + CALL LEGGES(5,T,AUS,SS,S,MESH1,MESH2,MESH3,NV,NV3,MS,I22,J22,K22) 00009130 + DO 1 I=1,2 00009140 + CALL FLUSSO(I,I,FLP,I11,J11,K11,NV,MFLP) 00009150 + 1 CONTINUE 00009160 + CALL FLCRX(1,1,1,1,1,1,F,FF,MESH1,MESH2,MESH3,FLP,NV,I11,J11,K11,I00009170 + 122,J22,K22,MF,MFF,MFLP) 00009180 + CALL COFRT(AUS,SS,S,F,FF,NV,NV3,MS,MF,MFF) 00009190 + CALL OUTPT(3,1,DR,DQ,AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I100009200 + 11,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP) 00009210 + CALL OUTPT(7,1,DR,DQ,AUS,SS,S,F,FF,FLP,MESH1,MESH2,MESH3,NV,NV3,I00009220 + 111,J11,K11,I22,J22,K22,MS,MF,MFF,MFLP) 00009230 + RETURN 00009240 + END 00009250 + SUBROUTINE COFRT(AUS,SS,S,F,FF,NV,NV3,MS,MF,MFF) 00009260 + IMPLICIT REAL*8(A-H,O-Z) 00009270 + REAL*4 TITOLO(20),FINE,RWRT,TAPE,SOLO,SVAN,TOT,RIF 00009280 + COMMON /DAT/RHO,DR,DQ 00009290 + DIMENSION AUS(NV3),SS(NV,NV),F(NV,MF),S(NV,MS),FF(NV,NV,MFF) 00009300 + COMMON/GEN/NGRP,INPT 00009310 + COMMON/MEDIE/A(5),B(5),SA,SB,SSS,SXNSF 00009320 + DATA SMA,SMR,SMSS,SMXSF,CONCT,SMA2,SMR2,SMSS2,SMXS2,CN,M,NTUS/10*000009330 + 1.0D+1,3,0/ 00009340 + DATA FINE,RWRT,TAPE,TOT,RIF,SVAN/'FINE','RWRT','TAPE','TOT ','RIF 00009350 + 1','SVAN'/ 00009360 + DATA SOLO/'SOLO'/ 00009370 + DATA NTUS0,C1,CONC1/0,2*0.0D+1/ 00009380 + WRITE(6,701) NV,NV3,MS,MF,MFF 00009390 + 701 FORMAT(' FLUSSO SUBR.COFRT,PARAMETRI=',20I4) 00009400 + READ(5,100)(TITOLO(I),I=1,16),NTP,NSKP,TITOLO(17),TITOLO(18) 00009410 + 100 FORMAT(16A4,2I4,2A4) 00009420 + IF(TITOLO(1).EQ.FINE) RETURN 00009430 + WRITE(6,200)(TITOLO(I),I=1,16),NTP,NSKP,TITOLO(17),TITOLO(18) 00009440 + DO 17 I=1,NGRP 00009450 + DO 17 J=3,4 00009460 + 17 F(I,J)=0.0D+1 00009470 + 200 FORMAT(5H1 ,16A4,2I4,2A4,' TAPE SIGMA,SKIP') 00009480 + IF(NTP.LE.0)GOTO50 00009490 + REWIND NTP 00009500 + IF(NSKP.LE.0) GOTO 8 00009510 + DO 8 I=1,NSKP 00009520 + 8 READ(NTP) 00009530 + 50 READ(5,101)(TITOLO(I),I=1,2),NNUC,(TITOLO(I),I=4,15),CONC 00009540 + 101 FORMAT(2A4,I4,12A4,E12.8) 00009550 + IF(TITOLO(1).EQ.FINE) GOTO 36 00009560 + WRITE(6,201)(TITOLO(I),I=1,2),NNUC,(TITOLO(I),I=4,15),CONC 00009570 + 201 FORMAT(////5X,2A4,I4,12A4,E12.5,' =CONCENTRAZIONE') 00009580 + IF(TITOLO(1).EQ.RWRT)GOTO10 00009590 + IF(TITOLO(1).EQ.SVAN) GOTO 9 00009600 + WRITE(6,202) 00009610 + 202 FORMAT(' *******ERRORE****IL TITOLO DEVE COMINCIARE CON RWRT****')00009620 + GOTO50 00009630 + 9 CONTINUE 00009640 + READ(5,130) (AUS(I),I=1,NGRP) 00009650 + 130 FORMAT(6E12.8) 00009660 + WRITE(6,220) (AUS(I),I=1,NGRP) 00009670 + 220 FORMAT(////5X,6E12.5,8X,5X,'FATTORI DI SVANTAGGIO') 00009680 + GOTO 50 00009690 + 10 NAC=2 00009700 + IF(TITOLO(2).EQ.TAPE)NAC=4 00009710 + CALL LEGGSM(NAC,NTP,NNUC,SS,S,NV,MS,2*NV) 00009720 + IF(NNUC.EQ.100000)GOTO50 00009730 + DO 1 I=1,NGRP 00009740 + F(I,2)=S(I,1) 00009750 + F(I,3)=F(I,3)+CONC*F(I,2) 00009760 + S(I,1)=S(I,2)-S(I,3) 00009770 + S(I,3)=S(I,3)*S(I,4) 00009780 + S(I,4)=0.0D+1 00009790 + DO 1 II=1,NGRP 00009800 + S(I,4)=S(I,4)+SS(I,II) 00009810 + FF(II,I,2)=S(II,5)*S(I,3) 00009820 + 1 CONTINUE 00009830 + IF(TITOLO(5).EQ.SOLO) GOTO 20 00009840 + CONCT=CONCT+CONC 00009850 + NTUS0=NTUS0+1 00009860 + WRITE(6,215) 00009870 + 215 FORMAT(/////' CALCOLI EFFETTUATI CON SIGMA DI INPUT') 00009880 + CALL MED(M,4,4,1,1,2,SS,S,F,FF,NV,MS,MF,MFF) 00009890 + M=0 00009900 + CALL COFRTS(1,SMA,SMR,SMSS,SMXSF,CONC,DR,AL,CN,CONCT) 00009910 + IF(TITOLO(15).EQ.RIF)CN=CONC 00009920 + IF(TITOLO(15).EQ.TOT) CN=-99999D+0 00009930 + 20 IF(TITOLO(4).NE.SVAN) GOTO 50 00009940 + CONC1=CONC1+CONC 00009950 + WRITE(6,221) 00009960 + 221 FORMAT(///' CALCOLI EFFETTUATI CON SIGMA CORRETTE') 00009970 + NTUS=NTUS+1 00009980 + DO3 I=1,NGRP 00009990 + DO 4 K=1,4 00010000 + 4 S(I,K)=S(I,K)*AUS(I) 00010010 + F(I,2)=F(I,2)*AUS(I) 00010020 + F(I,4)=F(I,4)+F(I,2)*CONC 00010030 + DO 3 J=1,NGRP 00010040 + SS(I,J)=SS(I,J)*AUS(I) 00010050 + 3 FF(J,I,2)=FF(J,I,2)*AUS(I) 00010060 + CALL MED(M,4,4,1,1,2,SS,S,F,FF,NV,MS,MF,MFF) 00010070 + M=0 00010080 + CALL COFRTS(1,SMA2,SMR2,SMSS2,SMXS2,CONC,DR,AL1,C1,CONC1) 00010090 + IF(TITOLO(15).EQ.RIF) C1=CONC 00010100 + IF(TITOLO(15).EQ.TOT)C1=-99999.D+0 00010110 + GOTO50 00010120 + 36 CONTINUE 00010130 + AL=0.0D+1 00010140 + AL1=0.0D+1 00010150 + WRITE(6,115)SA 00010160 + 115 FORMAT(//////'0 INT F(I))=',E20.8) 00010170 + WRITE(6,117) SB 00010180 + 117 FORMAT('0 INT(F(I)*FA(I) )=',E20.8) 00010190 + IF(NTUS0.EQ.0) GOTO 32 00010200 + DO 66 I=1,NGRP 00010210 + 66 IF(F(I,3).NE.0.D+1) AL=AL+F(I,5)/(3.D+0*F(I,3)) 00010220 + WRITE(6,106) AL 00010230 + 106 FORMAT(/' INT( GRADF(I)*GRADFA(I)/3.*MACRO TR)=',E20.8) 00010240 + IF(CN.EQ.0D+1) GO TO 32 00010250 + WRITE(6,141) 00010260 + 141 FORMAT(/////' CALCOLO DI RHO ') 00010270 + CALL COFRTS(2,SMA,SMR,SMSS,SMXSF,CONC,DR,AL,CN,CONCT) 00010280 + 32 CONTINUE 00010290 + IF(NTUS.EQ.0)GOTO33 00010300 + DO6 I=1,NGRP 00010310 + 6 IF(F(I,4).NE.0.D+0) AL1=AL1+F(I,5)/(3.D+0*F(I,4)) 00010320 + WRITE(6,136) AL1 00010330 + 136 FORMAT(/' INT(GRAD F(I)*GRAD FA(I)/ 3*MACRO TRA(AUTOSCHERM)=',E20.00010340 + 18) 00010350 + IF(C1.EQ.0.D+0) GOTO 33 00010360 + WRITE(6,140) 00010370 + 140 FORMAT(///' CALCOLO DI RHO CON SIGMA AUTOSCHERMATE') 00010380 + CALL COFRTS(2,SMA2,SMR2,SMSS2,SMXS2,CONC,DR,AL1,C1,CONC1) 00010390 + 33 RETURN 00010400 + END 00010410 + SUBROUTINE COFRTS(K,SMA,SMR,SMSS,SMXSF,CONC,DR,AL,CN,CONCT) 00010420 + IMPLICIT REAL*8(A-H,O-Z) 00010430 + REAL*8 LAMDA,MU 00010440 + COMMON /MEDIE/A(5),B(5),SA,SB,SSS,SXNSF 00010450 + GOTO (1,333),K 00010460 + 1 CONTINUE 00010470 + SMA=SMA+B(2)*CONC 00010480 + SMR=SMR+B(4)*CONC 00010490 + SMSS=SMSS+SSS*CONC 00010500 + SMXSF=SMXSF+SXNSF*CONC 00010510 + 15 WRITE(6,105) B(2),B(4),SSS,SXNSF 00010520 + DO 2 I=1,4 00010530 + A(I)=A(I)/SA 00010540 + B(I)=B(I)/SB 00010550 + 2 CONTINUE 00010560 + WRITE(6,109) A(2) 00010570 + WRITE(6,108) B(2) 00010580 + WRITE(6,112) A(3) 00010590 + WRITE(6,110) B(3) 00010600 + WRITE(6,113) A(1) 00010610 + WRITE(6,111) B(1) 00010620 + WRITE(6,120) A(4) 00010630 + WRITE(6,121) B(4) 00010640 + 108 FORMAT(' (INT SA(I)*F(I)*FA(I))/(INT F(I)*FA(I))=',E20.8) 00010650 + 109 FORMAT(' (INT SA(I)*F(I))/(INT F(I))=',E20.8) 00010660 + 110 FORMAT(' (INT NUSFISS(I)*F(I)*FA(I))/(INT F(I)*FA(I))=',E20.8) 00010670 + 111 FORMAT(' (INT CATT(I)*F(I)*FA(I))/ (INT F(I)*FA(I))=',E20.8)00010680 + 112 FORMAT(' (INT NUSFISS(I)*F(I))/ (INT F(I))=',E20.8) 00010690 + 113 FORMAT(' (INT CATT(I)*F(I))/ (INT F(I))',E20.8) 00010700 + 114 FORMAT('0 (INT F(I)*FA(I))=',E20.8) 00010710 + 105 FORMAT(//' (INT SA(I)*F(I)*FA(I)) =',E20.8/' (INT SCATT00010720 + 1.TOT(I)*F(I)*FA(I) =',E20.8/' (INT SS(I,J)*F(I)*FA(J) 00010730 + 2 =',E20.8/' (INT X(J)*NUSFISS(I)*F(I)*FA(J) =',E20.800010740 + 3//) 00010750 + 120 FORMAT(' (INT (REM(I))*F(I))/(INT F(I))=',E20.8) 00010760 + 121 FORMAT(' (INT (REM(I))*F(I)*FA(I)/(INT F(I)*FA(I)=',E20.8) 00010770 + RETURN 00010780 + 333 CONTINUE 00010790 + WRITE(6,128) SMA 00010800 + 128 FORMAT(/////' SIGMA A *F(I)*FA(I)=',E20.8) 00010810 + WRITE(6,129) SMR 00010820 + 129 FORMAT(' SIGMA REM*F(I)*FA(I)=',E20.8) 00010830 + WRITE(6,122) SMXSF 00010840 + 122 FORMAT(' SIGMA F*NU*X*F(I)*FA(J)=',E20.8) 00010850 + WRITE(6,123) SMSS 00010860 + 123 FORMAT(' SIGMA SCATT*F(I)*FA(J)=',E20.8) 00010870 + LAMDA=(SMR-SMSS-SMXSF)/SMA 00010880 + WRITE(6,126) LAMDA 00010890 + 126 FORMAT(' LAMBDA=',E20.8) 00010900 + MU=LAMDA+AL/SMA*DR 00010910 + RO=SMA/DR*(1+LAMDA)-AL 00010920 + WRITE(6,124) RO 00010930 + 124 FORMAT(//' RO=',E20.8) 00010940 + IF(CN.EQ.-99999.D+0) CN=CONCT 00010950 + WRITE(6,9877)CN 00010960 + 9877 FORMAT('0 N-RIF=',E20.8////) 00010970 + BI=SMA/(DR*CN)*(1+LAMDA)+AL/CN 00010980 + BIMOD=SMA/(DR*CN)*(1+MU) 00010990 + RETURN 00011000 + END 00011010 + SUBROUTINE FLUSSO(NT,NTFP,FLP,I21,J21,K21,NV,MFLP) 00011020 + IMPLICITREAL*8(A-H,O-Z) 00011030 + DIMENSION FLP(I21,J21,K21,NV,MFLP) 00011040 + COMMON/TAPF/NTPF(4,5) 00011050 + COMMON/GEN/NGRP,INPT,I1,I2,J1,J2,K1,K2 00011060 + WRITE(6,701) NT,NTFP,I21,J21,K21,NV,MFLP 00011070 + 701 FORMAT(' FLUSSO SUBR.FLUSSO,PARAMETRI=',10I4) 00011080 + K=1 00011090 + LI=I2-I1 00011100 + LJ=J2-J1 00011110 + M=NTPF(4,NT) 00011120 + REWIND M 00011130 + KLII=NTPF(1,NT)-LI 00011140 + GO TO(50,51,50,51),NT 00011150 + 51 DO7 LL=1,NGRP 00011160 + 7 READ(M) 00011170 + READ(M) 00011180 + 50 CONTINUE 00011190 + IF(KLII.LE.0) GO TO 30 00011200 + DO3 NG=1,NGRP 00011210 + 3 READ(M)(((FLP(I,J,K,NG,NTFP),I=1,LI),(A,N=1,KLII)),J=1,LJ) 00011220 + RETURN 00011230 + 30 CONTINUE 00011240 + LZ=LJ 00011250 + IF(NTPF(2,NT).LE.1) LZ=1 00011260 + DO4 NG=1,NGRP 00011270 + 4 READ(M) ((FLP(I,J,K,NG,NTFP),I=1,LI),J=1,LZ) 00011280 + IF(LZ.EQ.LJ)RETURN 00011290 + DO 5 I=1,NGRP 00011300 + DO 5 J=1,I21 00011310 + DO 5 K=1,J21 00011320 + 5 FLP(J,K,1,I,NTFP)=FLP(J,1,1,I,NTFP) 00011330 + RETURN 00011340 + END 00011350 + SUBROUTINE LEGGEF(K1,K2,K3,D,F,FF,NV,MF,MFF) 00011360 + IMPLICITREAL*8(A-H,O-Z) 00011370 + DIMENSION F(NV,MF),FF(NV,NV,MFF) 00011380 + COMMON/GEN/NGRP,INPT,I1,I2,J1,J2,K11,K22 00011390 + WRITE(6,701) K1,K2,K3,NV,MF,MFF,D 00011400 + 701 FORMAT(' FLUSSO SUBR.LEGGEF, PARAMETRI=',6I4,E12.5) 00011410 + IF(K1.GT.MF) GOTO 40 00011420 + IF(K1.LE.0) GOTO 20 00011430 + READ(5,102)(F(I,K1),I=1,NGRP) 00011440 + WRITE(6,202)(F(I,K1),I=1,NGRP) 00011450 + 102 FORMAT(E12.8) 00011460 + 202 FORMAT(5X,E12.5,68X,5X,' FLUSSI') 00011470 + 20 CONTINUE 00011480 + IF(K3.LE.0) GOTO11 00011490 + DO1I=1,NGRP 00011500 + DO1J=1,NGRP 00011510 + IF(I.EQ.J.AND.K2.GT.0) GOTO50 00011520 + READ(5,101)FF(J,I,K3) 00011530 + WRITE(6,204)FF(J,I,K3) 00011540 + 204 FORMAT(5X,E12.5,68X,5X,' FLUSSI*FLUSSI AGGIUNTI') 00011550 + GO TO 1 00011560 + 50 CONTINUE 00011570 + READ(5,101)FF(J,I,K3),BOH,F(I,K2) 00011580 + WRITE(6,201)FF(J,I,K3),BOH,F(I,K2) 00011590 + 101 FORMAT(6E12.5,I2,1X,I2) 00011600 + 201 FORMAT(5X,3E12.5,44X,5X,'FLUSSI*FLUSSI AGG,GRAD F*GRAD F+') 00011610 + 1 CONTINUE 00011620 + 11 CONTINUE 00011630 + IF(K2.LE.0) GOTO10 00011640 + IF(K3.GT.0) GOTO10 00011650 + READ(5,103)(F(I,K2),I=1,NGRP) 00011660 + 103 FORMAT(24X,E12.8) 00011670 + WRITE(6,203)(F(I,K2),I=1,NGRP) 00011680 + 203 FORMAT(5X,24X,E12.5,44X,5X,' GRAD F*GRAD F+') 00011690 +10 CONTINUE 00011700 + 40 IF(D.EQ.0.D+1) GOTO33 00011710 + IF(K2.LE.0) GOTO22 00011720 + DO 2 I=1,NGRP 00011730 +2 F(I,K2)=F(I,K2)*D 00011740 +22 IF(K3.LE.0) GOTO 33 00011750 + 51 DO 3 I=1,NGRP 00011760 + DO 3 J=1,NGRP 00011770 + 3 FF(I,J,K3)=FF(I,J,K3)*D 00011780 + 33 RETURN 00011790 + END 00011800 + SUBROUTINE LEGGSM(NAC,NTP,NNUC,SS,S,NG,MS,NV) 00011810 + IMPLICIT REAL*8(A-H,O-Z) 00011820 + REAL*4 S(NV,MS),SS(NV,NG),BOH 00011830 + COMMON/GEN/NGRP 00011840 + WRITE(6,701) NAC,NTP,NNUC,NG,MS,NV 00011850 + 701 FORMAT(' FLUSSO SUBR.LEGGSM, PARAMETRI=',12I4) 00011860 + GOTO(10,10,30,30),NAC 00011870 + 10 CONTINUE 00011880 + DO 1 I=1,NV,2 00011890 + READ(5,101) S(I,2),S(I,3),S(I,1),S(I,4) 00011900 + 1 WRITE(6,201)S(I,2),S(I,3),S(I,1),S(I,4) 00011910 + 101 FORMAT(6E12.8) 00011920 +201 FORMAT(5X,4E12.5,25X,'ASS,FISS,TRASP,NU') 00011930 + IF(NAC.EQ.1)GOTO 37 00011940 + READ(5,101) ((SS(I,J),J=1,NGRP),I=1,NV,2) 00011950 + WRITE(6,202)((SS(I,J),J=1,NGRP),I=1,NV,2) 00011960 + 202 FORMAT(5X,6E12.5,8X,5X,' SCATT(I IN J),J=1,NGRP') 00011970 + GO TO 38 00011980 + 30 NPRNT=0 00011990 + IF(NNUC.GE.0)GOTO 28 00012000 + NNUC=-NNUC 00012010 + NPRNT=1 00012020 + 28 KUS=0 00012030 + 29 READ(NTP,END=31) LL 00012040 + IF(LL.EQ.NNUC) GOTO32 00012050 + READ(NTP,END=31) 00012060 + GOTO29 00012070 + 31 IF(KUS.NE.0)GOTO33 00012080 + REWIND NTP 00012090 + READ(NTP,END=33) 00012100 + KUS=1 00012110 + GOTO29 00012120 + 33 WRITE(6,203)NNUC,NTP 00012130 + 203 FORMAT('0******NON TROVO IL NUCLIDE',I8,' SUL TAPE',I8,' *******')00012140 + NNUC=100000 00012150 + RETURN 00012160 + 32 GOTO(10,10,35,36),NAC 00012170 + 35 READ(NTP,END=33)((S(I,2),S(I,3),S(I,1),S(I,4),BOH),I=1,NV,2) 00012180 + IF(NPRNT.EQ.0) WRITE(6,204)((S(I,2),S(I,3),S(I,1),S(I,4)),I=1,NV,200012190 + 1) 00012200 + 37 DO 2 J=1,4 00012210 + DO 2 I=2,NV,2 00012220 + 2 S(I,J)=0.0 00012230 + 204 FORMAT('0 ',6X,'SIGMA ASS',6X,'SIGMA FISSION SIGMA TRASPO00012240 + 1RTO NU'/(1H ,4E15.5)) 00012250 + RETURN 00012260 + 36 READ(NTP,END=33)((S(I,2),S(I,3),S(I,1),S(I,4),BOH),I=1,NV,2),((SS(00012270 + 1I,J),J=1,NG),I=1,NV,2) 00012280 + IF(NPRNT.EQ.1) GOTO 38 00012290 + WRITE(6,204) ((S(I,2),S(I,3),S(I,1),S(I,4)),I=1,NV,2) 00012300 + WRITE(6,205) 00012310 + DO 5 I=1,NV,2 00012320 + 206 FORMAT(1H ,10E12.5) 00012330 + WRITE(6,206) (SS(I,J),J=1,NG) 00012340 + 5 CONTINUE 00012350 + 205 FORMAT('0 SCATTERING(I IN J),J=1,NGRP'//) 00012360 + 38 DO3 I=2,NV,2 00012370 + DO 4 J=1,4 00012380 + 4 S(I,J)=0.0 00012390 + DO 3 K=1,NG 00012400 + 3 SS(I,K)=0.0 00012410 + RETURN 00012420 + END 00012430 + SUBROUTINE LEGGES(NAC,COM,AUS,SS,S,MESH1,MESH2,MESH3,NV,NV3,MS,I2200012440 + 1,J22,K22) 00012450 + IMPLICITREAL*8(A-H,O-Z) 00012460 + REAL*8MESH1,MESH2,MESH3 00012470 + DIMENSION MESH1(I22),MESH2(J22),MESH3(K22) 00012480 + REAL*4 TITOLO(20) 00012490 + DIMENSION AUS(NV3),SS(NV,NV),S(NV,MS) 00012500 + COMMON/GEN/NGRP,INPT,I1,I2,J1,J2,K1,K2 00012510 + WRITE(6,701) NAC,COM,NV,NV3,MS,I22,J22,K22 00012520 + 701 FORMAT(' FLUSSO SUBR.LEGGES,PARAMETRI=',I4,E12.4,7I4) 00012530 + GOTO(10,20,30,40,50),NAC 00012540 + 30 CONTINUE 00012550 + READ(5,130) TITOLO 00012560 + 130 FORMAT(20A4) 00012570 + WRITE(6,230)TITOLO 00012580 + 230 FORMAT(5X,20A4,5X,' SECTION 008 CITATION') 00012590 + READ(5,130) TITOLO 00012600 + WRITE(6,230)TITOLO 00012610 + DO99 MU=1,NGRP 00012620 + READ(5,122)NOH,NG,(S(NG,J),J=1,3) 00012630 + WRITE(6,222)NG,(S(NG,J),J=1,3) 00012640 + 122 FORMAT(2I6,5E12.8) 00012650 + 222 FORMAT(5X,6X,I6,3E12.5,32X,5X,'GRUPPO,D,SA,NU*SFISS') 00012660 + S(NG,4)=S(NG,2) 00012670 + READ(5,101)(SS(NG,JU),JU=1,NGRP) 00012680 + 101 FORMAT(6E12.8) 00012690 + WRITE(6,233)(SS(NG,JU),JU=1,NGRP) 00012700 + 233 FORMAT(5X,6E12.5,13X,'SCATT(I IN J),J=1,NGRP') 00012710 + DO99 MI=1,NGRP 00012720 + 99 S(NG,4)=S(NG,4)+SS(NG,MI) 00012730 + 50 READ(5,130)TITOLO 00012740 + WRITE(6,231)TITOLO 00012750 + NCOM=COM 00012760 + NH=5 00012770 + IF(NAC.EQ.5.AND.(NCOM.GT.0.AND.NCOM.LE.MS)) NH=NCOM 00012780 + 231 FORMAT(5X,20A4,5X,' SPETTRO DI FISSIONE') 00012790 + READ(5,101)(S(III,NH),III=1,NGRP) 00012800 + WRITE(6,234)(S(III,NH),III=1,NGRP) 00012810 + 234 FORMAT(5X,6E12.5,8X,5X,' SPETTRO DI FISSIONE') 00012820 + RETURN 00012830 + 10 CONTINUE 00012840 + READ(5,130)TITOLO 00012850 + WRITE(6,201)TITOLO 00012860 + 201 FORMAT(5X,20A4,5X,' SIGMA DA ALCI') 00012870 + READ(5,101) S(1,1),S(1,4),S(1,3),S(1,2) 00012880 + WRITE(6,202)S(1,1),S(1,4),S(1,3),S(1,2) 00012890 + 202 FORMAT(5X,4E12.5,32X,5X,' D(1),ST(1),NUSFISS(1),SA(1)') 00012900 + SS(1,1)=0.0 00012910 + DO3I=2,NGRP 00012920 + I1=I-1 00012930 + READ(5,101) S(I,1),S(I,4),S(I,3),(SS(J,I),J=1,I1),S(I,2),BOH 00012940 + WRITE(6,203)S(I,1),S(I,4),S(I,3),(SS(J,I),J=1,I1),S(I,2),BOH 00012950 + 203 FORMAT(5X,6E12.5,8X,5X,' D(I),ST(I),NUSF(I),SS(J IN I)') 00012960 + DO3J=I,NGRP 00012970 + 3 SS(J,I)=0.0 00012980 + MIN=6 00012990 + IF(NGRP.LT.6)MIN=NGRP 00013000 + READ(5,105)(TITOLO(I),I=1,5),(S(I,5),I=1,MIN) 00013010 + WRITE(6,206)(TITOLO(I),I=1,5),(S(I,5),I=1,MIN) 00013020 + IF(NGRP.LE.6) GOTO21 00013030 + MIN1=MIN+1 00013040 + READ(5,106) (S(I,5),I=MIN1,NGRP) 00013050 + WRITE(6,207)(S(I,5),I=MIN1,NGRP) 00013060 + 105 FORMAT(4A4,A2,6E9.4) 00013070 + 206 FORMAT(5X,4A4,A2,6E9.4,8X,5X,' SPETTRO DI FISSIONE') 00013080 + 106 FORMAT(8E9.4) 00013090 + 207 FORMAT(5X,8E9.4,8X,5X,' SPETTRO DI FISSIONE') 00013100 + 21 IF(COM.NE.0)GOTO 20 00013110 + RETURN 00013120 + 20 CONTINUE 00013130 + READ(5,130)TITOLO 00013140 + WRITE(6,204)TITOLO 00013150 + 204 FORMAT(5X,20A4,5X,' COMPLEMENT(ALCI)') 00013160 + BO=0.0 00013170 + DO 4 I=1,NGRP 00013180 + N1=I-1 00013190 + NNP=I-1+4 00013200 + READ(5,101) (AUS(J),J=1,NNP),BOH 00013210 + WRITE(6,205)(AUS(J),J=1,NNP),BO 00013220 + 205 FORMAT(5X,6E12.5,8X,5X,' COMPLEMENT(ALCI)') 00013230 + S(I,1)=AUS(1)*COM+S(I,1) 00013240 + S(I,4)=AUS(2)*COM+S(I,3) 00013250 + S(I,2)=AUS(NNP)*COM+S(I,2) 00013260 + IF(I.EQ.1) GOTO 4 00013270 + DO 4 J=1,N1 00013280 + JJ=J+3 00013290 + SS(J,I)=AUS(JJ)*COM+SS(J,I) 00013300 + 4 CONTINUE 00013310 + RETURN 00013320 + 40 CONTINUE 00013330 + I11=I2-I1+1 00013340 + J11=J2-J1+1 00013350 + K11=K2-K1+1 00013360 + READ(5,101)(MESH1(M),M=1,I11) 00013370 + READ(5,101)(MESH2(M),M=1,J11) 00013380 + READ(5,101)(MESH3(M),M=1,K11) 00013390 + WRITE(6,208)(MESH1(M),M=1,I11) 00013400 + WRITE(6,209)(MESH2(M),M=1,J11) 00013410 + 208 FORMAT(5X,6E12.5,8X,5X,'INTERFACCE DIM 1(RAD)') 00013420 + 209 FORMAT(5X,6E12.5,8X,5X,'INTERFACCE DIM 2(ASS)') 00013430 + WRITE(6,210)(MESH3(M),M=1,K11) 00013440 + 210 FORMAT(5X,6E12.5,8X,5X,'INTERFACCE DIM 3 ') 00013450 + RETURN 00013460 + END 00013470 +C FUNZIONE VOL DEL PROGRAMMA MICRO 00013480 +C PER CALCOLO DI VOLUMETTI IN GEOMETRIA 00013490 +C X - Y 00013500 +C 24-6-82 00013510 +C ( QUELLA NEL MICRO LAVORA CON GEOMETRIA 00013520 +C CILINDRICA ) 00013530 +C 00013540 + FUNCTION VOL(I,J,K,MESH1,MESH2,MESH3,I22,J22,K22) 00013550 + IMPLICITREAL*8(A-H,O-Z) 00013560 + DIMENSION MESH1(I22),MESH2(J22),MESH3(K22) 00013570 + REAL*8MESH1,MESH2,MESH3 00013580 + IA=I-1 00013590 + JA=J-1 00013600 + VOL=(MESH2(J)-MESH2(JA))*(MESH1(I)-MESH1(IA)) 00013610 + RETURN 00013620 + END 00013630 diff --git a/micro/microass b/micro/microass new file mode 100644 index 0000000..b96d3d3 Binary files /dev/null and b/micro/microass differ diff --git a/other/README.md b/other/README.md new file mode 100644 index 0000000..0d0b2f0 --- /dev/null +++ b/other/README.md @@ -0,0 +1,49 @@ +FORTRAN CODES for data format conversion +======================================== + +These codes where written in the eighties at the +CNEN and then ENEA research center in Bologna, to change the +formatting of data produced by programs for nuclear +reactor computations. + + +canco +----- + +A little FORTRAN program, written in 1979, to change data produced by the +[ANISN](http://www.oecd-nea.org/tools/abstract/detail/ccc-0254/) code, +to be used by the [CITATION](https://www.osti.gov/biblio/4740897-nuclear-reactor-core-analysis-code-citation) +code, by M.Galli and M.Vaccari. It read data on magnetic tapes. +It is described in the CNEN report: RIT/FIS-LDN(79)1 (not included here). + +diluit +------ + +A FORTRAN program by M.Galli, written in 1983, to manage +cross sections to be used by the +[DOT](http://www.oecd-nea.org/tools/abstract/detail/ccc-0276/) program. + +mediator +-------- + +A FORTRAN program written in 1982, by M.Galli, +to average cross sections fot the +[ANISN](http://www.oecd-nea.org/tools/abstract/detail/ccc-0254/) +program. + +medit4 +------ + +A FORTRAN program written M.Galli, betwen 1983 and 1985, +to average cross sections. + + +dadi +----- + +A litle program to simulate results of +dice rolls to test for fake dices; +a dice game was used in the laboratory, +to choose who had to pay the cofee break. +Ther program uses a random number generator +by F.James. diff --git a/other/canco b/other/canco new file mode 100644 index 0000000..b737fc4 --- /dev/null +++ b/other/canco @@ -0,0 +1,326 @@ +C*****C A N C O 00000010 +C NUOVA VERS. PROGRAMMA CANCT. M.GALLI,M.VACCARI 00000020 +C CONVERSIONE DATI DA FORMATO ANISN A FORMATO CITATION 00000030 +C 00000040 + DIMENSION TITOLO(20),U(6),D(1600),NMAT(35),SIG(30,3) 00000050 + DIMENSION SIGS(30,30),ANU(30),MANN(6),VUOT(140),TIPO(4) 00000060 + DIMENSION BCDTAP(20),COMMNT(20),TITMAT(20),BCDTIP(2) 00000070 + EQUIVALENCE (TITOLO(1),BCDTAP(1),COMMNT(1),TITMAT(1)) 00000080 + EQUIVALENCE (JPTR,U(2)), (JPAU,U(3)), (JLUT,U(4)),(BO,BOH) 00000090 + INTEGER*4 U 00000100 + REAL * 4 MICMAC 00000110 + DATA B/4H /, P/4H****/, AIAX/4HU235/, MANN/6 * 0/ , BO/0.0/ 00000120 + DATA TIPO /4HMACR,4HO ,4HMICR,4H0 /,BILLY/ 3.1E-11/ 00000130 +C 00000140 +C DEFINIZIONI : 00000150 +C NG NUMERO DI GRUPPI 00000160 +C MTP NASTRO BINARIO SU CUI VENGONO TEMPORANEAMENTE CARICATE 00000170 +C LE SEZIONI D'URTO . PUO' ESSERE ANCHE GIA' ESISTENTE . 00000180 +C NMAT(I) NUMERO DI RIFERIMENTO DEI MATERIALI PER I QUALI 00000190 +C INTERESSA LA TRASFORMAZIONE 00000200 +C 00000210 +C SPECIFICHE DEL CALCOLO : 00000220 +C UK=1. MACRO 00000230 +C 00000240 +C UK=2. MICRO 00000250 +C 00000260 + NMATD=35 00000270 +C 00000280 +C SCHEDA(1) COMMENTO GENERALE (20A4) 00000290 + 80 READ(5,130,END=500) COMMNT 00000300 +C 00000310 + WRITE(6,100) COMMNT 00000320 +C 00000330 + DO 75 I=1,NMATD 00000340 + 75 NMAT(I)=0 00000350 +C 00000360 +C SCHEDA (2) 00000370 +C MICMAC, NG, MTP, MATERIALI DA PERFORARE 00000380 +C MICMAC = MICR MICROSCOPICHE 00000390 +C = MACR MACROSCOPICHE 00000400 +C 00000410 + READ(5,150)MICMAC,NG,MTP,(NMAT(I),I=1,NMATD) 00000420 +C 00000430 + IXYZ=0 00000440 + N1=0 00000450 + UK=1. 00000460 +C 00000470 + IF(MICMAC.EQ.TIPO(3))UK=2. 00000480 + IF(UK-2.)85,88,88 00000490 + 85 BCDTIP(1)=TIPO(1) 00000500 + BCDTIP(2)=TIPO(2) 00000510 + GO TO 89 00000520 + 88 BCDTIP(1)=TIPO(3) 00000530 + BCDTIP(2)=TIPO(4) 00000540 + 89 IF(UK.EQ.1.) GOTO77 00000550 + IF(MTP)77,77,91 00000560 + 91 REWIND MTP 00000570 +C 00000580 +C SCHEDA (3) TITOLO DEL TAPE CITATION DA COSTRUIRE (SOLO NEL CASO00000590 +C MICRO) 00000600 +C COME BCDTAP SI DEVE METTERE UNA SCHEDA BIANCA SE IL NASTRO MTP E' 00000610 +C GIA' ESISTENTE, ALTRIMENTI QUALUNQUE SCRITTA . 00000620 +C 00000630 + 222 READ(5,78)(BCDTAP(I),I=1,18) 00000640 +C 00000650 + DO 5 I=1,18 00000660 + IF(BCDTAP(I).NE.B) GO TO 76 00000670 + 5 CONTINUE 00000680 +C SE IL NASTRO MTP E' GIA' ESISTENTE, SALTA I TRE RECORDS 00000690 +C INIZIALI CONTENENTI INFORMAZIONI GENERALI 00000700 + WRITE(6,104)MTP 00000710 + READ(MTP) 00000720 + READ(MTP) 00000730 + READ(MTP) 00000740 +C MEDIANTE LA SKP SI POSIZIONA SULL'ULTIMO RECORD DELL'UNITA' 00000750 +C MTP QUALORA SIA GIA' ESISTENTE 00000760 + CALL SKP(N1,MTP) 00000770 + GO TO77 00000780 + 76 WRITE(MTP)(BCDTAP(I),I=1,18) 00000790 + WRITE(MTP) MANN(1),MANN(2),NG,MANN(4),MANN(5),MANN(6) 00000800 + WRITE(6,151)MTP, (BCDTAP(I),I=1,18) 00000810 + LMN=NG*4+20 00000820 + WRITE(MTP)(VUOT(I),I=1,LMN) 00000830 +C 00000840 +C SCHEDA (4) POSIZIONI DELLE PRINCIPALI SEZ.D'URTO NEL 00000850 +C DATA SET DI INPUT FORMATO ANISN 00000860 +C JPTR=U(2) POSIZIONE DELLA SIGMA TOT. O TRASPORTO (ES.4) 00000870 +C JPAU=U(3) POSIZ.AUTOSCATTERING (ES.5) 00000880 +C JLUT=U(4) LUNGHEZZA TAVOLA DELLE SEZ.D'URTO (ES. 29) 00000890 +C 00000900 + 77 READ(5,109) JPTR,JPAU, JLUT 00000910 +C 00000920 + WRITE(6,108)(U(I),I=2,4) 00000930 + IF(U(3).GT.0) NUS=U(3)-U(2)-1 00000940 + IF(U(3).LT.0) NUS=0 00000950 + NDS=U(4)-U(3) 00000960 + IF(UK.EQ.2.) GOTO1001 00000970 +C 00000980 +C NUS = NUMERO DI UPSCATTERING 00000990 +C NDS = NUMERO DI DOWNSCATTERING 00001000 +C 00001010 + WRITE(7,200) 00001020 + WRITE(7,201) NG,NDS,NUS 00001030 + 1001 WRITE(6,103) NG,NDS,NUS,BCDTIP,(NMAT(I),I=1,NMATD) 00001040 + 50 IU35=0 00001050 +C-----QUI INIZIA IL LOOP SU OGNI MATERIALE 00001060 +C 00001070 +C SCHEDA (5) DESCRIZIONE MATERIALE 00001080 + READ(5,102) (TITMAT(I),I=1,4),MAT,(TITMAT(I),I=5,6),IZON,(TITMAT(I00001090 + 1),I=7,18) 00001100 +C 00001110 + IF(TITMAT(1).EQ.P) GOTO70 00001120 + IF(TITMAT(1).EQ.AIAX)IU35=1 00001130 + WRITE(6,300) TITMAT,MAT,IZON 00001140 + NPUN=0 00001150 + DO 1 I=1,NMATD 00001160 +C VERIFICA SE IL MATERIALE IN CORSO E' TRA QUELLI PREVISTI PER 00001170 +C LA TRASFORMAZIONE 00001180 + IF(MAT.EQ.NMAT(I))NPUN=1 00001190 + 1 CONTINUE 00001200 + NSIG=NG*U(4) 00001210 +C 00001220 +C MEDIANTE LA SUB. RDAN LEGGE TUTTE LE SEZIONI D'URTO PER UN 00001230 +C MATERIALE IN FORMATO FIDO(ANISN) 00001240 +C NSIG=NUMERO GRUPPI * LUNGHEZZA TAVOLA DELLE SIGMA 00001250 +C 00001260 + CALL RDAN(D,NSIG) 00001270 +C 00001280 +C LOOP SUI GRUPPI 00001290 + DO 2 I=1,NG 00001300 + IF(UK.EQ.2.) GOTO335 00001310 +C-----MACRO 00001320 + DDD=D((I-1)*U(4)+U(2)) 00001330 + SIG(I,3)=D(U(2)-1+(I-1)*U(4)) 00001340 + SIG(I,2)=D(U(2)-2+(I-1)*U(4)) 00001350 +C DEFINIZIONE DELLA DIFFUSIONE 00001360 + SIG(I,1)=1./(3.*D((I-1)*U(4)+U(2))) 00001370 +C NEL CASO MACRO IN GENERE L'ORDINE DELLE REAZIONI IN OUTPUT 00001380 +C E' IL SEGUENTE.. 00001390 +C COEFFIC.DIFFUSIONE, SIGMA ASSORB., NU*SIGMA FISS.,BLANK,BLANK 00001400 + GOTO337 00001410 +C-----MICRO 00001420 + 335 SIG(I,1)=D((I-1)*U(4)+U(2)) 00001430 + DDD=D((I-1)*U(4)+U(2)-3) 00001440 + SIG(I,2)=D((I-1)*U(4)+U(2)-2) 00001450 + SIG(I,3)=DDD 00001460 + IF(DDD.NE.0.) GOTO340 00001470 + ANU(I)=0. 00001480 + GOTO337 00001490 +C DIVIDE NU*SIGF PER SIGF OTTENENDO IL SOLO NU 00001500 + 340 ANU(I)=D((I-1)*U(4)+U(2)-1)/DDD 00001510 +C NEL CASO MICRO L' ORDINE DELLE REAZIONI IN OUTPUT E' IL 00001520 +C SEGUENTE.. 00001530 +C SIGMA ASS., SIGMA FISS., SIGMA TRASPORTO, NU , SIGMA X (NON 00001540 +C USATA, POSTA =0.) 00001550 +C PARTE COMUNE AD UK=1 E UK=2 00001560 + 337 DO 4 J=I,NG 00001570 + IF(J-I.GT.NDS) GOTO30 00001580 + SIGS(I,J)=D(U(4)*(J-1)+U(3)+J-I) 00001590 + GOTO4 00001600 + 30 SIGS(I,J)=0. 00001610 + 4 CONTINUE 00001620 + I1=I-1 00001630 + IF(I1.LE.0) GOTO6 00001640 + DO 6 J=1,I1 00001650 + IF(J.GT.NUS) GOTO20 00001660 + SIGS(I,I-J)=D(U(4)*(I-J-1)+U(3)-J) 00001670 + GOTO6 00001680 + 20 SIGS(I,I-J)=0. 00001690 + 6 CONTINUE 00001700 + IF(UK.EQ.2.) GO TO 2 00001710 +C MACRO 00001720 + WRITE(6,105) IZON,I,(SIG(I,IJ),IJ=1,3) 00001730 + IF(NPUN.NE.1)GO TO 2 00001740 + WRITE(7,202) IZON,I,(SIG(I,IJ),IJ=1,3) 00001750 + WRITE(7,203)(SIGS(I,IJ),IJ=1,NG) 00001760 +C WRITE(6,106) I,(SIGS(I,IJ),IJ=1,NG) 00001770 + 2 CONTINUE 00001780 +C FINE LOOP SUI GRUPPI 00001790 +C IN SIGS(I,J) SONO DATI GLI SCATTERING DAL GRUPPO I AL GRUPPO J 00001800 + IF(UK.EQ.1.) GOTO50 00001810 +C MICRO 00001820 +C N1 E' IL NUMERO D'ORDINE DI OGNI MATERIALE SULL' OUTPUT BINARIO 00001830 + N1=N1+1 00001840 +C MANN IDENTIFICAZIONE DEI DATI (QUI NON VIENE USATO) 00001850 + IF(MTP)710,710,705 00001860 + 705 WRITE(MTP)N1,(MANN(I),I=1,4),(TITMAT(K),K=1,6),(VUOT(I),I=1,60) 00001870 + WRITE(MTP) ((SIG(K,2),SIG(K,3),SIG(K,1),ANU(K),BOH),K=1,NG),((SIGS00001880 + 1(K,L),L=1,NG),K=1,NG) 00001890 + 710 WRITE(6,334)((SIG(K,2),SIG(K,3),SIG(K,1),ANU(K),BOH),K=1,NG) 00001900 + IF(NPUN.EQ.1) IXYZ=IXYZ+1 00001910 +C IXYZ NUMERO D'ORDINE DI OGNI MATERIALE SULL'OUTPUT SCHEDE 00001920 + IF(NPUN.EQ.1) WRITE(7,1979) IXYZ,IXYZ,(TITMAT(K),K=1,6) 00001930 +C 00001940 +C NEL CASO DI U235 PER COMODITA' SI FA PERFORARE IL VALORE BILLY 00001950 +C BILLY=3.1E-11 COME TOTAL USEFUL ENERGY RELEASED PER FISSION 00001960 +C 00001970 + IF(NPUN.EQ.1.AND.IU35.NE.1) GOTO 1980 00001980 + WRITE(7,2001) BILLY 00001990 + WRITE(7,2002) 00002000 + GO TO 561 00002010 + 1980 IF(NPUN.EQ.1) WRITE(7,1978) 00002020 + 561 IF(NPUN.EQ.1) WRITE(7,333)((SIG(K,2),SIG(K,3),SIG(K,1),ANU(K),BO),00002030 + 1K=1,NG) 00002040 + IF(NPUN.EQ.1) WRITE(7,444)((SIGS(K,L),L=1,NG),K=1,NG) 00002050 + 1979 FORMAT (I4,I8,12X,6A4) 00002060 +C MICRO PER IL MATER.E CORRENTE E' FINITA, VA AL PROSSIMO MATERIALE 00002070 + GOTO50 00002080 +C 00002090 + 70 WRITE(6,1969) 00002100 + IF(UK.NE.2.) GOTO80 00002110 + IF(MTP)730,730,725 00002120 +C 00002130 +C WRITE RECORD CLOSURE ON TAPE MTP 00002140 + 725 KI=-1 00002150 + WRITE(MTP)(KI,(I,I=2,20)) 00002160 + END FILE MTP 00002170 + 730 GOTO80 00002180 + 500 STOP 00002190 +C-----F O R M A T I 00002200 + 78 FORMAT(18A4) 00002210 + 100 FORMAT(1H1,5X,'****CANCT - CONVERSIONE ANISN -------> CITATION', 00002220 + 1 ' VERS.VACCARI ****', ///,6X,20A4) 00002230 + 109 FORMAT(24X,3I12) 00002240 + 130 FORMAT(20A4) 00002250 + 150 FORMAT(A4,4X,18I4/20I4) 00002260 + 108 FORMAT(8X,'27$',19X,' U=',6I6) 00002270 + 151 FORMAT(1X,'VIENE SCRITTO IL NASTRO BINARIO PER CITATION :MTP=', 00002280 + 1I4, /,1X,18A4) 00002290 + 200 FORMAT(' 8') 00002300 + 201 FORMAT(3I3) 00002310 + 103 FORMAT(' GRUPPI',I3,'; MAX DOWN SCATT ',I3,'; MAX UP SCATT ',I3/('00002320 + 1 MATERIALI ',2A4, ' DA PERFORARE',20I4)) 00002330 + 104 FORMAT(1X,'IL NASTRO BINARIO PER CITATION ESISTE:MTP=',I3) 00002340 + 102 FORMAT(4A4,I3,2A4,I2,12A4) 00002350 + 202 FORMAT(2I6,1P5E12.5) 00002360 + 300 FORMAT(//' TITMAT: ',20A4,2I4) 00002370 + 105 FORMAT(' ZONA',I3,' GRUPPO',I3,' D,SA,NUSF= ',1P5E12.5) 00002380 + 203 FORMAT(1P6E12.5) 00002390 + 106 FORMAT(//' SIGMA SCATT DAL GRUPPO',I3/(1P6E12.5)) 00002400 + 2001 FORMAT (24X,1PE12.5) 00002410 + 2002 FORMAT(8(/)) 00002420 + 334 FORMAT(' SA,SF,STR,NU,SX=',1P5E12.5) 00002430 + 445 FORMAT(' SCATT=',1P6E12.5) 00002440 + 333 FORMAT(1P5E12.5) 00002450 + 1969 FORMAT(//1X,'FINE MATERIALI') 00002460 + 1978 FORMAT(9(/)) 00002470 + 444 FORMAT(1P6E12.5) 00002480 + END 00002490 + SUBROUTINE RDAN(D,N) 00002500 +C 00002510 +C LEGGE TUTTE LE SEZIONI D'URTO PER UN MATERIALE NEL FORMATO FIDO 00002520 +C (ANISN) SISTEMANDOLE NEL VETTORE D 00002530 +C 00002540 +C N E' IL NUMERO DI VALORI DA CONVERTIRE, DI SOLITO UGUALE AL 00002550 +C NUMERO GRUPPI *LUNGHEZZA TAVOLA DELLE SIGMA 00002560 +C 00002570 + DIMENSION D(N) 00002580 + DIMENSION NA(6),B(6),C(6),CC(6),CCC(6),P(6) 00002590 + REAL*4P 00002600 + DATA P/4H$ ,4H* ,4H ,4H+ ,4H- ,4HR /,MP/6/ 00002610 +C 00002620 + NN=1 00002630 + 50 CONTINUE 00002640 +C READ(5,100)((NA(I),B(I),C(I)),I=1,6) 00002650 + READ(5,100)((NA(I),B(I),C(I)),I=1,6),(CC(K),CCC(K),K=1,6) 00002660 +C READ(99,110)((CC(I),CCC(I)),I=1,6) 00002670 +C IN CC E CCC C'E' IL NUMERO 00002680 + 30 CONTINUE 00002690 +C 00002700 +C-----LOOP SUI 6 CAMPI DI OGNI SCHEDA IN FORMATO FIDO(ANISN) 00002710 + DO 3 NJ=1,6 00002720 +C FA IL TEST SE IL CAMPO DEL NUMERO E' TUTTO BLANK 00002730 +C SE TROVA UN CAMPO BIANCO, PASSA AD ESAMINARE IL CAMPO SUCCESSIVO 00002740 + IF(CC(NJ).EQ.P(3).AND.CCC(NJ).EQ.P(3)) GOTO3 00002750 +C ESAMINA IL TIPO DI CODIFICATORE 00002760 + DO 1 NP=1,MP 00002770 + IF(B(NJ).EQ.P(NP)) GOTO(5,6,7,8,9,10),NP 00002780 + 1 CONTINUE 00002790 +C 00002800 +C IL $ O ALTRI PARAMETRI DIVERSI DA QUELLI PREVISTI NON SONO TRATTA-00002810 +C TI 00002820 + 5 WRITE(6,101)B(NJ) 00002830 + 101 FORMAT(' *****ILPARAMETRO',A8,' DI ANISN NON E CONTEMPLATO VIENE 00002840 + 1IGNORATO') 00002850 +C L'ASTERISCO VIENE TRATTATO IMPLICITAMENTE IN QUANTO E' SEMPRE 00002860 +C SEGUITO DA 9 BLANK E NEL CAMPO SUCCESSIVO DA VALORI REAL 00002870 + 6 GOTO3 00002880 + 7 NA(NJ)=1 00002890 + 10 NAA=NA(NJ) 00002900 + DO 2 NJJ=1,NAA 00002910 + D(NN)=C(NJ) 00002920 + NN=NN+1 00002930 + IF(NN.GT.N) RETURN 00002940 + 2 CONTINUE 00002950 + GOTO3 00002960 + 9 NE=-1 00002970 + GOTO11 00002980 + 8 NE=1 00002990 + 11 D(NN)=C(NJ)*10.**(NA(NJ)*NE) 00003000 + NN=NN+1 00003010 + IF(NN.GT.N) RETURN 00003020 + 3 CONTINUE 00003030 + GOTO50 00003040 + 110 FORMAT(6(4X,2A4)) 00003050 + 100 FORMAT(6(I2,A1,E9.0),T1,6(4X,2A4)) 00003060 + END 00003070 + SUBROUTINE SKP(N1,MTP) 00003080 +C SUL NASTRO MTP ESISTENTE SI POSIZIONA SULL' ULTIMO RECORD 00003090 +C CHE E' UN INDICATORE DI FINE DATI 00003100 + LIM=5000 00003110 + 2 N1=N1+1 00003120 + READ(MTP,END=500) 00003130 + IF(N1.GT.LIM) GOTO600 00003140 + GOTO2 00003150 + 500 BACKSPACE MTP 00003160 + BACKSPACE MTP 00003170 + N1=(N1-2)/2 00003180 +C AL RITORNO, N1 INDICA IL NUMERO DI MATERIALI CONTENUTI SUL 00003190 +C NSTRO MTP 00003200 + RETURN 00003210 + 600 WRITE(6,100) LIM,MTP 00003220 + 100 FORMAT(' DOPO',I6,' RECORDS NON TROVATO END OF FILE SUL TAPE',00003230 + 1I6) 00003240 + STOP 00003250 + END 00003260 diff --git a/other/codmeta.json b/other/codmeta.json new file mode 100644 index 0000000..00543af --- /dev/null +++ b/other/codmeta.json @@ -0,0 +1,29 @@ +{ + "@context": "https://doi.org/10.5063/schema/codemeta-2.0", + "@type": "SoftwareSourceCode", + "name": "Legacy FORTRAN codes", + "description": "A collection of legacy FORTRAN codes for nuclear reactor cross section computations, developed at CNEN, and then at ENEA by Marcello Galli, between 1976 and 1987" + "codeRepository": "http://coding.bologna.enea.it/gitrepo/oldfortrancodes.git", + "downloadUrl": "http://coding.bologna.enea.it/gitrepo/oldfortrancodes.git", + "programmingLanguage": "FORTRAN", + "operatingSystem": "IBM 3090" + "license": "Public domain", + "dateCreated":"1977-12-01", + "developmentStatus": "Unsupported", + "creativeWorkStatus": "Legacy software" + "keywords": [ + "nuclear reactors", + "cross sections", + "fortran", + "software", + "ENEA","CNEN","C2RV","Micro","Teseo","Mediator","Medil","canco", + ], + "author": [ + { + "@type": "Person", + "givenName": "Marcello", + "familyName": "Galli", + "email": "marcello.galli@enea.it", + }, + ] +} diff --git a/other/dadi b/other/dadi new file mode 100644 index 0000000..628eec4 --- /dev/null +++ b/other/dadi @@ -0,0 +1,38 @@ +C GENERA DISTRIBUZIONE DEL LANCIO DI DUE DADI 00000010 +C PER SAPERE CHI PAGA IL CAFFE' 00000020 + DIMENSION NUM(12) 00000030 + DO 10 I=1,12 00000040 + 10 NUM(I)=0 00000050 + NUMEXT=100000 00000060 + DO 20 I=1,NUMEXT 00000070 + NUM1=RN32(X)*6+1 00000080 + NUM2=RN32(X)*6+1 00000090 + NUM(NUM1+NUM2)=NUM(NUM1+NUM2)+1 00000100 + 20 CONTINUE 00000110 + DO 30 I=1,12 00000120 + WRITE(6,1000) I,NUM(I) 00000130 + 1000 FORMAT(' VALORE ESTRATTO: ',I10,' NUMERO USCITE:',I10) 00000140 + 30 CONTINUE 00000150 + WRITE(6,2000) NUMEXT 00000160 + 2000 FORMAT(' NUMERO ESTRAZIONI:',I10) 00000170 + STOP 00000180 + END 00000190 + FUNCTION RN32(DUMMY) 00000191 +C IBM VERSION RANDOM NUMBER GENERATOR BY F.JAMES (78) 00000192 + DATAIY/65539/ 00000200 + DATA CONS/Z39200000/ 00000210 + IY=IY*69069 00000220 + IF(IY.GT.0) GO TO 6 00000230 + IY=IY+2147483647+1 00000240 + 6 CONTINUE 00000250 + JY=(IY/256)*256 00000260 + YFL=JY 00000270 + RN32=YFL*CONS 00000280 + RETURN 00000290 + ENTRY RN32IN(IX) 00000300 + IY=IX 00000310 + RETURN 00000320 + ENTRY RN32OT(IX) 00000330 + IX=IY 00000340 + RETURN 00000350 + END 00000360 diff --git a/other/diluit b/other/diluit new file mode 100644 index 0000000..7db83a2 --- /dev/null +++ b/other/diluit @@ -0,0 +1,679 @@ +C 00000010 + DIMENSION A(15000) 00000020 + CALL DILUIT(10000,A) 00000030 + STOP 00000040 + END 00000050 + SUBROUTINE DILUIT(N,A) 00000060 +C ********************** 00000070 +C CALCOLA MACROSCOPICHE DI CELLA E SEZIONE D'URTO DILUITE 00000080 +C PER DOT , SIGMA SU TAPE ANISN BY GROUPS 00000090 +C APRILE-MAGGIO 1983 - MARCELLO GALLI 00000100 +C 00000110 + DIMENSION A(N) 00000120 +C 300 GRUPPI 00000130 +C 50 REGIONI 00000140 +C 100 ISOTOPI 00000150 +C VEDI IN VOLIN1 DIM AMESH PER DIM REATTORE 00000160 +C VEDI IN GEOM PER ARGOMENTI FISSI IN CALL EMP 00000170 +C VEDI IN COLGRU DIMENSIONI FISSE, DEN HA UN LOOP FISSO A 100 00000180 +C 00000190 +C UNIT 5=INPUT ; 6= OUTPUT ; 11= PROMPT 00000200 +C 2= SIGMA IN ; 3= SIGMA OUT 00000210 +C 24= FLUSSI INPUT 00000220 +C 4=SIGMA COLLASSATE A POCHI GRUPPI 00000230 +C 00000240 +C C'E UN PO DI SOVRABBONDANZA IN QUESTI IH ECC 00000250 +C IHT=IHTO=IHTI ; IHM=IHMI NE IHMO ; 00000260 +C IHS=IHSI NE IHSO ; LA COSA E DOVUTA A PEZZI DEL 00000270 +C MEDIATOR INSERITI NEL PROGRAMMA 00000280 +C 00000290 + COMMON /PAR/NEI,NISO,IHM,IHT,IHS,NR,NX,NY,NSTMP,NPRT 00000300 + COMMON /UFF/ VT,FT(300),VR(50),FR(300,50) 00000310 + 1,NIS(100),ISR(100),DEN(100),ISM(100) 00000320 + COMMON /PAR1/NISOO,IHSO 00000330 + DIMENSION TIT(20) 00000340 + DIMENSION NPAR(10),DUM(2201) 00000350 + EQUIVALENCE(NEI,NPAR(1)) 00000360 + EQUIVALENCE(DUM(1),VT) 00000370 +C 00000380 +C PULIZIA COMMON UFF 00000390 + DO 5 J=1,2201 00000400 + 5 DUM(J)=0.0 00000410 +C 00000420 +C 00000430 +C 00000440 +C 00000450 +C LETTURA TITOLO TIT 00000460 +C 00000470 + WRITE(11,2000) 00000480 + READ(5,1000) TIT 00000490 + 2000 FORMAT(' TITOLO=?') 00000500 + 1000 FORMAT(20A4) 00000510 +C IL CARATTERE DI CONTROLLO =PRIMO CARATT TITOLO 00000520 +C 00000530 + WRITE(6,1000) TIT 00000540 + WRITE(11,1000) TIT 00000550 +C 00000560 +C READ PARAMETERS 00000570 +C 00000580 + 100 CONTINUE 00000590 + WRITE(11,2010) 00000600 + 2010 FORMAT(' PARAMETRI:20I4'/' NEI,NISO,IHM,IHT,IHS,NR,NX,NY,NSTMP,NPR00000610 + 1T',20I4) 00000620 + READ(5,1010)NEI,NISO,IHM,IHT,IHS,NR,NX,NY,NSTMP,NPRT 00000630 + 1010 FORMAT(20I4) 00000640 + IF(IHS.LE.0) IHS=IHT+1 00000650 +C 00000660 +C 00000670 + WRITE(6,2031) NEI,NISO,IHM,IHT,IHS,NR,NX,NY,NSTMP,NPRT 00000680 + 2031 FORMAT(' PARAMETRI:'/' NUM GRUPPI INPUT=',I10/' ISOTOPI =',I10/ 00000690 + 1' IHM,IHT,IHS =',3I10/' NUM REGION',I10/' DIM X (VOLUMETTI)='00000700 + 2,I10/' DIM Y =',I10/' PARAMETRO STAMPE=',I10/' NPRT:',I10) 00000710 + WRITE(11,2031)NEI,NISO,IHM,IHT,IHS,NR,NX,NY,NSTMP,NPRT 00000720 +C 00000730 +C CONTROLLI SUI PARAMETRI LETTI 00000740 + IF(IHT.GE.IHM) GO TO 110 00000750 + DO 10 I=1,7 00000760 + IF(NPAR(I).LT.1) GO TO 110 00000770 + 10 CONTINUE 00000780 + GO TO 120 00000790 + 110 CONTINUE 00000800 + WRITE(6,3000) I 00000810 + WRITE(11,3000) I 00000820 + 3000 FORMAT(' !!!!!!!!! ATTENZIONE ERROR INPUT PARAMETER:', 00000830 + 1I5,' .LT.1 REENTER PARAMETERS !!!!!!') 00000840 + GO TO 100 00000850 + 120 CONTINUE 00000860 +C 00000870 +C 00000880 +C 00000890 +C 00000900 +C 00000910 +C GEOMETRIA 00000920 + N1=1 00000930 + N2=N1+NX*NY 00000940 + N3=N2+NX*NY*NEI 00000950 + N4=N3+NR 00000960 + N5=N4+NR 00000970 + N6=N5+NR 00000980 + N7=N6+NR+5 00000990 + IF(N7.GT.N) STOP 1 00001000 +C 00001010 + CALL GEOM(NR,NX,NY,NEI,A(N1),A(N2),A(N3),A(N4),A(N5),A(N6),A(N00001020 + 17)) 00001030 +C 00001040 + N1=IHM*NISO+1 00001050 + IF(N1.GT.N) STOP 2 00001060 +C 00001070 + CALL FSIG(NISO,IHM,A(1),A(N1)) 00001080 +C 00001090 + WRITE(11,4000) 00001100 + 4000 FORMAT(' INPUT PARAMETRI PER MEDIE A POCHI GRUPPI:IHMO, 00001110 + 1IHSO') 00001120 + READ(5,1010) IHMO,IHSO 00001130 + IF(IHT.LE.0) GO TO 400 00001140 + WRITE(11,7000) IHMO,IHSO 00001150 + WRITE(6,7000) IHMO,IHSO 00001160 + 7000 FORMAT(' OUTPUT:LUNG TAVOLA:',I4,' SCATT:',2I4) 00001170 +C 00001180 +C 00001190 + N1=IHM*NISOO+1 00001200 +C 00001210 + CALL COLGRU(IHMO,NISOO+1,IHM,A(1),A(N1)) 00001220 +C 00001230 + 400 CONTINUE 00001240 +C 00001250 +C 00001260 + RETURN 00001270 + END 00001280 + SUBROUTINE GEOM(NR,NX,NY,NEI,V,F,NX1,NX2,NY1,NY2,MM) 00001290 +C *************************************************** 00001300 +C LEGGE VOLUMI E FLUSSI PER CELLETTE: V,F 00001310 +C CALCOLA VOL REGIONI :VR E FLUSSI MEDI REGIONE: FR 00001320 + DIMENSION V(NX,NY),F(NEI,NX,NY) 00001330 + COMMON /PAR/NEID,NISO,IHM,IHT,IHS,NRD,NXD,NYD,NSTMP 00001340 + COMMON /UFF/ VT,FT(300),VR(50),FR(300,50) 00001350 + 1,NIS(100),ISR(100),DEN(100),ISM(100) 00001360 + DIMENSION NX1(NR),NX2(NR),NY1(NR),NY2(NR) 00001370 + DIMENSION KR(12),KR1(12) 00001380 + DIMENSION MM(100,100) 00001390 +C 00001400 + CALL VOLIN1(NX,NY,1,V,MM) 00001410 +C 00001420 + CALL FIIN1(NEI,NX,NY,1,F) 00001430 +C 00001440 +C INPUT GEOMETRIA 00001450 + WRITE(11,7000) 00001460 + 7000 FORMAT(' ENTER PARAMETER FOR GEOMETRY DESC(=1 DOT)') 00001470 + READ(5,7001) NTIP1 00001480 + 7001 FORMAT(20I4) 00001490 + WRITE(6,7002) NTIP1 00001500 + WRITE(11,7002) NTIP1 00001510 + 7002 FORMAT(' LETTO: GEOMETRY PARAMETER:',I4) 00001520 + IF(NTIP1.EQ.1) GO TO 700 00001530 +C 00001540 +C 00001550 + WRITE(11,1000) 00001560 + DO 5 J=1,NR 00001570 + 1 READ(5,2000) (NX1(J),NX2(J),NY1(J),NY2(J)) 00001580 + IF(NX1(J).LE.0.OR.NX2(J).LE.0.OR.NY1(J).LE.0.OR.NY2(J).LE.0) 00001590 + 1 GO TO 6 00001600 + IF(NX1(J).GT.NX2(J).OR.NY1(J).GT.NY2(J)) GO TO 6 00001610 + GO TO 8 00001620 + 6 WRITE(6,900)J, NX1(J),NX2(J),NY1(J),NY2(J) 00001630 + WRITE(11,900)J, NX1(J),NX2(J),NY1(J),NY2(J) 00001640 + 900 FORMAT(' ERRORE IN INPUT REENTER REGION:',I5,' SCHEDA:',10I5) 00001650 + GO TO 1 00001660 + 8 CONTINUE 00001670 + 5 CONTINUE 00001680 +C 00001690 + 1000 FORMAT(' DARE X1,X2,Y1,Y2 PER OGNI REGIONE:4I4') 00001700 + 2000 FORMAT(20I4) 00001710 +C 00001720 +C CALCOLO VR ED FR 00001730 +C 00001740 + WRITE(6,3000) (J,NX1(J),NX2(J),NY1(J),NY2(J),J=1,NR) 00001750 + 3000 FORMAT(' REGIONE , DA VOL A VOL(X), DA VOL A VOL(Y)'/(1X,5I7))00001760 +C CALL EMP(0.0,50,1,1,VR) 00001770 +C CALL EMP(0.0,300,50,1,FR) 00001780 +C 00001790 + DO 10 I=1,NR 00001800 + N1=NX1(I) 00001810 + N2=NX2(I) 00001820 + N3=NY1(I) 00001830 + N4=NY2(I) 00001840 +C 00001850 + DO 20 IX=N1,N2 00001860 + DO 20 IY=N3,N4 00001870 + VR(I)=VR(I)+V(IX,IY) 00001880 + DO 30 IE=1,NEI 00001890 + FR(IE,I)=FR(IE,I)+F(IE,IX,IY)*V(IX,IY) 00001900 + 30 CONTINUE 00001910 + 20 CONTINUE 00001920 + 10 CONTINUE 00001930 + 770 CONTINUE 00001940 + WRITE(6,5000) (VR(J),J=1,NR) 00001950 + 5000 FORMAT(' VOLUMI PER OGNI REGIONE:'/10(1PE12.5)) 00001960 +C 00001970 + DO 31 IX=1,NX 00001980 + DO 31 IY=1,NY 00001990 + VT=VT+V(IX,IY) 00002000 + DO 31 IE=1,NEI 00002010 + 31 FT(IE)=FT(IE)+F(IE,IX,IY)*V(IX,IY) 00002020 + WRITE(6,6008) VT 00002030 + 6008 FORMAT('0 VOLUME TOTALE',1PE15.5) 00002040 + DO 32 I=1,NR 00002050 + 32 WRITE(6,6000) I,(FR(J,I),J=1,NEI) 00002060 + WRITE(6,6007) (FT(J),J=1,NEI) 00002070 + 6007 FORMAT(' FLUSSI INTEGRATI CELLA'/(1X,10(1PE12.5))) 00002080 +C 00002090 + DO 35 IE=1,NEI 00002100 + FT(IE)=FT(IE)/VT 00002110 + DO 36 I=1,NR 00002120 + FR(IE,I)=FR(IE,I)/VR(I) 00002130 + 36 CONTINUE 00002140 + 35 CONTINUE 00002150 +C 00002160 + DO 40 I=1,NR 00002170 + 40 WRITE(6,6006) I,(FR(J,I),J=1,NEI) 00002180 + WRITE(6,6009) (FT(J),J=1,NEI) 00002190 + 6009 FORMAT(' FLUSSI MEDI CELLA'/(1X,10(1PE12.5))) 00002200 + 6006 FORMAT(' REGIONE',I4,' FLUSSI MEDI SU VOL:'/(1X,10(1PE12.5))) 00002210 + RETURN 00002220 + 6000 FORMAT(' REGIONE',I4,' FLUSSI INTEGRATI :'/(1X,10(1PE12.5))) 00002230 + 700 CONTINUE 00002240 + KX=0 00002250 + KY=1 00002260 + 69 CONTINUE 00002270 + WRITE(11,7003) 00002280 + 7003 FORMAT(' DARE REGIONI CELLA :12(1X,2I,1X,2I) ') 00002290 + READ(5,7005)(KR(J),KR1(J),J=1,12) 00002300 + 7005 FORMAT(12(1X,I2,1X,I2)) 00002310 + DO 70 I=1,12 00002320 + IF(KR1(I).LE.0) GOTO70 00002330 +C NUM REGIONE TROPPO GROSSO 00002340 + IF(KR1(I).GT.NR) STOP 7 00002350 + IF(KR(I).LE.0) KR(I)=1 00002360 + N1=KR(I) 00002370 + DO 71 IJ=1,N1 00002380 + KX=KX+1 00002390 + MM(KX,KY)=KR1(I) 00002400 + IF(KX.EQ.NX) GO TO 701 00002410 + GO TO 71 00002420 + 701 KY=KY+1 00002430 + KX=0 00002440 + IF(KY.GT.NY) GO TO 705 00002450 + 71 CONTINUE 00002460 + 70 CONTINUE 00002470 + GO TO 69 00002480 + 705 CONTINUE 00002490 + WRITE(6,77) 00002495 + 77 FORMAT(7(1X,' MAPPA ')) 00002496 + DO 72 I=1,NY 00002500 + WRITE(6,7077) (MM(J,I),J=1,NX) 00002510 +C WRITE(11,7006) I,(MM(J,I),J=1,NX) 00002520 + 72 CONTINUE 00002530 + 7006 FORMAT(' COORD REATTORE: COL=',I4,'= ',(1X,20I4)) 00002540 + 7077 FORMAT(1X,65I2) 00002545 +C 00002550 +C CALCOLO VR ED FR 00002560 +C 00002570 +C CALL EMP(0.0,50,1,1,VR) 00002580 +C CALL EMP(0.0,300,50,1,FR) 00002590 +C 00002600 + DO 73 IX=1,NX 00002610 + DO 73 IY=1,NY 00002620 + VR(MM(IX,IY))=VR(MM(IX,IY))+V(IX,IY) 00002630 + DO 73 IE=1,NEI 00002640 + FR(IE,MM(IX,IY))=FR(IE,MM(IX,IY))+F(IE,IX,IY)*V(IX,IY) 00002650 + 73 CONTINUE 00002660 + GO TO 770 00002670 +C 00002680 +C 00002690 + END 00002700 +C 00002710 + SUBROUTINE FSIG(NIS1,IHM1,SIGI,SIGO) 00002720 +C *********************************** 00002730 + DIMENSION SIGI(IHM1,NIS1),SIGO(IHM1,2) 00002740 + COMMON /PAR/NEI,NISO,IHM,IHT,IHS,NR,NX,NY,NSTMP 00002750 + COMMON /UFF/ VT,FT(300),VR(50),FR(300,50) 00002760 + 1,NIS(100),ISR(100),DEN(100),ISM(100) 00002770 + COMMON /PAR1/NISOO 00002780 + ITEST=0 00002790 +C ITEST =1 SE QUALCHE NUM MACRO.LE.0 ALLORA METTE LUI I NUM MACR00002800 + NT=0 00002810 + 10 CONTINUE 00002820 + NT1=NT+1 00002830 + IF(NT1.GT.100.OR.NT1.LE.0) STOP 3 00002840 + 98 CONTINUE 00002850 + WRITE(11,1001) 00002860 + 1001 FORMAT(' FORNIRE : NUM ISOTOPO,REGIONE,MACRO,RHO :3I4,E12.5') 00002870 + READ(5,2000) NIS(NT1),ISR(NT1),ISM(NT1),DEN(NT1) 00002880 + IF(NIS(NT1).LE.0) GO TO 100 00002890 + IF(ISM(NT1).NE.1) GO TO 99 00002900 + IF(ISM(NT1).EQ.1) WRITE(6,2001) NIS(NT1),ISR(NT1),ISM(NT1),DEN 00002910 + 1(NT1) 00002920 + 2001 FORMAT(' !!!!!!!!! ****** ERRORE **** NUM ISOTOPO DILUITO DEVE 00002930 + 1 ESSERE .GT. 1 ( 1 = MACRO DI CELLA) '/' ??SCHEDA INGORATA', 00002940 + 23I4,1PE12.5) 00002950 + IF(ISM(NT1).EQ.1) GO TO 98 00002960 + 99 CONTINUE 00002970 + IF(NIS(NT1).LE.0.OR.NIS(NT1).GT.NISO) GO TO 101 00002980 + IF(ISR(NT1).GT.NR.OR.ISR(NT1).LE.0) GO TO 101 00002990 + GO TO 102 00003000 + 101 WRITE(11,2002) NIS(NT1),ISR(NT1),ISM(NT1),DEN(NT1) 00003010 + WRITE(6,2002) NIS(NT1),ISR(NT1),ISM(NT1),DEN(NT1) 00003020 + 2002 FORMAT(' SCHEDA SBAGLIATA, PARAMETRO FUORI CAMPO. ', 00003030 + 1' SCHEDA IGNORATA:',3I5,1PE12.5) 00003040 + GOTO 98 00003050 + 102 CONTINUE 00003060 + 2000 FORMAT(3I4,E12.0) 00003070 +C LA SCHEDA E' STATA FINALMENTE PRESA PER BUONA 00003080 + IF(ISM(NT1).LE.0) ITEST=1 00003090 + NT=NT+1 00003100 + WRITE(11,1000) NT,NIS(NT),ISR(NT),ISM(NT),DEN(NT) 00003110 + 1000 FORMAT(' ISOTOPI:SCHEDA:',I4,' ISOTPO:',I4,' REGIONE:',I4,' MACRO00003120 + 1:',I4,' DENS:',1PE12.5) 00003130 + GO TO 10 00003140 + 100 CONTINUE 00003150 + WRITE(6,5000)(I,NIS(I),ISR(I),ISM(I),DEN(I),I=1,NT) 00003160 + 5000 FORMAT(' SCHEDA,ISOTOPO,REGIONE,MACRO,DENS'/(1X,4I5,1PE12.5)) 00003170 +C 00003180 +C 00003190 +C OCCHIO ALLE INTERFERENZE FRA MACRO COSTRUITE E QUELLE 00003200 +C DATE IN INPUT. 00003210 +C QUI COSTRUISCE MACRO DANDO NUMERI= QUELLI MICRO +1, 00003220 +C CHE E' LA MACRO DI CELLA 00003230 +C 00003240 +C CREAZIONE ISM ( NUMERO DELLA MACRO) 00003250 + IF(ITEST.EQ.1) GO TO 150 00003260 +C CONTA LE MACRO ASSEGNATE IN INPUT (MAX 100 MACRO ) 00003270 +C IN QUESTO CASO FA MACRO DI ZONA,NUM MACRO DATI IN INPUT 00003280 + NISOO=1 00003290 + DO 17 I=2,100 00003300 + DO 18 J=1,NT 00003310 + IF(ISM(J).NE.I) GO TO 111 00003320 + NISOO=NISOO+1 00003330 + IF(NISOO.NE.I) WRITE(11,2500) I,NISOO,J 00003340 + 2500 FORMAT(' ERRORE!!!!! ESISTE MACRO NUM:',I5,' CON TOT NUM 00003350 + 1MACRO=',I5,' SCHEDA:',I5) 00003360 + GO TO 180 00003370 + 111 CONTINUE 00003380 + 18 CONTINUE 00003390 + 180 CONTINUE 00003400 + 17 CONTINUE 00003410 + GO TO 125 00003420 + 150 CONTINUE 00003430 +C 00003440 +C 00003450 +C IN QUESTO CASO FA DILUIZIONE ISOTOPI,NUMERI CRESCETI PER OGNI 00003460 +C SCHEDA SONO ASSEGNATI COME NUMERI DELLE MACRO 00003470 + DO 13 I=1,NT 00003480 + 13 ISM(I)=I+1 00003490 + NISOO=NT+1 00003500 +C 00003510 + 3000 FORMAT(' SCHEDA ISOTOPO REGIONE MACRO RHO'/(1X,4I7,1PE12.5))00003520 + 125 CONTINUE 00003530 + WRITE(6,3000) (J,NIS(J),ISR(J),ISM(J),DEN(J),J=1,NT) 00003540 + REWIND 3 00003550 + REWIND 2 00003560 + DO 3 IE=1,NEI 00003570 + READ(2) ((SIGI(J,J1),J=1,IHM),J1=1,NISO) 00003580 + IF(NSTMP.GT.100) WRITE(6,3300) IE,((SIGI(J,J1),J=1,IHM),J1=1,NISO)00003590 + 3300 FORMAT(' SIGMA INPUT DA UNIT 2 : GRUPPO :',I4/(1X,10(1PE12.5))) 00003600 + CALL EMP(0.0,IHM,NISOO,1,SIGO) 00003610 + DO 15 I=1,NT 00003620 +C NEL CASO SI FACCIA MACRO MOLTIPLICA PER RHO,PER SINGOLI ISOTOPI 00003630 +C DILUITI NO 00003640 + DUM=1. 00003650 + IF(ITEST.EQ.0) DUM=DEN(I) 00003660 +C 00003670 + DO 20 IH=1,IHT 00003680 +C I FI SONO MEDI SU VOLUMI,QUESTO PERCHE TASSI MACRO SI CONSERVANO 00003690 +C CHE SONO FATTI CON RHO DI CELLA (DENS DILUITE) 00003700 + SIGO(IH,ISM(I))=SIGO(IH,ISM(I))+SIGI(IH,NIS(I))*FR(IE,ISR(I)) 00003710 + 1/FT(IE)*DUM 00003720 +C LA MACRO CHE SEGUE USA DENSITA DILUITA 00003730 + SIGO(IH,1)=SIGI(IH,NIS(I))*(FR(IE,ISR(I))/FT(IE))*DEN(I)*VR(IS 00003740 + 1R(I))/VT+SIGO(IH,1) 00003750 + 20 CONTINUE 00003760 + IHT1=IHT+1 00003770 + DO 25 IH=IHT1,IHM 00003780 +C GRUPPO DI PROVENIENZA 00003790 + IO=IE+(IHS-IH) 00003800 + IF(IO.LT.1.OR.IO.GT.NEI) GO TO 25 00003810 +C 00003820 + SIGO(IH,ISM(I))=SIGO(IH,ISM(I))+SIGI(IH,NIS(I))*FR(IO,ISR(I)) 00003830 + 1/FT(IO)*DUM 00003840 +C LA MACRO CHE SEGUE USA DENSITA DILUITA 00003850 + SIGO(IH,1)=SIGI(IH,NIS(I))*(FR(IO,ISR(I))/FT(IO))*DEN(I)*VR(IS 00003860 + 1R(I))/VT+SIGO(IH,1) 00003870 + 25 CONTINUE 00003880 +C 00003890 +C 00003900 + 15 CONTINUE 00003910 +C 00003920 +C STAMPE ( 00003930 + IF(NSTMP.LT.15) GO TO 300 00003940 + DO 30 I=1,NISOO 00003950 + WRITE(6,4000)IE,I,(SIGO(J,I),J=1,IHM) 00003960 + 4000 FORMAT(' SCRITTO SU TAPE 3 :GRUPPO:',I4,' ISOTOPO DILUITO(MACRO00003970 + 1):',I4/(1X,10(1PE12.5))) 00003980 + 30 CONTINUE 00003990 + 300 CONTINUE 00004000 +C 00004010 +C 00004020 + WRITE(3) ((SIGO(J,J1),J=1,IHM),J1=1,NISOO) 00004030 + 3 CONTINUE 00004040 + RETURN 00004050 + END 00004060 + SUBROUTINE VOLIN1(MX,MY,MZ,VOL,AMESH) 00004070 +C +++++++++++++++++++++++++++++++++++++++++++++ 00004080 +C LETTURA VOLUMI 00004090 +C 00004100 + DIMENSION VOL(MX,MY,MZ),AMESH(1000,MY) 00004110 + COMMON /PAR/NEI,NISO,IHM,IHT,IHS,NR,NX,NY,NSTMP 00004120 + IM=NX+1 00004130 + JM=NY+1 00004140 +C 00004150 + WRITE(11,1000) 00004160 + 1000 FORMAT(' ENTER PARAMETER GEOMETRIA(1=X-Y,2=CYL,0=VOL,LT.0=1.')00004170 + READ(5,1100) NGEOM 00004180 + WRITE(6,1100) NGEOM 00004190 + WRITE(11,1100) NGEOM 00004200 + IF(NGEOM.EQ.0) GO TO 200 00004210 + IF(NGEOM.LT.0) GO TO 400 00004220 + 1100 FORMAT(20I4) 00004230 +C 00004240 +C 00004250 + WRITE(6,1200) 00004260 + WRITE(11,1200) 00004270 + 1200 FORMAT(' MESH-(X-Y),X=1,NX+1;Y=1,NY+1 ') 00004280 + READ(5,2110) (AMESH(J,1),J=1,IM) 00004290 + READ(5,2110) (AMESH(J,2),J=1,JM) 00004300 + WRITE(6,2111) (AMESH(J,1),J=1,IM) 00004310 + WRITE(6,2111) (AMESH(J,2),J=1,JM) 00004320 + 2111 FORMAT(' AMESH: '/6(1PE12.5)) 00004330 + WRITE(11,2111) (AMESH(J,1),J=1,IM) 00004340 + WRITE(11,2111) (AMESH(J,2),J=1,JM) 00004350 + 2110 FORMAT(6E12.5) 00004360 +C 00004370 + DO 20 IX=1,NX 00004380 + DO 20 IY=1,NY 00004390 + DO 20 IZ=1,NZ 00004400 + VOL(IX,IY,IZ)=(AMESH(IX+1,1)-AMESH(IX,1))*(AMESH(IY+1,2)-AMESH(IY,00004410 + 12)) 00004420 + IF(NGEOM.EQ.2) VOL(IX,IY,IZ)=3.14159 *(AMESH(IX+1,1)**2 00004430 + 1 -AMESH(IX,1)**2) * (AMESH(IY+1,2)-AMESH(IY,2)) 00004440 +C 00004450 + 20 CONTINUE 00004460 +C 00004470 +C 00004480 + IF(NSTMP.GT.10) 00004490 + 1WRITE(6,5500) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ) 00004500 + RETURN 00004510 + 200 CONTINUE 00004520 +C LETTURA DI DEFAULT 00004530 + WRITE(11,4000) 00004540 + 4000 FORMAT(' FORNIRE I VOLUMI(IX,IY,IZ,X=...),Y=...),Z=...)6E12.5') 00004550 + READ(5,5000) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ) 00004560 + WRITE(6,5500) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ) 00004570 + WRITE(11,5500)(((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ) 00004580 + 5500 FORMAT(' VOLUMI:'/10(1PE12.5)) 00004590 + 5000 FORMAT(6E12.5) 00004600 + RETURN 00004610 +C VOLUMI UGUALI =1. 00004620 + 400 CONTINUE 00004630 + DO 40 JX=1,NX 00004640 + DO 40 JY=1,NY 00004650 + DO 40 JZ=1,NZ 00004660 + 40 VOL(JX,JY,JZ)=1. 00004670 + WRITE(6,5500) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ) 00004680 + WRITE(11,5500)(((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ) 00004690 + RETURN 00004700 +CC 00004710 + END 00004720 + SUBROUTINE FIIN1(NEI,NX,NY,NZ,FI) 00004730 +C ***************************************** 00004740 + COMMON /PAR/NED,NISO,IHM,IHT,IHS,NR,XD,YD,NSTMP 00004750 +C INPUT FLUSSI 00004760 +C 00004770 + DIMENSION FI(NEI,NX,NY,NZ) 00004780 + WRITE(11,1000) 00004790 + 1000 FORMAT(' INPUT TIPO FLUSSI: SE NE.0 SONO PIATTI') 00004800 + READ(5,1100) KFLU 00004810 + WRITE(6,1200) KFLU 00004820 + WRITE(11,1200) KFLU 00004830 + 1200 FORMAT(' PARAMETRO FLUSSI =',I5) 00004840 + 1100 FORMAT(20I4) 00004850 + IF(KFLU.NE.0) GO TO400 00004860 +C 00004870 + 100 CONTINUE 00004880 +C +++++++++++++++++++++++++ TIPO DOT 00004890 + REWIND 24 00004900 + DO 20 J=1,NEI 00004910 + 20 READ(24) (((FI(J,J1,J2,J3),J1=1,NX),J2=1,NY),J3=1,NZ) 00004920 + REWIND 24 00004930 + IF(NSTMP.LT.30) GO TO 150 00004940 + 140 CONTINUE 00004950 + DO 50 JG=1,NEI 00004960 + WRITE(6,4000) JG 00004970 + 4000 FORMAT(' FLUSSO GRUPPO:',I10) 00004980 + DO 51 J3=1,NZ 00004990 + WRITE(6,4001) J3 00005000 + 4001 FORMAT(' DIMENSIONE Z=',I10) 00005010 + DO 52 J2=1,NY 00005020 + WRITE(6,4002)J2 00005030 + 4002 FORMAT(' DIM Y',I10) 00005040 + WRITE(6,4003) (FI(JG,J1,J2,J3),J1=1,NX) 00005050 + 4003 FORMAT(1X,10(1PE12.5)) 00005060 + 52 CONTINUE 00005070 + 51 CONTINUE 00005080 + 50 CONTINUE 00005090 + 150 CONTINUE 00005100 +C 00005110 +C 00005120 + RETURN 00005130 +C 00005140 +C INPUT FLUSSI PIATTI = 1. 00005150 + 400 CONTINUE 00005160 + DO 40 I=1,NEI 00005170 + DO 40 JX=1,NX 00005180 + DO 40 JY=1,NY 00005190 + DO 40 JZ=1,NZ 00005200 + 40 FI(I,JX,JY,JZ)=1. 00005210 + GO TO 140 00005220 +C 00005230 +C RETURN 00005240 + END 00005250 + SUBROUTINE EMP(K,N1,N2,N3,L) 00005260 +C ****************************** 00005270 +C EMPIE L(N1,N2,N3) CON K 00005280 +C 00005290 + DIMENSION L(N1,N2,N3) 00005300 + DO 10 I=1,N1 00005310 + DO 10 J=1,N2 00005320 + DO 10 JJ=1,N3 00005330 + 10 L(I,J,JJ)=K 00005340 + RETURN 00005350 + END 00005360 +C 00005370 + SUBROUTINE COLGRU(IHMO,NOSO1,IHM,SIGI,SIGO) 00005380 +C ****************************************** 00005390 +C SUBROUTINE FOR GROUP COLLAPSING 00005400 +C 00005410 + DIMENSION NGRP(300),SIGI(IHM,10),SIGO(IHM,NOSO1,20) 00005420 + COMMON /PAR1/ NISOO,IHSO 00005430 + COMMON /PAR/NEI,NISO,IHMD,IHT,IHS,NR,NX,NY,NSTMP,NPRT 00005440 + COMMON /UFF/ VT,FT(300),VR(50),FR(300,50) 00005450 + 1,NIS(100),ISR(100),DEN(100),ISM(100) 00005460 +C 00005470 +C 00005480 + IHSI=IHS 00005490 + IHTO=IHT 00005500 + IHTI=IHT 00005510 + IHT1=IHT+1 00005520 +C 00005530 + IHMI=IHM 00005540 +C ANNULLA DEN USATO PER DENOMINATORI 00005550 + DO 5I=1,100 00005560 + 5 DEN(I)=0.0 00005570 +C 00005580 + NEO=1 00005590 + NPROX=1 00005600 + 10 CONTINUE 00005610 + WRITE(11,1000) NEO,N1,N2 00005620 + 1000 FORMAT(' ENTER LIMITI GRUPPI FINI DEL GRUPPO GROSSO:',I5, 00005630 + 1' GRUPPO PREC DA:',I5,' AD:',I5) 00005640 + READ(5,2000) N1,N2 00005650 + 2000 FORMAT(20I4) 00005660 + IF(N1.LE.0) GO TO 100 00005670 +C CONTROLLI 00005680 + IF(N1.NE.NPROX) GO TO 150 00005690 + IF(N2.LT.N1) GO TO 150 00005700 + GO TO 160 00005710 + 150 WRITE(11,3000) N1,N2,NPROX,NEO 00005720 + 3000 FORMAT(' INPUT ERROR N1,N2,PROX GRUPP,GRUPPO ATTUALE:',4I5, 00005730 + 1' REENTER INPUT') 00005740 + GO TO 10 00005750 + 160 CONTINUE 00005760 +C COSTRUZIONE NGRP PER IL GRUPPO IN QUESTIONE 00005770 +C 00005780 + DO 20 I=N1,N2 00005790 + DEN(NEO)=DEN(NEO)+FT(I) 00005800 + 20 NGRP(I)=NEO 00005810 + NEO=NEO+1 00005820 + NPROX=N2+1 00005830 + IF(NPROX.EQ.NEI+1) GO TO 200 00005840 + GO TO 10 00005850 + 100 IF(NPROX.GT.NEI) GO TO 200 00005860 + DO 30 I=NPROX,NEI 00005870 + DEN(NEO)=DEN(NEO)+FT(I) 00005880 + 30 NGRP(I)=NEO 00005890 + NEO=NEO+1 00005900 + 200 CONTINUE 00005910 + NEO=NEO-1 00005920 +C 00005930 +C STAMPE STRUTTURE GRUPPALI COSTRUITE 00005940 +C 00005950 + DO 40 I=1,NEI 00005960 + 40 WRITE(6,4000) I,NGRP(I),DEN(NGRP(I)) 00005970 + 4000 FORMAT(' GRUPPO FINE:',I4,' = ',I4,' GRUPPO GROSSO',' FLUSSO='00005980 + 1,1PE12.5) 00005990 +C 00006000 +C 00006010 + REWIND 3 00006020 + CALL EMP(0.0,IHM,NOSO1,NEO,SIGO) 00006030 +C 00006040 + DO 50 IE=1,NEI 00006050 + READ(3) (( SIGI(J,JJ),J=1,IHM),JJ=1,NISOO) 00006060 + IF(IHT-2.LT.1) GO TO 555 00006070 + SIGO(IHT-2,1,NGRP(IE))=SIGO(IHT-2,1,NGRP(IE)) 00006080 + 1 +FT(IE)/(3.*SIGI(IHT,1)*DEN(NGRP(IE))) 00006090 +C 00006100 + 555 CONTINUE 00006110 + SIGO(IHT,1,NGRP(IE))=SIGO(IHT,1,NGRP(IE)) 00006120 + 1 + FT(IE)/(SIGI(IHT,1)*DEN(NGRP(IE))*3.) 00006130 +C 00006140 + DO 95 IS=1,NISOO 00006150 + DO 60 IH=1,IHT 00006160 + 60 SIGO(IH,IS+1,NGRP(IE))=SIGO(IH,IS+1,NGRP(IE)) + 00006170 + 1 SIGI(IH,IS)*FT(IE)/DEN(NGRP(IE)) 00006180 +C 00006190 + DO 90 IH=IHT1,IHMI 00006200 +C GRUPPO DI PROVENIENZA 00006210 +C EVITA SCRITTE INUTILI SCATT FUORI TAVOLA PER SIGMA NULLE 00006220 + IF(SIGI(IH,IS).EQ.0.) GO TO 90 00006230 +C GRUPPO PROVENIENZA UFG 00006240 + NGFROM=IE+(IHSI-IHT1)-(IH-IHT1) 00006250 +C 00006260 + IF(NGFROM.GT.NEI.OR.NGFROM.LT.1) 00006270 + 1 WRITE(6,3990) NGFROM,IE,IHSI,IHT1,IH,IS 00006280 +C WRITE(6,3990) NGFROM,IE,IHSI,IHT1,IH,IS 00006290 + IF(NGFROM.GT.NEI.OR.NGFROM.LT.1) 00006300 + 1 WRITE(11,3990) NGFROM,IE,IHSI,IHT1,IH,IS 00006310 + 3990 FORMAT(' WARNING !!!'/' ERRORE IN NGFROM IN LOOP 90,NGFROM,IE,IHSI00006320 + 1 IHT1,IH,IS'/1X,10I10) 00006330 +C 00006340 +C 00006350 + IF(NGFROM.GT.NEI) NGFROM=NEI 00006360 + IF(NGFROM.LT.1) NGFROM=1 00006370 +C 00006380 +C GRUPPO DI FINE UFG 00006390 +C NGTO=IE 00006400 +C GRUPPO DI FINE BG 00006410 +C NGTOO=NGRP(IE) 00006420 +C POSIZIONE IN TAVOLA ANISN BG(GRUPPO PROVENIENZA BG 00006430 + NIHO=IHSO-(NGRP(NGFROM)-NGRP(IE)) 00006440 +C 00006450 + IF(NIHO.LE.IHTO.OR.NIHO.GT.IHMO) 00006460 + 1 WRITE(11,3399) (NIHO,IHSO,NGRP(IE),IE,NGFROM,NGRP(NGFROM),IH,IS) 00006470 +C WRITE(6,3399) (NIHO,IHSO,NGRP(IE),IE,NGFROM,NGRP(NGFROM),IH,IS) 00006480 +C IF(NIHO.LE.IHTO.OR.NIHO.GT.IHMO) 00006490 +C 1 WRITE(6,3399) (NIHO,IHSO,NGRP(IE),IE,NGFROM,NGRP(NGFROM),IH,IS) 00006500 + 3399 FORMAT(' ATTENZIONE COMPRESSIONE SCATTERING PARAMETRI LOOP 00006510 + 1 90 NIHO,IHSO,NGRP(IE),IE,NGROM,NGRP(NGFROM),IH,IS'/1X,10I10) 00006520 +C 00006530 + IF(NIHO.LE.IHTO) NIHO=IHTO+1 00006540 + IF(NIHO.GT.IHMO) NIHO=IHMO 00006550 +C 00006560 +C 00006570 + SIGO(NIHO,IS+1,NGRP(IE))=SIGO(NIHO,IS+1,NGRP(IE)) 00006580 + 1 +SIGI(IH,IS)*FT(NGFROM)/DEN(NGRP(NGFROM)) 00006590 + 90 CONTINUE 00006600 + 95 CONTINUE 00006610 + 50 CONTINUE 00006620 + REWIND 3 00006630 + REWIND 4 00006640 + NOSO2=NOSO1 00006645 + IF(NPRT.NE.1) NOSO2=2 00006650 + DO 80 IE=1,NEO 00006660 + WRITE(4) ((SIGO(J,JJ,IE),J=1,IHMO),JJ=1,NOSO2) 00006670 + IF(NSTMP.GT.3)WRITE(6,8000)IE,((SIGO(J,JJ,IE),J=1,IHMO),JJ=1,NOSO200006680 + 1) 00006690 + 8000 FORMAT(' GRUPPO:',I5,' SIGMA POCHI GRUPPI SU UNIT 4:'/(1X,10(1PE1200006700 + *.5))) 00006701 + 80 CONTINUE 00006710 + REWIND 4 00006720 + RETURN 00006730 + END 00006740 diff --git a/other/mediator b/other/mediator new file mode 100644 index 0000000..8a56d6a --- /dev/null +++ b/other/mediator @@ -0,0 +1,563 @@ +C 00000010 +C MAIN DEL PROGRAMMA MEDIATOR 00000020 +C SERVE SOLO AI DIMENSIONAMENTI 00000030 +C 00000040 +C 00000050 + DIMENSION FI(5,50,50,1),VOL(50,50,1) 00000060 + DIMENSION NGRP(5) 00000070 + DATA MEI,MX,MY,MZ/5,50,50,1/ 00000080 +C FI DEVE AVERE DIM SPAZIALI VOLUMETTI+1,E USATO PER LE 00000090 +C INTERFACCE SPAZIALI DA SUB.VOLIN 00000100 +C 00000110 + DIMENSION SREAD(5,30) 00000120 + DATA MIHMI,MMIC/5,30/ 00000130 + DIMENSION SWRIT(5,5,20),DEN(5,5,20) 00000140 + DATA MEO,MIHMO,MMAC/5,5,20/ 00000150 +C 00000160 +C DIMENSIONI: FI(MEI,MX,MY,MZ)=FLUSSI E SPAZIO PER VARIE SUBROUTINES00000170 +C VOL(MX,MY,MZ)= VOLUMETTI 00000180 +C NGRP(MEI)=NUMERO GRUPPO GROSSO DI OGNI GRUPPO FINE 00000190 +C SREAD(MIHMI,MMIC)=SIGMA INPUT ANISN 1 GRUPPO 00000200 +C SWRIT(MEO,MIHMO,MMAC)=SIGMA OUTPUT,DEN(MEO,MIHMO,MMAC)=DENOM MEDI00000210 +C 00000220 + CALL PROG(MEI,MX,MY,MZ,FI,VOL,NGRP,MIHMI,MMIC,SREAD,MEO,MIHMO,MMA00000230 + 1C,SWRIT,DEN) 00000240 + STOP 00000250 + END 00000260 +C 00000270 +C 00000280 +C 00000290 + SUBROUTINE PROG(MEI,MX,MY,MZ,FI,VOL,NGRP, 00000300 + 1MIHMI,MMIC,SREAD,MEO,MIHMO,MMAC,SWRIT,DEN) 00000310 +C 00000320 +C :::::::::::::::::::::::: PROGRAMMA MEDIATOR ::::::: 00000330 +C 00000340 +C DIMENSIONAMENTI 00000350 +C 00000360 +C 00000370 + DIMENSION FI(MEI,MX,MY,MZ),VOL(MX,MY,MZ),SREAD(MIHMI,MMIC) 00000380 + DIMENSION SWRIT(MEO,MIHMO,MMAC),DEN(MEO,MIHMO,MMAC) 00000390 + DIMENSION NGRP(MEI) 00000400 +C 00000410 +C 00000420 +C ********************************************************** 00000430 +C 00000440 +C M E D I A T O R 00000450 +C 00000460 +C PROGRAMMA DI COLLASSAMENTO SPAZIO ENERGETICO DI SEZIONI D'URTO 00000470 +C 00000480 +C AUTORE: MARCELLO GALLI 00000490 +C DATA: OTTOBRE 1982 00000500 +C 00000510 +C ********************************************************** 00000520 +C 00000530 +C TAPE24=FI,TAPE2=SIGMA INPUT(ANISN BY GROUPS),TAPE3=SIGMA OUTPUT 00000540 +C TAPE25=VOLUMI DA KENO,TAPE5=INPUT,TAPE6=OUTPUT,TAPE11=TERMINAL OUT00000550 +C 00000560 +C PREFISSI VARIABILI: O=OUTPUT,I=INPUT,M=PER DIMENSIONI 00000570 +C GLI ALTRI SIGNIFICATI SONO OVVI 00000580 +C 00000590 +C 00000600 +C DIMENSION FI(170,50,50,1),VOL(50,50,1) 00000610 +C DIMENSION NGRP(170) 00000620 +C DATA MEI,MX,MY,MZ/170,50,50,1/ 00000630 +C FI DEVE AVERE DIM SPAZIALI VOLUMETTI+1,E USATO PER LE 00000640 +C INTERFACCE SPAZIALI DA SUB.VOLIN 00000650 +C 00000660 +C DIMENSION SREAD(170,30) 00000670 +C DATA MIHMI,MMIC/170,30/ 00000680 +C DIMENSION SWRIT(170,170,20),DEN(170,170,20) 00000690 +C DATA MEO,MIHMO,MMAC/170,170,20/ 00000700 +C 00000710 +C 00000720 +C I DIMENSIONAMENTI SONO PORTATI IN UN MAIN PER MAGGIOR FLESSIBILITA00000730 +C 00000740 + DIMENSION RHO(11,70) 00000750 + DIMENSION MIX(11,70) 00000760 + EQUIVALENCE (RHO(1,1),MIX(1,1)) 00000770 + DIMENSION TIT(20) 00000780 + DIMENSION NPAR(14) 00000790 + EQUIVALENCE (NPAR(1),NEI) 00000800 + COMMON/PAR/NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,IHTO,IHSO,NMIC,NMA00000810 + 1C,NSTMP,KFI,KVOL,KSIG,NSOM 00000820 +C 00000830 +C DIMENSIONI: FI(MEI,MX,MY,MZ)=FLUSSI E SPAZIO PER VARIE SUBROUTINES00000840 +C VOL(MX,MY,MZ)= VOLUMETTI 00000850 +C NGRP(MEI)=NUMERO GRUPPO GROSSO DI OGNI GRUPPO FINE 00000860 +C SREAD(MIHMI,MMIC)=SIGMA INPUT ANISN 1 GRUPPO 00000870 +C SWRIT(MEO,MIHMO,MMAC)=SIGMA OUTPUT,DEN(MEO,MIHMO,MMAC)=DENOM MEDI00000880 +C RHO=MIX(11,MMIC)= PARAMETRI DELLA MIXING TABLE, PER OGNI MATERIAL00000890 +C DA MISCHIARE 1 SCHEDA CON: 00000900 +C ISOTOPO MICRO,ISOTOPO MACRO,LIMITI X(2 VALORI) LIMITI Y, LIMITI Z,00000910 +C COST K CHE MOLTIPLICA I VOLUMI, K1 CHE MOLTIPLICA FI A DEN, DENSI00000920 +C 00000930 +C NPAR/ SONO I PARAMETRI DI INPUT NEL COMMON 00000940 +C 00000950 +C LETTURA TITOLO TIT 00000960 +C 00000970 + WRITE(11,2000) 00000980 + READ(5,1000) TIT 00000990 + 2000 FORMAT(' TITOLO=?') 00001000 + 1000 FORMAT(20A4) 00001010 +C IL CARATTERE DI CONTROLLO =PRIMO CARATT TITOLO 00001020 +C 00001030 + WRITE(6,1000) TIT 00001040 + WRITE(11,1000) TIT 00001050 +C 00001060 +C READ PARAMETERS 00001070 +C 00001080 + WRITE(11,2010) 00001090 + 2010 FORMAT(' PARAMETRI:20I4'/' NEI, NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,00001100 + 1IHTO,IHSO,NMIC,NMAC,NSTMP') 00001110 + READ(5,1010)(NPAR(J),J=1,14) 00001120 + 1010 FORMAT(20I4) 00001130 +C 00001140 +C 00001150 + WRITE(6,2031) (NPAR(J),J=1,14) 00001160 + 2031 FORMAT(' PARAMETRI:'/' NUM GRUPPI INPUT=',I10/' MAX DIM X=',I10/ 00001170 + 1' MAX DIM Y=',I10/' MAX DIM Z=',I10/' NUM GRUPPI OUTPUT=',I10/ 00001180 + 2' IHM INPUT=',I10/' IHT INPUT=',I10/' IHS INPUT=',I10/ 00001190 + 3' IHM OUTPUT=',I10/' IHT OUTPUT=',I10/' IHS OUTPUT=',I10 00001200 + 4/' NUMERO ISOTOPI SU TAPE DI INPUT=',I10/' NUMERO ISOTOPI PRODOTTI00001210 + 5=',I10/' PARAMETRO STAMPE=',I10/) 00001220 + WRITE(11,2030) (NPAR(J),J=1,14) 00001230 +C 00001240 +C NON ESISTONO CONTROLLI SUI PARAMETRI LETTI: FARE ATTENZIONE 00001250 +C 00001260 +C INPUT GROUPS NUMBERS FOR COLLAPSING 00001270 +C 00001280 + WRITE(11,2020)NEI 00001290 + 2020 FORMAT(' 20I4,NUMERO GRUPPO OUT DI OGNI GRUPPO INPUT?',I10,'VALOR00001300 + 1I') 00001310 + READ(5,1010) (NGRP(J),J=1,NEI) 00001320 + WRITE(6,2032) (NGRP(J),J=1,NEI) 00001330 + 2032 FORMAT(' INDICI PER COLLASSAMENTO GRUPPI:'/(1X,20I5)) 00001340 + WRITE(11,2030) (NGRP(J),J=1,NEI) 00001350 + 2030 FORMAT(1X,20I4) 00001360 +C 00001370 +C ANCHE QUI NON ESISTONO CONTROLLI SULL'INPUT STARE ATTENTI 00001380 +C 00001390 +C ++++++++++++++++++++++++++++++++++++ LOOP 10 00001400 +C INPUT MIXING TABLE (MAX NUM SCHEDE =SECONDA DIM DI MIX E RHO ) 00001410 +C 00001420 + NSOM=0 00001430 + 10 CONTINUE 00001440 + N1=NSOM+1 00001450 + WRITE(11,2040) 00001460 + 2040 FORMAT(' DARE 9I4:NUM ISO MICRO,NUM MACRO,LIMITI X1,X2,Y1,Y2,Z1, 00001470 + 1Z2,K,K1,RHO. (DEFAULTS =1) ') 00001480 + READ(5,1030) (MIX(J,N1),J=1,11) 00001490 + 1030 FORMAT(10I4,E12.5) 00001500 +C USCITA LOOP 00001510 + IF(MIX(1,N1).LE.0) GO TO 100 00001520 + IF(MIX(2,N1).LE.0) GO TO 100 00001530 +C DEFAULTS 00001540 + DO 20 I=3,10 00001550 + IF(MIX(I,N1).LE.0) MIX(I,N1)=1 00001560 + 20 CONTINUE 00001570 + IF(RHO(11,N1).LE.0) RHO(11,N1)=1. 00001580 +C 00001590 + WRITE(6,1031) (MIX(J,N1),J=1,11) 00001600 + 1031 FORMAT(' ISOTOPO MICRO=',I3,' MACRO=',I3,' LIMITI X=',2I3, 00001610 + 2' LIMITI Y=',2I3,' LIMITI Z=',2I3,' FATT MOLT VOL=',2I3,' RHO=' 00001620 + 3,E11.4) 00001630 + WRITE(11,1030)(MIX(J,N1),J=1,11) 00001640 +C 00001650 + NSOM=NSOM+1 00001660 + GO TO 10 00001670 + 100 CONTINUE 00001680 +C 00001690 +C +++++++++++++++++++++++++++++++++ FINE LOOP 10 00001700 +C INPUT SIGMA: LE METTE SU TAPE 00001710 +C ANISN PER GRUPPI ( DUMMY) 00001720 +C 00001730 + CALL TAPAN(FI,SWRIT,DEN,SREAD) 00001740 +C 00001750 +C INPUT DEI VOLUMI (USA FI COME SPAZIO 00001760 +C 00001770 + CALL VOLIN(MX,MY,MZ,VOL,FI) 00001780 +C 00001790 +C 00001800 +C INPUT FI 00001810 +C 00001820 + CALL FIIN(MEI,MX,MY,MZ,FI) 00001830 +C 00001840 +C 00001850 +C 00001860 +C +++++++++++++++++++++++++++++++++++++++++++++++++ 00001870 +C +++++++++++++++++++++++++++++++++++++++++++++++ 00001880 +C LOOPS DI SOMMATORIA 00001890 +C ++++++++++++++++++++++++++++++++++++++++++++++++ 00001900 +C ++++++++++++++++++++++++++++++++++++++++++++++ 00001910 +C 00001920 +C AZZERAMENTI 00001930 +C 00001940 + CALL EMP(0.0,MEO,MIHMO,MMAC,SWRIT) 00001950 + CALL EMP(0.0,MEO,MIHMO,MMAC,DEN) 00001960 +C 00001970 +C REWIND TAPE ANISN BY GROUPS 00001980 + REWIND 2 00001990 +C 00002000 +C ++++++++++++++++++ LOOP 50 SUI GRUPPI INPUT 00002010 +C 00002020 + DO 50 IG=1,NEI 00002030 +C 00002040 +C LEGGE 1 GRUPPO TAPE ANISN GRUPPI 00002050 +C 00002060 + READ(2) ((SREAD(J,JJ),J=1,IHMI),JJ=1,NMIC) 00002070 + IF(NSTMP.LT.20) GO TO 155 00002080 + DO 51 JJ=1,NMIC 00002090 + 51 WRITE(6,1110) (JJ,(SREAD(J,JJ),J=1,IHMI)) 00002100 + 1110 FORMAT(' MICRO',I10,' SIGMA:'/(1X,10E12.5)) 00002110 + 155 CONTINUE 00002120 +C 00002130 +C ++++++++++++++++++++++++++++++ LOOP 60 ISOTOPI MIXING 00002140 +C 00002150 + DO 60 IS=1,NSOM 00002160 +C 00002170 + I1=MIX(3,IS) 00002180 + I2=MIX(4,IS) 00002190 + J1=MIX(5,IS) 00002200 + J2=MIX(6,IS) 00002210 + K1=MIX(7,IS) 00002220 + K2=MIX(8,IS) 00002230 +C 00002240 +C +++++++++++++++++++++++++++ LOOP 70 GEOMETRIA 00002250 +C 00002260 + DO 70 IX=I1,I2 00002270 + DO 70 IY=J1,J2 00002280 + DO 70 IZ=K1,K2 00002290 +C 00002300 +C +++++++++++++++++++++++++++ LOOP 80 TAVOLA ANISN 00002310 +C 00002320 + DO 80 IH=1,IHTI 00002330 +C PER ELIMINARE O AGGIUNGERE POSTI DI ACTIVITIES 00002340 + IO=IHTO-(IHTI-IH) 00002350 + IF(IO.LE.0) GO TO 80 00002360 + SWRIT(NGRP(IG),IO,MIX(2,IS))=SWRIT(NGRP(IG),IO,MIX(2,IS))+ 00002370 + 1SREAD(IH,MIX(1,IS))*FI(IG,IX,IY,IZ)*VOL(IX,IY,IZ)* 00002380 + 2 RHO(11,IS)*MIX(9,IS) 00002390 +C 00002400 + DEN(NGRP(IG),IO,MIX(2,IS))=DEN(NGRP(IG),IO,MIX(2,IS))+ 00002410 + 1 FI(IG,IX,IY,IZ)*VOL(IX,IY,IZ)*MIX(9,IS)/MIX(10,IS) 00002420 +C 00002430 +C WRITE(6,9999) SWRIT(NGRP(IG),IO,MIX(2,IS)),SREAD(II,MIX(1,IS)), 00002440 +C 1FI(IG,IX,IY,IZ),VOL(IX,IY,IZ),RHO(10,IS),MIX(9,IS),DEN(NGRP(IG),IO00002450 +C 2,MIX(2,IS)),MIX(2,IS) 00002460 +C9999 FORMAT(1X,5E12.5,I10,E12.5,I10) 00002470 + 80 CONTINUE 00002480 +C 00002490 +C ;+++++++++++++++++++++++++++++ FINE LOOP 80 00002500 +C 00002510 +C SCATTERING 00002520 +C 00002530 +C ++++++++++++++++++++++++++++++ LOOP 90 SCATTERING 00002540 +C 00002550 + IHT1=IHTI+1 00002560 + DO 90 IH=IHT1,IHMI 00002570 +C GRUPPO DI PROVENIENZA 00002580 +C EVITA SCRITTE INUTILI SCATT FUORI TAVOLA PER SIGMA NULLE 00002590 + IF(SREAD(IH,MIX(1,IS)).EQ.0.) GO TO 90 00002600 +C GRUPPO PROVENIENZA UFG 00002610 + NGFROM=IG+(IHSI-IHT1)-(IH-IHT1) 00002620 +C 00002630 + IF(NGFROM.GT.NEI.OR.NGFROM.LT.1) 00002640 + 1 WRITE(6,3000) NGFROM,IG,IHSI,IHT1,IH,IS 00002650 +C WRITE(6,3000) NGFROM,IG,IHSI,IHT1,IH,IS 00002660 + IF(NGFROM.GT.NEI.OR.NGFROM.LT.1) 00002670 + 1 WRITE(11,3000) NGFROM,IG,IHSI,IHT1,IH,IS 00002680 + 3000 FORMAT(' WARNING !!!'/' ERRORE IN NGFROM IN LOOP 90,NGFROM,IG,IHSI00002690 + 1 IHT1,IH,IS'/1X,10I10) 00002700 +C 00002710 +C 00002720 + IF(NGFROM.GT.NEI) NGFROM=NEI 00002730 + IF(NGFROM.LT.1) NGFROM=1 00002740 +C 00002750 +C GRUPPO DI FINE UFG 00002760 +C NGTO=IG 00002770 +C GRUPPO DI FINE BG 00002780 +C NGTOO=NGRP(IG) 00002790 +C POSIZIONE IN TAVOLA ANISN BG(GRUPPO PROVENIENZA BG 00002800 + NIHO=IHSO-(NGRP(NGFROM)-NGRP(IG)) 00002810 +C 00002820 + IF(NIHO.LE.IHTO.OR.NIHO.GT.IHMO) 00002830 + 1 WRITE(11,3300) (NIHO,IHSO,NGRP(IG),IG,NGFROM,NGRP(NGFROM),IH,IS) 00002840 +C WRITE(6,3300) (NIHO,IHSO,NGRP(IG),IG,NGFROM,NGRP(NGFROM),IH,IS) 00002850 +C IF(NIHO.LE.IHTO.OR.NIHO.GT.IHMO) 00002860 +C 1 WRITE(6,3300) (NIHO,IHSO,NGRP(IG),IG,NGFROM,NGRP(NGFROM),IH,IS) 00002870 + 3300 FORMAT(' ATTENZIONE COMPRESSIONE SCATTERING PARAMETRI LOOP 00002880 + 1 90 NIHO,IHSO,NGRP(IG),IG,NGROM,NGRP(NGFROM),IH,IS'/1X,10I10) 00002890 +C 00002900 + IF(NIHO.LE.IHTO) NIHO=IHTO+1 00002910 + IF(NIHO.GT.IHMO) NIHO=IHMO 00002920 +C 00002930 + SWRIT(NGRP(IG),NIHO,MIX(2,IS))=SWRIT(NGRP(IG),NIHO,MIX(2,IS))+ 00002940 + 1 SREAD(IH,MIX(1,IS))*FI(NGFROM,IX,IY,IZ)*VOL(IX,IY,IZ)* 00002950 + 1 RHO(11,IS)*MIX(9,IS) 00002960 +C 00002970 +C 00002980 +C WRITE(6,9998) SWRIT(NGRP(IG),NIHO,MIX(2,IS)),SREAD(IH,MIX(1,IS)), 00002990 +C 1FI(NGFROM,IX,IY,IZ),VOL(IX,IY,IZ),RHO(10,IS),MIX(1,IS),MIX(2,IS) 00003000 +C 2,DEN(NGRP(IG),NIHO,MIX(2,IS)) 00003010 +C9998 FORMAT(1X,5E12.5,2I10,E12.5) 00003020 + 90 CONTINUE 00003030 + 70 CONTINUE 00003040 + 60 CONTINUE 00003050 + 50 CONTINUE 00003060 + REWIND 2 00003070 +C 00003080 +C ++++++++++++++++++++++++++ FINE LOOP 90 SU IH 00003090 +C ++++++++++++++++++++++++++ FINE LOOP 70 SPAZIALE 00003100 +C +++++++++++++++++++++++++++ FINE LOOP 60 MIXING 00003110 +C +++++++++++++++++++++++++++ FINE LOOP 50 GRUPPI 00003120 +C 00003130 +C 00003140 +C CALCOLO DENOMINATORI DELLO SCATTERING CHE SE MESSI NEL LOOP 00003150 +C SOPRA AVREBBERO UNA SOMMATORIA SU GRUPPI DI ARRIVO IN PIU 00003160 +C E NON ESTESA A TUTTI I GRUPPI FINI APPARTENENTI AL GROSSO 00003170 +C DI PROVENIENZA 00003180 +C 00003190 + IHT1=IHTO+1 00003200 +C ................................... LOOP GRUPPI OUTPUT 00003210 + DO 63 IG=1,NEO 00003220 +C ................................... LOOP SU TAVOLA IH DI OUTPUT 00003230 + DO 65 IH=IHT1,IHMO 00003240 +C CALCOLO B G DI PROVENIENZA 00003250 + NBGP=IG+(IHSO-IHTO)-(IH-IHTO) 00003260 + IF(NBGP.LT.1.OR.NBGP.GT.NEO) GO TO 650 00003270 +C 00003280 +C ..................................... LOOP GRUPPI FINI DEL BG PROV00003290 + DO 67 IGI=1,NEI 00003300 + IF(NGRP(IGI).NE.NBGP) GO TO 670 00003310 +C ....................................... LOOP MIXING TABLE 00003320 + DO 69 IS=1,NSOM 00003330 +C 00003340 + I1=MIX(3,IS) 00003350 + I2=MIX(4,IS) 00003360 + J1=MIX(5,IS) 00003370 + J2=MIX(6,IS) 00003380 + K1=MIX(7,IS) 00003390 + K2=MIX(8,IS) 00003400 +C 00003410 +C +++++++++++++++++++++++++++ LOOP 69 GEOMETRIA 00003420 +C 00003430 + DO 69 IX=I1,I2 00003440 + DO 69 IY=J1,J2 00003450 + DO 69 IZ=K1,K2 00003460 +C 00003470 + DEN(IG,IH,MIX(2,IS))=DEN(IG,IH,MIX(2,IS))+ 00003480 + 1 FI(IGI,IX,IY,IZ)*VOL(IX,IY,IZ)*MIX(9,IS)/MIX(10,IS) 00003490 +C 00003500 + 69 CONTINUE 00003510 +C 00003520 + 670 CONTINUE 00003530 + 67 CONTINUE 00003540 +C 00003550 + 650 CONTINUE 00003560 + 65 CONTINUE 00003570 + 630 CONTINUE 00003580 + 63 CONTINUE 00003590 +C 00003600 +C ............................... FINE LOOPS CALCOLO DENOM SCATT 00003610 +C 00003620 +C 00003630 +C 00003640 +C DIVIDE PER I DENOMINATORI 00003650 + DO 92 I=1,NEO 00003660 + DO 92 I1=1,IHMO 00003670 + DO 92 I2=1,NMAC 00003680 + IF(DEN(I,I1,I2).NE.0.) SWRIT(I,I1,I2)=SWRIT(I,I1,I2)/DEN(I,I1,I2) 00003690 + 92 CONTINUE 00003700 +C 00003710 +C STAMPA SIGMA OUTPUT 00003720 +C FA TAPE ANISN PER GRUPPI 00003730 + REWIND 3 00003740 + DO 94 I=1,NEO 00003750 + WRITE(3) ((SWRIT(I,J,JJ),J=1,IHMO),JJ=1,NMAC) 00003760 +C 00003770 + IF(NSTMP.LT.15) GO TO 200 00003780 + DO 97 JJ=1,NMAC 00003790 + WRITE(6,4440) (I,JJ,(SWRIT(I,J,JJ),J=1,IHMO)) 00003800 + 4440 FORMAT(' GRUPPO:',I5,'MACRO:',I10,' SIGMA:'/(1X,10E12.5)) 00003810 + 97 CONTINUE 00003820 + 200 CONTINUE 00003830 +C 00003840 + 94 CONTINUE 00003850 + REWIND 3 00003860 + RETURN 00003870 + END 00003880 + SUBROUTINE FIIN(MEI,MX,MY,MZ,FI) 00003890 +C ***************************************** 00003900 +C INPUT FLUSSI 00003910 +C 00003920 + DIMENSION FI(MEI,MX,MY,MZ) 00003930 + COMMON/PAR/NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,IHTO,IHSO,NMIC,NMA00003940 + 1C,NSTMP,KFI,KVOL,KSIG,NSOM 00003950 +C 00003960 + WRITE(11,1000) 00003970 + 1000 FORMAT(' DARE I FLUSSI TIPO INPUT (I4)1=KENO,2=DOT :') 00003980 + READ(5,1001) KFI 00003990 + 1001 FORMAT(20I4) 00004000 + WRITE(6,1002) KFI 00004010 + WRITE(11,1002) KFI 00004020 + 1002 FORMAT(1X,20I4) 00004030 + IF(KFI.EQ.4) GO TO 400 00004040 + IF(KFI.NE.1) GO TO 100 00004050 +C +++++++++++++++ TIPO KENO 00004060 + REWIND 24 00004070 + 15 READ(24,END=130) LBG,IG,LL,LU 00004080 + N2=LU-LL+1 00004090 + READ(24,END=130) (FI(IG,LBG,J,1),J=1,N2) 00004100 + IF(NSTMP.GT.11) WRITE(6,3000)IG,LBG,(FI(IG,LBG,J,1),J=1,N2) 00004110 + 3000 FORMAT(' GRUPPO',I10,' BOX',I10/' FI PER REGIONE:'/(1X,10E12.5)) 00004120 + GO TO 15 00004130 + 130 CONTINUE 00004140 + REWIND 24 00004150 + RETURN 00004160 + 100 CONTINUE 00004170 +C 00004180 + IF(KFI.NE.2) GO TO 200 00004190 +C +++++++++++++++++++++++++ TIPO DOT 00004200 + REWIND 24 00004210 + DO 20 J=1,NEI 00004220 + 20 READ(24) (((FI(J,J1,J2,J3),J1=1,NX),J2=1,NY),J3=1,NZ) 00004230 + REWIND 24 00004240 + IF(NSTMP.LT.11) GO TO 150 00004250 + 140 CONTINUE 00004260 + DO 50 JG=1,NEI 00004270 + WRITE(6,4000) JG 00004280 + 4000 FORMAT(' FLUSSO GRUPPO:',I10) 00004290 + DO 51 J3=1,NZ 00004300 + WRITE(6,4001) J3 00004310 + 4001 FORMAT(' DIMENSIONE Z=',I10) 00004320 + DO 52 J2=1,NY 00004330 + WRITE(6,4002)J2 00004340 + 4002 FORMAT(' DIM Y',I10) 00004350 + WRITE(6,4003) (FI(JG,J1,J2,J3),J1=1,NX) 00004360 + 4003 FORMAT((5(1X,E12.5))) 00004370 + 52 CONTINUE 00004380 + 51 CONTINUE 00004390 + 50 CONTINUE 00004400 + 150 CONTINUE 00004410 +C 00004420 + RETURN 00004430 +C 00004440 + 200 CONTINUE 00004450 + WRITE(11,5000) 00004460 + 5000 FORMAT(' FORNIRE I FLUSSI(X,Y,Z,GRUPPO),X=1,NX),Y=1,NY),Z=1,NZ)N00004470 + 1EI (6E12.0)') 00004480 + READ(5,5001)((((FI(J,J1,J2,J3),J1=1,NX),J2=1,NY),J3=1,NZ),J=1,NEI)00004490 + 5001 FORMAT(6E12.0) 00004500 + GO TO 140 00004510 +C 00004520 +C 00004530 +C INPUT FLUSSI PIATTI = 1. 00004540 + 400 CONTINUE 00004550 + DO 40 I=1,NEI 00004560 + DO 40 JX=1,NX 00004570 + DO 40 JY=1,NY 00004580 + DO 40 JZ=1,NZ 00004590 + 40 FI(I,JX,JY,JZ)=1. 00004600 + GO TO 140 00004610 +C 00004620 + END 00004630 + SUBROUTINE VOLIN(MX,MY,MZ,VOL,AMESH) 00004640 +C +++++++++++++++++++++++++++++++++++++++++++++ 00004650 +C LETTURA VOLUMI 00004660 +C 00004670 + DIMENSION VOL(MX,MY,MZ),AMESH(MX,MY) 00004680 + COMMON/PAR/NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,IHTO,IHSO,NMIC,NMA00004690 + 1C,NSTMP,KFI,KVOL,KSIG,NSOM 00004700 + WRITE(11,1000) 00004710 + 1000 FORMAT(' TIPO INPUT VOLUMI (I4) ,1=KENO,2=DOT(MESH,3=SCHEDE') 00004720 + READ(5,1100) KVOL 00004730 + 1100 FORMAT(20I4) 00004740 +C PER COME NE RIEMPIE PEZZI IL KENO 00004750 +C 00004760 + CALL EMP(0.0,MX,MY,MZ,VOL) 00004770 + IF(KVOL.EQ.4) GO TO 400 00004780 +C +++++++++++++++++++++++++++ DA KENO 00004790 + IF(KVOL.NE.1) GO TO 100 00004800 + REWIND 25 00004810 +C 00004820 + NBOX1=0 00004830 + 10 READ(25,END=150)NBOX,VOLL 00004840 + IF(NBOX.NE.NBOX1) I=0 00004850 + I=I+1 00004860 + VOL(NBOX,I,1)=VOLL 00004870 + IF(NSTMP.GT.10) WRITE(6,2000)NBOX,I,VOL(NBOX,I,1) 00004880 + 2000 FORMAT(' SCATOLA:',I10,' REGIONE:',I10,'VOLUME:',E12.5) 00004890 +C 00004900 + NBOX1=NBOX 00004910 + GO TO 10 00004920 + 150 CONTINUE 00004930 + REWIND 25 00004940 + RETURN 00004950 + 100 CONTINUE 00004960 +C ++++++++++++++++++++++++ TIPO DOT 00004970 + IF(KVOL.NE.2) GO TO 200 00004980 + IM=NX+1 00004990 + JM=NY+1 00005000 +C 00005010 +C 00005020 + WRITE(6,1200) 00005030 + WRITE(11,1200) 00005040 + 1200 FORMAT(' MESH-(X-Y),X=1,NX+1;Y=1,NY+1 ') 00005050 + READ(5,2110) (AMESH(J,1),J=1,IM) 00005060 + READ(5,2110) (AMESH(J,2),J=1,JM) 00005070 + WRITE(6,2111) (AMESH(J,1),J=1,IM) 00005080 + WRITE(6,2111) (AMESH(J,2),J=1,JM) 00005090 + 2111 FORMAT(1X,6E12.5) 00005100 + WRITE(11,2111) (AMESH(J,1),J=1,IM) 00005110 + WRITE(11,2111) (AMESH(J,2),J=1,JM) 00005120 + 2110 FORMAT(6E12.5) 00005130 +C 00005140 + DO 20 IX=1,NX 00005150 + DO 20 IY=1,NY 00005160 + DO 20 IZ=1,NZ 00005170 + VOL(IX,IY,IZ)=(AMESH(IX+1,1)-AMESH(IX,1))*(AMESH(IY+1,2)-AMESH(IY,00005180 + 12)) 00005190 + 20 CONTINUE 00005200 +C 00005210 +C 00005220 + IF(NSTMP.GT.10) 00005230 + 1WRITE(6,5500) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ) 00005240 + RETURN 00005250 + 200 CONTINUE 00005260 +C LETTURA DI DEFAULT 00005270 + WRITE(11,4000) 00005280 + 4000 FORMAT(' FORNIRE I VOLUMI(IX,IY,IZ,X=...),Y=...),Z=...)6E12.5') 00005290 + READ(5,5000) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ) 00005300 + WRITE(6,5500) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ) 00005310 + WRITE(11,5500)(((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ) 00005320 + 5500 FORMAT(' VOLUMI:',5E12.5) 00005330 + 5000 FORMAT(6E12.5) 00005340 + RETURN 00005350 +C VOLUMI UGUALI =1. 00005360 + 400 CONTINUE 00005370 + DO 40 JX=1,NX 00005380 + DO 40 JY=1,NY 00005390 + DO 40 JZ=1,NZ 00005400 + 40 VOL(JX,JY,JZ)=1. 00005410 + WRITE(6,5500) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ) 00005420 + WRITE(11,5500)(((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ) 00005430 + RETURN 00005440 + END 00005450 + SUBROUTINE TAPAN(A,B,C,D) 00005460 +C *********************: 00005470 + DIMENSION A(1),B(1),C(1),D(1) 00005480 +C DUMMY 00005490 +C 00005500 + RETURN 00005510 + END 00005520 + SUBROUTINE EMP(K,N1,N2,N3,L) 00005530 +C ****************************** 00005540 +C EMPIE L(N1,N2,N3) CON K 00005550 +C 00005560 + DIMENSION L(N1,N2,N3) 00005570 + DO 10 I=1,N1 00005580 + DO 10 J=1,N2 00005590 + DO 10 JJ=1,N3 00005600 + 10 L(I,J,JJ)=K 00005610 + RETURN 00005620 + END 00005630 diff --git a/other/medil4d b/other/medil4d new file mode 100644 index 0000000..1a4a0d6 --- /dev/null +++ b/other/medil4d @@ -0,0 +1,2070 @@ + DIMENSION AA(400000) 00000100 + MAA=400000 00000200 + CALL PROG0(AA,MAA) 00000300 + STOP 00000400 + END 00000500 +C 00000600 + SUBROUTINE PROG0(AA,MAA) 00000700 +C ****************************************** 00000800 +C 00000900 +C SUBROUTINE DI DIMENSIONAMENTO DELLA QUARTA 00001000 +C VERSIONE DEL PROGRAMMA MEDIL: 00001100 +C 00001200 +C ============= M E D I L 4 ================ 00001300 +C 00001400 +C MARCELLO GALLI DICEMBRE 1984 00001500 +C LAST UPDATED:GIUGNO 85 00001510 +C VOLZ E VOLT IN DOPPIA PRECISIONE : AGOSTO 85 00001520 +C 00001530 +C ****************************************** 00001600 +C 00001700 + DIMENSION AA(MAA) 00001800 + COMMON/TIT/TIT(18) 00001900 + COMMON /PAR/ NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI, 00002000 + * IHMO,IHTO,IHSO,NMIC,NMAC,NSTMP, 00002100 + * KDIL,KFI,KVOL,KSIG,NSOM,KDIL1,NZON,NGEOM, 00002200 + * NDI,NEOD,IHMD,OHTD,IHSD, 00002300 + * KMIX,MX89,MIXISO,NMIX 00002400 +C 00002500 +C LETTURA TITOLO TIT 00002600 +C 00002700 + WRITE(11,999 ) 00002800 + READ(5,998) TIT 00002900 + 999 FORMAT(' TITOLO=?') 00003000 + 998 FORMAT(18A4) 00003100 + WRITE(6,997) TIT 00003200 + WRITE(11,997) TIT 00003300 + 997 FORMAT(1X,20A4) 00003400 + WRITE(11,1000) 00003500 + 1000 FORMAT(' FORNIRE I SEGUENTI PARAMETRI:'/ 00003600 + * ' NGEOM,NX,NY,NZ,NZON,NEI,IHMI,IHTI,IHSI,NMIC,' 00003700 + * 'NEO,IHMO,IHTO,IHSO,NMAC,KDIL,KDIL1,STMP') 00003800 + READ(5,2000) 00003900 + * NGEOM,NX,NY,NZ,NZON,NEI,IHMI,IHTI,IHSI,NMIC, 00004000 + * NEO,IHMO,IHTO,IHSO,NMAC,KDIL,KDIL1,NSTMP 00004100 + KDIL=1 00004200 + 2000 FORMAT(18I4) 00004300 + WRITE(11,3000) 00004400 + 3000 FORMAT(' DARE I SEGUENTI PARAMETRI:'/ 00004500 + *' KSIG,KVOL,KFI,KMIX,MX89,MIXISO,NDI,NEOD,IHMD,IHTD,IHSD') 00004600 + READ(5,2000) KSIG,KVOL,KFI,KMIX,MX89,MIXISO,NDI, 00004700 + * NEOD,IHMD,IHTD,IHSD 00004800 + WRITE(6,4000) 00004900 + * NGEOM,NX,NY,NZ,NZON,NEI,IHMI,IHTI,IHSI,NMIC, 00005000 + * NEO,IHMO,IHTO,IHSO,NMAC,KDIL,KDIL1,NSTMP 00005100 + 4000 FORMAT(/' PARAMETRO GEOMETRIA NGEOM=',I10, 00005200 + * /' VOLUMETTI IN DIMENSIONE X=',I10, 00005300 + * /' VOLUMETTI IN DIMENSIONE Y=',I10, 00005400 + * /' VOLUMETTI IN DIMENSIONE Z=',I10, 00005500 + * /' NUMERO ZONE (NZON) =',I10, 00005600 + * /' NUMERO GRUPPI INPUT (NEI)=',I10, 00005700 + * /' IHM DI INPUT (IHMI) =',I10, 00005800 + * /' IHT DI INPUT (IHTI) =',I10, 00005900 + * /' IHS DI INPUT (IHSI) =',I10, 00006000 + * /' NUMERO SIGMA INPUT (NMIC)=',I10, 00006100 + * /' NUMERO GRUPPI OUTPUT(NEO)=',I10 00006200 + * /' IHM DI OUTPUT (IHMO) =',I10, 00006300 + * /' IHT DI OUTPUT (IHTO) =',I10, 00006400 + * /' IHS DI OUTPUT (IHSO) =',I10, 00006500 + * /' SPAZIO SIGMA OUTPUT(NMAC)=',I10, 00006600 + * /' PARAMETRO KDIL =',I10, 00006700 + * /' PARAMETRO KDIL1 =',I10, 00006800 + * /' PARAMETRO STAMPE (NSTMP) =',I10) 00006900 + WRITE(6,5000) KSIG,KVOL,KFI,KMIX,MX89,MIXISO,NDI,NEOD,IHMD, 00007000 + * IHTD,IHSD 00007100 + 5000 FORMAT(/' PARAMETRO TIPO SIGMA INPUT (KSIG) =',I10, 00007200 + * /' PARAMETRO TIPO VOLUMI INPUT (KVOL) =',I10, 00007300 + * /' PARAMETRO TIPO FLUSSI INPUT (KFI) =',I10, 00007400 + * /' PARAMETRO TIPO FORMATO INPUT (KMIX) =',I10, 00007500 + * /' DIMENSIONI MAX SEZIONI ANISN (MX89) =',I10, 00007600 + * /' NUMERO SIGMA CREATE DA MIXING(MIXISO)=',I10, 00007700 + * /' NUMERO DEI COEFFICIENTI DI DIFFUSIONE=',I10, 00007800 + * /' NUMERO GRUPPI OUT COEFF DIFFUSIONE =',I10, 00007900 + * /' IHM DI OUTPUT COEFF DI DIFFUSIONE =',I10, 00008000 + * /' IHT DI OUTPUT COEFF DI DIFFUSIONE =',I10, 00008100 + * /' IHS DI OUTPUT COEFF DI DIFFUSIONE =',I10) 00008200 +C 00008300 +C FISSA I PARAMETRI DI DIMENSIONAMENTO PER LE CHIAMATE ALLE SUB. 00008400 +C 00008500 + MEI=NEI 00008600 + MX=NX 00008700 + MY=NY 00008800 + MZ=NZ 00008900 + MIHMI=IHMI 00009000 + MMIC=NMIC 00009100 + MEO=NEO 00009200 + MIHMO=IHMO 00009300 + MMAC=NMAC 00009400 + M89=MX89 00009500 + MZON=NZON 00009600 +C 00009700 +C DIMENSIONAMENTI 00009800 +C 00009900 + L1=1 00010000 +C ............................ FLUSSI 00010100 + L2=(MEI*MX*MY*MZ+5)+L1+MY 00010200 +C ............................ VOLUMI 00010300 + L3=(MX*MY*MZ)+L2 00010400 +C ............................ GRUPPI 00010500 + L4=L3+MEI 00010600 +C ............................ SREAD (SIGMA DA LEGGERE) 00010700 + L5=L4+MIHMI*(MMIC+MIXISO) 00010800 +C ............................ SWRIT (SIGMA DA SCRIVERE) 00010900 + L6=L5+MEO*MIHMO*MMAC 00011000 +C ............................ DENOMINATORI DEN 00011100 + L7=L6+MEO*MIHMO*MMAC 00011200 +C ............................ A (SCRATCH SPACE) 00011300 + MXA=MAX0(MEI,MX*MY*MZ) 00011400 + L8=L7+MXA 00011500 +C ............................ B (SCRATCH SPACE) 00011600 + MXB1=MX89+20+NDI*2 00011700 + MXB=5*MX89+4 00011800 + IF(MXB.LT.MXB1) MXB=MXB1 00011900 + L9=L8+MXB 00012000 +C ............................ VOLZ (VOLUMI ZONE) 00012100 + L10=L9+MZON*2 00012200 +C ............................ TABELLA DI INTEGRAZIONE 00012300 +C 00012400 + MMIX=(MAA-L10)/11 00012500 + L11=L10+10*MMIX 00012600 + L12=L11+MMIX 00012700 + WRITE(6,6000) MMIX 00012800 + WRITE(11,6000) MMIX 00012900 + 6000 FORMAT('1SPAZIO PER ',I8,4X,' ELEMENTI DELLA TABELLA DI' 00013000 + * 'INTEGRAZIONE ') 00013100 + IF(MMIX.GT.0) GOTO 102 00013200 + L12=L10+5*11 00013300 + GOTO 101 00013400 + 102 CONTINUE 00013500 + WRITE(6,6001) 00013600 + 6001 FORMAT(//' PARAMETRI INTERNI DI DIMENSIONAMENTO :') 00013700 + WRITE(6,6600)L1,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12 00013800 + 6600 FORMAT(1X,10I8) 00013900 + IF(L12.LE.MAA) GO TO 100 00014000 + 101 WRITE(6,7000) L12,MAA 00014100 + WRITE(11,7000) L12,MAA 00014200 + 7000 FORMAT(//5(' *** ERRORE!!! *** ERRORE!!! *** ERRORE!!!*** :'/), 00014300 + * /' IL PARAMETRO DI DIMENSIONAMENTO DEL MAIN DEVE ESSERE:',I10, 00014400 + * 5X,' NON:',I10) 00014500 + STOP 00014600 + 100 CONTINUE 00014700 +C 00014800 +C L'ISTRUZIONE SEGUENTE SERVE PER IL COMMON/PAR/ 00014900 +C 00015000 + NMIX=MMIX 00015100 +C 00015200 +C DIMENSIONI: FI(MEI,MX,MY,MZ)=FLUSSI E SPAZIO PER VARIE SUBROUTINES00015300 +C VOL(MX,MY,MZ)= VOLUMETTI 00015400 +C NGRP(MEI)=NUMERO GRUPPO GROSSO DI OGNI GRUPPO FINE 00015500 +C SREAD(MIHMI,MMIC)=SIGMA INPUT ANISN 1 GRUPPO 00015600 +C SWRIT(MEO,MIHMO,MMAC)=SIGMA OUTPUT,DEN(MEO,MIHMO,MMAC)=DENOM MEDI 00015700 +C RHO,MIX(10,MMIX)= PARAMETRI DELLA MIXING TABLE, PER OGNI MATERIALE00015800 +C DA MISCHIARE 1 SCHEDA CON: 00015900 +C ISOTOPO MICRO,ISOTOPO MACRO,LIMITI X(2 VALORI) LIMITI Y, LIMITI Z,00016000 +C COST K CHE MOLTIPLICA I VOLUMI, K1 CHE MOLTIPLICA FI A DEN, DENSI 00016100 +C 00016200 +C NPAR/ SONO I PARAMETRI DI INPUT NEL COMMON 00016300 +C 00016400 +C NMAC VIENE IN REALTA CALCOLATO OGNI VOLTA 00016500 +C DALLE SUBROUTINES CHE SCRIVONO IL TAPE 00016600 +C PER LA DETERMINAZIONE DI NMAC ED NMIC SI SEGUE IL 00016700 +C SEGUENTE CRITERIO: 00016800 +C LA SUBROUTINE CHE SCRIVE CALCOLA NMAC 00016900 +C LA SUB. PROG PONE NMIC=NMAC PER DEFINIRE 00017000 +C LA LUNGHEZZA DEL TAPE DI INPUT DEL GIRO SUCCESSIVO 00017100 +C 00017200 +C ++++++++++++++++++ SPAZI SCRATCH A E B ++++++++++++++++ 00017300 +C 00017400 +C A(MXA) UTILIZZATO DA : 00017500 +C INPTGR PER INDICI GRUPPI A(NEI) 00017600 +C SIMPLI PER 8$ (ZONE DEI VOLUMETTI) A(NX*NY*NZ) 00017700 +C DI IDEM 00017800 +C FIMED IDEM 00017900 +C 00018000 +C B(MXB) UTILIZZATO DA : 00018100 +C SIMPLI: B(1) LUNGO MX89 PER 9$ NOVD MATERIALI PER ZONE 00018200 +C B(MX89+1) LUNGO MX89 PER ISTP:MATERIALI DA DILUIRE 00018300 +C B(2*MX89+1) PER MISTP: MACRO DEI MAT DA DILUIRE 00018400 +C B(3*MX89+1) PER NZON : ZONE DEI MAT. DA DILUIRE 00018500 +C B(4*MX89+1) PER NZOSC:ZONE DA SCARTARE NELLE MACRO 00018600 +C 00018700 +C MIXING: B(1) PER 10$ (MIST) 00018800 +C B(MX89+1) PER 11$ (NCOMP) 00018900 +C B(2*MX89+1) PER 12* (DENS) 00019000 +C DI : B(1) COME SIMPLI PER NOVD 00019100 +C B(N9+10) PER A (ISOTOPI DI CUI FARE IL D) 00019200 +C B(N9+NDI+20) PER NB (ISOTOPI DI CUI FARE IL D) 00019300 +C 00019400 +C FI UTILIZZATO DA: 00019500 +C INPTGR: FI(NEI) PER INDICI GRUPPI 00019600 +C VOLIN1 PER AMESH (GRANDE COME IL NUMERO DELLE INTERFACCE)00019700 +C SREAD (SIGIN+MIXISO) UTILIZZATA DA: 00019800 +C DI : PER SIG ISOTOPI SUL TAPE DA LEGGERE 00019900 +C MIXING: ISOTOPI DELLA MIXING 00020000 +C SWRIT: PER ISOTOPI DI CUI SI VUOLE IL DI DALLA DILUIZIONE 00020100 +C 00020200 +C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 00020300 +C 00020400 +C SOMMARI - CONTROLLI SUI PARAMETRI LETTI: FARE ATTENZIONE 00020500 +C CONTROLLO DIMENSIONAMENTI 00020600 +C 00020700 + NER=NX*NY*NZ 00020800 + IF(NER.LT.NEI) NER=NEI 00020900 + IF(MXA.LT.NER)WRITE(6,990) MXA,NER 00021000 + 990 FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/) 00021100 + */' MXA =',I10,5X,' DEVE ESSERE ALMENO ',I10) 00021200 + NER=M89*5+4 00021300 + IF(MXB.LT.NER) WRITE(6,991) MXB,NER 00021400 + 991 FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/) 00021500 + */' MXB =',I10,5X,' DEVE ESSERE ALMENO ',I10) 00021600 +C 00021700 +C ANCORA CONTROLLI 00021800 +C 00021900 + NER=NX*NY*NZ 00022000 + IF(NER.GT.MX*MY*MZ) WRITE(6,1013) MX,MY,MZ,NX,NY,NZ 00022100 + 1013 FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/) 00022200 + */' MX, MY, MZ (',3I5,') DEVONO ESSERE MAGGIORI DI NX, NY, NZ (' 00022300 + *,3I5,')') 00022400 + IF(MMIX.LT.NER.AND.KMIX.EQ.0) WRITE(6,1014) MMIX,NX,NY,NZ 00022500 + 1014 FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/) 00022600 + */' MMIX (',I5,') DEVE ESSERE MAGGIORE DI NX*NY*NZ (',I5,')') 00022700 + IF(IHMI.GT.MIHMI.OR.IHMO.GT.MIHMO) WRITE(6,1015)IHMI,IHMO, 00022800 + * MIHMI,MIHMO 00022900 + 1015 FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/) 00023000 + */' IHMI ED IHMO (',2I5,') DEVONO ESSERE MINORI DI :',I5) 00023100 + IF(NMIC.GT.MMIC) WRITE(6,1016) NMIC,MMIC 00023200 + 1016 FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/) 00023300 + */' NMIC (',I5,') DEVE ESSERE MINORE DI MMIC (',I5,')') 00023400 + IF(NMAC.GT.MMAC) WRITE(6,1017) NMAC,MMAC 00023500 + 1017 FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/) 00023600 + */' NMAC (',I5,') DEVE ESSERE MINORE DI MMAC (',I5,')') 00023700 + IF(NEI.GT.MEI) WRITE(6,1018) NEI,MEI 00023800 + 1018 FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/) 00023900 + */' NEI (',I5,') DEVE ESSERE MINORE DI MEI (',I5,')') 00024000 + IF(KSIG.EQ.1) WRITE(6,1101) 00024100 + 1101 FORMAT(//' SEZIONI D''URTO DA UNITA'' LOGICA 2') 00024200 + IF(KMIX.EQ.1) WRITE(6,1102) 00024300 + 1102 FORMAT(//' INPUT NORMALE, PROGRAMMA USATO COME IL MEDIATOR') 00024400 + IF(KMIX.EQ.0) WRITE(6,1103) 00024500 + 1103 FORMAT(//' INPUT SEMPLIFICATO, TIPO ANISN') 00024600 + CALL PROG(MEI,MX,MY,MZ,AA(L1),AA(L2),AA(L3),MIHMI,MMIC, 00024700 + * AA(L4),MEO,MIHMO,MMAC,AA(L5),AA(L6),MXA,MXB,MX89, 00024800 + * AA(L7),AA(L8),MZON,AA(L9),MMIX,AA(L10),AA(L11)) 00024900 + STOP 00025000 + END 00025100 +C 00025200 + SUBROUTINE PROG(MEI,MX,MY,MZ,FI,VOL,NGRP, 00025300 + * MIHMI,MMIC,SREAD,MEO,MIHMO,MMAC,SWRIT,DEN,MXA,MXB, 00025400 + * M89,A,B,MZON,VOLZ,MMIX,MIX,RHO) 00025500 +C ************************************************** 00025600 +C 00025700 +C ::::::::::::::::: PROGRAMMA MEDIL :::::::::::::::: 00025800 +C 00025900 +C DIMENSIONAMENTI 00026000 +C 00026100 + DIMENSION A(MXA),B(MXB) 00026200 + DIMENSION FI(MEI,MX,MY,MZ),VOL(MX,MY,MZ),SREAD(MIHMI,MMIC) 00026300 + DIMENSION SWRIT(MEO,MIHMO,MMAC),DEN(MEO,MIHMO,MMAC) 00026400 + DIMENSION NGRP(MEI),VOLZ(MZON) 00026500 + REAL*8 VOLZ 00026510 + DIMENSION RHO(MMIX) 00026600 + DIMENSION MIX(10,MMIX) 00026700 + COMMON /AUS/N8,N9 00026800 +C 00026900 +C SERVE A DI PER SAPERE LE DIMENSIONI DELLA 8$ E 9$(DATA DA SIMPLI)00027000 +C 00027100 + COMMON/PAR/NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,IHTO,IHSO,NMIC, 00027200 + * NMAC,NSTMP,KDIL,KFI,KVOL,KSIG,NSOM,KDIL1,NZON,NGEOM, 00027300 + * NDI,NEOD,IHMD,IHTD,IHSD, 00027400 + * KMIX,MX89,MIXISO,NMIX 00027500 +C 00027600 +C ********************************************************** 00027700 +C ELABORAZIONE DEL PROGRAMMA M E D I A T O R 00027800 +C PROGRAMMA DI COLLASSAMENTO SPAZIO ENERGETICO DI SEZIONI D'URTO 00027900 +C AUTORE: MARCELLO GALLI 00028000 +C 00028100 +C =========== M E D I L =========== 00028200 +C 00028300 +C PROGRAMMA MEDIATOR CON INSERIMENTO DI INPUT SEMPLIFICATO 00028400 +C CHE LEGGE MIXING TABLE DOT PER FARE DILUIZIONI E MACRO DI CELLA 00028500 +C 00028600 +C MARCELLO GALLI 00028700 +C GIUGNO-LUGLIO 1983 00028800 +C LAST REVISION OF THIS TERRIBLE PROGRAM : 3 - 10 - 84 00028900 +C NEW VERSION MEDIL4 : 12- 84 00029000 +C UPDATED : APRIL 85 00029010 +C BEAUTIFYED BY CARLO PETRELLA ON APRIL - 85 00029020 +C UPDATED : JUNE 85 00029030 +C VOLZ E VOLT IN DOPPIA PRECISIONE : AGOSTO 85 00029031 +C 00029032 +C 00029040 +C 00029050 +C ********************************************************** 00029100 +C 00029200 +C TAPE2=SIGMA INPUT(ANISN BY GROUPS) 00029300 +C TAPE3=SIGMA OUTPUT 00029400 +C TAPE5=INPUT 00029500 +C TAPE6=OUTPUT 00029600 +C TAPE8=SCRATCH PER INPUT SEMPLIFICATO 00029700 +C TAPE9=SCRATCH PER INPUT SEMPLIFICATO 00029800 +C TAPE11=TERMINAL OUT 00029900 +C TAPE24=VOLUMI DA KENO 00030000 +C TAPE25=FI 00030100 +C PREFISSI VARIABILI: O=OUTPUT, I=INPUT, M=PER DIMENSIONI 00030200 +C GLI ALTRI SIGNIFICATI SONO OVVI 00030300 +C INPUT GROUPS NUMBERS FOR COLLAPSING 00030400 +C 00030500 + CALL INPTGR(NEI,NGRP,FI) 00030600 +C 00030700 +C (FI USATO PER SCRATCH DEVE ESSERE GRANDE ALMENO COME NEI) 00030800 +C QUI NON ESISTONO CONTROLLI SULL'INPUT. STARE ATTENTI! 00030900 +C ===================================================== 00031000 +C IF(KMIX.NE.0) GO TO 101 00031100 +C GENERA STRUTTURA A GRUPPI DI OUT=STRUTTURA GRUPPI INPUT 00031200 +C PER INPUT SEMPLIFICATO 00031300 +C DO 11 J=1,NEI 00031400 +C 11 NGRP(J)=J 00031500 +C 00031600 + 101 CONTINUE 00031700 +C 00031800 +C INPUT ESPLICITO MIXING (DA UNIT 5 - SCHEDE ) 00031900 +C 00032000 + IF(KMIX.EQ.1) CALL MIXUS(NSOM,MMIX,MIX,RHO) 00032100 +C 00032200 +C INPUT SIGMA: LE METTE SU TAPE ANISN PER GRUPPI 00032300 +C 00032400 + IF(KSIG.EQ.0) CALL TAPAN(FI,SWRIT,DEN,SREAD) 00032500 +C 00032600 +C TAPAN SCRIVE SU 2, PER INPUT SIMPLI I TAPE SONO DIVERSI 00032700 +C 00032800 + NTPI=2 00032900 + NTPO=3 00033000 +C 00033100 +C INPUT DEI VOLUMI (USA FI COME SPAZIO) 00033200 +C 00033300 + CALL VOLIN1(MX,MY,MZ,VOL,MX+1,FI) 00033400 +C 00033500 +C INPUT FI 00033600 +C 00033700 + CALL FIIN(MEI,MX,MY,MZ,FI) 00033800 + IF(KMIX.NE.0) GO TO 100 00033900 +C 00034000 +C CHIAMA PER INPUT SEMPLIFICATO SIMPLI CHE FA MIXING DA MIXING 00034100 +C DOT, ALTRIMENTI DIRETTAMENTE CHIAMA SOMMAT(FA TAPE8 DAL 2) 00034200 +C 00034300 + CALL SIMPLI(NEI,IHMI,MMIX,MXA,SREAD,MIX,RHO,M89, 00034400 + *A(1),B(1),B(M89+1),B(2*M89+1),B(3*M89+1),B(4*M89+1), 00034500 + *MZON,VOLZ,MX,MY,MZ,VOL) 00034600 +C 00034700 +C ALTERA PARAMETRI DI CHIAMATA A SOMMAT PER INPUT SEMPLIFICATO 00034800 +C 00034900 + NMIC=NMAC 00035000 + NTPI=8 00035100 + NTPO=3 00035200 + 100 CONTINUE 00035300 + CALL SOMMAT(KDIL,NTPI,NTPO,MEI,MX,MY,MZ,FI,VOL,NGRP,MMIX,MIX,RHO, 00035400 + *MIHMI,MMIC,SREAD,MEO,MIHMO,MMAC,SWRIT,DEN) 00035500 + NMIC=NMAC 00035600 + NEI=NEO 00035700 + IF(NDI.LE.0) RETURN 00035800 + IF(KMIX.NE.0) RETURN 00035900 +C 00036000 +C C H I A M A T E A S U B R O U T I N E D I 00036100 +C ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 00036200 +C I PARAMETRI IHM ETC VANNO RISISTEMATI: I VECCHI OUTPUT 00036300 +C DIVEMGONO INPUT 00036400 +C 00036500 + IHMI=IHMO 00036600 + IHSI=IHSO 00036700 + IHTI=IHTO 00036800 + IHMO=IHMD 00036900 + IHTO=IHTD 00037000 + IHSO=IHSD 00037100 + IF(IHMO.LE.0) IHMO=IHMI 00037200 + NEO=NEOD 00037300 + IF(IHTO.LE.0) IHTO=IHTI 00037400 + IF(IHSO.LE.0) IHSO=IHSI 00037500 + IF(NEO.LE.0) NEO=NEI 00037600 +C 00037700 +C POICHE' SERVE 8$ ETC OTTENUTI DA SIMPLI IL D SI FA 00037800 +C SOLO PER INPUT SEMPLIFICATO 00037900 +C 00038000 + IF(KMIX.NE.0) RETURN 00038100 +C 00038200 +C MMAC (NUMERO SIGMA SU TAPE OUTPUT) DIVIENE NUMERO 00038300 +C SIGMA ENTRANTI. LE USCENTI SONO LE ENTRANTI PIU I D (ND) 00038400 +C 00038500 + NMIC=NMAC 00038600 +C 00038700 +C NMAC=NMAC+NDI 00038800 +C AD OGNI MODO NMAC SE LO RICALCOLA SOMMAT COME MAX NUMERO 00038900 +C CHE APPARE IN MIX(2,.) 00039000 +C SI LEGGE IL TAPE 3 E SI SCRIVE SUL NOVE DOVE ANDRANNO COSI' 00039100 +C LE SIGMA + I D 00039200 +C 00039300 + NTPO=9 00039400 + NTPI=3 00039500 +C 00039600 +C PER GLI SPAZI SCRATCH IN ARGOMENTO : 00039700 +C SREAD E' USATO PER SIGMA DI INPUT, SWRIT PER SIGMA OUT 00039800 +C POSSONO DOVER AVERE DIMENSIONI DIVERSE DA QUELLE BASTANTI 00039900 +C PER LA PRIMA PARTE !!!!!!! 00040000 +C A CONTIENE OTTD (8$) CHE SERVE A FIMED CHIAMATA DA DI PER 00040100 +C FARE INTEGRALI DEI FLUSSI 00040200 +C B(1) CONTIENE NOVD (9$) CHE SERVE A DI PER SAPERE COME 00040300 +C CONNETTERE I ISOTOPI AI FLUSSI DELLE ZONE(CALCOLATI DA FIM) 00040400 +C 00040500 +C B(N9+ECC) SONO SPAZI GRANDI NDI PER LEGGERE I NUMERI DEGLI 00040600 +C ISOTOPI DI CUI FARE IL D 00040700 +C DEVE ESSERCI ABBASTANZA SPAZIO IN B 00040800 +C 00040900 + CALL DI(NTPI,NTPO,SREAD,SWRIT,B(N9+10),B(N9+NDI+20), 00041000 + *FI,VOL,MIX,RHO,A(1),B(1),MEI,NDI,MMIC,IHMI,MX,MY,MZ,MMIX,M89) 00041100 +C 00041200 +C A DEVE ESSERE GRANDE COME I GRUPPI 00041300 +C INPUT PARAMETRI COLLASSAMENTO GRUPPI 00041400 +C 00041500 + CALL INPTGR(NEI,NGRP,A) 00041600 +C 00041700 +C DI RICALCOLA NMAC 00041800 +C 00041900 + NMIC=NMAC 00042000 +C 00042100 +C NDI SERVE SOLO PER DIMENSION 00042200 +C FIMED RIVALUTA I PARAMETRI NX,NY DI GEOMETRIA 00042300 +C 00042400 +C CHIAMATA A SOMMAT CHE FA COLLASSO GRUPPALE DOPO 00042500 +C L'INSERIMENTO DEI D 00042600 +C SCRIVE SU 3 E LEGGE DA 9 00042700 +C 00042800 + NTPI=9 00042900 + NTPO=3 00043000 +C 00043100 +C QUI IL PARAMETRO KDIL PASSATO A SOMMAT E' = 0 00043200 +C NON DILUISCE MA USA DA PER TUTTO LA ZONA 1 00043300 +C PER FARE IL COLLASSAMENTO GRUPPALE (LA ZONA 1 00043400 +C E ' TUTTO IL REATTORE) 00043500 +C 00043600 + CALL SOMMAT(0,NTPI,NTPO,MEI,MX,MY,MZ,FI,VOL,NGRP, 00043700 + *MMIX,MIX,RHO,MIHMI,MMIC,SREAD,MEO,MIHMO,MMAC,SWRIT,DEN) 00043800 +C 00043900 +C CAUSA CARATTERE COMPOSITO DI QUESTO PEROGRAMMA ED IN 00044000 +C PARTICOLARE DEL PEZZO CHE CALCOLA IL D, C'E' UN ENORME 00044100 +C GROVIGLIO DI SPAZI, PARAMETRI, ECC. STARE ATTENTI AGLI SPAZI E 00044200 +C AI DIMENSIONAMENTI SPECIE DI B, A, SWRIT, SREAD. E' FACILE 00044300 +C CHE VENGANO FUORI PASTICCI... 00044400 +C 00044500 +C BUONA FORTUNA! 00044600 +C 00044700 +C DOVREBBE ESSERE STATO RISISTEMATO TUTTO NEL DICEMBRE 84 00044800 +C SPERIAMO IN BENE! 00044900 +C 00045000 + RETURN 00045100 + END 00045200 +C 00045300 + SUBROUTINE SOMMAT(KDIL,NTPI,NTPO,MEI,MX,MY,MZ,FI,VOL,NGRP, 00045400 + *MMIX,MIX,RHO,MIHMI,MMIC,SREAD,MEO,MIHMO,MMAC,SWRIT,DEN) 00045500 +C ************************************************** 00045600 +C 00045700 +C QUESTA SUBROUTINE FA GLI INTEGRALI DI COLLASSAMENTO ETC. 00045800 +C 00045900 +C DIMENSIONAMENTI 00046000 +C 00046100 + DIMENSION FI(MEI,MX,MY,MZ),VOL(MX,MY,MZ),SREAD(MIHMI,MMIC) 00046200 + DIMENSION SWRIT(MEO,MIHMO,MMAC),DEN(MEO,MIHMO,MMAC),NGRP(MEI) 00046300 + DIMENSION RHO(MMIX) 00046400 + DIMENSION MIX(10,MMIX) 00046500 + DIMENSION TIT(18) 00046600 + DIMENSION NPAR(14) 00046700 + EQUIVALENCE (NPAR(1),NEI) 00046800 + COMMON/PAR/NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,IHTO,IHSO,NMIC, 00046900 + *NMAC,NSTMP,KDI1,KFI,KVOL,KSIG,NSOM,KDIL1,NZON,NGEOM, 00047000 + *NDI,NEOD,IHMD,IHTD,IHSD 00047100 +C 00047200 + IF(NSOM.GT.MMIX) WRITE(6,1111)NSOM,MMIX 00047300 + 1111 FORMAT(//' ATTENZIONE! LA TAVOLA DI INTEGRAZIONE E''TROPPO PICCOLA00047400 + *'/' *?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?'/00047500 + *' NSOM=',I10,5X,' MMIX=',I10,5X,' MMIX DEVE ESSERE ALMENO NSOM'/ 00047600 + *' *?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?*?'/) 00047700 +C 00047800 +C +++++++++++++++++++++++++++++++++++++++++++++++ 00047900 +C LOOPS DI SOMMATORIA 00048000 +C +++++++++++++++++++++++++++++++++++++++++++++++ 00048100 +C 00048200 + IF(NSTMP.LT.5) GO TO 100 00048300 + WRITE(6,1000) 00048400 + 1000 FORMAT('1MISCELA ESEGUITA:'// ' MICRO MACRO X1 X2 Y1 00048500 + * Y2 Z1 Z2 K1 K2 RHO') 00048600 + DO 10 I=1,NSOM 00048700 + 10 WRITE(6,2000)(MIX(J,I),J=1,10),RHO(I) 00048800 + 2000 FORMAT(1X,10I6,3X,1PE12.5) 00048900 + 100 CONTINUE 00049000 +C 00049100 +C CALCOLO NUMERO ISOTOPI DI OUTPUT (NMAC) 00049200 +C 00049300 + NDUM=1 00049400 + DO 20 I=1,NSOM 00049500 + IF(NDUM.LT.MIX(2,I)) NDUM=MIX(2,I) 00049600 + 20 CONTINUE 00049700 + IF(NDUM.NE.NMAC) WRITE(6,2200) NMAC,NDUM 00049800 + 2200 FORMAT(//' IL NUMERO DI ISOTOPI DI OUTPUT:',I5,2X, 00049900 + * ' E'' STATO RICALCOLATO. E'':',I5) 00050000 + NMAC=NDUM 00050100 +C 00050200 +C AZZERAMENTI 00050300 +C 00050400 + CALL EMP(0.0,MEO,MIHMO,NMAC,SWRIT) 00050500 + CALL EMP(0.0,MEO,MIHMO,NMAC,DEN) 00050600 +C 00050700 +C REWIND TAPE ANISN BY GROUPS 00050800 +C 00050900 + REWIND NTPI 00051000 +C 00051100 +C ++++++++++++++++++ LOOP 50 SUI GRUPPI INPUT 00051200 +C 00051300 + DO 50 IG=1,NEI 00051400 +C 00051500 +C LEGGE 1 GRUPPO TAPE ANISN GRUPPI 00051600 +C 00051700 + READ(NTPI) ((SREAD(J,JJ),J=1,IHMI),JJ=1,NMIC) 00051800 + IF(NSTMP.LT.20) GO TO 155 00051900 + IF(IG.EQ.1) WRITE(6,1050) 00052000 + 1050 FORMAT('1') 00052100 + DO 51 JJ=1,NMIC 00052200 + 51 WRITE(6,1110) NTPI,IG,JJ,(SREAD(J,JJ),J=1,IHMI) 00052300 + 1110 FORMAT(' DA TAPE:',I4,2X,' GRUPPO:',I4,2X,' ISOTOPO:',I4,2X, 00052400 + * ' SIGMA:'/(1X,10(1PE12.5))) 00052500 + 155 CONTINUE 00052600 +C 00052700 +C ++++++++++++++++++++++ LOOP 60 ISOTOPI MIXING 00052800 +C 00052900 + DO 60 IS=1,NSOM 00053000 + I1=MIX(3,IS) 00053100 + I2=MIX(4,IS) 00053200 + J1=MIX(5,IS) 00053300 + J2=MIX(6,IS) 00053400 + K1=MIX(7,IS) 00053500 + K2=MIX(8,IS) 00053600 +C 00053700 +C +++++++++++++++++++++++++++ LOOP 70 GEOMETRIA 00053800 +C 00053900 + DO 70 IX=I1,I2 00054000 + DO 70 IY=J1,J2 00054100 + DO 70 IZ=K1,K2 00054200 +C 00054300 +C +++++++++++++++++++++++++ LOOP 80 TAVOLA ANISN 00054400 +C 00054500 + DO 80 IH=1,IHTI 00054600 +C 00054700 +C PER ELIMINARE O AGGIUNGERE POSTI DI ACTIVITIES 00054800 +C 00054900 + IO=IHTO-(IHTI-IH) 00055000 + IF(IO.LE.0) GO TO 80 00055100 + SWRIT(NGRP(IG),IO,MIX(2,IS))=SWRIT(NGRP(IG),IO,MIX(2,IS))+ 00055200 + * SREAD(IH,MIX(1,IS))*FI(IG,IX,IY,IZ)*VOL(IX,IY,IZ)* 00055300 + * RHO(IS)*MIX(9,IS) 00055400 + IF(KDIL.NE.0) 00055500 + * DEN(NGRP(IG),IO,MIX(2,IS))=DEN(NGRP(IG),IO,MIX(2,IS))+ 00055600 + * FI(IG,IX,IY,IZ)*VOL(IX,IY,IZ)*MIX(9,IS)/MIX(10,IS) 00055700 + 80 CONTINUE 00055800 +C 00055900 +C +++++++++++++++++++++++++++++ FINE LOOP 80 00056000 +C +++++++++++++++++++++++ LOOP 90 SCATTERING 00056100 +C 00056200 + IHT1=IHTI+1 00056300 + DO 90 IH=IHT1,IHMI 00056400 +C 00056500 +C GRUPPO DI PROVENIENZA 00056600 +C EVITA SCRITTE INUTILI SCATT FUORI TAVOLA PER SIGMA NULLE 00056700 +C 00056800 + IF(SREAD(IH,MIX(1,IS)).EQ.0.) GO TO 90 00056900 +C 00057000 +C GRUPPO PROVENIENZA UFG 00057100 +C 00057200 + NGFROM=IG+(IHSI-IHT1)-(IH-IHT1) 00057300 + IF(NGFROM.GT.NEI.OR.NGFROM.LT.1) 00057400 + * WRITE(6,3000) NGFROM,IG,IHSI,IHT1,IH,IS 00057500 + IF(NGFROM.GT.NEI.OR.NGFROM.LT.1) 00057600 + * WRITE(11,3000) NGFROM,IG,IHSI,IHT1,IH,IS 00057700 + 3000 FORMAT(' WARNING !!!'/' ERRORE IN NGFROM IN LOOP 90,NGFROM,IG, 00057800 + * IHSI,IHT1,IH,IS'/1X,10I10) 00057900 + IF(NGFROM.GT.NEI.OR.NGFROM.LT.1) STOP 00058000 +C 00058100 +C IF(NGFROM.GT.NEI) NGFROM=NEI 00058200 +C IF(NGFROM.LT.1) NGFROM=1 00058300 +C GRUPPO DI FINE UFG 00058400 +C NGTO=IG 00058500 +C GRUPPO DI FINE BG 00058600 +C NGTOO=NGRP(IG) 00058700 +C POSIZIONE IN TAVOLA ANISN BG(GRUPPO PROVENIENZA BG 00058800 +C 00058900 + NIHO=IHSO-(NGRP(NGFROM)-NGRP(IG)) 00059000 + IF(NIHO.LE.IHTO.OR.NIHO.GT.IHMO) 00059100 + * WRITE(11,3300) (NIHO,IHSO,NGRP(IG),IG,NGFROM,NGRP(NGFROM),IH,IS) 00059200 + 3300 FORMAT(//' ATTENZIONE COMPRESSIONE SCATTERING PARAMETRI LOOP 00059300 + * 90 NIHO,IHSO,NGRP(IG),IG,NGROM,NGRP(NGFROM),IH,IS'/1X,10I10) 00059400 + IF(NIHO.LE.IHTO) NIHO=IHTO+1 00059500 + IF(NIHO.GT.IHMO) NIHO=IHMO 00059600 + SWRIT(NGRP(IG),NIHO,MIX(2,IS))=SWRIT(NGRP(IG),NIHO,MIX(2,IS))+ 00059700 + * SREAD(IH,MIX(1,IS))*FI(NGFROM,IX,IY,IZ)*VOL(IX,IY,IZ)* 00059800 + * RHO(IS)*MIX(9,IS) 00059900 + 90 CONTINUE 00060000 + 70 CONTINUE 00060100 + 60 CONTINUE 00060200 + 50 CONTINUE 00060300 + REWIND NTPI 00060400 +C 00060500 +C +++++++++++++++++++++++++ FINE LOOP 90 SU IH 00060600 +C ++++++++++++++++++++++ FINE LOOP 70 SPAZIALE 00060700 +C ++++++++++++++++++++++++ FINE LOOP 60 MIXING 00060800 +C ++++++++++++++++++++++++ FINE LOOP 50 GRUPPI 00060900 +C IL CALCOLO DEI DENOMINATORI VIENE POSTO QUI PER 00061000 +C KDIL=0,NON LOOP SU NSOM , MA INTEGRALI ESTESI A TUTTO IL 00061100 +C REATTORE. MIX(9,.) E MIX(10,.) NON SONO UTILIZZATI PER DEN 00061200 +C 00061300 + IF(KDIL.NE.0) GO TO 801 00061400 + DO 79 IS=1,NMAC 00061500 + DO 81 IG=1,NEI 00061600 + DO 82 IH=1,IHTI 00061700 + IO=IHTO-(IHTI-IH) 00061800 + IF(IO.LE.0) GO TO 82 00061900 + DO 83 IZ=1,NZ 00062000 + DO 83 IY=1,NY 00062100 + DO 83 IX=1,NX 00062200 + DEN(NGRP(IG),IO,IS)=DEN(NGRP(IG),IO,IS)+ 00062300 + * FI(IG,IX,IY,IZ)*VOL(IX,IY,IZ) 00062400 + 83 CONTINUE 00062500 + 82 CONTINUE 00062600 + 81 CONTINUE 00062700 + 79 CONTINUE 00062800 + 801 CONTINUE 00062900 +C 00063000 +C CALCOLO DENOMINATORI DELLO SCATTERING CHE SE MESSI NEL LOOP 00063100 +C SOPRA AVREBBERO UNA SOMMATORIA SU GRUPPI DI ARRIVO IN PIU 00063200 +C E NON ESTESA A TUTTI I GRUPPI FINI APPARTENENTI AL GROSSO 00063300 +C DI PROVENIENZA 00063400 +C 00063500 + IHT1=IHTO+1 00063600 +C 00063700 +C +++++++++++++++++++++++++++ LOOP GRUPPI OUTPUT 00063800 +C 00063900 + DO 63 IG=1,NEO 00064000 +C 00064100 +C ++++++++++++++++++ LOOP SU TAVOLA IH DI OUTPUT 00064200 +C 00064300 + DO 65 IH=IHT1,IHMO 00064400 +C 00064500 +C CALCOLO B G DI PROVENIENZA 00064600 +C 00064700 + NBGP=IG+(IHSO-IHTO)-(IH-IHTO) 00064800 + IF(NBGP.LT.1.OR.NBGP.GT.NEO) GO TO 650 00064900 +C 00065000 +C +++++ LOOP GRUPPI FINI DEL B.G. DI PROVENIENZA 00065100 +C 00065200 + DO 67 IGI=1,NEI 00065300 + IF(NGRP(IGI).NE.NBGP) GO TO 670 00065400 + IF(KDIL.NE.0) GO TO 710 00065500 +C 00065600 +C PER KDIL=0 PER OGNI ISOTOPO FA UN DEN CON INTEGRALE ESTESO 00065700 +C A TUTTO IL REATTORE INVECE CHE FARE LOOP SULLA MIXING 00065800 +C I MIX(9,.) MIX(10,.) NON SONO UTILIZZATI IN DEN 00065900 +C 00066000 +C ++++++++++++++++++ LOOP ISOTOPI MACRO (KDIL=1) 00066100 +C 00066200 + DO 71 IS=1,NMAC 00066300 + DO 72 IX=1,NX 00066400 + DO 72 IY=1,NY 00066500 + DO 72 IZ=1,NZ 00066600 + DEN(IG,IH,IS)=DEN(IG,IH,IS)+FI(IGI,IX,IY,IZ)*VOL(IX,IY,IZ) 00066700 + 72 CONTINUE 00066800 + 71 CONTINUE 00066900 +C 00067000 +C ++++++++++++++ FINE LOOP ISOTOPI MACRO(KDIL=1) 00067100 +C 00067200 + GO TO 670 00067300 + 710 CONTINUE 00067400 +C 00067500 +C ++++++++++++++++++++++++++++ LOOP MIXING TABLE 00067600 +C 00067700 + DO 69 IS=1,NSOM 00067800 + I1=MIX(3,IS) 00067900 + I2=MIX(4,IS) 00068000 + J1=MIX(5,IS) 00068100 + J2=MIX(6,IS) 00068200 + K1=MIX(7,IS) 00068300 + K2=MIX(8,IS) 00068400 +C 00068500 +C +++++++++++++++++++++++++++ LOOP 69 GEOMETRIA 00068600 +C 00068700 + DO 69 IX=I1,I2 00068800 + DO 69 IY=J1,J2 00068900 + DO 69 IZ=K1,K2 00069000 + DEN(IG,IH,MIX(2,IS))=DEN(IG,IH,MIX(2,IS))+ 00069100 + * FI(IGI,IX,IY,IZ)*VOL(IX,IY,IZ)*MIX(9,IS)/MIX(10,IS) 00069200 + 69 CONTINUE 00069300 + 670 CONTINUE 00069400 + 67 CONTINUE 00069500 + 650 CONTINUE 00069600 + 65 CONTINUE 00069700 + 630 CONTINUE 00069800 + 63 CONTINUE 00069900 +C 00070000 +C ++++++++++++++++ FINE LOOPS CALCOLO DENOM SCATT 00070100 +C 00070200 +C PER KDIL.EQ.0 HA ESTESO GLI INTEGRALI A TUTTO IL REATTORE 00070300 +C DIVIDE PER I DENOMINATORI 00070400 +C 00070500 + DO 92 I=1,NEO 00070600 + DO 92 I1=1,IHMO 00070700 + DO 92 I2=1,NMAC 00070800 + IF(DEN(I,I1,I2).NE.0.) SWRIT(I,I1,I2)=SWRIT(I,I1,I2)/ 00070900 + * DEN(I,I1,I2) 00071000 + 92 CONTINUE 00071100 +C 00071200 +C STAMPA SIGMA OUTPUT 00071300 +C FA TAPE ANISN PER GRUPPI 00071400 +C 00071500 + REWIND NTPO 00071600 + DO 94 I=1,NEO 00071700 + WRITE(NTPO) ((SWRIT(I,J,JJ),J=1,IHMO),JJ=1,NMAC) 00071800 + IF(NSTMP.LT.12) GO TO 200 00071900 + IF(I.EQ.1) WRITE(6,4040) 00072000 + 4040 FORMAT('1') 00072100 + DO 97 JJ=1,NMAC 00072200 + WRITE(6,4440) (I,JJ,(SWRIT(I,J,JJ),J=1,IHMO)) 00072300 + 4440 FORMAT(' GRUPPO:',I4,4X,' ISOTOPO:',I4,4X,' SIGMA:' 00072400 + * /(1X,10(1PE12.5))) 00072500 + 97 CONTINUE 00072600 + 200 CONTINUE 00072700 + 94 CONTINUE 00072800 + REWIND NTPO 00072900 + WRITE(6,4500) NTPO,NMAC,NEO,IHMO 00073000 + 4500 FORMAT(//1X,10(1H=),' SCRITTI SU TAPE:',I5,' ISOTOPI:', 00073100 + * I5,' GRUPPI:',I5,' IHM:',I5) 00073200 + RETURN 00073300 + END 00073400 +C 00073500 + SUBROUTINE FIIN(MEI,MX,MY,MZ,FI) 00073600 +C ******************************** 00073700 +C 00073800 +C INPUT FLUSSI 00073900 +C 00074000 + DIMENSION FI(MEI,MX,MY,MZ) 00074100 + COMMON/PAR/NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,IHTO,IHSO,NMIC, 00074200 + * NMAC,NSTMP,KDIL,KFI,KVOL,KSIG,NSOM,KDIL1,NZON,NGEOM, 00074300 + * NDI,NEOD,IHMD,IHTD,IHSD 00074400 + WRITE(11,1000) 00074500 + WRITE(6,1000) 00074600 + 1000 FORMAT(//' PARAMETRI PER IL FORMATO DEI FLUSSI DI INPUT :'/ 00074700 + * ' 0 = DOT, 1 = KENO, 2 = PIATTI (1.0), 3 = SCHEDE') 00074800 + WRITE(11,1002) KFI 00074900 + WRITE(6,1002) KFI 00075000 + 1002 FORMAT(/' PARAMETRO USATO:',6X,I4) 00075100 + IF(KFI.EQ.2) GO TO 400 00075200 + IF(KFI.NE.1) GO TO 100 00075300 +C 00075400 +C ++++++++++++++++++++++++++++ TIPO KENO 00075500 +C 00075600 + REWIND 25 00075700 + 15 READ(25,END=130) LBG,IG,LL,LU 00075800 + N2=LU-LL+1 00075900 + READ(25,END=130) (FI(IG,LBG,J,1),J=1,N2) 00076000 + IF(NSTMP.GT.16) WRITE(6,3000)IG,LBG,(FI(IG,LBG,J,1),J=1,N2) 00076100 + 3000 FORMAT(' GRUPPO',I10,' BOX',I10/' FI PER REGIONE:' 00076200 + * /(1X,10(1PE12.5))) 00076300 + GO TO 15 00076400 + 130 CONTINUE 00076500 + REWIND 25 00076600 + RETURN 00076700 + 100 CONTINUE 00076800 + IF(KFI.NE.0) GO TO 200 00076900 +C 00077000 +C +++++++++++++++++++++++++++++ TIPO DOT 00077100 +C 00077200 + REWIND 25 00077300 + DO 20 J=1,NEI 00077400 + 20 READ(25) (((FI(J,J1,J2,J3),J1=1,NX),J2=1,NY),J3=1,NZ) 00077500 + REWIND 25 00077600 + IF(NSTMP.LT.16) GO TO 150 00077700 + 140 CONTINUE 00077800 + WRITE(6,3090) 00077900 + 3090 FORMAT(//) 00078000 + DO 50 JG=1,NEI 00078100 + WRITE(6,4000) JG 00078200 + 4000 FORMAT(' FLUSSO GRUPPO:',I10) 00078300 + DO 51 J3=1,NZ 00078400 + WRITE(6,4001) J3 00078500 + 4001 FORMAT(' DIMENSIONE Z=',I10) 00078600 + DO 52 J2=1,NY 00078700 + WRITE(6,4002)J2 00078800 + 4002 FORMAT(' DIM Y',I10) 00078900 + WRITE(6,4003) (FI(JG,J1,J2,J3),J1=1,NX) 00079000 + 4003 FORMAT((5(1X,1PE12.5))) 00079100 + 52 CONTINUE 00079200 + 51 CONTINUE 00079300 + 50 CONTINUE 00079400 + 150 CONTINUE 00079500 + RETURN 00079600 + 200 CONTINUE 00079700 + IF(KFI.NE.3) GOTO400 00079800 + WRITE(11,5000) 00079900 + 5000 FORMAT(' FORNIRE I FLUSSI(X,Y,Z,GRUPPO),X=1,NX),Y=1,NY),Z=1,NZ)N00080000 + *EI (6E12.0)') 00080100 + READ(5,5001)((((FI(J,J1,J2,J3),J1=1,NX),J2=1,NY),J3=1,NZ),J=1,NEI)00080200 + 5001 FORMAT(6E12.0) 00080300 + GO TO 140 00080400 +C 00080500 +C INPUT FLUSSI PIATTI = 1. 00080600 +C 00080700 + 400 CONTINUE 00080800 + DO 40 I=1,NEI 00080900 + DO 40 JX=1,NX 00081000 + DO 40 JY=1,NY 00081100 + DO 40 JZ=1,NZ 00081200 + 40 FI(I,JX,JY,JZ)=1. 00081300 + GO TO 140 00081400 + END 00081500 +C 00081600 + SUBROUTINE EMP(K,N1,N2,N3,L) 00081700 +C ************************************* 00081800 +C 00081900 +C EMPIE L(N1,N2,N3) CON K 00082000 +C 00082100 + DIMENSION L(N1,N2,N3) 00082200 + IF(N1.LE.0.OR.N2.LE.0.OR.N3.LE.0) RETURN 00082300 + DO 10 I=1,N1 00082400 + DO 10 J=1,N2 00082500 + DO 10 JJ=1,N3 00082600 + 10 L(I,J,JJ)=K 00082700 + RETURN 00082800 + END 00082900 +C 00083000 + SUBROUTINE VOLIN1(MX,MY,MZ,VOL,MXMESH,AMESH) 00083100 +C ********************************************* 00083200 +C 00083300 +C LETTURA VOLUMI 00083400 +C 00083500 + DIMENSION VOL(MX,MY,MZ),AMESH(MXMESH,MY) 00083600 + COMMON/PAR/NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,IHTO,IHSO,NMIC, 00083700 + * NMAC,NSTMP,KDIL,KFI,KVOL,KSIG,NSOM,KDIL1,NZON,NGEOM, 00083800 + * NDI,NEOD,IHMD,IHTD,IHSD 00083900 + WRITE(11,1000) 00084000 + WRITE(6,1000) 00084100 + 1000 FORMAT(//' PARAMETRI PER IL FORMATO DELL''INPUT DEI VOLUMI:'/ 00084200 + * ' 0 = LIBERO, 1 = DOT, 2 = KENO, 3 = SCHEDE, 4 = 1.' 00084300 + * //' PARAMETRI GEOMETRIA : 0 = SLAB, 1 = CILINDRO') 00084400 + WRITE(11,1110) KVOL,NGEOM 00084500 + WRITE(6,1110) KVOL,NGEOM 00084600 + 1110 FORMAT(//' PARAMETRO VOLUMI USATO : ',I4,// 00084700 + *' PARAMETRO GEOMETRIA USATO : ',I4) 00084800 +C 00084900 +C PER COME NE RIEMPIE PEZZI IL KENO 00085000 +C 00085100 + CALL EMP(0.0,MX,MY,MZ,VOL) 00085200 + K1=KVOL+1 00085300 + GO TO (600,160,140,200,400),K1 00085400 + GO TO 400 00085500 +C 00085600 +C +++++++++++++++++++++++++++++++++ DA KENO 00085700 +C 00085800 + 140 CONTINUE 00085900 + REWIND 24 00086000 + NBOX1=0 00086100 + 10 READ(24,END=150)NBOX,VOLL 00086200 + IF(NBOX.NE.NBOX1) I=0 00086300 + I=I+1 00086400 + VOL(NBOX,I,1)=VOLL 00086500 + IF(NSTMP.GT.13) WRITE(6,2000)NBOX,I,VOL(NBOX,I,1) 00086600 + 2000 FORMAT(' SCATOLA:',I10,' REGIONE:',I10,'VOLUME:',1PE12.5) 00086700 + NBOX1=NBOX 00086800 + GO TO 10 00086900 + 150 CONTINUE 00087000 + REWIND 24 00087100 + RETURN 00087200 +C 00087300 +C ++++++++++++++++++++++++++ DA DOT 00087400 +C 00087500 + 160 CONTINUE 00087600 + IM=NX+1 00087700 + JM=NY+1 00087800 + WRITE (6,2020) 00087900 + 2020 FORMAT(//) 00088000 + WRITE(6,1200) 00088100 + WRITE(11,1200) 00088200 + 1200 FORMAT(' MESH-(X-Y),X=1,NX+1;Y=1,NY+1 ') 00088300 + READ(5,2110) (AMESH(J,1),J=1,IM) 00088400 + READ(5,2110) (AMESH(J,2),J=1,JM) 00088500 + WRITE(6,2111) (AMESH(J,1),J=1,IM) 00088600 + WRITE (6,2021) 00088700 + 2021 FORMAT(//) 00088800 + WRITE(6,2111) (AMESH(J,2),J=1,JM) 00088900 + 2111 FORMAT(1X,6(1PE12.5)) 00089000 + WRITE(11,2111) (AMESH(J,1),J=1,IM) 00089100 + WRITE(11,2111) (AMESH(J,2),J=1,JM) 00089200 + 2110 FORMAT(6E12.5) 00089300 + IF(NGEOM.EQ.1) GO TO 201 00089400 + DO 20 IX=1,NX 00089500 + DO 20 IY=1,NY 00089600 + DO 20 IZ=1,NZ 00089700 + VOL(IX,IY,IZ)=(AMESH(IX+1,1)-AMESH(IX,1))*(AMESH(IY+1,2)-AMESH 00089800 + * (IY,2)) 00089900 + 20 CONTINUE 00090000 + GOTO 202 00090100 + 201 CONTINUE 00090200 + DO 21 IX=1,NX 00090300 + DO 21 IY=1,NY 00090400 + DO 21 IZ=1,NZ 00090500 + VOL(IX,IY,IZ)=(AMESH(IY+1,2)-AMESH(IY,2))* 00090600 + * 3.14159265*(AMESH(IX+1,1)**2-AMESH(IX,1)**2) 00090700 + 21 CONTINUE 00090800 + 202 CONTINUE 00090900 + IF(NSTMP.GT.13) 00091000 + * WRITE(6,5500) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ) 00091100 + RETURN 00091200 + 200 CONTINUE 00091300 +C 00091400 +C LETTURA ESPLICITA 00091500 +C 00091600 + WRITE(11,4000) 00091700 + 4000 FORMAT(' FORNIRE I VOLUMI(IX,IY,IZ,X=...),Y=...),Z=...)6E12.5') 00091800 + READ(5,5000) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ) 00091900 + WRITE(6,5500) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ) 00092000 + WRITE(11,5500)(((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ) 00092100 + 5500 FORMAT(' VOLUMI:',5E12.5) 00092200 + 5000 FORMAT(6E12.5) 00092300 + RETURN 00092400 +C 00092500 +C VOLUMI UGUALI =1. 00092600 +C 00092700 + 400 CONTINUE 00092800 + DO 40 JX=1,NX 00092900 + DO 40 JY=1,NY 00093000 + DO 40 JZ=1,NZ 00093100 + 40 VOL(JX,JY,JZ)=1. 00093200 + WRITE(11,5500)(((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ) 00093300 + RETURN 00093400 + 600 CONTINUE 00093500 + WRITE(11,6002) 00093600 + CALL RFREE(N,AMESH(1,1)) 00093700 + IF(N.NE.NX+1) WRITE(6,6001) N,NX 00093800 + WRITE(11,6000) 00093900 + 6000 FORMAT(' FORNIRE LE INTERFACCE ASSIALI(FORMATO LIBERO)') 00094000 + 6001 FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/), 00094100 + * /' NUMERO INTERFACCE :',I5,4X,' NUMERO MASSIMO VOLUMETTI :',I5) 00094200 + 6002 FORMAT(' FORNIRE LE INTERFACCE RADIALI (FORMATO LIBERO)') 00094300 + CALL RFREE(N,AMESH(1,2)) 00094400 + IF(N.NE.NY+1) WRITE(6,6001) N,NY 00094500 + IM=NX+1 00094600 + JM=NY+1 00094700 + WRITE(6,2020) 00094800 + WRITE(6,2111) (AMESH(J,1),J=1,IM) 00094900 + WRITE(6,2111) (AMESH(J,2),J=1,JM) 00095000 + WRITE(11,2111) (AMESH(J,1),J=1,IM) 00095100 + WRITE(11,2111) (AMESH(J,2),J=1,JM) 00095200 + IF(NGEOM.EQ.1) GO TO 603 00095300 + DO 26 IX=1,NX 00095400 + DO 26 IY=1,NY 00095500 + DO 26 IZ=1,NZ 00095600 + VOL(IX,IY,IZ)=(AMESH(IX+1,1)-AMESH(IX,1))*(AMESH(IY+1,2)-AMESH 00095700 + * (IY,2)) 00095800 + 26 CONTINUE 00095900 + GO TO 602 00096000 + 603 CONTINUE 00096100 + DO 27 IX=1,NX 00096200 + DO 27 IY=1,NY 00096300 + DO 27 IZ=1,NZ 00096400 + VOL(IX,IY,IZ)=(AMESH(IY+1,2)-AMESH(IY,2))* 00096500 + * 3.14159265*(AMESH(IX+1,1)**2-AMESH(IX,1)**2) 00096600 + 27 CONTINUE 00096700 + 602 CONTINUE 00096800 + IF(NSTMP.GT.13) 00096900 + * WRITE(6,5500) (((VOL(J,JJ,JJJ),J=1,NX),JJ=1,NY),JJJ=1,NZ) 00097000 + RETURN 00097100 + END 00097200 +C 00097300 + SUBROUTINE INPTGR(NEI,NGRP,DUM) 00097400 +C ******************************* 00097500 +C 00097600 +C INPUT GROUP NUMBERS FOR COLLAPSING 00097700 +C 00097800 + DIMENSION NGRP(NEI),DUM(NEI) 00097900 + WRITE(11,1000) 00098000 + 1000 FORMAT(' INPUT NUMERI GRUPPI PER COLLASSAMENTO(FREE FORMAT)') 00098100 + CALL RFREE(N,DUM) 00098200 + WRITE(11,2000) (DUM(J),J=1,N) 00098300 + 2000 FORMAT(' LETTI NUMERI GRUPPI:',5E12.5) 00098400 + IF(N.NE.NEI) WRITE(6,3000) N,NEI 00098500 + DO 10 I=1,NEI 00098600 + 10 NGRP(I)=DUM(I) 00098700 + 3000 FORMAT(//5(' *** ERRORE *** ERRORE *** ERRORE *** ERRORE ***'/) 00098800 + * /' LETTI',I10,' DATI. IL NUMERO DEI GRUPPI E'':',I10) 00098900 + WRITE(11,2020) NEI 00099000 + 2020 FORMAT(//' 20I4, NUMERO GRUPPO OUTPUT PER OGNI GRUPPO DI INPUT', 00099100 + * I10,'VALORI') 00099200 + WRITE(6,2032) (NGRP(J),J=1,NEI) 00099300 + 2032 FORMAT(//' INDICI PER COLLASSAMENTO GRUPPALE:'/(1X,20I5)) 00099400 + RETURN 00099500 + END 00099600 +C 00099700 + SUBROUTINE MIXUS(NSOM,MMIX,MIX,RHO) 00099800 +C *********************************** 00099900 +C INPUT MIXING TAVOLA INPUT NORMALE 00100000 +C 00100100 + DIMENSION MIX(10,MMIX),RHO(MMIX) 00100200 +C 00100300 +C ++++++++++++++++++++++++++++++++++++ LOOP 10 00100400 +C 00100500 +C INPUT MIXING TABLE (MAX NUM SCHEDE =SECONDA DIM DI MIX E RHO ) 00100600 +C 00100700 + NSOM=0 00100800 + 10 CONTINUE 00100900 + N1=NSOM+1 00101000 + WRITE(11,2040) 00101100 + 2040 FORMAT(' DARE 9I4:NUM ISO MICRO,NUM MACRO,LIMITI X1,X2,Y1,Y2,Z1, 00101200 + * Z2,K,K1,RHO. (DEFAULTS =1) ') 00101300 + READ(5,1030) (MIX(J,N1),J=1,10),RHO(N1) 00101400 + 1030 FORMAT(10I4,E12.5) 00101500 +C 00101600 +C USCITA LOOP 00101700 +C 00101800 + IF(MIX(1,N1).LE.0) GO TO 100 00101900 + IF(MIX(2,N1).LE.0) GO TO 100 00102000 +C 00102100 +C DEFAULTS 00102200 +C 00102300 + DO 20 I=3,10 00102400 + IF(MIX(I,N1).LE.0) MIX(I,N1)=1 00102500 + 20 CONTINUE 00102600 + IF(RHO(N1).LE.0) RHO(N1)=1. 00102700 + WRITE(6,1031) (MIX(J,N1),J=1,10),RHO(N1) 00102800 + 1031 FORMAT(' ISOTOPO MICRO=',I3,' MACRO=',I3,' LIMITI X=',2I3, 00102900 + * ' LIMITI Y=',2I3,' LIMITI Z=',2I3,' FATT MOLT VOL=',2I3,' RHO=' 00103000 + * ,E11.4) 00103100 + WRITE(11,1030)(MIX(J,N1),J=1,10),RHO(N1) 00103200 + NSOM=NSOM+1 00103300 + GO TO 10 00103400 + 100 CONTINUE 00103500 +C 00103600 +C ++++++++++++++++++++++++++++ FINE LOOP 10 00103700 +C 00103800 + RETURN 00103900 + END 00104000 +C 00104100 + SUBROUTINE SIMPLI(MEI,IHM,MMIX,MXA, 00104200 + * SIGIN,MIX,RHO,MX89,NOTTD,NOVD,ISTP,MISTP,NZON,NZOSC, 00104300 + * MZON,VOLZ,MX,MY,MZ,VOL) 00104400 +C **************************************************** 00104500 +C 00104600 +C INPUT SEMPLIFICATO (INPUT MIXING TABLE DOT, FA MACRO E DILUIZIONI)00104700 +C 00104800 + DIMENSION SIGIN(IHM,1),MIX(10,MMIX),RHO(MMIX) 00104900 + DIMENSION NOTTD(MXA),NOVD(MX89),ISTP(MX89) 00105000 + DIMENSION MISTP(MX89),NZON(MX89),NZOSC(MX89) 00105100 + DIMENSION VOL(MX,MY,MZ),VOLZ(MZON) 00105200 + REAL*8 VOLZ,VOLT 00105210 +C 00105300 +C OTTD DIM REATTORE 00105400 +C 00105500 + COMMON/PAR/NEI,NX,NY,NZ,NEO,IHMI,IHTI,IHSI,IHMO,IHTO,IHSO,NMIC, 00105600 + * NMAC,NSTMP,KDIL,KFI,KVOL,KSIG,NSOM,KDIL1,NZN,NGEOM, 00105700 + * NDI,NEOD,IHMD,IHTD,IHSD, 00105800 + * KMIX,M89,MIXISO,NMIX 00105900 + COMMON /AUS/N8,N9 00106000 +C 00106100 +C PASSA NUM ZONE E MATERIALI DIM 8 E 9 $ AD DI 00106200 +C 00106300 +C FA MIXING TABLE SU TAPE 8 00106400 +C 00106500 + NTPIN=2 00106600 + NTPOU=8 00106700 + EV=1. 00106800 + CALL MIXING(NSTMP,NTPIN,NTPOU,NEI,NMIC,NMAC,IHMI,EV,SIGIN,MX89, 00106900 + * NOVD,ISTP,MISTP) 00107000 +C 00107100 +C ATTENZIONE AD NMIC,NMAC: NMAC LO CALCOLA MIXING 00107200 +C NMIC LO ASSEGNA POI PROG(FARA' NMIC=NMAC PER GIRO DOPO) 00107300 +C 00107400 +C ZONE NUMBER BY INTERVAL 00107500 +C 00107600 + WRITE(11,900) 00107700 + 900 FORMAT(' DARE 8› ( 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›') 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›') 00193500 + CALL RFREE(N2,DENS) 00193600 + DO 20 I=1,N2 00193700 + 20 NCOMP(I)=DENS(I) 00193800 + WRITE(11,1003) 00193900 + 1003 FORMAT(' FORNIRE MIXING TABLE: DENS:12*') 00194000 + CALL RFREE(N3,DENS) 00194100 +C 00194200 +C CERCA IL PIU PICCOLO FRA N1,N2,N3 00194300 +C 00194400 + IF(N1.NE.N2.OR.N1.NE.N3) 00194500 + *WRITE(6,1000) N1,N2,N3 00194600 + IF(N1.NE.N2.OR.N1.NE.N3) WRITE(6,1000) N1,N2,N3 00194700 + 1000 FORMAT(//5(' *** ATTENZIONE *** ATTENZIONE *** ATTENZIONE ***'/) 00194800 + */' I VALORI NELLE 10$,11$,12* DEVONO COINCIDERE. SONO :',3I5, 00194900 + *' USATO IL MINORE') 00195000 + N=N1 00195100 + IF(N2.LT.N) N=N2 00195200 + IF(N3.LT.N) N=N3 00195300 +C 00195400 +C TROVA IL MAX DI MIST E CONTROLLA DIMENSION SIGIN ( ,NISOU) 00195500 +C 00195600 + CALL MAXX(MXX,N,MIST) 00195700 + WRITE(6,1110) NTPOU,MXX 00195800 + 1110 FORMAT('1FACCIO MIXING PONENDO SU TAPE',I6,5X,' ISOTOPI:',I6) 00195900 + NMXX=NISOU+MIXISO 00196000 + IF(NMXX.LT.MXX) WRITE(6,1100)MXX,NMXX 00196100 + NISOU=MXX 00196200 + 1100 FORMAT(//5(' *** ATTENZIONE *** ATTENZIONE *** ATTENZIONE ***'/)/ 00196300 + *' TROPPI',I6,2X,' ISOTOPI. SPAZIO PER ISOTOPI:(NMIC+MIXISO)',I5) 00196400 + WRITE(11,2000) (MIST(J),NCOMP(J),DENS(J),J=1,N) 00196500 + 2000 FORMAT(//' LETTA MIXING '//' MISTURA COMPONENTE DENSITA'''/ 00196600 + *(I6,I8,10X,1PE12.5)) 00196700 + WRITE(6,3000) NTPIN,NTPOU,(MIST(J),NCOMP(J),DENS(J),J=1,N) 00196800 + 3000 FORMAT(//' MIXING TABLE DA TAPE',I5,4X,' A TAPE',I5, 00196900 + *//' MISTURA COMPONENTE DENSITA'''/(1X,I5,I9,6X,1PE12.5)) 00197000 + DO 30 NE=1,NEI 00197100 + CALL EMP(0.0,IHM,NISOU,1,SIGIN) 00197200 +C 00197300 +C QUESTA ISTRUZIONE PREC SERVE SE NELLA MIXING NON SI VUOLE 00197400 +C STARE AD ANNULLARE LE MISTURE PRIMA DI RIEMPIRLE 00197500 +C 00197600 + READ(NTPIN) ((SIGIN(J,JJ),J=1,IHM),JJ=1,NISIN) 00197700 + IF(NSTMP.GT.23) WRITE(6,4000) NTPIN,NISIN,IHM,NE, 00197800 + *((SIGIN(J,JJ),J=1,IHM),JJ=1,NISIN) 00197900 + 4000 FORMAT(//' SIGMA SU UNIT:',I5,' ISOTOPI:',I5,' IHM:',I5, 00198000 + *' GRUPPO:',I5/(1X,5(1PE12.5))) 00198100 + DO 40 IN=1,N 00198200 + IF(NCOMP(IN).NE.0) GO TO 410 00198300 +C 00198400 +C MISTURE PER RHO 00198500 +C 00198600 + DO 41 I=1,IHM 00198700 + 41 SIGIN(I,MIST(IN))=SIGIN(I,MIST(IN))*DENS(IN) 00198800 + GO TO 400 00198900 + 410 CONTINUE 00199000 + IF(NCOMP(IN).NE.MIST(IN)) GO TO 420 00199100 +C 00199200 +C MISTURE PER AUTOVALORI EV 00199300 +C 00199400 + DO 42 I=1,IHM 00199500 + 42 SIGIN(I,MIST(IN))=SIGIN(I,MIST(IN))*EV 00199600 + GO TO 400 00199700 + 420 CONTINUE 00199800 + DO 43I=1,IHM 00199900 + 43 SIGIN(I,MIST(IN))=SIGIN(I,MIST(IN)) 00200000 + * + SIGIN(I,NCOMP(IN))*DENS(IN) 00200100 + 400 CONTINUE 00200200 + 40 CONTINUE 00200300 + WRITE(NTPOU) ((SIGIN(J,JJ),J=1,IHM),JJ=1,MXX) 00200400 + IF(NSTMP.GT.21) WRITE(6,4000) NTPOU,MXX,IHM,NE, 00200500 + *((SIGIN(J,JJ),J=1,IHM),JJ=1,MXX) 00200600 + 30 CONTINUE 00200700 + REWIND NTPIN 00200800 + REWIND NTPOU 00200900 + WRITE(6,5000) NISIN,MXX 00201000 + 5000 FORMAT(//' NUMERO ISOTOPI INPUT:',I5,4X,' NUMERO ISOTOPI MIXING:' 00201100 + *,I5) 00201200 +C 00201300 +C RICALCOLA NISOU 00201400 +C 00201500 + NISOU=MXX 00201600 + RETURN 00201700 + END 00201800 +C 00201900 + SUBROUTINE CNVRTR(N,A) 00202000 +C ********************** 00202100 +C METODO MACCHINOSO DI CONVERTIRE DA REALE AD INTERO 00202200 +C 00202300 + DIMENSION A(N) 00202400 + IF(N.LE.0) RETURN 00202500 + DO 10 I=1,N 00202600 + K=A(I) 00202700 + A(I)=ZZX(K) 00202800 + 10 CONTINUE 00202900 + RETURN 00203000 + END 00203100 +C 00203200 + FUNCTION ZZX(R) 00203300 +C *************** 00203400 + ZZX=R 00203500 + RETURN 00203600 + END 00203700 +C 00203800 + SUBROUTINE VOLZON(VOLT,MZON,VOLZ,MMAP,MAP,NX,NY,NZ,VOL) 00203900 +C *************************************************************** 00204000 +C CALCOLA I VOLUMI DELLE ZONE ED IL VOLUME TOTALE 00204100 +C *************************************************************** 00204200 + DIMENSION VOL(100),VOLZ(MZON),MAP(MMAP) 00204300 + REAL*8 VOLZ,VOLT 00204310 + K=0 00204400 + VOLT=0. 00204500 + CALL EMP(0.0,MZON*2,1,1,VOLZ) 00204600 + DO 10 I=1,MMAP 00204700 + VOLT=VOLT+VOL(I) 00204800 + IF(MAP(I).LE.MZON) VOLZ(MAP(I))=VOLZ(MAP(I))+VOL(I) 00204900 + IF(MAP(I).GT.MZON) K=1 00205000 + 10 CONTINUE 00205100 + IF(K.EQ.0) RETURN 00205200 + WRITE(6,1000) 00205300 + WRITE(11,1000) 00205400 + 1000 FORMAT(//' ****** ERRORE IN CALCOLO VOLUMI DELLE ZONE !!! *****') 00205500 + RETURN 00205600 + END 00205700 diff --git a/teseo/C2RV-Abstract.pdf b/teseo/C2RV-Abstract.pdf new file mode 100644 index 0000000..78a5332 Binary files /dev/null and b/teseo/C2RV-Abstract.pdf differ diff --git a/teseo/README.md b/teseo/README.md new file mode 100644 index 0000000..2fb4277 --- /dev/null +++ b/teseo/README.md @@ -0,0 +1,51 @@ +Teseo +----- + +Teseo is a program of about twenty thousand statements, written +by M.Galli, in FORTRAN-IV, running on an IBM 3090 computer, +between 1984 and 1987. +It contains some routines from MC2-II and other nuclear codes +used at the ENEA research center in the eighties. + +It computes data for the MC2-II code, starting from the +[ENDF-B IV](https://t2.lanl.gov/nis/data/endf/endfiv.htmldata) +evaluated nuclear data files. + +This program is the main part of the *C2RV* code sequence, for +fast neutron multigroup cross section preparation. +The sequence, consisting of the codes: Teseo, MC2-II,GERES, ANISN and MEDIL, +was used at the ENEA research center in Bologna. and presented (in the poster session) +at The *"International Topical Meeting on Advances in Reactor Physics, +Mathematics and Computation", in 1987, in Paris. +The abstract of the poster is in the file C2RV-Abstract.pdf. + +The description of the program is in the ENEA report: RT/TIB/88/34; +a pdf scan is included in this folder. Also the ENEA report: +RT/TIB/87/40, by M.Galli and G.Fioni deals with this program. + +- file: jcl + +The file "jcl" is a procedure to generate a tape containing the code +and related material. JCL (job control language) was used to +manage batch program runs on the IBM mainframes. + +- file: tso + +The file: "tso" is an interactive procedure to run +a sample problem, using the interactive "Time sharing option" (TSO) +of the IBM mainframes of that period. +There is here (as a comment) an example of input to the code. +They where simple textual statements, no real +interactive or graphic interfaces at that time. + +- file: input + +The file: "input" is a sample of nuclear data from the ENDFB-IV +library, used to run the sample problem. + +-file: source + +The file: "source" is the source code of the Teseo program. + + + diff --git a/teseo/Teseo-ENEA-RT_TIB_88_34.pdf b/teseo/Teseo-ENEA-RT_TIB_88_34.pdf new file mode 100644 index 0000000..18f5c03 Binary files /dev/null and b/teseo/Teseo-ENEA-RT_TIB_88_34.pdf differ diff --git a/teseo/codmeta.json b/teseo/codmeta.json new file mode 100644 index 0000000..a679475 --- /dev/null +++ b/teseo/codmeta.json @@ -0,0 +1,29 @@ +{ + "@context": "https://doi.org/10.5063/schema/codemeta-2.0", + "@type": "SoftwareSourceCode", + "name": "Legacy FORTRAN codes", + "description": "Teseo, a legacy FORTRAN code for ENDFB-IV nuclear data management, developed at ENEA by Marcello Galli, between 1984 and 1987" + "codeRepository": "http://coding.bologna.enea.it/gitrepo/oldfortrancodes.git", + "downloadUrl": "http://coding.bologna.enea.it/gitrepo/oldfortrancodes.git", + "programmingLanguage": "FORTRAN", + "operatingSystem": "IBM 3090" + "license": "Public domain", + "dateCreated":"1987-12-01", + "developmentStatus": "Unsupported", + "creativeWorkStatus": "Legacy software" + "keywords": [ + "nuclear reactors", + "cross sections", + "fortran", + "software", + "ENEA","C2RV","Teseo", + ], + "author": [ + { + "@type": "Person", + "givenName": "Marcello", + "familyName": "Galli", + "email": "marcello.galli@enea.it", + }, + ] +} diff --git a/teseo/input b/teseo/input new file mode 100644 index 0000000..3cfa267 --- /dev/null +++ b/teseo/input @@ -0,0 +1,10442 @@ + ENDF/B-IV C12-U235-B10 404 000000000 + 5.01000+ 3 9.92690+ 0 0 0 0 951273 145100001 + 0.00000+ 0 0.00000+ 0 0 0 211 01273 145100002 + 5-B - 10 LASL EVAL-NOV73 G.M.HALE, R.A.NISLEY, P.G.YOUNG 1273 145100003 + DIST-MAY74 1273 145100004 + 1273 145100005 + B-10 FREE ATOM EVAL., NOV. 1973, G.M.HALE, R.A.NISLEY, P.G.YOUNG 1273 145100006 + LOS ALAMOS SCIENTIFIC LABORATORY 1273 145100007 + 1273 145100008 + MF=2 --------- RESONANCE PARAMETERS ---------------------------- 1273 145100009 + 1273 145100010 + MT=151 EFFECTIVE SCATTERING RADIUS = 0.40937E-12 CM 1273 145100011 + 1273 145100012 + 1273 145100013 + MF=3 --------- SMOOTH CROSS SECTIONS --------------------------- 1273 145100014 + 1273 145100015 + THE 2200 M/S CROSS SECTIONS ARE AS FOLLOWS, 1273 145100016 + MT=1 SIGMA = 3838.6 BARNS 1273 145100017 + MT=2 SIGMA = 2.1058 BARNS 1273 145100018 + MT=103 SIGMA = 0.000566 BARNS 1273 145100019 + MT=107 SIGMA = 3836.5 BARNS 1273 145100020 + MT=113 SIGMA = 0.000566 BARNS 1273 145100021 + MT=700 SIGMA = 0.000566 BARNS 1273 145100022 + MT=780 SIGMA = 240.51 BARNS 1273 145100023 + MT=781 SIGMA = 3596.0 BARNS 1273 145100024 + 1273 145100025 + MT=1 TOTAL CROSS SECTION 1273 145100026 + 0 TO 1 MEV, CALCULATED FROM R-MATRIX PARAMETERS OBTAINED BY 1273 145100027 + FITTING SIMULTANEOUSLY DATA FROM THE REACTIONS B10(N,N),1273 145100028 + B10(N,ALPHA0), B10(N,ALPHA1), LI7(ALPHA,ALPHA0), AND 1273 145100029 + LI7(ALPHA,ALPHA1). TOTAL NEUTRON CROSS SECTION MEASURE- 1273 145100030 + MENTS INCLUDED IN THE FIT ARE THOSE OF DI67. THE 1273 145100031 + LI7+ALPHA DATA USED IN THE FIT ARE FROM CU67 AND BI57. 1273 145100032 + 1 TO 20 MEV, SMOOTH CURVE THROUGH MEASUREMENTS OF DI67,BO52,1273 145100033 + TS62,FO61,CO52, AND CO54, CONSTRAINED TO MATCH 1273 145100034 + R-MATRIX FIT AT 1 MEV. 1273 145100035 + 1273 145100036 + MT=2 ELASTIC SCATTERING CROSS SECTION 1273 145100037 + 0 TO 1 MEV, CALCULATED FROM THE R-MATRIX PARAMETERS 1273 145100038 + DESCRIBED FOR MT=1. EXPERIMENTAL ELASTIC SCATTERING DATA1273 145100039 + INCLUDED IN THE FIT ARE THOSE OF AS70 AND LA71. 1273 145100040 + 1 TO 7 MEV, SMOOTH CURVE THROUGH MEASUREMENTS OF LA71, PO70,1273 145100041 + AND HO69, CONSTRAINED TO BE CONSISTENT WITH TOTAL AND 1273 145100042 + REACTION CROSS SECTION MEASUREMENTS. 1273 145100043 + 7 TO 14 MEV, SMOOTH CURVE THROUGH MEASUREMENTS OF HO69,CO69,1273 145100044 + TE62,VA70, AND VA65. 1273 145100045 + 14 TO 20 MEV, OPTICAL MODEL EXTRAPOLATION FROM 14 MEV DATA 1273 145100046 + 1273 145100047 + MT=4 INELASTIC CROSS SECTION 1273 145100048 + THRES.TO 20 MEV, SUM OF MT=51-85 1273 145100049 + 1273 145100050 + MT=51-61 INELASTIC CROSS SECTIONS TO DISCRETE STATES 1273 145100051 + MT=51 Q=-0.717 MEV MT=55 Q=-4.774 MEV MT=59 Q=-5.923 MEV1273 145100052 + 52 -1.740 56 -5.114 60 -6.029 1273 145100053 + 53 -2.154 57 -5.166 61 -6.133 1273 145100054 + 54 -3.585 58 -5.183 1273 145100055 + THRES.TO 20 MEV, BASED ON (N,NPRIME) MEASUREMENTS OF PO70, 1273 145100056 + CO69,HO69, AND VA70, AND THE (N,XGAMMA) MEASUREMENTS OF 1273 145100057 + DA56,DA60, AND NE70 USING A GAMMA-RAY DECAY SCHEME 1273 145100058 + DEDUCED FROM LA66,AL66,SE66A, AND SE66B. HAUSER-FESHBACH1273 145100059 + CALCULATIONS WERE USED TO ESTIMATE SHAPES AND RELATIVE 1273 145100060 + MAGNITUDES WHERE EXPERIMENTAL DATA WERE LACKING 1273 145100061 + 1273 145100062 + MT=62-85 INELASTIC CROSS SECTIONS TO GROUPS OF LEVELS IN 1273 145100063 + 0.5-MEV WIDE BANDS CENTERED ABOUT THE Q-VALUES GIVEN 1273 145100064 + BELOW (USED IN LIEU OF MT=91 AND FILE 5) 1273 145100065 + MT=62 Q=-6.5 MEV MT=70 Q=-10.5 MEV MT=78 Q=-14.5 MEV 1273 145100066 + 63 -7.0 71 -11.0 79 15.0 1273 145100067 + 64 -7.5 72 -11.5 80 15.5 1273 145100068 + 65 -8.0 73 -12.0 81 16.0 1273 145100069 + 66 -8.5 74 -12.5 82 16.5 1273 145100070 + 67 -9.0 75 -13.0 83 17.0 1273 145100071 + 68 -9.5 76 -13.5 84 17.5 1273 145100072 + 69 -10.0 77 -14.0 85 18.0 1273 145100073 + THRES. TO 20 MEV, INTEGRATED CROSS SECTION OBTAINED BY SUB- 1273 145100074 + TRACTING THE SUM OF MT=2,51-61,103,104,107,AND 113 FROM 1273 145100075 + MT=1. CROSS SECTION DISTRIBUTED AMONG THE BANDS WITH 1273 145100076 + AN EVAPORATION MODEL USING A NUCLEAR TEMPERATURE GIVEN 1273 145100077 + BY T=0.9728*SQRT(EN) IN MEV,TAKEN FROM IR67. 1273 145100078 + 1273 145100079 + MT=103 (N,P) CROSS SECTION 1273 145100080 + THRES.TO 20 MEV, SUM OF MT=700-703 1273 145100081 + 1273 145100082 + MT=104 (N,D) CROSS SECTION 1273 145100083 + THRES. TO 20 MEV, BASED ON BE9(D,N)B11 MEASUREMENTS OF SI65 1273 145100084 + AND BA60, AND THE (N,D) MEASUREMENT OF VA65. 1273 145100085 + 1273 145100086 + MT=107 (N,ALPHA) CROSS SECTION 1273 145100087 + 0 TO 20 MEV, SUM OF MT=720,721. 1273 145100088 + 1273 145100089 + MT=113 (N,T2ALPHA) CROSS SECTION 1273 145100090 + 0 TO 2.3 MEV, BASED ON A SINGLE-LEVEL FIT TO THE RESONANCE 1273 145100091 + MEASURED AT 2 MEV BY DA61, ASSUMING L=0 INCOMING NEU- 1273 145100092 + TRONS AND L=2 OUTGOING TRITONS. 1273 145100093 + 2.3 TO 20 MEV, SMOOTH CURVE THROUGH MEASUREMENTS OF FR56 1273 145100094 + AND WY58, FOLLOWING GENERAL SHAPE OF DA61 MEASUREMENT 1273 145100095 + FROM 4 TO 9 MEV. 1273 145100096 + 1273 145100097 + MT=700-703 (N,P) CROSS SECTION TO DISCRETE LEVELS 1273 145100098 + 0 TO 20 MEV, CRUDELY ESTIMATED FROM THE CALCULATIONS 1273 145100099 + OF PO70 AND THE (N,XGAMMA) MEASUREMENTS OF NE70. CROSS 1273 145100100 + SECTION FOR MT=700 ASSUMED IDENTICAL TO MT=113 BELOW 1273 145100101 + 1 MEV. GAMMA-RAY DECAY SCHEME FOR BE-10 FROM LA66. 1273 145100102 + 1273 145100103 + MT=780 (N,ALPHA0) CROSS SECTION 1273 145100104 + 0 TO 1 MEV, CALCULATED FROM THE R-MATRIX PARAMETERS 1273 145100105 + DESCRIBED FOR MT=1. EXPERIMENTAL (N,ALPHA0) DATA INPUT 1273 145100106 + TO THE FIT WERE THOSE OF MA68 AND DA61. IN ADDITION, THE1273 145100107 + ANGULAR DISTRIBUTIONS OF VA72 FOR THE INVERSE REACTION 1273 145100108 + WERE INCLUDED IN THE ANALYSIS. 1273 145100109 + 1 TO 20 MEV, BASED ON DA61 MEASUREMENTS, WITH SMOOTH EXTRA- 1273 145100110 + POLATION FROM 8 TO 20 MEV. DA61 MEASUREMENT ABOVE 1273 145100111 + APPROXIMATELY 2 MEV WAS RENORMALIZED BY FACTOR OF 1.4. 1273 145100112 + 1273 145100113 + MT=781 (N,ALPHA1) CROSS SECTION 1273 145100114 + 0 TO 1 MEV, CALCULATED FROM THE R-MATRIX PARAMETERS 1273 145100115 + DESCRIBED FOR MT=1. EXPERIMENTAL (N,ALPHA1) DATA IN- 1273 145100116 + CLUDED IN THE FIT ARE THOSE OF FR72. 1273 145100117 + 1 TO 20 MEV, SMOOTH CURVE THROUGH MEASUREMENTS OF DA61 AND 1273 145100118 + NE70, WITH SMOOTH EXTRAPOLATION FROM 15 TO 20 MEV. THE 1273 145100119 + DA61 DATA ABOVE APPROXIMATELY 2 MEV WERE RENORMALIZED 1273 145100120 + BY A FACTOR OF 1.4. 1273 145100121 + 1273 145100122 + 1273 145100123 + MF=4---------- NEUTRON ANGULAR DISTRIBUTIONS ------------------- 1273 145100124 + 1273 145100125 + MT=2 ELASTIC ANGULAR DISTRIBUTIONS 1273 145100126 + 0 TO 1 MEV, CALCULATED FROM THE R-MATRIX PARAMETERS 1273 145100127 + DESCRIBED FOR MF=1,MT=1. EXPERIMENTAL ANGULAR DISTRI- 1273 145100128 + BUTIONS INPUT TO THE FIT FOR BOTH THE ELASTIC SCATTER- 1273 145100129 + ING CROSS SECTION AND POLARIZATION WERE OBTAINED FROM 1273 145100130 + THE MEASUREMENTS OF LA71. ASSIGNMENTS FOR RESONANCES 1273 145100131 + ABOVE THE NEUTRON THRESHOLD ARE BASED ON LA71. 1273 145100132 + 1 TO 14 MEV, SMOOTHED REPRESENTATION OF LEGENDRE COEFFI- 1273 145100133 + CIENTS DERIVED FROM THE MEASUREMENTS OF LA71, HA73, 1273 145100134 + PO70, HO69, CO69, VA69, AND VA65, CONSTRAINED TO MATCH 1273 145100135 + THE R-MATRIX CALCULATIONS AT EN=1 MEV. 1273 145100136 + 14 TO 20 MEV, OPTICAL MODEL EXTRAPOLATION OF 14-MEV DATA 1273 145100137 + 1273 145100138 + MT=51-85 INELASTIC ANGULAR DISTRIBUTIONS 1273 145100139 + THRES. TO 20 MEV, ASSUMED ISOTROPIC IN CENTER OF MASS 1273 145100140 + 1273 145100141 + 1273 145100142 + MF=12 -------- GAMMA RAY MULTIPLICITIES ------------------------ 1273 145100143 + 1273 145100144 + MT=781 0.4776-MEV PHOTON FROM THE (N,ALPHA1) REACTION 1273 145100145 + 0 TO 20 MEV, MULTIPLICITY OF 1.0 AT ALL ENERGIES 1273 145100146 + 1273 145100147 + 1273 145100148 + MF=13 -------- GAMMA-RAY PRODUCTION CROSS SECTIONS ------------- 1273 145100149 + 1273 145100150 + MT=4 (N,NGAMMA) CROSS SECTION 1273 145100151 + THRES. TO 20 MEV, OBTAINED FROM MT=51-61 USING B-10 DECAY 1273 145100152 + SCHEME DEDUCED FROM LA66,AL66,SE66A, AND SE66B. 1273 145100153 + 1273 145100154 + MT=103 (N,PGAMMA) CROSS SECTIONS 1273 145100155 + THRES. TO 20 MEV, OBTAINED FROM MT=701-703 USING BE-10 1273 145100156 + DECAY SCHEME DEDUCED FROM LA66. 1273 145100157 + 1273 145100158 + 1273 145100159 + MF=14 -------- GAMMA RAY ANGULAR DISTRIBUTIONS ----------------- 1273 145100160 + 1273 145100161 + MT=4 (N,NGAMMA) ANGULAR DISTRIBUTIONS 1273 145100162 + THRES. TO 20 MEV, ASSUMED ISOTROPIC 1273 145100163 + 1273 145100164 + MT=103 (N,PGAMMA) ANGULAR DISTRIBUTIONS 1273 145100165 + THRES. TO 20 MEV, ASSUMED ISOTROPIC 1273 145100166 + 1273 145100167 + MT=781 (N,ALPHA1/GAMMA) ANGULAR DISTRIBUTION 1273 145100168 + 0 TO 20 MEV, ASSUMED ISOTROPIC 1273 145100169 + 1273 145100170 + 1273 145100171 + ----------------------- REFERENCES ----------------------------- 1273 145100172 + 1273 145100173 + AL66 D.E. ALBURGER ET AL.,PHYS.REV. 143,692 (1966) 1273 145100174 + AS70 A. ASAMI AND M.C. MOXON, J.NUCL.ENERGY 24,85 (1970) 1273 145100175 + BA60 R.BARDES AND G.E. OWEN, PHYS.REV.120,1369 (1960) 1273 145100176 + BE56 R.L. BECKER AND H.H. BARSCHALL, PHYS.REV.102,1384 (1956) 1273 145100177 + BI57 H.BICHSEL AND T.W.BONNER,PHYS.REV.108,1025 (1957) 1273 145100178 + BO51 C.K.BOCKELMAN ET AL., PHYS.REV. 84,69 (1951) 1273 145100179 + BO69 D.BOGART AND L.L.NICHOLS, NUCL.PHYS.A125,463 (1969) 1273 145100180 + CO52 J.H.COON ET AL., PHYS.REV. 88,562 (1952) 1273 145100181 + CO54 C.F.COOK AND T.W. BONNER,PHYS.REV. 94,651 (1954) 1273 145100182 + CO67 S.A. COX AND F.R. PONTET, J.NUCL.ENERGY 21,271 (1967) 1273 145100183 + CO69 J.A. COOKSON AND J.G.LOCKE,NUCL.PHYS.A146,417(1970) 1273 145100184 + CO73 M.S. COATES ET AL., PRIV. COMM. TO L.STEWART (1973) 1273 145100185 + CU65 R.Y.CUSSON, THESIS, CALIF. INSTIT. TECH. (1965) 1273 145100186 + DA56 R.B.DAY,PHYS.REV.102,767 (1956) 1273 145100187 + DA60 R.B. DAY AND M.WALT,PHYS.REV.117,1330 (1960) 1273 145100188 + DA61 E.A. DAVIS ET AL., NUCL.PHYS.27,448 (1961) 1273 145100189 + DI67 K.M. DIMENT, AERE-R-5224 (1967) 1273 145100190 + FO61 D.M. FOSSAN ET AL., PHYS.REV. 123,209 (1961) 1273 145100191 + FR56 G.M. FRYE AND J.H. GAMMEL,PHYS.REV. 103,328 (1956) 1273 145100192 + FR72 S.J. FRIESENHAHN ET AL., GULF-RT-A12210 (1972) 1273 145100193 + HA73 S.L.HAUSLADEN, THESIS, OHIO UNIV. COO-1717-5 (1973) 1273 145100194 + HO69 J.C. HOPKINS, PRIV. COMM. LASL (1969) 1273 145100195 + IR67 D.C.IRVING, ORNL-TM-1872 (1967) 1273 145100196 + LA66 T.LAURITSEN AND F.AJZENBERG-SELOVE,NUCL.PHYS.78,1(1966) 1273 145100197 + LA71 R.O. LANE ET AL., PHYS.REV.C4,380 (1971) 1273 145100198 + MA68 R.L.MACKLIN AND J.H.GIBBONS,PHYS.REV.165,1147 (1968) 1273 145100199 + MO66 F.P.MOORING ET AL.,NUCL.PHYS.82,16 (1966) 1273 145100200 + NE54 N.G.NERESON,LA-1655 (1954) 1273 145100201 + NE70 D.O.NELLIS ET AL., PHYS.REV. C1,847 (1970) 1273 145100202 + PO70 D.PORTER ET AL., AWRE O 45/70 (1970) 1273 145100203 + SE66A R.E. SEGEL AND R.H. SIEMSSEN,PHYS.LETT.20,295 (1966) 1273 145100204 + SE66B R.E.SEGEL ET AL., PHYS.REV. 145,736(1966) 1273 145100205 + SI65 R.H.SIEMSSEN ET AL., NUCL.PHYS.69,209 (1965) 1273 145100206 + TE62 K.TESCH, NUCL.PHYS.37,412 (1962) 1273 145100207 + TS63 K.TSUKADA AND O.TANAKA,J.PHYS.SOC.JAPAN 18,610 (1963) 1273 145100208 + VA65 V.VALKOVIC ET AL., PHYS.REV. 139,331 (1965) 1273 145100209 + VA70 B.VAUCHER ET AL.,HELV.PHYS.ACTA 43,237 (1970) 1273 145100210 + VA72 L.VAN DER ZWAN AND K.W.GEIGER, NUCL.PHYS. A180,615 (1972) 1273 145100211 + WI55 H.B. WILLARD ET AL., PHYS.REV. 98,669(1955) 1273 145100212 + WY58 M.E. WYMAN ET AL., PHYS.REV.112,1264 (1958) 1273 145100213 + 1 451 308 1273 145100214 + 2 151 4 1273 145100215 + 3 1 138 1273 145100216 + 3 2 133 1273 145100217 + 3 4 65 1273 145100218 + 3 51 65 1273 145100219 + 3 52 59 1273 145100220 + 3 53 56 1273 145100221 + 3 54 51 1273 145100222 + 3 55 48 1273 145100223 + 3 56 47 1273 145100224 + 3 57 46 1273 145100225 + 3 58 46 1273 145100226 + 3 59 43 1273 145100227 + 3 60 43 1273 145100228 + 3 61 42 1273 145100229 + 3 62 40 1273 145100230 + 3 63 39 1273 145100231 + 3 64 37 1273 145100232 + 3 65 36 1273 145100233 + 3 66 34 1273 145100234 + 3 67 32 1273 145100235 + 3 68 31 1273 145100236 + 3 69 29 1273 145100237 + 3 70 28 1273 145100238 + 3 71 26 1273 145100239 + 3 72 25 1273 145100240 + 3 73 23 1273 145100241 + 3 74 21 1273 145100242 + 3 75 20 1273 145100243 + 3 76 18 1273 145100244 + 3 77 17 1273 145100245 + 3 78 16 1273 145100246 + 3 79 14 1273 145100247 + 3 80 13 1273 145100248 + 3 81 11 1273 145100249 + 3 82 10 1273 145100250 + 3 83 8 1273 145100251 + 3 84 6 1273 145100252 + 3 85 4 1273 145100253 + 3 103 34 1273 145100254 + 3 104 20 1273 145100255 + 3 107 68 1273 145100256 + 3 113 35 1273 145100257 + 3 251 28 1273 145100258 + 3 252 28 1273 145100259 + 3 253 28 1273 145100260 + 3 700 34 1273 145100261 + 3 701 25 1273 145100262 + 3 702 19 1273 145100263 + 3 703 18 1273 145100264 + 3 780 68 1273 145100265 + 3 781 68 1273 145100266 + 4 2 231 1273 145100267 + 4 51 8 1273 145100268 + 4 52 8 1273 145100269 + 4 53 8 1273 145100270 + 4 54 8 1273 145100271 + 4 55 8 1273 145100272 + 4 56 8 1273 145100273 + 4 57 8 1273 145100274 + 4 58 8 1273 145100275 + 4 59 8 1273 145100276 + 4 60 8 1273 145100277 + 4 61 8 1273 145100278 + 4 62 8 1273 145100279 + 4 63 8 1273 145100280 + 4 64 8 1273 145100281 + 4 65 8 1273 145100282 + 4 66 8 1273 145100283 + 4 67 8 1273 145100284 + 4 68 8 1273 145100285 + 4 69 8 1273 145100286 + 4 70 8 1273 145100287 + 4 71 8 1273 145100288 + 4 72 8 1273 145100289 + 4 73 8 1273 145100290 + 4 74 8 1273 145100291 + 4 75 8 1273 145100292 + 4 76 8 1273 145100293 + 4 77 8 1273 145100294 + 4 78 8 1273 145100295 + 4 79 8 1273 145100296 + 4 80 8 1273 145100297 + 4 81 8 1273 145100298 + 4 82 8 1273 145100299 + 4 83 8 1273 145100300 + 4 84 8 1273 145100301 + 4 85 8 1273 145100302 + 12 781 4 1273 145100303 + 13 4 368 1273 145100304 + 13 103 88 1273 145100305 + 14 4 1 1273 145100306 + 14 103 1 1273 145100307 + 14 781 1 1273 145100308 + 1273 100000309 + 1273 000000310 + 5.01000+ 3 9.92690+ 0 0 0 1 01273 215100311 + 5.01000+ 3 1.83400- 1 0 0 1 01273 215100312 + 1.00000- 5 1.00000+ 4 0 0 0 01273 215100313 + 3.00000+ 0 4.09370- 1 0 0 0 01273 215100314 + 1273 200000315 + 1273 000000316 + 5.01000+ 3 9.92690+ 0 0 99 0 01273 300100317 + 0.00000+ 0 0.00000+ 0 0 0 2 4041273 300100318 + 19 5 404 2 1273 300100319 + 1.00000- 5 1.93000+ 5 2.53000- 2 3.83860+ 3 1.00000- 1 1.93150+ 31273 300100320 + 1.00000+ 0 6.12000+ 2 1.00000+ 1 1.94700+ 2 1.00000+ 2 6.27430+ 11273 300100321 + 1.00000+ 3 2.10490+ 1 5.00000+ 3 1.04610+ 1 1.00000+ 4 8.00860+ 01273 300100322 + 2.00000+ 4 6.34890+ 0 3.00000+ 4 5.67210+ 0 4.00000+ 4 5.30860+ 01273 300100323 + 5.00000+ 4 5.09060+ 0 5.10000+ 4 5.07390+ 0 6.00000+ 4 4.95350+ 01273 300100324 + 7.00000+ 4 4.86640+ 0 8.00000+ 4 4.81220+ 0 9.00000+ 4 4.78050+ 01273 300100325 + 1.00000+ 5 4.76470+ 0 1.10000+ 5 4.76020+ 0 1.20000+ 5 4.76340+ 01273 300100326 + 1.30000+ 5 4.77210+ 0 1.40000+ 5 4.78420+ 0 1.50000+ 5 4.79830+ 01273 300100327 + 1.60000+ 5 4.81310+ 0 1.70000+ 5 4.82790+ 0 1.80000+ 5 4.84170+ 01273 300100328 + 1.90000+ 5 4.85410+ 0 2.00000+ 5 4.86470+ 0 2.05000+ 5 4.86910+ 01273 300100329 + 2.10000+ 5 4.87300+ 0 2.15000+ 5 4.87620+ 0 2.20000+ 5 4.87880+ 01273 300100330 + 2.25000+ 5 4.88080+ 0 2.30000+ 5 4.88210+ 0 2.35000+ 5 4.88270+ 01273 300100331 + 2.40000+ 5 4.88260+ 0 2.45000+ 5 4.88180+ 0 2.50000+ 5 4.88040+ 01273 300100332 + 2.60000+ 5 4.87530+ 0 2.70000+ 5 4.86760+ 0 2.80000+ 5 4.85720+ 01273 300100333 + 2.90000+ 5 4.84440+ 0 3.00000+ 5 4.82930+ 0 3.10000+ 5 4.81230+ 01273 300100334 + 3.20000+ 5 4.79370+ 0 3.30000+ 5 4.77370+ 0 3.40000+ 5 4.75270+ 01273 300100335 + 3.50000+ 5 4.73100+ 0 3.60000+ 5 4.70890+ 0 3.70000+ 5 4.68660+ 01273 300100336 + 3.80000+ 5 4.66420+ 0 3.90000+ 5 4.64180+ 0 4.00000+ 5 4.61920+ 01273 300100337 + 4.10000+ 5 4.59640+ 0 4.20000+ 5 4.57310+ 0 4.30000+ 5 4.54880+ 01273 300100338 + 4.40000+ 5 4.52330+ 0 4.50000+ 5 4.49590+ 0 4.60000+ 5 4.46640+ 01273 300100339 + 4.65000+ 5 4.45080+ 0 4.70000+ 5 4.43440+ 0 4.75000+ 5 4.41740+ 01273 300100340 + 4.80000+ 5 4.39960+ 0 4.85000+ 5 4.38120+ 0 4.90000+ 5 4.36210+ 01273 300100341 + 4.95000+ 5 4.34220+ 0 5.00000+ 5 4.32170+ 0 5.05000+ 5 4.30060+ 01273 300100342 + 5.10000+ 5 4.27890+ 0 5.15000+ 5 4.25660+ 0 5.20000+ 5 4.23390+ 01273 300100343 + 5.30000+ 5 4.18710+ 0 5.40000+ 5 4.13900+ 0 5.60000+ 5 4.04050+ 01273 300100344 + 5.80000+ 5 3.94180+ 0 6.00000+ 5 3.84510+ 0 6.20000+ 5 3.75200+ 01273 300100345 + 6.40000+ 5 3.66330+ 0 6.60000+ 5 3.57950+ 0 6.80000+ 5 3.50040+ 01273 300100346 + 7.00000+ 5 3.42600+ 0 7.20000+ 5 3.35590+ 0 7.40000+ 5 3.29010+ 01273 300100347 + 7.60000+ 5 3.22800+ 0 7.80000+ 5 3.16960+ 0 7.89000+ 5 3.14440+ 01273 300100348 + 8.00000+ 5 3.11450+ 0 8.20000+ 5 3.06250+ 0 8.40000+ 5 3.01330+ 01273 300100349 + 8.60000+ 5 2.96690+ 0 8.80000+ 5 2.92290+ 0 9.00000+ 5 2.88140+ 01273 300100350 + 9.20000+ 5 2.84210+ 0 9.40000+ 5 2.80490+ 0 9.60000+ 5 2.76990+ 01273 300100351 + 9.80000+ 5 2.73690+ 0 1.00000+ 6 2.70610+ 0 1.05000+ 6 2.61000+ 01273 300100352 + 1.10000+ 6 2.52000+ 0 1.15000+ 6 2.43700+ 0 1.20000+ 6 2.36000+ 01273 300100353 + 1.25000+ 6 2.29000+ 0 1.30000+ 6 2.22000+ 0 1.35000+ 6 2.15300+ 01273 300100354 + 1.40000+ 6 2.10000+ 0 1.45000+ 6 2.04800+ 0 1.50000+ 6 2.00000+ 01273 300100355 + 1.55000+ 6 1.96000+ 0 1.60000+ 6 1.93800+ 0 1.65000+ 6 1.94800+ 01273 300100356 + 1.70000+ 6 1.98000+ 0 1.74000+ 6 2.03490+ 0 1.75000+ 6 2.05200+ 01273 300100357 + 1.78000+ 6 2.11020+ 0 1.80000+ 6 2.15200+ 0 1.82000+ 6 2.19680+ 01273 300100358 + 1.85000+ 6 2.25400+ 0 1.86000+ 6 2.26720+ 0 1.87500+ 6 2.27900+ 01273 300100359 + 1.90000+ 6 2.26800+ 0 1.91500+ 6 2.25000+ 0 1.94000+ 6 2.21200+ 01273 300100360 + 1.95000+ 6 2.19400+ 0 1.96000+ 6 2.17770+ 0 1.98000+ 6 2.14430+ 01273 300100361 + 2.00000+ 6 2.11000+ 0 2.02000+ 6 2.07430+ 0 2.05000+ 6 2.02400+ 01273 300100362 + 2.06000+ 6 2.00960+ 0 2.10000+ 6 1.96100+ 0 2.14000+ 6 1.92560+ 01273 300100363 + 2.15000+ 6 1.91900+ 0 2.18000+ 6 1.90570+ 0 2.20000+ 6 1.90000+ 01273 300100364 + 2.22000+ 6 1.89430+ 0 2.25000+ 6 1.89000+ 0 2.26000+ 6 1.89080+ 01273 300100365 + 2.30000+ 6 1.90000+ 0 2.35000+ 6 1.92000+ 0 2.37100+ 6 1.93800+ 01273 300100366 + 2.40000+ 6 1.97000+ 0 2.45000+ 6 2.04000+ 0 2.50000+ 6 2.11990+ 01273 300100367 + 2.55000+ 6 2.20000+ 0 2.60000+ 6 2.27000+ 0 2.62500+ 6 2.31310+ 01273 300100368 + 2.65000+ 6 2.35000+ 0 2.70000+ 6 2.37000+ 0 2.75000+ 6 2.39000+ 01273 300100369 + 2.80000+ 6 2.38000+ 0 2.85000+ 6 2.33000+ 0 2.90000+ 6 2.26000+ 01273 300100370 + 2.95000+ 6 2.20000+ 0 3.00000+ 6 2.12000+ 0 3.05000+ 6 2.03840+ 01273 300100371 + 3.10000+ 6 1.96540+ 0 3.15000+ 6 1.90000+ 0 3.20000+ 6 1.85000+ 01273 300100372 + 3.25000+ 6 1.80000+ 0 3.30000+ 6 1.77000+ 0 3.35000+ 6 1.74000+ 01273 300100373 + 3.40000+ 6 1.71000+ 0 3.45000+ 6 1.68230+ 0 3.45500+ 6 1.67980+ 01273 300100374 + 3.50000+ 6 1.66000+ 0 3.55000+ 6 1.64670+ 0 3.60000+ 6 1.64000+ 01273 300100375 + 3.65000+ 6 1.63860+ 0 3.70000+ 6 1.64300+ 0 3.75000+ 6 1.65430+ 01273 300100376 + 3.80000+ 6 1.67000+ 0 3.85000+ 6 1.68860+ 0 3.90000+ 6 1.70900+ 01273 300100377 + 3.94600+ 6 1.72790+ 0 3.95000+ 6 1.72960+ 0 4.00000+ 6 1.75000+ 01273 300100378 + 4.05000+ 6 1.76910+ 0 4.10000+ 6 1.78800+ 0 4.15000+ 6 1.80920+ 01273 300100379 + 4.20000+ 6 1.82800+ 0 4.25000+ 6 1.84000+ 0 4.30000+ 6 1.84600+ 01273 300100380 + 4.35000+ 6 1.84200+ 0 4.40000+ 6 1.83800+ 0 4.45000+ 6 1.81700+ 01273 300100381 + 4.50000+ 6 1.79000+ 0 4.55000+ 6 1.76900+ 0 4.60000+ 6 1.74800+ 01273 300100382 + 4.65000+ 6 1.72390+ 0 4.70000+ 6 1.70000+ 0 4.75000+ 6 1.67950+ 01273 300100383 + 4.80000+ 6 1.66000+ 0 4.85000+ 6 1.63910+ 0 4.90000+ 6 1.61870+ 01273 300100384 + 4.90900+ 6 1.61520+ 0 4.95000+ 6 1.59910+ 0 5.00000+ 6 1.58000+ 01273 300100385 + 5.05000+ 6 1.56320+ 0 5.10000+ 6 1.54760+ 0 5.15000+ 6 1.53320+ 01273 300100386 + 5.20000+ 6 1.52000+ 0 5.25000+ 6 1.50800+ 0 5.25500+ 6 1.50690+ 01273 300100387 + 5.30000+ 6 1.49700+ 0 5.35000+ 6 1.48700+ 0 5.40000+ 6 1.47800+ 01273 300100388 + 5.45000+ 6 1.46890+ 0 5.50000+ 6 1.46200+ 0 5.60000+ 6 1.46000+ 01273 300100389 + 5.62900+ 6 1.46160+ 0 5.68600+ 6 1.46650+ 0 5.70000+ 6 1.46800+ 01273 300100390 + 5.70500+ 6 1.46860+ 0 5.80000+ 6 1.48000+ 0 5.90000+ 6 1.49040+ 01273 300100391 + 6.00000+ 6 1.50000+ 0 6.10000+ 6 1.50970+ 0 6.20000+ 6 1.51900+ 01273 300100392 + 6.30000+ 6 1.52790+ 0 6.30900+ 6 1.52870+ 0 6.40000+ 6 1.53600+ 01273 300100393 + 6.50000+ 6 1.54260+ 0 6.52000+ 6 1.54380+ 0 6.53200+ 6 1.54450+ 01273 300100394 + 6.55000+ 6 1.54550+ 0 6.60000+ 6 1.54800+ 0 6.63600+ 6 1.54950+ 01273 300100395 + 6.70000+ 6 1.55190+ 0 6.75100+ 6 1.55360+ 0 6.80000+ 6 1.55500+ 01273 300100396 + 6.90000+ 6 1.55830+ 0 7.00000+ 6 1.56000+ 0 7.10000+ 6 1.55830+ 01273 300100397 + 7.15500+ 6 1.55660+ 0 7.20000+ 6 1.55500+ 0 7.24800+ 6 1.55350+ 01273 300100398 + 7.30000+ 6 1.55170+ 0 7.40000+ 6 1.54800+ 0 7.50000+ 6 1.54430+ 01273 300100399 + 7.60000+ 6 1.54000+ 0 7.70000+ 6 1.53410+ 0 7.70500+ 6 1.53380+ 01273 300100400 + 7.80000+ 6 1.52800+ 0 7.90000+ 6 1.52340+ 0 8.00000+ 6 1.51800+ 01273 300100401 + 8.10000+ 6 1.50910+ 0 8.20000+ 6 1.50000+ 0 8.25600+ 6 1.49660+ 01273 300100402 + 8.30000+ 6 1.49400+ 0 8.40000+ 6 1.48800+ 0 8.50000+ 6 1.47890+ 01273 300100403 + 8.60000+ 6 1.47000+ 0 8.70000+ 6 1.46420+ 0 8.80000+ 6 1.46000+ 01273 300100404 + 8.80600+ 6 1.45980+ 0 8.90000+ 6 1.45730+ 0 9.00000+ 6 1.45500+ 01273 300100405 + 9.10000+ 6 1.45120+ 0 9.20000+ 6 1.44760+ 0 9.28500+ 6 1.44540+ 01273 300100406 + 9.30000+ 6 1.44520+ 0 9.35600+ 6 1.44450+ 0 9.40000+ 6 1.44420+ 01273 300100407 + 9.50000+ 6 1.44400+ 0 9.60000+ 6 1.44410+ 0 9.70000+ 6 1.44460+ 01273 300100408 + 9.80000+ 6 1.44540+ 0 9.90000+ 6 1.44640+ 0 9.90700+ 6 1.44650+ 01273 300100409 + 1.00000+ 7 1.44800+ 0 1.01000+ 7 1.45070+ 0 1.02000+ 7 1.45350+ 01273 300100410 + 1.03000+ 7 1.45600+ 0 1.04000+ 7 1.45790+ 0 1.04570+ 7 1.45914+ 01273 300100411 + 1.04600+ 7 1.45920+ 0 1.05000+ 7 1.46000+ 0 1.06000+ 7 1.46340+ 01273 300100412 + 1.07000+ 7 1.46650+ 0 1.08000+ 7 1.46850+ 0 1.09000+ 7 1.46930+ 01273 300100413 + 1.10000+ 7 1.47000+ 0 1.10070+ 7 1.47014+ 0 1.10100+ 7 1.47020+ 01273 300100414 + 1.11000+ 7 1.47240+ 0 1.12000+ 7 1.47480+ 0 1.13000+ 7 1.47660+ 01273 300100415 + 1.14000+ 7 1.47750+ 0 1.15000+ 7 1.47800+ 0 1.15580+ 7 1.47867+ 01273 300100416 + 1.15600+ 7 1.47870+ 0 1.16000+ 7 1.47910+ 0 1.17000+ 7 1.47920+ 01273 300100417 + 1.18000+ 7 1.47740+ 0 1.19000+ 7 1.47390+ 0 1.20000+ 7 1.47000+ 01273 300100418 + 1.21000+ 7 1.46800+ 0 1.21080+ 7 1.46792+ 0 1.21100+ 7 1.46790+ 01273 300100419 + 1.22000+ 7 1.46660+ 0 1.23000+ 7 1.46540+ 0 1.24000+ 7 1.46410+ 01273 300100420 + 1.25000+ 7 1.46300+ 0 1.26000+ 7 1.46170+ 0 1.26580+ 7 1.46103+ 01273 300100421 + 1.26600+ 7 1.46100+ 0 1.27000+ 7 1.46060+ 0 1.28000+ 7 1.45960+ 01273 300100422 + 1.29000+ 7 1.45870+ 0 1.30000+ 7 1.45799+ 0 1.31000+ 7 1.45720+ 01273 300100423 + 1.32000+ 7 1.45640+ 0 1.32090+ 7 1.45631+ 0 1.32100+ 7 1.45630+ 01273 300100424 + 1.33000+ 7 1.45550+ 0 1.34000+ 7 1.45460+ 0 1.35000+ 7 1.45370+ 01273 300100425 + 1.36000+ 7 1.45290+ 0 1.37000+ 7 1.45210+ 0 1.37590+ 7 1.45161+ 01273 300100426 + 1.37600+ 7 1.45160+ 0 1.38000+ 7 1.45130+ 0 1.39000+ 7 1.45070+ 01273 300100427 + 1.40000+ 7 1.45000+ 0 1.41000+ 7 1.44980+ 0 1.42000+ 7 1.44970+ 01273 300100428 + 1.43000+ 7 1.44960+ 0 1.43100+ 7 1.44960+ 0 1.44000+ 7 1.44960+ 01273 300100429 + 1.45000+ 7 1.44960+ 0 1.46000+ 7 1.44960+ 0 1.47000+ 7 1.44960+ 01273 300100430 + 1.48000+ 7 1.44970+ 0 1.48600+ 7 1.44980+ 0 1.49000+ 7 1.44980+ 01273 300100431 + 1.50000+ 7 1.45000+ 0 1.51000+ 7 1.44940+ 0 1.52000+ 7 1.44880+ 01273 300100432 + 1.53000+ 7 1.44820+ 0 1.54000+ 7 1.44760+ 0 1.54100+ 7 1.44750+ 01273 300100433 + 1.55000+ 7 1.44700+ 0 1.56000+ 7 1.44640+ 0 1.57000+ 7 1.44580+ 01273 300100434 + 1.58000+ 7 1.44520+ 0 1.59000+ 7 1.44460+ 0 1.59600+ 7 1.44420+ 01273 300100435 + 1.59610+ 7 1.44420+ 0 1.60000+ 7 1.44400+ 0 1.61000+ 7 1.44340+ 01273 300100436 + 1.62000+ 7 1.44280+ 0 1.63000+ 7 1.44220+ 0 1.64000+ 7 1.44160+ 01273 300100437 + 1.65000+ 7 1.44100+ 0 1.65100+ 7 1.44090+ 0 1.65110+ 7 1.44090+ 01273 300100438 + 1.66000+ 7 1.44040+ 0 1.67000+ 7 1.43980+ 0 1.68000+ 7 1.43920+ 01273 300100439 + 1.69000+ 7 1.43860+ 0 1.70000+ 7 1.43800+ 0 1.70600+ 7 1.43760+ 01273 300100440 + 1.70610+ 7 1.43759+ 0 1.71000+ 7 1.43740+ 0 1.72000+ 7 1.43680+ 01273 300100441 + 1.73000+ 7 1.43620+ 0 1.74000+ 7 1.43560+ 0 1.75000+ 7 1.43500+ 01273 300100442 + 1.76000+ 7 1.43440+ 0 1.76100+ 7 1.43430+ 0 1.76120+ 7 1.43429+ 01273 300100443 + 1.77000+ 7 1.43380+ 0 1.78000+ 7 1.43320+ 0 1.79000+ 7 1.43260+ 01273 300100444 + 1.80000+ 7 1.43200+ 0 1.81000+ 7 1.43140+ 0 1.81600+ 7 1.43100+ 01273 300100445 + 1.81620+ 7 1.43099+ 0 1.82000+ 7 1.43080+ 0 1.83000+ 7 1.43020+ 01273 300100446 + 1.84000+ 7 1.42960+ 0 1.85000+ 7 1.42900+ 0 1.86000+ 7 1.42840+ 01273 300100447 + 1.87000+ 7 1.42780+ 0 1.87100+ 7 1.42770+ 0 1.87130+ 7 1.42769+ 01273 300100448 + 1.88000+ 7 1.42720+ 0 1.89000+ 7 1.42660+ 0 1.90000+ 7 1.42600+ 01273 300100449 + 1.91000+ 7 1.42540+ 0 1.92000+ 7 1.42480+ 0 1.92600+ 7 1.42440+ 01273 300100450 + 1.92630+ 7 1.42438+ 0 1.93000+ 7 1.42420+ 0 1.94000+ 7 1.42360+ 01273 300100451 + 1.95000+ 7 1.42300+ 0 1.96000+ 7 1.42240+ 0 1.97000+ 7 1.42180+ 01273 300100452 + 1.98000+ 7 1.42120+ 0 1.98100+ 7 1.42110+ 0 1.98130+ 7 1.42108+ 01273 300100453 + 1.99000+ 7 1.42060+ 0 2.00000+ 7 1.42000+ 0 1273 300100454 + 1273 300000455 + 5.01000+ 3 9.92690+ 0 0 0 0 01273 300200456 + 0.00000+ 0 0.00000+ 0 0 0 1 3891273 300200457 + 389 2 1273 300200458 + 1.00000- 5 2.10590+ 0 2.53000- 2 2.10580+ 0 1.00000- 1 2.10570+ 01273 300200459 + 1.00000+ 0 2.10510+ 0 1.00000+ 1 2.10340+ 0 1.00000+ 2 2.09860+ 01273 300200460 + 1.00000+ 3 2.09100+ 0 5.00000+ 3 2.09710+ 0 1.00000+ 4 2.12150+ 01273 300200461 + 2.00000+ 4 2.18340+ 0 3.00000+ 4 2.25310+ 0 4.00000+ 4 2.32730+ 01273 300200462 + 5.00000+ 4 2.40420+ 0 5.10000+ 4 2.40910+ 0 6.00000+ 4 2.48300+ 01273 300200463 + 7.00000+ 4 2.56320+ 0 8.00000+ 4 2.64390+ 0 9.00000+ 4 2.72470+ 01273 300200464 + 1.00000+ 5 2.80510+ 0 1.10000+ 5 2.88470+ 0 1.20000+ 5 2.96260+ 01273 300200465 + 1.30000+ 5 3.03870+ 0 1.40000+ 5 3.11240+ 0 1.50000+ 5 3.18340+ 01273 300200466 + 1.60000+ 5 3.25120+ 0 1.70000+ 5 3.31560+ 0 1.80000+ 5 3.37640+ 01273 300200467 + 1.90000+ 5 3.43320+ 0 2.00000+ 5 3.48600+ 0 2.05000+ 5 3.51080+ 01273 300200468 + 2.10000+ 5 3.53470+ 0 2.15000+ 5 3.55740+ 0 2.20000+ 5 3.57910+ 01273 300200469 + 2.25000+ 5 3.59970+ 0 2.30000+ 5 3.61940+ 0 2.35000+ 5 3.63790+ 01273 300200470 + 2.40000+ 5 3.65550+ 0 2.45000+ 5 3.67190+ 0 2.50000+ 5 3.68750+ 01273 300200471 + 2.60000+ 5 3.71530+ 0 2.70000+ 5 3.73930+ 0 2.80000+ 5 3.75930+ 01273 300200472 + 2.90000+ 5 3.77550+ 0 3.00000+ 5 3.78780+ 0 3.10000+ 5 3.79670+ 01273 300200473 + 3.20000+ 5 3.80220+ 0 3.30000+ 5 3.80430+ 0 3.40000+ 5 3.80340+ 01273 300200474 + 3.50000+ 5 3.79970+ 0 3.60000+ 5 3.79340+ 0 3.70000+ 5 3.78490+ 01273 300200475 + 3.80000+ 5 3.77430+ 0 3.90000+ 5 3.76190+ 0 4.00000+ 5 3.74790+ 01273 300200476 + 4.10000+ 5 3.73260+ 0 4.20000+ 5 3.71610+ 0 4.30000+ 5 3.69840+ 01273 300200477 + 4.40000+ 5 3.68000+ 0 4.50000+ 5 3.66050+ 0 4.60000+ 5 3.64030+ 01273 300200478 + 4.65000+ 5 3.63000+ 0 4.70000+ 5 3.61940+ 0 4.75000+ 5 3.60860+ 01273 300200479 + 4.80000+ 5 3.59760+ 0 4.85000+ 5 3.58640+ 0 4.90000+ 5 3.57510+ 01273 300200480 + 4.95000+ 5 3.56360+ 0 5.00000+ 5 3.55180+ 0 5.05000+ 5 3.54000+ 01273 300200481 + 5.10000+ 5 3.52800+ 0 5.15000+ 5 3.51580+ 0 5.20000+ 5 3.50350+ 01273 300200482 + 5.30000+ 5 3.47840+ 0 5.40000+ 5 3.45290+ 0 5.60000+ 5 3.40070+ 01273 300200483 + 5.80000+ 5 3.34790+ 0 6.00000+ 5 3.29480+ 0 6.20000+ 5 3.24220+ 01273 300200484 + 6.40000+ 5 3.19030+ 0 6.60000+ 5 3.13970+ 0 6.80000+ 5 3.09030+ 01273 300200485 + 7.00000+ 5 3.04250+ 0 7.20000+ 5 2.99610+ 0 7.40000+ 5 2.95140+ 01273 300200486 + 7.60000+ 5 2.90820+ 0 7.80000+ 5 2.86660+ 0 7.89000+ 5 2.84820+ 01273 300200487 + 8.00000+ 5 2.82660+ 0 8.20000+ 5 2.78800+ 0 8.40000+ 5 2.75080+ 01273 300200488 + 8.60000+ 5 2.71510+ 0 8.80000+ 5 2.68070+ 0 9.00000+ 5 2.64770+ 01273 300200489 + 9.20000+ 5 2.61600+ 0 9.40000+ 5 2.58530+ 0 9.60000+ 5 2.55590+ 01273 300200490 + 9.80000+ 5 2.52750+ 0 1.00000+ 6 2.50030+ 0 1.05000+ 6 2.40810+ 01273 300200491 + 1.10000+ 6 2.32200+ 0 1.15000+ 6 2.23730+ 0 1.20000+ 6 2.15860+ 01273 300200492 + 1.25000+ 6 2.08220+ 0 1.30000+ 6 2.00580+ 0 1.35000+ 6 1.92720+ 01273 300200493 + 1.40000+ 6 1.86250+ 0 1.45000+ 6 1.78990+ 0 1.50000+ 6 1.72120+ 01273 300200494 + 1.55000+ 6 1.64910+ 0 1.60000+ 6 1.58170+ 0 1.65000+ 6 1.53630+ 01273 300200495 + 1.70000+ 6 1.50960+ 0 1.74000+ 6 1.51760+ 0 1.75000+ 6 1.52290+ 01273 300200496 + 1.78000+ 6 1.55590+ 0 1.80000+ 6 1.58080+ 0 1.82000+ 6 1.61360+ 01273 300200497 + 1.85000+ 6 1.65290+ 0 1.86000+ 6 1.66250+ 0 1.87500+ 6 1.66890+ 01273 300200498 + 1.90000+ 6 1.64900+ 0 1.91500+ 6 1.62890+ 0 1.94000+ 6 1.58870+ 01273 300200499 + 1.95000+ 6 1.57290+ 0 1.96000+ 6 1.56010+ 0 1.98000+ 6 1.53930+ 01273 300200500 + 2.00000+ 6 1.52150+ 0 2.02000+ 6 1.50110+ 0 2.05000+ 6 1.47450+ 01273 300200501 + 2.06000+ 6 1.46780+ 0 2.10000+ 6 1.45120+ 0 2.14000+ 6 1.44580+ 01273 300200502 + 2.15000+ 6 1.44680+ 0 2.18000+ 6 1.45310+ 0 2.20000+ 6 1.46060+ 01273 300200503 + 2.22000+ 6 1.46620+ 0 2.25000+ 6 1.47900+ 0 2.26000+ 6 1.48490+ 01273 300200504 + 2.30000+ 6 1.51460+ 0 2.35000+ 6 1.55300+ 0 2.37100+ 6 1.57570+ 01273 300200505 + 2.40000+ 6 1.61340+ 0 2.45000+ 6 1.68550+ 0 2.50000+ 6 1.76920+ 01273 300200506 + 2.55000+ 6 1.82800+ 0 2.60000+ 6 1.88240+ 0 2.62500+ 6 1.91840+ 01273 300200507 + 2.65000+ 6 1.94810+ 0 2.70000+ 6 1.95400+ 0 2.75000+ 6 1.96280+ 01273 300200508 + 2.80000+ 6 1.95030+ 0 2.85000+ 6 1.90830+ 0 2.90000+ 6 1.85030+ 01273 300200509 + 2.95000+ 6 1.80170+ 0 3.00000+ 6 1.73120+ 0 3.05000+ 6 1.65720+ 01273 300200510 + 3.10000+ 6 1.59070+ 0 3.15000+ 6 1.52990+ 0 3.20000+ 6 1.48390+ 01273 300200511 + 3.25000+ 6 1.43780+ 0 3.30000+ 6 1.41160+ 0 3.35000+ 6 1.38580+ 01273 300200512 + 3.40000+ 6 1.36010+ 0 3.45000+ 6 1.33280+ 0 3.45500+ 6 1.33040+ 01273 300200513 + 3.50000+ 6 1.31090+ 0 3.55000+ 6 1.29800+ 0 3.60000+ 6 1.29170+ 01273 300200514 + 3.65000+ 6 1.28440+ 0 3.70000+ 6 1.28280+ 0 3.75000+ 6 1.28380+ 01273 300200515 + 3.80000+ 6 1.28930+ 0 3.85000+ 6 1.29550+ 0 3.90000+ 6 1.30360+ 01273 300200516 + 3.94600+ 6 1.31090+ 0 3.95000+ 6 1.31140+ 0 4.00000+ 6 1.31680+ 01273 300200517 + 4.05000+ 6 1.32190+ 0 4.10000+ 6 1.32690+ 0 4.15000+ 6 1.33480+ 01273 300200518 + 4.20000+ 6 1.34030+ 0 4.25000+ 6 1.34350+ 0 4.30000+ 6 1.34080+ 01273 300200519 + 4.35000+ 6 1.33310+ 0 4.40000+ 6 1.32550+ 0 4.45000+ 6 1.30050+ 01273 300200520 + 4.50000+ 6 1.26950+ 0 4.55000+ 6 1.24450+ 0 4.60000+ 6 1.21950+ 01273 300200521 + 4.65000+ 6 1.19160+ 0 4.70000+ 6 1.16390+ 0 4.75000+ 6 1.13960+ 01273 300200522 + 4.80000+ 6 1.11630+ 0 4.85000+ 6 1.09410+ 0 4.90000+ 6 1.07250+ 01273 300200523 + 4.90900+ 6 1.06870+ 0 4.95000+ 6 1.05160+ 0 5.00000+ 6 1.03120+ 01273 300200524 + 5.05000+ 6 1.01640+ 0 5.10000+ 6 1.00270+ 0 5.15000+ 6 9.90030- 11273 300200525 + 5.20000+ 6 9.78520- 1 5.25000+ 6 9.69440- 1 5.25500+ 6 9.68620- 11273 300200526 + 5.30000+ 6 9.57980- 1 5.35000+ 6 9.46770- 1 5.40000+ 6 9.36560- 11273 300200527 + 5.45000+ 6 9.27120- 1 5.50000+ 6 9.19870- 1 5.60000+ 6 9.15330- 11273 300200528 + 5.62900+ 6 9.16640- 1 5.68600+ 6 9.20090- 1 5.70000+ 6 9.20470- 11273 300200529 + 5.70500+ 6 9.20660- 1 5.80000+ 6 9.25470- 1 5.90000+ 6 9.37340- 11273 300200530 + 6.00000+ 6 9.50570- 1 6.10000+ 6 9.69580- 1 6.20000+ 6 9.88190- 11273 300200531 + 6.30000+ 6 1.00850+ 0 6.30900+ 6 1.01030+ 0 6.40000+ 6 1.02790+ 01273 300200532 + 6.50000+ 6 1.04210+ 0 6.52000+ 6 1.04480+ 0 6.53200+ 6 1.04610+ 01273 300200533 + 6.55000+ 6 1.04810+ 0 6.60000+ 6 1.05330+ 0 6.63600+ 6 1.05820+ 01273 300200534 + 6.70000+ 6 1.05650+ 0 6.75100+ 6 1.05510+ 0 6.80000+ 6 1.05630+ 01273 300200535 + 6.90000+ 6 1.05840+ 0 7.00000+ 6 1.06290+ 0 7.10000+ 6 1.06180+ 01273 300200536 + 7.15500+ 6 1.06070+ 0 7.20000+ 6 1.05900+ 0 7.24800+ 6 1.05680+ 01273 300200537 + 7.30000+ 6 1.05430+ 0 7.40000+ 6 1.04840+ 0 7.50000+ 6 1.04260+ 01273 300200538 + 7.60000+ 6 1.03600+ 0 7.70000+ 6 1.02780+ 0 7.70500+ 6 1.02740+ 01273 300200539 + 7.80000+ 6 1.01980+ 0 7.90000+ 6 1.01370+ 0 8.00000+ 6 1.00690+ 01273 300200540 + 8.10000+ 6 9.97620- 1 8.20000+ 6 9.88160- 1 8.25600+ 6 9.84720- 11273 300200541 + 8.30000+ 6 9.82100- 1 8.40000+ 6 9.76100- 1 8.50000+ 6 9.67160- 11273 300200542 + 8.60000+ 6 9.58430- 1 8.70000+ 6 9.52760- 1 8.80000+ 6 9.48700- 11273 300200543 + 8.80600+ 6 9.48490- 1 8.90000+ 6 9.45840- 1 9.00000+ 6 9.43400- 11273 300200544 + 9.10000+ 6 9.39550- 1 9.20000+ 6 9.35900- 1 9.28500+ 6 9.33480- 11273 300200545 + 9.30000+ 6 9.33240- 1 9.35600+ 6 9.32380- 1 9.40000+ 6 9.31950- 11273 300200546 + 9.50000+ 6 9.31350- 1 9.60000+ 6 9.31000- 1 9.70000+ 6 9.30820- 11273 300200547 + 9.80000+ 6 9.30930- 1 9.90000+ 6 9.30860- 1 9.90700+ 6 9.30880- 11273 300200548 + 1.00000+ 7 9.31150- 1 1.01000+ 7 9.32060- 1 1.02000+ 7 9.33110- 11273 300200549 + 1.03000+ 7 9.33860- 1 1.04000+ 7 9.34010- 1 1.04600+ 7 9.34410- 11273 300200550 + 1.05000+ 7 9.34640- 1 1.06000+ 7 9.36890- 1 1.07000+ 7 9.39310- 11273 300200551 + 1.08000+ 7 9.40620- 1 1.09000+ 7 9.40740- 1 1.10000+ 7 9.40760- 11273 300200552 + 1.10100+ 7 9.40920- 1 1.11000+ 7 9.42890- 1 1.12000+ 7 9.45170- 11273 300200553 + 1.13000+ 7 9.47150- 1 1.14000+ 7 9.48220- 1 1.15000+ 7 9.48890- 11273 300200554 + 1.15600+ 7 9.50360- 1 1.16000+ 7 9.51250- 1 1.17000+ 7 9.52570- 11273 300200555 + 1.18000+ 7 9.50830- 1 1.19000+ 7 9.47390- 1 1.20000+ 7 9.43550- 11273 300200556 + 1.21000+ 7 9.42270- 1 1.21100+ 7 9.42260- 1 1.22000+ 7 9.41850- 11273 300200557 + 1.23000+ 7 9.41700- 1 1.24000+ 7 9.41480- 1 1.25000+ 7 9.41450- 11273 300200558 + 1.26000+ 7 9.41420- 1 1.26600+ 7 9.41520- 1 1.27000+ 7 9.41670- 11273 300200559 + 1.28000+ 7 9.42030- 1 1.29000+ 7 9.42530- 1 1.30000+ 7 9.43230- 11273 300200560 + 1.31000+ 7 9.44120- 1 1.32000+ 7 9.45010- 1 1.32100+ 7 9.45090- 11273 300200561 + 1.33000+ 7 9.45820- 1 1.34000+ 7 9.46590- 1 1.35000+ 7 9.47420- 11273 300200562 + 1.36000+ 7 9.48470- 1 1.37000+ 7 9.49520- 1 1.37600+ 7 9.50150- 11273 300200563 + 1.38000+ 7 9.50560- 1 1.39000+ 7 9.51750- 1 1.40000+ 7 9.52830- 11273 300200564 + 1.41000+ 7 9.54660- 1 1.42000+ 7 9.56590- 1 1.43000+ 7 9.58520- 11273 300200565 + 1.43100+ 7 9.58730- 1 1.44000+ 7 9.60490- 1 1.45000+ 7 9.62360- 11273 300200566 + 1.46000+ 7 9.64150- 1 1.47000+ 7 9.65940- 1 1.48000+ 7 9.67830- 11273 300200567 + 1.48600+ 7 9.69000- 1 1.49000+ 7 9.69700- 1 1.50000+ 7 9.71670- 11273 300200568 + 1.51000+ 7 9.72840- 1 1.52000+ 7 9.74020- 1 1.53000+ 7 9.75190- 11273 300200569 + 1.54000+ 7 9.76360- 1 1.54100+ 7 9.76430- 1 1.55000+ 7 9.77430- 11273 300200570 + 1.56000+ 7 9.78450- 1 1.57000+ 7 9.79400- 1 1.58000+ 7 9.80340- 11273 300200571 + 1.59000+ 7 9.81290- 1 1.59600+ 7 9.81790- 1 1.60000+ 7 9.82160- 11273 300200572 + 1.61000+ 7 9.82960- 1 1.62000+ 7 9.83660- 1 1.63000+ 7 9.84360- 11273 300200573 + 1.64000+ 7 9.85060- 1 1.65000+ 7 9.85760- 1 1.65100+ 7 9.85770- 11273 300200574 + 1.66000+ 7 9.86310- 1 1.67000+ 7 9.86850- 1 1.68000+ 7 9.87310- 11273 300200575 + 1.69000+ 7 9.87780- 1 1.70000+ 7 9.88240- 1 1.70600+ 7 9.88480- 11273 300200576 + 1.71000+ 7 9.88710- 1 1.72000+ 7 9.89170- 1 1.73000+ 7 9.89600- 11273 300200577 + 1.74000+ 7 9.90020- 1 1.75000+ 7 9.90450- 1 1.76000+ 7 9.90860- 11273 300200578 + 1.76100+ 7 9.90850- 1 1.77000+ 7 9.91240- 1 1.78000+ 7 9.91620- 11273 300200579 + 1.79000+ 7 9.91980- 1 1.80000+ 7 9.92340- 1 1.81000+ 7 9.92660- 11273 300200580 + 1.81600+ 7 9.92810- 1 1.82000+ 7 9.92970- 1 1.83000+ 7 9.93280- 11273 300200581 + 1.84000+ 7 9.93600- 1 1.85000+ 7 9.93890- 1 1.86000+ 7 9.94210- 11273 300200582 + 1.87000+ 7 9.94540- 1 1.87100+ 7 9.94530- 1 1.88000+ 7 9.94860- 11273 300200583 + 1.89000+ 7 9.95170- 1 1.90000+ 7 9.95480- 1 1.91000+ 7 9.95760- 11273 300200584 + 1.92000+ 7 9.96040- 1 1.92600+ 7 9.96160- 1 1.93000+ 7 9.96330- 11273 300200585 + 1.94000+ 7 9.96610- 1 1.95000+ 7 9.96890- 1 1.96000+ 7 9.97170- 11273 300200586 + 1.97000+ 7 9.97450- 1 1.98000+ 7 9.97730- 1 1.98100+ 7 9.97720- 11273 300200587 + 1.99000+ 7 9.98020- 1 2.00000+ 7 9.98300- 1 1273 300200588 + 1273 300000589 + 5.01000+ 3 9.92690+ 0 0 99 0 01273 300400590 + 0.00000+ 0-7.17000+ 5 0 0 1 1841273 300400591 + 184 2 1273 300400592 + 7.89000+ 5 0.00000+ 0 8.00000+ 5 1.04270- 5 1.00000+ 6 2.00000- 41273 300400593 + 1.10000+ 6 5.50540- 4 1.20000+ 6 1.10000- 3 1.30000+ 6 1.79380- 31273 300400594 + 1.40000+ 6 2.90000- 3 1.50000+ 6 4.70000- 3 1.55000+ 6 5.74580- 31273 300400595 + 1.60000+ 6 7.10000- 3 1.65000+ 6 9.00000- 3 1.70000+ 6 1.15000- 21273 300400596 + 1.75000+ 6 1.65000- 2 1.80000+ 6 2.72000- 2 1.85000+ 6 4.13000- 21273 300400597 + 1.90000+ 6 6.02000- 2 1.91500+ 6 6.73430- 2 1.94000+ 6 7.80240- 21273 300400598 + 1.96000+ 6 8.09820- 2 1.98000+ 6 7.85410- 2 2.00000+ 6 7.26000- 21273 300400599 + 2.05000+ 6 6.22300- 2 2.15000+ 6 4.90100- 2 2.20000+ 6 4.38600- 21273 300400600 + 2.30000+ 6 3.76850- 2 2.35000+ 6 3.65100- 2 2.37100+ 6 3.61510- 21273 300400601 + 2.40000+ 6 3.64400- 2 2.60000+ 6 3.91640- 2 2.75000+ 6 4.10500- 21273 300400602 + 2.80000+ 6 4.19920- 2 2.95000+ 6 4.73260- 2 3.00000+ 6 4.98900- 21273 300400603 + 3.20000+ 6 6.13200- 2 3.30000+ 6 6.50280- 2 3.40000+ 6 6.49520- 21273 300400604 + 3.60000+ 6 5.86440- 2 3.70000+ 6 5.89330- 2 3.80000+ 6 6.17170- 21273 300400605 + 3.90000+ 6 6.67710- 2 3.94600+ 6 6.92990- 2 4.00000+ 6 7.48000- 21273 300400606 + 4.10000+ 6 8.37540- 2 4.20000+ 6 9.13960- 2 4.40000+ 6 1.05570- 11273 300400607 + 4.60000+ 6 1.17360- 1 4.80000+ 6 1.21870- 1 5.00000+ 6 1.20650- 11273 300400608 + 5.20000+ 6 1.17180- 1 5.25000+ 6 1.16350- 1 5.25500+ 6 1.16280- 11273 300400609 + 5.40000+ 6 1.24700- 1 5.50000+ 6 1.26980- 1 5.60000+ 6 1.28700- 11273 300400610 + 5.62900+ 6 1.29120- 1 5.68600+ 6 1.30810- 1 5.70000+ 6 1.31990- 11273 300400611 + 5.70500+ 6 1.32420- 1 5.80000+ 6 1.39420- 1 5.90000+ 6 1.43540- 11273 300400612 + 6.00000+ 6 1.45500- 1 6.20000+ 6 1.49000- 1 6.40000+ 6 1.50800- 11273 300400613 + 6.50000+ 6 1.51270- 1 6.52000+ 6 1.51340- 1 6.60000+ 6 1.53420- 11273 300400614 + 6.63600+ 6 1.54300- 1 6.70000+ 6 1.65900- 1 6.75100+ 6 1.75000- 11273 300400615 + 6.80000+ 6 1.81030- 1 6.90000+ 6 1.90500- 1 7.00000+ 6 1.96050- 11273 300400616 + 7.10000+ 6 2.01170- 1 7.15500+ 6 2.03450- 1 7.20000+ 6 2.06020- 11273 300400617 + 7.40000+ 6 2.15170- 1 7.60000+ 6 2.21820- 1 7.70000+ 6 2.24590- 11273 300400618 + 7.70500+ 6 2.24720- 1 7.80000+ 6 2.27010- 1 8.00000+ 6 2.31210- 11273 300400619 + 8.20000+ 6 2.34760- 1 8.25600+ 6 2.35670- 1 8.30000+ 6 2.36380- 11273 300400620 + 8.40000+ 6 2.37940- 1 8.60000+ 6 2.40960- 1 8.80000+ 6 2.43900- 11273 300400621 + 8.80600+ 6 2.43990- 1 8.90000+ 6 2.45330- 1 9.00000+ 6 2.46750- 11273 300400622 + 9.20000+ 6 2.49670- 1 9.30000+ 6 2.51130- 1 9.35600+ 6 2.51960- 11273 300400623 + 9.40000+ 6 2.52620- 1 9.50000+ 6 2.54150- 1 9.60000+ 6 2.55720- 11273 300400624 + 9.80000+ 6 2.59500- 1 9.90000+ 6 2.61830- 1 9.90700+ 6 2.62000- 11273 300400625 + 1.00000+ 7 2.64400- 1 1.01000+ 7 2.67320- 1 1.04000+ 7 2.75940- 11273 300400626 + 1.04570+ 7 2.77440- 1 1.05000+ 7 2.78530- 1 1.06000+ 7 2.80810- 11273 300400627 + 1.10000+ 7 2.88040- 1 1.10070+ 7 2.88140- 1 1.11000+ 7 2.89380- 11273 300400628 + 1.12000+ 7 2.90570- 1 1.15000+ 7 2.93280- 1 1.15580+ 7 2.93130- 11273 300400629 + 1.16000+ 7 2.93050- 1 1.17000+ 7 2.92870- 1 1.20000+ 7 2.95790- 11273 300400630 + 1.21000+ 7 2.96060- 1 1.21080+ 7 2.96070- 1 1.22000+ 7 2.96080- 11273 300400631 + 1.23000+ 7 2.96020- 1 1.25000+ 7 2.95850- 1 1.26000+ 7 2.95560- 11273 300400632 + 1.26580+ 7 2.95360- 1 1.27000+ 7 2.95190- 1 1.28000+ 7 2.94810- 11273 300400633 + 1.30000+ 7 2.93970- 1 1.32000+ 7 2.92480- 1 1.32090+ 7 2.92410- 11273 300400634 + 1.33000+ 7 2.91720- 1 1.34000+ 7 2.90990- 1 1.35000+ 7 2.90210- 11273 300400635 + 1.37000+ 7 2.88280- 1 1.37590+ 7 2.87690- 1 1.38000+ 7 2.87320- 11273 300400636 + 1.39000+ 7 2.86420- 1 1.40000+ 7 2.85530- 1 1.43000+ 7 2.82480- 11273 300400637 + 1.43100+ 7 2.82370- 1 1.44000+ 7 2.81530- 1 1.45000+ 7 2.80670- 11273 300400638 + 1.48000+ 7 2.78890- 1 1.48600+ 7 2.78540- 1 1.49000+ 7 2.78310- 11273 300400639 + 1.50000+ 7 2.77740- 1 1.54000+ 7 2.76030- 1 1.54100+ 7 2.76000- 11273 300400640 + 1.55000+ 7 2.75710- 1 1.56000+ 7 2.75440- 1 1.59000+ 7 2.74850- 11273 300400641 + 1.59610+ 7 2.74760- 1 1.60000+ 7 2.74730- 1 1.61000+ 7 2.74680- 11273 300400642 + 1.65000+ 7 2.74880- 1 1.65110+ 7 2.74910- 1 1.66000+ 7 2.75080- 11273 300400643 + 1.67000+ 7 2.75290- 1 1.70000+ 7 2.76150- 1 1.70610+ 7 2.76320- 11273 300400644 + 1.71000+ 7 2.76430- 1 1.72000+ 7 2.76720- 1 1.75000+ 7 2.77690- 11273 300400645 + 1.76000+ 7 2.78030- 1 1.76120+ 7 2.78080- 1 1.77000+ 7 2.78400- 11273 300400646 + 1.78000+ 7 2.78770- 1 1.80000+ 7 2.79550- 1 1.81000+ 7 2.79980- 11273 300400647 + 1.81620+ 7 2.80250- 1 1.82000+ 7 2.80420- 1 1.83000+ 7 2.80860- 11273 300400648 + 1.84000+ 7 2.81290- 1 1.85000+ 7 2.81750- 1 1.87000+ 7 2.82600- 11273 300400649 + 1.87130+ 7 2.82660- 1 1.88000+ 7 2.83030- 1 1.89000+ 7 2.83470- 11273 300400650 + 1.90000+ 7 2.83910- 1 1.92000+ 7 2.84850- 1 1.92630+ 7 2.85150- 11273 300400651 + 1.93000+ 7 2.85310- 1 1.94000+ 7 2.85780- 1 1.95000+ 7 2.86250- 11273 300400652 + 1.98000+ 7 2.87660- 1 1.98130+ 7 2.87720- 1 1.99000+ 7 2.88120- 11273 300400653 + 2.00000+ 7 2.88590- 1 1273 300400654 + 1273 300000655 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 305100656 + 0.00000+ 0-7.17000+ 5 0 31 1 1841273 305100657 + 184 2 1273 305100658 + 7.89000+ 5 0.00000+ 0 8.00000+ 5 1.04270- 5 1.00000+ 6 2.00000- 41273 305100659 + 1.10000+ 6 5.50540- 4 1.20000+ 6 1.10000- 3 1.30000+ 6 1.79380- 31273 305100660 + 1.40000+ 6 2.90000- 3 1.50000+ 6 4.70000- 3 1.55000+ 6 5.74580- 31273 305100661 + 1.60000+ 6 7.10000- 3 1.65000+ 6 9.00000- 3 1.70000+ 6 1.15000- 21273 305100662 + 1.75000+ 6 1.65000- 2 1.80000+ 6 2.72000- 2 1.85000+ 6 4.13000- 21273 305100663 + 1.90000+ 6 6.02000- 2 1.91500+ 6 6.73430- 2 1.94000+ 6 7.77000- 21273 305100664 + 1.96000+ 6 8.04000- 2 1.98000+ 6 7.77000- 2 2.00000+ 6 7.15000- 21273 305100665 + 2.05000+ 6 6.07000- 2 2.15000+ 6 4.68000- 2 2.20000+ 6 4.14000- 21273 305100666 + 2.30000+ 6 3.48000- 2 2.35000+ 6 3.34000- 2 2.37100+ 6 3.29500- 21273 305100667 + 2.40000+ 6 3.24000- 2 2.60000+ 6 2.94000- 2 2.75000+ 6 2.78500- 21273 305100668 + 2.80000+ 6 2.78000- 2 2.95000+ 6 3.02000- 2 3.00000+ 6 3.18000- 21273 305100669 + 3.20000+ 6 3.89000- 2 3.30000+ 6 4.05000- 2 3.40000+ 6 3.84000- 21273 305100670 + 3.60000+ 6 2.80000- 2 3.70000+ 6 2.62000- 2 3.80000+ 6 2.69000- 21273 305100671 + 3.90000+ 6 2.99000- 2 3.94600+ 6 3.14910- 2 4.00000+ 6 3.34000- 21273 305100672 + 4.10000+ 6 3.67000- 2 4.20000+ 6 3.94000- 2 4.40000+ 6 4.51000- 21273 305100673 + 4.60000+ 6 4.89000- 2 4.80000+ 6 4.87000- 2 5.00000+ 6 4.45000- 21273 305100674 + 5.20000+ 6 3.99400- 2 5.25000+ 6 3.90000- 2 5.25500+ 6 3.89150- 21273 305100675 + 5.40000+ 6 3.65880- 2 5.50000+ 6 3.50000- 2 5.60000+ 6 3.36700- 21273 305100676 + 5.62900+ 6 3.33070- 2 5.68600+ 6 3.26220- 2 5.70000+ 6 3.24600- 21273 305100677 + 5.70500+ 6 3.24030- 2 5.80000+ 6 3.13040- 2 5.90000+ 6 3.01660- 21273 305100678 + 6.00000+ 6 2.91000- 2 6.20000+ 6 2.73080- 2 6.40000+ 6 2.56820- 21273 305100679 + 6.50000+ 6 2.49000- 2 6.52000+ 6 2.47440- 2 6.60000+ 6 2.41280- 21273 305100680 + 6.63600+ 6 2.38540- 2 6.70000+ 6 2.33720- 2 6.75100+ 6 2.29920- 21273 305100681 + 6.80000+ 6 2.26200- 2 6.90000+ 6 2.18900- 2 7.00000+ 6 2.12000- 21273 305100682 + 7.10000+ 6 2.06160- 2 7.15500+ 6 2.03080- 2 7.20000+ 6 2.00640- 21273 305100683 + 7.40000+ 6 1.89480- 2 7.60000+ 6 1.79020- 2 7.70000+ 6 1.74280- 21273 305100684 + 7.70500+ 6 1.74050- 2 7.80000+ 6 1.69760- 2 8.00000+ 6 1.61000- 21273 305100685 + 8.20000+ 6 1.52080- 2 8.25600+ 6 1.49800- 2 8.30000+ 6 1.48320- 21273 305100686 + 8.40000+ 6 1.45080- 2 8.60000+ 6 1.38340- 2 8.80000+ 6 1.31560- 21273 305100687 + 8.80600+ 6 1.31390- 2 8.90000+ 6 1.28740- 2 9.00000+ 6 1.26000- 21273 305100688 + 9.20000+ 6 1.19640- 2 9.30000+ 6 1.16360- 2 9.35600+ 6 1.14550- 21273 305100689 + 9.40000+ 6 1.13140- 2 9.50000+ 6 1.10000- 2 9.60000+ 6 1.07020- 21273 305100690 + 9.80000+ 6 1.01920- 2 9.90000+ 6 9.98800- 3 9.90700+ 6 9.97430- 31273 305100691 + 1.00000+ 7 9.80000- 3 1.01000+ 7 9.59600- 3 1.04000+ 7 8.99600- 31273 305100692 + 1.04570+ 7 8.88400- 3 1.05000+ 7 8.80000- 3 1.06000+ 7 8.61600- 31273 305100693 + 1.10000+ 7 7.90000- 3 1.10070+ 7 7.88670- 3 1.11000+ 7 7.71200- 31273 305100694 + 1.12000+ 7 7.52800- 3 1.15000+ 7 7.00000- 3 1.15580+ 7 6.91240- 31273 305100695 + 1.16000+ 7 6.85000- 3 1.17000+ 7 6.70500- 3 1.20000+ 7 6.30000- 31273 305100696 + 1.21000+ 7 6.16400- 3 1.21080+ 7 6.15320- 3 1.22000+ 7 6.03100- 31273 305100697 + 1.23000+ 7 5.90100- 3 1.25000+ 7 5.65000- 3 1.26000+ 7 5.53240- 31273 305100698 + 1.26580+ 7 5.46590- 3 1.27000+ 7 5.41860- 3 1.28000+ 7 5.30860- 31273 305100699 + 1.30000+ 7 5.10000- 3 1.32000+ 7 4.90760- 3 1.32090+ 7 4.89920- 31273 305100700 + 1.33000+ 7 4.81560- 3 1.34000+ 7 4.72640- 3 1.35000+ 7 4.64000- 31273 305100701 + 1.37000+ 7 4.46880- 3 1.37590+ 7 4.42010- 3 1.38000+ 7 4.38680- 31273 305100702 + 1.39000+ 7 4.30720- 3 1.40000+ 7 4.23000- 3 1.43000+ 7 4.02000- 31273 305100703 + 1.43100+ 7 4.01330- 3 1.44000+ 7 3.95400- 3 1.45000+ 7 3.89000- 31273 305100704 + 1.48000+ 7 3.70040- 3 1.48600+ 7 3.66380- 3 1.49000+ 7 3.63960- 31273 305100705 + 1.50000+ 7 3.58000- 3 1.54000+ 7 3.35440- 3 1.54100+ 7 3.34890- 31273 305100706 + 1.55000+ 7 3.30000- 3 1.56000+ 7 3.24430- 3 1.59000+ 7 3.08230- 31273 305100707 + 1.59610+ 7 3.05030- 3 1.60000+ 7 3.03000- 3 1.61000+ 7 2.98170- 31273 305100708 + 1.65000+ 7 2.79790- 3 1.65110+ 7 2.79310- 3 1.66000+ 7 2.75440- 31273 305100709 + 1.67000+ 7 2.71190- 3 1.70000+ 7 2.59000- 3 1.70610+ 7 2.56510- 31273 305100710 + 1.71000+ 7 2.54930- 3 1.72000+ 7 2.50920- 3 1.75000+ 7 2.39250- 31273 305100711 + 1.76000+ 7 2.35480- 3 1.76120+ 7 2.35030- 3 1.77000+ 7 2.31770- 31273 305100712 + 1.78000+ 7 2.28120- 3 1.80000+ 7 2.21000- 3 1.81000+ 7 2.17670- 31273 305100713 + 1.81620+ 7 2.15610- 3 1.82000+ 7 2.14360- 3 1.83000+ 7 2.11090- 31273 305100714 + 1.84000+ 7 2.07840- 3 1.85000+ 7 2.04630- 3 1.87000+ 7 1.98290- 31273 305100715 + 1.87130+ 7 1.97880- 3 1.88000+ 7 1.95160- 3 1.89000+ 7 1.92070- 31273 305100716 + 1.90000+ 7 1.89000- 3 1.92000+ 7 1.82600- 3 1.92630+ 7 1.80580- 31273 305100717 + 1.93000+ 7 1.79400- 3 1.94000+ 7 1.76200- 3 1.95000+ 7 1.73000- 31273 305100718 + 1.98000+ 7 1.63400- 3 1.98130+ 7 1.62980- 3 1.99000+ 7 1.60200- 31273 305100719 + 2.00000+ 7 1.57000- 3 1273 305100720 + 1273 300000721 + 5.01000+ 3 9.92690+ 0 0 2 0 01273 305200722 + 0.00000+ 0-1.74000+ 6 0 31 1 1681273 305200723 + 168 2 1273 305200724 + 1.91500+ 6 0.00000+ 0 1.94000+ 6 3.23530- 4 1.96000+ 6 5.82350- 41273 305200725 + 1.98000+ 6 8.41180- 4 2.00000+ 6 1.10000- 3 2.05000+ 6 1.52980- 31273 305200726 + 2.15000+ 6 2.20970- 3 2.20000+ 6 2.45980- 3 2.30000+ 6 2.88520- 31273 305200727 + 2.35000+ 6 3.10980- 3 2.37100+ 6 3.20100- 3 2.40000+ 6 3.32380- 31273 305200728 + 2.60000+ 6 4.12560- 3 2.75000+ 6 4.74000- 3 2.80000+ 6 4.95880- 31273 305200729 + 2.95000+ 6 5.62480- 3 3.00000+ 6 5.85000- 3 3.20000+ 6 6.73080- 31273 305200730 + 3.30000+ 6 7.17600- 3 3.40000+ 6 7.61600- 3 3.60000+ 6 8.42280- 31273 305200731 + 3.70000+ 6 8.77520- 3 3.80000+ 6 9.10200- 3 3.90000+ 6 9.39600- 31273 305200732 + 3.94600+ 6 9.51780- 3 4.00000+ 6 9.65000- 3 4.10000+ 6 9.84240- 31273 305200733 + 4.20000+ 6 9.99160- 3 4.40000+ 6 1.01700- 2 4.60000+ 6 1.02730- 21273 305200734 + 4.80000+ 6 1.03240- 2 5.00000+ 6 1.02800- 2 5.20000+ 6 1.01310- 21273 305200735 + 5.25000+ 6 1.00800- 2 5.25500+ 6 1.00740- 2 5.40000+ 6 9.89520- 31273 305200736 + 5.50000+ 6 9.76000- 3 5.60000+ 6 9.64220- 3 5.62900+ 6 9.60550- 31273 305200737 + 5.68600+ 6 9.53000- 3 5.70000+ 6 9.51080- 3 5.70500+ 6 9.50390- 31273 305200738 + 5.80000+ 6 9.34920- 3 5.90000+ 6 9.15680- 3 6.00000+ 6 8.95000- 31273 305200739 + 6.20000+ 6 8.55000- 3 6.40000+ 6 8.15060- 3 6.50000+ 6 7.96000- 31273 305200740 + 6.52000+ 6 7.92680- 3 6.60000+ 6 7.79480- 3 6.63600+ 6 7.73570- 31273 305200741 + 6.70000+ 6 7.63120- 3 6.75100+ 6 7.54810- 3 6.80000+ 6 7.45650- 31273 305200742 + 6.90000+ 6 7.26880- 3 7.00000+ 6 7.08000- 3 7.10000+ 6 6.91010- 31273 305200743 + 7.15500+ 6 6.81880- 3 7.20000+ 6 6.74520- 3 7.40000+ 6 6.43010- 31273 305200744 + 7.60000+ 6 6.12600- 3 7.70000+ 6 5.97500- 3 7.70500+ 6 5.96750- 31273 305200745 + 7.80000+ 6 5.82700- 3 8.00000+ 6 5.54000- 3 8.20000+ 6 5.26860- 31273 305200746 + 8.25600+ 6 5.19530- 3 8.30000+ 6 5.13860- 3 8.40000+ 6 5.01240- 31273 305200747 + 8.60000+ 6 4.77240- 3 8.80000+ 6 4.54860- 3 8.80600+ 6 4.54210- 31273 305200748 + 8.90000+ 6 4.44240- 3 9.00000+ 6 4.34000- 3 9.20000+ 6 4.14460- 31273 305200749 + 9.30000+ 6 4.05260- 3 9.35600+ 6 4.00270- 3 9.40000+ 6 3.96440- 31273 305200750 + 9.50000+ 6 3.88000- 3 9.60000+ 6 3.80120- 3 9.80000+ 6 3.65380- 31273 305200751 + 9.90000+ 6 3.58520- 3 9.90700+ 6 3.58050- 3 1.00000+ 7 3.52000- 31273 305200752 + 1.01000+ 7 3.45840- 3 1.04000+ 7 3.28440- 3 1.04570+ 7 3.25320- 31273 305200753 + 1.05000+ 7 3.23000- 3 1.06000+ 7 3.17320- 3 1.10000+ 7 2.96000- 31273 305200754 + 1.10070+ 7 2.95670- 3 1.11000+ 7 2.91400- 3 1.12000+ 7 2.86900- 31273 305200755 + 1.15000+ 7 2.74000- 3 1.15580+ 7 2.71290- 3 1.16000+ 7 2.69360- 31273 305200756 + 1.17000+ 7 2.64840- 3 1.20000+ 7 2.52000- 3 1.21000+ 7 2.48560- 31273 305200757 + 1.21080+ 7 2.48290- 3 1.22000+ 7 2.45240- 3 1.23000+ 7 2.42040- 31273 305200758 + 1.25000+ 7 2.36000- 3 1.26000+ 7 2.32760- 3 1.26580+ 7 2.30890- 31273 305200759 + 1.27000+ 7 2.29540- 3 1.28000+ 7 2.26340- 3 1.30000+ 7 2.20000- 31273 305200760 + 1.32000+ 7 2.13820- 3 1.32090+ 7 2.13550- 3 1.33000+ 7 2.10820- 31273 305200761 + 1.34000+ 7 2.07880- 3 1.35000+ 7 2.05000- 3 1.37000+ 7 1.99680- 31273 305200762 + 1.37590+ 7 1.98140- 3 1.38000+ 7 1.97080- 3 1.39000+ 7 1.94520- 31273 305200763 + 1.40000+ 7 1.92000- 3 1.43000+ 7 1.84080- 3 1.43100+ 7 1.83820- 31273 305200764 + 1.44000+ 7 1.81520- 3 1.45000+ 7 1.79000- 3 1.48000+ 7 1.72400- 31273 305200765 + 1.48600+ 7 1.71080- 3 1.49000+ 7 1.70200- 3 1.50000+ 7 1.68000- 31273 305200766 + 1.54000+ 7 1.57560- 3 1.54100+ 7 1.57300- 3 1.55000+ 7 1.55000- 31273 305200767 + 1.56000+ 7 1.52880- 3 1.59000+ 7 1.46880- 3 1.59610+ 7 1.45730- 31273 305200768 + 1.60000+ 7 1.45000- 3 1.61000+ 7 1.42930- 3 1.65000+ 7 1.34810- 31273 305200769 + 1.65110+ 7 1.34590- 3 1.66000+ 7 1.32820- 3 1.67000+ 7 1.30840- 31273 305200770 + 1.70000+ 7 1.25000- 3 1.70610+ 7 1.23810- 3 1.71000+ 7 1.23050- 31273 305200771 + 1.72000+ 7 1.21160- 3 1.75000+ 7 1.15810- 3 1.76000+ 7 1.14140- 31273 305200772 + 1.76120+ 7 1.13940- 3 1.77000+ 7 1.12520- 3 1.78000+ 7 1.10960- 31273 305200773 + 1.80000+ 7 1.08000- 3 1.81000+ 7 1.06740- 3 1.81620+ 7 1.06000- 31273 305200774 + 1.82000+ 7 1.05560- 3 1.83000+ 7 1.04460- 3 1.84000+ 7 1.03440- 31273 305200775 + 1.85000+ 7 1.02500- 3 1.87000+ 7 1.00860- 3 1.87130+ 7 1.00760- 31273 305200776 + 1.88000+ 7 1.00160- 3 1.89000+ 7 9.95400- 4 1.90000+ 7 9.90000- 41273 305200777 + 1.92000+ 7 9.88000- 4 1.92630+ 7 9.87370- 4 1.93000+ 7 9.87000- 41273 305200778 + 1.94000+ 7 9.86000- 4 1.95000+ 7 9.85000- 4 1.98000+ 7 9.82000- 41273 305200779 + 1.98130+ 7 9.81870- 4 1.99000+ 7 9.81000- 4 2.00000+ 7 9.80000- 41273 305200780 + 1273 300000781 + 5.01000+ 3 9.92690+ 0 0 3 0 01273 305300782 + 0.00000+ 0-2.15400+ 6 0 31 1 1581273 305300783 + 158 2 1273 305300784 + 2.37100+ 6 0.00000+ 0 2.40000+ 6 7.16230- 4 2.60000+ 6 5.63860- 31273 305300785 + 2.75000+ 6 8.46000- 3 2.80000+ 6 9.23280- 3 2.95000+ 6 1.15010- 21273 305300786 + 3.00000+ 6 1.22400- 2 3.20000+ 6 1.56890- 2 3.30000+ 6 1.73520- 21273 305300787 + 3.40000+ 6 1.89360- 2 3.60000+ 6 2.22210- 2 3.70000+ 6 2.39580- 21273 305300788 + 3.80000+ 6 2.57150- 2 3.90000+ 6 2.74750- 2 3.94600+ 6 2.82900- 21273 305300789 + 4.00000+ 6 2.92500- 2 4.10000+ 6 3.10390- 2 4.20000+ 6 3.28430- 21273 305300790 + 4.40000+ 6 3.64770- 2 4.60000+ 6 4.03600- 2 4.80000+ 6 4.14270- 21273 305300791 + 5.00000+ 6 4.16700- 2 5.20000+ 6 4.10020- 2 5.25000+ 6 4.07700- 21273 305300792 + 5.25500+ 6 4.07480- 2 5.40000+ 6 4.00190- 2 5.50000+ 6 3.94200- 21273 305300793 + 5.60000+ 6 3.86500- 2 5.62900+ 6 3.84210- 2 5.68600+ 6 3.79640- 21273 305300794 + 5.70000+ 6 3.78500- 2 5.70500+ 6 3.78100- 2 5.80000+ 6 3.70870- 21273 305300795 + 5.90000+ 6 3.63980- 2 6.00000+ 6 3.57300- 2 6.20000+ 6 3.43620- 21273 305300796 + 6.40000+ 6 3.29830- 2 6.50000+ 6 3.23100- 2 6.52000+ 6 3.21880- 21273 305300797 + 6.60000+ 6 3.16980- 2 6.63600+ 6 3.14780- 2 6.70000+ 6 3.10860- 21273 305300798 + 6.75100+ 6 3.07730- 2 6.80000+ 6 3.04440- 2 6.90000+ 6 2.97630- 21273 305300799 + 7.00000+ 6 2.90700- 2 7.10000+ 6 2.83780- 2 7.15500+ 6 2.80020- 21273 305300800 + 7.20000+ 6 2.76980- 2 7.40000+ 6 2.63800- 2 7.60000+ 6 2.51600- 21273 305300801 + 7.70000+ 6 2.45920- 2 7.70500+ 6 2.45630- 2 7.80000+ 6 2.40340- 21273 305300802 + 8.00000+ 6 2.29500- 2 8.20000+ 6 2.18120- 2 8.25600+ 6 2.14990- 21273 305300803 + 8.30000+ 6 2.12540- 2 8.40000+ 6 2.07040- 2 8.60000+ 6 1.96450- 21273 305300804 + 8.80000+ 6 1.86590- 2 8.80600+ 6 1.86300- 2 8.90000+ 6 1.81870- 21273 305300805 + 9.00000+ 6 1.77300- 2 9.20000+ 6 1.68640- 2 9.30000+ 6 1.64500- 21273 305300806 + 9.35600+ 6 1.62240- 2 9.40000+ 6 1.60490- 2 9.50000+ 6 1.56600- 21273 305300807 + 9.60000+ 6 1.52600- 2 9.80000+ 6 1.45210- 2 9.90000+ 6 1.41800- 21273 305300808 + 9.90700+ 6 1.41570- 2 1.00000+ 7 1.38600- 2 1.01000+ 7 1.36080- 21273 305300809 + 1.04000+ 7 1.29600- 2 1.04570+ 7 1.28550- 2 1.05000+ 7 1.27800- 21273 305300810 + 1.06000+ 7 1.25890- 2 1.10000+ 7 1.18800- 2 1.10070+ 7 1.18680- 21273 305300811 + 1.11000+ 7 1.17070- 2 1.12000+ 7 1.15400- 2 1.15000+ 7 1.10700- 21273 305300812 + 1.15580+ 7 1.09850- 2 1.16000+ 7 1.09260- 2 1.17000+ 7 1.07910- 21273 305300813 + 1.20000+ 7 1.04400- 2 1.21000+ 7 1.03570- 2 1.21080+ 7 1.03510- 21273 305300814 + 1.22000+ 7 1.02800- 2 1.23000+ 7 1.02080- 2 1.25000+ 7 1.00800- 21273 305300815 + 1.26000+ 7 1.00080- 2 1.26580+ 7 9.96620- 3 1.27000+ 7 9.93600- 31273 305300816 + 1.28000+ 7 9.86400- 3 1.30000+ 7 9.72000- 3 1.32000+ 7 9.57600- 31273 305300817 + 1.32090+ 7 9.56950- 3 1.33000+ 7 9.50400- 3 1.34000+ 7 9.43200- 31273 305300818 + 1.35000+ 7 9.36000- 3 1.37000+ 7 9.22140- 3 1.37590+ 7 9.17910- 31273 305300819 + 1.38000+ 7 9.14940- 3 1.39000+ 7 9.07560- 3 1.40000+ 7 9.00000- 31273 305300820 + 1.43000+ 7 8.73000- 3 1.43100+ 7 8.72100- 3 1.44000+ 7 8.64000- 31273 305300821 + 1.45000+ 7 8.55000- 3 1.48000+ 7 8.32320- 3 1.48600+ 7 8.28170- 31273 305300822 + 1.49000+ 7 8.25480- 3 1.50000+ 7 8.19000- 3 1.54000+ 7 7.97400- 31273 305300823 + 1.54100+ 7 7.96860- 3 1.55000+ 7 7.92000- 3 1.56000+ 7 7.85160- 31273 305300824 + 1.59000+ 7 7.63560- 3 1.59610+ 7 7.58970- 3 1.60000+ 7 7.56000- 31273 305300825 + 1.61000+ 7 7.48600- 3 1.65000+ 7 7.19440- 3 1.65110+ 7 7.18650- 31273 305300826 + 1.66000+ 7 7.12260- 3 1.67000+ 7 7.05130- 3 1.70000+ 7 6.84000- 31273 305300827 + 1.70610+ 7 6.80030- 3 1.71000+ 7 6.77500- 3 1.72000+ 7 6.71040- 31273 305300828 + 1.75000+ 7 6.51940- 3 1.76000+ 7 6.45660- 3 1.76120+ 7 6.44910- 31273 305300829 + 1.77000+ 7 6.39430- 3 1.78000+ 7 6.33240- 3 1.80000+ 7 6.21000- 31273 305300830 + 1.81000+ 7 6.14900- 3 1.81620+ 7 6.11100- 3 1.82000+ 7 6.08760- 31273 305300831 + 1.83000+ 7 6.02570- 3 1.84000+ 7 5.96340- 3 1.85000+ 7 5.90060- 31273 305300832 + 1.87000+ 7 5.77370- 3 1.87130+ 7 5.76540- 3 1.88000+ 7 5.70960- 31273 305300833 + 1.89000+ 7 5.64500- 3 1.90000+ 7 5.58000- 3 1.92000+ 7 5.43600- 31273 305300834 + 1.92630+ 7 5.39060- 3 1.93000+ 7 5.36400- 3 1.94000+ 7 5.29200- 31273 305300835 + 1.95000+ 7 5.22000- 3 1.98000+ 7 5.00400- 3 1.98130+ 7 4.99460- 31273 305300836 + 1.99000+ 7 4.93200- 3 2.00000+ 7 4.86000- 3 1273 305300837 + 1273 300000838 + 5.01000+ 3 9.92690+ 0 0 4 0 01273 305400839 + 0.00000+ 0-3.58500+ 6 0 31 1 1441273 305400840 + 144 2 1273 305400841 + 3.94600+ 6 0.00000+ 0 4.00000+ 6 2.50000- 3 4.10000+ 6 6.17260- 31273 305400842 + 4.20000+ 6 9.16170- 3 4.40000+ 6 1.38260- 2 4.60000+ 6 1.78280- 21273 305400843 + 4.80000+ 6 2.14200- 2 5.00000+ 6 2.42000- 2 5.20000+ 6 2.61080- 21273 305400844 + 5.25000+ 6 2.65000- 2 5.25500+ 6 2.65430- 2 5.40000+ 6 2.77000- 21273 305400845 + 5.50000+ 6 2.84000- 2 5.60000+ 6 2.89680- 2 5.62900+ 6 2.91210- 21273 305400846 + 5.68600+ 6 2.94050- 2 5.70000+ 6 2.94720- 2 5.70500+ 6 2.94960- 21273 305400847 + 5.80000+ 6 2.99440- 2 5.90000+ 6 3.03960- 2 6.00000+ 6 3.08000- 21273 305400848 + 6.20000+ 6 3.13760- 2 6.40000+ 6 3.19500- 2 6.50000+ 6 3.22000- 21273 305400849 + 6.52000+ 6 3.22250- 2 6.60000+ 6 3.23100- 2 6.63600+ 6 3.23400- 21273 305400850 + 6.70000+ 6 3.23800- 2 6.75100+ 6 3.24010- 2 6.80000+ 6 3.24450- 21273 305400851 + 6.90000+ 6 3.25280- 2 7.00000+ 6 3.26000- 2 7.10000+ 6 3.26370- 21273 305400852 + 7.15500+ 6 3.26500- 2 7.20000+ 6 3.26560- 2 7.40000+ 6 3.26370- 21273 305400853 + 7.60000+ 6 3.25520- 2 7.70000+ 6 3.24880- 2 7.70500+ 6 3.24840- 21273 305400854 + 7.80000+ 6 3.24080- 2 8.00000+ 6 3.22000- 2 8.20000+ 6 3.19160- 21273 305400855 + 8.25600+ 6 3.18280- 2 8.30000+ 6 3.17560- 2 8.40000+ 6 3.15840- 21273 305400856 + 8.60000+ 6 3.12160- 2 8.80000+ 6 3.08240- 2 8.80600+ 6 3.08120- 21273 305400857 + 8.90000+ 6 3.06160- 2 9.00000+ 6 3.04000- 2 9.20000+ 6 2.99560- 21273 305400858 + 9.30000+ 6 2.97160- 2 9.35600+ 6 2.95760- 2 9.40000+ 6 2.94640- 21273 305400859 + 9.50000+ 6 2.92000- 2 9.60000+ 6 2.89040- 2 9.80000+ 6 2.82760- 21273 305400860 + 9.90000+ 6 2.79440- 2 9.90700+ 6 2.79200- 2 1.00000+ 7 2.76000- 21273 305400861 + 1.01000+ 7 2.72560- 2 1.04000+ 7 2.61760- 2 1.04570+ 7 2.59630- 21273 305400862 + 1.05000+ 7 2.58000- 2 1.06000+ 7 2.54160- 2 1.10000+ 7 2.38000- 21273 305400863 + 1.10070+ 7 2.37710- 2 1.11000+ 7 2.33760- 2 1.12000+ 7 2.29440- 21273 305400864 + 1.15000+ 7 2.16000- 2 1.15580+ 7 2.13290- 2 1.16000+ 7 2.11320- 21273 305400865 + 1.17000+ 7 2.06580- 2 1.20000+ 7 1.92000- 2 1.21000+ 7 1.86880- 21273 305400866 + 1.21080+ 7 1.86470- 2 1.22000+ 7 1.81820- 2 1.23000+ 7 1.76820- 21273 305400867 + 1.25000+ 7 1.67000- 2 1.26000+ 7 1.62520- 2 1.26580+ 7 1.59990- 21273 305400868 + 1.27000+ 7 1.58180- 2 1.28000+ 7 1.53980- 2 1.30000+ 7 1.46000- 21273 305400869 + 1.32000+ 7 1.38380- 2 1.32090+ 7 1.38050- 2 1.33000+ 7 1.34780- 21273 305400870 + 1.34000+ 7 1.31320- 2 1.35000+ 7 1.28000- 2 1.37000+ 7 1.22040- 21273 305400871 + 1.37590+ 7 1.20370- 2 1.38000+ 7 1.19240- 2 1.39000+ 7 1.16560- 21273 305400872 + 1.40000+ 7 1.14000- 2 1.43000+ 7 1.06560- 2 1.43100+ 7 1.06320- 21273 305400873 + 1.44000+ 7 1.04240- 2 1.45000+ 7 1.02000- 2 1.48000+ 7 9.57600- 31273 305400874 + 1.48600+ 7 9.45980- 3 1.49000+ 7 9.38400- 3 1.50000+ 7 9.20000- 31273 305400875 + 1.54000+ 7 8.55200- 3 1.54100+ 7 8.53660- 3 1.55000+ 7 8.40000- 31273 305400876 + 1.56000+ 7 8.23330- 3 1.59000+ 7 7.75330- 3 1.59610+ 7 7.65940- 31273 305400877 + 1.60000+ 7 7.60000- 3 1.61000+ 7 7.47050- 3 1.65000+ 7 6.99580- 31273 305400878 + 1.65110+ 7 6.98380- 3 1.66000+ 7 6.88800- 3 1.67000+ 7 6.78450- 31273 305400879 + 1.70000+ 7 6.50000- 3 1.70610+ 7 6.43790- 3 1.71000+ 7 6.39880- 31273 305400880 + 1.72000+ 7 6.30000- 3 1.75000+ 7 6.01870- 3 1.76000+ 7 5.93000- 31273 305400881 + 1.76120+ 7 5.91950- 3 1.77000+ 7 5.84370- 3 1.78000+ 7 5.76000- 31273 305400882 + 1.80000+ 7 5.60000- 3 1.81000+ 7 5.53100- 3 1.81620+ 7 5.48920- 31273 305400883 + 1.82000+ 7 5.46400- 3 1.83000+ 7 5.39900- 3 1.84000+ 7 5.33600- 31273 305400884 + 1.85000+ 7 5.27500- 3 1.87000+ 7 5.15900- 3 1.87130+ 7 5.15170- 31273 305400885 + 1.88000+ 7 5.10400- 3 1.89000+ 7 5.05100- 3 1.90000+ 7 5.00000- 31273 305400886 + 1.92000+ 7 4.90000- 3 1.92630+ 7 4.86850- 3 1.93000+ 7 4.85000- 31273 305400887 + 1.94000+ 7 4.80000- 3 1.95000+ 7 4.75000- 3 1.98000+ 7 4.60000- 31273 305400888 + 1.98130+ 7 4.59350- 3 1.99000+ 7 4.55000- 3 2.00000+ 7 4.50000- 31273 305400889 + 1273 300000890 + 5.01000+ 3 9.92690+ 0 0 5 0 01273 305500891 +-4.46000+ 6-4.77400+ 6 0 22 1 1341273 305500892 + 134 2 1273 305500893 + 5.25500+ 6 0.00000+ 0 5.40000+ 6 1.05000- 2 5.50000+ 6 1.44000- 21273 305500894 + 5.60000+ 6 1.77680- 2 5.62900+ 6 1.86630- 2 5.68600+ 6 2.03150- 21273 305500895 + 5.70000+ 6 2.06990- 2 5.70500+ 6 2.08340- 2 5.80000+ 6 2.31920- 21273 305500896 + 5.90000+ 6 2.53480- 2 6.00000+ 6 2.72000- 2 6.20000+ 6 3.03480- 21273 305500897 + 6.40000+ 6 3.26440- 2 6.50000+ 6 3.35000- 2 6.52000+ 6 3.36510- 21273 305500898 + 6.60000+ 6 3.41860- 2 6.63600+ 6 3.43920- 2 6.70000+ 6 3.47040- 21273 305500899 + 6.75100+ 6 3.49030- 2 6.80000+ 6 3.50480- 2 6.90000+ 6 3.52420- 21273 305500900 + 7.00000+ 6 3.53000- 2 7.10000+ 6 3.52580- 2 7.15500+ 6 3.51910- 21273 305500901 + 7.20000+ 6 3.51120- 2 7.40000+ 6 3.45260- 2 7.60000+ 6 3.35820- 21273 305500902 + 7.70000+ 6 3.30080- 2 7.70500+ 6 3.29780- 2 7.80000+ 6 3.24040- 21273 305500903 + 8.00000+ 6 3.11000- 2 8.20000+ 6 2.95200- 2 8.25600+ 6 2.90500- 21273 305500904 + 8.30000+ 6 2.86810- 2 8.40000+ 6 2.78420- 2 8.60000+ 6 2.61690- 21273 305500905 + 8.80000+ 6 2.45540- 2 8.80600+ 6 2.45060- 2 8.90000+ 6 2.37690- 21273 305500906 + 9.00000+ 6 2.30000- 2 9.20000+ 6 2.15280- 2 9.30000+ 6 2.08280- 21273 305500907 + 9.35600+ 6 2.04460- 2 9.40000+ 6 2.01520- 2 9.50000+ 6 1.95000- 21273 305500908 + 9.60000+ 6 1.88760- 2 9.80000+ 6 1.77240- 2 9.90000+ 6 1.71960- 21273 305500909 + 9.90700+ 6 1.71600- 2 1.00000+ 7 1.67000- 2 1.01000+ 7 1.62800- 21273 305500910 + 1.04000+ 7 1.51400- 2 1.04570+ 7 1.49440- 2 1.05000+ 7 1.48000- 21273 305500911 + 1.06000+ 7 1.44240- 2 1.10000+ 7 1.30000- 2 1.10070+ 7 1.29770- 21273 305500912 + 1.11000+ 7 1.26800- 2 1.12000+ 7 1.23700- 2 1.15000+ 7 1.15000- 21273 305500913 + 1.15580+ 7 1.13420- 2 1.16000+ 7 1.12280- 2 1.17000+ 7 1.09620- 21273 305500914 + 1.20000+ 7 1.02000- 2 1.21000+ 7 9.95600- 3 1.21080+ 7 9.93660- 31273 305500915 + 1.22000+ 7 9.71400- 3 1.23000+ 7 9.47400- 3 1.25000+ 7 9.00000- 31273 305500916 + 1.26000+ 7 8.75000- 3 1.26580+ 7 8.60730- 3 1.27000+ 7 8.50500- 31273 305500917 + 1.28000+ 7 8.26500- 3 1.30000+ 7 7.80000- 3 1.32000+ 7 7.40500- 31273 305500918 + 1.32090+ 7 7.38770- 3 1.33000+ 7 7.21500- 3 1.34000+ 7 7.03000- 31273 305500919 + 1.35000+ 7 6.85000- 3 1.37000+ 7 6.46100- 3 1.37590+ 7 6.34850- 31273 305500920 + 1.38000+ 7 6.27100- 3 1.39000+ 7 6.08400- 3 1.40000+ 7 5.90000- 31273 305500921 + 1.43000+ 7 5.41100- 3 1.43100+ 7 5.39520- 3 1.44000+ 7 5.25400- 31273 305500922 + 1.45000+ 7 5.10000- 3 1.48000+ 7 4.62000- 3 1.48600+ 7 4.52400- 31273 305500923 + 1.49000+ 7 4.46000- 3 1.50000+ 7 4.30000- 3 1.54000+ 7 3.64800- 31273 305500924 + 1.54100+ 7 3.63290- 3 1.55000+ 7 3.50000- 3 1.56000+ 7 3.38400- 31273 305500925 + 1.59000+ 7 3.08400- 3 1.59610+ 7 3.03180- 3 1.60000+ 7 3.00000- 31273 305500926 + 1.61000+ 7 2.91420- 3 1.65000+ 7 2.60620- 3 1.65110+ 7 2.59860- 31273 305500927 + 1.66000+ 7 2.53800- 3 1.67000+ 7 2.47320- 3 1.70000+ 7 2.30000- 31273 305500928 + 1.70610+ 7 2.26990- 3 1.71000+ 7 2.25100- 3 1.72000+ 7 2.20400- 31273 305500929 + 1.75000+ 7 2.07500- 3 1.76000+ 7 2.03600- 3 1.76120+ 7 2.03150- 31273 305500930 + 1.77000+ 7 1.99900- 3 1.78000+ 7 1.96400- 3 1.80000+ 7 1.90000- 31273 305500931 + 1.81000+ 7 1.86320- 3 1.81620+ 7 1.84120- 3 1.82000+ 7 1.82800- 31273 305500932 + 1.83000+ 7 1.79420- 3 1.84000+ 7 1.76200- 3 1.85000+ 7 1.73120- 31273 305500933 + 1.87000+ 7 1.67420- 3 1.87130+ 7 1.67080- 3 1.88000+ 7 1.64800- 31273 305500934 + 1.89000+ 7 1.62320- 3 1.90000+ 7 1.60000- 3 1.92000+ 7 1.58000- 31273 305500935 + 1.92630+ 7 1.57370- 3 1.93000+ 7 1.57000- 3 1.94000+ 7 1.56000- 31273 305500936 + 1.95000+ 7 1.55000- 3 1.98000+ 7 1.52000- 3 1.98130+ 7 1.51870- 31273 305500937 + 1.99000+ 7 1.51000- 3 2.00000+ 7 1.50000- 3 1273 305500938 + 1273 300000939 + 5.01000+ 3 9.92690+ 0 0 6 0 01273 305600940 +-4.46000+ 6-5.11400+ 6 0 22 1 1301273 305600941 + 130 2 1273 305600942 + 5.62900+ 6 0.00000+ 0 5.68600+ 6 9.75120- 4 5.70000+ 6 1.21460- 31273 305600943 + 5.70500+ 6 1.30020- 3 5.80000+ 6 2.48950- 3 5.90000+ 6 3.05020- 31273 305600944 + 6.00000+ 6 3.24000- 3 6.20000+ 6 3.84480- 3 6.40000+ 6 4.24080- 31273 305600945 + 6.50000+ 6 4.41000- 3 6.52000+ 6 4.45490- 3 6.60000+ 6 4.63140- 31273 305600946 + 6.63600+ 6 4.70930- 3 6.70000+ 6 4.84560- 3 6.75100+ 6 4.95160- 31273 305600947 + 6.80000+ 6 5.02740- 3 6.90000+ 6 5.17410- 3 7.00000+ 6 5.31000- 31273 305600948 + 7.10000+ 6 5.47790- 3 7.15500+ 6 5.56690- 3 7.20000+ 6 5.63800- 31273 305600949 + 7.40000+ 6 5.88190- 3 7.60000+ 6 6.07120- 3 7.70000+ 6 6.16430- 31273 305600950 + 7.70500+ 6 6.16890- 3 7.80000+ 6 6.26400- 3 8.00000+ 6 6.44400- 31273 305600951 + 8.20000+ 6 6.49660- 3 8.25600+ 6 6.49840- 3 8.30000+ 6 6.50090- 31273 305600952 + 8.40000+ 6 6.50230- 3 8.60000+ 6 6.49350- 3 8.80000+ 6 6.47460- 31273 305600953 + 8.80600+ 6 6.47380- 3 8.90000+ 6 6.45840- 3 9.00000+ 6 6.43500- 31273 305600954 + 9.20000+ 6 6.35150- 3 9.30000+ 6 6.30650- 3 9.35600+ 6 6.28180- 31273 305600955 + 9.40000+ 6 6.26110- 3 9.50000+ 6 6.21000- 3 9.60000+ 6 6.14500- 31273 305600956 + 9.80000+ 6 5.98560- 3 9.90000+ 6 5.89320- 3 9.90700+ 6 5.88660- 31273 305600957 + 1.00000+ 7 5.79600- 3 1.01000+ 7 5.69830- 3 1.04000+ 7 5.40670- 31273 305600958 + 1.04570+ 7 5.35160- 3 1.05000+ 7 5.31000- 3 1.06000+ 7 5.22220- 31273 305600959 + 1.10000+ 7 4.86000- 3 1.10070+ 7 4.85220- 3 1.11000+ 7 4.74910- 31273 305600960 + 1.12000+ 7 4.63970- 3 1.15000+ 7 4.32000- 3 1.15580+ 7 4.27220- 31273 305600961 + 1.16000+ 7 4.23830- 3 1.17000+ 7 4.15960- 3 1.20000+ 7 3.94200- 31273 305600962 + 1.21000+ 7 3.86240- 3 1.21080+ 7 3.85610- 3 1.22000+ 7 3.78400- 31273 305600963 + 1.23000+ 7 3.70660- 3 1.25000+ 7 3.55500- 3 1.26000+ 7 3.48800- 31273 305600964 + 1.26580+ 7 3.44970- 3 1.27000+ 7 3.42220- 3 1.28000+ 7 3.35740- 31273 305600965 + 1.30000+ 7 3.23100- 3 1.32000+ 7 3.09130- 3 1.32090+ 7 3.08520- 31273 305600966 + 1.33000+ 7 3.02470- 3 1.34000+ 7 2.96030- 3 1.35000+ 7 2.89800- 31273 305600967 + 1.37000+ 7 2.80670- 3 1.37590+ 7 2.78110- 3 1.38000+ 7 2.76350- 31273 305600968 + 1.39000+ 7 2.72200- 3 1.40000+ 7 2.68200- 3 1.43000+ 7 2.53080- 31273 305600969 + 1.43100+ 7 2.52580- 3 1.44000+ 7 2.48040- 3 1.45000+ 7 2.43000- 31273 305600970 + 1.48000+ 7 2.29550- 3 1.48600+ 7 2.27040- 3 1.49000+ 7 2.25400- 31273 305600971 + 1.50000+ 7 2.21400- 3 1.54000+ 7 2.07470- 3 1.54100+ 7 2.07150- 31273 305600972 + 1.55000+ 7 2.04300- 3 1.56000+ 7 2.01140- 3 1.59000+ 7 1.91960- 31273 305600973 + 1.59610+ 7 1.90150- 3 1.60000+ 7 1.89000- 3 1.61000+ 7 1.85990- 31273 305600974 + 1.65000+ 7 1.74230- 3 1.65110+ 7 1.73910- 3 1.66000+ 7 1.71360- 31273 305600975 + 1.67000+ 7 1.68530- 3 1.70000+ 7 1.60200- 3 1.70610+ 7 1.58640- 31273 305600976 + 1.71000+ 7 1.57640- 3 1.72000+ 7 1.55090- 3 1.75000+ 7 1.47490- 31273 305600977 + 1.76000+ 7 1.44970- 3 1.76120+ 7 1.44670- 3 1.77000+ 7 1.42470- 31273 305600978 + 1.78000+ 7 1.39970- 3 1.80000+ 7 1.35000- 3 1.81000+ 7 1.32140- 31273 305600979 + 1.81620+ 7 1.30380- 3 1.82000+ 7 1.29310- 3 1.83000+ 7 1.26520- 31273 305600980 + 1.84000+ 7 1.23770- 3 1.85000+ 7 1.21050- 3 1.87000+ 7 1.15720- 31273 305600981 + 1.87130+ 7 1.15380- 3 1.88000+ 7 1.13110- 3 1.89000+ 7 1.10540- 31273 305600982 + 1.90000+ 7 1.08000- 3 1.92000+ 7 1.04400- 3 1.92630+ 7 1.03270- 31273 305600983 + 1.93000+ 7 1.02600- 3 1.94000+ 7 1.00800- 3 1.95000+ 7 9.90000- 41273 305600984 + 1.98000+ 7 9.36000- 4 1.98130+ 7 9.33660- 4 1.99000+ 7 9.18000- 41273 305600985 + 2.00000+ 7 9.00000- 4 1273 305600986 + 1273 300000987 + 5.01000+ 3 9.92690+ 0 0 7 0 01273 305700988 + 0.00000+ 0-5.16600+ 6 0 31 1 1291273 305700989 + 129 2 1273 305700990 + 5.68600+ 6 0.00000+ 0 5.70000+ 6 7.87500- 4 5.70500+ 6 1.06870- 31273 305700991 + 5.80000+ 6 5.37150- 3 5.90000+ 6 7.93120- 3 6.00000+ 6 9.18000- 31273 305700992 + 6.20000+ 6 1.14880- 2 6.40000+ 6 1.30850- 2 6.50000+ 6 1.37700- 21273 305700993 + 6.52000+ 6 1.39010- 2 6.60000+ 6 1.44090- 2 6.63600+ 6 1.46280- 21273 305700994 + 6.70000+ 6 1.50020- 2 6.75100+ 6 1.52880- 2 6.80000+ 6 1.55580- 21273 305700995 + 6.90000+ 6 1.60940- 2 7.00000+ 6 1.66050- 2 7.10000+ 6 1.71120- 21273 305700996 + 7.15500+ 6 1.73790- 2 7.20000+ 6 1.75910- 2 7.40000+ 6 1.84320- 21273 305700997 + 7.60000+ 6 1.91090- 2 7.70000+ 6 1.93970- 2 7.70500+ 6 1.94100- 21273 305700998 + 7.80000+ 6 1.96700- 2 8.00000+ 6 2.01420- 2 8.20000+ 6 2.03900- 21273 305700999 + 8.25600+ 6 2.04360- 2 8.30000+ 6 2.04750- 2 8.40000+ 6 2.05510- 21273 305701000 + 8.60000+ 6 2.06540- 2 8.80000+ 6 2.06780- 2 8.80600+ 6 2.06770- 21273 305701001 + 8.90000+ 6 2.06540- 2 9.00000+ 6 2.06100- 2 9.20000+ 6 2.04740- 21273 305701002 + 9.30000+ 6 2.03870- 2 9.35600+ 6 2.03320- 2 9.40000+ 6 2.02840- 21273 305701003 + 9.50000+ 6 2.01600- 2 9.60000+ 6 1.99910- 2 9.80000+ 6 1.96260- 21273 305701004 + 9.90000+ 6 1.94490- 2 9.90700+ 6 1.94360- 2 1.00000+ 7 1.92600- 21273 305701005 + 1.01000+ 7 1.90250- 2 1.04000+ 7 1.82150- 2 1.04570+ 7 1.80430- 21273 305701006 + 1.05000+ 7 1.79100- 2 1.06000+ 7 1.75930- 2 1.10000+ 7 1.62900- 21273 305701007 + 1.10070+ 7 1.62680- 2 1.11000+ 7 1.59780- 2 1.12000+ 7 1.56680- 21273 305701008 + 1.15000+ 7 1.47600- 2 1.15580+ 7 1.45880- 2 1.16000+ 7 1.44640- 21273 305701009 + 1.17000+ 7 1.41700- 2 1.20000+ 7 1.33020- 2 1.21000+ 7 1.30060- 21273 305701010 + 1.21080+ 7 1.29830- 2 1.22000+ 7 1.27160- 2 1.23000+ 7 1.24320- 21273 305701011 + 1.25000+ 7 1.18800- 2 1.26000+ 7 1.16320- 2 1.26580+ 7 1.14920- 21273 305701012 + 1.27000+ 7 1.13910- 2 1.28000+ 7 1.11570- 2 1.30000+ 7 1.07100- 21273 305701013 + 1.32000+ 7 1.02560- 2 1.32090+ 7 1.02370- 2 1.33000+ 7 1.00400- 21273 305701014 + 1.34000+ 7 9.83160- 3 1.35000+ 7 9.63000- 3 1.37000+ 7 9.28440- 31273 305701015 + 1.37590+ 7 9.18790- 3 1.38000+ 7 9.12240- 3 1.39000+ 7 8.96760- 31273 305701016 + 1.40000+ 7 8.82000- 3 1.43000+ 7 8.38260- 3 1.43100+ 7 8.36830- 31273 305701017 + 1.44000+ 7 8.24040- 3 1.45000+ 7 8.10000- 3 1.48000+ 7 7.66260- 31273 305701018 + 1.48600+ 7 7.57710- 3 1.49000+ 7 7.52040- 3 1.50000+ 7 7.38000- 31273 305701019 + 1.54000+ 7 6.86880- 3 1.54100+ 7 6.85680- 3 1.55000+ 7 6.75000- 31273 305701020 + 1.56000+ 7 6.63620- 3 1.59000+ 7 6.31220- 3 1.59610+ 7 6.24950- 31273 305701021 + 1.60000+ 7 6.21000- 3 1.61000+ 7 6.11050- 3 1.65000+ 7 5.72960- 31273 305701022 + 1.65110+ 7 5.71950- 3 1.66000+ 7 5.63870- 3 1.67000+ 7 5.54940- 31273 305701023 + 1.70000+ 7 5.29200- 3 1.70610+ 7 5.24110- 3 1.71000+ 7 5.20880- 31273 305701024 + 1.72000+ 7 5.12640- 3 1.75000+ 7 4.88480- 3 1.76000+ 7 4.80600- 31273 305701025 + 1.76120+ 7 4.79660- 3 1.77000+ 7 4.72820- 3 1.78000+ 7 4.65120- 31273 305701026 + 1.80000+ 7 4.50000- 3 1.81000+ 7 4.42620- 3 1.81620+ 7 4.38040- 31273 305701027 + 1.82000+ 7 4.35240- 3 1.83000+ 7 4.27860- 3 1.84000+ 7 4.20480- 31273 305701028 + 1.85000+ 7 4.13100- 3 1.87000+ 7 3.98340- 3 1.87130+ 7 3.97380- 31273 305701029 + 1.88000+ 7 3.90960- 3 1.89000+ 7 3.83580- 3 1.90000+ 7 3.76200- 31273 305701030 + 1.92000+ 7 3.60360- 3 1.92630+ 7 3.55370- 3 1.93000+ 7 3.52440- 31273 305701031 + 1.94000+ 7 3.44520- 3 1.95000+ 7 3.36600- 3 1.98000+ 7 3.12840- 31273 305701032 + 1.98130+ 7 3.11810- 3 1.99000+ 7 3.04920- 3 2.00000+ 7 2.97000- 31273 305701033 + 1273 300001034 + 5.01000+ 3 9.92690+ 0 0 8 0 01273 305801035 +-4.46000+ 6-5.18300+ 6 0 22 1 1271273 305801036 + 127 2 1273 305801037 + 5.70500+ 6 0.00000+ 0 5.80000+ 6 6.79980- 4 5.90000+ 6 1.09200- 31273 305801038 + 6.00000+ 6 1.29600- 3 6.20000+ 6 1.71830- 3 6.40000+ 6 2.06570- 31273 305801039 + 6.50000+ 6 2.22300- 3 6.52000+ 6 2.25010- 3 6.60000+ 6 2.35400- 31273 305801040 + 6.63600+ 6 2.39840- 3 6.70000+ 6 2.47360- 3 6.75100+ 6 2.53020- 31273 305801041 + 6.80000+ 6 2.58770- 3 6.90000+ 6 2.70070- 3 7.00000+ 6 2.80800- 31273 305801042 + 7.10000+ 6 2.90650- 3 7.15500+ 6 2.95790- 3 7.20000+ 6 2.99840- 31273 305801043 + 7.40000+ 6 3.16400- 3 7.60000+ 6 3.31470- 3 7.70000+ 6 3.38580- 31273 305801044 + 7.70500+ 6 3.38930- 3 7.80000+ 6 3.45420- 3 8.00000+ 6 3.57300- 31273 305801045 + 8.20000+ 6 3.64930- 3 8.25600+ 6 3.66430- 3 8.30000+ 6 3.67380- 31273 305801046 + 8.40000+ 6 3.69270- 3 8.60000+ 6 3.72820- 3 8.80000+ 6 3.75770- 31273 305801047 + 8.80600+ 6 3.75810- 3 8.90000+ 6 3.76270- 3 9.00000+ 6 3.76200- 31273 305801048 + 9.20000+ 6 3.74260- 3 9.30000+ 6 3.72780- 3 9.35600+ 6 3.71870- 31273 305801049 + 9.40000+ 6 3.71070- 3 9.50000+ 6 3.69000- 3 9.60000+ 6 3.66230- 31273 305801050 + 9.80000+ 6 3.60540- 3 9.90000+ 6 3.58020- 3 9.90700+ 6 3.57840- 31273 305801051 + 1.00000+ 7 3.55500- 3 1.01000+ 7 3.52910- 3 1.04000+ 7 3.43730- 31273 305801052 + 1.04570+ 7 3.41750- 3 1.05000+ 7 3.40200- 3 1.06000+ 7 3.35840- 31273 305801053 + 1.10000+ 7 3.16800- 3 1.10070+ 7 3.16490- 3 1.11000+ 7 3.12300- 31273 305801054 + 1.12000+ 7 3.07710- 3 1.15000+ 7 2.93400- 3 1.15580+ 7 2.90190- 31273 305801055 + 1.16000+ 7 2.87860- 3 1.17000+ 7 2.82290- 3 1.20000+ 7 2.65500- 31273 305801056 + 1.21000+ 7 2.60530- 3 1.21080+ 7 2.60140- 3 1.22000+ 7 2.55620- 31273 305801057 + 1.23000+ 7 2.50760- 3 1.25000+ 7 2.41200- 3 1.26000+ 7 2.35980- 31273 305801058 + 1.26580+ 7 2.32990- 3 1.27000+ 7 2.30850- 3 1.28000+ 7 2.25810- 31273 305801059 + 1.30000+ 7 2.16000- 3 1.32000+ 7 2.07650- 3 1.32090+ 7 2.07290- 31273 305801060 + 1.33000+ 7 2.03690- 3 1.34000+ 7 1.99870- 3 1.35000+ 7 1.96200- 31273 305801061 + 1.37000+ 7 1.88780- 3 1.37590+ 7 1.86650- 3 1.38000+ 7 1.85180- 31273 305801062 + 1.39000+ 7 1.81660- 3 1.40000+ 7 1.78200- 3 1.43000+ 7 1.68210- 31273 305801063 + 1.43100+ 7 1.67890- 3 1.44000+ 7 1.65060- 3 1.45000+ 7 1.62000- 31273 305801064 + 1.48000+ 7 1.53680- 3 1.48600+ 7 1.52100- 3 1.49000+ 7 1.51060- 31273 305801065 + 1.50000+ 7 1.48500- 3 1.54000+ 7 1.38280- 3 1.54100+ 7 1.38040- 31273 305801066 + 1.55000+ 7 1.35900- 3 1.56000+ 7 1.33800- 3 1.59000+ 7 1.27860- 31273 305801067 + 1.59610+ 7 1.26720- 3 1.60000+ 7 1.26000- 3 1.61000+ 7 1.24040- 31273 305801068 + 1.65000+ 7 1.16360- 3 1.65110+ 7 1.16150- 3 1.66000+ 7 1.14480- 31273 305801069 + 1.67000+ 7 1.12610- 3 1.70000+ 7 1.07100- 3 1.70610+ 7 1.06030- 31273 305801070 + 1.71000+ 7 1.05350- 3 1.72000+ 7 1.03610- 3 1.75000+ 7 9.84370- 41273 305801071 + 1.76000+ 7 9.67320- 4 1.76120+ 7 9.65280- 4 1.77000+ 7 9.50350- 41273 305801072 + 1.78000+ 7 9.33480- 4 1.80000+ 7 9.00000- 4 1.81000+ 7 8.81480- 41273 305801073 + 1.81620+ 7 8.70160- 4 1.82000+ 7 8.63280- 4 1.83000+ 7 8.45390- 41273 305801074 + 1.84000+ 7 8.27820- 4 1.85000+ 7 8.10560- 4 1.87000+ 7 7.76990- 41273 305801075 + 1.87130+ 7 7.74850- 4 1.88000+ 7 7.60680- 4 1.89000+ 7 7.44680- 41273 305801076 + 1.90000+ 7 7.29000- 4 1.92000+ 7 7.07400- 4 1.92630+ 7 7.00600- 41273 305801077 + 1.93000+ 7 6.96600- 4 1.94000+ 7 6.85800- 4 1.95000+ 7 6.75000- 41273 305801078 + 1.98000+ 7 6.42600- 4 1.98130+ 7 6.41200- 4 1.99000+ 7 6.31800- 41273 305801079 + 2.00000+ 7 6.21000- 4 1273 305801080 + 1273 300001081 + 5.01000+ 3 9.92690+ 0 0 9 0 01273 305901082 +-4.46000+ 6-5.92300+ 6 0 22 1 1201273 305901083 + 120 2 1273 305901084 + 6.52000+ 6 0.00000+ 0 6.60000+ 6 1.90960- 3 6.63600+ 6 2.76890- 31273 305901085 + 6.70000+ 6 4.29650- 3 6.75100+ 6 5.50890- 3 6.80000+ 6 6.39830- 31273 305901086 + 6.90000+ 6 7.98650- 3 7.00000+ 6 9.27000- 3 7.10000+ 6 1.02940- 21273 305901087 + 7.15500+ 6 1.07870- 2 7.20000+ 6 1.11530- 2 7.40000+ 6 1.26160- 21273 305901088 + 7.60000+ 6 1.37050- 2 7.70000+ 6 1.41230- 2 7.70500+ 6 1.41420- 21273 305901089 + 7.80000+ 6 1.45150- 2 8.00000+ 6 1.53000- 2 8.20000+ 6 1.60310- 21273 305901090 + 8.25600+ 6 1.62180- 2 8.30000+ 6 1.63510- 2 8.40000+ 6 1.66430- 21273 305901091 + 8.60000+ 6 1.72130- 2 8.80000+ 6 1.77770- 2 8.80600+ 6 1.77930- 21273 305901092 + 8.90000+ 6 1.80340- 2 9.00000+ 6 1.82700- 2 9.20000+ 6 1.86410- 21273 305901093 + 9.30000+ 6 1.88000- 2 9.35600+ 6 1.88850- 2 9.40000+ 6 1.89480- 21273 305901094 + 9.50000+ 6 1.90800- 2 9.60000+ 6 1.91970- 2 9.80000+ 6 1.93630- 21273 305901095 + 9.90000+ 6 1.94060- 2 9.90700+ 6 1.94080- 2 1.00000+ 7 1.94220- 21273 305901096 + 1.01000+ 7 1.93970- 2 1.04000+ 7 1.91910- 2 1.04570+ 7 1.91310- 21273 305901097 + 1.05000+ 7 1.90800- 2 1.06000+ 7 1.89660- 2 1.10000+ 7 1.83600- 21273 305901098 + 1.10070+ 7 1.83460- 2 1.11000+ 7 1.81550- 2 1.12000+ 7 1.79440- 21273 305901099 + 1.15000+ 7 1.72800- 2 1.15580+ 7 1.71620- 2 1.16000+ 7 1.70770- 21273 305901100 + 1.17000+ 7 1.68760- 2 1.20000+ 7 1.62900- 2 1.21000+ 7 1.60910- 21273 305901101 + 1.21080+ 7 1.60750- 2 1.22000+ 7 1.58950- 2 1.23000+ 7 1.57050- 21273 305901102 + 1.25000+ 7 1.53360- 2 1.26000+ 7 1.51730- 2 1.26580+ 7 1.50800- 21273 305901103 + 1.27000+ 7 1.50140- 2 1.28000+ 7 1.48590- 2 1.30000+ 7 1.45620- 21273 305901104 + 1.32000+ 7 1.42570- 2 1.32090+ 7 1.42440- 2 1.33000+ 7 1.41080- 21273 305901105 + 1.34000+ 7 1.39600- 2 1.35000+ 7 1.38150- 2 1.37000+ 7 1.35380- 21273 305901106 + 1.37590+ 7 1.34580- 2 1.38000+ 7 1.34030- 2 1.39000+ 7 1.32700- 21273 305901107 + 1.40000+ 7 1.31400- 2 1.43000+ 7 1.27550- 2 1.43100+ 7 1.27430- 21273 305901108 + 1.44000+ 7 1.26310- 2 1.45000+ 7 1.25100- 2 1.48000+ 7 1.21700- 21273 305901109 + 1.48600+ 7 1.21040- 2 1.49000+ 7 1.20600- 2 1.50000+ 7 1.19520- 21273 305901110 + 1.54000+ 7 1.15190- 2 1.54100+ 7 1.15080- 2 1.55000+ 7 1.14120- 21273 305901111 + 1.56000+ 7 1.13050- 2 1.59000+ 7 1.09920- 2 1.59610+ 7 1.09300- 21273 305901112 + 1.60000+ 7 1.08900- 2 1.61000+ 7 1.07980- 2 1.65000+ 7 1.04340- 21273 305901113 + 1.65110+ 7 1.04240- 2 1.66000+ 7 1.03440- 2 1.67000+ 7 1.02550- 21273 305901114 + 1.70000+ 7 9.99000- 3 1.70610+ 7 9.93090- 3 1.71000+ 7 9.89300- 31273 305901115 + 1.72000+ 7 9.79560- 3 1.75000+ 7 9.50060- 3 1.76000+ 7 9.40140- 31273 305901116 + 1.76120+ 7 9.38950- 3 1.77000+ 7 9.30170- 3 1.78000+ 7 9.20160- 31273 305901117 + 1.80000+ 7 9.00000- 3 1.81000+ 7 8.89900- 3 1.81620+ 7 8.83660- 31273 305901118 + 1.82000+ 7 8.79840- 3 1.83000+ 7 8.69830- 3 1.84000+ 7 8.59860- 31273 305901119 + 1.85000+ 7 8.49940- 3 1.87000+ 7 8.30230- 3 1.87130+ 7 8.28950- 31273 305901120 + 1.88000+ 7 8.20440- 3 1.89000+ 7 8.10700- 3 1.90000+ 7 8.01000- 31273 305901121 + 1.92000+ 7 7.83000- 3 1.92630+ 7 7.77330- 3 1.93000+ 7 7.74000- 31273 305901122 + 1.94000+ 7 7.65000- 3 1.95000+ 7 7.56000- 3 1.98000+ 7 7.29000- 31273 305901123 + 1.98130+ 7 7.27830- 3 1.99000+ 7 7.20000- 3 2.00000+ 7 7.11000- 31273 305901124 + 1273 300001125 + 5.01000+ 3 9.92690+ 0 0 10 0 01273 306001126 +-4.46000+ 6-6.02900+ 6 0 22 1 1181273 306001127 + 118 2 1273 306001128 + 6.63600+ 6 0.00000+ 0 6.70000+ 6 1.01050- 2 6.75100+ 6 1.81050- 21273 306001129 + 6.80000+ 6 2.28900- 2 6.90000+ 6 3.03300- 2 7.00000+ 6 3.46500- 21273 306001130 + 7.10000+ 6 3.89250- 2 7.15500+ 6 4.08930- 2 7.20000+ 6 4.23000- 21273 306001131 + 7.40000+ 6 4.71980- 2 7.60000+ 6 5.07760- 2 7.70000+ 6 5.22650- 21273 306001132 + 7.70500+ 6 5.23330- 2 7.80000+ 6 5.34530- 2 8.00000+ 6 5.53500- 21273 306001133 + 8.20000+ 6 5.75350- 2 8.25600+ 6 5.81000- 2 8.30000+ 6 5.84570- 21273 306001134 + 8.40000+ 6 5.92000- 2 8.60000+ 6 6.05110- 2 8.80000+ 6 6.16070- 21273 306001135 + 8.80600+ 6 6.16330- 2 8.90000+ 6 6.20170- 2 9.00000+ 6 6.23700- 21273 306001136 + 9.20000+ 6 6.30470- 2 9.30000+ 6 6.32700- 2 9.35600+ 6 6.33490- 21273 306001137 + 9.40000+ 6 6.33960- 2 9.50000+ 6 6.34500- 2 9.60000+ 6 6.34570- 21273 306001138 + 9.80000+ 6 6.32940- 2 9.90000+ 6 6.31260- 2 9.90700+ 6 6.31120- 21273 306001139 + 1.00000+ 7 6.29100- 2 1.01000+ 7 6.26600- 2 1.04000+ 7 6.16880- 21273 306001140 + 1.04570+ 7 6.14660- 2 1.05000+ 7 6.12900- 2 1.06000+ 7 6.08400- 21273 306001141 + 1.10000+ 7 5.87700- 2 1.10070+ 7 5.87300- 2 1.11000+ 7 5.81900- 21273 306001142 + 1.12000+ 7 5.76040- 2 1.15000+ 7 5.58000- 2 1.15580+ 7 5.54590- 21273 306001143 + 1.16000+ 7 5.52130- 2 1.17000+ 7 5.46320- 2 1.20000+ 7 5.29200- 21273 306001144 + 1.21000+ 7 5.23660- 2 1.21080+ 7 5.23220- 2 1.22000+ 7 5.18180- 21273 306001145 + 1.23000+ 7 5.12780- 2 1.25000+ 7 5.02200- 2 1.26000+ 7 4.97050- 21273 306001146 + 1.26580+ 7 4.94090- 2 1.27000+ 7 4.91960- 2 1.28000+ 7 4.86920- 21273 306001147 + 1.30000+ 7 4.77000- 2 1.32000+ 7 4.67170- 2 1.32090+ 7 4.66730- 21273 306001148 + 1.33000+ 7 4.62310- 2 1.34000+ 7 4.57490- 2 1.35000+ 7 4.52700- 21273 306001149 + 1.37000+ 7 4.43230- 2 1.37590+ 7 4.40470- 2 1.38000+ 7 4.38550- 21273 306001150 + 1.39000+ 7 4.33910- 2 1.40000+ 7 4.29300- 2 1.43000+ 7 4.15690- 21273 306001151 + 1.43100+ 7 4.15240- 2 1.44000+ 7 4.11230- 2 1.45000+ 7 4.06800- 21273 306001152 + 1.48000+ 7 3.93790- 2 1.48600+ 7 3.91200- 2 1.49000+ 7 3.89480- 21273 306001153 + 1.50000+ 7 3.85200- 2 1.54000+ 7 3.67920- 2 1.54100+ 7 3.67490- 21273 306001154 + 1.55000+ 7 3.63600- 2 1.56000+ 7 3.59220- 2 1.59000+ 7 3.46260- 21273 306001155 + 1.59610+ 7 3.43660- 2 1.60000+ 7 3.42000- 2 1.61000+ 7 3.37930- 21273 306001156 + 1.65000+ 7 3.22110- 2 1.65110+ 7 3.21680- 2 1.66000+ 7 3.18260- 21273 306001157 + 1.67000+ 7 3.14450- 2 1.70000+ 7 3.03300- 2 1.70610+ 7 3.01030- 21273 306001158 + 1.71000+ 7 2.99580- 2 1.72000+ 7 2.95880- 2 1.75000+ 7 2.84960- 21273 306001159 + 1.76000+ 7 2.81380- 2 1.76120+ 7 2.80950- 2 1.77000+ 7 2.77820- 21273 306001160 + 1.78000+ 7 2.74280- 2 1.80000+ 7 2.67300- 2 1.81000+ 7 2.63910- 21273 306001161 + 1.81620+ 7 2.61810- 2 1.82000+ 7 2.60530- 2 1.83000+ 7 2.57170- 21273 306001162 + 1.84000+ 7 2.53820- 2 1.85000+ 7 2.50480- 2 1.87000+ 7 2.43850- 21273 306001163 + 1.87130+ 7 2.43420- 2 1.88000+ 7 2.40550- 2 1.89000+ 7 2.37270- 21273 306001164 + 1.90000+ 7 2.34000- 2 1.92000+ 7 2.27340- 2 1.92630+ 7 2.25240- 21273 306001165 + 1.93000+ 7 2.24010- 2 1.94000+ 7 2.20680- 2 1.95000+ 7 2.17350- 21273 306001166 + 1.98000+ 7 2.07360- 2 1.98130+ 7 2.06930- 2 1.99000+ 7 2.04030- 21273 306001167 + 2.00000+ 7 2.00700- 2 1273 306001168 + 1273 300001169 + 5.01000+ 3 9.92690+ 0 0 11 0 01273 306101170 +-4.46000+ 6-6.13300+ 6 0 22 1 1161273 306101171 + 116 2 1273 306101172 + 6.75100+ 6 0.00000+ 0 6.80000+ 6 5.52360- 4 6.90000+ 6 1.52380- 31273 306101173 + 7.00000+ 6 2.16000- 3 7.10000+ 6 2.65770- 3 7.15500+ 6 2.89410- 31273 306101174 + 7.20000+ 6 3.06780- 3 7.40000+ 6 3.75300- 3 7.60000+ 6 4.31280- 31273 306101175 + 7.70000+ 6 4.56120- 3 7.70500+ 6 4.57320- 3 7.80000+ 6 4.81320- 31273 306101176 + 8.00000+ 6 5.31000- 3 8.20000+ 6 5.67720- 3 8.25600+ 6 5.77130- 31273 306101177 + 8.30000+ 6 5.85360- 3 8.40000+ 6 6.03540- 3 8.60000+ 6 6.35940- 31273 306101178 + 8.80000+ 6 6.64340- 3 8.80600+ 6 6.65220- 3 8.90000+ 6 6.78820- 31273 306101179 + 9.00000+ 6 6.93000- 3 9.20000+ 6 7.19280- 3 9.30000+ 6 7.31590- 31273 306101180 + 9.35600+ 6 7.38060- 3 9.40000+ 6 7.42790- 3 9.50000+ 6 7.52400- 31273 306101181 + 9.60000+ 6 7.58300- 3 9.80000+ 6 7.67780- 3 9.90000+ 6 7.72960- 31273 306101182 + 9.90700+ 6 7.73300- 3 1.00000+ 7 7.77600- 3 1.01000+ 7 7.80670- 31273 306101183 + 1.04000+ 7 7.83910- 3 1.04570+ 7 7.83510- 3 1.05000+ 7 7.83000- 31273 306101184 + 1.06000+ 7 7.80700- 3 1.10000+ 7 7.65000- 3 1.10070+ 7 7.64680- 31273 306101185 + 1.11000+ 7 7.60320- 3 1.12000+ 7 7.55280- 3 1.15000+ 7 7.38000- 31273 306101186 + 1.15580+ 7 7.34050- 3 1.16000+ 7 7.31160- 3 1.17000+ 7 7.24140- 31273 306101187 + 1.20000+ 7 7.02000- 3 1.21000+ 7 6.94440- 3 1.21080+ 7 6.93840- 31273 306101188 + 1.22000+ 7 6.87060- 3 1.23000+ 7 6.79860- 3 1.25000+ 7 6.66000- 31273 306101189 + 1.26000+ 7 6.60170- 3 1.26580+ 7 6.56880- 3 1.27000+ 7 6.54550- 31273 306101190 + 1.28000+ 7 6.49150- 3 1.30000+ 7 6.39000- 3 1.32000+ 7 6.28600- 31273 306101191 + 1.32090+ 7 6.28140- 3 1.33000+ 7 6.23560- 3 1.34000+ 7 6.18620- 31273 306101192 + 1.35000+ 7 6.13800- 3 1.37000+ 7 6.05000- 3 1.37590+ 7 6.02440- 31273 306101193 + 1.38000+ 7 6.00680- 3 1.39000+ 7 5.96410- 3 1.40000+ 7 5.92200- 31273 306101194 + 1.43000+ 7 5.78920- 3 1.43100+ 7 5.78460- 3 1.44000+ 7 5.74340- 31273 306101195 + 1.45000+ 7 5.69700- 3 1.48000+ 7 5.54580- 3 1.48600+ 7 5.51560- 31273 306101196 + 1.49000+ 7 5.49540- 3 1.50000+ 7 5.44500- 3 1.54000+ 7 5.26210- 31273 306101197 + 1.54100+ 7 5.25780- 3 1.55000+ 7 5.22000- 3 1.56000+ 7 5.18220- 31273 306101198 + 1.59000+ 7 5.07420- 3 1.59610+ 7 5.05320- 3 1.60000+ 7 5.04000- 31273 306101199 + 1.61000+ 7 5.00500- 3 1.65000+ 7 4.86280- 3 1.65110+ 7 4.85890- 31273 306101200 + 1.66000+ 7 4.82670- 3 1.67000+ 7 4.79040- 3 1.70000+ 7 4.68000- 31273 306101201 + 1.70610+ 7 4.65590- 3 1.71000+ 7 4.64050- 3 1.72000+ 7 4.60080- 31273 306101202 + 1.75000+ 7 4.48030- 3 1.76000+ 7 4.43970- 3 1.76120+ 7 4.43480- 31273 306101203 + 1.77000+ 7 4.39890- 3 1.78000+ 7 4.35780- 3 1.80000+ 7 4.27500- 31273 306101204 + 1.81000+ 7 4.23350- 3 1.81620+ 7 4.20790- 3 1.82000+ 7 4.19220- 31273 306101205 + 1.83000+ 7 4.15110- 3 1.84000+ 7 4.11030- 3 1.85000+ 7 4.06970- 31273 306101206 + 1.87000+ 7 3.98910- 3 1.87130+ 7 3.98390- 3 1.88000+ 7 3.94920- 31273 306101207 + 1.89000+ 7 3.90950- 3 1.90000+ 7 3.87000- 3 1.92000+ 7 3.79800- 31273 306101208 + 1.92630+ 7 3.77530- 3 1.93000+ 7 3.76200- 3 1.94000+ 7 3.72600- 31273 306101209 + 1.95000+ 7 3.69000- 3 1.98000+ 7 3.58200- 3 1.98130+ 7 3.57730- 31273 306101210 + 1.99000+ 7 3.54600- 3 2.00000+ 7 3.51000- 3 1273 306101211 + 1273 300001212 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 306201213 +-5.93400+ 6-6.50000+ 6 0 35 1 1111273 306201214 + 111 2 1273 306201215 + 7.15500+ 6 0.00000+ 0 7.20000+ 6 9.94740- 4 7.40000+ 6 5.20310- 31273 306201216 + 7.60000+ 6 9.20600- 3 7.70000+ 6 1.12040- 2 7.70500+ 6 1.13040- 21273 306201217 + 7.80000+ 6 1.07730- 2 8.00000+ 6 1.21270- 2 8.20000+ 6 1.35660- 21273 306201218 + 8.25600+ 6 1.40360- 2 8.30000+ 6 1.35090- 2 8.40000+ 6 1.39060- 21273 306201219 + 8.60000+ 6 1.46250- 2 8.80000+ 6 1.55900- 2 8.80600+ 6 1.56220- 21273 306201220 + 8.90000+ 6 1.53960- 2 9.00000+ 6 1.56180- 2 9.20000+ 6 1.61470- 21273 306201221 + 9.30000+ 6 1.65240- 2 9.35600+ 6 1.67650- 2 9.40000+ 6 1.65490- 21273 306201222 + 9.50000+ 6 1.67950- 2 9.60000+ 6 1.70570- 2 9.80000+ 6 1.78090- 21273 306201223 + 9.90000+ 6 1.83410- 2 9.90700+ 6 1.83810- 2 1.00000+ 7 1.85050- 21273 306201224 + 1.01000+ 7 1.89560- 2 1.04000+ 7 2.02580- 2 1.04570+ 7 2.05010- 21273 306201225 + 1.05000+ 7 2.03880- 2 1.06000+ 7 2.05940- 2 1.10000+ 7 2.11270- 21273 306201226 + 1.10070+ 7 2.11360- 2 1.11000+ 7 2.09380- 2 1.12000+ 7 2.08910- 21273 306201227 + 1.15000+ 7 2.06950- 2 1.15580+ 7 2.05840- 2 1.16000+ 7 2.03140- 21273 306201228 + 1.17000+ 7 2.00420- 2 1.20000+ 7 1.97490- 2 1.21000+ 7 1.96110- 21273 306201229 + 1.21080+ 7 1.95990- 2 1.22000+ 7 1.92520- 2 1.23000+ 7 1.90010- 21273 306201230 + 1.25000+ 7 1.85210- 2 1.26000+ 7 1.82920- 2 1.26580+ 7 1.81670- 21273 306201231 + 1.27000+ 7 1.79470- 2 1.28000+ 7 1.76680- 2 1.30000+ 7 1.71160- 21273 306201232 + 1.32000+ 7 1.65920- 2 1.32090+ 7 1.65700- 2 1.33000+ 7 1.62210- 21273 306201233 + 1.34000+ 7 1.59360- 2 1.35000+ 7 1.56500- 2 1.37000+ 7 1.51030- 21273 306201234 + 1.37590+ 7 1.49560- 2 1.38000+ 7 1.47750- 2 1.39000+ 7 1.44980- 21273 306201235 + 1.40000+ 7 1.42280- 2 1.43000+ 7 1.34860- 2 1.43100+ 7 1.34640- 21273 306201236 + 1.44000+ 7 1.31860- 2 1.45000+ 7 1.29490- 2 1.48000+ 7 1.23530- 21273 306201237 + 1.48600+ 7 1.22500- 2 1.49000+ 7 1.21250- 2 1.50000+ 7 1.19290- 21273 306201238 + 1.54000+ 7 1.12540- 2 1.54100+ 7 1.12400- 2 1.55000+ 7 1.10540- 21273 306201239 + 1.56000+ 7 1.08960- 2 1.59000+ 7 1.04700- 2 1.59610+ 7 1.03960- 21273 306201240 + 1.60000+ 7 1.03090- 2 1.61000+ 7 1.01720- 2 1.65000+ 7 9.69160- 31273 306201241 + 1.65110+ 7 9.68110- 3 1.66000+ 7 9.54900- 3 1.67000+ 7 9.43560- 31273 306201242 + 1.70000+ 7 9.12950- 3 1.70610+ 7 9.07600- 3 1.71000+ 7 9.01030- 31273 306201243 + 1.72000+ 7 8.90870- 3 1.75000+ 7 8.62360- 3 1.76000+ 7 8.54210- 31273 306201244 + 1.76120+ 7 8.53300- 3 1.77000+ 7 8.42930- 3 1.78000+ 7 8.33850- 31273 306201245 + 1.80000+ 7 8.16570- 3 1.81000+ 7 8.08920- 3 1.81620+ 7 8.04490- 31273 306201246 + 1.82000+ 7 7.99340- 3 1.83000+ 7 7.91060- 3 1.84000+ 7 7.82850- 31273 306201247 + 1.85000+ 7 7.74950- 3 1.87000+ 7 7.60640- 3 1.87130+ 7 7.59800- 31273 306201248 + 1.88000+ 7 7.51230- 3 1.89000+ 7 7.43560- 3 1.90000+ 7 7.35970- 31273 306201249 + 1.92000+ 7 7.22270- 3 1.92630+ 7 7.18380- 3 1.93000+ 7 7.14100- 31273 306201250 + 1.94000+ 7 7.07010- 3 1.95000+ 7 7.00000- 3 1.98000+ 7 6.81030- 31273 306201251 + 1.98130+ 7 6.80310- 3 1.99000+ 7 6.73120- 3 2.00000+ 7 6.66620- 31273 306201252 + 1273 300001253 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 306301254 +-4.46000+ 6-7.00000+ 6 0 22 1 1061273 306301255 + 106 2 1273 306301256 + 7.70500+ 6 0.00000+ 0 7.80000+ 6 2.42260- 3 8.00000+ 6 5.07340- 31273 306301257 + 8.20000+ 6 7.68570- 3 8.25600+ 6 8.39630- 3 8.30000+ 6 8.38760- 31273 306301258 + 8.40000+ 6 9.26550- 3 8.60000+ 6 1.07900- 2 8.80000+ 6 1.23380- 21273 306301259 + 8.80600+ 6 1.23850- 2 8.90000+ 6 1.25230- 2 9.00000+ 6 1.30080- 21273 306301260 + 9.20000+ 6 1.39820- 2 9.30000+ 6 1.45400- 2 9.35600+ 6 1.48740- 21273 306301261 + 9.40000+ 6 1.47730- 2 9.50000+ 6 1.51860- 2 9.60000+ 6 1.56030- 21273 306301262 + 9.80000+ 6 1.66200- 2 9.90000+ 6 1.72660- 2 9.90700+ 6 1.73140- 21273 306301263 + 1.00000+ 7 1.75600- 2 1.01000+ 7 1.81200- 2 1.04000+ 7 1.97290- 21273 306301264 + 1.04570+ 7 2.00280- 2 1.05000+ 7 1.99620- 2 1.06000+ 7 2.02640- 21273 306301265 + 1.10000+ 7 2.11380- 2 1.10070+ 7 2.11520- 2 1.11000+ 7 2.10220- 21273 306301266 + 1.12000+ 7 2.10450- 2 1.15000+ 7 2.10320- 2 1.15580+ 7 2.09510- 21273 306301267 + 1.16000+ 7 2.06990- 2 1.17000+ 7 2.04710- 2 1.20000+ 7 2.03060- 21273 306301268 + 1.21000+ 7 2.02040- 2 1.21080+ 7 2.01950- 2 1.22000+ 7 1.98710- 21273 306301269 + 1.23000+ 7 1.96470- 2 1.25000+ 7 1.92140- 2 1.26000+ 7 1.90060- 21273 306301270 + 1.26580+ 7 1.88920- 2 1.27000+ 7 1.86740- 2 1.28000+ 7 1.84090- 21273 306301271 + 1.30000+ 7 1.78800- 2 1.32000+ 7 1.73740- 2 1.32090+ 7 1.73530- 21273 306301272 + 1.33000+ 7 1.70040- 2 1.34000+ 7 1.67220- 2 1.35000+ 7 1.64390- 21273 306301273 + 1.37000+ 7 1.58940- 2 1.37590+ 7 1.57470- 2 1.38000+ 7 1.55620- 21273 306301274 + 1.39000+ 7 1.52840- 2 1.40000+ 7 1.50110- 2 1.43000+ 7 1.42590- 21273 306301275 + 1.43100+ 7 1.42370- 2 1.44000+ 7 1.39520- 2 1.45000+ 7 1.37100- 21273 306301276 + 1.48000+ 7 1.31030- 2 1.48600+ 7 1.29970- 2 1.49000+ 7 1.28670- 21273 306301277 + 1.50000+ 7 1.26670- 2 1.54000+ 7 1.19730- 2 1.54100+ 7 1.19590- 21273 306301278 + 1.55000+ 7 1.17650- 2 1.56000+ 7 1.16010- 2 1.59000+ 7 1.11610- 21273 306301279 + 1.59610+ 7 1.10850- 2 1.60000+ 7 1.09930- 2 1.61000+ 7 1.08510- 21273 306301280 + 1.65000+ 7 1.03510- 2 1.65110+ 7 1.03400- 2 1.66000+ 7 1.02020- 21273 306301281 + 1.67000+ 7 1.00830- 2 1.70000+ 7 9.76360- 3 1.70610+ 7 9.70770- 31273 306301282 + 1.71000+ 7 9.63830- 3 1.72000+ 7 9.53170- 3 1.75000+ 7 9.23230- 31273 306301283 + 1.76000+ 7 9.14680- 3 1.76120+ 7 9.13720- 3 1.77000+ 7 9.02760- 31273 306301284 + 1.78000+ 7 8.93190- 3 1.80000+ 7 8.74970- 3 1.81000+ 7 8.66910- 31273 306301285 + 1.81620+ 7 8.62230- 3 1.82000+ 7 8.56760- 3 1.83000+ 7 8.48010- 31273 306301286 + 1.84000+ 7 8.39330- 3 1.85000+ 7 8.30960- 3 1.87000+ 7 8.15820- 31273 306301287 + 1.87130+ 7 8.14930- 3 1.88000+ 7 8.05810- 3 1.89000+ 7 7.97670- 31273 306301288 + 1.90000+ 7 7.89610- 3 1.92000+ 7 7.75060- 3 1.92630+ 7 7.70930- 31273 306301289 + 1.93000+ 7 7.66360- 3 1.94000+ 7 7.58820- 3 1.95000+ 7 7.51360- 31273 306301290 + 1.98000+ 7 7.31160- 3 1.98130+ 7 7.30390- 3 1.99000+ 7 7.22710- 31273 306301291 + 2.00000+ 7 7.15780- 3 1273 306301292 + 1273 300001293 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 306401294 +-5.93400+ 6-7.50000+ 6 0 35 1 1021273 306401295 + 102 2 1273 306401296 + 8.25600+ 6 0.00000+ 0 8.30000+ 6 1.50720- 3 8.40000+ 6 2.49450- 31273 306401297 + 8.60000+ 6 4.94950- 3 8.80000+ 6 7.29640- 3 8.80600+ 6 7.36450- 31273 306401298 + 8.90000+ 6 8.02490- 3 9.00000+ 6 8.87710- 3 9.20000+ 6 1.04650- 21273 306401299 + 9.30000+ 6 1.12700- 2 9.35600+ 6 1.17300- 2 9.40000+ 6 1.17970- 21273 306401300 + 9.50000+ 6 1.24400- 2 9.60000+ 6 1.30690- 2 9.80000+ 6 1.44400- 21273 306401301 + 9.90000+ 6 1.52330- 2 9.90700+ 6 1.52900- 2 1.00000+ 7 1.57050- 21273 306401302 + 1.01000+ 7 1.64060- 2 1.04000+ 7 1.84130- 2 1.04570+ 7 1.87830- 21273 306401303 + 1.05000+ 7 1.87870- 2 1.06000+ 7 1.92180- 2 1.10000+ 7 2.05580- 21273 306401304 + 1.10070+ 7 2.05800- 2 1.11000+ 7 2.05530- 2 1.12000+ 7 2.06750- 21273 306401305 + 1.15000+ 7 2.09250- 2 1.15580+ 7 2.08900- 2 1.16000+ 7 2.06700- 21273 306401306 + 1.17000+ 7 2.05130- 2 1.20000+ 7 2.05360- 2 1.21000+ 7 2.04880- 21273 306401307 + 1.21080+ 7 2.04840- 2 1.22000+ 7 2.02020- 2 1.23000+ 7 2.00240- 21273 306401308 + 1.25000+ 7 1.96700- 2 1.26000+ 7 1.94970- 2 1.26580+ 7 1.94030- 21273 306401309 + 1.27000+ 7 1.91940- 2 1.28000+ 7 1.89580- 2 1.30000+ 7 1.84770- 21273 306401310 + 1.32000+ 7 1.80090- 2 1.32090+ 7 1.79900- 2 1.33000+ 7 1.76520- 21273 306401311 + 1.34000+ 7 1.73840- 2 1.35000+ 7 1.71110- 2 1.37000+ 7 1.65850- 21273 306401312 + 1.37590+ 7 1.64430- 2 1.38000+ 7 1.62580- 2 1.39000+ 7 1.59850- 21273 306401313 + 1.40000+ 7 1.57160- 2 1.43000+ 7 1.49720- 2 1.43100+ 7 1.49500- 21273 306401314 + 1.44000+ 7 1.46630- 2 1.45000+ 7 1.44210- 2 1.48000+ 7 1.38140- 21273 306401315 + 1.48600+ 7 1.37090- 2 1.49000+ 7 1.35760- 2 1.50000+ 7 1.33730- 21273 306401316 + 1.54000+ 7 1.26720- 2 1.54100+ 7 1.26580- 2 1.55000+ 7 1.24600- 21273 306401317 + 1.56000+ 7 1.22930- 2 1.59000+ 7 1.18440- 2 1.59610+ 7 1.17660- 21273 306401318 + 1.60000+ 7 1.16710- 2 1.61000+ 7 1.15250- 2 1.65000+ 7 1.10120- 21273 306401319 + 1.65110+ 7 1.10010- 2 1.66000+ 7 1.08580- 2 1.67000+ 7 1.07350- 21273 306401320 + 1.70000+ 7 1.04050- 2 1.70610+ 7 1.03470- 2 1.71000+ 7 1.02750- 21273 306401321 + 1.72000+ 7 1.01640- 2 1.75000+ 7 9.85280- 3 1.76000+ 7 9.76400- 31273 306401322 + 1.76120+ 7 9.75410- 3 1.77000+ 7 9.63910- 3 1.78000+ 7 9.53920- 31273 306401323 + 1.80000+ 7 9.34870- 3 1.81000+ 7 9.26450- 3 1.81620+ 7 9.21570- 31273 306401324 + 1.82000+ 7 9.15790- 3 1.83000+ 7 9.06610- 3 1.84000+ 7 8.97490- 31273 306401325 + 1.85000+ 7 8.88700- 3 1.87000+ 7 8.72800- 3 1.87130+ 7 8.71870- 31273 306401326 + 1.88000+ 7 8.62230- 3 1.89000+ 7 8.53650- 3 1.90000+ 7 8.45150- 31273 306401327 + 1.92000+ 7 8.29800- 3 1.92630+ 7 8.25450- 3 1.93000+ 7 8.20600- 31273 306401328 + 1.94000+ 7 8.12620- 3 1.95000+ 7 8.04730- 3 1.98000+ 7 7.83350- 31273 306401329 + 1.98130+ 7 7.82540- 3 1.99000+ 7 7.74380- 3 2.00000+ 7 7.67030- 31273 306401330 + 1273 300001331 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 306501332 +-6.58500+ 6-8.00000+ 6 0 28 1 971273 306501333 + 97 2 1273 306501334 + 8.80600+ 6 0.00000+ 0 8.90000+ 6 1.78160- 3 9.00000+ 6 2.79610- 31273 306501335 + 9.20000+ 6 5.17350- 3 9.30000+ 6 6.31050- 3 9.35600+ 6 6.93660- 31273 306501336 + 9.40000+ 6 7.24150- 3 9.50000+ 6 8.19790- 3 9.60000+ 6 9.11220- 31273 306501337 + 9.80000+ 6 1.09530- 2 9.90000+ 6 1.19330- 2 9.90700+ 6 1.20030- 21273 306501338 + 1.00000+ 7 1.26470- 2 1.01000+ 7 1.35310- 2 1.04000+ 7 1.60520- 21273 306501339 + 1.04570+ 7 1.65140- 2 1.05000+ 7 1.66180- 2 1.06000+ 7 1.72220- 21273 306501340 + 1.10000+ 7 1.91910- 2 1.10070+ 7 1.92230- 2 1.11000+ 7 1.93410- 21273 306501341 + 1.12000+ 7 1.96010- 2 1.15000+ 7 2.02190- 2 1.15580+ 7 2.02500- 21273 306501342 + 1.16000+ 7 2.00810- 2 1.17000+ 7 2.00300- 2 1.20000+ 7 2.03200- 21273 306501343 + 1.21000+ 7 2.03510- 2 1.21080+ 7 2.03520- 2 1.22000+ 7 2.01400- 21273 306501344 + 1.23000+ 7 2.00290- 2 1.25000+ 7 1.97990- 2 1.26000+ 7 1.96800- 21273 306501345 + 1.26580+ 7 1.96160- 2 1.27000+ 7 1.94270- 2 1.28000+ 7 1.92360- 21273 306501346 + 1.30000+ 7 1.88360- 2 1.32000+ 7 1.84370- 2 1.32090+ 7 1.84210- 21273 306501347 + 1.33000+ 7 1.81060- 2 1.34000+ 7 1.78640- 2 1.35000+ 7 1.76150- 21273 306501348 + 1.37000+ 7 1.71290- 2 1.37590+ 7 1.69990- 2 1.38000+ 7 1.68170- 21273 306501349 + 1.39000+ 7 1.65590- 2 1.40000+ 7 1.63030- 2 1.43000+ 7 1.55910- 21273 306501350 + 1.43100+ 7 1.55700- 2 1.44000+ 7 1.52860- 2 1.45000+ 7 1.50500- 21273 306501351 + 1.48000+ 7 1.44610- 2 1.48600+ 7 1.43590- 2 1.49000+ 7 1.42250- 21273 306501352 + 1.50000+ 7 1.40250- 2 1.54000+ 7 1.33330- 2 1.54100+ 7 1.33190- 21273 306501353 + 1.55000+ 7 1.31190- 2 1.56000+ 7 1.29520- 2 1.59000+ 7 1.25030- 21273 306501354 + 1.59610+ 7 1.24260- 2 1.60000+ 7 1.23290- 2 1.61000+ 7 1.21810- 21273 306501355 + 1.65000+ 7 1.16640- 2 1.65110+ 7 1.16530- 2 1.66000+ 7 1.15050- 21273 306501356 + 1.67000+ 7 1.13810- 2 1.70000+ 7 1.10450- 2 1.70610+ 7 1.09860- 21273 306501357 + 1.71000+ 7 1.09110- 2 1.72000+ 7 1.07970- 2 1.75000+ 7 1.04780- 21273 306501358 + 1.76000+ 7 1.03870- 2 1.76120+ 7 1.03770- 2 1.77000+ 7 1.02570- 21273 306501359 + 1.78000+ 7 1.01540- 2 1.80000+ 7 9.95690- 3 1.81000+ 7 9.86980- 31273 306501360 + 1.81620+ 7 9.81950- 3 1.82000+ 7 9.75890- 3 1.83000+ 7 9.66340- 31273 306501361 + 1.84000+ 7 9.56860- 3 1.85000+ 7 9.47710- 3 1.87000+ 7 9.31170- 31273 306501362 + 1.87130+ 7 9.30200- 3 1.88000+ 7 9.20090- 3 1.89000+ 7 9.11120- 31273 306501363 + 1.90000+ 7 9.02220- 3 1.92000+ 7 8.86170- 3 1.92630+ 7 8.81620- 31273 306501364 + 1.93000+ 7 8.76490- 3 1.94000+ 7 8.68110- 3 1.95000+ 7 8.59830- 31273 306501365 + 1.98000+ 7 8.37360- 3 1.98130+ 7 8.36510- 3 1.99000+ 7 8.27890- 31273 306501366 + 2.00000+ 7 8.20130- 3 1273 306501367 + 1273 300001368 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 306601369 +-4.46000+ 6-8.50000+ 6 0 22 1 921273 306601370 + 92 2 1273 306601371 + 9.35600+ 6 0.00000+ 0 9.40000+ 6 1.28580- 3 9.50000+ 6 2.18090- 31273 306601372 + 9.60000+ 6 3.29810- 3 9.80000+ 6 5.76160- 3 9.90000+ 6 6.98290- 31273 306601373 + 9.90700+ 6 7.06870- 3 1.00000+ 7 8.02170- 3 1.01000+ 7 9.14180- 31273 306601374 + 1.04000+ 7 1.23260- 2 1.04570+ 7 1.29060- 2 1.05000+ 7 1.31480- 21273 306601375 + 1.06000+ 7 1.39810- 2 1.10000+ 7 1.67870- 2 1.10070+ 7 1.68320- 21273 306601376 + 1.11000+ 7 1.71540- 2 1.12000+ 7 1.76010- 2 1.15000+ 7 1.87220- 21273 306601377 + 1.15580+ 7 1.88450- 2 1.16000+ 7 1.87530- 2 1.17000+ 7 1.88510- 21273 306601378 + 1.20000+ 7 1.95090- 2 1.21000+ 7 1.96500- 2 1.21080+ 7 1.96600- 21273 306601379 + 1.22000+ 7 1.95490- 2 1.23000+ 7 1.95380- 2 1.25000+ 7 1.94860- 21273 306601380 + 1.26000+ 7 1.94470- 2 1.26580+ 7 1.94270- 2 1.27000+ 7 1.92700- 21273 306601381 + 1.28000+ 7 1.91480- 2 1.30000+ 7 1.88720- 2 1.32000+ 7 1.85790- 21273 306601382 + 1.32090+ 7 1.85670- 2 1.33000+ 7 1.82940- 2 1.34000+ 7 1.80950- 21273 306601383 + 1.35000+ 7 1.78850- 2 1.37000+ 7 1.74680- 2 1.37590+ 7 1.73560- 21273 306601384 + 1.38000+ 7 1.71840- 2 1.39000+ 7 1.69530- 2 1.40000+ 7 1.67220- 21273 306601385 + 1.43000+ 7 1.60710- 2 1.43100+ 7 1.60520- 2 1.44000+ 7 1.57810- 21273 306601386 + 1.45000+ 7 1.55610- 2 1.48000+ 7 1.50110- 2 1.48600+ 7 1.49160- 21273 306601387 + 1.49000+ 7 1.47830- 2 1.50000+ 7 1.45930- 2 1.54000+ 7 1.39300- 21273 306601388 + 1.54100+ 7 1.39170- 2 1.55000+ 7 1.37200- 2 1.56000+ 7 1.35570- 21273 306601389 + 1.59000+ 7 1.31200- 2 1.59610+ 7 1.30450- 2 1.60000+ 7 1.29470- 21273 306601390 + 1.61000+ 7 1.28010- 2 1.65000+ 7 1.22900- 2 1.65110+ 7 1.22790- 21273 306601391 + 1.66000+ 7 1.21310- 2 1.67000+ 7 1.20060- 2 1.70000+ 7 1.16710- 21273 306601392 + 1.70610+ 7 1.16130- 2 1.71000+ 7 1.15350- 2 1.72000+ 7 1.14210- 21273 306601393 + 1.75000+ 7 1.10980- 2 1.76000+ 7 1.10060- 2 1.76120+ 7 1.09960- 21273 306601394 + 1.77000+ 7 1.08730- 2 1.78000+ 7 1.07680- 2 1.80000+ 7 1.05670- 21273 306601395 + 1.81000+ 7 1.04780- 2 1.81620+ 7 1.04270- 2 1.82000+ 7 1.03640- 21273 306601396 + 1.83000+ 7 1.02660- 2 1.84000+ 7 1.01680- 2 1.85000+ 7 1.00740- 21273 306601397 + 1.87000+ 7 9.90380- 3 1.87130+ 7 9.89380- 3 1.88000+ 7 9.78860- 31273 306601398 + 1.89000+ 7 9.69570- 3 1.90000+ 7 9.60340- 3 1.92000+ 7 9.43710- 31273 306601399 + 1.92630+ 7 9.39000- 3 1.93000+ 7 9.33620- 3 1.94000+ 7 9.24900- 31273 306601400 + 1.95000+ 7 9.16260- 3 1.98000+ 7 8.92850- 3 1.98130+ 7 8.91960- 31273 306601401 + 1.99000+ 7 8.82910- 3 2.00000+ 7 8.74800- 3 1273 306601402 + 1273 300001403 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 306701404 +-4.46000+ 6-9.00000+ 6 0 22 1 861273 306701405 + 86 2 1273 306701406 + 9.90700+ 6 0.00000+ 0 1.00000+ 7 1.76120- 3 1.01000+ 7 2.84760- 31273 306701407 + 1.04000+ 7 6.83350- 3 1.04570+ 7 7.56490- 3 1.05000+ 7 7.99360- 31273 306701408 + 1.06000+ 7 9.12720- 3 1.10000+ 7 1.30380- 2 1.10070+ 7 1.31010- 21273 306701409 + 1.11000+ 7 1.36980- 2 1.12000+ 7 1.43970- 2 1.15000+ 7 1.61930- 21273 306701410 + 1.15580+ 7 1.64410- 2 1.16000+ 7 1.64590- 2 1.17000+ 7 1.67640- 21273 306701411 + 1.20000+ 7 1.79190- 2 1.21000+ 7 1.82100- 2 1.21080+ 7 1.82320- 21273 306701412 + 1.22000+ 7 1.82650- 2 1.23000+ 7 1.83930- 2 1.25000+ 7 1.85900- 21273 306701413 + 1.26000+ 7 1.86640- 2 1.26580+ 7 1.87050- 2 1.27000+ 7 1.85960- 21273 306701414 + 1.28000+ 7 1.85740- 2 1.30000+ 7 1.84770- 2 1.32000+ 7 1.83380- 21273 306701415 + 1.32090+ 7 1.83320- 2 1.33000+ 7 1.81240- 2 1.34000+ 7 1.79890- 21273 306701416 + 1.35000+ 7 1.78390- 2 1.37000+ 7 1.75280- 2 1.37590+ 7 1.74440- 21273 306701417 + 1.38000+ 7 1.72900- 2 1.39000+ 7 1.71020- 2 1.40000+ 7 1.69100- 21273 306701418 + 1.43000+ 7 1.63620- 2 1.43100+ 7 1.63460- 2 1.44000+ 7 1.60990- 21273 306701419 + 1.45000+ 7 1.59040- 2 1.48000+ 7 1.54220- 2 1.48600+ 7 1.53390- 21273 306701420 + 1.49000+ 7 1.52120- 2 1.50000+ 7 1.50390- 2 1.54000+ 7 1.44340- 21273 306701421 + 1.54100+ 7 1.44220- 2 1.55000+ 7 1.42330- 2 1.56000+ 7 1.40810- 21273 306701422 + 1.59000+ 7 1.36700- 2 1.59610+ 7 1.36000- 2 1.60000+ 7 1.35030- 21273 306701423 + 1.61000+ 7 1.33640- 2 1.65000+ 7 1.28740- 2 1.65110+ 7 1.28630- 21273 306701424 + 1.66000+ 7 1.27160- 2 1.67000+ 7 1.25950- 2 1.70000+ 7 1.22690- 21273 306701425 + 1.70610+ 7 1.22120- 2 1.71000+ 7 1.21330- 2 1.72000+ 7 1.20210- 21273 306701426 + 1.75000+ 7 1.17010- 2 1.76000+ 7 1.16100- 2 1.76120+ 7 1.16000- 21273 306701427 + 1.77000+ 7 1.14760- 2 1.78000+ 7 1.13700- 2 1.80000+ 7 1.11680- 21273 306701428 + 1.81000+ 7 1.10790- 2 1.81620+ 7 1.10280- 2 1.82000+ 7 1.09630- 21273 306701429 + 1.83000+ 7 1.08640- 2 1.84000+ 7 1.07650- 2 1.85000+ 7 1.06690- 21273 306701430 + 1.87000+ 7 1.04970- 2 1.87130+ 7 1.04870- 2 1.88000+ 7 1.03780- 21273 306701431 + 1.89000+ 7 1.02830- 2 1.90000+ 7 1.01890- 2 1.92000+ 7 1.00180- 21273 306701432 + 1.92630+ 7 9.97020- 3 1.93000+ 7 9.91420- 3 1.94000+ 7 9.82430- 31273 306701433 + 1.95000+ 7 9.73530- 3 1.98000+ 7 9.49370- 3 1.98130+ 7 9.48460- 31273 306701434 + 1.99000+ 7 9.39030- 3 2.00000+ 7 9.30610- 3 1273 306701435 + 1273 300001436 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 306801437 +-5.93400+ 6-9.50000+ 6 0 35 1 821273 306801438 + 82 2 1273 306801439 + 1.04570+ 7 0.00000+ 0 1.05000+ 7 1.40430- 3 1.06000+ 7 2.40310- 31273 306801440 + 1.10000+ 7 7.56080- 3 1.10070+ 7 7.64550- 3 1.11000+ 7 8.61200- 31273 306801441 + 1.12000+ 7 9.64380- 3 1.15000+ 7 1.23350- 2 1.15580+ 7 1.27510- 21273 306801442 + 1.16000+ 7 1.29190- 2 1.17000+ 7 1.35030- 2 1.20000+ 7 1.53200- 21273 306801443 + 1.21000+ 7 1.58130- 2 1.21080+ 7 1.58500- 2 1.22000+ 7 1.60830- 21273 306801444 + 1.23000+ 7 1.63990- 2 1.25000+ 7 1.69370- 2 1.26000+ 7 1.71640- 21273 306801445 + 1.26580+ 7 1.72890- 2 1.27000+ 7 1.72490- 2 1.28000+ 7 1.73650- 21273 306801446 + 1.30000+ 7 1.75170- 2 1.32000+ 7 1.75950- 2 1.32090+ 7 1.75980- 21273 306801447 + 1.33000+ 7 1.74830- 2 1.34000+ 7 1.74390- 2 1.35000+ 7 1.73750- 21273 306801448 + 1.37000+ 7 1.72170- 2 1.37590+ 7 1.71740- 2 1.38000+ 7 1.70490- 21273 306801449 + 1.39000+ 7 1.69250- 2 1.40000+ 7 1.67920- 2 1.43000+ 7 1.63960- 21273 306801450 + 1.43100+ 7 1.63840- 2 1.44000+ 7 1.61760- 2 1.45000+ 7 1.60220- 21273 306801451 + 1.48000+ 7 1.56440- 2 1.48600+ 7 1.55800- 2 1.49000+ 7 1.54640- 21273 306801452 + 1.50000+ 7 1.53180- 2 1.54000+ 7 1.48050- 2 1.54100+ 7 1.47960- 21273 306801453 + 1.55000+ 7 1.46220- 2 1.56000+ 7 1.44870- 2 1.59000+ 7 1.41230- 21273 306801454 + 1.59610+ 7 1.40620- 2 1.60000+ 7 1.39670- 2 1.61000+ 7 1.38400- 21273 306801455 + 1.65000+ 7 1.33910- 2 1.65110+ 7 1.33820- 2 1.66000+ 7 1.32400- 21273 306801456 + 1.67000+ 7 1.31260- 2 1.70000+ 7 1.28190- 2 1.70610+ 7 1.27670- 21273 306801457 + 1.71000+ 7 1.26880- 2 1.72000+ 7 1.25800- 2 1.75000+ 7 1.22710- 21273 306801458 + 1.76000+ 7 1.21850- 2 1.76120+ 7 1.21750- 2 1.77000+ 7 1.20510- 21273 306801459 + 1.78000+ 7 1.19480- 2 1.80000+ 7 1.17490- 2 1.81000+ 7 1.16620- 21273 306801460 + 1.81620+ 7 1.16120- 2 1.82000+ 7 1.15460- 2 1.83000+ 7 1.14480- 21273 306801461 + 1.84000+ 7 1.13490- 2 1.85000+ 7 1.12540- 2 1.87000+ 7 1.10820- 21273 306801462 + 1.87130+ 7 1.10720- 2 1.88000+ 7 1.09620- 2 1.89000+ 7 1.08660- 21273 306801463 + 1.90000+ 7 1.07700- 2 1.92000+ 7 1.05980- 2 1.92630+ 7 1.05500- 21273 306801464 + 1.93000+ 7 1.04920- 2 1.94000+ 7 1.04000- 2 1.95000+ 7 1.03100- 21273 306801465 + 1.98000+ 7 1.00640- 2 1.98130+ 7 1.00540- 2 1.99000+ 7 9.95680- 31273 306801466 + 2.00000+ 7 9.87040- 3 1273 306801467 + 1273 300001468 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 306901469 +-4.46000+ 6-1.00000+ 7 0 22 1 781273 306901470 + 78 2 1273 306901471 + 1.10070+ 7 0.00000+ 0 1.11000+ 7 1.87230- 3 1.12000+ 7 2.97470- 31273 306901472 + 1.15000+ 7 6.77940- 3 1.15580+ 7 7.41790- 3 1.16000+ 7 7.78970- 31273 306901473 + 1.17000+ 7 8.74450- 3 1.20000+ 7 1.14320- 2 1.21000+ 7 1.21910- 21273 306901474 + 1.21080+ 7 1.22490- 2 1.22000+ 7 1.27490- 2 1.23000+ 7 1.33170- 21273 306901475 + 1.25000+ 7 1.43100- 2 1.26000+ 7 1.47440- 2 1.26580+ 7 1.49810- 21273 306901476 + 1.27000+ 7 1.50360- 2 1.28000+ 7 1.53380- 2 1.30000+ 7 1.58290- 21273 306901477 + 1.32000+ 7 1.62020- 2 1.32090+ 7 1.62180- 2 1.33000+ 7 1.62320- 21273 306901478 + 1.34000+ 7 1.63150- 2 1.35000+ 7 1.63690- 2 1.37000+ 7 1.64250- 21273 306901479 + 1.37590+ 7 1.64390- 2 1.38000+ 7 1.63560- 2 1.39000+ 7 1.63220- 21273 306901480 + 1.40000+ 7 1.62720- 2 1.43000+ 7 1.60930- 2 1.43100+ 7 1.60880- 21273 306901481 + 1.44000+ 7 1.59370- 2 1.45000+ 7 1.58410- 2 1.48000+ 7 1.56150- 21273 306901482 + 1.48600+ 7 1.55770- 2 1.49000+ 7 1.54780- 2 1.50000+ 7 1.53730- 21273 306901483 + 1.54000+ 7 1.49980- 2 1.54100+ 7 1.49910- 2 1.55000+ 7 1.48430- 21273 306901484 + 1.56000+ 7 1.47350- 2 1.59000+ 7 1.44410- 2 1.59610+ 7 1.43930- 21273 306901485 + 1.60000+ 7 1.43060- 2 1.61000+ 7 1.41980- 2 1.65000+ 7 1.38130- 21273 306901486 + 1.65110+ 7 1.38060- 2 1.66000+ 7 1.36750- 2 1.67000+ 7 1.35740- 21273 306901487 + 1.70000+ 7 1.33000- 2 1.70610+ 7 1.32540- 2 1.71000+ 7 1.31770- 21273 306901488 + 1.72000+ 7 1.30780- 2 1.75000+ 7 1.27920- 2 1.76000+ 7 1.27120- 21273 306901489 + 1.76120+ 7 1.27030- 2 1.77000+ 7 1.25830- 2 1.78000+ 7 1.24840- 21273 306901490 + 1.80000+ 7 1.22950- 2 1.81000+ 7 1.22120- 2 1.81620+ 7 1.21650- 21273 306901491 + 1.82000+ 7 1.20990- 2 1.83000+ 7 1.20030- 2 1.84000+ 7 1.19070- 21273 306901492 + 1.85000+ 7 1.18140- 2 1.87000+ 7 1.16470- 2 1.87130+ 7 1.16380- 21273 306901493 + 1.88000+ 7 1.15270- 2 1.89000+ 7 1.14320- 2 1.90000+ 7 1.13380- 21273 306901494 + 1.92000+ 7 1.11670- 2 1.92630+ 7 1.11190- 2 1.93000+ 7 1.10600- 21273 306901495 + 1.94000+ 7 1.09690- 2 1.95000+ 7 1.08770- 2 1.98000+ 7 1.06300- 21273 306901496 + 1.98130+ 7 1.06210- 2 1.99000+ 7 1.05220- 2 2.00000+ 7 1.04340- 21273 306901497 + 1273 300001498 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 307001499 +-5.93400+ 6-1.05000+ 7 0 35 1 741273 307001500 + 74 2 1273 307001501 + 1.15580+ 7 0.00000+ 0 1.16000+ 7 1.35550- 3 1.17000+ 7 2.28110- 31273 307001502 + 1.20000+ 7 5.90850- 3 1.21000+ 7 7.01360- 3 1.21080+ 7 7.09870- 31273 307001503 + 1.22000+ 7 7.95450- 3 1.23000+ 7 8.85440- 3 1.25000+ 7 1.04480- 21273 307001504 + 1.26000+ 7 1.11520- 2 1.26580+ 7 1.15380- 2 1.27000+ 7 1.17210- 21273 307001505 + 1.28000+ 7 1.22720- 2 1.30000+ 7 1.32120- 2 1.32000+ 7 1.39800- 21273 307001506 + 1.32090+ 7 1.40120- 2 1.33000+ 7 1.42030- 2 1.34000+ 7 1.44560- 21273 307001507 + 1.35000+ 7 1.46700- 2 1.37000+ 7 1.50140- 2 1.37590+ 7 1.51050- 21273 307001508 + 1.38000+ 7 1.50820- 2 1.39000+ 7 1.51700- 2 1.40000+ 7 1.52360- 21273 307001509 + 1.43000+ 7 1.53550- 2 1.43100+ 7 1.53590- 2 1.44000+ 7 1.52890- 21273 307001510 + 1.45000+ 7 1.52730- 2 1.48000+ 7 1.52570- 2 1.48600+ 7 1.52560- 21273 307001511 + 1.49000+ 7 1.51830- 2 1.50000+ 7 1.51350- 2 1.54000+ 7 1.49550- 21273 307001512 + 1.54100+ 7 1.49530- 2 1.55000+ 7 1.48410- 2 1.56000+ 7 1.47720- 21273 307001513 + 1.59000+ 7 1.45800- 2 1.59610+ 7 1.45510- 2 1.60000+ 7 1.44740- 21273 307001514 + 1.61000+ 7 1.43940- 2 1.65000+ 7 1.41060- 2 1.65110+ 7 1.41010- 21273 307001515 + 1.66000+ 7 1.39870- 2 1.67000+ 7 1.39050- 2 1.70000+ 7 1.36820- 21273 307001516 + 1.70610+ 7 1.36450- 2 1.71000+ 7 1.35740- 2 1.72000+ 7 1.34880- 21273 307001517 + 1.75000+ 7 1.32380- 2 1.76000+ 7 1.31690- 2 1.76120+ 7 1.31620- 21273 307001518 + 1.77000+ 7 1.30490- 2 1.78000+ 7 1.29590- 2 1.80000+ 7 1.27860- 21273 307001519 + 1.81000+ 7 1.27120- 2 1.81620+ 7 1.26690- 2 1.82000+ 7 1.26040- 21273 307001520 + 1.83000+ 7 1.25140- 2 1.84000+ 7 1.24240- 2 1.85000+ 7 1.23360- 21273 307001521 + 1.87000+ 7 1.21790- 2 1.87130+ 7 1.21700- 2 1.88000+ 7 1.20610- 21273 307001522 + 1.89000+ 7 1.19700- 2 1.90000+ 7 1.18780- 2 1.92000+ 7 1.17140- 21273 307001523 + 1.92630+ 7 1.16680- 2 1.93000+ 7 1.16080- 2 1.94000+ 7 1.15180- 21273 307001524 + 1.95000+ 7 1.14280- 2 1.98000+ 7 1.11850- 2 1.98130+ 7 1.11760- 21273 307001525 + 1.99000+ 7 1.10760- 2 2.00000+ 7 1.09890- 2 1273 307001526 + 1273 300001527 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 307101528 +-5.93400+ 6-1.10000+ 7 0 35 1 691273 307101529 + 69 2 1273 307101530 + 1.21080+ 7 0.00000+ 0 1.22000+ 7 1.71400- 3 1.23000+ 7 2.70730- 31273 307101531 + 1.25000+ 7 5.02530- 3 1.26000+ 7 6.08340- 3 1.26580+ 7 6.66300- 31273 307101532 + 1.27000+ 7 7.01620- 3 1.28000+ 7 7.89090- 3 1.30000+ 7 9.42250- 31273 307101533 + 1.32000+ 7 1.07070- 2 1.32090+ 7 1.07610- 2 1.33000+ 7 1.11870- 21273 307101534 + 1.34000+ 7 1.16660- 2 1.35000+ 7 1.20920- 2 1.37000+ 7 1.28190- 21273 307101535 + 1.37590+ 7 1.30130- 2 1.38000+ 7 1.30690- 2 1.39000+ 7 1.33210- 21273 307101536 + 1.40000+ 7 1.35400- 2 1.43000+ 7 1.40600- 2 1.43100+ 7 1.40760- 21273 307101537 + 1.44000+ 7 1.41170- 2 1.45000+ 7 1.42110- 2 1.48000+ 7 1.44780- 21273 307101538 + 1.48600+ 7 1.45270- 2 1.49000+ 7 1.44890- 2 1.50000+ 7 1.45200- 21273 307101539 + 1.54000+ 7 1.46060- 2 1.54100+ 7 1.46090- 2 1.55000+ 7 1.45500- 21273 307101540 + 1.56000+ 7 1.45350- 2 1.59000+ 7 1.44840- 2 1.59610+ 7 1.44800- 21273 307101541 + 1.60000+ 7 1.44200- 2 1.61000+ 7 1.43790- 2 1.65000+ 7 1.42260- 21273 307101542 + 1.65110+ 7 1.42240- 2 1.66000+ 7 1.41360- 2 1.67000+ 7 1.40810- 21273 307101543 + 1.70000+ 7 1.39320- 2 1.70610+ 7 1.39080- 2 1.71000+ 7 1.38440- 21273 307101544 + 1.72000+ 7 1.37780- 2 1.75000+ 7 1.35820- 2 1.76000+ 7 1.35300- 21273 307101545 + 1.76120+ 7 1.35240- 2 1.77000+ 7 1.34230- 2 1.78000+ 7 1.33480- 21273 307101546 + 1.80000+ 7 1.32000- 2 1.81000+ 7 1.31370- 2 1.81620+ 7 1.31020- 21273 307101547 + 1.82000+ 7 1.30400- 2 1.83000+ 7 1.29600- 2 1.84000+ 7 1.28790- 21273 307101548 + 1.85000+ 7 1.28000- 2 1.87000+ 7 1.26590- 2 1.87130+ 7 1.26510- 21273 307101549 + 1.88000+ 7 1.25480- 2 1.89000+ 7 1.24630- 2 1.90000+ 7 1.23770- 21273 307101550 + 1.92000+ 7 1.22230- 2 1.92630+ 7 1.21800- 2 1.93000+ 7 1.21210- 21273 307101551 + 1.94000+ 7 1.20350- 2 1.95000+ 7 1.19500- 2 1.98000+ 7 1.17170- 21273 307101552 + 1.98130+ 7 1.17080- 2 1.99000+ 7 1.16090- 2 2.00000+ 7 1.15240- 21273 307101553 + 1273 300001554 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 307201555 +-4.46000+ 6-1.15000+ 7 0 22 1 641273 307201556 + 64 2 1273 307201557 + 1.26580+ 7 0.00000+ 0 1.27000+ 7 1.21020- 3 1.28000+ 7 2.04130- 31273 307201558 + 1.30000+ 7 4.16100- 3 1.32000+ 7 6.11730- 3 1.32090+ 7 6.19870- 31273 307201559 + 1.33000+ 7 6.93270- 3 1.34000+ 7 7.70560- 3 1.35000+ 7 8.40850- 31273 307201560 + 1.37000+ 7 9.63690- 3 1.37590+ 7 9.96390- 3 1.38000+ 7 1.01260- 21273 307201561 + 1.39000+ 7 1.05940- 2 1.40000+ 7 1.10150- 2 1.43000+ 7 1.20630- 21273 307201562 + 1.43100+ 7 1.20940- 2 1.44000+ 7 1.22830- 2 1.45000+ 7 1.25220- 21273 307201563 + 1.48000+ 7 1.31640- 2 1.48600+ 7 1.32790- 2 1.49000+ 7 1.32900- 21273 307201564 + 1.50000+ 7 1.34250- 2 1.54000+ 7 1.38670- 2 1.54100+ 7 1.38780- 21273 307201565 + 1.55000+ 7 1.38890- 2 1.56000+ 7 1.39460- 2 1.59000+ 7 1.40860- 21273 307201566 + 1.59610+ 7 1.41160- 2 1.60000+ 7 1.40780- 2 1.61000+ 7 1.40910- 21273 307201567 + 1.65000+ 7 1.41220- 2 1.65110+ 7 1.41240- 2 1.66000+ 7 1.40710- 21273 307201568 + 1.67000+ 7 1.40540- 2 1.70000+ 7 1.40060- 2 1.70610+ 7 1.40010- 21273 307201569 + 1.71000+ 7 1.39480- 2 1.72000+ 7 1.39110- 2 1.75000+ 7 1.37910- 21273 307201570 + 1.76000+ 7 1.37610- 2 1.76120+ 7 1.37580- 2 1.77000+ 7 1.36750- 21273 307201571 + 1.78000+ 7 1.36200- 2 1.80000+ 7 1.35090- 2 1.81000+ 7 1.34630- 21273 307201572 + 1.81620+ 7 1.34380- 2 1.82000+ 7 1.33810- 2 1.83000+ 7 1.33160- 21273 307201573 + 1.84000+ 7 1.32490- 2 1.85000+ 7 1.31830- 2 1.87000+ 7 1.30670- 21273 307201574 + 1.87130+ 7 1.30600- 2 1.88000+ 7 1.29650- 2 1.89000+ 7 1.28900- 21273 307201575 + 1.90000+ 7 1.28140- 2 1.92000+ 7 1.26780- 2 1.92630+ 7 1.26410- 21273 307201576 + 1.93000+ 7 1.25830- 2 1.94000+ 7 1.25040- 2 1.95000+ 7 1.24250- 21273 307201577 + 1.98000+ 7 1.22110- 2 1.98130+ 7 1.22030- 2 1.99000+ 7 1.21060- 21273 307201578 + 2.00000+ 7 1.20260- 2 1273 307201579 + 1273 300001580 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 307301581 +-5.93400+ 6-1.20000+ 7 0 35 1 591273 307301582 + 59 2 1273 307301583 + 1.32090+ 7 0.00000+ 0 1.33000+ 7 1.48170- 3 1.34000+ 7 2.33750- 31273 307301584 + 1.35000+ 7 3.34620- 3 1.37000+ 7 5.22160- 3 1.37590+ 7 5.72140- 31273 307301585 + 1.38000+ 7 6.02220- 3 1.39000+ 7 6.76960- 3 1.40000+ 7 7.45280- 31273 307301586 + 1.43000+ 7 9.18610- 3 1.43100+ 7 9.23750- 3 1.44000+ 7 9.61970- 31273 307301587 + 1.45000+ 7 1.00490- 2 1.48000+ 7 1.11790- 2 1.48600+ 7 1.13800- 21273 307301588 + 1.49000+ 7 1.14550- 2 1.50000+ 7 1.17270- 2 1.54000+ 7 1.26340- 21273 307301589 + 1.54100+ 7 1.26550- 2 1.55000+ 7 1.27610- 2 1.56000+ 7 1.29120- 21273 307301590 + 1.59000+ 7 1.33030- 2 1.59610+ 7 1.33790- 2 1.60000+ 7 1.33720- 21273 307301591 + 1.61000+ 7 1.34550- 2 1.65000+ 7 1.37310- 2 1.65110+ 7 1.37390- 21273 307301592 + 1.66000+ 7 1.37350- 2 1.67000+ 7 1.37680- 2 1.70000+ 7 1.38540- 21273 307301593 + 1.70610+ 7 1.38740- 2 1.71000+ 7 1.38370- 2 1.72000+ 7 1.38380- 21273 307301594 + 1.75000+ 7 1.38210- 2 1.76000+ 7 1.38220- 2 1.76120+ 7 1.38230- 21273 307301595 + 1.77000+ 7 1.37650- 2 1.78000+ 7 1.37370- 2 1.80000+ 7 1.36770- 21273 307301596 + 1.81000+ 7 1.36550- 2 1.81620+ 7 1.36440- 2 1.82000+ 7 1.35950- 21273 307301597 + 1.83000+ 7 1.35510- 2 1.84000+ 7 1.35040- 2 1.85000+ 7 1.34570- 21273 307301598 + 1.87000+ 7 1.33760- 2 1.87130+ 7 1.33710- 2 1.88000+ 7 1.32890- 21273 307301599 + 1.89000+ 7 1.32290- 2 1.90000+ 7 1.31660- 2 1.92000+ 7 1.30560- 21273 307301600 + 1.92630+ 7 1.30270- 2 1.93000+ 7 1.29730- 2 1.94000+ 7 1.29050- 21273 307301601 + 1.95000+ 7 1.28360- 2 1.98000+ 7 1.26500- 2 1.98130+ 7 1.26430- 21273 307301602 + 1.99000+ 7 1.25530- 2 2.00000+ 7 1.24790- 2 1273 307301603 + 1273 300001604 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 307401605 +-5.93400+ 6-1.25000+ 7 0 35 1 541273 307401606 + 54 2 1273 307401607 + 1.37590+ 7 0.00000+ 0 1.38000+ 7 1.03030- 3 1.39000+ 7 1.73790- 31273 307401608 + 1.40000+ 7 2.60280- 3 1.43000+ 7 5.21570- 3 1.43100+ 7 5.29300- 31273 307401609 + 1.44000+ 7 5.92570- 3 1.45000+ 7 6.59870- 3 1.48000+ 7 8.35800- 31273 307401610 + 1.48600+ 7 8.66930- 3 1.49000+ 7 8.82770- 3 1.50000+ 7 9.27690- 31273 307401611 + 1.54000+ 7 1.07850- 2 1.54100+ 7 1.08190- 2 1.55000+ 7 1.10480- 21273 307401612 + 1.56000+ 7 1.13220- 2 1.59000+ 7 1.20380- 2 1.59610+ 7 1.21730- 21273 307401613 + 1.60000+ 7 1.22080- 2 1.61000+ 7 1.23830- 2 1.65000+ 7 1.29770- 21273 307401614 + 1.65110+ 7 1.29930- 2 1.66000+ 7 1.30530- 2 1.67000+ 7 1.31520- 21273 307401615 + 1.70000+ 7 1.34160- 2 1.70610+ 7 1.34680- 2 1.71000+ 7 1.34530- 21273 307401616 + 1.72000+ 7 1.35040- 2 1.75000+ 7 1.36240- 2 1.76000+ 7 1.36660- 21273 307401617 + 1.76120+ 7 1.36710- 2 1.77000+ 7 1.36480- 2 1.78000+ 7 1.36570- 21273 307401618 + 1.80000+ 7 1.36660- 2 1.81000+ 7 1.36750- 2 1.81620+ 7 1.36830- 21273 307401619 + 1.82000+ 7 1.36450- 2 1.83000+ 7 1.36300- 2 1.84000+ 7 1.36090- 21273 307401620 + 1.85000+ 7 1.35880- 2 1.87000+ 7 1.35540- 2 1.87130+ 7 1.35530- 21273 307401621 + 1.88000+ 7 1.34890- 2 1.89000+ 7 1.34490- 2 1.90000+ 7 1.34060- 21273 307401622 + 1.92000+ 7 1.33330- 2 1.92630+ 7 1.33140- 2 1.93000+ 7 1.32650- 21273 307401623 + 1.94000+ 7 1.32130- 2 1.95000+ 7 1.31590- 2 1.98000+ 7 1.30130- 21273 307401624 + 1.98130+ 7 1.30080- 2 1.99000+ 7 1.29270- 2 2.00000+ 7 1.28650- 21273 307401625 + 1273 300001626 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 307501627 +-4.46000+ 6-1.30000+ 7 0 22 1 491273 307501628 + 49 2 1273 307501629 + 1.43100+ 7 0.00000+ 0 1.44000+ 7 1.25700- 3 1.45000+ 7 1.98720- 31273 307501630 + 1.48000+ 7 4.50130- 3 1.48600+ 7 4.95320- 3 1.49000+ 7 5.21970- 31273 307501631 + 1.50000+ 7 5.89470- 3 1.54000+ 7 8.17030- 3 1.54100+ 7 8.22070- 31273 307501632 + 1.55000+ 7 8.60880- 3 1.56000+ 7 9.03980- 3 1.59000+ 7 1.01740- 21273 307501633 + 1.59610+ 7 1.03840- 2 1.60000+ 7 1.04720- 2 1.61000+ 7 1.07660- 21273 307501634 + 1.65000+ 7 1.17700- 2 1.65110+ 7 1.17960- 2 1.66000+ 7 1.19390- 21273 307501635 + 1.67000+ 7 1.21240- 2 1.70000+ 7 1.26160- 2 1.70610+ 7 1.27100- 21273 307501636 + 1.71000+ 7 1.27240- 2 1.72000+ 7 1.28410- 2 1.75000+ 7 1.31380- 21273 307501637 + 1.76000+ 7 1.32340- 2 1.76120+ 7 1.32450- 2 1.77000+ 7 1.32680- 21273 307501638 + 1.78000+ 7 1.33260- 2 1.80000+ 7 1.34240- 2 1.81000+ 7 1.34750- 21273 307501639 + 1.81620+ 7 1.35070- 2 1.82000+ 7 1.34840- 2 1.83000+ 7 1.35070- 21273 307501640 + 1.84000+ 7 1.35220- 2 1.85000+ 7 1.35350- 2 1.87000+ 7 1.35650- 21273 307501641 + 1.87130+ 7 1.35670- 2 1.88000+ 7 1.35280- 2 1.89000+ 7 1.35170- 21273 307501642 + 1.90000+ 7 1.35000- 2 1.92000+ 7 1.34760- 2 1.92630+ 7 1.34720- 21273 307501643 + 1.93000+ 7 1.34310- 2 1.94000+ 7 1.34000- 2 1.95000+ 7 1.33660- 21273 307501644 + 1.98000+ 7 1.32760- 2 1.98130+ 7 1.32730- 2 1.99000+ 7 1.32060- 21273 307501645 + 2.00000+ 7 1.31590- 2 1273 307501646 + 1273 300001647 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 307601648 +-5.93400+ 6-1.35000+ 7 0 35 1 451273 307601649 + 45 2 1273 307601650 + 1.48600+ 7 0.00000+ 0 1.49000+ 7 8.86280- 4 1.50000+ 7 1.50260- 31273 307601651 + 1.54000+ 7 4.61290- 3 1.54100+ 7 4.68410- 3 1.55000+ 7 5.27430- 31273 307601652 + 1.56000+ 7 5.90490- 3 1.59000+ 7 7.56880- 3 1.59610+ 7 7.87400- 31273 307601653 + 1.60000+ 7 8.03120- 3 1.61000+ 7 8.47560- 3 1.65000+ 7 1.00020- 21273 307601654 + 1.65110+ 7 1.00400- 2 1.66000+ 7 1.02900- 2 1.67000+ 7 1.05830- 21273 307601655 + 1.70000+ 7 1.13680- 2 1.70610+ 7 1.15160- 2 1.71000+ 7 1.15660- 21273 307601656 + 1.72000+ 7 1.17670- 2 1.75000+ 7 1.22940- 2 1.76000+ 7 1.24560- 21273 307601657 + 1.76120+ 7 1.24760- 2 1.77000+ 7 1.25590- 2 1.78000+ 7 1.26790- 21273 307601658 + 1.80000+ 7 1.28930- 2 1.81000+ 7 1.29980- 2 1.81620+ 7 1.30620- 21273 307601659 + 1.82000+ 7 1.30590- 2 1.83000+ 7 1.31310- 2 1.84000+ 7 1.31930- 21273 307601660 + 1.85000+ 7 1.32500- 2 1.87000+ 7 1.33620- 2 1.87130+ 7 1.33690- 21273 307601661 + 1.88000+ 7 1.33640- 2 1.89000+ 7 1.33890- 2 1.90000+ 7 1.34070- 21273 307601662 + 1.92000+ 7 1.34480- 2 1.92630+ 7 1.34630- 2 1.93000+ 7 1.34330- 21273 307601663 + 1.94000+ 7 1.34310- 2 1.95000+ 7 1.34240- 2 1.98000+ 7 1.34080- 21273 307601664 + 1.98130+ 7 1.34080- 2 1.99000+ 7 1.33600- 2 2.00000+ 7 1.33340- 21273 307601665 + 1273 300001666 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 307701667 +-5.93400+ 6-1.40000+ 7 0 35 1 411273 307701668 + 41 2 1273 307701669 + 1.54100+ 7 0.00000+ 0 1.55000+ 7 1.11100- 3 1.56000+ 7 1.76630- 31273 307701670 + 1.59000+ 7 4.05390- 3 1.59610+ 7 4.47890- 3 1.60000+ 7 4.72380- 31273 307701671 + 1.61000+ 7 5.35820- 3 1.65000+ 7 7.54200- 3 1.65110+ 7 7.59610- 31273 307701672 + 1.66000+ 7 7.98130- 3 1.67000+ 7 8.41200- 3 1.70000+ 7 9.56540- 31273 307701673 + 1.70610+ 7 9.78060- 3 1.71000+ 7 9.87910- 3 1.72000+ 7 1.01870- 21273 307701674 + 1.75000+ 7 1.10030- 2 1.76000+ 7 1.12520- 2 1.76120+ 7 1.12820- 21273 307701675 + 1.77000+ 7 1.14410- 2 1.78000+ 7 1.16410- 2 1.80000+ 7 1.20030- 21273 307701676 + 1.81000+ 7 1.21750- 2 1.81620+ 7 1.22800- 2 1.82000+ 7 1.23040- 21273 307701677 + 1.83000+ 7 1.24380- 2 1.84000+ 7 1.25600- 2 1.85000+ 7 1.26740- 21273 307701678 + 1.87000+ 7 1.28920- 2 1.87130+ 7 1.29060- 2 1.88000+ 7 1.29450- 21273 307701679 + 1.89000+ 7 1.30170- 2 1.90000+ 7 1.30800- 2 1.92000+ 7 1.32040- 21273 307701680 + 1.92630+ 7 1.32440- 2 1.93000+ 7 1.32280- 2 1.94000+ 7 1.32640- 21273 307701681 + 1.95000+ 7 1.32930- 2 1.98000+ 7 1.33730- 2 1.98130+ 7 1.33770- 21273 307701682 + 1.99000+ 7 1.33540- 2 2.00000+ 7 1.33570- 2 1273 307701683 + 1273 300001684 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 307801685 +-6.58500+ 6-1.45000+ 7 0 28 1 371273 307801686 + 37 2 1273 307801687 + 1.59610+ 7 0.00000+ 0 1.60000+ 7 7.96340- 4 1.61000+ 7 1.35680- 31273 307801688 + 1.65000+ 7 4.23630- 3 1.65110+ 7 4.31010- 3 1.66000+ 7 4.86580- 31273 307801689 + 1.67000+ 7 5.46860- 3 1.70000+ 7 7.08410- 3 1.70610+ 7 7.38360- 31273 307801690 + 1.71000+ 7 7.54300- 3 1.72000+ 7 7.98550- 3 1.75000+ 7 9.16480- 31273 307801691 + 1.76000+ 7 9.52200- 3 1.76120+ 7 9.56400- 3 1.77000+ 7 9.82030- 31273 307801692 + 1.78000+ 7 1.01210- 2 1.80000+ 7 1.06700- 2 1.81000+ 7 1.09280- 21273 307801693 + 1.81620+ 7 1.10830- 2 1.82000+ 7 1.11410- 2 1.83000+ 7 1.13550- 21273 307801694 + 1.84000+ 7 1.15530- 2 1.85000+ 7 1.17390- 2 1.87000+ 7 1.20900- 21273 307801695 + 1.87130+ 7 1.21120- 2 1.88000+ 7 1.22080- 2 1.89000+ 7 1.23400- 21273 307801696 + 1.90000+ 7 1.24610- 2 1.92000+ 7 1.26910- 2 1.92630+ 7 1.27620- 21273 307801697 + 1.93000+ 7 1.27660- 2 1.94000+ 7 1.28500- 2 1.95000+ 7 1.29240- 21273 307801698 + 1.98000+ 7 1.31290- 2 1.98130+ 7 1.31380- 2 1.99000+ 7 1.31480- 21273 307801699 + 2.00000+ 7 1.31870- 2 1273 307801700 + 1273 300001701 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 307901702 +-5.93400+ 6-1.50000+ 7 0 35 1 331273 307901703 + 33 2 1273 307901704 + 1.65110+ 7 0.00000+ 0 1.66000+ 7 1.01810- 3 1.67000+ 7 1.62560- 31273 307901705 + 1.70000+ 7 3.77530- 3 1.70610+ 7 4.17950- 3 1.71000+ 7 4.41540- 31273 307901706 + 1.72000+ 7 5.02500- 3 1.75000+ 7 6.65790- 3 1.76000+ 7 7.14970- 31273 307901707 + 1.76120+ 7 7.20730- 3 1.77000+ 7 7.58530- 3 1.78000+ 7 8.01130- 31273 307901708 + 1.80000+ 7 8.79350- 3 1.81000+ 7 9.15890- 3 1.81620+ 7 9.37780- 31273 307901709 + 1.82000+ 7 9.47910- 3 1.83000+ 7 9.79220- 3 1.84000+ 7 1.00850- 21273 307901710 + 1.85000+ 7 1.03620- 2 1.87000+ 7 1.08800- 2 1.87130+ 7 1.09130- 21273 307901711 + 1.88000+ 7 1.10800- 2 1.89000+ 7 1.12880- 2 1.90000+ 7 1.14820- 21273 307901712 + 1.92000+ 7 1.18460- 2 1.92630+ 7 1.19570- 2 1.93000+ 7 1.19860- 21273 307901713 + 1.94000+ 7 1.21290- 2 1.95000+ 7 1.22620- 2 1.98000+ 7 1.26240- 21273 307901714 + 1.98130+ 7 1.26390- 2 1.99000+ 7 1.26930- 2 2.00000+ 7 1.27780- 21273 307901715 + 1273 300001716 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 308001717 +-5.93400+ 6-1.55000+ 7 0 35 1 291273 308001718 + 29 2 1273 308001719 + 1.70610+ 7 0.00000+ 0 1.71000+ 7 7.39290- 4 1.72000+ 7 1.26450- 31273 308001720 + 1.75000+ 7 3.33870- 3 1.76000+ 7 3.99710- 3 1.76120+ 7 4.07410- 31273 308001721 + 1.77000+ 7 4.60350- 3 1.78000+ 7 5.18540- 3 1.80000+ 7 6.25710- 31273 308001722 + 1.81000+ 7 6.75530- 3 1.81620+ 7 7.05300- 3 1.82000+ 7 7.20850- 31273 308001723 + 1.83000+ 7 7.64530- 3 1.84000+ 7 8.05660- 3 1.85000+ 7 8.44600- 31273 308001724 + 1.87000+ 7 9.17270- 3 1.87130+ 7 9.21800- 3 1.88000+ 7 9.47530- 31273 308001725 + 1.89000+ 7 9.77820- 3 1.90000+ 7 1.00620- 2 1.92000+ 7 1.05940- 21273 308001726 + 1.92630+ 7 1.07540- 2 1.93000+ 7 1.08150- 2 1.94000+ 7 1.10340- 21273 308001727 + 1.95000+ 7 1.12390- 2 1.98000+ 7 1.17990- 2 1.98130+ 7 1.18220- 21273 308001728 + 1.99000+ 7 1.19300- 2 2.00000+ 7 1.20730- 2 1273 308001729 + 1273 300001730 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 308101731 +-5.93400+ 6-1.60000+ 7 0 35 1 241273 308101732 + 24 2 1273 308101733 + 1.76120+ 7 0.00000+ 0 1.77000+ 7 9.57230- 4 1.78000+ 7 1.53230- 31273 308101734 + 1.80000+ 7 2.92140- 3 1.81000+ 7 3.58340- 3 1.81620+ 7 3.97800- 31273 308101735 + 1.82000+ 7 4.20100- 3 1.83000+ 7 4.79050- 3 1.84000+ 7 5.34800- 31273 308101736 + 1.85000+ 7 5.87680- 3 1.87000+ 7 6.86070- 3 1.87130+ 7 6.92170- 31273 308101737 + 1.88000+ 7 7.29090- 3 1.89000+ 7 7.71110- 3 1.90000+ 7 8.10730- 31273 308101738 + 1.92000+ 7 8.84730- 3 1.92630+ 7 9.06800- 3 1.93000+ 7 9.16830- 31273 308101739 + 1.94000+ 7 9.48180- 3 1.95000+ 7 9.77680- 3 1.98000+ 7 1.05820- 21273 308101740 + 1.98130+ 7 1.06150- 2 1.99000+ 7 1.07920- 2 2.00000+ 7 1.10070- 21273 308101741 + 1273 300001742 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 308201743 +-4.46000+ 6-1.65000+ 7 0 22 1 191273 308201744 + 19 2 1273 308201745 + 1.81620+ 7 0.00000+ 0 1.82000+ 7 6.98810- 4 1.83000+ 7 1.19850- 31273 308201746 + 1.84000+ 7 1.82150- 3 1.85000+ 7 2.51910- 3 1.87000+ 7 3.81890- 31273 308201747 + 1.87130+ 7 3.89930- 3 1.88000+ 7 4.40650- 3 1.89000+ 7 4.97100- 31273 308201748 + 1.90000+ 7 5.50550- 3 1.92000+ 7 6.50100- 3 1.92630+ 7 6.79670- 31273 308201749 + 1.93000+ 7 6.94640- 3 1.94000+ 7 7.37610- 3 1.95000+ 7 7.78230- 31273 308201750 + 1.98000+ 7 8.89040- 3 1.98130+ 7 8.93560- 3 1.99000+ 7 9.19690- 31273 308201751 + 2.00000+ 7 9.50230- 3 1273 308201752 + 1273 300001753 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 308301754 +-5.93400+ 6-1.70000+ 7 0 35 1 131273 308301755 + 13 2 1273 308301756 + 1.87130+ 7 0.00000+ 0 1.88000+ 7 9.10790- 4 1.89000+ 7 1.46080- 31273 308301757 + 1.90000+ 7 2.12550- 3 1.92000+ 7 3.43370- 3 1.92630+ 7 3.82100- 31273 308301758 + 1.93000+ 7 4.03170- 3 1.94000+ 7 4.60370- 3 1.95000+ 7 5.14630- 31273 308301759 + 1.98000+ 7 6.62580- 3 1.98130+ 7 6.68580- 3 1.99000+ 7 7.05180- 31273 308301760 + 2.00000+ 7 7.46750- 3 1273 308301761 + 1273 300001762 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 308401763 +-5.93400+ 6-1.75000+ 7 0 35 1 81273 308401764 + 8 2 1273 308401765 + 1.92630+ 7 0.00000+ 0 1.93000+ 7 6.66470- 4 1.94000+ 7 1.14530- 31273 308401766 + 1.95000+ 7 1.74350- 3 1.98000+ 7 3.67330- 3 1.98130+ 7 3.75130- 31273 308401767 + 1.99000+ 7 4.24560- 3 2.00000+ 7 4.79610- 3 1273 308401768 + 1273 300001769 + 5.01000+ 3 9.92690+ 0 0 98 0 01273 308501770 +-4.46000+ 6-1.80000+ 7 0 22 1 31273 308501771 + 3 2 1273 308501772 + 1.98130+ 7 0.00000+ 0 1.99000+ 7 8.72500- 4 2.00000+ 7 1.40200- 31273 308501773 + 1273 300001774 + 5.01000+ 3 9.92690+ 0 0 99 0 01273 310301775 + 0.00000+ 0 2.26700+ 5 0 0 2 921273 310301776 + 5 5 92 2 1273 310301777 + 1.00000- 5 2.84500- 2 2.53000- 2 5.66000- 4 1.00000+ 0 9.00000- 51273 310301778 + 1.00000+ 3 2.92000- 6 5.10000+ 4 1.37000- 6 1.00000+ 5 2.52000- 61273 310301779 + 2.00000+ 5 7.98000- 6 4.00000+ 5 4.37000- 5 6.00000+ 5 1.49000- 41273 310301780 + 8.00000+ 5 4.02000- 4 1.00000+ 6 9.53000- 4 1.20000+ 6 2.14000- 31273 310301781 + 1.30000+ 6 3.18000- 3 1.40000+ 6 4.65000- 3 1.50000+ 6 5.93000- 31273 310301782 + 1.55000+ 6 6.48000- 3 1.60000+ 6 7.00000- 3 1.70000+ 6 7.77000- 31273 310301783 + 1.80000+ 6 8.49280- 3 2.00000+ 6 9.44000- 3 2.20000+ 6 1.02780- 21273 310301784 + 2.40000+ 6 1.11140- 2 2.60000+ 6 1.18860- 2 2.80000+ 6 1.25790- 21273 310301785 + 3.00000+ 6 1.32000- 2 3.20000+ 6 1.35420- 2 3.40000+ 6 1.37640- 21273 310301786 + 3.45500+ 6 1.38090- 2 3.60000+ 6 1.41540- 2 3.70000+ 6 1.43650- 21273 310301787 + 3.80000+ 6 1.48190- 2 3.90000+ 6 1.56970- 2 4.00000+ 6 1.68000- 21273 310301788 + 4.20000+ 6 1.95380- 2 4.40000+ 6 2.25400- 2 4.60000+ 6 2.49540- 21273 310301789 + 4.80000+ 6 2.65520- 2 5.00000+ 6 2.76800- 2 5.20000+ 6 2.81540- 21273 310301790 + 5.40000+ 6 2.84660- 2 5.60000+ 6 2.86650- 2 5.80000+ 6 2.87450- 21273 310301791 + 6.00000+ 6 2.87840- 2 6.20000+ 6 2.87710- 2 6.30000+ 6 2.87430- 21273 310301792 + 6.30900+ 6 2.87410- 2 6.40000+ 6 2.87380- 2 6.50000+ 6 2.87250- 21273 310301793 + 6.55000+ 6 2.87210- 2 6.60000+ 6 2.87350- 2 6.70000+ 6 2.87550- 21273 310301794 + 6.80000+ 6 2.87850- 2 6.90000+ 6 2.88730- 2 7.00000+ 6 2.90080- 21273 310301795 + 7.10000+ 6 2.90360- 2 7.20000+ 6 2.94100- 2 7.30000+ 6 3.04340- 21273 310301796 + 7.40000+ 6 3.21660- 2 7.50000+ 6 3.43200- 2 7.60000+ 6 3.66490- 21273 310301797 + 7.80000+ 6 4.15020- 2 8.00000+ 6 4.56080- 2 8.20000+ 6 4.71850- 21273 310301798 + 8.40000+ 6 4.78600- 2 8.60000+ 6 4.81460- 2 8.80000+ 6 4.81830- 21273 310301799 + 9.00000+ 6 4.80900- 2 9.20000+ 6 4.78520- 2 9.40000+ 6 4.75100- 21273 310301800 + 9.60000+ 6 4.70790- 2 9.80000+ 6 4.65870- 2 1.00000+ 7 4.60310- 21273 310301801 + 1.05000+ 7 4.44420- 2 1.10000+ 7 4.28040- 2 1.15000+ 7 4.11380- 21273 310301802 + 1.20000+ 7 3.94700- 2 1.25000+ 7 3.78030- 2 1.30000+ 7 3.61370- 21273 310301803 + 1.35000+ 7 3.44690- 2 1.40000+ 7 3.28030- 2 1.45000+ 7 3.11360- 21273 310301804 + 1.50000+ 7 2.94690- 2 1.55000+ 7 2.78020- 2 1.60000+ 7 2.61350- 21273 310301805 + 1.65000+ 7 2.44680- 2 1.70000+ 7 2.28010- 2 1.75000+ 7 2.11340- 21273 310301806 + 1.80000+ 7 1.94680- 2 1.85000+ 7 1.78010- 2 1.90000+ 7 1.61340- 21273 310301807 + 1.95000+ 7 1.44670- 2 2.00000+ 7 1.28000- 2 1273 310301808 + 1273 300001809 + 5.01000+ 3 9.92690+ 0 0 99 0 01273 310401810 + 0.00000+ 0-4.36100+ 6 0 0 1 491273 310401811 + 49 2 1273 310401812 + 4.80000+ 6 0.00000+ 0 5.00000+ 6 6.30000- 4 5.10000+ 6 1.09170- 31273 310401813 + 5.20000+ 6 2.04180- 3 5.30000+ 6 3.86280- 3 5.40000+ 6 6.46920- 31273 310401814 + 5.60000+ 6 1.22040- 2 5.80000+ 6 1.74600- 2 6.00000+ 6 2.20500- 21273 310401815 + 6.20000+ 6 2.57400- 2 6.40000+ 6 2.88290- 2 6.60000+ 6 3.12500- 21273 310401816 + 6.80000+ 6 3.31250- 2 7.00000+ 6 3.47400- 2 7.20000+ 6 3.59780- 21273 310401817 + 7.40000+ 6 3.67700- 2 7.60000+ 6 3.72650- 2 7.80000+ 6 3.76020- 21273 310401818 + 8.00000+ 6 3.78000- 2 8.20000+ 6 3.78490- 2 8.40000+ 6 3.78250- 21273 310401819 + 8.60000+ 6 3.77780- 2 8.80000+ 6 3.77130- 2 9.00000+ 6 3.76200- 21273 310401820 + 9.20000+ 6 3.74630- 2 9.40000+ 6 3.72820- 2 9.60000+ 6 3.70750- 21273 310401821 + 9.80000+ 6 3.68420- 2 1.00000+ 7 3.65850- 2 1.05000+ 7 3.59180- 21273 310401822 + 1.10000+ 7 3.51900- 2 1.15000+ 7 3.44500- 2 1.20000+ 7 3.36600- 21273 310401823 + 1.25000+ 7 3.27820- 2 1.30000+ 7 3.18600- 2 1.35000+ 7 3.09210- 21273 310401824 + 1.40000+ 7 2.99700- 2 1.45000+ 7 2.90240- 2 1.50000+ 7 2.80800- 21273 310401825 + 1.55000+ 7 2.71530- 2 1.60000+ 7 2.62260- 2 1.65000+ 7 2.52990- 21273 310401826 + 1.70000+ 7 2.43720- 2 1.75000+ 7 2.34450- 2 1.80000+ 7 2.25180- 21273 310401827 + 1.85000+ 7 2.15910- 2 1.90000+ 7 2.06640- 2 1.95000+ 7 1.97370- 21273 310401828 + 2.00000+ 7 1.88100- 2 1273 310401829 + 1273 300001830 + 5.01000+ 3 9.92690+ 0 0 99 0 01273 310701831 + 0.00000+ 0 2.79000+ 6 0 0 2 1931273 310701832 + 96 5 193 2 1273 310701833 + 1.00000- 5 1.93000+ 5 2.53000- 2 3.83650+ 3 1.00000- 1 1.92940+ 31273 310701834 + 1.00000+ 0 6.09890+ 2 1.00000+ 1 1.92600+ 2 1.00000+ 2 6.06440+ 11273 310701835 + 1.00000+ 3 1.89580+ 1 5.00000+ 3 8.36390+ 0 1.00000+ 4 5.88710+ 01273 310701836 + 2.00000+ 4 4.16550+ 0 3.00000+ 4 3.41900+ 0 4.00000+ 4 2.98130+ 01273 310701837 + 5.00000+ 4 2.68640+ 0 6.00000+ 4 2.47050+ 0 7.00000+ 4 2.30320+ 01273 310701838 + 8.00000+ 4 2.16830+ 0 9.00000+ 4 2.05580+ 0 1.00000+ 5 1.95960+ 01273 310701839 + 1.10000+ 5 1.87550+ 0 1.20000+ 5 1.80080+ 0 1.30000+ 5 1.73340+ 01273 310701840 + 1.40000+ 5 1.67180+ 0 1.50000+ 5 1.61490+ 0 1.60000+ 5 1.56190+ 01273 310701841 + 1.70000+ 5 1.51230+ 0 1.80000+ 5 1.46530+ 0 1.90000+ 5 1.42090+ 01273 310701842 + 2.00000+ 5 1.37870+ 0 2.05000+ 5 1.35830+ 0 2.10000+ 5 1.33830+ 01273 310701843 + 2.15000+ 5 1.31880+ 0 2.20000+ 5 1.29970+ 0 2.25000+ 5 1.28110+ 01273 310701844 + 2.30000+ 5 1.26270+ 0 2.35000+ 5 1.24480+ 0 2.40000+ 5 1.22710+ 01273 310701845 + 2.45000+ 5 1.20990+ 0 2.50000+ 5 1.19290+ 0 2.60000+ 5 1.16000+ 01273 310701846 + 2.70000+ 5 1.12830+ 0 2.80000+ 5 1.09790+ 0 2.90000+ 5 1.06890+ 01273 310701847 + 3.00000+ 5 1.04140+ 0 3.10000+ 5 1.01550+ 0 3.20000+ 5 9.91470- 11273 310701848 + 3.30000+ 5 9.69340- 1 3.40000+ 5 9.49250- 1 3.50000+ 5 9.31260- 11273 310701849 + 3.60000+ 5 9.15420- 1 3.70000+ 5 9.01670- 1 3.80000+ 5 8.89860- 11273 310701850 + 3.90000+ 5 8.79810- 1 4.00000+ 5 8.71220- 1 4.10000+ 5 8.63740- 11273 310701851 + 4.20000+ 5 8.56910- 1 4.30000+ 5 8.50240- 1 4.40000+ 5 8.43170- 11273 310701852 + 4.50000+ 5 8.35220- 1 4.60000+ 5 8.25910- 1 4.65000+ 5 8.20630- 11273 310701853 + 4.70000+ 5 8.14870- 1 4.75000+ 5 8.08620- 1 4.80000+ 5 8.01850- 11273 310701854 + 4.85000+ 5 7.94580- 1 4.90000+ 5 7.86770- 1 4.95000+ 5 7.78450- 11273 310701855 + 5.00000+ 5 7.69660- 1 5.05000+ 5 7.60400- 1 5.10000+ 5 7.50710- 11273 310701856 + 5.15000+ 5 7.40620- 1 5.20000+ 5 7.30190- 1 5.30000+ 5 7.08450- 11273 310701857 + 5.40000+ 5 6.85850- 1 5.60000+ 5 6.39500- 1 5.80000+ 5 5.93650- 11273 310701858 + 6.00000+ 5 5.49980- 1 6.20000+ 5 5.09500- 1 6.40000+ 5 4.72630- 11273 310701859 + 6.60000+ 5 4.39370- 1 6.80000+ 5 4.09580- 1 7.00000+ 5 3.82970- 11273 310701860 + 7.20000+ 5 3.59240- 1 7.40000+ 5 3.38050- 1 7.60000+ 5 3.19140- 11273 310701861 + 7.80000+ 5 3.02230- 1 8.00000+ 5 2.87100- 1 8.20000+ 5 2.73550- 11273 310701862 + 8.40000+ 5 2.61420- 1 8.60000+ 5 2.50560- 1 8.80000+ 5 2.40850- 11273 310701863 + 9.00000+ 5 2.32200- 1 9.20000+ 5 2.24560- 1 9.40000+ 5 2.17860- 11273 310701864 + 9.60000+ 5 2.12120- 1 9.80000+ 5 2.07380- 1 1.00000+ 6 2.03740- 11273 310701865 + 1.10000+ 6 1.94400- 1 1.20000+ 6 1.96000- 1 1.30000+ 6 2.06000- 11273 310701866 + 1.40000+ 6 2.25200- 1 1.50000+ 6 2.61000- 1 1.55000+ 6 2.89790- 11273 310701867 + 1.60000+ 6 3.31500- 1 1.65000+ 6 3.82000- 1 1.70000+ 6 4.35100- 11273 310701868 + 1.75000+ 6 4.85100- 1 1.80000+ 6 5.12500- 1 1.85000+ 6 5.24200- 11273 310701869 + 1.90000+ 6 5.19500- 1 1.95000+ 6 4.99400- 1 2.00000+ 6 4.72000- 11273 310701870 + 2.05000+ 6 4.43030- 1 2.10000+ 6 4.10800- 1 2.15000+ 6 3.81710- 11273 310701871 + 2.20000+ 6 3.56400- 1 2.25000+ 6 3.33550- 1 2.30000+ 6 3.13500- 11273 310701872 + 2.35000+ 6 2.98590- 1 2.40000+ 6 2.88000- 1 2.45000+ 6 2.82360- 11273 310701873 + 2.50000+ 6 2.74100- 1 2.55000+ 6 2.92460- 1 2.60000+ 6 3.05000- 11273 310701874 + 2.65000+ 6 3.17500- 1 2.70000+ 6 3.29800- 1 2.75000+ 6 3.40000- 11273 310701875 + 2.80000+ 6 3.41100- 1 2.85000+ 6 3.30700- 1 2.90000+ 6 3.16400- 11273 310701876 + 2.95000+ 6 3.02600- 1 3.00000+ 6 2.89900- 1 3.05000+ 6 2.78320- 11273 310701877 + 3.10000+ 6 2.67800- 1 3.15000+ 6 2.59270- 1 3.20000+ 6 2.51200- 11273 310701878 + 3.30000+ 6 2.35210- 1 3.40000+ 6 2.22200- 1 3.60000+ 6 2.13500- 11273 310701879 + 3.70000+ 6 2.17400- 1 3.80000+ 6 2.27200- 1 4.00000+ 6 2.50600- 11273 310701880 + 4.20000+ 6 2.68800- 1 4.30000+ 6 2.67700- 1 4.40000+ 6 2.56400- 11273 310701881 + 4.60000+ 6 2.31230- 1 4.80000+ 6 2.11290- 1 5.00000+ 6 1.93800- 11273 310701882 + 5.20000+ 6 1.78100- 1 5.40000+ 6 1.61800- 1 5.50000+ 6 1.57000- 11273 310701883 + 5.60000+ 6 1.54600- 1 5.80000+ 6 1.50900- 1 6.00000+ 6 1.43600- 11273 310701884 + 6.20000+ 6 1.37300- 1 6.40000+ 6 1.35700- 1 6.60000+ 6 1.39300- 11273 310701885 + 6.80000+ 6 1.21800- 1 7.00000+ 6 1.07800- 1 7.20000+ 6 9.86330- 21273 310701886 + 7.40000+ 6 9.14480- 2 7.60000+ 6 8.54180- 2 7.80000+ 6 8.02320- 21273 310701887 + 8.00000+ 6 7.57000- 2 8.20000+ 6 7.23160- 2 8.40000+ 6 6.96140- 21273 310701888 + 8.60000+ 6 6.70980- 2 8.80000+ 6 6.49940- 2 9.00000+ 6 6.37000- 21273 310701889 + 9.20000+ 6 6.23450- 2 9.40000+ 6 6.15380- 2 9.60000+ 6 6.09940- 21273 310701890 + 9.80000+ 6 6.03800- 2 1.00000+ 7 5.97500- 2 1.05000+ 7 5.90650- 21273 310701891 + 1.10000+ 7 5.84800- 2 1.15000+ 7 5.81950- 2 1.20000+ 7 5.81600- 21273 310701892 + 1.25000+ 7 5.84250- 2 1.30000+ 7 5.87900- 2 1.35000+ 7 5.93550- 21273 310701893 + 1.40000+ 7 6.02200- 2 1.45000+ 7 6.04350- 2 1.50000+ 7 5.97500- 21273 310701894 + 1.55000+ 7 5.82940- 2 1.60000+ 7 5.68170- 2 1.65000+ 7 5.53400- 21273 310701895 + 1.70000+ 7 5.38630- 2 1.75000+ 7 5.23860- 2 1.80000+ 7 5.09080- 21273 310701896 + 1.85000+ 7 4.94310- 2 1.90000+ 7 4.79540- 2 1.95000+ 7 4.64770- 21273 310701897 + 2.00000+ 7 4.50000- 2 1273 310701898 + 1273 300001899 + 5.01000+ 3 9.92690+ 0 0 99 0 01273 311301900 + 0.00000+ 0 2.31800+ 5 0 0 2 951273 311301901 + 5 5 95 2 1273 311301902 + 1.00000- 5 2.84500- 2 2.53000- 2 5.66000- 4 1.00000+ 0 9.00000- 51273 311301903 + 1.00000+ 3 2.92000- 6 5.10000+ 4 1.37000- 6 1.00000+ 5 2.52000- 61273 311301904 + 2.00000+ 5 7.98000- 6 4.00000+ 5 4.37000- 5 6.00000+ 5 1.49000- 41273 311301905 + 8.00000+ 5 4.02000- 4 1.00000+ 6 9.53000- 4 1.20000+ 6 2.14000- 31273 311301906 + 1.30000+ 6 3.18000- 3 1.40000+ 6 4.74000- 3 1.50000+ 6 7.12000- 31273 311301907 + 1.60000+ 6 1.07100- 2 1.70000+ 6 1.60000- 2 1.74000+ 6 1.86400- 21273 311301908 + 1.78000+ 6 2.15200- 2 1.82000+ 6 2.45800- 2 1.86000+ 6 2.76200- 21273 311301909 + 1.90000+ 6 3.03800- 2 1.94000+ 6 3.26600- 2 1.98000+ 6 3.41900- 21273 311301910 + 2.02000+ 6 3.48100- 2 2.06000+ 6 3.45700- 2 2.10000+ 6 3.35400- 21273 311301911 + 2.14000+ 6 3.19300- 2 2.18000+ 6 2.99500- 2 2.22000+ 6 2.78100- 21273 311301912 + 2.26000+ 6 2.56400- 2 2.30000+ 6 2.35500- 2 2.35000+ 6 2.10000- 21273 311301913 + 2.40000+ 6 2.10000- 2 2.45000+ 6 2.37000- 2 2.50000+ 6 2.73000- 21273 311301914 + 2.60000+ 6 3.15000- 2 2.70000+ 6 3.35000- 2 2.80000+ 6 3.40000- 21273 311301915 + 3.00000+ 6 3.58000- 2 3.20000+ 6 4.00000- 2 3.40000+ 6 4.90000- 21273 311301916 + 3.60000+ 6 6.20000- 2 3.80000+ 6 7.70000- 2 4.00000+ 6 9.10000- 21273 311301917 + 4.20000+ 6 1.08000- 1 4.40000+ 6 1.28000- 1 4.60000+ 6 1.55000- 11273 311301918 + 4.80000+ 6 1.84000- 1 5.00000+ 6 2.06000- 1 5.20000+ 6 2.16000- 11273 311301919 + 5.40000+ 6 2.20000- 1 5.60000+ 6 2.20500- 1 5.80000+ 6 2.18000- 11273 311301920 + 6.00000+ 6 2.09500- 1 6.20000+ 6 1.90000- 1 6.40000+ 6 1.64000- 11273 311301921 + 6.60000+ 6 1.42000- 1 6.80000+ 6 1.34000- 1 7.00000+ 6 1.29500- 11273 311301922 + 7.20000+ 6 1.26000- 1 7.40000+ 6 1.24000- 1 7.60000+ 6 1.22800- 11273 311301923 + 7.80000+ 6 1.21900- 1 8.00000+ 6 1.20800- 1 8.20000+ 6 1.19730- 11273 311301924 + 8.40000+ 6 1.18660- 1 8.60000+ 6 1.17590- 1 8.80000+ 6 1.16510- 11273 311301925 + 9.00000+ 6 1.15440- 1 9.20000+ 6 1.14370- 1 9.40000+ 6 1.13300- 11273 311301926 + 9.60000+ 6 1.12230- 1 9.80000+ 6 1.11160- 1 1.00000+ 7 1.10080- 11273 311301927 + 1.05000+ 7 1.07400- 1 1.10000+ 7 1.04730- 1 1.15000+ 7 1.02050- 11273 311301928 + 1.20000+ 7 9.93670- 2 1.25000+ 7 9.66880- 2 1.30000+ 7 9.40080- 21273 311301929 + 1.35000+ 7 9.13290- 2 1.40000+ 7 8.86500- 2 1.45000+ 7 8.59710- 21273 311301930 + 1.50000+ 7 8.32920- 2 1.55000+ 7 8.06130- 2 1.60000+ 7 7.79330- 21273 311301931 + 1.65000+ 7 7.52540- 2 1.70000+ 7 7.25750- 2 1.75000+ 7 6.98960- 21273 311301932 + 1.80000+ 7 6.72170- 2 1.85000+ 7 6.45380- 2 1.90000+ 7 6.18580- 21273 311301933 + 1.95000+ 7 5.91790- 2 2.00000+ 7 5.65000- 2 1273 311301934 + 1273 300001935 + 5.01000+ 3 9.92690+ 0 0 0 0 01273 325101936 + 0.00000+ 0 0.00000+ 0 0 0 1 751273 325101937 + 75 2 1273 325101938 + 1.00000- 5 6.76131- 2 1.00000+ 2 6.76131- 2 1.50000+ 5 5.79135- 21273 325101939 + 2.75000+ 5 6.63152- 2 3.75000+ 5 8.82401- 2 4.75000+ 5 1.18010- 11273 325101940 + 5.50000+ 5 1.20750- 1 7.50000+ 5 1.07618- 1 1.00000+ 6 1.12937- 11273 325101941 + 1.20000+ 6 1.28233- 1 1.40000+ 6 1.47257- 1 1.50000+ 6 1.61305- 11273 325101942 + 1.60000+ 6 1.87819- 1 1.70000+ 6 2.26005- 1 1.75000+ 6 2.51793- 11273 325101943 + 1.80000+ 6 2.68624- 1 1.85000+ 6 2.67475- 1 1.90000+ 6 2.51464- 11273 325101944 + 1.95000+ 6 2.34274- 1 2.00000+ 6 2.15834- 1 2.10000+ 6 1.92231- 11273 325101945 + 2.20000+ 6 1.73252- 1 2.30000+ 6 1.59490- 1 2.40000+ 6 1.49899- 11273 325101946 + 2.50000+ 6 1.45750- 1 2.60000+ 6 1.49861- 1 2.70000+ 6 1.59169- 11273 325101947 + 2.80000+ 6 1.74418- 1 2.90000+ 6 1.95213- 1 3.00000+ 6 2.14282- 11273 325101948 + 3.10000+ 6 2.30277- 1 3.20000+ 6 2.49317- 1 3.40000+ 6 2.75455- 11273 325101949 + 3.60000+ 6 3.02002- 1 3.80000+ 6 3.25774- 1 3.90000+ 6 3.38197- 11273 325101950 + 4.00000+ 6 3.49495- 1 4.20000+ 6 3.70128- 1 4.30000+ 6 3.78399- 11273 325101951 + 4.60000+ 6 4.04038- 1 4.80000+ 6 4.21137- 1 5.00000+ 6 4.33048- 11273 325101952 + 5.10000+ 6 4.37971- 1 5.30000+ 6 4.47341- 1 5.40000+ 6 4.51856- 11273 325101953 + 5.50000+ 6 4.55578- 1 6.00000+ 6 4.72573- 1 6.25000+ 6 4.79745- 11273 325101954 + 6.50000+ 6 4.86979- 1 6.75000+ 6 4.93153- 1 7.25000+ 6 5.01846- 11273 325101955 + 7.60000+ 6 5.08218- 1 7.75000+ 6 5.10944- 1 8.00000+ 6 5.15732- 11273 325101956 + 8.25000+ 6 5.20655- 1 8.75000+ 6 5.26787- 1 9.25000+ 6 5.37102- 11273 325101957 + 9.50000+ 6 5.43287- 1 9.75000+ 6 5.48346- 1 1.07500+ 7 5.81509- 11273 325101958 + 1.10000+ 7 5.90014- 1 1.15000+ 7 6.07163- 1 1.20000+ 7 6.24105- 11273 325101959 + 1.25000+ 7 6.40123- 1 1.30000+ 7 6.56273- 1 1.35000+ 7 6.70431- 11273 325101960 + 1.40000+ 7 6.83725- 1 1.45000+ 7 6.95166- 1 1.50000+ 7 7.05611- 11273 325101961 + 1.55000+ 7 7.17185- 1 1.60000+ 7 7.26634- 1 1.70000+ 7 7.46527- 11273 325101962 + 1.80000+ 7 7.65562- 1 1.90000+ 7 7.80478- 1 2.00000+ 7 7.93473- 11273 325101963 + 1273 300001964 + 5.01000+ 3 9.92690+ 0 0 0 0 01273 325201965 + 0.00000+ 0 0.00000+ 0 0 0 1 751273 325201966 + 75 2 1273 325201967 + 1.00000- 5 1.88568- 1 1.00000+ 2 1.88568- 1 1.50000+ 5 1.90527- 11273 325201968 + 2.75000+ 5 1.88830- 1 3.75000+ 5 1.84401- 1 4.75000+ 5 1.78388- 11273 325201969 + 5.50000+ 5 1.77834- 1 7.50000+ 5 1.80486- 1 1.00000+ 6 1.79412- 11273 325201970 + 1.20000+ 6 1.76322- 1 1.40000+ 6 1.72478- 1 1.50000+ 6 1.69640- 11273 325201971 + 1.60000+ 6 1.64284- 1 1.70000+ 6 1.56571- 1 1.75000+ 6 1.51361- 11273 325201972 + 1.80000+ 6 1.47961- 1 1.85000+ 6 1.48193- 1 1.90000+ 6 1.51426- 11273 325201973 + 1.95000+ 6 1.54899- 1 2.00000+ 6 1.58625- 1 2.10000+ 6 1.63394- 11273 325201974 + 2.20000+ 6 1.67227- 1 2.30000+ 6 1.70003- 1 2.40000+ 6 1.71937- 11273 325201975 + 2.50000+ 6 1.72771- 1 2.60000+ 6 1.71934- 1 2.70000+ 6 1.70046- 11273 325201976 + 2.80000+ 6 1.66958- 1 2.90000+ 6 1.62753- 1 3.00000+ 6 1.58898- 11273 325201977 + 3.10000+ 6 1.55667- 1 3.20000+ 6 1.51821- 1 3.40000+ 6 1.46542- 11273 325201978 + 3.60000+ 6 1.41180- 1 3.80000+ 6 1.36380- 1 3.90000+ 6 1.33871- 11273 325201979 + 4.00000+ 6 1.31589- 1 4.20000+ 6 1.27420- 1 4.30000+ 6 1.25747- 11273 325201980 + 4.60000+ 6 1.20565- 1 4.80000+ 6 1.17110- 1 5.00000+ 6 1.14702- 11273 325201981 + 5.10000+ 6 1.13707- 1 5.30000+ 6 1.11812- 1 5.40000+ 6 1.10899- 11273 325201982 + 5.50000+ 6 1.10146- 1 6.00000+ 6 1.06709- 1 6.25000+ 6 1.05258- 11273 325201983 + 6.50000+ 6 1.03796- 1 6.75000+ 6 1.02547- 1 7.25000+ 6 1.00788- 11273 325201984 + 7.60000+ 6 9.95004- 2 7.75000+ 6 9.89505- 2 8.00000+ 6 9.79851- 21273 325201985 + 8.25000+ 6 9.69926- 2 8.75000+ 6 9.57585- 2 9.25000+ 6 9.36804- 21273 325201986 + 9.50000+ 6 9.24340- 2 9.75000+ 6 9.14144- 2 1.07500+ 7 8.47246- 21273 325201987 + 1.10000+ 7 8.30080- 2 1.15000+ 7 7.95480- 2 1.20000+ 7 7.61289- 21273 325201988 + 1.25000+ 7 7.28976- 2 1.30000+ 7 6.96401- 2 1.35000+ 7 6.67854- 21273 325201989 + 1.40000+ 7 6.41053- 2 1.45000+ 7 6.17997- 2 1.50000+ 7 5.96956- 21273 325201990 + 1.55000+ 7 5.73637- 2 1.60000+ 7 5.54608- 2 1.70000+ 7 5.14538- 21273 325201991 + 1.80000+ 7 4.76210- 2 1.90000+ 7 4.46198- 2 2.00000+ 7 4.20071- 21273 325201992 + 1273 300001993 + 5.01000+ 3 9.92690+ 0 0 0 0 01273 325301994 + 0.00000+ 0 0.00000+ 0 0 0 1 751273 325301995 + 75 2 1273 325301996 + 1.00000- 5 1.30085- 1 1.00000+ 2 1.30085- 1 1.50000+ 5 1.30741- 11273 325301997 + 2.75000+ 5 1.30168- 1 3.75000+ 5 1.28633- 1 4.75000+ 5 1.26520- 11273 325301998 + 5.50000+ 5 1.26446- 1 7.50000+ 5 1.27656- 1 1.00000+ 6 1.27493- 11273 325301999 + 1.20000+ 6 1.26912- 1 1.40000+ 6 1.26455- 1 1.50000+ 6 1.26381- 11273 325302000 + 1.60000+ 6 1.25858- 1 1.70000+ 6 1.24619- 1 1.75000+ 6 1.23693- 11273 325302001 + 1.80000+ 6 1.23567- 1 1.85000+ 6 1.25246- 1 1.90000+ 6 1.28150- 11273 325302002 + 1.95000+ 6 1.29978- 1 2.00000+ 6 1.30881- 1 2.10000+ 6 1.31142- 11273 325302003 + 2.20000+ 6 1.32655- 1 2.30000+ 6 1.35793- 1 2.40000+ 6 1.39510- 11273 325302004 + 2.50000+ 6 1.43435- 1 2.60000+ 6 1.46491- 1 2.70000+ 6 1.47852- 11273 325302005 + 2.80000+ 6 1.47736- 1 2.90000+ 6 1.46639- 1 3.00000+ 6 1.45261- 11273 325302006 + 3.10000+ 6 1.44154- 1 3.20000+ 6 1.42729- 1 3.40000+ 6 1.40541- 11273 325302007 + 3.60000+ 6 1.37574- 1 3.80000+ 6 1.34298- 1 3.90000+ 6 1.32459- 11273 325302008 + 4.00000+ 6 1.30848- 1 4.20000+ 6 1.27588- 1 4.30000+ 6 1.26169- 11273 325302009 + 4.60000+ 6 1.21913- 1 4.80000+ 6 1.19439- 1 5.00000+ 6 1.17892- 11273 325302010 + 5.10000+ 6 1.17307- 1 5.30000+ 6 1.17032- 1 5.40000+ 6 1.17224- 11273 325302011 + 5.50000+ 6 1.17163- 1 6.00000+ 6 1.18256- 1 6.25000+ 6 1.18700- 11273 325302012 + 6.50000+ 6 1.19039- 1 6.75000+ 6 1.19664- 1 7.25000+ 6 1.20861- 11273 325302013 + 7.60000+ 6 1.21109- 1 7.75000+ 6 1.21244- 1 8.00000+ 6 1.20937- 11273 325302014 + 8.25000+ 6 1.20324- 1 8.75000+ 6 1.19089- 1 9.25000+ 6 1.16715- 11273 325302015 + 9.50000+ 6 1.15246- 1 9.75000+ 6 1.14215- 1 1.07500+ 7 1.09666- 11273 325302016 + 1.10000+ 7 1.09044- 1 1.15000+ 7 1.07362- 1 1.20000+ 7 1.06109- 11273 325302017 + 1.25000+ 7 1.04792- 1 1.30000+ 7 1.02944- 1 1.35000+ 7 1.01491- 11273 325302018 + 1.40000+ 7 9.97520- 2 1.45000+ 7 9.79917- 2 1.50000+ 7 9.64366- 21273 325302019 + 1.55000+ 7 9.39071- 2 1.60000+ 7 9.24402- 2 1.70000+ 7 8.87781- 21273 325302020 + 1.80000+ 7 8.43245- 2 1.90000+ 7 8.18471- 2 2.00000+ 7 7.97488- 21273 325302021 + 1273 300002022 + 5.01000+ 3 9.92690+ 0 0 0 0 01273 370002023 + 0.00000+ 0 2.26700+ 5 0 0 2 921273 370002024 + 5 5 92 2 1273 370002025 + 1.00000- 5 2.84500- 2 2.53000- 2 5.66000- 4 1.00000+ 0 9.00000- 51273 370002026 + 1.00000+ 3 2.92000- 6 5.10000+ 4 1.37000- 6 1.00000+ 5 2.52000- 61273 370002027 + 2.00000+ 5 7.98000- 6 4.00000+ 5 4.37000- 5 6.00000+ 5 1.49000- 41273 370002028 + 8.00000+ 5 4.02000- 4 1.00000+ 6 9.53000- 4 1.20000+ 6 2.14000- 31273 370002029 + 1.30000+ 6 3.18000- 3 1.40000+ 6 4.65000- 3 1.50000+ 6 5.93000- 31273 370002030 + 1.55000+ 6 6.48000- 3 1.60000+ 6 7.00000- 3 1.70000+ 6 7.77000- 31273 370002031 + 1.80000+ 6 8.49280- 3 2.00000+ 6 9.44000- 3 2.20000+ 6 1.02780- 21273 370002032 + 2.40000+ 6 1.11140- 2 2.60000+ 6 1.18860- 2 2.80000+ 6 1.25790- 21273 370002033 + 3.00000+ 6 1.32000- 2 3.20000+ 6 1.35420- 2 3.40000+ 6 1.37640- 21273 370002034 + 3.45500+ 6 1.38090- 2 3.60000+ 6 1.38790- 2 3.70000+ 6 1.39000- 21273 370002035 + 3.80000+ 6 1.39110- 2 3.90000+ 6 1.39190- 2 4.00000+ 6 1.39200- 21273 370002036 + 4.20000+ 6 1.39000- 2 4.40000+ 6 1.38170- 2 4.60000+ 6 1.37090- 21273 370002037 + 4.80000+ 6 1.35890- 2 5.00000+ 6 1.34400- 2 5.20000+ 6 1.32930- 21273 370002038 + 5.40000+ 6 1.31460- 2 5.60000+ 6 1.29980- 2 5.80000+ 6 1.28510- 21273 370002039 + 6.00000+ 6 1.27040- 2 6.20000+ 6 1.25570- 2 6.30000+ 6 1.24830- 21273 370002040 + 6.30900+ 6 1.24770- 2 6.40000+ 6 1.24100- 2 6.50000+ 6 1.23360- 21273 370002041 + 6.55000+ 6 1.22990- 2 6.60000+ 6 1.22620- 2 6.70000+ 6 1.21890- 21273 370002042 + 6.80000+ 6 1.21150- 2 6.90000+ 6 1.20420- 2 7.00000+ 6 1.19680- 21273 370002043 + 7.10000+ 6 1.18940- 2 7.20000+ 6 1.18210- 2 7.30000+ 6 1.17470- 21273 370002044 + 7.40000+ 6 1.16740- 2 7.50000+ 6 1.16000- 2 7.60000+ 6 1.15260- 21273 370002045 + 7.80000+ 6 1.13790- 2 8.00000+ 6 1.12320- 2 8.20000+ 6 1.10850- 21273 370002046 + 8.40000+ 6 1.09380- 2 8.60000+ 6 1.07900- 2 8.80000+ 6 1.06430- 21273 370002047 + 9.00000+ 6 1.04960- 2 9.20000+ 6 1.03490- 2 9.40000+ 6 1.02020- 21273 370002048 + 9.60000+ 6 1.00540- 2 9.80000+ 6 9.90720- 3 1.00000+ 7 9.76000- 31273 370002049 + 1.05000+ 7 9.39200- 3 1.10000+ 7 9.02400- 3 1.15000+ 7 8.65600- 31273 370002050 + 1.20000+ 7 8.28800- 3 1.25000+ 7 7.92000- 3 1.30000+ 7 7.55200- 31273 370002051 + 1.35000+ 7 7.18400- 3 1.40000+ 7 6.81600- 3 1.45000+ 7 6.44800- 31273 370002052 + 1.50000+ 7 6.08000- 3 1.55000+ 7 5.71200- 3 1.60000+ 7 5.34400- 31273 370002053 + 1.65000+ 7 4.97600- 3 1.70000+ 7 4.60800- 3 1.75000+ 7 4.24000- 31273 370002054 + 1.80000+ 7 3.87200- 3 1.85000+ 7 3.50400- 3 1.90000+ 7 3.13600- 31273 370002055 + 1.95000+ 7 2.76800- 3 2.00000+ 7 2.40000- 3 1273 370002056 + 1273 300002057 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 370102058 + 0.00000+ 0-3.13900+ 6 0 31 1 651273 370102059 + 65 2 1273 370102060 + 3.45500+ 6 0.00000+ 0 3.60000+ 6 2.75250- 4 3.70000+ 6 4.65080- 41273 370102061 + 3.80000+ 6 9.08280- 4 3.90000+ 6 1.77840- 3 4.00000+ 6 2.88000- 31273 370102062 + 4.20000+ 6 5.63840- 3 4.40000+ 6 8.72320- 3 4.60000+ 6 1.12450- 21273 370102063 + 4.80000+ 6 1.29630- 2 5.00000+ 6 1.42400- 2 5.20000+ 6 1.48610- 21273 370102064 + 5.40000+ 6 1.53200- 2 5.60000+ 6 1.56670- 2 5.80000+ 6 1.58940- 21273 370102065 + 6.00000+ 6 1.60800- 2 6.20000+ 6 1.62140- 2 6.30000+ 6 1.62600- 21273 370102066 + 6.30900+ 6 1.62640- 2 6.40000+ 6 1.62950- 2 6.50000+ 6 1.63200- 21273 370102067 + 6.55000+ 6 1.63350- 2 6.60000+ 6 1.63470- 2 6.70000+ 6 1.63640- 21273 370102068 + 6.80000+ 6 1.63630- 2 6.90000+ 6 1.63460- 2 7.00000+ 6 1.63200- 21273 370102069 + 7.10000+ 6 1.63020- 2 7.20000+ 6 1.62770- 2 7.30000+ 6 1.62450- 21273 370102070 + 7.40000+ 6 1.62060- 2 7.50000+ 6 1.61600- 2 7.60000+ 6 1.60880- 21273 370102071 + 7.80000+ 6 1.59250- 2 8.00000+ 6 1.57360- 2 8.20000+ 6 1.55470- 21273 370102072 + 8.40000+ 6 1.53540- 2 8.60000+ 6 1.51640- 2 8.80000+ 6 1.49790- 21273 370102073 + 9.00000+ 6 1.47940- 2 9.20000+ 6 1.46100- 2 9.40000+ 6 1.44250- 21273 370102074 + 9.60000+ 6 1.42410- 2 9.80000+ 6 1.40560- 2 1.00000+ 7 1.38710- 21273 370102075 + 1.05000+ 7 1.34100- 2 1.10000+ 7 1.29480- 2 1.15000+ 7 1.24870- 21273 370102076 + 1.20000+ 7 1.20250- 2 1.25000+ 7 1.15630- 2 1.30000+ 7 1.11020- 21273 370102077 + 1.35000+ 7 1.06400- 2 1.40000+ 7 1.01790- 2 1.45000+ 7 9.71720- 31273 370102078 + 1.50000+ 7 9.25570- 3 1.55000+ 7 8.79410- 3 1.60000+ 7 8.33250- 31273 370102079 + 1.65000+ 7 7.87100- 3 1.70000+ 7 7.40940- 3 1.75000+ 7 6.94780- 31273 370102080 + 1.80000+ 7 6.48630- 3 1.85000+ 7 6.02470- 3 1.90000+ 7 5.56310- 31273 370102081 + 1.95000+ 7 5.10160- 3 2.00000+ 7 4.64000- 3 1273 370102082 + 1273 300002083 + 5.01000+ 3 9.92690+ 0 0 2 0 01273 370202084 + 0.00000+ 0-5.73200+ 6 0 31 1 471273 370202085 + 47 2 1273 370202086 + 6.30900+ 6 0.00000+ 0 6.40000+ 6 3.30160- 5 6.50000+ 6 6.92970- 51273 370202087 + 6.55000+ 6 8.74380- 5 6.60000+ 6 1.05580- 4 6.70000+ 6 1.41860- 41273 370202088 + 6.80000+ 6 2.07760- 4 6.90000+ 6 3.27640- 4 7.00000+ 6 4.80000- 41273 370202089 + 7.10000+ 6 5.45600- 4 7.20000+ 6 8.22400- 4 7.30000+ 6 1.52640- 31273 370202090 + 7.40000+ 6 2.65760- 3 7.50000+ 6 4.00000- 3 7.60000+ 6 5.28960- 31273 370202091 + 7.80000+ 6 7.83680- 3 8.00000+ 6 1.00000- 2 8.20000+ 6 1.11070- 21273 370202092 + 8.40000+ 6 1.17650- 2 8.60000+ 6 1.21890- 2 8.80000+ 6 1.24590- 21273 370202093 + 9.00000+ 6 1.26400- 2 9.20000+ 6 1.27310- 2 9.40000+ 6 1.27650- 21273 370202094 + 9.60000+ 6 1.27570- 2 9.80000+ 6 1.27190- 2 1.00000+ 7 1.26400- 21273 370202095 + 1.05000+ 7 1.22400- 2 1.10000+ 7 1.17920- 2 1.15000+ 7 1.13240- 21273 370202096 + 1.20000+ 7 1.08550- 2 1.25000+ 7 1.03870- 2 1.30000+ 7 9.91820- 31273 370202097 + 1.35000+ 7 9.44980- 3 1.40000+ 7 8.98130- 3 1.45000+ 7 8.51290- 31273 370202098 + 1.50000+ 7 8.04440- 3 1.55000+ 7 7.57600- 3 1.60000+ 7 7.10760- 31273 370202099 + 1.65000+ 7 6.63910- 3 1.70000+ 7 6.17070- 3 1.75000+ 7 5.70220- 31273 370202100 + 1.80000+ 7 5.23380- 3 1.85000+ 7 4.76530- 3 1.90000+ 7 4.29690- 31273 370202101 + 1.95000+ 7 3.82840- 3 2.00000+ 7 3.36000- 3 1273 370202102 + 1273 300002103 + 5.01000+ 3 9.92690+ 0 0 3 0 01273 370302104 + 0.00000+ 0-5.95100+ 6 0 40 1 441273 370302105 + 44 2 1273 370302106 + 6.55000+ 6 0.00000+ 0 6.60000+ 6 2.00000- 5 6.70000+ 6 6.00000- 51273 370302107 + 6.80000+ 6 9.97330- 5 6.90000+ 6 1.57600- 4 7.00000+ 6 2.40000- 41273 370302108 + 7.10000+ 6 2.94400- 4 7.20000+ 6 4.89600- 4 7.30000+ 6 9.15200- 41273 370302109 + 7.40000+ 6 1.62880- 3 7.50000+ 6 2.56000- 3 7.60000+ 6 3.74560- 31273 370302110 + 7.80000+ 6 6.36160- 3 8.00000+ 6 8.64000- 3 8.20000+ 6 9.44640- 31273 370302111 + 8.40000+ 6 9.80320- 3 8.60000+ 6 1.00030- 2 8.80000+ 6 1.01020- 21273 370302112 + 9.00000+ 6 1.01600- 2 9.20000+ 6 1.01620- 2 9.40000+ 6 1.01180- 21273 370302113 + 9.60000+ 6 1.00270- 2 9.80000+ 6 9.90480- 3 1.00000+ 7 9.76000- 31273 370302114 + 1.05000+ 7 9.40000- 3 1.10000+ 7 9.04000- 3 1.15000+ 7 8.67110- 31273 370302115 + 1.20000+ 7 8.30220- 3 1.25000+ 7 7.93330- 3 1.30000+ 7 7.56440- 31273 370302116 + 1.35000+ 7 7.19560- 3 1.40000+ 7 6.82670- 3 1.45000+ 7 6.45780- 31273 370302117 + 1.50000+ 7 6.08890- 3 1.55000+ 7 5.72000- 3 1.60000+ 7 5.35110- 31273 370302118 + 1.65000+ 7 4.98220- 3 1.70000+ 7 4.61330- 3 1.75000+ 7 4.24440- 31273 370302119 + 1.80000+ 7 3.87560- 3 1.85000+ 7 3.50670- 3 1.90000+ 7 3.13780- 31273 370302120 + 1.95000+ 7 2.76890- 3 2.00000+ 7 2.40000- 3 1273 370302121 + 1273 300002122 + 5.01000+ 3 9.92690+ 0 0 0 0 01273 378002123 + 0.00000+ 0 2.79000+ 6 0 0 2 1931273 378002124 + 96 5 193 2 1273 378002125 + 1.00000- 5 1.20980+ 4 2.53000- 2 2.40510+ 2 1.00000- 1 1.20950+ 21273 378002126 + 1.00000+ 0 3.82360+ 1 1.00000+ 1 1.20760+ 1 1.00000+ 2 3.80550+ 01273 378002127 + 1.00000+ 3 1.19350+ 0 5.00000+ 3 5.31580- 1 1.00000+ 4 3.77750- 11273 378002128 + 2.00000+ 4 2.71470- 1 3.00000+ 4 2.25660- 1 4.00000+ 4 1.98900- 11273 378002129 + 5.00000+ 4 1.80980- 1 6.00000+ 4 1.67990- 1 7.00000+ 4 1.58120- 11273 378002130 + 8.00000+ 4 1.50370- 1 9.00000+ 4 1.44170- 1 1.00000+ 5 1.39160- 11273 378002131 + 1.10000+ 5 1.35090- 1 1.20000+ 5 1.31810- 1 1.30000+ 5 1.29200- 11273 378002132 + 1.40000+ 5 1.27160- 1 1.50000+ 5 1.25640- 1 1.60000+ 5 1.24580- 11273 378002133 + 1.70000+ 5 1.23920- 1 1.80000+ 5 1.23610- 1 1.90000+ 5 1.23600- 11273 378002134 + 2.00000+ 5 1.23810- 1 2.05000+ 5 1.23980- 1 2.10000+ 5 1.24170- 11273 378002135 + 2.15000+ 5 1.24380- 1 2.20000+ 5 1.24590- 1 2.25000+ 5 1.24800- 11273 378002136 + 2.30000+ 5 1.24990- 1 2.35000+ 5 1.25150- 1 2.40000+ 5 1.25260- 11273 378002137 + 2.45000+ 5 1.25330- 1 2.50000+ 5 1.25330- 1 2.60000+ 5 1.25140- 11273 378002138 + 2.70000+ 5 1.24650- 1 2.80000+ 5 1.23870- 1 2.90000+ 5 1.22880- 11273 378002139 + 3.00000+ 5 1.21750- 1 3.10000+ 5 1.20620- 1 3.20000+ 5 1.19600- 11273 378002140 + 3.30000+ 5 1.18850- 1 3.40000+ 5 1.18480- 1 3.50000+ 5 1.18590- 11273 378002141 + 3.60000+ 5 1.19280- 1 3.70000+ 5 1.20580- 1 3.80000+ 5 1.22500- 11273 378002142 + 3.90000+ 5 1.25020- 1 4.00000+ 5 1.28080- 1 4.10000+ 5 1.31600- 11273 378002143 + 4.20000+ 5 1.35430- 1 4.30000+ 5 1.39430- 1 4.40000+ 5 1.43400- 11273 378002144 + 4.50000+ 5 1.47170- 1 4.60000+ 5 1.50550- 1 4.65000+ 5 1.52040- 11273 378002145 + 4.70000+ 5 1.53370- 1 4.75000+ 5 1.54530- 1 4.80000+ 5 1.55500- 11273 378002146 + 4.85000+ 5 1.56280- 1 4.90000+ 5 1.56850- 1 4.95000+ 5 1.57220- 11273 378002147 + 5.00000+ 5 1.57390- 1 5.05000+ 5 1.57360- 1 5.10000+ 5 1.57130- 11273 378002148 + 5.15000+ 5 1.56710- 1 5.20000+ 5 1.56110- 1 5.30000+ 5 1.54430- 11273 378002149 + 5.40000+ 5 1.52170- 1 5.60000+ 5 1.46400- 1 5.80000+ 5 1.39660- 11273 378002150 + 6.00000+ 5 1.32620- 1 6.20000+ 5 1.25750- 1 6.40000+ 5 1.19340- 11273 378002151 + 6.60000+ 5 1.13510- 1 6.80000+ 5 1.08330- 1 7.00000+ 5 1.03790- 11273 378002152 + 7.20000+ 5 9.98530- 2 7.40000+ 5 9.64770- 2 7.60000+ 5 9.36130- 21273 378002153 + 7.80000+ 5 9.12120- 2 8.00000+ 5 8.92310- 2 8.20000+ 5 8.76340- 21273 378002154 + 8.40000+ 5 8.63920- 2 8.60000+ 5 8.54830- 2 8.80000+ 5 8.48940- 21273 378002155 + 9.00000+ 5 8.46230- 2 9.20000+ 5 8.46810- 2 9.40000+ 5 8.50980- 21273 378002156 + 9.60000+ 5 8.59280- 2 9.80000+ 5 8.72660- 2 1.00000+ 6 8.92660- 21273 378002157 + 1.10000+ 6 1.00200- 1 1.20000+ 6 1.13300- 1 1.30000+ 6 1.30000- 11273 378002158 + 1.40000+ 6 1.51000- 1 1.50000+ 6 1.81000- 1 1.55000+ 6 2.03000- 11273 378002159 + 1.60000+ 6 2.35000- 1 1.65000+ 6 2.72500- 1 1.70000+ 6 3.09500- 11273 378002160 + 1.75000+ 6 3.43000- 1 1.80000+ 6 3.57500- 1 1.85000+ 6 3.62000- 11273 378002161 + 1.90000+ 6 3.58500- 1 1.95000+ 6 3.45000- 1 2.00000+ 6 3.25000- 11273 378002162 + 2.05000+ 6 3.03000- 1 2.10000+ 6 2.77000- 1 2.15000+ 6 2.53000- 11273 378002163 + 2.20000+ 6 2.32000- 1 2.25000+ 6 2.13000- 1 2.30000+ 6 1.96000- 11273 378002164 + 2.35000+ 6 1.83000- 1 2.40000+ 6 1.73500- 1 2.45000+ 6 1.68300- 11273 378002165 + 2.50000+ 6 1.60000- 1 2.55000+ 6 1.78000- 1 2.60000+ 6 1.90000- 11273 378002166 + 2.65000+ 6 2.02000- 1 2.70000+ 6 2.14400- 1 2.75000+ 6 2.26000- 11273 378002167 + 2.80000+ 6 2.31000- 1 2.85000+ 6 2.27000- 1 2.90000+ 6 2.20000- 11273 378002168 + 2.95000+ 6 2.12400- 1 3.00000+ 6 2.04600- 1 3.05000+ 6 1.97030- 11273 378002169 + 3.10000+ 6 1.89500- 1 3.15000+ 6 1.81970- 1 3.20000+ 6 1.74500- 11273 378002170 + 3.30000+ 6 1.58810- 1 3.40000+ 6 1.45500- 1 3.60000+ 6 1.34200- 11273 378002171 + 3.70000+ 6 1.34200- 1 3.80000+ 6 1.36300- 1 4.00000+ 6 1.44200- 11273 378002172 + 4.20000+ 6 1.47000- 1 4.30000+ 6 1.43800- 1 4.40000+ 6 1.36800- 11273 378002173 + 4.60000+ 6 1.27300- 1 4.80000+ 6 1.23000- 1 5.00000+ 6 1.21000- 11273 378002174 + 5.20000+ 6 1.20400- 1 5.40000+ 6 1.20000- 1 5.50000+ 6 1.19200- 11273 378002175 + 5.60000+ 6 1.17500- 1 5.80000+ 6 1.12000- 1 6.00000+ 6 1.03800- 11273 378002176 + 6.20000+ 6 9.76000- 2 6.40000+ 6 9.74000- 2 6.60000+ 6 1.03200- 11273 378002177 + 6.80000+ 6 8.87000- 2 7.00000+ 6 7.75000- 2 7.20000+ 6 7.08590- 21273 378002178 + 7.40000+ 6 6.57600- 2 7.60000+ 6 6.14260- 2 7.80000+ 6 5.76840- 21273 378002179 + 8.00000+ 6 5.44000- 2 8.20000+ 6 5.19280- 2 8.40000+ 6 4.99180- 21273 378002180 + 8.60000+ 6 4.80020- 2 8.80000+ 6 4.64400- 2 9.00000+ 6 4.56000- 21273 378002181 + 9.20000+ 6 4.45360- 2 9.40000+ 6 4.39520- 2 9.60000+ 6 4.36060- 21273 378002182 + 9.80000+ 6 4.31830- 2 1.00000+ 7 4.27000- 2 1.05000+ 7 4.20650- 21273 378002183 + 1.10000+ 7 4.14300- 2 1.15000+ 7 4.07950- 2 1.20000+ 7 4.01600- 21273 378002184 + 1.25000+ 7 3.95250- 2 1.30000+ 7 3.88900- 2 1.35000+ 7 3.82550- 21273 378002185 + 1.40000+ 7 3.76200- 2 1.45000+ 7 3.69850- 2 1.50000+ 7 3.63500- 21273 378002186 + 1.55000+ 7 3.57150- 2 1.60000+ 7 3.50800- 2 1.65000+ 7 3.44450- 21273 378002187 + 1.70000+ 7 3.38100- 2 1.75000+ 7 3.31750- 2 1.80000+ 7 3.25400- 21273 378002188 + 1.85000+ 7 3.19050- 2 1.90000+ 7 3.12700- 2 1.95000+ 7 3.06350- 21273 378002189 + 2.00000+ 7 3.00000- 2 1273 378002190 + 1273 300002191 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 378102192 + 0.00000+ 0 2.31200+ 6 0 31 2 1931273 378102193 + 96 5 193 2 1273 378102194 + 1.00000- 5 1.80900+ 5 2.53000- 2 3.59600+ 3 1.00000- 1 1.80850+ 31273 378102195 + 1.00000+ 0 5.71660+ 2 1.00000+ 1 1.80520+ 2 1.00000+ 2 5.68390+ 11273 378102196 + 1.00000+ 3 1.77650+ 1 5.00000+ 3 7.83230+ 0 1.00000+ 4 5.50940+ 01273 378102197 + 2.00000+ 4 3.89410+ 0 3.00000+ 4 3.19330+ 0 4.00000+ 4 2.78240+ 01273 378102198 + 5.00000+ 4 2.50550+ 0 6.00000+ 4 2.30250+ 0 7.00000+ 4 2.14510+ 01273 378102199 + 8.00000+ 4 2.01790+ 0 9.00000+ 4 1.91160+ 0 1.00000+ 5 1.82040+ 01273 378102200 + 1.10000+ 5 1.74040+ 0 1.20000+ 5 1.66900+ 0 1.30000+ 5 1.60420+ 01273 378102201 + 1.40000+ 5 1.54460+ 0 1.50000+ 5 1.48920+ 0 1.60000+ 5 1.43730+ 01273 378102202 + 1.70000+ 5 1.38830+ 0 1.80000+ 5 1.34170+ 0 1.90000+ 5 1.29730+ 01273 378102203 + 2.00000+ 5 1.25480+ 0 2.05000+ 5 1.23430+ 0 2.10000+ 5 1.21410+ 01273 378102204 + 2.15000+ 5 1.19440+ 0 2.20000+ 5 1.17510+ 0 2.25000+ 5 1.15620+ 01273 378102205 + 2.30000+ 5 1.13770+ 0 2.35000+ 5 1.11960+ 0 2.40000+ 5 1.10180+ 01273 378102206 + 2.45000+ 5 1.08460+ 0 2.50000+ 5 1.06760+ 0 2.60000+ 5 1.03490+ 01273 378102207 + 2.70000+ 5 1.00370+ 0 2.80000+ 5 9.74030- 1 2.90000+ 5 9.46020- 11273 378102208 + 3.00000+ 5 9.19650- 1 3.10000+ 5 8.94930- 1 3.20000+ 5 8.71870- 11273 378102209 + 3.30000+ 5 8.50500- 1 3.40000+ 5 8.30780- 1 3.50000+ 5 8.12680- 11273 378102210 + 3.60000+ 5 7.96150- 1 3.70000+ 5 7.81090- 1 3.80000+ 5 7.67360- 11273 378102211 + 3.90000+ 5 7.54790- 1 4.00000+ 5 7.43140- 1 4.10000+ 5 7.32140- 11273 378102212 + 4.20000+ 5 7.21480- 1 4.30000+ 5 7.10820- 1 4.40000+ 5 6.99780- 11273 378102213 + 4.50000+ 5 6.88060- 1 4.60000+ 5 6.75370- 1 4.65000+ 5 6.68600- 11273 378102214 + 4.70000+ 5 6.61510- 1 4.75000+ 5 6.54100- 1 4.80000+ 5 6.46360- 11273 378102215 + 4.85000+ 5 6.38300- 1 4.90000+ 5 6.29920- 1 4.95000+ 5 6.21230- 11273 378102216 + 5.00000+ 5 6.12270- 1 5.05000+ 5 6.03040- 1 5.10000+ 5 5.93580- 11273 378102217 + 5.15000+ 5 5.83910- 1 5.20000+ 5 5.74080- 1 5.30000+ 5 5.54020- 11273 378102218 + 5.40000+ 5 5.33690- 1 5.60000+ 5 4.93110- 1 5.80000+ 5 4.53990- 11273 378102219 + 6.00000+ 5 4.17360- 1 6.20000+ 5 3.83750- 1 6.40000+ 5 3.53290- 11273 378102220 + 6.60000+ 5 3.25860- 1 6.80000+ 5 3.01250- 1 7.00000+ 5 2.79180- 11273 378102221 + 7.20000+ 5 2.59390- 1 7.40000+ 5 2.41580- 1 7.60000+ 5 2.25530- 11273 378102222 + 7.80000+ 5 2.11020- 1 8.00000+ 5 1.97870- 1 8.20000+ 5 1.85920- 11273 378102223 + 8.40000+ 5 1.75030- 1 8.60000+ 5 1.65080- 1 8.80000+ 5 1.55960- 11273 378102224 + 9.00000+ 5 1.47580- 1 9.20000+ 5 1.39880- 1 9.40000+ 5 1.32760- 11273 378102225 + 9.60000+ 5 1.26190- 1 9.80000+ 5 1.20110- 1 1.00000+ 6 1.14470- 11273 378102226 + 1.10000+ 6 9.42000- 2 1.20000+ 6 8.27000- 2 1.30000+ 6 7.60000- 21273 378102227 + 1.40000+ 6 7.42000- 2 1.50000+ 6 8.00000- 2 1.55000+ 6 8.67900- 21273 378102228 + 1.60000+ 6 9.65000- 2 1.65000+ 6 1.09500- 1 1.70000+ 6 1.25600- 11273 378102229 + 1.75000+ 6 1.42100- 1 1.80000+ 6 1.55000- 1 1.85000+ 6 1.62200- 11273 378102230 + 1.90000+ 6 1.61000- 1 1.95000+ 6 1.54400- 1 2.00000+ 6 1.47000- 11273 378102231 + 2.05000+ 6 1.40030- 1 2.10000+ 6 1.33800- 1 2.15000+ 6 1.28710- 11273 378102232 + 2.20000+ 6 1.24400- 1 2.25000+ 6 1.20550- 1 2.30000+ 6 1.17500- 11273 378102233 + 2.35000+ 6 1.15590- 1 2.40000+ 6 1.14500- 1 2.45000+ 6 1.14060- 11273 378102234 + 2.50000+ 6 1.14100- 1 2.55000+ 6 1.14460- 1 2.60000+ 6 1.15000- 11273 378102235 + 2.65000+ 6 1.15500- 1 2.70000+ 6 1.15400- 1 2.75000+ 6 1.14000- 11273 378102236 + 2.80000+ 6 1.10100- 1 2.85000+ 6 1.03700- 1 2.90000+ 6 9.64000- 21273 378102237 + 2.95000+ 6 9.02000- 2 3.00000+ 6 8.53000- 2 3.05000+ 6 8.13000- 21273 378102238 + 3.10000+ 6 7.83000- 2 3.15000+ 6 7.73000- 2 3.20000+ 6 7.67000- 21273 378102239 + 3.30000+ 6 7.64000- 2 3.40000+ 6 7.67000- 2 3.60000+ 6 7.93000- 21273 378102240 + 3.70000+ 6 8.32000- 2 3.80000+ 6 9.09000- 2 4.00000+ 6 1.06400- 11273 378102241 + 4.20000+ 6 1.21800- 1 4.30000+ 6 1.23900- 1 4.40000+ 6 1.19600- 11273 378102242 + 4.60000+ 6 1.03930- 1 4.80000+ 6 8.82930- 2 5.00000+ 6 7.28000- 21273 378102243 + 5.20000+ 6 5.77000- 2 5.40000+ 6 4.18000- 2 5.50000+ 6 3.78000- 21273 378102244 + 5.60000+ 6 3.71000- 2 5.80000+ 6 3.89000- 2 6.00000+ 6 3.98000- 21273 378102245 + 6.20000+ 6 3.97000- 2 6.40000+ 6 3.83000- 2 6.60000+ 6 3.61000- 21273 378102246 + 6.80000+ 6 3.31000- 2 7.00000+ 6 3.03000- 2 7.20000+ 6 2.77740- 21273 378102247 + 7.40000+ 6 2.56880- 2 7.60000+ 6 2.39920- 2 7.80000+ 6 2.25480- 21273 378102248 + 8.00000+ 6 2.13000- 2 8.20000+ 6 2.03880- 2 8.40000+ 6 1.96960- 21273 378102249 + 8.60000+ 6 1.90960- 2 8.80000+ 6 1.85540- 2 9.00000+ 6 1.81000- 21273 378102250 + 9.20000+ 6 1.78090- 2 9.40000+ 6 1.75860- 2 9.60000+ 6 1.73880- 21273 378102251 + 9.80000+ 6 1.71970- 2 1.00000+ 7 1.70500- 2 1.05000+ 7 1.70000- 21273 378102252 + 1.10000+ 7 1.70500- 2 1.15000+ 7 1.74000- 2 1.20000+ 7 1.80000- 21273 378102253 + 1.25000+ 7 1.89000- 2 1.30000+ 7 1.99000- 2 1.35000+ 7 2.11000- 21273 378102254 + 1.40000+ 7 2.26000- 2 1.45000+ 7 2.34500- 2 1.50000+ 7 2.34000- 21273 378102255 + 1.55000+ 7 2.25790- 2 1.60000+ 7 2.17370- 2 1.65000+ 7 2.08950- 21273 378102256 + 1.70000+ 7 2.00530- 2 1.75000+ 7 1.92110- 2 1.80000+ 7 1.83680- 21273 378102257 + 1.85000+ 7 1.75260- 2 1.90000+ 7 1.66840- 2 1.95000+ 7 1.58420- 21273 378102258 + 2.00000+ 7 1.50000- 2 1273 378102259 + 1273 300002260 + 1273 000002261 + 5.01000+ 3 9.92690+ 0 1 1 0 01273 400202262 + 0.00000+ 0 9.92690+ 0 0 2 361 181273 400202263 + 1.00000+ 0 6.71576- 2 2.03251- 3-1.06028-11 0.00000+ 0 0.00000+ 01273 400202264 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202265 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202266 + 0.00000+ 0 0.00000+ 0 9.93911- 1 1.20533- 1 6.95848- 3 1.95255- 41273 400202267 + 2.91977- 6-7.18388- 8 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202268 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202269 + 0.00000+ 0 0.00000+ 0 0.00000+ 0-6.65734- 2 9.84098- 1 1.71328- 11273 400202270 + 1.44462- 2 7.07855- 4 2.15805- 5 2.34735- 7 3.91679- 8-1.45942- 81273 400202271 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202272 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 6.03148- 3-1.18981- 11273 400202273 + 9.69083- 1 2.20398- 1 2.43895- 2 1.66113- 3 7.55461- 5 2.09789- 61273 400202274 + 1.00191- 7 4.14130- 9 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202275 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0-5.78487- 41273 400202276 + 1.36993- 2-1.68257- 1 9.49196- 1 2.67731- 1 3.66848- 2 3.17321- 31273 400202277 + 1.90100- 4 7.90032- 6 2.77361- 7-2.28171- 8 5.19163- 9 0.00000+ 01273 400202278 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202279 + 5.66474- 5-1.53347- 3 2.35839- 2-2.15334- 1 9.24609- 1 3.13107- 11273 400202280 + 5.12133- 2 5.35568- 3 3.96024- 4 2.12990- 5 9.01494- 7-1.24126- 81273 400202281 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202282 + 0.00000+ 0-5.60221- 6 1.68528- 4-3.02647- 3 3.56531- 2-2.60215- 11273 400202283 + 8.95516- 1 3.56246- 1 6.78358- 2 8.31196- 3 7.29404- 4 4.78009- 51273 400202284 + 2.47804- 6 8.25735- 8 1.56666- 8-9.45121- 9 0.00000+ 0 0.00000+ 01273 400202285 + 0.00000+ 0 0.00000+ 0 5.57080- 7-1.82835- 5 3.69575- 4-5.16853- 31273 400202286 + 4.97945- 2-3.02704- 1 8.62137- 1 3.96860- 1 8.63929- 2 1.21363- 21273 400202287 + 1.23091- 3 9.47491- 5 5.77960- 6 2.51901- 7 4.38367- 8 0.00000+ 01273 400202288 + 0.00000+ 0 0.00000+ 0 0.00000+ 0-5.55817- 8 1.96467- 6-4.36991- 51273 400202289 + 6.95133- 4-8.05751- 3 6.58608- 2-3.42551- 1 8.24728- 1 4.34664- 11273 400202290 + 1.06706- 1 1.69121- 2 1.94522- 3 1.71502- 4 1.20625- 5 6.50178- 71273 400202291 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 5.55779- 9-2.09561- 71273 400202292 + 5.05082- 6-8.90521- 5 1.18451- 3-1.17801- 2 8.36804- 2-3.79502- 11273 400202293 + 7.83570- 1 4.69392- 1 1.28576- 1 2.27111- 2 2.92048- 3 2.89820- 41273 400202294 + 2.30820- 5 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0-5.56586-101273 400202295 + 2.22220- 8-5.73952- 7 1.10237- 5-1.63542- 4 1.88059- 3-1.64112- 21273 400202296 + 1.03062- 1-4.13308- 1 7.38975- 1 5.00795- 1 1.51792- 1 2.95921- 21273 400202297 + 4.20745- 3 4.63775- 4 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202298 + 5.58007-11-2.34520- 9 6.43670- 8-1.33020- 6 2.15982- 5-2.78530- 41273 400202299 + 2.82917- 3-2.20132- 2 1.23796- 1-4.43745- 1 6.91277- 1 5.28653- 11273 400202300 + 1.76123- 1 3.76001- 2 5.85875- 3 0.00000+ 0 0.00000+ 0 0.00000+ 01273 400202301 + 0.00000+ 0-5.59888-12 2.46522-10-7.14282- 9 1.57363- 7-2.75915- 61273 400202302 + 3.91054- 5-4.47644- 4 4.07821- 3-2.86351- 2 1.45659- 1-4.70609- 11273 400202303 + 6.40833- 1 5.52772- 1 2.01329- 1 4.67657- 2 0.00000+ 0 0.00000+ 01273 400202304 + 0.00000+ 0 0.00000+ 0 5.62126-13-2.58274-11 7.85822-10-1.83235- 81273 400202305 + 3.43489- 7-5.27433- 6 6.66038- 5-6.86838- 4 5.67705- 3-3.63116- 21273 400202306 + 1.68416- 1-4.93725- 1 5.88020- 1 5.72987- 1 2.27159- 1 0.00000+ 01273 400202307 + 0.00000+ 0 0.00000+ 0 0.00000+ 0-5.64648-14 2.69816-12-8.58318-111273 400202308 + 2.10614- 9-4.18860- 8 6.89444- 7-9.46049- 6 1.07990- 4-1.01440- 31273 400202309 + 7.67554- 3-4.50631- 2 1.91822- 1-5.12949- 1 5.33228- 1 0.00000+ 01273 400202310 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 5.67402-15-2.81174-131273 400202311 + 9.31782-12-2.39482-10 5.02184- 9-8.78843- 8 1.29584- 6-1.61170- 51273 400202312 + 1.68105- 4-1.45090- 3 1.01232- 2-5.48944- 2 2.15623- 1-5.28167- 11273 400202313 + 4.76864- 1 1.30172- 2 4.04805- 4-4.40744- 5 0.00000+ 0-5.70348-161273 400202314 + 2.91551-14-1.00626-12 2.69825-11-5.93623-10 1.09738- 8-1.72378- 71273 400202315 + 2.30893- 6-2.63064- 5 2.52838- 4-2.01914- 3 1.30683- 2-6.57953- 21273 400202316 + 2.39562- 1-5.39299- 1 4.49884- 1 3.56576- 2 1.66174- 3 0.00000+ 01273 400202317 + 5.73457-17-3.03493-15 1.08007-13-3.01636-12 6.93338-11-1.34678- 91273 400202318 + 2.23849- 8-3.20020- 7 3.93477- 6-4.14067- 5 3.69220- 4-2.74395- 31273 400202319 + 1.65570- 2-7.77400- 2 2.63378- 1-5.48675- 1 4.20888- 1 5.69000- 21273 400202320 + 0.00000+ 0-5.76707-18 2.26324-16-1.15614-14 3.34703-13-8.01493-121273 400202321 + 1.62880-10-2.84878- 9 4.31614- 8-5.67396- 7 6.45602- 6-6.31678- 51273 400202322 + 5.25502- 4-3.65208- 3 2.06325- 2-9.06871- 2 2.87016- 1-5.55365- 11273 400202323 + 3.90392- 1 1273 400202324 + 0.00000+ 0 0.00000+ 0 0 0 1 751273 400202325 + 75 2 1273 400202326 + 0.00000+ 0 1.00000- 5 0 0 2 01273 400202327 + 0.00000+ 0 0.00000+ 0 1273 400202328 + 0.00000+ 0 1.00000+ 2 0 0 2 01273 400202329 + 0.00000+ 0 0.00000+ 0 1273 400202330 + 0.00000+ 0 1.50000+ 5 0 0 2 01273 400202331 +-9.74350- 3 4.32620- 5 1273 400202332 + 0.00000+ 0 2.75000+ 5 0 0 2 01273 400202333 +-1.30940- 3-7.66030- 5 1273 400202334 + 0.00000+ 0 3.75000+ 5 0 0 2 01273 400202335 + 2.07110- 2-2.30240- 4 1273 400202336 + 0.00000+ 0 4.75000+ 5 0 0 2 01273 400202337 + 5.06940- 2 7.87530- 4 1273 400202338 + 0.00000+ 0 5.50000+ 5 0 0 2 01273 400202339 + 5.35670- 2 2.56040- 3 1273 400202340 + 0.00000+ 0 7.50000+ 5 0 0 2 01273 400202341 + 4.05720- 2 5.51780- 3 1273 400202342 + 0.00000+ 0 1.00000+ 6 0 0 2 01273 400202343 + 4.61250- 2 8.59150- 3 1273 400202344 + 0.00000+ 0 1.20000+ 6 0 0 4 01273 400202345 + 6.20000- 2 1.60000- 2-1.00000- 3 0.00000+ 0 1273 400202346 + 0.00000+ 0 1.40000+ 6 0 0 4 01273 400202347 + 8.20000- 2 2.90000- 2-2.00000- 3 0.00000+ 0 1273 400202348 + 0.00000+ 0 1.50000+ 6 0 0 4 01273 400202349 + 9.70000- 2 4.20000- 2-3.00000- 3 1.00000- 3 1273 400202350 + 0.00000+ 0 1.60000+ 6 0 0 4 01273 400202351 + 1.25000- 1 6.20000- 2-4.00000- 3 5.50000- 3 1273 400202352 + 0.00000+ 0 1.70000+ 6 0 0 4 01273 400202353 + 1.65000- 1 8.60000- 2-5.00000- 3 1.05000- 2 1273 400202354 + 0.00000+ 0 1.75000+ 6 0 0 4 01273 400202355 + 1.92000- 1 1.02000- 1-6.00000- 3 1.30000- 2 1273 400202356 + 0.00000+ 0 1.80000+ 6 0 0 4 01273 400202357 + 2.10000- 1 1.18000- 1-7.00000- 3 1.50000- 2 1273 400202358 + 0.00000+ 0 1.85000+ 6 0 0 4 01273 400202359 + 2.10000- 1 1.35000- 1-8.00000- 3 1.70000- 2 1273 400202360 + 0.00000+ 0 1.90000+ 6 0 0 4 01273 400202361 + 1.95000- 1 1.51000- 1-9.00000- 3 1.85000- 2 1273 400202362 + 0.00000+ 0 1.95000+ 6 0 0 4 01273 400202363 + 1.78000- 1 1.55000- 1-1.00000- 2 1.95000- 2 1273 400202364 + 0.00000+ 0 2.00000+ 6 0 0 4 01273 400202365 + 1.59000- 1 1.48000- 1-1.10000- 2 2.00000- 2 1273 400202366 + 0.00000+ 0 2.10000+ 6 0 0 4 01273 400202367 + 1.34000- 1 1.29000- 1-1.30000- 2 1.80000- 2 1273 400202368 + 0.00000+ 0 2.20000+ 6 0 0 4 01273 400202369 + 1.15000- 1 1.30000- 1-1.40000- 2 1.45000- 2 1273 400202370 + 0.00000+ 0 2.30000+ 6 0 0 4 01273 400202371 + 1.03000- 1 1.57000- 1-1.30000- 2 1.10000- 2 1273 400202372 + 0.00000+ 0 2.40000+ 6 0 0 4 01273 400202373 + 9.60000- 2 1.96000- 1-1.10000- 2 1.10000- 2 1273 400202374 + 0.00000+ 0 2.50000+ 6 0 0 4 01273 400202375 + 9.50000- 2 2.43000- 1-5.00000- 3 1.55000- 2 1273 400202376 + 0.00000+ 0 2.60000+ 6 0 0 4 01273 400202377 + 1.02000- 1 2.86000- 1 1.10000- 2 1.95000- 2 1273 400202378 + 0.00000+ 0 2.70000+ 6 0 0 4 01273 400202379 + 1.13000- 1 3.11000- 1 2.80000- 2 1.85000- 2 1273 400202380 + 0.00000+ 0 2.80000+ 6 0 0 4 01273 400202381 + 1.29000- 1 3.22000- 1 5.20000- 2 1.58000- 2 1273 400202382 + 0.00000+ 0 2.90000+ 6 0 0 4 01273 400202383 + 1.50000- 1 3.24000- 1 6.30000- 2 1.36000- 2 1273 400202384 + 0.00000+ 0 3.00000+ 6 0 0 4 01273 400202385 + 1.69000- 1 3.22000- 1 7.20000- 2 1.12000- 2 1273 400202386 + 0.00000+ 0 3.10000+ 6 0 0 4 01273 400202387 + 1.85000- 1 3.21000- 1 7.37000- 2 9.37000- 3 1273 400202388 + 0.00000+ 0 3.20000+ 6 0 0 4 01273 400202389 + 2.04000- 1 3.19000- 1 7.24000- 2 8.10000- 3 1273 400202390 + 0.00000+ 0 3.40000+ 6 0 0 4 01273 400202391 + 2.30000- 1 3.15000- 1 7.00000- 2 6.80000- 3 1273 400202392 + 0.00000+ 0 3.60000+ 6 0 0 4 01273 400202393 + 2.56000- 1 3.05000- 1 6.90000- 2 7.50000- 3 1273 400202394 + 0.00000+ 0 3.80000+ 6 0 0 4 01273 400202395 + 2.79000- 1 2.92000- 1 7.10000- 2 1.00000- 2 1273 400202396 + 0.00000+ 0 3.90000+ 6 0 0 4 01273 400202397 + 2.91000- 1 2.85000- 1 7.40000- 2 1.30000- 2 1273 400202398 + 0.00000+ 0 4.00000+ 6 0 0 4 01273 400202399 + 3.02000- 1 2.80000- 1 7.90000- 2 1.60000- 2 1273 400202400 + 0.00000+ 0 4.20000+ 6 0 0 4 01273 400202401 + 3.22000- 1 2.70000- 1 9.80000- 2 2.50000- 2 1273 400202402 + 0.00000+ 0 4.30000+ 6 0 0 4 01273 400202403 + 3.30000- 1 2.66000- 1 1.12000- 1 3.00000- 2 1273 400202404 + 0.00000+ 0 4.60000+ 6 0 0 4 01273 400202405 + 3.55000- 1 2.56000- 1 1.42000- 1 4.55000- 2 1273 400202406 + 0.00000+ 0 4.80000+ 6 0 0 4 01273 400202407 + 3.72000- 1 2.54000- 1 1.58000- 1 5.40000- 2 1273 400202408 + 0.00000+ 0 5.00000+ 6 0 0 4 01273 400202409 + 3.84000- 1 2.55000- 1 1.71000- 1 5.98000- 2 1273 400202410 + 0.00000+ 0 5.10000+ 6 0 0 4 01273 400202411 + 3.89000- 1 2.56000- 1 1.76000- 1 6.20000- 2 1273 400202412 + 0.00000+ 0 5.30000+ 6 0 0 4 01273 400202413 + 3.99000- 1 2.65000- 1 1.85000- 1 6.68000- 2 1273 400202414 + 0.00000+ 0 5.40000+ 6 0 0 4 01273 400202415 + 4.04000- 1 2.72000- 1 1.89000- 1 6.85000- 2 1273 400202416 + 0.00000+ 0 5.50000+ 6 0 0 4 01273 400202417 + 4.08000- 1 2.76000- 1 1.92800- 1 7.05000- 2 1273 400202418 + 0.00000+ 0 6.00000+ 6 0 0 4 01273 400202419 + 4.27000- 1 3.05000- 1 2.08000- 1 7.78000- 2 1273 400202420 + 0.00000+ 0 6.25000+ 6 0 0 4 01273 400202421 + 4.35000- 1 3.17000- 1 2.15000- 1 8.02000- 2 1273 400202422 + 0.00000+ 0 6.50000+ 6 0 0 4 01273 400202423 + 4.43000- 1 3.28000- 1 2.20000- 1 8.30000- 2 1273 400202424 + 0.00000+ 0 6.75000+ 6 0 0 4 01273 400202425 + 4.50000- 1 3.40000- 1 2.26000- 1 8.58000- 2 1273 400202426 + 0.00000+ 0 7.25000+ 6 0 0 4 01273 400202427 + 4.60000- 1 3.59000- 1 2.34000- 1 9.03000- 2 1273 400202428 + 0.00000+ 0 7.60000+ 6 0 0 4 01273 400202429 + 4.67000- 1 3.68000- 1 2.38500- 1 9.37000- 2 1273 400202430 + 0.00000+ 0 7.75000+ 6 0 0 6 01273 400202431 + 4.70000- 1 3.72000- 1 2.40500- 1 9.48000- 2 1.20000- 3 4.00000- 41273 400202432 + 0.00000+ 0 8.00000+ 6 0 0 6 01273 400202433 + 4.75000- 1 3.75000- 1 2.43000- 1 9.70000- 2 3.00000- 3 1.10000- 31273 400202434 + 0.00000+ 0 8.25000+ 6 0 0 6 01273 400202435 + 4.80000- 1 3.76000- 1 2.45500- 1 9.94000- 2 4.65000- 3 1.80000- 31273 400202436 + 0.00000+ 0 8.75000+ 6 0 0 6 01273 400202437 + 4.86000- 1 3.74000- 1 2.49500- 1 1.04000- 1 8.20000- 3 3.30000- 31273 400202438 + 0.00000+ 0 9.25000+ 6 0 0 6 01273 400202439 + 4.96000- 1 3.69000- 1 2.52800- 1 1.09000- 1 1.20000- 2 4.70000- 31273 400202440 + 0.00000+ 0 9.50000+ 6 0 0 6 01273 400202441 + 5.02000- 1 3.66000- 1 2.54000- 1 1.11800- 1 1.40000- 2 5.40000- 31273 400202442 + 0.00000+ 0 9.75000+ 6 0 0 6 01273 400202443 + 5.07000- 1 3.65000- 1 2.56500- 1 1.14000- 1 1.60000- 2 6.10000- 31273 400202444 + 0.00000+ 0 1.07500+ 7 0 0 8 01273 400202445 + 5.41000- 1 3.76000- 1 2.68500- 1 1.26800- 1 2.40000- 2 9.00000- 31273 400202446 + 7.50000- 4 0.00000+ 0 1273 400202447 + 0.00000+ 0 1.10000+ 7 0 0 8 01273 400202448 + 5.50000- 1 3.83000- 1 2.73000- 1 1.30000- 1 2.60000- 2 9.65000- 31273 400202449 + 9.50000- 4 0.00000+ 0 1273 400202450 + 0.00000+ 0 1.15000+ 7 0 0 8 01273 400202451 + 5.68000- 1 3.95000- 1 2.81800- 1 1.37000- 1 3.08000- 2 1.12000- 21273 400202452 + 1.40000- 3 0.00000+ 0 1273 400202453 + 0.00000+ 0 1.20000+ 7 0 0 8 01273 400202454 + 5.86000- 1 4.10000- 1 2.89800- 1 1.42800- 1 3.49000- 2 1.25000- 21273 400202455 + 1.90000- 3 0.00000+ 0 1273 400202456 + 0.00000+ 0 1.25000+ 7 0 0 8 01273 400202457 + 6.03000- 1 4.24000- 1 2.98000- 1 1.49800- 1 3.99000- 2 1.40000- 21273 400202458 + 2.45000- 3 0.00000+ 0 1273 400202459 + 0.00000+ 0 1.30000+ 7 0 0 8 01273 400202460 + 6.20000- 1 4.36000- 1 3.05000- 1 1.56000- 1 4.50000- 2 1.55000- 21273 400202461 + 3.00000- 3 0.00000+ 0 1273 400202462 + 0.00000+ 0 1.35000+ 7 0 0 8 01273 400202463 + 6.35000- 1 4.48000- 1 3.11000- 1 1.61800- 1 5.03000- 2 1.72000- 21273 400202464 + 3.58000- 3 0.00000+ 0 1273 400202465 + 0.00000+ 0 1.40000+ 7 0 0 8 01273 400202466 + 6.49000- 1 4.58000- 1 3.16300- 1 1.68000- 1 5.54000- 2 1.88000- 21273 400202467 + 4.10000- 3 0.00000+ 0 1273 400202468 + 0.00000+ 0 1.45000+ 7 0 0 8 01273 400202469 + 6.61000- 1 4.66000- 1 3.22000- 1 1.73500- 1 6.05000- 2 2.05000- 21273 400202470 + 4.65000- 3 8.00000- 5 1273 400202471 + 0.00000+ 0 1.50000+ 7 0 0 10 01273 400202472 + 6.72000- 1 4.74000- 1 3.27500- 1 1.79800- 1 6.58000- 2 2.23000- 21273 400202473 + 5.20000- 3 1.80000- 4 9.00000- 5 2.30000- 5 1273 400202474 + 0.00000+ 0 1.55000+ 7 0 0 10 01273 400202475 + 6.84000- 1 4.80000- 1 3.32500- 1 1.85500- 1 7.09000- 2 2.42000- 21273 400202476 + 5.80000- 3 3.00000- 4 1.70000- 4 4.70000- 5 1273 400202477 + 0.00000+ 0 1.60000+ 7 0 0 10 01273 400202478 + 6.94000- 1 4.88000- 1 3.38000- 1 1.92000- 1 7.60000- 2 2.61000- 21273 400202479 + 6.40000- 3 4.70000- 4 2.50000- 4 7.00000- 5 1273 400202480 + 0.00000+ 0 1.70000+ 7 0 0 10 01273 400202481 + 7.15000- 1 5.04000- 1 3.48500- 1 2.03000- 1 8.64000- 2 3.00000- 21273 400202482 + 7.84000- 3 8.70000- 4 4.20000- 4 1.19000- 4 1273 400202483 + 0.00000+ 0 1.80000+ 7 0 0 10 01273 400202484 + 7.35000- 1 5.18000- 1 3.59500- 1 2.15000- 1 9.68000- 2 3.45000- 21273 400202485 + 9.28000- 3 1.35000- 3 5.90000- 4 1.66000- 4 1273 400202486 + 0.00000+ 0 1.90000+ 7 0 0 10 01273 400202487 + 7.51000- 1 5.34000- 1 3.70000- 1 2.27000- 1 1.07000- 1 3.90000- 21273 400202488 + 1.09000- 2 1.90000- 3 7.60000- 4 2.14000- 4 1273 400202489 + 0.00000+ 0 2.00000+ 7 0 0 10 01273 400202490 + 7.65000- 1 5.49000- 1 3.80800- 1 2.38800- 1 1.17300- 1 4.42000- 21273 400202491 + 1.28000- 2 2.52000- 3 9.25000- 4 2.62000- 4 1273 400202492 + 1273 400002493 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 405102494 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 405102495 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 405102496 + 2 2 1273 405102497 + 0.00000+ 0 7.89000+ 5 0 0 2 01273 405102498 + 0.00000+ 0 0.00000+ 0 1273 405102499 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 405102500 + 0.00000+ 0 0.00000+ 0 1273 405102501 + 1273 400002502 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 405202503 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 405202504 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 405202505 + 2 2 1273 405202506 + 0.00000+ 0 1.91500+ 6 0 0 2 01273 405202507 + 0.00000+ 0 0.00000+ 0 1273 405202508 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 405202509 + 0.00000+ 0 0.00000+ 0 1273 405202510 + 1273 400002511 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 405302512 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 405302513 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 405302514 + 2 2 1273 405302515 + 0.00000+ 0 2.37100+ 6 0 0 2 01273 405302516 + 0.00000+ 0 0.00000+ 0 1273 405302517 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 405302518 + 0.00000+ 0 0.00000+ 0 1273 405302519 + 1273 400002520 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 405402521 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 405402522 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 405402523 + 2 2 1273 405402524 + 0.00000+ 0 3.94600+ 6 0 0 2 01273 405402525 + 0.00000+ 0 0.00000+ 0 1273 405402526 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 405402527 + 0.00000+ 0 0.00000+ 0 1273 405402528 + 1273 400002529 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 405502530 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 405502531 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 405502532 + 2 2 1273 405502533 + 0.00000+ 0 5.25500+ 6 0 0 2 01273 405502534 + 0.00000+ 0 0.00000+ 0 1273 405502535 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 405502536 + 0.00000+ 0 0.00000+ 0 1273 405502537 + 1273 400002538 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 405602539 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 405602540 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 405602541 + 2 2 1273 405602542 + 0.00000+ 0 5.62900+ 6 0 0 2 01273 405602543 + 0.00000+ 0 0.00000+ 0 1273 405602544 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 405602545 + 0.00000+ 0 0.00000+ 0 1273 405602546 + 1273 400002547 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 405702548 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 405702549 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 405702550 + 2 2 1273 405702551 + 0.00000+ 0 5.68600+ 6 0 0 2 01273 405702552 + 0.00000+ 0 0.00000+ 0 1273 405702553 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 405702554 + 0.00000+ 0 0.00000+ 0 1273 405702555 + 1273 400002556 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 405802557 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 405802558 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 405802559 + 2 2 1273 405802560 + 0.00000+ 0 5.70500+ 6 0 0 2 01273 405802561 + 0.00000+ 0 0.00000+ 0 1273 405802562 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 405802563 + 0.00000+ 0 0.00000+ 0 1273 405802564 + 1273 400002565 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 405902566 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 405902567 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 405902568 + 2 2 1273 405902569 + 0.00000+ 0 6.52000+ 6 0 0 2 01273 405902570 + 0.00000+ 0 0.00000+ 0 1273 405902571 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 405902572 + 0.00000+ 0 0.00000+ 0 1273 405902573 + 1273 400002574 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 406002575 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 406002576 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 406002577 + 2 2 1273 406002578 + 0.00000+ 0 6.63600+ 6 0 0 2 01273 406002579 + 0.00000+ 0 0.00000+ 0 1273 406002580 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 406002581 + 0.00000+ 0 0.00000+ 0 1273 406002582 + 1273 400002583 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 406102584 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 406102585 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 406102586 + 2 2 1273 406102587 + 0.00000+ 0 6.75100+ 6 0 0 2 01273 406102588 + 0.00000+ 0 0.00000+ 0 1273 406102589 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 406102590 + 0.00000+ 0 0.00000+ 0 1273 406102591 + 1273 400002592 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 406202593 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 406202594 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 406202595 + 2 2 1273 406202596 + 0.00000+ 0 7.15500+ 6 0 0 2 01273 406202597 + 0.00000+ 0 0.00000+ 0 1273 406202598 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 406202599 + 0.00000+ 0 0.00000+ 0 1273 406202600 + 1273 400002601 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 406302602 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 406302603 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 406302604 + 2 2 1273 406302605 + 0.00000+ 0 7.70500+ 6 0 0 2 01273 406302606 + 0.00000+ 0 0.00000+ 0 1273 406302607 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 406302608 + 0.00000+ 0 0.00000+ 0 1273 406302609 + 1273 400002610 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 406402611 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 406402612 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 406402613 + 2 2 1273 406402614 + 0.00000+ 0 8.25600+ 6 0 0 2 01273 406402615 + 0.00000+ 0 0.00000+ 0 1273 406402616 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 406402617 + 0.00000+ 0 0.00000+ 0 1273 406402618 + 1273 400002619 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 406502620 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 406502621 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 406502622 + 2 2 1273 406502623 + 0.00000+ 0 8.80600+ 6 0 0 2 01273 406502624 + 0.00000+ 0 0.00000+ 0 1273 406502625 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 406502626 + 0.00000+ 0 0.00000+ 0 1273 406502627 + 1273 400002628 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 406602629 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 406602630 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 406602631 + 2 2 1273 406602632 + 0.00000+ 0 9.35600+ 6 0 0 2 01273 406602633 + 0.00000+ 0 0.00000+ 0 1273 406602634 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 406602635 + 0.00000+ 0 0.00000+ 0 1273 406602636 + 1273 400002637 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 406702638 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 406702639 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 406702640 + 2 2 1273 406702641 + 0.00000+ 0 9.90700+ 6 0 0 2 01273 406702642 + 0.00000+ 0 0.00000+ 0 1273 406702643 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 406702644 + 0.00000+ 0 0.00000+ 0 1273 406702645 + 1273 400002646 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 406802647 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 406802648 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 406802649 + 2 2 1273 406802650 + 0.00000+ 0 1.04570+ 7 0 0 2 01273 406802651 + 0.00000+ 0 0.00000+ 0 1273 406802652 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 406802653 + 0.00000+ 0 0.00000+ 0 1273 406802654 + 1273 400002655 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 406902656 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 406902657 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 406902658 + 2 2 1273 406902659 + 0.00000+ 0 1.10070+ 7 0 0 2 01273 406902660 + 0.00000+ 0 0.00000+ 0 1273 406902661 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 406902662 + 0.00000+ 0 0.00000+ 0 1273 406902663 + 1273 400002664 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 407002665 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 407002666 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 407002667 + 2 2 1273 407002668 + 0.00000+ 0 1.15580+ 7 0 0 2 01273 407002669 + 0.00000+ 0 0.00000+ 0 1273 407002670 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 407002671 + 0.00000+ 0 0.00000+ 0 1273 407002672 + 1273 400002673 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 407102674 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 407102675 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 407102676 + 2 2 1273 407102677 + 0.00000+ 0 1.21080+ 7 0 0 2 01273 407102678 + 0.00000+ 0 0.00000+ 0 1273 407102679 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 407102680 + 0.00000+ 0 0.00000+ 0 1273 407102681 + 1273 400002682 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 407202683 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 407202684 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 407202685 + 2 2 1273 407202686 + 0.00000+ 0 1.26580+ 7 0 0 2 01273 407202687 + 0.00000+ 0 0.00000+ 0 1273 407202688 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 407202689 + 0.00000+ 0 0.00000+ 0 1273 407202690 + 1273 400002691 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 407302692 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 407302693 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 407302694 + 2 2 1273 407302695 + 0.00000+ 0 1.32090+ 7 0 0 2 01273 407302696 + 0.00000+ 0 0.00000+ 0 1273 407302697 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 407302698 + 0.00000+ 0 0.00000+ 0 1273 407302699 + 1273 400002700 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 407402701 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 407402702 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 407402703 + 2 2 1273 407402704 + 0.00000+ 0 1.37590+ 7 0 0 2 01273 407402705 + 0.00000+ 0 0.00000+ 0 1273 407402706 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 407402707 + 0.00000+ 0 0.00000+ 0 1273 407402708 + 1273 400002709 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 407502710 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 407502711 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 407502712 + 2 2 1273 407502713 + 0.00000+ 0 1.43100+ 7 0 0 2 01273 407502714 + 0.00000+ 0 0.00000+ 0 1273 407502715 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 407502716 + 0.00000+ 0 0.00000+ 0 1273 407502717 + 1273 400002718 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 407602719 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 407602720 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 407602721 + 2 2 1273 407602722 + 0.00000+ 0 1.48600+ 7 0 0 2 01273 407602723 + 0.00000+ 0 0.00000+ 0 1273 407602724 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 407602725 + 0.00000+ 0 0.00000+ 0 1273 407602726 + 1273 400002727 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 407702728 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 407702729 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 407702730 + 2 2 1273 407702731 + 0.00000+ 0 1.54100+ 7 0 0 2 01273 407702732 + 0.00000+ 0 0.00000+ 0 1273 407702733 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 407702734 + 0.00000+ 0 0.00000+ 0 1273 407702735 + 1273 400002736 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 407802737 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 407802738 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 407802739 + 2 2 1273 407802740 + 0.00000+ 0 1.59610+ 7 0 0 2 01273 407802741 + 0.00000+ 0 0.00000+ 0 1273 407802742 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 407802743 + 0.00000+ 0 0.00000+ 0 1273 407802744 + 1273 400002745 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 407902746 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 407902747 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 407902748 + 2 2 1273 407902749 + 0.00000+ 0 1.65110+ 7 0 0 2 01273 407902750 + 0.00000+ 0 0.00000+ 0 1273 407902751 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 407902752 + 0.00000+ 0 0.00000+ 0 1273 407902753 + 1273 400002754 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 408002755 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 408002756 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 408002757 + 2 2 1273 408002758 + 0.00000+ 0 1.70610+ 7 0 0 2 01273 408002759 + 0.00000+ 0 0.00000+ 0 1273 408002760 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 408002761 + 0.00000+ 0 0.00000+ 0 1273 408002762 + 1273 400002763 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 408102764 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 408102765 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 408102766 + 2 2 1273 408102767 + 0.00000+ 0 1.76120+ 7 0 0 2 01273 408102768 + 0.00000+ 0 0.00000+ 0 1273 408102769 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 408102770 + 0.00000+ 0 0.00000+ 0 1273 408102771 + 1273 400002772 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 408202773 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 408202774 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 408202775 + 2 2 1273 408202776 + 0.00000+ 0 1.81620+ 7 0 0 2 01273 408202777 + 0.00000+ 0 0.00000+ 0 1273 408202778 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 408202779 + 0.00000+ 0 0.00000+ 0 1273 408202780 + 1273 400002781 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 408302782 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 408302783 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 408302784 + 2 2 1273 408302785 + 0.00000+ 0 1.87130+ 7 0 0 2 01273 408302786 + 0.00000+ 0 0.00000+ 0 1273 408302787 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 408302788 + 0.00000+ 0 0.00000+ 0 1273 408302789 + 1273 400002790 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 408402791 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 408402792 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 408402793 + 2 2 1273 408402794 + 0.00000+ 0 1.92630+ 7 0 0 2 01273 408402795 + 0.00000+ 0 0.00000+ 0 1273 408402796 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 408402797 + 0.00000+ 0 0.00000+ 0 1273 408402798 + 1273 400002799 + 5.01000+ 3 9.92690+ 0 0 1 0 01273 408502800 + 0.00000+ 0 9.92690+ 0 0 2 0 01273 408502801 + 0.00000+ 0 0.00000+ 0 0 0 1 21273 408502802 + 2 2 1273 408502803 + 0.00000+ 0 1.98130+ 7 0 0 2 01273 408502804 + 0.00000+ 0 0.00000+ 0 1273 408502805 + 0.00000+ 0 2.00000+ 7 0 0 2 01273 408502806 + 0.00000+ 0 0.00000+ 0 1273 408502807 + 1273 400002808 + 1273 000002809 + 0 000002023 + 6.01200+ 3 1.18969+ 1 0 0 0 291274 145100001 + 0.00000+ 0 0.00000+ 0 0 0 143 01274 145100002 + 6- C- 12 ORNL EVAL-DEC73 F.G.PEREY AND C.Y.FU 1274 145100003 + DIST-JUN74 REV-JUN75 * 1274 145100004 + DATA POINTS AT 15.0 MEV WERE EXTENDED LINEARLY TO 20.0 MEV TO 1274 145100005 + SATISFY FORMAL REQUIREMENT FOR ENDF/B IV NO PRETENCE AT AN EVAL. 1274 145100006 + ABOVE 15 MEV . 1274 145100007 + * * * 1274 145100008 + EXECPT AS NOTED HERE THIS IS AN EXTENSIVE REVISION OF MAT-1165 1274 145100009 + NO CHANGES MADE BELOW 2.0 MEV.TOTAL CROSS SECTION IS THE CSEWG 1274 145100010 + NORM. AND STAND. SUBCOM. RECOMMENDATION (N.C.FRANCIS ET AL CONF. 1274 145100011 + ON NEUT. STAND. AND FLUX NORM. ANL OCT 1970,PAGE 166).CAPTURE IS 1274 145100012 + 1/V WITH THERMAL VALUE OF 3.36 MB. ABOVE 2.0 MEV ONLY REMNANT OF 1274 145100013 + MAT 1165 IS MT-91 THE COMBINATION OF (N,NPRIME) AND (N,NPRIME3AL-1274 145100014 + PHA). 1274 145100015 + * * * 1274 145100016 + MF-3 *** NEUTRON X-SECTIONS *** 1274 145100017 + * * * 1274 145100018 + MT-1 TOTAL CROSS SECTION. REVISED ABOVE 2.0 MEV ON BASIS 1274 145100019 + R.B.SCHWARTZ,H.T.HEATON II AND R.A.SCHRACK.NBS.BULL.AM.PHYS.SOC 1274 145100020 + 15,567(1967) 1274 145100021 + S.CIERJACHS ET AL EURFNR-591(1968), AND PRIV. COMM. (1969) 1274 145100022 + F.G.PEREY,T.A.LOVE AND W.E.KINNEY ORNL-4823(1972) 1274 145100023 + MT-2 ELASTIC CROSS SECTION. ENTIRELY DERIVED ON BASIS OF 1274 145100024 + OTHER EVALUATED CROSS SECTIONSS EXCEPT AT 14.5 MEV. EXTENSIVE 1274 145100025 + DATA SETS WHICH OFTEN HAVE 4.43 MEV INELASTIC SCATTERING WERE 1274 145100026 + USED ONLY FOR ANGULAR DISTRIBUTIONS SHAPES. ALL ELASTIC AND INE- 1274 145100027 + LASTIC DATA SOUCES ARE GIVEN BELOW. 1274 145100028 + A.B.SMITH ANL PRIVATE COMM. (MARCH 1972) 1274 145100029 + F.G.PEREY AND W.E.KINNEY PRIV. COMM. (1972) 1274 145100030 + D.W.GLASGOW ET AL. AEROSPACE RESEARCH LAB. PRIV. COMM. (1972) 1274 145100031 + J.E.BRALEY AND C.W.COOK,PHYS.REV. 118,808(1960) 1274 145100032 + D.LISTER AND SAYRES,PHYS.REV. 143,745(1966) 1274 145100033 + F.G.PEREY AND W.E.KINNEY ORNL-4441(1969) 1274 145100034 + M.WALT AND J.R.BEYSTER,PHYS.REV.98,677(1955) 1274 145100035 + J.R.BEYSTER,M.WALT AND E.W.SALMI,PHYS.REV. 104,1319(1956) 1274 145100036 + E.HADAD AND D.D.PHILLIPS,BULL.AM.PHYS.SOC. 4,358(1959) 1274 145100037 + J.E.WILLS ET AL ,PHYS.REV. 109,891(1958) 1274 145100038 + N.A.BOSTROM ET AL. TEXAS NUCL. CORP (1959) 1274 145100039 + J.T.LINDOW ET AL,BULL.AM.PHYS.SOC, 15,86(1970) 1274 145100040 + W.GALATI ET AL ,PHYS.REV. C5,1508(1972) 1274 145100041 + R.W.WILENZICK ET AL,NUCL.PHYS. 62,511(1965) 1274 145100042 + G.V.GORLOV ET AL DOKLADY AKAD. NAUK. 158,574(1964) 1274 145100043 + G.HAOUAT AND COCU CEN B-III KIEV CONF.(1973) AND PRIV. COMM.(19731274 145100044 + **BELOW 4 MEV NUMEROUS PRE 1965 DATA SETS USED IN PUBLISHED RMAT1274 145100045 + RIX ANALYSISES WERE ALSO USED (SEE BNL-325) 1274 145100046 + **AROUND 14.5 MEV 12 DATA SOURCES 1274 145100047 + MT-3 NON-ELASTIC CROSS SECTION. COMPLITELY DERIVED X-SEC1274 145100048 + MT-4 INELASTIC X-SECTION. COMPLETELY DERIVED X-SECTION 1274 145100049 + MT-51 INELASTIC SCATTERING X-SECTION TO 4.43 MEV LEVEL 1274 145100050 + SEE ABOVE DATA SOURCES FOR MT-2. FROM 5.2 TO 8.7 MEV BASED MOSTLY1274 145100051 + ON UNPUBLISHED DATA FROM ORNL BY F.G.PEREY AND W.E.KINNEY .FROM 1274 145100052 + 9 TO 12 MEV BASED MOSTLY ON 3 DATA POINTS BY G.HAOUAT AND F.COCU 1274 145100053 + CEN B-III (1973). ABOUT 14 MEV BASED ON 7 DATA SETS.THIS EVALLUA.1274 145100054 + TION OF MT-51 DIFFERS FROM MAT 1165 OFTEN BY MORE THAN 25 PERCENT1274 145100055 + IN GENERAL IT IS NOW LOWER BELOW 10 MEV AND HIGHER ABOVE.IT IS 1274 145100056 + CLOSELY THE SAME AROUND 14.5 MEV. 1274 145100057 + MT-91 CONTINUUM INELASTIC X-SECTION.SURPRISINGLY UNCHANG-1274 145100058 + ED FROM MAT 1165. THE DECISION TAKEN FOR ENDF/B III TO LUMP TOGE-1274 145100059 + THER (N,NPRIME) TO HIGHER LEVELS WITH (N,NPRIME3ALPHAS) HAS BEEN 1274 145100060 + RETAINED.PRELIMINARY RESULTS FROM PHASE II DATA TESTING (ED OBLOW1274 145100061 + ,ORNL PRIV. COMM. 1973) INDICATE SATISFACTORY RESULTS FROM 10 TO 1274 145100062 + 15 MEV FOR NEUTRON CONTINUUM. 1274 145100063 + MT-102 RADIATIVE CAPTURE X-SECTION. 1/V CURVE BASED ON 1274 145100064 + 3.36MB AT THERMAL SAME AS IN MAT-1165 1274 145100065 + MT-107 N,ALPHA X-SECTION. VERY CONSIDERABLE CHANGES OVER 1274 145100066 + MAT-1165.IT IS NOW A FACTOR OF 2 BIGGER BELOW 10.5 MEV AND A 1274 145100067 + FACTOR OF 2 SMALLER ABOVE.POST 1965 DATA ON INVERSE REACTION 1274 145100068 + INDICATE A FACTOR OF 2 DISCREPANCY IN DATA OF 1274 145100069 + E.A.DAVIS ET AL,NUCL.PHYS. 48,169(1963) 1274 145100070 + ALL DATA SETS ON INVERSE REACTION ARE CONSISTENT AND AGREE WITH 1274 145100071 + FORWARD REACTION AT 14.5 MEV . DATA SETS USED TO EVALUATE MT-107 1274 145100072 + V.V.VERBINSKY ET AL ,PHYS.REV. 170,916(1968) 1274 145100073 + T.RETZ ET AL ,BULL.AM.PHYS.SOC 5,110(1960) 1274 145100074 + E.R.GRAVES AND R.W.DAVIS ,PHYS.REV. 97,1205(1955) 1274 145100075 + A.W.OBST ET AL, PHYS.REV. C5,738(1972) 1274 145100076 + L.VAN DER ZWAN AND K.W.GEIGER,NUCL.PHYS. A152,481(1970) 1274 145100077 + * * * 1274 145100078 + MF-4 *** NEUTRON ANG. DISTRIBUTIONS *** 1274 145100079 + * * * 1274 145100080 + MT-2 ELASTIC SCATTERING. FROM 2 TO 5 MEV SMALL BUT SIGN-1274 145100081 + IFICANT CHANGES OVER MAT 1165.FROM 3 TO 5 MEV MOST WEIGHT WAS 1274 145100082 + GIVEN TO DATA OF W.GALATI ET AL PHYS.REV. C5,1508(1972) TO MODIFY1274 145100083 + RESULTS OF OUR OWN R-MATRIX ANALYSIS (SIMILAR TO MANY PREVIOUSLY 1274 145100084 + DONE ANALYSIS) .ABOVE 5 MEV VERY CONSIDERABLE CHANGES FROM MAT 1274 145100085 + 1165 EXCEPT AROUND 14.5 MEV. MOST WEIGHT WAS GIVEN TO THE DATA OF1274 145100086 + F.G.PEREY AND W.E.KINNEY ORNL PRIV. COMM. (1972) 40 ANG.DISTRIB. 1274 145100087 + AT 18 ANGLES FOR BOTH ELASTIC AND INELASTIC SCATTERING FROM 5.2 1274 145100088 + TO 8.7 MEV THIS DATA REVEALS GREAT RESONNANCE STRUCTURE CONSISTE-1274 145100089 + NT WITH OTHER DATA IN THIS ENERGY REGION.FROM 9 TO 12 MEV DATA OF1274 145100090 + G.HAOUAT AND F.COCU SHOWS BROAD RESOMMANCE. DUE TO CONSIDERABLE 1274 145100091 + RESONNANCE STRUCTURE THE FILE IS LARGE AND WAS CAREFULLY THINNED 1274 145100092 + MT-51 INELASTIC SCATTERING TO 4.43 MEV LEVEL. VERY CONS-1274 145100093 + IDERABLE CHANGES OVER MAT 1165 EXCEPT AROUND 14.5 MEV. SAME GENE-1274 145100094 + RAL REMARKS ON DATA SOURCES AND STRUCTURE IN FILE AS FOR MT-2 1274 145100095 + * * * 1274 145100096 + MF-5 *** NEUTRON ENERGY DISTRIBUTIONS *** 1274 145100097 + * * * 1274 145100098 + MT-91 CONTINUUM. MAT 1165 TEMPERATURES HAVE BEEN RETAINED1274 145100099 + * * * 1274 145100100 + MF-12 *** GAMMA RAY MULTIPLICITIES *** 1274 145100101 + * * * 1274 145100102 + MT-102 CAPTURE GAMMA RAYS. BASED ON WELL KNOWN DATA FROM1274 145100103 + F.AJZEMBERG-SELOVE ,NUCL.PHYS. A152,1(1970) 1274 145100104 + * * * 1274 145100105 + MF-13 *** GAMMA RAY X-SECTIONS *** 1274 145100106 + * * * 1274 145100107 + MT-51 4.43 MEV GAM. RAY FROM FIRST LEVEL. SEE MF-3, MT-51 1274 145100108 + * * * 1274 145100109 + MF-14 *** ANGULAR DISTRIBUTIONS FOR GAM. RAYS *** 1274 145100110 + * * * 1274 145100111 + MT-51 4.43 MEV GAMMA RAY FROM FIRST LEVEL.A2 AND A4 COEF1274 145100112 + OF E2 TRANSITION WERE BASED ON THE INTEGRATED X-SECTION (MF-3,MT 1274 145100113 + 51)AND EVALUATED GAMMA RAY PRODUCTION AT 55 AND 90 DEGREES. DATA 1274 145100114 + BASE USED TO EVALUATE THE 55 AND 90 DEGREES X-SECTIONS 1274 145100115 + D.M.DRAKE ET AL ,NUCL SCI. AND ENG. 40,294(1969) 1274 145100116 + H.E.HALL AND T.W.BONNER, NUCL.PHYS. 14,295(1959) 1274 145100117 + J.T.PRUDHOMME ET AL, AFSWC-TR-30(1960) 1274 145100118 + D.O.NELLIS ET AL,I.L.MORGAN ET AL, TEXAS NUCL. CORP. (1962,1964) 1274 145100119 + J.D.ANDERSON ET AL, PHYS.REV., 111,572(1958) 1274 145100120 + T.KOZLOWSKI ET AL INR/661/IA/PL(1965) 1274 145100121 + F.C.ENGESSER,W.E.THOMPSON,J.M.FERGUSON USNRDL-TR-791(1964) 1274 145100122 + G.L.MORGAN ET AL, ORNL-TM-3702(1972) 1274 145100123 + MOST RELIANCE WAS PLACED ON DATA OF G.L. MORGAN ET AL. GREAT 1274 145100124 + RESONNANCE STRUCTURE WITH RAPIDLY CHANGING ANG. DISTRIB. SMALL 1274 145100125 + AND LARGE ANGLE DATA PROBABLY NOT VERRY ACCURATE DUE TO METHOD 1274 145100126 + USED IN EVALUATING. ASSUMING ISOTROPY FOR GAMMA RAY WILL RESULT 1274 145100127 + VERRY OFTEN IN A FACTOR OF 2 ERROR AND EVEN UP TO 3. THE LARGE 1274 145100128 + FILE HAS ALREADY BEEN CAREFULLY THINNED. 1274 145100129 + * * * 1274 145100130 + MF-33 *******COVARIANCE FILES FOR MF-3 ************* 1274 145100131 + THE FIRST SUBSECTION OF MT-1 IS ONLY THERE TO PROVIDE 1274 145100132 + PROCESSING CODES WITH THE UNION OF ALL ENERGY EDGES IN FILE MF-331274 145100133 + **************************************** 1274 145100134 + ALL COVARIANCE MATRICES OF CROSS-SECTIONS IN SECTIONS 1274 145100135 + MT-1,51,91,102,107 ARE EXPLICITELY GIVEN IN THE FORMAT 73-7 1274 145100136 + THE CROSS-SECTION DATA IN SECTIONS MT-2,3,4 ARE REDUNDANT AS 1274 145100137 + THESE ARE DERIVED FROM OTHER DATA IN THE FILE MF-3.THE COVARIANCE1274 145100138 + OF ANY DATA IN THESE SECTIONS ,MT-2,3,4, ARE GIVEN IMPLICITELY 1274 145100139 + BY MEANS OF A FLAG ,AN NC TYPE SUBSECTION,THE VALUE CAN TRIVIALY 1274 145100140 + BE OBTAINED KNOWING THAT MT-4=MT-51 PLUS MT-91 1274 145100141 + MT-3=MT-4 PLUS MT-102 PLUS MT-107 1274 145100142 + MT-2=MT-1 MINUS MT-3 1274 145100143 + ALL QUERRIES CONCERNING FILE MF-33 ARE WELCOME AND SHOULD 1274 145100144 + BE ADDRESSED TO F.G.PEREY OF ORNL. 1274 145100145 + 1 451 174 1274 145100146 + 2 151 4 1274 145100147 + 3 1 137 1274 145100148 + 3 2 133 1274 145100149 + 3 3 47 1274 145100150 + 3 4 36 1274 145100151 + 3 51 29 1274 145100152 + 3 91 11 1274 145100153 + 3 102 6 1274 145100154 + 3 107 14 1274 145100155 + 3 251 69 1274 145100156 + 3 252 69 1274 145100157 + 3 253 69 1274 145100158 + 4 2 461 1274 145100159 + 4 51 150 1274 145100160 + 4 91 10 1274 145100161 + 5 91 19 1274 145100162 + 12 102 13 1274 145100163 + 13 51 29 1274 145100164 + 14 51 185 1274 145100165 + 14 102 1 1274 145100166 + 33 1 63 1274 145100167 + 33 2 22 1274 145100168 + 33 3 19 1274 145100169 + 33 4 16 1274 145100170 + 33 51 21 1274 145100171 + 33 91 13 1274 145100172 + 33 102 7 1274 145100173 + 33 107 13 1274 145100174 + 1274 100000175 + 1274 000000176 + 6.01200+ 3 1.18969+ 1 0 0 1 01274 215100177 + 6.01200+ 3 1.00000+ 0 0 0 1 01274 215100178 + 1.00000- 5 1.00000+ 5 0 0 0 01274 215100179 + 0.00000+ 0 6.13500- 1 0 0 0 01274 215100180 + 1274 200000181 + 1274 000000182 + 6.01200+ 3 1.18969+ 1 0 99 0 01274 300100183 + 0.00000+ 0 0.00000+ 0 0 0 2 4011274 300100184 + 4 5 401 2 1274 300100185 + 1.00000- 5 4.90002+ 0 1.00000- 3 4.74600+ 0 2.53000- 2 4.73236+ 01274 300100186 + 1.00000- 1 4.73071+ 0 1.00000+ 1 4.72917+ 0 1.00000+ 3 4.72402+ 01274 300100187 + 4.00000+ 3 4.71380+ 0 6.00000+ 3 4.70700+ 0 8.00000+ 3 4.70100+ 01274 300100188 + 1.25000+ 4 4.68500+ 0 1.50000+ 4 4.67700+ 0 1.75000+ 4 4.66800+ 01274 300100189 + 3.00000+ 4 4.62700+ 0 3.50000+ 4 4.60900+ 0 4.00000+ 4 4.59300+ 01274 300100190 + 5.00000+ 4 4.55800+ 0 6.00000+ 4 4.52600+ 0 7.00000+ 4 4.49300+ 01274 300100191 + 8.00000+ 4 4.45900+ 0 1.20000+ 5 4.33100+ 0 1.30000+ 5 4.30100+ 01274 300100192 + 1.40000+ 5 4.27000+ 0 2.00000+ 5 4.09600+ 0 2.50000+ 5 3.95900+ 01274 300100193 + 3.00000+ 5 3.82900+ 0 3.50000+ 5 3.70500+ 0 4.00000+ 5 3.58900+ 01274 300100194 + 4.50000+ 5 3.47800+ 0 5.00000+ 5 3.37200+ 0 5.50000+ 5 3.27200+ 01274 300100195 + 6.00000+ 5 3.17800+ 0 6.50000+ 5 3.10100+ 0 7.00000+ 5 3.00000+ 01274 300100196 + 7.50000+ 5 2.92100+ 0 8.00000+ 5 2.83300+ 0 8.50000+ 5 2.76800+ 01274 300100197 + 9.00000+ 5 2.69100+ 0 9.50000+ 5 2.61600+ 0 1.00000+ 6 2.56200+ 01274 300100198 + 1.05000+ 6 2.49700+ 0 1.10000+ 6 2.43000+ 0 1.20000+ 6 2.31200+ 01274 300100199 + 1.25000+ 6 2.26200+ 0 1.30000+ 6 2.21600+ 0 1.35000+ 6 2.16300+ 01274 300100200 + 1.40000+ 6 2.11900+ 0 1.45000+ 6 2.07900+ 0 1.50000+ 6 2.03700+ 01274 300100201 + 1.55000+ 6 1.99100+ 0 1.60000+ 6 1.94600+ 0 1.65000+ 6 1.91800+ 01274 300100202 + 1.70000+ 6 1.86700+ 0 1.75000+ 6 1.84500+ 0 1.80000+ 6 1.80600+ 01274 300100203 + 1.85000+ 6 1.77000+ 0 1.90000+ 6 1.73900+ 0 1.95000+ 6 1.71100+ 01274 300100204 + 2.00000+ 6 1.67700+ 0 2.04900+ 6 1.69610+ 0 2.05800+ 6 1.75570+ 01274 300100205 + 2.06420+ 6 1.96150+ 0 2.06800+ 6 2.13490+ 0 2.07010+ 6 2.40300+ 01274 300100206 + 2.07150+ 6 2.71720+ 0 2.07400+ 6 3.20760+ 0 2.07500+ 6 3.92160+ 01274 300100207 + 2.07600+ 6 4.86990+ 0 2.07700+ 6 5.76260+ 0 2.07780+ 6 6.02330+ 01274 300100208 + 2.07800+ 6 5.99520+ 0 2.07900+ 6 5.41960+ 0 2.08000+ 6 4.56020+ 01274 300100209 + 2.08100+ 6 3.81810+ 0 2.08200+ 6 3.27610+ 0 2.08370+ 6 2.90680+ 01274 300100210 + 2.08480+ 6 2.65220+ 0 2.08610+ 6 2.50870+ 0 2.08750+ 6 2.37320+ 01274 300100211 + 2.08990+ 6 2.19720+ 0 2.09320+ 6 2.02650+ 0 2.09890+ 6 1.90740+ 01274 300100212 + 2.10620+ 6 1.80720+ 0 2.11670+ 6 1.73940+ 0 2.16000+ 6 1.67000+ 01274 300100213 + 2.35000+ 6 1.57800+ 0 2.55000+ 6 1.60000+ 0 2.63000+ 6 1.66200+ 01274 300100214 + 2.70000+ 6 1.74700+ 0 2.77020+ 6 1.87110+ 0 2.79490+ 6 1.93290+ 01274 300100215 + 2.80210+ 6 1.98810+ 0 2.80690+ 6 2.04660+ 0 2.80950+ 6 2.15000+ 01274 300100216 + 2.81500+ 6 2.72000+ 0 2.81600+ 6 2.75500+ 0 2.81700+ 6 2.72000+ 01274 300100217 + 2.82100+ 6 2.15000+ 0 2.82510+ 6 2.06290+ 0 2.83130+ 6 2.04010+ 01274 300100218 + 2.88000+ 6 2.42300+ 0 2.93800+ 6 3.10500+ 0 2.94600+ 6 3.13500+ 01274 300100219 + 2.95000+ 6 3.10500+ 0 2.95400+ 6 3.03000+ 0 2.95800+ 6 2.92000+ 01274 300100220 + 2.97000+ 6 2.25000+ 0 2.98000+ 6 1.77200+ 0 2.98700+ 6 1.48800+ 01274 300100221 + 2.99000+ 6 1.40300+ 0 2.99400+ 6 1.33000+ 0 3.00000+ 6 1.25500+ 01274 300100222 + 3.00700+ 6 1.20000+ 0 3.01400+ 6 1.17500+ 0 3.02500+ 6 1.19000+ 01274 300100223 + 3.15000+ 6 1.78200+ 0 3.30000+ 6 2.30000+ 0 3.35000+ 6 2.44700+ 01274 300100224 + 3.42000+ 6 2.57000+ 0 3.46000+ 6 2.61200+ 0 3.60000+ 6 2.62500+ 01274 300100225 + 3.68000+ 6 2.51300+ 0 3.90000+ 6 2.08500+ 0 4.00000+ 6 1.90500+ 01274 300100226 + 4.03000+ 6 1.87500+ 0 4.06000+ 6 1.80000+ 0 4.10000+ 6 1.78700+ 01274 300100227 + 4.13000+ 6 1.80600+ 0 4.17000+ 6 1.90200+ 0 4.26000+ 6 2.23800+ 01274 300100228 + 4.27000+ 6 2.24000+ 0 4.40000+ 6 1.90000+ 0 4.50000+ 6 1.67000+ 01274 300100229 + 4.60000+ 6 1.52000+ 0 4.70000+ 6 1.40500+ 0 4.80000+ 6 1.31370+ 01274 300100230 + 4.85000+ 6 1.26800+ 0 4.89990+ 6 1.24487+ 0 4.90000+ 6 1.24500+ 01274 300100231 + 4.91940+ 6 1.26652+ 0 4.92000+ 6 1.27080+ 0 4.93000+ 6 1.34270+ 01274 300100232 + 4.93450+ 6 1.37495+ 0 4.93550+ 6 1.75305+ 0 4.93670+ 6 2.00111+ 01274 300100233 + 4.93850+ 6 1.97545+ 0 4.93950+ 6 1.77215+ 0 4.94000+ 6 1.72900+ 01274 300100234 + 4.94320+ 6 1.45294+ 0 4.94810+ 6 1.31422+ 0 4.95000+ 6 1.30090+ 01274 300100235 + 4.95460+ 6 1.26873+ 0 4.95840+ 6 1.24700+ 0 4.96980+ 6 1.22540+ 01274 300100236 + 4.98000+ 6 1.21900+ 0 5.00000+ 6 1.20630+ 0 5.00070+ 6 1.20588+ 01274 300100237 + 5.03000+ 6 1.19180+ 0 5.10000+ 6 1.15810+ 0 5.12000+ 6 1.14850+ 01274 300100238 + 5.15000+ 6 1.13410+ 0 5.18000+ 6 1.11960+ 0 5.20000+ 6 1.11000+ 01274 300100239 + 5.23000+ 6 1.10100+ 0 5.28000+ 6 1.08600+ 0 5.30000+ 6 1.08000+ 01274 300100240 + 5.33000+ 6 1.09000+ 0 5.33500+ 6 1.10500+ 0 5.34000+ 6 1.17000+ 01274 300100241 + 5.36000+ 6 1.65180+ 0 5.36200+ 6 1.70000+ 0 5.37000+ 6 1.84220+ 01274 300100242 + 5.37100+ 6 1.86000+ 0 5.37800+ 6 1.70000+ 0 5.38000+ 6 1.66670+ 01274 300100243 + 5.39000+ 6 1.50000+ 0 5.40000+ 6 1.38500+ 0 5.41000+ 6 1.29000+ 01274 300100244 + 5.42000+ 6 1.24500+ 0 5.43000+ 6 1.21250+ 0 5.44000+ 6 1.18001+ 01274 300100245 + 5.46000+ 6 1.14504+ 0 5.50000+ 6 1.11500+ 0 5.55000+ 6 1.10500+ 01274 300100246 + 5.60000+ 6 1.09500+ 0 5.65000+ 6 1.08500+ 0 5.70000+ 6 1.07500+ 01274 300100247 + 5.80000+ 6 1.07500+ 0 5.90000+ 6 1.09250+ 0 6.00000+ 6 1.11000+ 01274 300100248 + 6.05000+ 6 1.12200+ 0 6.12500+ 6 1.14000+ 0 6.16000+ 6 1.16000+ 01274 300100249 + 6.18000+ 6 1.19500+ 0 6.20000+ 6 1.26500+ 0 6.21000+ 6 1.30000+ 01274 300100250 + 6.22000+ 6 1.34500+ 0 6.23000+ 6 1.42000+ 0 6.24000+ 6 1.51500+ 01274 300100251 + 6.25000+ 6 1.70000+ 0 6.28500+ 6 2.45000+ 0 6.29500+ 6 2.55000+ 01274 300100252 + 6.30300+ 6 2.44990+ 0 6.31000+ 6 2.16500+ 0 6.32000+ 6 1.90000+ 01274 300100253 + 6.33000+ 6 1.72500+ 0 6.34000+ 6 1.60000+ 0 6.35000+ 6 1.50830+ 01274 300100254 + 6.36000+ 6 1.41670+ 0 6.37000+ 6 1.32497+ 0 6.39000+ 6 1.20167+ 01274 300100255 + 6.40000+ 6 1.14000+ 0 6.41000+ 6 1.09300+ 0 6.42000+ 6 1.07200+ 01274 300100256 + 6.43000+ 6 1.07675+ 0 6.44000+ 6 1.08150+ 0 6.45000+ 6 1.09100+ 01274 300100257 + 6.47000+ 6 1.11000+ 0 6.49000+ 6 1.10000+ 0 6.51000+ 6 1.04000+ 01274 300100258 + 6.54000+ 6 9.07500- 1 6.56000+ 6 8.19160- 1 6.57000+ 6 7.74993- 11274 300100259 + 6.58000+ 6 7.44997- 1 6.59000+ 6 7.30000- 1 6.60000+ 6 7.45003- 11274 300100260 + 6.62000+ 6 8.07500- 1 6.64000+ 6 8.70000- 1 6.65750+ 6 9.00000- 11274 300100261 + 6.66500+ 6 8.90000- 1 6.67000+ 6 8.75000- 1 6.68000+ 6 8.45005- 11274 300100262 + 6.70000+ 6 8.14995- 1 6.75000+ 6 8.00830- 1 6.81000+ 6 7.83830- 11274 300100263 + 6.92000+ 6 7.52670- 1 7.00000+ 6 7.30000- 1 7.10000+ 6 7.34000- 11274 300100264 + 7.14000+ 6 7.50000- 1 7.18000+ 6 7.94000- 1 7.20000+ 6 8.30000- 11274 300100265 + 7.22000+ 6 8.78000- 1 7.22500+ 6 8.90003- 1 7.25000+ 6 9.90000- 11274 300100266 + 7.27000+ 6 1.10000+ 0 7.28000+ 6 1.18143+ 0 7.34000+ 6 1.66998+ 01274 300100267 + 7.35000+ 6 1.72996+ 0 7.36000+ 6 1.75503+ 0 7.37000+ 6 1.78003+ 01274 300100268 + 7.40000+ 6 1.79073+ 0 7.42000+ 6 1.79783+ 0 7.47000+ 6 1.78840+ 01274 300100269 + 7.52870+ 6 1.77727+ 0 7.54170+ 6 1.77479+ 0 7.59370+ 6 1.76500+ 01274 300100270 + 7.62000+ 6 1.75996+ 0 7.65000+ 6 1.78995+ 0 7.66740+ 6 1.84221+ 01274 300100271 + 7.68000+ 6 1.87997+ 0 7.69770+ 6 1.95969+ 0 7.70000+ 6 1.96999+ 01274 300100272 + 7.72500+ 6 2.16996+ 0 7.74500+ 6 2.37006+ 0 7.75000+ 6 2.39143+ 01274 300100273 + 7.77000+ 6 2.28332+ 0 7.78870+ 6 2.20233+ 0 7.81000+ 6 2.11001+ 01274 300100274 + 7.81910+ 6 2.09178+ 0 7.86000+ 6 2.01003+ 0 7.88840+ 6 1.97913+ 01274 300100275 + 7.89710+ 6 1.96959+ 0 7.93000+ 6 1.93378+ 0 7.93610+ 6 1.93147+ 01274 300100276 + 8.00000+ 6 1.90745+ 0 8.00540+ 6 1.90804+ 0 8.00980+ 6 1.90841+ 01274 300100277 + 8.07910+ 6 1.91487+ 0 8.08000+ 6 1.91499+ 0 8.10080+ 6 1.89417+ 01274 300100278 + 8.10500+ 6 1.88999+ 0 8.10940+ 6 1.87822+ 0 8.12000+ 6 1.85000+ 01274 300100279 + 8.13110+ 6 1.80434+ 0 8.16000+ 6 1.68551+ 0 8.20000+ 6 1.52111+ 01274 300100280 + 8.21000+ 6 1.48000+ 0 8.21780+ 6 1.45530+ 0 8.24000+ 6 1.38500+ 01274 300100281 + 8.28000+ 6 1.29670+ 0 8.29580+ 6 1.27088+ 0 8.33000+ 6 1.21500+ 01274 300100282 + 8.39110+ 6 1.14866+ 0 8.40000+ 6 1.13900+ 0 8.44750+ 6 1.10670+ 01274 300100283 + 8.45000+ 6 1.10500+ 0 8.48000+ 6 1.09257+ 0 8.49950+ 6 1.08449+ 01274 300100284 + 8.52000+ 6 1.07600+ 0 8.60000+ 6 1.06889+ 0 8.66410+ 6 1.06319+ 01274 300100285 + 8.70000+ 6 1.06000+ 0 8.70750+ 6 1.06031+ 0 8.76810+ 6 1.06284+ 01274 300100286 + 8.80000+ 6 1.06417+ 0 8.85000+ 6 1.06625+ 0 8.88520+ 6 1.06772+ 01274 300100287 + 8.91980+ 6 1.06916+ 0 8.94000+ 6 1.07000+ 0 8.98000+ 6 1.09000+ 01274 300100288 + 9.00000+ 6 1.11400+ 0 9.00500+ 6 1.12000+ 0 9.02000+ 6 1.17000+ 01274 300100289 + 9.03000+ 6 1.19000+ 0 9.06720+ 6 1.20116+ 0 9.08000+ 6 1.20500+ 01274 300100290 + 9.16250+ 6 1.29163+ 0 9.18000+ 6 1.31000+ 0 9.21890+ 6 1.30722+ 01274 300100291 + 9.25000+ 6 1.30500+ 0 9.25350+ 6 1.30850+ 0 9.30000+ 6 1.35500+ 01274 300100292 + 9.30990+ 6 1.34560+ 0 9.36000+ 6 1.29800+ 0 9.40000+ 6 1.27444+ 01274 300100293 + 9.45000+ 6 1.24500+ 0 9.56000+ 6 1.21000+ 0 9.59000+ 6 1.22500+ 01274 300100294 + 9.60000+ 6 1.21625+ 0 9.63000+ 6 1.19000+ 0 9.64000+ 6 1.19000+ 01274 300100295 + 9.67820+ 6 1.24253+ 0 9.68000+ 6 1.24500+ 0 9.70000+ 6 1.25500+ 01274 300100296 + 9.72590+ 6 1.23234+ 0 9.74000+ 6 1.22000+ 0 9.80000+ 6 1.20962+ 01274 300100297 + 9.82120+ 6 1.20595+ 0 9.82990+ 6 1.20444+ 0 9.90000+ 6 1.19231+ 01274 300100298 + 9.91660+ 6 1.18943+ 0 9.92090+ 6 1.18869+ 0 1.00000+ 7 1.17500+ 01274 300100299 + 1.00030+ 7 1.17410+ 0 1.00500+ 7 1.16000+ 0 1.01700+ 7 1.09000+ 01274 300100300 + 1.02500+ 7 1.07500+ 0 1.03000+ 7 1.08500+ 0 1.03720+ 7 1.11380+ 01274 300100301 + 1.04000+ 7 1.12500+ 0 1.04780+ 7 1.15620+ 0 1.05060+ 7 1.16740+ 01274 300100302 + 1.05360+ 7 1.17940+ 0 1.05500+ 7 1.18500+ 0 1.06200+ 7 1.25500+ 01274 300100303 + 1.07000+ 7 1.29750+ 0 1.08000+ 7 1.35063+ 0 1.09000+ 7 1.40375+ 01274 300100304 + 1.09400+ 7 1.42500+ 0 1.10000+ 7 1.39000+ 0 1.10040+ 7 1.39220+ 01274 300100305 + 1.10960+ 7 1.44280+ 0 1.11000+ 7 1.44500+ 0 1.11700+ 7 1.38000+ 01274 300100306 + 1.13000+ 7 1.38000+ 0 1.14000+ 7 1.38000+ 0 1.17000+ 7 1.32000+ 01274 300100307 + 1.18000+ 7 1.33000+ 0 1.18280+ 7 1.34260+ 0 1.19000+ 7 1.37500+ 01274 300100308 + 1.19170+ 7 1.38605+ 0 1.20000+ 7 1.44000+ 0 1.20500+ 7 1.48000+ 01274 300100309 + 1.20880+ 7 1.47620+ 0 1.21000+ 7 1.47500+ 0 1.22500+ 7 1.36000+ 01274 300100310 + 1.23000+ 7 1.33500+ 0 1.24000+ 7 1.31500+ 0 1.25000+ 7 1.31000+ 01274 300100311 + 1.27000+ 7 1.34000+ 0 1.28000+ 7 1.35724+ 0 1.29000+ 7 1.37448+ 01274 300100312 + 1.29900+ 7 1.39000+ 0 1.31000+ 7 1.35616+ 0 1.31200+ 7 1.35000+ 01274 300100313 + 1.33000+ 7 1.33500+ 0 1.35000+ 7 1.36000+ 0 1.35400+ 7 1.36500+ 01274 300100314 + 1.35870+ 7 1.34645+ 0 1.37000+ 7 1.30185+ 0 1.37300+ 7 1.29000+ 01274 300100315 + 1.39000+ 7 1.26950+ 0 1.40000+ 7 1.26960+ 0 1.44000+ 7 1.26998+ 01274 300100316 + 1.44250+ 7 1.27000+ 0 1.46000+ 7 1.32000+ 0 1.46530+ 7 1.32901+ 01274 300100317 + 1.47000+ 7 1.33700+ 0 1.48000+ 7 1.35400+ 0 1.49000+ 7 1.36200+ 01274 300100318 + 1.50000+ 7 1.37000+ 0 2.00000+ 7 1.37000+ 0 1274 300100319 + 1274 300000320 + 6.01200+ 3 1.18969+ 1 0 0 0 01274 300200321 + 0.00000+ 0 0.00000+ 0 0 0 2 3881274 300200322 + 4 5 388 2 1274 300200323 + 1.00000- 5 4.72900+ 0 1.00000- 3 4.72890+ 0 2.53000- 2 4.72900+ 01274 300200324 + 1.00000- 1 4.72900+ 0 1.00000+ 1 4.72900+ 0 1.00000+ 3 4.72400+ 01274 300200325 + 4.00000+ 3 4.71380+ 0 6.00000+ 3 4.70700+ 0 8.00000+ 3 4.70100+ 01274 300200326 + 1.25000+ 4 4.68500+ 0 1.50000+ 4 4.67700+ 0 1.75000+ 4 4.66800+ 01274 300200327 + 3.00000+ 4 4.62700+ 0 3.50000+ 4 4.60900+ 0 4.00000+ 4 4.59300+ 01274 300200328 + 5.00000+ 4 4.55800+ 0 6.00000+ 4 4.52600+ 0 7.00000+ 4 4.49300+ 01274 300200329 + 8.00000+ 4 4.45900+ 0 1.20000+ 5 4.33100+ 0 1.30000+ 5 4.30100+ 01274 300200330 + 1.40000+ 5 4.27000+ 0 2.00000+ 5 4.09600+ 0 2.50000+ 5 3.95900+ 01274 300200331 + 3.00000+ 5 3.82900+ 0 3.50000+ 5 3.70500+ 0 4.00000+ 5 3.58900+ 01274 300200332 + 4.50000+ 5 3.47800+ 0 5.00000+ 5 3.37200+ 0 5.50000+ 5 3.27200+ 01274 300200333 + 6.00000+ 5 3.17800+ 0 6.50000+ 5 3.10100+ 0 7.00000+ 5 3.00000+ 01274 300200334 + 7.50000+ 5 2.92100+ 0 8.00000+ 5 2.83300+ 0 8.50000+ 5 2.76800+ 01274 300200335 + 9.00000+ 5 2.69100+ 0 9.50000+ 5 2.61600+ 0 1.00000+ 6 2.56200+ 01274 300200336 + 1.05000+ 6 2.49700+ 0 1.10000+ 6 2.43000+ 0 1.20000+ 6 2.31200+ 01274 300200337 + 1.25000+ 6 2.26200+ 0 1.30000+ 6 2.21600+ 0 1.35000+ 6 2.16300+ 01274 300200338 + 1.40000+ 6 2.11900+ 0 1.45000+ 6 2.07900+ 0 1.50000+ 6 2.03700+ 01274 300200339 + 1.55000+ 6 1.99100+ 0 1.60000+ 6 1.94600+ 0 1.65000+ 6 1.91800+ 01274 300200340 + 1.70000+ 6 1.86700+ 0 1.75000+ 6 1.84500+ 0 1.80000+ 6 1.80600+ 01274 300200341 + 1.85000+ 6 1.77000+ 0 1.90000+ 6 1.73900+ 0 1.95000+ 6 1.71100+ 01274 300200342 + 2.00000+ 6 1.67700+ 0 2.04900+ 6 1.69610+ 0 2.05800+ 6 1.75570+ 01274 300200343 + 2.06420+ 6 1.96150+ 0 2.06800+ 6 2.13490+ 0 2.07010+ 6 2.40300+ 01274 300200344 + 2.07150+ 6 2.71720+ 0 2.07400+ 6 3.20760+ 0 2.07500+ 6 3.92160+ 01274 300200345 + 2.07600+ 6 4.86990+ 0 2.07700+ 6 5.76260+ 0 2.07780+ 6 6.02330+ 01274 300200346 + 2.07800+ 6 5.99520+ 0 2.07900+ 6 5.41960+ 0 2.08000+ 6 4.56020+ 01274 300200347 + 2.08100+ 6 3.81810+ 0 2.08200+ 6 3.27610+ 0 2.08370+ 6 2.90680+ 01274 300200348 + 2.08480+ 6 2.65220+ 0 2.08610+ 6 2.50870+ 0 2.08750+ 6 2.37320+ 01274 300200349 + 2.08990+ 6 2.19720+ 0 2.09320+ 6 2.02650+ 0 2.09890+ 6 1.90740+ 01274 300200350 + 2.10620+ 6 1.80720+ 0 2.11670+ 6 1.73940+ 0 2.16000+ 6 1.67000+ 01274 300200351 + 2.35000+ 6 1.57800+ 0 2.55000+ 6 1.60000+ 0 2.63000+ 6 1.66200+ 01274 300200352 + 2.70000+ 6 1.74700+ 0 2.77020+ 6 1.87110+ 0 2.79490+ 6 1.93290+ 01274 300200353 + 2.80210+ 6 1.98810+ 0 2.80690+ 6 2.04660+ 0 2.80950+ 6 2.15000+ 01274 300200354 + 2.81500+ 6 2.72000+ 0 2.81600+ 6 2.75500+ 0 2.81700+ 6 2.72000+ 01274 300200355 + 2.82100+ 6 2.15000+ 0 2.82510+ 6 2.06290+ 0 2.83130+ 6 2.04010+ 01274 300200356 + 2.88000+ 6 2.42300+ 0 2.93800+ 6 3.10500+ 0 2.94600+ 6 3.13500+ 01274 300200357 + 2.95000+ 6 3.10500+ 0 2.95400+ 6 3.03000+ 0 2.95800+ 6 2.92000+ 01274 300200358 + 2.97000+ 6 2.25000+ 0 2.98000+ 6 1.77200+ 0 2.98700+ 6 1.48800+ 01274 300200359 + 2.99000+ 6 1.40300+ 0 2.99400+ 6 1.33000+ 0 3.00000+ 6 1.25500+ 01274 300200360 + 3.00700+ 6 1.20000+ 0 3.01400+ 6 1.17500+ 0 3.02500+ 6 1.19000+ 01274 300200361 + 3.15000+ 6 1.78200+ 0 3.30000+ 6 2.30000+ 0 3.35000+ 6 2.44700+ 01274 300200362 + 3.42000+ 6 2.57000+ 0 3.46000+ 6 2.61200+ 0 3.60000+ 6 2.62500+ 01274 300200363 + 3.68000+ 6 2.51300+ 0 3.90000+ 6 2.08500+ 0 4.00000+ 6 1.90500+ 01274 300200364 + 4.03000+ 6 1.87500+ 0 4.06000+ 6 1.80000+ 0 4.10000+ 6 1.78700+ 01274 300200365 + 4.13000+ 6 1.80600+ 0 4.17000+ 6 1.90200+ 0 4.26000+ 6 2.23800+ 01274 300200366 + 4.27000+ 6 2.24000+ 0 4.40000+ 6 1.90000+ 0 4.50000+ 6 1.67000+ 01274 300200367 + 4.60000+ 6 1.52000+ 0 4.70000+ 6 1.40500+ 0 4.80000+ 6 1.31370+ 01274 300200368 + 4.85000+ 6 1.26000+ 0 4.89990+ 6 1.22290+ 0 4.90000+ 6 1.22300+ 01274 300200369 + 4.91940+ 6 1.23870+ 0 4.92000+ 6 1.24280+ 0 4.93000+ 6 1.31070+ 01274 300200370 + 4.93450+ 6 1.34160+ 0 4.93550+ 6 1.71940+ 0 4.93670+ 6 1.96710+ 01274 300200371 + 4.93850+ 6 1.94090+ 0 4.93950+ 6 1.73730+ 0 4.94000+ 6 1.69400+ 01274 300200372 + 4.94320+ 6 1.41730+ 0 4.94810+ 6 1.27760+ 0 4.95000+ 6 1.26390+ 01274 300200373 + 4.95460+ 6 1.23020+ 0 4.95840+ 6 1.20720+ 0 4.96980+ 6 1.18180+ 01274 300200374 + 4.98000+ 6 1.17200+ 0 5.00000+ 6 1.15830+ 0 5.00070+ 6 1.15790+ 01274 300200375 + 5.03000+ 6 1.14480+ 0 5.10000+ 6 1.12010+ 0 5.12000+ 6 1.11250+ 01274 300200376 + 5.15000+ 6 1.09410+ 0 5.18000+ 6 1.07460+ 0 5.20000+ 6 1.05800+ 01274 300200377 + 5.23000+ 6 1.03500+ 0 5.28000+ 6 9.94000- 1 5.30000+ 6 9.74000- 11274 300200378 + 5.33000+ 6 9.63000- 1 5.33500+ 6 9.74500- 1 5.34000+ 6 1.03600+ 01274 300200379 + 5.36000+ 6 1.50380+ 0 5.36200+ 6 1.55160+ 0 5.37000+ 6 1.69220+ 01274 300200380 + 5.37100+ 6 1.71010+ 0 5.37800+ 6 1.55080+ 0 5.38000+ 6 1.51770+ 01274 300200381 + 5.39000+ 6 1.35420+ 0 5.40000+ 6 1.24240+ 0 5.41000+ 6 1.15060+ 01274 300200382 + 5.42000+ 6 1.10880+ 0 5.43000+ 6 1.07950+ 0 5.44000+ 6 1.04830+ 01274 300200383 + 5.46000+ 6 1.01590+ 0 5.50000+ 6 9.91000- 1 5.55000+ 6 9.81000- 11274 300200384 + 5.60000+ 6 9.67000- 1 5.65000+ 6 9.48000- 1 5.70000+ 6 9.26000- 11274 300200385 + 5.80000+ 6 9.02000- 1 5.90000+ 6 8.95500- 1 6.00000+ 6 8.87000- 11274 300200386 + 6.05000+ 6 8.86000- 1 6.12500+ 6 8.96000- 1 6.16000+ 6 9.12270- 11274 300200387 + 6.18000+ 6 9.45130- 1 6.20000+ 6 1.01300+ 0 6.21000+ 6 1.04300+ 01274 300200388 + 6.22000+ 6 1.08300+ 0 6.23000+ 6 1.15300+ 0 6.24000+ 6 1.24300+ 01274 300200389 + 6.25000+ 6 1.42300+ 0 6.28500+ 6 2.14150+ 0 6.29500+ 6 2.23250+ 01274 300200390 + 6.30300+ 6 2.12520+ 0 6.31000+ 6 1.83400+ 0 6.32000+ 6 1.56000+ 01274 300200391 + 6.33000+ 6 1.37900+ 0 6.34000+ 6 1.24800+ 0 6.35000+ 6 1.15830+ 01274 300200392 + 6.36000+ 6 1.07570+ 0 6.37000+ 6 1.00130+ 0 6.39000+ 6 9.12670- 11274 300200393 + 6.40000+ 6 8.62500- 1 6.41000+ 6 8.27000- 1 6.42000+ 6 8.11000- 11274 300200394 + 6.43000+ 6 8.20750- 1 6.44000+ 6 8.27000- 1 6.45000+ 6 8.38000- 11274 300200395 + 6.47000+ 6 8.52560- 1 6.49000+ 6 8.38110- 1 6.51000+ 6 7.73670- 11274 300200396 + 6.54000+ 6 6.34500- 1 6.56000+ 6 5.54160- 1 6.57000+ 6 5.20660- 11274 300200397 + 6.58000+ 6 5.01330- 1 6.59000+ 6 4.97000- 1 6.60000+ 6 5.22670- 11274 300200398 + 6.62000+ 6 6.06500- 1 6.64000+ 6 6.82000- 1 6.65750+ 6 7.19000- 11274 300200399 + 6.66500+ 6 7.12000- 1 6.67000+ 6 6.99000- 1 6.68000+ 6 6.70630- 11274 300200400 + 6.70000+ 6 6.43870- 1 6.75000+ 6 6.37830- 1 6.81000+ 6 6.26830- 11274 300200401 + 6.92000+ 6 5.95670- 1 7.00000+ 6 5.69000- 1 7.10000+ 6 5.68000- 11274 300200402 + 7.14000+ 6 5.82000- 1 7.18000+ 6 6.18000- 1 7.20000+ 6 6.44500- 11274 300200403 + 7.22000+ 6 6.83000- 1 7.22500+ 6 6.91420- 1 7.25000+ 6 7.73500- 11274 300200404 + 7.27000+ 6 8.64680- 1 7.28000+ 6 9.36700- 1 7.34000+ 6 1.36680+ 01274 300200405 + 7.35000+ 6 1.41670+ 0 7.36000+ 6 1.43170+ 0 7.37000+ 6 1.44870+ 01274 300200406 + 7.40000+ 6 1.43540+ 0 7.42000+ 6 1.42480+ 0 7.47000+ 6 1.40830+ 01274 300200407 + 7.52870+ 6 1.40700+ 0 7.54170+ 6 1.40540+ 0 7.59370+ 6 1.39210+ 01274 300200408 + 7.62000+ 6 1.37760+ 0 7.65000+ 6 1.39680+ 0 7.66740+ 6 1.44280+ 01274 300200409 + 7.68000+ 6 1.46930+ 0 7.69770+ 6 1.53320+ 0 7.70000+ 6 1.54140+ 01274 300200410 + 7.72500+ 6 1.71850+ 0 7.74500+ 6 1.90030+ 0 7.75000+ 6 1.91710+ 01274 300200411 + 7.77000+ 6 1.79070+ 0 7.78870+ 6 1.69260+ 0 7.81000+ 6 1.59100+ 01274 300200412 + 7.81910+ 6 1.56880+ 0 7.86000+ 6 1.49180+ 0 7.88840+ 6 1.46420+ 01274 300200413 + 7.89710+ 6 1.45170+ 0 7.93000+ 6 1.41160+ 0 7.93610+ 6 1.40850+ 01274 300200414 + 8.00000+ 6 1.34200+ 0 8.00540+ 6 1.33900+ 0 8.00980+ 6 1.33750+ 01274 300200415 + 8.07910+ 6 1.28430+ 0 8.08000+ 6 1.28420+ 0 8.10080+ 6 1.25830+ 01274 300200416 + 8.10500+ 6 1.25390+ 0 8.10940+ 6 1.24190+ 0 8.12000+ 6 1.22300+ 01274 300200417 + 8.13110+ 6 1.18710+ 0 8.16000+ 6 1.10280+ 0 8.20000+ 6 9.86590- 11274 300200418 + 8.21000+ 6 9.57780- 1 8.21780+ 6 9.42670- 1 8.24000+ 6 8.96350- 11274 300200419 + 8.28000+ 6 8.51260- 1 8.29580+ 6 8.42510- 1 8.33000+ 6 8.18840- 11274 300200420 + 8.39110+ 6 8.10040- 1 8.40000+ 6 8.04730- 1 8.44750+ 6 7.94470- 11274 300200421 + 8.45000+ 6 7.93230- 1 8.48000+ 6 7.86290- 1 8.49950+ 6 7.82270- 11274 300200422 + 8.52000+ 6 7.74330- 1 8.60000+ 6 7.69350- 1 8.66410+ 6 7.64720- 11274 300200423 + 8.70000+ 6 7.57340- 1 8.70750+ 6 7.56780- 1 8.76810+ 6 7.48850- 11274 300200424 + 8.80000+ 6 7.34960- 1 8.85000+ 6 7.11670- 1 8.88520+ 6 6.96230- 11274 300200425 + 8.91980+ 6 6.76280- 1 8.94000+ 6 6.62470- 1 8.98000+ 6 6.53460- 11274 300200426 + 9.00000+ 6 6.62950- 1 9.00500+ 6 6.65270- 1 9.02000+ 6 7.04210- 11274 300200427 + 9.03000+ 6 7.16840- 1 9.06720+ 6 7.00590- 1 9.08000+ 6 6.95840- 11274 300200428 + 9.16250+ 6 7.27120- 1 9.18000+ 6 7.27690- 1 9.21890+ 6 6.85350- 11274 300200429 + 9.25000+ 6 6.73510- 1 9.25350+ 6 6.75930- 1 9.30000+ 6 7.28490- 11274 300200430 + 9.30990+ 6 7.20380- 1 9.36000+ 6 6.81170- 1 9.40000+ 6 6.64300- 11274 300200431 + 9.45000+ 6 6.43480- 1 9.56000+ 6 6.27440- 1 9.59000+ 6 6.47610- 11274 300200432 + 9.60000+ 6 6.40580- 1 9.63000+ 6 6.19200- 1 9.64000+ 6 6.20820- 11274 300200433 + 9.67820+ 6 6.79550- 1 9.68000+ 6 6.82370- 1 9.70000+ 6 6.96260- 11274 300200434 + 9.72590+ 6 6.78640- 1 9.74000+ 6 6.66110- 1 9.80000+ 6 6.54910- 11274 300200435 + 9.82120+ 6 6.51160- 1 9.82990+ 6 6.47970- 1 9.90000+ 6 6.23940- 11274 300200436 + 9.92090+ 6 6.16360- 1 1.00000+ 7 6.07160- 1 1.00500+ 7 5.94990- 11274 300200437 + 1.01700+ 7 5.31800- 1 1.02500+ 7 5.21330- 1 1.03000+ 7 5.34170- 11274 300200438 + 1.03720+ 7 5.67050- 1 1.04000+ 7 5.77980- 1 1.04780+ 7 6.07650- 11274 300200439 + 1.05500+ 7 6.37610- 1 1.06200+ 7 7.08730- 1 1.07000+ 7 7.52520- 11274 300200440 + 1.09000+ 7 8.62990- 1 1.09400+ 7 8.84810- 1 1.10000+ 7 8.50650- 11274 300200441 + 1.10040+ 7 8.52910- 1 1.10960+ 7 8.99750- 1 1.11000+ 7 9.02030- 11274 300200442 + 1.11700+ 7 8.38490- 1 1.14000+ 7 8.43270- 1 1.17000+ 7 7.89240- 11274 300200443 + 1.18000+ 7 8.01230- 1 1.18280+ 7 8.14390- 1 1.19000+ 7 8.35030- 11274 300200444 + 1.19170+ 7 8.43300- 1 1.20000+ 7 8.83840- 1 1.20500+ 7 9.15760- 11274 300200445 + 1.20880+ 7 9.05820- 1 1.21000+ 7 9.04830- 1 1.22500+ 7 7.91160- 11274 300200446 + 1.23000+ 7 7.66600- 1 1.24000+ 7 7.47480- 1 1.25000+ 7 7.43370- 11274 300200447 + 1.27000+ 7 7.75140- 1 1.29000+ 7 8.11390- 1 1.29900+ 7 8.29980- 11274 300200448 + 1.31200+ 7 7.94420- 1 1.33000+ 7 7.85560- 1 1.35400+ 7 8.23750- 11274 300200449 + 1.35870+ 7 8.06800- 1 1.37300+ 7 7.53250- 1 1.39000+ 7 7.36190- 11274 300200450 + 1.44250+ 7 7.45220- 1 1.46000+ 7 7.98060- 1 1.46530+ 7 8.06340- 11274 300200451 + 1.48000+ 7 8.28420- 1 1.49000+ 7 8.34440- 1 1.50000+ 7 8.41100- 11274 300200452 + 2.00000+ 7 8.41100- 1 1274 300200453 + 1274 300000454 + 6.01200+ 3 1.18969+ 1 0 99 0 01274 300300455 + 0.00000+ 0 4.94700+ 6 0 0 2 1301274 300300456 + 6 5 130 2 1274 300300457 + 1.00000- 5 1.71020- 1 1.00000- 3 1.71020- 2 2.53000- 2 3.36000- 31274 300300458 + 1.00000- 1 1.71020- 3 1.00000+ 1 1.71020- 4 1.00000+ 3 1.71020- 51274 300300459 + 4.00000+ 3 0.00000+ 0 4.80000+ 6 0.00000+ 0 4.85000+ 6 8.00000- 31274 300300460 + 4.90000+ 6 2.20000- 2 4.92000+ 6 2.80000- 2 4.93000+ 6 3.20000- 21274 300300461 + 4.94000+ 6 3.50000- 2 4.95000+ 6 3.70000- 2 4.98000+ 6 4.70000- 21274 300300462 + 5.00000+ 6 4.80000- 2 5.03000+ 6 4.70000- 2 5.10000+ 6 3.80000- 21274 300300463 + 5.12000+ 6 3.60000- 2 5.15000+ 6 4.00000- 2 5.18000+ 6 4.50000- 21274 300300464 + 5.20000+ 6 5.20000- 2 5.23000+ 6 6.60000- 2 5.28000+ 6 9.20000- 21274 300300465 + 5.36000+ 6 1.48000- 1 5.37000+ 6 1.50000- 1 5.38000+ 6 1.49000- 11274 300300466 + 5.43000+ 6 1.33000- 1 5.50000+ 6 1.24000- 1 5.55000+ 6 1.24000- 11274 300300467 + 5.60000+ 6 1.28000- 1 5.65000+ 6 1.37000- 1 5.90000+ 6 1.97000- 11274 300300468 + 6.05000+ 6 2.36000- 1 6.20000+ 6 2.52000- 1 6.25000+ 6 2.77000- 11274 300300469 + 6.32000+ 6 3.40000- 1 6.34000+ 6 3.52000- 1 6.35000+ 6 3.50000- 11274 300300470 + 6.36000+ 6 3.41000- 1 6.39000+ 6 2.89000- 1 6.41000+ 6 2.66000- 11274 300300471 + 6.43000+ 6 2.56000- 1 6.45000+ 6 2.53000- 1 6.54000+ 6 2.73000- 11274 300300472 + 6.56000+ 6 2.65000- 1 6.62000+ 6 2.01000- 1 6.64000+ 6 1.88000- 11274 300300473 + 6.67000+ 6 1.76000- 1 6.75000+ 6 1.63000- 1 6.81000+ 6 1.57000- 11274 300300474 + 6.92000+ 6 1.57000- 1 7.14000+ 6 1.68000- 1 7.18000+ 6 1.76000- 11274 300300475 + 7.22000+ 6 1.95000- 1 7.25000+ 6 2.16500- 1 7.28000+ 6 2.44730- 11274 300300476 + 7.34000+ 6 3.03180- 1 7.36000+ 6 3.23330- 1 7.40000+ 6 3.55330- 11274 300300477 + 7.42000+ 6 3.73030- 1 7.47000+ 6 3.80100- 1 7.52870+ 6 3.70270- 11274 300300478 + 7.54170+ 6 3.69390- 1 7.59370+ 6 3.72900- 1 7.66740+ 6 3.99410- 11274 300300479 + 7.69770+ 6 4.26490- 1 7.78870+ 6 5.09730- 1 7.81910+ 6 5.22980- 11274 300300480 + 7.88840+ 6 5.14930- 1 7.89710+ 6 5.17890- 1 7.93610+ 6 5.22970- 11274 300300481 + 8.00540+ 6 5.69040- 1 8.00980+ 6 5.70910- 1 8.07910+ 6 6.30570- 11274 300300482 + 8.10080+ 6 6.35870- 1 8.10940+ 6 6.36320- 1 8.13110+ 6 6.17240- 11274 300300483 + 8.16000+ 6 5.82710- 1 8.20000+ 6 5.34520- 1 8.21780+ 6 5.12630- 11274 300300484 + 8.29580+ 6 4.28370- 1 8.39110+ 6 3.38620- 1 8.40000+ 6 3.34270- 11274 300300485 + 8.44750+ 6 3.12230- 1 8.48000+ 6 3.06280- 1 8.49950+ 6 3.02220- 11274 300300486 + 8.60000+ 6 2.99540- 1 8.66410+ 6 2.98470- 1 8.70750+ 6 3.03530- 11274 300300487 + 8.76810+ 6 3.13990- 1 8.80000+ 6 3.29210- 1 8.85000+ 6 3.54580- 11274 300300488 + 8.88520+ 6 3.71490- 1 8.91980+ 6 3.92880- 1 9.00000+ 6 4.51050- 11274 300300489 + 9.06720+ 6 5.00570- 1 9.16250+ 6 5.64510- 1 9.21890+ 6 6.21870- 11274 300300490 + 9.25350+ 6 6.32570- 1 9.30990+ 6 6.25220- 1 9.40000+ 6 6.10140- 11274 300300491 + 9.60000+ 6 5.75670- 1 9.67820+ 6 5.62980- 1 9.72590+ 6 5.53700- 11274 300300492 + 9.80000+ 6 5.54710- 1 9.82120+ 6 5.54790- 1 9.82990+ 6 5.56470- 11274 300300493 + 9.90000+ 6 5.68370- 1 9.92090+ 6 5.72330- 1 1.03720+ 7 5.46750- 11274 300300494 + 1.04000+ 7 5.47020- 1 1.04780+ 7 5.48550- 1 1.07000+ 7 5.44980- 11274 300300495 + 1.09000+ 7 5.40760- 1 1.10040+ 7 5.39290- 1 1.10960+ 7 5.43050- 11274 300300496 + 1.14000+ 7 5.36730- 1 1.18280+ 7 5.28210- 1 1.19170+ 7 5.42750- 11274 300300497 + 1.20880+ 7 5.70380- 1 1.21000+ 7 5.70170- 1 1.29000+ 7 5.63090- 11274 300300498 + 1.35870+ 7 5.39650- 1 1.39000+ 7 5.33310- 1 1.46000+ 7 5.21940- 11274 300300499 + 1.46530+ 7 5.22670- 1 1.49000+ 7 5.27560- 1 1.50000+ 7 5.28900- 11274 300300500 + 2.00000+ 7 5.28900- 1 1274 300300501 + 1274 300000502 + 6.01200+ 3 1.18969+ 1 0 99 0 01274 300400503 + 0.00000+ 0-4.43300+ 6 0 0 1 971274 300400504 + 97 2 1274 300400505 + 4.80000+ 6 0.00000+ 0 4.85000+ 6 8.00000- 3 4.90000+ 6 2.20000- 21274 300400506 + 4.92000+ 6 2.80000- 2 4.93000+ 6 3.20000- 2 4.94000+ 6 3.50000- 21274 300400507 + 4.95000+ 6 3.70000- 2 4.98000+ 6 4.70000- 2 5.00000+ 6 4.80000- 21274 300400508 + 5.03000+ 6 4.70000- 2 5.10000+ 6 3.80000- 2 5.12000+ 6 3.60000- 21274 300400509 + 5.15000+ 6 4.00000- 2 5.18000+ 6 4.50000- 2 5.20000+ 6 5.20000- 21274 300400510 + 5.23000+ 6 6.60000- 2 5.28000+ 6 9.20000- 2 5.36000+ 6 1.48000- 11274 300400511 + 5.37000+ 6 1.50000- 1 5.38000+ 6 1.49000- 1 5.43000+ 6 1.33000- 11274 300400512 + 5.50000+ 6 1.24000- 1 5.55000+ 6 1.24000- 1 5.60000+ 6 1.28000- 11274 300400513 + 5.65000+ 6 1.37000- 1 5.90000+ 6 1.97000- 1 6.05000+ 6 2.36000- 11274 300400514 + 6.20000+ 6 2.52000- 1 6.25000+ 6 2.77000- 1 6.32000+ 6 3.40000- 11274 300400515 + 6.34000+ 6 3.51000- 1 6.35000+ 6 3.49000- 1 6.36000+ 6 3.40000- 11274 300400516 + 6.39000+ 6 2.88000- 1 6.41000+ 6 2.65000- 1 6.43000+ 6 2.55000- 11274 300400517 + 6.45000+ 6 2.52000- 1 6.54000+ 6 2.72000- 1 6.56000+ 6 2.64000- 11274 300400518 + 6.62000+ 6 2.00000- 1 6.64000+ 6 1.87000- 1 6.67000+ 6 1.75000- 11274 300400519 + 6.75000+ 6 1.62000- 1 6.81000+ 6 1.56000- 1 6.92000+ 6 1.56000- 11274 300400520 + 7.14000+ 6 1.67000- 1 7.18000+ 6 1.75000- 1 7.22000+ 6 1.92000- 11274 300400521 + 7.25000+ 6 2.12000- 1 7.36000+ 6 3.10000- 1 7.42000+ 6 3.51000- 11274 300400522 + 7.47000+ 6 3.48000- 1 7.54170+ 6 3.21560- 1 7.59370+ 6 3.09430- 11274 300400523 + 7.66740+ 6 3.13760- 1 7.78870+ 6 3.85700- 1 7.81910+ 6 3.89170- 11274 300400524 + 7.88840+ 6 3.58830- 1 7.93610+ 6 3.59700- 1 8.00980+ 6 4.00430- 11274 300400525 + 8.07910+ 6 4.68910- 1 8.10940+ 6 4.80170- 1 8.13110+ 6 4.68040- 11274 300400526 + 8.16000+ 6 4.42750- 1 8.20000+ 6 4.07360- 1 8.21780+ 6 3.91170- 11274 300400527 + 8.39110+ 6 2.59420- 1 8.40000+ 6 2.56690- 1 8.44750+ 6 2.43280- 11274 300400528 + 8.48000+ 6 2.43220- 1 8.60000+ 6 2.40020- 1 8.70750+ 6 2.38220- 11274 300400529 + 8.80000+ 6 2.41860- 1 8.85000+ 6 2.45320- 1 8.88520+ 6 2.46820- 11274 300400530 + 9.00000+ 6 2.67490- 1 9.06720+ 6 2.80370- 1 9.40000+ 6 3.22210- 11274 300400531 + 9.60000+ 6 3.46350- 1 9.67820+ 6 3.56580- 1 9.80000+ 6 3.68580- 11274 300400532 + 9.82990+ 6 3.71230- 1 9.90000+ 6 3.75820- 1 1.04000+ 7 4.18550- 11274 300400533 + 1.04780+ 7 4.26000- 1 1.07000+ 7 4.39280- 1 1.09000+ 7 4.50240- 11274 300400534 + 1.10960+ 7 4.62350- 1 1.14000+ 7 4.62430- 1 1.19170+ 7 4.63020- 11274 300400535 + 1.21000+ 7 4.62890- 1 1.29000+ 7 4.69070- 1 1.39000+ 7 4.51530- 11274 300400536 + 1.46000+ 7 4.42060- 1 1.49000+ 7 4.47000- 1 1.50000+ 7 4.48000- 11274 300400537 + 2.00000+ 7 4.48000- 1 1274 300400538 + 1274 300000539 + 6.01200+ 3 1.18969+ 1 0 1 0 01274 305100540 + 0.00000+ 0-4.43300+ 6 0 0 1 771274 305100541 + 77 2 1274 305100542 + 4.80000+ 6 0.00000+ 0 4.85000+ 6 8.00000- 3 4.90000+ 6 2.20000- 21274 305100543 + 4.92000+ 6 2.80000- 2 4.93000+ 6 3.20000- 2 4.94000+ 6 3.50000- 21274 305100544 + 4.95000+ 6 3.70000- 2 4.98000+ 6 4.70000- 2 5.00000+ 6 4.80000- 21274 305100545 + 5.03000+ 6 4.70000- 2 5.10000+ 6 3.80000- 2 5.12000+ 6 3.60000- 21274 305100546 + 5.15000+ 6 4.00000- 2 5.18000+ 6 4.50000- 2 5.20000+ 6 5.20000- 21274 305100547 + 5.23000+ 6 6.60000- 2 5.28000+ 6 9.20000- 2 5.36000+ 6 1.48000- 11274 305100548 + 5.37000+ 6 1.50000- 1 5.38000+ 6 1.49000- 1 5.43000+ 6 1.33000- 11274 305100549 + 5.50000+ 6 1.24000- 1 5.55000+ 6 1.24000- 1 5.60000+ 6 1.28000- 11274 305100550 + 5.65000+ 6 1.37000- 1 5.90000+ 6 1.97000- 1 6.05000+ 6 2.36000- 11274 305100551 + 6.20000+ 6 2.52000- 1 6.25000+ 6 2.77000- 1 6.32000+ 6 3.40000- 11274 305100552 + 6.34000+ 6 3.51000- 1 6.35000+ 6 3.49000- 1 6.36000+ 6 3.40000- 11274 305100553 + 6.39000+ 6 2.88000- 1 6.41000+ 6 2.65000- 1 6.43000+ 6 2.55000- 11274 305100554 + 6.45000+ 6 2.52000- 1 6.54000+ 6 2.72000- 1 6.56000+ 6 2.64000- 11274 305100555 + 6.62000+ 6 2.00000- 1 6.64000+ 6 1.87000- 1 6.67000+ 6 1.75000- 11274 305100556 + 6.75000+ 6 1.62000- 1 6.81000+ 6 1.56000- 1 6.92000+ 6 1.56000- 11274 305100557 + 7.14000+ 6 1.67000- 1 7.18000+ 6 1.75000- 1 7.22000+ 6 1.92000- 11274 305100558 + 7.25000+ 6 2.12000- 1 7.36000+ 6 3.10000- 1 7.42000+ 6 3.51000- 11274 305100559 + 7.47000+ 6 3.48000- 1 7.54170+ 6 3.21560- 1 7.59370+ 6 3.09430- 11274 305100560 + 7.66740+ 6 3.13760- 1 7.78870+ 6 3.85700- 1 7.81910+ 6 3.89170- 11274 305100561 + 7.88840+ 6 3.58830- 1 7.93610+ 6 3.59700- 1 8.00980+ 6 4.00430- 11274 305100562 + 8.07910+ 6 4.68910- 1 8.10940+ 6 4.80170- 1 8.13110+ 6 4.68040- 11274 305100563 + 8.21780+ 6 3.89170- 1 8.39110+ 6 2.57420- 1 8.44750+ 6 2.40090- 11274 305100564 + 8.70750+ 6 2.33150- 1 8.88520+ 6 2.38350- 1 9.06720+ 6 2.68690- 11274 305100565 + 9.67820+ 6 3.30230- 1 9.82990+ 6 3.40630- 1 1.04780+ 7 3.70100- 11274 305100566 + 1.10960+ 7 3.76160- 1 1.19170+ 7 3.33690- 1 1.49000+ 7 1.74000- 11274 305100567 + 1.50000+ 7 1.58000- 1 2.00000+ 7 1.58000- 1 1274 305100568 + 1274 300000569 + 6.01200+ 3 1.18969+ 1 0 99 0 01274 309100570 +-7.27400+ 6-7.27400+ 6 0 23 1 231274 309100571 + 23 2 1274 309100572 + 8.16000+ 6 1.00000- 3 8.20000+ 6 2.00000- 3 8.40000+ 6 2.00000- 31274 309100573 + 8.48000+ 6 4.00000- 3 8.60000+ 6 4.00000- 3 8.80000+ 6 6.00000- 31274 309100574 + 8.85000+ 6 8.00000- 3 9.00000+ 6 1.00000- 2 9.40000+ 6 2.00000- 21274 309100575 + 9.60000+ 6 2.40000- 2 9.80000+ 6 3.00000- 2 9.90000+ 6 3.20000- 21274 309100576 + 1.04000+ 7 5.20000- 2 1.07000+ 7 6.70000- 2 1.09000+ 7 7.60000- 21274 309100577 + 1.14000+ 7 1.02000- 1 1.21000+ 7 1.39000- 1 1.29000+ 7 1.88000- 11274 309100578 + 1.39000+ 7 2.24000- 1 1.46000+ 7 2.52000- 1 1.49000+ 7 2.73000- 11274 309100579 + 1.50000+ 7 2.90000- 1 2.00000+ 7 2.90000- 1 1274 309100580 + 1274 300000581 + 6.01200+ 3 1.18969+ 1 0 99 0 01274 310200582 + 0.00000+ 0 4.94700+ 6 0 0 2 81274 310200583 + 6 5 8 2 1274 310200584 + 1.00000- 5 1.71020- 1 1.00000- 3 1.71020- 2 2.53000- 2 3.36000- 31274 310200585 + 1.00000- 1 1.71020- 3 1.00000+ 1 1.71020- 4 1.00000+ 3 1.71020- 51274 310200586 + 4.00000+ 3 0.00000+ 0 2.00000+ 7 0.00000+ 0 1274 310200587 + 1274 300000588 + 6.01200+ 3 1.18969+ 1 0 99 0 01274 310700589 + 0.00000+ 0-5.69500+ 6 0 0 1 311274 310700590 + 31 2 1274 310700591 + 6.32000+ 6 0.00000+ 0 6.34000+ 6 1.00000- 3 7.18000+ 6 1.00000- 31274 310700592 + 7.28000+ 6 6.00000- 3 7.34000+ 6 1.10000- 2 7.40000+ 6 1.80000- 21274 310700593 + 7.52870+ 6 4.39150- 2 7.69770+ 6 9.47630- 2 7.89710+ 6 1.58900- 11274 310700594 + 8.00540+ 6 1.71040- 1 8.10080+ 6 1.58900- 1 8.29580+ 6 9.64970- 21274 310700595 + 8.49950+ 6 5.95160- 2 8.66410+ 6 5.95160- 2 8.76810+ 6 7.33840- 21274 310700596 + 8.91980+ 6 1.39830- 1 9.16250+ 6 2.72160- 1 9.21890+ 6 3.22430- 11274 310700597 + 9.25350+ 6 3.28780- 1 9.30990+ 6 3.14340- 1 9.72590+ 6 1.92420- 11274 310700598 + 9.82120+ 6 1.84330- 1 9.92090+ 6 1.94730- 1 1.03720+ 7 1.30590- 11274 310700599 + 1.10040+ 7 8.26290- 2 1.18280+ 7 6.52940- 2 1.20880+ 7 1.07480- 11274 310700600 + 1.35870+ 7 8.26290- 2 1.46530+ 7 7.97400- 2 1.50000+ 7 8.08960- 21274 310700601 + 2.00000+ 7 8.08960- 2 1274 310700602 + 1274 300000603 + 6.01200+ 3 1.18969+ 1 0 0 0 01274 325100604 + 0.00000+ 0 0.00000+ 0 0 0 1 1981274 325100605 + 198 2 1274 325100606 + 1.00000- 5 5.63363- 2 1.00000+ 4 5.77523- 2 3.50000+ 5 9.59838- 21274 325100607 + 7.00000+ 5 1.18194- 1 1.05000+ 6 1.27651- 1 1.35000+ 6 1.25257- 11274 325100608 + 1.60000+ 6 1.16633- 1 1.80000+ 6 1.04073- 1 1.90000+ 6 9.39977- 21274 325100609 + 1.95000+ 6 9.39977- 2 2.00000+ 6 6.72466- 2 2.02000+ 6 6.13655- 21274 325100610 + 2.04000+ 6 5.14959- 2 2.06000+ 6 2.73073- 2 2.07000+ 6-5.54892- 31274 325100611 + 2.08000+ 6 4.62896- 2 2.10000+ 6 1.11368- 1 2.15000+ 6 7.74367- 21274 325100612 + 2.30000+ 6 5.03230- 2 2.45000+ 6 2.86728- 2 2.60000+ 6 7.65805- 31274 325100613 + 2.75000+ 6-8.23528- 3 2.81000+ 6-2.63895- 3 2.82000+ 6 2.08635- 11274 325100614 + 2.83000+ 6-2.17599- 2 2.88000+ 6-8.77202- 3 2.90000+ 6-2.24886- 31274 325100615 + 2.92000+ 6 9.30486- 3 2.94000+ 6 3.09681- 2 2.96000+ 6 7.40418- 21274 325100616 + 2.98000+ 6 1.26152- 1 3.00000+ 6 8.28869- 2 3.02000+ 6 1.63432- 21274 325100617 + 3.04000+ 6-1.21720- 2 3.08000+ 6-2.48460- 2 3.11270+ 6-2.57249- 21274 325100618 + 3.18000+ 6-2.00865- 2 3.22750+ 6-1.22434- 2 3.30000+ 6 2.69537- 31274 325100619 + 3.32070+ 6 7.12928- 3 3.35000+ 6 1.33291- 2 3.35320+ 6 1.40194- 21274 325100620 + 3.40000+ 6 2.39236- 2 3.40090+ 6 2.41132- 2 3.45000+ 6 3.40056- 21274 325100621 + 3.60020+ 6 6.61023- 2 3.75000+ 6 9.54463- 2 3.90000+ 6 9.08530- 21274 325100622 + 4.00000+ 6 7.43688- 2 4.05090+ 6 5.59414- 2 4.13000+ 6 9.20666- 21274 325100623 + 4.33000+ 6 4.83258- 1 4.34000+ 6 4.93339- 1 4.36000+ 6 4.93557- 11274 325100624 + 4.50000+ 6 4.22017- 1 4.60000+ 6 3.89431- 1 4.70000+ 6 3.56669- 11274 325100625 + 5.00000+ 6 2.94760- 1 5.20000+ 6 2.84784- 1 5.25000+ 6 2.83958- 11274 325100626 + 5.28500+ 6 2.89647- 1 5.30000+ 6 2.92070- 1 5.32000+ 6 3.42903- 11274 325100627 + 5.32500+ 6 3.54938- 1 5.35000+ 6 4.15138- 1 5.36000+ 6 4.25971- 11274 325100628 + 5.36500+ 6 4.25403- 1 5.38000+ 6 4.23691- 1 5.40000+ 6 3.64461- 11274 325100629 + 5.42000+ 6 3.05222- 1 5.47000+ 6 2.70560- 1 5.50000+ 6 2.64341- 11274 325100630 + 5.55000+ 6 2.53983- 1 5.70000+ 6 2.41050- 1 5.95000+ 6 2.18401- 11274 325100631 + 6.05000+ 6 2.09781- 1 6.10000+ 6 2.01589- 1 6.15000+ 6 1.83344- 11274 325100632 + 6.18500+ 6 1.70277- 1 6.20000+ 6 1.64679- 1 6.21000+ 6 1.60945- 11274 325100633 + 6.22500+ 6 1.55354- 1 6.23000+ 6 1.53503- 1 6.25000+ 6 1.50749- 11274 325100634 + 6.26000+ 6 1.56352- 1 6.27500+ 6 1.92725- 1 6.28500+ 6 2.16767- 11274 325100635 + 6.30000+ 6 2.52822- 1 6.31000+ 6 2.76858- 1 6.32000+ 6 3.00895- 11274 325100636 + 6.32500+ 6 3.13166- 1 6.34000+ 6 3.49903- 1 6.35000+ 6 3.74721- 11274 325100637 + 6.36000+ 6 3.99538- 1 6.39000+ 6 4.02398- 1 6.40000+ 6 4.03602- 11274 325100638 + 6.43000+ 6 4.07232- 1 6.45000+ 6 4.09027- 1 6.46000+ 6 4.09227- 11274 325100639 + 6.47000+ 6 4.28960- 1 6.48000+ 6 4.48699- 1 6.49000+ 6 4.68438- 11274 325100640 + 6.50000+ 6 4.88176- 1 6.53000+ 6 4.89450- 1 6.54000+ 6 4.90007- 11274 325100641 + 6.55000+ 6 4.89310- 1 6.57000+ 6 4.32071- 1 6.60000+ 6 3.46187- 11274 325100642 + 6.61000+ 6 3.16823- 1 6.62000+ 6 3.09967- 1 6.65000+ 6 2.89408- 11274 325100643 + 6.68000+ 6 2.67995- 1 6.70000+ 6 2.64351- 1 6.73000+ 6 2.58905- 11274 325100644 + 6.80000+ 6 2.52101- 1 6.85000+ 6 2.49269- 1 6.95000+ 6 2.49170- 11274 325100645 + 6.97000+ 6 2.50345- 1 7.00000+ 6 2.60132- 1 7.05000+ 6 2.76219- 11274 325100646 + 7.11000+ 6 3.16440- 1 7.13000+ 6 3.41943- 1 7.15000+ 6 3.67449- 11274 325100647 + 7.16000+ 6 3.79651- 1 7.17000+ 6 3.91856- 1 7.20000+ 6 4.57241- 11274 325100648 + 7.25000+ 6 5.65164- 1 7.30000+ 6 6.73106- 1 7.32500+ 6 6.79666- 11274 325100649 + 7.35000+ 6 6.69556- 1 7.39000+ 6 5.45284- 1 7.40000+ 6 5.14716- 11274 325100650 + 7.44000+ 6 3.91837- 1 7.45000+ 6 3.84419- 1 7.50000+ 6 3.48088- 11274 325100651 + 7.55000+ 6 3.30276- 1 7.58000+ 6 3.19645- 1 7.60000+ 6 3.12022- 11274 325100652 + 7.63500+ 6 3.05181- 1 7.67000+ 6 3.00359- 1 7.70000+ 6 3.01912- 11274 325100653 + 7.74000+ 6 3.04317- 1 7.75000+ 6 3.09929- 1 7.77000+ 6 3.21139- 11274 325100654 + 7.78000+ 6 3.26738- 1 7.79000+ 6 3.46957- 1 7.80000+ 6 3.67169- 11274 325100655 + 7.81000+ 6 3.87755- 1 7.83000+ 6 4.28915- 1 7.85000+ 6 4.70741- 11274 325100656 + 7.89000+ 6 5.54412- 1 7.90000+ 6 5.63518- 1 7.93000+ 6 5.90825- 11274 325100657 + 7.95000+ 6 5.97619- 1 7.96000+ 6 6.00876- 1 7.97000+ 6 6.03954- 11274 325100658 + 8.00000+ 6 6.12938- 1 8.04000+ 6 6.24427- 1 8.06000+ 6 6.30420- 11274 325100659 + 8.09000+ 6 6.39158- 1 8.12000+ 6 6.47885- 1 8.13000+ 6 6.50801- 11274 325100660 + 8.15000+ 6 6.59088- 1 8.16000+ 6 6.63227- 1 8.17000+ 6 6.67368- 11274 325100661 + 8.19000+ 6 6.75634- 1 8.20000+ 6 6.79767- 1 8.21000+ 6 6.84126- 11274 325100662 + 8.22000+ 6 6.82293- 1 8.25000+ 6 6.77963- 1 8.30000+ 6 6.32801- 11274 325100663 + 8.31500+ 6 6.19255- 1 8.35000+ 6 5.97910- 1 8.40000+ 6 5.66673- 11274 325100664 + 8.45000+ 6 5.35791- 1 8.50000+ 6 5.11423- 1 8.60000+ 6 4.62687- 11274 325100665 + 8.69310+ 6 4.17319- 1 8.70530+ 6 4.11370- 1 8.83870+ 6 3.46336- 11274 325100666 + 8.90250+ 6 3.15239- 1 8.95450+ 6 2.89903- 1 8.99070+ 6 2.86244- 11274 325100667 + 9.08000+ 6 2.75266- 1 9.10080+ 6 2.72715- 1 9.11480+ 6 2.75877- 11274 325100668 + 9.17550+ 6 2.89573- 1 9.98700+ 6 4.72835- 1 1.00080+ 7 4.77577- 11274 325100669 + 1.01310+ 7 5.05360- 1 1.03780+ 7 5.61160- 1 1.05710+ 7 5.69694- 11274 325100670 + 1.09430+ 7 5.86139- 1 1.09640+ 7 5.87060- 1 1.13730+ 7 6.07790- 11274 325100671 + 1.31000+ 7 5.88909- 1 1.50000+ 7 5.67274- 1 2.00000+ 7 5.67274- 11274 325100672 + 1274 300000673 + 6.01200+ 3 1.18969+ 1 0 0 0 01274 325200674 + 0.00000+ 0 0.00000+ 0 0 0 1 1981274 325200675 + 198 2 1274 325200676 + 1.00000- 5 1.59057- 1 1.00000+ 4 1.58818- 1 3.50000+ 5 1.52384- 11274 325200677 + 7.00000+ 5 1.48646- 1 1.05000+ 6 1.47055- 1 1.35000+ 6 1.47458- 11274 325200678 + 1.60000+ 6 1.48909- 1 1.80000+ 6 1.51024- 1 1.90000+ 6 1.52720- 11274 325200679 + 1.95000+ 6 1.52720- 1 2.00000+ 6 1.57225- 1 2.02000+ 6 1.58216- 11274 325200680 + 2.04000+ 6 1.59878- 1 2.06000+ 6 1.63955- 1 2.07000+ 6 1.69492- 11274 325200681 + 2.08000+ 6 1.60764- 1 2.10000+ 6 1.49789- 1 2.15000+ 6 1.55505- 11274 325200682 + 2.30000+ 6 1.60071- 1 2.45000+ 6 1.63716- 1 2.60000+ 6 1.67253- 11274 325200683 + 2.75000+ 6 1.69928- 1 2.81000+ 6 1.68985- 1 2.82000+ 6 1.33412- 11274 325200684 + 2.83000+ 6 1.72204- 1 2.88000+ 6 1.70017- 1 2.90000+ 6 1.68918- 11274 325200685 + 2.92000+ 6 1.66972- 1 2.94000+ 6 1.63324- 1 2.96000+ 6 1.56070- 11274 325200686 + 2.98000+ 6 1.47297- 1 3.00000+ 6 1.54585- 1 3.02000+ 6 1.65790- 11274 325200687 + 3.04000+ 6 1.70590- 1 3.08000+ 6 1.72723- 1 3.11270+ 6 1.72869- 11274 325200688 + 3.18000+ 6 1.71917- 1 3.22750+ 6 1.70594- 1 3.30000+ 6 1.68079- 11274 325200689 + 3.32070+ 6 1.67332- 1 3.35000+ 6 1.66288- 1 3.35320+ 6 1.66172- 11274 325200690 + 3.40000+ 6 1.64506- 1 3.40090+ 6 1.64474- 1 3.45000+ 6 1.62810- 11274 325200691 + 3.60020+ 6 1.57411- 1 3.75000+ 6 1.52474- 1 3.90000+ 6 1.53247- 11274 325200692 + 4.00000+ 6 1.56024- 1 4.05090+ 6 1.59125- 1 4.13000+ 6 1.53045- 11274 325200693 + 4.33000+ 6 8.72077- 2 4.34000+ 6 8.55110- 2 4.36000+ 6 8.54741- 21274 325200694 + 4.50000+ 6 9.75117- 2 4.60000+ 6 1.02995- 1 4.70000+ 6 1.08508- 11274 325200695 + 5.00000+ 6 1.18924- 1 5.20000+ 6 1.20602- 1 5.25000+ 6 1.20742- 11274 325200696 + 5.28500+ 6 1.19788- 1 5.30000+ 6 1.19380- 1 5.32000+ 6 1.10825- 11274 325200697 + 5.32500+ 6 1.08800- 1 5.35000+ 6 9.86630- 2 5.36000+ 6 9.68380- 21274 325200698 + 5.36500+ 6 9.69323- 2 5.38000+ 6 9.72188- 2 5.40000+ 6 1.07185- 11274 325200699 + 5.42000+ 6 1.17153- 1 5.47000+ 6 1.22983- 1 5.50000+ 6 1.24028- 11274 325200700 + 5.55000+ 6 1.25770- 1 5.70000+ 6 1.27941- 1 5.95000+ 6 1.31742- 11274 325200701 + 6.05000+ 6 1.33186- 1 6.10000+ 6 1.34560- 1 6.15000+ 6 1.37627- 11274 325200702 + 6.18500+ 6 1.39826- 1 6.20000+ 6 1.40769- 1 6.21000+ 6 1.41400- 11274 325200703 + 6.22500+ 6 1.42349- 1 6.23000+ 6 1.42668- 1 6.25000+ 6 1.43160- 11274 325200704 + 6.26000+ 6 1.42231- 1 6.27500+ 6 1.36130- 1 6.28500+ 6 1.32097- 11274 325200705 + 6.30000+ 6 1.26050- 1 6.31000+ 6 1.22018- 1 6.32000+ 6 1.17984- 11274 325200706 + 6.32500+ 6 1.15924- 1 6.34000+ 6 1.09747- 1 6.35000+ 6 1.05570- 11274 325200707 + 6.36000+ 6 1.01388- 1 6.39000+ 6 1.00886- 1 6.40000+ 6 1.00679- 11274 325200708 + 6.43000+ 6 1.00054- 1 6.45000+ 6 9.97421- 2 6.46000+ 6 9.97058- 21274 325200709 + 6.47000+ 6 9.63822- 2 6.48000+ 6 9.30567- 2 6.49000+ 6 8.97318- 21274 325200710 + 6.50000+ 6 8.64081- 2 6.53000+ 6 8.61907- 2 6.54000+ 6 8.60949- 21274 325200711 + 6.55000+ 6 8.62115- 2 6.57000+ 6 9.58420- 2 6.60000+ 6 1.10294- 11274 325200712 + 6.61000+ 6 1.15235- 1 6.62000+ 6 1.16387- 1 6.65000+ 6 1.19843- 11274 325200713 + 6.68000+ 6 1.23442- 1 6.70000+ 6 1.24053- 1 6.73000+ 6 1.24965- 11274 325200714 + 6.80000+ 6 1.26102- 1 6.85000+ 6 1.26574- 1 6.95000+ 6 1.26588- 11274 325200715 + 6.97000+ 6 1.26390- 1 7.00000+ 6 1.24745- 1 7.05000+ 6 1.22041- 11274 325200716 + 7.11000+ 6 1.15278- 1 7.13000+ 6 1.10988- 1 7.15000+ 6 1.06697- 11274 325200717 + 7.16000+ 6 1.04644- 1 7.17000+ 6 1.02590- 1 7.20000+ 6 9.15878- 21274 325200718 + 7.25000+ 6 7.34260- 2 7.30000+ 6 5.52601- 2 7.32500+ 6 5.41558- 21274 325200719 + 7.35000+ 6 5.58572- 2 7.39000+ 6 7.67715- 2 7.40000+ 6 8.19160- 21274 325200720 + 7.44000+ 6 1.02595- 1 7.45000+ 6 1.03843- 1 7.50000+ 6 1.09958- 11274 325200721 + 7.55000+ 6 1.12960- 1 7.58000+ 6 1.14753- 1 7.60000+ 6 1.16039- 11274 325200722 + 7.63500+ 6 1.17200- 1 7.67000+ 6 1.18028- 1 7.70000+ 6 1.17778- 11274 325200723 + 7.74000+ 6 1.17387- 1 7.75000+ 6 1.16446- 1 7.77000+ 6 1.14561- 11274 325200724 + 7.78000+ 6 1.13619- 1 7.79000+ 6 1.10215- 1 7.80000+ 6 1.06812- 11274 325200725 + 7.81000+ 6 1.03345- 1 7.83000+ 6 9.64103- 2 7.85000+ 6 8.93639- 21274 325200726 + 7.89000+ 6 7.52683- 2 7.90000+ 6 7.37321- 2 7.93000+ 6 6.91255- 21274 325200727 + 7.95000+ 6 6.79779- 2 7.96000+ 6 6.74297- 2 7.97000+ 6 6.69119- 21274 325200728 + 8.00000+ 6 6.54036- 2 8.04000+ 6 6.34815- 2 8.06000+ 6 6.24809- 21274 325200729 + 8.09000+ 6 6.10225- 2 8.12000+ 6 5.95651- 2 8.13000+ 6 5.90774- 21274 325200730 + 8.15000+ 6 5.76874- 2 8.16000+ 6 5.69931- 2 8.17000+ 6 5.62965- 21274 325200731 + 8.19000+ 6 5.49048- 2 8.20000+ 6 5.42079- 2 8.21000+ 6 5.34729- 21274 325200732 + 8.22000+ 6 5.37801- 2 8.25000+ 6 5.44986- 2 8.30000+ 6 6.20820- 21274 325200733 + 8.31500+ 6 6.43583- 2 8.35000+ 6 6.79421- 2 8.40000+ 6 7.31913- 21274 325200734 + 8.45000+ 6 7.83826- 2 8.50000+ 6 8.24800- 2 8.60000+ 6 9.06755- 21274 325200735 + 8.69310+ 6 9.83053- 2 8.70530+ 6 9.93055- 2 8.83870+ 6 1.10243- 11274 325200736 + 8.90250+ 6 1.15473- 1 8.95450+ 6 1.19732- 1 8.99070+ 6 1.20344- 11274 325200737 + 9.08000+ 6 1.22183- 1 9.10080+ 6 1.22610- 1 9.11480+ 6 1.22077- 11274 325200738 + 9.17550+ 6 1.19770- 1 9.98700+ 6 8.89428- 2 1.00080+ 7 8.81454- 21274 325200739 + 1.01310+ 7 8.34752- 2 1.03780+ 7 7.40912- 2 1.05710+ 7 7.26600- 21274 325200740 + 1.09430+ 7 6.99040- 2 1.09640+ 7 6.97492- 2 1.13730+ 7 6.62636- 21274 325200741 + 1.31000+ 7 6.94553- 2 1.50000+ 7 7.31322- 2 2.00000+ 7 7.31322- 21274 325200742 + 1274 300000743 + 6.01200+ 3 1.18969+ 1 0 0 0 01274 325300744 + 0.00000+ 0 0.00000+ 0 0 0 1 1981274 325300745 + 198 2 1274 325300746 + 1.00000- 5 1.09083- 1 1.00000+ 4 1.09003- 1 3.50000+ 5 1.06789- 11274 325300747 + 7.00000+ 5 1.05516- 1 1.05000+ 6 1.05149- 1 1.35000+ 6 1.05672- 11274 325300748 + 1.60000+ 6 1.06708- 1 1.80000+ 6 1.08084- 1 1.90000+ 6 1.09099- 11274 325300749 + 1.95000+ 6 1.09099- 1 2.00000+ 6 1.10710- 1 2.02000+ 6 1.11270- 11274 325300750 + 2.04000+ 6 1.12239- 1 2.06000+ 6 1.15110- 1 2.07000+ 6 1.21063- 11274 325300751 + 2.08000+ 6 1.37643- 1 2.10000+ 6 1.10778- 1 2.15000+ 6 1.11248- 11274 325300752 + 2.30000+ 6 1.14188- 1 2.45000+ 6 1.17452- 1 2.60000+ 6 1.21575- 11274 325300753 + 2.75000+ 6 1.26400- 1 2.81000+ 6 1.28292- 1 2.82000+ 6 1.17229- 11274 325300754 + 2.83000+ 6 1.29986- 1 2.88000+ 6 1.31960- 1 2.90000+ 6 1.32724- 11274 325300755 + 2.92000+ 6 1.33313- 1 2.94000+ 6 1.33609- 1 2.96000+ 6 1.30592- 11274 325300756 + 2.98000+ 6 1.17776- 1 3.00000+ 6 1.09588- 1 3.02000+ 6 1.15896- 11274 325300757 + 3.04000+ 6 1.21402- 1 3.08000+ 6 1.24949- 1 3.11270+ 6 1.27454- 11274 325300758 + 3.18000+ 6 1.29566- 1 3.22750+ 6 1.30190- 1 3.30000+ 6 1.31105- 11274 325300759 + 3.32070+ 6 1.31199- 1 3.35000+ 6 1.31419- 1 3.35320+ 6 1.31425- 11274 325300760 + 3.40000+ 6 1.31741- 1 3.40090+ 6 1.31735- 1 3.45000+ 6 1.32122- 11274 325300761 + 3.60020+ 6 1.31317- 1 3.75000+ 6 1.28447- 1 3.90000+ 6 1.26367- 11274 325300762 + 4.00000+ 6 1.25430- 1 4.05090+ 6 1.25357- 1 4.13000+ 6 1.22597- 11274 325300763 + 4.33000+ 6 8.82164- 2 4.34000+ 6 8.65305- 2 4.36000+ 6 8.60661- 21274 325300764 + 4.50000+ 6 9.32854- 2 4.60000+ 6 9.56064- 2 4.70000+ 6 9.79870- 21274 325300765 + 5.00000+ 6 1.00869- 1 5.20000+ 6 1.00312- 1 5.25000+ 6 1.00147- 11274 325300766 + 5.28500+ 6 9.95201- 2 5.30000+ 6 9.92625- 2 5.32000+ 6 9.47364- 21274 325300767 + 5.32500+ 6 9.46085- 2 5.35000+ 6 9.38031- 2 5.36000+ 6 9.27351- 21274 325300768 + 5.36500+ 6 9.29137- 2 5.38000+ 6 9.34792- 2 5.40000+ 6 9.96941- 21274 325300769 + 5.42000+ 6 1.04869- 1 5.47000+ 6 1.07233- 1 5.50000+ 6 1.07488- 11274 325300770 + 5.55000+ 6 1.07916- 1 5.70000+ 6 1.07861- 1 5.95000+ 6 1.09239- 11274 325300771 + 6.05000+ 6 1.09853- 1 6.10000+ 6 1.10616- 1 6.15000+ 6 1.11999- 11274 325300772 + 6.18500+ 6 1.13324- 1 6.20000+ 6 1.13892- 1 6.21000+ 6 1.14277- 11274 325300773 + 6.22500+ 6 1.14885- 1 6.23000+ 6 1.15118- 1 6.25000+ 6 1.16466- 11274 325300774 + 6.26000+ 6 1.16760- 1 6.27500+ 6 1.15840- 1 6.28500+ 6 1.15453- 11274 325300775 + 6.30000+ 6 1.14845- 1 6.31000+ 6 1.14404- 1 6.32000+ 6 1.13910- 11274 325300776 + 6.32500+ 6 1.13260- 1 6.34000+ 6 1.11098- 1 6.35000+ 6 1.08923- 11274 325300777 + 6.36000+ 6 1.06487- 1 6.39000+ 6 1.05474- 1 6.40000+ 6 1.04741- 11274 325300778 + 6.43000+ 6 1.02473- 1 6.45000+ 6 1.02060- 1 6.46000+ 6 1.01949- 11274 325300779 + 6.47000+ 6 1.01070- 1 6.48000+ 6 1.00111- 1 6.49000+ 6 9.90856- 21274 325300780 + 6.50000+ 6 9.79983- 2 6.53000+ 6 9.82155- 2 6.54000+ 6 9.79987- 21274 325300781 + 6.55000+ 6 9.55260- 2 6.57000+ 6 9.76206- 2 6.60000+ 6 1.00123- 11274 325300782 + 6.61000+ 6 1.01962- 1 6.62000+ 6 1.01740- 1 6.65000+ 6 1.01090- 11274 325300783 + 6.68000+ 6 1.01705- 1 6.70000+ 6 1.01228- 1 6.73000+ 6 1.00508- 11274 325300784 + 6.80000+ 6 9.98710- 2 6.85000+ 6 9.92615- 2 6.95000+ 6 9.85970- 21274 325300785 + 6.97000+ 6 9.84424- 2 7.00000+ 6 9.75264- 2 7.05000+ 6 9.62913- 21274 325300786 + 7.11000+ 6 9.34572- 2 7.13000+ 6 9.14647- 2 7.15000+ 6 8.93030- 21274 325300787 + 7.16000+ 6 8.91112- 2 7.17000+ 6 8.89048- 2 7.20000+ 6 8.43168- 21274 325300788 + 7.25000+ 6 7.61915- 2 7.30000+ 6 6.26809- 2 7.32500+ 6 6.82012- 21274 325300789 + 7.35000+ 6 7.75390- 2 7.39000+ 6 1.04929- 1 7.40000+ 6 1.08527- 11274 325300790 + 7.44000+ 6 1.20268- 1 7.45000+ 6 1.20951- 1 7.50000+ 6 1.22897- 11274 325300791 + 7.55000+ 6 1.22289- 1 7.58000+ 6 1.21870- 1 7.60000+ 6 1.22407- 11274 325300792 + 7.63500+ 6 1.23002- 1 7.67000+ 6 1.24392- 1 7.70000+ 6 1.25246- 11274 325300793 + 7.74000+ 6 1.28888- 1 7.75000+ 6 1.29565- 1 7.77000+ 6 1.30916- 11274 325300794 + 7.78000+ 6 1.31594- 1 7.79000+ 6 1.31613- 1 7.80000+ 6 1.31617- 11274 325300795 + 7.81000+ 6 1.30994- 1 7.83000+ 6 1.29580- 1 7.85000+ 6 1.26631- 11274 325300796 + 7.89000+ 6 1.19080- 1 7.90000+ 6 1.17692- 1 7.93000+ 6 1.13141- 11274 325300797 + 7.95000+ 6 1.10088- 1 7.96000+ 6 1.08952- 1 7.97000+ 6 1.08250- 11274 325300798 + 8.00000+ 6 1.06889- 1 8.04000+ 6 1.06496- 1 8.06000+ 6 1.05623- 11274 325300799 + 8.09000+ 6 1.05010- 1 8.12000+ 6 1.04362- 1 8.13000+ 6 1.04123- 11274 325300800 + 8.15000+ 6 1.03190- 1 8.16000+ 6 1.02706- 1 8.17000+ 6 1.02179- 11274 325300801 + 8.19000+ 6 1.01050- 1 8.20000+ 6 1.00452- 1 8.21000+ 6 9.90484- 21274 325300802 + 8.22000+ 6 9.88592- 2 8.25000+ 6 9.42974- 2 8.30000+ 6 9.77648- 21274 325300803 + 8.31500+ 6 9.86708- 2 8.35000+ 6 9.89846- 2 8.40000+ 6 1.01295- 11274 325300804 + 8.45000+ 6 1.03267- 1 8.50000+ 6 1.04505- 1 8.60000+ 6 1.06655- 11274 325300805 + 8.69310+ 6 1.08344- 1 8.70530+ 6 1.08545- 1 8.83870+ 6 1.10561- 11274 325300806 + 8.90250+ 6 1.11387- 1 8.95450+ 6 1.11976- 1 8.99070+ 6 1.11385- 11274 325300807 + 9.08000+ 6 1.12764- 1 9.10080+ 6 1.13080- 1 9.11480+ 6 1.12961- 11274 325300808 + 9.17550+ 6 1.12471- 1 9.98700+ 6 1.03922- 1 1.00080+ 7 1.03626- 11274 325300809 + 1.01310+ 7 1.01785- 1 1.03780+ 7 9.73202- 2 1.05710+ 7 9.85895- 21274 325300810 + 1.09430+ 7 1.01231- 1 1.09640+ 7 1.01380- 1 1.13730+ 7 9.71636- 21274 325300811 + 1.31000+ 7 9.60969- 2 1.50000+ 7 9.76090- 2 2.00000+ 7 9.76090- 21274 325300812 + 1274 300000813 + 1274 000000814 + 6.01200+ 3 1.18969+ 1 1 1 0 01274 400200815 + 0.00000+ 0 1.18969+ 1 0 2 361 181274 400200816 + 1.00000+ 0 5.60370- 2 1.41449- 3-1.06648- 9 0.00000+ 0 0.00000+ 01274 400200817 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01274 400200818 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01274 400200819 + 0.00000+ 0 0.00000+ 0 9.95761- 1 1.00663- 1 4.84477- 3 1.13334- 41274 400200820 + 1.41574- 6-3.09538- 8 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01274 400200821 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01274 400200822 + 0.00000+ 0 0.00000+ 0 0.00000+ 0-5.56976- 2 9.88919- 1 1.43303- 11274 400200823 + 1.00688- 2 4.11258- 4 1.04665- 5 9.68762- 8 1.41317- 8-9.49099- 91274 400200824 + 4.02238- 9 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01274 400200825 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 4.21146- 3-9.97601- 21274 400200826 + 9.78431- 1 1.84778- 1 1.70256- 2 9.66249- 4 3.66337- 5 8.46190- 71274 400200827 + 3.18788- 8 5.16159- 9 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01274 400200828 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0-3.37071- 41274 400200829 + 9.58399- 3-1.41515- 1 9.64503- 1 2.25166- 1 2.56621- 2 1.84865- 31274 400200830 + 9.22777- 5 3.20320- 6 6.03473- 8-2.59285- 8-5.59838- 9 0.00000+ 01274 400200831 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01274 400200832 + 2.75428- 5-8.95141- 4 1.65418- 2-1.81822- 1 9.47222- 1 2.64367- 11274 400200833 + 3.59186- 2 3.12618- 3 1.92499- 4 8.61431- 6 2.61171- 7-4.34714- 81274 400200834 + 1.72620- 8 1.36216- 8 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01274 400200835 + 0.00000+ 0-2.27289- 6 8.20847- 5-1.77076- 3 2.50853- 2-2.20767- 11274 400200836 + 9.26683- 1 3.02229- 1 4.77264- 2 4.86313- 3 3.55225- 4 1.93617- 51274 400200837 + 8.10976- 7-1.28515- 8 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01274 400200838 + 0.00000+ 0 0.00000+ 0 1.88592- 7-7.43062- 6 1.80398- 4-3.03231- 31274 400200839 + 3.51640- 2-2.58260- 1 9.02998- 1 3.38582- 1 6.10065- 2 7.12008- 31274 400200840 + 6.00812- 4 3.84811- 5 1.93039- 6 2.48291- 8 2.90731- 9 0.00000+ 01274 400200841 + 0.00000+ 0 0.00000+ 0 0.00000+ 0-1.57009- 8 6.66238- 7-1.77964- 51274 400200842 + 3.40156- 4-4.74208- 3 4.67065- 2-2.94160- 1 8.76290- 1 3.73251- 11274 400200843 + 7.56697- 2 9.95314- 3 9.51855- 4 6.98134- 5 4.06042- 6 1.24407- 71274 400200844 + 8.79032- 9 0.00000+ 0 0.00000+ 0 0.00000+ 0 1.31002- 9-5.92962- 81274 400200845 + 1.71618- 6-3.63510- 5 5.81262- 4-6.95753- 3 5.96281- 2-3.28310- 11274 400200846 + 8.46703- 1 4.06066- 1 9.16168- 2 1.34134- 2 1.43312- 3 1.18264- 41274 400200847 + 7.80490- 6 3.14589- 7 5.21515- 8 4.41488- 8 0.00000+ 0-1.09469-101274 400200848 + 5.24658- 9-1.62716- 7 3.75402- 6-6.69316- 5 9.25742- 4-9.73115- 31274 400200849 + 7.38328- 2-3.60553- 1 8.14390- 1 4.36864- 1 1.08740- 1 1.75466- 21274 400200850 + 2.07114- 3 1.89743- 4 1.40310- 5 7.86976- 7 1.11161- 7 0.00000+ 01274 400200851 + 9.15753-12-4.62010-10 1.52257- 8-3.77921- 7 7.37309- 6-1.14320- 41274 400200852 + 1.39752- 3-1.31101- 2 8.92146- 2-3.90735- 1 7.79522- 1 4.65492- 11274 400200853 + 1.26922- 1 2.23927- 2 2.89406- 3 2.91407- 4 2.37909- 5 1.46922- 61274 400200854 + 0.00000+ 0-7.66692-13 4.05233-11-1.40976- 9 3.73005- 8-7.85731- 71274 400200855 + 1.33854- 5-1.84309- 4 2.02217- 3-1.71357- 2 1.05659- 1-4.18712- 11274 400200856 + 7.42283- 1 4.91806- 1 1.46038- 1 2.79851- 2 3.93112- 3 4.31251- 41274 400200857 + 3.85219- 5 0.00000+ 0 6.42295-14-3.54249-12 1.29410-10-3.62378- 91274 400200858 + 8.16027- 8-1.50581- 6 2.28644- 5-2.83759- 4 2.82659- 3-2.18434- 21274 400200859 + 1.23043- 1-4.44351- 1 7.02865- 1 5.15677- 1 1.65957- 1 3.43507- 21274 400200860 + 5.21257- 3 6.18970- 4 0.00000+ 0-5.38344-15 3.08794-13-1.17939-111274 400200861 + 3.47527-10-8.30176- 9 1.64189- 7-2.70835- 6 3.71885- 5-4.20634- 41274 400200862 + 3.83872- 3-2.72617- 2 1.41238- 1-4.67530- 1 6.61476- 1 5.36989- 11274 400200863 + 1.86540- 1 4.15098- 2 6.76908- 3 0.00000+ 0 4.51391-16-2.67962-141274 400200864 + 1.06832-12-3.29705-11 8.30399-10-1.74594- 8 3.09406- 7-4.62759- 61274 400200865 + 5.80862- 5-6.04026- 4 5.08721- 3-3.34128- 2 1.60108- 1-4.88142- 11274 400200866 + 6.18329- 1 5.55639- 1 2.07644- 1 4.94746- 2 0.00000+ 0-3.78602-171274 400200867 + 2.32996-15-9.61531-14 3.09952-12-8.18966-11 1.81872- 9-3.43310- 81274 400200868 + 5.52839- 7-7.57699- 6 8.76804- 5-8.44161- 4 6.60109- 3-4.03115- 21274 400200869 + 1.79512- 1-5.06093- 1 5.73649- 1 5.71541- 1 2.29121- 1 0.00000+ 01274 400200870 + 3.17632-18-1.43424-16 8.62351-15-2.88971-13 7.98066-12-1.86214-101274 400200871 + 3.71888- 9-6.39053- 8 9.44922- 7-1.19663- 5 1.28533- 4-1.15239- 31274 400200872 + 8.40940- 3-4.79656- 2 1.99305- 1-5.21307- 1 5.27665- 1 0.00000+ 01274 400200873 + 0.00000+ 0-2.66538-19 1.00373-17-6.96603-16 2.67221-14-7.69590-131274 400200874 + 1.87888-11-3.94813-10 7.18894- 9-1.13624- 7 1.55527- 6-1.83201- 51274 400200875 + 1.83687- 4-1.54117- 3 1.05409- 2-5.63753- 2 2.19339- 1-5.33720- 11274 400200876 + 4.80614- 1 1274 400200877 + 0.00000+ 0 0.00000+ 0 0 0 1 1981274 400200878 + 198 2 1274 400200879 + 0.00000+ 0 1.00000- 5 0 0 1 01274 400200880 + 0.00000+ 0 1274 400200881 + 0.00000+ 0 1.00000+ 4 0 0 1 01274 400200882 + 1.42000- 3 1274 400200883 + 0.00000+ 0 3.50000+ 5 0 0 2 01274 400200884 + 3.97900- 2 5.90000- 4 1274 400200885 + 0.00000+ 0 7.00000+ 5 0 0 4 01274 400200886 + 6.21700- 2 2.52000- 3-8.00000- 5-1.00000- 5 1274 400200887 + 0.00000+ 0 1.05000+ 6 0 0 4 01274 400200888 + 7.18700- 2 6.35000- 3-4.40000- 4-5.00000- 5 1274 400200889 + 0.00000+ 0 1.35000+ 6 0 0 4 01274 400200890 + 6.97900- 2 1.20300- 2-1.58000- 3-1.60000- 4 1274 400200891 + 0.00000+ 0 1.60000+ 6 0 0 5 01274 400200892 + 6.15700- 2 1.95700- 2-3.88000- 3-3.40000- 4-1.00000- 5 1274 400200893 + 0.00000+ 0 1.80000+ 6 0 0 5 01274 400200894 + 4.95100- 2 2.89900- 2-7.74000- 3-3.60000- 4-3.00000- 5 1274 400200895 + 0.00000+ 0 1.90000+ 6 0 0 5 01274 400200896 + 3.97800- 2 3.55300- 2-1.14800- 2 5.00000- 5-6.00000- 5 1274 400200897 + 0.00000+ 0 1.95000+ 6 0 0 5 01274 400200898 + 3.97800- 2 3.55300- 2-1.14800- 2 5.00000- 5-6.00000- 5 1274 400200899 + 0.00000+ 0 2.00000+ 6 0 0 5 01274 400200900 + 1.30200- 2 3.64700- 2-2.35700- 2 4.88000- 3 9.00000- 5 1274 400200901 + 0.00000+ 0 2.02000+ 6 0 0 5 01274 400200902 + 7.34000- 3 4.02700- 2-2.65500- 2 7.10000- 3 1.10000- 4 1274 400200903 + 0.00000+ 0 2.04000+ 6 0 0 5 01274 400200904 +-2.15000- 3 4.73900- 2-3.16800- 2 1.17500- 2 1.20000- 4 1274 400200905 + 0.00000+ 0 2.06000+ 6 0 0 5 01274 400200906 +-2.48500- 2 7.47400- 2-4.38700- 2 2.65200- 2 1.50000- 4 1274 400200907 + 0.00000+ 0 2.07000+ 6 0 0 5 01274 400200908 +-5.34000- 2 1.52450- 1-5.72700- 2 5.39100- 2 1.80000- 4 1274 400200909 + 0.00000+ 0 2.08000+ 6 0 0 5 01274 400200910 + 1.65800- 2 4.72660- 1 1.59000- 3 7.64000- 2 3.00000- 5 1274 400200911 + 0.00000+ 0 2.10000+ 6 0 0 5 01274 400200912 + 5.96600- 2 7.95700- 2 8.61000- 3-1.71400- 2 5.00000- 5 1274 400200913 + 0.00000+ 0 2.15000+ 6 0 0 5 01274 400200914 + 2.42900- 2 5.53200- 2-1.34300- 2-7.87000- 3 1.10000- 4 1274 400200915 + 0.00000+ 0 2.30000+ 6 0 0 5 01274 400200916 +-1.50000- 3 7.99100- 2-2.55000- 2-4.12000- 3 2.00000- 4 1274 400200917 + 0.00000+ 0 2.45000+ 6 0 0 5 01274 400200918 +-2.10800- 2 1.17540- 1-3.39900- 2-3.60000- 3 3.10000- 4 1274 400200919 + 0.00000+ 0 2.60000+ 6 0 0 5 01274 400200920 +-3.90000- 2 1.73340- 1-4.10000- 2-3.52000- 3 4.60000- 4 1274 400200921 + 0.00000+ 0 2.75000+ 6 0 0 5 01274 400200922 +-5.07100- 2 2.48270- 1-4.37500- 2-3.48000- 3 5.90000- 4 1274 400200923 + 0.00000+ 0 2.81000+ 6 0 0 5 01274 400200924 +-4.29900- 2 2.85750- 1-3.85900- 2-4.75000- 3 5.50000- 4 1274 400200925 + 0.00000+ 0 2.82000+ 6 0 0 5 01274 400200926 + 1.67320- 1 2.62580- 1 2.10850- 1 6.67800- 2 2.70000- 4 1274 400200927 + 0.00000+ 0 2.83000+ 6 0 0 5 01274 400200928 +-6.10900- 2 3.04690- 1-4.47200- 2-1.12000- 3 7.40000- 4 1274 400200929 + 0.00000+ 0 2.88000+ 6 0 0 5 01274 400200930 +-4.56400- 2 3.47900- 1-3.42900- 2-2.20000- 3 6.20000- 4 1274 400200931 + 0.00000+ 0 2.90000+ 6 0 0 5 01274 400200932 +-3.81300- 2 3.65190- 1-2.81200- 2-1.97000- 3 5.60000- 4 1274 400200933 + 0.00000+ 0 2.92000+ 6 0 0 5 01274 400200934 +-2.56100- 2 3.81930- 1-1.81000- 2-1.54000- 3 4.40000- 4 1274 400200935 + 0.00000+ 0 2.94000+ 6 0 0 5 01274 400200936 +-2.96000- 3 3.98670- 1-4.00000- 4-7.40000- 4 2.10000- 4 1274 400200937 + 0.00000+ 0 2.96000+ 6 0 0 5 01274 400200938 + 3.86900- 2 3.71850- 1 3.18700- 2 7.30000- 4-2.60000- 4 1274 400200939 + 0.00000+ 0 2.98000+ 6 0 0 5 01274 400200940 + 8.13900- 2 2.02940- 1 6.41300- 2 2.26000- 3-8.30000- 4 1274 400200941 + 0.00000+ 0 3.00000+ 6 0 0 5 01274 400200942 + 2.85200- 2 3.40300- 2 2.39000- 2 5.30000- 4-3.30000- 4 1274 400200943 + 0.00000+ 0 3.02000+ 6 0 0 5 01274 400200944 +-3.55300- 2 8.07100- 2-2.43200- 2-2.14000- 3 4.30000- 4 1274 400200945 + 0.00000+ 0 3.04000+ 6 0 0 5 01274 400200946 +-5.98700- 2 1.55860- 1-4.22800- 2-4.81000- 3 7.70000- 4 1274 400200947 + 0.00000+ 0 3.08000+ 6 0 0 5 01274 400200948 +-6.94500- 2 2.11260- 1-4.86500- 2-1.01500- 2 9.60000- 4 1274 400200949 + 0.00000+ 0 3.11270+ 6 0 0 5 01274 400200950 +-6.77800- 2 2.56550- 1-4.67500- 2-1.45200- 2 9.80000- 4 1274 400200951 + 0.00000+ 0 3.18000+ 6 0 0 5 01274 400200952 +-5.97500- 2 2.98830- 1-3.94500- 2-2.35000- 2 9.70000- 4 1274 400200953 + 0.00000+ 0 3.22750+ 6 0 0 5 01274 400200954 +-5.09800- 2 3.15000- 1-3.33000- 2-2.98500- 2 9.20000- 4 1274 400200955 + 0.00000+ 0 3.30000+ 6 0 0 5 01274 400200956 +-3.46000- 2 3.40000- 1-2.31500- 2-2.86500- 2 8.10000- 4 1274 400200957 + 0.00000+ 0 3.32070+ 6 0 0 5 01274 400200958 +-2.99200- 2 3.44200- 1-2.00600- 2-2.83000- 2 7.70000- 4 1274 400200959 + 0.00000+ 0 3.35000+ 6 0 0 5 01274 400200960 +-2.32900- 2 3.51600- 1-1.56800- 2-2.78200- 2 7.10000- 4 1274 400200961 + 0.00000+ 0 3.35320+ 6 0 0 5 01274 400200962 +-2.25700- 2 3.52100- 1-1.52100- 2-2.77700- 2 7.00000- 4 1274 400200963 + 0.00000+ 0 3.40000+ 6 0 0 5 01274 400200964 +-1.20300- 2 3.63000- 1-8.22000- 3-2.04100- 2 5.90000- 4 1274 400200965 + 0.00000+ 0 3.40090+ 6 0 0 5 01274 400200966 +-1.18400- 2 3.63000- 1-8.08000- 3-2.02700- 2 5.90000- 4 1274 400200967 + 0.00000+ 0 3.45000+ 6 0 0 5 01274 400200968 +-1.25000- 3 3.75000- 1-7.50000- 4-1.25600- 2 4.50000- 4 1274 400200969 + 0.00000+ 0 3.60020+ 6 0 0 5 01274 400200970 + 3.11300- 2 3.78760- 1 1.99900- 2 1.10200- 2-4.00000- 5 1274 400200971 + 0.00000+ 0 3.75000+ 6 0 0 5 01274 400200972 + 5.88500- 2 3.48780- 1 3.77400- 2 2.78000- 2-6.20000- 4 1274 400200973 + 0.00000+ 0 3.90000+ 6 0 0 5 01274 400200974 + 5.21900- 2 3.12550- 1 5.17000- 2 3.71300- 2-1.25000- 3 1274 400200975 + 0.00000+ 0 4.00000+ 6 0 0 4 01274 400200976 + 3.41800- 2 2.86330- 1 5.04000- 2 4.16000- 2 1274 400200977 + 0.00000+ 0 4.05090+ 6 0 0 4 01274 400200978 + 1.49500- 2 2.72980- 1 4.97400- 2 4.26200- 2 1274 400200979 + 0.00000+ 0 4.13000+ 6 0 0 4 01274 400200980 + 5.00000- 2 2.52240- 1 5.50700- 2 4.34800- 2 1274 400200981 + 0.00000+ 0 4.33000+ 6 0 0 4 01274 400200982 + 4.40000- 1 2.12440- 1 7.97600- 2 4.26800- 2 1274 400200983 + 0.00000+ 0 4.34000+ 6 0 0 4 01274 400200984 + 4.50000- 1 2.10520- 1 8.06800- 2 4.26400- 2 1274 400200985 + 0.00000+ 0 4.36000+ 6 0 0 4 01274 400200986 + 4.50000- 1 2.06680- 1 8.25200- 2 4.25600- 2 1274 400200987 + 0.00000+ 0 4.50000+ 6 0 0 4 01274 400200988 + 3.77000- 1 1.84500- 1 9.54000- 2 4.20000- 2 1274 400200989 + 0.00000+ 0 4.60000+ 6 0 0 4 01274 400200990 + 3.43500- 1 1.70000- 1 1.02330- 1 4.16000- 2 1274 400200991 + 0.00000+ 0 4.70000+ 6 0 0 4 01274 400200992 + 3.10000- 1 1.58600- 1 1.07000- 1 4.12000- 2 1274 400200993 + 0.00000+ 0 5.00000+ 6 0 0 5 01274 400200994 + 2.46000- 1 1.24400- 1 1.08000- 1 4.00000- 2-3.00000- 3 1274 400200995 + 0.00000+ 0 5.20000+ 6 0 0 5 01274 400200996 + 2.35000- 1 1.06300- 1 9.20000- 2 3.71600- 2-5.67000- 3 1274 400200997 + 0.00000+ 0 5.25000+ 6 0 0 5 01274 400200998 + 2.34000- 1 1.02950- 1 7.70000- 2 3.64500- 2-6.50000- 3 1274 400200999 + 0.00000+ 0 5.28500+ 6 0 0 5 01274 400201000 + 2.39600- 1 1.00600- 1 5.00000- 2 3.59500- 2-7.08000- 3 1274 400201001 + 0.00000+ 0 5.30000+ 6 0 0 5 01274 400201002 + 2.42000- 1 1.00000- 1 4.70000- 2 3.57400- 2-7.33000- 3 1274 400201003 + 0.00000+ 0 5.32000+ 6 0 0 5 01274 400201004 + 2.93200- 1 1.04000- 1 4.63300- 2 3.54500- 2-7.67000- 3 1274 400201005 + 0.00000+ 0 5.32500+ 6 0 0 5 01274 400201006 + 3.06000- 1 1.17000- 1 4.70000- 2 3.53800- 2-7.75000- 3 1274 400201007 + 0.00000+ 0 5.35000+ 6 0 0 5 01274 400201008 + 3.70000- 1 1.82000- 1 8.01300- 2 3.47200- 2-8.17000- 3 1274 400201009 + 0.00000+ 0 5.36000+ 6 0 0 5 01274 400201010 + 3.81000- 1 1.84670- 1 9.33800- 2 3.44500- 2-8.33000- 3 1274 400201011 + 0.00000+ 0 5.36500+ 6 0 0 5 01274 400201012 + 3.80500- 1 1.86000- 1 1.00000- 1 3.43200- 2-8.42000- 3 1274 400201013 + 0.00000+ 0 5.38000+ 6 0 0 5 01274 400201014 + 3.79000- 1 1.90000- 1 1.09430- 1 3.39200- 2-8.67000- 3 1274 400201015 + 0.00000+ 0 5.40000+ 6 0 0 5 01274 400201016 + 3.19500- 1 1.88310- 1 1.22000- 1 3.33900- 2-9.00000- 3 1274 400201017 + 0.00000+ 0 5.42000+ 6 0 0 5 01274 400201018 + 2.60000- 1 1.86630- 1 1.26800- 1 3.28600- 2-9.60000- 3 1274 400201019 + 0.00000+ 0 5.47000+ 6 0 0 5 01274 400201020 + 2.25000- 1 1.82410- 1 1.36400- 1 3.15300- 2-1.11000- 2 1274 400201021 + 0.00000+ 0 5.50000+ 6 0 0 5 01274 400201022 + 2.18620- 1 1.79870- 1 1.40000- 1 3.07300- 2-1.20000- 2 1274 400201023 + 0.00000+ 0 5.55000+ 6 0 0 5 01274 400201024 + 2.08000- 1 1.75660- 1 1.40250- 1 2.94000- 2-1.35000- 2 1274 400201025 + 0.00000+ 0 5.70000+ 6 0 0 5 01274 400201026 + 1.94330- 1 1.63000- 1 1.41000- 1 2.46000- 2-1.80000- 2 1274 400201027 + 0.00000+ 0 5.95000+ 6 0 0 5 01274 400201028 + 1.71560- 1 1.61500- 1 1.44000- 1 1.66000- 2-2.80000- 2 1274 400201029 + 0.00000+ 0 6.05000+ 6 0 0 5 01274 400201030 + 1.63000- 1 1.63000- 1 1.60000- 1 1.40000- 2-3.29400- 2 1274 400201031 + 0.00000+ 0 6.10000+ 6 0 0 6 01274 400201032 + 1.55000- 1 1.67000- 1 1.79000- 1 1.30000- 2-3.58800- 2 2.00000- 31274 400201033 + 0.00000+ 0 6.15000+ 6 0 0 6 01274 400201034 + 1.36920- 1 1.71000- 1 1.98000- 1 1.40000- 2-3.88200- 2 7.00000- 31274 400201035 + 0.00000+ 0 6.18500+ 6 0 0 6 01274 400201036 + 1.24270- 1 1.79310- 1 2.16410- 1 1.60000- 2-4.00000- 2 1.31300- 21274 400201037 + 0.00000+ 0 6.20000+ 6 0 0 6 01274 400201038 + 1.18850- 1 1.82870- 1 2.24300- 1 2.08000- 2-4.00000- 2 1.70000- 21274 400201039 + 0.00000+ 0 6.21000+ 6 0 0 6 01274 400201040 + 1.15230- 1 1.85250- 1 2.29560- 1 2.40000- 2-3.84000- 2 2.00000- 21274 400201041 + 0.00000+ 0 6.22500+ 6 0 0 6 01274 400201042 + 1.09810- 1 1.88810- 1 2.37440- 1 4.68000- 2-3.60000- 2 2.45000- 21274 400201043 + 0.00000+ 0 6.23000+ 6 0 0 6 01274 400201044 + 1.08000- 1 1.90000- 1 2.40070- 1 5.44000- 2-2.97000- 2 2.60000- 21274 400201045 + 0.00000+ 0 6.25000+ 6 0 0 6 01274 400201046 + 1.06000- 1 2.05000- 1 2.50590- 1 8.48000- 2-4.50000- 3 3.20000- 21274 400201047 + 0.00000+ 0 6.26000+ 6 0 0 6 01274 400201048 + 1.12000- 1 2.12500- 1 2.55850- 1 1.00000- 1 8.10000- 3 3.28000- 21274 400201049 + 0.00000+ 0 6.27500+ 6 0 0 6 01274 400201050 + 1.49200- 1 2.26500- 1 2.63740- 1 1.22800- 1 2.70000- 2 3.40000- 21274 400201051 + 0.00000+ 0 6.28500+ 6 0 0 6 01274 400201052 + 1.74000- 1 2.39500- 1 2.69000- 1 1.38000- 1 3.96000- 2 3.32000- 21274 400201053 + 0.00000+ 0 6.30000+ 6 0 0 6 01274 400201054 + 2.11200- 1 2.59000- 1 2.68000- 1 1.60800- 1 5.85000- 2 3.20000- 21274 400201055 + 0.00000+ 0 6.31000+ 6 0 0 6 01274 400201056 + 2.36000- 1 2.72000- 1 2.67340- 1 1.76000- 1 7.11000- 2 2.98000- 21274 400201057 + 0.00000+ 0 6.32000+ 6 0 0 6 01274 400201058 + 2.60800- 1 2.85000- 1 2.66670- 1 1.82000- 1 8.37000- 2 2.76000- 21274 400201059 + 0.00000+ 0 6.32500+ 6 0 0 6 01274 400201060 + 2.73200- 1 2.87000- 1 2.65000- 1 1.82000- 1 9.00000- 2 2.65000- 21274 400201061 + 0.00000+ 0 6.34000+ 6 0 0 6 01274 400201062 + 3.10400- 1 2.93000- 1 2.35000- 1 1.82000- 1 9.20000- 2 2.32000- 21274 400201063 + 0.00000+ 0 6.35000+ 6 0 0 6 01274 400201064 + 3.35200- 1 2.91000- 1 2.15000- 1 1.82000- 1 9.00000- 2 2.10000- 21274 400201065 + 0.00000+ 0 6.36000+ 6 0 0 6 01274 400201066 + 3.60000- 1 2.89000- 1 2.07200- 1 1.78000- 1 8.35000- 2 1.88000- 21274 400201067 + 0.00000+ 0 6.39000+ 6 0 0 6 01274 400201068 + 3.62610- 1 2.83000- 1 1.83800- 1 1.55710- 1 6.40000- 2 1.22000- 21274 400201069 + 0.00000+ 0 6.40000+ 6 0 0 6 01274 400201070 + 3.63480- 1 2.76750- 1 1.76000- 1 1.47590- 1 6.13600- 2 1.00000- 21274 400201071 + 0.00000+ 0 6.43000+ 6 0 0 6 01274 400201072 + 3.66090- 1 2.58000- 1 1.71000- 1 1.23240- 1 5.34500- 2 3.40000- 31274 400201073 + 0.00000+ 0 6.45000+ 6 0 0 6 01274 400201074 + 3.67830- 1 2.56670- 1 1.71500- 1 1.07000- 1 4.81800- 2-1.00000- 31274 400201075 + 0.00000+ 0 6.46000+ 6 0 0 6 01274 400201076 + 3.68000- 1 2.56000- 1 1.71750- 1 1.06500- 1 4.55500- 2-2.00000- 31274 400201077 + 0.00000+ 0 6.47000+ 6 0 0 6 01274 400201078 + 3.88500- 1 2.68500- 1 1.72000- 1 1.06000- 1 4.29100- 2-3.00000- 31274 400201079 + 0.00000+ 0 6.48000+ 6 0 0 6 01274 400201080 + 4.09000- 1 2.81000- 1 1.78060- 1 1.05500- 1 4.02700- 2-4.00000- 31274 400201081 + 0.00000+ 0 6.49000+ 6 0 0 6 01274 400201082 + 4.29500- 1 2.93500- 1 1.84130- 1 1.06000- 1 3.76400- 2-4.33000- 31274 400201083 + 0.00000+ 0 6.50000+ 6 0 0 6 01274 400201084 + 4.50000- 1 3.06000- 1 1.90190- 1 1.11500- 1 3.50000- 2-4.67000- 31274 400201085 + 0.00000+ 0 6.53000+ 6 0 0 6 01274 400201086 + 4.51500- 1 3.10000- 1 2.10750- 1 1.28000- 1 2.96000- 2-4.33000- 31274 400201087 + 0.00000+ 0 6.54000+ 6 0 0 6 01274 400201088 + 4.52000- 1 3.09000- 1 2.18000- 1 1.29000- 1 2.78000- 2-4.00000- 31274 400201089 + 0.00000+ 0 6.55000+ 6 0 0 6 01274 400201090 + 4.50000- 1 2.85830- 1 2.18670- 1 1.30000- 1 2.60000- 2-2.50000- 31274 400201091 + 0.00000+ 0 6.57000+ 6 0 0 6 01274 400201092 + 3.90000- 1 2.39500- 1 2.20000- 1 1.28000- 1 2.24000- 2 5.00000- 41274 400201093 + 0.00000+ 0 6.60000+ 6 0 0 6 01274 400201094 + 3.00000- 1 1.70000- 1 1.95000- 1 1.16750- 1 1.70000- 2 5.00000- 31274 400201095 + 0.00000+ 0 6.61000+ 6 0 0 6 01274 400201096 + 2.70000- 1 1.60000- 1 1.89800- 1 1.13000- 1 1.56000- 2 6.00000- 31274 400201097 + 0.00000+ 0 6.62000+ 6 0 0 6 01274 400201098 + 2.62570- 1 1.50000- 1 1.84600- 1 1.09250- 1 1.42000- 2 7.00000- 31274 400201099 + 0.00000+ 0 6.65000+ 6 0 0 6 01274 400201100 + 2.40290- 1 1.20000- 1 1.69000- 1 9.80000- 2 1.00000- 2 5.00000- 31274 400201101 + 0.00000+ 0 6.68000+ 6 0 0 6 01274 400201102 + 2.18000- 1 1.05000- 1 1.53400- 1 8.90000- 2 5.80000- 3 3.20000- 31274 400201103 + 0.00000+ 0 6.70000+ 6 0 0 6 01274 400201104 + 2.13800- 1 9.50000- 2 1.43000- 1 8.30000- 2 3.00000- 3 2.00000- 31274 400201105 + 0.00000+ 0 6.73000+ 6 0 0 6 01274 400201106 + 2.07510- 1 8.00000- 2 1.35800- 1 7.40000- 2-3.00000- 4 1.14000- 31274 400201107 + 0.00000+ 0 6.80000+ 6 0 0 5 01274 400201108 + 1.99870- 1 6.48300- 2 1.19000- 1 5.70000- 2-8.00000- 3 1274 400201109 + 0.00000+ 0 6.85000+ 6 0 0 5 01274 400201110 + 1.96440- 1 5.40000- 2 1.10000- 1 4.60000- 2-1.20000- 2 1274 400201111 + 0.00000+ 0 6.95000+ 6 0 0 5 01274 400201112 + 1.95860- 1 4.50000- 2 8.70000- 2 3.10000- 2-1.40000- 2 1274 400201113 + 0.00000+ 0 6.97000+ 6 0 0 5 01274 400201114 + 1.97000- 1 4.42000- 2 8.14000- 2 2.86000- 2-1.42000- 2 1274 400201115 + 0.00000+ 0 7.00000+ 6 0 0 5 01274 400201116 + 2.06750- 1 4.30000- 2 7.30000- 2 2.50000- 2-1.30000- 2 1274 400201117 + 0.00000+ 0 7.05000+ 6 0 0 5 01274 400201118 + 2.23000- 1 4.50000- 2 5.75000- 2 2.10000- 2-1.00000- 2 1274 400201119 + 0.00000+ 0 7.11000+ 6 0 0 5 01274 400201120 + 2.64000- 1 5.68000- 2 4.03300- 2 1.90000- 2-5.20000- 3 1274 400201121 + 0.00000+ 0 7.13000+ 6 0 0 5 01274 400201122 + 2.90000- 1 6.44000- 2 3.70000- 2 1.90000- 2-3.60000- 3 1274 400201123 + 0.00000+ 0 7.15000+ 6 0 0 5 01274 400201124 + 3.16000- 1 7.20000- 2 3.70000- 2 1.90000- 2-2.00000- 3 1274 400201125 + 0.00000+ 0 7.16000+ 6 0 0 5 01274 400201126 + 3.29000- 1 8.56000- 2 3.70000- 2 1.94000- 2-1.05000- 3 1274 400201127 + 0.00000+ 0 7.17000+ 6 0 0 5 01274 400201128 + 3.42000- 1 9.92000- 2 3.95000- 2 1.98000- 2-1.00000- 4 1274 400201129 + 0.00000+ 0 7.20000+ 6 0 0 5 01274 400201130 + 4.09850- 1 1.40000- 1 4.70000- 2 2.10000- 2 2.75000- 3 1274 400201131 + 0.00000+ 0 7.25000+ 6 0 0 5 01274 400201132 + 5.22920- 1 2.26670- 1 7.00000- 2 2.30000- 2 7.50000- 3 1274 400201133 + 0.00000+ 0 7.30000+ 6 0 0 5 01274 400201134 + 6.36000- 1 3.13330- 1 1.01500- 1 2.60000- 2 1.22500- 2 1274 400201135 + 0.00000+ 0 7.32500+ 6 0 0 5 01274 400201136 + 6.45000- 1 3.56670- 1 1.17250- 1 2.75000- 2 1.46300- 2 1274 400201137 + 0.00000+ 0 7.35000+ 6 0 0 5 01274 400201138 + 6.37000- 1 3.95000- 1 1.33000- 1 2.90000- 2 1.70000- 2 1274 400201139 + 0.00000+ 0 7.39000+ 6 0 0 5 01274 400201140 + 5.14330- 1 4.30000- 1 1.53800- 1 3.30000- 2 2.02000- 2 1274 400201141 + 0.00000+ 0 7.40000+ 6 0 0 5 01274 400201142 + 4.83670- 1 4.30000- 1 1.59000- 1 3.40000- 2 2.10000- 2 1274 400201143 + 0.00000+ 0 7.44000+ 6 0 0 5 01274 400201144 + 3.61000- 1 4.40000- 1 1.74200- 1 3.80000- 2 2.18000- 2 1274 400201145 + 0.00000+ 0 7.45000+ 6 0 0 5 01274 400201146 + 3.53670- 1 4.42000- 1 1.78000- 1 3.90000- 2 2.20000- 2 1274 400201147 + 0.00000+ 0 7.50000+ 6 0 0 6 01274 400201148 + 3.17000- 1 4.38000- 1 1.91500- 1 4.80000- 2 2.20000- 2 5.70000- 41274 400201149 + 0.00000+ 0 7.55000+ 6 0 0 6 01274 400201150 + 2.98000- 1 4.18000- 1 2.05000- 1 6.91800- 2 2.20000- 2 2.00000- 31274 400201151 + 0.00000+ 0 7.58000+ 6 0 0 6 01274 400201152 + 2.86600- 1 4.05000- 1 2.10140- 1 8.18800- 2 2.26000- 2 5.30000- 31274 400201153 + 0.00000+ 0 7.60000+ 6 0 0 6 01274 400201154 + 2.79000- 1 4.05860- 1 2.13570- 1 9.03500- 2 2.30000- 2 7.50000- 31274 400201155 + 0.00000+ 0 7.63500+ 6 0 0 6 01274 400201156 + 2.72200- 1 4.07370- 1 2.19570- 1 1.05180- 1 3.00000- 2 1.13500- 21274 400201157 + 0.00000+ 0 7.67000+ 6 0 0 6 01274 400201158 + 2.68000- 1 4.19560- 1 2.25570- 1 1.20000- 1 4.58300- 2 1.36700- 21274 400201159 + 0.00000+ 0 7.70000+ 6 0 0 6 01274 400201160 + 2.70100- 1 4.30000- 1 2.30710- 1 1.24800- 1 5.93900- 2 1.35000- 21274 400201161 + 0.00000+ 0 7.74000+ 6 0 0 6 01274 400201162 + 2.75000- 1 4.75200- 1 2.37570- 1 1.29250- 1 7.74800- 2 1.06900- 21274 400201163 + 0.00000+ 0 7.75000+ 6 0 0 6 01274 400201164 + 2.81250- 1 4.86500- 1 2.39290- 1 1.29880- 1 8.20000- 2 9.54000- 31274 400201165 + 0.00000+ 0 7.77000+ 6 0 0 6 01274 400201166 + 2.93750- 1 5.09100- 1 2.42710- 1 1.31120- 1 8.60000- 2 7.23000- 31274 400201167 + 0.00000+ 0 7.78000+ 6 0 0 6 01274 400201168 + 3.00000- 1 5.20400- 1 2.44430- 1 1.31750- 1 8.60000- 2 6.08000- 31274 400201169 + 0.00000+ 0 7.79000+ 6 0 0 6 01274 400201170 + 3.20910- 1 5.31700- 1 2.46140- 1 1.32380- 1 8.60000- 2 4.92000- 31274 400201171 + 0.00000+ 0 7.80000+ 6 0 0 6 01274 400201172 + 3.41820- 1 5.43000- 1 2.47860- 1 1.33000- 1 8.40000- 2 3.77000- 31274 400201173 + 0.00000+ 0 7.81000+ 6 0 0 6 01274 400201174 + 3.62730- 1 5.47670- 1 2.49570- 1 1.33070- 1 8.20000- 2 2.62000- 31274 400201175 + 0.00000+ 0 7.83000+ 6 0 0 6 01274 400201176 + 4.04550- 1 5.57000- 1 2.53000- 1 1.33200- 1 7.43300- 2 3.10000- 41274 400201177 + 0.00000+ 0 7.85000+ 6 0 0 6 01274 400201178 + 4.46360- 1 5.54330- 1 2.56430- 1 1.33330- 1 6.66700- 2-2.00000- 31274 400201179 + 0.00000+ 0 7.89000+ 6 0 0 6 01274 400201180 + 5.30000- 1 5.49000- 1 2.63290- 1 1.33600- 1 5.13300- 2-5.20000- 31274 400201181 + 0.00000+ 0 7.90000+ 6 0 0 6 01274 400201182 + 5.38950- 1 5.45600- 1 2.65000- 1 1.33670- 1 4.75000- 2-6.00000- 31274 400201183 + 0.00000+ 0 7.93000+ 6 0 0 6 01274 400201184 + 5.65780- 1 5.35400- 1 2.75750- 1 1.33870- 1 3.60000- 2-7.00000- 31274 400201185 + 0.00000+ 0 7.95000+ 6 0 0 6 01274 400201186 + 5.71730- 1 5.20000- 1 2.82910- 1 1.34000- 1 3.20000- 2-7.00000- 31274 400201187 + 0.00000+ 0 7.96000+ 6 0 0 6 01274 400201188 + 5.74710- 1 5.15000- 1 2.86500- 1 1.35200- 1 3.20000- 2-7.00000- 31274 400201189 + 0.00000+ 0 7.97000+ 6 0 0 6 01274 400201190 + 5.77680- 1 5.13000- 1 2.90080- 1 1.36400- 1 3.20000- 2-6.00000- 31274 400201191 + 0.00000+ 0 8.00000+ 6 0 0 6 01274 400201192 + 5.86610- 1 5.12000- 1 3.00830- 1 1.40000- 1 3.60000- 2-3.00000- 31274 400201193 + 0.00000+ 0 8.04000+ 6 0 0 6 01274 400201194 + 5.98510- 1 5.19620- 1 3.15160- 1 1.48000- 1 4.83100- 2 1.00000- 31274 400201195 + 0.00000+ 0 8.06000+ 6 0 0 6 01274 400201196 + 6.04460- 1 5.19000- 1 3.22320- 1 1.61000- 1 5.44600- 2 3.00000- 31274 400201197 + 0.00000+ 0 8.09000+ 6 0 0 6 01274 400201198 + 6.13390- 1 5.22640- 1 3.33070- 1 1.80500- 1 6.36900- 2 6.00000- 31274 400201199 + 0.00000+ 0 8.12000+ 6 0 0 6 01274 400201200 + 6.22310- 1 5.26290- 1 3.43820- 1 2.00000- 1 7.29200- 2 7.00000- 31274 400201201 + 0.00000+ 0 8.13000+ 6 0 0 6 01274 400201202 + 6.25290- 1 5.27500- 1 3.47400- 1 2.03600- 1 7.60000- 2 7.33000- 31274 400201203 + 0.00000+ 0 8.15000+ 6 0 0 6 01274 400201204 + 6.33720- 1 5.29930- 1 3.52600- 1 2.10800- 1 8.00000- 2 8.00000- 31274 400201205 + 0.00000+ 0 8.16000+ 6 0 0 6 01274 400201206 + 6.37930- 1 5.31140- 1 3.55200- 1 2.14400- 1 8.20000- 2 8.00000- 31274 400201207 + 0.00000+ 0 8.17000+ 6 0 0 6 01274 400201208 + 6.42150- 1 5.32360- 1 3.57800- 1 2.18000- 1 8.20000- 2 8.00000- 31274 400201209 + 0.00000+ 0 8.19000+ 6 0 0 6 01274 400201210 + 6.50570- 1 5.34790- 1 3.63000- 1 2.18000- 1 8.20000- 2 8.00000- 31274 400201211 + 0.00000+ 0 8.20000+ 6 0 0 6 01274 400201212 + 6.54790- 1 5.36000- 1 3.61220- 1 2.18000- 1 8.00000- 2 8.00000- 31274 400201213 + 0.00000+ 0 8.21000+ 6 0 0 6 01274 400201214 + 6.59000- 1 5.33000- 1 3.59440- 1 2.18000- 1 7.80000- 2 8.00000- 31274 400201215 + 0.00000+ 0 8.22000+ 6 0 0 6 01274 400201216 + 6.57000- 1 5.30000- 1 3.57670- 1 2.18000- 1 7.60000- 2 8.00000- 31274 400201217 + 0.00000+ 0 8.25000+ 6 0 0 6 01274 400201218 + 6.51000- 1 5.00000- 1 3.52330- 1 2.06670- 1 6.62500- 2 7.33000- 31274 400201219 + 0.00000+ 0 8.30000+ 6 0 0 6 01274 400201220 + 6.04080- 1 4.70000- 1 3.42220- 1 1.87780- 1 5.00000- 2 6.22000- 31274 400201221 + 0.00000+ 0 8.31500+ 6 0 0 6 01274 400201222 + 5.90000- 1 4.61000- 1 3.39190- 1 1.82110- 1 4.70000- 2 5.89000- 31274 400201223 + 0.00000+ 0 8.35000+ 6 0 0 6 01274 400201224 + 5.67440- 1 4.40000- 1 3.32110- 1 1.68890- 1 4.00000- 2 5.11000- 31274 400201225 + 0.00000+ 0 8.40000+ 6 0 0 6 01274 400201226 + 5.35210- 1 4.23500- 1 3.22000- 1 1.50000- 1 3.50000- 2 4.00000- 31274 400201227 + 0.00000+ 0 8.45000+ 6 0 0 6 01274 400201228 + 5.03330- 1 4.07000- 1 3.18720- 1 1.41000- 1 3.00000- 2 4.00000- 31274 400201229 + 0.00000+ 0 8.50000+ 6 0 0 6 01274 400201230 + 4.78100- 1 3.92670- 1 3.15430- 1 1.32000- 1 2.63300- 2 7.33000- 31274 400201231 + 0.00000+ 0 8.60000+ 6 0 0 6 01274 400201232 + 4.27640- 1 3.64000- 1 3.08870- 1 1.17170- 1 1.90000- 2 1.40000- 21274 400201233 + 0.00000+ 0 8.69310+ 6 0 0 6 01274 400201234 + 3.80660- 1 3.37310- 1 3.02750- 1 1.03360- 1 1.43200- 2 1.67100- 21274 400201235 + 0.00000+ 0 8.70530+ 6 0 0 6 01274 400201236 + 3.74500- 1 3.33810- 1 3.01950- 1 1.01550- 1 1.37100- 2 1.64800- 21274 400201237 + 0.00000+ 0 8.83870+ 6 0 0 6 01274 400201238 + 3.07180- 1 2.95570- 1 2.71170- 1 8.17600- 2 7.01000- 3 1.39800- 21274 400201239 + 0.00000+ 0 8.90250+ 6 0 0 6 01274 400201240 + 2.74990- 1 2.77280- 1 2.56450- 1 7.23000- 2 3.80000- 3 1.14500- 21274 400201241 + 0.00000+ 0 8.95450+ 6 0 0 6 01274 400201242 + 2.48750- 1 2.62380- 1 2.58180- 1 6.45900- 2 1.19000- 3 9.39000- 31274 400201243 + 0.00000+ 0 8.99070+ 6 0 0 6 01274 400201244 + 2.44500- 1 2.52000- 1 2.59380- 1 5.92200- 2-6.30000- 4 7.96000- 31274 400201245 + 0.00000+ 0 9.08000+ 6 0 0 6 01274 400201246 + 2.34000- 1 2.60840- 1 2.62350- 1 4.59700- 2-5.12000- 3 4.42000- 31274 400201247 + 0.00000+ 0 9.10080+ 6 0 0 6 01274 400201248 + 2.31560- 1 2.62900- 1 2.63040- 1 4.28900- 2-6.16000- 3 4.12000- 31274 400201249 + 0.00000+ 0 9.11480+ 6 0 0 6 01274 400201250 + 2.34810- 1 2.64280- 1 2.63510- 1 4.08100- 2-6.86000- 3 3.91000- 31274 400201251 + 0.00000+ 0 9.17550+ 6 0 0 6 01274 400201252 + 2.48890- 1 2.70290- 1 2.65530- 1 4.54500- 2-9.91000- 3 3.02000- 31274 400201253 + 0.00000+ 0 9.98700+ 6 0 0 6 01274 400201254 + 4.37140- 1 3.50610- 1 2.92500- 1 1.07450- 1-1.46000- 3-8.87000- 31274 400201255 + 0.00000+ 0 1.00080+ 7 0 0 6 01274 400201256 + 4.42010- 1 3.52690- 1 2.93200- 1 1.09050- 1-7.90000- 4-9.18000- 31274 400201257 + 0.00000+ 0 1.01310+ 7 0 0 6 01274 400201258 + 4.70540- 1 3.64860- 1 2.97290- 1 1.18450- 1 3.17000- 3-8.06000- 31274 400201259 + 0.00000+ 0 1.03780+ 7 0 0 6 01274 400201260 + 5.27840- 1 3.89310- 1 3.05500- 1 1.20600- 1 1.11200- 2-5.81000- 31274 400201261 + 0.00000+ 0 1.05710+ 7 0 0 6 01274 400201262 + 5.37450- 1 4.08410- 1 3.11920- 1 1.22280- 1 1.73300- 2-4.06000- 31274 400201263 + 0.00000+ 0 1.09430+ 7 0 0 6 01274 400201264 + 5.55980- 1 4.45230- 1 3.12400- 1 1.25520- 1 2.93100- 2-6.70000- 41274 400201265 + 0.00000+ 0 1.09640+ 7 0 0 6 01274 400201266 + 5.57020- 1 4.47310- 1 3.12420- 1 1.25700- 1 2.93700- 2-4.80000- 41274 400201267 + 0.00000+ 0 1.13730+ 7 0 0 6 01274 400201268 + 5.77390- 1 4.39970- 1 3.12950- 1 1.29260- 1 3.05400- 2 3.24000- 31274 400201269 + 0.00000+ 0 1.31000+ 7 0 0 6 01274 400201270 + 5.56690- 1 4.08990- 1 3.15160- 1 1.45430- 1 3.61200- 2 1.89500- 21274 400201271 + 0.00000+ 0 1.50000+ 7 0 0 6 01274 400201272 + 5.33910- 1 3.91260- 1 3.17590- 1 1.83700- 1 6.48100- 2 2.72500- 21274 400201273 + 0.00000+ 0 2.00000+ 7 0 0 6 01274 400201274 + 5.33910- 1 3.91260- 1 3.17590- 1 1.83700- 1 6.48100- 2 2.72500- 21274 400201275 + 1274 400001276 + 6.01200+ 3 1.18969+ 1 0 1 0 01274 405101277 + 0.00000+ 0 1.18970+ 1 0 2 0 01274 405101278 + 0.00000+ 0 0.00000+ 0 0 0 1 731274 405101279 + 73 2 1274 405101280 + 0.00000+ 0 4.80000+ 6 0 0 1 01274 405101281 + 0.00000+ 0 1274 405101282 + 0.00000+ 0 5.25000+ 6 0 0 2 01274 405101283 + 1.50000- 2 2.00000- 3 1274 405101284 + 0.00000+ 0 5.37000+ 6 0 0 2 01274 405101285 + 3.35000- 2 1.20000- 2 1274 405101286 + 0.00000+ 0 5.47000+ 6 0 0 2 01274 405101287 + 8.25000- 2 4.10000- 2 1274 405101288 + 0.00000+ 0 5.59000+ 6 0 0 2 01274 405101289 + 1.41000- 1 2.28400- 2 1274 405101290 + 0.00000+ 0 5.67000+ 6 0 0 2 01274 405101291 + 1.50000- 1 7.68000- 3 1274 405101292 + 0.00000+ 0 5.73000+ 6 0 0 2 01274 405101293 + 1.41000- 1-2.00000- 3 1274 405101294 + 0.00000+ 0 5.83000+ 6 0 0 1 01274 405101295 + 1.09240- 1 1274 405101296 + 0.00000+ 0 5.90000+ 6 0 0 2 01274 405101297 + 8.70000- 2 1.00000- 2 1274 405101298 + 0.00000+ 0 6.04000+ 6 0 0 2 01274 405101299 + 7.60000- 2 5.26000- 2 1274 405101300 + 0.00000+ 0 6.10000+ 6 0 0 2 01274 405101301 + 8.80000- 2 7.45000- 2 1274 405101302 + 0.00000+ 0 6.22000+ 6 0 0 3 01274 405101303 + 1.48000- 1 1.15670- 1-5.50000- 3 1274 405101304 + 0.00000+ 0 6.24000+ 6 0 0 3 01274 405101305 + 1.44000- 1 1.18000- 1-8.00000- 3 1274 405101306 + 0.00000+ 0 6.26000+ 6 0 0 3 01274 405101307 + 6.08000- 2 1.12000- 1-1.55600- 2 1274 405101308 + 0.00000+ 0 6.29000+ 6 0 0 3 01274 405101309 +-6.40000- 2 7.67500- 2-2.68900- 2 1274 405101310 + 0.00000+ 0 6.33000+ 6 0 0 4 01274 405101311 +-6.10000- 2 2.97500- 2-4.20000- 2-1.00000- 3 1274 405101312 + 0.00000+ 0 6.34000+ 6 0 0 4 01274 405101313 +-5.40000- 2 1.80000- 2-4.30000- 2-1.33000- 3 1274 405101314 + 0.00000+ 0 6.37000+ 6 0 0 4 01274 405101315 +-3.30000- 2 1.70000- 2-4.20000- 2-3.63000- 3 1274 405101316 + 0.00000+ 0 6.38000+ 6 0 0 4 01274 405101317 +-2.60000- 2 1.80000- 2-3.10000- 2-5.26000- 3 1274 405101318 + 0.00000+ 0 6.40000+ 6 0 0 4 01274 405101319 +-1.20000- 2 3.91400- 2-9.00000- 3-8.53000- 3 1274 405101320 + 0.00000+ 0 6.45000+ 6 0 0 4 01274 405101321 + 2.30000- 2 9.20000- 2-4.00000- 3-1.66800- 2 1274 405101322 + 0.00000+ 0 6.48000+ 6 0 0 4 01274 405101323 + 4.40000- 2 9.70000- 2-5.43000- 3-2.15800- 2 1274 405101324 + 0.00000+ 0 6.54000+ 6 0 0 4 01274 405101325 + 7.60000- 2 8.24300- 2-1.06500- 2-3.13700- 2 1274 405101326 + 0.00000+ 0 6.57500+ 6 0 0 4 01274 405101327 + 7.20000- 2 7.65000- 2-1.37000- 2-3.46700- 2 1274 405101328 + 0.00000+ 0 6.68000+ 6 0 0 4 01274 405101329 +-1.60000- 2 6.65400- 2-1.60000- 2-3.42900- 2 1274 405101330 + 0.00000+ 0 6.73000+ 6 0 0 4 01274 405101331 +-1.80000- 2 6.45200- 2-1.50000- 2-3.53600- 2 1274 405101332 + 0.00000+ 0 6.83000+ 6 0 0 4 01274 405101333 +-4.80000- 3 6.49200- 2-7.94000- 3-4.90000- 2 1274 405101334 + 0.00000+ 0 6.93000+ 6 0 0 4 01274 405101335 + 0.00000+ 0 6.80000- 2-2.00000- 3-4.35000- 2 1274 405101336 + 0.00000+ 0 6.98000+ 6 0 0 4 01274 405101337 +-1.50000- 3 6.80000- 2-7.48000- 3-4.07500- 2 1274 405101338 + 0.00000+ 0 7.03000+ 6 0 0 4 01274 405101339 +-4.00000- 3 5.93300- 2-1.86700- 2-3.80000- 2 1274 405101340 + 0.00000+ 0 7.08000+ 6 0 0 4 01274 405101341 + 6.00000- 3 3.60000- 2-2.98600- 2-3.90000- 2 1274 405101342 + 0.00000+ 0 7.11000+ 6 0 0 4 01274 405101343 + 2.40000- 2 2.20000- 2-3.65700- 2-3.96000- 2 1274 405101344 + 0.00000+ 0 7.13000+ 6 0 0 4 01274 405101345 + 3.60000- 2 2.00000- 2-4.10500- 2-4.00000- 2 1274 405101346 + 0.00000+ 0 7.16000+ 6 0 0 4 01274 405101347 + 4.40000- 2 2.06700- 2-4.77600- 2-3.25000- 2 1274 405101348 + 0.00000+ 0 7.22000+ 6 0 0 4 01274 405101349 + 3.16000- 2 2.20000- 2-5.40000- 2-1.75000- 2 1274 405101350 + 0.00000+ 0 7.25000+ 6 0 0 4 01274 405101351 + 6.40000- 3 7.23000- 3-5.24000- 2-1.00000- 2 1274 405101352 + 0.00000+ 0 7.28000+ 6 0 0 4 01274 405101353 +-1.88000- 2-7.54000- 3-5.00000- 2-6.25000- 3 1274 405101354 + 0.00000+ 0 7.31000+ 6 0 0 4 01274 405101355 +-4.40000- 2-2.23100- 2-4.28000- 2-2.50000- 3 1274 405101356 + 0.00000+ 0 7.33000+ 6 0 0 3 01274 405101357 +-4.38300- 2-3.21500- 2-3.80000- 2 1274 405101358 + 0.00000+ 0 7.41500+ 6 0 0 3 01274 405101359 +-4.31300- 2-7.40000- 2-1.76000- 2 1274 405101360 + 0.00000+ 0 7.43000+ 6 0 0 3 01274 405101361 +-4.30000- 2-7.48600- 2-1.40000- 2 1274 405101362 + 0.00000+ 0 7.45000+ 6 0 0 3 01274 405101363 +-4.80000- 2-7.60000- 2-1.12000- 2 1274 405101364 + 0.00000+ 0 7.48000+ 6 0 0 3 01274 405101365 +-7.15000- 2-7.42000- 2-7.00000- 3 1274 405101366 + 0.00000+ 0 7.50000+ 6 0 0 3 01274 405101367 +-8.71700- 2-7.30000- 2-6.00000- 3 1274 405101368 + 0.00000+ 0 7.57000+ 6 0 0 3 01274 405101369 +-1.42000- 1-4.92800- 2-9.11000- 3 1274 405101370 + 0.00000+ 0 7.59000+ 6 0 0 3 01274 405101371 +-1.46000- 1-4.25000- 2-1.00000- 2 1274 405101372 + 0.00000+ 0 7.63500+ 6 0 0 3 01274 405101373 +-1.47250- 1-2.72500- 2-6.00000- 3 1274 405101374 + 0.00000+ 0 7.70000+ 6 0 0 4 01274 405101375 +-1.32000- 1-1.06700- 2 1.22000- 2 1.43000- 3 1274 405101376 + 0.00000+ 0 7.77000+ 6 0 0 4 01274 405101377 +-3.20000- 2-8.40000- 3 3.18000- 2 6.43000- 3 1274 405101378 + 0.00000+ 0 7.80000+ 6 0 0 4 01274 405101379 +-3.05000- 2-8.00000- 3 4.02000- 2 8.57000- 3 1274 405101380 + 0.00000+ 0 7.82000+ 6 0 0 4 01274 405101381 +-4.01400- 2 1.52000- 3 4.58000- 2 1.00000- 2 1274 405101382 + 0.00000+ 0 7.90000+ 6 0 0 4 01274 405101383 +-1.05290- 1 3.96200- 2 6.60000- 2 5.56000- 3 1274 405101384 + 0.00000+ 0 7.95000+ 6 0 0 4 01274 405101385 +-1.46000- 1 6.34300- 2 5.90000- 2 2.78000- 3 1274 405101386 + 0.00000+ 0 8.01000+ 6 0 0 4 01274 405101387 +-1.46000- 1 9.20000- 2 3.50000- 2-1.25000- 3 1274 405101388 + 0.00000+ 0 8.08000+ 6 0 0 4 01274 405101389 +-8.42400- 2 1.02270- 1 7.00000- 3-1.00000- 2 1274 405101390 + 0.00000+ 0 8.18000+ 6 0 0 5 01274 405101391 + 4.00000- 3 1.08850- 1-3.30000- 2-2.25000- 2 1.83300- 2 1274 405101392 + 0.00000+ 0 8.20000+ 6 0 0 5 01274 405101393 + 1.20000- 2 1.09420- 1-4.10000- 2-2.50000- 2 2.20000- 2 1274 405101394 + 0.00000+ 0 8.26000+ 6 0 0 5 01274 405101395 + 3.60000- 2 1.11120- 1-5.50000- 2-1.92300- 2 2.63600- 2 1274 405101396 + 0.00000+ 0 8.33000+ 6 0 0 5 01274 405101397 + 5.80000- 2 1.16000- 1-5.14000- 2-1.25000- 2 2.95500- 2 1274 405101398 + 0.00000+ 0 8.48000+ 6 0 0 5 01274 405101399 + 9.08200- 2 1.56000- 1-1.40200- 2 2.71000- 3 2.61800- 2 1274 405101400 + 0.00000+ 0 8.55000+ 6 0 0 5 01274 405101401 + 1.04000- 1 1.70000- 1 4.82000- 3 1.21900- 2 2.46100- 2 1274 405101402 + 0.00000+ 0 8.67500+ 6 0 0 5 01274 405101403 + 1.03550- 1 1.85120- 1 3.40000- 2 2.91200- 2 2.18100- 2 1274 405101404 + 0.00000+ 0 8.72810+ 6 0 0 5 01274 405101405 + 1.03360- 1 1.82410- 1 2.97400- 2 2.83900- 2 2.06100- 2 1274 405101406 + 0.00000+ 0 8.80000+ 6 0 0 5 01274 405101407 + 5.49300- 2 1.78750- 1 2.39700- 2 2.31300- 2 1.90000- 2 1274 405101408 + 0.00000+ 0 8.85000+ 6 0 0 4 01274 405101409 + 2.12600- 2 1.76200- 1 1.99600- 2 1.94700- 2 1274 405101410 + 0.00000+ 0 9.04660+ 6 0 0 4 01274 405101411 +-1.11160- 1 1.66180- 1 4.19000- 3 5.09000- 3 1274 405101412 + 0.00000+ 0 9.09210+ 6 0 0 4 01274 405101413 +-9.22300- 2 1.63860- 1 5.40000- 4 3.99000- 3 1274 405101414 + 0.00000+ 0 9.27150+ 6 0 0 4 01274 405101415 +-1.75900- 2 1.54710- 1 3.81000- 3 8.36000- 3 1274 405101416 + 0.00000+ 0 9.91120+ 6 0 0 4 01274 405101417 + 2.48540- 1 1.54330- 1 1.54500- 2 2.39300- 2 1274 405101418 + 0.00000+ 0 9.99460+ 6 0 0 4 01274 405101419 + 2.35330- 1 1.54550- 1 1.69700- 2 2.59700- 2 1274 405101420 + 0.00000+ 0 1.09490+ 7 0 0 4 01274 405101421 + 9.18700- 2 2.02380- 1 3.43400- 2 2.70900- 2 1274 405101422 + 0.00000+ 0 1.50000+ 7 0 0 4 01274 405101423 + 1.64180- 1 2.08310- 1 2.01900- 2 2.50000- 4 1274 405101424 + 0.00000+ 0 2.00000+ 7 0 0 4 01274 405101425 + 1.64180- 1 2.08310- 1 2.01900- 2 2.50000- 4 1274 405101426 + 1274 400001427 + 6.01200+ 3 1.18969+ 1 0 2 0 01274 409101428 + 0.00000+ 0 0.00000+ 0 0 1 0 01274 409101429 + 0.00000+ 0 0.00000+ 0 0 0 1 21274 409101430 + 2 2 1274 409101431 + 0.00000+ 0 8.16000+ 6 0 0 1 21274 409101432 + 2 2 1274 409101433 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1274 409101434 + 0.00000+ 0 2.00000+ 7 0 0 1 21274 409101435 + 2 2 1274 409101436 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1274 409101437 + 1274 400001438 + 1274 000001439 + 6.01200+ 3 1.18969+ 1 0 0 1 01274 509101440 + 7.92000+ 6 0.00000+ 0 0 9 1 21274 509101441 + 2 2 1274 509101442 + 8.16000+ 6 1.00000+ 0 2.00000+ 7 1.00000+ 0 1274 509101443 + 0.00000+ 0 0.00000+ 0 0 0 1 371274 509101444 + 37 2 1274 509101445 + 8.16000+ 6 7.62980+ 5 8.20000+ 6 7.65320+ 5 8.40000+ 6 7.74600+ 51274 509101446 + 8.60000+ 6 7.83760+ 5 8.80000+ 6 7.92820+ 5 9.00000+ 6 8.01780+ 51274 509101447 + 9.20000+ 6 8.10640+ 5 9.40000+ 6 8.19410+ 5 9.60000+ 6 8.28080+ 51274 509101448 + 9.80000+ 6 8.36660+ 5 1.00000+ 7 8.45150+ 5 1.02000+ 7 8.53560+ 51274 509101449 + 1.04000+ 7 8.61890+ 5 1.06000+ 7 8.70140+ 5 1.08000+ 7 8.78310+ 51274 509101450 + 1.10000+ 7 8.86410+ 5 1.12000+ 7 8.94430+ 5 1.14000+ 7 9.02380+ 51274 509101451 + 1.16000+ 7 9.10260+ 5 1.18000+ 7 9.18070+ 5 1.20000+ 7 9.25820+ 51274 509101452 + 1.22000+ 7 9.33500+ 5 1.24000+ 7 9.41120+ 5 1.26000+ 7 9.48680+ 51274 509101453 + 1.28000+ 7 9.56180+ 5 1.30000+ 7 9.63620+ 5 1.32000+ 7 9.71010+ 51274 509101454 + 1.34000+ 7 9.78340+ 5 1.36000+ 7 9.85610+ 5 1.38000+ 7 9.92830+ 51274 509101455 + 1.40000+ 7 1.00000+ 6 1.42000+ 7 1.00710+ 6 1.44000+ 7 1.01420+ 61274 509101456 + 1.46000+ 7 1.02120+ 6 1.48000+ 7 1.02820+ 6 1.50000+ 7 1.03510+ 61274 509101457 + 2.00000+ 7 1.03510+ 6 1274 509101458 + 1274 500001459 + 1274 000001460 + 0 000001879 + 9.22350+ 4 2.33025+ 2 1 1 0 821261 145100001 + 0.00000+ 0 0.00000+ 0 1 1 263 01261 145100002 + 92-U -235 LASL,AI EVAL-MAR74 L.STEWART, H.ALTER , R.HUNTER 1261 145100003 + DIST-JUL74 REV-JUN75 1261 145100004 +PRINCIPAL EVALUATORS- L.STEWART LASL, H.ALTER AI, R.HUNTER LASL 1261 145100005 + 1261 145100006 +CONTRIBUTING EVALUATORS 1261 145100007 + 1261 145100008 + NU-BAR--B.R. LEONARD BNW, L. STEWART AND RAY HUNTER LASL, 1261 145100009 + HUMMEL ANL. 1261 145100010 + F.P.YIELDS--R.SCHENTER HEDL, FISSION PROD. SUBCOMMITTEE 1261 145100011 + DELAYED NEUTRON DATA-- S.A.COX(ANL) 1261 145100012 + RADIOACTIVE DECAY DATA--C.W.REICH ANC 1261 145100013 + RESOLVED RESONANCE DATA--J.R. SMITH ANC, R. GWIN, R. PEELE, AND 1261 145100014 + G.DESAUSSURE ORNL 1261 145100015 + UNRESOLVED RESONANCE DATA-- R.PEELLE(ORNL) AND M.BHAT(BNL) 1261 145100016 + 1261 145100017 + SMOOTH DATA 1261 145100018 + 1261 145100019 + THERMAL RANGE C.LUBITZ KAPL, J.HARDY BAPL, B.R.LEONARD BNW 1261 145100020 + 82 EV -25 KEV--R.GWIN, G.DESAUSSURE ORNL, R.BLOCK RPI, 1261 145100021 + J.R. SMITH ANC 1261 145100022 + 25 KEV-1 MEV A.CARLSON NBS, W.POENITZ ANL, L.STEWART 1261 145100023 + LASL, H.ALTER 1261 145100024 + 1 MEV-20 MEV--R.HUNTER, L.STEWART LASL, H.ALTER 1261 145100025 + INELASTIC SCAT--L.STEWART, R.HUNTER LASL 1261 145100026 + SECONDARY NEUTRON DIST.--L.STEWART, R.HUNTER LASL 1261 145100027 + GAMMA PRODUCTION--R.HUNTER, L.STEWART LASL 1261 145100028 + 1261 145100029 + NO FORMAL REPORT AVAILABLE DESCRIBING THIS EVALUATION 1261 145100030 + 1261 145100031 + 1261 145100032 + 1261 145100033 + MF = 1 1261 145100034 + 1261 145100035 + MT=452 1261 145100036 + NU-BAR TOTAL 1261 145100037 + 1261 145100038 + NORMALIZED TO CF-252---SUGGESTED BY THERMAL TASK FORCE 1261 145100039 + 1261 145100040 + 1261 145100041 + MT=453 1261 145100042 + INDUCED REACTION BRANCHING RATIOS 1261 145100043 + 1261 145100044 + NO DATA GIVEN 1261 145100045 + 1261 145100046 + 1261 145100047 + MT=454 1261 145100048 + FISSION PRODUCT YIELD DATA 1261 145100049 + 1261 145100050 + * * * * * * 1261 145100051 + FISSION PRODUCT YIELD DATA FOR ENDF/B-IV 8/74. RECOMMENDED 1261 145100052 + VALUES ARE GIVEN FROM THE YIELDS SUBCOMMITTEES OF THE DECAY HEAT1261 145100053 + TASK FORCE. MEMBERS OF THE SUBCOMMITTEES INCLUDE W.WALKER(CH), 1261 145100054 + P.ALINE,N.DUDEY,R.LARSEN,W.MAECK,W.MCELROY,B.RIDER,T.ENGLAND(CH)1261 145100055 + A.WAHL AND K.WOLFSBERG. FINAL DIRECT YIELDS WERE GENERATED BY B.1261 145100056 + RIDER USING METHODS DESCRIBED IN NEDO-12154 REV.1 JAN.74. ENDF/B1261 145100057 + FILE PREP. AND MODIFICATIONS WERE MADE BY R.SCHENTER 8/74. PEAK 1261 145100058 + CHAIN YIELDS ARE GIVEN AS 1261 145100059 + ELAB=2.53E-02 EV A-YCHAIN(PERCENT)= 1261 145100060 + 872.55, 883.62, 894.84, 905.91, 915.92, 925.96, 936.37, 946.42,1261 145100061 + 956.46, 966.25, 975.96, 985.78, 996.12,1006.30,1015.04,1024.20,1261 145100062 + 1033.14,1312.83,1324.25,1336.79,1347.68,1356.60,1366.27,1376.27,1261 145100063 + 1386.82,1396.48,1406.32,1415.89,1425.93,1435.97,1445.45,1453.93,1261 145100064 + 1462.99,1472.27 1261 145100065 + ELAB=5.00E+05 EV A-YCHAIN(PERCENT)= 1261 145100066 + 872.41, 883.59, 894.56, 905.57, 915.59, 925.72, 936.10, 946.19,1261 145100067 + 956.38, 966.09, 975.96, 985.87, 995.70,1006.24,1015.42,1024.59,1261 145100068 + 1033.29,1042.31,1313.23,1324.65,1336.47,1347.62,1356.28,1366.24,1261 145100069 + 1376.16,1386.47,1396.33,1406.02,1415.99,1425.46,1435.70,1445.27,1261 145100070 + 1453.75,1462.90,1472.37 1261 145100071 + ELAB=1.40E+07 EV A-YCHAIN(PERCENT)= 1261 145100072 + 872.41, 883.32, 893.97, 904.60, 914.81, 925.12, 935.21, 945.20,1261 145100073 + 955.05, 965.11, 975.47, 984.88, 995.10,1005.21,1014.42,1023.93,1261 145100074 + 1033.09,1042.28,1272.18,1282.37,1292.96,1303.44,1314.04,1324.63,1261 145100075 + 1335.48,1346.28,1355.38,1365.02,1374.92,1385.09,1394.83,1404.43,1261 145100076 + 1414.57,1424.88,1433.90,1443.23,1453.05,1462.37 1261 145100077 + * * * * * * 1261 145100078 + 1261 145100079 + 1261 145100080 + 1261 145100081 + MT=455 1261 145100082 + DELAYED NEUTRON YIELDS 1261 145100083 + EVALUATION BY S.A.COX(ANL),L.STEWART(LASL),B.HUTCHINS(GEBRDO)1261 145100084 + AND N.C.PAIK(WARD) SEE REPORT ANL/NDM-5 BY S.A.COX(ANL) 1261 145100085 + 1261 145100086 + 1261 145100087 + MT=456 1261 145100088 + PROMPT NU-BAR 1261 145100089 + 1261 145100090 + NORMALIZED TO CF-252. SUGGESTED BY THERMAL TASK FORCE 1261 145100091 + 1261 145100092 + 1261 145100093 + MT=457 1261 145100094 + SPONTANEOUS RADIOACTIVE DECAY DATA 1261 145100095 + 1261 145100096 + EVALUATION BY C.W.REICH (ANC) FEB74 1261 145100097 + REFERENCES Q(ALPHA)- 1973 REVISION OF WAPSTRA-GOVE MASS TABLES 1261 145100098 + HALF-LIFE- N.E. HOLDEN, CHART OF THE NUCLIDES (1973) 1261 145100099 + AND PRIVATE COMMUNICATION (JAN.,1974) 1261 145100100 + GAMMA-RAY ENERGIES AND RELATIVE INTENSITIES - L.A. 1261 145100101 + KROGER, PH.D. THESIS (UNIV. OF WYOMING, 1971) SEE 1261 145100102 + ALSO, USAEC REPORT ANCR-1016, P.75 (1971). 1261 145100103 + OTHER- A. ARTNA-COHEN, NUCLEAR DATA B 6, NO.3, 287, 1261 145100104 + (1971). 1261 145100105 + NOTE AVG. E-ALPHA = 4468. KEV. 1261 145100106 + THIS VALUE INCLUDES CONTRIBUTIONS FROM THE KINETIC 1261 145100107 + ENERGY OF THE ALPHA PARTICLE AND THE RECOIL ENERGY 1261 145100108 + OF THE DAUGHTER NUCLEUS. 1261 145100109 + 1261 145100110 + 1261 145100111 + MF = 2 1261 145100112 + 1261 145100113 + RESOLVED RESONANCE REGION 1261 145100114 + RESOLVED RESONANCE REGION REMAINS UNCHANGED FROM ENDF/B-3.1261 145100115 + ANC REPORT BY J.R.SMITH 1261 145100116 + 1261 145100117 + UNRESOLVED RESONANCE DATA--R. PEELLE (ORNL), M. BHAT (BNL) 1261 145100118 + 1261 145100119 + 82 EV-25 KEV 1261 145100120 + 1261 145100121 + PARAMETERS ARE GIVEN AT 120 ENERGY POINTS. LOCAL-AVERAGE PA- 1261 145100122 + RAMETERS ARE CONSTANT OVER THE RANGE FOR P-WAVE RESONANCES, 1261 145100123 + SPINS 2-5, AND HAVE THE SAME VALUES GIVEN FOR ENDF/B-111. FOR 1261 145100124 + S-WAVE LOCAL-AVERAGE PARAMETERS (J=3,4), THE GAMMA-RAY WIDTHS 1261 145100125 + WERE KEPT AT THE ENDF/B-111 VALUE OF 35 MV, WHILE THE 1261 145100126 + WIDTHS WERE VARIED TO PRODUCE A FIT TO THE APPARENT GROSS 1261 145100127 + STRUCTURE IN THE CROSS SECTIONS EVALUATED BY LOOKING AT THE 1261 145100128 + FEATURES COMMON TO SEVERAL EXPERIMENTAL MEASUREMENTS. FITS 1261 145100129 + WERE PRODUCED USING THE CODE UR. THE S-WAVE POTENTIAL SCAT- 1261 145100130 + TERING RADIUS WAS TAKEN AS .95663X10-12 CM, GIVING A POTEN- 1261 145100131 + TIAL SCATTERING CROSS SECTION OF 11.5 B, JUST AS IN THE 1261 145100132 + RESOLVED RANGE, TO PRODUCE ACCEPTABLE 5 PERCENT AGREEMENT WITH 1261 145100133 + AVERAGE SIGMA TOTALS. THE CROSS SECTIONS INPUT TO THE FIT 1261 145100134 + WERE ADJUSTED TO YIELD THE EVALUATED AVERAGE CAP. AND FIS. 1261 145100135 + CROSS SECTIONS GIVEN BELOW, IF THE CROSS SECTIONS ARE LINEARLY 1261 145100136 + INTERPOLATED BETWEEN THE POINTS GIVEN. IF A PROCESSING CODE 1261 145100137 + LINEARLY INTERPOLATES PARAMETERS BETWEEN THESE ENERGY POINTS, 1261 145100138 + THE RESULTING AVERAGE FIS. CROSS SECTIONS ARE TOO HIGH, FOR 1261 145100139 + DECIMAL INTERVALS BY UP TO .7 PERCENT AND CAP. CROSS SECTIONS 1261 145100140 + AVERAGED OVER THESE INTERVALS ARE TOO LO BY UP TO 1.3 PERCENT. 1261 145100141 + INTEGRAL CROSS SECTIONS UP TO 1 KEV ARE HI AND LO BY 0.3 AND 1261 145100142 + 0.7 PERCENT AND THE INTEGRALS FROM 1 KEV UP ARE HI AND LO BY 1261 145100143 + 0.16 AND 0.24 PERCENT. THE EVALUATED AVERAGE FIS. CROSS 1261 145100144 + SECTIONS WERE NORMALIZED TO A 2200 M/SEC VALUE OF 584.5 B, 1261 145100145 + AND HAVE A SHAPE DETERMINED BY COMBINING DATA FROM REFERENCES 1261 145100146 + 27-31 IN APPROPRIATE ENERGY RANGES. AVERAGE (UNIT WEIGHT) 1261 145100147 + CAP. CROSS SECTIONS WERE COMBINED FROM REFERENCES 28,30 AND 1261 145100148 + 31. THE EVALUATED AVERAGE CROSS SECTIONS GIVEN BELOW ARE 1261 145100149 + TAKEN FROM REFERENCE, REF. 32. 1261 145100150 + 1261 145100151 + ELO EHI FIS. CAP. ELO EHI FIS. CAP. ELO EHI FIS. CAP. 1261 145100152 + (KEV) (B) (B) (KEV) (B) (B) (KEV) (B) (B) 1261 145100153 + .08 .10 25.05 15.70 0.7 0.8 11.11 4.91 5. 6. 3.80 1.42 1261 145100154 + .10 .15 22.50 12.80 0.8 0.9 8.25 4.15 6. 7. 3.41 1.40 1261 145100155 + .15 .20 19.50 11.00 0.9 1.0 7.55 5.05 7. 8. 3.15 1.33 1261 145100156 + .20 .25 21.50 10.70 1.0 1.5 8.07 3.40 8. 9. 3.01 1.45 1261 145100157 + .25 .30 19.50 7.10 1.5 2.0 6.57 2.56 9. 10. 3.05 1.25 1261 145100158 + .30 .40 13.12 6.56 2.0 2.5 5.49 2.20 10. 15. 2.65 1.08 1261 145100159 + .40 .50 13.59 4.83 2.5 3.0 5.15 1.74 15. 20. 2.31 .90 1261 145100160 + .50 .60 15.22 4.62 3.0 4.0 4.75 1.62 20. 25. 2.19 .87 1261 145100161 + .60 .70 11.50 4.67 4.0 5.0 4.27 1.53 1261 145100162 + 1261 145100163 + THE SHAPES OF THESE CROSS SECTIONS ARE BASED ON THE 10-BORON 1261 145100164 + (N,ALPHA) REACTIONS AS GIVEN IN ENDF/B-111. OVERALL UNCER- 1261 145100165 + TAINTIES IN THE EVALUATED AVERAGE CROSS SECTION ARE ESTIMATED 1261 145100166 + AS 3 PERCENT IN FIS. AND 8 PERCENT IN CAP. AS DETAILED IN THE 1261 145100167 + COMPLETED DOCUMENTATION. THE CONTRIBUTIONS TO THESE UNCERTAIN-1261 145100168 + TIES WHICH ARE HIGHLY CORRELATED OVER THE WHOLE ENERGY RANGE 1261 145100169 + ARE 2 PERCENT FOR FIS. AND 7 PERCENT FOR CAPT. FOR ADDITIONAL 1261 145100170 + DETAILS SEE REF 32 OR THE COMPLETE DOCUMENTATION REPORT. 1261 145100171 + 1261 145100172 + MF = 3 1261 145100173 + 1261 145100174 + SMOOTH DATA 1261 145100175 + THERMAL DATA---THERMAL TASK FORCE 1261 145100176 + 1 EV TO 82 EV J. R. SMITH 1261 145100177 + 82 EV TO 25 KEV PEELLE, BHAT 1261 145100178 + 25 KEV TO 100 KEV BIG THREE PLUS TWO TASK FORCE 1261 145100179 + 100KEV TO 1 MEV---FISSION CROSS SECTION TAKEN AS CURVE 1261 145100180 + SUGGESTED BY U-235 TASK FORCE AND CSEWG STANDARDS AND 1261 145100181 + NORMALIZATION SUBCOMMITTEE. IN THIS ENERGY REGION DATA TAKEN 1261 145100182 + FROM REFERENCES 1 THROUGH 9. DATA OF REF.4 SZABO (71) RAISED 1261 145100183 + BY 1.04. BETWEEN 1 AND 6 MEV CURVE DRAWN THROUGH DATA OF 1261 145100184 + REFERENCES 3, 5, AND 7 THROUGH 11, WITH HEAVY WEIGHT GIVEN TO1261 145100185 + REF. 11. ABOVE 6 MEV CURVE DRAWN THROUGH DATA OF REFERENCES 1261 145100186 + 7, 8, 12 AND 13. DATA OF REFS. 12 AND 13 NORMALIZED TO 2.152 1261 145100187 + BARNS AT 14.0 MEV.---ALPHA CURVE BETWEEN 10 KEV AND 10 MEV 1261 145100188 + BASED ON REFERENCES 1 AND 14 THROUGH 19 AS RECOMMENDED BY 1261 145100189 + U-235 TASK FORCE. ABOVE 1 MEV ALPHA CURVE SMOOTHLY 1261 145100190 + EXTRAPOLATED TO 20 MEV.---CAPTURE CROSS SECTION DERIVED AS 1261 145100191 + THE PRODUCT OF THE FISSION CROSS SECTION WITH ALPHA---ABOVE 1261 145100192 + 0.5 MEV TOTAL CROSS SECTION TAKEN FROM SPLINE FIT TO DATA OF 1261 145100193 + REFERENCES 20 AND 21. BETWEEN 25 KEV AND 0.5 MEV A SMOOTH 1261 145100194 + CURVE WAS FIT TO THE TOTAL CROSS SECTION OF ENDF/B-3. 1261 145100195 + 1261 145100196 + MF = 4 1261 145100197 + 1261 145100198 + ANGULAR DISTRIBUTIONS 1261 145100199 + ELASTIC SCATTERING ANGULAR DATA TAKEN FROM EVALUATION 1261 145100200 + OF REFERENCE 22, HUNTER.---ANGULAR DISTRIBUTION DATA FOR 1261 145100201 + NONISOTROPIC INELASTIC LEVELS (MT=61-66) BASED PRIMARILY ON 1261 145100202 + WORK OF KAMMERDIENER, REF. 23. ALL INELASTIC DATA BELOW 1261 145100203 + 5 MEV TAKEN TO BE ISOTROPIC. ANGULAR DISTRIBUTIONS FOR ALL 1261 145100204 + OTHER NEUTRON REACTIONS ARE ASSUMED ISOTROPIC, EXCEPT FOR 1261 145100205 + DIRECT INTERACTION CROSS SECTIONS ABOVE 4 MEV FOR MT=61-66. 1261 145100206 + 1261 145100207 + MF = 5 1261 145100208 + 1261 145100209 + ENERGY DISTRIBUTIONS 1261 145100210 + FISSION--THERMAL-- T=1.323 MEV AS RECOMMENDED BY THERMAL TASK1261 145100211 + FORCE.---AT 14 MEV-- T=1.50 AS APPROXIMATED FROM SLOPE OF 1261 145100212 + PU-239 DATA. EXCEPT FOR DISCRETE INELASTIC, ALL INELASTIC, 1261 145100213 + (N, 2N) ETC. REPRESENTED BY TEMPERATURE MODELS. 1261 145100214 + NOTE 1261 145100215 + MT=19-21 SHOULD BE USED IN PLACE OF MT=18 1261 145100216 + IF RESULTS ARE SENSITIVE TO FISSIONS CAUSED 1261 145100217 + BY NEUTRONS OF 6 MEV OR GREATER. 1261 145100218 + 1261 145100219 + MF = 12-15 1261 145100220 + 1261 145100221 + GAMMA PRODUCTION 1261 145100222 + DATA TAKEN FROM STEWART, REF. 24. CROSS SECTIONS BASED ON 1261 145100223 + NEUTRON FILES (MF=2, 3) AND CALCULATED MULTIPLICITIES BELOW 1261 145100224 + 1.09 MEV. ABOVE 1.09 MEV DATA BASED ON DRAKE, REF. 25, AND 1261 145100225 + NELLIS, REF. 26. 1261 145100226 + 1261 145100227 + REFERENCES 1261 145100228 + 1261 145100229 + 1. GWIN, R., ET.AL. PRIVATE COMMUNICATION (ORNL,1973) 1261 145100230 + 2. KAPPELER,F.SYMPOSIUM NEUT.STDS., (ANL) CONF.701002, 272(1970) 1261 145100231 + 3. SZABO,I., ET.AL., (AS REF.5) CONF-701002, 257(1970) 1261 145100232 + 4. SZABO,I., ET.AL., KNOXVILLE CONF. VOL.2 573(1971) 1261 145100233 + 5. KAPPELER,F., 2ND IAEA PANEL STANDARD X-SECTIONS,VIENNA(1972) 1261 145100234 + 6. GAYTHER, D.B., ET.AL., (AS REF.8) (1972) 1261 145100235 + 7. HANSEN, G., ET.AL., PRIVATE COMMUNICATION,L.STEWART(LASL 1970)1261 145100236 + 8. WHITE, P.H.., J.NUCL.ENERGY 19,325(1965) 1261 145100237 + 9. DIVEN, B.C., PHYS.REV.105,1350(1957) 1261 145100238 +10. POENITZ, W., PRIVATE COMMUNICATION (ANL,1973) 1261 145100239 +11. HANSEN, G., ET.AL., PRIVATE COMMUNICATION,L.STEWART (1972) 1261 145100240 +12. PANKRATOV, V.M., ET.AL., J.NUCL.ENERGY 16,494 (1962) 1261 145100241 +13. PANKRATOV, V.M., ET.AL., SOVIET J.AT.ENERGY 14,167 (1963) 1261 145100242 +14. DESAUSSURE, G., ET.AL., PARIS 1966, IAEA 2,233 (1967) 1261 145100243 +15. CZIRR, J.B., ET.AL., HELSINKI 1970, IAEA 1,331 (1970) 1261 145100244 +16. PEREZ, R.B., ET.AL., ORNL-TM-3696 (1972) 1261 145100245 +17. BANDL, R.E., ET.AL., NSE 48,324 (1972) 1261 145100246 +18. KONONOV, V.N., ET.AL., INDC(CCP)-21L, (1971) 1261 145100247 +19. KUROV, M.A., ET.AL., J. SOVIET AT.ENRGY. 315,(MARCH 1971) 1261 145100248 +20. HEATON, P.C., ET.AL., PRIVATE COMMUNICATION (NBS,1972) 1261 145100249 +21. FOSTER, D.G., ET.AL., PHYS.REV.C3,576 (1971) 1261 145100250 +22. HUNTER, R.E., STEWART, L., HIRONS T.J., LA-5173 (1973) 1261 145100251 +23. KAMMERDIENER, J.L., UCRL-51232 (1972) 1261 145100252 +24. HUNTER, R.E., STEWART, L., LA-4901 (1972) 1261 145100253 +25. DRAKE, D.M., HOPKINS, J.C., YOUNG, C.S. AND CONDE, H., 1261 145100254 + NSE 40. 290 (1970) 1261 145100255 +26. NELLIS, D.O., AND MORGAN, I.L., ORD-2791-17 (1966). 1261 145100256 + ALSO BUCHANAN, P.S., ORO-2791-28 (1969) 1261 145100257 + 27. DE-UYTTER,P-OCC CONFC N0+L. DATA +O -EACT--S0 0OL T8 +9 1261 145100258 + (1970). 1261 145100259 + 28. DESAUSSURE ET AL., ORNL-TM-1804 (1967). 1261 145100260 + 29. BLONSTNUCL. SC+. EN+C 1 0 U1 93 H8 1261 145100261 + 30. PEREZ ET AL., NUCL. SCI. ENG. 52, 46 (1973). 1261 145100262 + 31. GWIN, LETTER TO R. A. DANNELS, NNCSC, 12-20-72. 1261 145100263 + 32. R. W. PEELLE, ORNL, LETTER TO CSEWG, 9-24-73. 1261 145100264 + 1261 145100265 + 1 451 347 1261 145100266 + 1 452 6 1261 145100267 + 1 453 9 1261 145100268 + 1 454 1699 1261 145100269 + 1 455 8 1261 145100270 + 1 456 6 1261 145100271 + 1 457 60 1261 145100272 + 2 151 871 1261 145100273 + 3 1 388 1261 145100274 + 3 2 339 1261 145100275 + 3 3 315 1261 145100276 + 3 4 127 1261 145100277 + 3 16 26 1261 145100278 + 3 17 9 1261 145100279 + 3 18 273 1261 145100280 + 3 19 252 1261 145100281 + 3 20 18 1261 145100282 + 3 21 10 1261 145100283 + 3 51 11 1261 145100284 + 3 52 15 1261 145100285 + 3 53 14 1261 145100286 + 3 54 14 1261 145100287 + 3 55 13 1261 145100288 + 3 56 13 1261 145100289 + 3 57 12 1261 145100290 + 3 58 12 1261 145100291 + 3 59 11 1261 145100292 + 3 60 10 1261 145100293 + 3 61 40 1261 145100294 + 3 62 34 1261 145100295 + 3 63 31 1261 145100296 + 3 64 28 1261 145100297 + 3 65 24 1261 145100298 + 3 66 18 1261 145100299 + 3 91 44 1261 145100300 + 3 102 260 1261 145100301 + 3 251 10 1261 145100302 + 3 252 10 1261 145100303 + 3 253 10 1261 145100304 + 4 2 135 1261 145100305 + 4 16 10 1261 145100306 + 4 17 10 1261 145100307 + 4 18 10 1261 145100308 + 4 19 10 1261 145100309 + 4 20 10 1261 145100310 + 4 21 10 1261 145100311 + 4 51 10 1261 145100312 + 4 52 10 1261 145100313 + 4 53 10 1261 145100314 + 4 54 10 1261 145100315 + 4 55 10 1261 145100316 + 4 56 10 1261 145100317 + 4 57 10 1261 145100318 + 4 58 10 1261 145100319 + 4 59 10 1261 145100320 + 4 60 10 1261 145100321 + 4 61 31 1261 145100322 + 4 62 31 1261 145100323 + 4 63 31 1261 145100324 + 4 64 31 1261 145100325 + 4 65 31 1261 145100326 + 4 66 31 1261 145100327 + 4 91 10 1261 145100328 + 5 16 15 1261 145100329 + 5 17 11 1261 145100330 + 5 18 7 1261 145100331 + 5 19 7 1261 145100332 + 5 20 28 1261 145100333 + 5 21 22 1261 145100334 + 5 91 7 1261 145100335 + 5 455 107 1261 145100336 + 12 4 253 1261 145100337 + 12 18 5 1261 145100338 + 12 102 5 1261 145100339 + 13 3 7 1261 145100340 + 14 3 1 1261 145100341 + 14 4 1 1261 145100342 + 14 18 1 1261 145100343 + 14 102 1 1261 145100344 + 15 3 136 1261 145100345 + 15 18 54 1261 145100346 + 15 102 58 1261 145100347 + 1261 100000348 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 145200349 + 0.00000+ 0 0.00000+ 0 0 0 1 71261 145200350 + 7 2 1261 145200351 + 1.00000- 5 2.41880+ 0 1.20000+ 6 2.57130+ 0 3.00000+ 6 2.78010+ 01261 145200352 + 4.00000+ 6 2.94430+ 0 7.00000+ 6 3.42930+ 0 7.85000+ 6 3.56890+ 01261 145200353 + 2.00000+ 7 5.19620+ 0 1261 145200354 + 1261 100000355 + 9.22350+ 4 2.33025+ 2 0 0 1 01261 145300356 + 9.22350+ 4 2.33025+ 2 0 0 2 31261 145300357 + 1.00000- 5 2.00000+ 7 1261 145300358 + 0.00000+ 0-5.23000+ 6 0 0 5 01261 145300359 + 1.60000+ 1 9.22340+ 4 8.85890-14 1.00000+ 0 1.00000+ 0 1261 145300360 + 0.00000+ 0-1.18500+ 7 0 0 5 01261 145300361 + 1.70000+ 1 9.22330+ 4 1.61540-13 1.00000+ 0 1.00000+ 0 1261 145300362 + 0.00000+ 0 6.54510+ 6 0 0 5 01261 145300363 + 1.02000+ 2 9.22360+ 4 9.19250-16 1.00000+ 0 1.00000+ 0 1261 145300364 + 1261 100000365 + 9.22350+ 4 2.33025+ 2 3 0 0 01261 145400366 + 2.53000- 2 0.00000+ 0 2 0 3390 11301261 145400367 + 2.40660+ 4 0.00000+ 0 2.51136-13 2.40670+ 4 0.00000+ 0 7.69417-141261 145400368 + 2.40680+ 4 0.00000+ 0 0.00000+ 0 2.40700+ 4 0.00000+ 0 0.00000+ 01261 145400369 + 2.50660+ 4 0.00000+ 0 2.74149-11 2.50670+ 4 0.00000+ 0 2.65144-111261 145400370 + 2.50680+ 4 0.00000+ 0 6.99379-12 2.50690+ 4 0.00000+ 0 1.16063-121261 145400371 + 2.50700+ 4 0.00000+ 0 1.29070-13 2.50710+ 4 0.00000+ 0 1.00054-141261 145400372 + 2.60660+ 4 0.00000+ 0 3.83208-10 2.60670+ 4 0.00000+ 0 1.06058- 91261 145400373 + 2.60680+ 4 0.00000+ 0 8.37454-10 2.60690+ 4 0.00000+ 0 4.31234-101261 145400374 + 2.60700+ 4 0.00000+ 0 1.54084-10 2.60710+ 4 0.00000+ 0 3.88211-111261 145400375 + 2.60720+ 4 0.00000+ 0 1.00054-11 2.60730+ 4 0.00000+ 0 6.19336-141261 145400376 + 2.60740+ 4 0.00000+ 0 1.35073-13 2.60760+ 4 0.00000+ 0 0.00000+ 01261 145400377 + 2.70660+ 4 0.00000+ 0 2.10114-10 2.70670+ 4 0.00000+ 0 1.52083- 91261 145400378 + 2.70680+ 4 0.00000+ 0 3.19173- 9 2.70690+ 4 0.00000+ 0 4.57248- 91261 145400379 + 2.70700+ 4 0.00000+ 0 4.77259- 9 2.70710+ 4 0.00000+ 0 3.66199- 91261 145400380 + 2.70720+ 4 0.00000+ 0 2.89157- 9 2.70730+ 4 0.00000+ 0 1.72093-101261 145400381 + 2.70740+ 4 0.00000+ 0 4.26231-10 2.70750+ 4 0.00000+ 0 7.17389-111261 145400382 + 2.70760+ 4 0.00000+ 0 7.21391-12 2.80660+ 4 0.00000+ 0 1.85100-111261 145400383 + 2.80670+ 4 0.00000+ 0 3.75204-10 2.80680+ 4 0.00000+ 0 2.11115- 91261 145400384 + 2.80690+ 4 0.00000+ 0 7.87427- 9 2.80700+ 4 0.00000+ 0 2.17118- 81261 145400385 + 2.80710+ 4 0.00000+ 0 4.50244- 8 2.80720+ 4 0.00000+ 0 9.79531- 81261 145400386 + 2.80730+ 4 0.00000+ 0 4.92267- 8 2.80740+ 4 0.00000+ 0 1.37074- 71261 145400387 + 2.80750+ 4 0.00000+ 0 7.34398- 8 2.80760+ 4 0.00000+ 0 2.47134- 81261 145400388 + 2.80770+ 4 0.00000+ 0 3.24176- 9 2.80780+ 4 0.00000+ 0 4.40239-101261 145400389 + 2.80800+ 4 0.00000+ 0 5.95323-13 2.80820+ 4 0.00000+ 0 0.00000+ 01261 145400390 + 2.90660+ 4 0.00000+ 0 4.64252-14 2.90670+ 4 0.00000+ 0 2.91158-121261 145400391 + 2.90680+ 4 0.00000+ 0 2.46134-11 2.90680+ 4 1.00000+ 0 2.48135-111261 145400392 + 2.90690+ 4 0.00000+ 0 5.28287-10 2.90700+ 4 0.00000+ 0 1.98107- 91261 145400393 + 2.90700+ 4 1.00000+ 0 1.98107- 9 2.90710+ 4 0.00000+ 0 2.18118- 81261 145400394 + 2.90720+ 4 0.00000+ 0 1.22066- 7 2.90730+ 4 0.00000+ 0 4.10223- 71261 145400395 + 2.90740+ 4 0.00000+ 0 1.27069- 6 2.90750+ 4 0.00000+ 0 1.98107- 61261 145400396 + 2.90760+ 4 0.00000+ 0 2.08113- 6 2.90770+ 4 0.00000+ 0 8.55464- 71261 145400397 + 2.90780+ 4 0.00000+ 0 3.85209- 7 2.90790+ 4 0.00000+ 0 4.60250- 81261 145400398 + 2.90800+ 4 0.00000+ 0 6.61359- 9 2.90810+ 4 0.00000+ 0 3.44187-101261 145400399 + 2.90820+ 4 0.00000+ 0 9.81533-12 3.00660+ 4 0.00000+ 0 0.00000+ 01261 145400400 + 3.00670+ 4 0.00000+ 0 0.00000+ 0 3.00680+ 4 0.00000+ 0 1.33072-131261 145400401 + 3.00690+ 4 0.00000+ 0 2.26123-12 3.00690+ 4 1.00000+ 0 2.31125-121261 145400402 + 3.00700+ 4 0.00000+ 0 1.04056-10 3.00710+ 4 0.00000+ 0 8.40456-101261 145400403 + 3.00710+ 4 1.00000+ 0 8.44458-10 3.00720+ 4 0.00000+ 0 2.54138- 81261 145400404 + 3.00730+ 4 0.00000+ 0 5.67308- 7 3.00740+ 4 0.00000+ 0 1.96106- 61261 145400405 + 3.00750+ 4 0.00000+ 0 7.88428- 6 3.00760+ 4 0.00000+ 0 2.29825- 51261 145400406 + 3.00770+ 4 0.00000+ 0 2.67745- 5 3.00780+ 4 0.00000+ 0 3.66999- 51261 145400407 + 3.00790+ 4 0.00000+ 0 1.47980- 5 3.00800+ 4 0.00000+ 0 7.19390- 61261 145400408 + 3.00810+ 4 0.00000+ 0 1.26068- 6 3.00820+ 4 0.00000+ 0 1.26068- 71261 145400409 + 3.00830+ 4 0.00000+ 0 9.72528- 9 3.00840+ 4 0.00000+ 0 1.24067-101261 145400410 + 3.00860+ 4 0.00000+ 0 6.36345-14 3.10660+ 4 0.00000+ 0 0.00000+ 01261 145400411 + 3.10670+ 4 0.00000+ 0 0.00000+ 0 3.10680+ 4 0.00000+ 0 0.00000+ 01261 145400412 + 3.10690+ 4 0.00000+ 0 0.00000+ 0 3.10700+ 4 0.00000+ 0 6.98379-141261 145400413 + 3.10710+ 4 0.00000+ 0 3.63197-12 3.10720+ 4 0.00000+ 0 1.67091-101261 145400414 + 3.10730+ 4 0.00000+ 0 2.99162- 8 3.10740+ 4 0.00000+ 0 1.14062- 71261 145400415 + 3.10750+ 4 0.00000+ 0 1.28069- 6 3.10760+ 4 0.00000+ 0 1.01355- 51261 145400416 + 3.10770+ 4 0.00000+ 0 4.48043- 5 3.10780+ 4 0.00000+ 0 1.25038- 41261 145400417 + 3.10790+ 4 0.00000+ 0 1.37365- 4 3.10800+ 4 0.00000+ 0 2.04761- 41261 145400418 + 3.10810+ 4 0.00000+ 0 1.11821- 4 3.10820+ 4 0.00000+ 0 3.73603- 51261 145400419 + 3.10830+ 4 0.00000+ 0 9.31505- 6 3.10840+ 4 0.00000+ 0 4.42240- 71261 145400420 + 3.10860+ 4 0.00000+ 0 2.77150- 9 3.20660+ 4 0.00000+ 0 0.00000+ 01261 145400421 + 3.20670+ 4 0.00000+ 0 0.00000+ 0 3.20680+ 4 0.00000+ 0 0.00000+ 01261 145400422 + 3.20690+ 4 0.00000+ 0 0.00000+ 0 3.20700+ 4 0.00000+ 0 0.00000+ 01261 145400423 + 3.20710+ 4 0.00000+ 0 0.00000+ 0 3.20720+ 4 0.00000+ 0 1.16063-131261 145400424 + 3.20730+ 4 0.00000+ 0 9.83534-11 3.20730+ 4 1.00000+ 0 9.83534-111261 145400425 + 3.20740+ 4 0.00000+ 0 8.39455-10 3.20750+ 4 0.00000+ 0 1.45079- 81261 145400426 + 3.20750+ 4 1.00000+ 0 1.45079- 8 3.20760+ 4 0.00000+ 0 6.98379- 71261 145400427 + 3.20770+ 4 0.00000+ 0 6.36345- 6 3.20770+ 4 1.00000+ 0 3.94214- 61261 145400428 + 3.20780+ 4 0.00000+ 0 2.14116- 6 3.20790+ 4 0.00000+ 0 2.50836- 41261 145400429 + 3.20800+ 4 0.00000+ 0 8.63689- 4 3.20810+ 4 0.00000+ 0 1.30268- 31261 145400430 + 3.20820+ 4 0.00000+ 0 1.30327- 3 3.20830+ 4 0.00000+ 0 9.67445- 41261 145400431 + 3.20840+ 4 0.00000+ 0 1.59847- 4 3.20850+ 4 0.00000+ 0 6.23038- 51261 145400432 + 3.20860+ 4 0.00000+ 0 1.14362- 5 3.20870+ 4 0.00000+ 0 1.98107- 61261 145400433 + 3.20880+ 4 0.00000+ 0 1.88102- 8 3.30690+ 4 0.00000+ 0 0.00000+ 01261 145400434 + 3.30710+ 4 0.00000+ 0 0.00000+ 0 3.30720+ 4 0.00000+ 0 0.00000+ 01261 145400435 + 3.30730+ 4 0.00000+ 0 2.95160-14 3.30740+ 4 0.00000+ 0 7.18390-141261 145400436 + 3.30740+ 4 1.00000+ 0 7.41402-14 3.30750+ 4 0.00000+ 0 1.68091-111261 145400437 + 3.30760+ 4 0.00000+ 0 1.34073- 9 3.30770+ 4 0.00000+ 0 1.28069- 71261 145400438 + 3.30780+ 4 0.00000+ 0 2.10114- 6 3.30790+ 4 0.00000+ 0 1.04707- 41261 145400439 + 3.30800+ 4 0.00000+ 0 1.46509- 4 3.30810+ 4 0.00000+ 0 5.91321- 41261 145400440 + 3.30820+ 4 0.00000+ 0 8.26018- 4 3.30820+ 4 1.00000+ 0 8.22626- 41261 145400441 + 3.30830+ 4 0.00000+ 0 3.24470- 3 3.30840+ 4 0.00000+ 0 2.88966- 31261 145400442 + 3.30850+ 4 0.00000+ 0 1.98228- 3 3.30860+ 4 0.00000+ 0 1.14175- 31261 145400443 + 3.30870+ 4 0.00000+ 0 7.01591- 4 3.30880+ 4 0.00000+ 0 2.44533- 51261 145400444 + 3.30890+ 4 0.00000+ 0 1.94105- 6 3.40720+ 4 0.00000+ 0 0.00000+ 01261 145400445 + 3.40730+ 4 0.00000+ 0 0.00000+ 0 3.40730+ 4 1.00000+ 0 0.00000+ 01261 145400446 + 3.40740+ 4 0.00000+ 0 0.00000+ 0 3.40750+ 4 0.00000+ 0 0.00000+ 01261 145400447 + 3.40760+ 4 0.00000+ 0 2.57140-13 3.40770+ 4 0.00000+ 0 5.47297-111261 145400448 + 3.40770+ 4 1.00000+ 0 1.77096-11 3.40780+ 4 0.00000+ 0 2.30125- 91261 145400449 + 3.40790+ 4 0.00000+ 0 8.10440- 8 3.40790+ 4 1.00000+ 0 8.12441- 81261 145400450 + 3.40800+ 4 0.00000+ 0 3.52191- 6 3.40810+ 4 0.00000+ 0 2.19519- 51261 145400451 + 3.40810+ 4 1.00000+ 0 7.41702- 5 3.40820+ 4 0.00000+ 0 3.53702- 41261 145400452 + 3.40830+ 4 0.00000+ 0 4.35816- 4 3.40830+ 4 1.00000+ 0 6.17165- 41261 145400453 + 3.40840+ 4 0.00000+ 0 6.45417- 3 3.40850+ 4 0.00000+ 0 4.59816- 31261 145400454 + 3.40850+ 4 1.00000+ 0 4.59810- 3 3.40860+ 4 0.00000+ 0 1.18889- 21261 145400455 + 3.40870+ 4 0.00000+ 0 9.38876- 3 3.40880+ 4 0.00000+ 0 3.38296- 31261 145400456 + 3.40890+ 4 0.00000+ 0 8.82669- 4 3.40900+ 4 0.00000+ 0 3.38474- 41261 145400457 + 3.40910+ 4 0.00000+ 0 3.44787- 5 3.40920+ 4 0.00000+ 0 4.48243- 71261 145400458 + 3.40940+ 4 0.00000+ 0 4.51245-10 3.40950+ 4 0.00000+ 0 3.35570-121261 145400459 + 3.40960+ 4 0.00000+ 0 5.64306-14 3.50750+ 4 0.00000+ 0 0.00000+ 01261 145400460 + 3.50770+ 4 0.00000+ 0 0.00000+ 0 3.50770+ 4 1.00000+ 0 0.00000+ 01261 145400461 + 3.50780+ 4 0.00000+ 0 1.07058-13 3.50790+ 4 0.00000+ 0 1.35073-111261 145400462 + 3.50790+ 4 1.00000+ 0 1.44078-11 3.50800+ 4 0.00000+ 0 4.18227- 91261 145400463 + 3.50800+ 4 1.00000+ 0 3.11169- 9 3.50810+ 4 0.00000+ 0 8.93485- 81261 145400464 + 3.50820+ 4 0.00000+ 0 5.36291- 7 3.50820+ 4 1.00000+ 0 7.14388- 71261 145400465 + 3.50830+ 4 0.00000+ 0 3.82307- 5 3.50840+ 4 0.00000+ 0 1.82479- 41261 145400466 + 3.50840+ 4 1.00000+ 0 1.93025- 4 3.50850+ 4 0.00000+ 0 1.71808- 31261 145400467 + 3.50860+ 4 0.00000+ 0 2.93826- 3 3.50860+ 4 1.00000+ 0 3.04321- 31261 145400468 + 3.50870+ 4 0.00000+ 0 1.18536- 2 3.50880+ 4 0.00000+ 0 2.18065- 21261 145400469 + 3.50890+ 4 0.00000+ 0 1.85645- 2 3.50900+ 4 0.00000+ 0 1.31280- 21261 145400470 + 3.50910+ 4 0.00000+ 0 4.21910- 3 3.50920+ 4 0.00000+ 0 1.80558- 41261 145400471 + 3.50930+ 4 0.00000+ 0 5.08076- 5 3.50940+ 4 0.00000+ 0 3.16172- 61261 145400472 + 3.50950+ 4 0.00000+ 0 5.78881- 8 3.50960+ 4 0.00000+ 0 3.05166- 91261 145400473 + 3.60770+ 4 0.00000+ 0 0.00000+ 0 3.60780+ 4 0.00000+ 0 0.00000+ 01261 145400474 + 3.60790+ 4 0.00000+ 0 0.00000+ 0 3.60790+ 4 1.00000+ 0 0.00000+ 01261 145400475 + 3.60800+ 4 0.00000+ 0 8.10440-11 3.60810+ 4 0.00000+ 0 8.73474-121261 145400476 + 3.60810+ 4 1.00000+ 0 9.12495-12 3.60820+ 4 0.00000+ 0 1.02055- 91261 145400477 + 3.60830+ 4 0.00000+ 0 3.81207- 8 3.60830+ 4 1.00000+ 0 4.19227- 81261 145400478 + 3.60840+ 4 0.00000+ 0 3.20174- 6 3.60850+ 4 0.00000+ 0 2.33327- 51261 145400479 + 3.60850+ 4 1.00000+ 0 1.54184- 4 3.60860+ 4 0.00000+ 0 4.96760- 41261 145400480 + 3.60870+ 4 0.00000+ 0 3.49267- 3 3.60880+ 4 0.00000+ 0 1.07305- 21261 145400481 + 3.60890+ 4 0.00000+ 0 2.73308- 2 3.60900+ 4 0.00000+ 0 3.39679- 21261 145400482 + 3.60910+ 4 0.00000+ 0 3.09607- 2 3.60920+ 4 0.00000+ 0 1.52732- 21261 145400483 + 3.60930+ 4 0.00000+ 0 5.30528- 3 3.60940+ 4 0.00000+ 0 2.35865- 31261 145400484 + 3.60950+ 4 0.00000+ 0 8.05658- 5 3.60960+ 4 0.00000+ 0 1.55985- 51261 145400485 + 3.60970+ 4 0.00000+ 0 2.60141- 7 3.60980+ 4 0.00000+ 0 4.06220- 81261 145400486 + 3.60990+ 4 0.00000+ 0 9.21936-10 3.61000+ 4 0.00000+ 0 1.10060-111261 145400487 + 3.70790+ 4 0.00000+ 0 0.00000+ 0 3.70810+ 4 0.00000+ 0 0.00000+ 01261 145400488 + 3.70810+ 4 1.00000+ 0 0.00000+ 0 3.70830+ 4 0.00000+ 0 4.37237-121261 145400489 + 3.70840+ 4 0.00000+ 0 2.43132-11 3.70840+ 4 1.00000+ 0 3.32180-101261 145400490 + 3.70850+ 4 0.00000+ 0 8.23447- 7 3.70860+ 4 0.00000+ 0 1.89103- 71261 145400491 + 3.70860+ 4 1.00000+ 0 5.68308- 7 3.70870+ 4 0.00000+ 0 2.61342- 51261 145400492 + 3.70880+ 4 0.00000+ 0 3.22165- 4 3.70890+ 4 0.00000+ 0 1.65540- 31261 145400493 + 3.70900+ 4 0.00000+ 0 7.08195- 3 3.70900+ 4 1.00000+ 0 4.32891- 31261 145400494 + 3.70910+ 4 0.00000+ 0 2.23750- 2 3.70920+ 4 0.00000+ 0 3.27844- 21261 145400495 + 3.70930+ 4 0.00000+ 0 3.06359- 2 3.70940+ 4 0.00000+ 0 1.49368- 21261 145400496 + 3.70950+ 4 0.00000+ 0 8.98636- 3 3.70960+ 4 0.00000+ 0 1.91238- 31261 145400497 + 3.70970+ 4 0.00000+ 0 3.44077- 4 3.70980+ 4 0.00000+ 0 5.11778- 51261 145400498 + 3.70990+ 4 0.00000+ 0 4.09125- 6 3.71000+ 4 0.00000+ 0 1.62088- 71261 145400499 + 3.71030+ 4 0.00000+ 0 1.22080-12 3.80830+ 4 0.00000+ 0 0.00000+ 01261 145400500 + 3.80840+ 4 0.00000+ 0 2.26123-14 3.80850+ 4 0.00000+ 0 1.14062-121261 145400501 + 3.80850+ 4 1.00000+ 0 1.19065-12 3.80860+ 4 0.00000+ 0 2.70147-101261 145400502 + 3.80870+ 4 0.00000+ 0 1.12061- 8 3.80870+ 4 1.00000+ 0 1.01055- 81261 145400503 + 3.80880+ 4 0.00000+ 0 1.01055- 6 3.80890+ 4 0.00000+ 0 2.42932- 51261 145400504 + 3.80900+ 4 0.00000+ 0 2.88557- 4 3.80910+ 4 0.00000+ 0 1.59836- 31261 145400505 + 3.80920+ 4 0.00000+ 0 1.12826- 2 3.80930+ 4 0.00000+ 0 2.66769- 21261 145400506 + 3.80940+ 4 0.00000+ 0 4.32785- 2 3.80950+ 4 0.00000+ 0 4.57686- 21261 145400507 + 3.80960+ 4 0.00000+ 0 3.56723- 2 3.80970+ 4 0.00000+ 0 1.88244- 21261 145400508 + 3.80980+ 4 0.00000+ 0 6.87602- 3 3.80990+ 4 0.00000+ 0 1.52846- 31261 145400509 + 3.81000+ 4 0.00000+ 0 2.31025- 4 3.81010+ 4 0.00000+ 0 2.88957- 51261 145400510 + 3.81020+ 4 0.00000+ 0 1.97107- 6 3.81030+ 4 0.00000+ 0 4.92798- 81261 145400511 + 3.81040+ 4 0.00000+ 0 8.36454-10 3.81050+ 4 0.00000+ 0 7.40226-121261 145400512 + 3.90850+ 4 0.00000+ 0 0.00000+ 0 3.90850+ 4 1.00000+ 0 0.00000+ 01261 145400513 + 3.90870+ 4 0.00000+ 0 2.08113-13 3.90870+ 4 1.00000+ 0 2.15117-131261 145400514 + 3.90880+ 4 0.00000+ 0 6.75366-11 3.90890+ 4 0.00000+ 0 2.92159- 91261 145400515 + 3.90890+ 4 1.00000+ 0 2.92159- 9 3.90900+ 4 0.00000+ 0 2.22121- 61261 145400516 + 3.90900+ 4 1.00000+ 0 1.27069- 7 3.90910+ 4 0.00000+ 0 2.78151- 61261 145400517 + 3.90910+ 4 1.00000+ 0 2.78151- 6 3.90920+ 4 0.00000+ 0 7.79623- 51261 145400518 + 3.90930+ 4 0.00000+ 0 1.03642- 3 3.90940+ 4 0.00000+ 0 3.62598- 31261 145400519 + 3.90950+ 4 0.00000+ 0 9.51002- 3 3.90960+ 4 0.00000+ 0 2.27451- 21261 145400520 + 3.90970+ 4 0.00000+ 0 3.14031- 2 3.90980+ 4 0.00000+ 0 2.90438- 21261 145400521 + 3.90990+ 4 0.00000+ 0 1.85980- 2 3.91000+ 4 0.00000+ 0 8.46785- 31261 145400522 + 3.91010+ 4 0.00000+ 0 2.64759- 3 3.91020+ 4 0.00000+ 0 5.34620- 41261 145400523 + 3.91030+ 4 0.00000+ 0 5.35698- 5 3.91040+ 4 0.00000+ 0 2.55138- 61261 145400524 + 3.91050+ 4 0.00000+ 0 7.52342- 8 3.91070+ 4 0.00000+ 0 3.40362-101261 145400525 + 4.00870+ 4 0.00000+ 0 0.00000+ 0 4.00880+ 4 0.00000+ 0 0.00000+ 01261 145400526 + 4.00890+ 4 0.00000+ 0 7.10385-14 4.00890+ 4 1.00000+ 0 6.95377-141261 145400527 + 4.00900+ 4 0.00000+ 0 1.03056-11 4.00900+ 4 1.00000+ 0 1.04056-111261 145400528 + 4.00910+ 4 0.00000+ 0 1.58086- 9 4.00920+ 4 0.00000+ 0 7.65415- 81261 145400529 + 4.00930+ 4 0.00000+ 0 2.41131- 6 4.00940+ 4 0.00000+ 0 3.48089- 51261 145400530 + 4.00950+ 4 0.00000+ 0 2.97111- 4 4.00960+ 4 0.00000+ 0 2.17576- 31261 145400531 + 4.00970+ 4 0.00000+ 0 8.90774- 3 4.00980+ 4 0.00000+ 0 2.10838- 21261 145400532 + 4.00990+ 4 0.00000+ 0 3.81938- 2 4.01000+ 4 0.00000+ 0 4.45552- 21261 145400533 + 4.01010+ 4 0.00000+ 0 3.16594- 2 4.01020+ 4 0.00000+ 0 1.71790- 21261 145400534 + 4.01030+ 4 0.00000+ 0 5.26007- 3 4.01040+ 4 0.00000+ 0 7.95892- 41261 145400535 + 4.01050+ 4 0.00000+ 0 6.25988- 5 4.01060+ 4 0.00000+ 0 2.30225- 51261 145400536 + 4.01070+ 4 0.00000+ 0 1.02000- 6 4.01080+ 4 0.00000+ 0 1.45079- 81261 145400537 + 4.01090+ 4 0.00000+ 0 8.54516-11 4.01100+ 4 0.00000+ 0 1.21066-121261 145400538 + 4.10890+ 4 0.00000+ 0 0.00000+ 0 4.10890+ 4 1.00000+ 0 0.00000+ 01261 145400539 + 4.10900+ 4 0.00000+ 0 0.00000+ 0 4.10910+ 4 0.00000+ 0 0.00000+ 01261 145400540 + 4.10910+ 4 1.00000+ 0 0.00000+ 0 4.10920+ 4 0.00000+ 0 7.83425-131261 145400541 + 4.10920+ 4 1.00000+ 0 7.83425-13 4.10930+ 4 0.00000+ 0 9.27503-111261 145400542 + 4.10930+ 4 1.00000+ 0 9.89537-11 4.10940+ 4 0.00000+ 0 4.53246- 91261 145400543 + 4.10940+ 4 1.00000+ 0 4.57248- 9 4.10950+ 4 0.00000+ 0 1.81098- 71261 145400544 + 4.10950+ 4 1.00000+ 0 1.46079- 6 4.10960+ 4 0.00000+ 0 5.99325- 61261 145400545 + 4.10970+ 4 0.00000+ 0 1.08439- 4 4.10970+ 4 1.00000+ 0 3.75104- 51261 145400546 + 4.10980+ 4 0.00000+ 0 4.78259- 4 4.10980+ 4 1.00000+ 0 2.76160- 41261 145400547 + 4.10990+ 4 0.00000+ 0 1.38973- 3 4.10990+ 4 1.00000+ 0 1.52909- 31261 145400548 + 4.11000+ 4 0.00000+ 0 4.75269- 3 4.11000+ 4 1.00000+ 0 4.75268- 31261 145400549 + 4.11010+ 4 0.00000+ 0 1.49729- 2 4.11020+ 4 0.00000+ 0 2.01789- 21261 145400550 + 4.11030+ 4 0.00000+ 0 1.67645- 2 4.11040+ 4 0.00000+ 0 7.18981- 31261 145400551 + 4.11050+ 4 0.00000+ 0 1.78391- 3 4.11060+ 4 0.00000+ 0 6.55225- 41261 145400552 + 4.11070+ 4 0.00000+ 0 9.03692- 5 4.11080+ 4 0.00000+ 0 5.48297- 61261 145400553 + 4.11090+ 4 0.00000+ 0 1.49144- 7 4.11100+ 4 0.00000+ 0 6.80369- 91261 145400554 + 4.11110+ 4 0.00000+ 0 1.10357-10 4.20900+ 4 0.00000+ 0 0.00000+ 01261 145400555 + 4.20910+ 4 0.00000+ 0 0.00000+ 0 4.20910+ 4 1.00000+ 0 0.00000+ 01261 145400556 + 4.20920+ 4 0.00000+ 0 0.00000+ 0 4.20930+ 4 0.00000+ 0 0.00000+ 01261 145400557 + 4.20930+ 4 1.00000+ 0 0.00000+ 0 4.20940+ 4 0.00000+ 0 2.27123-131261 145400558 + 4.20950+ 4 0.00000+ 0 3.04165-11 4.20960+ 4 0.00000+ 0 1.75095- 91261 145400559 + 4.20970+ 4 0.00000+ 0 6.87373- 8 4.20980+ 4 0.00000+ 0 1.68091- 61261 145400560 + 4.20990+ 4 0.00000+ 0 2.95760- 5 4.21000+ 4 0.00000+ 0 2.95170- 41261 145400561 + 4.21010+ 4 0.00000+ 0 1.12367- 3 4.21020+ 4 0.00000+ 0 4.07195- 31261 145400562 + 4.21030+ 4 0.00000+ 0 9.11891- 3 4.21040+ 4 0.00000+ 0 9.71265- 31261 145400563 + 4.21050+ 4 0.00000+ 0 7.27887- 3 4.21060+ 4 0.00000+ 0 2.75495- 31261 145400564 + 4.21070+ 4 0.00000+ 0 1.03729- 3 4.21080+ 4 0.00000+ 0 2.38189- 41261 145400565 + 4.21090+ 4 0.00000+ 0 2.28332- 5 4.21100+ 4 0.00000+ 0 3.83208- 61261 145400566 + 4.21110+ 4 0.00000+ 0 2.53951- 7 4.21120+ 4 0.00000+ 0 1.76096- 81261 145400567 + 4.21130+ 4 0.00000+ 0 1.66643- 9 4.21140+ 4 0.00000+ 0 6.56356-111261 145400568 + 4.21150+ 4 0.00000+ 0 1.63716-12 4.21160+ 4 0.00000+ 0 2.61142-141261 145400569 + 4.30930+ 4 0.00000+ 0 0.00000+ 0 4.30930+ 4 1.00000+ 0 0.00000+ 01261 145400570 + 4.30950+ 4 0.00000+ 0 0.00000+ 0 4.30950+ 4 1.00000+ 0 0.00000+ 01261 145400571 + 4.30970+ 4 0.00000+ 0 6.95377-13 4.30970+ 4 1.00000+ 0 7.21391-131261 145400572 + 4.30980+ 4 0.00000+ 0 8.67471- 9 4.30990+ 4 0.00000+ 0 3.43186- 91261 145400573 + 4.30990+ 4 1.00000+ 0 3.43186- 9 4.31000+ 4 0.00000+ 0 2.38129- 71261 145400574 + 4.31010+ 4 0.00000+ 0 2.35128- 6 4.31020+ 4 0.00000+ 0 1.25368- 51261 145400575 + 4.31020+ 4 1.00000+ 0 1.25368- 5 4.31030+ 4 0.00000+ 0 1.76716- 41261 145400576 + 4.31040+ 4 0.00000+ 0 5.37171- 4 4.31050+ 4 0.00000+ 0 1.05314- 31261 145400577 + 4.31060+ 4 0.00000+ 0 4.67904- 4 4.31070+ 4 0.00000+ 0 4.66723- 41261 145400578 + 4.31080+ 4 0.00000+ 0 3.68130- 4 4.31090+ 4 0.00000+ 0 1.35383- 41261 145400579 + 4.31100+ 4 0.00000+ 0 5.93722- 5 4.31110+ 4 0.00000+ 0 1.75156- 51261 145400580 + 4.31120+ 4 0.00000+ 0 2.98162- 6 4.31130+ 4 0.00000+ 0 7.78472- 71261 145400581 + 4.31140+ 4 0.00000+ 0 8.78477- 8 4.31150+ 4 0.00000+ 0 7.26516- 91261 145400582 + 4.31160+ 4 0.00000+ 0 3.49189-10 4.31170+ 4 0.00000+ 0 7.03913-111261 145400583 + 4.40950+ 4 0.00000+ 0 0.00000+ 0 4.40970+ 4 0.00000+ 0 0.00000+ 01261 145400584 + 4.40980+ 4 0.00000+ 0 0.00000+ 0 4.40990+ 4 0.00000+ 0 1.56085-131261 145400585 + 4.41000+ 4 0.00000+ 0 1.87102-11 4.41010+ 4 0.00000+ 0 4.96269-101261 145400586 + 4.41020+ 4 0.00000+ 0 1.64089- 8 4.41030+ 4 0.00000+ 0 3.87210- 71261 145400587 + 4.41040+ 4 0.00000+ 0 3.90212- 6 4.41050+ 4 0.00000+ 0 2.62843- 51261 145400588 + 4.41060+ 4 0.00000+ 0 1.12661- 5 4.41070+ 4 0.00000+ 0 3.31880- 51261 145400589 + 4.41080+ 4 0.00000+ 0 9.80332- 5 4.41090+ 4 0.00000+ 0 1.36054- 41261 145400590 + 4.41100+ 4 0.00000+ 0 1.46299- 4 4.41110+ 4 0.00000+ 0 1.34483- 41261 145400591 + 4.41120+ 4 0.00000+ 0 6.22138- 5 4.41130+ 4 0.00000+ 0 3.46191- 51261 145400592 + 4.41140+ 4 0.00000+ 0 1.24968- 5 4.41150+ 4 0.00000+ 0 2.71421- 61261 145400593 + 4.41160+ 4 0.00000+ 0 4.55247- 7 4.41170+ 4 0.00000+ 0 3.02192- 71261 145400594 + 4.41180+ 4 0.00000+ 0 3.78205- 9 4.41200+ 4 0.00000+ 0 1.24067-111261 145400595 + 4.41220+ 4 0.00000+ 0 2.58140-14 4.41240+ 4 0.00000+ 0 0.00000+ 01261 145400596 + 4.50990+ 4 0.00000+ 0 0.00000+ 0 4.50990+ 4 1.00000+ 0 0.00000+ 01261 145400597 + 4.51010+ 4 0.00000+ 0 0.00000+ 0 4.51010+ 4 1.00000+ 0 0.00000+ 01261 145400598 + 4.51020+ 4 0.00000+ 0 1.61087-11 4.51020+ 4 1.00000+ 0 1.13061-131261 145400599 + 4.51030+ 4 0.00000+ 0 9.28504-12 4.51030+ 4 1.00000+ 0 9.28504-121261 145400600 + 4.51040+ 4 0.00000+ 0 3.17172-10 4.51040+ 4 1.00000+ 0 3.34181-101261 145400601 + 4.51050+ 4 0.00000+ 0 1.05057- 8 4.51050+ 4 1.00000+ 0 8.27449- 91261 145400602 + 4.51060+ 4 0.00000+ 0 3.46188- 9 4.51060+ 4 1.00000+ 0 3.46188- 91261 145400603 + 4.51070+ 4 0.00000+ 0 6.56356- 8 4.51080+ 4 0.00000+ 0 4.14225- 71261 145400604 + 4.51080+ 4 1.00000+ 0 4.14225- 7 4.51090+ 4 0.00000+ 0 2.53137- 61261 145400605 + 4.51090+ 4 1.00000+ 0 2.53137- 6 4.51100+ 4 0.00000+ 0 6.98379- 61261 145400606 + 4.51100+ 4 1.00000+ 0 6.98379- 6 4.51110+ 4 0.00000+ 0 4.34035- 51261 145400607 + 4.51120+ 4 0.00000+ 0 5.49098- 5 4.51130+ 4 0.00000+ 0 6.62860- 51261 145400608 + 4.51140+ 4 0.00000+ 0 5.55701- 5 4.51150+ 4 0.00000+ 0 3.20874- 51261 145400609 + 4.51160+ 4 0.00000+ 0 1.53183- 5 4.51170+ 4 0.00000+ 0 3.76984- 51261 145400610 + 4.51180+ 4 0.00000+ 0 1.06058- 6 4.51190+ 4 0.00000+ 0 2.26123- 71261 145400611 + 4.51200+ 4 0.00000+ 0 2.87156- 8 4.51210+ 4 0.00000+ 0 3.30179- 91261 145400612 + 4.51220+ 4 0.00000+ 0 3.68200-10 4.51230+ 4 0.00000+ 0 3.41185-111261 145400613 + 4.51240+ 4 0.00000+ 0 2.71147-12 4.60990+ 4 0.00000+ 0 0.00000+ 01261 145400614 + 4.61010+ 4 0.00000+ 0 0.00000+ 0 4.61020+ 4 0.00000+ 0 0.00000+ 01261 145400615 + 4.61030+ 4 0.00000+ 0 0.00000+ 0 4.61040+ 4 0.00000+ 0 1.07058-141261 145400616 + 4.61050+ 4 0.00000+ 0 9.82533-13 4.61060+ 4 0.00000+ 0 4.11223-131261 145400617 + 4.61070+ 4 0.00000+ 0 6.54355-12 4.61070+ 4 1.00000+ 0 7.00380-121261 145400618 + 4.61080+ 4 0.00000+ 0 7.57411-10 4.61090+ 4 0.00000+ 0 1.13061- 81261 145400619 + 4.61090+ 4 1.00000+ 0 1.13061- 8 4.61100+ 4 0.00000+ 0 1.79097- 71261 145400620 + 4.61110+ 4 0.00000+ 0 1.00054- 6 4.61110+ 4 1.00000+ 0 9.85535- 71261 145400621 + 4.61120+ 4 0.00000+ 0 6.48352- 6 4.61130+ 4 0.00000+ 0 2.16117- 51261 145400622 + 4.61140+ 4 0.00000+ 0 4.32134- 5 4.61150+ 4 0.00000+ 0 6.09731- 51261 145400623 + 4.61160+ 4 0.00000+ 0 7.50307- 5 4.61170+ 4 0.00000+ 0 6.49953- 51261 145400624 + 4.61180+ 4 0.00000+ 0 3.48689- 5 4.61190+ 4 0.00000+ 0 2.03210- 51261 145400625 + 4.61200+ 4 0.00000+ 0 6.88373- 6 4.61210+ 4 0.00000+ 0 1.97107- 61261 145400626 + 4.61220+ 4 0.00000+ 0 5.08276- 7 4.61230+ 4 0.00000+ 0 1.13061- 71261 145400627 + 4.61240+ 4 0.00000+ 0 2.26123- 8 4.61260+ 4 0.00000+ 0 2.58140-101261 145400628 + 4.61280+ 4 0.00000+ 0 8.59466-13 4.61300+ 4 0.00000+ 0 5.02272-141261 145400629 + 4.71030+ 4 0.00000+ 0 0.00000+ 0 4.71030+ 4 1.00000+ 0 0.00000+ 01261 145400630 + 4.71050+ 4 0.00000+ 0 0.00000+ 0 4.71050+ 4 1.00000+ 0 0.00000+ 01261 145400631 + 4.71060+ 4 0.00000+ 0 0.00000+ 0 4.71060+ 4 1.00000+ 0 0.00000+ 01261 145400632 + 4.71070+ 4 0.00000+ 0 0.00000+ 0 4.71070+ 4 1.00000+ 0 0.00000+ 01261 145400633 + 4.71080+ 4 0.00000+ 0 0.00000+ 0 4.71080+ 4 1.00000+ 0 0.00000+ 01261 145400634 + 4.71090+ 4 0.00000+ 0 1.32072-12 4.71090+ 4 1.00000+ 0 1.30071-121261 145400635 + 4.71100+ 4 0.00000+ 0 2.62142-11 4.71100+ 4 1.00000+ 0 2.82153-111261 145400636 + 4.71110+ 4 0.00000+ 0 1.26068- 9 4.71110+ 4 1.00000+ 0 1.31071- 91261 145400637 + 4.71120+ 4 0.00000+ 0 7.60413- 9 4.71130+ 4 0.00000+ 0 1.14062- 71261 145400638 + 4.71130+ 4 1.00000+ 0 1.14062- 7 4.71140+ 4 0.00000+ 0 1.17064- 61261 145400639 + 4.71150+ 4 0.00000+ 0 3.80206- 6 4.71150+ 4 1.00000+ 0 2.51136- 61261 145400640 + 4.71160+ 4 0.00000+ 0 7.39401- 6 4.71160+ 4 1.00000+ 0 7.39401- 61261 145400641 + 4.71170+ 4 0.00000+ 0 2.35128- 6 4.71170+ 4 1.00000+ 0 2.35128- 61261 145400642 + 4.71180+ 4 0.00000+ 0 5.52500- 5 4.71180+ 4 1.00000+ 0 2.09514- 51261 145400643 + 4.71190+ 4 0.00000+ 0 6.00026- 5 4.71200+ 4 0.00000+ 0 4.89966- 51261 145400644 + 4.71210+ 4 0.00000+ 0 3.23375- 5 4.71220+ 4 0.00000+ 0 1.81198- 51261 145400645 + 4.71230+ 4 0.00000+ 0 9.25502- 6 4.71240+ 4 0.00000+ 0 4.43240- 61261 145400646 + 4.71250+ 4 0.00000+ 0 8.96486- 7 4.71260+ 4 0.00000+ 0 4.01218- 71261 145400647 + 4.71280+ 4 0.00000+ 0 1.19065- 8 4.71290+ 4 0.00000+ 0 6.74716-101261 145400648 + 4.71300+ 4 0.00000+ 0 1.99108- 9 4.81050+ 4 0.00000+ 0 0.00000+ 01261 145400649 + 4.81060+ 4 0.00000+ 0 0.00000+ 0 4.81070+ 4 0.00000+ 0 0.00000+ 01261 145400650 + 4.81080+ 4 0.00000+ 0 0.00000+ 0 4.81090+ 4 0.00000+ 0 0.00000+ 01261 145400651 + 4.81100+ 4 0.00000+ 0 0.00000+ 0 4.81110+ 4 0.00000+ 0 1.55084-131261 145400652 + 4.81110+ 4 1.00000+ 0 1.48080-13 4.81120+ 4 0.00000+ 0 1.43078- 61261 145400653 + 4.81130+ 4 0.00000+ 0 1.32072-10 4.81130+ 4 1.00000+ 0 7.39401- 71261 145400654 + 4.81140+ 4 0.00000+ 0 3.79206- 9 4.81150+ 4 0.00000+ 0 9.08493- 71261 145400655 + 4.81150+ 4 1.00000+ 0 2.37129- 8 4.81160+ 4 0.00000+ 0 4.22229- 71261 145400656 + 4.81170+ 4 0.00000+ 0 2.19119- 8 4.81170+ 4 1.00000+ 0 2.19119- 81261 145400657 + 4.81180+ 4 0.00000+ 0 8.66470- 6 4.81190+ 4 0.00000+ 0 1.54284- 51261 145400658 + 4.81190+ 4 1.00000+ 0 1.54284- 5 4.81200+ 4 0.00000+ 0 5.88619- 51261 145400659 + 4.81210+ 4 0.00000+ 0 8.18244- 5 4.81220+ 4 0.00000+ 0 9.41211- 51261 145400660 + 4.81230+ 4 0.00000+ 0 9.49615- 5 4.81240+ 4 0.00000+ 0 1.05587- 41261 145400661 + 4.81250+ 4 0.00000+ 0 5.13579- 5 4.81260+ 4 0.00000+ 0 6.60058- 51261 145400662 + 4.81270+ 4 0.00000+ 0 3.36683- 5 4.81280+ 4 0.00000+ 0 1.59086- 51261 145400663 + 4.81290+ 4 0.00000+ 0 2.96817- 6 4.81300+ 4 0.00000+ 0 7.50407- 61261 145400664 + 4.81310+ 4 0.00000+ 0 6.95377- 7 4.81320+ 4 0.00000+ 0 6.22338- 81261 145400665 + 4.81360+ 4 0.00000+ 0 0.00000+ 0 4.91070+ 4 0.00000+ 0 0.00000+ 01261 145400666 + 4.91090+ 4 0.00000+ 0 0.00000+ 0 4.91090+ 4 1.00000+ 0 0.00000+ 01261 145400667 + 4.91110+ 4 0.00000+ 0 0.00000+ 0 4.91110+ 4 1.00000+ 0 0.00000+ 01261 145400668 + 4.91120+ 4 0.00000+ 0 0.00000+ 0 4.91120+ 4 1.00000+ 0 0.00000+ 01261 145400669 + 4.91130+ 4 0.00000+ 0 0.00000+ 0 4.91130+ 4 1.00000+ 0 0.00000+ 01261 145400670 + 4.91140+ 4 0.00000+ 0 1.38075-13 4.91140+ 4 1.00000+ 0 1.35073-131261 145400671 + 4.91150+ 4 0.00000+ 0 5.39293-12 4.91150+ 4 1.00000+ 0 5.39293-121261 145400672 + 4.91160+ 4 0.00000+ 0 1.55084-10 4.91160+ 4 1.00000+ 0 1.55084-101261 145400673 + 4.91170+ 4 0.00000+ 0 4.95269-12 4.91170+ 4 1.00000+ 0 4.95269-121261 145400674 + 4.91180+ 4 0.00000+ 0 2.76150- 8 4.91180+ 4 1.00000+ 0 2.75149- 81261 145400675 + 4.91190+ 4 0.00000+ 0 2.73148- 7 4.91190+ 4 1.00000+ 0 2.73148- 71261 145400676 + 4.91200+ 4 0.00000+ 0 1.31071- 6 4.91200+ 4 1.00000+ 0 1.31071- 61261 145400677 + 4.91210+ 4 0.00000+ 0 4.21229- 6 4.91210+ 4 1.00000+ 0 7.97433- 61261 145400678 + 4.91220+ 4 0.00000+ 0 9.68525- 6 4.91220+ 4 1.00000+ 0 9.67525- 61261 145400679 + 4.91230+ 4 0.00000+ 0 2.04411- 5 4.91230+ 4 1.00000+ 0 1.95006- 51261 145400680 + 4.91240+ 4 0.00000+ 0 9.53617- 5 4.91250+ 4 0.00000+ 0 5.06975- 51261 145400681 + 4.91250+ 4 1.00000+ 0 5.07075- 5 4.91260+ 4 0.00000+ 0 3.34351- 41261 145400682 + 4.91270+ 4 0.00000+ 0 2.08593- 4 4.91270+ 4 1.00000+ 0 2.09384- 41261 145400683 + 4.91280+ 4 0.00000+ 0 5.51249- 4 4.91290+ 4 0.00000+ 0 3.79008- 41261 145400684 + 4.91300+ 4 0.00000+ 0 6.87323- 4 4.91310+ 4 0.00000+ 0 2.25372- 41261 145400685 + 4.91320+ 4 0.00000+ 0 6.73065- 5 4.91330+ 4 0.00000+ 0 3.88211- 61261 145400686 + 4.91340+ 4 0.00000+ 0 5.81315- 8 4.91360+ 4 0.00000+ 0 2.20119-111261 145400687 + 5.01110+ 4 0.00000+ 0 0.00000+ 0 5.01120+ 4 0.00000+ 0 0.00000+ 01261 145400688 + 5.01130+ 4 0.00000+ 0 0.00000+ 0 5.01130+ 4 1.00000+ 0 0.00000+ 01261 145400689 + 5.01140+ 4 0.00000+ 0 0.00000+ 0 5.01150+ 4 0.00000+ 0 0.00000+ 01261 145400690 + 5.01160+ 4 0.00000+ 0 2.22121-14 5.01170+ 4 0.00000+ 0 0.00000+ 01261 145400691 + 5.01170+ 4 1.00000+ 0 0.00000+ 0 5.01180+ 4 0.00000+ 0 3.72202-111261 145400692 + 5.01190+ 4 0.00000+ 0 5.47297-10 5.01190+ 4 1.00000+ 0 5.47297-101261 145400693 + 5.01200+ 4 0.00000+ 0 1.45079- 8 5.01210+ 4 0.00000+ 0 5.91321- 81261 145400694 + 5.01210+ 4 1.00000+ 0 5.95323- 8 5.01220+ 4 0.00000+ 0 5.84317- 71261 145400695 + 5.01230+ 4 0.00000+ 0 1.70893- 5 5.01230+ 4 1.00000+ 0 1.93105- 61261 145400696 + 5.01240+ 4 0.00000+ 0 1.41577- 5 5.01250+ 4 0.00000+ 0 1.02516- 41261 145400697 + 5.01250+ 4 1.00000+ 0 3.98916- 5 5.01260+ 4 0.00000+ 0 1.65980- 41261 145400698 + 5.01270+ 4 0.00000+ 0 3.81717- 4 5.01270+ 4 1.00000+ 0 4.18317- 41261 145400699 + 5.01280+ 4 0.00000+ 0 2.75759- 3 5.01290+ 4 0.00000+ 0 1.84915- 31261 145400700 + 5.01290+ 4 1.00000+ 0 3.30821- 3 5.01300+ 4 0.00000+ 0 8.21832- 31261 145400701 + 5.01310+ 4 0.00000+ 0 9.15355- 3 5.01320+ 4 0.00000+ 0 5.75534- 31261 145400702 + 5.01330+ 4 0.00000+ 0 1.67727- 3 5.01340+ 4 0.00000+ 0 1.02316- 41261 145400703 + 5.01350+ 4 0.00000+ 0 1.23667- 5 5.01360+ 4 0.00000+ 0 5.39293- 71261 145400704 + 5.01370+ 4 0.00000+ 0 1.05057- 8 5.01380+ 4 0.00000+ 0 1.87102-101261 145400705 + 5.11130+ 4 0.00000+ 0 0.00000+ 0 5.11150+ 4 0.00000+ 0 0.00000+ 01261 145400706 + 5.11170+ 4 0.00000+ 0 0.00000+ 0 5.11180+ 4 0.00000+ 0 0.00000+ 01261 145400707 + 5.11180+ 4 1.00000+ 0 0.00000+ 0 5.11190+ 4 0.00000+ 0 4.78259-141261 145400708 + 5.11200+ 4 0.00000+ 0 8.87481-13 5.11200+ 4 1.00000+ 0 8.87481-131261 145400709 + 5.11210+ 4 0.00000+ 0 2.20119- 7 5.11220+ 4 0.00000+ 0 2.17118-101261 145400710 + 5.11220+ 4 1.00000+ 0 2.28124-10 5.11230+ 4 0.00000+ 0 5.40293- 91261 145400711 + 5.11240+ 4 0.00000+ 0 3.22175- 8 5.11240+ 4 1.00000+ 0 2.95160- 81261 145400712 + 5.11250+ 4 0.00000+ 0 5.93322- 7 5.11260+ 4 0.00000+ 0 8.40456- 61261 145400713 + 5.11260+ 4 1.00000+ 0 3.35182- 6 5.11270+ 4 0.00000+ 0 5.12278- 51261 145400714 + 5.11280+ 4 0.00000+ 0 1.10450- 4 5.11280+ 4 1.00000+ 0 6.59158- 51261 145400715 + 5.11290+ 4 0.00000+ 0 8.15142- 4 5.11300+ 4 0.00000+ 0 2.07172- 31261 145400716 + 5.11300+ 4 1.00000+ 0 3.03253- 3 5.11310+ 4 0.00000+ 0 1.59280- 21261 145400717 + 5.11320+ 4 0.00000+ 0 1.05869- 2 5.11320+ 4 1.00000+ 0 1.05127- 21261 145400718 + 5.11330+ 4 0.00000+ 0 2.08273- 2 5.11340+ 4 0.00000+ 0 2.28627- 31261 145400719 + 5.11340+ 4 1.00000+ 0 2.28627- 3 5.11350+ 4 0.00000+ 0 1.97399- 31261 145400720 + 5.11360+ 4 0.00000+ 0 2.99923- 4 5.11370+ 4 0.00000+ 0 2.03110- 51261 145400721 + 5.11380+ 4 0.00000+ 0 1.27069- 6 5.11390+ 4 0.00000+ 0 5.89320- 81261 145400722 + 5.11410+ 4 0.00000+ 0 1.66645-11 5.21150+ 4 0.00000+ 0 0.00000+ 01261 145400723 + 5.21170+ 4 0.00000+ 0 0.00000+ 0 5.21180+ 4 0.00000+ 0 0.00000+ 01261 145400724 + 5.21190+ 4 0.00000+ 0 0.00000+ 0 5.21190+ 4 1.00000+ 0 0.00000+ 01261 145400725 + 5.21200+ 4 0.00000+ 0 0.00000+ 0 5.21210+ 4 0.00000+ 0 0.00000+ 01261 145400726 + 5.21210+ 4 1.00000+ 0 0.00000+ 0 5.21220+ 4 0.00000+ 0 3.47188-141261 145400727 + 5.21230+ 4 0.00000+ 0 4.85263-13 5.21230+ 4 1.00000+ 0 5.03273-131261 145400728 + 5.21240+ 4 0.00000+ 0 2.99162-11 5.21250+ 4 0.00000+ 0 3.56193-101261 145400729 + 5.21250+ 4 1.00000+ 0 3.56193-10 5.21260+ 4 0.00000+ 0 2.49135- 81261 145400730 + 5.21270+ 4 0.00000+ 0 2.03110- 7 5.21270+ 4 1.00000+ 0 6.01326- 71261 145400731 + 5.21280+ 4 0.00000+ 0 1.78097- 6 5.21290+ 4 0.00000+ 0 1.22496- 41261 145400732 + 5.21290+ 4 1.00000+ 0 1.11911- 4 5.21300+ 4 0.00000+ 0 4.50725- 41261 145400733 + 5.21310+ 4 0.00000+ 0 1.10082- 3 5.21310+ 4 1.00000+ 0 1.90952- 31261 145400734 + 5.21320+ 4 0.00000+ 0 1.53868- 2 5.21330+ 4 0.00000+ 0 1.22976- 21261 145400735 + 5.21330+ 4 1.00000+ 0 3.01179- 2 5.21340+ 4 0.00000+ 0 6.30900- 21261 145400736 + 5.21350+ 4 0.00000+ 0 3.07673- 2 5.21360+ 4 0.00000+ 0 1.87379- 21261 145400737 + 5.21370+ 4 0.00000+ 0 4.08904- 3 5.21380+ 4 0.00000+ 0 8.52563- 41261 145400738 + 5.21390+ 4 0.00000+ 0 1.32232- 4 5.21400+ 4 0.00000+ 0 1.25468- 51261 145400739 + 5.21410+ 4 0.00000+ 0 4.49750- 7 5.21420+ 4 0.00000+ 0 7.23392- 91261 145400740 + 5.21430+ 4 0.00000+ 0 1.29627-10 5.21440+ 4 0.00000+ 0 1.35468-121261 145400741 + 5.31210+ 4 0.00000+ 0 0.00000+ 0 5.31230+ 4 0.00000+ 0 0.00000+ 01261 145400742 + 5.31250+ 4 0.00000+ 0 1.90103-14 5.31260+ 4 0.00000+ 0 9.30505- 91261 145400743 + 5.31270+ 4 0.00000+ 0 1.00054-10 5.31280+ 4 0.00000+ 0 1.32072- 71261 145400744 + 5.31290+ 4 0.00000+ 0 1.45079- 7 5.31300+ 4 0.00000+ 0 1.72093- 61261 145400745 + 5.31300+ 4 1.00000+ 0 7.42403- 7 5.31310+ 4 0.00000+ 0 3.97516- 51261 145400746 + 5.31320+ 4 0.00000+ 0 1.69582- 4 5.31330+ 4 0.00000+ 0 1.65626- 31261 145400747 + 5.31330+ 4 1.00000+ 0 1.29024- 3 5.31340+ 4 0.00000+ 0 4.28592- 31261 145400748 + 5.31340+ 4 1.00000+ 0 4.26199- 3 5.31350+ 4 0.00000+ 0 3.07388- 21261 145400749 + 5.31360+ 4 0.00000+ 0 1.12712- 2 5.31360+ 4 1.00000+ 0 1.99340- 21261 145400750 + 5.31370+ 4 0.00000+ 0 2.85179- 2 5.31380+ 4 0.00000+ 0 1.55722- 21261 145400751 + 5.31390+ 4 0.00000+ 0 7.42281- 3 5.31400+ 4 0.00000+ 0 2.25142- 31261 145400752 + 5.31410+ 4 0.00000+ 0 3.30290- 4 5.31420+ 4 0.00000+ 0 2.20920- 51261 145400753 + 5.31430+ 4 0.00000+ 0 8.93134- 7 5.31440+ 4 0.00000+ 0 3.19635- 81261 145400754 + 5.41250+ 4 0.00000+ 0 0.00000+ 0 5.41250+ 4 1.00000+ 0 0.00000+ 01261 145400755 + 5.41260+ 4 0.00000+ 0 4.89265-13 5.41270+ 4 0.00000+ 0 0.00000+ 01261 145400756 + 5.41270+ 4 1.00000+ 0 0.00000+ 0 5.41280+ 4 0.00000+ 0 1.12061- 81261 145400757 + 5.41290+ 4 0.00000+ 0 5.59303-11 5.41290+ 4 1.00000+ 0 5.17281-111261 145400758 + 5.41300+ 4 0.00000+ 0 3.13170-10 5.41310+ 4 0.00000+ 0 7.70418- 91261 145400759 + 5.41310+ 4 1.00000+ 0 7.70418- 9 5.41320+ 4 0.00000+ 0 8.33452- 71261 145400760 + 5.41330+ 4 0.00000+ 0 6.51353- 6 5.41330+ 4 1.00000+ 0 1.90804- 51261 145400761 + 5.41340+ 4 0.00000+ 0 2.56399- 4 5.41340+ 4 1.00000+ 0 2.36949- 41261 145400762 + 5.41350+ 4 0.00000+ 0 9.31095- 4 5.41350+ 4 1.00000+ 0 1.61409- 31261 145400763 + 5.41360+ 4 0.00000+ 0 1.24749- 2 5.41370+ 4 0.00000+ 0 2.89693- 21261 145400764 + 5.41380+ 4 0.00000+ 0 4.60953- 2 5.41390+ 4 0.00000+ 0 4.40676- 21261 145400765 + 5.41400+ 4 0.00000+ 0 3.48985- 2 5.41410+ 4 0.00000+ 0 1.19211- 21261 145400766 + 5.41420+ 4 0.00000+ 0 3.71384- 3 5.41430+ 4 0.00000+ 0 5.09994- 41261 145400767 + 5.41440+ 4 0.00000+ 0 6.03808- 5 5.41450+ 4 0.00000+ 0 8.04436- 71261 145400768 + 5.41460+ 4 0.00000+ 0 1.22066- 7 5.41470+ 4 0.00000+ 0 2.43570- 91261 145400769 + 5.41480+ 4 0.00000+ 0 2.01109-11 5.41500+ 4 0.00000+ 0 0.00000+ 01261 145400770 + 5.51270+ 4 0.00000+ 0 0.00000+ 0 5.51290+ 4 0.00000+ 0 0.00000+ 01261 145400771 + 5.51310+ 4 0.00000+ 0 2.40130-13 5.51320+ 4 0.00000+ 0 7.53409-101261 145400772 + 5.51330+ 4 0.00000+ 0 5.08276- 7 5.51340+ 4 0.00000+ 0 1.02055- 71261 145400773 + 5.51340+ 4 1.00000+ 0 2.55138- 7 5.51350+ 4 0.00000+ 0 8.31451- 61261 145400774 + 5.51350+ 4 1.00000+ 0 6.05328- 6 5.51360+ 4 0.00000+ 0 5.30788- 51261 145400775 + 5.51370+ 4 0.00000+ 0 1.08421- 3 5.51380+ 4 0.00000+ 0 3.12203- 31261 145400776 + 5.51380+ 4 1.00000+ 0 2.52240- 3 5.51390+ 4 0.00000+ 0 1.25601- 21261 145400777 + 5.51400+ 4 0.00000+ 0 2.18289- 2 5.51410+ 4 0.00000+ 0 3.19666- 21261 145400778 + 5.51420+ 4 0.00000+ 0 2.45417- 2 5.51430+ 4 0.00000+ 0 1.49813- 21261 145400779 + 5.51440+ 4 0.00000+ 0 2.81721- 3 5.51450+ 4 0.00000+ 0 6.79229- 41261 145400780 + 5.51460+ 4 0.00000+ 0 7.41302- 5 5.51470+ 4 0.00000+ 0 6.00159- 61261 145400781 + 5.51480+ 4 0.00000+ 0 1.75095- 7 5.51500+ 4 0.00000+ 0 3.92213-111261 145400782 + 5.61290+ 4 0.00000+ 0 0.00000+ 0 5.61290+ 4 1.00000+ 0 0.00000+ 01261 145400783 + 5.61310+ 4 0.00000+ 0 0.00000+ 0 5.61310+ 4 1.00000+ 0 0.00000+ 01261 145400784 + 5.61320+ 4 0.00000+ 0 0.00000+ 0 5.61330+ 4 0.00000+ 0 1.78097-131261 145400785 + 5.61340+ 4 0.00000+ 0 3.52191-10 5.61350+ 4 0.00000+ 0 2.24122- 91261 145400786 + 5.61350+ 4 1.00000+ 0 2.36128- 9 5.61360+ 4 0.00000+ 0 7.12386- 81261 145400787 + 5.61370+ 4 0.00000+ 0 2.51136- 6 5.61370+ 4 1.00000+ 0 2.51136- 61261 145400788 + 5.61380+ 4 0.00000+ 0 7.73320- 5 5.61390+ 4 0.00000+ 0 6.80319- 41261 145400789 + 5.61400+ 4 0.00000+ 0 4.21108- 3 5.61410+ 4 0.00000+ 0 1.44789- 21261 145400790 + 5.61420+ 4 0.00000+ 0 3.00151- 2 5.61430+ 4 0.00000+ 0 3.76306- 21261 145400791 + 5.61440+ 4 0.00000+ 0 3.98174- 2 5.61450+ 4 0.00000+ 0 1.91069- 21261 145400792 + 5.61460+ 4 0.00000+ 0 6.55407- 3 5.61470+ 4 0.00000+ 0 1.27585- 31261 145400793 + 5.61480+ 4 0.00000+ 0 1.49311- 4 5.61490+ 4 0.00000+ 0 9.01489- 61261 145400794 + 5.61500+ 4 0.00000+ 0 4.06220- 7 5.61520+ 4 0.00000+ 0 1.75095-101261 145400795 + 5.61540+ 4 0.00000+ 0 0.00000+ 0 5.71330+ 4 0.00000+ 0 0.00000+ 01261 145400796 + 5.71350+ 4 0.00000+ 0 3.54192-14 5.71370+ 4 0.00000+ 0 4.96269-101261 145400797 + 5.71380+ 4 0.00000+ 0 6.32343- 7 5.71390+ 4 0.00000+ 0 7.80423- 71261 145400798 + 5.71400+ 4 0.00000+ 0 5.67108- 5 5.71410+ 4 0.00000+ 0 1.97687- 41261 145400799 + 5.71420+ 4 0.00000+ 0 1.01269- 3 5.71430+ 4 0.00000+ 0 6.27980- 31261 145400800 + 5.71440+ 4 0.00000+ 0 1.12398- 2 5.71450+ 4 0.00000+ 0 1.71971- 21261 145400801 + 5.71460+ 4 0.00000+ 0 1.63085- 2 5.71470+ 4 0.00000+ 0 9.36361- 31261 145400802 + 5.71480+ 4 0.00000+ 0 3.40134- 3 5.71490+ 4 0.00000+ 0 6.94287- 41261 145400803 + 5.71500+ 4 0.00000+ 0 9.78831- 5 5.71510+ 4 0.00000+ 0 8.30451- 61261 145400804 + 5.71520+ 4 0.00000+ 0 4.72256- 7 5.71530+ 4 0.00000+ 0 1.37074- 81261 145400805 + 5.71540+ 4 0.00000+ 0 2.83154-10 5.81350+ 4 0.00000+ 0 0.00000+ 01261 145400806 + 5.81370+ 4 0.00000+ 0 0.00000+ 0 5.81370+ 4 1.00000+ 0 0.00000+ 01261 145400807 + 5.81380+ 4 0.00000+ 0 1.20065-11 5.81390+ 4 0.00000+ 0 4.64252-111261 145400808 + 5.81390+ 4 1.00000+ 0 4.87264-11 5.81400+ 4 0.00000+ 0 6.73365- 91261 145400809 + 5.81410+ 4 0.00000+ 0 2.31125- 7 5.81420+ 4 0.00000+ 0 5.17281- 61261 145400810 + 5.81430+ 4 0.00000+ 0 3.18543- 4 5.81440+ 4 0.00000+ 0 6.31603- 41261 145400811 + 5.81450+ 4 0.00000+ 0 2.34866- 3 5.81460+ 4 0.00000+ 0 6.90209- 31261 145400812 + 5.81470+ 4 0.00000+ 0 1.15128- 2 5.81480+ 4 0.00000+ 0 1.17006- 21261 145400813 + 5.81490+ 4 0.00000+ 0 7.10230- 3 5.81500+ 4 0.00000+ 0 2.82043- 31261 145400814 + 5.81510+ 4 0.00000+ 0 7.27585- 4 5.81520+ 4 0.00000+ 0 1.31091- 41261 145400815 + 5.81530+ 4 0.00000+ 0 1.24568- 5 5.81540+ 4 0.00000+ 0 7.85426- 71261 145400816 + 5.81550+ 4 0.00000+ 0 3.23175- 8 5.81560+ 4 0.00000+ 0 7.92430-101261 145400817 + 5.81570+ 4 0.00000+ 0 1.47080-11 5.81580+ 4 0.00000+ 0 1.93105-131261 145400818 + 5.81600+ 4 0.00000+ 0 0.00000+ 0 5.91390+ 4 0.00000+ 0 0.00000+ 01261 145400819 + 5.91400+ 4 0.00000+ 0 6.03327-14 5.91410+ 4 0.00000+ 0 7.42403-121261 145400820 + 5.91420+ 4 0.00000+ 0 2.88156-10 5.91420+ 4 1.00000+ 0 2.88156-101261 145400821 + 5.91430+ 4 0.00000+ 0 2.73148- 8 5.91440+ 4 0.00000+ 0 6.85372- 71261 145400822 + 5.91440+ 4 1.00000+ 0 3.48189- 7 5.91450+ 4 0.00000+ 0 9.52517- 61261 145400823 + 5.91460+ 4 0.00000+ 0 8.77876- 5 5.91470+ 4 0.00000+ 0 5.51909- 41261 145400824 + 5.91480+ 4 0.00000+ 0 1.62418- 3 5.91490+ 4 0.00000+ 0 2.89700- 31261 145400825 + 5.91500+ 4 0.00000+ 0 3.00227- 3 5.91510+ 4 0.00000+ 0 2.22590- 31261 145400826 + 5.91520+ 4 0.00000+ 0 1.06457- 3 5.91530+ 4 0.00000+ 0 2.99933- 41261 145400827 + 5.91540+ 4 0.00000+ 0 5.39193- 5 5.91550+ 4 0.00000+ 0 6.52354- 61261 145400828 + 5.91560+ 4 0.00000+ 0 4.83262- 7 5.91570+ 4 0.00000+ 0 2.66144- 81261 145400829 + 5.91580+ 4 0.00000+ 0 1.06058- 9 5.91590+ 4 0.00000+ 0 1.70092-111261 145400830 + 5.91600+ 4 0.00000+ 0 3.75204-12 6.01400+ 4 0.00000+ 0 0.00000+ 01261 145400831 + 6.01410+ 4 0.00000+ 0 0.00000+ 0 6.01410+ 4 1.00000+ 0 0.00000+ 01261 145400832 + 6.01420+ 4 0.00000+ 0 0.00000+ 0 6.01430+ 4 0.00000+ 0 9.49515-131261 145400833 + 6.01440+ 4 0.00000+ 0 9.62522- 6 6.01450+ 4 0.00000+ 0 4.06220- 91261 145400834 + 6.01460+ 4 0.00000+ 0 1.30071- 7 6.01470+ 4 0.00000+ 0 3.06166- 61261 145400835 + 6.01480+ 4 0.00000+ 0 3.11269- 5 6.01490+ 4 0.00000+ 0 1.84610- 41261 145400836 + 6.01500+ 4 0.00000+ 0 5.41004- 4 6.01510+ 4 0.00000+ 0 1.22292- 31261 145400837 + 6.01520+ 4 0.00000+ 0 1.43907- 3 6.01530+ 4 0.00000+ 0 1.14526- 31261 145400838 + 6.01540+ 4 0.00000+ 0 4.98380- 4 6.01550+ 4 0.00000+ 0 1.59847- 41261 145400839 + 6.01560+ 4 0.00000+ 0 3.27878- 5 6.01570+ 4 0.00000+ 0 5.05274- 61261 145400840 + 6.01580+ 4 0.00000+ 0 5.78314- 7 6.01590+ 4 0.00000+ 0 2.90157- 81261 145400841 + 6.01600+ 4 0.00000+ 0 7.46405- 9 6.01610+ 4 0.00000+ 0 1.32072-111261 145400842 + 6.01620+ 4 0.00000+ 0 1.67091-13 6.01630+ 4 0.00000+ 0 0.00000+ 01261 145400843 + 6.01640+ 4 0.00000+ 0 0.00000+ 0 6.11410+ 4 0.00000+ 0 0.00000+ 01261 145400844 + 6.11430+ 4 0.00000+ 0 0.00000+ 0 6.11440+ 4 0.00000+ 0 0.00000+ 01261 145400845 + 6.11450+ 4 0.00000+ 0 3.65198-14 6.11460+ 4 0.00000+ 0 4.08221-121261 145400846 + 6.11470+ 4 0.00000+ 0 4.04219-10 6.11480+ 4 0.00000+ 0 5.73311- 81261 145400847 + 6.11480+ 4 1.00000+ 0 7.49407- 9 6.11490+ 4 0.00000+ 0 3.19173- 71261 145400848 + 6.11500+ 4 0.00000+ 0 5.41294- 6 6.11510+ 4 0.00000+ 0 1.80898- 51261 145400849 + 6.11520+ 4 0.00000+ 0 3.68900- 5 6.11520+ 4 1.00000+ 0 3.68900- 51261 145400850 + 6.11530+ 4 0.00000+ 0 1.60257- 4 6.11540+ 4 0.00000+ 0 9.18698- 51261 145400851 + 6.11540+ 4 1.00000+ 0 9.17598- 5 6.11550+ 4 0.00000+ 0 1.40526- 41261 145400852 + 6.11560+ 4 0.00000+ 0 7.23593- 5 6.11570+ 4 0.00000+ 0 2.91558- 51261 145400853 + 6.11580+ 4 0.00000+ 0 8.72473- 6 6.11590+ 4 0.00000+ 0 1.26068- 61261 145400854 + 6.11600+ 4 0.00000+ 0 3.73202- 7 6.11610+ 4 0.00000+ 0 5.59303- 91261 145400855 + 6.11620+ 4 0.00000+ 0 2.24122-10 6.11630+ 4 0.00000+ 0 5.50299-121261 145400856 + 6.11640+ 4 0.00000+ 0 7.08384-14 6.11650+ 4 0.00000+ 0 0.00000+ 01261 145400857 + 6.21430+ 4 0.00000+ 0 0.00000+ 0 6.21430+ 4 1.00000+ 0 0.00000+ 01261 145400858 + 6.21440+ 4 0.00000+ 0 0.00000+ 0 6.21450+ 4 0.00000+ 0 0.00000+ 01261 145400859 + 6.21460+ 4 0.00000+ 0 0.00000+ 0 6.21470+ 4 0.00000+ 0 0.00000+ 01261 145400860 + 6.21480+ 4 0.00000+ 0 6.95377-13 6.21490+ 4 0.00000+ 0 6.72365-111261 145400861 + 6.21500+ 4 0.00000+ 0 3.02164- 9 6.21510+ 4 0.00000+ 0 3.97216- 81261 145400862 + 6.21520+ 4 0.00000+ 0 4.70255- 7 6.21530+ 4 0.00000+ 0 3.21174- 61261 145400863 + 6.21540+ 4 0.00000+ 0 1.04957- 5 6.21550+ 4 0.00000+ 0 2.26023- 51261 145400864 + 6.21560+ 4 0.00000+ 0 2.91358- 5 6.21570+ 4 0.00000+ 0 2.93259- 51261 145400865 + 6.21580+ 4 0.00000+ 0 2.09414- 5 6.21590+ 4 0.00000+ 0 7.18390- 61261 145400866 + 6.21600+ 4 0.00000+ 0 2.60141- 6 6.21610+ 4 0.00000+ 0 2.72148- 71261 145400867 + 6.21620+ 4 0.00000+ 0 3.18173- 8 6.21630+ 4 0.00000+ 0 2.44132- 91261 145400868 + 6.21640+ 4 0.00000+ 0 1.01055-10 6.21650+ 4 0.00000+ 0 5.01272-121261 145400869 + 6.21660+ 4 0.00000+ 0 1.19065-13 6.21670+ 4 0.00000+ 0 0.00000+ 01261 145400870 + 6.21680+ 4 0.00000+ 0 0.00000+ 0 6.21700+ 4 0.00000+ 0 0.00000+ 01261 145400871 + 6.31470+ 4 0.00000+ 0 0.00000+ 0 6.31490+ 4 0.00000+ 0 0.00000+ 01261 145400872 + 6.31510+ 4 0.00000+ 0 5.71310- 7 6.31520+ 4 0.00000+ 0 3.30179-111261 145400873 + 6.31520+ 4 1.00000+ 0 3.30179-11 6.31530+ 4 0.00000+ 0 6.88373- 71261 145400874 + 6.31540+ 4 0.00000+ 0 1.63088- 8 6.31550+ 4 0.00000+ 0 1.02055- 71261 145400875 + 6.31560+ 4 0.00000+ 0 3.82207- 7 6.31570+ 4 0.00000+ 0 1.03056- 61261 145400876 + 6.31580+ 4 0.00000+ 0 1.94105- 6 6.31590+ 4 0.00000+ 0 1.86101- 61261 145400877 + 6.31600+ 4 0.00000+ 0 7.32397- 7 6.31610+ 4 0.00000+ 0 4.63251- 71261 145400878 + 6.31620+ 4 0.00000+ 0 1.42077- 7 6.31630+ 4 0.00000+ 0 3.05166- 81261 145400879 + 6.31640+ 4 0.00000+ 0 3.70201- 9 6.31650+ 4 0.00000+ 0 5.63306-101261 145400880 + 6.31660+ 4 0.00000+ 0 4.21229-11 6.31670+ 4 0.00000+ 0 3.63197-121261 145400881 + 6.31680+ 4 0.00000+ 0 6.25339-14 6.31690+ 4 0.00000+ 0 0.00000+ 01261 145400882 + 6.31700+ 4 0.00000+ 0 0.00000+ 0 6.41470+ 4 0.00000+ 0 0.00000+ 01261 145400883 + 6.41490+ 4 0.00000+ 0 0.00000+ 0 6.41510+ 4 0.00000+ 0 0.00000+ 01261 145400884 + 6.41520+ 4 0.00000+ 0 0.00000+ 0 6.41530+ 4 0.00000+ 0 9.32506-141261 145400885 + 6.41540+ 4 0.00000+ 0 2.53137-12 6.41550+ 4 0.00000+ 0 4.41239-111261 145400886 + 6.41560+ 4 0.00000+ 0 5.65307-10 6.41570+ 4 0.00000+ 0 4.43240- 81261 145400887 + 6.41580+ 4 0.00000+ 0 2.43132- 8 6.41590+ 4 0.00000+ 0 6.47351- 81261 145400888 + 6.41600+ 4 0.00000+ 0 3.08167- 8 6.41610+ 4 0.00000+ 0 1.36074- 71261 145400889 + 6.41620+ 4 0.00000+ 0 1.09059- 7 6.41630+ 4 0.00000+ 0 6.13333- 81261 145400890 + 6.41640+ 4 0.00000+ 0 1.96106- 8 6.41650+ 4 0.00000+ 0 8.09439- 91261 145400891 + 6.41660+ 4 0.00000+ 0 1.73094- 9 6.41670+ 4 0.00000+ 0 4.47243-101261 145400892 + 6.41680+ 4 0.00000+ 0 2.40130-11 6.41690+ 4 0.00000+ 0 1.53083-121261 145400893 + 6.41700+ 4 0.00000+ 0 3.40185-14 6.41710+ 4 0.00000+ 0 0.00000+ 01261 145400894 + 6.41720+ 4 0.00000+ 0 0.00000+ 0 6.51510+ 4 0.00000+ 0 0.00000+ 01261 145400895 + 6.51530+ 4 0.00000+ 0 0.00000+ 0 6.51550+ 4 0.00000+ 0 0.00000+ 01261 145400896 + 6.51560+ 4 0.00000+ 0 0.00000+ 0 6.51560+ 4 1.00000+ 0 0.00000+ 01261 145400897 + 6.51570+ 4 0.00000+ 0 5.55301-13 6.51580+ 4 0.00000+ 0 3.57194-121261 145400898 + 6.51580+ 4 1.00000+ 0 3.72202-12 6.51590+ 4 0.00000+ 0 6.25339-111261 145400899 + 6.51600+ 4 0.00000+ 0 3.26177-10 6.51610+ 4 0.00000+ 0 1.30071- 91261 145400900 + 6.51620+ 4 0.00000+ 0 1.50081- 9 6.51620+ 4 1.00000+ 0 1.49081- 91261 145400901 + 6.51630+ 4 0.00000+ 0 4.78259- 9 6.51640+ 4 0.00000+ 0 4.17226- 91261 145400902 + 6.51650+ 4 0.00000+ 0 4.55247- 9 6.51660+ 4 0.00000+ 0 3.59195- 91261 145400903 + 6.51670+ 4 0.00000+ 0 1.75095- 9 6.51680+ 4 0.00000+ 0 2.61142-101261 145400904 + 6.51690+ 4 0.00000+ 0 4.87264-11 6.51700+ 4 0.00000+ 0 3.30179-121261 145400905 + 6.51710+ 4 0.00000+ 0 3.42186-13 6.51720+ 4 0.00000+ 0 1.57085-141261 145400906 + 6.61550+ 4 0.00000+ 0 0.00000+ 0 6.61560+ 4 0.00000+ 0 0.00000+ 01261 145400907 + 6.61570+ 4 0.00000+ 0 0.00000+ 0 6.61580+ 4 0.00000+ 0 0.00000+ 01261 145400908 + 6.61590+ 4 0.00000+ 0 0.00000+ 0 6.61600+ 4 0.00000+ 0 0.00000+ 01261 145400909 + 6.61610+ 4 0.00000+ 0 1.26068-12 6.61620+ 4 0.00000+ 0 9.66524-121261 145400910 + 6.61630+ 4 0.00000+ 0 4.86264-11 6.61640+ 4 0.00000+ 0 1.29070-101261 145400911 + 6.61650+ 4 0.00000+ 0 2.06112-10 6.61650+ 4 1.00000+ 0 2.06112-101261 145400912 + 6.61660+ 4 0.00000+ 0 6.39347-10 6.61670+ 4 0.00000+ 0 1.19065- 91261 145400913 + 6.61680+ 4 0.00000+ 0 4.66253-10 6.61690+ 4 0.00000+ 0 2.26123-101261 145400914 + 6.61700+ 4 0.00000+ 0 4.16226-11 6.61710+ 4 0.00000+ 0 1.23067-111261 145400915 + 6.61720+ 4 0.00000+ 0 1.68091-12 6.71590+ 4 0.00000+ 0 0.00000+ 01261 145400916 + 6.71590+ 4 1.00000+ 0 0.00000+ 0 6.71610+ 4 0.00000+ 0 0.00000+ 01261 145400917 + 6.71610+ 4 1.00000+ 0 0.00000+ 0 6.71620+ 4 0.00000+ 0 0.00000+ 01261 145400918 + 6.71620+ 4 1.00000+ 0 0.00000+ 0 6.71630+ 4 0.00000+ 0 0.00000+ 01261 145400919 + 6.71630+ 4 1.00000+ 0 0.00000+ 0 6.71640+ 4 0.00000+ 0 5.04274-141261 145400920 + 6.71640+ 4 1.00000+ 0 5.19282-14 6.71650+ 4 0.00000+ 0 1.06058-121261 145400921 + 6.71660+ 4 0.00000+ 0 6.35345-12 6.71660+ 4 1.00000+ 0 3.72202-121261 145400922 + 6.71670+ 4 0.00000+ 0 2.84154-11 6.71680+ 4 0.00000+ 0 3.18173-111261 145400923 + 6.71690+ 4 0.00000+ 0 4.26231-11 6.71700+ 4 0.00000+ 0 1.04056-111261 145400924 + 6.71700+ 4 1.00000+ 0 1.03056-11 6.71710+ 4 0.00000+ 0 1.59086-111261 145400925 + 6.71720+ 4 0.00000+ 0 5.79314-12 6.81610+ 4 0.00000+ 0 0.00000+ 01261 145400926 + 6.81620+ 4 0.00000+ 0 0.00000+ 0 6.81630+ 4 0.00000+ 0 0.00000+ 01261 145400927 + 6.81640+ 4 0.00000+ 0 0.00000+ 0 6.81650+ 4 0.00000+ 0 0.00000+ 01261 145400928 + 6.81660+ 4 0.00000+ 0 8.93485-14 6.81670+ 4 0.00000+ 0 3.95214-141261 145400929 + 6.81670+ 4 1.00000+ 0 3.95214-14 6.81680+ 4 0.00000+ 0 2.79151-131261 145400930 + 6.81690+ 4 0.00000+ 0 1.15062-12 6.81700+ 4 0.00000+ 0 1.64089-121261 145400931 + 6.81710+ 4 0.00000+ 0 3.54192-12 6.81720+ 4 0.00000+ 0 3.48189-121261 145400932 + 5.00000+ 5 0.00000+ 0 3 0 3390 11301261 145400933 + 2.40660+ 4 0.00000+ 0 3.81062-12 2.40670+ 4 0.00000+ 0 7.96129-131261 145400934 + 2.40680+ 4 0.00000+ 0 5.35087-14 2.40700+ 4 0.00000+ 0 0.00000+ 01261 145400935 + 2.50660+ 4 0.00000+ 0 4.27069-10 2.50670+ 4 0.00000+ 0 2.82046-101261 145400936 + 2.50680+ 4 0.00000+ 0 6.13099-11 2.50690+ 4 0.00000+ 0 1.00016-111261 145400937 + 2.50700+ 4 0.00000+ 0 1.06017-12 2.50710+ 4 0.00000+ 0 8.49137-141261 145400938 + 2.60660+ 4 0.00000+ 0 6.11099- 9 2.60670+ 4 0.00000+ 0 1.16019- 81261 145400939 + 2.60680+ 4 0.00000+ 0 7.54122- 9 2.60690+ 4 0.00000+ 0 3.82062- 91261 145400940 + 2.60700+ 4 0.00000+ 0 1.29021- 9 2.60710+ 4 0.00000+ 0 3.38055-101261 145400941 + 2.60720+ 4 0.00000+ 0 1.20019-10 2.60730+ 4 0.00000+ 0 3.46056-131261 145400942 + 2.60740+ 4 0.00000+ 0 6.67108-13 2.60760+ 4 0.00000+ 0 0.00000+ 01261 145400943 + 2.70660+ 4 0.00000+ 0 3.42055- 9 2.70670+ 4 0.00000+ 0 1.69027- 81261 145400944 + 2.70680+ 4 0.00000+ 0 2.94048- 8 2.70690+ 4 0.00000+ 0 4.16067- 81261 145400945 + 2.70700+ 4 0.00000+ 0 4.10066- 8 2.70710+ 4 0.00000+ 0 3.28053- 81261 145400946 + 2.70720+ 4 0.00000+ 0 3.15051- 8 2.70730+ 4 0.00000+ 0 1.12018- 91261 145400947 + 2.70740+ 4 0.00000+ 0 2.29037- 9 2.70750+ 4 0.00000+ 0 2.15035-101261 145400948 + 2.70760+ 4 0.00000+ 0 2.39039-11 2.80660+ 4 0.00000+ 0 3.10050-101261 145400949 + 2.80670+ 4 0.00000+ 0 4.26069- 9 2.80680+ 4 0.00000+ 0 1.97032- 81261 145400950 + 2.80690+ 4 0.00000+ 0 7.31118- 8 2.80700+ 4 0.00000+ 0 1.89031- 71261 145400951 + 2.80710+ 4 0.00000+ 0 4.12067- 7 2.80720+ 4 0.00000+ 0 9.81159- 71261 145400952 + 2.80730+ 4 0.00000+ 0 3.69060- 7 2.80740+ 4 0.00000+ 0 8.02130- 71261 145400953 + 2.80750+ 4 0.00000+ 0 2.33038- 7 2.80760+ 4 0.00000+ 0 7.93128- 81261 145400954 + 2.80770+ 4 0.00000+ 0 1.24020- 8 2.80780+ 4 0.00000+ 0 9.18149-101261 145400955 + 2.80800+ 4 0.00000+ 0 9.30150-13 2.80820+ 4 0.00000+ 0 0.00000+ 01261 145400956 + 2.90660+ 4 0.00000+ 0 7.96129-13 2.90670+ 4 0.00000+ 0 3.41055-111261 145400957 + 2.90680+ 4 0.00000+ 0 2.38039-10 2.90680+ 4 1.00000+ 0 2.18035-101261 145400958 + 2.90690+ 4 0.00000+ 0 5.02081- 9 2.90700+ 4 0.00000+ 0 1.78029- 81261 145400959 + 2.90700+ 4 1.00000+ 0 1.78029- 8 2.90710+ 4 0.00000+ 0 2.03033- 71261 145400960 + 2.90720+ 4 0.00000+ 0 1.12018- 6 2.90730+ 4 0.00000+ 0 3.51057- 61261 145400961 + 2.90740+ 4 0.00000+ 0 8.04130- 6 2.90750+ 4 0.00000+ 0 6.60107- 61261 145400962 + 2.90760+ 4 0.00000+ 0 6.45104- 6 2.90770+ 4 0.00000+ 0 3.15051- 61261 145400963 + 2.90780+ 4 0.00000+ 0 8.26134- 7 2.90790+ 4 0.00000+ 0 8.86143- 81261 145400964 + 2.90800+ 4 0.00000+ 0 9.69157- 9 2.90810+ 4 0.00000+ 0 5.25085-101261 145400965 + 2.90820+ 4 0.00000+ 0 1.61026-11 3.00660+ 4 0.00000+ 0 0.00000+ 01261 145400966 + 3.00670+ 4 0.00000+ 0 2.92047-14 3.00680+ 4 0.00000+ 0 1.32021-121261 145400967 + 3.00690+ 4 0.00000+ 0 2.21036-11 3.00690+ 4 1.00000+ 0 2.05033-111261 145400968 + 3.00700+ 4 0.00000+ 0 9.58155-10 3.00710+ 4 0.00000+ 0 8.06130- 91261 145400969 + 3.00710+ 4 1.00000+ 0 8.03130- 9 3.00720+ 4 0.00000+ 0 2.18035- 71261 145400970 + 3.00730+ 4 0.00000+ 0 5.46088- 6 3.00740+ 4 0.00000+ 0 1.30621- 51261 145400971 + 3.00750+ 4 0.00000+ 0 2.76345- 5 3.00760+ 4 0.00000+ 0 6.93412- 51261 145400972 + 3.00770+ 4 0.00000+ 0 9.57355- 5 3.00780+ 4 0.00000+ 0 8.07631- 51261 145400973 + 3.00790+ 4 0.00000+ 0 2.75545- 5 3.00800+ 4 0.00000+ 0 9.88160- 61261 145400974 + 3.00810+ 4 0.00000+ 0 1.74028- 6 3.00820+ 4 0.00000+ 0 1.76028- 71261 145400975 + 3.00830+ 4 0.00000+ 0 1.31021- 8 3.00840+ 4 0.00000+ 0 4.06066-101261 145400976 + 3.00860+ 4 0.00000+ 0 7.43120-14 3.10660+ 4 0.00000+ 0 0.00000+ 01261 145400977 + 3.10670+ 4 0.00000+ 0 0.00000+ 0 3.10680+ 4 0.00000+ 0 0.00000+ 01261 145400978 + 3.10690+ 4 0.00000+ 0 0.00000+ 0 3.10700+ 4 0.00000+ 0 6.62107-131261 145400979 + 3.10710+ 4 0.00000+ 0 3.57058-11 3.10720+ 4 0.00000+ 0 1.31021- 91261 145400980 + 3.10730+ 4 0.00000+ 0 3.29053- 7 3.10740+ 4 0.00000+ 0 8.34135- 71261 145400981 + 3.10750+ 4 0.00000+ 0 4.68076- 6 3.10760+ 4 0.00000+ 0 2.93547- 51261 145400982 + 3.10770+ 4 0.00000+ 0 1.06407- 4 3.10780+ 4 0.00000+ 0 2.56752- 41261 145400983 + 3.10790+ 4 0.00000+ 0 2.48270- 4 3.10800+ 4 0.00000+ 0 2.65363- 41261 145400984 + 3.10810+ 4 0.00000+ 0 1.41693- 4 3.10820+ 4 0.00000+ 0 4.50573- 51261 145400985 + 3.10830+ 4 0.00000+ 0 1.10518- 5 3.10840+ 4 0.00000+ 0 1.27021- 61261 145400986 + 3.10860+ 4 0.00000+ 0 2.94048- 9 3.20660+ 4 0.00000+ 0 0.00000+ 01261 145400987 + 3.20670+ 4 0.00000+ 0 0.00000+ 0 3.20680+ 4 0.00000+ 0 0.00000+ 01261 145400988 + 3.20690+ 4 0.00000+ 0 0.00000+ 0 3.20700+ 4 0.00000+ 0 0.00000+ 01261 145400989 + 3.20710+ 4 0.00000+ 0 0.00000+ 0 3.20720+ 4 0.00000+ 0 8.28134-131261 145400990 + 3.20730+ 4 0.00000+ 0 1.25020- 9 3.20730+ 4 1.00000+ 0 1.25020- 91261 145400991 + 3.20740+ 4 0.00000+ 0 6.71109- 9 3.20750+ 4 0.00000+ 0 5.63091- 81261 145400992 + 3.20750+ 4 1.00000+ 0 5.63091- 8 3.20760+ 4 0.00000+ 0 1.99032- 61261 145400993 + 3.20770+ 4 0.00000+ 0 1.01216- 5 3.20770+ 4 1.00000+ 0 1.01216- 51261 145400994 + 3.20780+ 4 0.00000+ 0 1.41203- 4 3.20790+ 4 0.00000+ 0 3.67920- 41261 145400995 + 3.20800+ 4 0.00000+ 0 1.05049- 3 3.20810+ 4 0.00000+ 0 1.52266- 31261 145400996 + 3.20820+ 4 0.00000+ 0 1.36717- 3 3.20830+ 4 0.00000+ 0 1.02140- 31261 145400997 + 3.20840+ 4 0.00000+ 0 4.07776- 4 3.20850+ 4 0.00000+ 0 7.78026- 51261 145400998 + 3.20860+ 4 0.00000+ 0 1.10218- 5 3.20870+ 4 0.00000+ 0 7.84127- 71261 145400999 + 3.20880+ 4 0.00000+ 0 3.35054- 8 3.30690+ 4 0.00000+ 0 0.00000+ 01261 145401000 + 3.30710+ 4 0.00000+ 0 0.00000+ 0 3.30720+ 4 0.00000+ 0 0.00000+ 01261 145401001 + 3.30730+ 4 0.00000+ 0 4.29069-13 3.30740+ 4 0.00000+ 0 6.24101-131261 145401002 + 3.30740+ 4 1.00000+ 0 6.47105-13 3.30750+ 4 0.00000+ 0 6.90112-111261 145401003 + 3.30760+ 4 0.00000+ 0 3.69060- 9 3.30770+ 4 0.00000+ 0 1.18019- 71261 145401004 + 3.30780+ 4 0.00000+ 0 2.73044- 6 3.30790+ 4 0.00000+ 0 2.10134- 51261 145401005 + 3.30800+ 4 0.00000+ 0 1.70007- 4 3.30810+ 4 0.00000+ 0 6.46635- 41261 145401006 + 3.30820+ 4 0.00000+ 0 7.57843- 4 3.30820+ 4 1.00000+ 0 7.60833- 41261 145401007 + 3.30830+ 4 0.00000+ 0 3.08655- 3 3.30840+ 4 0.00000+ 0 3.77293- 31261 145401008 + 3.30850+ 4 0.00000+ 0 2.20648- 3 3.30860+ 4 0.00000+ 0 1.00696- 31261 145401009 + 3.30870+ 4 0.00000+ 0 2.46460- 4 3.30880+ 4 0.00000+ 0 3.83662- 51261 145401010 + 3.30890+ 4 0.00000+ 0 2.97048- 6 3.40720+ 4 0.00000+ 0 0.00000+ 01261 145401011 + 3.40730+ 4 0.00000+ 0 0.00000+ 0 3.40730+ 4 1.00000+ 0 0.00000+ 01261 145401012 + 3.40740+ 4 0.00000+ 0 0.00000+ 0 3.40750+ 4 0.00000+ 0 0.00000+ 01261 145401013 + 3.40760+ 4 0.00000+ 0 6.86111-13 3.40770+ 4 0.00000+ 0 3.62059-111261 145401014 + 3.40770+ 4 1.00000+ 0 3.62059-11 3.40780+ 4 0.00000+ 0 5.95096- 91261 145401015 + 3.40790+ 4 0.00000+ 0 7.51121- 8 3.40790+ 4 1.00000+ 0 7.51121- 81261 145401016 + 3.40800+ 4 0.00000+ 0 3.87063- 6 3.40810+ 4 0.00000+ 0 2.18435- 51261 145401017 + 3.40810+ 4 1.00000+ 0 2.15735- 5 3.40820+ 4 0.00000+ 0 2.87597- 41261 145401018 + 3.40830+ 4 0.00000+ 0 8.11351- 4 3.40830+ 4 1.00000+ 0 8.04950- 41261 145401019 + 3.40840+ 4 0.00000+ 0 5.73295- 3 3.40850+ 4 0.00000+ 0 4.61860- 31261 145401020 + 3.40850+ 4 1.00000+ 0 4.61822- 3 3.40860+ 4 0.00000+ 0 1.20099- 21261 145401021 + 3.40870+ 4 0.00000+ 0 9.05644- 3 3.40880+ 4 0.00000+ 0 4.71547- 31261 145401022 + 3.40890+ 4 0.00000+ 0 1.24109- 3 3.40900+ 4 0.00000+ 0 2.09884- 41261 145401023 + 3.40910+ 4 0.00000+ 0 1.66327- 5 3.40920+ 4 0.00000+ 0 6.94112- 71261 145401024 + 3.40940+ 4 0.00000+ 0 9.74158-10 3.40950+ 4 0.00000+ 0 1.07338-111261 145401025 + 3.40960+ 4 0.00000+ 0 1.12018-13 3.50750+ 4 0.00000+ 0 0.00000+ 01261 145401026 + 3.50770+ 4 0.00000+ 0 0.00000+ 0 3.50770+ 4 1.00000+ 0 0.00000+ 01261 145401027 + 3.50780+ 4 0.00000+ 0 2.82046-13 3.50790+ 4 0.00000+ 0 1.28021-111261 145401028 + 3.50790+ 4 1.00000+ 0 1.20019-11 3.50800+ 4 0.00000+ 0 1.06017- 91261 145401029 + 3.50800+ 4 1.00000+ 0 1.11018- 9 3.50810+ 4 0.00000+ 0 8.11131- 81261 145401030 + 3.50820+ 4 0.00000+ 0 8.43136- 7 3.50820+ 4 1.00000+ 0 8.42136- 71261 145401031 + 3.50830+ 4 0.00000+ 0 2.95048- 5 3.50840+ 4 0.00000+ 0 1.68017- 41261 145401032 + 3.50840+ 4 1.00000+ 0 1.68017- 4 3.50850+ 4 0.00000+ 0 1.52282- 31261 145401033 + 3.50860+ 4 0.00000+ 0 2.82766- 3 3.50860+ 4 1.00000+ 0 2.82872- 31261 145401034 + 3.50870+ 4 0.00000+ 0 1.20750- 2 3.50880+ 4 0.00000+ 0 1.83915- 21261 145401035 + 3.50890+ 4 0.00000+ 0 1.46222- 2 3.50900+ 4 0.00000+ 0 7.45777- 31261 145401036 + 3.50910+ 4 0.00000+ 0 1.80903- 3 3.50920+ 4 0.00000+ 0 2.53351- 41261 145401037 + 3.50930+ 4 0.00000+ 0 2.22036- 5 3.50940+ 4 0.00000+ 0 4.03065- 61261 145401038 + 3.50950+ 4 0.00000+ 0 1.81756- 7 3.50960+ 4 0.00000+ 0 5.34086- 91261 145401039 + 3.60770+ 4 0.00000+ 0 0.00000+ 0 3.60780+ 4 0.00000+ 0 0.00000+ 01261 145401040 + 3.60790+ 4 0.00000+ 0 0.00000+ 0 3.60790+ 4 1.00000+ 0 0.00000+ 01261 145401041 + 3.60800+ 4 0.00000+ 0 1.24020-13 3.60810+ 4 0.00000+ 0 7.22117-121261 145401042 + 3.60810+ 4 1.00000+ 0 7.53122-12 3.60820+ 4 0.00000+ 0 1.03017- 91261 145401043 + 3.60830+ 4 0.00000+ 0 2.59042- 8 3.60830+ 4 1.00000+ 0 2.59042- 81261 145401044 + 3.60840+ 4 0.00000+ 0 2.47040- 6 3.60850+ 4 0.00000+ 0 1.88230- 51261 145401045 + 3.60850+ 4 1.00000+ 0 1.91631- 5 3.60860+ 4 0.00000+ 0 4.24019- 41261 145401046 + 3.60870+ 4 0.00000+ 0 2.74072- 3 3.60880+ 4 0.00000+ 0 1.24044- 21261 145401047 + 3.60890+ 4 0.00000+ 0 2.77202- 2 3.60900+ 4 0.00000+ 0 3.87133- 21261 145401048 + 3.60910+ 4 0.00000+ 0 2.52350- 2 3.60920+ 4 0.00000+ 0 1.06781- 21261 145401049 + 3.60930+ 4 0.00000+ 0 2.89164- 3 3.60940+ 4 0.00000+ 0 1.68202- 31261 145401050 + 3.60950+ 4 0.00000+ 0 2.48418- 4 3.60960+ 4 0.00000+ 0 2.40639- 51261 145401051 + 3.60970+ 4 0.00000+ 0 1.42023- 6 3.60980+ 4 0.00000+ 0 5.48089- 81261 145401052 + 3.60990+ 4 0.00000+ 0 7.79187-10 3.61000+ 4 0.00000+ 0 1.75028-111261 145401053 + 3.70790+ 4 0.00000+ 0 0.00000+ 0 3.70810+ 4 0.00000+ 0 0.00000+ 01261 145401054 + 3.70810+ 4 1.00000+ 0 0.00000+ 0 3.70830+ 4 0.00000+ 0 2.28037-121261 145401055 + 3.70840+ 4 0.00000+ 0 2.24036-10 3.70840+ 4 1.00000+ 0 2.27037-101261 145401056 + 3.70850+ 4 0.00000+ 0 2.22036- 8 3.70860+ 4 0.00000+ 0 4.44072- 71261 145401057 + 3.70860+ 4 1.00000+ 0 4.43072- 7 3.70870+ 4 0.00000+ 0 3.19952- 51261 145401058 + 3.70880+ 4 0.00000+ 0 3.06300- 4 3.70890+ 4 0.00000+ 0 2.01742- 31261 145401059 + 3.70900+ 4 0.00000+ 0 4.49808- 3 3.70900+ 4 1.00000+ 0 3.93746- 31261 145401060 + 3.70910+ 4 0.00000+ 0 2.18045- 2 3.70920+ 4 0.00000+ 0 3.09948- 21261 145401061 + 3.70930+ 4 0.00000+ 0 2.77527- 2 3.70940+ 4 0.00000+ 0 1.98148- 21261 145401062 + 3.70950+ 4 0.00000+ 0 8.83415- 3 3.70960+ 4 0.00000+ 0 2.61690- 31261 145401063 + 3.70970+ 4 0.00000+ 0 5.02101- 4 3.70980+ 4 0.00000+ 0 6.28202- 51261 145401064 + 3.70990+ 4 0.00000+ 0 3.86225- 6 3.71000+ 4 0.00000+ 0 2.26037- 71261 145401065 + 3.71030+ 4 0.00000+ 0 8.00679-13 3.80830+ 4 0.00000+ 0 0.00000+ 01261 145401066 + 3.80840+ 4 0.00000+ 0 0.00000+ 0 3.80850+ 4 0.00000+ 0 6.36103-131261 145401067 + 3.80850+ 4 1.00000+ 0 6.21100-13 3.80860+ 4 0.00000+ 0 1.86030-101261 145401068 + 3.80870+ 4 0.00000+ 0 2.04033- 8 3.80870+ 4 1.00000+ 0 7.89128- 91261 145401069 + 3.80880+ 4 0.00000+ 0 8.94145- 7 3.80890+ 4 0.00000+ 0 1.93931- 51261 145401070 + 3.80900+ 4 0.00000+ 0 2.38479- 4 3.80910+ 4 0.00000+ 0 7.01642- 31261 145401071 + 3.80920+ 4 0.00000+ 0 1.50744- 2 3.80930+ 4 0.00000+ 0 2.97033- 21261 145401072 + 3.80940+ 4 0.00000+ 0 3.75517- 2 3.80950+ 4 0.00000+ 0 4.51500- 21261 145401073 + 3.80960+ 4 0.00000+ 0 3.65276- 2 3.80970+ 4 0.00000+ 0 2.05960- 21261 145401074 + 3.80980+ 4 0.00000+ 0 7.72093- 3 3.80990+ 4 0.00000+ 0 1.60503- 31261 145401075 + 3.81000+ 4 0.00000+ 0 2.84816- 4 3.81010+ 4 0.00000+ 0 3.53857- 51261 145401076 + 3.81020+ 4 0.00000+ 0 2.02033- 6 3.81030+ 4 0.00000+ 0 3.97867- 81261 145401077 + 3.81040+ 4 0.00000+ 0 7.47121-10 3.81050+ 4 0.00000+ 0 3.65517-101261 145401078 + 3.90850+ 4 0.00000+ 0 0.00000+ 0 3.90850+ 4 1.00000+ 0 0.00000+ 01261 145401079 + 3.90870+ 4 0.00000+ 0 1.30021-13 3.90870+ 4 1.00000+ 0 1.26020-131261 145401080 + 3.90880+ 4 0.00000+ 0 5.66092-11 3.90890+ 4 0.00000+ 0 8.44137- 91261 145401081 + 3.90890+ 4 1.00000+ 0 2.29037- 9 3.90900+ 4 0.00000+ 0 2.88047- 61261 145401082 + 3.90900+ 4 1.00000+ 0 1.03017- 7 3.90910+ 4 0.00000+ 0 3.09250- 51261 145401083 + 3.90910+ 4 1.00000+ 0 2.31037- 6 3.90920+ 4 0.00000+ 0 2.41599- 41261 145401084 + 3.90930+ 4 0.00000+ 0 5.92336- 4 3.90940+ 4 0.00000+ 0 2.79135- 31261 145401085 + 3.90950+ 4 0.00000+ 0 9.31737- 3 3.90960+ 4 0.00000+ 0 1.99351- 21261 145401086 + 3.90970+ 4 0.00000+ 0 3.01497- 2 3.90980+ 4 0.00000+ 0 3.01135- 21261 145401087 + 3.90990+ 4 0.00000+ 0 1.84490- 2 3.91000+ 4 0.00000+ 0 9.30128- 31261 145401088 + 3.91010+ 4 0.00000+ 0 3.05009- 3 3.91020+ 4 0.00000+ 0 5.63171- 41261 145401089 + 3.91030+ 4 0.00000+ 0 5.29788- 5 3.91040+ 4 0.00000+ 0 2.49040- 61261 145401090 + 3.91050+ 4 0.00000+ 0 1.28068- 6 3.91070+ 4 0.00000+ 0 6.15966-101261 145401091 + 4.00870+ 4 0.00000+ 0 0.00000+ 0 4.00880+ 4 0.00000+ 0 0.00000+ 01261 145401092 + 4.00890+ 4 0.00000+ 0 5.27085-14 4.00890+ 4 1.00000+ 0 5.54090-141261 145401093 + 4.00900+ 4 0.00000+ 0 6.64567- 4 4.00900+ 4 1.00000+ 0 7.54122-121261 145401094 + 4.00910+ 4 0.00000+ 0 6.75109- 8 4.00920+ 4 0.00000+ 0 1.05017- 71261 145401095 + 4.00930+ 4 0.00000+ 0 1.76028- 6 4.00940+ 4 0.00000+ 0 2.67343- 51261 145401096 + 4.00950+ 4 0.00000+ 0 2.83076- 4 4.00960+ 4 0.00000+ 0 1.75797- 31261 145401097 + 4.00970+ 4 0.00000+ 0 7.56535- 3 4.00980+ 4 0.00000+ 0 2.03071- 21261 145401098 + 4.00990+ 4 0.00000+ 0 3.44527- 2 4.01000+ 4 0.00000+ 0 4.41361- 21261 145401099 + 4.01010+ 4 0.00000+ 0 3.45278- 2 4.01020+ 4 0.00000+ 0 1.85473- 21261 145401100 + 4.01030+ 4 0.00000+ 0 5.33526- 3 4.01040+ 4 0.00000+ 0 8.46467- 41261 145401101 + 4.01050+ 4 0.00000+ 0 3.81301- 4 4.01060+ 4 0.00000+ 0 3.71760- 51261 145401102 + 4.01070+ 4 0.00000+ 0 2.39116- 6 4.01080+ 4 0.00000+ 0 1.06017- 71261 145401103 + 4.01090+ 4 0.00000+ 0 4.13623-10 4.01100+ 4 0.00000+ 0 3.82062-121261 145401104 + 4.10890+ 4 0.00000+ 0 0.00000+ 0 4.10890+ 4 1.00000+ 0 0.00000+ 01261 145401105 + 4.10900+ 4 0.00000+ 0 0.00000+ 0 4.10910+ 4 0.00000+ 0 0.00000+ 01261 145401106 + 4.10910+ 4 1.00000+ 0 0.00000+ 0 4.10920+ 4 0.00000+ 0 6.72109-131261 145401107 + 4.10920+ 4 1.00000+ 0 6.72109-13 4.10930+ 4 0.00000+ 0 5.79094-111261 145401108 + 4.10930+ 4 1.00000+ 0 5.79094-11 4.10940+ 4 0.00000+ 0 3.11050- 91261 145401109 + 4.10940+ 4 1.00000+ 0 3.10050- 9 4.10950+ 4 0.00000+ 0 1.10018- 71261 145401110 + 4.10950+ 4 1.00000+ 0 1.10018- 7 4.10960+ 4 0.00000+ 0 4.39071- 61261 145401111 + 4.10970+ 4 0.00000+ 0 4.98181- 4 4.10970+ 4 1.00000+ 0 2.90397- 41261 145401112 + 4.10980+ 4 0.00000+ 0 2.43469- 4 4.10980+ 4 1.00000+ 0 2.43459- 41261 145401113 + 4.10990+ 4 0.00000+ 0 1.24334- 3 4.10990+ 4 1.00000+ 0 1.23085- 31261 145401114 + 4.11000+ 4 0.00000+ 0 4.24746- 3 4.11000+ 4 1.00000+ 0 4.24746- 31261 145401115 + 4.11010+ 4 0.00000+ 0 1.54810- 2 4.11020+ 4 0.00000+ 0 2.22285- 21261 145401116 + 4.11030+ 4 0.00000+ 0 1.73981- 2 4.11040+ 4 0.00000+ 0 8.26173- 31261 145401117 + 4.11050+ 4 0.00000+ 0 3.73529- 3 4.11060+ 4 0.00000+ 0 9.97931- 41261 145401118 + 4.11070+ 4 0.00000+ 0 2.70992- 4 4.11080+ 4 0.00000+ 0 2.78645- 51261 145401119 + 4.11090+ 4 0.00000+ 0 7.86233- 7 4.11100+ 4 0.00000+ 0 2.21036- 81261 145401120 + 4.11110+ 4 0.00000+ 0 1.50593-10 4.20900+ 4 0.00000+ 0 0.00000+ 01261 145401121 + 4.20910+ 4 0.00000+ 0 0.00000+ 0 4.20910+ 4 1.00000+ 0 0.00000+ 01261 145401122 + 4.20920+ 4 0.00000+ 0 0.00000+ 0 4.20930+ 4 0.00000+ 0 0.00000+ 01261 145401123 + 4.20930+ 4 1.00000+ 0 0.00000+ 0 4.20940+ 4 0.00000+ 0 1.36022-131261 145401124 + 4.20950+ 4 0.00000+ 0 1.66027-11 4.20960+ 4 0.00000+ 0 1.11018- 91261 145401125 + 4.20970+ 4 0.00000+ 0 1.50024- 6 4.20980+ 4 0.00000+ 0 1.35022- 61261 145401126 + 4.20990+ 4 0.00000+ 0 2.29837- 5 4.21000+ 4 0.00000+ 0 2.35018- 41261 145401127 + 4.21010+ 4 0.00000+ 0 1.09903- 3 4.21020+ 4 0.00000+ 0 4.56363- 31261 145401128 + 4.21030+ 4 0.00000+ 0 9.91788- 3 4.21040+ 4 0.00000+ 0 1.31862- 21261 145401129 + 4.21050+ 4 0.00000+ 0 6.61046- 3 4.21060+ 4 0.00000+ 0 4.05910- 31261 145401130 + 4.21070+ 4 0.00000+ 0 2.51480- 3 4.21080+ 4 0.00000+ 0 8.68991- 41261 145401131 + 4.21090+ 4 0.00000+ 0 1.30535- 4 4.21100+ 4 0.00000+ 0 1.28121- 51261 145401132 + 4.21110+ 4 0.00000+ 0 4.39120- 7 4.21120+ 4 0.00000+ 0 7.26117- 81261 145401133 + 4.21130+ 4 0.00000+ 0 3.21540- 9 4.21140+ 4 0.00000+ 0 2.36038-101261 145401134 + 4.21150+ 4 0.00000+ 0 4.69229-12 4.21160+ 4 0.00000+ 0 1.22020-131261 145401135 + 4.30930+ 4 0.00000+ 0 0.00000+ 0 4.30930+ 4 1.00000+ 0 0.00000+ 01261 145401136 + 4.30950+ 4 0.00000+ 0 0.00000+ 0 4.30950+ 4 1.00000+ 0 0.00000+ 01261 145401137 + 4.30970+ 4 0.00000+ 0 5.63091-13 4.30970+ 4 1.00000+ 0 5.14083-131261 145401138 + 4.30980+ 4 0.00000+ 0 8.62139-11 4.30990+ 4 0.00000+ 0 3.35054- 61261 145401139 + 4.30990+ 4 1.00000+ 0 2.74044- 9 4.31000+ 4 0.00000+ 0 1.67027- 71261 145401140 + 4.31010+ 4 0.00000+ 0 2.16035- 6 4.31020+ 4 0.00000+ 0 1.45023- 51261 145401141 + 4.31020+ 4 1.00000+ 0 1.45023- 5 4.31030+ 4 0.00000+ 0 1.94752- 41261 145401142 + 4.31040+ 4 0.00000+ 0 8.14872- 4 4.31050+ 4 0.00000+ 0 3.69140- 41261 145401143 + 4.31060+ 4 0.00000+ 0 6.44154- 4 4.31070+ 4 0.00000+ 0 9.25810- 41261 145401144 + 4.31080+ 4 0.00000+ 0 9.93001- 4 4.31090+ 4 0.00000+ 0 5.78564- 41261 145401145 + 4.31100+ 4 0.00000+ 0 2.03443- 4 4.31110+ 4 0.00000+ 0 3.79069- 51261 145401146 + 4.31120+ 4 0.00000+ 0 1.12218- 5 4.31130+ 4 0.00000+ 0 1.89835- 61261 145401147 + 4.31140+ 4 0.00000+ 0 2.97048- 7 4.31150+ 4 0.00000+ 0 2.22106- 81261 145401148 + 4.31160+ 4 0.00000+ 0 1.49024- 9 4.31170+ 4 0.00000+ 0 1.70224-101261 145401149 + 4.40950+ 4 0.00000+ 0 0.00000+ 0 4.40970+ 4 0.00000+ 0 0.00000+ 01261 145401150 + 4.40980+ 4 0.00000+ 0 0.00000+ 0 4.40990+ 4 0.00000+ 0 8.06130-121261 145401151 + 4.41000+ 4 0.00000+ 0 1.16019-11 4.41010+ 4 0.00000+ 0 4.27069-101261 145401152 + 4.41020+ 4 0.00000+ 0 1.95032- 8 4.41030+ 4 0.00000+ 0 4.38071- 71261 145401153 + 4.41040+ 4 0.00000+ 0 6.36103- 6 4.41050+ 4 0.00000+ 0 2.87046- 61261 145401154 + 4.41060+ 4 0.00000+ 0 1.45424- 5 4.41070+ 4 0.00000+ 0 5.28085- 51261 145401155 + 4.41080+ 4 0.00000+ 0 1.93351- 4 4.41090+ 4 0.00000+ 0 4.41861- 41261 145401156 + 4.41100+ 4 0.00000+ 0 5.05022- 4 4.41110+ 4 0.00000+ 0 3.04949- 41261 145401157 + 4.41120+ 4 0.00000+ 0 2.15185- 4 4.41130+ 4 0.00000+ 0 1.04896- 41261 145401158 + 4.41140+ 4 0.00000+ 0 3.97364- 5 4.41150+ 4 0.00000+ 0 8.82922- 61261 145401159 + 4.41160+ 4 0.00000+ 0 1.76028- 6 4.41170+ 4 0.00000+ 0 8.13194- 71261 145401160 + 4.41180+ 4 0.00000+ 0 1.75028- 8 4.41200+ 4 0.00000+ 0 5.45088-111261 145401161 + 4.41220+ 4 0.00000+ 0 7.49121-14 4.41240+ 4 0.00000+ 0 0.00000+ 01261 145401162 + 4.50990+ 4 0.00000+ 0 0.00000+ 0 4.50990+ 4 1.00000+ 0 0.00000+ 01261 145401163 + 4.51010+ 4 0.00000+ 0 0.00000+ 0 4.51010+ 4 1.00000+ 0 0.00000+ 01261 145401164 + 4.51020+ 4 0.00000+ 0 1.58026-13 4.51020+ 4 1.00000+ 0 1.58026-131261 145401165 + 4.51030+ 4 0.00000+ 0 6.38103- 9 4.51030+ 4 1.00000+ 0 1.43023-111261 145401166 + 4.51040+ 4 0.00000+ 0 6.13099-10 4.51040+ 4 1.00000+ 0 5.95096-101261 145401167 + 4.51050+ 4 0.00000+ 0 4.21648- 4 4.51050+ 4 1.00000+ 0 4.66075-101261 145401168 + 4.51060+ 4 0.00000+ 0 5.48089- 9 4.51060+ 4 1.00000+ 0 4.38071- 91261 145401169 + 4.51070+ 4 0.00000+ 0 8.20133- 8 4.51080+ 4 0.00000+ 0 5.79094- 71261 145401170 + 4.51080+ 4 1.00000+ 0 5.79094- 7 4.51090+ 4 0.00000+ 0 6.08098- 61261 145401171 + 4.51090+ 4 1.00000+ 0 6.08098- 6 4.51100+ 4 0.00000+ 0 2.50340- 51261 145401172 + 4.51100+ 4 1.00000+ 0 2.50340- 5 4.51110+ 4 0.00000+ 0 9.91760- 51261 145401173 + 4.51120+ 4 0.00000+ 0 1.34262- 4 4.51130+ 4 0.00000+ 0 1.76899- 41261 145401174 + 4.51140+ 4 0.00000+ 0 1.67407- 4 4.51150+ 4 0.00000+ 0 9.88160- 51261 145401175 + 4.51160+ 4 0.00000+ 0 5.44188- 5 4.51170+ 4 0.00000+ 0 1.12345- 41261 145401176 + 4.51180+ 4 0.00000+ 0 4.61075- 6 4.51190+ 4 0.00000+ 0 8.09131- 71261 145401177 + 4.51200+ 4 0.00000+ 0 1.11018- 7 4.51210+ 4 0.00000+ 0 1.01016- 81261 145401178 + 4.51220+ 4 0.00000+ 0 1.06017- 9 4.51230+ 4 0.00000+ 0 1.24020-101261 145401179 + 4.51240+ 4 0.00000+ 0 1.11018-11 4.60990+ 4 0.00000+ 0 0.00000+ 01261 145401180 + 4.61010+ 4 0.00000+ 0 0.00000+ 0 4.61020+ 4 0.00000+ 0 0.00000+ 01261 145401181 + 4.61030+ 4 0.00000+ 0 0.00000+ 0 4.61040+ 4 0.00000+ 0 2.10034-141261 145401182 + 4.61050+ 4 0.00000+ 0 3.64059- 8 4.61060+ 4 0.00000+ 0 1.04017- 91261 145401183 + 4.61070+ 4 0.00000+ 0 6.33102-12 4.61070+ 4 1.00000+ 0 6.75109-121261 145401184 + 4.61080+ 4 0.00000+ 0 7.33119-10 4.61090+ 4 0.00000+ 0 1.96032- 81261 145401185 + 4.61090+ 4 1.00000+ 0 1.96032- 8 4.61100+ 4 0.00000+ 0 6.60107- 71261 145401186 + 4.61110+ 4 0.00000+ 0 2.47040- 6 4.61110+ 4 1.00000+ 0 2.47040- 61261 145401187 + 4.61120+ 4 0.00000+ 0 1.91531- 5 4.61130+ 4 0.00000+ 0 5.42388- 51261 145401188 + 4.61140+ 4 0.00000+ 0 1.21610- 4 4.61150+ 4 0.00000+ 0 1.79319- 41261 145401189 + 4.61160+ 4 0.00000+ 0 2.45580- 4 4.61170+ 4 0.00000+ 0 1.77459- 41261 145401190 + 4.61180+ 4 0.00000+ 0 1.43623- 4 4.61190+ 4 0.00000+ 0 6.66508- 51261 145401191 + 4.61200+ 4 0.00000+ 0 2.37138- 5 4.61210+ 4 0.00000+ 0 5.87095- 61261 145401192 + 4.61220+ 4 0.00000+ 0 1.47024- 6 4.61230+ 4 0.00000+ 0 3.89063- 71261 145401193 + 4.61240+ 4 0.00000+ 0 8.17132- 8 4.61260+ 4 0.00000+ 0 1.23020- 91261 145401194 + 4.61280+ 4 0.00000+ 0 2.17035-12 4.61300+ 4 0.00000+ 0 9.55154-141261 145401195 + 4.71030+ 4 0.00000+ 0 0.00000+ 0 4.71030+ 4 1.00000+ 0 0.00000+ 01261 145401196 + 4.71050+ 4 0.00000+ 0 0.00000+ 0 4.71050+ 4 1.00000+ 0 0.00000+ 01261 145401197 + 4.71060+ 4 0.00000+ 0 0.00000+ 0 4.71060+ 4 1.00000+ 0 0.00000+ 01261 145401198 + 4.71070+ 4 0.00000+ 0 0.00000+ 0 4.71070+ 4 1.00000+ 0 0.00000+ 01261 145401199 + 4.71080+ 4 0.00000+ 0 0.00000+ 0 4.71080+ 4 1.00000+ 0 0.00000+ 01261 145401200 + 4.71090+ 4 0.00000+ 0 1.20019-12 4.71090+ 4 1.00000+ 0 1.20019-121261 145401201 + 4.71100+ 4 0.00000+ 0 9.86160-11 4.71100+ 4 1.00000+ 0 1.07017-101261 145401202 + 4.71110+ 4 0.00000+ 0 3.30053- 9 4.71110+ 4 1.00000+ 0 3.30053- 91261 145401203 + 4.71120+ 4 0.00000+ 0 5.83094- 8 4.71130+ 4 0.00000+ 0 2.68043- 71261 145401204 + 4.71130+ 4 1.00000+ 0 2.69044- 7 4.71140+ 4 0.00000+ 0 3.17051- 61261 145401205 + 4.71150+ 4 0.00000+ 0 6.29102- 6 4.71150+ 4 1.00000+ 0 6.29102- 61261 145401206 + 4.71160+ 4 0.00000+ 0 2.24736- 5 4.71160+ 4 1.00000+ 0 2.24736- 51261 145401207 + 4.71170+ 4 0.00000+ 0 5.94096- 6 4.71170+ 4 1.00000+ 0 5.94096- 61261 145401208 + 4.71180+ 4 0.00000+ 0 8.19333- 5 4.71180+ 4 1.00000+ 0 8.19333- 51261 145401209 + 4.71190+ 4 0.00000+ 0 1.81959- 4 4.71200+ 4 0.00000+ 0 1.51434- 41261 145401210 + 4.71210+ 4 0.00000+ 0 9.32351- 5 4.71220+ 4 0.00000+ 0 5.20884- 51261 145401211 + 4.71230+ 4 0.00000+ 0 2.98548- 5 4.71240+ 4 0.00000+ 0 1.42123- 51261 145401212 + 4.71250+ 4 0.00000+ 0 4.70076- 6 4.71260+ 4 0.00000+ 0 1.45023- 61261 145401213 + 4.71280+ 4 0.00000+ 0 2.72044- 8 4.71290+ 4 0.00000+ 0 7.99327-101261 145401214 + 4.71300+ 4 0.00000+ 0 3.55057- 9 4.81050+ 4 0.00000+ 0 0.00000+ 01261 145401215 + 4.81060+ 4 0.00000+ 0 0.00000+ 0 4.81070+ 4 0.00000+ 0 0.00000+ 01261 145401216 + 4.81080+ 4 0.00000+ 0 0.00000+ 0 4.81090+ 4 0.00000+ 0 0.00000+ 01261 145401217 + 4.81100+ 4 0.00000+ 0 0.00000+ 0 4.81110+ 4 0.00000+ 0 4.37071-131261 145401218 + 4.81110+ 4 1.00000+ 0 4.65075-13 4.81120+ 4 0.00000+ 0 2.13034-111261 145401219 + 4.81130+ 4 0.00000+ 0 2.84046-10 4.81130+ 4 1.00000+ 0 2.86046-101261 145401220 + 4.81140+ 4 0.00000+ 0 9.61155- 9 4.81150+ 4 0.00000+ 0 5.68092- 81261 145401221 + 4.81150+ 4 1.00000+ 0 9.17148- 8 4.81160+ 4 0.00000+ 0 1.17019- 61261 145401222 + 4.81170+ 4 0.00000+ 0 5.06082- 8 4.81170+ 4 1.00000+ 0 5.06082- 81261 145401223 + 4.81180+ 4 0.00000+ 0 3.19452- 5 4.81190+ 4 0.00000+ 0 4.32970- 51261 145401224 + 4.81190+ 4 1.00000+ 0 4.32970- 5 4.81200+ 4 0.00000+ 0 1.63136- 41261 145401225 + 4.81210+ 4 0.00000+ 0 2.30787- 4 4.81220+ 4 0.00000+ 0 2.66733- 41261 145401226 + 4.81230+ 4 0.00000+ 0 3.04539- 4 4.81240+ 4 0.00000+ 0 3.03399- 41261 145401227 + 4.81250+ 4 0.00000+ 0 2.33598- 4 4.81260+ 4 0.00000+ 0 1.84050- 41261 145401228 + 4.81270+ 4 0.00000+ 0 9.26450- 5 4.81280+ 4 0.00000+ 0 3.32554- 51261 145401229 + 4.81290+ 4 0.00000+ 0 3.70367- 6 4.81300+ 4 0.00000+ 0 1.25220- 51261 145401230 + 4.81310+ 4 0.00000+ 0 1.32021- 6 4.81320+ 4 0.00000+ 0 5.72093- 81261 145401231 + 4.81360+ 4 0.00000+ 0 0.00000+ 0 4.91070+ 4 0.00000+ 0 0.00000+ 01261 145401232 + 4.91090+ 4 0.00000+ 0 0.00000+ 0 4.91090+ 4 1.00000+ 0 0.00000+ 01261 145401233 + 4.91110+ 4 0.00000+ 0 0.00000+ 0 4.91110+ 4 1.00000+ 0 0.00000+ 01261 145401234 + 4.91120+ 4 0.00000+ 0 0.00000+ 0 4.91120+ 4 1.00000+ 0 0.00000+ 01261 145401235 + 4.91130+ 4 0.00000+ 0 2.53041-14 4.91130+ 4 1.00000+ 0 0.00000+ 01261 145401236 + 4.91140+ 4 0.00000+ 0 3.27053-13 4.91140+ 4 1.00000+ 0 3.19052-131261 145401237 + 4.91150+ 4 0.00000+ 0 1.25020-11 4.91150+ 4 1.00000+ 0 1.25020-111261 145401238 + 4.91160+ 4 0.00000+ 0 3.94064-10 4.91160+ 4 1.00000+ 0 3.94064-101261 145401239 + 4.91170+ 4 0.00000+ 0 1.04017-11 4.91170+ 4 1.00000+ 0 1.04017-111261 145401240 + 4.91180+ 4 0.00000+ 0 9.58155- 8 4.91180+ 4 1.00000+ 0 9.58155- 81261 145401241 + 4.91190+ 4 0.00000+ 0 7.03114- 7 4.91190+ 4 1.00000+ 0 7.03114- 71261 145401242 + 4.91200+ 4 0.00000+ 0 3.29053- 6 4.91200+ 4 1.00000+ 0 3.29053- 61261 145401243 + 4.91210+ 4 0.00000+ 0 1.14719- 5 4.91210+ 4 1.00000+ 0 1.14819- 51261 145401244 + 4.91220+ 4 0.00000+ 0 2.76645- 5 4.91220+ 4 1.00000+ 0 2.76645- 51261 145401245 + 4.91230+ 4 0.00000+ 0 6.18600- 5 4.91230+ 4 1.00000+ 0 6.18700- 51261 145401246 + 4.91240+ 4 0.00000+ 0 2.45020- 4 4.91250+ 4 0.00000+ 0 2.03013- 41261 145401247 + 4.91250+ 4 1.00000+ 0 2.02993- 4 4.91260+ 4 0.00000+ 0 7.36529- 41261 145401248 + 4.91270+ 4 0.00000+ 0 5.15733- 4 4.91270+ 4 1.00000+ 0 5.15743- 41261 145401249 + 4.91280+ 4 0.00000+ 0 1.05578- 3 4.91290+ 4 0.00000+ 0 4.96957- 41261 145401250 + 4.91300+ 4 0.00000+ 0 1.07927- 3 4.91310+ 4 0.00000+ 0 3.79841- 41261 145401251 + 4.91320+ 4 0.00000+ 0 5.97997- 5 4.91330+ 4 0.00000+ 0 4.54073- 61261 145401252 + 4.91340+ 4 0.00000+ 0 1.53025- 7 4.91360+ 4 0.00000+ 0 2.63043-111261 145401253 + 5.01110+ 4 0.00000+ 0 0.00000+ 0 5.01120+ 4 0.00000+ 0 0.00000+ 01261 145401254 + 5.01130+ 4 0.00000+ 0 0.00000+ 0 5.01130+ 4 1.00000+ 0 0.00000+ 01261 145401255 + 5.01140+ 4 0.00000+ 0 0.00000+ 0 5.01150+ 4 0.00000+ 0 0.00000+ 01261 145401256 + 5.01160+ 4 0.00000+ 0 5.12083-14 5.01170+ 4 0.00000+ 0 0.00000+ 01261 145401257 + 5.01170+ 4 1.00000+ 0 0.00000+ 0 5.01180+ 4 0.00000+ 0 1.21020-101261 145401258 + 5.01190+ 4 0.00000+ 0 1.28021- 9 5.01190+ 4 1.00000+ 0 1.28021- 91261 145401259 + 5.01200+ 4 0.00000+ 0 3.21052- 8 5.01210+ 4 0.00000+ 0 1.51024- 71261 145401260 + 5.01210+ 4 1.00000+ 0 1.51024- 7 5.01220+ 4 0.00000+ 0 1.67027- 61261 145401261 + 5.01230+ 4 0.00000+ 0 3.94064- 6 5.01230+ 4 1.00000+ 0 3.94064- 61261 145401262 + 5.01240+ 4 0.00000+ 0 3.30854- 5 5.01250+ 4 0.00000+ 0 6.13099- 51261 145401263 + 5.01250+ 4 1.00000+ 0 6.46105- 5 5.01260+ 4 0.00000+ 0 5.09412- 41261 145401264 + 5.01270+ 4 0.00000+ 0 9.30841- 4 5.01270+ 4 1.00000+ 0 9.30831- 41261 145401265 + 5.01280+ 4 0.00000+ 0 4.87785- 3 5.01290+ 4 0.00000+ 0 3.19740- 31261 145401266 + 5.01290+ 4 1.00000+ 0 3.19738- 3 5.01300+ 4 0.00000+ 0 1.22174- 21261 145401267 + 5.01310+ 4 0.00000+ 0 1.28568- 2 5.01320+ 4 0.00000+ 0 6.74688- 31261 145401268 + 5.01330+ 4 0.00000+ 0 1.84221- 3 5.01340+ 4 0.00000+ 0 2.38589- 41261 145401269 + 5.01350+ 4 0.00000+ 0 1.28821- 5 5.01360+ 4 0.00000+ 0 5.86095- 71261 145401270 + 5.01370+ 4 0.00000+ 0 1.68027- 8 5.01380+ 4 0.00000+ 0 2.88047-101261 145401271 + 5.11130+ 4 0.00000+ 0 0.00000+ 0 5.11150+ 4 0.00000+ 0 0.00000+ 01261 145401272 + 5.11170+ 4 0.00000+ 0 0.00000+ 0 5.11180+ 4 0.00000+ 0 0.00000+ 01261 145401273 + 5.11180+ 4 1.00000+ 0 0.00000+ 0 5.11190+ 4 0.00000+ 0 1.01016-131261 145401274 + 5.11200+ 4 0.00000+ 0 1.73028-12 5.11200+ 4 1.00000+ 0 1.73028-121261 145401275 + 5.11210+ 4 0.00000+ 0 9.80159-11 5.11220+ 4 0.00000+ 0 6.17100-101261 145401276 + 5.11220+ 4 1.00000+ 0 6.49105-10 5.11230+ 4 0.00000+ 0 1.38022- 81261 145401277 + 5.11240+ 4 0.00000+ 0 6.63107- 8 5.11240+ 4 1.00000+ 0 6.61107- 81261 145401278 + 5.11250+ 4 0.00000+ 0 1.20019- 6 5.11260+ 4 0.00000+ 0 6.27101- 61261 145401279 + 5.11260+ 4 1.00000+ 0 6.27101- 6 5.11270+ 4 0.00000+ 0 1.31191- 41261 145401280 + 5.11280+ 4 0.00000+ 0 4.58454- 4 5.11280+ 4 1.00000+ 0 4.58224- 41261 145401281 + 5.11290+ 4 0.00000+ 0 3.24638- 3 5.11300+ 4 0.00000+ 0 2.73931- 31261 145401282 + 5.11300+ 4 1.00000+ 0 2.73925- 3 5.11310+ 4 0.00000+ 0 1.57499- 21261 145401283 + 5.11320+ 4 0.00000+ 0 1.21842- 2 5.11320+ 4 1.00000+ 0 1.21845- 21261 145401284 + 5.11330+ 4 0.00000+ 0 2.11279- 2 5.11340+ 4 0.00000+ 0 4.74578- 31261 145401285 + 5.11340+ 4 1.00000+ 0 4.74570- 3 5.11350+ 4 0.00000+ 0 1.87636- 31261 145401286 + 5.11360+ 4 0.00000+ 0 2.97218- 4 5.11370+ 4 0.00000+ 0 2.85246- 51261 145401287 + 5.11380+ 4 0.00000+ 0 1.72028- 6 5.11390+ 4 0.00000+ 0 5.88095- 81261 145401288 + 5.11410+ 4 0.00000+ 0 7.87810-12 5.21150+ 4 0.00000+ 0 0.00000+ 01261 145401289 + 5.21170+ 4 0.00000+ 0 0.00000+ 0 5.21180+ 4 0.00000+ 0 0.00000+ 01261 145401290 + 5.21190+ 4 0.00000+ 0 0.00000+ 0 5.21190+ 4 1.00000+ 0 0.00000+ 01261 145401291 + 5.21200+ 4 0.00000+ 0 0.00000+ 0 5.21210+ 4 0.00000+ 0 0.00000+ 01261 145401292 + 5.21210+ 4 1.00000+ 0 0.00000+ 0 5.21220+ 4 0.00000+ 0 9.85159-141261 145401293 + 5.21230+ 4 0.00000+ 0 1.16019-12 5.21230+ 4 1.00000+ 0 1.20019-121261 145401294 + 5.21240+ 4 0.00000+ 0 5.45088-11 5.21250+ 4 0.00000+ 0 9.13148- 81261 145401295 + 5.21250+ 4 1.00000+ 0 7.11115-10 5.21260+ 4 0.00000+ 0 3.59058- 81261 145401296 + 5.21270+ 4 0.00000+ 0 5.93096- 7 5.21270+ 4 1.00000+ 0 5.93096- 71261 145401297 + 5.21280+ 4 0.00000+ 0 2.46640- 5 5.21290+ 4 0.00000+ 0 1.31831- 41261 145401298 + 5.21290+ 4 1.00000+ 0 1.31801- 4 5.21300+ 4 0.00000+ 0 3.88433- 41261 145401299 + 5.21310+ 4 0.00000+ 0 1.64423- 3 5.21310+ 4 1.00000+ 0 1.66492- 31261 145401300 + 5.21320+ 4 0.00000+ 0 1.50442- 2 5.21330+ 4 0.00000+ 0 1.95193- 21261 145401301 + 5.21330+ 4 1.00000+ 0 1.95401- 2 5.21340+ 4 0.00000+ 0 5.36990- 21261 145401302 + 5.21350+ 4 0.00000+ 0 3.41321- 2 5.21360+ 4 0.00000+ 0 1.70122- 21261 145401303 + 5.21370+ 4 0.00000+ 0 5.09956- 3 5.21380+ 4 0.00000+ 0 1.02716- 31261 145401304 + 5.21390+ 4 0.00000+ 0 1.16429- 4 5.21400+ 4 0.00000+ 0 9.10147- 61261 145401305 + 5.21410+ 4 0.00000+ 0 2.11961- 7 5.21420+ 4 0.00000+ 0 1.39022- 81261 145401306 + 5.21430+ 4 0.00000+ 0 1.46801-10 5.21440+ 4 0.00000+ 0 1.95206-121261 145401307 + 5.31210+ 4 0.00000+ 0 0.00000+ 0 5.31230+ 4 0.00000+ 0 0.00000+ 01261 145401308 + 5.31250+ 4 0.00000+ 0 3.62059-14 5.31260+ 4 0.00000+ 0 2.22036-121261 145401309 + 5.31270+ 4 0.00000+ 0 2.59042-10 5.31280+ 4 0.00000+ 0 1.53025- 81261 145401310 + 5.31290+ 4 0.00000+ 0 6.02097- 7 5.31300+ 4 0.00000+ 0 3.83062- 71261 145401311 + 5.31300+ 4 1.00000+ 0 3.83062- 7 5.31310+ 4 0.00000+ 0 2.18535- 51261 145401312 + 5.31320+ 4 0.00000+ 0 3.14951- 4 5.31330+ 4 0.00000+ 0 1.41461- 31261 145401313 + 5.31330+ 4 1.00000+ 0 1.20272- 3 5.31340+ 4 0.00000+ 0 6.16469- 31261 145401314 + 5.31340+ 4 1.00000+ 0 6.16542- 3 5.31350+ 4 0.00000+ 0 2.35335- 21261 145401315 + 5.31360+ 4 0.00000+ 0 1.67476- 2 5.31360+ 4 1.00000+ 0 1.67476- 21261 145401316 + 5.31370+ 4 0.00000+ 0 2.78391- 2 5.31380+ 4 0.00000+ 0 1.67667- 21261 145401317 + 5.31390+ 4 0.00000+ 0 5.81344- 3 5.31400+ 4 0.00000+ 0 1.44789- 31261 145401318 + 5.31410+ 4 0.00000+ 0 1.55193- 4 5.31420+ 4 0.00000+ 0 2.44540- 51261 145401319 + 5.31430+ 4 0.00000+ 0 1.03352- 6 5.31440+ 4 0.00000+ 0 5.07105- 81261 145401320 + 5.41250+ 4 0.00000+ 0 0.00000+ 0 5.41250+ 4 1.00000+ 0 0.00000+ 01261 145401321 + 5.41260+ 4 0.00000+ 0 0.00000+ 0 5.41270+ 4 0.00000+ 0 0.00000+ 01261 145401322 + 5.41270+ 4 1.00000+ 0 0.00000+ 0 5.41280+ 4 0.00000+ 0 1.14018-121261 145401323 + 5.41290+ 4 0.00000+ 0 6.93112-11 5.41290+ 4 1.00000+ 0 7.31118-111261 145401324 + 5.41300+ 4 0.00000+ 0 1.51024-10 5.41310+ 4 0.00000+ 0 7.48121- 91261 145401325 + 5.41310+ 4 1.00000+ 0 7.48121- 9 5.41320+ 4 0.00000+ 0 8.10131- 71261 145401326 + 5.41330+ 4 0.00000+ 0 1.49624- 5 5.41330+ 4 1.00000+ 0 4.58174- 51261 145401327 + 5.41340+ 4 0.00000+ 0 2.07694- 4 5.41340+ 4 1.00000+ 0 2.07674- 41261 145401328 + 5.41350+ 4 0.00000+ 0 1.15216- 3 5.41350+ 4 1.00000+ 0 2.04845- 31261 145401329 + 5.41360+ 4 0.00000+ 0 1.14849- 2 5.41370+ 4 0.00000+ 0 2.63980- 21261 145401330 + 5.41380+ 4 0.00000+ 0 4.27116- 2 5.41390+ 4 0.00000+ 0 4.03237- 21261 145401331 + 5.41400+ 4 0.00000+ 0 2.85227- 2 5.41410+ 4 0.00000+ 0 9.14372- 31261 145401332 + 5.41420+ 4 0.00000+ 0 4.50036- 3 5.41430+ 4 0.00000+ 0 6.02594- 41261 145401333 + 5.41440+ 4 0.00000+ 0 1.05236- 4 5.41450+ 4 0.00000+ 0 6.31102- 61261 145401334 + 5.41460+ 4 0.00000+ 0 2.51041- 7 5.41470+ 4 0.00000+ 0 1.65171- 91261 145401335 + 5.41480+ 4 0.00000+ 0 2.82046-11 5.41500+ 4 0.00000+ 0 0.00000+ 01261 145401336 + 5.51270+ 4 0.00000+ 0 0.00000+ 0 5.51290+ 4 0.00000+ 0 0.00000+ 01261 145401337 + 5.51310+ 4 0.00000+ 0 2.18035-13 5.51320+ 4 0.00000+ 0 4.37071-111261 145401338 + 5.51330+ 4 0.00000+ 0 5.72093- 9 5.51340+ 4 0.00000+ 0 1.83030- 71261 145401339 + 5.51340+ 4 1.00000+ 0 1.83030- 7 5.51350+ 4 0.00000+ 0 4.54073- 61261 145401340 + 5.51350+ 4 1.00000+ 0 4.59074- 6 5.51360+ 4 0.00000+ 0 1.56505- 41261 145401341 + 5.51370+ 4 0.00000+ 0 2.22411- 3 5.51380+ 4 0.00000+ 0 1.96567- 31261 145401342 + 5.51380+ 4 1.00000+ 0 2.14719- 3 5.51390+ 4 0.00000+ 0 1.64867- 21261 145401343 + 5.51400+ 4 0.00000+ 0 2.54361- 2 5.51410+ 4 0.00000+ 0 3.54742- 21261 145401344 + 5.51420+ 4 0.00000+ 0 2.52174- 2 5.51430+ 4 0.00000+ 0 1.27783- 21261 145401345 + 5.51440+ 4 0.00000+ 0 5.25716- 3 5.51450+ 4 0.00000+ 0 1.00338- 31261 145401346 + 5.51460+ 4 0.00000+ 0 1.31051- 4 5.51470+ 4 0.00000+ 0 5.36031- 61261 145401347 + 5.51480+ 4 0.00000+ 0 2.23036- 7 5.51500+ 4 0.00000+ 0 7.03114-111261 145401348 + 5.61290+ 4 0.00000+ 0 0.00000+ 0 5.61290+ 4 1.00000+ 0 0.00000+ 01261 145401349 + 5.61310+ 4 0.00000+ 0 0.00000+ 0 5.61310+ 4 1.00000+ 0 0.00000+ 01261 145401350 + 5.61320+ 4 0.00000+ 0 0.00000+ 0 5.61330+ 4 0.00000+ 0 1.16019-131261 145401351 + 5.61340+ 4 0.00000+ 0 3.14051-11 5.61350+ 4 0.00000+ 0 3.91063- 91261 145401352 + 5.61350+ 4 1.00000+ 0 1.65027- 9 5.61360+ 4 0.00000+ 0 1.59026- 71261 145401353 + 5.61370+ 4 0.00000+ 0 1.88030- 6 5.61370+ 4 1.00000+ 0 1.88030- 61261 145401354 + 5.61380+ 4 0.00000+ 0 5.83894- 5 5.61390+ 4 0.00000+ 0 5.31346- 41261 145401355 + 5.61400+ 4 0.00000+ 0 4.69931- 3 5.61410+ 4 0.00000+ 0 1.50282- 21261 145401356 + 5.61420+ 4 0.00000+ 0 2.40038- 2 5.61430+ 4 0.00000+ 0 3.94720- 21261 145401357 + 5.61440+ 4 0.00000+ 0 3.64655- 2 5.61450+ 4 0.00000+ 0 1.97717- 21261 145401358 + 5.61460+ 4 0.00000+ 0 7.71421- 3 5.61470+ 4 0.00000+ 0 1.48292- 31261 145401359 + 5.61480+ 4 0.00000+ 0 1.73488- 4 5.61490+ 4 0.00000+ 0 1.12818- 51261 145401360 + 5.61500+ 4 0.00000+ 0 6.21100- 7 5.61520+ 4 0.00000+ 0 2.90047-101261 145401361 + 5.61540+ 4 0.00000+ 0 1.32021-14 5.71330+ 4 0.00000+ 0 0.00000+ 01261 145401362 + 5.71350+ 4 0.00000+ 0 2.63043-14 5.71370+ 4 0.00000+ 0 3.28053-101261 145401363 + 5.71380+ 4 0.00000+ 0 1.88030- 7 5.71390+ 4 0.00000+ 0 5.88095- 71261 145401364 + 5.71400+ 4 0.00000+ 0 8.00930- 5 5.71410+ 4 0.00000+ 0 1.51475- 41261 145401365 + 5.71420+ 4 0.00000+ 0 8.45277- 4 5.71430+ 4 0.00000+ 0 4.07201- 31261 145401366 + 5.71440+ 4 0.00000+ 0 1.04142- 2 5.71450+ 4 0.00000+ 0 1.48458- 21261 145401367 + 5.71460+ 4 0.00000+ 0 1.55733- 2 5.71470+ 4 0.00000+ 0 9.50440- 31261 145401368 + 5.71480+ 4 0.00000+ 0 3.62711- 3 5.71490+ 4 0.00000+ 0 7.71875- 41261 145401369 + 5.71500+ 4 0.00000+ 0 1.28881- 4 5.71510+ 4 0.00000+ 0 1.37222- 51261 145401370 + 5.71520+ 4 0.00000+ 0 6.91112- 7 5.71530+ 4 0.00000+ 0 2.13034- 81261 145401371 + 5.71540+ 4 0.00000+ 0 3.72060-10 5.81350+ 4 0.00000+ 0 0.00000+ 01261 145401372 + 5.81370+ 4 0.00000+ 0 0.00000+ 0 5.81370+ 4 1.00000+ 0 0.00000+ 01261 145401373 + 5.81380+ 4 0.00000+ 0 3.30053-12 5.81390+ 4 0.00000+ 0 3.41055-111261 145401374 + 5.81390+ 4 1.00000+ 0 3.23052-11 5.81400+ 4 0.00000+ 0 1.95032- 81261 145401375 + 5.81410+ 4 0.00000+ 0 2.28037- 7 5.81420+ 4 0.00000+ 0 3.56058- 61261 145401376 + 5.81430+ 4 0.00000+ 0 4.99981- 5 5.81440+ 4 0.00000+ 0 4.30250- 41261 145401377 + 5.81450+ 4 0.00000+ 0 1.85275- 3 5.81460+ 4 0.00000+ 0 5.47354- 31261 145401378 + 5.81470+ 4 0.00000+ 0 1.22740- 2 5.81480+ 4 0.00000+ 0 1.15418- 21261 145401379 + 5.81490+ 4 0.00000+ 0 7.15969- 3 5.81500+ 4 0.00000+ 0 3.23447- 31261 145401380 + 5.81510+ 4 0.00000+ 0 9.82779- 4 5.81520+ 4 0.00000+ 0 1.70188- 41261 145401381 + 5.81530+ 4 0.00000+ 0 1.81429- 5 5.81540+ 4 0.00000+ 0 9.97161- 71261 145401382 + 5.81550+ 4 0.00000+ 0 3.93064- 8 5.81560+ 4 0.00000+ 0 1.03017- 91261 145401383 + 5.81570+ 4 0.00000+ 0 3.35054-11 5.81580+ 4 0.00000+ 0 3.42055-131261 145401384 + 5.81600+ 4 0.00000+ 0 0.00000+ 0 5.91390+ 4 0.00000+ 0 0.00000+ 01261 145401385 + 5.91400+ 4 0.00000+ 0 3.98064-14 5.91410+ 4 0.00000+ 0 5.28085-121261 145401386 + 5.91420+ 4 0.00000+ 0 1.75028-10 5.91420+ 4 1.00000+ 0 1.75028-101261 145401387 + 5.91430+ 4 0.00000+ 0 3.64059- 8 5.91440+ 4 0.00000+ 0 1.75028- 61261 145401388 + 5.91440+ 4 1.00000+ 0 2.46040- 7 5.91450+ 4 0.00000+ 0 6.78110- 61261 145401389 + 5.91460+ 4 0.00000+ 0 6.34503- 5 5.91470+ 4 0.00000+ 0 4.26019- 41261 145401390 + 5.91480+ 4 0.00000+ 0 1.47906- 3 5.91490+ 4 0.00000+ 0 2.81840- 31261 145401391 + 5.91500+ 4 0.00000+ 0 3.02811- 3 5.91510+ 4 0.00000+ 0 2.36549- 31261 145401392 + 5.91520+ 4 0.00000+ 0 1.23991- 3 5.91530+ 4 0.00000+ 0 4.12157- 41261 145401393 + 5.91540+ 4 0.00000+ 0 6.63207- 5 5.91550+ 4 0.00000+ 0 9.17148- 61261 145401394 + 5.91560+ 4 0.00000+ 0 6.88111- 7 5.91570+ 4 0.00000+ 0 6.25101- 81261 145401395 + 5.91580+ 4 0.00000+ 0 2.11034- 9 5.91590+ 4 0.00000+ 0 1.85030-111261 145401396 + 5.91600+ 4 0.00000+ 0 1.21020-11 6.01400+ 4 0.00000+ 0 0.00000+ 01261 145401397 + 6.01410+ 4 0.00000+ 0 0.00000+ 0 6.01410+ 4 1.00000+ 0 0.00000+ 01261 145401398 + 6.01420+ 4 0.00000+ 0 0.00000+ 0 6.01430+ 4 0.00000+ 0 5.79094-131261 145401399 + 6.01440+ 4 0.00000+ 0 2.73044- 6 6.01450+ 4 0.00000+ 0 2.55041- 91261 145401400 + 6.01460+ 4 0.00000+ 0 8.06130- 8 6.01470+ 4 0.00000+ 0 2.01033- 61261 145401401 + 6.01480+ 4 0.00000+ 0 2.59842- 5 6.01490+ 4 0.00000+ 0 1.49284- 41261 145401402 + 6.01500+ 4 0.00000+ 0 4.79608- 4 6.01510+ 4 0.00000+ 0 9.92871- 41261 145401403 + 6.01520+ 4 0.00000+ 0 1.50875- 3 6.01530+ 4 0.00000+ 0 1.37875- 31261 145401404 + 6.01540+ 4 0.00000+ 0 5.92816- 4 6.01550+ 4 0.00000+ 0 2.56511- 41261 145401405 + 6.01560+ 4 0.00000+ 0 5.07082- 5 6.01570+ 4 0.00000+ 0 1.21820- 51261 145401406 + 6.01580+ 4 0.00000+ 0 1.29021- 6 6.01590+ 4 0.00000+ 0 4.40071- 81261 145401407 + 6.01600+ 4 0.00000+ 0 2.55041- 8 6.01610+ 4 0.00000+ 0 5.67092-111261 145401408 + 6.01620+ 4 0.00000+ 0 1.53025-12 6.01630+ 4 0.00000+ 0 0.00000+ 01261 145401409 + 6.01640+ 4 0.00000+ 0 0.00000+ 0 6.11410+ 4 0.00000+ 0 0.00000+ 01261 145401410 + 6.11430+ 4 0.00000+ 0 0.00000+ 0 6.11440+ 4 0.00000+ 0 0.00000+ 01261 145401411 + 6.11450+ 4 0.00000+ 0 2.32038-14 6.11460+ 4 0.00000+ 0 2.48040-121261 145401412 + 6.11470+ 4 0.00000+ 0 1.87030- 8 6.11480+ 4 0.00000+ 0 5.70092- 91261 145401413 + 6.11480+ 4 1.00000+ 0 5.70092- 9 6.11490+ 4 0.00000+ 0 2.31037- 71261 145401414 + 6.11500+ 4 0.00000+ 0 2.28037- 6 6.11510+ 4 0.00000+ 0 1.40123- 51261 145401415 + 6.11520+ 4 0.00000+ 0 3.48156- 5 6.11520+ 4 1.00000+ 0 3.48156- 51261 145401416 + 6.11530+ 4 0.00000+ 0 1.94832- 4 6.11540+ 4 0.00000+ 0 1.06727- 41261 145401417 + 6.11540+ 4 1.00000+ 0 1.06757- 4 6.11550+ 4 0.00000+ 0 2.64693- 41261 145401418 + 6.11560+ 4 0.00000+ 0 1.32441- 4 6.11570+ 4 0.00000+ 0 7.19416- 51261 145401419 + 6.11580+ 4 0.00000+ 0 2.17035- 5 6.11590+ 4 0.00000+ 0 2.61042- 61261 145401420 + 6.11600+ 4 0.00000+ 0 1.35022- 6 6.11610+ 4 0.00000+ 0 2.48040- 81261 145401421 + 6.11620+ 4 0.00000+ 0 2.11034- 9 6.11630+ 4 0.00000+ 0 3.22052-111261 145401422 + 6.11640+ 4 0.00000+ 0 6.00097-13 6.11650+ 4 0.00000+ 0 0.00000+ 01261 145401423 + 6.21430+ 4 0.00000+ 0 0.00000+ 0 6.21430+ 4 1.00000+ 0 0.00000+ 01261 145401424 + 6.21440+ 4 0.00000+ 0 0.00000+ 0 6.21450+ 4 0.00000+ 0 0.00000+ 01261 145401425 + 6.21460+ 4 0.00000+ 0 0.00000+ 0 6.21470+ 4 0.00000+ 0 1.15019-141261 145401426 + 6.21480+ 4 0.00000+ 0 4.80078-13 6.21490+ 4 0.00000+ 0 3.86062-111261 145401427 + 6.21500+ 4 0.00000+ 0 1.13018- 9 6.21510+ 4 0.00000+ 0 2.20036- 81261 145401428 + 6.21520+ 4 0.00000+ 0 3.94064- 7 6.21530+ 4 0.00000+ 0 3.76061- 61261 145401429 + 6.21540+ 4 0.00000+ 0 1.18519- 5 6.21550+ 4 0.00000+ 0 4.65775- 51261 145401430 + 6.21560+ 4 0.00000+ 0 5.85695- 5 6.21570+ 4 0.00000+ 0 7.19416- 51261 145401431 + 6.21580+ 4 0.00000+ 0 5.63591- 5 6.21590+ 4 0.00000+ 0 2.08534- 51261 145401432 + 6.21600+ 4 0.00000+ 0 9.82159- 6 6.21610+ 4 0.00000+ 0 1.23020- 61261 145401433 + 6.21620+ 4 0.00000+ 0 3.08050- 7 6.21630+ 4 0.00000+ 0 1.47024- 81261 145401434 + 6.21640+ 4 0.00000+ 0 8.79142-10 6.21650+ 4 0.00000+ 0 3.31054-111261 145401435 + 6.21660+ 4 0.00000+ 0 1.30021-12 6.21670+ 4 0.00000+ 0 2.35038-141261 145401436 + 6.21680+ 4 0.00000+ 0 0.00000+ 0 6.21700+ 4 0.00000+ 0 0.00000+ 01261 145401437 + 6.31470+ 4 0.00000+ 0 0.00000+ 0 6.31490+ 4 0.00000+ 0 0.00000+ 01261 145401438 + 6.31510+ 4 0.00000+ 0 4.03065-12 6.31520+ 4 0.00000+ 0 2.78045-111261 145401439 + 6.31520+ 4 1.00000+ 0 2.78045-11 6.31530+ 4 0.00000+ 0 1.76028- 91261 145401440 + 6.31540+ 4 0.00000+ 0 1.79029- 8 6.31550+ 4 0.00000+ 0 2.49040- 71261 145401441 + 6.31560+ 4 0.00000+ 0 7.82127- 7 6.31570+ 4 0.00000+ 0 2.67043- 61261 145401442 + 6.31580+ 4 0.00000+ 0 5.90095- 6 6.31590+ 4 0.00000+ 0 6.74109- 61261 145401443 + 6.31600+ 4 0.00000+ 0 2.88047- 6 6.31610+ 4 0.00000+ 0 2.15035- 61261 145401444 + 6.31620+ 4 0.00000+ 0 1.40023- 6 6.31630+ 4 0.00000+ 0 1.88030- 71261 145401445 + 6.31640+ 4 0.00000+ 0 3.30053- 8 6.31650+ 4 0.00000+ 0 3.81062- 91261 145401446 + 6.31660+ 4 0.00000+ 0 4.73077-10 6.31670+ 4 0.00000+ 0 2.77045-111261 145401447 + 6.31680+ 4 0.00000+ 0 5.37087-13 6.31690+ 4 0.00000+ 0 0.00000+ 01261 145401448 + 6.31700+ 4 0.00000+ 0 0.00000+ 0 6.41470+ 4 0.00000+ 0 0.00000+ 01261 145401449 + 6.41490+ 4 0.00000+ 0 0.00000+ 0 6.41510+ 4 0.00000+ 0 0.00000+ 01261 145401450 + 6.41520+ 4 0.00000+ 0 0.00000+ 0 6.41530+ 4 0.00000+ 0 7.77126-141261 145401451 + 6.41540+ 4 0.00000+ 0 2.67043-12 6.41550+ 4 0.00000+ 0 1.39022-101261 145401452 + 6.41560+ 4 0.00000+ 0 1.85130- 5 6.41570+ 4 0.00000+ 0 1.19019- 81261 145401453 + 6.41580+ 4 0.00000+ 0 8.25133- 8 6.41590+ 4 0.00000+ 0 3.44056- 71261 145401454 + 6.41600+ 4 0.00000+ 0 1.29021- 7 6.41610+ 4 0.00000+ 0 6.48105- 71261 145401455 + 6.41620+ 4 0.00000+ 0 1.09018- 6 6.41630+ 4 0.00000+ 0 3.80061- 71261 145401456 + 6.41640+ 4 0.00000+ 0 1.77029- 7 6.41650+ 4 0.00000+ 0 5.61091- 81261 145401457 + 6.41660+ 4 0.00000+ 0 1.99032- 8 6.41670+ 4 0.00000+ 0 3.50057- 91261 145401458 + 6.41680+ 4 0.00000+ 0 2.11034-10 6.41690+ 4 0.00000+ 0 7.66124-121261 145401459 + 6.41700+ 4 0.00000+ 0 2.41039-13 6.41710+ 4 0.00000+ 0 0.00000+ 01261 145401460 + 6.41720+ 4 0.00000+ 0 0.00000+ 0 6.51510+ 4 0.00000+ 0 0.00000+ 01261 145401461 + 6.51530+ 4 0.00000+ 0 0.00000+ 0 6.51550+ 4 0.00000+ 0 0.00000+ 01261 145401462 + 6.51560+ 4 0.00000+ 0 2.98048-14 6.51560+ 4 1.00000+ 0 3.07050-141261 145401463 + 6.51570+ 4 0.00000+ 0 1.18019-12 6.51580+ 4 0.00000+ 0 1.36022-111261 145401464 + 6.51580+ 4 1.00000+ 0 1.42023-11 6.51590+ 4 0.00000+ 0 4.31070-101261 145401465 + 6.51600+ 4 0.00000+ 0 1.53025-10 6.51610+ 4 0.00000+ 0 6.32102- 91261 145401466 + 6.51620+ 4 0.00000+ 0 1.55025- 8 6.51620+ 4 1.00000+ 0 1.55025- 81261 145401467 + 6.51630+ 4 0.00000+ 0 3.08050- 8 6.51640+ 4 0.00000+ 0 3.87063- 81261 145401468 + 6.51650+ 4 0.00000+ 0 3.21052- 8 6.51660+ 4 0.00000+ 0 2.98048- 81261 145401469 + 6.51670+ 4 0.00000+ 0 1.40023- 8 6.51680+ 4 0.00000+ 0 2.36038- 91261 145401470 + 6.51690+ 4 0.00000+ 0 2.50040-10 6.51700+ 4 0.00000+ 0 2.40039-111261 145401471 + 6.51710+ 4 0.00000+ 0 1.72028-12 6.51720+ 4 0.00000+ 0 6.16100-141261 145401472 + 6.61550+ 4 0.00000+ 0 0.00000+ 0 6.61560+ 4 0.00000+ 0 0.00000+ 01261 145401473 + 6.61570+ 4 0.00000+ 0 0.00000+ 0 6.61580+ 4 0.00000+ 0 0.00000+ 01261 145401474 + 6.61590+ 4 0.00000+ 0 5.46088-14 6.61600+ 4 0.00000+ 0 1.79029-141261 145401475 + 6.61610+ 4 0.00000+ 0 7.20116-12 6.61620+ 4 0.00000+ 0 1.03017-101261 145401476 + 6.61630+ 4 0.00000+ 0 3.22052-10 6.61640+ 4 0.00000+ 0 1.24020- 91261 145401477 + 6.61650+ 4 0.00000+ 0 1.50024- 9 6.61650+ 4 1.00000+ 0 1.50024- 91261 145401478 + 6.61660+ 4 0.00000+ 0 7.71125- 9 6.61670+ 4 0.00000+ 0 9.64156- 91261 145401479 + 6.61680+ 4 0.00000+ 0 4.23068- 9 6.61690+ 4 0.00000+ 0 1.19019- 91261 145401480 + 6.61700+ 4 0.00000+ 0 3.10050-10 6.61710+ 4 0.00000+ 0 6.33102-111261 145401481 + 6.61720+ 4 0.00000+ 0 6.76109-12 6.71590+ 4 0.00000+ 0 0.00000+ 01261 145401482 + 6.71590+ 4 1.00000+ 0 0.00000+ 0 6.71610+ 4 0.00000+ 0 0.00000+ 01261 145401483 + 6.71610+ 4 1.00000+ 0 0.00000+ 0 6.71620+ 4 0.00000+ 0 0.00000+ 01261 145401484 + 6.71620+ 4 1.00000+ 0 0.00000+ 0 6.71630+ 4 0.00000+ 0 4.22068-141261 145401485 + 6.71630+ 4 1.00000+ 0 4.09066-14 6.71640+ 4 0.00000+ 0 4.93080-131261 145401486 + 6.71640+ 4 1.00000+ 0 5.12083-13 6.71650+ 4 0.00000+ 0 7.92128-121261 145401487 + 6.71660+ 4 0.00000+ 0 3.18051-11 6.71660+ 4 1.00000+ 0 3.18051-111261 145401488 + 6.71670+ 4 0.00000+ 0 2.39039-10 6.71680+ 4 0.00000+ 0 3.00049-101261 145401489 + 6.71690+ 4 0.00000+ 0 2.28037-10 6.71700+ 4 0.00000+ 0 7.83127-111261 145401490 + 6.71700+ 4 1.00000+ 0 7.87127-11 6.71710+ 4 0.00000+ 0 8.38136-111261 145401491 + 6.71720+ 4 0.00000+ 0 2.38039-11 6.81610+ 4 0.00000+ 0 0.00000+ 01261 145401492 + 6.81620+ 4 0.00000+ 0 0.00000+ 0 6.81630+ 4 0.00000+ 0 0.00000+ 01261 145401493 + 6.81640+ 4 0.00000+ 0 0.00000+ 0 6.81650+ 4 0.00000+ 0 0.00000+ 01261 145401494 + 6.81660+ 4 0.00000+ 0 5.62091-14 6.81670+ 4 0.00000+ 0 3.41055-131261 145401495 + 6.81670+ 4 1.00000+ 0 3.42055-13 6.81680+ 4 0.00000+ 0 2.71044-121261 145401496 + 6.81690+ 4 0.00000+ 0 6.32102-12 6.81700+ 4 0.00000+ 0 1.28021-111261 145401497 + 6.81710+ 4 0.00000+ 0 1.91031-11 6.81720+ 4 0.00000+ 0 1.45023-111261 145401498 + 1.40000+ 7 0.00000+ 0 3 0 3390 11301261 145401499 + 2.40660+ 4 0.00000+ 0 1.59889-10 2.40670+ 4 0.00000+ 0 1.59889-111261 145401500 + 2.40680+ 4 0.00000+ 0 5.88591-13 2.40700+ 4 0.00000+ 0 0.00000+ 01261 145401501 + 2.50660+ 4 0.00000+ 0 4.09715- 8 2.50670+ 4 0.00000+ 0 1.31908- 81261 145401502 + 2.50680+ 4 0.00000+ 0 1.58890- 9 2.50690+ 4 0.00000+ 0 1.34906-101261 145401503 + 2.50700+ 4 0.00000+ 0 8.36419-12 2.50710+ 4 0.00000+ 0 3.33768-131261 145401504 + 2.60660+ 4 0.00000+ 0 1.24913- 6 2.60670+ 4 0.00000+ 0 1.19917- 61261 145401505 + 2.60680+ 4 0.00000+ 0 4.43692- 7 2.60690+ 4 0.00000+ 0 1.19917- 71261 145401506 + 2.60700+ 4 0.00000+ 0 2.39833- 8 2.60710+ 4 0.00000+ 0 3.15781- 91261 145401507 + 2.60720+ 4 0.00000+ 0 2.82803- 9 2.60730+ 4 0.00000+ 0 2.16849-101261 145401508 + 2.60740+ 4 0.00000+ 0 8.21429-12 2.60760+ 4 0.00000+ 0 0.00000+ 01261 145401509 + 2.70660+ 4 0.00000+ 0 1.39903- 6 2.70670+ 4 0.00000+ 0 3.53754- 61261 145401510 + 2.70680+ 4 0.00000+ 0 3.60749- 6 2.70690+ 4 0.00000+ 0 2.80805- 61261 145401511 + 2.70700+ 4 0.00000+ 0 1.69882- 6 2.70710+ 4 0.00000+ 0 6.98515- 71261 145401512 + 2.70720+ 4 0.00000+ 0 7.70465- 7 2.70730+ 4 0.00000+ 0 1.95864- 71261 145401513 + 2.70740+ 4 0.00000+ 0 2.43831- 8 2.70750+ 4 0.00000+ 0 2.21846- 91261 145401514 + 2.70760+ 4 0.00000+ 0 1.27911-10 2.80660+ 4 0.00000+ 0 2.67814- 71261 145401515 + 2.80670+ 4 0.00000+ 0 1.81874- 6 2.80680+ 4 0.00000+ 0 4.87661- 61261 145401516 + 2.80690+ 4 0.00000+ 0 9.92310- 6 2.80700+ 4 0.00000+ 0 1.61288- 51261 145401517 + 2.80710+ 4 0.00000+ 0 1.86171- 5 2.80720+ 4 0.00000+ 0 2.48128- 51261 145401518 + 2.80730+ 4 0.00000+ 0 1.93166- 5 2.80740+ 4 0.00000+ 0 7.41485- 61261 145401519 + 2.80750+ 4 0.00000+ 0 2.07856- 6 2.80760+ 4 0.00000+ 0 3.78737- 71261 145401520 + 2.80770+ 4 0.00000+ 0 4.89660- 8 2.80780+ 4 0.00000+ 0 2.69813- 91261 145401521 + 2.80800+ 4 0.00000+ 0 1.88869-12 2.80820+ 4 0.00000+ 0 0.00000+ 01261 145401522 + 2.90660+ 4 0.00000+ 0 1.56891- 9 2.90670+ 4 0.00000+ 0 3.23775- 81261 145401523 + 2.90680+ 4 0.00000+ 0 1.25913- 7 2.90680+ 4 1.00000+ 0 1.23914- 71261 145401524 + 2.90690+ 4 0.00000+ 0 1.41901- 6 2.90700+ 4 0.00000+ 0 3.05788- 61261 145401525 + 2.90700+ 4 1.00000+ 0 3.05788- 6 2.90710+ 4 0.00000+ 0 1.83972- 51261 145401526 + 2.90720+ 4 0.00000+ 0 2.90698- 5 2.90730+ 4 0.00000+ 0 6.17171- 51261 145401527 + 2.90740+ 4 0.00000+ 0 6.53546- 5 2.90750+ 4 0.00000+ 0 5.17041- 51261 145401528 + 2.90760+ 4 0.00000+ 0 2.75908- 5 2.90770+ 4 0.00000+ 0 1.11722- 51261 145401529 + 2.90780+ 4 0.00000+ 0 2.03858- 6 2.90790+ 4 0.00000+ 0 2.14851- 71261 145401530 + 2.90800+ 4 0.00000+ 0 1.69882- 8 2.90810+ 4 0.00000+ 0 5.90590-101261 145401531 + 2.90820+ 4 0.00000+ 0 2.95794-11 3.00660+ 4 0.00000+ 0 9.66328-131261 145401532 + 3.00670+ 4 0.00000+ 0 6.50548-11 3.00680+ 4 0.00000+ 0 1.60888- 91261 145401533 + 3.00690+ 4 0.00000+ 0 1.39903- 8 3.00690+ 4 1.00000+ 0 1.25913- 81261 145401534 + 3.00700+ 4 0.00000+ 0 3.60749- 7 3.00710+ 4 0.00000+ 0 1.53893- 61261 145401535 + 3.00710+ 4 1.00000+ 0 1.53893- 6 3.00720+ 4 0.00000+ 0 5.87592- 61261 145401536 + 3.00730+ 4 0.00000+ 0 3.40963- 5 3.00740+ 4 0.00000+ 0 9.49440- 51261 145401537 + 3.00750+ 4 0.00000+ 0 1.92027- 4 3.00760+ 4 0.00000+ 0 2.68673- 41261 145401538 + 3.00770+ 4 0.00000+ 0 3.05758- 4 3.00780+ 4 0.00000+ 0 1.69023- 41261 145401539 + 3.00790+ 4 0.00000+ 0 5.64708- 5 3.00800+ 4 0.00000+ 0 1.49896- 51261 145401540 + 3.00810+ 4 0.00000+ 0 1.85871- 6 3.00820+ 4 0.00000+ 0 2.78806- 71261 145401541 + 3.00830+ 4 0.00000+ 0 1.96863- 8 3.00840+ 4 0.00000+ 0 8.37418-101261 145401542 + 3.00860+ 4 0.00000+ 0 1.72880-13 3.10660+ 4 0.00000+ 0 0.00000+ 01261 145401543 + 3.10670+ 4 0.00000+ 0 0.00000+ 0 3.10680+ 4 0.00000+ 0 2.32838-131261 145401544 + 3.10690+ 4 0.00000+ 0 1.39903-11 3.10700+ 4 0.00000+ 0 5.80597-101261 145401545 + 3.10710+ 4 0.00000+ 0 1.56891- 8 3.10720+ 4 0.00000+ 0 3.63747- 81261 145401546 + 3.10730+ 4 0.00000+ 0 6.62540- 7 3.10740+ 4 0.00000+ 0 5.30631- 61261 145401547 + 3.10750+ 4 0.00000+ 0 2.88300- 5 3.10760+ 4 0.00000+ 0 1.03838- 41261 145401548 + 3.10770+ 4 0.00000+ 0 3.09335- 4 3.10780+ 4 0.00000+ 0 4.63778- 41261 145401549 + 3.10790+ 4 0.00000+ 0 4.36087- 4 3.10800+ 4 0.00000+ 0 3.52065- 41261 145401550 + 3.10810+ 4 0.00000+ 0 1.43280- 4 3.10820+ 4 0.00000+ 0 6.18370- 51261 145401551 + 3.10830+ 4 0.00000+ 0 1.36005- 5 3.10840+ 4 0.00000+ 0 2.00860- 61261 145401552 + 3.10860+ 4 0.00000+ 0 5.54615- 9 3.20660+ 4 0.00000+ 0 0.00000+ 01261 145401553 + 3.20670+ 4 0.00000+ 0 0.00000+ 0 3.20680+ 4 0.00000+ 0 0.00000+ 01261 145401554 + 3.20690+ 4 0.00000+ 0 0.00000+ 0 3.20700+ 4 0.00000+ 0 9.30353-141261 145401555 + 3.20710+ 4 0.00000+ 0 7.74462-12 3.20720+ 4 0.00000+ 0 2.38834-111261 145401556 + 3.20730+ 4 0.00000+ 0 7.27494-10 3.20730+ 4 1.00000+ 0 7.27494-101261 145401557 + 3.20740+ 4 0.00000+ 0 3.70742- 8 3.20750+ 4 0.00000+ 0 3.01790- 71261 145401558 + 3.20750+ 4 1.00000+ 0 3.01790- 7 3.20760+ 4 0.00000+ 0 6.32560- 61261 145401559 + 3.20770+ 4 0.00000+ 0 2.66715- 5 3.20770+ 4 1.00000+ 0 2.66515- 51261 145401560 + 3.20780+ 4 0.00000+ 0 2.21926- 4 3.20790+ 4 0.00000+ 0 5.61120- 41261 145401561 + 3.20800+ 4 0.00000+ 0 1.24433- 3 3.20810+ 4 0.00000+ 0 1.46942- 31261 145401562 + 3.20820+ 4 0.00000+ 0 1.64698- 3 3.20830+ 4 0.00000+ 0 1.03645- 31261 145401563 + 3.20840+ 4 0.00000+ 0 4.96375- 4 3.20850+ 4 0.00000+ 0 1.36875- 41261 145401564 + 3.20860+ 4 0.00000+ 0 1.68983- 5 3.20870+ 4 0.00000+ 0 1.05926- 61261 145401565 + 3.20880+ 4 0.00000+ 0 6.09576- 8 3.30690+ 4 0.00000+ 0 0.00000+ 01261 145401566 + 3.30710+ 4 0.00000+ 0 0.00000+ 0 3.30720+ 4 0.00000+ 0 0.00000+ 01261 145401567 + 3.30730+ 4 0.00000+ 0 6.98515-14 3.30740+ 4 0.00000+ 0 2.96794-121261 145401568 + 3.30740+ 4 1.00000+ 0 3.08785-12 3.30750+ 4 0.00000+ 0 3.19778-101261 145401569 + 3.30760+ 4 0.00000+ 0 1.04927- 8 3.30770+ 4 0.00000+ 0 2.78806- 71261 145401570 + 3.30780+ 4 0.00000+ 0 3.62748- 6 3.30790+ 4 0.00000+ 0 2.74209- 51261 145401571 + 3.30800+ 4 0.00000+ 0 1.77517- 4 3.30810+ 4 0.00000+ 0 5.76729- 41261 145401572 + 3.30820+ 4 0.00000+ 0 8.15064- 4 3.30820+ 4 1.00000+ 0 8.14514- 41261 145401573 + 3.30830+ 4 0.00000+ 0 2.63544- 3 3.30840+ 4 0.00000+ 0 3.63577- 31261 145401574 + 3.30850+ 4 0.00000+ 0 3.21115- 3 3.30860+ 4 0.00000+ 0 1.26785- 31261 145401575 + 3.30870+ 4 0.00000+ 0 2.56102- 4 3.30880+ 4 0.00000+ 0 5.19339- 51261 145401576 + 3.30890+ 4 0.00000+ 0 3.12783- 6 3.40720+ 4 0.00000+ 0 0.00000+ 01261 145401577 + 3.40730+ 4 0.00000+ 0 0.00000+ 0 3.40730+ 4 1.00000+ 0 0.00000+ 01261 145401578 + 3.40740+ 4 0.00000+ 0 0.00000+ 0 3.40750+ 4 0.00000+ 0 1.57890-141261 145401579 + 3.40760+ 4 0.00000+ 0 1.72880-12 3.40770+ 4 0.00000+ 0 7.60472-111261 145401580 + 3.40770+ 4 1.00000+ 0 7.60472-11 3.40780+ 4 0.00000+ 0 6.64538- 91261 145401581 + 3.40790+ 4 0.00000+ 0 8.27425- 8 3.40790+ 4 1.00000+ 0 8.27425- 81261 145401582 + 3.40800+ 4 0.00000+ 0 3.51756- 6 3.40810+ 4 0.00000+ 0 1.92166- 51261 145401583 + 3.40810+ 4 1.00000+ 0 3.34787- 4 3.40820+ 4 0.00000+ 0 2.71651- 41261 145401584 + 3.40830+ 4 0.00000+ 0 5.84814- 4 3.40830+ 4 1.00000+ 0 5.83664- 41261 145401585 + 3.40840+ 4 0.00000+ 0 4.58739- 3 3.40850+ 4 0.00000+ 0 5.64355- 31261 145401586 + 3.40850+ 4 1.00000+ 0 5.67276- 3 3.40860+ 4 0.00000+ 0 1.26693- 21261 145401587 + 3.40870+ 4 0.00000+ 0 7.40003- 3 3.40880+ 4 0.00000+ 0 4.82650- 31261 145401588 + 3.40890+ 4 0.00000+ 0 1.00670- 3 3.40900+ 4 0.00000+ 0 2.78626- 41261 145401589 + 3.40910+ 4 0.00000+ 0 8.61401- 7 3.40920+ 4 0.00000+ 0 5.11644- 91261 145401590 + 3.40940+ 4 0.00000+ 0 1.20916- 9 3.40950+ 4 0.00000+ 0 4.93706-121261 145401591 + 3.40960+ 4 0.00000+ 0 8.09438-14 3.50750+ 4 0.00000+ 0 0.00000+ 01261 145401592 + 3.50770+ 4 0.00000+ 0 0.00000+ 0 3.50770+ 4 1.00000+ 0 0.00000+ 01261 145401593 + 3.50780+ 4 0.00000+ 0 2.62817-13 3.50790+ 4 0.00000+ 0 1.17918-111261 145401594 + 3.50790+ 4 1.00000+ 0 1.25913-11 3.50800+ 4 0.00000+ 0 8.31422-101261 145401595 + 3.50800+ 4 1.00000+ 0 8.76391-10 3.50810+ 4 0.00000+ 0 6.45551- 81261 145401596 + 3.50820+ 4 0.00000+ 0 6.22567- 6 3.50820+ 4 1.00000+ 0 6.11575- 71261 145401597 + 3.50830+ 4 0.00000+ 0 1.75678- 5 3.50840+ 4 0.00000+ 0 1.19627- 41261 145401598 + 3.50840+ 4 1.00000+ 0 1.03138- 4 3.50850+ 4 0.00000+ 0 1.59912- 31261 145401599 + 3.50860+ 4 0.00000+ 0 2.52369- 3 3.50860+ 4 1.00000+ 0 2.52368- 31261 145401600 + 3.50870+ 4 0.00000+ 0 7.87970- 3 3.50880+ 4 0.00000+ 0 1.46590- 21261 145401601 + 3.50890+ 4 0.00000+ 0 9.36433- 3 3.50900+ 4 0.00000+ 0 7.31437- 31261 145401602 + 3.50910+ 4 0.00000+ 0 4.74830- 4 3.50920+ 4 0.00000+ 0 9.36349- 61261 145401603 + 3.50930+ 4 0.00000+ 0 3.90728- 6 3.50940+ 4 0.00000+ 0 4.44691- 61261 145401604 + 3.50950+ 4 0.00000+ 0 1.09480- 7 3.50960+ 4 0.00000+ 0 4.00722- 91261 145401605 + 3.60770+ 4 0.00000+ 0 0.00000+ 0 3.60780+ 4 0.00000+ 0 0.00000+ 01261 145401606 + 3.60790+ 4 0.00000+ 0 0.00000+ 0 3.60790+ 4 1.00000+ 0 0.00000+ 01261 145401607 + 3.60800+ 4 0.00000+ 0 8.40416-14 3.60810+ 4 0.00000+ 0 5.43622-121261 145401608 + 3.60810+ 4 1.00000+ 0 5.66606-12 3.60820+ 4 0.00000+ 0 7.33490-101261 145401609 + 3.60830+ 4 0.00000+ 0 1.45899- 8 3.60830+ 4 1.00000+ 0 1.45899- 81261 145401610 + 3.60840+ 4 0.00000+ 0 1.16919- 6 3.60850+ 4 0.00000+ 0 1.60289- 51261 145401611 + 3.60850+ 4 1.00000+ 0 1.63187- 5 3.60860+ 4 0.00000+ 0 3.14102- 41261 145401612 + 3.60870+ 4 0.00000+ 0 8.56851- 3 3.60880+ 4 0.00000+ 0 1.34325- 21261 145401613 + 3.60890+ 4 0.00000+ 0 2.67770- 2 3.60900+ 4 0.00000+ 0 2.85504- 21261 145401614 + 3.60910+ 4 0.00000+ 0 1.92689- 2 3.60920+ 4 0.00000+ 0 1.53303- 31261 145401615 + 3.60930+ 4 0.00000+ 0 2.29073- 3 3.60940+ 4 0.00000+ 0 1.66150- 31261 145401616 + 3.60950+ 4 0.00000+ 0 1.94655- 4 3.60960+ 4 0.00000+ 0 1.87070- 51261 145401617 + 3.60970+ 4 0.00000+ 0 1.11922- 6 3.60980+ 4 0.00000+ 0 4.47689- 81261 145401618 + 3.60990+ 4 0.00000+ 0 3.97197-10 3.61000+ 4 0.00000+ 0 9.01374-121261 145401619 + 3.70790+ 4 0.00000+ 0 0.00000+ 0 3.70810+ 4 0.00000+ 0 0.00000+ 01261 145401620 + 3.70810+ 4 1.00000+ 0 0.00000+ 0 3.70830+ 4 0.00000+ 0 1.03928-121261 145401621 + 3.70840+ 4 0.00000+ 0 7.45482-11 3.70840+ 4 1.00000+ 0 7.28494-111261 145401622 + 3.70850+ 4 0.00000+ 0 1.48897- 8 3.70860+ 4 0.00000+ 0 6.29563- 61261 145401623 + 3.70860+ 4 1.00000+ 0 2.37835- 7 3.70870+ 4 0.00000+ 0 7.89451- 61261 145401624 + 3.70880+ 4 0.00000+ 0 1.70322- 4 3.70890+ 4 0.00000+ 0 1.78781- 31261 145401625 + 3.70900+ 4 0.00000+ 0 6.29890- 3 3.70900+ 4 1.00000+ 0 3.31721- 31261 145401626 + 3.70910+ 4 0.00000+ 0 1.84019- 2 3.70920+ 4 0.00000+ 0 3.80406- 21261 145401627 + 3.70930+ 4 0.00000+ 0 2.58443- 2 3.70940+ 4 0.00000+ 0 1.76696- 21261 145401628 + 3.70950+ 4 0.00000+ 0 6.96039- 3 3.70960+ 4 0.00000+ 0 2.10661- 31261 145401629 + 3.70970+ 4 0.00000+ 0 4.11264- 4 3.70980+ 4 0.00000+ 0 5.15642- 51261 145401630 + 3.70990+ 4 0.00000+ 0 2.73671- 6 3.71000+ 4 0.00000+ 0 1.32908- 71261 145401631 + 3.71030+ 4 0.00000+ 0 1.86208-14 3.80830+ 4 0.00000+ 0 0.00000+ 01261 145401632 + 3.80840+ 4 0.00000+ 0 0.00000+ 0 3.80850+ 4 0.00000+ 0 3.47758-131261 145401633 + 3.80850+ 4 1.00000+ 0 3.39764-13 3.80860+ 4 0.00000+ 0 9.14365-111261 145401634 + 3.80870+ 4 0.00000+ 0 4.16710- 6 3.80870+ 4 1.00000+ 0 2.42831- 91261 145401635 + 3.80880+ 4 0.00000+ 0 3.52755- 7 3.80890+ 4 0.00000+ 0 6.94907- 41261 145401636 + 3.80900+ 4 0.00000+ 0 2.09674- 4 3.80910+ 4 0.00000+ 0 9.87065- 31261 145401637 + 3.80920+ 4 0.00000+ 0 1.15472- 2 3.80930+ 4 0.00000+ 0 2.32824- 21261 145401638 + 3.80940+ 4 0.00000+ 0 3.05112- 2 3.80950+ 4 0.00000+ 0 3.57368- 21261 145401639 + 3.80960+ 4 0.00000+ 0 3.03489- 2 3.80970+ 4 0.00000+ 0 1.74416- 21261 145401640 + 3.80980+ 4 0.00000+ 0 6.37413- 3 3.80990+ 4 0.00000+ 0 1.56271- 31261 145401641 + 3.81000+ 4 0.00000+ 0 1.89808- 4 3.81010+ 4 0.00000+ 0 1.09424- 51261 145401642 + 3.81020+ 4 0.00000+ 0 3.34767- 7 3.81030+ 4 0.00000+ 0 2.80941- 91261 145401643 + 3.81040+ 4 0.00000+ 0 6.43553-11 3.81050+ 4 0.00000+ 0 2.79311-111261 145401644 + 3.90850+ 4 0.00000+ 0 0.00000+ 0 3.90850+ 4 1.00000+ 0 0.00000+ 01261 145401645 + 3.90870+ 4 0.00000+ 0 3.01790-14 3.90870+ 4 1.00000+ 0 2.93796-141261 145401646 + 3.90880+ 4 0.00000+ 0 1.54892-11 3.90890+ 4 0.00000+ 0 9.00374-101261 145401647 + 3.90890+ 4 1.00000+ 0 8.98376-10 3.90900+ 4 0.00000+ 0 4.92658- 81261 145401648 + 3.90900+ 4 1.00000+ 0 3.84733- 8 3.90910+ 4 0.00000+ 0 1.00930- 61261 145401649 + 3.90910+ 4 1.00000+ 0 9.49340- 7 3.90920+ 4 0.00000+ 0 7.18601- 51261 145401650 + 3.90930+ 4 0.00000+ 0 6.80877- 4 3.90940+ 4 0.00000+ 0 2.05017- 31261 145401651 + 3.90950+ 4 0.00000+ 0 7.33071- 3 3.90960+ 4 0.00000+ 0 1.70510- 21261 145401652 + 3.90970+ 4 0.00000+ 0 2.62459- 2 3.90980+ 4 0.00000+ 0 2.49887- 21261 145401653 + 3.90990+ 4 0.00000+ 0 1.71021- 2 3.91000+ 4 0.00000+ 0 6.97682- 31261 145401654 + 3.91010+ 4 0.00000+ 0 1.46820- 3 3.91020+ 4 0.00000+ 0 1.76078- 41261 145401655 + 3.91030+ 4 0.00000+ 0 1.11095- 5 3.91040+ 4 0.00000+ 0 4.37696- 71261 145401656 + 3.91050+ 4 0.00000+ 0 3.14357- 7 3.91070+ 4 0.00000+ 0 1.67393-101261 145401657 + 4.00870+ 4 0.00000+ 0 0.00000+ 0 4.00880+ 4 0.00000+ 0 0.00000+ 01261 145401658 + 4.00890+ 4 0.00000+ 0 1.57890-14 4.00890+ 4 1.00000+ 0 1.64885-141261 145401659 + 4.00900+ 4 0.00000+ 0 4.65676-12 4.00900+ 4 1.00000+ 0 2.00860-121261 145401660 + 4.00910+ 4 0.00000+ 0 3.67744-10 4.00920+ 4 0.00000+ 0 1.18917- 81261 145401661 + 4.00930+ 4 0.00000+ 0 8.46412- 7 4.00940+ 4 0.00000+ 0 1.75878- 51261 145401662 + 4.00950+ 4 0.00000+ 0 2.29650- 4 4.00960+ 4 0.00000+ 0 1.54798- 31261 145401663 + 4.00970+ 4 0.00000+ 0 6.83344- 3 4.00980+ 4 0.00000+ 0 1.69378- 21261 145401664 + 4.00990+ 4 0.00000+ 0 3.02220- 2 4.01000+ 4 0.00000+ 0 3.67982- 21261 145401665 + 4.01010+ 4 0.00000+ 0 2.47896- 2 4.01020+ 4 0.00000+ 0 1.04226- 21261 145401666 + 4.01030+ 4 0.00000+ 0 2.24441- 3 4.01040+ 4 0.00000+ 0 2.95595- 41261 145401667 + 4.01050+ 4 0.00000+ 0 2.88775- 4 4.01060+ 4 0.00000+ 0 3.19378- 51261 145401668 + 4.01070+ 4 0.00000+ 0 1.68390- 6 4.01080+ 4 0.00000+ 0 2.08855- 71261 145401669 + 4.01090+ 4 0.00000+ 0 2.45242- 9 4.01100+ 4 0.00000+ 0 1.39903-101261 145401670 + 4.10890+ 4 0.00000+ 0 0.00000+ 0 4.10890+ 4 1.00000+ 0 0.00000+ 01261 145401671 + 4.10900+ 4 0.00000+ 0 0.00000+ 0 4.10910+ 4 0.00000+ 0 0.00000+ 01261 145401672 + 4.10910+ 4 1.00000+ 0 0.00000+ 0 4.10920+ 4 0.00000+ 0 8.20430-141261 145401673 + 4.10920+ 4 1.00000+ 0 8.20430-14 4.10930+ 4 0.00000+ 0 2.25843-111261 145401674 + 4.10930+ 4 1.00000+ 0 2.25843-11 4.10940+ 4 0.00000+ 0 1.83872- 91261 145401675 + 4.10940+ 4 1.00000+ 0 1.81874- 9 4.10950+ 4 0.00000+ 0 8.68397- 81261 145401676 + 4.10950+ 4 1.00000+ 0 8.68397- 8 4.10960+ 4 0.00000+ 0 3.78137- 51261 145401677 + 4.10970+ 4 0.00000+ 0 3.68560- 3 4.10970+ 4 1.00000+ 0 2.86201- 51261 145401678 + 4.10980+ 4 0.00000+ 0 2.03708- 4 4.10980+ 4 1.00000+ 0 2.04148- 41261 145401679 + 4.10990+ 4 0.00000+ 0 1.04355- 3 4.10990+ 4 1.00000+ 0 1.04555- 31261 145401680 + 4.11000+ 4 0.00000+ 0 3.93608- 3 4.11000+ 4 1.00000+ 0 3.93608- 31261 145401681 + 4.11010+ 4 0.00000+ 0 1.61504- 2 4.11020+ 4 0.00000+ 0 2.11467- 21261 145401682 + 4.11030+ 4 0.00000+ 0 1.36732- 2 4.11040+ 4 0.00000+ 0 5.41394- 31261 145401683 + 4.11050+ 4 0.00000+ 0 4.49387- 3 4.11060+ 4 0.00000+ 0 1.55889- 31261 145401684 + 4.11070+ 4 0.00000+ 0 4.75474- 4 4.11080+ 4 0.00000+ 0 8.37118- 51261 145401685 + 4.11090+ 4 0.00000+ 0 6.38465- 6 4.11100+ 4 0.00000+ 0 6.17571- 71261 145401686 + 4.11110+ 4 0.00000+ 0 8.36377- 9 4.20900+ 4 0.00000+ 0 0.00000+ 01261 145401687 + 4.20910+ 4 0.00000+ 0 0.00000+ 0 4.20910+ 4 1.00000+ 0 0.00000+ 01261 145401688 + 4.20920+ 4 0.00000+ 0 0.00000+ 0 4.20930+ 4 0.00000+ 0 0.00000+ 01261 145401689 + 4.20930+ 4 1.00000+ 0 0.00000+ 0 4.20940+ 4 0.00000+ 0 7.06509-141261 145401690 + 4.20950+ 4 0.00000+ 0 1.32908-11 4.20960+ 4 0.00000+ 0 4.47689- 91261 145401691 + 4.20970+ 4 0.00000+ 0 5.07647- 8 4.20980+ 4 0.00000+ 0 1.13921- 61261 145401692 + 4.20990+ 4 0.00000+ 0 1.84572- 5 4.21000+ 4 0.00000+ 0 2.45120- 41261 145401693 + 4.21010+ 4 0.00000+ 0 1.72690- 3 4.21020+ 4 0.00000+ 0 7.47568- 31261 145401694 + 4.21030+ 4 0.00000+ 0 1.43884- 2 4.21040+ 4 0.00000+ 0 1.52940- 21261 145401695 + 4.21050+ 4 0.00000+ 0 1.22608- 2 4.21060+ 4 0.00000+ 0 1.05994- 21261 145401696 + 4.21070+ 4 0.00000+ 0 7.84623- 3 4.21080+ 4 0.00000+ 0 3.85690- 31261 145401697 + 4.21090+ 4 0.00000+ 0 1.43051- 3 4.21100+ 4 0.00000+ 0 2.75269- 41261 145401698 + 4.21110+ 4 0.00000+ 0 2.08256- 5 4.21120+ 4 0.00000+ 0 3.30770- 61261 145401699 + 4.21130+ 4 0.00000+ 0 1.16515- 7 4.21140+ 4 0.00000+ 0 1.15919- 81261 145401700 + 4.21150+ 4 0.00000+ 0 2.20820-10 4.21160+ 4 0.00000+ 0 6.21568-121261 145401701 + 4.30930+ 4 0.00000+ 0 0.00000+ 0 4.30930+ 4 1.00000+ 0 0.00000+ 01261 145401702 + 4.30950+ 4 0.00000+ 0 0.00000+ 0 4.30950+ 4 1.00000+ 0 0.00000+ 01261 145401703 + 4.30970+ 4 0.00000+ 0 4.84663-13 4.30970+ 4 1.00000+ 0 5.02651-131261 145401704 + 4.30980+ 4 0.00000+ 0 7.31492-11 4.30990+ 4 0.00000+ 0 1.93865- 91261 145401705 + 4.30990+ 4 1.00000+ 0 1.93865- 9 4.31000+ 4 0.00000+ 0 1.97863- 71261 145401706 + 4.31010+ 4 0.00000+ 0 5.32630- 6 4.31020+ 4 0.00000+ 0 3.76738- 51261 145401707 + 4.31020+ 4 1.00000+ 0 4.35397- 5 4.31030+ 4 0.00000+ 0 5.42773- 41261 145401708 + 4.31040+ 4 0.00000+ 0 1.73154- 3 4.31050+ 4 0.00000+ 0 1.25895- 31261 145401709 + 4.31060+ 4 0.00000+ 0 2.97951- 3 4.31070+ 4 0.00000+ 0 4.98730- 31261 145401710 + 4.31080+ 4 0.00000+ 0 6.25231- 3 4.31090+ 4 0.00000+ 0 6.36266- 31261 145401711 + 4.31100+ 4 0.00000+ 0 3.44138- 3 4.31110+ 4 0.00000+ 0 1.54773- 31261 145401712 + 4.31120+ 4 0.00000+ 0 3.83703- 4 4.31130+ 4 0.00000+ 0 6.81720- 51261 145401713 + 4.31140+ 4 0.00000+ 0 1.25513- 5 4.31150+ 4 0.00000+ 0 1.02299- 61261 145401714 + 4.31160+ 4 0.00000+ 0 6.51547- 8 4.31170+ 4 0.00000+ 0 8.44023- 91261 145401715 + 4.40950+ 4 0.00000+ 0 0.00000+ 0 4.40970+ 4 0.00000+ 0 0.00000+ 01261 145401716 + 4.40980+ 4 0.00000+ 0 0.00000+ 0 4.40990+ 4 0.00000+ 0 7.79458-141261 145401717 + 4.41000+ 4 0.00000+ 0 1.55892-11 4.41010+ 4 0.00000+ 0 1.67883- 91261 145401718 + 4.41020+ 4 0.00000+ 0 1.10923- 7 4.41030+ 4 0.00000+ 0 2.49826- 61261 145401719 + 4.41040+ 4 0.00000+ 0 2.65216- 5 4.41050+ 4 0.00000+ 0 1.46398- 51261 145401720 + 4.41060+ 4 0.00000+ 0 1.19847- 4 4.41070+ 4 0.00000+ 0 5.18480- 41261 145401721 + 4.41080+ 4 0.00000+ 0 1.75785- 3 4.41090+ 4 0.00000+ 0 4.88142- 31261 145401722 + 4.41100+ 4 0.00000+ 0 6.89221- 3 4.41110+ 4 0.00000+ 0 8.05144- 31261 145401723 + 4.41120+ 4 0.00000+ 0 5.67553- 3 4.41130+ 4 0.00000+ 0 3.73546- 31261 145401724 + 4.41140+ 4 0.00000+ 0 1.46555- 3 4.41150+ 4 0.00000+ 0 3.98329- 41261 145401725 + 4.41160+ 4 0.00000+ 0 6.69135- 5 4.41170+ 4 0.00000+ 0 3.50383- 51261 145401726 + 4.41180+ 4 0.00000+ 0 9.42345- 7 4.41200+ 4 0.00000+ 0 2.00860- 91261 145401727 + 4.41220+ 4 0.00000+ 0 4.24705-13 4.41240+ 4 0.00000+ 0 0.00000+ 01261 145401728 + 4.50990+ 4 0.00000+ 0 0.00000+ 0 4.50990+ 4 1.00000+ 0 0.00000+ 01261 145401729 + 4.51010+ 4 0.00000+ 0 0.00000+ 0 4.51010+ 4 1.00000+ 0 0.00000+ 01261 145401730 + 4.51020+ 4 0.00000+ 0 1.50895-12 4.51020+ 4 1.00000+ 0 1.50895-121261 145401731 + 4.51030+ 4 0.00000+ 0 9.21360- 7 4.51030+ 4 1.00000+ 0 1.96863-101261 145401732 + 4.51040+ 4 0.00000+ 0 4.76669- 9 4.51040+ 4 1.00000+ 0 5.03650- 91261 145401733 + 4.51050+ 4 0.00000+ 0 1.32408- 5 4.51050+ 4 1.00000+ 0 3.53754- 91261 145401734 + 4.51060+ 4 0.00000+ 0 8.29424- 8 4.51060+ 4 1.00000+ 0 6.77529- 81261 145401735 + 4.51070+ 4 0.00000+ 0 1.55892- 6 4.51080+ 4 0.00000+ 0 7.92449- 61261 145401736 + 4.51080+ 4 1.00000+ 0 7.92449- 6 4.51090+ 4 0.00000+ 0 6.75131- 51261 145401737 + 4.51090+ 4 1.00000+ 0 6.75131- 5 4.51100+ 4 0.00000+ 0 2.71142- 41261 145401738 + 4.51100+ 4 1.00000+ 0 2.71112- 4 4.51110+ 4 0.00000+ 0 1.72189- 31261 145401739 + 4.51120+ 4 0.00000+ 0 3.41765- 3 4.51130+ 4 0.00000+ 0 5.64171- 31261 145401740 + 4.51140+ 4 0.00000+ 0 5.45804- 3 4.51150+ 4 0.00000+ 0 3.81539- 31261 145401741 + 4.51160+ 4 0.00000+ 0 1.80628- 3 4.51170+ 4 0.00000+ 0 4.23326- 31261 145401742 + 4.51180+ 4 0.00000+ 0 1.96553- 4 4.51190+ 4 0.00000+ 0 3.79236- 51261 145401743 + 4.51200+ 4 0.00000+ 0 3.88730- 6 4.51210+ 4 0.00000+ 0 2.35836- 71261 145401744 + 4.51220+ 4 0.00000+ 0 9.36349- 9 4.51230+ 4 0.00000+ 0 3.63747-101261 145401745 + 4.51240+ 4 0.00000+ 0 8.05440-12 4.60990+ 4 0.00000+ 0 0.00000+ 01261 145401746 + 4.61010+ 4 0.00000+ 0 0.00000+ 0 4.61020+ 4 0.00000+ 0 0.00000+ 01261 145401747 + 4.61030+ 4 0.00000+ 0 0.00000+ 0 4.61040+ 4 0.00000+ 0 3.64747-131261 145401748 + 4.61050+ 4 0.00000+ 0 1.63886-13 4.61060+ 4 0.00000+ 0 1.37904-101261 145401749 + 4.61070+ 4 0.00000+ 0 2.37835-10 4.61070+ 4 1.00000+ 0 2.17849-101261 145401750 + 4.61080+ 4 0.00000+ 0 1.53893- 8 4.61090+ 4 0.00000+ 0 2.18848- 71261 145401751 + 4.61090+ 4 1.00000+ 0 2.18848- 7 4.61100+ 4 0.00000+ 0 5.53615- 61261 145401752 + 4.61110+ 4 0.00000+ 0 2.68314- 5 4.61110+ 4 1.00000+ 0 2.62418- 51261 145401753 + 4.61120+ 4 0.00000+ 0 3.05388- 4 4.61130+ 4 0.00000+ 0 1.46558- 31261 145401754 + 4.61140+ 4 0.00000+ 0 3.53108- 3 4.61150+ 4 0.00000+ 0 5.99357- 31261 145401755 + 4.61160+ 4 0.00000+ 0 7.23772- 3 4.61170+ 4 0.00000+ 0 5.89045- 31261 145401756 + 4.61180+ 4 0.00000+ 0 4.95963- 3 4.61190+ 4 0.00000+ 0 2.50715- 31261 145401757 + 4.61200+ 4 0.00000+ 0 7.84475- 4 4.61210+ 4 0.00000+ 0 1.50146- 41261 145401758 + 4.61220+ 4 0.00000+ 0 1.98262- 5 4.61230+ 4 0.00000+ 0 2.23844- 61261 145401759 + 4.61240+ 4 0.00000+ 0 1.59889- 7 4.61260+ 4 0.00000+ 0 1.87869-101261 145401760 + 4.61280+ 4 0.00000+ 0 1.43900-12 4.61300+ 4 0.00000+ 0 0.00000+ 01261 145401761 + 4.71030+ 4 0.00000+ 0 0.00000+ 0 4.71030+ 4 1.00000+ 0 0.00000+ 01261 145401762 + 4.71050+ 4 0.00000+ 0 0.00000+ 0 4.71050+ 4 1.00000+ 0 0.00000+ 01261 145401763 + 4.71060+ 4 0.00000+ 0 0.00000+ 0 4.71060+ 4 1.00000+ 0 0.00000+ 01261 145401764 + 4.71070+ 4 0.00000+ 0 0.00000+ 0 4.71070+ 4 1.00000+ 0 0.00000+ 01261 145401765 + 4.71080+ 4 0.00000+ 0 1.59889-13 4.71080+ 4 1.00000+ 0 1.59889-131261 145401766 + 4.71090+ 4 0.00000+ 0 1.59889-11 4.71090+ 4 1.00000+ 0 1.59889-111261 145401767 + 4.71100+ 4 0.00000+ 0 6.27564-10 4.71100+ 4 1.00000+ 0 6.85524-101261 145401768 + 4.71110+ 4 0.00000+ 0 2.16849- 8 4.71110+ 4 1.00000+ 0 2.16849- 81261 145401769 + 4.71120+ 4 0.00000+ 0 5.33010- 4 4.71130+ 4 0.00000+ 0 6.08577- 61261 145401770 + 4.71130+ 4 1.00000+ 0 6.02581- 6 4.71140+ 4 0.00000+ 0 8.03142- 51261 145401771 + 4.71150+ 4 0.00000+ 0 1.80784- 4 4.71150+ 4 1.00000+ 0 1.80604- 41261 145401772 + 4.71160+ 4 0.00000+ 0 5.85553- 4 4.71160+ 4 1.00000+ 0 5.85553- 41261 145401773 + 4.71170+ 4 0.00000+ 0 1.73370- 4 4.71170+ 4 1.00000+ 0 1.73370- 41261 145401774 + 4.71180+ 4 0.00000+ 0 2.33496- 3 4.71180+ 4 1.00000+ 0 2.33496- 31261 145401775 + 4.71190+ 4 0.00000+ 0 5.62269- 3 4.71200+ 4 0.00000+ 0 4.77918- 31261 145401776 + 4.71210+ 4 0.00000+ 0 2.60268- 3 4.71220+ 4 0.00000+ 0 1.05389- 31261 145401777 + 4.71230+ 4 0.00000+ 0 3.27622- 4 4.71240+ 4 0.00000+ 0 7.21898- 51261 145401778 + 4.71250+ 4 0.00000+ 0 8.24427- 6 4.71260+ 4 0.00000+ 0 8.54406- 71261 145401779 + 4.71280+ 4 0.00000+ 0 2.79806- 8 4.71290+ 4 0.00000+ 0 2.38963-101261 145401780 + 4.71300+ 4 0.00000+ 0 2.20847-11 4.81050+ 4 0.00000+ 0 0.00000+ 01261 145401781 + 4.81060+ 4 0.00000+ 0 0.00000+ 0 4.81070+ 4 0.00000+ 0 0.00000+ 01261 145401782 + 4.81080+ 4 0.00000+ 0 0.00000+ 0 4.81090+ 4 0.00000+ 0 0.00000+ 01261 145401783 + 4.81100+ 4 0.00000+ 0 3.21776-14 4.81110+ 4 0.00000+ 0 5.51617-121261 145401784 + 4.81110+ 4 1.00000+ 0 1.86870-12 4.81120+ 4 0.00000+ 0 3.01790- 71261 145401785 + 4.81130+ 4 0.00000+ 0 5.35628- 9 4.81130+ 4 1.00000+ 0 5.35628- 91261 145401786 + 4.81140+ 4 0.00000+ 0 2.10853- 7 4.81150+ 4 0.00000+ 0 1.65885- 61261 145401787 + 4.81150+ 4 1.00000+ 0 1.37904- 6 4.81160+ 4 0.00000+ 0 2.67414- 51261 145401788 + 4.81170+ 4 0.00000+ 0 1.28910- 6 4.81170+ 4 1.00000+ 0 1.28910- 61261 145401789 + 4.81180+ 4 0.00000+ 0 7.42614- 4 4.81190+ 4 0.00000+ 0 1.09977- 31261 145401790 + 4.81190+ 4 1.00000+ 0 1.09977- 3 4.81200+ 4 0.00000+ 0 4.92008- 31261 145401791 + 4.81210+ 4 0.00000+ 0 6.71090- 3 4.81220+ 4 0.00000+ 0 7.72458- 31261 145401792 + 4.81230+ 4 0.00000+ 0 5.99114- 3 4.81240+ 4 0.00000+ 0 3.71673- 31261 145401793 + 4.81250+ 4 0.00000+ 0 1.31898- 3 4.81260+ 4 0.00000+ 0 3.92207- 41261 145401794 + 4.81270+ 4 0.00000+ 0 4.09316- 5 4.81280+ 4 0.00000+ 0 5.25335- 51261 145401795 + 4.81290+ 4 0.00000+ 0 2.22611- 6 4.81300+ 4 0.00000+ 0 4.37696- 71261 145401796 + 4.81310+ 4 0.00000+ 0 1.31908- 8 4.81320+ 4 0.00000+ 0 2.08855-101261 145401797 + 4.81360+ 4 0.00000+ 0 0.00000+ 0 4.91070+ 4 0.00000+ 0 0.00000+ 01261 145401798 + 4.91090+ 4 0.00000+ 0 0.00000+ 0 4.91090+ 4 1.00000+ 0 0.00000+ 01261 145401799 + 4.91110+ 4 0.00000+ 0 0.00000+ 0 4.91110+ 4 1.00000+ 0 0.00000+ 01261 145401800 + 4.91120+ 4 0.00000+ 0 0.00000+ 0 4.91120+ 4 1.00000+ 0 0.00000+ 01261 145401801 + 4.91130+ 4 0.00000+ 0 1.05926-13 4.91130+ 4 1.00000+ 0 1.00930-131261 145401802 + 4.91140+ 4 0.00000+ 0 6.15572-12 4.91140+ 4 1.00000+ 0 5.96585-121261 145401803 + 4.91150+ 4 0.00000+ 0 2.45829-10 4.91150+ 4 1.00000+ 0 2.45829-101261 145401804 + 4.91160+ 4 0.00000+ 0 7.75461- 9 4.91160+ 4 1.00000+ 0 7.75461- 91261 145401805 + 4.91170+ 4 0.00000+ 0 2.27842-10 4.91170+ 4 1.00000+ 0 2.27842-101261 145401806 + 4.91180+ 4 0.00000+ 0 1.77876- 6 4.91180+ 4 1.00000+ 0 1.77876- 61261 145401807 + 4.91190+ 4 0.00000+ 0 1.43500- 5 4.91190+ 4 1.00000+ 0 1.43500- 51261 145401808 + 4.91200+ 4 0.00000+ 0 9.45243- 5 4.91200+ 4 1.00000+ 0 9.45243- 51261 145401809 + 4.91210+ 4 0.00000+ 0 3.76398- 4 4.91210+ 4 1.00000+ 0 3.79057- 41261 145401810 + 4.91220+ 4 0.00000+ 0 1.14474- 3 4.91220+ 4 1.00000+ 0 1.14439- 31261 145401811 + 4.91230+ 4 0.00000+ 0 2.10069- 3 4.91230+ 4 1.00000+ 0 2.10065- 31261 145401812 + 4.91240+ 4 0.00000+ 0 6.65550- 3 4.91250+ 4 0.00000+ 0 3.26147- 31261 145401813 + 4.91250+ 4 1.00000+ 0 3.26152- 3 4.91260+ 4 0.00000+ 0 5.03788- 31261 145401814 + 4.91270+ 4 0.00000+ 0 1.05698- 3 4.91270+ 4 1.00000+ 0 1.05711- 31261 145401815 + 4.91280+ 4 0.00000+ 0 2.49198- 3 4.91290+ 4 0.00000+ 0 5.83726- 41261 145401816 + 4.91300+ 4 0.00000+ 0 1.98262- 4 4.91310+ 4 0.00000+ 0 2.13152- 51261 145401817 + 4.91320+ 4 0.00000+ 0 1.21915- 6 4.91330+ 4 0.00000+ 0 4.70673- 81261 145401818 + 4.91340+ 4 0.00000+ 0 5.89590-10 4.91360+ 4 0.00000+ 0 3.77738-141261 145401819 + 5.01110+ 4 0.00000+ 0 0.00000+ 0 5.01120+ 4 0.00000+ 0 0.00000+ 01261 145401820 + 5.01130+ 4 0.00000+ 0 0.00000+ 0 5.01130+ 4 1.00000+ 0 0.00000+ 01261 145401821 + 5.01140+ 4 0.00000+ 0 0.00000+ 0 5.01150+ 4 0.00000+ 0 0.00000+ 01261 145401822 + 5.01160+ 4 0.00000+ 0 8.68397-13 5.01170+ 4 0.00000+ 0 0.00000+ 01261 145401823 + 5.01170+ 4 1.00000+ 0 0.00000+ 0 5.01180+ 4 0.00000+ 0 1.76877- 91261 145401824 + 5.01190+ 4 0.00000+ 0 2.06856- 8 5.01190+ 4 1.00000+ 0 2.06856- 81261 145401825 + 5.01200+ 4 0.00000+ 0 8.74392- 7 5.01210+ 4 0.00000+ 0 5.44622- 61261 145401826 + 5.01210+ 4 1.00000+ 0 5.43622- 6 5.01220+ 4 0.00000+ 0 1.02419- 41261 145401827 + 5.01230+ 4 0.00000+ 0 2.43311- 4 5.01230+ 4 1.00000+ 0 2.43081- 41261 145401828 + 5.01240+ 4 0.00000+ 0 2.04299- 3 5.01250+ 4 0.00000+ 0 2.76152- 31261 145401829 + 5.01250+ 4 1.00000+ 0 2.76167- 3 5.01260+ 4 0.00000+ 0 1.03234- 21261 145401830 + 5.01270+ 4 0.00000+ 0 7.56103- 3 5.01270+ 4 1.00000+ 0 7.56110- 31261 145401831 + 5.01280+ 4 0.00000+ 0 1.65107- 2 5.01290+ 4 0.00000+ 0 5.47228- 31261 145401832 + 5.01290+ 4 1.00000+ 0 5.46564- 3 5.01300+ 4 0.00000+ 0 1.02074- 21261 145401833 + 5.01310+ 4 0.00000+ 0 3.61678- 3 5.01320+ 4 0.00000+ 0 7.08228- 41261 145401834 + 5.01330+ 4 0.00000+ 0 9.66928- 5 5.01340+ 4 0.00000+ 0 5.08647- 61261 145401835 + 5.01350+ 4 0.00000+ 0 6.42553- 8 5.01360+ 4 0.00000+ 0 4.25704- 91261 145401836 + 5.01370+ 4 0.00000+ 0 4.21707-11 5.01380+ 4 0.00000+ 0 8.94378-131261 145401837 + 5.11130+ 4 0.00000+ 0 0.00000+ 0 5.11150+ 4 0.00000+ 0 0.00000+ 01261 145401838 + 5.11170+ 4 0.00000+ 0 0.00000+ 0 5.11180+ 4 0.00000+ 0 0.00000+ 01261 145401839 + 5.11180+ 4 1.00000+ 0 0.00000+ 0 5.11190+ 4 0.00000+ 0 1.26912-121261 145401840 + 5.11200+ 4 0.00000+ 0 4.38695-11 5.11200+ 4 1.00000+ 0 4.38695-111261 145401841 + 5.11210+ 4 0.00000+ 0 4.19708- 8 5.11220+ 4 0.00000+ 0 5.77599- 81261 145401842 + 5.11220+ 4 1.00000+ 0 6.11575- 8 5.11230+ 4 0.00000+ 0 1.63886- 61261 145401843 + 5.11240+ 4 0.00000+ 0 1.05327- 5 5.11240+ 4 1.00000+ 0 1.04727- 51261 145401844 + 5.11250+ 4 0.00000+ 0 1.70432- 4 5.11260+ 4 0.00000+ 0 4.45141- 41261 145401845 + 5.11260+ 4 1.00000+ 0 4.17630- 4 5.11270+ 4 0.00000+ 0 4.34326- 31261 145401846 + 5.11280+ 4 0.00000+ 0 2.21159- 3 5.11280+ 4 1.00000+ 0 2.20976- 31261 145401847 + 5.11290+ 4 0.00000+ 0 7.82881- 3 5.11300+ 4 0.00000+ 0 9.13939- 31261 145401848 + 5.11300+ 4 1.00000+ 0 9.13940- 3 5.11310+ 4 0.00000+ 0 1.88611- 21261 145401849 + 5.11320+ 4 0.00000+ 0 5.65480- 3 5.11320+ 4 1.00000+ 0 5.65455- 31261 145401850 + 5.11330+ 4 0.00000+ 0 4.99597- 3 5.11340+ 4 0.00000+ 0 5.14712- 41261 145401851 + 5.11340+ 4 1.00000+ 0 5.15152- 4 5.11350+ 4 0.00000+ 0 6.29862- 51261 145401852 + 5.11360+ 4 0.00000+ 0 1.05127- 5 5.11370+ 4 0.00000+ 0 3.78737- 71261 145401853 + 5.11380+ 4 0.00000+ 0 2.52824- 8 5.11390+ 4 0.00000+ 0 4.20708- 91261 145401854 + 5.11410+ 4 0.00000+ 0 3.05927-14 5.21150+ 4 0.00000+ 0 0.00000+ 01261 145401855 + 5.21170+ 4 0.00000+ 0 0.00000+ 0 5.21180+ 4 0.00000+ 0 0.00000+ 01261 145401856 + 5.21190+ 4 0.00000+ 0 0.00000+ 0 5.21190+ 4 1.00000+ 0 0.00000+ 01261 145401857 + 5.21200+ 4 0.00000+ 0 0.00000+ 0 5.21210+ 4 0.00000+ 0 7.02512-141261 145401858 + 5.21210+ 4 1.00000+ 0 7.37488-14 5.21220+ 4 0.00000+ 0 1.43900-111261 145401859 + 5.21230+ 4 0.00000+ 0 2.68813-10 5.21230+ 4 1.00000+ 0 2.82803-101261 145401860 + 5.21240+ 4 0.00000+ 0 2.29840- 8 5.21250+ 4 0.00000+ 0 3.10784- 71261 145401861 + 5.21250+ 4 1.00000+ 0 3.10784- 7 5.21260+ 4 0.00000+ 0 8.77390- 61261 145401862 + 5.21270+ 4 0.00000+ 0 9.34551- 5 5.21270+ 4 1.00000+ 0 9.34451- 51261 145401863 + 5.21280+ 4 0.00000+ 0 1.77147- 4 5.21290+ 4 0.00000+ 0 7.84452- 31261 145401864 + 5.21290+ 4 1.00000+ 0 1.89274- 3 5.21300+ 4 0.00000+ 0 5.63741- 31261 145401865 + 5.21310+ 4 0.00000+ 0 8.19647- 3 5.21310+ 4 1.00000+ 0 8.38441- 31261 145401866 + 5.21320+ 4 0.00000+ 0 2.82436- 2 5.21330+ 4 0.00000+ 0 1.55195- 21261 145401867 + 5.21330+ 4 1.00000+ 0 1.78715- 2 5.21340+ 4 0.00000+ 0 2.53190- 21261 145401868 + 5.21350+ 4 0.00000+ 0 8.79296- 3 5.21360+ 4 0.00000+ 0 2.67929- 31261 145401869 + 5.21370+ 4 0.00000+ 0 3.35127- 4 5.21380+ 4 0.00000+ 0 6.82326- 51261 145401870 + 5.21390+ 4 0.00000+ 0 3.85432- 5 5.21400+ 4 0.00000+ 0 2.64816- 71261 145401871 + 5.21410+ 4 0.00000+ 0 4.88216- 9 5.21420+ 4 0.00000+ 0 1.81874-101261 145401872 + 5.21430+ 4 0.00000+ 0 7.53743-13 5.21440+ 4 0.00000+ 0 4.37079-151261 145401873 + 5.31210+ 4 0.00000+ 0 0.00000+ 0 5.31230+ 4 0.00000+ 0 0.00000+ 01261 145401874 + 5.31250+ 4 0.00000+ 0 4.87661-11 5.31260+ 4 0.00000+ 0 2.03858- 91261 145401875 + 5.31270+ 4 0.00000+ 0 2.16849- 7 5.31280+ 4 0.00000+ 0 1.66884- 71261 145401876 + 5.31290+ 4 0.00000+ 0 5.06918- 4 5.31300+ 4 0.00000+ 0 2.87800- 51261 145401877 + 5.31300+ 4 1.00000+ 0 2.87600- 5 5.31310+ 4 0.00000+ 0 1.28538- 31261 145401878 + 5.31320+ 4 0.00000+ 0 5.95380- 3 5.31330+ 4 0.00000+ 0 9.35365- 31261 145401879 + 5.31330+ 4 1.00000+ 0 5.15096- 3 5.31340+ 4 0.00000+ 0 2.11985- 21261 145401880 + 5.31340+ 4 1.00000+ 0 1.16234- 2 5.31350+ 4 0.00000+ 0 2.66907- 21261 145401881 + 5.31360+ 4 0.00000+ 0 1.00743- 2 5.31360+ 4 1.00000+ 0 1.00743- 21261 145401882 + 5.31370+ 4 0.00000+ 0 7.87358- 3 5.31380+ 4 0.00000+ 0 4.56237- 31261 145401883 + 5.31390+ 4 0.00000+ 0 8.28332- 3 5.31400+ 4 0.00000+ 0 2.11173- 41261 145401884 + 5.31410+ 4 0.00000+ 0 2.04009- 5 5.31420+ 4 0.00000+ 0 1.19917- 61261 145401885 + 5.31430+ 4 0.00000+ 0 2.78169- 8 5.31440+ 4 0.00000+ 0 6.26093-101261 145401886 + 5.41250+ 4 0.00000+ 0 0.00000+ 0 5.41250+ 4 1.00000+ 0 0.00000+ 01261 145401887 + 5.41260+ 4 0.00000+ 0 5.42623-14 5.41270+ 4 0.00000+ 0 1.17918-111261 145401888 + 5.41270+ 4 1.00000+ 0 1.23914-11 5.41280+ 4 0.00000+ 0 1.94865-111261 145401889 + 5.41290+ 4 0.00000+ 0 7.81457- 7 5.41290+ 4 1.00000+ 0 1.27911- 91261 145401890 + 5.41300+ 4 0.00000+ 0 6.31561- 8 5.41310+ 4 0.00000+ 0 8.69396- 71261 145401891 + 5.41310+ 4 1.00000+ 0 8.63400- 7 5.41320+ 4 0.00000+ 0 4.34498- 51261 145401892 + 5.41330+ 4 0.00000+ 0 3.98753- 4 5.41330+ 4 1.00000+ 0 1.38376- 31261 145401893 + 5.41340+ 4 0.00000+ 0 1.80024- 3 5.41340+ 4 1.00000+ 0 1.79975- 31261 145401894 + 5.41350+ 4 0.00000+ 0 7.29456- 3 5.41350+ 4 1.00000+ 0 1.04059- 21261 145401895 + 5.41360+ 4 0.00000+ 0 2.50622- 2 5.41370+ 4 0.00000+ 0 3.10451- 21261 145401896 + 5.41380+ 4 0.00000+ 0 2.63675- 2 5.41390+ 4 0.00000+ 0 1.62179- 21261 145401897 + 5.41400+ 4 0.00000+ 0 9.04393- 3 5.41410+ 4 0.00000+ 0 2.56475- 31261 145401898 + 5.41420+ 4 0.00000+ 0 7.84475- 4 5.41430+ 4 0.00000+ 0 8.13856- 51261 145401899 + 5.41440+ 4 0.00000+ 0 6.94455- 6 5.41450+ 4 0.00000+ 0 3.87731- 71261 145401900 + 5.41460+ 4 0.00000+ 0 1.04927- 8 5.41470+ 4 0.00000+ 0 1.67667-111261 145401901 + 5.41480+ 4 0.00000+ 0 8.10437-13 5.41500+ 4 0.00000+ 0 0.00000+ 01261 145401902 + 5.51270+ 4 0.00000+ 0 0.00000+ 0 5.51290+ 4 0.00000+ 0 2.09854-141261 145401903 + 5.51310+ 4 0.00000+ 0 1.65885-10 5.51320+ 4 0.00000+ 0 1.40902- 81261 145401904 + 5.51330+ 4 0.00000+ 0 5.13643- 7 5.51340+ 4 0.00000+ 0 8.36419- 61261 145401905 + 5.51340+ 4 1.00000+ 0 8.36419- 6 5.51350+ 4 0.00000+ 0 3.76169- 41261 145401906 + 5.51350+ 4 1.00000+ 0 1.26212- 4 5.51360+ 4 0.00000+ 0 2.20792- 31261 145401907 + 5.51370+ 4 0.00000+ 0 9.79005- 3 5.51380+ 4 0.00000+ 0 1.40861- 21261 145401908 + 5.51380+ 4 1.00000+ 0 5.21060- 3 5.51390+ 4 0.00000+ 0 2.02196- 21261 145401909 + 5.51400+ 4 0.00000+ 0 2.39759- 2 5.51410+ 4 0.00000+ 0 1.99907- 21261 145401910 + 5.51420+ 4 0.00000+ 0 1.19290- 2 5.51430+ 4 0.00000+ 0 3.97373- 31261 145401911 + 5.51440+ 4 0.00000+ 0 9.88963- 4 5.51450+ 4 0.00000+ 0 1.75638- 41261 145401912 + 5.51460+ 4 0.00000+ 0 1.53593- 5 5.51470+ 4 0.00000+ 0 2.69346- 71261 145401913 + 5.51480+ 4 0.00000+ 0 1.57890- 8 5.51500+ 4 0.00000+ 0 1.48897-121261 145401914 + 5.61290+ 4 0.00000+ 0 0.00000+ 0 5.61290+ 4 1.00000+ 0 0.00000+ 01261 145401915 + 5.61310+ 4 0.00000+ 0 0.00000+ 0 5.61310+ 4 1.00000+ 0 0.00000+ 01261 145401916 + 5.61320+ 4 0.00000+ 0 4.15711-13 5.61330+ 4 0.00000+ 0 5.41624-111261 145401917 + 5.61340+ 4 0.00000+ 0 8.09438- 9 5.61350+ 4 0.00000+ 0 3.26773- 71261 145401918 + 5.61350+ 4 1.00000+ 0 2.36835- 7 5.61360+ 4 0.00000+ 0 8.96377- 61261 145401919 + 5.61370+ 4 0.00000+ 0 4.85563- 5 5.61370+ 4 1.00000+ 0 4.85563- 51261 145401920 + 5.61380+ 4 0.00000+ 0 5.84014- 4 5.61390+ 4 0.00000+ 0 3.47147- 31261 145401921 + 5.61400+ 4 0.00000+ 0 1.07338- 2 5.61410+ 4 0.00000+ 0 2.22452- 21261 145401922 + 5.61420+ 4 0.00000+ 0 3.23681- 2 5.61430+ 4 0.00000+ 0 2.70079- 21261 145401923 + 5.61440+ 4 0.00000+ 0 1.76070- 2 5.61450+ 4 0.00000+ 0 9.04322- 31261 145401924 + 5.61460+ 4 0.00000+ 0 2.38941- 3 5.61470+ 4 0.00000+ 0 3.49727- 41261 145401925 + 5.61480+ 4 0.00000+ 0 2.95994- 5 5.61490+ 4 0.00000+ 0 1.16919- 61261 145401926 + 5.61500+ 4 0.00000+ 0 3.54753- 8 5.61520+ 4 0.00000+ 0 1.05926-111261 145401927 + 5.61540+ 4 0.00000+ 0 0.00000+ 0 5.71330+ 4 0.00000+ 0 0.00000+ 01261 145401928 + 5.71350+ 4 0.00000+ 0 2.06856-11 5.71370+ 4 0.00000+ 0 4.33699- 81261 145401929 + 5.71380+ 4 0.00000+ 0 7.80458- 7 5.71390+ 4 0.00000+ 0 1.81174- 51261 145401930 + 5.71400+ 4 0.00000+ 0 3.24684- 4 5.71410+ 4 0.00000+ 0 8.68976- 41261 145401931 + 5.71420+ 4 0.00000+ 0 3.63256- 3 5.71430+ 4 0.00000+ 0 7.57142- 31261 145401932 + 5.71440+ 4 0.00000+ 0 1.23403- 2 5.71450+ 4 0.00000+ 0 1.61947- 21261 145401933 + 5.71460+ 4 0.00000+ 0 1.15143- 2 5.71470+ 4 0.00000+ 0 4.87702- 31261 145401934 + 5.71480+ 4 0.00000+ 0 1.40398- 3 5.71490+ 4 0.00000+ 0 1.93516- 41261 145401935 + 5.71500+ 4 0.00000+ 0 1.92166- 5 5.71510+ 4 0.00000+ 0 1.56891- 61261 145401936 + 5.71520+ 4 0.00000+ 0 6.16572- 8 5.71530+ 4 0.00000+ 0 1.55892- 91261 145401937 + 5.71540+ 4 0.00000+ 0 1.15919-11 5.81350+ 4 0.00000+ 0 0.00000+ 01261 145401938 + 5.81370+ 4 0.00000+ 0 1.12922-12 5.81370+ 4 1.00000+ 0 1.09924-121261 145401939 + 5.81380+ 4 0.00000+ 0 1.32908-10 5.81390+ 4 0.00000+ 0 4.40694- 91261 145401940 + 5.81390+ 4 1.00000+ 0 4.20708- 9 5.81400+ 4 0.00000+ 0 4.82665- 61261 145401941 + 5.81410+ 4 0.00000+ 0 4.08716- 6 5.81420+ 4 0.00000+ 0 5.42223- 51261 145401942 + 5.81430+ 4 0.00000+ 0 3.05488- 4 5.81440+ 4 0.00000+ 0 1.33988- 31261 145401943 + 5.81450+ 4 0.00000+ 0 5.04239- 3 5.81460+ 4 0.00000+ 0 9.51191- 31261 145401944 + 5.81470+ 4 0.00000+ 0 1.11562- 2 5.81480+ 4 0.00000+ 0 9.30231- 31261 145401945 + 5.81490+ 4 0.00000+ 0 3.93763- 3 5.81500+ 4 0.00000+ 0 1.16955- 31261 145401946 + 5.81510+ 4 0.00000+ 0 2.74799- 4 5.81520+ 4 0.00000+ 0 3.58751- 51261 145401947 + 5.81530+ 4 0.00000+ 0 3.29771- 6 5.81540+ 4 0.00000+ 0 9.65329- 81261 145401948 + 5.81550+ 4 0.00000+ 0 5.04649- 9 5.81560+ 4 0.00000+ 0 1.82873-101261 145401949 + 5.81570+ 4 0.00000+ 0 2.11853-12 5.81580+ 4 0.00000+ 0 0.00000+ 01261 145401950 + 5.81600+ 4 0.00000+ 0 0.00000+ 0 5.91390+ 4 0.00000+ 0 9.89313-141261 145401951 + 5.91400+ 4 0.00000+ 0 9.14365-12 5.91410+ 4 0.00000+ 0 4.19708-101261 145401952 + 5.91420+ 4 0.00000+ 0 9.98306- 9 5.91420+ 4 1.00000+ 0 9.97307- 91261 145401953 + 5.91430+ 4 0.00000+ 0 3.73740- 7 5.91440+ 4 0.00000+ 0 3.23775- 61261 145401954 + 5.91440+ 4 1.00000+ 0 2.41832- 6 5.91450+ 4 0.00000+ 0 5.09646- 51261 145401955 + 5.91460+ 4 0.00000+ 0 2.85661- 4 5.91470+ 4 0.00000+ 0 9.73164- 41261 145401956 + 5.91480+ 4 0.00000+ 0 2.48541- 3 5.91490+ 4 0.00000+ 0 3.03644- 31261 145401957 + 5.91500+ 4 0.00000+ 0 2.41634- 3 5.91510+ 4 0.00000+ 0 1.46923- 31261 145401958 + 5.91520+ 4 0.00000+ 0 5.72802- 4 5.91530+ 4 0.00000+ 0 1.75438- 41261 145401959 + 5.91540+ 4 0.00000+ 0 1.89868- 5 5.91550+ 4 0.00000+ 0 2.81804- 61261 145401960 + 5.91560+ 4 0.00000+ 0 2.93796- 7 5.91570+ 4 0.00000+ 0 1.19917- 81261 145401961 + 5.91580+ 4 0.00000+ 0 1.85871-10 5.91590+ 4 0.00000+ 0 2.05857-121261 145401962 + 5.91600+ 4 0.00000+ 0 3.08785-14 6.01400+ 4 0.00000+ 0 0.00000+ 01261 145401963 + 6.01410+ 4 0.00000+ 0 0.00000+ 0 6.01410+ 4 1.00000+ 0 0.00000+ 01261 145401964 + 6.01420+ 4 0.00000+ 0 7.01513-13 6.01430+ 4 0.00000+ 0 6.12574-101261 145401965 + 6.01440+ 4 0.00000+ 0 1.23914- 6 6.01450+ 4 0.00000+ 0 5.59611- 81261 145401966 + 6.01460+ 4 0.00000+ 0 1.00930- 6 6.01470+ 4 0.00000+ 0 1.07925- 51261 145401967 + 6.01480+ 4 0.00000+ 0 9.98206- 5 6.01490+ 4 0.00000+ 0 3.92078- 41261 145401968 + 6.01500+ 4 0.00000+ 0 8.77930- 4 6.01510+ 4 0.00000+ 0 1.33133- 31261 145401969 + 6.01520+ 4 0.00000+ 0 1.41253- 3 6.01530+ 4 0.00000+ 0 1.17779- 31261 145401970 + 6.01540+ 4 0.00000+ 0 4.53965- 4 6.01550+ 4 0.00000+ 0 1.76527- 41261 145401971 + 6.01560+ 4 0.00000+ 0 4.98554- 5 6.01570+ 4 0.00000+ 0 6.75531- 61261 145401972 + 6.01580+ 4 0.00000+ 0 4.05718- 7 6.01590+ 4 0.00000+ 0 1.56891- 81261 145401973 + 6.01600+ 4 0.00000+ 0 6.91519-10 6.01610+ 4 0.00000+ 0 1.26912-111261 145401974 + 6.01620+ 4 0.00000+ 0 1.00930-12 6.01630+ 4 0.00000+ 0 0.00000+ 01261 145401975 + 6.01640+ 4 0.00000+ 0 0.00000+ 0 6.11410+ 4 0.00000+ 0 0.00000+ 01261 145401976 + 6.11430+ 4 0.00000+ 0 0.00000+ 0 6.11440+ 4 0.00000+ 0 1.31908-141261 145401977 + 6.11450+ 4 0.00000+ 0 1.29910-12 6.11460+ 4 0.00000+ 0 7.67467-111261 145401978 + 6.11470+ 4 0.00000+ 0 2.32838- 8 6.11480+ 4 0.00000+ 0 5.28633- 81261 145401979 + 6.11480+ 4 1.00000+ 0 5.28633- 8 6.11490+ 4 0.00000+ 0 1.48897- 61261 145401980 + 6.11500+ 4 0.00000+ 0 1.05727- 5 6.11510+ 4 0.00000+ 0 4.48688- 51261 145401981 + 6.11520+ 4 0.00000+ 0 7.11905- 5 6.11520+ 4 1.00000+ 0 7.12205- 51261 145401982 + 6.11530+ 4 0.00000+ 0 3.65136- 4 6.11540+ 4 0.00000+ 0 2.02229- 41261 145401983 + 6.11540+ 4 1.00000+ 0 2.03449- 4 6.11550+ 4 0.00000+ 0 3.76259- 41261 145401984 + 6.11560+ 4 0.00000+ 0 2.59710- 4 6.11570+ 4 0.00000+ 0 1.04967- 41261 145401985 + 6.11580+ 4 0.00000+ 0 2.22246- 5 6.11590+ 4 0.00000+ 0 2.82803- 61261 145401986 + 6.11600+ 4 0.00000+ 0 3.52755- 7 6.11610+ 4 0.00000+ 0 2.31839- 81261 145401987 + 6.11620+ 4 0.00000+ 0 3.29771- 9 6.11630+ 4 0.00000+ 0 9.76322-111261 145401988 + 6.11640+ 4 0.00000+ 0 2.03858-12 6.11650+ 4 0.00000+ 0 2.51825-141261 145401989 + 6.21430+ 4 0.00000+ 0 0.00000+ 0 6.21430+ 4 1.00000+ 0 0.00000+ 01261 145401990 + 6.21440+ 4 0.00000+ 0 0.00000+ 0 6.21450+ 4 0.00000+ 0 0.00000+ 01261 145401991 + 6.21460+ 4 0.00000+ 0 0.00000+ 0 6.21470+ 4 0.00000+ 0 2.82803- 61261 145401992 + 6.21480+ 4 0.00000+ 0 1.09924-11 6.21490+ 4 0.00000+ 0 5.80597-101261 145401993 + 6.21500+ 4 0.00000+ 0 1.38903- 8 6.21510+ 4 0.00000+ 0 1.78876- 71261 145401994 + 6.21520+ 4 0.00000+ 0 1.88869- 6 6.21530+ 4 0.00000+ 0 2.20847- 51261 145401995 + 6.21540+ 4 0.00000+ 0 6.12974- 5 6.21550+ 4 0.00000+ 0 1.39413- 41261 145401996 + 6.21560+ 4 0.00000+ 0 2.31779- 4 6.21570+ 4 0.00000+ 0 2.55722- 41261 145401997 + 6.21580+ 4 0.00000+ 0 1.67144- 4 6.21590+ 4 0.00000+ 0 6.24666- 51261 145401998 + 6.21600+ 4 0.00000+ 0 2.03159- 5 6.21610+ 4 0.00000+ 0 4.41693- 61261 145401999 + 6.21620+ 4 0.00000+ 0 1.08924- 6 6.21630+ 4 0.00000+ 0 1.02928- 71261 145402000 + 6.21640+ 4 0.00000+ 0 7.03511- 9 6.21650+ 4 0.00000+ 0 2.85801-101261 145402001 + 6.21660+ 4 0.00000+ 0 6.16572-12 6.21670+ 4 0.00000+ 0 1.13921-131261 145402002 + 6.21680+ 4 0.00000+ 0 0.00000+ 0 6.21700+ 4 0.00000+ 0 0.00000+ 01261 145402003 + 6.31470+ 4 0.00000+ 0 0.00000+ 0 6.31490+ 4 0.00000+ 0 0.00000+ 01261 145402004 + 6.31510+ 4 0.00000+ 0 1.65885-11 6.31520+ 4 0.00000+ 0 3.21776-101261 145402005 + 6.31520+ 4 1.00000+ 0 3.21776-10 6.31530+ 4 0.00000+ 0 1.70881- 81261 145402006 + 6.31540+ 4 0.00000+ 0 2.76808- 7 6.31550+ 4 0.00000+ 0 1.72880- 61261 145402007 + 6.31560+ 4 0.00000+ 0 7.52477- 6 6.31570+ 4 0.00000+ 0 2.47828- 51261 145402008 + 6.31580+ 4 0.00000+ 0 5.03350- 5 6.31590+ 4 0.00000+ 0 5.17141- 51261 145402009 + 6.31600+ 4 0.00000+ 0 4.00522- 5 6.31610+ 4 0.00000+ 0 2.55223- 51261 145402010 + 6.31620+ 4 0.00000+ 0 1.04427- 5 6.31630+ 4 0.00000+ 0 2.86801- 61261 145402011 + 6.31640+ 4 0.00000+ 0 5.92588- 7 6.31650+ 4 0.00000+ 0 7.56474- 81261 145402012 + 6.31660+ 4 0.00000+ 0 5.25635- 9 6.31670+ 4 0.00000+ 0 3.17779-101261 145402013 + 6.31680+ 4 0.00000+ 0 9.77321-12 6.31690+ 4 0.00000+ 0 2.47828-131261 145402014 + 6.31700+ 4 0.00000+ 0 0.00000+ 0 6.41470+ 4 0.00000+ 0 0.00000+ 01261 145402015 + 6.41490+ 4 0.00000+ 0 0.00000+ 0 6.41510+ 4 0.00000+ 0 0.00000+ 01261 145402016 + 6.41520+ 4 0.00000+ 0 1.90867-14 6.41530+ 4 0.00000+ 0 1.88869-121261 145402017 + 6.41540+ 4 0.00000+ 0 1.29910-10 6.41550+ 4 0.00000+ 0 2.34837- 91261 145402018 + 6.41560+ 4 0.00000+ 0 3.63747- 8 6.41570+ 4 0.00000+ 0 3.19778- 71261 145402019 + 6.41580+ 4 0.00000+ 0 2.33838- 6 6.41590+ 4 0.00000+ 0 7.26495- 61261 145402020 + 6.41600+ 4 0.00000+ 0 1.36805- 5 6.41610+ 4 0.00000+ 0 2.50026- 51261 145402021 + 6.41620+ 4 0.00000+ 0 1.62987- 5 6.41630+ 4 0.00000+ 0 1.17718- 51261 145402022 + 6.41640+ 4 0.00000+ 0 6.56544- 6 6.41650+ 4 0.00000+ 0 2.36835- 61261 145402023 + 6.41660+ 4 0.00000+ 0 4.88660- 7 6.41670+ 4 0.00000+ 0 9.09368- 81261 145402024 + 6.41680+ 4 0.00000+ 0 8.89382- 9 6.41690+ 4 0.00000+ 0 7.33490-101261 145402025 + 6.41700+ 4 0.00000+ 0 2.46828-11 6.41710+ 4 0.00000+ 0 6.38556-131261 145402026 + 6.41720+ 4 0.00000+ 0 1.63886-14 6.51510+ 4 0.00000+ 0 0.00000+ 01261 145402027 + 6.51530+ 4 0.00000+ 0 0.00000+ 0 6.51550+ 4 0.00000+ 0 6.85524-141261 145402028 + 6.51560+ 4 0.00000+ 0 1.40902-12 6.51560+ 4 1.00000+ 0 1.43900-121261 145402029 + 6.51570+ 4 0.00000+ 0 9.32352-11 6.51580+ 4 0.00000+ 0 1.35906- 91261 145402030 + 6.51580+ 4 1.00000+ 0 1.43900- 9 6.51590+ 4 0.00000+ 0 2.99792- 81261 145402031 + 6.51600+ 4 0.00000+ 0 2.03858- 7 6.51610+ 4 0.00000+ 0 9.10367- 71261 145402032 + 6.51620+ 4 0.00000+ 0 4.94656- 7 6.51620+ 4 1.00000+ 0 4.94656- 71261 145402033 + 6.51630+ 4 0.00000+ 0 1.94865- 6 6.51640+ 4 0.00000+ 0 2.85801- 61261 145402034 + 6.51650+ 4 0.00000+ 0 2.71811- 6 6.51660+ 4 0.00000+ 0 1.47897- 61261 145402035 + 6.51670+ 4 0.00000+ 0 7.60472- 7 6.51680+ 4 0.00000+ 0 2.14851- 71261 145402036 + 6.51690+ 4 0.00000+ 0 5.34628- 8 6.51700+ 4 0.00000+ 0 5.62609- 91261 145402037 + 6.51710+ 4 0.00000+ 0 4.67675-10 6.51720+ 4 0.00000+ 0 3.92727-111261 145402038 + 6.61550+ 4 0.00000+ 0 0.00000+ 0 6.61560+ 4 0.00000+ 0 0.00000+ 01261 145402039 + 6.61570+ 4 0.00000+ 0 0.00000+ 0 6.61580+ 4 0.00000+ 0 3.48758-131261 145402040 + 6.61590+ 4 0.00000+ 0 1.19917-11 6.61600+ 4 0.00000+ 0 1.94865-101261 145402041 + 6.61610+ 4 0.00000+ 0 3.96724- 9 6.61620+ 4 0.00000+ 0 7.54476- 91261 145402042 + 6.61630+ 4 0.00000+ 0 4.59681- 8 6.61640+ 4 0.00000+ 0 2.00860- 71261 145402043 + 6.61650+ 4 0.00000+ 0 2.65815- 7 6.61650+ 4 1.00000+ 0 2.66815- 71261 145402044 + 6.61660+ 4 0.00000+ 0 7.84455- 7 6.61670+ 4 0.00000+ 0 1.04927- 61261 145402045 + 6.61680+ 4 0.00000+ 0 7.78459- 7 6.61690+ 4 0.00000+ 0 5.19639- 71261 145402046 + 6.61700+ 4 0.00000+ 0 1.53893- 7 6.61710+ 4 0.00000+ 0 3.77738- 81261 145402047 + 6.61720+ 4 0.00000+ 0 9.73324- 9 6.71590+ 4 0.00000+ 0 0.00000+ 01261 145402048 + 6.71590+ 4 1.00000+ 0 0.00000+ 0 6.71610+ 4 0.00000+ 0 1.95864-131261 145402049 + 6.71610+ 4 1.00000+ 0 2.01860-13 6.71620+ 4 0.00000+ 0 6.64538-131261 145402050 + 6.71620+ 4 1.00000+ 0 6.51547-13 6.71630+ 4 0.00000+ 0 1.31908-111261 145402051 + 6.71630+ 4 1.00000+ 0 1.36905-11 6.71640+ 4 0.00000+ 0 1.83872-101261 145402052 + 6.71640+ 4 1.00000+ 0 1.92866-10 6.71650+ 4 0.00000+ 0 3.21776- 91261 145402053 + 6.71660+ 4 0.00000+ 0 7.15503- 9 6.71660+ 4 1.00000+ 0 7.15503- 91261 145402054 + 6.71670+ 4 0.00000+ 0 5.57613- 8 6.71680+ 4 0.00000+ 0 1.13921- 71261 145402055 + 6.71690+ 4 0.00000+ 0 2.01860- 7 6.71700+ 4 0.00000+ 0 7.76460- 81261 145402056 + 6.71700+ 4 1.00000+ 0 7.80458- 8 6.71710+ 4 0.00000+ 0 1.00930- 71261 145402057 + 6.71720+ 4 0.00000+ 0 7.12505- 8 6.81610+ 4 0.00000+ 0 0.00000+ 01261 145402058 + 6.81620+ 4 0.00000+ 0 0.00000+ 0 6.81630+ 4 0.00000+ 0 0.00000+ 01261 145402059 + 6.81640+ 4 0.00000+ 0 7.43483-14 6.81650+ 4 0.00000+ 0 1.91867-121261 145402060 + 6.81660+ 4 0.00000+ 0 2.95794-11 6.81670+ 4 0.00000+ 0 1.83872-101261 145402061 + 6.81670+ 4 1.00000+ 0 1.83872-10 6.81680+ 4 0.00000+ 0 2.31839- 91261 145402062 + 6.81690+ 4 0.00000+ 0 1.22915- 8 6.81700+ 4 0.00000+ 0 2.66815- 81261 145402063 + 6.81710+ 4 0.00000+ 0 4.70673- 8 6.81720+ 4 0.00000+ 0 8.73393- 81261 145402064 + 1261 100002065 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 145502066 + 0.00000+ 0 0.00000+ 0 0 0 6 01261 145502067 + 1.27200- 2 3.17400- 2 1.16000- 1 3.11000- 1 1.40000+ 0 3.87000+ 01261 145502068 + 0.00000+ 0 0.00000+ 0 0 0 1 71261 145502069 + 7 2 1261 145502070 + 1.00000- 5 1.67000- 2 1.20000+ 6 1.67000- 2 2.00000+ 6 1.67000- 21261 145502071 + 4.00000+ 6 1.67000- 2 7.00000+ 6 9.00000- 3 7.85000+ 6 9.00000- 31261 145502072 + 2.00000+ 7 9.00000- 3 1261 145502073 + 1261 100002074 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 145602075 + 0.00000+ 0 0.00000+ 0 0 0 1 71261 145602076 + 7 2 1261 145602077 + 1.00000- 5 2.40210+ 0 1.20000+ 6 2.55460+ 0 3.00000+ 6 2.76340+ 01261 145602078 + 4.00000+ 6 2.92760+ 0 7.00000+ 6 3.42030+ 0 7.85000+ 6 3.55990+ 01261 145602079 + 2.00000+ 7 5.18720+ 0 1261 145602080 + 1261 100002081 + 9.22350+ 4 2.33025+ 2 0 0 0 21261 145702082 + 2.22013+16 3.15360+13 0 0 6 31261 145702083 + 0.00000+ 0 0.00000+ 0 1.61310+ 5 0.00000+ 0 4.46800+ 6 0.00000+ 01261 145702084 + 9.22350+ 4 2.33025+ 2 0 0 12 21261 145702085 + 4.00000+ 0 0.00000+ 0 4.67880+ 6 2.50000+ 3 1.00000+ 0 0.00000+ 01261 145702086 + 6.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 4.00000- 9 0.00000+ 01261 145702087 + 4.00000+ 0 0.00000+ 0 0 0 102 161261 145702088 + 1.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702089 + 4.14600+ 6 3.00000+ 3 5.00000- 1 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702090 + 4.19000+ 6 3.00000+ 3 1.30000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702091 + 4.21600+ 6 3.00000+ 3 6.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702092 + 4.27100+ 6 5.00000+ 3 4.00000- 1 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702093 + 4.32500+ 6 3.00000+ 3 3.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702094 + 4.34500+ 6 4.00000+ 3 1.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702095 + 4.36800+ 6 3.00000+ 3 1.20000+ 1 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702096 + 4.37400+ 6 5.00000+ 3 6.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702097 + 4.39800+ 6 3.00000+ 3 5.60000+ 1 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702098 + 4.41700+ 6 5.00000+ 3 2.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702099 + 4.43000+ 6 5.00000+ 3 1.50000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702100 + 4.44400+ 6 3.00000+ 3 1.50000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702101 + 4.48400+ 6 3.00000+ 3 1.60000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702102 + 4.50200+ 6 3.00000+ 3 1.40000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702103 + 4.55600+ 6 3.00000+ 3 3.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702104 + 4.59800+ 6 3.00000+ 3 4.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702105 + 0.00000+ 0 0.00000+ 0 0 0 210 341261 145702106 + 1.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702107 + 3.16000+ 4 1.00000+ 2 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702108 + 4.21000+ 4 2.00000+ 2 5.00000- 2 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702109 + 5.12000+ 4 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702110 + 7.49000+ 4 1.00000+ 2 1.30000- 1 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702111 + 1.09120+ 5 5.00000+ 1 1.50000+ 0 2.00000- 1 9.70000- 2 0.00000+ 01261 145702112 + 1.15200+ 5 5.00000+ 2 1.10000- 1 3.00000- 2 0.00000+ 0 0.00000+ 01261 145702113 + 1.40750+ 5 1.00000+ 2 1.70000- 1 2.00000- 2 0.00000+ 0 0.00000+ 01261 145702114 + 1.43780+ 5 2.00000+ 1 9.70000+ 0 5.00000- 1 2.07000- 1 0.00000+ 01261 145702115 + 1.50960+ 5 3.00000+ 1 1.10000- 1 3.00000- 2 0.00000+ 0 0.00000+ 01261 145702116 + 1.63360+ 5 2.00000+ 1 4.60000+ 0 3.00000- 1 1.54000- 1 0.00000+ 01261 145702117 + 1.73400+ 5 1.00000+ 2 1.50000- 2 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702118 + 1.82720+ 5 2.00000+ 2 4.00000- 1 4.00000- 2 0.00000+ 0 0.00000+ 01261 145702119 + 1.85720+ 5 2.00000+ 1 5.40000+ 1 0.00000+ 0 1.14000- 1 0.00000+ 01261 145702120 + 1.94940+ 5 2.00000+ 1 6.50000- 1 5.00000- 2 0.00000+ 0 0.00000+ 01261 145702121 + 1.98910+ 5 6.00000+ 1 3.00000- 2 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702122 + 2.02130+ 5 3.00000+ 1 1.05000+ 0 5.00000- 2 2.58000+ 0 0.00000+ 01261 145702123 + 2.05310+ 5 2.00000+ 1 4.90000+ 0 3.00000- 1 9.30000- 2 0.00000+ 01261 145702124 + 2.15310+ 5 5.00000+ 1 3.00000- 2 3.00000- 3 0.00000+ 0 0.00000+ 01261 145702125 + 2.21370+ 5 3.00000+ 1 1.20000- 1 1.00000- 2 0.00000+ 0 0.00000+ 01261 145702126 + 2.25700+ 5 2.00000+ 2 2.00000- 3 2.00000- 4 0.00000+ 0 0.00000+ 01261 145702127 + 2.28800+ 5 1.00000+ 2 8.00000- 3 1.00000- 3 0.00000+ 0 0.00000+ 01261 145702128 + 2.33530+ 5 4.00000+ 1 4.00000- 2 4.00000- 3 0.00000+ 0 0.00000+ 01261 145702129 + 2.40930+ 5 4.00000+ 1 7.50000- 2 8.00000- 3 0.00000+ 0 0.00000+ 01261 145702130 + 2.46830+ 5 4.00000+ 1 6.00000- 2 6.00000- 3 0.00000+ 0 0.00000+ 01261 145702131 + 2.66440+ 5 8.00000+ 1 8.00000- 3 1.00000- 3 0.00000+ 0 0.00000+ 01261 145702132 + 2.75400+ 5 1.00000+ 2 2.00000- 2 2.00000- 3 0.00000+ 0 0.00000+ 01261 145702133 + 2.83100+ 5 2.00000+ 2 3.00000- 3 3.00000- 4 0.00000+ 0 0.00000+ 01261 145702134 + 2.91600+ 5 1.00000+ 2 2.00000- 2 2.00000- 3 0.00000+ 0 0.00000+ 01261 145702135 + 3.11600+ 5 6.00000+ 2 5.00000- 3 5.00000- 4 0.00000+ 0 0.00000+ 01261 145702136 + 3.45910+ 5 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702137 + 3.56000+ 5 2.00000+ 2 3.00000- 3 3.00000- 4 0.00000+ 0 0.00000+ 01261 145702138 + 3.87850+ 5 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 145702139 + 4.10200+ 5 2.00000+ 2 1.60000- 3 2.00000- 4 0.00000+ 0 0.00000+ 01261 145702140 + 4.47500+ 5 2.00000+ 2 1.60000- 3 2.00000- 4 0.00000+ 0 0.00000+ 01261 145702141 + 1261 100002142 + 1261 000002143 + 9.22350+ 4 2.33025+ 2 0 0 1 01261 215102144 + 9.22350+ 4 1.00000+ 0 0 1 2 01261 215102145 + 1.00000+ 0 8.20000+ 1 1 1 0 01261 215102146 + 3.50000+ 0 9.56630- 1 0 0 1 01261 215102147 + 2.33020+ 2 0.00000+ 0 0 0 780 1301261 215102148 +-1.49000+ 0 3.50000+ 0 2.37680- 1 3.68200- 3 2.70000- 2 2.07000- 11261 215102149 + 2.90000- 1 3.50000+ 0 1.35000- 1 3.01570- 6 3.60000- 2 9.90000- 21261 215102150 + 1.14000+ 0 3.50000+ 0 1.50820- 1 1.51610- 5 3.46000- 2 1.16200- 11261 215102151 + 2.03500+ 0 3.50000+ 0 4.46960- 2 7.66050- 6 3.48740- 2 9.81400- 31261 215102152 + 2.92000+ 0 3.50000+ 0 2.20000- 1 4.85300- 6 2.00000- 2 2.00000- 11261 215102153 + 3.14700+ 0 3.50000+ 0 1.39610- 1 2.24050- 5 3.32100- 2 1.06370- 11261 215102154 + 3.60900+ 0 3.50000+ 0 8.43790- 2 4.55940- 5 3.36960- 2 5.06370- 21261 215102155 + 4.84800+ 0 3.50000+ 0 3.95920- 2 6.03520- 5 3.59450- 2 3.58700- 31261 215102156 + 5.44800+ 0 3.50000+ 0 9.01200- 2 3.36110- 6 6.00000- 2 3.01170- 21261 215102157 + 5.60000+ 0 3.50000+ 0 6.41920- 1 3.33190- 5 2.00000- 2 6.21890- 11261 215102158 + 6.21000+ 0 3.50000+ 0 2.30900- 1 6.37950- 5 4.34690- 2 1.87360- 11261 215102159 + 6.38200+ 0 3.50000+ 0 4.47880- 2 2.68340- 4 3.49720- 2 9.54800- 31261 215102160 + 7.07700+ 0 3.50000+ 0 6.39340- 2 1.26600- 4 3.55740- 2 2.82330- 21261 215102161 + 8.78100+ 0 3.50000+ 0 1.23290- 1 1.12340- 3 3.11700- 2 9.10000- 21261 215102162 + 9.28600+ 0 3.50000+ 0 1.10760- 1 1.63640- 4 3.56000- 2 7.50000- 21261 215102163 + 9.73000+ 0 3.50000+ 0 2.69050- 1 5.30280- 5 3.20000- 2 2.37000- 11261 215102164 + 1.01800+ 1 3.50000+ 0 1.00560- 1 6.18980- 5 3.80000- 2 6.25000- 21261 215102165 + 1.08000+ 1 3.50000+ 0 9.35090- 1 9.33320- 5 6.70000- 2 8.68000- 11261 215102166 + 1.16660+ 1 3.50000+ 0 4.72770- 2 6.27440- 4 4.04000- 2 6.25000- 31261 215102167 + 1.23960+ 1 3.50000+ 0 6.32620- 2 1.26220- 3 3.45000- 2 2.75000- 21261 215102168 + 1.28610+ 1 3.50000+ 0 1.19550- 1 5.30760- 5 3.35000- 2 8.60000- 21261 215102169 + 1.32750+ 1 3.50000+ 0 1.51440- 1 3.93500- 5 2.86000- 2 1.22800- 11261 215102170 + 1.37000+ 1 3.50000+ 0 1.23940- 1 3.70130- 5 3.04000- 2 9.35000- 21261 215102171 + 1.39960+ 1 3.50000+ 0 4.96540- 1 5.37230- 4 2.60000- 2 4.70000- 11261 215102172 + 1.45440+ 1 3.50000+ 0 5.62150- 2 1.15170- 4 3.52000- 2 2.09000- 21261 215102173 + 1.54060+ 1 3.50000+ 0 7.88370- 2 2.37070- 4 3.53000- 2 4.33000- 21261 215102174 + 1.60880+ 1 3.50000+ 0 5.03610- 2 3.60990- 4 3.13830- 2 1.86170- 21261 215102175 + 1.66670+ 1 3.50000+ 0 1.33270- 1 2.73000- 4 3.21050- 2 1.00890- 11261 215102176 + 1.80520+ 1 3.50000+ 0 1.60380- 1 3.84510- 4 3.50000- 2 1.25000- 11261 215102177 + 1.89600+ 1 3.50000+ 0 1.05120- 1 1.15820- 4 5.00000- 2 5.50000- 21261 215102178 + 1.92970+ 1 3.50000+ 0 9.81940- 2 3.19360- 3 3.48210- 2 6.01790- 21261 215102179 + 2.01300+ 1 3.50000+ 0 2.40090- 1 8.77140- 5 1.39100- 2 2.26090- 11261 215102180 + 2.02000+ 1 3.50000+ 0 5.00130- 2 1.30340- 5 4.92800- 2 7.20000- 41261 215102181 + 2.06100+ 1 3.50000+ 0 8.41910- 2 1.91170- 4 4.04850- 2 4.35150- 21261 215102182 + 2.10720+ 1 3.50000+ 0 7.35030- 2 1.50270- 3 4.03420- 2 3.16580- 21261 215102183 + 2.29390+ 1 3.50000+ 0 7.54360- 2 4.35840- 4 3.26700- 2 4.23300- 21261 215102184 + 2.34120+ 1 3.50000+ 0 3.22040- 2 7.03720- 4 2.65000- 2 5.00000- 31261 215102185 + 2.36290+ 1 3.50000+ 0 2.25860- 1 8.55770- 4 4.30000- 2 1.82000- 11261 215102186 + 2.42450+ 1 3.50000+ 0 5.82680- 2 2.68350- 4 3.10000- 2 2.70000- 21261 215102187 + 2.43700+ 1 3.50000+ 0 1.00150- 1 1.49580- 4 3.50000- 2 6.50000- 21261 215102188 + 2.52000+ 1 3.50000+ 0 8.50680- 1 6.76240- 4 2.50000- 2 8.25000- 11261 215102189 + 2.55900+ 1 3.50000+ 0 3.85560- 1 5.64550- 4 2.50000- 2 3.60000- 11261 215102190 + 2.64800+ 1 3.50000+ 0 1.92480- 1 4.75990- 4 3.20000- 2 1.60000- 11261 215102191 + 2.67400+ 1 3.50000+ 0 2.50090- 1 8.56850- 5 3.00000- 2 2.20000- 11261 215102192 + 2.71490+ 1 3.50000+ 0 1.15590- 1 8.51390- 5 4.20000- 2 7.35000- 21261 215102193 + 2.77960+ 1 3.50000+ 0 1.20670- 1 6.74470- 4 3.20000- 2 8.80000- 21261 215102194 + 2.80900+ 1 3.50000+ 0 6.50310- 2 3.11640- 5 4.00000- 2 2.50000- 21261 215102195 + 2.83510+ 1 3.50000+ 0 1.49190- 1 1.88540- 4 3.17000- 2 1.17300- 11261 215102196 + 2.87100+ 1 3.50000+ 0 1.30040- 1 4.50090- 5 5.00000- 2 8.00000- 21261 215102197 + 2.96440+ 1 3.50000+ 0 6.11770- 2 1.77440- 4 3.70000- 2 2.40000- 21261 215102198 + 3.05900+ 1 3.50000+ 0 1.55230- 1 2.27320- 4 4.50940- 2 1.09900- 11261 215102199 + 3.08600+ 1 3.50000+ 0 5.45320- 2 5.32350- 4 3.52690- 2 1.87310- 21261 215102200 + 3.20700+ 1 3.50000+ 0 9.98230- 2 1.82330- 3 3.77240- 2 6.02760- 21261 215102201 + 3.35200+ 1 3.50000+ 0 5.68590- 2 1.85950- 3 3.18610- 2 2.31390- 21261 215102202 + 3.43700+ 1 3.50000+ 0 8.72530- 2 2.25270- 3 4.31600- 2 4.18400- 21261 215102203 + 3.48500+ 1 3.50000+ 0 1.16100- 1 1.09770- 3 3.82470- 2 7.67530- 21261 215102204 + 3.51870+ 1 3.50000+ 0 1.03500- 1 3.50040- 3 3.14020- 2 6.85980- 21261 215102205 + 3.53000+ 1 3.50000+ 0 6.91570- 1 1.56750- 3 4.00000- 2 6.50000- 11261 215102206 + 3.64000+ 1 3.50000+ 0 1.54010+ 0 1.19940- 4 4.00000- 2 1.50000+ 01261 215102207 + 3.75000+ 1 3.50000+ 0 1.54020+ 0 1.66380- 4 4.00000- 2 1.50000+ 01261 215102208 + 3.83000+ 1 3.50000+ 0 3.08340- 1 3.35920- 4 4.21910- 2 2.65810- 11261 215102209 + 3.94100+ 1 3.50000+ 0 9.55230- 2 2.52330- 3 3.44880- 2 5.85120- 21261 215102210 + 3.99000+ 1 3.50000+ 0 1.50240- 1 2.36370- 4 3.31770- 2 1.16820- 11261 215102211 + 4.05360+ 1 3.50000+ 0 2.09380- 1 3.80290- 4 3.43230- 2 1.74680- 11261 215102212 + 4.13500+ 1 3.50000+ 0 4.45640- 1 6.44840- 4 4.50000- 2 4.00000- 11261 215102213 + 4.15900+ 1 3.50000+ 0 1.65220- 1 2.23910- 4 3.09070- 2 1.34090- 11261 215102214 + 4.18730+ 1 3.50000+ 0 4.12330- 2 1.23250- 3 2.89510- 2 1.10490- 21261 215102215 + 4.22300+ 1 3.50000+ 0 1.45450- 1 4.47220- 4 4.82400- 2 9.67600- 21261 215102216 + 4.26900+ 1 3.50000+ 0 6.13450- 2 3.45180- 4 4.43220- 2 1.66780- 21261 215102217 + 4.33980+ 1 3.50000+ 0 7.07540- 2 7.54490- 4 4.58800- 2 2.41200- 21261 215102218 + 4.39000+ 1 3.50000+ 0 1.10200- 1 2.00960- 4 4.10360- 2 6.89640- 21261 215102219 + 4.39700+ 1 3.50000+ 0 2.50340- 1 3.45470- 4 1.73090- 2 2.32690- 11261 215102220 + 4.46000+ 1 3.50000+ 0 1.75840- 1 8.38660- 4 4.59780- 2 1.29020- 11261 215102221 + 4.49500+ 1 3.50000+ 0 5.35760- 1 7.57000- 4 3.07390- 2 5.04260- 11261 215102222 + 4.57900+ 1 3.50000+ 0 1.34190- 1 1.87910- 4 4.08070- 2 9.31930- 21261 215102223 + 4.67900+ 1 3.50000+ 0 1.52800- 1 8.03050- 4 3.70000- 2 1.15000- 11261 215102224 + 4.70110+ 1 3.50000+ 0 1.39940- 1 9.36590- 4 4.20000- 2 9.70000- 21261 215102225 + 4.79700+ 1 3.50000+ 0 9.39880- 2 9.88340- 4 4.57100- 2 4.72900- 21261 215102226 + 4.83000+ 1 3.50000+ 0 1.65770- 1 7.70940- 4 2.47150- 2 1.40280- 11261 215102227 + 4.88000+ 1 3.50000+ 0 6.56910- 2 6.90610- 4 2.54310- 2 3.95690- 21261 215102228 + 4.90000+ 1 3.50000+ 0 2.40180- 1 1.76750- 4 2.00000- 2 2.20000- 11261 215102229 + 4.94180+ 1 3.50000+ 0 6.10130- 2 1.01320- 3 4.29130- 2 1.70870- 21261 215102230 + 5.01080+ 1 3.50000+ 0 5.43530- 2 3.15850- 4 3.10940- 2 2.29430- 21261 215102231 + 5.04660+ 1 3.50000+ 0 7.59640- 2 9.63650- 4 3.20300- 2 4.29700- 21261 215102232 + 5.07800+ 1 3.50000+ 0 3.30190- 1 1.89550- 4 3.00000- 2 3.00000- 11261 215102233 + 5.12680+ 1 3.50000+ 0 1.88540- 1 3.54480- 3 5.19740- 2 1.33030- 11261 215102234 + 5.16300+ 1 3.50000+ 0 7.43460- 2 3.45690- 4 3.34540- 2 4.05460- 21261 215102235 + 5.22210+ 1 3.50000+ 0 3.63510- 1 2.50760- 3 3.10000- 2 3.30000- 11261 215102236 + 5.34380+ 1 3.50000+ 0 1.35540- 1 5.37290- 4 3.34630- 2 1.01540- 11261 215102237 + 5.41320+ 1 3.50000+ 0 1.50210- 1 2.14100- 4 4.40000- 2 1.06000- 11261 215102238 + 5.50640+ 1 3.50000+ 0 1.11170- 1 3.16850- 3 4.85390- 2 5.94610- 21261 215102239 + 5.58400+ 1 3.50000+ 0 2.51350- 1 2.35490- 3 3.87190- 2 2.10280- 11261 215102240 + 5.60700+ 1 3.50000+ 0 1.90790- 1 7.86240- 4 3.00000- 2 1.60000- 11261 215102241 + 5.64980+ 1 3.50000+ 0 1.19920- 1 4.92080- 3 3.91670- 2 7.58330- 21261 215102242 + 5.78000+ 1 3.50000+ 0 2.21130- 1 1.12520- 3 3.50000- 2 1.85000- 11261 215102243 + 5.80600+ 1 3.50000+ 0 6.53540- 2 1.35390- 3 3.23150- 2 3.16850- 21261 215102244 + 5.86740+ 1 3.50000+ 0 1.36330- 1 1.33280- 3 3.30000- 2 1.02000- 11261 215102245 + 5.97600+ 1 3.50000+ 0 2.55270- 1 2.70570- 4 4.20000- 2 2.13000- 11261 215102246 + 6.01880+ 1 3.50000+ 0 2.55130- 1 1.12650- 3 3.40000- 2 2.20000- 11261 215102247 + 6.08370+ 1 3.50000+ 0 1.20460- 1 4.62530- 4 3.00000- 2 9.00000- 21261 215102248 + 6.11300+ 1 3.50000+ 0 1.25360- 1 3.62780- 4 4.00000- 2 8.50000- 21261 215102249 + 6.15700+ 1 3.50000+ 0 5.30230- 1 2.25200- 4 3.00000- 2 5.00000- 11261 215102250 + 6.19000+ 1 3.50000+ 0 5.30170- 1 1.70730- 4 3.00000- 2 5.00000- 11261 215102251 + 6.24000+ 1 3.50000+ 0 4.60260- 1 2.61630- 4 6.00000- 2 4.00000- 11261 215102252 + 6.30200+ 1 3.50000+ 0 2.40090- 1 9.08960- 5 4.00000- 2 2.00000- 11261 215102253 + 6.33200+ 1 3.50000+ 0 2.50100- 1 1.02090- 4 5.00000- 2 2.00000- 11261 215102254 + 6.36900+ 1 3.50000+ 0 6.21070- 1 1.07440- 3 6.00000- 2 5.60000- 11261 215102255 + 6.43000+ 1 3.50000+ 0 4.75450- 2 1.24470- 3 3.90000- 2 7.30000- 31261 215102256 + 6.58000+ 1 3.50000+ 0 9.64230- 2 4.23270- 4 5.00000- 2 4.60000- 21261 215102257 + 6.64020+ 1 3.50000+ 0 8.94490- 2 4.49480- 4 4.50000- 2 4.40000- 21261 215102258 + 6.72470+ 1 3.50000+ 0 9.00810- 2 8.09380- 5 4.10000- 2 4.90000- 21261 215102259 + 6.84400+ 1 3.50000+ 0 2.50040- 1 3.76410- 5 5.00000- 2 2.00000- 11261 215102260 + 6.85300+ 1 3.50000+ 0 1.60110- 1 1.08360- 4 6.00000- 2 1.00000- 11261 215102261 + 6.92930+ 1 3.50000+ 0 2.00720- 1 7.15300- 4 4.00000- 2 1.60000- 11261 215102262 + 7.04040+ 1 3.50000+ 0 1.72720- 1 2.71560- 3 5.00000- 2 1.20000- 11261 215102263 + 7.07500+ 1 3.50000+ 0 2.37410- 1 2.40910- 3 3.50000- 2 2.00000- 11261 215102264 + 7.16100+ 1 3.50000+ 0 1.60290- 1 2.91360- 4 4.00000- 2 1.20000- 11261 215102265 + 7.23900+ 1 3.50000+ 0 1.38610- 1 2.61150- 3 3.10000- 2 1.05000- 11261 215102266 + 7.29100+ 1 3.50000+ 0 3.60370- 1 3.67170- 4 4.00000- 2 3.20000- 11261 215102267 + 7.45440+ 1 3.50000+ 0 1.01670- 1 2.72870- 3 3.80000- 2 6.09370- 21261 215102268 + 7.51700+ 1 3.50000+ 0 2.90890- 1 8.88330- 4 5.00000- 2 2.40000- 11261 215102269 + 7.55410+ 1 3.50000+ 0 2.33360- 1 1.36210- 3 3.20000- 2 2.00000- 11261 215102270 + 7.67500+ 1 3.50000+ 0 1.16110- 1 1.07320- 4 3.60000- 2 8.00000- 21261 215102271 + 7.74920+ 1 3.50000+ 0 1.12990- 1 9.86810- 4 4.00000- 2 7.20000- 21261 215102272 + 7.81170+ 1 3.50000+ 0 1.48220- 1 1.22450- 3 4.70000- 2 1.00000- 11261 215102273 + 7.96720+ 1 3.50000+ 0 1.29790- 1 7.85570- 4 4.40000- 2 8.50000- 21261 215102274 + 8.03570+ 1 3.50000+ 0 1.74840- 1 8.38510- 4 4.00000- 2 1.34000- 11261 215102275 + 8.14340+ 1 3.50000+ 0 1.32040- 1 1.04330- 3 4.10000- 2 9.00000- 21261 215102276 + 8.35900+ 1 3.50000+ 0 1.18270- 1 1.17030- 3 4.80000- 2 6.91000- 21261 215102277 + 8.68800+ 1 3.50000+ 0 8.01200- 2 7.19580- 4 5.20000- 2 2.74000- 21261 215102278 + 8.20000+ 1 2.50000+ 4 2 2 0 01261 215102279 + 3.50000+ 0 9.56630- 1 0 0 2 01261 215102280 + 2.33025+ 2 0.00000+ 0 0 0 2 01261 215102281 + 3.00000+ 0 0.00000+ 0 2 0 726 1201261 215102282 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 1.00000+ 0 0.00000+ 0 2.00000+ 01261 215102283 + 8.20000+ 1 1.00000+ 0 0.00000+ 0 9.32780- 5 3.50000- 2 3.23080- 11261 215102284 + 8.65000+ 1 1.00000+ 0 0.00000+ 0 8.44860- 5 3.50000- 2 3.40560- 11261 215102285 + 9.10000+ 1 1.00000+ 0 0.00000+ 0 8.59390- 5 3.50000- 2 2.63940- 11261 215102286 + 9.55000+ 1 1.00000+ 0 0.00000+ 0 8.73180- 5 3.50000- 2 2.05980- 11261 215102287 + 1.00000+ 2 1.00000+ 0 0.00000+ 0 9.94340- 5 3.50000- 2 8.46200- 21261 215102288 + 1.10000+ 2 1.00000+ 0 0.00000+ 0 8.66200- 5 3.50000- 2 1.32250- 11261 215102289 + 1.20000+ 2 1.00000+ 0 0.00000+ 0 1.04270- 4 3.50000- 2 2.99460- 11261 215102290 + 1.80000+ 2 1.00000+ 0 0.00000+ 0 9.83580- 5 3.50000- 2 2.49190- 11261 215102291 + 2.40000+ 2 1.00000+ 0 0.00000+ 0 1.31810- 4 3.50000- 2 3.06950- 11261 215102292 + 2.60000+ 2 1.00000+ 0 0.00000+ 0 2.10030- 5 3.50000- 2 1.03100+ 01261 215102293 + 2.80000+ 2 1.00000+ 0 0.00000+ 0 9.35380- 5 3.50000- 2 7.53300- 11261 215102294 + 2.90000+ 2 1.00000+ 0 0.00000+ 0 7.09140- 5 3.50000- 2 5.59090- 11261 215102295 + 3.00000+ 2 1.00000+ 0 0.00000+ 0 8.04120- 5 3.50000- 2 3.28330- 11261 215102296 + 3.15000+ 2 1.00000+ 0 0.00000+ 0 7.94530- 5 3.50000- 2 3.30640- 11261 215102297 + 3.30000+ 2 1.00000+ 0 0.00000+ 0 9.91920- 5 3.50000- 2 1.85600- 11261 215102298 + 3.45000+ 2 1.00000+ 0 0.00000+ 0 8.42860- 5 3.50000- 2 3.42340- 11261 215102299 + 3.60000+ 2 1.00000+ 0 0.00000+ 0 8.92270- 5 3.50000- 2 3.57570- 11261 215102300 + 4.50000+ 2 1.00000+ 0 0.00000+ 0 9.38350- 5 3.50000- 2 4.88690- 11261 215102301 + 5.20000+ 2 1.00000+ 0 0.00000+ 0 1.19740- 4 3.50000- 2 5.01490- 11261 215102302 + 5.65000+ 2 1.00000+ 0 0.00000+ 0 1.17420- 4 3.50000- 2 1.08430+ 01261 215102303 + 6.10000+ 2 1.00000+ 0 0.00000+ 0 1.07110- 4 3.50000- 2 9.23100- 11261 215102304 + 6.20000+ 2 1.00000+ 0 0.00000+ 0 1.08250- 4 3.50000- 2 6.55300- 11261 215102305 + 6.30000+ 2 1.00000+ 0 0.00000+ 0 9.56080- 5 3.50000- 2 1.75540- 11261 215102306 + 6.40000+ 2 1.00000+ 0 0.00000+ 0 1.19680- 4 3.50000- 2 1.07010- 11261 215102307 + 6.50000+ 2 1.00000+ 0 0.00000+ 0 1.06410- 4 3.50000- 2 3.27510- 11261 215102308 + 6.60000+ 2 1.00000+ 0 0.00000+ 0 8.67590- 5 3.50000- 2 4.20870- 11261 215102309 + 7.10000+ 2 1.00000+ 0 0.00000+ 0 9.86280- 5 3.50000- 2 6.43220- 11261 215102310 + 7.25000+ 2 1.00000+ 0 0.00000+ 0 1.18950- 4 3.50000- 2 4.16500- 11261 215102311 + 7.40000+ 2 1.00000+ 0 0.00000+ 0 1.33780- 4 3.50000- 2 1.90200- 11261 215102312 + 7.55000+ 2 1.00000+ 0 0.00000+ 0 1.19360- 4 3.50000- 2 3.26290- 11261 215102313 + 7.70000+ 2 1.00000+ 0 0.00000+ 0 1.05120- 4 3.50000- 2 3.90030- 11261 215102314 + 8.80000+ 2 1.00000+ 0 0.00000+ 0 8.73370- 5 3.50000- 2 2.32090- 11261 215102315 + 9.10000+ 2 1.00000+ 0 0.00000+ 0 1.01800- 4 3.50000- 2 2.11790- 11261 215102316 + 9.90000+ 2 1.00000+ 0 0.00000+ 0 1.04570- 4 3.50000- 2 1.37060- 11261 215102317 + 1.08500+ 3 1.00000+ 0 0.00000+ 0 1.11530- 4 3.50000- 2 3.38290- 11261 215102318 + 1.18000+ 3 1.00000+ 0 0.00000+ 0 1.21420- 4 3.50000- 2 5.35890- 11261 215102319 + 1.22000+ 3 1.00000+ 0 0.00000+ 0 8.76240- 5 3.50000- 2 3.25790- 11261 215102320 + 1.30000+ 3 1.00000+ 0 0.00000+ 0 9.05640- 5 3.50000- 2 5.03010- 11261 215102321 + 1.40000+ 3 1.00000+ 0 0.00000+ 0 1.04460- 4 3.50000- 2 6.02010- 11261 215102322 + 1.43000+ 3 1.00000+ 0 0.00000+ 0 1.36560- 4 3.50000- 2 2.47040- 11261 215102323 + 1.45000+ 3 1.00000+ 0 0.00000+ 0 1.12210- 4 3.50000- 2 6.35190- 11261 215102324 + 1.46000+ 3 1.00000+ 0 0.00000+ 0 1.13910- 4 3.50000- 2 6.27040- 11261 215102325 + 1.48000+ 3 1.00000+ 0 0.00000+ 0 6.48210- 5 3.50000- 2 1.64710- 11261 215102326 + 1.50000+ 3 1.00000+ 0 0.00000+ 0 7.06600- 5 3.50000- 2 1.93450- 11261 215102327 + 1.54500+ 3 1.00000+ 0 0.00000+ 0 8.61440- 5 3.50000- 2 4.26640- 11261 215102328 + 1.59000+ 3 1.00000+ 0 0.00000+ 0 1.01950- 4 3.50000- 2 5.38140- 11261 215102329 + 1.70000+ 3 1.00000+ 0 0.00000+ 0 9.50540- 5 3.50000- 2 5.37430- 11261 215102330 + 1.90000+ 3 1.00000+ 0 0.00000+ 0 9.42740- 5 3.50000- 2 3.05250- 11261 215102331 + 1.91000+ 3 1.00000+ 0 0.00000+ 0 1.12390- 4 3.50000- 2 4.35760- 11261 215102332 + 2.00000+ 3 1.00000+ 0 0.00000+ 0 1.07740- 4 3.50000- 2 2.94440- 11261 215102333 + 2.10000+ 3 1.00000+ 0 0.00000+ 0 8.51820- 5 3.50000- 2 2.95990- 11261 215102334 + 2.30000+ 3 1.00000+ 0 0.00000+ 0 9.07300- 5 3.50000- 2 5.18770- 11261 215102335 + 2.50000+ 3 1.00000+ 0 0.00000+ 0 9.61070- 5 3.50000- 2 5.42890- 11261 215102336 + 2.70000+ 3 1.00000+ 0 0.00000+ 0 8.47000- 5 3.50000- 2 5.31170- 11261 215102337 + 3.20000+ 3 1.00000+ 0 0.00000+ 0 9.87080- 5 3.50000- 2 4.09380- 11261 215102338 + 3.30000+ 3 1.00000+ 0 0.00000+ 0 9.33890- 5 3.50000- 2 6.59520- 11261 215102339 + 3.40000+ 3 1.00000+ 0 0.00000+ 0 8.83210- 5 3.50000- 2 6.73810- 11261 215102340 + 3.75000+ 3 1.00000+ 0 0.00000+ 0 9.26660- 5 3.50000- 2 6.33540- 11261 215102341 + 4.10000+ 3 1.00000+ 0 0.00000+ 0 9.70370- 5 3.50000- 2 3.68540- 11261 215102342 + 4.30000+ 3 1.00000+ 0 0.00000+ 0 1.10610- 4 3.50000- 2 6.03920- 11261 215102343 + 4.40000+ 3 1.00000+ 0 0.00000+ 0 9.86610- 5 3.50000- 2 5.25630- 11261 215102344 + 4.80000+ 3 1.00000+ 0 0.00000+ 0 9.15780- 5 3.50000- 2 3.33300- 11261 215102345 + 4.90000+ 3 1.00000+ 0 0.00000+ 0 8.55750- 5 3.50000- 2 5.83870- 11261 215102346 + 5.00000+ 3 1.00000+ 0 0.00000+ 0 7.96470- 5 3.50000- 2 6.81190- 11261 215102347 + 5.10000+ 3 1.00000+ 0 0.00000+ 0 8.37500- 5 3.50000- 2 5.59890- 11261 215102348 + 5.20000+ 3 1.00000+ 0 0.00000+ 0 8.85930- 5 3.50000- 2 3.00840- 11261 215102349 + 5.25000+ 3 1.00000+ 0 0.00000+ 0 8.39960- 5 3.50000- 2 5.35350- 11261 215102350 + 5.30000+ 3 1.00000+ 0 0.00000+ 0 8.03550- 5 3.50000- 2 6.21100- 11261 215102351 + 5.60000+ 3 1.00000+ 0 0.00000+ 0 9.62420- 5 3.50000- 2 9.12820- 11261 215102352 + 5.65000+ 3 1.00000+ 0 0.00000+ 0 9.29350- 5 3.50000- 2 6.84950- 11261 215102353 + 5.70000+ 3 1.00000+ 0 0.00000+ 0 8.94860- 5 3.50000- 2 3.23350- 11261 215102354 + 5.90000+ 3 1.00000+ 0 0.00000+ 0 1.33320- 4 3.50000- 2 2.37180- 11261 215102355 + 6.00000+ 3 1.00000+ 0 0.00000+ 0 1.03380- 4 3.50000- 2 1.54810- 11261 215102356 + 6.10000+ 3 1.00000+ 0 0.00000+ 0 1.00030- 4 3.50000- 2 3.00150- 11261 215102357 + 6.45000+ 3 1.00000+ 0 0.00000+ 0 9.31220- 5 3.50000- 2 4.39920- 11261 215102358 + 6.80000+ 3 1.00000+ 0 0.00000+ 0 8.28250- 5 3.50000- 2 4.32910- 11261 215102359 + 7.00000+ 3 1.00000+ 0 0.00000+ 0 9.88980- 5 3.50000- 2 5.63080- 11261 215102360 + 7.20000+ 3 1.00000+ 0 0.00000+ 0 9.34120- 5 3.50000- 2 3.39870- 11261 215102361 + 8.10000+ 3 1.00000+ 0 0.00000+ 0 9.12470- 5 3.50000- 2 2.66920- 11261 215102362 + 8.30000+ 3 1.00000+ 0 0.00000+ 0 1.06630- 4 3.50000- 2 1.45580- 11261 215102363 + 8.50000+ 3 1.00000+ 0 0.00000+ 0 1.11150- 4 3.50000- 2 2.78620- 11261 215102364 + 8.70000+ 3 1.00000+ 0 0.00000+ 0 1.15650- 4 3.50000- 2 2.99220- 11261 215102365 + 9.00000+ 3 1.00000+ 0 0.00000+ 0 7.53250- 5 3.50000- 2 4.37710- 11261 215102366 + 9.20000+ 3 1.00000+ 0 0.00000+ 0 1.06520- 4 3.50000- 2 3.53240- 11261 215102367 + 1.04000+ 4 1.00000+ 0 0.00000+ 0 9.42420- 5 3.50000- 2 2.81750- 11261 215102368 + 1.14000+ 4 1.00000+ 0 0.00000+ 0 1.00690- 4 3.50000- 2 3.48810- 11261 215102369 + 1.17000+ 4 1.00000+ 0 0.00000+ 0 8.02840- 5 3.50000- 2 2.56430- 11261 215102370 + 1.19000+ 4 1.00000+ 0 0.00000+ 0 1.10500- 4 3.50000- 2 5.18900- 11261 215102371 + 1.20000+ 4 1.00000+ 0 0.00000+ 0 8.91740- 5 3.50000- 2 3.40360- 11261 215102372 + 1.22000+ 4 1.00000+ 0 0.00000+ 0 1.01990- 4 3.50000- 2 2.83120- 11261 215102373 + 1.23000+ 4 1.00000+ 0 0.00000+ 0 9.06700- 5 3.50000- 2 2.17560- 11261 215102374 + 1.27000+ 4 1.00000+ 0 0.00000+ 0 8.26830- 5 3.50000- 2 2.91690- 11261 215102375 + 1.33000+ 4 1.00000+ 0 0.00000+ 0 1.02600- 4 3.50000- 2 5.18960- 11261 215102376 + 1.36000+ 4 1.00000+ 0 0.00000+ 0 9.14730- 5 3.50000- 2 4.08870- 11261 215102377 + 1.44000+ 4 1.00000+ 0 0.00000+ 0 8.71050- 5 3.50000- 2 3.60190- 11261 215102378 + 1.50000+ 4 1.00000+ 0 0.00000+ 0 9.52620- 5 3.50000- 2 6.30450- 11261 215102379 + 1.51000+ 4 1.00000+ 0 0.00000+ 0 7.29240- 5 3.50000- 2 3.75910- 11261 215102380 + 1.64000+ 4 1.00000+ 0 0.00000+ 0 9.65410- 5 3.50000- 2 3.56990- 11261 215102381 + 1.75000+ 4 1.00000+ 0 0.00000+ 0 8.26020- 5 3.50000- 2 2.21500- 11261 215102382 + 1.76000+ 4 1.00000+ 0 0.00000+ 0 9.04410- 5 3.50000- 2 3.40940- 11261 215102383 + 1.84000+ 4 1.00000+ 0 0.00000+ 0 8.94370- 5 3.50000- 2 5.95600- 11261 215102384 + 1.92000+ 4 1.00000+ 0 0.00000+ 0 7.91650- 5 3.50000- 2 7.12760- 11261 215102385 + 1.93000+ 4 1.00000+ 0 0.00000+ 0 6.65910- 5 3.50000- 2 5.14710- 11261 215102386 + 1.99000+ 4 1.00000+ 0 0.00000+ 0 7.07210- 5 3.50000- 2 5.61370- 11261 215102387 + 2.00000+ 4 1.00000+ 0 0.00000+ 0 8.19100- 5 3.50000- 2 8.26430- 11261 215102388 + 2.02000+ 4 1.00000+ 0 0.00000+ 0 9.09130- 5 3.50000- 2 4.78570- 11261 215102389 + 2.04000+ 4 1.00000+ 0 0.00000+ 0 8.40880- 5 3.50000- 2 2.00920- 11261 215102390 + 2.10000+ 4 1.00000+ 0 0.00000+ 0 1.01040- 4 3.50000- 2 2.63450- 11261 215102391 + 2.12000+ 4 1.00000+ 0 0.00000+ 0 7.49290- 5 3.50000- 2 2.50360- 11261 215102392 + 2.17000+ 4 1.00000+ 0 0.00000+ 0 8.81570- 5 3.50000- 2 5.60470- 11261 215102393 + 2.22000+ 4 1.00000+ 0 0.00000+ 0 1.01200- 4 3.50000- 2 7.29940- 11261 215102394 + 2.23000+ 4 1.00000+ 0 0.00000+ 0 1.26510- 4 3.50000- 2 1.00140+ 01261 215102395 + 2.24000+ 4 1.00000+ 0 0.00000+ 0 9.42250- 5 3.50000- 2 5.68040- 11261 215102396 + 2.28000+ 4 1.00000+ 0 0.00000+ 0 8.68720- 5 3.50000- 2 4.72160- 11261 215102397 + 2.32000+ 4 1.00000+ 0 0.00000+ 0 7.91090- 5 3.50000- 2 2.35870- 11261 215102398 + 2.34000+ 4 1.00000+ 0 0.00000+ 0 8.62980- 5 3.50000- 2 2.99400- 11261 215102399 + 2.42000+ 4 1.00000+ 0 0.00000+ 0 9.41230- 5 3.50000- 2 3.13230- 11261 215102400 + 2.44000+ 4 1.00000+ 0 0.00000+ 0 9.97630- 5 3.50000- 2 5.69080- 11261 215102401 + 2.46000+ 4 1.00000+ 0 0.00000+ 0 7.95710- 5 3.50000- 2 5.86170- 11261 215102402 + 2.50000+ 4 1.00000+ 0 0.00000+ 0 8.55930- 5 3.50000- 2 4.71280- 11261 215102403 + 4.00000+ 0 0.00000+ 0 2 0 726 1201261 215102404 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 1.00000+ 0 0.00000+ 0 1.00000+ 01261 215102405 + 8.20000+ 1 1.00000+ 0 0.00000+ 0 9.32780- 5 3.50000- 2 1.61550- 11261 215102406 + 8.65000+ 1 1.00000+ 0 0.00000+ 0 1.03340- 4 3.50000- 2 1.16900- 11261 215102407 + 9.10000+ 1 1.00000+ 0 0.00000+ 0 1.05120- 4 3.50000- 2 9.05980- 21261 215102408 + 9.55000+ 1 1.00000+ 0 0.00000+ 0 1.06810- 4 3.50000- 2 7.07030- 21261 215102409 + 1.00000+ 2 1.00000+ 0 0.00000+ 0 9.97820- 5 3.50000- 2 8.46440- 21261 215102410 + 1.10000+ 2 1.00000+ 0 0.00000+ 0 1.07640- 4 3.50000- 2 1.31400- 11261 215102411 + 1.20000+ 2 1.00000+ 0 0.00000+ 0 8.99630- 5 3.50000- 2 1.49750- 11261 215102412 + 1.80000+ 2 1.00000+ 0 0.00000+ 0 9.92770- 5 3.50000- 2 1.01950- 11261 215102413 + 2.40000+ 2 1.00000+ 0 0.00000+ 0 1.31810- 4 3.50000- 2 1.53470- 11261 215102414 + 2.60000+ 2 1.00000+ 0 0.00000+ 0 2.10030- 4 3.50000- 2 3.43670- 11261 215102415 + 2.80000+ 2 1.00000+ 0 0.00000+ 0 1.32550- 4 3.50000- 2 3.76650- 11261 215102416 + 2.90000+ 2 1.00000+ 0 0.00000+ 0 1.00490- 4 3.50000- 2 2.79550- 11261 215102417 + 3.00000+ 2 1.00000+ 0 0.00000+ 0 8.04120- 5 3.50000- 2 1.64170- 11261 215102418 + 3.15000+ 2 1.00000+ 0 0.00000+ 0 9.93160- 5 3.50000- 2 1.10210- 11261 215102419 + 3.30000+ 2 1.00000+ 0 0.00000+ 0 1.02550- 4 3.50000- 2 9.28000- 21261 215102420 + 3.45000+ 2 1.00000+ 0 0.00000+ 0 1.05360- 4 3.50000- 2 1.14110- 11261 215102421 + 3.60000+ 2 1.00000+ 0 0.00000+ 0 9.14460- 5 3.50000- 2 1.78790- 11261 215102422 + 4.50000+ 2 1.00000+ 0 0.00000+ 0 9.38350- 5 3.50000- 2 2.75830- 11261 215102423 + 5.20000+ 2 1.00000+ 0 0.00000+ 0 1.19740- 4 3.50000- 2 2.50740- 11261 215102424 + 5.65000+ 2 1.00000+ 0 0.00000+ 0 1.17420- 4 3.50000- 2 2.71070- 11261 215102425 + 6.10000+ 2 1.00000+ 0 0.00000+ 0 1.19960- 4 3.50000- 2 5.73260- 11261 215102426 + 6.20000+ 2 1.00000+ 0 0.00000+ 0 1.08250- 4 3.50000- 2 1.63820- 11261 215102427 + 6.30000+ 2 1.00000+ 0 0.00000+ 0 1.07080- 4 3.50000- 2 1.09010- 11261 215102428 + 6.40000+ 2 1.00000+ 0 0.00000+ 0 1.21530- 4 3.50000- 2 7.93410- 21261 215102429 + 6.50000+ 2 1.00000+ 0 0.00000+ 0 1.06410- 4 3.50000- 2 8.18770- 21261 215102430 + 6.60000+ 2 1.00000+ 0 0.00000+ 0 9.71680- 5 3.50000- 2 2.61370- 11261 215102431 + 7.10000+ 2 1.00000+ 0 0.00000+ 0 1.10460- 4 3.50000- 2 3.99450- 11261 215102432 + 7.25000+ 2 1.00000+ 0 0.00000+ 0 1.18950- 4 3.50000- 2 1.38830- 11261 215102433 + 7.40000+ 2 1.00000+ 0 0.00000+ 0 1.33780- 4 3.50000- 2 9.51020- 21261 215102434 + 7.55000+ 2 1.00000+ 0 0.00000+ 0 1.19360- 4 3.50000- 2 1.08760- 11261 215102435 + 7.70000+ 2 1.00000+ 0 0.00000+ 0 1.05120- 4 3.50000- 2 1.95020- 11261 215102436 + 8.80000+ 2 1.00000+ 0 0.00000+ 0 8.23530- 5 3.50000- 2 1.12040- 11261 215102437 + 9.10000+ 2 1.00000+ 0 0.00000+ 0 1.01800- 4 3.50000- 2 1.05890- 11261 215102438 + 9.90000+ 2 1.00000+ 0 0.00000+ 0 9.87800- 5 3.50000- 2 6.85400- 21261 215102439 + 1.08500+ 3 1.00000+ 0 0.00000+ 0 1.11530- 4 3.50000- 2 1.12760- 11261 215102440 + 1.18000+ 3 1.00000+ 0 0.00000+ 0 1.21420- 4 3.50000- 2 2.68370- 11261 215102441 + 1.22000+ 3 1.00000+ 0 0.00000+ 0 8.76240- 5 3.50000- 2 1.63160- 11261 215102442 + 1.30000+ 3 1.00000+ 0 0.00000+ 0 9.05640- 5 3.50000- 2 2.51910- 11261 215102443 + 1.40000+ 3 1.00000+ 0 0.00000+ 0 1.04460- 4 3.50000- 2 3.01480- 11261 215102444 + 1.43000+ 3 1.00000+ 0 0.00000+ 0 1.36560- 4 3.50000- 2 1.23720- 11261 215102445 + 1.45000+ 3 1.00000+ 0 0.00000+ 0 1.12210- 4 3.50000- 2 3.18100- 11261 215102446 + 1.46000+ 3 1.00000+ 0 0.00000+ 0 1.13910- 4 3.50000- 2 3.23260- 11261 215102447 + 1.48000+ 3 1.00000+ 0 0.00000+ 0 6.48210- 5 3.50000- 2 8.24890- 21261 215102448 + 1.50000+ 3 1.00000+ 0 0.00000+ 0 7.06600- 5 3.50000- 2 9.67130- 21261 215102449 + 1.54500+ 3 1.00000+ 0 0.00000+ 0 8.61440- 5 3.50000- 2 1.42210- 11261 215102450 + 1.59000+ 3 1.00000+ 0 0.00000+ 0 1.01950- 4 3.50000- 2 2.57170- 11261 215102451 + 1.70000+ 3 1.00000+ 0 0.00000+ 0 9.50540- 5 3.50000- 2 2.56830- 11261 215102452 + 1.90000+ 3 1.00000+ 0 0.00000+ 0 9.42740- 5 3.50000- 2 1.45870- 11261 215102453 + 1.91000+ 3 1.00000+ 0 0.00000+ 0 1.12390- 4 3.50000- 2 2.08240- 11261 215102454 + 2.00000+ 3 1.00000+ 0 0.00000+ 0 1.07740- 4 3.50000- 2 1.57410- 11261 215102455 + 2.10000+ 3 1.00000+ 0 0.00000+ 0 8.51820- 5 3.50000- 2 1.58240- 11261 215102456 + 2.30000+ 3 1.00000+ 0 0.00000+ 0 9.07300- 5 3.50000- 2 1.72920- 11261 215102457 + 2.50000+ 3 1.00000+ 0 0.00000+ 0 9.61070- 5 3.50000- 2 2.71440- 11261 215102458 + 2.70000+ 3 1.00000+ 0 0.00000+ 0 8.47000- 5 3.50000- 2 2.65580- 11261 215102459 + 3.20000+ 3 1.00000+ 0 0.00000+ 0 9.80450- 5 3.50000- 2 2.04690- 11261 215102460 + 3.30000+ 3 1.00000+ 0 0.00000+ 0 9.33890- 5 3.50000- 2 2.19840- 11261 215102461 + 3.40000+ 3 1.00000+ 0 0.00000+ 0 8.83210- 5 3.50000- 2 3.36890- 11261 215102462 + 3.75000+ 3 1.00000+ 0 0.00000+ 0 9.26660- 5 3.50000- 2 2.11180- 11261 215102463 + 4.10000+ 3 1.00000+ 0 0.00000+ 0 9.70370- 5 3.50000- 2 1.84270- 11261 215102464 + 4.30000+ 3 1.00000+ 0 0.00000+ 0 1.10610- 4 3.50000- 2 3.01960- 11261 215102465 + 4.40000+ 3 1.00000+ 0 0.00000+ 0 9.69410- 5 3.50000- 2 2.62790- 11261 215102466 + 4.80000+ 3 1.00000+ 0 0.00000+ 0 9.15780- 5 3.50000- 2 1.65730- 11261 215102467 + 4.90000+ 3 1.00000+ 0 0.00000+ 0 8.55750- 5 3.50000- 2 1.94620- 11261 215102468 + 5.00000+ 3 1.00000+ 0 0.00000+ 0 7.96470- 5 3.50000- 2 3.40590- 11261 215102469 + 5.10000+ 3 1.00000+ 0 0.00000+ 0 8.37500- 5 3.50000- 2 1.86630- 11261 215102470 + 5.20000+ 3 1.00000+ 0 0.00000+ 0 8.77990- 5 3.50000- 2 1.50420- 11261 215102471 + 5.25000+ 3 1.00000+ 0 0.00000+ 0 8.39960- 5 3.50000- 2 1.78450- 11261 215102472 + 5.30000+ 3 1.00000+ 0 0.00000+ 0 7.96350- 5 3.50000- 2 3.10540- 11261 215102473 + 5.60000+ 3 1.00000+ 0 0.00000+ 0 9.62420- 5 3.50000- 2 4.56410- 11261 215102474 + 5.65000+ 3 1.00000+ 0 0.00000+ 0 9.29350- 5 3.50000- 2 2.28320- 11261 215102475 + 5.70000+ 3 1.00000+ 0 0.00000+ 0 8.94860- 5 3.50000- 2 1.61680- 11261 215102476 + 5.90000+ 3 1.00000+ 0 0.00000+ 0 1.33320- 4 3.50000- 2 1.18590- 11261 215102477 + 6.00000+ 3 1.00000+ 0 0.00000+ 0 1.26590- 4 3.50000- 2 9.27300- 21261 215102478 + 6.10000+ 3 1.00000+ 0 0.00000+ 0 1.00030- 4 3.50000- 2 1.47480- 11261 215102479 + 6.45000+ 3 1.00000+ 0 0.00000+ 0 9.31220- 5 3.50000- 2 1.46640- 11261 215102480 + 6.80000+ 3 1.00000+ 0 0.00000+ 0 8.81710- 5 3.50000- 2 2.12710- 11261 215102481 + 7.00000+ 3 1.00000+ 0 0.00000+ 0 9.88980- 5 3.50000- 2 2.81550- 11261 215102482 + 7.20000+ 3 1.00000+ 0 0.00000+ 0 9.34120- 5 3.50000- 2 1.69930- 11261 215102483 + 8.10000+ 3 1.00000+ 0 0.00000+ 0 9.12470- 5 3.50000- 2 1.33460- 11261 215102484 + 8.30000+ 3 1.00000+ 0 0.00000+ 0 1.06630- 4 3.50000- 2 9.20100- 21261 215102485 + 8.50000+ 3 1.00000+ 0 0.00000+ 0 1.11150- 4 3.50000- 2 9.28750- 21261 215102486 + 8.70000+ 3 1.00000+ 0 0.00000+ 0 1.15650- 4 3.50000- 2 1.50940- 11261 215102487 + 9.00000+ 3 1.00000+ 0 0.00000+ 0 7.53250- 5 3.50000- 2 2.18850- 11261 215102488 + 9.20000+ 3 1.00000+ 0 0.00000+ 0 1.06520- 4 3.50000- 2 1.76620- 11261 215102489 + 1.04000+ 4 1.00000+ 0 0.00000+ 0 9.42420- 5 3.50000- 2 1.40870- 11261 215102490 + 1.14000+ 4 1.00000+ 0 0.00000+ 0 1.00690- 4 3.50000- 2 1.74400- 11261 215102491 + 1.17000+ 4 1.00000+ 0 0.00000+ 0 8.02840- 5 3.50000- 2 1.28210- 11261 215102492 + 1.19000+ 4 1.00000+ 0 0.00000+ 0 1.10500- 4 3.50000- 2 2.59450- 11261 215102493 + 1.20000+ 4 1.00000+ 0 0.00000+ 0 8.91740- 5 3.50000- 2 1.70180- 11261 215102494 + 1.22000+ 4 1.00000+ 0 0.00000+ 0 1.01990- 4 3.50000- 2 1.41560- 11261 215102495 + 1.23000+ 4 1.00000+ 0 0.00000+ 0 9.06700- 5 3.50000- 2 1.10210- 11261 215102496 + 1.27000+ 4 1.00000+ 0 0.00000+ 0 8.26830- 5 3.50000- 2 1.45850- 11261 215102497 + 1.33000+ 4 1.00000+ 0 0.00000+ 0 1.02600- 4 3.50000- 2 2.59480- 11261 215102498 + 1.36000+ 4 1.00000+ 0 0.00000+ 0 9.14730- 5 3.50000- 2 2.04430- 11261 215102499 + 1.44000+ 4 1.00000+ 0 0.00000+ 0 8.71050- 5 3.50000- 2 1.80090- 11261 215102500 + 1.50000+ 4 1.00000+ 0 0.00000+ 0 9.52620- 5 3.50000- 2 3.16010- 11261 215102501 + 1.51000+ 4 1.00000+ 0 0.00000+ 0 7.29240- 5 3.50000- 2 1.88430- 11261 215102502 + 1.64000+ 4 1.00000+ 0 0.00000+ 0 9.65410- 5 3.50000- 2 1.78500- 11261 215102503 + 1.75000+ 4 1.00000+ 0 0.00000+ 0 8.26020- 5 3.50000- 2 1.10750- 11261 215102504 + 1.76000+ 4 1.00000+ 0 0.00000+ 0 9.04410- 5 3.50000- 2 1.70470- 11261 215102505 + 1.84000+ 4 1.00000+ 0 0.00000+ 0 8.94370- 5 3.50000- 2 1.98530- 11261 215102506 + 1.92000+ 4 1.00000+ 0 0.00000+ 0 9.61100- 5 3.50000- 2 3.56380- 11261 215102507 + 1.93000+ 4 1.00000+ 0 0.00000+ 0 8.08450- 5 3.50000- 2 2.57350- 11261 215102508 + 1.99000+ 4 1.00000+ 0 0.00000+ 0 8.58590- 5 3.50000- 2 2.80680- 11261 215102509 + 2.00000+ 4 1.00000+ 0 0.00000+ 0 1.10670- 4 3.50000- 2 3.71620- 11261 215102510 + 2.02000+ 4 1.00000+ 0 0.00000+ 0 9.09130- 5 3.50000- 2 1.59520- 11261 215102511 + 2.04000+ 4 1.00000+ 0 0.00000+ 0 8.40880- 5 3.50000- 2 1.00230- 11261 215102512 + 2.10000+ 4 1.00000+ 0 0.00000+ 0 1.01040- 4 3.50000- 2 1.31430- 11261 215102513 + 2.12000+ 4 1.00000+ 0 0.00000+ 0 7.49290- 5 3.50000- 2 1.24900- 11261 215102514 + 2.17000+ 4 1.00000+ 0 0.00000+ 0 8.81570- 5 3.50000- 2 1.86820- 11261 215102515 + 2.22000+ 4 1.00000+ 0 0.00000+ 0 1.01200- 4 3.50000- 2 3.65900- 11261 215102516 + 2.23000+ 4 1.00000+ 0 0.00000+ 0 1.26510- 4 3.50000- 2 5.01990- 11261 215102517 + 2.24000+ 4 1.00000+ 0 0.00000+ 0 9.42250- 5 3.50000- 2 2.84750- 11261 215102518 + 2.28000+ 4 1.00000+ 0 0.00000+ 0 8.68720- 5 3.50000- 2 1.57390- 11261 215102519 + 2.32000+ 4 1.00000+ 0 0.00000+ 0 7.91090- 5 3.50000- 2 1.18230- 11261 215102520 + 2.34000+ 4 1.00000+ 0 0.00000+ 0 8.62980- 5 3.50000- 2 1.49700- 11261 215102521 + 2.42000+ 4 1.00000+ 0 0.00000+ 0 9.46010- 5 3.50000- 2 1.54750- 11261 215102522 + 2.44000+ 4 1.00000+ 0 0.00000+ 0 1.00270- 4 3.50000- 2 2.81160- 11261 215102523 + 2.46000+ 4 1.00000+ 0 0.00000+ 0 7.99750- 5 3.50000- 2 2.89600- 11261 215102524 + 2.50000+ 4 1.00000+ 0 0.00000+ 0 8.55930- 5 3.50000- 2 2.35080- 11261 215102525 + 2.33025+ 2 0.00000+ 0 1 0 4 01261 215102526 + 2.00000+ 0 0.00000+ 0 2 0 726 1201261 215102527 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 1.00000+ 0 0.00000+ 0 2.00000+ 01261 215102528 + 8.20000+ 1 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102529 + 8.65000+ 1 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102530 + 9.10000+ 1 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102531 + 9.55000+ 1 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102532 + 1.00000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102533 + 1.10000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102534 + 1.20000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102535 + 1.80000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102536 + 2.40000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102537 + 2.60000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102538 + 2.80000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102539 + 2.90000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102540 + 3.00000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102541 + 3.15000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102542 + 3.30000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102543 + 3.45000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102544 + 3.60000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102545 + 4.50000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102546 + 5.20000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102547 + 5.65000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102548 + 6.10000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102549 + 6.20000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102550 + 6.30000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102551 + 6.40000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102552 + 6.50000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102553 + 6.60000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102554 + 7.10000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102555 + 7.25000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102556 + 7.40000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102557 + 7.55000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102558 + 7.70000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102559 + 8.80000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102560 + 9.10000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102561 + 9.90000+ 2 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102562 + 1.08500+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102563 + 1.18000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102564 + 1.22000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102565 + 1.30000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102566 + 1.40000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102567 + 1.43000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102568 + 1.45000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102569 + 1.46000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102570 + 1.48000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102571 + 1.50000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102572 + 1.54500+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102573 + 1.59000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102574 + 1.70000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102575 + 1.90000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102576 + 1.91000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102577 + 2.00000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102578 + 2.10000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102579 + 2.30000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102580 + 2.50000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102581 + 2.70000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102582 + 3.20000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102583 + 3.30000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102584 + 3.40000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102585 + 3.75000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102586 + 4.10000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102587 + 4.30000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102588 + 4.40000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102589 + 4.80000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102590 + 4.90000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102591 + 5.00000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102592 + 5.10000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102593 + 5.20000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102594 + 5.25000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102595 + 5.30000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102596 + 5.60000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102597 + 5.65000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102598 + 5.70000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102599 + 5.90000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102600 + 6.00000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102601 + 6.10000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102602 + 6.45000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102603 + 6.80000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102604 + 7.00000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102605 + 7.20000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102606 + 8.10000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102607 + 8.30000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102608 + 8.50000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102609 + 8.70000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102610 + 9.00000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102611 + 9.20000+ 3 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102612 + 1.04000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102613 + 1.14000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102614 + 1.17000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102615 + 1.19000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102616 + 1.20000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102617 + 1.22000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102618 + 1.23000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102619 + 1.27000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102620 + 1.33000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102621 + 1.36000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102622 + 1.44000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102623 + 1.50000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102624 + 1.51000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102625 + 1.64000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102626 + 1.75000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102627 + 1.76000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102628 + 1.84000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102629 + 1.92000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102630 + 1.93000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102631 + 1.99000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102632 + 2.00000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102633 + 2.02000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102634 + 2.04000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102635 + 2.10000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102636 + 2.12000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102637 + 2.17000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102638 + 2.22000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102639 + 2.23000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102640 + 2.24000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102641 + 2.28000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102642 + 2.32000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102643 + 2.34000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102644 + 2.42000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102645 + 2.44000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102646 + 2.46000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102647 + 2.50000+ 4 1.16000+ 0 0.00000+ 0 2.32000- 4 3.50000- 2 3.32000- 11261 215102648 + 3.00000+ 0 0.00000+ 0 2 0 726 1201261 215102649 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 2.00000+ 0 0.00000+ 0 1.00000+ 01261 215102650 + 8.20000+ 1 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102651 + 8.65000+ 1 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102652 + 9.10000+ 1 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102653 + 9.55000+ 1 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102654 + 1.00000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102655 + 1.10000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102656 + 1.20000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102657 + 1.80000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102658 + 2.40000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102659 + 2.60000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102660 + 2.80000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102661 + 2.90000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102662 + 3.00000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102663 + 3.15000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102664 + 3.30000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102665 + 3.45000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102666 + 3.60000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102667 + 4.50000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102668 + 5.20000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102669 + 5.65000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102670 + 6.10000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102671 + 6.20000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102672 + 6.30000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102673 + 6.40000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102674 + 6.50000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102675 + 6.60000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102676 + 7.10000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102677 + 7.25000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102678 + 7.40000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102679 + 7.55000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102680 + 7.70000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102681 + 8.80000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102682 + 9.10000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102683 + 9.90000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102684 + 1.08500+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102685 + 1.18000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102686 + 1.22000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102687 + 1.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102688 + 1.40000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102689 + 1.43000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102690 + 1.45000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102691 + 1.46000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102692 + 1.48000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102693 + 1.50000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102694 + 1.54500+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102695 + 1.59000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102696 + 1.70000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102697 + 1.90000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102698 + 1.91000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102699 + 2.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102700 + 2.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102701 + 2.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102702 + 2.50000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102703 + 2.70000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102704 + 3.20000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102705 + 3.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102706 + 3.40000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102707 + 3.75000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102708 + 4.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102709 + 4.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102710 + 4.40000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102711 + 4.80000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102712 + 4.90000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102713 + 5.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102714 + 5.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102715 + 5.20000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102716 + 5.25000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102717 + 5.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102718 + 5.60000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102719 + 5.65000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102720 + 5.70000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102721 + 5.90000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102722 + 6.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102723 + 6.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102724 + 6.45000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102725 + 6.80000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102726 + 7.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102727 + 7.20000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102728 + 8.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102729 + 8.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102730 + 8.50000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102731 + 8.70000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102732 + 9.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102733 + 9.20000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102734 + 1.04000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102735 + 1.14000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102736 + 1.17000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102737 + 1.19000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102738 + 1.20000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102739 + 1.22000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102740 + 1.23000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102741 + 1.27000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102742 + 1.33000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102743 + 1.36000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102744 + 1.44000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102745 + 1.50000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102746 + 1.51000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102747 + 1.64000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102748 + 1.75000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102749 + 1.76000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102750 + 1.84000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102751 + 1.92000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102752 + 1.93000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102753 + 1.99000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102754 + 2.00000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102755 + 2.02000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102756 + 2.04000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102757 + 2.10000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102758 + 2.12000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102759 + 2.17000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102760 + 2.22000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102761 + 2.23000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102762 + 2.24000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102763 + 2.28000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102764 + 2.32000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102765 + 2.34000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102766 + 2.42000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102767 + 2.44000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102768 + 2.46000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102769 + 2.50000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 1.27000- 11261 215102770 + 4.00000+ 0 0.00000+ 0 2 0 726 1201261 215102771 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 2.00000+ 0 0.00000+ 0 2.00000+ 01261 215102772 + 8.20000+ 1 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102773 + 8.65000+ 1 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102774 + 9.10000+ 1 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102775 + 9.55000+ 1 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102776 + 1.00000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102777 + 1.10000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102778 + 1.20000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102779 + 1.80000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102780 + 2.40000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102781 + 2.60000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102782 + 2.80000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102783 + 2.90000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102784 + 3.00000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102785 + 3.15000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102786 + 3.30000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102787 + 3.45000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102788 + 3.60000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102789 + 4.50000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102790 + 5.20000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102791 + 5.65000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102792 + 6.10000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102793 + 6.20000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102794 + 6.30000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102795 + 6.40000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102796 + 6.50000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102797 + 6.60000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102798 + 7.10000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102799 + 7.25000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102800 + 7.40000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102801 + 7.55000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102802 + 7.70000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102803 + 8.80000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102804 + 9.10000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102805 + 9.90000+ 2 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102806 + 1.08500+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102807 + 1.18000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102808 + 1.22000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102809 + 1.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102810 + 1.40000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102811 + 1.43000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102812 + 1.45000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102813 + 1.46000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102814 + 1.48000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102815 + 1.50000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102816 + 1.54500+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102817 + 1.59000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102818 + 1.70000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102819 + 1.90000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102820 + 1.91000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102821 + 2.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102822 + 2.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102823 + 2.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102824 + 2.50000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102825 + 2.70000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102826 + 3.20000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102827 + 3.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102828 + 3.40000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102829 + 3.75000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102830 + 4.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102831 + 4.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102832 + 4.40000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102833 + 4.80000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102834 + 4.90000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102835 + 5.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102836 + 5.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102837 + 5.20000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102838 + 5.25000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102839 + 5.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102840 + 5.60000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102841 + 5.65000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102842 + 5.70000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102843 + 5.90000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102844 + 6.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102845 + 6.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102846 + 6.45000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102847 + 6.80000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102848 + 7.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102849 + 7.20000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102850 + 8.10000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102851 + 8.30000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102852 + 8.50000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102853 + 8.70000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102854 + 9.00000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102855 + 9.20000+ 3 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102856 + 1.04000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102857 + 1.14000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102858 + 1.17000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102859 + 1.19000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102860 + 1.20000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102861 + 1.22000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102862 + 1.23000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102863 + 1.27000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102864 + 1.33000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102865 + 1.36000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102866 + 1.44000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102867 + 1.50000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102868 + 1.51000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102869 + 1.64000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102870 + 1.75000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102871 + 1.76000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102872 + 1.84000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102873 + 1.92000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102874 + 1.93000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102875 + 1.99000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102876 + 2.00000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102877 + 2.02000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102878 + 2.04000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102879 + 2.10000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102880 + 2.12000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102881 + 2.17000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102882 + 2.22000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102883 + 2.23000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102884 + 2.24000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102885 + 2.28000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102886 + 2.32000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102887 + 2.34000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102888 + 2.42000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102889 + 2.44000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102890 + 2.46000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102891 + 2.50000+ 4 1.00000+ 0 0.00000+ 0 2.00000- 4 3.50000- 2 2.86000- 11261 215102892 + 5.00000+ 0 0.00000+ 0 2 0 726 1201261 215102893 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 1.00000+ 0 0.00000+ 0 1.00000+ 01261 215102894 + 8.20000+ 1 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102895 + 8.65000+ 1 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102896 + 9.10000+ 1 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102897 + 9.55000+ 1 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102898 + 1.00000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102899 + 1.10000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102900 + 1.20000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102901 + 1.80000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102902 + 2.40000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102903 + 2.60000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102904 + 2.80000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102905 + 2.90000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102906 + 3.00000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102907 + 3.15000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102908 + 3.30000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102909 + 3.45000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102910 + 3.60000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102911 + 4.50000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102912 + 5.20000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102913 + 5.65000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102914 + 6.10000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102915 + 6.20000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102916 + 6.30000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102917 + 6.40000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102918 + 6.50000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102919 + 6.60000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102920 + 7.10000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102921 + 7.25000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102922 + 7.40000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102923 + 7.55000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102924 + 7.70000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102925 + 8.80000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102926 + 9.10000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102927 + 9.90000+ 2 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102928 + 1.08500+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102929 + 1.18000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102930 + 1.22000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102931 + 1.30000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102932 + 1.40000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102933 + 1.43000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102934 + 1.45000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102935 + 1.46000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102936 + 1.48000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102937 + 1.50000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102938 + 1.54500+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102939 + 1.59000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102940 + 1.70000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102941 + 1.90000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102942 + 1.91000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102943 + 2.00000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102944 + 2.10000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102945 + 2.30000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102946 + 2.50000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102947 + 2.70000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102948 + 3.20000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102949 + 3.30000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102950 + 3.40000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102951 + 3.75000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102952 + 4.10000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102953 + 4.30000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102954 + 4.40000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102955 + 4.80000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102956 + 4.90000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102957 + 5.00000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102958 + 5.10000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102959 + 5.20000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102960 + 5.25000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102961 + 5.30000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102962 + 5.60000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102963 + 5.65000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102964 + 5.70000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102965 + 5.90000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102966 + 6.00000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102967 + 6.10000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102968 + 6.45000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102969 + 6.80000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102970 + 7.00000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102971 + 7.20000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102972 + 8.10000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102973 + 8.30000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102974 + 8.50000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102975 + 8.70000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102976 + 9.00000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102977 + 9.20000+ 3 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102978 + 1.04000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102979 + 1.14000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102980 + 1.17000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102981 + 1.19000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102982 + 1.20000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102983 + 1.22000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102984 + 1.23000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102985 + 1.27000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102986 + 1.33000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102987 + 1.36000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102988 + 1.44000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102989 + 1.50000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102990 + 1.51000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102991 + 1.64000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102992 + 1.75000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102993 + 1.76000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102994 + 1.84000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102995 + 1.92000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102996 + 1.93000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102997 + 1.99000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102998 + 2.00000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215102999 + 2.02000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103000 + 2.04000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103001 + 2.10000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103002 + 2.12000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103003 + 2.17000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103004 + 2.22000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103005 + 2.23000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103006 + 2.24000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103007 + 2.28000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103008 + 2.32000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103009 + 2.34000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103010 + 2.42000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103011 + 2.44000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103012 + 2.46000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103013 + 2.50000+ 4 1.12000+ 0 0.00000+ 0 2.24000- 4 3.50000- 2 1.43000- 11261 215103014 + 1261 200003015 + 1261 000003016 + 9.22350+ 4 2.33025+ 2 0 99 0 01261 300103017 + 0.00000+ 0 0.00000+ 0 0 0 3 11541261 300103018 + 239 5 822 2 1154 31261 300103019 + 1.00000- 5 3.67479+ 4 2.12500- 5 2.52034+ 4 4.09380- 5 1.81562+ 41261 300103020 + 7.04690- 5 1.38382+ 4 1.00000- 4 1.16168+ 4 1.50000- 4 9.48589+ 31261 300103021 + 1.93750- 4 8.34719+ 3 2.70310- 4 7.06804+ 3 3.85160- 4 5.92259+ 31261 300103022 + 5.00000- 4 5.19931+ 3 6.25000- 4 4.65149+ 3 8.12500- 4 4.08096+ 31261 300103023 + 1.00000- 3 3.67965+ 3 1.25000- 3 3.28818+ 3 1.43750- 3 3.06459+ 31261 300103024 + 1.71880- 3 2.80078+ 3 2.00000- 3 2.59508+ 3 2.25000- 3 2.44573+ 31261 300103025 + 2.62500- 3 2.26326+ 3 3.00000- 3 2.11631+ 3 3.00000- 3 2.11631+ 31261 300103026 + 3.50000- 3 1.95857+ 3 4.00000- 3 1.83154+ 3 4.50000- 3 1.72640+ 31261 300103027 + 5.00000- 3 1.63751+ 3 5.50000- 3 1.55928+ 3 6.00000- 3 1.49115+ 31261 300103028 + 6.00000- 3 1.49115+ 3 7.00000- 3 1.37775+ 3 8.00000- 3 1.28659+ 31261 300103029 + 9.00000- 3 1.21126+ 3 9.00000- 3 1.21126+ 3 1.00000- 2 1.14766+ 31261 300103030 + 1.10000- 2 1.09141+ 3 1.20000- 2 1.04250+ 3 1.30000- 2 9.99474+ 21261 300103031 + 1.40000- 2 9.61246+ 2 1.50000- 2 9.26992+ 2 1.60000- 2 8.95410+ 21261 300103032 + 1.70000- 2 8.66740+ 2 1.80000- 2 8.40566+ 2 1.90000- 2 8.16547+ 21261 300103033 + 2.00000- 2 7.94406+ 2 2.10000- 2 7.73475+ 2 2.20000- 2 7.54042+ 21261 300103034 + 2.30000- 2 7.35937+ 2 2.40000- 2 7.19018+ 2 2.50000- 2 7.03165+ 21261 300103035 + 2.53000- 2 6.98600+ 2 2.60000- 2 6.88070+ 2 2.70000- 2 6.73776+ 21261 300103036 + 2.80000- 2 6.60290+ 2 2.90000- 2 6.47537+ 2 3.00000- 2 6.35458+ 21261 300103037 + 3.10000- 2 6.23802+ 2 3.20000- 2 6.12725+ 2 3.30000- 2 6.02182+ 21261 300103038 + 3.40000- 2 5.92130+ 2 3.50000- 2 5.82534+ 2 3.60000- 2 5.73208+ 21261 300103039 + 3.70000- 2 5.64284+ 2 3.80000- 2 5.55735+ 2 3.90000- 2 5.47535+ 21261 300103040 + 4.00000- 2 5.39663+ 2 4.10000- 2 5.31992+ 2 4.20000- 2 5.24614+ 21261 300103041 + 4.30000- 2 5.17509+ 2 4.40000- 2 5.10665+ 2 4.50000- 2 5.04064+ 21261 300103042 + 4.60000- 2 4.97581+ 2 4.70000- 2 4.91321+ 2 4.80000- 2 4.85272+ 21261 300103043 + 4.90000- 2 4.79421+ 2 5.00000- 2 4.73759+ 2 5.10000- 2 4.68200+ 21261 300103044 + 5.20000- 2 4.62813+ 2 5.30000- 2 4.57592+ 2 5.40000- 2 4.52527+ 21261 300103045 + 5.50000- 2 4.47611+ 2 5.60000- 2 4.42780+ 2 5.70000- 2 4.38085+ 21261 300103046 + 5.80000- 2 4.33524+ 2 5.90000- 2 4.29088+ 2 6.00000- 2 4.24772+ 21261 300103047 + 6.10000- 2 4.20532+ 2 6.20000- 2 4.16403+ 2 6.30000- 2 4.12382+ 21261 300103048 + 6.40000- 2 4.08462+ 2 6.50000- 2 4.04642+ 2 6.60000- 2 4.00886+ 21261 300103049 + 6.70000- 2 3.97222+ 2 6.80000- 2 3.93646+ 2 6.90000- 2 3.90156+ 21261 300103050 + 7.00000- 2 3.86747+ 2 7.10000- 2 3.83404+ 2 7.20000- 2 3.80137+ 21261 300103051 + 7.30000- 2 3.76944+ 2 7.40000- 2 3.73821+ 2 7.50000- 2 3.70766+ 21261 300103052 + 7.60000- 2 3.67850+ 2 7.70000- 2 3.64995+ 2 7.80000- 2 3.62200+ 21261 300103053 + 7.90000- 2 3.59462+ 2 8.00000- 2 3.56779+ 2 8.10000- 2 3.54114+ 21261 300103054 + 8.20000- 2 3.51502+ 2 8.30000- 2 3.48942+ 2 8.40000- 2 3.46431+ 21261 300103055 + 8.50000- 2 3.43969+ 2 8.60000- 2 3.41561+ 2 8.70000- 2 3.39198+ 21261 300103056 + 8.80000- 2 3.36879+ 2 8.90000- 2 3.34602+ 2 9.00000- 2 3.32367+ 21261 300103057 + 9.10000- 2 3.30191+ 2 9.20000- 2 3.28053+ 2 9.30000- 2 3.25953+ 21261 300103058 + 9.40000- 2 3.23889+ 2 9.50000- 2 3.21860+ 2 9.60000- 2 3.19910+ 21261 300103059 + 9.70000- 2 3.17993+ 2 9.80000- 2 3.16107+ 2 9.90000- 2 3.14251+ 21261 300103060 + 1.00000- 1 3.12427+ 2 1.05000- 1 3.03737+ 2 1.10000- 1 2.95687+ 21261 300103061 + 1.15000- 1 2.88206+ 2 1.20000- 1 2.81228+ 2 1.25000- 1 2.74811+ 21261 300103062 + 1.30000- 1 2.68789+ 2 1.40000- 1 2.58323+ 2 1.45000- 1 2.54315+ 21261 300103063 + 1.50000- 1 2.50504+ 2 1.55000- 1 2.47105+ 2 1.60000- 1 2.43860+ 21261 300103064 + 1.70000- 1 2.38462+ 2 1.80000- 1 2.34237+ 2 1.85840- 1 2.33541+ 21261 300103065 + 1.90210- 1 2.33034+ 2 1.96780- 1 2.32296+ 2 2.03340- 1 2.31584+ 21261 300103066 + 2.03340- 1 2.31584+ 2 2.08340- 1 2.32430+ 2 2.15840- 1 2.33666+ 21261 300103067 + 2.23340- 1 2.34866+ 2 2.43340- 1 2.43085+ 2 2.53340- 1 2.48000+ 21261 300103068 + 2.63340- 1 2.52823+ 2 2.83340- 1 2.59052+ 2 2.93340- 1 2.55408+ 21261 300103069 + 3.03340- 1 2.51938+ 2 3.08340- 1 2.45562+ 2 3.12090- 1 2.40958+ 21261 300103070 + 3.15840- 1 2.36499+ 2 3.19590- 1 2.32178+ 2 3.23340- 1 2.27991+ 21261 300103071 + 3.28340- 1 2.20564+ 2 3.32090- 1 2.15233+ 2 3.34900- 1 2.11367+ 21261 300103072 + 3.37710- 1 2.07607+ 2 3.40530- 1 2.03936+ 2 3.43340- 1 2.00376+ 21261 300103073 + 3.45840- 1 1.97587+ 2 3.50210- 1 1.92857+ 2 3.53500- 1 1.89414+ 21261 300103074 + 3.58420- 1 1.84445+ 2 3.63340- 1 1.79681+ 2 3.65840- 1 1.77216+ 21261 300103075 + 3.68030- 1 1.75101+ 2 3.71860- 1 1.71495+ 2 3.74730- 1 1.68870+ 21261 300103076 + 3.76880- 1 1.66944+ 2 3.80110- 1 1.64116+ 2 3.83340- 1 1.61363+ 21261 300103077 + 3.85840- 1 1.59401+ 2 3.90220- 1 1.56056+ 2 3.93500- 1 1.53625+ 21261 300103078 + 3.98420- 1 1.50092+ 2 4.03340- 1 1.46688+ 2 4.06440- 1 1.44734+ 21261 300103079 + 4.11860- 1 1.41419+ 2 4.15920- 1 1.39018+ 2 4.18970- 1 1.37259+ 21261 300103080 + 4.23550- 1 1.34687+ 2 4.28120- 1 1.32199+ 2 4.32720- 1 1.30103+ 21261 300103081 + 4.37320- 1 1.28065+ 2 4.44220- 1 1.25113+ 2 4.49400- 1 1.22975+ 21261 300103082 + 4.54570- 1 1.20905+ 2 4.59750- 1 1.18892+ 2 4.64920- 1 1.16942+ 21261 300103083 + 4.74920- 1 1.13838+ 2 4.82420- 1 1.11611+ 2 4.89920- 1 1.09466+ 21261 300103084 + 4.97420- 1 1.07398+ 2 5.04920- 1 1.05403+ 2 5.04920- 1 1.05403+ 21261 300103085 + 5.14920- 1 1.03111+ 2 5.22420- 1 1.01456+ 2 5.29920- 1 9.98542+ 11261 300103086 + 5.37420- 1 9.83022+ 1 5.44920- 1 9.67981+ 1 5.44920- 1 9.67981+ 11261 300103087 + 5.54920- 1 9.50805+ 1 5.64920- 1 9.34265+ 1 5.74920- 1 9.18327+ 11261 300103088 + 5.84920- 1 9.02959+ 1 5.84920- 1 9.02959+ 1 5.94920- 1 8.90229+ 11261 300103089 + 6.04920- 1 8.77905+ 1 6.24920- 1 8.54395+ 1 6.24920- 1 8.54395+ 11261 300103090 + 6.44920- 1 8.35194+ 1 6.64920- 1 8.17028+ 1 6.64920- 1 8.17028+ 11261 300103091 + 6.84920- 1 8.01889+ 1 7.04920- 1 7.87472+ 1 7.04920- 1 7.87472+ 11261 300103092 + 7.44920- 1 7.64901+ 1 7.44920- 1 7.64901+ 1 7.84920- 1 7.50117+ 11261 300103093 + 8.24920- 1 7.44141+ 1 8.44920- 1 7.46854+ 1 8.64920- 1 7.49509+ 11261 300103094 + 8.84920- 1 7.59784+ 1 9.04920- 1 7.69999+ 1 9.14920- 1 7.79374+ 11261 300103095 + 9.29920- 1 7.93507+ 1 9.44920- 1 8.07723+ 1 9.49920- 1 8.14982+ 11261 300103096 + 9.58670- 1 8.27784+ 1 9.65230- 1 8.37463+ 1 9.70150- 1 8.44769+ 11261 300103097 + 9.77540- 1 8.55817+ 1 9.84920- 1 8.66940+ 1 9.88690- 1 8.76208+ 11261 300103098 + 9.94340- 1 8.90252+ 1 1.00000+ 0 9.04507+ 1 1.00000+ 0 9.63800+ 01261 300103099 + 1.03600+ 0 9.41382+ 0 1.05500+ 0 9.29550+ 0 1.07300+ 0 8.52700+ 01261 300103100 + 1.09100+ 0 7.19610+ 0 1.18200+ 0-1.91285+ 1 1.20000+ 0-2.30500+ 11261 300103101 + 1.21800+ 0-2.44459+ 1 1.23600+ 0-2.44662+ 1 1.32700+ 0-1.49745+ 11261 300103102 + 1.36400+ 0-1.28195+ 1 1.45500+ 0-8.88020+ 0 1.54500+ 0-6.70980+ 01261 300103103 + 1.63600+ 0-5.25670+ 0 1.72700+ 0-4.15820+ 0 1.81800+ 0-3.42100+ 01261 300103104 + 1.90900+ 0-2.66550+ 0 2.00000+ 0-2.56000+ 0 2.18200+ 0-1.91980+ 01261 300103105 + 2.36400+ 0-1.15200+ 0 2.45500+ 0-1.47840+ 0 2.54500+ 0-2.15980+ 01261 300103106 + 2.63600+ 0-3.90200+ 0 2.69100+ 0-3.16510+ 0 2.74500+ 0-2.25700+ 01261 300103107 + 2.80000+ 0 1.21000+ 0 2.81800+ 0 1.56920+ 0 2.85500+ 0 5.25700- 11261 300103108 + 2.92700+ 0-9.24500- 1 2.94500+ 0-9.74500- 1 3.01800+ 0 3.17640+ 01261 300103109 + 3.07200+ 0 3.35410+ 0 3.18200+ 0-3.67790+ 0 3.21800+ 0-3.45350+ 01261 300103110 + 3.27300+ 0-1.79080+ 0 3.36400+ 0 1.76150+ 0 3.45500+ 0 6.18410+ 01261 300103111 + 3.49100+ 0 6.84080+ 0 3.54500+ 0 6.69830+ 0 3.58200+ 0 3.70000- 31261 300103112 + 3.63600+ 0-4.65000- 2 3.69100+ 0-4.41050+ 0 3.72700+ 0-7.75150+ 01261 300103113 + 3.81800+ 0-6.80030+ 0 3.90900+ 0-5.71080+ 0 4.00000+ 0-4.72610+ 01261 300103114 + 4.09100+ 0-4.00010+ 0 4.18200+ 0-3.41310+ 0 4.36400+ 0-2.51660+ 01261 300103115 + 4.54500+ 0-2.31230+ 0 4.63600+ 0-7.81800- 1 4.72700+ 0 2.08940+ 01261 300103116 + 4.78200+ 0 1.06640+ 0 4.80000+ 0 8.40000- 1 4.83600+ 0 8.79100- 11261 300103117 + 4.85500+ 0-4.25620+ 0 4.89100+ 0-8.02670+ 0 4.90900+ 0-4.35440+ 01261 300103118 + 4.94500+ 0-3.04460+ 0 4.98100+ 0-2.58920+ 0 5.09100+ 0-2.49940+ 01261 300103119 + 5.14500+ 0-2.54320+ 0 5.18200+ 0-2.15800+ 0 5.27300+ 0-1.03410+ 01261 300103120 + 5.30900+ 0-6.40400- 1 5.54500+ 0-6.30000- 1 5.65500+ 0-1.73700+ 01261 300103121 + 5.72700+ 0-1.45710+ 0 5.81800+ 0-1.47600- 1 5.90900+ 0 1.45390+ 01261 300103122 + 6.00000+ 0 2.78000+ 0 6.09100+ 0 2.73820+ 0 6.16400+ 0 3.52140+ 01261 300103123 + 6.21800+ 0 1.80570+ 0 6.25500+ 0-1.34490+ 0 6.29100+ 0 2.92800- 11261 300103124 + 6.41800+ 0-3.83200- 1 6.45500+ 0-3.39480+ 0 6.49100+ 0-3.30610+ 01261 300103125 + 6.54500+ 0-2.52730+ 0 6.63600+ 0-4.61740+ 0 6.72700+ 0-3.99910+ 01261 300103126 + 6.81800+ 0-2.38160+ 0 6.98200+ 0 2.86000- 2 7.18200+ 0-2.72000- 11261 300103127 + 7.29100+ 0-3.83510+ 0 7.81800+ 0-3.98330+ 0 8.00000+ 0-2.24000+ 01261 300103128 + 8.18100+ 0-1.52000+ 0 8.36300+ 0 2.14300- 1 8.45300+ 0 6.21900- 11261 300103129 + 8.92500+ 0 2.73600- 1 9.01500+ 0 2.52068+ 1 9.05200+ 0 2.87582+ 11261 300103130 + 9.10600+ 0 2.88185+ 1 9.17900+ 0 1.39583+ 1 9.23300+ 0 1.75720+ 01261 300103131 + 9.30600+ 0-1.56170+ 0 9.36000+ 0-2.39000+ 0 9.43200+ 0 7.61860+ 01261 300103132 + 9.45100+ 0 9.37780+ 0 9.50500+ 0 9.01430+ 0 9.54100+ 0 7.96090+ 01261 300103133 + 9.70400+ 0-1.08300- 1 9.75900+ 0-2.21040+ 0 9.99500+ 0-2.31540+ 01261 300103134 + 1.00850+ 1-1.46230+ 0 1.01760+ 1-2.11800+ 0 1.02670+ 1-2.31740+ 01261 300103135 + 1.03390+ 1 1.20980+ 0 1.04300+ 1 1.98560+ 0 1.06290+ 1-5.84900- 11261 300103136 + 1.07200+ 1-2.40000- 1 1.08110+ 1 2.64400- 1 1.09370+ 1 1.29800- 11261 300103137 + 1.09920+ 1 7.53400- 1 1.12640+ 1 4.51810+ 0 1.14090+ 1 5.55940+ 01261 300103138 + 1.14450+ 1 5.92910+ 0 1.14810+ 1 5.85310+ 0 1.15540+ 1 6.38500- 11261 300103139 + 1.18620+ 1-6.35000- 1 1.18980+ 1 2.95560+ 0 1.20000+ 1 7.02000+ 01261 300103140 + 1.20910+ 1 1.11886+ 1 1.21450+ 1 1.52014+ 1 1.22000+ 1 1.36300+ 11261 300103141 + 1.23500+ 1 2.20000- 1 1.24910+ 1 1.28600- 1 1.25440+ 1-4.22500- 11261 300103142 + 1.40850+ 1 3.42500- 1 1.42670+ 1 2.93350+ 0 1.43570+ 1 5.69300+ 01261 300103143 + 1.44120+ 1 5.63190+ 0 1.44480+ 1 4.58860+ 0 1.46110+ 1-5.27130+ 01261 300103144 + 1.46470+ 1-4.74250+ 0 1.47370+ 1-2.69040+ 0 1.49010+ 1 3.59700- 11261 300103145 + 1.50000+ 1-1.99900- 1 1.50910+ 1 5.24300- 1 1.51820+ 1 5.71900- 11261 300103146 + 1.52730+ 1-2.58000- 2 1.53640+ 1 3.46200- 1 1.54550+ 1 2.30000- 21261 300103147 + 1.55450+ 1-1.66020+ 0 1.56360+ 1-1.66150+ 0 1.57270+ 1-1.85900- 11261 300103148 + 1.58180+ 1 9.29200- 1 1.59090+ 1 8.92300- 1 1.60000+ 1 2.70000- 11261 300103149 + 1.60910+ 1 4.00800- 1 1.61820+ 1-3.23600- 1 1.62730+ 1-2.44360+ 01261 300103150 + 1.63640+ 1-4.15600+ 0 1.64360+ 1-4.05630+ 0 1.64910+ 1-4.32370+ 01261 300103151 + 1.65450+ 1-4.18320+ 0 1.66360+ 1 3.37600- 1 1.67270+ 1 1.42000- 11261 300103152 + 1.68180+ 1 1.27330+ 0 1.69090+ 1 3.70940+ 0 1.69450+ 1 4.06730+ 01261 300103153 + 1.70000+ 1 3.36000+ 0 1.70910+ 1 3.02610+ 0 1.71810+ 1 1.95990+ 01261 300103154 + 1.72730+ 1 1.28500+ 0 1.73640+ 1 5.98800- 1 1.74550+ 1 6.44800- 11261 300103155 + 1.75450+ 1-1.52000- 2 1.76360+ 1 5.78000- 2 1.77270+ 1-2.00100- 11261 300103156 + 1.78180+ 1-6.64100- 1 1.79090+ 1-7.46000- 2 1.80910+ 1 5.63600- 11261 300103157 + 1.81820+ 1 1.80000- 3 1.82730+ 1-1.60400- 1 1.83640+ 1 3.42980+ 01261 300103158 + 1.84550+ 1 4.56460+ 0 1.85450+ 1 4.65460+ 0 1.86360+ 1 4.43210+ 01261 300103159 + 1.87270+ 1 2.82750+ 0 1.88180+ 1 2.07030+ 0 1.89090+ 1 2.18330+ 01261 300103160 + 1.90000+ 1 4.50000- 1 1.93810+ 1 3.55680+ 0 1.94360+ 1 3.42200+ 01261 300103161 + 1.94550+ 1 7.17320+ 0 1.94910+ 1 1.38094+ 1 1.95090+ 1 1.65331+ 11261 300103162 + 1.95270+ 1 1.74548+ 1 1.95450+ 1 1.64081+ 1 1.96180+ 1 1.10290+ 11261 300103163 + 1.96720+ 1 8.42540+ 0 1.97270+ 1 6.42320+ 0 1.98180+ 1 4.36820+ 01261 300103164 + 1.99090+ 1 2.67840+ 0 2.00000+ 1 7.20000- 1 2.00910+ 1-2.39100- 11261 300103165 + 2.02730+ 1-1.02960+ 0 2.03640+ 1-1.10080+ 0 2.04550+ 1-3.17900+ 01261 300103166 + 2.05450+ 1-7.16670+ 0 2.05820+ 1-7.02610+ 0 2.06360+ 1-3.60400+ 01261 300103167 + 2.06730+ 1-9.70500- 1 2.07270+ 1 3.84050+ 0 2.07640+ 1 5.94690+ 01261 300103168 + 2.08180+ 1 7.73990+ 0 2.09090+ 1 7.42070+ 0 2.10000+ 1 2.97000+ 01261 300103169 + 2.10360+ 1-1.62010+ 0 2.10910+ 1-7.07540+ 0 2.11270+ 1-1.46608+ 11261 300103170 + 2.11820+ 1-1.73899+ 1 2.12180+ 1-1.56290+ 1 2.12640+ 1-8.69740+ 01261 300103171 + 2.13640+ 1-3.87230+ 0 2.14000+ 1-3.96000+ 0 2.14550+ 1-3.66730+ 01261 300103172 + 2.15450+ 1-4.18000+ 0 2.17270+ 1-4.44070+ 0 2.19090+ 1-3.46800+ 01261 300103173 + 2.20910+ 1-2.69200+ 0 2.22730+ 1-1.53560+ 0 2.24550+ 1 7.00000- 21261 300103174 + 2.26360+ 1 1.62530+ 0 2.28180+ 1 3.69760+ 0 2.30000+ 1 1.73000+ 01261 300103175 + 2.31150+ 1 3.93850+ 0 2.32300+ 1 3.40750+ 0 2.34600+ 1-1.61000+ 01261 300103176 + 2.36900+ 1-2.22200+ 0 2.38740+ 1-2.67560+ 0 2.40110+ 1-7.02020+ 01261 300103177 + 2.41030+ 1-6.58010+ 0 2.43790+ 1 7.97400- 1 2.46090+ 1 7.63840+ 01261 300103178 + 2.48390+ 1 4.46840+ 0 2.50690+ 1-3.51000- 1 2.51610+ 1-4.29000- 11261 300103179 + 2.53450+ 1 9.61800- 1 2.55290+ 1-1.37430+ 0 2.55750+ 1-1.15850+ 01261 300103180 + 2.57130+ 1-2.43900- 1 2.58510+ 1-2.88510+ 0 2.60340+ 1-9.04990+ 01261 300103181 + 2.61260+ 1-9.60360+ 0 2.62180+ 1-6.88000+ 0 2.64480+ 1-1.06230+ 01261 300103182 + 2.65400+ 1-9.80000- 1 2.70000+ 1-7.60000- 1 2.71380+ 1-3.00300- 11261 300103183 + 2.73680+ 1-2.46700- 1 2.74140+ 1-2.40600- 1 2.75980+ 1-2.02300- 11261 300103184 + 2.78280+ 1-2.80000- 2 2.80570+ 1-3.18700- 1 2.82870+ 1-4.07400- 11261 300103185 + 2.84250+ 1-3.04500- 1 2.85170+ 1-3.50000- 1 2.87470+ 1 1.33000- 11261 300103186 + 2.89770+ 1 1.13020+ 0 2.92070+ 1 1.15010+ 0 2.94370+ 1 3.08100- 11261 300103187 + 2.96670+ 1-3.43000- 2 2.98970+ 1 6.29500- 1 3.00000+ 1 4.90000- 11261 300103188 + 3.02290+ 1 7.99600- 1 3.04570+ 1 3.51900- 1 3.06860+ 1 2.23100- 11261 300103189 + 3.07770+ 1 2.16000- 1 3.09140+ 1-3.77800- 1 3.09600+ 1-4.50000- 11261 300103190 + 3.10970+ 1-9.73000- 1 3.11430+ 1-1.21580+ 0 3.13710+ 1-9.05200- 11261 300103191 + 3.16000+ 1 7.20000- 1 3.16910+ 1 2.60800- 1 3.18290+ 1-2.94600- 11261 300103192 + 3.18740+ 1-9.88000- 1 3.19660+ 1 1.02670+ 0 3.20570+ 1 5.25500- 11261 300103193 + 3.21940+ 1-1.93100- 1 3.22860+ 1-6.45000- 1 3.25140+ 1-2.22890+ 01261 300103194 + 3.27430+ 1-2.39240+ 0 3.29710+ 1-6.74400- 1 3.32000+ 1-5.90000- 11261 300103195 + 3.35200+ 1 1.82000+ 0 3.36110+ 1-6.70200- 1 3.37490+ 1-8.59900- 11261 300103196 + 3.38860+ 1-2.26000- 1 3.41140+ 1 8.13600- 1 3.43430+ 1 2.20710+ 01261 300103197 + 3.44340+ 1-9.08010+ 0 3.44800+ 1 1.59100+ 1 3.45260+ 1 2.23261+ 11261 300103198 + 3.45710+ 1 2.61015+ 1 3.46170+ 1 2.28812+ 1 3.46630+ 1 1.23990+ 11261 300103199 + 3.47090+ 1 6.43020+ 0 3.47540+ 1 4.75210+ 0 3.48460+ 1 1.97820+ 01261 300103200 + 3.48910+ 1 3.37010+ 0 3.50290+ 1 3.92500- 1 3.52570+ 1 1.10360+ 11261 300103201 + 3.54860+ 1-1.80000- 2 3.57140+ 1 2.14430+ 0 3.59430+ 1 3.48900- 11261 300103202 + 3.66290+ 1-2.70000- 1 3.68570+ 1-1.16020+ 0 3.70860+ 1-1.81000+ 01261 300103203 + 3.73140+ 1-2.63500- 1 3.75430+ 1 5.30400- 1 3.77710+ 1 7.20000- 11261 300103204 + 3.80000+ 1 4.60000- 1 3.82290+ 1 5.87100- 1 3.84570+ 1 4.05800- 11261 300103205 + 3.86860+ 1-2.91000- 1 3.89140+ 1-3.26300- 1 3.91430+ 1-3.18900+ 01261 300103206 + 3.92340+ 1-3.19160+ 0 3.92800+ 1 3.24000+ 0 3.93710+ 1 4.12280+ 01261 300103207 + 3.95090+ 1 2.15200- 1 3.96000+ 1-4.70000- 1 3.96910+ 1-5.21000- 11261 300103208 + 3.98290+ 1-4.48700- 1 3.99660+ 1-1.63800- 1 4.01940+ 1-1.74800+ 01261 300103209 + 4.05140+ 1 1.87700- 1 4.06970+ 1 2.57690+ 0 4.07430+ 1 3.21510+ 01261 300103210 + 4.07890+ 1 3.33980+ 0 4.09710+ 1 2.37930+ 0 4.12000+ 1 1.60000- 11261 300103211 + 4.14290+ 1 3.10000- 2 4.15660+ 1-2.85850+ 0 4.16570+ 1-1.68580+ 01261 300103212 + 4.17940+ 1-1.16300+ 0 4.19770+ 1 2.08360+ 0 4.21140+ 1 1.10140+ 01261 300103213 + 4.22970+ 1-1.34950+ 0 4.23890+ 1 3.64500- 1 4.25710+ 1 8.23900- 11261 300103214 + 4.27090+ 1-1.24490+ 0 4.28000+ 1 7.70000- 1 4.28910+ 1 3.31450+ 01261 300103215 + 4.30290+ 1-1.55100- 1 4.32110+ 1-2.07970+ 0 4.33030+ 1-2.00710+ 01261 300103216 + 4.34860+ 1-4.05910+ 0 4.36690+ 1-2.34870+ 0 4.38060+ 1-1.38340+ 01261 300103217 + 4.40340+ 1 1.66150+ 0 4.41710+ 1 2.02290+ 0 4.44000+ 1-4.30000- 11261 300103218 + 4.46290+ 1 3.58000- 1 4.48570+ 1-1.05410+ 0 4.50860+ 1-4.74000- 11261 300103219 + 4.53140+ 1-9.43000- 1 4.55430+ 1-8.31100- 1 4.57710+ 1-1.05450+ 01261 300103220 + 4.60000+ 1-1.32000+ 0 4.61810+ 1-1.01000+ 0 4.63630+ 1-4.69900- 11261 300103221 + 4.65440+ 1 1.20100+ 0 4.67260+ 1 1.07750+ 0 4.72700+ 1-4.44400- 11261 300103222 + 4.74510+ 1 3.54900- 1 4.76330+ 1 2.74700+ 0 4.77410+ 1 3.33170+ 01261 300103223 + 4.78870+ 1 1.17680+ 0 4.79590+ 1 6.13100- 1 4.80680+ 1-3.85690+ 01261 300103224 + 4.81770+ 1-4.21300+ 0 4.82860+ 1-4.01700- 1 4.83950+ 1-2.69500- 11261 300103225 + 4.85400+ 1 5.35000+ 0 4.86120+ 1 6.19990+ 0 4.86850+ 1 5.39640+ 01261 300103226 + 4.88660+ 1-4.66870+ 0 4.89340+ 1-5.53180+ 0 4.90110+ 1-4.24920+ 01261 300103227 + 4.91200+ 1 2.40000- 1 4.91930+ 1 3.07600- 1 4.93380+ 1-1.06170+ 01261 300103228 + 4.95560+ 1 2.99570+ 0 4.96640+ 1 4.52200+ 0 4.97730+ 1 4.00760+ 01261 300103229 + 4.99550+ 1 1.07600+ 0 5.01720+ 1-1.46500- 1 5.18050+ 1-1.07160+ 01261 300103230 + 5.25310+ 1-1.27460+ 0 5.27120+ 1 2.86600- 1 5.32560+ 1 1.74800- 11261 300103231 + 5.34380+ 1 8.96000- 2 5.36190+ 1 2.38950+ 0 5.38000+ 1 2.41000+ 01261 300103232 + 5.40000+ 1 6.50000- 1 5.41810+ 1-3.60400- 1 5.43630+ 1-4.09600- 11261 300103233 + 5.45440+ 1-3.49700- 1 5.47260+ 1-1.55100- 1 5.49070+ 1 5.98400- 11261 300103234 + 5.50880+ 1 4.56200- 1 5.52700+ 1-1.19370+ 0 5.54510+ 1-1.01860+ 01261 300103235 + 5.56330+ 1-3.39000- 1 5.58140+ 1-2.33900- 1 5.59950+ 1-2.04820+ 01261 300103236 + 5.61770+ 1 1.79600+ 0 5.62860+ 1 3.89720+ 0 5.63580+ 1 1.38300- 11261 300103237 + 5.64310+ 1-4.97260+ 0 5.66490+ 1-1.57430+ 0 5.67940+ 1 4.36910+ 01261 300103238 + 5.69020+ 1 2.15820+ 0 5.71200+ 1 4.51200- 1 5.72650+ 1 7.27000- 21261 300103239 + 5.76280+ 1-3.38000- 1 5.78100+ 1-7.58700- 1 5.79910+ 1-3.53170+ 01261 300103240 + 5.81720+ 1-3.12400- 1 5.83170+ 1-1.77060+ 0 5.83900+ 1-1.51880+ 01261 300103241 + 5.84990+ 1-2.11145+ 0 5.85710+ 1-2.93062+ 0 5.86800+ 1-2.71667+ 01261 300103242 + 5.88250+ 1-1.77820+ 0 5.90070+ 1 7.42300- 1 5.91160+ 1 1.10400+ 01261 300103243 + 5.94420+ 1 3.38600- 1 5.96240+ 1-5.18000- 2 5.98050+ 1-3.46900- 11261 300103244 + 6.21810+ 1-6.11200- 1 6.22900+ 1-7.35000- 1 6.25440+ 1-6.47800- 11261 300103245 + 6.27260+ 1-5.16500- 1 6.37410+ 1-8.79900- 1 6.39230+ 1-9.50000- 11261 300103246 + 6.40320+ 1-9.49400- 1 6.41410+ 1-1.02210+ 0 6.42490+ 1-1.37500+ 01261 300103247 + 6.43220+ 1-1.38680+ 0 6.44310+ 1-9.64700- 1 6.45400+ 1-7.30000- 11261 300103248 + 6.46490+ 1-6.40500- 1 6.47210+ 1-6.09400- 1 6.49020+ 1-5.59700- 11261 300103249 + 6.52650+ 1-5.10000- 1 6.54470+ 1-5.10000- 1 6.56280+ 1-5.91300- 11261 300103250 + 6.57730+ 1-7.47800- 1 6.58820+ 1-6.78200- 1 6.59910+ 1-5.79000- 11261 300103251 + 6.61000+ 1-5.50000- 1 6.61720+ 1-5.62100- 1 6.63540+ 1-8.14500- 11261 300103252 + 6.64630+ 1-7.55500- 1 6.65710+ 1-7.64500- 1 6.68250+ 1-5.01800- 11261 300103253 + 6.76240+ 1-5.20000- 1 6.78050+ 1-5.30500- 1 6.81680+ 1-5.10600- 11261 300103254 + 6.85310+ 1-4.54300- 1 6.94000+ 1-3.30000- 1 6.96190+ 1 2.41040+ 01261 300103255 + 6.98000+ 1 3.50000+ 0 7.00000+ 1 3.60000+ 0 7.01810+ 1-4.43000- 21261 300103256 + 7.03630+ 1 7.33100- 1 7.05440+ 1-2.83260+ 0 7.07260+ 1-4.86730+ 01261 300103257 + 7.09070+ 1-3.52780+ 0 7.10880+ 1-1.67130+ 0 7.12700+ 1-6.74400- 11261 300103258 + 7.15600+ 1-1.00000+ 0 7.18140+ 1-3.68240+ 0 7.19230+ 1-4.62130+ 01261 300103259 + 7.19950+ 1-4.45460+ 0 7.20680+ 1-4.00650+ 0 7.21040+ 1-2.59890+ 01261 300103260 + 7.21770+ 1-4.92100- 1 7.23220+ 1-5.99100- 1 7.25030+ 1-5.78000- 11261 300103261 + 7.26850+ 1 4.73050+ 0 7.27210+ 1 1.71610+ 0 7.28300+ 1-1.27120+ 01261 300103262 + 7.29020+ 1-1.36990+ 0 7.29750+ 1-1.60790+ 0 7.30840+ 1-1.32170+ 01261 300103263 + 7.32650+ 1-8.78300- 1 7.36280+ 1-7.66700- 1 7.38100+ 1-7.69900- 11261 300103264 + 7.39910+ 1-8.04900- 1 7.44260+ 1-4.66500- 1 7.45710+ 1 3.48350+ 01261 300103265 + 7.47890+ 1 1.60120+ 1 7.48250+ 1 1.58696+ 1 7.48620+ 1 1.33061+ 11261 300103266 + 7.48980+ 1 8.24280+ 0 7.49340+ 1 6.40610+ 0 7.49710+ 1 4.57330+ 01261 300103267 + 7.50430+ 1 2.06360+ 0 7.50790+ 1 1.03880+ 0 7.51880+ 1-1.24130+ 01261 300103268 + 7.54420+ 1-3.07539+ 0 7.55870+ 1-3.26694+ 0 7.58050+ 1-2.07292+ 01261 300103269 + 7.60230+ 1-9.47000- 1 7.61680+ 1-9.55400- 1 7.67480+ 1-1.02510+ 01261 300103270 + 7.69660+ 1-8.99400- 1 7.71110+ 1-9.04900- 1 7.75620+ 1-1.10810+ 01261 300103271 + 7.76190+ 1-1.06090+ 0 7.83000+ 1-1.21000+ 0 7.83630+ 1 4.62480+ 01261 300103272 + 7.85440+ 1 5.93180+ 0 7.87260+ 1 4.83890+ 0 7.89070+ 1 4.24000+ 01261 300103273 + 7.90880+ 1 2.50940+ 0 7.92700+ 1 1.31000+ 0 7.94510+ 1-1.12550+ 01261 300103274 + 7.98140+ 1-1.11300+ 0 7.99950+ 1 1.18030+ 0 8.00680+ 1 1.11200+ 01261 300103275 + 8.02490+ 1-1.52470+ 0 8.04670+ 1-1.43340+ 0 8.07570+ 1 1.78020+ 01261 300103276 + 8.08660+ 1 1.86650+ 0 8.09750+ 1 1.24290+ 0 8.10840+ 1 3.96500- 11261 300103277 + 8.13380+ 1-1.68580+ 0 8.15190+ 1-1.65140+ 0 8.16280+ 1-1.49200+ 01261 300103278 + 8.18100+ 1 5.80600- 1 8.20000+ 1 1.04000+ 0 8.20000+ 1 0.00000+ 01261 300103279 + 1.00000+ 3 0.00000+ 0 1.30000+ 4 0.00000+ 0 1.30550+ 4 0.00000+ 01261 300103280 + 1.30553+ 4 3.24728- 7 1.32000+ 4 1.56990- 4 1.37000+ 4 6.98340- 41261 300103281 + 1.42000+ 4 1.23970- 3 1.45000+ 4 1.56450- 3 1.47000+ 4 1.78100- 31261 300103282 + 1.48000+ 4 1.88930- 3 1.50000+ 4 2.10580- 3 1.52000+ 4 2.32240- 31261 300103283 + 1.55000+ 4 2.64720- 3 1.58000+ 4 2.97200- 3 1.61000+ 4 3.29680- 31261 300103284 + 1.63000+ 4 3.51330- 3 1.72000+ 4 4.48780- 3 1.76000+ 4 4.92080- 31261 300103285 + 1.79000+ 4 5.24560- 3 1.82000+ 4 5.57040- 3 1.85000+ 4 5.89520- 31261 300103286 + 1.90000+ 4 6.43660- 3 1.92000+ 4 6.65310- 3 1.94000+ 4 6.86970- 31261 300103287 + 1.96000+ 4 7.08620- 3 1.98000+ 4 7.30270- 3 2.00000+ 4 7.51930- 31261 300103288 + 2.01000+ 4 7.62760- 3 2.03000+ 4 7.84410- 3 2.06000+ 4 8.16890- 31261 300103289 + 2.10000+ 4 8.60200- 3 2.12000+ 4 8.81850- 3 2.16000+ 4 9.25160- 31261 300103290 + 2.21000+ 4 9.79290- 3 2.25000+ 4 1.02260- 2 2.33000+ 4 1.10920- 21261 300103291 + 2.37000+ 4 1.15250- 2 2.40000+ 4 1.18500- 2 2.43000+ 4 1.21750- 21261 300103292 + 2.46000+ 4 1.25000- 2 2.50000+ 4 1.29330- 2 2.50000+ 4 1.41000+ 11261 300103293 + 2.53000+ 4 1.40854+ 1 2.57000+ 4 1.40662+ 1 2.62000+ 4 1.40435+ 11261 300103294 + 2.65000+ 4 1.40308+ 1 2.72000+ 4 1.39998+ 1 2.75000+ 4 1.39847+ 11261 300103295 + 2.83000+ 4 1.39453+ 1 2.88000+ 4 1.39212+ 1 2.93000+ 4 1.38975+ 11261 300103296 + 2.98000+ 4 1.38742+ 1 3.00000+ 4 1.38650+ 1 3.11000+ 4 1.38148+ 11261 300103297 + 3.13000+ 4 1.38058+ 1 3.18000+ 4 1.37837+ 1 3.21000+ 4 1.37706+ 11261 300103298 + 3.25000+ 4 1.37534+ 1 3.28000+ 4 1.37406+ 1 3.42000+ 4 1.36823+ 11261 300103299 + 3.45000+ 4 1.36701+ 1 3.50000+ 4 1.36500+ 1 3.62000+ 4 1.35988+ 11261 300103300 + 3.65000+ 4 1.35862+ 1 3.70000+ 4 1.35655+ 1 3.79000+ 4 1.35290+ 11261 300103301 + 3.87000+ 4 1.34983+ 1 3.91000+ 4 1.34833+ 1 3.94000+ 4 1.34721+ 11261 300103302 + 4.00000+ 4 1.34500+ 1 4.04000+ 4 1.34343+ 1 4.10000+ 4 1.34111+ 11261 300103303 + 4.15000+ 4 1.33921+ 1 4.20000+ 4 1.33732+ 1 4.30000+ 4 1.33362+ 11261 300103304 + 4.36000+ 4 1.33144+ 1 4.38000+ 4 1.33072+ 1 4.43000+ 4 1.32884+ 11261 300103305 + 4.48000+ 4 1.32691+ 1 4.50000+ 4 1.32615+ 1 4.52000+ 4 1.32539+ 11261 300103306 + 4.54000+ 4 1.32463+ 1 4.60000+ 4 1.32238+ 1 4.62000+ 4 1.32164+ 11261 300103307 + 4.65000+ 4 1.32053+ 1 4.68000+ 4 1.31943+ 1 4.73000+ 4 1.31770+ 11261 300103308 + 4.76000+ 4 1.31671+ 1 4.82000+ 4 1.31475+ 1 4.84000+ 4 1.31410+ 11261 300103309 + 4.88000+ 4 1.31281+ 1 4.90000+ 4 1.31217+ 1 5.00000+ 4 1.30900+ 11261 300103310 + 5.02000+ 4 1.30844+ 1 5.06000+ 4 1.30733+ 1 5.09000+ 4 1.30650+ 11261 300103311 + 5.12000+ 4 1.30567+ 1 5.15000+ 4 1.30485+ 1 5.22000+ 4 1.30285+ 11261 300103312 + 5.25000+ 4 1.30188+ 1 5.35000+ 4 1.29869+ 1 5.39000+ 4 1.29742+ 11261 300103313 + 5.42000+ 4 1.29648+ 1 5.46000+ 4 1.29524+ 1 5.50000+ 4 1.29400+ 11261 300103314 + 5.53000+ 4 1.29290+ 1 5.57000+ 4 1.29144+ 1 5.61000+ 4 1.28999+ 11261 300103315 + 5.67000+ 4 1.28784+ 1 5.71000+ 4 1.28641+ 1 5.76000+ 4 1.28469+ 11261 300103316 + 5.79000+ 4 1.28378+ 1 5.83000+ 4 1.28257+ 1 5.87000+ 4 1.28136+ 11261 300103317 + 5.91000+ 4 1.28016+ 1 5.92000+ 4 1.27987+ 1 5.98000+ 4 1.27809+ 11261 300103318 + 6.00000+ 4 1.27750+ 1 6.03000+ 4 1.27657+ 1 6.12000+ 4 1.27379+ 11261 300103319 + 6.15000+ 4 1.27287+ 1 6.20000+ 4 1.27136+ 1 6.25000+ 4 1.26985+ 11261 300103320 + 6.29000+ 4 1.26865+ 1 6.32000+ 4 1.26776+ 1 6.42000+ 4 1.26482+ 11261 300103321 + 6.47000+ 4 1.26337+ 1 6.50000+ 4 1.26250+ 1 6.51000+ 4 1.26222+ 11261 300103322 + 6.61000+ 4 1.25944+ 1 6.65000+ 4 1.25834+ 1 6.70000+ 4 1.25698+ 11261 300103323 + 6.74000+ 4 1.25590+ 1 6.80000+ 4 1.25428+ 1 6.83000+ 4 1.25348+ 11261 300103324 + 6.89000+ 4 1.25189+ 1 6.94000+ 4 1.25057+ 1 7.00000+ 4 1.24900+ 11261 300103325 + 7.03000+ 4 1.24813+ 1 7.09000+ 4 1.24641+ 1 7.20000+ 4 1.24328+ 11261 300103326 + 7.25000+ 4 1.24188+ 1 7.31000+ 4 1.24021+ 1 7.37000+ 4 1.23855+ 11261 300103327 + 7.41000+ 4 1.23745+ 1 7.48000+ 4 1.23554+ 1 7.50000+ 4 1.23500+ 11261 300103328 + 7.53000+ 4 1.23423+ 1 7.58000+ 4 1.23295+ 1 7.65000+ 4 1.23116+ 11261 300103329 + 7.70000+ 4 1.22990+ 1 7.76000+ 4 1.22840+ 1 7.84000+ 4 1.22641+ 11261 300103330 + 7.89000+ 4 1.22518+ 1 7.94000+ 4 1.22396+ 1 8.00000+ 4 1.22250+ 11261 300103331 + 8.07000+ 4 1.22070+ 1 8.20000+ 4 1.21741+ 1 8.27000+ 4 1.21566+ 11261 300103332 + 8.33000+ 4 1.21417+ 1 8.40000+ 4 1.21244+ 1 8.47000+ 4 1.21073+ 11261 300103333 + 8.50000+ 4 1.21000+ 1 8.53000+ 4 1.20920+ 1 8.61000+ 4 1.20708+ 11261 300103334 + 8.68000+ 4 1.20523+ 1 8.75000+ 4 1.20341+ 1 8.83000+ 4 1.20134+ 11261 300103335 + 8.90000+ 4 1.19954+ 1 9.00000+ 4 1.19700+ 1 9.03000+ 4 1.19630+ 11261 300103336 + 9.12000+ 4 1.19421+ 1 9.28000+ 4 1.19054+ 1 9.36000+ 4 1.18874+ 11261 300103337 + 9.44000+ 4 1.18694+ 1 9.50000+ 4 1.18561+ 1 9.52000+ 4 1.18516+ 11261 300103338 + 9.60000+ 4 1.18340+ 1 9.68000+ 4 1.18165+ 1 9.77000+ 4 1.17970+ 11261 300103339 + 9.85000+ 4 1.17798+ 1 9.93000+ 4 1.17628+ 1 9.99000+ 4 1.17501+ 11261 300103340 + 1.00000+ 5 1.17480+ 1 1.03000+ 5 1.16833+ 1 1.20000+ 5 1.13490+ 11261 300103341 + 1.35000+ 5 1.10900+ 1 1.40000+ 5 1.10100+ 1 1.50000+ 5 1.08627+ 11261 300103342 + 1.60000+ 5 1.07250+ 1 1.73000+ 5 1.05552+ 1 1.80000+ 5 1.04690+ 11261 300103343 + 2.00000+ 5 1.02400+ 1 2.07000+ 5 1.01645+ 1 2.15000+ 5 1.00813+ 11261 300103344 + 2.20000+ 5 1.00309+ 1 2.25000+ 5 9.98159+ 0 2.35000+ 5 9.88619+ 01261 300103345 + 2.40000+ 5 9.84000+ 0 2.50000+ 5 9.74819+ 0 2.60000+ 5 9.66000+ 01261 300103346 + 2.70000+ 5 9.57824+ 0 2.80000+ 5 9.49946+ 0 3.00000+ 5 9.35000+ 01261 300103347 + 3.20000+ 5 9.22000+ 0 3.25000+ 5 9.18420+ 0 3.40000+ 5 9.08000+ 01261 300103348 + 3.50000+ 5 9.01914+ 0 3.60000+ 5 8.96000+ 0 3.80000+ 5 8.83940+ 01261 300103349 + 4.00000+ 5 8.72500+ 0 4.20000+ 5 8.62144+ 0 4.40000+ 5 8.52270+ 01261 300103350 + 4.50000+ 5 8.47500+ 0 4.60000+ 5 8.42446+ 0 4.70000+ 5 8.37500+ 01261 300103351 + 4.80000+ 5 8.31690+ 0 5.00000+ 5 8.23300+ 0 5.20000+ 5 8.17000+ 01261 300103352 + 5.40000+ 5 8.06100+ 0 5.50000+ 5 8.01600+ 0 5.60000+ 5 7.96786+ 01261 300103353 + 5.70000+ 5 7.92300+ 0 5.80000+ 5 7.87884+ 0 6.00000+ 5 7.79342+ 01261 300103354 + 6.20000+ 5 7.71296+ 0 6.40000+ 5 7.63749+ 0 6.50000+ 5 7.60155+ 01261 300103355 + 6.60000+ 5 7.56674+ 0 6.70000+ 5 7.53305+ 0 6.80000+ 5 7.50044+ 01261 300103356 + 7.00000+ 5 7.43829+ 0 7.20000+ 5 7.38002+ 0 7.30000+ 5 7.35225+ 01261 300103357 + 7.40000+ 5 7.32534+ 0 7.50000+ 5 7.29927+ 0 7.60000+ 5 7.27399+ 01261 300103358 + 7.70000+ 5 7.24947+ 0 7.75000+ 5 7.23748+ 0 7.80000+ 5 7.22568+ 01261 300103359 + 8.00000+ 5 7.18012+ 0 8.20000+ 5 7.13704+ 0 8.40000+ 5 7.09617+ 01261 300103360 + 8.50000+ 5 7.07647+ 0 8.60000+ 5 7.05726+ 0 8.80000+ 5 7.02033+ 01261 300103361 + 9.00000+ 5 6.98542+ 0 9.20000+ 5 6.95259+ 0 9.40000+ 5 6.92188+ 01261 300103362 + 9.50000+ 5 6.90733+ 0 9.60000+ 5 6.89334+ 0 9.70000+ 5 6.87990+ 01261 300103363 + 9.80000+ 5 6.86703+ 0 1.00000+ 6 6.84300+ 0 1.05000+ 6 6.79287+ 01261 300103364 + 1.10000+ 6 6.75603+ 0 1.15000+ 6 6.73118+ 0 1.20000+ 6 6.71709+ 01261 300103365 + 1.25000+ 6 6.71246+ 0 1.29500+ 6 6.71534+ 0 1.30000+ 6 6.71603+ 01261 300103366 + 1.35000+ 6 6.72652+ 0 1.40000+ 6 6.74265+ 0 1.45000+ 6 6.76332+ 01261 300103367 + 1.49500+ 6 6.78534+ 0 1.50000+ 6 6.78798+ 0 1.60000+ 6 6.84776+ 01261 300103368 + 1.70000+ 6 6.91896+ 0 1.80000+ 6 6.99854+ 0 1.90000+ 6 7.08344+ 01261 300103369 + 2.00000+ 6 7.17064+ 0 2.10000+ 6 7.25731+ 0 2.20000+ 6 7.34164+ 01261 300103370 + 2.30000+ 6 7.42202+ 0 2.40000+ 6 7.49689+ 0 2.50000+ 6 7.56497+ 01261 300103371 + 2.60000+ 6 7.62627+ 0 2.70000+ 6 7.68113+ 0 2.80000+ 6 7.72989+ 01261 300103372 + 2.90000+ 6 7.77288+ 0 3.00000+ 6 7.81043+ 0 3.10000+ 6 7.84289+ 01261 300103373 + 3.20000+ 6 7.87059+ 0 3.30000+ 6 7.89386+ 0 3.40000+ 6 7.91297+ 01261 300103374 + 3.50000+ 6 7.92786+ 0 3.60000+ 6 7.93840+ 0 3.70000+ 6 7.94447+ 01261 300103375 + 3.80000+ 6 7.94593+ 0 3.90000+ 6 7.94266+ 0 4.00000+ 6 7.93454+ 01261 300103376 + 4.10000+ 6 7.92142+ 0 4.20000+ 6 7.90328+ 0 4.30000+ 6 7.88042+ 01261 300103377 + 4.40000+ 6 7.85326+ 0 4.50000+ 6 7.82219+ 0 4.60000+ 6 7.78761+ 01261 300103378 + 4.70000+ 6 7.74994+ 0 4.80000+ 6 7.70957+ 0 4.90000+ 6 7.66691+ 01261 300103379 + 5.00000+ 6 7.62536+ 0 5.10000+ 6 7.57633+ 0 5.15000+ 6 7.55288+ 01261 300103380 + 5.20000+ 6 7.52717+ 0 5.25000+ 6 7.50522+ 0 5.30000+ 6 7.48105+ 01261 300103381 + 5.32858+ 6 7.46737+ 0 5.35000+ 6 7.45666+ 0 5.40000+ 6 7.43207+ 01261 300103382 + 5.45000+ 6 7.40730+ 0 5.50000+ 6 7.38235+ 0 5.55000+ 6 7.35725+ 01261 300103383 + 5.60000+ 6 7.33201+ 0 5.65000+ 6 7.30664+ 0 5.70000+ 6 7.28116+ 01261 300103384 + 5.75000+ 6 7.25557+ 0 5.80000+ 6 7.22994+ 0 5.90000+ 6 7.17837+ 01261 300103385 + 6.00000+ 6 7.12666+ 0 6.10000+ 6 7.07489+ 0 6.20000+ 6 7.02318+ 01261 300103386 + 6.30000+ 6 6.97164+ 0 6.40000+ 6 6.92039+ 0 6.50000+ 6 6.86953+ 01261 300103387 + 6.60000+ 6 6.81918+ 0 6.70000+ 6 6.76946+ 0 6.80000+ 6 6.72047+ 01261 300103388 + 6.90000+ 6 6.67234+ 0 7.00000+ 6 6.62518+ 0 7.10000+ 6 6.57909+ 01261 300103389 + 7.20000+ 6 6.53419+ 0 7.30000+ 6 6.49061+ 0 7.40000+ 6 6.44864+ 01261 300103390 + 7.50000+ 6 6.40781+ 0 7.60000+ 6 6.36879+ 0 7.65000+ 6 6.34960+ 01261 300103391 + 7.70000+ 6 6.33108+ 0 7.80000+ 6 6.29513+ 0 7.90000+ 6 6.26122+ 01261 300103392 + 8.00000+ 6 6.22838+ 0 8.20000+ 6 6.16696+ 0 8.40000+ 6 6.11096+ 01261 300103393 + 8.50000+ 6 6.08489+ 0 8.60000+ 6 6.06004+ 0 8.80000+ 6 6.01386+ 01261 300103394 + 9.00000+ 6 5.97210+ 0 9.20000+ 6 5.93441+ 0 9.40000+ 6 5.90046+ 01261 300103395 + 9.50000+ 6 5.88478+ 0 9.60000+ 6 5.86991+ 0 9.80000+ 6 5.84258+ 01261 300103396 + 1.00000+ 7 5.81839+ 0 1.05000+ 7 5.77124+ 0 1.10000+ 7 5.74233+ 01261 300103397 + 1.15000+ 7 5.73068+ 0 1.19000+ 7 5.73287+ 0 1.20000+ 7 5.73481+ 01261 300103398 + 1.21988+ 7 5.74215+ 0 1.25000+ 7 5.75138+ 0 1.30000+ 7 5.77654+ 01261 300103399 + 1.35000+ 7 5.80645+ 0 1.40000+ 7 5.84000+ 0 1.45000+ 7 5.88900+ 01261 300103400 + 1.50000+ 7 5.93400+ 0 1.55000+ 7 5.96800+ 0 1.60000+ 7 5.99800+ 01261 300103401 + 1.65000+ 7 6.02200+ 0 1.70000+ 7 6.04700+ 0 1.75000+ 7 6.06700+ 01261 300103402 + 1.80000+ 7 6.08700+ 0 1.85000+ 7 6.10500+ 0 1.90000+ 7 6.12100+ 01261 300103403 + 1.95000+ 7 6.13600+ 0 2.00000+ 7 6.14953+ 0 1261 300103404 + 1261 300003405 + 9.22350+ 4 2.33025+ 2 0 99 0 01261 300203406 + 0.00000+ 0 0.00000+ 0 0 0 2 10081261 300203407 + 676 2 1008 3 1261 300203408 + 1.00000- 5 1.56297+ 1 1.00000- 4 1.56297+ 1 5.00000- 4 1.56297+ 11261 300203409 + 1.00000- 3 1.56248+ 1 2.00000- 3 1.56198+ 1 3.00000- 3 1.56140+ 11261 300203410 + 4.00000- 3 1.56090+ 1 5.00000- 3 1.56041+ 1 6.00000- 3 1.55982+ 11261 300203411 + 7.00000- 3 1.55933+ 1 8.00000- 3 1.55884+ 1 9.00000- 3 1.55825+ 11261 300203412 + 1.00000- 2 1.55776+ 1 1.10000- 2 1.55727+ 1 1.20000- 2 1.55668+ 11261 300203413 + 1.30000- 2 1.55619+ 1 1.40000- 2 1.55570+ 1 1.50000- 2 1.55521+ 11261 300203414 + 1.60000- 2 1.55462+ 1 1.70000- 2 1.55413+ 1 1.80000- 2 1.55363+ 11261 300203415 + 1.90000- 2 1.55314+ 1 2.00000- 2 1.55255+ 1 2.10000- 2 1.55206+ 11261 300203416 + 2.20000- 2 1.55157+ 1 2.30000- 2 1.55108+ 1 2.40000- 2 1.55049+ 11261 300203417 + 2.53000- 2 1.55000+ 1 2.60000- 2 1.54951+ 1 2.70000- 2 1.54902+ 11261 300203418 + 2.80000- 2 1.54853+ 1 2.90000- 2 1.54794+ 1 3.00000- 2 1.54745+ 11261 300203419 + 3.10000- 2 1.54695+ 1 3.20000- 2 1.54646+ 1 3.30000- 2 1.54597+ 11261 300203420 + 3.40000- 2 1.54548+ 1 3.50000- 2 1.54489+ 1 3.60000- 2 1.54440+ 11261 300203421 + 3.70000- 2 1.54391+ 1 3.80000- 2 1.54342+ 1 3.90000- 2 1.54293+ 11261 300203422 + 4.00000- 2 1.54244+ 1 4.10000- 2 1.54194+ 1 4.20000- 2 1.54145+ 11261 300203423 + 4.30000- 2 1.54086+ 1 4.40000- 2 1.54037+ 1 4.50000- 2 1.53988+ 11261 300203424 + 4.60000- 2 1.53939+ 1 4.70000- 2 1.53890+ 1 4.80000- 2 1.53841+ 11261 300203425 + 4.90000- 2 1.53792+ 1 5.00000- 2 1.53743+ 1 5.10000- 2 1.53693+ 11261 300203426 + 5.20000- 2 1.53644+ 1 5.30000- 2 1.53595+ 1 5.40000- 2 1.53546+ 11261 300203427 + 5.50000- 2 1.53497+ 1 5.60000- 2 1.53448+ 1 5.70000- 2 1.53389+ 11261 300203428 + 5.80000- 2 1.53340+ 1 5.90000- 2 1.53291+ 1 6.00000- 2 1.53242+ 11261 300203429 + 6.10000- 2 1.53192+ 1 6.20000- 2 1.53143+ 1 6.30000- 2 1.53094+ 11261 300203430 + 6.40000- 2 1.53045+ 1 6.50000- 2 1.52996+ 1 6.60000- 2 1.52947+ 11261 300203431 + 6.70000- 2 1.52898+ 1 6.80000- 2 1.52849+ 1 6.90000- 2 1.52809+ 11261 300203432 + 7.00000- 2 1.52760+ 1 7.10000- 2 1.52711+ 1 7.20000- 2 1.52662+ 11261 300203433 + 7.30000- 2 1.52613+ 1 7.40000- 2 1.52564+ 1 7.50000- 2 1.52515+ 11261 300203434 + 7.60000- 2 1.52465+ 1 7.70000- 2 1.52416+ 1 7.80000- 2 1.52367+ 11261 300203435 + 7.90000- 2 1.52318+ 1 8.00000- 2 1.52269+ 1 8.10000- 2 1.52220+ 11261 300203436 + 8.20000- 2 1.52171+ 1 8.30000- 2 1.52122+ 1 8.40000- 2 1.52073+ 11261 300203437 + 8.50000- 2 1.52033+ 1 8.60000- 2 1.51984+ 1 8.70000- 2 1.51935+ 11261 300203438 + 8.80000- 2 1.51886+ 1 8.90000- 2 1.51837+ 1 9.00000- 2 1.51788+ 11261 300203439 + 9.10000- 2 1.51738+ 1 9.20000- 2 1.51689+ 1 9.30000- 2 1.51650+ 11261 300203440 + 9.40000- 2 1.51601+ 1 9.50000- 2 1.51552+ 1 9.60000- 2 1.51503+ 11261 300203441 + 9.70000- 2 1.51454+ 1 9.80000- 2 1.51404+ 1 9.90000- 2 1.51355+ 11261 300203442 + 1.00000- 1 1.51316+ 1 1.40000- 1 1.49440+ 1 1.80000- 1 1.47632+ 11261 300203443 + 2.03340- 1 1.46620+ 1 2.23340- 1 1.45844+ 1 2.43340- 1 1.45235+ 11261 300203444 + 2.63340- 1 1.44911+ 1 2.83340- 1 1.44921+ 1 3.03340- 1 1.45039+ 11261 300203445 + 3.23340- 1 1.44940+ 1 3.43340- 1 1.44538+ 1 3.63340- 1 1.43919+ 11261 300203446 + 3.83340- 1 1.43221+ 1 4.03340- 1 1.42504+ 1 4.28120- 1 1.41630+ 11261 300203447 + 4.64920- 1 1.40392+ 1 5.04920- 1 1.39135+ 1 5.44920- 1 1.37946+ 11261 300203448 + 5.84920- 1 1.36826+ 1 6.24920- 1 1.35755+ 1 6.64920- 1 1.34733+ 11261 300203449 + 7.04920- 1 1.33741+ 1 7.44920- 1 1.32769+ 1 7.84920- 1 1.31826+ 11261 300203450 + 8.24920- 1 1.30883+ 1 8.64920- 1 1.29949+ 1 9.04920- 1 1.28996+ 11261 300203451 + 9.44920- 1 1.28014+ 1 9.84920- 1 1.26983+ 1 1.00000+ 0 1.26582+ 11261 300203452 + 1.00000+ 0-7.23000- 1 1.05500+ 0-6.54500- 1 1.07300+ 0-6.43000- 11261 300203453 + 1.09100+ 0-6.33900- 1 1.18200+ 0-5.48500- 1 1.20000+ 0-5.50000- 11261 300203454 + 1.21800+ 0-5.85900- 1 1.23600+ 0-6.06200- 1 1.32700+ 0-6.84500- 11261 300203455 + 1.36400+ 0-6.79500- 1 1.45500+ 0-6.70200- 1 1.54500+ 0-6.39800- 11261 300203456 + 1.63600+ 0-6.16700- 1 1.72700+ 0-5.88200- 1 1.81800+ 0-5.61000- 11261 300203457 + 1.90900+ 0-5.25500- 1 2.00000+ 0-4.20000- 1 2.18200+ 0-4.89800- 11261 300203458 + 2.36400+ 0-4.42000- 1 2.45500+ 0-4.08400- 1 2.54500+ 0-3.69800- 11261 300203459 + 2.63600+ 0-3.32000- 1 2.69100+ 0-3.05100- 1 2.74500+ 0-2.57000- 11261 300203460 + 2.80000+ 0-2.20000- 1 2.81800+ 0-2.10800- 1 2.85500+ 0-1.84300- 11261 300203461 + 2.92700+ 0-2.14500- 1 2.94500+ 0-2.64500- 1 3.01800+ 0-3.93600- 11261 300203462 + 3.07200+ 0-2.15900- 1 3.18200+ 0-1.07900- 1 3.21800+ 0-2.43500- 11261 300203463 + 3.27300+ 0-3.60800- 1 3.36400+ 0-3.78500- 1 3.45500+ 0-3.15900- 11261 300203464 + 3.49100+ 0-2.59200- 1 3.54500+ 0-1.01700- 1 3.58200+ 0 3.70000- 31261 300203465 + 3.63600+ 0-4.65000- 2 3.69100+ 0-2.90500- 1 3.72700+ 0-3.51500- 11261 300203466 + 3.81800+ 0-3.70300- 1 3.90900+ 0-3.50800- 1 4.00000+ 0-3.26100- 11261 300203467 + 4.09100+ 0-3.00100- 1 4.18200+ 0-2.73100- 1 4.36400+ 0-2.26600- 11261 300203468 + 4.54500+ 0-1.72300- 1 4.63600+ 0-1.31800- 1 4.72700+ 0-5.06000- 21261 300203469 + 4.78200+ 0 6.64000- 2 4.80000+ 0 1.30000- 1 4.83600+ 0 1.69100- 11261 300203470 + 4.85500+ 0 3.38000- 2 4.89100+ 0-1.96700- 1 4.90900+ 0-2.14400- 11261 300203471 + 4.94500+ 0-1.84600- 1 4.98100+ 0-1.59200- 1 5.09100+ 0-6.94000- 21261 300203472 + 5.14500+ 0-4.32000- 2 5.18200+ 0-1.80000- 2 5.27300+ 0 3.59000- 21261 300203473 + 5.30900+ 0 6.96000- 2 5.54500+ 0 8.00000- 2 5.65500+ 0 5.30000- 21261 300203474 + 5.72700+ 0-2.71000- 2 5.81800+ 0-1.47600- 1 5.90900+ 0-1.86100- 11261 300203475 + 6.00000+ 0-8.00000- 2 6.09100+ 0 2.38200- 1 6.16400+ 0 5.91400- 11261 300203476 + 6.21800+ 0 5.95700- 1 6.25500+ 0 4.45100- 1 6.29100+ 0 2.92800- 11261 300203477 + 6.41800+ 0-3.83200- 1 6.45500+ 0-5.34800- 1 6.49100+ 0-4.46100- 11261 300203478 + 6.54500+ 0-3.87300- 1 6.63600+ 0-3.37400- 1 6.72700+ 0-2.89100- 11261 300203479 + 6.81800+ 0-2.41600- 1 6.98200+ 0 2.86000- 2 7.18200+ 0-2.72000- 11261 300203480 + 7.29100+ 0-2.65100- 1 7.81800+ 0-5.33000- 2 8.00000+ 0 5.00000- 21261 300203481 + 8.18100+ 0 2.00000- 1 8.36300+ 0 4.24300- 1 8.45300+ 0 6.21900- 11261 300203482 + 8.92500+ 0 2.73600- 1 9.01500+ 0-5.13200- 1 9.05200+ 0-5.31800- 11261 300203483 + 9.10600+ 0-4.71500- 1 9.17900+ 0-3.31700- 1 9.23300+ 0-3.82800- 11261 300203484 + 9.30600+ 0-1.31700- 1 9.36000+ 0 1.10000- 1 9.43200+ 0-2.41400- 11261 300203485 + 9.45100+ 0-2.62200- 1 9.50500+ 0-2.75700- 1 9.54100+ 0-2.49100- 11261 300203486 + 9.70400+ 0-1.08300- 1 9.75900+ 0-7.04000- 2 9.99500+ 0-1.75400- 11261 300203487 + 1.00850+ 1-3.23000- 2 1.01760+ 1 2.20000- 2 1.02670+ 1-1.77400- 11261 300203488 + 1.03390+ 1-2.20200- 1 1.04300+ 1-1.54400- 1 1.06290+ 1-1.49000- 21261 300203489 + 1.07200+ 1 4.00000- 2 1.08110+ 1 5.44000- 2 1.09370+ 1 5.98000- 21261 300203490 + 1.09920+ 1 4.34000- 2 1.12640+ 1 1.81000- 2 1.14090+ 1 1.09400- 11261 300203491 + 1.14450+ 1 1.69100- 1 1.14810+ 1 2.53100- 1 1.15540+ 1 6.38500- 11261 300203492 + 1.18620+ 1-6.35000- 1 1.18980+ 1-5.44400- 1 1.20000+ 1-3.80000- 11261 300203493 + 1.20910+ 1-2.41400- 1 1.21450+ 1-1.48600- 1 1.22000+ 1-1.00000- 21261 300203494 + 1.23500+ 1 2.20000- 1 1.24910+ 1 1.28600- 1 1.25440+ 1-4.22500- 11261 300203495 + 1.40850+ 1 3.42500- 1 1.42670+ 1 7.35000- 2 1.43570+ 1-1.70000- 21261 300203496 + 1.44120+ 1-7.81000- 2 1.44480+ 1-1.21400- 1 1.46110+ 1-2.71300- 11261 300203497 + 1.46470+ 1-2.42500- 1 1.47370+ 1-2.20400- 1 1.49010+ 1-2.10300- 11261 300203498 + 1.50000+ 1-1.99900- 1 1.50910+ 1-1.85700- 1 1.51820+ 1-1.38100- 11261 300203499 + 1.52730+ 1-2.58000- 2 1.53640+ 1 3.46200- 1 1.54550+ 1 2.30000- 21261 300203500 + 1.55450+ 1-2.30200- 1 1.56360+ 1-2.21500- 1 1.57270+ 1-1.85900- 11261 300203501 + 1.58180+ 1-1.40800- 1 1.59090+ 1-3.77000- 2 1.60000+ 1 2.70000- 11261 300203502 + 1.60910+ 1 4.00800- 1 1.61820+ 1-3.23600- 1 1.62730+ 1-2.93600- 11261 300203503 + 1.63640+ 1-2.06000- 1 1.64360+ 1-1.26300- 1 1.64910+ 1-3.37000- 21261 300203504 + 1.65450+ 1 1.06800- 1 1.66360+ 1 3.37600- 1 1.67270+ 1 1.42000- 11261 300203505 + 1.68180+ 1-1.56700- 1 1.69090+ 1-2.20600- 1 1.69450+ 1-2.22700- 11261 300203506 + 1.70000+ 1-2.10000- 1 1.70910+ 1-1.93900- 1 1.71810+ 1-1.80100- 11261 300203507 + 1.72730+ 1-1.35000- 1 1.73640+ 1-1.11200- 1 1.74550+ 1-6.52000- 21261 300203508 + 1.75450+ 1-1.52000- 2 1.76360+ 1 5.78000- 2 1.77270+ 1 1.59900- 11261 300203509 + 1.78180+ 1 3.35900- 1 1.79090+ 1 6.35400- 1 1.80910+ 1 5.63600- 11261 300203510 + 1.81820+ 1 1.80000- 3 1.82730+ 1-1.60400- 1 1.83640+ 1-1.40200- 11261 300203511 + 1.84550+ 1-7.54000- 2 1.85450+ 1 1.46000- 2 1.86360+ 1 1.42100- 11261 300203512 + 1.87270+ 1 3.27500- 1 1.88180+ 1 6.40300- 1 1.89090+ 1 1.11330+ 01261 300203513 + 1.90000+ 1 4.50000- 1 1.93810+ 1 3.55680+ 0 1.94360+ 1 5.62000- 11261 300203514 + 1.94550+ 1 3.32000- 2 1.94910+ 1-4.80600- 1 1.95090+ 1-6.06900- 11261 300203515 + 1.95270+ 1-6.85200- 1 1.95450+ 1-7.31900- 1 1.96180+ 1-7.81000- 11261 300203516 + 1.96720+ 1-7.64600- 1 1.97270+ 1-7.16800- 1 1.98180+ 1-6.31800- 11261 300203517 + 1.99090+ 1-5.31600- 1 2.00000+ 1-3.90000- 1 2.00910+ 1-2.39100- 11261 300203518 + 2.02730+ 1-3.19600- 1 2.03640+ 1-3.90800- 1 2.04550+ 1-3.29000- 11261 300203519 + 2.05450+ 1-2.67000- 2 2.05820+ 1 1.13900- 1 2.06360+ 1-3.40000- 21261 300203520 + 2.06730+ 1-2.60500- 1 2.07270+ 1-4.49500- 1 2.07640+ 1-4.83100- 11261 300203521 + 2.08180+ 1-4.80100- 1 2.09090+ 1-4.39300- 1 2.10000+ 1-6.10000- 11261 300203522 + 2.10360+ 1-6.20100- 1 2.10910+ 1 3.54600- 1 2.11270+ 1 7.29200- 11261 300203523 + 2.11820+ 1 2.40100- 1 2.12180+ 1-3.90000- 2 2.12640+ 1-2.07400- 11261 300203524 + 2.13640+ 1-3.02300- 1 2.14000+ 1-3.10000- 1 2.14550+ 1-3.17300- 11261 300203525 + 2.15450+ 1-3.10000- 1 2.17270+ 1-2.80700- 1 2.19090+ 1-2.38000- 11261 300203526 + 2.20910+ 1-1.82000- 1 2.22730+ 1-1.05600- 1 2.24550+ 1 0.00000+ 01261 300203527 + 2.26360+ 1 1.95300- 1 2.28180+ 1 8.37600- 1 2.30000+ 1 3.00000- 11261 300203528 + 2.31150+ 1-1.01500- 1 2.32300+ 1 3.17500- 1 2.34600+ 1-4.30000- 11261 300203529 + 2.36900+ 1 8.68000- 1 2.38740+ 1 5.44000- 2 2.40110+ 1-1.10200- 11261 300203530 + 2.41030+ 1 6.99000- 2 2.43790+ 1-1.12600- 1 2.46090+ 1-1.81600- 11261 300203531 + 2.48390+ 1 9.84000- 2 2.50690+ 1 3.69000- 1 2.51610+ 1 4.71000- 11261 300203532 + 2.53450+ 1 5.01800- 1 2.55290+ 1-3.74300- 1 2.55750+ 1-2.58500- 11261 300203533 + 2.57130+ 1-2.43900- 1 2.58510+ 1-1.55100- 1 2.60340+ 1-1.39900- 11261 300203534 + 2.61260+ 1-1.93600- 1 2.62180+ 1-2.40000- 1 2.64480+ 1-2.62300- 11261 300203535 + 2.65400+ 1 2.00000- 2 2.70000+ 1-2.60000- 1 2.71380+ 1-3.00300- 11261 300203536 + 2.73680+ 1-2.46700- 1 2.74140+ 1-2.40600- 1 2.75980+ 1-2.02300- 11261 300203537 + 2.78280+ 1-2.80000- 2 2.80570+ 1-3.18700- 1 2.82870+ 1-4.07400- 11261 300203538 + 2.84250+ 1-3.04500- 1 2.85170+ 1-2.50000- 1 2.87470+ 1-3.17000- 11261 300203539 + 2.89770+ 1-2.29800- 1 2.92070+ 1-1.99900- 1 2.94370+ 1-1.41900- 11261 300203540 + 2.96670+ 1-3.43000- 2 2.98970+ 1-1.90500- 1 3.00000+ 1-1.50000- 11261 300203541 + 3.02290+ 1-2.04000- 2 3.04570+ 1 3.51900- 1 3.06860+ 1 2.23100- 11261 300203542 + 3.07770+ 1 2.16000- 1 3.09140+ 1-3.77800- 1 3.09600+ 1-4.50000- 11261 300203543 + 3.10970+ 1-2.93000- 1 3.11430+ 1-2.55800- 1 3.13710+ 1-8.52000- 21261 300203544 + 3.16000+ 1 1.30000- 1 3.16910+ 1 2.60800- 1 3.18290+ 1 6.25400- 11261 300203545 + 3.18740+ 1 8.12000- 1 3.19660+ 1 1.02670+ 0 3.20570+ 1 5.25500- 11261 300203546 + 3.21940+ 1-1.93100- 1 3.22860+ 1-6.45000- 1 3.25140+ 1-4.08900- 11261 300203547 + 3.27430+ 1-1.72400- 1 3.29710+ 1 1.05600- 1 3.32000+ 1 5.80000- 11261 300203548 + 3.35200+ 1 1.82000+ 0 3.36110+ 1-6.70200- 1 3.37490+ 1-8.59900- 11261 300203549 + 3.38860+ 1-2.26000- 1 3.41140+ 1 8.13600- 1 3.43430+ 1 2.20710+ 01261 300203550 + 3.44340+ 1 1.82990+ 0 3.44800+ 1-4.50000- 1 3.45260+ 1-1.31390+ 01261 300203551 + 3.45710+ 1-1.16850+ 0 3.46170+ 1-7.58800- 1 3.46630+ 1-3.21000- 11261 300203552 + 3.47090+ 1 7.02000- 2 3.47540+ 1 2.12100- 1 3.48460+ 1 1.58200- 11261 300203553 + 3.48910+ 1-2.69900- 1 3.50290+ 1-3.24750+ 0 3.52570+ 1 1.10360+ 11261 300203554 + 3.54860+ 1-1.80000- 2 3.57140+ 1 2.14430+ 0 3.59430+ 1 3.48900- 11261 300203555 + 3.66290+ 1-2.70000- 1 3.68570+ 1-2.50200- 1 3.70860+ 1-3.10000- 11261 300203556 + 3.73140+ 1-2.63500- 1 3.75430+ 1-1.99600- 1 3.77710+ 1-1.90000- 11261 300203557 + 3.80000+ 1-3.10000- 1 3.82290+ 1-9.29000- 2 3.84570+ 1-1.44200- 11261 300203558 + 3.86860+ 1-2.91000- 1 3.89140+ 1-3.26300- 1 3.91430+ 1-3.89000- 11261 300203559 + 3.92340+ 1-1.91600- 1 3.92800+ 1 5.10000- 1 3.93710+ 1 4.12280+ 01261 300203560 + 3.95090+ 1 2.15200- 1 3.96000+ 1-4.70000- 1 3.96910+ 1-5.21000- 11261 300203561 + 3.98290+ 1-4.48700- 1 3.99660+ 1-1.63800- 1 4.01940+ 1-3.78000- 11261 300203562 + 4.05140+ 1 1.87700- 1 4.06970+ 1-1.43100- 1 4.07430+ 1-2.34900- 11261 300203563 + 4.07890+ 1-3.00200- 1 4.09710+ 1-3.50700- 1 4.12000+ 1 1.60000- 11261 300203564 + 4.14290+ 1 4.81000- 1 4.15660+ 1-1.28500- 1 4.16570+ 1-3.25800- 11261 300203565 + 4.17940+ 1-2.53000- 1 4.19770+ 1-6.46400- 1 4.21140+ 1-7.18600- 11261 300203566 + 4.22970+ 1-3.49500- 1 4.23890+ 1-3.65500- 1 4.25710+ 1-4.06100- 11261 300203567 + 4.27090+ 1-3.34900- 1 4.28000+ 1-3.20000- 1 4.28910+ 1-3.25500- 11261 300203568 + 4.30290+ 1-3.35100- 1 4.32110+ 1-2.59700- 1 4.33030+ 1-7.10000- 31261 300203569 + 4.34860+ 1-5.91000- 2 4.36690+ 1-1.48700- 1 4.38060+ 1 4.36600- 11261 300203570 + 4.40340+ 1-1.58500- 1 4.41710+ 1-2.47100- 1 4.44000+ 1-2.50000- 11261 300203571 + 4.46290+ 1 3.58000- 1 4.48570+ 1-8.74100- 1 4.50860+ 1-4.74000- 11261 300203572 + 4.53140+ 1-3.13000- 1 4.55430+ 1-2.81100- 1 4.57710+ 1-3.24500- 11261 300203573 + 4.60000+ 1-3.20000- 1 4.61810+ 1-2.90000- 1 4.63630+ 1-2.59900- 11261 300203574 + 4.65440+ 1-8.90000- 2 4.67260+ 1 1.07750+ 0 4.72700+ 1-4.44400- 11261 300203575 + 4.74510+ 1-3.65100- 1 4.76330+ 1-2.93000- 1 4.77410+ 1-1.78300- 11261 300203576 + 4.78870+ 1 4.66800- 1 4.79590+ 1 6.13100- 1 4.80680+ 1-2.86900- 11261 300203577 + 4.81770+ 1-6.43000- 1 4.82860+ 1-4.01700- 1 4.83950+ 1-2.69500- 11261 300203578 + 4.85400+ 1-3.60000- 1 4.86120+ 1-3.70100- 1 4.86850+ 1-3.13600- 11261 300203579 + 4.88660+ 1-3.78700- 1 4.89340+ 1-6.71800- 1 4.90110+ 1-6.79200- 11261 300203580 + 4.91200+ 1-4.80000- 1 4.91930+ 1-4.12400- 1 4.93380+ 1-3.51700- 11261 300203581 + 4.95560+ 1-5.74300- 1 4.96640+ 1-4.78000- 1 4.97730+ 1-4.22400- 11261 300203582 + 4.99550+ 1-2.14000- 1 5.01720+ 1-1.46500- 1 5.18050+ 1-1.07160+ 01261 300203583 + 5.25310+ 1-5.64600- 1 5.27120+ 1-4.23400- 1 5.32560+ 1-5.35200- 11261 300203584 + 5.34380+ 1-6.20400- 1 5.36190+ 1-4.70500- 1 5.38000+ 1-4.50000- 11261 300203585 + 5.40000+ 1-4.20000- 1 5.41810+ 1-3.60400- 1 5.43630+ 1-4.09600- 11261 300203586 + 5.45440+ 1-3.49700- 1 5.47260+ 1-1.55100- 1 5.49070+ 1 5.98400- 11261 300203587 + 5.50880+ 1 4.56200- 1 5.52700+ 1-1.19370+ 0 5.54510+ 1-1.01860+ 01261 300203588 + 5.56330+ 1-3.39000- 1 5.58140+ 1 4.76100- 1 5.59950+ 1-1.33820+ 01261 300203589 + 5.61770+ 1-2.49400+ 0 5.62860+ 1-3.25280+ 0 5.63580+ 1-4.15170+ 01261 300203590 + 5.64310+ 1-4.26260+ 0 5.66490+ 1-8.64300- 1 5.67940+ 1 7.91000- 21261 300203591 + 5.69020+ 1 8.20000- 3 5.71200+ 1-2.68800- 1 5.72650+ 1-4.27300- 11261 300203592 + 5.76280+ 1-8.38000- 1 5.78100+ 1-7.58700- 1 5.79910+ 1-2.10170+ 01261 300203593 + 5.81720+ 1-3.12400- 1 5.83170+ 1-2.70600- 1 5.83900+ 1-5.18800- 11261 300203594 + 5.84990+ 1-1.11260+ 0 5.85710+ 1-1.76280+ 0 5.86800+ 1-1.75000+ 01261 300203595 + 5.88250+ 1 1.51800- 1 5.90070+ 1 4.23000- 2 5.91160+ 1-9.60000- 21261 300203596 + 5.94420+ 1-3.61400- 1 5.96240+ 1-4.01800- 1 5.98050+ 1-3.46900- 11261 300203597 + 6.21810+ 1-6.11200- 1 6.22900+ 1-7.35000- 1 6.25440+ 1-6.47800- 11261 300203598 + 6.27260+ 1-5.16500- 1 6.37410+ 1-8.79900- 1 6.39230+ 1-9.50000- 11261 300203599 + 6.40320+ 1-9.49400- 1 6.41410+ 1-1.02210+ 0 6.42490+ 1-1.37500+ 01261 300203600 + 6.43220+ 1-1.38680+ 0 6.44310+ 1-9.64700- 1 6.45400+ 1-7.30000- 11261 300203601 + 6.46490+ 1-6.40500- 1 6.47210+ 1-6.09400- 1 6.49020+ 1-5.59700- 11261 300203602 + 6.52650+ 1-5.10000- 1 6.54470+ 1-5.10000- 1 6.56280+ 1-5.91300- 11261 300203603 + 6.57730+ 1-7.47800- 1 6.58820+ 1-6.78200- 1 6.59910+ 1-5.79000- 11261 300203604 + 6.61000+ 1-5.50000- 1 6.61720+ 1-5.62100- 1 6.63540+ 1-8.14500- 11261 300203605 + 6.64630+ 1-7.55500- 1 6.65710+ 1-7.64500- 1 6.68250+ 1-5.01800- 11261 300203606 + 6.76240+ 1-5.20000- 1 6.78050+ 1-5.30500- 1 6.81680+ 1-5.10600- 11261 300203607 + 6.85310+ 1-4.54300- 1 6.94000+ 1-3.30000- 1 6.96190+ 1-5.89600- 11261 300203608 + 6.98000+ 1-6.00000- 1 7.00000+ 1-5.40000- 1 7.01810+ 1-4.43000- 21261 300203609 + 7.03630+ 1 1.44310+ 0 7.05440+ 1-1.40260+ 0 7.07260+ 1-2.54730+ 01261 300203610 + 7.09070+ 1-1.38780+ 0 7.10880+ 1-7.81300- 1 7.12700+ 1-6.74400- 11261 300203611 + 7.15600+ 1-1.00000+ 0 7.18140+ 1-8.22400- 1 7.19230+ 1-8.31300- 11261 300203612 + 7.19950+ 1-8.84600- 1 7.20680+ 1-9.76500- 1 7.21040+ 1-1.02890+ 01261 300203613 + 7.21770+ 1-1.20210+ 0 7.23220+ 1-1.48910+ 0 7.25030+ 1-5.78000- 11261 300203614 + 7.26850+ 1-7.39500- 1 7.27210+ 1-8.83900- 1 7.28300+ 1-1.27120+ 01261 300203615 + 7.29020+ 1-1.36990+ 0 7.29750+ 1-1.30790+ 0 7.30840+ 1-1.11170+ 01261 300203616 + 7.32650+ 1-8.78300- 1 7.36280+ 1-7.66700- 1 7.38100+ 1-7.69900- 11261 300203617 + 7.39910+ 1-8.04900- 1 7.44260+ 1-8.96500- 1 7.45710+ 1-4.46500- 11261 300203618 + 7.47890+ 1-8.48000- 1 7.48250+ 1-9.20400- 1 7.48620+ 1-9.83900- 11261 300203619 + 7.48980+ 1-1.04720+ 0 7.49340+ 1-1.09390+ 0 7.49710+ 1-1.13670+ 01261 300203620 + 7.50430+ 1-1.14640+ 0 7.50790+ 1-1.10120+ 0 7.51880+ 1-8.81300- 11261 300203621 + 7.54420+ 1-2.06120+ 0 7.55870+ 1-2.07910+ 0 7.58050+ 1-1.33400+ 01261 300203622 + 7.60230+ 1-9.47000- 1 7.61680+ 1-8.55400- 1 7.67480+ 1-1.02510+ 01261 300203623 + 7.69660+ 1-8.99400- 1 7.71110+ 1-9.04900- 1 7.75620+ 1-1.10810+ 01261 300203624 + 7.76190+ 1-1.06090+ 0 7.83000+ 1-1.21000+ 0 7.83630+ 1-1.08520+ 01261 300203625 + 7.85440+ 1-9.68200- 1 7.87260+ 1-9.61100- 1 7.89070+ 1-9.60000- 11261 300203626 + 7.90880+ 1-9.90600- 1 7.92700+ 1-1.03000+ 0 7.94510+ 1-1.12550+ 01261 300203627 + 7.98140+ 1-1.11300+ 0 7.99950+ 1-1.13970+ 0 8.00680+ 1-1.20800+ 01261 300203628 + 8.02490+ 1-1.52470+ 0 8.04670+ 1-1.43340+ 0 8.07570+ 1-1.21980+ 01261 300203629 + 8.08660+ 1-1.23350+ 0 8.09750+ 1-1.25710+ 0 8.10840+ 1-1.30350+ 01261 300203630 + 8.13380+ 1-1.68580+ 0 8.15190+ 1-1.65140+ 0 8.16280+ 1-1.49200+ 01261 300203631 + 8.18100+ 1-1.41940+ 0 8.20000+ 1-1.46000+ 0 8.20000+ 1 0.00000+ 01261 300203632 + 1.00000+ 3 0.00000+ 0 1.30553+ 4 0.00000+ 0 2.50000+ 4 0.00000+ 01261 300203633 + 2.50000+ 4 1.11429+ 1 2.53000+ 4 1.11458+ 1 2.57000+ 4 1.11497+ 11261 300203634 + 2.62000+ 4 1.11501+ 1 2.65000+ 4 1.11464+ 1 2.72000+ 4 1.11277+ 11261 300203635 + 2.75000+ 4 1.11089+ 1 2.83000+ 4 1.10176+ 1 2.88000+ 4 1.09181+ 11261 300203636 + 2.93000+ 4 1.09370+ 1 2.98000+ 4 1.10325+ 1 3.00000+ 4 1.10702+ 11261 300203637 + 3.11000+ 4 1.09636+ 1 3.13000+ 4 1.09214+ 1 3.18000+ 4 1.08174+ 11261 300203638 + 3.21000+ 4 1.07932+ 1 3.25000+ 4 1.08605+ 1 3.28000+ 4 1.09104+ 11261 300203639 + 3.42000+ 4 1.09658+ 1 3.45000+ 4 1.09959+ 1 3.50000+ 4 1.10455+ 11261 300203640 + 3.62000+ 4 1.08960+ 1 3.65000+ 4 1.09589+ 1 3.70000+ 4 1.10626+ 11261 300203641 + 3.79000+ 4 1.08798+ 1 3.87000+ 4 1.09220+ 1 3.91000+ 4 1.09421+ 11261 300203642 + 3.94000+ 4 1.09234+ 1 4.00000+ 4 1.08866+ 1 4.04000+ 4 1.07947+ 11261 300203643 + 4.10000+ 4 1.06589+ 1 4.15000+ 4 1.07376+ 1 4.20000+ 4 1.08151+ 11261 300203644 + 4.30000+ 4 1.07398+ 1 4.36000+ 4 1.07359+ 1 4.38000+ 4 1.07346+ 11261 300203645 + 4.43000+ 4 1.07430+ 1 4.48000+ 4 1.07589+ 1 4.50000+ 4 1.07652+ 11261 300203646 + 4.52000+ 4 1.07745+ 1 4.54000+ 4 1.07837+ 1 4.60000+ 4 1.08112+ 11261 300203647 + 4.62000+ 4 1.07823+ 1 4.65000+ 4 1.07391+ 1 4.68000+ 4 1.06963+ 11261 300203648 + 4.73000+ 4 1.07036+ 1 4.76000+ 4 1.07391+ 1 4.82000+ 4 1.07607+ 11261 300203649 + 4.84000+ 4 1.07355+ 1 4.88000+ 4 1.06855+ 1 4.90000+ 4 1.06607+ 11261 300203650 + 5.00000+ 4 1.07389+ 1 5.02000+ 4 1.07193+ 1 5.06000+ 4 1.06804+ 11261 300203651 + 5.09000+ 4 1.06514+ 1 5.12000+ 4 1.06358+ 1 5.15000+ 4 1.06271+ 11261 300203652 + 5.22000+ 4 1.05704+ 1 5.25000+ 4 1.05074+ 1 5.35000+ 4 1.03931+ 11261 300203653 + 5.39000+ 4 1.03850+ 1 5.42000+ 4 1.03764+ 1 5.46000+ 4 1.03632+ 11261 300203654 + 5.50000+ 4 1.03499+ 1 5.53000+ 4 1.03424+ 1 5.57000+ 4 1.03323+ 11261 300203655 + 5.61000+ 4 1.03277+ 1 5.67000+ 4 1.03452+ 1 5.71000+ 4 1.03459+ 11261 300203656 + 5.76000+ 4 1.03074+ 1 5.79000+ 4 1.02856+ 1 5.83000+ 4 1.02968+ 11261 300203657 + 5.87000+ 4 1.03213+ 1 5.91000+ 4 1.03416+ 1 5.92000+ 4 1.03439+ 11261 300203658 + 5.98000+ 4 1.03567+ 1 6.00000+ 4 1.03609+ 1 6.03000+ 4 1.03104+ 11261 300203659 + 6.12000+ 4 1.02057+ 1 6.15000+ 4 1.02239+ 1 6.20000+ 4 1.02540+ 11261 300203660 + 6.25000+ 4 1.02242+ 1 6.29000+ 4 1.02005+ 1 6.32000+ 4 1.01800+ 11261 300203661 + 6.42000+ 4 1.01535+ 1 6.47000+ 4 1.02310+ 1 6.50000+ 4 1.02772+ 11261 300203662 + 6.51000+ 4 1.02620+ 1 6.61000+ 4 1.01289+ 1 6.65000+ 4 1.01381+ 11261 300203663 + 6.70000+ 4 1.01496+ 1 6.74000+ 4 1.01056+ 1 6.80000+ 4 1.00400+ 11261 300203664 + 6.83000+ 4 1.00592+ 1 6.89000+ 4 1.00974+ 1 6.94000+ 4 1.01027+ 11261 300203665 + 7.00000+ 4 1.01012+ 1 7.03000+ 4 1.00916+ 1 7.09000+ 4 1.00727+ 11261 300203666 + 7.20000+ 4 1.00383+ 1 7.25000+ 4 9.96305+ 0 7.31000+ 4 9.89059+ 01261 300203667 + 7.37000+ 4 9.90421+ 0 7.41000+ 4 9.90127+ 0 7.48000+ 4 9.83393+ 01261 300203668 + 7.50000+ 4 9.81484+ 0 7.53000+ 4 9.82229+ 0 7.58000+ 4 9.83457+ 01261 300203669 + 7.65000+ 4 9.91810+ 0 7.70000+ 4 9.99628+ 0 7.76000+ 4 9.93195+ 01261 300203670 + 7.84000+ 4 9.86768+ 0 7.89000+ 4 9.84085+ 0 7.94000+ 4 9.90933+ 01261 300203671 + 8.00000+ 4 1.00192+ 1 8.07000+ 4 9.88839+ 0 8.20000+ 4 9.77840+ 01261 300203672 + 8.27000+ 4 9.78663+ 0 8.33000+ 4 9.82537+ 0 8.40000+ 4 9.90701+ 01261 300203673 + 8.47000+ 4 9.76373+ 0 8.50000+ 4 9.70269+ 0 8.53000+ 4 9.74724+ 01261 300203674 + 8.61000+ 4 9.85479+ 0 8.68000+ 4 9.88477+ 0 8.75000+ 4 9.80332+ 01261 300203675 + 8.83000+ 4 9.72688+ 0 8.90000+ 4 9.75708+ 0 9.00000+ 4 9.61748+ 01261 300203676 + 9.03000+ 4 9.60760+ 0 9.12000+ 4 9.63051+ 0 9.28000+ 4 9.66139+ 01261 300203677 + 9.36000+ 4 9.57296+ 0 9.44000+ 4 9.54197+ 0 9.50000+ 4 9.54616+ 01261 300203678 + 9.52000+ 4 9.52134+ 0 9.60000+ 4 9.42292+ 0 9.68000+ 4 9.30361+ 01261 300203679 + 9.77000+ 4 9.37055+ 0 9.85000+ 4 9.35031+ 0 9.93000+ 4 9.29168+ 01261 300203680 + 9.99000+ 4 9.29640+ 0 1.00000+ 5 9.35712+ 0 1.03000+ 5 9.29190+ 01261 300203681 + 1.20000+ 5 8.98527+ 0 1.35000+ 5 8.75083+ 0 1.40000+ 5 8.68118+ 01261 300203682 + 1.50000+ 5 8.54895+ 0 1.60000+ 5 8.41517+ 0 1.73000+ 5 8.26086+ 01261 300203683 + 1.80000+ 5 8.17655+ 0 2.00000+ 5 7.95773+ 0 2.07000+ 5 7.89548+ 01261 300203684 + 2.15000+ 5 7.81552+ 0 2.20000+ 5 7.76572+ 0 2.25000+ 5 7.71662+ 01261 300203685 + 2.35000+ 5 7.61841+ 0 2.40000+ 5 7.55978+ 0 2.50000+ 5 7.44112+ 01261 300203686 + 2.60000+ 5 7.34357+ 0 2.70000+ 5 7.25300+ 0 2.80000+ 5 7.17025+ 01261 300203687 + 3.00000+ 5 7.01935+ 0 3.20000+ 5 6.91112+ 0 3.25000+ 5 6.87701+ 01261 300203688 + 3.40000+ 5 6.76577+ 0 3.50000+ 5 6.69566+ 0 3.60000+ 5 6.62927+ 01261 300203689 + 3.80000+ 5 6.48937+ 0 4.00000+ 5 6.35799+ 0 4.20000+ 5 6.22755+ 01261 300203690 + 4.40000+ 5 6.10432+ 0 4.50000+ 5 6.04557+ 0 4.60000+ 5 5.99279+ 01261 300203691 + 4.70000+ 5 5.94014+ 0 4.80000+ 5 5.87860+ 0 5.00000+ 5 5.78554+ 01261 300203692 + 5.20000+ 5 5.72881+ 0 5.40000+ 5 5.62343+ 0 5.50000+ 5 5.57821+ 01261 300203693 + 5.60000+ 5 5.52816+ 0 5.70000+ 5 5.48137+ 0 5.80000+ 5 5.43503+ 01261 300203694 + 6.00000+ 5 5.34418+ 0 6.20000+ 5 5.22893+ 0 6.40000+ 5 5.11856+ 01261 300203695 + 6.50000+ 5 5.06472+ 0 6.60000+ 5 5.02144+ 0 6.70000+ 5 4.98002+ 01261 300203696 + 6.80000+ 5 4.93952+ 0 7.00000+ 5 4.86155+ 0 7.20000+ 5 4.80316+ 01261 300203697 + 7.30000+ 5 4.77431+ 0 7.40000+ 5 4.74539+ 0 7.50000+ 5 4.71685+ 01261 300203698 + 7.60000+ 5 4.68821+ 0 7.70000+ 5 4.65932+ 0 7.75000+ 5 4.64526+ 01261 300203699 + 7.80000+ 5 4.63172+ 0 8.00000+ 5 4.57682+ 0 8.20000+ 5 4.53241+ 01261 300203700 + 8.40000+ 5 4.49077+ 0 8.50000+ 5 4.46844+ 0 8.60000+ 5 4.43631+ 01261 300203701 + 8.80000+ 5 4.38990+ 0 9.00000+ 5 4.33837+ 0 9.20000+ 5 4.30082+ 01261 300203702 + 9.40000+ 5 4.26525+ 0 9.50000+ 5 4.24835+ 0 9.60000+ 5 4.22363+ 01261 300203703 + 9.70000+ 5 4.19869+ 0 9.80000+ 5 4.17527+ 0 1.00000+ 6 4.13021+ 01261 300203704 + 1.05000+ 6 4.04573+ 0 1.10000+ 6 3.98198+ 0 1.15000+ 6 3.93440+ 01261 300203705 + 1.20000+ 6 3.90016+ 0 1.25000+ 6 3.87779+ 0 1.29500+ 6 3.86540+ 01261 300203706 + 1.30000+ 6 3.86430+ 0 1.35000+ 6 3.85830+ 0 1.40000+ 6 3.85726+ 01261 300203707 + 1.45000+ 6 3.86004+ 0 1.49500+ 6 3.86432+ 0 1.50000+ 6 3.86399+ 01261 300203708 + 1.60000+ 6 3.89181+ 0 1.70000+ 6 3.93256+ 0 1.80000+ 6 3.98158+ 01261 300203709 + 1.90000+ 6 4.03552+ 0 2.00000+ 6 4.09348+ 0 2.10000+ 6 4.17963+ 01261 300203710 + 2.20000+ 6 4.26409+ 0 2.30000+ 6 4.34612+ 0 2.40000+ 6 4.42353+ 01261 300203711 + 2.50000+ 6 4.49713+ 0 2.60000+ 6 4.55466+ 0 2.70000+ 6 4.60793+ 01261 300203712 + 2.80000+ 6 4.65487+ 0 2.90000+ 6 4.69731+ 0 3.00000+ 6 4.73367+ 01261 300203713 + 3.10000+ 6 4.77721+ 0 3.20000+ 6 4.81675+ 0 3.30000+ 6 4.85131+ 01261 300203714 + 3.40000+ 6 4.88109+ 0 3.50000+ 6 4.90621+ 0 3.60000+ 6 4.92158+ 01261 300203715 + 3.70000+ 6 4.93226+ 0 3.80000+ 6 4.94143+ 0 3.90000+ 6 4.94065+ 01261 300203716 + 4.00000+ 6 4.93921+ 0 4.10000+ 6 4.93166+ 0 4.20000+ 6 4.91724+ 01261 300203717 + 4.30000+ 6 4.90105+ 0 4.40000+ 6 4.87748+ 0 4.50000+ 6 4.85004+ 01261 300203718 + 4.60000+ 6 4.82111+ 0 4.70000+ 6 4.78697+ 0 4.80000+ 6 4.75513+ 01261 300203719 + 4.90000+ 6 4.73497+ 0 5.00000+ 6 4.69487+ 0 5.10000+ 6 4.65436+ 01261 300203720 + 5.15000+ 6 4.64168+ 0 5.20000+ 6 4.62634+ 0 5.25000+ 6 4.61389+ 01261 300203721 + 5.30000+ 6 4.60013+ 0 5.32858+ 6 4.59235+ 0 5.35000+ 6 4.58654+ 01261 300203722 + 5.40000+ 6 4.57206+ 0 5.45000+ 6 4.55881+ 0 5.50000+ 6 4.54879+ 01261 300203723 + 5.55000+ 6 4.53917+ 0 5.60000+ 6 4.52796+ 0 5.65000+ 6 4.50845+ 01261 300203724 + 5.70000+ 6 4.48283+ 0 5.75000+ 6 4.45919+ 0 5.80000+ 6 4.43670+ 01261 300203725 + 5.90000+ 6 4.37850+ 0 6.00000+ 6 4.36281+ 0 6.10000+ 6 4.34713+ 01261 300203726 + 6.20000+ 6 4.33558+ 0 6.30000+ 6 4.32131+ 0 6.40000+ 6 4.30246+ 01261 300203727 + 6.50000+ 6 4.28242+ 0 6.60000+ 6 4.24441+ 0 6.70000+ 6 4.20402+ 01261 300203728 + 6.80000+ 6 4.16974+ 0 6.90000+ 6 4.12672+ 0 7.00000+ 6 4.08649+ 01261 300203729 + 7.10000+ 6 4.05314+ 0 7.20000+ 6 4.02849+ 0 7.30000+ 6 4.00408+ 01261 300203730 + 7.40000+ 6 3.99018+ 0 7.50000+ 6 3.95601+ 0 7.60000+ 6 3.92972+ 01261 300203731 + 7.65000+ 6 3.90800+ 0 7.70000+ 6 3.88800+ 0 7.80000+ 6 3.85100+ 01261 300203732 + 7.90000+ 6 3.81416+ 0 8.00000+ 6 3.78514+ 0 8.20000+ 6 3.71946+ 01261 300203733 + 8.40000+ 6 3.66517+ 0 8.50000+ 6 3.63814+ 0 8.60000+ 6 3.61513+ 01261 300203734 + 8.80000+ 6 3.57019+ 0 9.00000+ 6 3.53847+ 0 9.20000+ 6 3.50497+ 01261 300203735 + 9.40000+ 6 3.48025+ 0 9.50000+ 6 3.46715+ 0 9.60000+ 6 3.45788+ 01261 300203736 + 9.80000+ 6 3.43873+ 0 1.00000+ 7 3.42372+ 0 1.05000+ 7 3.40209+ 01261 300203737 + 1.10000+ 7 3.38773+ 0 1.15000+ 7 3.37146+ 0 1.19000+ 7 3.33158+ 01261 300203738 + 1.20000+ 7 3.31682+ 0 1.21988+ 7 3.28614+ 0 1.25000+ 7 3.24059+ 01261 300203739 + 1.30000+ 7 3.17585+ 0 1.35000+ 7 3.13889+ 0 1.40000+ 7 3.13255+ 01261 300203740 + 1.45000+ 7 3.15571+ 0 1.50000+ 7 3.21186+ 0 1.55000+ 7 3.26402+ 01261 300203741 + 1.60000+ 7 3.32517+ 0 1.65000+ 7 3.38581+ 0 1.70000+ 7 3.46042+ 01261 300203742 + 1.75000+ 7 3.53854+ 0 1.80000+ 7 3.61561+ 0 1.85000+ 7 3.69369+ 01261 300203743 + 1.90000+ 7 3.75055+ 0 1.95000+ 7 3.79526+ 0 2.00000+ 7 3.82230+ 01261 300203744 + 1261 300003745 + 9.22350+ 4 2.33025+ 2 0 99 0 01261 300303746 + 0.00000+ 0-1.30000+ 4 0 0 3 9341261 300303747 + 57 5 602 2 934 31261 300303748 + 1.00000- 5 3.67323+ 4 1.00000- 3 3.66403+ 3 5.00000- 3 1.62191+ 31261 300303749 + 1.00000- 2 1.13208+ 3 1.50000- 2 9.11440+ 2 2.00000- 2 7.78881+ 21261 300303750 + 2.53000- 2 6.83100+ 2 3.00000- 2 6.19983+ 2 3.50000- 2 5.67085+ 21261 300303751 + 4.00000- 2 5.24239+ 2 4.50000- 2 4.88665+ 2 5.00000- 2 4.58385+ 21261 300303752 + 5.50000- 2 4.32261+ 2 6.00000- 2 4.09448+ 2 6.50000- 2 3.89342+ 21261 300303753 + 7.00000- 2 3.71471+ 2 7.50000- 2 3.55515+ 2 8.00000- 2 3.41552+ 21261 300303754 + 8.50000- 2 3.28766+ 2 9.00000- 2 3.17188+ 2 9.50000- 2 3.06705+ 21261 300303755 + 1.00000- 1 2.97295+ 2 1.10000- 1 2.80602+ 2 1.20000- 1 2.66190+ 21261 300303756 + 1.30000- 1 2.53798+ 2 1.40000- 1 2.43379+ 2 1.50000- 1 2.35605+ 21261 300303757 + 1.60000- 1 2.29006+ 2 1.70000- 1 2.23654+ 2 1.80000- 1 2.19474+ 21261 300303758 + 2.03340- 1 2.16922+ 2 2.23340- 1 2.20282+ 2 2.43340- 1 2.28562+ 21261 300303759 + 2.63340- 1 2.38332+ 2 2.83340- 1 2.44560+ 2 3.03340- 1 2.37434+ 21261 300303760 + 3.23340- 1 2.13497+ 2 3.43340- 1 1.85922+ 2 3.63340- 1 1.65289+ 21261 300303761 + 3.83340- 1 1.47041+ 2 4.03340- 1 1.32438+ 2 4.28120- 1 1.18036+ 21261 300303762 + 4.64920- 1 1.02903+ 2 5.04920- 1 9.14896+ 1 5.44920- 1 8.30035+ 11261 300303763 + 5.84920- 1 7.66133+ 1 6.24920- 1 7.18640+ 1 6.64920- 1 6.82295+ 11261 300303764 + 7.04920- 1 6.53731+ 1 7.44920- 1 6.32132+ 1 7.84920- 1 6.18291+ 11261 300303765 + 8.24920- 1 6.13258+ 1 8.64920- 1 6.19560+ 1 9.04920- 1 6.41003+ 11261 300303766 + 9.44920- 1 6.79709+ 1 9.84920- 1 7.39957+ 1 1.00000+ 0 7.77925+ 11261 300303767 + 1.00000+ 0 1.03610+ 1 1.05500+ 0 9.95000+ 0 1.07300+ 0 9.17000+ 01261 300303768 + 1.09100+ 0 7.83000+ 0 1.18200+ 0-1.85800+ 1 1.20000+ 0-2.25000+ 11261 300303769 + 1.21800+ 0-2.38600+ 1 1.23600+ 0-2.38600+ 1 1.32700+ 0-1.42900+ 11261 300303770 + 1.36400+ 0-1.21400+ 1 1.45500+ 0-8.21000+ 0 1.54500+ 0-6.07000+ 01261 300303771 + 1.63600+ 0-4.64000+ 0 1.72700+ 0-3.57000+ 0 1.81800+ 0-2.86000+ 01261 300303772 + 1.90900+ 0-2.14000+ 0 2.00000+ 0-2.14000+ 0 2.18200+ 0-1.43000+ 01261 300303773 + 2.36400+ 0-7.10000- 1 2.45500+ 0-1.07000+ 0 2.54500+ 0-1.79000+ 01261 300303774 + 2.63600+ 0-3.57000+ 0 2.69100+ 0-2.86000+ 0 2.74500+ 0-2.00000+ 01261 300303775 + 2.80000+ 0 1.43000+ 0 2.81800+ 0 1.78000+ 0 2.85500+ 0 7.10000- 11261 300303776 + 2.92700+ 0-7.10000- 1 2.94500+ 0-7.10000- 1 3.01800+ 0 3.57000+ 01261 300303777 + 3.07200+ 0 3.57000+ 0 3.18200+ 0-3.57000+ 0 3.21800+ 0-3.21000+ 01261 300303778 + 3.27300+ 0-1.43000+ 0 3.36400+ 0 2.14000+ 0 3.45500+ 0 6.50000+ 01261 300303779 + 3.49100+ 0 7.10000+ 0 3.54500+ 0 6.80000+ 0 3.58200+ 0 0.00000+ 01261 300303780 + 3.63600+ 0 0.00000+ 0 3.69100+ 0-4.12000+ 0 3.72700+ 0-7.40000+ 01261 300303781 + 3.81800+ 0-6.43000+ 0 3.90900+ 0-5.36000+ 0 4.00000+ 0-4.40000+ 01261 300303782 + 4.09100+ 0-3.70000+ 0 4.18200+ 0-3.14000+ 0 4.36400+ 0-2.29000+ 01261 300303783 + 4.54500+ 0-2.14000+ 0 4.63600+ 0-6.50000- 1 4.72700+ 0 2.14000+ 01261 300303784 + 4.78200+ 0 1.00000+ 0 4.80000+ 0 7.10000- 1 4.83600+ 0 7.10000- 11261 300303785 + 4.85500+ 0-4.29000+ 0 4.89100+ 0-7.83000+ 0 4.90900+ 0-4.14000+ 01261 300303786 + 4.94500+ 0-2.86000+ 0 4.98100+ 0-2.43000+ 0 5.09100+ 0-2.43000+ 01261 300303787 + 5.14500+ 0-2.50000+ 0 5.18200+ 0-2.14000+ 0 5.27300+ 0-1.07000+ 01261 300303788 + 5.30900+ 0-7.10000- 1 5.54500+ 0-7.10000- 1 5.65500+ 0-1.79000+ 01261 300303789 + 5.72700+ 0-1.43000+ 0 5.81800+ 0 0.00000+ 0 5.90900+ 0 1.64000+ 01261 300303790 + 6.00000+ 0 2.86000+ 0 6.09100+ 0 2.50000+ 0 6.16400+ 0 2.93000+ 01261 300303791 + 6.21800+ 0 1.21000+ 0 6.25500+ 0-1.79000+ 0 6.29100+ 0 0.00000+ 01261 300303792 + 6.41800+ 0 0.00000+ 0 6.45500+ 0-2.86000+ 0 6.49100+ 0-2.86000+ 01261 300303793 + 6.54500+ 0-2.14000+ 0 6.63600+ 0-4.28000+ 0 6.72700+ 0-3.71000+ 01261 300303794 + 6.81800+ 0-2.14000+ 0 6.98200+ 0 0.00000+ 0 7.18200+ 0 0.00000+ 01261 300303795 + 7.29100+ 0-3.57000+ 0 7.81800+ 0-3.93000+ 0 8.00000+ 0-2.29000+ 01261 300303796 + 8.18100+ 0-1.72000+ 0 8.36300+ 0-2.10000- 1 8.45300+ 0 0.00000+ 01261 300303797 + 8.92500+ 0 0.00000+ 0 9.01500+ 0 2.57200+ 1 9.05200+ 0 2.92900+ 11261 300303798 + 9.10600+ 0 2.92900+ 1 9.17900+ 0 1.42900+ 1 9.23300+ 0 2.14000+ 01261 300303799 + 9.30600+ 0-1.43000+ 0 9.36000+ 0-2.50000+ 0 9.43200+ 0 7.86000+ 01261 300303800 + 9.45100+ 0 9.64000+ 0 9.50500+ 0 9.29000+ 0 9.54100+ 0 8.21000+ 01261 300303801 + 9.70400+ 0 0.00000+ 0 9.75900+ 0-2.14000+ 0 9.99500+ 0-2.14000+ 01261 300303802 + 1.00850+ 1-1.43000+ 0 1.01760+ 1-2.14000+ 0 1.02670+ 1-2.14000+ 01261 300303803 + 1.03390+ 1 1.43000+ 0 1.04300+ 1 2.14000+ 0 1.06290+ 1-5.70000- 11261 300303804 + 1.07200+ 1-2.80000- 1 1.08110+ 1 2.10000- 1 1.09370+ 1 7.00000- 21261 300303805 + 1.09920+ 1 7.10000- 1 1.12640+ 1 4.50000+ 0 1.14090+ 1 5.45000+ 01261 300303806 + 1.14450+ 1 5.76000+ 0 1.14810+ 1 5.60000+ 0 1.15540+ 1 0.00000+ 01261 300303807 + 1.18620+ 1 0.00000+ 0 1.18980+ 1 3.50000+ 0 1.20000+ 1 7.40000+ 01261 300303808 + 1.20910+ 1 1.14300+ 1 1.21450+ 1 1.53500+ 1 1.22000+ 1 1.36400+ 11261 300303809 + 1.23500+ 1 0.00000+ 0 1.24910+ 1 0.00000+ 0 1.25440+ 1 0.00000+ 01261 300303810 + 1.40850+ 1 0.00000+ 0 1.42670+ 1 2.86000+ 0 1.43570+ 1 5.71000+ 01261 300303811 + 1.44120+ 1 5.71000+ 0 1.44480+ 1 4.71000+ 0 1.46110+ 1-5.00000+ 01261 300303812 + 1.46470+ 1-4.50000+ 0 1.47370+ 1-2.47000+ 0 1.49010+ 1 5.70000- 11261 300303813 + 1.50000+ 1 0.00000+ 0 1.50910+ 1 7.10000- 1 1.51820+ 1 7.10000- 11261 300303814 + 1.52730+ 1 0.00000+ 0 1.53640+ 1 0.00000+ 0 1.54550+ 1 0.00000+ 01261 300303815 + 1.55450+ 1-1.43000+ 0 1.56360+ 1-1.44000+ 0 1.57270+ 1 0.00000+ 01261 300303816 + 1.58180+ 1 1.07000+ 0 1.59090+ 1 9.30000- 1 1.60000+ 1 0.00000+ 01261 300303817 + 1.60910+ 1 0.00000+ 0 1.61820+ 1 0.00000+ 0 1.62730+ 1-2.15000+ 01261 300303818 + 1.63640+ 1-3.95000+ 0 1.64360+ 1-3.93000+ 0 1.64910+ 1-4.29000+ 01261 300303819 + 1.65450+ 1-4.29000+ 0 1.66360+ 1 0.00000+ 0 1.67270+ 1 0.00000+ 01261 300303820 + 1.68180+ 1 1.43000+ 0 1.69090+ 1 3.93000+ 0 1.69450+ 1 4.29000+ 01261 300303821 + 1.70000+ 1 3.57000+ 0 1.70910+ 1 3.22000+ 0 1.71810+ 1 2.14000+ 01261 300303822 + 1.72730+ 1 1.42000+ 0 1.73640+ 1 7.10000- 1 1.74550+ 1 7.10000- 11261 300303823 + 1.75450+ 1 0.00000+ 0 1.76360+ 1 0.00000+ 0 1.77270+ 1-3.60000- 11261 300303824 + 1.78180+ 1-1.00000+ 0 1.79090+ 1-7.10000- 1 1.80910+ 1 0.00000+ 01261 300303825 + 1.81820+ 1 0.00000+ 0 1.82730+ 1 0.00000+ 0 1.83640+ 1 3.57000+ 01261 300303826 + 1.84550+ 1 4.64000+ 0 1.85450+ 1 4.64000+ 0 1.86360+ 1 4.29000+ 01261 300303827 + 1.87270+ 1 2.50000+ 0 1.88180+ 1 1.43000+ 0 1.89090+ 1 1.07000+ 01261 300303828 + 1.90000+ 1 0.00000+ 0 1.93810+ 1 0.00000+ 0 1.94360+ 1 2.86000+ 01261 300303829 + 1.94550+ 1 7.14000+ 0 1.94910+ 1 1.42900+ 1 1.95090+ 1 1.71400+ 11261 300303830 + 1.95270+ 1 1.81400+ 1 1.95450+ 1 1.71400+ 1 1.96180+ 1 1.18100+ 11261 300303831 + 1.96720+ 1 9.19000+ 0 1.97270+ 1 7.14000+ 0 1.98180+ 1 5.00000+ 01261 300303832 + 1.99090+ 1 3.21000+ 0 2.00000+ 1 1.11000+ 0 2.00910+ 1 0.00000+ 01261 300303833 + 2.02730+ 1-7.10000- 1 2.03640+ 1-7.10000- 1 2.04550+ 1-2.85000+ 01261 300303834 + 2.05450+ 1-7.14000+ 0 2.05820+ 1-7.14000+ 0 2.06360+ 1-3.57000+ 01261 300303835 + 2.06730+ 1-7.10000- 1 2.07270+ 1 4.29000+ 0 2.07640+ 1 6.43000+ 01261 300303836 + 2.08180+ 1 8.22000+ 0 2.09090+ 1 7.86000+ 0 2.10000+ 1 3.58000+ 01261 300303837 + 2.10360+ 1-1.00000+ 0 2.10910+ 1-7.43000+ 0 2.11270+ 1-1.53900+ 11261 300303838 + 2.11820+ 1-1.76300+ 1 2.12180+ 1-1.55900+ 1 2.12640+ 1-8.49000+ 01261 300303839 + 2.13640+ 1-3.57000+ 0 2.14000+ 1-3.65000+ 0 2.14550+ 1-3.35000+ 01261 300303840 + 2.15450+ 1-3.87000+ 0 2.17270+ 1-4.16000+ 0 2.19090+ 1-3.23000+ 01261 300303841 + 2.20910+ 1-2.51000+ 0 2.22730+ 1-1.43000+ 0 2.24550+ 1 7.00000- 21261 300303842 + 2.26360+ 1 1.43000+ 0 2.28180+ 1 2.86000+ 0 2.30000+ 1 1.43000+ 01261 300303843 + 2.31150+ 1 4.04000+ 0 2.32300+ 1 3.09000+ 0 2.34600+ 1-1.18000+ 01261 300303844 + 2.36900+ 1-3.09000+ 0 2.38740+ 1-2.73000+ 0 2.40110+ 1-6.91000+ 01261 300303845 + 2.41030+ 1-6.65000+ 0 2.43790+ 1 9.10000- 1 2.46090+ 1 7.82000+ 01261 300303846 + 2.48390+ 1 4.37000+ 0 2.50690+ 1-7.20000- 1 2.51610+ 1-9.00000- 11261 300303847 + 2.53450+ 1 4.60000- 1 2.55290+ 1-1.00000+ 0 2.55750+ 1-9.00000- 11261 300303848 + 2.57130+ 1 0.00000+ 0 2.58510+ 1-2.73000+ 0 2.60340+ 1-8.91000+ 01261 300303849 + 2.61260+ 1-9.41000+ 0 2.62180+ 1-6.64000+ 0 2.64480+ 1-8.00000- 11261 300303850 + 2.65400+ 1-1.00000+ 0 2.70000+ 1-5.00000- 1 2.71380+ 1 0.00000+ 01261 300303851 + 2.73680+ 1 0.00000+ 0 2.74140+ 1 0.00000+ 0 2.75980+ 1 0.00000+ 01261 300303852 + 2.78280+ 1 0.00000+ 0 2.80570+ 1 0.00000+ 0 2.82870+ 1 0.00000+ 01261 300303853 + 2.84250+ 1 0.00000+ 0 2.85170+ 1-1.00000- 1 2.87470+ 1 4.50000- 11261 300303854 + 2.89770+ 1 1.36000+ 0 2.92070+ 1 1.35000+ 0 2.94370+ 1 4.50000- 11261 300303855 + 2.96670+ 1 0.00000+ 0 2.98970+ 1 8.20000- 1 3.00000+ 1 6.40000- 11261 300303856 + 3.02290+ 1 8.20000- 1 3.04570+ 1 0.00000+ 0 3.06860+ 1 0.00000+ 01261 300303857 + 3.07770+ 1 0.00000+ 0 3.09140+ 1 0.00000+ 0 3.09600+ 1 0.00000+ 01261 300303858 + 3.10970+ 1-6.80000- 1 3.11430+ 1-9.60000- 1 3.13710+ 1-8.20000- 11261 300303859 + 3.16000+ 1 5.90000- 1 3.16910+ 1 0.00000+ 0 3.18290+ 1-9.20000- 11261 300303860 + 3.18740+ 1-1.80000+ 0 3.19660+ 1 0.00000+ 0 3.20570+ 1 0.00000+ 01261 300303861 + 3.21940+ 1 0.00000+ 0 3.22860+ 1 0.00000+ 0 3.25140+ 1-1.82000+ 01261 300303862 + 3.27430+ 1-2.22000+ 0 3.29710+ 1-7.80000- 1 3.32000+ 1-1.17000+ 01261 300303863 + 3.35200+ 1 0.00000+ 0 3.36110+ 1 0.00000+ 0 3.37490+ 1 0.00000+ 01261 300303864 + 3.38860+ 1 0.00000+ 0 3.41140+ 1 0.00000+ 0 3.43430+ 1 0.00000+ 01261 300303865 + 3.44340+ 1-1.09100+ 1 3.44800+ 1 1.63600+ 1 3.45260+ 1 2.36400+ 11261 300303866 + 3.45710+ 1 2.72700+ 1 3.46170+ 1 2.36400+ 1 3.46630+ 1 1.27200+ 11261 300303867 + 3.47090+ 1 6.36000+ 0 3.47540+ 1 4.54000+ 0 3.48460+ 1 1.82000+ 01261 300303868 + 3.48910+ 1 3.64000+ 0 3.50290+ 1 3.64000+ 0 3.52570+ 1 0.00000+ 01261 300303869 + 3.54860+ 1 0.00000+ 0 3.57140+ 1 0.00000+ 0 3.59430+ 1 0.00000+ 01261 300303870 + 3.66290+ 1 0.00000+ 0 3.68570+ 1-9.10000- 1 3.70860+ 1-1.50000+ 01261 300303871 + 3.73140+ 1 0.00000+ 0 3.75430+ 1 7.30000- 1 3.77710+ 1 9.10000- 11261 300303872 + 3.80000+ 1 7.70000- 1 3.82290+ 1 6.80000- 1 3.84570+ 1 5.50000- 11261 300303873 + 3.86860+ 1 0.00000+ 0 3.89140+ 1 0.00000+ 0 3.91430+ 1-2.80000+ 01261 300303874 + 3.92340+ 1-3.00000+ 0 3.92800+ 1 2.73000+ 0 3.93710+ 1 0.00000+ 01261 300303875 + 3.95090+ 1 0.00000+ 0 3.96000+ 1 0.00000+ 0 3.96910+ 1 0.00000+ 01261 300303876 + 3.98290+ 1 0.00000+ 0 3.99660+ 1 0.00000+ 0 4.01940+ 1-1.37000+ 01261 300303877 + 4.05140+ 1 0.00000+ 0 4.06970+ 1 2.72000+ 0 4.07430+ 1 3.45000+ 01261 300303878 + 4.07890+ 1 3.64000+ 0 4.09710+ 1 2.73000+ 0 4.12000+ 1 0.00000+ 01261 300303879 + 4.14290+ 1-4.50000- 1 4.15660+ 1-2.73000+ 0 4.16570+ 1-1.36000+ 01261 300303880 + 4.17940+ 1-9.10000- 1 4.19770+ 1 2.73000+ 0 4.21140+ 1 1.82000+ 01261 300303881 + 4.22970+ 1-1.00000+ 0 4.23890+ 1 7.30000- 1 4.25710+ 1 1.23000+ 01261 300303882 + 4.27090+ 1-9.10000- 1 4.28000+ 1 1.09000+ 0 4.28910+ 1 3.64000+ 01261 300303883 + 4.30290+ 1 1.80000- 1 4.32110+ 1-1.82000+ 0 4.33030+ 1-2.00000+ 01261 300303884 + 4.34860+ 1-4.00000+ 0 4.36690+ 1-2.20000+ 0 4.38060+ 1-1.82000+ 01261 300303885 + 4.40340+ 1 1.82000+ 0 4.41710+ 1 2.27000+ 0 4.44000+ 1-1.80000- 11261 300303886 + 4.46290+ 1 0.00000+ 0 4.48570+ 1-1.80000- 1 4.50860+ 1 0.00000+ 01261 300303887 + 4.53140+ 1-6.30000- 1 4.55430+ 1-5.50000- 1 4.57710+ 1-7.30000- 11261 300303888 + 4.60000+ 1-1.00000+ 0 4.61810+ 1-7.20000- 1 4.63630+ 1-2.10000- 11261 300303889 + 4.65440+ 1 1.29000+ 0 4.67260+ 1 0.00000+ 0 4.72700+ 1 0.00000+ 01261 300303890 + 4.74510+ 1 7.20000- 1 4.76330+ 1 3.04000+ 0 4.77410+ 1 3.51000+ 01261 300303891 + 4.78870+ 1 7.10000- 1 4.79590+ 1 0.00000+ 0 4.80680+ 1-3.57000+ 01261 300303892 + 4.81770+ 1-3.57000+ 0 4.82860+ 1 0.00000+ 0 4.83950+ 1 0.00000+ 01261 300303893 + 4.85400+ 1 5.71000+ 0 4.86120+ 1 6.57000+ 0 4.86850+ 1 5.71000+ 01261 300303894 + 4.88660+ 1-4.29000+ 0 4.89340+ 1-4.86000+ 0 4.90110+ 1-3.57000+ 01261 300303895 + 4.91200+ 1 7.20000- 1 4.91930+ 1 7.20000- 1 4.93380+ 1-7.10000- 11261 300303896 + 4.95560+ 1 3.57000+ 0 4.96640+ 1 5.00000+ 0 4.97730+ 1 4.43000+ 01261 300303897 + 4.99550+ 1 1.29000+ 0 5.01720+ 1 0.00000+ 0 5.18050+ 1 0.00000+ 01261 300303898 + 5.25310+ 1-7.10000- 1 5.27120+ 1 7.10000- 1 5.32560+ 1 7.10000- 11261 300303899 + 5.34380+ 1 7.10000- 1 5.36190+ 1 2.86000+ 0 5.38000+ 1 2.86000+ 01261 300303900 + 5.40000+ 1 1.07000+ 0 5.41810+ 1 0.00000+ 0 5.43630+ 1 0.00000+ 01261 300303901 + 5.45440+ 1 0.00000+ 0 5.47260+ 1 0.00000+ 0 5.49070+ 1 0.00000+ 01261 300303902 + 5.50880+ 1 0.00000+ 0 5.52700+ 1 0.00000+ 0 5.54510+ 1 0.00000+ 01261 300303903 + 5.56330+ 1 0.00000+ 0 5.58140+ 1-7.10000- 1 5.59950+ 1-7.10000- 11261 300303904 + 5.61770+ 1 4.29000+ 0 5.62860+ 1 7.15000+ 0 5.63580+ 1 4.29000+ 01261 300303905 + 5.64310+ 1-7.10000- 1 5.66490+ 1-7.10000- 1 5.67940+ 1 4.29000+ 01261 300303906 + 5.69020+ 1 2.15000+ 0 5.71200+ 1 7.20000- 1 5.72650+ 1 5.00000- 11261 300303907 + 5.76280+ 1 5.00000- 1 5.78100+ 1 0.00000+ 0 5.79910+ 1-1.43000+ 01261 300303908 + 5.81720+ 1 0.00000+ 0 5.83170+ 1-1.50000+ 0 5.83900+ 1-1.00000+ 01261 300303909 + 5.84990+ 1-9.98852- 1 5.85710+ 1-1.16782+ 0 5.86800+ 1-9.66667- 11261 300303910 + 5.88250+ 1-1.93000+ 0 5.90070+ 1 7.00000- 1 5.91160+ 1 1.20000+ 01261 300303911 + 5.94420+ 1 7.00000- 1 5.96240+ 1 3.50000- 1 5.98050+ 1 0.00000+ 01261 300303912 + 6.94000+ 1 0.00000+ 0 6.96190+ 1 3.00000+ 0 6.98000+ 1 4.10000+ 01261 300303913 + 7.00000+ 1 4.14000+ 0 7.01810+ 1 0.00000+ 0 7.03630+ 1-7.10000- 11261 300303914 + 7.05440+ 1-1.43000+ 0 7.07260+ 1-2.32000+ 0 7.09070+ 1-2.14000+ 01261 300303915 + 7.10880+ 1-8.90000- 1 7.12700+ 1 0.00000+ 0 7.15600+ 1 0.00000+ 01261 300303916 + 7.18140+ 1-2.86000+ 0 7.19230+ 1-3.79000+ 0 7.19950+ 1-3.57000+ 01261 300303917 + 7.20680+ 1-3.03000+ 0 7.21040+ 1-1.57000+ 0 7.21770+ 1 7.10000- 11261 300303918 + 7.23220+ 1 8.90000- 1 7.25030+ 1 0.00000+ 0 7.26850+ 1 5.47000+ 01261 300303919 + 7.27210+ 1 2.60000+ 0 7.28300+ 1 0.00000+ 0 7.29020+ 1 0.00000+ 01261 300303920 + 7.29750+ 1-3.00000- 1 7.30840+ 1-2.10000- 1 7.32650+ 1 0.00000+ 01261 300303921 + 7.39910+ 1 0.00000+ 0 7.44260+ 1 4.30000- 1 7.45710+ 1 3.93000+ 01261 300303922 + 7.47890+ 1 1.68600+ 1 7.48250+ 1 1.67900+ 1 7.48620+ 1 1.42900+ 11261 300303923 + 7.48980+ 1 9.29000+ 0 7.49340+ 1 7.50000+ 0 7.49710+ 1 5.71000+ 01261 300303924 + 7.50430+ 1 3.21000+ 0 7.50790+ 1 2.14000+ 0 7.51880+ 1-3.60000- 11261 300303925 + 7.54420+ 1-1.01419+ 0 7.55870+ 1-1.18784+ 0 7.58050+ 1-7.38923- 11261 300303926 + 7.60230+ 1 0.00000+ 0 7.61680+ 1-1.00000- 1 7.67480+ 1 0.00000+ 01261 300303927 + 7.83000+ 1 0.00000+ 0 7.83630+ 1 5.71000+ 0 7.85440+ 1 6.90000+ 01261 300303928 + 7.87260+ 1 5.80000+ 0 7.89070+ 1 5.20000+ 0 7.90880+ 1 3.50000+ 01261 300303929 + 7.92700+ 1 2.34000+ 0 7.94510+ 1 0.00000+ 0 7.98140+ 1 0.00000+ 01261 300303930 + 7.99950+ 1 2.32000+ 0 8.00680+ 1 2.32000+ 0 8.02490+ 1 0.00000+ 01261 300303931 + 8.04670+ 1 0.00000+ 0 8.07570+ 1 3.00000+ 0 8.08660+ 1 3.10000+ 01261 300303932 + 8.09750+ 1 2.50000+ 0 8.10840+ 1 1.70000+ 0 8.13380+ 1 0.00000+ 01261 300303933 + 8.15190+ 1 0.00000+ 0 8.16280+ 1 0.00000+ 0 8.18100+ 1 2.00000+ 01261 300303934 + 8.20000+ 1 2.50000+ 0 8.20000+ 1 0.00000+ 0 1.00000+ 3 0.00000+ 01261 300303935 + 1.30000+ 4 0.00000+ 0 1.30550+ 4 0.00000+ 0 1.30553+ 4 3.24728- 71261 300303936 + 1.32000+ 4 1.56990- 4 1.37000+ 4 6.98340- 4 1.42000+ 4 1.23970- 31261 300303937 + 1.45000+ 4 1.56450- 3 1.47000+ 4 1.78100- 3 1.48000+ 4 1.88930- 31261 300303938 + 1.50000+ 4 2.10580- 3 1.52000+ 4 2.32240- 3 1.55000+ 4 2.64720- 31261 300303939 + 1.58000+ 4 2.97200- 3 1.61000+ 4 3.29680- 3 1.63000+ 4 3.51330- 31261 300303940 + 1.72000+ 4 4.48780- 3 1.76000+ 4 4.92080- 3 1.79000+ 4 5.24560- 31261 300303941 + 1.82000+ 4 5.57040- 3 1.85000+ 4 5.89520- 3 1.90000+ 4 6.43660- 31261 300303942 + 1.92000+ 4 6.65310- 3 1.94000+ 4 6.86970- 3 1.96000+ 4 7.08620- 31261 300303943 + 1.98000+ 4 7.30270- 3 2.00000+ 4 7.51930- 3 2.01000+ 4 7.62760- 31261 300303944 + 2.03000+ 4 7.84410- 3 2.06000+ 4 8.16890- 3 2.10000+ 4 8.60200- 31261 300303945 + 2.12000+ 4 8.81850- 3 2.16000+ 4 9.25160- 3 2.21000+ 4 9.79290- 31261 300303946 + 2.25000+ 4 1.02260- 2 2.33000+ 4 1.10920- 2 2.37000+ 4 1.15250- 21261 300303947 + 2.40000+ 4 1.18500- 2 2.43000+ 4 1.21750- 2 2.46000+ 4 1.25000- 21261 300303948 + 2.50000+ 4 1.29330- 2 2.50000+ 4 2.95714+ 0 2.53000+ 4 2.93956+ 01261 300303949 + 2.57000+ 4 2.91646+ 0 2.62000+ 4 2.89336+ 0 2.65000+ 4 2.88438+ 01261 300303950 + 2.72000+ 4 2.87214+ 0 2.75000+ 4 2.87580+ 0 2.83000+ 4 2.92769+ 01261 300303951 + 2.88000+ 4 3.00306+ 0 2.93000+ 4 2.96052+ 0 2.98000+ 4 2.84172+ 01261 300303952 + 3.00000+ 4 2.79479+ 0 3.11000+ 4 2.85118+ 0 3.13000+ 4 2.88437+ 01261 300303953 + 3.18000+ 4 2.96631+ 0 3.21000+ 4 2.97739+ 0 3.25000+ 4 2.89288+ 01261 300303954 + 3.28000+ 4 2.83022+ 0 3.42000+ 4 2.71653+ 0 3.45000+ 4 2.67420+ 01261 300303955 + 3.50000+ 4 2.60447+ 0 3.62000+ 4 2.70284+ 0 3.65000+ 4 2.62732+ 01261 300303956 + 3.70000+ 4 2.50293+ 0 3.79000+ 4 2.64916+ 0 3.87000+ 4 2.57630+ 01261 300303957 + 3.91000+ 4 2.54125+ 0 3.94000+ 4 2.54870+ 0 4.00000+ 4 2.56341+ 01261 300303958 + 4.04000+ 4 2.63955+ 0 4.10000+ 4 2.75220+ 0 4.15000+ 4 2.65448+ 01261 300303959 + 4.20000+ 4 2.55807+ 0 4.30000+ 4 2.59644+ 0 4.36000+ 4 2.57849+ 01261 300303960 + 4.38000+ 4 2.57257+ 0 4.43000+ 4 2.54538+ 0 4.48000+ 4 2.51023+ 01261 300303961 + 4.50000+ 4 2.49629+ 0 4.52000+ 4 2.47938+ 0 4.54000+ 4 2.46256+ 01261 300303962 + 4.60000+ 4 2.41259+ 0 4.62000+ 4 2.43409+ 0 4.65000+ 4 2.46616+ 01261 300303963 + 4.68000+ 4 2.49800+ 0 4.73000+ 4 2.47340+ 0 4.76000+ 4 2.42803+ 01261 300303964 + 4.82000+ 4 2.38679+ 0 4.84000+ 4 2.40546+ 0 4.88000+ 4 2.44255+ 01261 300303965 + 4.90000+ 4 2.46097+ 0 5.00000+ 4 2.35106+ 0 5.02000+ 4 2.36506+ 01261 300303966 + 5.06000+ 4 2.39288+ 0 5.09000+ 4 2.41359+ 0 5.12000+ 4 2.42086+ 01261 300303967 + 5.15000+ 4 2.42143+ 0 5.22000+ 4 2.45812+ 0 5.25000+ 4 2.51142+ 01261 300303968 + 5.35000+ 4 2.59375+ 0 5.39000+ 4 2.58916+ 0 5.42000+ 4 2.58843+ 01261 300303969 + 5.46000+ 4 2.58924+ 0 5.50000+ 4 2.59007+ 0 5.53000+ 4 2.58664+ 01261 300303970 + 5.57000+ 4 2.58212+ 0 5.61000+ 4 2.57222+ 0 5.67000+ 4 2.53320+ 01261 300303971 + 5.71000+ 4 2.51818+ 0 5.76000+ 4 2.53952+ 0 5.79000+ 4 2.55224+ 01261 300303972 + 5.83000+ 4 2.52887+ 0 5.87000+ 4 2.49233+ 0 5.91000+ 4 2.45997+ 01261 300303973 + 5.92000+ 4 2.45482+ 0 5.98000+ 4 2.42424+ 0 6.00000+ 4 2.41412+ 01261 300303974 + 6.03000+ 4 2.45527+ 0 6.12000+ 4 2.53217+ 0 6.15000+ 4 2.50481+ 01261 300303975 + 6.20000+ 4 2.45956+ 0 6.25000+ 4 2.47431+ 0 6.29000+ 4 2.48604+ 01261 300303976 + 6.32000+ 4 2.49758+ 0 6.42000+ 4 2.49470+ 0 6.47000+ 4 2.40265+ 01261 300303977 + 6.50000+ 4 2.34782+ 0 6.51000+ 4 2.36019+ 0 6.61000+ 4 2.46551+ 01261 300303978 + 6.65000+ 4 2.44526+ 0 6.70000+ 4 2.42016+ 0 6.74000+ 4 2.45337+ 01261 300303979 + 6.80000+ 4 2.50281+ 0 6.83000+ 4 2.47558+ 0 6.89000+ 4 2.42151+ 01261 300303980 + 6.94000+ 4 2.40302+ 0 7.00000+ 4 2.38885+ 0 7.03000+ 4 2.38969+ 01261 300303981 + 7.09000+ 4 2.39140+ 0 7.20000+ 4 2.39450+ 0 7.25000+ 4 2.45575+ 01261 300303982 + 7.31000+ 4 2.51151+ 0 7.37000+ 4 2.48129+ 0 7.41000+ 4 2.47323+ 01261 300303983 + 7.48000+ 4 2.52147+ 0 7.50000+ 4 2.53516+ 0 7.53000+ 4 2.52001+ 01261 300303984 + 7.58000+ 4 2.49493+ 0 7.65000+ 4 2.39350+ 0 7.70000+ 4 2.30272+ 01261 300303985 + 7.76000+ 4 2.35205+ 0 7.84000+ 4 2.39642+ 0 7.89000+ 4 2.41095+ 01261 300303986 + 7.94000+ 4 2.33027+ 0 8.00000+ 4 2.20576+ 0 8.07000+ 4 2.31861+ 01261 300303987 + 8.20000+ 4 2.39570+ 0 8.27000+ 4 2.36997+ 0 8.33000+ 4 2.31633+ 01261 300303988 + 8.40000+ 4 2.21739+ 0 8.47000+ 4 2.34357+ 0 8.50000+ 4 2.39731+ 01261 300303989 + 8.53000+ 4 2.34475+ 0 8.61000+ 4 2.21601+ 0 8.68000+ 4 2.16753+ 01261 300303990 + 8.75000+ 4 2.23078+ 0 8.83000+ 4 2.28652+ 0 8.90000+ 4 2.23832+ 01261 300303991 + 9.00000+ 4 2.35252+ 0 9.03000+ 4 2.35540+ 0 9.12000+ 4 2.31159+ 01261 300303992 + 9.28000+ 4 2.24401+ 0 9.36000+ 4 2.31444+ 0 9.44000+ 4 2.32743+ 01261 300303993 + 9.50000+ 4 2.30994+ 0 9.52000+ 4 2.33026+ 0 9.60000+ 4 2.41108+ 01261 300303994 + 9.68000+ 4 2.51289+ 0 9.77000+ 4 2.42645+ 0 9.85000+ 4 2.42949+ 01261 300303995 + 9.93000+ 4 2.47112+ 0 9.99000+ 4 2.45370+ 0 1.00000+ 5 2.39087+ 01261 300303996 + 1.03000+ 5 2.39140+ 0 1.20000+ 5 2.36373+ 0 1.35000+ 5 2.33917+ 01261 300303997 + 1.40000+ 5 2.32882+ 0 1.50000+ 5 2.31375+ 0 1.60000+ 5 2.30983+ 01261 300303998 + 1.73000+ 5 2.29434+ 0 1.80000+ 5 2.29245+ 0 2.00000+ 5 2.28227+ 01261 300303999 + 2.07000+ 5 2.26902+ 0 2.15000+ 5 2.26578+ 0 2.20000+ 5 2.26518+ 01261 300304000 + 2.25000+ 5 2.26497+ 0 2.35000+ 5 2.26778+ 0 2.40000+ 5 2.28022+ 01261 300304001 + 2.50000+ 5 2.30707+ 0 2.60000+ 5 2.31643+ 0 2.70000+ 5 2.32524+ 01261 300304002 + 2.80000+ 5 2.32921+ 0 3.00000+ 5 2.33065+ 0 3.20000+ 5 2.30888+ 01261 300304003 + 3.25000+ 5 2.30719+ 0 3.40000+ 5 2.31423+ 0 3.50000+ 5 2.32348+ 01261 300304004 + 3.60000+ 5 2.33073+ 0 3.80000+ 5 2.35003+ 0 4.00000+ 5 2.36701+ 01261 300304005 + 4.20000+ 5 2.39389+ 0 4.40000+ 5 2.41838+ 0 4.50000+ 5 2.42943+ 01261 300304006 + 4.60000+ 5 2.43167+ 0 4.70000+ 5 2.43486+ 0 4.80000+ 5 2.43830+ 01261 300304007 + 5.00000+ 5 2.44746+ 0 5.20000+ 5 2.44119+ 0 5.40000+ 5 2.43757+ 01261 300304008 + 5.50000+ 5 2.43779+ 0 5.60000+ 5 2.43970+ 0 5.70000+ 5 2.44163+ 01261 300304009 + 5.80000+ 5 2.44381+ 0 6.00000+ 5 2.44924+ 0 6.20000+ 5 2.48403+ 01261 300304010 + 6.40000+ 5 2.51893+ 0 6.50000+ 5 2.53683+ 0 6.60000+ 5 2.54530+ 01261 300304011 + 6.70000+ 5 2.55303+ 0 6.80000+ 5 2.56092+ 0 7.00000+ 5 2.57674+ 01261 300304012 + 7.20000+ 5 2.57686+ 0 7.30000+ 5 2.57794+ 0 7.40000+ 5 2.57995+ 01261 300304013 + 7.50000+ 5 2.58242+ 0 7.60000+ 5 2.58578+ 0 7.70000+ 5 2.59015+ 01261 300304014 + 7.75000+ 5 2.59222+ 0 7.80000+ 5 2.59396+ 0 8.00000+ 5 2.60330+ 01261 300304015 + 8.20000+ 5 2.60463+ 0 8.40000+ 5 2.60540+ 0 8.50000+ 5 2.60803+ 01261 300304016 + 8.60000+ 5 2.62095+ 0 8.80000+ 5 2.63043+ 0 9.00000+ 5 2.64705+ 01261 300304017 + 9.20000+ 5 2.65177+ 0 9.40000+ 5 2.65663+ 0 9.50000+ 5 2.65898+ 01261 300304018 + 9.60000+ 5 2.66971+ 0 9.70000+ 5 2.68121+ 0 9.80000+ 5 2.69176+ 01261 300304019 + 1.00000+ 6 2.71279+ 0 1.05000+ 6 2.74714+ 0 1.10000+ 6 2.77405+ 01261 300304020 + 1.15000+ 6 2.79678+ 0 1.20000+ 6 2.81693+ 0 1.25000+ 6 2.83467+ 01261 300304021 + 1.29500+ 6 2.84994+ 0 1.30000+ 6 2.85173+ 0 1.35000+ 6 2.86822+ 01261 300304022 + 1.40000+ 6 2.88539+ 0 1.45000+ 6 2.90328+ 0 1.49500+ 6 2.92102+ 01261 300304023 + 1.50000+ 6 2.92399+ 0 1.60000+ 6 2.95595+ 0 1.70000+ 6 2.98640+ 01261 300304024 + 1.80000+ 6 3.01696+ 0 1.90000+ 6 3.04792+ 0 2.00000+ 6 3.07716+ 01261 300304025 + 2.10000+ 6 3.07768+ 0 2.20000+ 6 3.07755+ 0 2.30000+ 6 3.07590+ 01261 300304026 + 2.40000+ 6 3.07336+ 0 2.50000+ 6 3.06784+ 0 2.60000+ 6 3.07161+ 01261 300304027 + 2.70000+ 6 3.07320+ 0 2.80000+ 6 3.07502+ 0 2.90000+ 6 3.07557+ 01261 300304028 + 3.00000+ 6 3.07676+ 0 3.10000+ 6 3.06568+ 0 3.20000+ 6 3.05384+ 01261 300304029 + 3.30000+ 6 3.04255+ 0 3.40000+ 6 3.03188+ 0 3.50000+ 6 3.02165+ 01261 300304030 + 3.60000+ 6 3.01682+ 0 3.70000+ 6 3.01221+ 0 3.80000+ 6 3.00450+ 01261 300304031 + 3.90000+ 6 3.00201+ 0 4.00000+ 6 2.99533+ 0 4.10000+ 6 2.98976+ 01261 300304032 + 4.20000+ 6 2.98604+ 0 4.30000+ 6 2.97937+ 0 4.40000+ 6 2.97578+ 01261 300304033 + 4.50000+ 6 2.97215+ 0 4.60000+ 6 2.96650+ 0 4.70000+ 6 2.96297+ 01261 300304034 + 4.80000+ 6 2.95444+ 0 4.90000+ 6 2.93194+ 0 5.00000+ 6 2.93049+ 01261 300304035 + 5.10000+ 6 2.92197+ 0 5.15000+ 6 2.91120+ 0 5.20000+ 6 2.90083+ 01261 300304036 + 5.25000+ 6 2.89133+ 0 5.30000+ 6 2.88092+ 0 5.32858+ 6 2.87502+ 01261 300304037 + 5.35000+ 6 2.87012+ 0 5.40000+ 6 2.86001+ 0 5.45000+ 6 2.84849+ 01261 300304038 + 5.50000+ 6 2.83356+ 0 5.55000+ 6 2.81808+ 0 5.60000+ 6 2.80405+ 01261 300304039 + 5.65000+ 6 2.79819+ 0 5.70000+ 6 2.79833+ 0 5.75000+ 6 2.79638+ 01261 300304040 + 5.80000+ 6 2.79324+ 0 5.90000+ 6 2.79987+ 0 6.00000+ 6 2.76385+ 01261 300304041 + 6.10000+ 6 2.72776+ 0 6.20000+ 6 2.68760+ 0 6.30000+ 6 2.65033+ 01261 300304042 + 6.40000+ 6 2.61793+ 0 6.50000+ 6 2.58711+ 0 6.60000+ 6 2.57477+ 01261 300304043 + 6.70000+ 6 2.56544+ 0 6.80000+ 6 2.55073+ 0 6.90000+ 6 2.54562+ 01261 300304044 + 7.00000+ 6 2.53869+ 0 7.10000+ 6 2.52595+ 0 7.20000+ 6 2.50570+ 01261 300304045 + 7.30000+ 6 2.48653+ 0 7.40000+ 6 2.45846+ 0 7.50000+ 6 2.45180+ 01261 300304046 + 7.60000+ 6 2.43907+ 0 7.65000+ 6 2.44160+ 0 7.70000+ 6 2.44308+ 01261 300304047 + 7.80000+ 6 2.44413+ 0 7.90000+ 6 2.44706+ 0 8.00000+ 6 2.44324+ 01261 300304048 + 8.20000+ 6 2.44750+ 0 8.40000+ 6 2.44579+ 0 8.50000+ 6 2.44675+ 01261 300304049 + 8.60000+ 6 2.44491+ 0 8.80000+ 6 2.44367+ 0 9.00000+ 6 2.43363+ 01261 300304050 + 9.20000+ 6 2.42944+ 0 9.40000+ 6 2.42021+ 0 9.50000+ 6 2.41763+ 01261 300304051 + 9.60000+ 6 2.41203+ 0 9.80000+ 6 2.40385+ 0 1.00000+ 7 2.39467+ 01261 300304052 + 1.05000+ 7 2.36915+ 0 1.10000+ 7 2.35460+ 0 1.15000+ 7 2.35922+ 01261 300304053 + 1.19000+ 7 2.40129+ 0 1.20000+ 7 2.41799+ 0 1.21988+ 7 2.45601+ 01261 300304054 + 1.25000+ 7 2.51079+ 0 1.30000+ 7 2.60069+ 0 1.35000+ 7 2.66756+ 01261 300304055 + 1.40000+ 7 2.70745+ 0 1.45000+ 7 2.73329+ 0 1.50000+ 7 2.72214+ 01261 300304056 + 1.55000+ 7 2.70398+ 0 1.60000+ 7 2.67283+ 0 1.65000+ 7 2.63619+ 01261 300304057 + 1.70000+ 7 2.58658+ 0 1.75000+ 7 2.52846+ 0 1.80000+ 7 2.47139+ 01261 300304058 + 1.85000+ 7 2.41131+ 0 1.90000+ 7 2.37045+ 0 1.95000+ 7 2.34074+ 01261 300304059 + 2.00000+ 7 2.32723+ 0 1261 300304060 + 1261 300004061 + 9.22350+ 4 2.33025+ 2 0 99 0 01261 300404062 + 0.00000+ 0-1.30000+ 4 0 0 1 3701261 300404063 + 370 2 1261 300404064 + 1.30550+ 4 0.00000+ 0 1.32000+ 4 1.56990- 4 1.37000+ 4 6.98340- 41261 300404065 + 1.42000+ 4 1.23970- 3 1.45000+ 4 1.56450- 3 1.47000+ 4 1.78100- 31261 300404066 + 1.48000+ 4 1.88930- 3 1.50000+ 4 2.10580- 3 1.52000+ 4 2.32240- 31261 300404067 + 1.55000+ 4 2.64720- 3 1.58000+ 4 2.97200- 3 1.61000+ 4 3.29680- 31261 300404068 + 1.63000+ 4 3.51330- 3 1.72000+ 4 4.48780- 3 1.76000+ 4 4.92080- 31261 300404069 + 1.79000+ 4 5.24560- 3 1.82000+ 4 5.57040- 3 1.85000+ 4 5.89520- 31261 300404070 + 1.90000+ 4 6.43660- 3 1.92000+ 4 6.65310- 3 1.94000+ 4 6.86970- 31261 300404071 + 1.96000+ 4 7.08620- 3 1.98000+ 4 7.30270- 3 2.00000+ 4 7.51930- 31261 300404072 + 2.01000+ 4 7.62760- 3 2.03000+ 4 7.84410- 3 2.06000+ 4 8.16890- 31261 300404073 + 2.10000+ 4 8.60200- 3 2.12000+ 4 8.81850- 3 2.16000+ 4 9.25160- 31261 300404074 + 2.21000+ 4 9.79290- 3 2.25000+ 4 1.02260- 2 2.33000+ 4 1.10920- 21261 300404075 + 2.37000+ 4 1.15250- 2 2.40000+ 4 1.18500- 2 2.43000+ 4 1.21750- 21261 300404076 + 2.46000+ 4 1.25000- 2 2.50000+ 4 1.29330- 2 2.53000+ 4 1.32580- 21261 300404077 + 2.57000+ 4 1.36910- 2 2.62000+ 4 1.42320- 2 2.65000+ 4 1.45570- 21261 300404078 + 2.72000+ 4 1.53150- 2 2.75000+ 4 1.56390- 2 2.83000+ 4 1.65060- 21261 300404079 + 2.88000+ 4 1.70470- 2 2.93000+ 4 1.75880- 2 2.98000+ 4 1.81300- 21261 300404080 + 3.00000+ 4 1.83460- 2 3.11000+ 4 1.95370- 2 3.13000+ 4 1.97540- 21261 300404081 + 3.18000+ 4 2.02950- 2 3.21000+ 4 2.06200- 2 3.25000+ 4 2.10530- 21261 300404082 + 3.28000+ 4 2.13780- 2 3.42000+ 4 2.28930- 2 3.45000+ 4 2.32180- 21261 300404083 + 3.50000+ 4 2.37600- 2 3.62000+ 4 2.50590- 2 3.65000+ 4 2.53840- 21261 300404084 + 3.70000+ 4 2.59250- 2 3.79000+ 4 2.68990- 2 3.87000+ 4 2.77660- 21261 300404085 + 3.91000+ 4 2.81990- 2 3.94000+ 4 2.85230- 2 4.00000+ 4 2.91730- 21261 300404086 + 4.04000+ 4 2.96060- 2 4.10000+ 4 3.02560- 2 4.15000+ 4 3.07970- 21261 300404087 + 4.20000+ 4 3.13380- 2 4.30000+ 4 3.24210- 2 4.36000+ 4 3.30710- 21261 300404088 + 4.38000+ 4 3.32870- 2 4.43000+ 4 3.38290- 2 4.48000+ 4 3.43700- 21261 300404089 + 4.50000+ 4 3.45870- 2 4.52000+ 4 3.48030- 2 4.54000+ 4 3.50200- 21261 300404090 + 4.60000+ 4 3.56690- 2 4.62000+ 4 3.58860- 2 4.65000+ 4 3.62110- 21261 300404091 + 4.68000+ 4 3.65350- 2 4.73000+ 4 3.70770- 2 4.76000+ 4 3.74020- 21261 300404092 + 4.82000+ 4 3.80510- 2 4.84000+ 4 3.82680- 2 4.88000+ 4 3.87010- 21261 300404093 + 4.90000+ 4 3.89170- 2 5.00000+ 4 4.00000- 2 5.02000+ 4 4.09120- 21261 300404094 + 5.06000+ 4 4.27350- 2 5.09000+ 4 4.41030- 2 5.12000+ 4 4.54710- 21261 300404095 + 5.15000+ 4 4.68380- 2 5.22000+ 4 5.00290- 2 5.25000+ 4 5.13970- 21261 300404096 + 5.35000+ 4 5.59560- 2 5.39000+ 4 5.77790- 2 5.42000+ 4 5.91470- 21261 300404097 + 5.46000+ 4 6.09710- 2 5.50000+ 4 6.27940- 2 5.53000+ 4 6.41620- 21261 300404098 + 5.57000+ 4 6.59850- 2 5.61000+ 4 6.78090- 2 5.67000+ 4 7.05440- 21261 300404099 + 5.71000+ 4 7.23680- 2 5.76000+ 4 7.46470- 2 5.79000+ 4 7.60150- 21261 300404100 + 5.83000+ 4 7.78380- 2 5.87000+ 4 7.96620- 2 5.91000+ 4 8.14850- 21261 300404101 + 5.92000+ 4 8.19410- 2 5.98000+ 4 8.46760- 2 6.00000+ 4 8.55880- 21261 300404102 + 6.03000+ 4 8.69560- 2 6.12000+ 4 9.10590- 2 6.15000+ 4 9.24260- 21261 300404103 + 6.20000+ 4 9.47060- 2 6.25000+ 4 9.69850- 2 6.29000+ 4 9.88090- 21261 300404104 + 6.32000+ 4 1.00180- 1 6.42000+ 4 1.04740- 1 6.47000+ 4 1.07010- 11261 300404105 + 6.50000+ 4 1.08380- 1 6.51000+ 4 1.08840- 1 6.61000+ 4 1.13400- 11261 300404106 + 6.65000+ 4 1.15220- 1 6.70000+ 4 1.17500- 1 6.74000+ 4 1.19320- 11261 300404107 + 6.80000+ 4 1.22060- 1 6.83000+ 4 1.23430- 1 6.89000+ 4 1.26160- 11261 300404108 + 6.94000+ 4 1.28440- 1 7.00000+ 4 1.31180- 1 7.03000+ 4 1.32540- 11261 300404109 + 7.09000+ 4 1.35280- 1 7.20000+ 4 1.40290- 1 7.25000+ 4 1.42570- 11261 300404110 + 7.31000+ 4 1.45310- 1 7.37000+ 4 1.48040- 1 7.41000+ 4 1.49870- 11261 300404111 + 7.48000+ 4 1.53060- 1 7.50000+ 4 1.53970- 1 7.53000+ 4 1.55340- 11261 300404112 + 7.58000+ 4 1.57620- 1 7.65000+ 4 1.60810- 1 7.70000+ 4 1.63090- 11261 300404113 + 7.76000+ 4 1.65820- 1 7.84000+ 4 1.69470- 1 7.89000+ 4 1.71750- 11261 300404114 + 7.94000+ 4 1.74030- 1 8.00000+ 4 1.76760- 1 8.07000+ 4 1.79960- 11261 300404115 + 8.20000+ 4 1.85880- 1 8.27000+ 4 1.89070- 1 8.33000+ 4 1.91810- 11261 300404116 + 8.40000+ 4 1.95000- 1 8.47000+ 4 2.02660- 1 8.50000+ 4 2.05940- 11261 300404117 + 8.53000+ 4 2.09220- 1 8.61000+ 4 2.17970- 1 8.68000+ 4 2.25620- 11261 300404118 + 8.75000+ 4 2.33280- 1 8.83000+ 4 2.42030- 1 8.90000+ 4 2.49690- 11261 300404119 + 9.00000+ 4 2.60620- 1 9.03000+ 4 2.63910- 1 9.12000+ 4 2.73750- 11261 300404120 + 9.28000+ 4 2.91250- 1 9.36000+ 4 3.00000- 1 9.44000+ 4 3.08750- 11261 300404121 + 9.50000+ 4 3.15310- 1 9.52000+ 4 3.17500- 1 9.60000+ 4 3.26250- 11261 300404122 + 9.68000+ 4 3.35000- 1 9.77000+ 4 3.44840- 1 9.85000+ 4 3.53590- 11261 300404123 + 9.93000+ 4 3.62340- 1 9.99000+ 4 3.68910- 1 1.00000+ 5 3.70000- 11261 300404124 + 1.03000+ 5 3.90000- 1 1.20000+ 5 4.29790- 1 1.35000+ 5 4.64890- 11261 300404125 + 1.40000+ 5 4.76600- 1 1.50000+ 5 5.00000- 1 1.60000+ 5 5.26090- 11261 300404126 + 1.73000+ 5 5.60010- 1 1.80000+ 5 5.78160- 1 2.00000+ 5 6.30000- 11261 300404127 + 2.07000+ 5 6.38800- 1 2.15000+ 5 6.48860- 1 2.20000+ 5 6.55140- 11261 300404128 + 2.25000+ 5 6.61430- 1 2.35000+ 5 6.74000- 1 2.40000+ 5 6.91000- 11261 300404129 + 2.50000+ 5 7.25000- 1 2.60000+ 5 7.44000- 1 2.70000+ 5 7.63010- 11261 300404130 + 2.80000+ 5 7.78680- 1 3.00000+ 5 8.10010- 1 3.20000+ 5 8.40000- 11261 300404131 + 3.25000+ 5 8.47500- 1 3.40000+ 5 8.69990- 1 3.50000+ 5 8.84990- 11261 300404132 + 3.60000+ 5 8.98000- 1 3.80000+ 5 9.24010- 1 4.00000+ 5 9.50020- 11261 300404133 + 4.20000+ 5 9.88020- 1 4.40000+ 5 1.02600+ 0 4.50000+ 5 1.04500+ 01261 300404134 + 4.60000+ 5 1.05600+ 0 4.70000+ 5 1.06700+ 0 4.80000+ 5 1.07800+ 01261 300404135 + 5.00000+ 5 1.10000+ 0 5.20000+ 5 1.10600+ 0 5.40000+ 5 1.11200+ 01261 300404136 + 5.50000+ 5 1.11500+ 0 5.60000+ 5 1.12000+ 0 5.70000+ 5 1.12500+ 01261 300404137 + 5.80000+ 5 1.13000+ 0 6.00000+ 5 1.14000+ 0 6.20000+ 5 1.18200+ 01261 300404138 + 6.40000+ 5 1.22400+ 0 6.50000+ 5 1.24500+ 0 6.60000+ 5 1.25620+ 01261 300404139 + 6.70000+ 5 1.26740+ 0 6.80000+ 5 1.27860+ 0 7.00000+ 5 1.30100+ 01261 300404140 + 7.20000+ 5 1.30860+ 0 7.30000+ 5 1.31240+ 0 7.40000+ 5 1.31620+ 01261 300404141 + 7.50000+ 5 1.32000+ 0 7.60000+ 5 1.32400+ 0 7.70000+ 5 1.32800+ 01261 300404142 + 7.75000+ 5 1.33000+ 0 7.80000+ 5 1.33200+ 0 8.00000+ 5 1.34000+ 01261 300404143 + 8.20000+ 5 1.33600+ 0 8.40000+ 5 1.33200+ 0 8.50000+ 5 1.33000+ 01261 300404144 + 8.60000+ 5 1.33400+ 0 8.80000+ 5 1.34200+ 0 9.00000+ 5 1.35000+ 01261 300404145 + 9.20000+ 5 1.34590+ 0 9.40000+ 5 1.34190+ 0 9.50000+ 5 1.33990+ 01261 300404146 + 9.60000+ 5 1.34590+ 0 9.70000+ 5 1.35190+ 0 9.80000+ 5 1.35800+ 01261 300404147 + 1.00000+ 6 1.37010+ 0 1.05000+ 6 1.39310+ 0 1.10000+ 6 1.41610+ 01261 300404148 + 1.15000+ 6 1.43900+ 0 1.20000+ 6 1.46200+ 0 1.25000+ 6 1.48500+ 01261 300404149 + 1.29500+ 6 1.50570+ 0 1.30000+ 6 1.50800+ 0 1.35000+ 6 1.53100+ 01261 300404150 + 1.40000+ 6 1.55400+ 0 1.45000+ 6 1.57700+ 0 1.49500+ 6 1.59770+ 01261 300404151 + 1.50000+ 6 1.60000+ 0 1.60000+ 6 1.63000+ 0 1.70000+ 6 1.66000+ 01261 300404152 + 1.80000+ 6 1.69000+ 0 1.90000+ 6 1.72000+ 0 2.00000+ 6 1.75000+ 01261 300404153 + 2.10000+ 6 1.75000+ 0 2.20000+ 6 1.75000+ 0 2.30000+ 6 1.75000+ 01261 300404154 + 2.40000+ 6 1.75000+ 0 2.50000+ 6 1.75000+ 0 2.60000+ 6 1.76200+ 01261 300404155 + 2.70000+ 6 1.77400+ 0 2.80000+ 6 1.78600+ 0 2.90000+ 6 1.79800+ 01261 300404156 + 3.00000+ 6 1.81000+ 0 3.10000+ 6 1.80990+ 0 3.20000+ 6 1.80980+ 01261 300404157 + 3.30000+ 6 1.80960+ 0 3.40000+ 6 1.80950+ 0 3.50000+ 6 1.80940+ 01261 300404158 + 3.60000+ 6 1.81140+ 0 3.70000+ 6 1.81360+ 0 3.80000+ 6 1.81570+ 01261 300404159 + 3.90000+ 6 1.81790+ 0 4.00000+ 6 1.82000+ 0 4.10000+ 6 1.82210+ 01261 300404160 + 4.20000+ 6 1.82400+ 0 4.30000+ 6 1.82600+ 0 4.40000+ 6 1.82800+ 01261 300404161 + 4.50000+ 6 1.83000+ 0 4.60000+ 6 1.83200+ 0 4.70000+ 6 1.83400+ 01261 300404162 + 4.80000+ 6 1.83200+ 0 4.90000+ 6 1.81500+ 0 5.00000+ 6 1.81700+ 01261 300404163 + 5.10000+ 6 1.81300+ 0 5.15000+ 6 1.80500+ 0 5.20000+ 6 1.79800+ 01261 300404164 + 5.25000+ 6 1.79200+ 0 5.30000+ 6 1.78540+ 0 5.32858+ 6 1.78190+ 01261 300404165 + 5.35000+ 6 1.77780+ 0 5.40000+ 6 1.76820+ 0 5.45000+ 6 1.75660+ 01261 300404166 + 5.50000+ 6 1.74400+ 0 5.55000+ 6 1.73100+ 0 5.60000+ 6 1.71500+ 01261 300404167 + 5.65000+ 6 1.69800+ 0 5.70000+ 6 1.68000+ 0 5.75000+ 6 1.65800+ 01261 300404168 + 5.80000+ 6 1.63400+ 0 5.90000+ 6 1.58200+ 0 6.00000+ 6 1.49200+ 01261 300404169 + 6.10000+ 6 1.40300+ 0 6.20000+ 6 1.30200+ 0 6.30000+ 6 1.20500+ 01261 300404170 + 6.40000+ 6 1.11300+ 0 6.50000+ 6 1.01960+ 0 6.60000+ 6 9.48800- 11261 300404171 + 6.70000+ 6 8.76900- 1 6.80000+ 6 8.12700- 1 6.90000+ 6 7.56000- 11261 300404172 + 7.00000+ 6 7.00400- 1 7.10000+ 6 6.41900- 1 7.20000+ 6 5.84000- 11261 300404173 + 7.30000+ 6 5.26000- 1 7.40000+ 6 4.66200- 1 7.50000+ 6 4.28800- 11261 300404174 + 7.60000+ 6 3.89400- 1 7.65000+ 6 3.79100- 1 7.70000+ 6 3.68800- 11261 300404175 + 7.80000+ 6 3.48200- 1 7.90000+ 6 3.27500- 1 8.00000+ 6 3.07000- 11261 300404176 + 8.20000+ 6 2.79800- 1 8.40000+ 6 2.52600- 1 8.50000+ 6 2.41800- 11261 300404177 + 8.60000+ 6 2.31200- 1 8.80000+ 6 2.15500- 1 9.00000+ 6 2.00000- 11261 300404178 + 9.20000+ 6 1.93220- 1 9.40000+ 6 1.86390- 1 9.50000+ 6 1.84000- 11261 300404179 + 9.60000+ 6 1.81600- 1 9.80000+ 6 1.78800- 1 1.00000+ 7 1.76000- 11261 300404180 + 1.05000+ 7 1.74000- 1 1.10000+ 7 1.78000- 1 1.15000+ 7 1.83000- 11261 300404181 + 1.19000+ 7 1.89300- 1 1.20000+ 7 1.91000- 1 1.21988+ 7 1.95100- 11261 300404182 + 1.25000+ 7 2.02000- 1 1.30000+ 7 2.13000- 1 1.35000+ 7 2.21000- 11261 300404183 + 1.40000+ 7 2.25000- 1 1.45000+ 7 2.23000- 1 1.50000+ 7 2.21000- 11261 300404184 + 1.55000+ 7 2.19000- 1 1.60000+ 7 2.18000- 1 1.65000+ 7 2.16500- 11261 300404185 + 1.70000+ 7 2.15000- 1 1.75000+ 7 2.14000- 1 1.80000+ 7 2.13000- 11261 300404186 + 1.85000+ 7 2.12000- 1 1.90000+ 7 2.11200- 1 1.95000+ 7 2.10500- 11261 300404187 + 2.00000+ 7 2.10000- 1 1261 300404188 + 1261 300004189 + 9.22350+ 4 2.33025+ 2 0 99 0 01261 301604190 + 0.00000+ 0-5.30600+ 6 0 0 1 681261 301604191 + 68 2 1261 301604192 + 5.32858+ 6 0.00000+ 0 5.35000+ 6 1.00000- 3 5.40000+ 6 5.00000- 31261 301604193 + 5.45000+ 6 1.00000- 2 5.50000+ 6 1.40000- 2 5.55000+ 6 1.80000- 21261 301604194 + 5.60000+ 6 2.30000- 2 5.65000+ 6 3.10000- 2 5.70000+ 6 4.00000- 21261 301604195 + 5.75000+ 6 4.80000- 2 5.80000+ 6 5.60000- 2 5.90000+ 6 7.50000- 21261 301604196 + 6.00000+ 6 9.60000- 2 6.10000+ 6 1.16000- 1 6.20000+ 6 1.38000- 11261 301604197 + 6.30000+ 6 1.56000- 1 6.40000+ 6 1.75000- 1 6.50000+ 6 1.95000- 11261 301604198 + 6.60000+ 6 2.12000- 1 6.70000+ 6 2.30000- 1 6.80000+ 6 2.47000- 11261 301604199 + 6.90000+ 6 2.62000- 1 7.00000+ 6 2.77000- 1 7.10000+ 6 2.90000- 11261 301604200 + 7.20000+ 6 3.02000- 1 7.30000+ 6 3.12000- 1 7.40000+ 6 3.21000- 11261 301604201 + 7.50000+ 6 3.30000- 1 7.60000+ 6 3.39000- 1 7.65000+ 6 3.42000- 11261 301604202 + 7.70000+ 6 3.47000- 1 7.80000+ 6 3.53000- 1 7.90000+ 6 3.63000- 11261 301604203 + 8.00000+ 6 3.69000- 1 8.20000+ 6 3.82000- 1 8.40000+ 6 3.95000- 11261 301604204 + 8.50000+ 6 4.01000- 1 8.60000+ 6 4.06000- 1 8.80000+ 6 4.16000- 11261 301604205 + 9.00000+ 6 4.23000- 1 9.20000+ 6 4.30000- 1 9.40000+ 6 4.35000- 11261 301604206 + 9.50000+ 6 4.38000- 1 9.60000+ 6 4.40000- 1 9.80000+ 6 4.43000- 11261 301604207 + 1.00000+ 7 4.46000- 1 1.05000+ 7 4.51000- 1 1.10000+ 7 4.55000- 11261 301604208 + 1.15000+ 7 4.56000- 1 1.19000+ 7 4.57000- 1 1.20000+ 7 4.57000- 11261 301604209 + 1.21988+ 7 4.57000- 1 1.25000+ 7 4.42000- 1 1.30000+ 7 3.98000- 11261 301604210 + 1.35000+ 7 3.43000- 1 1.40000+ 7 2.96000- 1 1.45000+ 7 2.53000- 11261 301604211 + 1.50000+ 7 2.10000- 1 1.55000+ 7 1.71000- 1 1.60000+ 7 1.39000- 11261 301604212 + 1.65000+ 7 1.11000- 1 1.70000+ 7 8.30000- 2 1.75000+ 7 5.90000- 21261 301604213 + 1.80000+ 7 3.60000- 2 1.85000+ 7 2.10000- 2 1.90000+ 7 1.10000- 21261 301604214 + 1.95000+ 7 4.00000- 3 2.00000+ 7 0.00000+ 0 1261 301604215 + 1261 300004216 + 9.22350+ 4 2.33025+ 2 0 99 0 01261 301704217 + 0.00000+ 0-1.21470+ 7 0 0 1 171261 301704218 + 17 2 1261 301704219 + 1.21988+ 7 0.00000+ 0 1.25000+ 7 4.00000- 3 1.30000+ 7 1.10000- 21261 301704220 + 1.35000+ 7 2.10000- 2 1.40000+ 7 3.20000- 2 1.45000+ 7 4.50000- 21261 301704221 + 1.50000+ 7 5.90000- 2 1.55000+ 7 7.20000- 2 1.60000+ 7 8.40000- 21261 301704222 + 1.65000+ 7 9.50000- 2 1.70000+ 7 1.02000- 1 1.75000+ 7 1.04000- 11261 301704223 + 1.80000+ 7 1.03000- 1 1.85000+ 7 9.70000- 2 1.90000+ 7 8.70000- 21261 301704224 + 1.95000+ 7 7.30000- 2 2.00000+ 7 6.60000- 2 1261 301704225 + 1261 300004226 + 9.22350+ 4 2.33025+ 2 0 99 0 01261 301804227 + 0.00000+ 0 1.92500+ 8 0 0 3 8101261 301804228 + 57 5 478 2 810 31261 301804229 + 1.00000- 5 3.13101+ 4 1.00000- 3 3.12342+ 3 5.00000- 3 1.38320+ 31261 301804230 + 1.00000- 2 9.66232+ 2 1.50000- 2 7.79393+ 2 2.00000- 2 6.66868+ 21261 301804231 + 2.53000- 2 5.85400+ 2 3.00000- 2 5.31595+ 2 3.50000- 2 4.86335+ 21261 301804232 + 4.00000- 2 4.49609+ 2 4.50000- 2 4.18978+ 2 5.00000- 2 3.92911+ 21261 301804233 + 5.50000- 2 3.70387+ 2 6.00000- 2 3.50688+ 2 6.50000- 2 3.33297+ 21261 301804234 + 7.00000- 2 3.17839+ 2 7.50000- 2 3.04052+ 2 8.00000- 2 2.91753+ 21261 301804235 + 8.50000- 2 2.80719+ 2 9.00000- 2 2.70717+ 2 9.50000- 2 2.61587+ 21261 301804236 + 1.00000- 1 2.53286+ 2 1.10000- 1 2.38222+ 2 1.20000- 1 2.25245+ 21261 301804237 + 1.30000- 1 2.14130+ 2 1.40000- 1 2.04858+ 2 1.50000- 1 1.97255+ 21261 301804238 + 1.60000- 1 1.90817+ 2 1.70000- 1 1.85614+ 2 1.80000- 1 1.81575+ 21261 301804239 + 2.03340- 1 1.77009+ 2 2.23340- 1 1.77951+ 2 2.43340- 1 1.83852+ 21261 301804240 + 2.63340- 1 1.91404+ 2 2.83340- 1 1.96425+ 2 3.03340- 1 1.91819+ 21261 301804241 + 3.23340- 1 1.74246+ 2 3.43340- 1 1.53939+ 2 3.63340- 1 1.39008+ 21261 301804242 + 3.83340- 1 1.26031+ 2 4.03340- 1 1.15158+ 2 4.28120- 1 1.04063+ 21261 301804243 + 4.64920- 1 9.15860+ 1 5.04920- 1 8.19601+ 1 5.44920- 1 7.48053+ 11261 301804244 + 5.84920- 1 6.94310+ 1 6.24920- 1 6.53910+ 1 6.64920- 1 6.22235+ 11261 301804245 + 7.04920- 1 5.96615+ 1 7.44920- 1 5.76510+ 1 7.84920- 1 5.62855+ 11261 301804246 + 8.24920- 1 5.56588+ 1 8.64920- 1 5.59828+ 1 9.04920- 1 5.76439+ 11261 301804247 + 9.44920- 1 6.07385+ 1 9.84920- 1 6.52381+ 1 1.00000+ 0 6.81157+ 11261 301804248 + 1.00000+ 0 1.18560+ 1 1.05500+ 0 1.14300+ 1 1.07300+ 0 1.06400+ 11261 301804249 + 1.09100+ 0 9.29000+ 0 1.18200+ 0-1.92900+ 1 1.20000+ 0-2.35700+ 11261 301804250 + 1.21800+ 0-2.50000+ 1 1.23600+ 0-2.50000+ 1 1.32700+ 0-1.42900+ 11261 301804251 + 1.36400+ 0-1.21400+ 1 1.45500+ 0-8.21000+ 0 1.54500+ 0-6.07000+ 01261 301804252 + 1.63600+ 0-4.64000+ 0 1.72700+ 0-3.57000+ 0 1.81800+ 0-2.86000+ 01261 301804253 + 1.90900+ 0-2.14000+ 0 2.00000+ 0-2.14000+ 0 2.18200+ 0-1.43000+ 01261 301804254 + 2.36400+ 0-7.10000- 1 2.45500+ 0-1.07000+ 0 2.54500+ 0-1.79000+ 01261 301804255 + 2.63600+ 0-3.57000+ 0 2.69100+ 0-4.29000+ 0 2.74500+ 0-4.29000+ 01261 301804256 + 2.80000+ 0 0.00000+ 0 2.81800+ 0 7.10000- 1 2.85500+ 0 7.10000- 11261 301804257 + 2.92700+ 0-7.10000- 1 2.94500+ 0-7.10000- 1 3.01800+ 0 3.57000+ 01261 301804258 + 3.07200+ 0 3.57000+ 0 3.18200+ 0-3.57000+ 0 3.21800+ 0-3.21000+ 01261 301804259 + 3.27300+ 0-1.43000+ 0 3.36400+ 0 2.14000+ 0 3.45500+ 0 6.50000+ 01261 301804260 + 3.49100+ 0 7.10000+ 0 3.54500+ 0 8.00000+ 0 3.58200+ 0 2.50000+ 01261 301804261 + 3.63600+ 0 0.00000+ 0 3.69100+ 0-6.98000+ 0 3.72700+ 0-9.19000+ 01261 301804262 + 3.81800+ 0-7.14000+ 0 3.90900+ 0-5.36000+ 0 4.00000+ 0-4.40000+ 01261 301804263 + 4.09100+ 0-3.70000+ 0 4.18200+ 0-3.14000+ 0 4.36400+ 0-2.29000+ 01261 301804264 + 4.54500+ 0-2.14000+ 0 4.63600+ 0-1.79000+ 0 4.72700+ 0-1.43000+ 01261 301804265 + 4.78200+ 0 0.00000+ 0 4.80000+ 0 7.10000- 1 4.83600+ 0 7.10000- 11261 301804266 + 4.85500+ 0 7.10000- 1 4.89100+ 0-1.43000+ 0 4.90900+ 0-2.14000+ 01261 301804267 + 4.94500+ 0-2.86000+ 0 4.98100+ 0-2.86000+ 0 5.09100+ 0-2.86000+ 01261 301804268 + 5.14500+ 0-2.50000+ 0 5.18200+ 0-2.14000+ 0 5.27300+ 0-1.07000+ 01261 301804269 + 5.30900+ 0-7.10000- 1 5.54500+ 0-7.10000- 1 5.65500+ 0-1.79000+ 01261 301804270 + 5.72700+ 0-1.43000+ 0 5.81800+ 0 0.00000+ 0 5.90900+ 0 1.64000+ 01261 301804271 + 6.00000+ 0 2.86000+ 0 6.09100+ 0 2.50000+ 0 6.16400+ 0 1.43000+ 01261 301804272 + 6.21800+ 0-1.79000+ 0 6.25500+ 0-1.79000+ 0 6.29100+ 0 0.00000+ 01261 301804273 + 6.41800+ 0 0.00000+ 0 6.45500+ 0-2.86000+ 0 6.49100+ 0-5.00000+ 01261 301804274 + 6.54500+ 0-5.00000+ 0 6.63600+ 0-4.28000+ 0 6.72700+ 0-3.71000+ 01261 301804275 + 6.81800+ 0-2.14000+ 0 6.98200+ 0 0.00000+ 0 7.18200+ 0 0.00000+ 01261 301804276 + 7.29100+ 0-3.57000+ 0 7.81800+ 0-3.93000+ 0 8.00000+ 0-4.29000+ 01261 301804277 + 8.18100+ 0-4.29000+ 0 8.36300+ 0-3.93000+ 0 8.45300+ 0 0.00000+ 01261 301804278 + 8.92500+ 0 0.00000+ 0 9.01500+ 0 2.14300+ 1 9.05200+ 0 2.50000+ 11261 301804279 + 9.10600+ 0 2.50000+ 1 9.17900+ 0 1.00000+ 1 9.23300+ 0 0.00000+ 01261 301804280 + 9.36000+ 0 0.00000+ 0 9.43200+ 0 1.00000+ 1 9.45100+ 0 1.14300+ 11261 301804281 + 9.50500+ 0 1.00000+ 1 9.54100+ 0 8.21000+ 0 9.70400+ 0 0.00000+ 01261 301804282 + 9.75900+ 0-2.14000+ 0 9.99500+ 0-2.14000+ 0 1.00850+ 1-2.86000+ 01261 301804283 + 1.01760+ 1 0.00000+ 0 1.02670+ 1 0.00000+ 0 1.03390+ 1 2.14000+ 01261 301804284 + 1.04300+ 1 2.14000+ 0 1.06290+ 1-7.10000- 1 1.07200+ 1-7.10000- 11261 301804285 + 1.08110+ 1-3.60000- 1 1.09370+ 1-5.70000- 1 1.09920+ 1 0.00000+ 01261 301804286 + 1.12640+ 1 3.00000+ 0 1.14090+ 1 2.75000+ 0 1.14450+ 1 2.88000+ 01261 301804287 + 1.14810+ 1 2.90000+ 0 1.15540+ 1 0.00000+ 0 1.18620+ 1 0.00000+ 01261 301804288 + 1.18980+ 1 2.70000+ 0 1.20000+ 1 5.40000+ 0 1.20910+ 1 7.43000+ 01261 301804289 + 1.21450+ 1 1.13500+ 1 1.22000+ 1 1.00000+ 1 1.23500+ 1 0.00000+ 01261 301804290 + 1.40850+ 1 0.00000+ 0 1.42670+ 1 2.86000+ 0 1.43570+ 1 5.71000+ 01261 301804291 + 1.44120+ 1 5.71000+ 0 1.44480+ 1 4.71000+ 0 1.46110+ 1-5.50000+ 01261 301804292 + 1.46470+ 1-5.50000+ 0 1.47370+ 1-3.57000+ 0 1.49010+ 1-5.00000- 11261 301804293 + 1.50000+ 1-7.10000- 1 1.50910+ 1 0.00000+ 0 1.51820+ 1 7.10000- 11261 301804294 + 1.52730+ 1 0.00000+ 0 1.54550+ 1 0.00000+ 0 1.55450+ 1-1.43000+ 01261 301804295 + 1.56360+ 1-3.58000+ 0 1.57270+ 1-3.57000+ 0 1.58180+ 1-2.50000+ 01261 301804296 + 1.59090+ 1-1.21000+ 0 1.60000+ 1 0.00000+ 0 1.61820+ 1 0.00000+ 01261 301804297 + 1.62730+ 1-3.58000+ 0 1.63640+ 1-6.45000+ 0 1.64360+ 1-6.43000+ 01261 301804298 + 1.64910+ 1-6.43000+ 0 1.65450+ 1-4.29000+ 0 1.66360+ 1 0.00000+ 01261 301804299 + 1.67270+ 1 0.00000+ 0 1.68180+ 1 1.43000+ 0 1.69090+ 1 3.93000+ 01261 301804300 + 1.69450+ 1 4.29000+ 0 1.70000+ 1 3.57000+ 0 1.70910+ 1 2.86000+ 01261 301804301 + 1.71810+ 1 1.43000+ 0 1.72730+ 1 7.10000- 1 1.73640+ 1 0.00000+ 01261 301804302 + 1.74550+ 1 0.00000+ 0 1.75450+ 1-7.10000- 1 1.76360+ 1-1.07000+ 01261 301804303 + 1.77270+ 1-1.43000+ 0 1.78180+ 1-1.86000+ 0 1.79090+ 1-7.10000- 11261 301804304 + 1.80910+ 1 0.00000+ 0 1.82730+ 1 0.00000+ 0 1.83640+ 1 3.57000+ 01261 301804305 + 1.84550+ 1 3.93000+ 0 1.85450+ 1 3.57000+ 0 1.86360+ 1 2.86000+ 01261 301804306 + 1.87270+ 1 2.14000+ 0 1.88180+ 1 1.43000+ 0 1.89090+ 1 1.07000+ 01261 301804307 + 1.90000+ 1 0.00000+ 0 1.93810+ 1 0.00000+ 0 1.94360+ 1 2.86000+ 01261 301804308 + 1.94550+ 1 7.14000+ 0 1.94910+ 1 1.42900+ 1 1.95090+ 1 1.71400+ 11261 301804309 + 1.95270+ 1 1.71400+ 1 1.95450+ 1 1.57100+ 1 1.96180+ 1 1.07100+ 11261 301804310 + 1.96720+ 1 8.29000+ 0 1.97270+ 1 6.43000+ 0 1.98180+ 1 4.29000+ 01261 301804311 + 1.99090+ 1 2.50000+ 0 2.00000+ 1 7.10000- 1 2.00910+ 1 0.00000+ 01261 301804312 + 2.02730+ 1-7.10000- 1 2.09090+ 1-7.10000- 1 2.10000+ 1-7.10000- 11261 301804313 + 2.10360+ 1-1.00000+ 0 2.10910+ 1-1.00000+ 0 2.11270+ 1-1.10000+ 01261 301804314 + 2.11820+ 1-1.20000+ 0 2.12180+ 1-1.30000+ 0 2.12640+ 1-1.35000+ 01261 301804315 + 2.13640+ 1-1.43000+ 0 2.14000+ 1-2.15000+ 0 2.14550+ 1-2.15000+ 01261 301804316 + 2.15450+ 1-2.80000+ 0 2.17270+ 1-3.45000+ 0 2.19090+ 1-2.87000+ 01261 301804317 + 2.20910+ 1-2.51000+ 0 2.22730+ 1-1.79000+ 0 2.24550+ 1-1.07000+ 01261 301804318 + 2.26360+ 1 0.00000+ 0 2.30000+ 1 0.00000+ 0 2.31150+ 1 4.00000- 11261 301804319 + 2.32300+ 1 3.60000- 1 2.34600+ 1 1.80000- 1 2.36900+ 1 9.00000- 21261 301804320 + 2.38740+ 1 0.00000+ 0 2.40110+ 1-4.64000+ 0 2.41030+ 1-4.65000+ 01261 301804321 + 2.43790+ 1 2.73000+ 0 2.46090+ 1 9.00000+ 0 2.48390+ 1 4.64000+ 01261 301804322 + 2.50690+ 1-4.50000- 1 2.51610+ 1-4.50000- 1 2.53450+ 1 1.82000+ 01261 301804323 + 2.55290+ 1 0.00000+ 0 2.57130+ 1 0.00000+ 0 2.58510+ 1-4.55000+ 01261 301804324 + 2.60340+ 1-1.09100+ 1 2.61260+ 1-1.09100+ 1 2.62180+ 1-7.73000+ 01261 301804325 + 2.64480+ 1 0.00000+ 0 2.84250+ 1 0.00000+ 0 2.85170+ 1 4.50000- 11261 301804326 + 2.87470+ 1 4.50000- 1 2.89770+ 1 4.50000- 1 2.92070+ 1 4.50000- 11261 301804327 + 2.94370+ 1 4.50000- 1 2.96670+ 1 0.00000+ 0 2.98970+ 1-1.80000- 11261 301804328 + 3.00000+ 1-3.60000- 1 3.02290+ 1-4.50000- 1 3.04570+ 1 0.00000+ 01261 301804329 + 3.06860+ 1 0.00000+ 0 3.07770+ 1 0.00000+ 0 3.09140+ 1 0.00000+ 01261 301804330 + 3.09600+ 1-8.20000- 1 3.10970+ 1-2.18000+ 0 3.11430+ 1-2.36000+ 01261 301804331 + 3.13710+ 1-1.82000+ 0 3.16000+ 1-9.10000- 1 3.16910+ 1-7.30000- 11261 301804332 + 3.18290+ 1 0.00000+ 0 3.21940+ 1 0.00000+ 0 3.22860+ 1 0.00000+ 01261 301804333 + 3.25140+ 1-2.73000+ 0 3.27430+ 1-3.18000+ 0 3.29710+ 1-3.18000+ 01261 301804334 + 3.32000+ 1-2.27000+ 0 3.35200+ 1 0.00000+ 0 3.44340+ 1 0.00000+ 01261 301804335 + 3.44800+ 1 2.72700+ 1 3.45260+ 1 3.27300+ 1 3.45710+ 1 3.36300+ 11261 301804336 + 3.46170+ 1 2.90900+ 1 3.46630+ 1 1.63600+ 1 3.47090+ 1 8.18000+ 01261 301804337 + 3.47540+ 1 4.54000+ 0 3.48460+ 1 0.00000+ 0 3.66290+ 1 0.00000+ 01261 301804338 + 3.68570+ 1-9.10000- 1 3.70860+ 1-1.50000+ 0 3.73140+ 1 0.00000+ 01261 301804339 + 3.75430+ 1 7.30000- 1 3.77710+ 1 9.10000- 1 3.80000+ 1 8.20000- 11261 301804340 + 3.82290+ 1 7.30000- 1 3.84570+ 1 5.50000- 1 3.86860+ 1-3.60000- 11261 301804341 + 3.89140+ 1-2.18000+ 0 3.91430+ 1-4.55000+ 0 3.92340+ 1-5.00000+ 01261 301804342 + 3.92800+ 1 0.00000+ 0 3.99660+ 1 0.00000+ 0 4.01940+ 1-1.82000+ 01261 301804343 + 4.05140+ 1 0.00000+ 0 4.06970+ 1 2.72000+ 0 4.07430+ 1 3.45000+ 01261 301804344 + 4.07890+ 1 3.64000+ 0 4.09710+ 1 2.73000+ 0 4.12000+ 1 0.00000+ 01261 301804345 + 4.15660+ 1 0.00000+ 0 4.16570+ 1-9.10000- 1 4.17940+ 1-9.10000- 11261 301804346 + 4.19770+ 1 2.73000+ 0 4.21140+ 1 1.82000+ 0 4.22970+ 1 0.00000+ 01261 301804347 + 4.23890+ 1 2.73000+ 0 4.25710+ 1 2.73000+ 0 4.27090+ 1-9.10000- 11261 301804348 + 4.28000+ 1-9.10000- 1 4.28910+ 1 1.82000+ 0 4.30290+ 1 1.82000+ 01261 301804349 + 4.32110+ 1 0.00000+ 0 4.36690+ 1 0.00000+ 0 4.38060+ 1-1.82000+ 01261 301804350 + 4.40340+ 1 1.82000+ 0 4.41710+ 1 2.27000+ 0 4.44000+ 1 1.64000+ 01261 301804351 + 4.46290+ 1 0.00000+ 0 4.48570+ 1-1.80000- 1 4.50860+ 1 0.00000+ 01261 301804352 + 4.53140+ 1-6.30000- 1 4.55430+ 1-5.50000- 1 4.57710+ 1-7.30000- 11261 301804353 + 4.60000+ 1-1.00000+ 0 4.61810+ 1-1.43000+ 0 4.63630+ 1-7.10000- 11261 301804354 + 4.65440+ 1 0.00000+ 0 4.72700+ 1 0.00000+ 0 4.74510+ 1 7.20000- 11261 301804355 + 4.76330+ 1 2.14000+ 0 4.77410+ 1 2.71000+ 0 4.78870+ 1 0.00000+ 01261 301804356 + 4.90110+ 1 0.00000+ 0 4.91200+ 1 2.86000+ 0 4.91930+ 1 2.86000+ 01261 301804357 + 4.93380+ 1 0.00000+ 0 4.95560+ 1 0.00000+ 0 4.96640+ 1 2.14000+ 01261 301804358 + 4.97730+ 1 2.14000+ 0 4.99550+ 1 0.00000+ 0 5.34380+ 1 0.00000+ 01261 301804359 + 5.36190+ 1 2.86000+ 0 5.38000+ 1 3.57000+ 0 5.40000+ 1 1.43000+ 01261 301804360 + 5.41810+ 1 0.00000+ 0 5.59950+ 1 0.00000+ 0 5.61770+ 1 5.00000+ 01261 301804361 + 5.62860+ 1 7.86000+ 0 5.63580+ 1 5.00000+ 0 5.64310+ 1 0.00000+ 01261 301804362 + 5.66490+ 1 0.00000+ 0 5.67940+ 1 5.00000+ 0 5.69020+ 1 2.86000+ 01261 301804363 + 5.71200+ 1-7.10000- 1 5.72650+ 1-1.29000+ 0 5.76280+ 1-1.29000+ 01261 301804364 + 5.78100+ 1 0.00000+ 0 5.79910+ 1 0.00000+ 0 5.81720+ 1 0.00000+ 01261 301804365 + 5.83170+ 1-2.50000+ 0 5.83900+ 1-2.00000+ 0 5.88250+ 1 0.00000+ 01261 301804366 + 5.90070+ 1 1.40000+ 0 5.91160+ 1 1.40000+ 0 5.94420+ 1 7.00000- 11261 301804367 + 5.96240+ 1 3.50000- 1 5.98050+ 1 0.00000+ 0 6.94000+ 1 0.00000+ 01261 301804368 + 6.96190+ 1 3.00000+ 0 6.98000+ 1 4.10000+ 0 7.00000+ 1 4.14000+ 01261 301804369 + 7.01810+ 1 0.00000+ 0 7.15600+ 1 0.00000+ 0 7.18140+ 1-2.86000+ 01261 301804370 + 7.19230+ 1-3.93000+ 0 7.19950+ 1-3.93000+ 0 7.20680+ 1-3.57000+ 01261 301804371 + 7.21040+ 1-2.14000+ 0 7.21770+ 1 0.00000+ 0 7.23220+ 1 0.00000+ 01261 301804372 + 7.25030+ 1 0.00000+ 0 7.26850+ 1 6.79000+ 0 7.27210+ 1 4.00000+ 01261 301804373 + 7.28300+ 1 1.40000+ 0 7.29020+ 1 3.60000- 1 7.29750+ 1 0.00000+ 01261 301804374 + 7.30840+ 1 0.00000+ 0 7.39910+ 1 0.00000+ 0 7.44260+ 1 0.00000+ 01261 301804375 + 7.45710+ 1 3.57000+ 0 7.47890+ 1 1.67900+ 1 7.48250+ 1 1.67900+ 11261 301804376 + 7.48620+ 1 1.42900+ 1 7.48980+ 1 9.29000+ 0 7.49340+ 1 7.50000+ 01261 301804377 + 7.49710+ 1 5.71000+ 0 7.50430+ 1 3.21000+ 0 7.50790+ 1 2.14000+ 01261 301804378 + 7.51880+ 1 0.00000+ 0 7.60230+ 1-1.00000+ 0 7.61680+ 1-1.20000+ 01261 301804379 + 7.67480+ 1 0.00000+ 0 7.83000+ 1 0.00000+ 0 7.83630+ 1 5.00000+ 01261 301804380 + 7.85440+ 1 6.10000+ 0 7.87260+ 1 5.00000+ 0 7.89070+ 1 4.50000+ 01261 301804381 + 7.90880+ 1 3.20000+ 0 7.92700+ 1 2.14000+ 0 7.94510+ 1 0.00000+ 01261 301804382 + 7.98140+ 1 0.00000+ 0 7.99950+ 1 2.32000+ 0 8.00680+ 1 2.32000+ 01261 301804383 + 8.02490+ 1 0.00000+ 0 8.04670+ 1 0.00000+ 0 8.07570+ 1 2.00000+ 01261 301804384 + 8.08660+ 1 2.10000+ 0 8.09750+ 1 2.00000+ 0 8.10840+ 1 1.50000+ 01261 301804385 + 8.13380+ 1 0.00000+ 0 8.15190+ 1 0.00000+ 0 8.16280+ 1 0.00000+ 01261 301804386 + 8.18100+ 1 1.50000+ 0 8.20000+ 1 1.50000+ 0 8.20000+ 1 0.00000+ 01261 301804387 + 1.00000+ 3 0.00000+ 0 1.30000+ 4 0.00000+ 0 2.50000+ 4 0.00000+ 01261 301804388 + 2.50000+ 4 2.15220+ 0 2.53000+ 4 2.13979+ 0 2.57000+ 4 2.12347+ 01261 301804389 + 2.62000+ 4 2.10726+ 0 2.65000+ 4 2.10110+ 0 2.72000+ 4 2.09307+ 01261 301804390 + 2.75000+ 4 2.09615+ 0 2.83000+ 4 2.13527+ 0 2.88000+ 4 2.19127+ 01261 301804391 + 2.93000+ 4 2.16076+ 0 2.98000+ 4 2.07421+ 0 3.00000+ 4 2.04000+ 01261 301804392 + 3.11000+ 4 2.08301+ 0 3.13000+ 4 2.10773+ 0 3.18000+ 4 2.16883+ 01261 301804393 + 3.21000+ 4 2.17749+ 0 3.25000+ 4 2.11591+ 0 3.28000+ 4 2.07023+ 01261 301804394 + 3.42000+ 4 1.98876+ 0 3.45000+ 4 1.95803+ 0 3.50000+ 4 1.90740+ 01261 301804395 + 3.62000+ 4 1.98248+ 0 3.65000+ 4 1.92717+ 0 3.70000+ 4 1.83600+ 01261 301804396 + 3.79000+ 4 1.94630+ 0 3.87000+ 4 1.89389+ 0 3.91000+ 4 1.86866+ 01261 301804397 + 3.94000+ 4 1.87482+ 0 4.00000+ 4 1.88700+ 0 4.04000+ 4 1.94454+ 01261 301804398 + 4.10000+ 4 2.02980+ 0 4.15000+ 4 1.95797+ 0 4.20000+ 4 1.88700+ 01261 301804399 + 4.30000+ 4 1.91760+ 0 4.36000+ 4 1.90530+ 0 4.38000+ 4 1.90124+ 01261 301804400 + 4.43000+ 4 1.88178+ 0 4.48000+ 4 1.85631+ 0 4.50000+ 4 1.84620+ 01261 301804401 + 4.52000+ 4 1.83385+ 0 4.54000+ 4 1.82156+ 0 4.60000+ 4 1.78500+ 01261 301804402 + 4.62000+ 4 1.80146+ 0 4.65000+ 4 1.82602+ 0 4.68000+ 4 1.85042+ 01261 301804403 + 4.73000+ 4 1.83269+ 0 4.76000+ 4 1.79900+ 0 4.82000+ 4 1.76880+ 01261 301804404 + 4.84000+ 4 1.78314+ 0 4.88000+ 4 1.81164+ 0 4.90000+ 4 1.82580+ 01261 301804405 + 5.00000+ 4 1.74420+ 0 5.02000+ 4 1.75448+ 0 5.06000+ 4 1.77492+ 01261 301804406 + 5.09000+ 4 1.79014+ 0 5.12000+ 4 1.79520+ 0 5.15000+ 4 1.79520+ 01261 301804407 + 5.22000+ 4 1.82192+ 0 5.25000+ 4 1.86181+ 0 5.35000+ 4 1.92268+ 01261 301804408 + 5.39000+ 4 1.91861+ 0 5.42000+ 4 1.91760+ 0 5.46000+ 4 1.91760+ 01261 301804409 + 5.50000+ 4 1.91760+ 0 5.53000+ 4 1.91452+ 0 5.57000+ 4 1.91044+ 01261 301804410 + 5.61000+ 4 1.90226+ 0 5.67000+ 4 1.87160+ 0 5.71000+ 4 1.85948+ 01261 301804411 + 5.76000+ 4 1.87482+ 0 5.79000+ 4 1.88396+ 0 5.83000+ 4 1.86545+ 01261 301804412 + 5.87000+ 4 1.83689+ 0 5.91000+ 4 1.81149+ 0 5.92000+ 4 1.80738+ 01261 301804413 + 5.98000+ 4 1.78291+ 0 6.00000+ 4 1.77480+ 0 6.03000+ 4 1.80557+ 01261 301804414 + 6.12000+ 4 1.86243+ 0 6.15000+ 4 1.84096+ 0 6.20000+ 4 1.80540+ 01261 301804415 + 6.25000+ 4 1.81564+ 0 6.29000+ 4 1.82377+ 0 6.32000+ 4 1.83196+ 01261 301804416 + 6.42000+ 4 1.82767+ 0 6.47000+ 4 1.75621+ 0 6.50000+ 4 1.71360+ 01261 301804417 + 6.51000+ 4 1.72284+ 0 6.61000+ 4 1.80129+ 0 6.65000+ 4 1.78492+ 01261 301804418 + 6.70000+ 4 1.76460+ 0 6.74000+ 4 1.78919+ 0 6.80000+ 4 1.82580+ 01261 301804419 + 6.83000+ 4 1.80427+ 0 6.89000+ 4 1.76149+ 0 6.94000+ 4 1.74620+ 01261 301804420 + 7.00000+ 4 1.73400+ 0 7.03000+ 4 1.73400+ 0 7.09000+ 4 1.73400+ 01261 301804421 + 7.20000+ 4 1.73400+ 0 7.25000+ 4 1.78005+ 0 7.31000+ 4 1.82170+ 01261 301804422 + 7.37000+ 4 1.79718+ 0 7.41000+ 4 1.79013+ 0 7.48000+ 4 1.82585+ 01261 301804423 + 7.50000+ 4 1.83600+ 0 7.53000+ 4 1.82370+ 0 7.58000+ 4 1.80332+ 01261 301804424 + 7.65000+ 4 1.72357+ 0 7.70000+ 4 1.65240+ 0 7.76000+ 4 1.68921+ 01261 301804425 + 7.84000+ 4 1.72179+ 0 7.89000+ 4 1.73197+ 0 7.94000+ 4 1.66848+ 01261 301804426 + 8.00000+ 4 1.57080+ 0 8.07000+ 4 1.65664+ 0 8.20000+ 4 1.71360+ 01261 301804427 + 8.27000+ 4 1.69214+ 0 8.33000+ 4 1.64920+ 0 8.40000+ 4 1.57080+ 01261 301804428 + 8.47000+ 4 1.66378+ 0 8.50000+ 4 1.70340+ 0 8.53000+ 4 1.66039+ 01261 301804429 + 8.61000+ 4 1.55445+ 0 8.68000+ 4 1.51158+ 0 8.75000+ 4 1.55566+ 01261 301804430 + 8.83000+ 4 1.59317+ 0 8.90000+ 4 1.55040+ 0 9.00000+ 4 1.63200+ 01261 301804431 + 9.03000+ 4 1.63200+ 0 9.12000+ 4 1.59103+ 0 9.28000+ 4 1.52603+ 01261 301804432 + 9.36000+ 4 1.57493+ 0 9.44000+ 4 1.57892+ 0 9.50000+ 4 1.56060+ 01261 301804433 + 9.52000+ 4 1.57494+ 0 9.60000+ 4 1.63200+ 0 9.68000+ 4 1.70552+ 01261 301804434 + 9.77000+ 4 1.63084+ 0 9.85000+ 4 1.62699+ 0 9.93000+ 4 1.65339+ 01261 301804435 + 9.99000+ 4 1.63505+ 0 1.00000+ 5 1.58500+ 0 1.03000+ 5 1.57200+ 01261 301804436 + 1.20000+ 5 1.53200+ 0 1.35000+ 5 1.49600+ 0 1.40000+ 5 1.48200+ 01261 301804437 + 1.50000+ 5 1.45800+ 0 1.60000+ 5 1.44000+ 0 1.73000+ 5 1.40700+ 01261 301804438 + 1.80000+ 5 1.39400+ 0 2.00000+ 5 1.35100+ 0 2.07000+ 5 1.33500+ 01261 301804439 + 2.15000+ 5 1.32620+ 0 2.20000+ 5 1.32180+ 0 2.25000+ 5 1.31770+ 01261 301804440 + 2.35000+ 5 1.31230+ 0 2.40000+ 5 1.31000+ 0 2.50000+ 5 1.30750+ 01261 301804441 + 2.60000+ 5 1.30370+ 0 2.70000+ 5 1.30000+ 0 2.80000+ 5 1.29530+ 01261 301804442 + 3.00000+ 5 1.28000+ 0 3.20000+ 5 1.24400+ 0 3.25000+ 5 1.23780+ 01261 301804443 + 3.40000+ 5 1.22880+ 0 3.50000+ 5 1.22620+ 0 3.60000+ 5 1.22330+ 01261 301804444 + 3.80000+ 5 1.22100+ 0 4.00000+ 5 1.21630+ 0 4.20000+ 5 1.20980+ 01261 301804445 + 4.40000+ 5 1.20130+ 0 4.50000+ 5 1.19600+ 0 4.60000+ 5 1.19000+ 01261 301804446 + 4.70000+ 5 1.18480+ 0 4.80000+ 5 1.17980+ 0 5.00000+ 5 1.17170+ 01261 301804447 + 5.20000+ 5 1.16400+ 0 5.40000+ 5 1.15850+ 0 5.50000+ 5 1.15750+ 01261 301804448 + 5.60000+ 5 1.15620+ 0 5.70000+ 5 1.15490+ 0 5.80000+ 5 1.15380+ 01261 301804449 + 6.00000+ 5 1.15250+ 0 6.20000+ 5 1.14880+ 0 6.40000+ 5 1.14510+ 01261 301804450 + 6.50000+ 5 1.14360+ 0 6.60000+ 5 1.14240+ 0 6.70000+ 5 1.14050+ 01261 301804451 + 6.80000+ 5 1.13870+ 0 7.00000+ 5 1.13500+ 0 7.20000+ 5 1.13030+ 01261 301804452 + 7.30000+ 5 1.12880+ 0 7.40000+ 5 1.12810+ 0 7.50000+ 5 1.12780+ 01261 301804453 + 7.60000+ 5 1.12810+ 0 7.70000+ 5 1.12930+ 0 7.75000+ 5 1.12980+ 01261 301804454 + 7.80000+ 5 1.13000+ 0 8.00000+ 5 1.13300+ 0 8.20000+ 5 1.13970+ 01261 301804455 + 8.40000+ 5 1.14600+ 0 8.50000+ 5 1.15120+ 0 8.60000+ 5 1.16030+ 01261 301804456 + 8.80000+ 5 1.16400+ 0 9.00000+ 5 1.17380+ 0 9.20000+ 5 1.18380+ 01261 301804457 + 9.40000+ 5 1.19380+ 0 9.50000+ 5 1.19870+ 0 9.60000+ 5 1.20400+ 01261 301804458 + 9.70000+ 5 1.21000+ 0 9.80000+ 5 1.21500+ 0 1.00000+ 6 1.22500+ 01261 301804459 + 1.05000+ 6 1.24100+ 0 1.10000+ 6 1.25000+ 0 1.15000+ 6 1.25510+ 01261 301804460 + 1.20000+ 6 1.25750+ 0 1.25000+ 6 1.25660+ 0 1.29500+ 6 1.25500+ 01261 301804461 + 1.30000+ 6 1.25490+ 0 1.35000+ 6 1.25220+ 0 1.40000+ 6 1.25000+ 01261 301804462 + 1.45000+ 6 1.24900+ 0 1.49500+ 6 1.24950+ 0 1.50000+ 6 1.25050+ 01261 301804463 + 1.60000+ 6 1.25750+ 0 1.70000+ 6 1.26280+ 0 1.80000+ 6 1.26700+ 01261 301804464 + 1.90000+ 6 1.27150+ 0 2.00000+ 6 1.27400+ 0 2.10000+ 6 1.27680+ 01261 301804465 + 2.20000+ 6 1.27880+ 0 2.30000+ 6 1.27930+ 0 2.40000+ 6 1.27880+ 01261 301804466 + 2.50000+ 6 1.27540+ 0 2.60000+ 6 1.26880+ 0 2.70000+ 6 1.26000+ 01261 301804467 + 2.80000+ 6 1.25120+ 0 2.90000+ 6 1.24120+ 0 3.00000+ 6 1.23180+ 01261 301804468 + 3.10000+ 6 1.22180+ 0 3.20000+ 6 1.21130+ 0 3.30000+ 6 1.20140+ 01261 301804469 + 3.40000+ 6 1.19200+ 0 3.50000+ 6 1.18300+ 0 3.60000+ 6 1.17700+ 01261 301804470 + 3.70000+ 6 1.17100+ 0 3.80000+ 6 1.16200+ 0 3.90000+ 6 1.15800+ 01261 301804471 + 4.00000+ 6 1.15000+ 0 4.10000+ 6 1.14300+ 0 4.20000+ 6 1.13800+ 01261 301804472 + 4.30000+ 6 1.13000+ 0 4.40000+ 6 1.12500+ 0 4.50000+ 6 1.12000+ 01261 301804473 + 4.60000+ 6 1.11300+ 0 4.70000+ 6 1.10800+ 0 4.80000+ 6 1.10200+ 01261 301804474 + 4.90000+ 6 1.09700+ 0 5.00000+ 6 1.09400+ 0 5.10000+ 6 1.09000+ 01261 301804475 + 5.15000+ 6 1.08750+ 0 5.20000+ 6 1.08440+ 0 5.25000+ 6 1.08120+ 01261 301804476 + 5.30000+ 6 1.07770+ 0 5.32858+ 6 1.07547+ 0 5.35000+ 6 1.07380+ 01261 301804477 + 5.40000+ 6 1.06960+ 0 5.45000+ 6 1.06500+ 0 5.50000+ 6 1.05900+ 01261 301804478 + 5.55000+ 6 1.05280+ 0 5.60000+ 6 1.05000+ 0 5.65000+ 6 1.05330+ 01261 301804479 + 5.70000+ 6 1.06250+ 0 5.75000+ 6 1.07460+ 0 5.80000+ 6 1.08750+ 01261 301804480 + 5.90000+ 6 1.12700+ 0 6.00000+ 6 1.16000+ 0 6.10000+ 6 1.19300+ 01261 301804481 + 6.20000+ 6 1.23200+ 0 6.30000+ 6 1.27400+ 0 6.40000+ 6 1.31500+ 01261 301804482 + 6.50000+ 6 1.35800+ 0 6.60000+ 6 1.40000+ 0 6.70000+ 6 1.44500+ 01261 301804483 + 6.80000+ 6 1.47800+ 0 6.90000+ 6 1.51500+ 0 7.00000+ 6 1.54900+ 01261 301804484 + 7.10000+ 6 1.58200+ 0 7.20000+ 6 1.60800+ 0 7.30000+ 6 1.63700+ 01261 301804485 + 7.40000+ 6 1.66000+ 0 7.50000+ 6 1.68200+ 0 7.60000+ 6 1.70000+ 01261 301804486 + 7.65000+ 6 1.71000+ 0 7.70000+ 6 1.71700+ 0 7.80000+ 6 1.73300+ 01261 301804487 + 7.90000+ 6 1.74700+ 0 8.00000+ 6 1.75800+ 0 8.20000+ 6 1.77700+ 01261 301804488 + 8.40000+ 6 1.79000+ 0 8.50000+ 6 1.79600+ 0 8.60000+ 6 1.80000+ 01261 301804489 + 8.80000+ 6 1.80500+ 0 9.00000+ 6 1.80400+ 0 9.20000+ 6 1.80000+ 01261 301804490 + 9.40000+ 6 1.79300+ 0 9.50000+ 6 1.79000+ 0 9.60000+ 6 1.78500+ 01261 301804491 + 9.80000+ 6 1.77700+ 0 1.00000+ 7 1.76800+ 0 1.05000+ 7 1.74000+ 01261 301804492 + 1.10000+ 7 1.71800+ 0 1.15000+ 7 1.71700+ 0 1.19000+ 7 1.75200+ 01261 301804493 + 1.20000+ 7 1.76700+ 0 1.21988+ 7 1.80100+ 0 1.25000+ 7 1.86000+ 01261 301804494 + 1.30000+ 7 1.97600+ 0 1.35000+ 7 2.08000+ 0 1.40000+ 7 2.15200+ 01261 301804495 + 1.45000+ 7 2.21000+ 0 1.50000+ 7 2.23000+ 0 1.55000+ 7 2.24000+ 01261 301804496 + 1.60000+ 7 2.23000+ 0 1.65000+ 7 2.21200+ 0 1.70000+ 7 2.18500+ 01261 301804497 + 1.75000+ 7 2.15000+ 0 1.80000+ 7 2.11800+ 0 1.85000+ 7 2.08000+ 01261 301804498 + 1.90000+ 7 2.06000+ 0 1.95000+ 7 2.05200+ 0 2.00000+ 7 2.05000+ 01261 301804499 + 1261 300004500 + 9.22350+ 4 2.33025+ 2 0 99 0 01261 301904501 + 0.00000+ 0 1.92500+ 8 0 0 3 7461261 301904502 + 57 5 474 2 746 31261 301904503 + 1.00000- 5 3.13100+ 4 1.00000- 3 3.12340+ 3 5.00000- 3 1.38320+ 31261 301904504 + 1.00000- 2 9.66230+ 2 1.50000- 2 7.79390+ 2 2.00000- 2 6.66870+ 21261 301904505 + 2.53000- 2 5.85400+ 2 3.00000- 2 5.31600+ 2 3.50000- 2 4.86340+ 21261 301904506 + 4.00000- 2 4.49610+ 2 4.50000- 2 4.18980+ 2 5.00000- 2 3.92910+ 21261 301904507 + 5.50000- 2 3.70390+ 2 6.00000- 2 3.50690+ 2 6.50000- 2 3.33300+ 21261 301904508 + 7.00000- 2 3.17840+ 2 7.50000- 2 3.04050+ 2 8.00000- 2 2.91750+ 21261 301904509 + 8.50000- 2 2.80720+ 2 9.00000- 2 2.70720+ 2 9.50000- 2 2.61590+ 21261 301904510 + 1.00000- 1 2.53290+ 2 1.10000- 1 2.38220+ 2 1.20000- 1 2.25240+ 21261 301904511 + 1.30000- 1 2.14130+ 2 1.40000- 1 2.04860+ 2 1.50000- 1 1.97260+ 21261 301904512 + 1.60000- 1 1.90820+ 2 1.70000- 1 1.85610+ 2 1.80000- 1 1.81570+ 21261 301904513 + 2.03340- 1 1.77010+ 2 2.23340- 1 1.77950+ 2 2.43340- 1 1.83850+ 21261 301904514 + 2.63340- 1 1.91400+ 2 2.83340- 1 1.96420+ 2 3.03340- 1 1.91820+ 21261 301904515 + 3.23340- 1 1.74250+ 2 3.43340- 1 1.53940+ 2 3.63340- 1 1.39010+ 21261 301904516 + 3.83340- 1 1.26030+ 2 4.03340- 1 1.15160+ 2 4.28120- 1 1.04060+ 21261 301904517 + 4.64920- 1 9.15860+ 1 5.04920- 1 8.19600+ 1 5.44920- 1 7.48050+ 11261 301904518 + 5.84920- 1 6.94310+ 1 6.24920- 1 6.53910+ 1 6.64920- 1 6.22240+ 11261 301904519 + 7.04920- 1 5.96610+ 1 7.44920- 1 5.76510+ 1 7.84920- 1 5.62850+ 11261 301904520 + 8.24920- 1 5.56590+ 1 8.64920- 1 5.59830+ 1 9.04920- 1 5.76440+ 11261 301904521 + 9.44920- 1 6.07390+ 1 9.84920- 1 6.52380+ 1 1.00000+ 0 6.81160+ 11261 301904522 + 1.00000+ 0 1.18560+ 1 1.05500+ 0 1.14300+ 1 1.07300+ 0 1.06400+ 11261 301904523 + 1.09100+ 0 9.29000+ 0 1.18200+ 0-1.92900+ 1 1.20000+ 0-2.35700+ 11261 301904524 + 1.21800+ 0-2.50000+ 1 1.23600+ 0-2.50000+ 1 1.32700+ 0-1.42900+ 11261 301904525 + 1.36400+ 0-1.21400+ 1 1.45500+ 0-8.21000+ 0 1.54500+ 0-6.07000+ 01261 301904526 + 1.63600+ 0-4.64000+ 0 1.72700+ 0-3.57000+ 0 1.81800+ 0-2.86000+ 01261 301904527 + 1.90900+ 0-2.14000+ 0 2.00000+ 0-2.14000+ 0 2.18200+ 0-1.43000+ 01261 301904528 + 2.36400+ 0-7.10000- 1 2.45500+ 0-1.07000+ 0 2.54500+ 0-1.79000+ 01261 301904529 + 2.63600+ 0-3.57000+ 0 2.69100+ 0-4.29000+ 0 2.74500+ 0-4.29000+ 01261 301904530 + 2.80000+ 0 0.00000+ 0 2.81800+ 0 7.10000- 1 2.85500+ 0 7.10000- 11261 301904531 + 2.92700+ 0-7.10000- 1 2.94500+ 0-7.10000- 1 3.01800+ 0 3.57000+ 01261 301904532 + 3.07200+ 0 3.57000+ 0 3.18200+ 0-3.57000+ 0 3.21800+ 0-3.21000+ 01261 301904533 + 3.27300+ 0-1.43000+ 0 3.36400+ 0 2.14000+ 0 3.45500+ 0 6.50000+ 01261 301904534 + 3.49100+ 0 7.10000+ 0 3.54500+ 0 8.00000+ 0 3.58200+ 0 2.50000+ 01261 301904535 + 3.63600+ 0 0.00000+ 0 3.69100+ 0-6.98000+ 0 3.72700+ 0-9.19000+ 01261 301904536 + 3.81800+ 0-7.14000+ 0 3.90900+ 0-5.36000+ 0 4.00000+ 0-4.40000+ 01261 301904537 + 4.09100+ 0-3.70000+ 0 4.18200+ 0-3.14000+ 0 4.36400+ 0-2.29000+ 01261 301904538 + 4.54500+ 0-2.14000+ 0 4.63600+ 0-1.79000+ 0 4.72700+ 0-1.43000+ 01261 301904539 + 4.78200+ 0 0.00000+ 0 4.80000+ 0 7.10000- 1 4.83600+ 0 7.10000- 11261 301904540 + 4.85500+ 0 7.10000- 1 4.89100+ 0-1.43000+ 0 4.90900+ 0-2.14000+ 01261 301904541 + 4.94500+ 0-2.86000+ 0 4.98100+ 0-2.86000+ 0 5.09100+ 0-2.86000+ 01261 301904542 + 5.14500+ 0-2.50000+ 0 5.18200+ 0-2.14000+ 0 5.27300+ 0-1.07000+ 01261 301904543 + 5.30900+ 0-7.10000- 1 5.54500+ 0-7.10000- 1 5.65500+ 0-1.79000+ 01261 301904544 + 5.72700+ 0-1.43000+ 0 5.81800+ 0 0.00000+ 0 5.90900+ 0 1.64000+ 01261 301904545 + 6.00000+ 0 2.86000+ 0 6.09100+ 0 2.50000+ 0 6.16400+ 0 1.43000+ 01261 301904546 + 6.21800+ 0-1.79000+ 0 6.25500+ 0-1.79000+ 0 6.29100+ 0 0.00000+ 01261 301904547 + 6.41800+ 0 0.00000+ 0 6.45500+ 0-2.86000+ 0 6.49100+ 0-5.00000+ 01261 301904548 + 6.54500+ 0-5.00000+ 0 6.63600+ 0-4.28000+ 0 6.72700+ 0-3.71000+ 01261 301904549 + 6.81800+ 0-2.14000+ 0 6.98200+ 0 0.00000+ 0 7.18200+ 0 0.00000+ 01261 301904550 + 7.29100+ 0-3.57000+ 0 7.81800+ 0-3.93000+ 0 8.00000+ 0-4.29000+ 01261 301904551 + 8.18100+ 0-4.29000+ 0 8.36300+ 0-3.93000+ 0 8.45300+ 0 0.00000+ 01261 301904552 + 8.92500+ 0 0.00000+ 0 9.01500+ 0 2.14300+ 1 9.05200+ 0 2.50000+ 11261 301904553 + 9.10600+ 0 2.50000+ 1 9.17900+ 0 1.00000+ 1 9.23300+ 0 0.00000+ 01261 301904554 + 9.36000+ 0 0.00000+ 0 9.43200+ 0 1.00000+ 1 9.45100+ 0 1.14300+ 11261 301904555 + 9.50500+ 0 1.00000+ 1 9.54100+ 0 8.21000+ 0 9.70400+ 0 0.00000+ 01261 301904556 + 9.75900+ 0-2.14000+ 0 9.99500+ 0-2.14000+ 0 1.00850+ 1-2.86000+ 01261 301904557 + 1.01760+ 1 0.00000+ 0 1.02670+ 1 0.00000+ 0 1.03390+ 1 2.14000+ 01261 301904558 + 1.04300+ 1 2.14000+ 0 1.06290+ 1-7.10000- 1 1.07200+ 1-7.10000- 11261 301904559 + 1.08110+ 1-3.60000- 1 1.09370+ 1-5.70000- 1 1.09920+ 1 0.00000+ 01261 301904560 + 1.12640+ 1 3.00000+ 0 1.14090+ 1 2.75000+ 0 1.14450+ 1 2.88000+ 01261 301904561 + 1.14810+ 1 2.90000+ 0 1.15540+ 1 0.00000+ 0 1.18620+ 1 0.00000+ 01261 301904562 + 1.18980+ 1 2.70000+ 0 1.20000+ 1 5.40000+ 0 1.20910+ 1 7.43000+ 01261 301904563 + 1.21450+ 1 1.13500+ 1 1.22000+ 1 1.00000+ 1 1.23500+ 1 0.00000+ 01261 301904564 + 1.40850+ 1 0.00000+ 0 1.42670+ 1 2.86000+ 0 1.43570+ 1 5.71000+ 01261 301904565 + 1.44120+ 1 5.71000+ 0 1.44480+ 1 4.71000+ 0 1.46110+ 1-5.50000+ 01261 301904566 + 1.46470+ 1-5.50000+ 0 1.47370+ 1-3.57000+ 0 1.49010+ 1-5.00000- 11261 301904567 + 1.50000+ 1-7.10000- 1 1.50910+ 1 0.00000+ 0 1.51820+ 1 7.10000- 11261 301904568 + 1.52730+ 1 0.00000+ 0 1.54550+ 1 0.00000+ 0 1.55450+ 1-1.43000+ 01261 301904569 + 1.56360+ 1-3.58000+ 0 1.57270+ 1-3.57000+ 0 1.58180+ 1-2.50000+ 01261 301904570 + 1.59090+ 1-1.21000+ 0 1.60000+ 1 0.00000+ 0 1.61820+ 1 0.00000+ 01261 301904571 + 1.62730+ 1-3.58000+ 0 1.63640+ 1-6.45000+ 0 1.64360+ 1-6.43000+ 01261 301904572 + 1.64910+ 1-6.43000+ 0 1.65450+ 1-4.29000+ 0 1.66360+ 1 0.00000+ 01261 301904573 + 1.67270+ 1 0.00000+ 0 1.68180+ 1 1.43000+ 0 1.69090+ 1 3.93000+ 01261 301904574 + 1.69450+ 1 4.29000+ 0 1.70000+ 1 3.57000+ 0 1.70910+ 1 2.86000+ 01261 301904575 + 1.71810+ 1 1.43000+ 0 1.72730+ 1 7.10000- 1 1.73640+ 1 0.00000+ 01261 301904576 + 1.74550+ 1 0.00000+ 0 1.75450+ 1-7.10000- 1 1.76360+ 1-1.07000+ 01261 301904577 + 1.77270+ 1-1.43000+ 0 1.78180+ 1-1.86000+ 0 1.79090+ 1-7.10000- 11261 301904578 + 1.80910+ 1 0.00000+ 0 1.82730+ 1 0.00000+ 0 1.83640+ 1 3.57000+ 01261 301904579 + 1.84550+ 1 3.93000+ 0 1.85450+ 1 3.57000+ 0 1.86360+ 1 2.86000+ 01261 301904580 + 1.87270+ 1 2.14000+ 0 1.88180+ 1 1.43000+ 0 1.89090+ 1 1.07000+ 01261 301904581 + 1.90000+ 1 0.00000+ 0 1.93810+ 1 0.00000+ 0 1.94360+ 1 2.86000+ 01261 301904582 + 1.94550+ 1 7.14000+ 0 1.94910+ 1 1.42900+ 1 1.95090+ 1 1.71400+ 11261 301904583 + 1.95270+ 1 1.71400+ 1 1.95450+ 1 1.57100+ 1 1.96180+ 1 1.07100+ 11261 301904584 + 1.96720+ 1 8.29000+ 0 1.97270+ 1 6.43000+ 0 1.98180+ 1 4.29000+ 01261 301904585 + 1.99090+ 1 2.50000+ 0 2.00000+ 1 7.10000- 1 2.00910+ 1 0.00000+ 01261 301904586 + 2.02730+ 1-7.10000- 1 2.09090+ 1-7.10000- 1 2.10000+ 1-7.10000- 11261 301904587 + 2.10360+ 1-1.00000+ 0 2.10910+ 1-1.00000+ 0 2.11270+ 1-1.10000+ 01261 301904588 + 2.11820+ 1-1.20000+ 0 2.12180+ 1-1.30000+ 0 2.12640+ 1-1.35000+ 01261 301904589 + 2.13640+ 1-1.43000+ 0 2.14000+ 1-2.15000+ 0 2.14550+ 1-2.15000+ 01261 301904590 + 2.15450+ 1-2.80000+ 0 2.17270+ 1-3.45000+ 0 2.19090+ 1-2.87000+ 01261 301904591 + 2.20910+ 1-2.51000+ 0 2.22730+ 1-1.79000+ 0 2.24550+ 1-1.07000+ 01261 301904592 + 2.26360+ 1 0.00000+ 0 2.30000+ 1 0.00000+ 0 2.31150+ 1 4.00000- 11261 301904593 + 2.32300+ 1 3.60000- 1 2.34600+ 1 1.80000- 1 2.36900+ 1 9.00000- 21261 301904594 + 2.38740+ 1 0.00000+ 0 2.40110+ 1-4.64000+ 0 2.41030+ 1-4.65000+ 01261 301904595 + 2.43790+ 1 2.73000+ 0 2.46090+ 1 9.00000+ 0 2.48390+ 1 4.64000+ 01261 301904596 + 2.50690+ 1-4.50000- 1 2.51610+ 1-4.50000- 1 2.53450+ 1 1.82000+ 01261 301904597 + 2.55290+ 1 0.00000+ 0 2.57130+ 1 0.00000+ 0 2.58510+ 1-4.55000+ 01261 301904598 + 2.60340+ 1-1.09100+ 1 2.61260+ 1-1.09100+ 1 2.62180+ 1-7.73000+ 01261 301904599 + 2.64480+ 1 0.00000+ 0 2.84250+ 1 0.00000+ 0 2.85170+ 1 4.50000- 11261 301904600 + 2.87470+ 1 4.50000- 1 2.89770+ 1 4.50000- 1 2.92070+ 1 4.50000- 11261 301904601 + 2.94370+ 1 4.50000- 1 2.96670+ 1 0.00000+ 0 2.98970+ 1-1.80000- 11261 301904602 + 3.00000+ 1-3.60000- 1 3.02290+ 1-4.50000- 1 3.04570+ 1 0.00000+ 01261 301904603 + 3.09140+ 1 0.00000+ 0 3.09600+ 1-8.20000- 1 3.10970+ 1-2.18000+ 01261 301904604 + 3.11430+ 1-2.36000+ 0 3.13710+ 1-1.82000+ 0 3.16000+ 1-9.10000- 11261 301904605 + 3.16910+ 1-7.30000- 1 3.18290+ 1 0.00000+ 0 3.22860+ 1 0.00000+ 01261 301904606 + 3.25140+ 1-2.73000+ 0 3.27430+ 1-3.18000+ 0 3.29710+ 1-3.18000+ 01261 301904607 + 3.32000+ 1-2.27000+ 0 3.35200+ 1 0.00000+ 0 3.44340+ 1 0.00000+ 01261 301904608 + 3.44800+ 1 2.72700+ 1 3.45260+ 1 3.27300+ 1 3.45710+ 1 3.36300+ 11261 301904609 + 3.46170+ 1 2.90900+ 1 3.46630+ 1 1.63600+ 1 3.47090+ 1 8.18000+ 01261 301904610 + 3.47540+ 1 4.54000+ 0 3.48460+ 1 0.00000+ 0 3.66290+ 1 0.00000+ 01261 301904611 + 3.68570+ 1-9.10000- 1 3.70860+ 1-1.50000+ 0 3.73140+ 1 0.00000+ 01261 301904612 + 3.75430+ 1 7.30000- 1 3.77710+ 1 9.10000- 1 3.80000+ 1 8.20000- 11261 301904613 + 3.82290+ 1 7.30000- 1 3.84570+ 1 5.50000- 1 3.86860+ 1-3.60000- 11261 301904614 + 3.89140+ 1-2.18000+ 0 3.91430+ 1-4.55000+ 0 3.92340+ 1-5.00000+ 01261 301904615 + 3.92800+ 1 0.00000+ 0 3.99660+ 1 0.00000+ 0 4.01940+ 1-1.82000+ 01261 301904616 + 4.05140+ 1 0.00000+ 0 4.06970+ 1 2.72000+ 0 4.07430+ 1 3.45000+ 01261 301904617 + 4.07890+ 1 3.64000+ 0 4.09710+ 1 2.73000+ 0 4.12000+ 1 0.00000+ 01261 301904618 + 4.15660+ 1 0.00000+ 0 4.16570+ 1-9.10000- 1 4.17940+ 1-9.10000- 11261 301904619 + 4.19770+ 1 2.73000+ 0 4.21140+ 1 1.82000+ 0 4.22970+ 1 0.00000+ 01261 301904620 + 4.23890+ 1 2.73000+ 0 4.25710+ 1 2.73000+ 0 4.27090+ 1-9.10000- 11261 301904621 + 4.28000+ 1-9.10000- 1 4.28910+ 1 1.82000+ 0 4.30290+ 1 1.82000+ 01261 301904622 + 4.32110+ 1 0.00000+ 0 4.36690+ 1 0.00000+ 0 4.38060+ 1-1.82000+ 01261 301904623 + 4.40340+ 1 1.82000+ 0 4.41710+ 1 2.27000+ 0 4.44000+ 1 1.64000+ 01261 301904624 + 4.46290+ 1 0.00000+ 0 4.48570+ 1-1.80000- 1 4.50860+ 1 0.00000+ 01261 301904625 + 4.53140+ 1-6.30000- 1 4.55430+ 1-5.50000- 1 4.57710+ 1-7.30000- 11261 301904626 + 4.60000+ 1-1.00000+ 0 4.61810+ 1-1.43000+ 0 4.63630+ 1-7.10000- 11261 301904627 + 4.65440+ 1 0.00000+ 0 4.72700+ 1 0.00000+ 0 4.74510+ 1 7.20000- 11261 301904628 + 4.76330+ 1 2.14000+ 0 4.77410+ 1 2.71000+ 0 4.78870+ 1 0.00000+ 01261 301904629 + 4.90110+ 1 0.00000+ 0 4.91200+ 1 2.86000+ 0 4.91930+ 1 2.86000+ 01261 301904630 + 4.93380+ 1 0.00000+ 0 4.95560+ 1 0.00000+ 0 4.96640+ 1 2.14000+ 01261 301904631 + 4.97730+ 1 2.14000+ 0 4.99550+ 1 0.00000+ 0 5.34380+ 1 0.00000+ 01261 301904632 + 5.36190+ 1 2.86000+ 0 5.38000+ 1 3.57000+ 0 5.40000+ 1 1.43000+ 01261 301904633 + 5.41810+ 1 0.00000+ 0 5.59950+ 1 0.00000+ 0 5.61770+ 1 5.00000+ 01261 301904634 + 5.62860+ 1 7.86000+ 0 5.63580+ 1 5.00000+ 0 5.64310+ 1 0.00000+ 01261 301904635 + 5.66490+ 1 0.00000+ 0 5.67940+ 1 5.00000+ 0 5.69020+ 1 2.86000+ 01261 301904636 + 5.71200+ 1-7.10000- 1 5.72650+ 1-1.29000+ 0 5.76280+ 1-1.29000+ 01261 301904637 + 5.78100+ 1 0.00000+ 0 5.81720+ 1 0.00000+ 0 5.83170+ 1-2.50000+ 01261 301904638 + 5.83900+ 1-2.00000+ 0 5.88250+ 1 0.00000+ 0 5.90070+ 1 1.40000+ 01261 301904639 + 5.91160+ 1 1.40000+ 0 5.94420+ 1 7.00000- 1 5.96240+ 1 3.50000- 11261 301904640 + 5.98050+ 1 0.00000+ 0 6.94000+ 1 0.00000+ 0 6.96190+ 1 3.00000+ 01261 301904641 + 6.98000+ 1 4.10000+ 0 7.00000+ 1 4.14000+ 0 7.01810+ 1 0.00000+ 01261 301904642 + 7.15600+ 1 0.00000+ 0 7.18140+ 1-2.86000+ 0 7.19230+ 1-3.93000+ 01261 301904643 + 7.19950+ 1-3.93000+ 0 7.20680+ 1-3.57000+ 0 7.21040+ 1-2.14000+ 01261 301904644 + 7.21770+ 1 0.00000+ 0 7.23220+ 1 0.00000+ 0 7.25030+ 1 0.00000+ 01261 301904645 + 7.26850+ 1 6.79000+ 0 7.27210+ 1 4.00000+ 0 7.28300+ 1 1.40000+ 01261 301904646 + 7.29020+ 1 3.60000- 1 7.29750+ 1 0.00000+ 0 7.30840+ 1 0.00000+ 01261 301904647 + 7.39910+ 1 0.00000+ 0 7.44260+ 1 0.00000+ 0 7.45710+ 1 3.57000+ 01261 301904648 + 7.47890+ 1 1.67900+ 1 7.48250+ 1 1.67900+ 1 7.48620+ 1 1.42900+ 11261 301904649 + 7.48980+ 1 9.29000+ 0 7.49340+ 1 7.50000+ 0 7.49710+ 1 5.71000+ 01261 301904650 + 7.50430+ 1 3.21000+ 0 7.50790+ 1 2.14000+ 0 7.51880+ 1 0.00000+ 01261 301904651 + 7.60230+ 1-1.00000+ 0 7.61680+ 1-1.20000+ 0 7.67480+ 1 0.00000+ 01261 301904652 + 7.83000+ 1 0.00000+ 0 7.83630+ 1 5.00000+ 0 7.85440+ 1 6.10000+ 01261 301904653 + 7.87260+ 1 5.00000+ 0 7.89070+ 1 4.50000+ 0 7.90880+ 1 3.20000+ 01261 301904654 + 7.92700+ 1 2.14000+ 0 7.94510+ 1 0.00000+ 0 7.98140+ 1 0.00000+ 01261 301904655 + 7.99950+ 1 2.32000+ 0 8.00680+ 1 2.32000+ 0 8.02490+ 1 0.00000+ 01261 301904656 + 8.04670+ 1 0.00000+ 0 8.07570+ 1 2.00000+ 0 8.08660+ 1 2.10000+ 01261 301904657 + 8.09750+ 1 2.00000+ 0 8.10840+ 1 1.50000+ 0 8.13380+ 1 0.00000+ 01261 301904658 + 8.15190+ 1 0.00000+ 0 8.16280+ 1 0.00000+ 0 8.18100+ 1 1.50000+ 01261 301904659 + 8.20000+ 1 1.50000+ 0 8.20000+ 1 0.00000+ 0 1.00000+ 3 0.00000+ 01261 301904660 + 1.30000+ 4 0.00000+ 0 2.50000+ 4 0.00000+ 0 2.50000+ 4 2.15220+ 01261 301904661 + 2.53000+ 4 2.13979+ 0 2.57000+ 4 2.12347+ 0 2.62000+ 4 2.10726+ 01261 301904662 + 2.65000+ 4 2.10110+ 0 2.72000+ 4 2.09307+ 0 2.75000+ 4 2.09615+ 01261 301904663 + 2.83000+ 4 2.13527+ 0 2.88000+ 4 2.19127+ 0 2.93000+ 4 2.16076+ 01261 301904664 + 2.98000+ 4 2.07421+ 0 3.00000+ 4 2.04000+ 0 3.11000+ 4 2.08301+ 01261 301904665 + 3.13000+ 4 2.10773+ 0 3.18000+ 4 2.16883+ 0 3.21000+ 4 2.17749+ 01261 301904666 + 3.25000+ 4 2.11591+ 0 3.28000+ 4 2.07023+ 0 3.42000+ 4 1.98876+ 01261 301904667 + 3.45000+ 4 1.95803+ 0 3.50000+ 4 1.90740+ 0 3.62000+ 4 1.98248+ 01261 301904668 + 3.65000+ 4 1.92717+ 0 3.70000+ 4 1.83600+ 0 3.79000+ 4 1.94630+ 01261 301904669 + 3.87000+ 4 1.89389+ 0 3.91000+ 4 1.86866+ 0 3.94000+ 4 1.87482+ 01261 301904670 + 4.00000+ 4 1.88700+ 0 4.04000+ 4 1.94454+ 0 4.10000+ 4 2.02980+ 01261 301904671 + 4.15000+ 4 1.95797+ 0 4.20000+ 4 1.88700+ 0 4.30000+ 4 1.91760+ 01261 301904672 + 4.36000+ 4 1.90530+ 0 4.38000+ 4 1.90124+ 0 4.43000+ 4 1.88178+ 01261 301904673 + 4.48000+ 4 1.85631+ 0 4.50000+ 4 1.84620+ 0 4.52000+ 4 1.83385+ 01261 301904674 + 4.54000+ 4 1.82156+ 0 4.60000+ 4 1.78500+ 0 4.62000+ 4 1.80146+ 01261 301904675 + 4.65000+ 4 1.82602+ 0 4.68000+ 4 1.85042+ 0 4.73000+ 4 1.83269+ 01261 301904676 + 4.76000+ 4 1.79900+ 0 4.82000+ 4 1.76880+ 0 4.84000+ 4 1.78314+ 01261 301904677 + 4.88000+ 4 1.81164+ 0 4.90000+ 4 1.82580+ 0 5.00000+ 4 1.74420+ 01261 301904678 + 5.02000+ 4 1.75448+ 0 5.06000+ 4 1.77492+ 0 5.09000+ 4 1.79014+ 01261 301904679 + 5.12000+ 4 1.79520+ 0 5.15000+ 4 1.79520+ 0 5.22000+ 4 1.82192+ 01261 301904680 + 5.25000+ 4 1.86181+ 0 5.35000+ 4 1.92268+ 0 5.39000+ 4 1.91861+ 01261 301904681 + 5.42000+ 4 1.91760+ 0 5.46000+ 4 1.91760+ 0 5.50000+ 4 1.91760+ 01261 301904682 + 5.53000+ 4 1.91452+ 0 5.57000+ 4 1.91044+ 0 5.61000+ 4 1.90226+ 01261 301904683 + 5.67000+ 4 1.87160+ 0 5.71000+ 4 1.85948+ 0 5.76000+ 4 1.87482+ 01261 301904684 + 5.79000+ 4 1.88396+ 0 5.83000+ 4 1.86545+ 0 5.87000+ 4 1.83689+ 01261 301904685 + 5.91000+ 4 1.81149+ 0 5.92000+ 4 1.80738+ 0 5.98000+ 4 1.78291+ 01261 301904686 + 6.00000+ 4 1.77480+ 0 6.03000+ 4 1.80557+ 0 6.12000+ 4 1.86243+ 01261 301904687 + 6.15000+ 4 1.84096+ 0 6.20000+ 4 1.80540+ 0 6.25000+ 4 1.81564+ 01261 301904688 + 6.29000+ 4 1.82377+ 0 6.32000+ 4 1.83196+ 0 6.42000+ 4 1.82767+ 01261 301904689 + 6.47000+ 4 1.75621+ 0 6.50000+ 4 1.71360+ 0 6.51000+ 4 1.72284+ 01261 301904690 + 6.61000+ 4 1.80129+ 0 6.65000+ 4 1.78492+ 0 6.70000+ 4 1.76460+ 01261 301904691 + 6.74000+ 4 1.78919+ 0 6.80000+ 4 1.82580+ 0 6.83000+ 4 1.80427+ 01261 301904692 + 6.89000+ 4 1.76149+ 0 6.94000+ 4 1.74620+ 0 7.00000+ 4 1.73400+ 01261 301904693 + 7.03000+ 4 1.73400+ 0 7.09000+ 4 1.73400+ 0 7.20000+ 4 1.73400+ 01261 301904694 + 7.25000+ 4 1.78005+ 0 7.31000+ 4 1.82170+ 0 7.37000+ 4 1.79718+ 01261 301904695 + 7.41000+ 4 1.79013+ 0 7.48000+ 4 1.82585+ 0 7.50000+ 4 1.83600+ 01261 301904696 + 7.53000+ 4 1.82370+ 0 7.58000+ 4 1.80332+ 0 7.65000+ 4 1.72357+ 01261 301904697 + 7.70000+ 4 1.65240+ 0 7.76000+ 4 1.68921+ 0 7.84000+ 4 1.72179+ 01261 301904698 + 7.89000+ 4 1.73197+ 0 7.94000+ 4 1.66848+ 0 8.00000+ 4 1.57080+ 01261 301904699 + 8.07000+ 4 1.65664+ 0 8.20000+ 4 1.71360+ 0 8.27000+ 4 1.69214+ 01261 301904700 + 8.33000+ 4 1.64920+ 0 8.40000+ 4 1.57080+ 0 8.47000+ 4 1.66378+ 01261 301904701 + 8.50000+ 4 1.70340+ 0 8.53000+ 4 1.66039+ 0 8.61000+ 4 1.55445+ 01261 301904702 + 8.68000+ 4 1.51158+ 0 8.75000+ 4 1.55566+ 0 8.83000+ 4 1.59317+ 01261 301904703 + 8.90000+ 4 1.55040+ 0 9.00000+ 4 1.63200+ 0 9.03000+ 4 1.63200+ 01261 301904704 + 9.12000+ 4 1.59103+ 0 9.28000+ 4 1.52603+ 0 9.36000+ 4 1.57493+ 01261 301904705 + 9.44000+ 4 1.57892+ 0 9.50000+ 4 1.56060+ 0 9.52000+ 4 1.57494+ 01261 301904706 + 9.60000+ 4 1.63200+ 0 9.68000+ 4 1.70552+ 0 9.77000+ 4 1.63084+ 01261 301904707 + 9.85000+ 4 1.62699+ 0 9.93000+ 4 1.65339+ 0 9.99000+ 4 1.63505+ 01261 301904708 + 1.00000+ 5 1.58500+ 0 1.03000+ 5 1.57200+ 0 1.20000+ 5 1.53200+ 01261 301904709 + 1.35000+ 5 1.49600+ 0 1.40000+ 5 1.48200+ 0 1.50000+ 5 1.45800+ 01261 301904710 + 1.60000+ 5 1.44000+ 0 1.73000+ 5 1.40700+ 0 1.80000+ 5 1.39400+ 01261 301904711 + 2.00000+ 5 1.35100+ 0 2.07000+ 5 1.33500+ 0 2.15000+ 5 1.32620+ 01261 301904712 + 2.20000+ 5 1.32180+ 0 2.25000+ 5 1.31770+ 0 2.35000+ 5 1.31230+ 01261 301904713 + 2.40000+ 5 1.31000+ 0 2.50000+ 5 1.30750+ 0 2.60000+ 5 1.30370+ 01261 301904714 + 2.70000+ 5 1.30000+ 0 2.80000+ 5 1.29530+ 0 3.00000+ 5 1.28000+ 01261 301904715 + 3.20000+ 5 1.24400+ 0 3.25000+ 5 1.23780+ 0 3.40000+ 5 1.22880+ 01261 301904716 + 3.50000+ 5 1.22620+ 0 3.60000+ 5 1.22330+ 0 3.80000+ 5 1.22100+ 01261 301904717 + 4.00000+ 5 1.21630+ 0 4.20000+ 5 1.20980+ 0 4.40000+ 5 1.20130+ 01261 301904718 + 4.50000+ 5 1.19600+ 0 4.60000+ 5 1.19000+ 0 4.70000+ 5 1.18480+ 01261 301904719 + 4.80000+ 5 1.17980+ 0 5.00000+ 5 1.17170+ 0 5.20000+ 5 1.16400+ 01261 301904720 + 5.40000+ 5 1.15850+ 0 5.50000+ 5 1.15750+ 0 5.60000+ 5 1.15620+ 01261 301904721 + 5.70000+ 5 1.15490+ 0 5.80000+ 5 1.15380+ 0 6.00000+ 5 1.15250+ 01261 301904722 + 6.20000+ 5 1.14880+ 0 6.40000+ 5 1.14510+ 0 6.50000+ 5 1.14360+ 01261 301904723 + 6.60000+ 5 1.14240+ 0 6.70000+ 5 1.14050+ 0 6.80000+ 5 1.13870+ 01261 301904724 + 7.00000+ 5 1.13500+ 0 7.20000+ 5 1.13030+ 0 7.30000+ 5 1.12880+ 01261 301904725 + 7.40000+ 5 1.12810+ 0 7.50000+ 5 1.12780+ 0 7.60000+ 5 1.12810+ 01261 301904726 + 7.70000+ 5 1.12930+ 0 7.75000+ 5 1.12980+ 0 7.80000+ 5 1.13000+ 01261 301904727 + 8.00000+ 5 1.13300+ 0 8.20000+ 5 1.13970+ 0 8.40000+ 5 1.14600+ 01261 301904728 + 8.50000+ 5 1.15120+ 0 8.60000+ 5 1.16030+ 0 8.80000+ 5 1.16400+ 01261 301904729 + 9.00000+ 5 1.17380+ 0 9.20000+ 5 1.18380+ 0 9.40000+ 5 1.19380+ 01261 301904730 + 9.50000+ 5 1.19870+ 0 9.60000+ 5 1.20400+ 0 9.70000+ 5 1.21000+ 01261 301904731 + 9.80000+ 5 1.21500+ 0 1.00000+ 6 1.22500+ 0 1.05000+ 6 1.24100+ 01261 301904732 + 1.10000+ 6 1.25000+ 0 1.15000+ 6 1.25510+ 0 1.20000+ 6 1.25750+ 01261 301904733 + 1.25000+ 6 1.25660+ 0 1.29500+ 6 1.25500+ 0 1.30000+ 6 1.25490+ 01261 301904734 + 1.35000+ 6 1.25220+ 0 1.40000+ 6 1.25000+ 0 1.45000+ 6 1.24900+ 01261 301904735 + 1.49500+ 6 1.24950+ 0 1.50000+ 6 1.25050+ 0 1.60000+ 6 1.25750+ 01261 301904736 + 1.70000+ 6 1.26280+ 0 1.80000+ 6 1.26700+ 0 1.90000+ 6 1.27150+ 01261 301904737 + 2.00000+ 6 1.27400+ 0 2.10000+ 6 1.27680+ 0 2.20000+ 6 1.27880+ 01261 301904738 + 2.30000+ 6 1.27930+ 0 2.40000+ 6 1.27880+ 0 2.50000+ 6 1.27540+ 01261 301904739 + 2.60000+ 6 1.26880+ 0 2.70000+ 6 1.26000+ 0 2.80000+ 6 1.25120+ 01261 301904740 + 2.90000+ 6 1.24120+ 0 3.00000+ 6 1.23180+ 0 3.10000+ 6 1.22180+ 01261 301904741 + 3.20000+ 6 1.21130+ 0 3.30000+ 6 1.20140+ 0 3.40000+ 6 1.19200+ 01261 301904742 + 3.50000+ 6 1.18300+ 0 3.60000+ 6 1.17700+ 0 3.70000+ 6 1.17100+ 01261 301904743 + 3.80000+ 6 1.16200+ 0 3.90000+ 6 1.15800+ 0 4.00000+ 6 1.15000+ 01261 301904744 + 4.10000+ 6 1.14300+ 0 4.20000+ 6 1.13800+ 0 4.30000+ 6 1.13000+ 01261 301904745 + 4.40000+ 6 1.12500+ 0 4.50000+ 6 1.12000+ 0 4.60000+ 6 1.11300+ 01261 301904746 + 4.70000+ 6 1.10800+ 0 4.80000+ 6 1.10200+ 0 4.90000+ 6 1.09700+ 01261 301904747 + 5.00000+ 6 1.09400+ 0 5.10000+ 6 1.09000+ 0 5.15000+ 6 1.08750+ 01261 301904748 + 5.20000+ 6 1.08440+ 0 5.25000+ 6 1.08120+ 0 5.30000+ 6 1.07770+ 01261 301904749 + 5.32858+ 6 1.07480+ 0 5.35000+ 6 1.07380+ 0 5.40000+ 6 1.06960+ 01261 301904750 + 5.45000+ 6 1.06500+ 0 5.50000+ 6 1.05900+ 0 5.55000+ 6 1.05280+ 01261 301904751 + 5.60000+ 6 1.05000+ 0 2.00000+ 7 1.05000+ 0 1261 301904752 + 1261 300004753 + 9.22350+ 4 2.33025+ 2 0 99 0 01261 302004754 + 0.00000+ 0 1.92500+ 8 0 0 1 441261 302004755 + 44 2 1261 302004756 + 5.60000+ 6 0.00000+ 0 5.65000+ 6 3.30000- 3 5.70000+ 6 1.25000- 21261 302004757 + 5.75000+ 6 2.46000- 2 5.80000+ 6 3.75000- 2 5.90000+ 6 7.70000- 21261 302004758 + 6.00000+ 6 1.10000- 1 6.10000+ 6 1.43000- 1 6.20000+ 6 1.82000- 11261 302004759 + 6.30000+ 6 2.24000- 1 6.40000+ 6 2.65000- 1 6.50000+ 6 3.08000- 11261 302004760 + 6.60000+ 6 3.50000- 1 6.70000+ 6 3.95000- 1 6.80000+ 6 4.28000- 11261 302004761 + 6.90000+ 6 4.65000- 1 7.00000+ 6 4.99000- 1 7.10000+ 6 5.32000- 11261 302004762 + 7.20000+ 6 5.58000- 1 7.30000+ 6 5.87000- 1 7.40000+ 6 6.10000- 11261 302004763 + 7.50000+ 6 6.32000- 1 7.60000+ 6 6.50000- 1 7.65000+ 6 6.60000- 11261 302004764 + 7.70000+ 6 6.67000- 1 7.80000+ 6 6.83000- 1 7.90000+ 6 6.97000- 11261 302004765 + 8.00000+ 6 7.08000- 1 8.20000+ 6 7.27000- 1 8.40000+ 6 7.40000- 11261 302004766 + 8.50000+ 6 7.46000- 1 8.60000+ 6 7.50000- 1 8.80000+ 6 7.55000- 11261 302004767 + 9.00000+ 6 7.54000- 1 9.20000+ 6 7.50000- 1 9.40000+ 6 7.43000- 11261 302004768 + 9.50000+ 6 7.40000- 1 9.60000+ 6 7.35000- 1 9.80000+ 6 7.27000- 11261 302004769 + 1.00000+ 7 7.18000- 1 1.05000+ 7 6.90000- 1 1.10000+ 7 6.68000- 11261 302004770 + 1.15000+ 7 6.67000- 1 2.00000+ 7 6.67000- 1 1261 302004771 + 1261 300004772 + 9.22350+ 4 2.33025+ 2 0 99 0 01261 302104773 + 0.00000+ 0 1.92500+ 8 0 0 1 201261 302104774 + 20 2 1261 302104775 + 1.15000+ 7 0.00000+ 0 1.19000+ 7 3.50000- 2 1.20000+ 7 5.00000- 21261 302104776 + 1.21988+ 7 8.40000- 2 1.25000+ 7 1.43000- 1 1.30000+ 7 2.59000- 11261 302104777 + 1.35000+ 7 3.63000- 1 1.40000+ 7 4.35000- 1 1.45000+ 7 4.93000- 11261 302104778 + 1.50000+ 7 5.13000- 1 1.55000+ 7 5.23000- 1 1.60000+ 7 5.13000- 11261 302104779 + 1.65000+ 7 4.95000- 1 1.70000+ 7 4.68000- 1 1.75000+ 7 4.33000- 11261 302104780 + 1.80000+ 7 4.01000- 1 1.85000+ 7 3.63000- 1 1.90000+ 7 3.43000- 11261 302104781 + 1.95000+ 7 3.35000- 1 2.00000+ 7 3.33000- 1 1261 302104782 + 1261 300004783 + 9.22350+ 4 2.33025+ 2 0 1 0 01261 305104784 + 0.00000+ 0-1.30000+ 4 0 0 1 221261 305104785 + 22 2 1261 305104786 + 1.30553+ 4 0.00000+ 0 5.00000+ 4 4.00000- 2 8.40000+ 4 4.50000- 21261 305104787 + 1.00000+ 5 5.00000- 2 1.03000+ 5 5.00000- 2 1.50000+ 5 5.00000- 21261 305104788 + 1.73000+ 5 5.00100- 2 2.00000+ 5 4.90000- 2 2.35000+ 5 4.80000- 21261 305104789 + 2.50000+ 5 4.50000- 2 2.70000+ 5 4.30000- 2 3.00000+ 5 4.00000- 21261 305104790 + 3.50000+ 5 3.50000- 2 4.00000+ 5 3.00000- 2 4.50000+ 5 2.50000- 21261 305104791 + 5.00000+ 5 2.00000- 2 5.50000+ 5 1.50000- 2 6.00000+ 5 1.00000- 21261 305104792 + 6.50000+ 5 5.00000- 3 7.00000+ 5 1.00000- 3 7.50000+ 5 0.00000+ 01261 305104793 + 2.00000+ 7 0.00000+ 0 1261 305104794 + 1261 300004795 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 305204796 + 0.00000+ 0-4.96000+ 4 0 0 1 351261 305204797 + 35 2 1261 305204798 + 5.00000+ 4 0.00000+ 0 8.40000+ 4 1.50000- 1 1.00000+ 5 2.90000- 11261 305204799 + 1.03000+ 5 2.92000- 1 1.50000+ 5 3.20000- 1 1.73000+ 5 3.30000- 11261 305204800 + 2.00000+ 5 3.40000- 1 2.35000+ 5 3.50000- 1 2.50000+ 5 3.50000- 11261 305204801 + 2.70000+ 5 3.50010- 1 3.00000+ 5 3.50000- 1 3.50000+ 5 3.50000- 11261 305204802 + 4.00000+ 5 3.50020- 1 4.50000+ 5 3.50010- 1 5.00000+ 5 3.50000- 11261 305204803 + 5.50000+ 5 3.50010- 1 6.00000+ 5 3.49990- 1 6.50000+ 5 3.40020- 11261 305204804 + 7.00000+ 5 3.10000- 1 7.50000+ 5 2.89990- 1 8.00000+ 5 2.70000- 11261 305204805 + 8.50000+ 5 2.40000- 1 9.00000+ 5 2.10010- 1 9.50000+ 5 1.79850- 11261 305204806 + 1.00000+ 6 1.49990- 1 1.50000+ 6 1.10000- 1 2.00000+ 6 9.00000- 21261 305204807 + 2.50000+ 6 7.00000- 2 3.00000+ 6 6.00000- 2 3.50000+ 6 4.93600- 21261 305204808 + 4.00000+ 6 4.00000- 2 4.50000+ 6 2.00000- 2 5.00000+ 6 6.00000- 31261 305204809 + 5.50000+ 6 0.00000+ 0 2.00000+ 7 0.00000+ 0 1261 305204810 + 1261 300004811 + 9.22350+ 4 2.33025+ 2 0 3 0 01261 305304812 + 0.00000+ 0-8.36000+ 4 0 0 1 331261 305304813 + 33 2 1261 305304814 + 8.40000+ 4 0.00000+ 0 1.00000+ 5 3.00000- 2 1.03000+ 5 4.80000- 21261 305304815 + 1.50000+ 5 1.00000- 1 1.73000+ 5 1.20000- 1 2.00000+ 5 1.40000- 11261 305304816 + 2.35000+ 5 1.50000- 1 2.50000+ 5 1.50000- 1 2.70000+ 5 1.50000- 11261 305304817 + 3.00000+ 5 1.50010- 1 3.50000+ 5 1.49990- 1 4.00000+ 5 1.50000- 11261 305304818 + 4.50000+ 5 1.50000- 1 5.00000+ 5 1.50020- 1 5.50000+ 5 1.49990- 11261 305304819 + 6.00000+ 5 1.40000- 1 6.50000+ 5 1.30000- 1 7.00000+ 5 1.20000- 11261 305304820 + 7.50000+ 5 1.10000- 1 8.00000+ 5 1.00000- 1 8.50000+ 5 9.00000- 21261 305304821 + 9.00000+ 5 8.00000- 2 9.50000+ 5 6.00000- 2 1.00000+ 6 4.00400- 21261 305304822 + 1.50000+ 6 3.00000- 2 2.00000+ 6 2.00000- 2 2.50000+ 6 2.00000- 21261 305304823 + 3.00000+ 6 2.00000- 2 3.50000+ 6 1.00000- 2 4.00000+ 6 1.00000- 21261 305304824 + 4.50000+ 6 5.00000- 3 5.00000+ 6 0.00000+ 0 2.00000+ 7 0.00000+ 01261 305304825 + 1261 300004826 + 9.22350+ 4 2.33025+ 2 0 4 0 01261 305404827 + 0.00000+ 0-1.02500+ 5 0 0 1 311261 305404828 + 31 2 1261 305404829 + 1.03000+ 5 0.00000+ 0 1.50000+ 5 3.00000- 2 1.73000+ 5 4.00000- 21261 305404830 + 2.00000+ 5 5.00000- 2 2.35000+ 5 5.00000- 2 2.50000+ 5 5.00000- 21261 305404831 + 2.70000+ 5 5.00000- 2 3.00000+ 5 5.00000- 2 3.50000+ 5 5.00000- 21261 305404832 + 4.00000+ 5 5.00000- 2 4.50000+ 5 5.00000- 2 5.00000+ 5 5.00000- 21261 305404833 + 5.50000+ 5 5.00000- 2 6.00000+ 5 5.00000- 2 6.50000+ 5 5.00000- 21261 305404834 + 7.00000+ 5 5.00000- 2 7.50000+ 5 4.00000- 2 8.00000+ 5 4.00000- 21261 305404835 + 8.50000+ 5 4.00000- 2 9.00000+ 5 4.00000- 2 9.50000+ 5 4.00000- 21261 305404836 + 1.00000+ 6 4.00400- 2 1.50000+ 6 3.00000- 2 2.00000+ 6 2.00000- 21261 305404837 + 2.50000+ 6 2.00000- 2 3.00000+ 6 2.00000- 2 3.50000+ 6 1.00000- 21261 305404838 + 4.00000+ 6 1.00000- 2 4.50000+ 6 5.00000- 3 5.00000+ 6 0.00000+ 01261 305404839 + 2.00000+ 7 0.00000+ 0 1261 305404840 + 1261 300004841 + 9.22350+ 4 2.33025+ 2 0 5 0 01261 305504842 + 0.00000+ 0-1.49200+ 5 0 0 1 301261 305504843 + 30 2 1261 305504844 + 1.50000+ 5 0.00000+ 0 1.73000+ 5 2.00000- 2 2.00000+ 5 5.00000- 21261 305504845 + 2.35000+ 5 5.00000- 2 2.50000+ 5 5.00000- 2 2.70000+ 5 5.00000- 21261 305504846 + 3.00000+ 5 5.00000- 2 3.50000+ 5 5.00000- 2 4.00000+ 5 5.00000- 21261 305504847 + 4.50000+ 5 5.00000- 2 5.00000+ 5 5.00000- 2 5.50000+ 5 5.00000- 21261 305504848 + 6.00000+ 5 5.00000- 2 6.50000+ 5 5.00000- 2 7.00000+ 5 5.00000- 21261 305504849 + 7.50000+ 5 4.00000- 2 8.00000+ 5 4.00000- 2 8.50000+ 5 4.00000- 21261 305504850 + 9.00000+ 5 4.00000- 2 9.50000+ 5 4.00000- 2 1.00000+ 6 4.00000- 21261 305504851 + 1.50000+ 6 3.00000- 2 2.00000+ 6 2.00000- 2 2.50000+ 6 2.00000- 21261 305504852 + 3.00000+ 6 2.00000- 2 3.50000+ 6 1.00000- 2 4.00000+ 6 1.00000- 21261 305504853 + 4.50000+ 6 5.00000- 3 5.00000+ 6 0.00000+ 0 2.00000+ 7 0.00000+ 01261 305504854 + 1261 300004855 + 9.22350+ 4 2.33025+ 2 0 6 0 01261 305604856 + 0.00000+ 0-1.72000+ 5 0 0 1 291261 305604857 + 29 2 1261 305604858 + 1.73000+ 5 0.00000+ 0 2.00000+ 5 1.00000- 3 2.35000+ 5 2.60000- 21261 305604859 + 2.50000+ 5 5.00000- 2 2.70000+ 5 8.00000- 2 3.00000+ 5 1.00000- 11261 305604860 + 3.50000+ 5 1.40000- 1 4.00000+ 5 1.70000- 1 4.50000+ 5 1.90000- 11261 305604861 + 5.00000+ 5 2.00000- 1 5.50000+ 5 2.00000- 1 6.00000+ 5 2.00000- 11261 305604862 + 6.50000+ 5 2.00000- 1 7.00000+ 5 1.80000- 1 7.50000+ 5 1.60000- 11261 305604863 + 8.00000+ 5 1.40000- 1 8.50000+ 5 1.00000- 1 9.00000+ 5 8.00000- 21261 305604864 + 9.50000+ 5 6.00000- 2 1.00000+ 6 4.00000- 2 1.50000+ 6 3.00000- 21261 305604865 + 2.00000+ 6 2.00000- 2 2.50000+ 6 2.00000- 2 3.00000+ 6 2.00000- 21261 305604866 + 3.50000+ 6 1.00000- 2 4.00000+ 6 1.00000- 2 4.50000+ 6 5.00000- 31261 305604867 + 5.00000+ 6 0.00000+ 0 2.00000+ 7 0.00000+ 0 1261 305604868 + 1261 300004869 + 9.22350+ 4 2.33025+ 2 0 7 0 01261 305704870 + 0.00000+ 0-2.34000+ 5 0 0 1 271261 305704871 + 27 2 1261 305704872 + 2.35000+ 5 0.00000+ 0 2.50000+ 5 3.00000- 2 2.70000+ 5 4.00000- 21261 305704873 + 3.00000+ 5 5.00000- 2 3.50000+ 5 7.00000- 2 4.00000+ 5 8.00000- 21261 305704874 + 4.50000+ 5 9.00000- 2 5.00000+ 5 1.00000- 1 5.50000+ 5 1.00000- 11261 305704875 + 6.00000+ 5 1.00000- 1 6.50000+ 5 1.00000- 1 7.00000+ 5 9.00000- 21261 305704876 + 7.50000+ 5 8.00000- 2 8.00000+ 5 7.00000- 2 8.50000+ 5 6.00000- 21261 305704877 + 9.00000+ 5 5.00000- 2 9.50000+ 5 4.00000- 2 1.00000+ 6 4.00000- 21261 305704878 + 1.50000+ 6 3.00000- 2 2.00000+ 6 2.00000- 2 2.50000+ 6 2.00000- 21261 305704879 + 3.00000+ 6 2.00000- 2 3.50000+ 6 1.00000- 2 4.00000+ 6 1.00000- 21261 305704880 + 4.50000+ 6 5.00000- 3 5.00000+ 6 0.00000+ 0 2.00000+ 7 0.00000+ 01261 305704881 + 1261 300004882 + 9.22350+ 4 2.33025+ 2 0 8 0 01261 305804883 + 0.00000+ 0-2.68000+ 5 0 0 1 251261 305804884 + 25 2 1261 305804885 + 2.70000+ 5 0.00000+ 0 3.00000+ 5 2.00000- 2 3.50000+ 5 4.00000- 21261 305804886 + 4.00000+ 5 7.00000- 2 4.50000+ 5 9.00000- 2 5.00000+ 5 1.00000- 11261 305804887 + 5.50000+ 5 1.00000- 1 6.00000+ 5 1.00000- 1 6.50000+ 5 1.00000- 11261 305804888 + 7.00000+ 5 1.00000- 1 7.50000+ 5 9.00000- 2 8.00000+ 5 8.00000- 21261 305804889 + 8.50000+ 5 6.00000- 2 9.00000+ 5 5.00000- 2 9.50000+ 5 4.00000- 21261 305804890 + 1.00000+ 6 4.00000- 2 1.50000+ 6 3.00000- 2 2.00000+ 6 2.00000- 21261 305804891 + 2.50000+ 6 2.00000- 2 3.00000+ 6 2.00000- 2 3.50000+ 6 1.00000- 21261 305804892 + 4.00000+ 6 1.00000- 2 4.50000+ 6 5.00000- 3 5.00000+ 6 0.00000+ 01261 305804893 + 2.00000+ 7 0.00000+ 0 1261 305804894 + 1261 300004895 + 9.22350+ 4 2.33025+ 2 0 9 0 01261 305904896 + 0.00000+ 0-3.98000+ 5 0 0 1 231261 305904897 + 23 2 1261 305904898 + 4.00000+ 5 0.00000+ 0 4.50000+ 5 5.00000- 2 5.00000+ 5 8.00000- 21261 305904899 + 5.50000+ 5 1.00000- 1 6.00000+ 5 1.40000- 1 6.50000+ 5 1.70000- 11261 305904900 + 7.00000+ 5 1.80000- 1 7.50000+ 5 1.90000- 1 8.00000+ 5 2.00000- 11261 305904901 + 8.50000+ 5 2.00000- 1 9.00000+ 5 2.00000- 1 9.50000+ 5 2.00000- 11261 305904902 + 1.00000+ 6 1.80000- 1 1.50000+ 6 1.50000- 1 2.00000+ 6 1.30000- 11261 305904903 + 2.50000+ 6 1.00000- 1 3.00000+ 6 9.00000- 2 3.50000+ 6 7.00000- 21261 305904904 + 4.00000+ 6 4.00000- 2 4.50000+ 6 1.00000- 2 5.00000+ 6 1.84000- 31261 305904905 + 5.50000+ 6 0.00000+ 0 2.00000+ 7 0.00000+ 0 1261 305904906 + 1261 300004907 + 9.22350+ 4 2.33025+ 2 0 10 0 01261 306004908 + 0.00000+ 0-5.97000+ 5 0 0 1 211261 306004909 + 21 2 1261 306004910 + 6.00000+ 5 0.00000+ 0 6.50000+ 5 1.00000- 1 7.00000+ 5 2.20000- 11261 306004911 + 7.50000+ 5 3.20000- 1 8.00000+ 5 4.00000- 1 8.50000+ 5 5.00000- 11261 306004912 + 9.00000+ 5 6.00000- 1 9.50000+ 5 6.80000- 1 1.00000+ 6 7.80000- 11261 306004913 + 1.50000+ 6 8.30000- 1 2.00000+ 6 8.30000- 1 2.50000+ 6 7.80000- 11261 306004914 + 3.00000+ 6 5.80000- 1 3.50000+ 6 3.60000- 1 4.00000+ 6 2.30000- 11261 306004915 + 4.50000+ 6 1.20000- 1 5.00000+ 6 3.50000- 2 5.50000+ 6 1.77000- 21261 306004916 + 6.00000+ 6 3.30000- 3 6.50000+ 6 0.00000+ 0 2.00000+ 7 0.00000+ 01261 306004917 + 1261 300004918 + 9.22350+ 4 2.33025+ 2 0 11 0 01261 306104919 + 0.00000+ 0-9.95763+ 5 0 0 1 1101261 306104920 + 110 2 1261 306104921 + 1.00000+ 6 0.00000+ 0 1.05000+ 6 1.00000- 4 1.10000+ 6 2.00000- 41261 306104922 + 1.15000+ 6 3.50000- 4 1.20000+ 6 5.00000- 4 1.25000+ 6 7.50000- 41261 306104923 + 1.29500+ 6 9.50000- 4 1.30000+ 6 1.00000- 3 1.35000+ 6 1.30000- 31261 306104924 + 1.40000+ 6 1.50000- 3 1.45000+ 6 1.80000- 3 1.49500+ 6 1.97000- 31261 306104925 + 1.50000+ 6 2.00000- 3 1.60000+ 6 2.50000- 3 1.70000+ 6 2.86000- 31261 306104926 + 1.80000+ 6 3.15000- 3 1.90000+ 6 3.35000- 3 2.00000+ 6 3.50000- 31261 306104927 + 2.10000+ 6 3.66000- 3 2.20000+ 6 3.76000- 3 2.30000+ 6 3.86000- 31261 306104928 + 2.40000+ 6 3.93000- 3 2.50000+ 6 4.00000- 3 2.60000+ 6 4.05000- 31261 306104929 + 2.70000+ 6 4.10000- 3 2.80000+ 6 4.13000- 3 2.90000+ 6 4.16000- 31261 306104930 + 3.00000+ 6 4.20000- 3 3.10000+ 6 4.24000- 3 3.20000+ 6 4.26000- 31261 306104931 + 3.30000+ 6 4.28000- 3 3.40000+ 6 4.29000- 3 3.50000+ 6 4.30000- 31261 306104932 + 3.60000+ 6 4.35000- 3 3.70000+ 6 4.38000- 3 3.80000+ 6 4.42000- 31261 306104933 + 3.90000+ 6 4.46000- 3 4.00000+ 6 4.50000- 3 4.10000+ 6 4.55000- 31261 306104934 + 4.20000+ 6 4.59000- 3 4.30000+ 6 4.62000- 3 4.40000+ 6 4.66000- 31261 306104935 + 4.50000+ 6 4.70000- 3 4.60000+ 6 4.77000- 3 4.70000+ 6 4.82000- 31261 306104936 + 4.80000+ 6 4.87000- 3 4.90000+ 6 4.94000- 3 5.00000+ 6 5.00000- 31261 306104937 + 5.10000+ 6 5.07000- 3 5.15000+ 6 5.11000- 3 5.20000+ 6 5.15000- 31261 306104938 + 5.25000+ 6 5.18000- 3 5.30000+ 6 5.22000- 3 5.32858+ 6 5.24000- 31261 306104939 + 5.35000+ 6 5.26000- 3 5.40000+ 6 5.30000- 3 5.45000+ 6 5.36000- 31261 306104940 + 5.50000+ 6 5.40000- 3 5.55000+ 6 5.48000- 3 5.60000+ 6 5.60000- 31261 306104941 + 5.65000+ 6 5.74000- 3 5.70000+ 6 5.87000- 3 5.75000+ 6 6.00000- 31261 306104942 + 5.80000+ 6 6.15000- 3 5.90000+ 6 6.46000- 3 6.00000+ 6 6.80000- 31261 306104943 + 6.10000+ 6 7.07000- 3 6.20000+ 6 7.40000- 3 6.30000+ 6 7.70000- 31261 306104944 + 6.40000+ 6 8.04000- 3 6.50000+ 6 8.40000- 3 6.60000+ 6 8.70000- 31261 306104945 + 6.70000+ 6 9.02000- 3 6.80000+ 6 9.35000- 3 6.90000+ 6 9.68000- 31261 306104946 + 7.00000+ 6 1.00000- 2 7.10000+ 6 1.03000- 2 7.20000+ 6 1.06000- 21261 306104947 + 7.30000+ 6 1.09000- 2 7.40000+ 6 1.12000- 2 7.50000+ 6 1.15000- 21261 306104948 + 7.60000+ 6 1.18000- 2 7.65000+ 6 1.19500- 2 7.70000+ 6 1.21000- 21261 306104949 + 7.80000+ 6 1.24000- 2 7.90000+ 6 1.27000- 2 8.00000+ 6 1.30000- 21261 306104950 + 8.20000+ 6 1.36000- 2 8.40000+ 6 1.42000- 2 8.50000+ 6 1.45000- 21261 306104951 + 8.60000+ 6 1.48500- 2 8.80000+ 6 1.55000- 2 9.00000+ 6 1.62500- 21261 306104952 + 9.20000+ 6 1.68700- 2 9.40000+ 6 1.74900- 2 9.50000+ 6 1.78000- 21261 306104953 + 9.60000+ 6 1.81400- 2 9.80000+ 6 1.88200- 2 1.00000+ 7 1.95000- 21261 306104954 + 1.05000+ 7 2.11000- 2 1.10000+ 7 2.29000- 2 1.15000+ 7 2.47000- 21261 306104955 + 1.19000+ 7 2.62000- 2 1.20000+ 7 2.66000- 2 1.21988+ 7 2.74000- 21261 306104956 + 1.25000+ 7 2.86000- 2 1.30000+ 7 3.05000- 2 1.35000+ 7 3.24000- 21261 306104957 + 1.40000+ 7 3.33000- 2 2.00000+ 7 3.33000- 2 1261 306104958 + 1261 300004959 + 9.22350+ 4 2.33025+ 2 0 12 0 01261 306204960 + 0.00000+ 0-1.99153+ 6 0 0 1 931261 306204961 + 93 2 1261 306204962 + 2.00000+ 6 0.00000+ 0 2.10000+ 6 2.50000- 4 2.20000+ 6 4.00000- 41261 306204963 + 2.30000+ 6 5.50000- 4 2.40000+ 6 6.70000- 4 2.50000+ 6 8.00000- 41261 306204964 + 2.60000+ 6 9.10000- 4 2.70000+ 6 1.00000- 3 2.80000+ 6 1.10000- 31261 306204965 + 2.90000+ 6 1.20000- 3 3.00000+ 6 1.30000- 3 3.10000+ 6 1.39000- 31261 306204966 + 3.20000+ 6 1.46000- 3 3.30000+ 6 1.54000- 3 3.40000+ 6 1.62000- 31261 306204967 + 3.50000+ 6 1.70000- 3 3.60000+ 6 1.81000- 3 3.70000+ 6 1.93000- 31261 306204968 + 3.80000+ 6 2.04000- 3 3.90000+ 6 2.16000- 3 4.00000+ 6 2.30000- 31261 306204969 + 4.10000+ 6 2.43000- 3 4.20000+ 6 2.56000- 3 4.30000+ 6 2.70000- 31261 306204970 + 4.40000+ 6 2.85000- 3 4.50000+ 6 3.00000- 3 4.60000+ 6 3.21000- 31261 306204971 + 4.70000+ 6 3.39000- 3 4.80000+ 6 3.59000- 3 4.90000+ 6 3.79000- 31261 306204972 + 5.00000+ 6 4.00000- 3 5.10000+ 6 4.25000- 3 5.15000+ 6 4.40000- 31261 306204973 + 5.20000+ 6 4.55000- 3 5.25000+ 6 4.70000- 3 5.30000+ 6 4.86000- 31261 306204974 + 5.32858+ 6 4.93000- 3 5.35000+ 6 4.97000- 3 5.40000+ 6 5.14000- 31261 306204975 + 5.45000+ 6 5.27000- 3 5.50000+ 6 5.40000- 3 5.55000+ 6 5.48000- 31261 306204976 + 5.60000+ 6 5.60000- 3 5.65000+ 6 5.74000- 3 5.70000+ 6 5.87000- 31261 306204977 + 5.75000+ 6 6.00000- 3 5.80000+ 6 6.15000- 3 5.90000+ 6 6.46000- 31261 306204978 + 6.00000+ 6 6.80000- 3 6.10000+ 6 7.07000- 3 6.20000+ 6 7.40000- 31261 306204979 + 6.30000+ 6 7.70000- 3 6.40000+ 6 8.04000- 3 6.50000+ 6 8.40000- 31261 306204980 + 6.60000+ 6 8.70000- 3 6.70000+ 6 9.02000- 3 6.80000+ 6 9.35000- 31261 306204981 + 6.90000+ 6 9.68000- 3 7.00000+ 6 1.00000- 2 7.10000+ 6 1.03000- 21261 306204982 + 7.20000+ 6 1.06000- 2 7.30000+ 6 1.09000- 2 7.40000+ 6 1.12000- 21261 306204983 + 7.50000+ 6 1.15000- 2 7.60000+ 6 1.18000- 2 7.65000+ 6 1.19500- 21261 306204984 + 7.70000+ 6 1.21000- 2 7.80000+ 6 1.24000- 2 7.90000+ 6 1.27000- 21261 306204985 + 8.00000+ 6 1.30000- 2 8.20000+ 6 1.36000- 2 8.40000+ 6 1.42000- 21261 306204986 + 8.50000+ 6 1.45000- 2 8.60000+ 6 1.48500- 2 8.80000+ 6 1.55500- 21261 306204987 + 9.00000+ 6 1.62500- 2 9.20000+ 6 1.68700- 2 9.40000+ 6 1.74900- 21261 306204988 + 9.50000+ 6 1.78000- 2 9.60000+ 6 1.81400- 2 9.80000+ 6 1.88200- 21261 306204989 + 1.00000+ 7 1.95000- 2 1.05000+ 7 2.11000- 2 1.10000+ 7 2.29000- 21261 306204990 + 1.15000+ 7 2.47000- 2 1.19000+ 7 2.62000- 2 1.20000+ 7 2.66000- 21261 306204991 + 1.21988+ 7 2.74000- 2 1.25000+ 7 2.86000- 2 1.30000+ 7 3.05000- 21261 306204992 + 1.35000+ 7 3.24000- 2 1.40000+ 7 3.33000- 2 2.00000+ 7 3.33000- 21261 306204993 + 1261 300004994 + 9.22350+ 4 2.33025+ 2 0 13 0 01261 306304995 + 0.00000+ 0-2.98729+ 6 0 0 1 831261 306304996 + 83 2 1261 306304997 + 3.00000+ 6 0.00000+ 0 3.10000+ 6 3.00000- 4 3.20000+ 6 5.30000- 41261 306304998 + 3.30000+ 6 7.30000- 4 3.40000+ 6 8.70000- 4 3.50000+ 6 1.00000- 31261 306304999 + 3.60000+ 6 1.10000- 3 3.70000+ 6 1.20000- 3 3.80000+ 6 1.30000- 31261 306305000 + 3.90000+ 6 1.40000- 3 4.00000+ 6 1.50000- 3 4.10000+ 6 1.57000- 31261 306305001 + 4.20000+ 6 1.66000- 3 4.30000+ 6 1.78000- 3 4.40000+ 6 1.86000- 31261 306305002 + 4.50000+ 6 2.00000- 3 4.60000+ 6 2.16000- 3 4.70000+ 6 2.32000- 31261 306305003 + 4.80000+ 6 2.51000- 3 4.90000+ 6 2.74000- 3 5.00000+ 6 3.00000- 31261 306305004 + 5.10000+ 6 3.34000- 3 5.15000+ 6 3.50000- 3 5.20000+ 6 3.66000- 31261 306305005 + 5.25000+ 6 3.88000- 3 5.30000+ 6 4.08000- 3 5.32858+ 6 4.21000- 31261 306305006 + 5.35000+ 6 4.30000- 3 5.40000+ 6 4.50000- 3 5.45000+ 6 4.72000- 31261 306305007 + 5.50000+ 6 4.93000- 3 5.55000+ 6 5.14000- 3 5.60000+ 6 5.32000- 31261 306305008 + 5.65000+ 6 5.53000- 3 5.70000+ 6 5.75000- 3 5.75000+ 6 5.94000- 31261 306305009 + 5.80000+ 6 6.10000- 3 5.90000+ 6 6.44000- 3 6.00000+ 6 6.80000- 31261 306305010 + 6.10000+ 6 7.07000- 3 6.20000+ 6 7.40000- 3 6.30000+ 6 7.70000- 31261 306305011 + 6.40000+ 6 8.04000- 3 6.50000+ 6 8.40000- 3 6.60000+ 6 8.70000- 31261 306305012 + 6.70000+ 6 9.02000- 3 6.80000+ 6 9.35000- 3 6.90000+ 6 9.68000- 31261 306305013 + 7.00000+ 6 1.00000- 2 7.10000+ 6 1.03000- 2 7.20000+ 6 1.06000- 21261 306305014 + 7.30000+ 6 1.09000- 2 7.40000+ 6 1.12000- 2 7.50000+ 6 1.15000- 21261 306305015 + 7.60000+ 6 1.18000- 2 7.65000+ 6 1.19500- 2 7.70000+ 6 1.21000- 21261 306305016 + 7.80000+ 6 1.24000- 2 7.90000+ 6 1.27000- 2 8.00000+ 6 1.30000- 21261 306305017 + 8.20000+ 6 1.36000- 2 8.40000+ 6 1.42000- 2 8.50000+ 6 1.45000- 21261 306305018 + 8.60000+ 6 1.48500- 2 8.80000+ 6 1.55500- 2 9.00000+ 6 1.62500- 21261 306305019 + 9.20000+ 6 1.68700- 2 9.40000+ 6 1.74900- 2 9.50000+ 6 1.78000- 21261 306305020 + 9.60000+ 6 1.81400- 2 9.80000+ 6 1.88200- 2 1.00000+ 7 1.95000- 21261 306305021 + 1.05000+ 7 2.11000- 2 1.10000+ 7 2.29000- 2 1.15000+ 7 2.47000- 21261 306305022 + 1.19000+ 7 2.62000- 2 1.20000+ 7 2.66000- 2 1.21988+ 7 2.74000- 21261 306305023 + 1.25000+ 7 2.86000- 2 1.30000+ 7 3.05000- 2 1.35000+ 7 3.24000- 21261 306305024 + 1.40000+ 7 3.33000- 2 2.00000+ 7 3.33000- 2 1261 306305025 + 1261 300005026 + 9.22350+ 4 2.33025+ 2 0 14 0 01261 306405027 + 0.00000+ 0-3.98305+ 6 0 0 1 731261 306405028 + 73 2 1261 306405029 + 4.00000+ 6 0.00000+ 0 4.10000+ 6 2.00000- 4 4.20000+ 6 3.60000- 41261 306405030 + 4.30000+ 6 5.00000- 4 4.40000+ 6 6.00000- 4 4.50000+ 6 7.20000- 41261 306405031 + 4.60000+ 6 8.60000- 4 4.70000+ 6 1.01000- 3 4.80000+ 6 1.19000- 31261 306405032 + 4.90000+ 6 1.37000- 3 5.00000+ 6 1.60000- 3 5.10000+ 6 1.87000- 31261 306405033 + 5.15000+ 6 2.03000- 3 5.20000+ 6 2.12000- 3 5.25000+ 6 2.32000- 31261 306405034 + 5.30000+ 6 2.51000- 3 5.32858+ 6 2.60000- 3 5.35000+ 6 2.66000- 31261 306405035 + 5.40000+ 6 2.82000- 3 5.45000+ 6 3.00000- 3 5.50000+ 6 3.18000- 31261 306405036 + 5.55000+ 6 3.38000- 3 5.60000+ 6 3.59000- 3 5.65000+ 6 3.79000- 31261 306405037 + 5.70000+ 6 4.00000- 3 5.75000+ 6 4.20000- 3 5.80000+ 6 4.41000- 31261 306405038 + 5.90000+ 6 4.82000- 3 6.00000+ 6 5.23000- 3 6.10000+ 6 5.64000- 31261 306405039 + 6.20000+ 6 6.04000- 3 6.30000+ 6 6.44000- 3 6.40000+ 6 6.84000- 31261 306405040 + 6.50000+ 6 7.24000- 3 6.60000+ 6 7.63000- 3 6.70000+ 6 8.01000- 31261 306405041 + 6.80000+ 6 8.39000- 3 6.90000+ 6 8.77000- 3 7.00000+ 6 9.15000- 31261 306405042 + 7.10000+ 6 9.50000- 3 7.20000+ 6 9.85000- 3 7.30000+ 6 1.02000- 21261 306405043 + 7.40000+ 6 1.06000- 2 7.50000+ 6 1.10000- 2 7.60000+ 6 1.13500- 21261 306405044 + 7.65000+ 6 1.15200- 2 7.70000+ 6 1.17000- 2 7.80000+ 6 1.21000- 21261 306405045 + 7.90000+ 6 1.24000- 2 8.00000+ 6 1.28000- 2 8.20000+ 6 1.35000- 21261 306405046 + 8.40000+ 6 1.42000- 2 8.50000+ 6 1.45000- 2 8.60000+ 6 1.48500- 21261 306405047 + 8.80000+ 6 1.55500- 2 9.00000+ 6 1.62500- 2 9.20000+ 6 1.68700- 21261 306405048 + 9.40000+ 6 1.74900- 2 9.50000+ 6 1.78000- 2 9.60000+ 6 1.81400- 21261 306405049 + 9.80000+ 6 1.88200- 2 1.00000+ 7 1.95000- 2 1.05000+ 7 2.11000- 21261 306405050 + 1.10000+ 7 2.29000- 2 1.15000+ 7 2.47000- 2 1.19000+ 7 2.62000- 21261 306405051 + 1.20000+ 7 2.66000- 2 1.21988+ 7 2.74000- 2 1.25000+ 7 2.86000- 21261 306405052 + 1.30000+ 7 3.05000- 2 1.35000+ 7 3.24000- 2 1.40000+ 7 3.33000- 21261 306405053 + 2.00000+ 7 3.33000- 2 1261 306405054 + 1261 300005055 + 9.22350+ 4 2.33025+ 2 0 15 0 01261 306505056 + 0.00000+ 0-4.97881+ 6 0 0 1 631261 306505057 + 63 2 1261 306505058 + 5.00000+ 6 0.00000+ 0 5.10000+ 6 3.10000- 4 5.15000+ 6 4.70000- 41261 306505059 + 5.20000+ 6 6.60000- 4 5.25000+ 6 8.50000- 4 5.30000+ 6 1.00000- 31261 306505060 + 5.32858+ 6 1.12000- 3 5.35000+ 6 1.20000- 3 5.40000+ 6 1.39000- 31261 306505061 + 5.45000+ 6 1.60000- 3 5.50000+ 6 1.80000- 3 5.55000+ 6 2.00000- 31261 306505062 + 5.60000+ 6 2.20000- 3 5.65000+ 6 2.40000- 3 5.70000+ 6 2.60000- 31261 306505063 + 5.75000+ 6 2.81000- 3 5.80000+ 6 3.03000- 3 5.90000+ 6 3.46000- 31261 306505064 + 6.00000+ 6 3.87000- 3 6.10000+ 6 4.30000- 3 6.20000+ 6 4.74000- 31261 306505065 + 6.30000+ 6 5.18000- 3 6.40000+ 6 5.62000- 3 6.50000+ 6 6.06000- 31261 306505066 + 6.60000+ 6 6.49000- 3 6.70000+ 6 6.92000- 3 6.80000+ 6 7.35000- 31261 306505067 + 6.90000+ 6 7.78000- 3 7.00000+ 6 8.21000- 3 7.10000+ 6 8.64000- 31261 306505068 + 7.20000+ 6 9.08000- 3 7.30000+ 6 9.52000- 3 7.40000+ 6 9.96000- 31261 306505069 + 7.50000+ 6 1.04000- 2 7.60000+ 6 1.08000- 2 7.65000+ 6 1.10000- 21261 306505070 + 7.70000+ 6 1.11800- 2 7.80000+ 6 1.15400- 2 7.90000+ 6 1.19000- 21261 306505071 + 8.00000+ 6 1.22500- 2 8.20000+ 6 1.30000- 2 8.40000+ 6 1.37000- 21261 306505072 + 8.50000+ 6 1.41000- 2 8.60000+ 6 1.45000- 2 8.80000+ 6 1.52000- 21261 306505073 + 9.00000+ 6 1.59000- 2 9.20000+ 6 1.66000- 2 9.40000+ 6 1.73500- 21261 306505074 + 9.50000+ 6 1.78000- 2 9.60000+ 6 1.81400- 2 9.80000+ 6 1.88200- 21261 306505075 + 1.00000+ 7 1.95000- 2 1.05000+ 7 2.11000- 2 1.10000+ 7 2.29000- 21261 306505076 + 1.15000+ 7 2.47000- 2 1.19000+ 7 2.62000- 2 1.20000+ 7 2.66000- 21261 306505077 + 1.21988+ 7 2.74000- 2 1.25000+ 7 2.86000- 2 1.30000+ 7 3.05000- 21261 306505078 + 1.35000+ 7 3.24000- 2 1.40000+ 7 3.33000- 2 2.00000+ 7 3.33000- 21261 306505079 + 1261 300005080 + 9.22350+ 4 2.33025+ 2 0 16 0 01261 306605081 + 0.00000+ 0-5.97458+ 6 0 0 1 451261 306605082 + 45 2 1261 306605083 + 6.00000+ 6 0.00000+ 0 6.10000+ 6 6.50000- 4 6.20000+ 6 1.25000- 31261 306605084 + 6.30000+ 6 1.90000- 3 6.40000+ 6 2.50000- 3 6.50000+ 6 2.85000- 31261 306605085 + 6.60000+ 6 3.40000- 3 6.70000+ 6 3.90000- 3 6.80000+ 6 4.30000- 31261 306605086 + 6.90000+ 6 4.80000- 3 7.00000+ 6 5.25000- 3 7.10000+ 6 5.70000- 31261 306605087 + 7.20000+ 6 6.15000- 3 7.30000+ 6 6.60000- 3 7.40000+ 6 7.05000- 31261 306605088 + 7.50000+ 6 7.50000- 3 7.60000+ 6 7.94000- 3 7.65000+ 6 8.16000- 31261 306605089 + 7.70000+ 6 8.38000- 3 7.80000+ 6 8.82000- 3 7.90000+ 6 9.26000- 31261 306605090 + 8.00000+ 6 9.70000- 3 8.20000+ 6 1.06000- 2 8.40000+ 6 1.15000- 21261 306605091 + 8.50000+ 6 1.19000- 2 8.60000+ 6 1.24000- 2 8.80000+ 6 1.32000- 21261 306605092 + 9.00000+ 6 1.41000- 2 9.20000+ 6 1.51000- 2 9.40000+ 6 1.60000- 21261 306605093 + 9.50000+ 6 1.64000- 2 9.60000+ 6 1.68000- 2 9.80000+ 6 1.77000- 21261 306605094 + 1.00000+ 7 1.86000- 2 1.05000+ 7 2.07000- 2 1.10000+ 7 2.29000- 21261 306605095 + 1.15000+ 7 2.47000- 2 1.19000+ 7 2.62000- 2 1.20000+ 7 2.66000- 21261 306605096 + 1.21988+ 7 2.74000- 2 1.25000+ 7 2.86000- 2 1.30000+ 7 3.05000- 21261 306605097 + 1.35000+ 7 3.24000- 2 1.40000+ 7 3.33000- 2 2.00000+ 7 3.33000- 21261 306605098 + 1261 300005099 + 9.22350+ 4 2.33025+ 2 0 99 0 01261 309105100 + 0.00000+ 0-9.45940+ 5 0 0 1 1221261 309105101 + 122 2 1261 309105102 + 9.50000+ 5 0.00000+ 0 1.00000+ 6 2.00000- 2 1.05000+ 6 5.09000- 21261 309105103 + 1.10000+ 6 8.18000- 2 1.15000+ 6 1.12650- 1 1.20000+ 6 1.43500- 11261 309105104 + 1.25000+ 6 1.74250- 1 1.29500+ 6 2.01950- 1 1.30000+ 6 2.05000- 11261 309105105 + 1.35000+ 6 2.35700- 1 1.40000+ 6 2.66500- 1 1.45000+ 6 2.97200- 11261 309105106 + 1.49500+ 6 3.24930- 1 1.50000+ 6 3.28000- 1 1.60000+ 6 3.77500- 11261 309105107 + 1.70000+ 6 4.27140- 1 1.80000+ 6 4.76850- 1 1.90000+ 6 5.26650- 11261 309105108 + 2.00000+ 6 5.76500- 1 2.10000+ 6 5.96090- 1 2.20000+ 6 6.15840- 11261 309105109 + 2.30000+ 6 6.35590- 1 2.40000+ 6 6.55400- 1 2.50000+ 6 6.75200- 11261 309105110 + 2.60000+ 6 7.31040- 1 2.70000+ 6 7.86900- 1 2.80000+ 6 8.42770- 11261 309105111 + 2.90000+ 6 8.98640- 1 3.00000+ 6 9.54500- 1 3.10000+ 6 1.01607+ 01261 309105112 + 3.20000+ 6 1.07775+ 0 3.30000+ 6 1.13945+ 0 3.40000+ 6 1.20122+ 01261 309105113 + 3.50000+ 6 1.26300+ 0 3.60000+ 6 1.29874+ 0 3.70000+ 6 1.33449+ 01261 309105114 + 3.80000+ 6 1.37024+ 0 3.90000+ 6 1.40598+ 0 4.00000+ 6 1.44170+ 01261 309105115 + 4.10000+ 6 1.48125+ 0 4.20000+ 6 1.52083+ 0 4.30000+ 6 1.56040+ 01261 309105116 + 4.40000+ 6 1.60003+ 0 4.50000+ 6 1.63958+ 0 4.60000+ 6 1.66843+ 01261 309105117 + 4.70000+ 6 1.69732+ 0 4.80000+ 6 1.72214+ 0 4.90000+ 6 1.73200+ 01261 309105118 + 5.00000+ 6 1.76100+ 0 5.10000+ 6 1.75980+ 0 5.15000+ 6 1.75420+ 01261 309105119 + 5.20000+ 6 1.74860+ 0 5.25000+ 6 1.74500+ 0 5.30000+ 6 1.74000+ 01261 309105120 + 5.32858+ 6 1.73700+ 0 5.35000+ 6 1.73500+ 0 5.40000+ 6 1.72600+ 01261 309105121 + 5.45000+ 6 1.71600+ 0 5.50000+ 6 1.70600+ 0 5.55000+ 6 1.69300+ 01261 309105122 + 5.60000+ 6 1.67800+ 0 5.65000+ 6 1.66100+ 0 5.70000+ 6 1.64400+ 01261 309105123 + 5.75000+ 6 1.62300+ 0 5.80000+ 6 1.59900+ 0 5.90000+ 6 1.54800+ 01261 309105124 + 6.00000+ 6 1.45900+ 0 6.10000+ 6 1.36900+ 0 6.20000+ 6 1.26600+ 01261 309105125 + 6.30000+ 6 1.16700+ 0 6.40000+ 6 1.07300+ 0 6.50000+ 6 9.78600- 11261 309105126 + 6.60000+ 6 9.04800- 1 6.70000+ 6 8.30900- 1 6.80000+ 6 7.64700- 11261 309105127 + 6.90000+ 6 7.06000- 1 7.00000+ 6 6.47400- 1 7.10000+ 6 5.87200- 11261 309105128 + 7.20000+ 6 5.27100- 1 7.30000+ 6 4.67000- 1 7.40000+ 6 4.05000- 11261 309105129 + 7.50000+ 6 3.65400- 1 7.60000+ 6 3.23900- 1 7.65000+ 6 3.12600- 11261 309105130 + 7.70000+ 6 3.01200- 1 7.80000+ 6 2.78500- 1 7.90000+ 6 2.55800- 11261 309105131 + 8.00000+ 6 2.33200- 1 8.20000+ 6 2.01900- 1 8.40000+ 6 1.70600- 11261 309105132 + 8.50000+ 6 1.57800- 1 8.60000+ 6 1.44900- 1 8.80000+ 6 1.25000- 11261 309105133 + 9.00000+ 6 1.05000- 1 9.20000+ 6 9.40200- 2 9.40000+ 6 8.30900- 21261 309105134 + 9.50000+ 6 7.86000- 2 9.60000+ 6 7.41000- 2 9.80000+ 6 6.70000- 21261 309105135 + 1.00000+ 7 5.99000- 2 1.05000+ 7 4.78000- 2 1.10000+ 7 4.06000- 21261 309105136 + 1.15000+ 7 3.48000- 2 1.19000+ 7 3.21000- 2 1.20000+ 7 3.14000- 21261 309105137 + 1.21988+ 7 3.07000- 2 1.25000+ 7 3.04000- 2 1.30000+ 7 3.00000- 21261 309105138 + 1.35000+ 7 2.66000- 2 1.40000+ 7 2.52000- 2 1.45000+ 7 2.32000- 21261 309105139 + 1.50000+ 7 2.12000- 2 1.55000+ 7 1.92000- 2 1.60000+ 7 1.82000- 21261 309105140 + 1.65000+ 7 1.67000- 2 1.70000+ 7 1.52000- 2 1.75000+ 7 1.42000- 21261 309105141 + 1.80000+ 7 1.32000- 2 1.85000+ 7 1.22000- 2 1.90000+ 7 1.14000- 21261 309105142 + 1.95000+ 7 1.07000- 2 2.00000+ 7 1.02000- 2 1261 309105143 + 1261 300005144 + 9.22350+ 4 2.33025+ 2 0 99 0 01261 310205145 + 0.00000+ 0 6.54510+ 6 0 0 3 7691261 310205146 + 51 5 437 2 769 51261 310205147 + 1.00000- 5 5.42220+ 3 1.00000- 3 5.40605+ 2 5.00000- 3 2.38709+ 21261 310205148 + 1.00000- 2 1.65849+ 2 1.50000- 2 1.32047+ 2 2.00000- 2 1.12013+ 21261 310205149 + 2.53000- 2 9.77000+ 1 3.00000- 2 8.83883+ 1 3.50000- 2 8.07502+ 11261 310205150 + 4.00000- 2 7.46299+ 1 4.50000- 2 6.96870+ 1 5.00000- 2 6.54739+ 11261 310205151 + 5.50000- 2 6.18737+ 1 6.00000- 2 5.87601+ 1 6.50000- 2 5.60454+ 11261 310205152 + 7.00000- 2 5.36323+ 1 7.50000- 2 5.14626+ 1 8.00000- 2 4.97987+ 11261 310205153 + 8.50000- 2 4.80472+ 1 9.00000- 2 4.64710+ 1 9.50000- 2 4.51185+ 11261 310205154 + 1.00000- 1 4.40092+ 1 1.40000- 1 3.85215+ 1 1.80000- 1 3.78988+ 11261 310205155 + 2.03340- 1 3.99129+ 1 2.23340- 1 4.23308+ 1 2.43340- 1 4.47098+ 11261 310205156 + 2.63340- 1 4.69283+ 1 2.83340- 1 4.81348+ 1 3.03340- 1 4.56148+ 11261 310205157 + 3.23340- 1 3.92512+ 1 3.43340- 1 3.19829+ 1 3.63340- 1 2.62810+ 11261 310205158 + 3.83340- 1 2.10102+ 1 4.03340- 1 1.72797+ 1 4.28120- 1 1.39734+ 11261 310205159 + 4.64920- 1 1.13171+ 1 5.04920- 1 9.52947+ 0 5.44920- 1 8.19820+ 01261 310205160 + 5.84920- 1 7.18228+ 0 6.24920- 1 6.47296+ 0 6.64920- 1 6.00601+ 01261 310205161 + 7.04920- 1 5.71157+ 0 7.44920- 1 5.56221+ 0 7.84920- 1 5.54363+ 01261 310205162 + 8.24920- 1 5.66701+ 0 8.64920- 1 5.97322+ 0 9.04920- 1 6.45641+ 01261 310205163 + 9.44920- 1 7.23238+ 0 9.84920- 1 8.75758+ 0 1.00000+ 0 9.67679+ 01261 310205164 + 1.00000+ 0-1.49500+ 0 1.05500+ 0-1.48000+ 0 1.07300+ 0-1.47000+ 01261 310205165 + 1.09100+ 0-1.46000+ 0 1.18200+ 0 7.10000- 1 1.20000+ 0 1.07000+ 01261 310205166 + 1.21800+ 0 1.14000+ 0 1.23600+ 0 1.14000+ 0 1.32700+ 0 0.00000+ 01261 310205167 + 2.63600+ 0 0.00000+ 0 2.69100+ 0 1.43000+ 0 2.74500+ 0 2.29000+ 01261 310205168 + 2.80000+ 0 1.43000+ 0 2.81800+ 0 1.07000+ 0 2.85500+ 0 0.00000+ 01261 310205169 + 3.49100+ 0 0.00000+ 0 3.54500+ 0-1.20000+ 0 3.58200+ 0-2.50000+ 01261 310205170 + 3.63600+ 0 0.00000+ 0 3.69100+ 0 2.86000+ 0 3.72700+ 0 1.79000+ 01261 310205171 + 3.81800+ 0 7.10000- 1 3.90900+ 0 0.00000+ 0 4.00000+ 0 0.00000+ 01261 310205172 + 4.54500+ 0 0.00000+ 0 4.63600+ 0 1.14000+ 0 4.72700+ 0 3.57000+ 01261 310205173 + 4.78200+ 0 1.00000+ 0 4.80000+ 0 0.00000+ 0 4.83600+ 0 0.00000+ 01261 310205174 + 4.85500+ 0-5.00000+ 0 4.89100+ 0-6.40000+ 0 4.90900+ 0-2.00000+ 01261 310205175 + 4.94500+ 0 0.00000+ 0 4.98100+ 0 4.30000- 1 5.09100+ 0 4.30000- 11261 310205176 + 5.14500+ 0 0.00000+ 0 6.09100+ 0 0.00000+ 0 6.16400+ 0 1.50000+ 01261 310205177 + 6.21800+ 0 3.00000+ 0 6.25500+ 0 0.00000+ 0 6.45500+ 0 0.00000+ 01261 310205178 + 6.49100+ 0 2.14000+ 0 6.54500+ 0 2.86000+ 0 6.63600+ 0 0.00000+ 01261 310205179 + 7.81800+ 0 0.00000+ 0 8.00000+ 0 2.00000+ 0 8.18100+ 0 2.57000+ 01261 310205180 + 8.36300+ 0 3.72000+ 0 8.45300+ 0 0.00000+ 0 8.92500+ 0 0.00000+ 01261 310205181 + 9.01500+ 0 4.29000+ 0 9.05200+ 0 4.29000+ 0 9.10600+ 0 4.29000+ 01261 310205182 + 9.17900+ 0 4.29000+ 0 9.23300+ 0 2.14000+ 0 9.30600+ 0-1.43000+ 01261 310205183 + 9.36000+ 0-2.50000+ 0 9.43200+ 0-2.14000+ 0 9.45100+ 0-1.79000+ 01261 310205184 + 9.50500+ 0-7.10000- 1 9.54100+ 0 0.00000+ 0 9.99500+ 0 0.00000+ 01261 310205185 + 1.00850+ 1 1.43000+ 0 1.01760+ 1-2.14000+ 0 1.02670+ 1-2.14000+ 01261 310205186 + 1.03390+ 1-7.10000- 1 1.04300+ 1 0.00000+ 0 1.06290+ 1 1.40000- 11261 310205187 + 1.07200+ 1 4.30000- 1 1.08110+ 1 5.70000- 1 1.09370+ 1 6.40000- 11261 310205188 + 1.09920+ 1 7.10000- 1 1.12640+ 1 1.50000+ 0 1.14090+ 1 2.70000+ 01261 310205189 + 1.14450+ 1 2.88000+ 0 1.14810+ 1 2.70000+ 0 1.15540+ 1 0.00000+ 01261 310205190 + 1.18620+ 1 0.00000+ 0 1.18980+ 1 8.00000- 1 1.20000+ 1 2.00000+ 01261 310205191 + 1.20910+ 1 4.00000+ 0 1.21450+ 1 4.00000+ 0 1.22000+ 1 3.64000+ 01261 310205192 + 1.23500+ 1 0.00000+ 0 1.24910+ 1 0.00000+ 0 1.25440+ 1 0.00000+ 01261 310205193 + 1.40850+ 1 0.00000+ 0 1.42670+ 1 0.00000+ 0 1.43570+ 1 0.00000+ 01261 310205194 + 1.44120+ 1 0.00000+ 0 1.44480+ 1 0.00000+ 0 1.46110+ 1 5.00000- 11261 310205195 + 1.46470+ 1 1.00000+ 0 1.47370+ 1 1.10000+ 0 1.49010+ 1 1.07000+ 01261 310205196 + 1.50000+ 1 7.10000- 1 1.50910+ 1 7.10000- 1 1.51820+ 1 0.00000+ 01261 310205197 + 1.52730+ 1 0.00000+ 0 1.53640+ 1 0.00000+ 0 1.54550+ 1 0.00000+ 01261 310205198 + 1.55450+ 1 0.00000+ 0 1.56360+ 1 2.14000+ 0 1.57270+ 1 3.57000+ 01261 310205199 + 1.58180+ 1 3.57000+ 0 1.59090+ 1 2.14000+ 0 1.60000+ 1 0.00000+ 01261 310205200 + 1.60910+ 1 0.00000+ 0 1.61820+ 1 0.00000+ 0 1.62730+ 1 1.43000+ 01261 310205201 + 1.63640+ 1 2.50000+ 0 1.64360+ 1 2.50000+ 0 1.64910+ 1 2.14000+ 01261 310205202 + 1.65450+ 1 0.00000+ 0 1.66360+ 1 0.00000+ 0 1.67270+ 1 0.00000+ 01261 310205203 + 1.70000+ 1 0.00000+ 0 1.70910+ 1 3.60000- 1 1.71810+ 1 7.10000- 11261 310205204 + 1.72730+ 1 7.10000- 1 1.73640+ 1 7.10000- 1 1.74550+ 1 7.10000- 11261 310205205 + 1.75450+ 1 7.10000- 1 1.76360+ 1 1.07000+ 0 1.77270+ 1 1.07000+ 01261 310205206 + 1.78180+ 1 8.60000- 1 1.79090+ 1 0.00000+ 0 1.83640+ 1 0.00000+ 01261 310205207 + 1.84550+ 1 7.10000- 1 1.85450+ 1 1.07000+ 0 1.86360+ 1 1.43000+ 01261 310205208 + 1.87270+ 1 3.60000- 1 1.88180+ 1 0.00000+ 0 1.95090+ 1 0.00000+ 01261 310205209 + 1.95270+ 1 1.00000+ 0 1.95450+ 1 1.43000+ 0 1.96180+ 1 1.10000+ 01261 310205210 + 1.96720+ 1 9.00000- 1 1.97270+ 1 7.10000- 1 1.98180+ 1 7.10000- 11261 310205211 + 1.99090+ 1 7.10000- 1 2.00000+ 1 4.00000- 1 2.00910+ 1 0.00000+ 01261 310205212 + 2.02730+ 1 0.00000+ 0 2.03640+ 1 0.00000+ 0 2.04550+ 1-2.14000+ 01261 310205213 + 2.05450+ 1-6.43000+ 0 2.05820+ 1-6.43000+ 0 2.06360+ 1-2.86000+ 01261 310205214 + 2.06730+ 1 0.00000+ 0 2.07270+ 1 5.00000+ 0 2.07640+ 1 7.14000+ 01261 310205215 + 2.08180+ 1 8.93000+ 0 2.09090+ 1 8.57000+ 0 2.10000+ 1 4.29000+ 01261 310205216 + 2.10360+ 1 0.00000+ 0 2.10910+ 1-6.43000+ 0 2.11270+ 1-1.42900+ 11261 310205217 + 2.11820+ 1-1.64300+ 1 2.12180+ 1-1.42900+ 1 2.12640+ 1-7.14000+ 01261 310205218 + 2.13640+ 1-2.14000+ 0 2.14000+ 1-1.50000+ 0 2.14550+ 1-1.20000+ 01261 310205219 + 2.15450+ 1-1.07000+ 0 2.17270+ 1-7.10000- 1 2.19090+ 1-3.60000- 11261 310205220 + 2.20910+ 1 0.00000+ 0 2.22730+ 1 3.60000- 1 2.24550+ 1 1.14000+ 01261 310205221 + 2.26360+ 1 1.43000+ 0 2.28180+ 1 2.86000+ 0 2.30000+ 1 1.43000+ 01261 310205222 + 2.31150+ 1 3.64000+ 0 2.32300+ 1 2.73000+ 0 2.34600+ 1-1.36000+ 01261 310205223 + 2.36900+ 1-3.18000+ 0 2.38740+ 1-2.73000+ 0 2.40110+ 1-2.27000+ 01261 310205224 + 2.41030+ 1-2.00000+ 0 2.43790+ 1-1.82000+ 0 2.46090+ 1-1.18000+ 01261 310205225 + 2.48390+ 1-2.70000- 1 2.50690+ 1-2.70000- 1 2.51610+ 1-4.50000- 11261 310205226 + 2.53450+ 1-1.36000+ 0 2.55290+ 1-1.00000+ 0 2.55750+ 1-9.00000- 11261 310205227 + 2.57130+ 1 0.00000+ 0 2.58510+ 1 1.82000+ 0 2.60340+ 1 2.00000+ 01261 310205228 + 2.61260+ 1 1.50000+ 0 2.62180+ 1 1.09000+ 0 2.64480+ 1-8.00000- 11261 310205229 + 2.65400+ 1-1.00000+ 0 2.70000+ 1-5.00000- 1 2.71380+ 1 0.00000+ 01261 310205230 + 2.84250+ 1 0.00000+ 0 2.85170+ 1-5.50000- 1 2.87470+ 1 0.00000+ 01261 310205231 + 2.89770+ 1 9.10000- 1 2.92070+ 1 9.00000- 1 2.94370+ 1 0.00000+ 01261 310205232 + 2.96670+ 1 0.00000+ 0 2.98970+ 1 1.00000+ 0 3.00000+ 1 1.00000+ 01261 310205233 + 3.02290+ 1 1.27000+ 0 3.04570+ 1 0.00000+ 0 3.09140+ 1 0.00000+ 01261 310205234 + 3.09600+ 1 8.20000- 1 3.10970+ 1 1.50000+ 0 3.11430+ 1 1.40000+ 01261 310205235 + 3.13710+ 1 1.00000+ 0 3.16000+ 1 1.50000+ 0 3.16910+ 1 7.30000- 11261 310205236 + 3.18290+ 1-9.20000- 1 3.18740+ 1-1.80000+ 0 3.19660+ 1 0.00000+ 01261 310205237 + 3.22860+ 1 0.00000+ 0 3.25140+ 1 9.10000- 1 3.27430+ 1 9.60000- 11261 310205238 + 3.29710+ 1 2.40000+ 0 3.32000+ 1 1.10000+ 0 3.35200+ 1 0.00000+ 01261 310205239 + 3.43430+ 1 0.00000+ 0 3.44340+ 1-1.09100+ 1 3.44800+ 1-1.09100+ 11261 310205240 + 3.45260+ 1-9.09000+ 0 3.45710+ 1-6.36000+ 0 3.46170+ 1-5.45000+ 01261 310205241 + 3.46630+ 1-3.64000+ 0 3.47090+ 1-1.82000+ 0 3.47540+ 1 0.00000+ 01261 310205242 + 3.48460+ 1 1.82000+ 0 3.48910+ 1 3.64000+ 0 3.50290+ 1 3.64000+ 01261 310205243 + 3.52570+ 1 0.00000+ 0 3.77710+ 1 0.00000+ 0 3.80000+ 1-5.00000- 21261 310205244 + 3.82290+ 1-5.00000- 2 3.84570+ 1 0.00000+ 0 3.86860+ 1 3.60000- 11261 310205245 + 3.89140+ 1 2.18000+ 0 3.91430+ 1 1.75000+ 0 3.92340+ 1 2.00000+ 01261 310205246 + 3.92800+ 1 2.73000+ 0 3.93710+ 1 0.00000+ 0 3.99660+ 1 0.00000+ 01261 310205247 + 4.01940+ 1 4.50000- 1 4.05140+ 1 0.00000+ 0 4.12000+ 1 0.00000+ 01261 310205248 + 4.14290+ 1-4.50000- 1 4.15660+ 1-2.73000+ 0 4.16570+ 1-4.50000- 11261 310205249 + 4.17940+ 1 0.00000+ 0 4.21140+ 1 0.00000+ 0 4.22970+ 1-1.00000+ 01261 310205250 + 4.23890+ 1-2.00000+ 0 4.25710+ 1-1.50000+ 0 4.27090+ 1 0.00000+ 01261 310205251 + 4.28000+ 1 2.00000+ 0 4.28910+ 1 1.82000+ 0 4.30290+ 1-1.64000+ 01261 310205252 + 4.32110+ 1-1.82000+ 0 4.33030+ 1-2.00000+ 0 4.34860+ 1-4.00000+ 01261 310205253 + 4.36690+ 1-2.20000+ 0 4.38060+ 1 0.00000+ 0 4.41710+ 1 0.00000+ 01261 310205254 + 4.44000+ 1-1.82000+ 0 4.46290+ 1 0.00000+ 0 4.60000+ 1 0.00000+ 01261 310205255 + 4.61810+ 1 7.10000- 1 4.63630+ 1 5.00000- 1 4.65440+ 1 1.29000+ 01261 310205256 + 4.67260+ 1 0.00000+ 0 4.72700+ 1 0.00000+ 0 4.74510+ 1 0.00000+ 01261 310205257 + 4.76330+ 1 9.00000- 1 4.77410+ 1 8.00000- 1 4.78870+ 1 7.10000- 11261 310205258 + 4.79590+ 1 0.00000+ 0 4.80680+ 1-3.57000+ 0 4.81770+ 1-3.57000+ 01261 310205259 + 4.82860+ 1 0.00000+ 0 4.83950+ 1 0.00000+ 0 4.85400+ 1 5.71000+ 01261 310205260 + 4.86120+ 1 6.57000+ 0 4.86850+ 1 5.71000+ 0 4.88660+ 1-4.29000+ 01261 310205261 + 4.89340+ 1-4.86000+ 0 4.90110+ 1-3.57000+ 0 4.91200+ 1-2.14000+ 01261 310205262 + 4.91930+ 1-2.14000+ 0 4.93380+ 1-7.10000- 1 4.95560+ 1 3.57000+ 01261 310205263 + 4.96640+ 1 2.86000+ 0 4.97730+ 1 2.29000+ 0 4.99550+ 1 1.29000+ 01261 310205264 + 5.01720+ 1 0.00000+ 0 5.18050+ 1 0.00000+ 0 5.25310+ 1-7.10000- 11261 310205265 + 5.27120+ 1 7.10000- 1 5.32560+ 1 7.10000- 1 5.34380+ 1 7.10000- 11261 310205266 + 5.36190+ 1 0.00000+ 0 5.38000+ 1-7.10000- 1 5.40000+ 1-3.60000- 11261 310205267 + 5.41810+ 1 0.00000+ 0 5.56330+ 1 0.00000+ 0 5.58140+ 1-7.10000- 11261 310205268 + 5.59950+ 1-7.10000- 1 5.69020+ 1-7.10000- 1 5.71200+ 1 1.43000+ 01261 310205269 + 5.72650+ 1 1.79000+ 0 5.76280+ 1 1.79000+ 0 5.78100+ 1 0.00000+ 01261 310205270 + 5.79910+ 1-1.43000+ 0 5.81720+ 1 0.00000+ 0 5.83170+ 1 1.00000+ 01261 310205271 + 5.83900+ 1 1.00000+ 0 5.84990+ 1 5.00000- 1 5.85710+ 1 0.00000+ 01261 310205272 + 5.86800+ 1-3.00000- 1 5.88250+ 1-1.93000+ 0 5.90070+ 1-7.00000- 11261 310205273 + 5.91160+ 1-2.00000- 1 5.94420+ 1 0.00000+ 0 7.01810+ 1 0.00000+ 01261 310205274 + 7.03630+ 1-7.10000- 1 7.05440+ 1-1.43000+ 0 7.07260+ 1-2.32000+ 01261 310205275 + 7.09070+ 1-2.14000+ 0 7.10880+ 1-8.90000- 1 7.12700+ 1 0.00000+ 01261 310205276 + 7.18140+ 1 0.00000+ 0 7.19230+ 1 1.40000- 1 7.19950+ 1 3.60000- 11261 310205277 + 7.20680+ 1 5.40000- 1 7.21040+ 1 5.70000- 1 7.21770+ 1 7.10000- 11261 310205278 + 7.23220+ 1 8.90000- 1 7.25030+ 1 0.00000+ 0 7.26850+ 1-1.32000+ 01261 310205279 + 7.27210+ 1-1.40000+ 0 7.28300+ 1-1.40000+ 0 7.29020+ 1-3.60000- 11261 310205280 + 7.29750+ 1-3.00000- 1 7.30840+ 1-2.10000- 1 7.32650+ 1 0.00000+ 01261 310205281 + 7.39910+ 1 0.00000+ 0 7.44260+ 1 4.30000- 1 7.45710+ 1 3.60000- 11261 310205282 + 7.47890+ 1 7.00000- 2 7.48250+ 1 0.00000+ 0 7.50790+ 1 0.00000+ 01261 310205283 + 7.51880+ 1-3.60000- 1 7.54420+ 1-7.10000- 1 7.55870+ 1-7.10000- 11261 310205284 + 7.58050+ 1 0.00000+ 0 7.60230+ 1 1.00000+ 0 7.61680+ 1 1.10000+ 01261 310205285 + 7.67480+ 1 0.00000+ 0 7.83000+ 1 0.00000+ 0 7.83630+ 1 7.10000- 11261 310205286 + 7.85440+ 1 8.00000- 1 7.87260+ 1 8.00000- 1 7.89070+ 1 7.00000- 11261 310205287 + 7.90880+ 1 3.00000- 1 7.92700+ 1 2.00000- 1 7.94510+ 1 0.00000+ 01261 310205288 + 8.04670+ 1 0.00000+ 0 8.07570+ 1 1.00000+ 0 8.08660+ 1 1.00000+ 01261 310205289 + 8.09750+ 1 5.00000- 1 8.10840+ 1 2.00000- 1 8.13380+ 1 0.00000+ 01261 310205290 + 8.16280+ 1 0.00000+ 0 8.18100+ 1 5.00000- 1 8.20000+ 1 1.00000+ 01261 310205291 + 8.20000+ 1 0.00000+ 0 1.00000+ 3 0.00000+ 0 1.30553+ 4 0.00000+ 01261 310205292 + 2.50000+ 4 0.00000+ 0 2.50000+ 4 7.92009- 1 2.53000+ 4 7.86514- 11261 310205293 + 2.57000+ 4 7.79300- 1 2.62000+ 4 7.71864- 1 2.65000+ 4 7.68725- 11261 310205294 + 2.72000+ 4 7.63754- 1 2.75000+ 4 7.64011- 1 2.83000+ 4 7.75912- 11261 310205295 + 2.88000+ 4 7.94745- 1 2.93000+ 4 7.82171- 1 2.98000+ 4 7.49379- 11261 310205296 + 3.00000+ 4 7.36440- 1 3.11000+ 4 7.48634- 1 3.13000+ 4 7.56888- 11261 310205297 + 3.18000+ 4 7.77189- 1 3.21000+ 4 7.79284- 1 3.25000+ 4 7.55919- 11261 310205298 + 3.28000+ 4 7.38608- 1 3.42000+ 4 7.04878- 1 3.45000+ 4 6.92953- 11261 310205299 + 3.50000+ 4 6.73312- 1 3.62000+ 4 6.95297- 1 3.65000+ 4 6.74762- 11261 310205300 + 3.70000+ 4 6.41008- 1 3.79000+ 4 6.75961- 1 3.87000+ 4 6.54647- 11261 310205301 + 3.91000+ 4 6.44389- 1 3.94000+ 4 6.45360- 1 4.00000+ 4 6.47241- 11261 310205302 + 4.04000+ 4 6.65404- 1 4.10000+ 4 6.92141- 1 4.15000+ 4 6.65712- 11261 310205303 + 4.20000+ 4 6.39734- 1 4.30000+ 4 6.46421- 1 4.36000+ 4 6.40118- 11261 310205304 + 4.38000+ 4 6.38043- 1 4.43000+ 4 6.29771- 1 4.48000+ 4 6.19551- 11261 310205305 + 4.50000+ 4 6.15506- 1 4.52000+ 4 6.10729- 1 4.54000+ 4 6.05984- 11261 310205306 + 4.60000+ 4 5.91924- 1 4.62000+ 4 5.96749- 1 4.65000+ 4 6.03932- 11261 310205307 + 4.68000+ 4 6.11046- 1 4.73000+ 4 6.03631- 1 4.76000+ 4 5.91626- 11261 310205308 + 4.82000+ 4 5.79935- 1 4.84000+ 4 5.84051- 1 4.88000+ 4 5.92212- 11261 310205309 + 4.90000+ 4 5.96255- 1 5.00000+ 4 5.66865- 1 5.02000+ 4 5.69665- 11261 310205310 + 5.06000+ 4 5.75221- 1 5.09000+ 4 5.79348- 1 5.12000+ 4 5.80185- 11261 310205311 + 5.15000+ 4 5.79393- 1 5.22000+ 4 5.86175- 1 5.25000+ 4 5.98218- 11261 310205312 + 5.35000+ 4 6.15111- 1 5.39000+ 4 6.12771- 1 5.42000+ 4 6.11682- 11261 310205313 + 5.46000+ 4 6.10671- 1 5.50000+ 4 6.09674- 1 5.53000+ 4 6.07957- 11261 310205314 + 5.57000+ 4 6.05691- 1 5.61000+ 4 6.02147- 1 5.67000+ 4 5.91060- 11261 310205315 + 5.71000+ 4 5.86333- 1 5.76000+ 4 5.90055- 1 5.79000+ 4 5.92266- 11261 310205316 + 5.83000+ 4 5.85581- 1 5.87000+ 4 5.75773- 1 5.91000+ 4 5.66991- 11261 310205317 + 5.92000+ 4 5.65502- 1 5.98000+ 4 5.56658- 1 6.00000+ 4 5.53737- 11261 310205318 + 6.03000+ 4 5.62747- 1 6.12000+ 4 5.78677- 1 6.15000+ 4 5.71426- 11261 310205319 + 6.20000+ 4 5.59450- 1 6.25000+ 4 5.61690- 1 6.29000+ 4 5.63463- 11261 310205320 + 6.32000+ 4 5.65436- 1 6.42000+ 4 5.62286- 1 6.47000+ 4 5.39435- 11261 310205321 + 6.50000+ 4 5.25842- 1 6.51000+ 4 5.28508- 1 6.61000+ 4 5.50818- 11261 310205322 + 6.65000+ 4 5.45118- 1 6.70000+ 4 5.38058- 1 6.74000+ 4 5.44864- 11261 310205323 + 6.80000+ 4 5.54952- 1 6.83000+ 4 5.47883- 1 6.89000+ 4 5.33865- 11261 310205324 + 6.94000+ 4 5.28379- 1 7.00000+ 4 5.23668- 1 7.03000+ 4 5.23154- 11261 310205325 + 7.09000+ 4 5.22123- 1 7.20000+ 4 5.20214- 1 7.25000+ 4 5.33130- 11261 310205326 + 7.31000+ 4 5.44495- 1 7.37000+ 4 5.36066- 1 7.41000+ 4 5.33229- 11261 310205327 + 7.48000+ 4 5.42555- 1 7.50000+ 4 5.45191- 1 7.53000+ 4 5.40971- 11261 310205328 + 7.58000+ 4 5.33990- 1 7.65000+ 4 5.09118- 1 7.70000+ 4 4.87231- 11261 310205329 + 7.76000+ 4 4.97023- 1 7.84000+ 4 5.05159- 1 7.89000+ 4 5.07232- 11261 310205330 + 7.94000+ 4 4.87755- 1 8.00000+ 4 4.58202- 1 8.07000+ 4 4.82011- 11261 310205331 + 8.20000+ 4 4.96224- 1 8.27000+ 4 4.88763- 1 8.33000+ 4 4.75324- 11261 310205332 + 8.40000+ 4 4.51588- 1 8.47000+ 4 4.77125- 1 8.50000+ 4 4.87969- 11261 310205333 + 8.53000+ 4 4.75145- 1 8.61000+ 4 4.43593- 1 8.68000+ 4 4.30330- 11261 310205334 + 8.75000+ 4 4.41843- 1 8.83000+ 4 4.51319- 1 8.90000+ 4 4.38233- 11261 310205335 + 9.00000+ 4 4.59898- 1 9.03000+ 4 4.59493- 1 9.12000+ 4 4.46810- 11261 310205336 + 9.28000+ 4 4.26727- 1 9.36000+ 4 4.39509- 1 9.44000+ 4 4.39759- 11261 310205337 + 9.50000+ 4 4.34034- 1 9.52000+ 4 4.37816- 1 9.60000+ 4 4.52834- 11261 310205338 + 9.68000+ 4 4.72371- 1 9.77000+ 4 4.50774- 1 9.85000+ 4 4.48911- 11261 310205339 + 9.93000+ 4 4.55388- 1 9.99000+ 4 4.49738- 1 1.00000+ 5 4.35875- 11261 310205340 + 1.03000+ 5 4.29396- 1 1.20000+ 5 4.01937- 1 1.35000+ 5 3.78281- 11261 310205341 + 1.40000+ 5 3.70215- 1 1.50000+ 5 3.55752- 1 1.60000+ 5 3.43738- 11261 310205342 + 1.73000+ 5 3.27329- 1 1.80000+ 5 3.20285- 1 2.00000+ 5 3.01273- 11261 310205343 + 2.07000+ 5 2.95216- 1 2.15000+ 5 2.90723- 1 2.20000+ 5 2.88242- 11261 310205344 + 2.25000+ 5 2.85838- 1 2.35000+ 5 2.81479- 1 2.40000+ 5 2.79217- 11261 310205345 + 2.50000+ 5 2.74575- 1 2.60000+ 5 2.68732- 1 2.70000+ 5 2.62233- 11261 310205346 + 2.80000+ 5 2.55228- 1 3.00000+ 5 2.40640- 1 3.20000+ 5 2.24878- 11261 310205347 + 3.25000+ 5 2.21889- 1 3.40000+ 5 2.15443- 1 3.50000+ 5 2.12292- 11261 310205348 + 3.60000+ 5 2.09430- 1 3.80000+ 5 2.05025- 1 4.00000+ 5 2.00689- 11261 310205349 + 4.20000+ 5 1.96067- 1 4.40000+ 5 1.91082- 1 4.50000+ 5 1.88427- 11261 310205350 + 4.60000+ 5 1.85673- 1 4.70000+ 5 1.83062- 1 4.80000+ 5 1.80503- 11261 310205351 + 5.00000+ 5 1.75755- 1 5.20000+ 5 1.71189- 1 5.40000+ 5 1.67066- 11261 310205352 + 5.50000+ 5 1.65294- 1 5.60000+ 5 1.63502- 1 5.70000+ 5 1.61730- 11261 310205353 + 5.80000+ 5 1.60006- 1 6.00000+ 5 1.56740- 1 6.20000+ 5 1.53228- 11261 310205354 + 6.40000+ 5 1.49828- 1 6.50000+ 5 1.48226- 1 6.60000+ 5 1.46701- 11261 310205355 + 6.70000+ 5 1.45130- 1 6.80000+ 5 1.43618- 1 7.00000+ 5 1.40740- 11261 310205356 + 7.20000+ 5 1.37958- 1 7.30000+ 5 1.36737- 1 7.40000+ 5 1.35645- 11261 310205357 + 7.50000+ 5 1.34622- 1 7.60000+ 5 1.33682- 1 7.70000+ 5 1.32852- 11261 310205358 + 7.75000+ 5 1.32423- 1 7.80000+ 5 1.31956- 1 8.00000+ 5 1.30295- 11261 310205359 + 8.20000+ 5 1.28934- 1 8.40000+ 5 1.27404- 1 8.50000+ 5 1.26826- 11261 310205360 + 8.60000+ 5 1.26649- 1 8.80000+ 5 1.24426- 1 9.00000+ 5 1.23251- 11261 310205361 + 9.20000+ 5 1.22066- 1 9.40000+ 5 1.20932- 1 9.50000+ 5 1.20375- 11261 310205362 + 9.60000+ 5 1.19807- 1 9.70000+ 5 1.19307- 1 9.80000+ 5 1.18761- 11261 310205363 + 1.00000+ 6 1.17692- 1 1.05000+ 6 1.13038- 1 1.10000+ 6 1.07945- 11261 310205364 + 1.15000+ 6 1.02681- 1 1.20000+ 6 9.74346- 2 1.25000+ 6 9.30743- 21261 310205365 + 1.29500+ 6 8.92431- 2 1.30000+ 6 8.88315- 2 1.35000+ 6 8.50199- 21261 310205366 + 1.40000+ 6 8.13884- 2 1.45000+ 6 7.72811- 2 1.49500+ 6 7.38173- 21261 310205367 + 1.50000+ 6 7.34922- 2 1.60000+ 6 6.84521- 2 1.70000+ 6 6.35962- 21261 310205368 + 1.80000+ 6 5.99614- 2 1.90000+ 6 5.64237- 2 2.00000+ 6 5.31597- 21261 310205369 + 2.10000+ 6 5.08825- 2 2.20000+ 6 4.87529- 2 2.30000+ 6 4.66030- 21261 310205370 + 2.40000+ 6 4.45641- 2 2.50000+ 6 4.24418- 2 2.60000+ 6 4.08107- 21261 310205371 + 2.70000+ 6 3.92021- 2 2.80000+ 6 3.78246- 2 2.90000+ 6 3.63661- 21261 310205372 + 3.00000+ 6 3.49586- 2 3.10000+ 6 3.39836- 2 3.20000+ 6 3.27412- 21261 310205373 + 3.30000+ 6 3.15458- 2 3.40000+ 6 3.03811- 2 3.50000+ 6 2.92542- 21261 310205374 + 3.60000+ 6 2.84221- 2 3.70000+ 6 2.76077- 2 3.80000+ 6 2.67958- 21261 310205375 + 3.90000+ 6 2.61128- 2 4.00000+ 6 2.53343- 2 4.10000+ 6 2.46636- 21261 310205376 + 4.20000+ 6 2.40443- 2 4.30000+ 6 2.33738- 2 4.40000+ 6 2.27758- 21261 310205377 + 4.50000+ 6 2.21516- 2 4.60000+ 6 2.14984- 2 4.70000+ 6 2.09703- 21261 310205378 + 4.80000+ 6 2.04356- 2 4.90000+ 6 1.99419- 2 5.00000+ 6 1.94934- 21261 310205379 + 5.10000+ 6 1.89703- 2 5.15000+ 6 1.87030- 2 5.20000+ 6 1.84286- 21261 310205380 + 5.25000+ 6 1.81260- 2 5.30000+ 6 1.78222- 2 5.32858+ 6 1.76463- 21261 310205381 + 5.35000+ 6 1.75162- 2 5.40000+ 6 1.72094- 2 5.45000+ 6 1.68937- 21261 310205382 + 5.50000+ 6 1.65603- 2 5.55000+ 6 1.62750- 2 5.60000+ 6 1.60456- 21261 310205383 + 5.65000+ 6 1.58918- 2 5.70000+ 6 1.58264- 2 5.75000+ 6 1.57802- 21261 310205384 + 5.80000+ 6 1.57424- 2 5.90000+ 6 1.58721- 2 6.00000+ 6 1.58479- 21261 310205385 + 6.10000+ 6 1.57562- 2 6.20000+ 6 1.56040- 2 6.30000+ 6 1.53291- 21261 310205386 + 6.40000+ 6 1.49279- 2 6.50000+ 6 1.45104- 2 6.60000+ 6 1.39730- 21261 310205387 + 6.70000+ 6 1.35353- 2 6.80000+ 6 1.30319- 2 6.90000+ 6 1.26169- 21261 310205388 + 7.00000+ 6 1.22850- 2 7.10000+ 6 1.20455- 2 7.20000+ 6 1.17012- 21261 310205389 + 7.30000+ 6 1.15289- 2 7.40000+ 6 1.12645- 2 7.50000+ 6 1.09984- 21261 310205390 + 7.60000+ 6 1.06726- 2 7.65000+ 6 1.05012- 2 7.70000+ 6 1.02751- 21261 310205391 + 7.80000+ 6 9.92587- 3 7.90000+ 6 9.56008- 3 8.00000+ 6 9.24407- 31261 310205392 + 8.20000+ 6 8.70084- 3 8.40000+ 6 8.19263- 3 8.50000+ 6 7.95184- 31261 310205393 + 8.60000+ 6 7.70546- 3 8.80000+ 6 7.16600- 3 9.00000+ 6 6.63498- 31261 310205394 + 9.20000+ 6 6.21943- 3 9.40000+ 6 5.82083- 3 9.50000+ 6 5.62788- 31261 310205395 + 9.60000+ 6 5.43066- 3 9.80000+ 6 5.04908- 3 1.00000+ 7 4.67190- 31261 310205396 + 1.05000+ 7 4.14553- 3 1.10000+ 7 3.60136- 3 1.15000+ 7 3.21908- 31261 310205397 + 1.19000+ 7 2.98751- 3 1.20000+ 7 2.99337- 3 1.21988+ 7 2.91010- 31261 310205398 + 1.25000+ 7 2.79074- 3 1.30000+ 7 2.68805- 3 1.35000+ 7 2.55988- 31261 310205399 + 1.40000+ 7 2.44682- 3 1.45000+ 7 2.28735- 3 1.50000+ 7 2.13745- 31261 310205400 + 1.55000+ 7 1.97568- 3 1.60000+ 7 1.83083- 3 1.65000+ 7 1.69218- 31261 310205401 + 1.70000+ 7 1.57538- 3 1.75000+ 7 1.46415- 3 1.80000+ 7 1.39152- 31261 310205402 + 1.85000+ 7 1.31040- 3 1.90000+ 7 1.24836- 3 1.95000+ 7 1.23530- 31261 310205403 + 2.00000+ 7 1.23000- 3 1261 310205404 + 1261 300005405 + 9.22350+ 4 2.33025+ 2 0 0 0 01261 325105406 + 0.00000+ 0 0.00000+ 0 0 0 1 211261 325105407 + 21 2 1261 325105408 + 1.00000- 5 2.86136- 3 1.00000+ 4 2.86136- 3 2.00000+ 5 2.36693- 11261 325105409 + 5.00000+ 5 3.36518- 1 8.00000+ 5 3.99829- 1 1.00000+ 6 4.37698- 11261 325105410 + 1.50000+ 6 5.33269- 1 2.00000+ 6 6.19592- 1 3.00000+ 6 7.39575- 11261 325105411 + 4.00000+ 6 7.88121- 1 4.50000+ 6 7.98552- 1 5.00000+ 6 8.09938- 11261 325105412 + 5.50000+ 6 8.17829- 1 6.00000+ 6 8.24238- 1 7.00000+ 6 8.24863- 11261 325105413 + 8.00000+ 6 8.29326- 1 1.00000+ 7 8.48295- 1 1.20000+ 7 8.75098- 11261 325105414 + 1.40000+ 7 8.89762- 1 1.70000+ 7 9.14455- 1 2.00000+ 7 9.53335- 11261 325105415 + 1261 300005416 + 9.22350+ 4 2.33025+ 2 0 0 0 01261 325205417 + 0.00000+ 0 0.00000+ 0 0 0 1 211261 325205418 + 21 2 1261 325205419 + 1.00000- 5 8.55828- 3 1.00000+ 4 8.55828- 3 2.00000+ 5 6.55141- 31261 325205420 + 5.00000+ 5 5.69469- 3 8.00000+ 5 5.15137- 3 1.00000+ 6 4.82647- 31261 325205421 + 1.50000+ 6 4.00695- 3 2.00000+ 6 3.26675- 3 3.00000+ 6 2.23793- 31261 325205422 + 4.00000+ 6 1.82240- 3 4.50000+ 6 1.73454- 3 5.00000+ 6 1.63812- 31261 325205423 + 5.50000+ 6 1.57140- 3 6.00000+ 6 1.51758- 3 7.00000+ 6 1.51521- 31261 325205424 + 8.00000+ 6 1.47851- 3 1.00000+ 7 1.32241- 3 1.20000+ 7 1.10144- 31261 325205425 + 1.40000+ 7 9.85283- 4 1.70000+ 7 7.90064- 4 2.00000+ 7 4.70596- 41261 325205426 + 1261 300005427 + 9.22350+ 4 2.33025+ 2 0 0 0 01261 325305428 + 0.00000+ 0 0.00000+ 0 0 0 1 211261 325305429 + 21 2 1261 325305430 + 1.00000- 5 5.71369- 3 1.00000+ 4 5.71369- 3 2.00000+ 5 5.06670- 31261 325305431 + 5.00000+ 5 4.81207- 3 8.00000+ 5 4.73367- 3 1.00000+ 6 4.69951- 31261 325305432 + 1.50000+ 6 4.56330- 3 2.00000+ 6 4.32636- 3 3.00000+ 6 3.97100- 31261 325305433 + 4.00000+ 6 3.78607- 3 4.50000+ 6 3.89847- 3 5.00000+ 6 3.87509- 31261 325305434 + 5.50000+ 6 3.86048- 3 6.00000+ 6 3.82866- 3 7.00000+ 6 3.98243- 31261 325305435 + 8.00000+ 6 3.99039- 3 1.00000+ 7 3.74815- 3 1.20000+ 7 3.24726- 31261 325305436 + 1.40000+ 7 3.11606- 3 1.70000+ 7 2.90687- 3 2.00000+ 7 2.07377- 31261 325305437 + 1261 300005438 + 1261 000005439 + 9.22350+ 4 2.33025+ 2 1 1 0 01261 400205440 + 0.00000+ 0 2.33025+ 2 0 2 361 181261 400205441 + 1.00000+ 0 2.86092- 3 3.67731- 6-9.43608-11 0.00000+ 0 0.00000+ 01261 400205442 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205443 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205444 + 0.00000+ 0 0.00000+ 0 9.99989- 1 5.14963- 3 1.25972- 5 1.47746- 81261 400205445 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205446 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205447 + 0.00000+ 0 0.00000+ 0 0.00000+ 0-2.86088- 3 9.99971- 1 7.35655- 31261 400205448 + 2.62432- 5 5.43588- 8-1.63336- 8 1.46884-10 0.00000+ 0 0.00000+ 01261 400205449 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205450 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 1.10494- 5-5.14951- 31261 400205451 + 9.99943- 1 9.53614- 3 4.45541- 5 1.28537- 7-5.71550- 8-2.66552-101261 400205452 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205453 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0-4.51593- 81261 400205454 + 2.52555- 5-7.35631- 3 9.99907- 1 1.17032- 2 6.74684- 5 2.46550- 71261 400205455 +-9.18455- 8 3.71179-10 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205456 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205457 + 1.88412-10-1.20423- 7 4.38457- 5-9.53574- 3 9.99861- 1 1.38635- 21261 400205458 + 9.50114- 5 4.20153- 7-1.54742- 7-1.66125- 9 0.00000+ 0 0.00000+ 01261 400205459 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205460 + 0.00000+ 0-7.93849-13 5.63763-10-2.39475- 7 6.69631- 5-1.17026- 21261 400205461 + 9.99805- 1 1.60196- 2 1.27135- 4 6.55126- 7-1.64350- 7-3.31343- 91261 400205462 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205463 + 0.00000+ 0 0.00000+ 0 3.36304-15-2.60541-12 1.24507- 9-4.12627- 71261 400205464 + 9.46477- 5-1.38627- 2 9.99741- 1 1.81729- 2 1.63929- 4 9.64782- 71261 400205465 +-1.39007- 7-2.30450- 9 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205466 + 0.00000+ 0 0.00000+ 0 0.00000+ 0-1.42946-17 1.19263-14-6.26917-121261 400205467 + 2.36100- 9-6.49876- 7 1.26915- 4-1.60185- 2 9.99667- 1 2.03242- 21261 400205468 + 2.05367- 4 1.36121- 6-1.62099- 7-3.20578- 9 0.00000+ 0 0.00000+ 01261 400205469 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 6.08927-20-3.14878-171261 400205470 + 3.08601-14-1.28734-11 4.06028- 9-9.61141- 7 1.63772- 4-1.81715- 21261 400205471 + 9.99584- 1 2.24740- 2 2.51353- 4 1.84939- 6-1.71292- 7-4.11095- 91261 400205472 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205473 + 9.73704-20-9.18673-17 6.78452-14-2.38435-11 6.51261- 9-1.35632- 61261 400205474 + 2.05221- 4-2.03225- 2 9.99492- 1 2.46226- 2 3.01956- 4 2.44129- 61261 400205475 +-1.77848- 7-6.15732- 9 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205476 + 0.00000+ 0 0.00000+ 0 3.06158-19-2.02548-16 1.33993-13-4.09905-111261 400205477 + 9.90876- 9-1.84528- 6 2.51266- 4-2.24718- 2 9.99391- 1 2.67701- 21261 400205478 + 3.57161- 4 3.14570- 6-1.10771- 7-2.67829- 9 0.00000+ 0 0.00000+ 01261 400205479 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 6.98509-19-5.82878-161261 400205480 + 2.44738-13-6.65568-11 1.44606- 8-2.43791- 6 3.01905- 4-2.46200- 21261 400205481 + 9.99281- 1 2.89167- 2 4.17043- 4 3.97917- 6-1.13041- 7-8.65520- 91261 400205482 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205483 + 1.79937-18-1.25728-15 4.20810-13-1.03262-10 2.04013- 8-3.14407- 61261 400205484 + 3.57139- 4-2.67670- 2 9.99161- 1 3.10625- 2 4.81446- 4 4.93607- 61261 400205485 + 2.51865- 8-1.46454- 9 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205486 + 0.00000+ 0 0.00000+ 0 3.70754-18-2.39212-15 6.89312-13-1.54348-101261 400205487 + 2.79849- 8-3.97363- 6 4.16968- 4-2.89131- 2 9.99032- 1 3.32076- 21261 400205488 + 5.50595- 4 6.04947- 6-2.18919- 8 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205489 + 0.00000+ 0 0.00000+ 0 0.00000+ 0-1.29728-20 6.85286-18-4.21907-151261 400205490 + 1.08489-12-2.23626-10 3.74868- 8-4.93644- 6 4.81391- 4-3.10584- 21261 400205491 + 9.98894- 1 3.53519- 2 6.24137- 4 7.30598- 6 0.00000+ 0 0.00000+ 01261 400205492 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0-2.40276-201261 400205493 + 1.18255-17-7.05278-15 1.65099-12-3.15518-10 4.92034- 8-6.04237- 61261 400205494 + 5.50408- 4-3.32028- 2 9.98747- 1 3.74955- 2 7.02335- 4 0.00000+ 01261 400205495 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205496 + 0.00000+ 0-4.14653-20 1.94174-17-1.13112-14 2.44124-12-4.35107-101261 400205497 + 6.34525- 8-7.30127- 6 6.24016- 4-3.53465- 2 9.98590- 1 3.96384- 21261 400205498 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 400205499 + 0.00000+ 0 0.00000+ 0 0.00000+ 0-6.80077-20 3.06691-17-1.75392-141261 400205500 + 3.52090-12-5.88180-10 8.05727- 8-8.72297- 6 7.02215- 4-3.74894- 21261 400205501 + 9.98425- 1 1261 400205502 + 0.00000+ 0 0.00000+ 0 0 0 1 211261 400205503 + 21 2 1261 400205504 + 0.00000+ 0 1.00000- 5 0 0 1 01261 400205505 + 0.00000+ 0 1261 400205506 + 0.00000+ 0 1.00000+ 4 0 0 1 01261 400205507 + 0.00000+ 0 1261 400205508 + 0.00000+ 0 2.00000+ 5 0 0 6 01261 400205509 + 2.34000- 1 6.07000- 2 5.50000- 3 3.37000- 3 3.32000- 3-7.70000- 41261 400205510 + 0.00000+ 0 5.00000+ 5 0 0 6 01261 400205511 + 3.34000- 1 1.24000- 1 4.11000- 2 1.61000- 2 4.20000- 3-3.85000- 31261 400205512 + 0.00000+ 0 8.00000+ 5 0 0 10 01261 400205513 + 3.97500- 1 1.91100- 1 1.25000- 1 4.47000- 2 6.10000- 3-1.13100- 21261 400205514 +-5.11000- 3 3.90000- 4-9.80000- 4-9.00000- 5 1261 400205515 + 0.00000+ 0 1.00000+ 6 0 0 10 01261 400205516 + 4.35500- 1 2.35400- 1 1.78600- 1 7.51100- 2 1.12000- 2-1.36200- 21261 400205517 +-9.00000- 3 2.21000- 3-4.16000- 3-2.40000- 4 1261 400205518 + 0.00000+ 0 1.50000+ 6 0 0 10 01261 400205519 + 5.31300- 1 3.42800- 1 2.74200- 1 1.76700- 1 6.25400- 2 2.03300- 21261 400205520 + 4.31000- 3 6.93000- 3 3.40000- 4-3.10000- 4 1261 400205521 + 0.00000+ 0 2.00000+ 6 0 0 10 01261 400205522 + 6.17800- 1 4.32500- 1 3.67500- 1 2.70400- 1 1.25000- 1 5.23000- 21261 400205523 + 1.91000- 2 1.09000- 2 2.21000- 3-3.70000- 4 1261 400205524 + 0.00000+ 0 3.00000+ 6 0 0 10 01261 400205525 + 7.38100- 1 5.78400- 1 4.72000- 1 3.43900- 1 2.10500- 1 1.07900- 11261 400205526 + 4.19000- 2 1.90000- 2 2.49000- 3 1.40000- 4 1261 400205527 + 0.00000+ 0 4.00000+ 6 0 0 10 01261 400205528 + 7.86700- 1 6.42800- 1 5.32200- 1 4.05100- 1 2.86900- 1 1.67500- 11261 400205529 + 7.52000- 2 3.77000- 2 1.09000- 2 7.50000- 4 1261 400205530 + 0.00000+ 0 4.50000+ 6 0 0 12 01261 400205531 + 7.97000- 1 6.68000- 1 5.58000- 1 4.35100- 1 3.22200- 1 1.99800- 11261 400205532 + 1.08500- 1 6.13000- 2 3.00000- 2 1.87000- 2 1.25000- 2 2.70000- 31261 400205533 + 0.00000+ 0 5.00000+ 6 0 0 12 01261 400205534 + 8.08300- 1 6.84900- 1 5.79200- 1 4.60900- 1 3.50400- 1 2.27000- 11261 400205535 + 1.36700- 1 8.44000- 2 4.74000- 2 3.11000- 2 1.57000- 2 3.80000- 31261 400205536 + 0.00000+ 0 5.50000+ 6 0 0 14 01261 400205537 + 8.16100- 1 6.96800- 1 5.93100- 1 4.82100- 1 3.69800- 1 2.50500- 11261 400205538 + 1.60800- 1 1.04100- 1 6.33000- 2 3.57000- 2 1.95000- 2 6.40000- 31261 400205539 + 5.30000- 4 1.40000- 4 1261 400205540 + 0.00000+ 0 6.00000+ 6 0 0 16 01261 400205541 + 8.22400- 1 7.05200- 1 6.00200- 1 4.98900- 1 3.85000- 1 2.72400- 11261 400205542 + 1.86000- 1 1.22000- 1 7.88000- 2 4.37000- 2 2.48000- 2 1.07000- 21261 400205543 + 1.21000- 3 3.10000- 4 4.00000- 5 1.00000- 5 1261 400205544 + 0.00000+ 0 7.00000+ 6 0 0 16 01261 400205545 + 8.22700- 1 7.15200- 1 6.06100- 1 5.21200- 1 4.12000- 1 3.09400- 11261 400205546 + 2.29500- 1 1.62600- 1 1.09400- 1 6.22800- 2 4.33000- 2 2.42800- 21261 400205547 + 6.19000- 3 1.93000- 3 2.13000- 3 8.80000- 4 1261 400205548 + 0.00000+ 0 8.00000+ 6 0 0 16 01261 400205549 + 8.27000- 1 7.22600- 1 6.15800- 1 5.38800- 1 4.32100- 1 3.39300- 11261 400205550 + 2.57600- 1 1.91800- 1 1.33400- 1 8.06100- 2 5.43900- 2 3.02000- 21261 400205551 + 9.37000- 3-1.70000- 4-4.80000- 4 3.00000- 5 1261 400205552 + 0.00000+ 0 1.00000+ 7 0 0 16 01261 400205553 + 8.45300- 1 7.38800- 1 6.34900- 1 5.64900- 1 4.67500- 1 3.91200- 11261 400205554 + 3.11800- 1 2.57400- 1 1.93600- 1 1.38600- 1 9.46900- 2 6.02000- 21261 400205555 + 2.78500- 2 9.38000- 3 1.84000- 3-2.70000- 4 1261 400205556 + 0.00000+ 0 1.20000+ 7 0 0 18 01261 400205557 + 8.71100- 1 7.59900- 1 6.61900- 1 5.90300- 1 5.09900- 1 4.40100- 11261 400205558 + 3.70000- 1 3.17000- 1 2.55800- 1 2.00000- 1 1.46700- 1 9.98000- 21261 400205559 + 5.86000- 2 2.99000- 2 1.37400- 2 4.37000- 3 1.26000- 3 1.10000- 41261 400205560 + 0.00000+ 0 1.40000+ 7 0 0 18 01261 400205561 + 8.84700- 1 7.80000- 1 6.89300- 1 6.11300- 1 5.42400- 1 4.78600- 11261 400205562 + 4.19500- 1 3.63500- 1 3.08400- 1 2.53700- 1 1.97500- 1 1.42100- 11261 400205563 + 9.40000- 2 5.65000- 2 2.97400- 2 1.25200- 2 3.31000- 3 2.70000- 41261 400205564 + 0.00000+ 0 1.70000+ 7 0 0 20 01261 400205565 + 9.07600- 1 8.16900- 1 7.29500- 1 6.56300- 1 5.87000- 1 5.23900- 11261 400205566 + 4.65400- 1 4.10200- 1 3.59100- 1 3.14000- 1 2.63600- 1 2.07600- 11261 400205567 + 1.54400- 1 1.04100- 1 6.27200- 2 3.35100- 2 1.48700- 2 6.24000- 31261 400205568 + 1.87000- 3 6.10000- 4 1261 400205569 + 0.00000+ 0 2.00000+ 7 0 0 20 01261 400205570 + 9.45000- 1 8.75000- 1 7.96800- 1 7.18400- 1 6.41100- 1 5.71300- 11261 400205571 + 5.07600- 1 4.51000- 1 3.97500- 1 3.46700- 1 2.95800- 1 2.44200- 11261 400205572 + 1.90900- 1 1.38200- 1 9.26600- 2 5.78700- 2 3.30500- 2 1.63200- 21261 400205573 + 7.27000- 3 2.54000- 3 1261 400205574 + 1261 400005575 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 401605576 + 0.00000+ 0 2.33025+ 2 0 1 0 01261 401605577 + 0.00000+ 0 0.00000+ 0 0 0 1 21261 401605578 + 2 2 1261 401605579 + 0.00000+ 0 5.32858+ 6 0 0 1 21261 401605580 + 2 2 1261 401605581 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 401605582 + 0.00000+ 0 2.00000+ 7 0 0 1 21261 401605583 + 2 2 1261 401605584 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 401605585 + 1261 400005586 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 401705587 + 0.00000+ 0 2.33025+ 2 0 1 0 01261 401705588 + 0.00000+ 0 0.00000+ 0 0 0 1 21261 401705589 + 2 2 1261 401705590 + 0.00000+ 0 1.21988+ 7 0 0 1 21261 401705591 + 2 2 1261 401705592 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 401705593 + 0.00000+ 0 2.00000+ 7 0 0 1 21261 401705594 + 2 2 1261 401705595 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 401705596 + 1261 400005597 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 401805598 + 0.00000+ 0 2.33025+ 2 0 1 0 01261 401805599 + 0.00000+ 0 0.00000+ 0 0 0 1 21261 401805600 + 2 2 1261 401805601 + 0.00000+ 0 1.00000- 5 0 0 1 21261 401805602 + 2 2 1261 401805603 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 401805604 + 0.00000+ 0 2.00000+ 7 0 0 1 21261 401805605 + 2 2 1261 401805606 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 401805607 + 1261 400005608 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 401905609 + 0.00000+ 0 2.33025+ 2 0 1 0 01261 401905610 + 0.00000+ 0 0.00000+ 0 0 0 1 21261 401905611 + 2 2 1261 401905612 + 0.00000+ 0 1.00000- 5 0 0 1 21261 401905613 + 2 2 1261 401905614 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 401905615 + 0.00000+ 0 2.00000+ 7 0 0 1 21261 401905616 + 2 2 1261 401905617 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 401905618 + 1261 400005619 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 402005620 + 0.00000+ 0 2.33025+ 2 0 1 0 01261 402005621 + 0.00000+ 0 0.00000+ 0 0 0 1 21261 402005622 + 2 2 1261 402005623 + 0.00000+ 0 5.60000+ 6 0 0 1 21261 402005624 + 2 2 1261 402005625 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 402005626 + 0.00000+ 0 2.00000+ 7 0 0 1 21261 402005627 + 2 2 1261 402005628 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 402005629 + 1261 400005630 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 402105631 + 0.00000+ 0 2.33025+ 2 0 1 0 01261 402105632 + 0.00000+ 0 0.00000+ 0 0 0 1 21261 402105633 + 2 2 1261 402105634 + 0.00000+ 0 1.15000+ 7 0 0 1 21261 402105635 + 2 2 1261 402105636 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 402105637 + 0.00000+ 0 2.00000+ 7 0 0 1 21261 402105638 + 2 2 1261 402105639 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 402105640 + 1261 400005641 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 405105642 + 0.00000+ 0 2.33025+ 2 0 2 0 01261 405105643 + 0.00000+ 0 0.00000+ 0 0 0 1 21261 405105644 + 2 2 1261 405105645 + 0.00000+ 0 1.30553+ 4 0 0 1 21261 405105646 + 2 2 1261 405105647 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 405105648 + 0.00000+ 0 2.00000+ 7 0 0 1 21261 405105649 + 2 2 1261 405105650 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 405105651 + 1261 400005652 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 405205653 + 0.00000+ 0 2.33025+ 2 0 2 0 01261 405205654 + 0.00000+ 0 0.00000+ 0 0 0 1 21261 405205655 + 2 2 1261 405205656 + 0.00000+ 0 5.00000+ 4 0 0 1 21261 405205657 + 2 2 1261 405205658 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 405205659 + 0.00000+ 0 2.00000+ 7 0 0 1 21261 405205660 + 2 2 1261 405205661 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 405205662 + 1261 400005663 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 405305664 + 0.00000+ 0 2.33025+ 2 0 2 0 01261 405305665 + 0.00000+ 0 0.00000+ 0 0 0 1 21261 405305666 + 2 2 1261 405305667 + 0.00000+ 0 8.40000+ 4 0 0 1 21261 405305668 + 2 2 1261 405305669 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 405305670 + 0.00000+ 0 2.00000+ 7 0 0 1 21261 405305671 + 2 2 1261 405305672 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 405305673 + 1261 400005674 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 405405675 + 0.00000+ 0 2.33025+ 2 0 2 0 01261 405405676 + 0.00000+ 0 5.00000- 5 0 0 1 21261 405405677 + 2 2 1261 405405678 + 0.00000+ 0 1.03000+ 5 0 0 1 21261 405405679 + 2 2 1261 405405680 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 405405681 + 0.00000+ 0 2.00000+ 7 0 0 1 21261 405405682 + 2 2 1261 405405683 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 405405684 + 1261 400005685 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 405505686 + 0.00000+ 0 2.33025+ 2 0 2 0 01261 405505687 + 0.00000+ 0 0.00000+ 0 0 0 1 21261 405505688 + 2 2 1261 405505689 + 0.00000+ 0 1.50000+ 5 0 0 1 21261 405505690 + 2 2 1261 405505691 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 405505692 + 0.00000+ 0 2.00000+ 7 0 0 1 21261 405505693 + 2 2 1261 405505694 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 405505695 + 1261 400005696 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 405605697 + 0.00000+ 0 2.33025+ 2 0 2 0 01261 405605698 + 0.00000+ 0 0.00000+ 0 0 0 1 21261 405605699 + 2 2 1261 405605700 + 0.00000+ 0 1.73000+ 5 0 0 1 21261 405605701 + 2 2 1261 405605702 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 405605703 + 0.00000+ 0 2.00000+ 7 0 0 1 21261 405605704 + 2 2 1261 405605705 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 405605706 + 1261 400005707 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 405705708 + 0.00000+ 0 2.33025+ 2 0 2 0 01261 405705709 + 0.00000+ 0 0.00000+ 0 0 0 1 21261 405705710 + 2 2 1261 405705711 + 0.00000+ 0 2.35000+ 5 0 0 1 21261 405705712 + 2 2 1261 405705713 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 405705714 + 0.00000+ 0 2.00000+ 7 0 0 1 21261 405705715 + 2 2 1261 405705716 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 405705717 + 1261 400005718 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 405805719 + 0.00000+ 0 2.33025+ 2 0 2 0 01261 405805720 + 0.00000+ 0 0.00000+ 0 0 0 1 21261 405805721 + 2 2 1261 405805722 + 0.00000+ 0 2.70000+ 5 0 0 1 21261 405805723 + 2 2 1261 405805724 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 405805725 + 0.00000+ 0 2.00000+ 7 0 0 1 21261 405805726 + 2 2 1261 405805727 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 405805728 + 1261 400005729 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 405905730 + 0.00000+ 0 2.33025+ 2 0 2 0 01261 405905731 + 0.00000+ 0 0.00000+ 0 0 0 1 21261 405905732 + 2 2 1261 405905733 + 0.00000+ 0 4.00000+ 5 0 0 1 21261 405905734 + 2 2 1261 405905735 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 405905736 + 0.00000+ 0 2.00000+ 7 0 0 1 21261 405905737 + 2 2 1261 405905738 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 405905739 + 1261 400005740 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 406005741 + 0.00000+ 0 2.33025+ 2 0 2 0 01261 406005742 + 0.00000+ 0 0.00000+ 0 0 0 1 21261 406005743 + 2 2 1261 406005744 + 0.00000+ 0 6.00000+ 5 0 0 1 21261 406005745 + 2 2 1261 406005746 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 406005747 + 0.00000+ 0 2.00000+ 7 0 0 1 21261 406005748 + 2 2 1261 406005749 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 406005750 + 1261 400005751 + 9.22350+ 4 2.33025+ 2 0 1 0 01261 406105752 + 0.00000+ 0 2.33025+ 2 0 2 0 01261 406105753 + 0.00000+ 0 0.00000+ 0 0 0 1 91261 406105754 + 9 2 1261 406105755 + 0.00000+ 0 1.00000+ 6 0 0 8 01261 406105756 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406105757 + 0.00000+ 0 0.00000+ 0 1261 406105758 + 0.00000+ 0 3.00000+ 6 0 0 8 01261 406105759 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406105760 + 0.00000+ 0 0.00000+ 0 1261 406105761 + 0.00000+ 0 4.00000+ 6 0 0 8 01261 406105762 + 1.67028- 2 2.49830- 3 1.01602- 6 5.60644- 7 4.53540- 7 5.19280- 71261 406105763 + 3.79090- 7 2.64500- 7 1261 406105764 + 0.00000+ 0 5.00000+ 6 0 0 8 01261 406105765 + 1.56298- 1 1.57440- 2 5.15210- 4 1.68540- 5 1.77440- 6 2.06340- 71261 406105766 +-1.02800- 6-6.32820- 7 1261 406105767 + 0.00000+ 0 6.00000+ 6 0 0 8 01261 406105768 + 3.21517- 1 8.32590- 2 1.03452- 2 7.25460- 4 2.84290- 5-4.68880- 71261 406105769 +-4.05530- 6-2.29010- 6 1261 406105770 + 0.00000+ 0 8.00000+ 6 0 0 8 01261 406105771 + 4.01966- 1 1.55430- 1 3.36527- 2 4.07340- 3 1.70620- 4-7.07900- 51261 406105772 +-7.28220- 5-5.90770- 5 1261 406105773 + 0.00000+ 0 1.00000+ 7 0 0 8 01261 406105774 + 5.90794- 1 3.65290- 1 1.87364- 1 6.34500- 2 1.20790- 2 1.72050- 31261 406105775 + 2.94140- 4-5.49900- 5 1261 406105776 + 0.00000+ 0 1.40000+ 7 0 0 8 01261 406105777 + 6.75693- 1 4.58070- 1 2.83606- 1 1.33440- 1 3.66320- 2 6.30490- 31261 406105778 + 7.73510- 4 1.43940- 4 1261 406105779 + 0.00000+ 0 2.00000+ 7 0 0 8 01261 406105780 + 7.17533- 1 5.05980- 1 3.35537- 1 1.83680- 1 6.15440- 2 1.28300- 21261 406105781 + 1.87580- 3 3.85190- 4 1261 406105782 + 1261 400005783 + 9.22350+ 4 2.33025+ 2 0 1 0 01261 406205784 + 0.00000+ 0 2.33025+ 2 0 2 0 01261 406205785 + 0.00000+ 0 0.00000+ 0 0 0 1 91261 406205786 + 9 2 1261 406205787 + 0.00000+ 0 2.00000+ 6 0 0 8 01261 406205788 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406205789 + 0.00000+ 0 0.00000+ 0 1261 406205790 + 0.00000+ 0 3.00000+ 6 0 0 8 01261 406205791 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406205792 + 0.00000+ 0 0.00000+ 0 1261 406205793 + 0.00000+ 0 4.00000+ 6 0 0 8 01261 406205794 + 1.67028- 2 2.49830- 3 1.01602- 6 5.60644- 7 4.53540- 7 5.19280- 71261 406205795 + 3.79090- 7 2.64500- 7 1261 406205796 + 0.00000+ 0 5.00000+ 6 0 0 8 01261 406205797 + 1.56298- 1 1.57440- 2 5.15210- 4 1.68540- 5 1.77440- 6 2.06340- 71261 406205798 +-1.02800- 6-6.32820- 7 1261 406205799 + 0.00000+ 0 6.00000+ 6 0 0 8 01261 406205800 + 3.21517- 1 8.32590- 2 1.03452- 2 7.25460- 4 2.84290- 5-4.68880- 71261 406205801 +-4.05530- 6-2.29010- 6 1261 406205802 + 0.00000+ 0 8.00000+ 6 0 0 8 01261 406205803 + 4.01966- 1 1.55430- 1 3.36527- 2 4.07340- 3 1.70620- 4-7.07900- 51261 406205804 +-7.28220- 5-5.90770- 5 1261 406205805 + 0.00000+ 0 1.00000+ 7 0 0 8 01261 406205806 + 5.90794- 1 3.65290- 1 1.87364- 1 6.34500- 2 1.20790- 2 1.72050- 31261 406205807 + 2.94140- 4-5.49900- 5 1261 406205808 + 0.00000+ 0 1.40000+ 7 0 0 8 01261 406205809 + 6.75693- 1 4.58070- 1 2.83606- 1 1.33440- 1 3.66320- 2 6.30490- 31261 406205810 + 7.73510- 4 1.43940- 4 1261 406205811 + 0.00000+ 0 2.00000+ 7 0 0 8 01261 406205812 + 7.17533- 1 5.05980- 1 3.35537- 1 1.83680- 1 6.15440- 2 1.28300- 21261 406205813 + 1.87580- 3 3.85190- 4 1261 406205814 + 1261 400005815 + 9.22350+ 4 2.33025+ 2 0 1 0 01261 406305816 + 0.00000+ 0 2.33025+ 2 0 2 0 01261 406305817 + 0.00000+ 0 0.00000+ 0 0 0 1 91261 406305818 + 9 2 1261 406305819 + 0.00000+ 0 3.00000+ 6 0 0 8 01261 406305820 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406305821 + 0.00000+ 0 0.00000+ 0 1261 406305822 + 0.00000+ 0 4.00000+ 6 0 0 8 01261 406305823 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406305824 + 0.00000+ 0 0.00000+ 0 1261 406305825 + 0.00000+ 0 5.00000+ 6 0 0 8 01261 406305826 + 1.67028- 2 2.49830- 3 1.01602- 6 5.60644- 7 4.53540- 7 5.19280- 71261 406305827 + 3.79090- 7 2.64500- 7 1261 406305828 + 0.00000+ 0 6.00000+ 6 0 0 8 01261 406305829 + 1.56298- 1 1.57440- 2 5.15210- 4 1.68540- 5 1.77440- 6 2.06340- 71261 406305830 +-1.02800- 6-6.32820- 7 1261 406305831 + 0.00000+ 0 7.00000+ 6 0 0 8 01261 406305832 + 3.21517- 1 8.32590- 2 1.03452- 2 7.25460- 4 2.84290- 5 4.68880- 71261 406305833 +-4.05530- 6-2.29010- 6 1261 406305834 + 0.00000+ 0 8.00000+ 6 0 0 8 01261 406305835 + 4.01966- 1 1.55430- 1 3.36527- 2 4.07340- 3 1.70620- 4-7.07900- 51261 406305836 +-7.28220- 5-5.90770- 5 1261 406305837 + 0.00000+ 0 1.00000+ 7 0 0 8 01261 406305838 + 5.90794- 1 3.65290- 1 1.87364- 1 6.34500- 2 1.20790- 2 1.72050- 31261 406305839 + 2.94140- 4-5.49900- 5 1261 406305840 + 0.00000+ 0 1.40000+ 7 0 0 8 01261 406305841 + 6.75693- 1 4.58070- 1 2.83606- 1 1.33440- 1 3.66320- 2 6.30490- 31261 406305842 + 7.73510- 4 1.43940- 4 1261 406305843 + 0.00000+ 0 2.00000+ 7 0 0 8 01261 406305844 + 7.17533- 1 5.05980- 1 3.35537- 1 1.83680- 1 6.15440- 2 1.28300- 21261 406305845 + 1.87580- 3 3.85190- 4 1261 406305846 + 1261 400005847 + 9.22350+ 4 2.33025+ 2 0 1 0 01261 406405848 + 0.00000+ 0 2.33025+ 2 0 2 0 01261 406405849 + 0.00000+ 0 0.00000+ 0 0 0 1 91261 406405850 + 9 2 1261 406405851 + 0.00000+ 0 4.00000+ 6 0 0 8 01261 406405852 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406405853 + 0.00000+ 0 0.00000+ 0 1261 406405854 + 0.00000+ 0 5.00000+ 6 0 0 8 01261 406405855 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406405856 + 0.00000+ 0 0.00000+ 0 1261 406405857 + 0.00000+ 0 6.00000+ 6 0 0 8 01261 406405858 + 1.67028- 2 2.49830- 3 1.01602- 6 5.60644- 7 4.53540- 7 5.19280- 71261 406405859 + 3.79090- 7 2.64500- 7 1261 406405860 + 0.00000+ 0 7.00000+ 6 0 0 8 01261 406405861 + 1.56298- 1 1.57440- 2 5.15210- 4 1.68540- 5 1.77440- 6 2.06340- 71261 406405862 +-1.02800- 6-6.32820- 7 1261 406405863 + 0.00000+ 0 8.00000+ 6 0 0 8 01261 406405864 + 3.21517- 1 8.32590- 2 1.03452- 2 7.25460- 4 2.84290- 5 4.68880- 71261 406405865 +-4.05530- 6-2.29010- 6 1261 406405866 + 0.00000+ 0 9.00000+ 6 0 0 8 01261 406405867 + 4.01966- 1 1.55430- 1 3.36527- 2 4.07340- 3 1.70620- 4-7.07900- 51261 406405868 +-7.28220- 5-5.90770- 5 1261 406405869 + 0.00000+ 0 1.00000+ 7 0 0 8 01261 406405870 + 5.90794- 1 3.65290- 1 1.87364- 1 6.34500- 2 1.20790- 2 1.72050- 31261 406405871 + 2.94140- 4-5.49900- 5 1261 406405872 + 0.00000+ 0 1.40000+ 7 0 0 8 01261 406405873 + 6.75693- 1 4.58070- 1 2.83606- 1 1.33440- 1 3.66320- 2 6.30490- 31261 406405874 + 1.87580- 3 3.85190- 4 1261 406405875 + 0.00000+ 0 2.00000+ 7 0 0 8 01261 406405876 + 7.17533- 1 5.05980- 1 3.35537- 1 1.83680- 1 6.15440- 2 1.28300- 21261 406405877 + 7.73510- 4 1.43940- 4 1261 406405878 + 1261 400005879 + 9.22350+ 4 2.33025+ 2 0 1 0 01261 406505880 + 0.00000+ 0 2.33025+ 2 0 2 0 01261 406505881 + 0.00000+ 0 0.00000+ 0 0 0 1 91261 406505882 + 9 2 1261 406505883 + 0.00000+ 0 5.00000+ 6 0 0 8 01261 406505884 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406505885 + 0.00000+ 0 0.00000+ 0 1261 406505886 + 0.00000+ 0 6.00000+ 6 0 0 8 01261 406505887 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406505888 + 0.00000+ 0 0.00000+ 0 1261 406505889 + 0.00000+ 0 7.00000+ 6 0 0 8 01261 406505890 + 1.67028- 2 2.49830- 3 1.01602- 6 5.60644- 7 4.53540- 7 5.19280- 71261 406505891 + 3.79090- 7 2.64500- 7 1261 406505892 + 0.00000+ 0 8.00000+ 6 0 0 8 01261 406505893 + 1.56298- 1 1.57440- 2 5.15210- 4 1.68540- 5 1.77440- 6 2.06340- 71261 406505894 +-1.02800- 6-6.32820- 7 1261 406505895 + 0.00000+ 0 9.00000+ 6 0 0 8 01261 406505896 + 3.21517- 1 8.32590- 2 1.03452- 2 7.25460- 4 2.84290- 5 4.68880- 71261 406505897 +-4.05530- 6-2.29010- 6 1261 406505898 + 0.00000+ 0 1.00000+ 7 0 0 8 01261 406505899 + 4.01966- 1 1.55430- 1 3.36527- 2 4.07340- 3 1.70620- 4-7.07900- 51261 406505900 +-7.28220- 5-5.90770- 5 1261 406505901 + 0.00000+ 0 1.20000+ 7 0 0 8 01261 406505902 + 5.90794- 1 3.65290- 1 1.87364- 1 6.34500- 2 1.20790- 2 1.72050- 31261 406505903 + 2.94140- 4-5.49900- 5 1261 406505904 + 0.00000+ 0 1.40000+ 7 0 0 8 01261 406505905 + 6.75693- 1 4.58070- 1 2.83606- 1 1.33440- 1 3.66320- 2 6.30490- 31261 406505906 + 7.73510- 4 1.43940- 4 1261 406505907 + 0.00000+ 0 2.00000+ 7 0 0 8 01261 406505908 + 7.17533- 1 5.05980- 1 3.35537- 1 1.83680- 1 6.15440- 2 1.28300- 21261 406505909 + 1.87580- 3 3.85190- 4 1261 406505910 + 1261 400005911 + 9.22350+ 4 2.33025+ 2 0 1 0 01261 406605912 + 0.00000+ 0 2.33025+ 2 0 2 0 01261 406605913 + 0.00000+ 0 0.00000+ 0 0 0 1 91261 406605914 + 9 2 1261 406605915 + 0.00000+ 0 6.00000+ 6 0 0 8 01261 406605916 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406605917 + 0.00000+ 0 0.00000+ 0 1261 406605918 + 0.00000+ 0 7.00000+ 6 0 0 8 01261 406605919 + 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 0 0.00000+ 01261 406605920 + 0.00000+ 0 0.00000+ 0 1261 406605921 + 0.00000+ 0 8.00000+ 6 0 0 8 01261 406605922 + 1.67028- 2 2.49830- 3 1.01602- 6 5.60644- 7 4.53540- 7 5.19280- 71261 406605923 + 3.79090- 7 2.64500- 7 1261 406605924 + 0.00000+ 0 9.00000+ 6 0 0 8 01261 406605925 + 1.56298- 1 1.57440- 2 5.15210- 4 1.68540- 5 1.77440- 6 2.06340- 71261 406605926 +-1.02800- 6-6.32820- 7 1261 406605927 + 0.00000+ 0 1.00000+ 7 0 0 8 01261 406605928 + 3.21517- 1 8.32590- 2 1.03452- 2 7.25460- 4 2.84290- 5 4.68880- 71261 406605929 +-4.05530- 6-2.29010- 6 1261 406605930 + 0.00000+ 0 1.10000+ 7 0 0 8 01261 406605931 + 4.01966- 1 1.55430- 1 3.36527- 2 4.07340- 3 1.70620- 4-7.07900- 51261 406605932 +-7.28220- 5-5.90770- 5 1261 406605933 + 0.00000+ 0 1.20000+ 7 0 0 8 01261 406605934 + 5.90794- 1 3.65290- 1 1.87364- 1 6.34500- 2 1.20790- 2 1.72050- 31261 406605935 + 2.94140- 4-5.49900- 5 1261 406605936 + 0.00000+ 0 1.40000+ 7 0 0 8 01261 406605937 + 6.75693- 1 4.58070- 1 2.83606- 1 1.33440- 1 3.66320- 2 6.30490- 31261 406605938 + 7.73510- 4 1.43940- 4 1261 406605939 + 0.00000+ 0 2.00000+ 7 0 0 8 01261 406605940 + 7.17533- 1 5.05980- 1 3.35537- 1 1.83680- 1 6.15440- 2 1.28300- 21261 406605941 + 1.87580- 3 3.85190- 4 1261 406605942 + 1261 400005943 + 9.22350+ 4 2.33025+ 2 0 2 0 01261 409105944 + 0.00000+ 0 2.33025+ 2 0 1 0 01261 409105945 + 0.00000+ 0 0.00000+ 0 0 0 1 21261 409105946 + 2 2 1261 409105947 + 0.00000+ 0 9.50000+ 5 0 0 1 21261 409105948 + 2 2 1261 409105949 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 409105950 + 0.00000+ 0 2.00000+ 7 0 0 1 21261 409105951 + 2 2 1261 409105952 +-1.00000+ 0 5.00000- 1 1.00000+ 0 5.00000- 1 1261 409105953 + 1261 400005954 + 1261 000005955 + 9.22350+ 4 2.33025+ 2 0 0 1 01261 501605956 + 5.32858+ 6 0.00000+ 0 0 9 1 21261 501605957 + 2 2 1261 501605958 + 5.32858+ 6 1.00000+ 0 2.00000+ 7 1.00000+ 0 1261 501605959 + 0.00000+ 0 0.00000+ 0 0 0 1 261261 501605960 + 26 2 1261 501605961 + 5.32858+ 6 1.00000+ 4 5.50000+ 6 1.04880+ 5 6.00000+ 6 1.82200+ 51261 501605962 + 6.50000+ 6 2.35360+ 5 7.00000+ 6 2.78560+ 5 7.50000+ 6 3.15900+ 51261 501605963 + 8.00000+ 6 3.49270+ 5 8.50000+ 6 3.79720+ 5 9.00000+ 6 4.07900+ 51261 501605964 + 9.50000+ 6 4.34260+ 5 1.00000+ 7 4.59110+ 5 1.05000+ 7 4.82680+ 51261 501605965 + 1.10000+ 7 5.05150+ 5 1.15000+ 7 5.26660+ 5 1.20000+ 7 5.47330+ 51261 501605966 + 1.25000+ 7 5.67250+ 5 1.30000+ 7 5.86490+ 5 1.35000+ 7 6.05120+ 51261 501605967 + 1.40000+ 7 6.23190+ 5 1.45000+ 7 6.40750+ 5 1.50000+ 7 6.57850+ 51261 501605968 + 1.60000+ 7 6.86000+ 5 1.70000+ 7 7.14000+ 5 1.80000+ 7 7.36000+ 51261 501605969 + 1.90000+ 7 7.51000+ 5 2.00000+ 7 7.57000+ 5 1261 501605970 + 1261 500005971 + 9.22350+ 4 2.33025+ 2 0 0 1 01261 501705972 + 1.21988+ 7 0.00000+ 0 0 9 1 21261 501705973 + 2 2 1261 501705974 + 1.21988+ 7 1.00000+ 0 2.00000+ 7 1.00000+ 0 1261 501705975 + 0.00000+ 0 0.00000+ 0 0 0 1 131261 501705976 + 13 2 1261 501705977 + 1.21988+ 7 1.00000+ 4 1.23000+ 7 6.66310+ 4 1.25000+ 7 1.63500+ 51261 501705978 + 1.30000+ 7 2.21420+ 5 1.35000+ 7 2.67060+ 5 1.40000+ 7 3.05960+ 51261 501705979 + 1.45000+ 7 3.40450+ 5 1.50000+ 7 3.71750+ 5 1.60000+ 7 4.19000+ 51261 501705980 + 1.70000+ 7 4.59000+ 5 1.80000+ 7 4.92000+ 5 1.90000+ 7 5.20000+ 51261 501705981 + 2.00000+ 7 5.40000+ 5 1261 501705982 + 1261 500005983 + 9.22350+ 4 2.33025+ 2 0 0 1 01261 501805984 +-3.00000+ 7 0.00000+ 0 0 7 1 21261 501805985 + 2 2 1261 501805986 + 1.00000- 5 1.00000+ 0 2.00000+ 7 1.00000+ 0 1261 501805987 + 0.00000+ 0 0.00000+ 0 0 0 1 31261 501805988 + 3 2 1261 501805989 + 1.00000- 5 1.32300+ 6 1.40000+ 7 1.50000+ 6 2.00000+ 7 1.57600+ 61261 501805990 + 1261 500005991 + 9.22350+ 4 2.33025+ 2 0 0 1 01261 501905992 +-3.00000+ 7 0.00000+ 0 0 7 1 21261 501905993 + 2 2 1261 501905994 + 1.00000- 5 1.00000+ 0 2.00000+ 7 1.00000+ 0 1261 501905995 + 0.00000+ 0 0.00000+ 0 0 0 1 31261 501905996 + 3 2 1261 501905997 + 1.00000- 5 1.32300+ 6 1.40000+ 7 1.50000+ 6 2.00000+ 7 1.57600+ 61261 501905998 + 1261 500005999 + 9.22350+ 4 2.33025+ 2 0 0 2 01261 502006000 +-3.00000+ 7 0.00000+ 0 0 7 1 171261 502006001 + 17 2 1261 502006002 + 5.60000+ 6 6.87290- 1 6.00000+ 6 6.93600- 1 7.00000+ 6 7.08310- 11261 502006003 + 8.00000+ 6 7.21320- 1 9.00000+ 6 7.31370- 1 1.00000+ 7 7.40720- 11261 502006004 + 1.10000+ 7 7.49450- 1 1.15000+ 7 7.53600- 1 1.20000+ 7 7.57610- 11261 502006005 + 1.30000+ 7 7.65250- 1 1.40000+ 7 7.72420- 1 1.50000+ 7 7.79170- 11261 502006006 + 1.60000+ 7 7.85530- 1 1.70000+ 7 7.91540- 1 1.80000+ 7 7.97210- 11261 502006007 + 1.90000+ 7 8.02590- 1 2.00000+ 7 8.07690- 1 1261 502006008 + 0.00000+ 0 0.00000+ 0 0 0 1 31261 502006009 + 3 2 1261 502006010 + 5.60000+ 6 1.39400+ 6 1.40000+ 7 1.50000+ 6 2.00000+ 7 1.57600+ 61261 502006011 + 0.00000+ 0 0.00000+ 0 0 9 1 171261 502006012 + 17 2 1261 502006013 + 5.60000+ 6 3.12710- 1 6.00000+ 6 3.06400- 1 7.00000+ 6 2.91690- 11261 502006014 + 8.00000+ 6 2.78680- 1 9.00000+ 6 2.68630- 1 1.00000+ 7 2.59280- 11261 502006015 + 1.10000+ 7 2.50550- 1 1.15000+ 7 2.46400- 1 1.20000+ 7 2.42390- 11261 502006016 + 1.30000+ 7 2.34750- 1 1.40000+ 7 2.27580- 1 1.50000+ 7 2.20830- 11261 502006017 + 1.60000+ 7 2.14470- 1 1.70000+ 7 2.08460- 1 1.80000+ 7 2.02790- 11261 502006018 + 1.90000+ 7 1.97410- 1 2.00000+ 7 1.92310- 1 1261 502006019 + 0.00000+ 0 0.00000+ 0 0 0 1 161261 502006020 + 16 2 1261 502006021 + 5.60000+ 6 1.00000+ 4 6.00000+ 6 1.04880+ 5 7.00000+ 6 2.35360+ 51261 502006022 + 8.00000+ 6 3.15900+ 5 9.00000+ 6 3.79720+ 5 1.00000+ 7 4.34260+ 51261 502006023 + 1.10000+ 7 4.82680+ 5 1.20000+ 7 5.26660+ 5 1.30000+ 7 5.67250+ 51261 502006024 + 1.40000+ 7 6.05120+ 5 1.50000+ 7 6.40750+ 5 1.60000+ 7 6.71920+ 51261 502006025 + 1.70000+ 7 7.00000+ 5 1.80000+ 7 7.25000+ 5 1.90000+ 7 7.43500+ 51261 502006026 + 2.00000+ 7 7.52500+ 5 1261 502006027 + 1261 500006028 + 9.22350+ 4 2.33025+ 2 0 0 2 01261 502106029 +-3.00000+ 7 0.00000+ 0 0 7 1 101261 502106030 + 10 2 1261 502106031 + 1.15000+ 7 5.07190- 1 1.20000+ 7 5.15210- 1 1.30000+ 7 5.30490- 11261 502106032 + 1.40000+ 7 5.44840- 1 1.50000+ 7 5.58340- 1 1.60000+ 7 5.71060- 11261 502106033 + 1.70000+ 7 5.83070- 1 1.80000+ 7 5.94430- 1 1.90000+ 7 6.05180- 11261 502106034 + 2.00000+ 7 6.15380- 1 1261 502106035 + 0.00000+ 0 0.00000+ 0 0 0 1 31261 502106036 + 3 2 1261 502106037 + 1.15000+ 7 1.46800+ 6 1.40000+ 7 1.50000+ 6 2.00000+ 7 1.57600+ 61261 502106038 + 0.00000+ 0 0.00000+ 0 0 9 1 101261 502106039 + 10 2 1261 502106040 + 1.15000+ 7 4.92810- 1 1.20000+ 7 4.84790- 1 1.30000+ 7 4.69510- 11261 502106041 + 1.40000+ 7 4.55160- 1 1.50000+ 7 4.41660- 1 1.60000+ 7 4.28940- 11261 502106042 + 1.70000+ 7 4.16930- 1 1.80000+ 7 4.05570- 1 1.90000+ 7 3.94820- 11261 502106043 + 2.00000+ 7 3.84620- 1 1261 502106044 + 0.00000+ 0 0.00000+ 0 0 0 1 101261 502106045 + 10 2 1261 502106046 + 1.15000+ 7 1.00000+ 4 1.20000+ 7 1.63500+ 5 1.30000+ 7 2.67060+ 51261 502106047 + 1.40000+ 7 3.40450+ 5 1.50000+ 7 3.96000+ 5 1.60000+ 7 4.41000+ 51261 502106048 + 1.70000+ 7 4.77000+ 5 1.80000+ 7 5.06000+ 5 1.90000+ 7 5.30000+ 51261 502106049 + 2.00000+ 7 5.46000+ 5 1261 502106050 + 1261 500006051 + 9.22350+ 4 2.33025+ 2 0 0 1 01261 509106052 + 8.40000+ 4 0.00000+ 0 0 9 1 21261 509106053 + 2 2 1261 509106054 + 9.50000+ 5 1.00000+ 0 2.00000+ 7 1.00000+ 0 1261 509106055 + 0.00000+ 0 0.00000+ 0 0 0 1 31261 509106056 + 3 5 1261 509106057 + 9.50000+ 5 2.04900+ 5 1.50000+ 7 8.14310+ 5 2.00000+ 7 9.40300+ 51261 509106058 + 1261 500006059 + 9.22350+ 4 2.33025+ 2 0 0 6 01261 545506060 +-3.00000+ 7 0.0 + 0 0 5 1 21261 545506061 + 2 2 1261 545506062 + 1.00000- 5 3.80000- 2 2.00000+ 7 3.80000- 2 1261 545506063 + 0.0 + 0 0.0 + 0 0 0 1 21261 545506064 + 2 2 1261 545506065 + 1.00000- 5 1.00000+ 0 2.00000+ 7 1.00000+ 0 1261 545506066 + 0.0 + 0 0.0 + 0 0 0 1 281261 545506067 + 28 1 1261 545506068 + 0.0 + 0 0.0 + 0 7.97300+ 4 7.33414- 6 8.85900+ 4 6.78658- 61261 545506069 + 9.84300+ 4 6.79869- 6 1.09370+ 5 6.44251- 6 1.21520+ 5 6.04263- 61261 545506070 + 1.35020+ 5 5.46503- 6 1.50020+ 5 4.86957- 6 1.66690+ 5 3.49598- 61261 545506071 + 1.85220+ 5 3.44892- 6 2.05800+ 5 3.24050- 6 2.28660+ 5 2.36057- 61261 545506072 + 2.54070+ 5 1.74231- 6 2.82300+ 5 9.84723- 7 3.13670+ 5 5.47899- 71261 545506073 + 3.48520+ 5 4.72482- 7 3.87240+ 5 5.83139- 7 4.30270+ 5 2.86465- 71261 545506074 + 4.78080+ 5 1.24210- 7 5.31200+ 5 8.80793- 8 5.90220+ 5 8.68906- 81261 545506075 + 6.55800+ 5 8.23250- 8 7.28660+ 5 9.75377- 8 8.09630+ 5 7.00101- 81261 545506076 + 8.99590+ 5 3.40068- 8 9.99540+ 5 1.71028- 8 1.11060+ 6 1.45823- 81261 545506077 + 1.23400+ 6 0.0 + 0 1261 545506078 +-3.00000+ 7 0.0 + 0 0 5 1 21261 545506079 + 2 2 1261 545506080 + 1.00000- 5 2.13000- 1 2.00000+ 7 2.13000- 1 1261 545506081 + 0.0 + 0 0.0 + 0 0 0 1 21261 545506082 + 2 2 1261 545506083 + 1.00000- 5 1.00000+ 0 2.00000+ 7 1.00000+ 0 1261 545506084 + 0.0 + 0 0.0 + 0 0 0 1 231261 545506085 + 23 1 1261 545506086 + 0.0 + 0 4.00000- 7 1.50000+ 5 3.40000- 7 2.00000+ 5 3.60000- 71261 545506087 + 2.50000+ 5 2.80000- 7 3.00000+ 5 3.80000- 7 3.50000+ 5 2.06000- 61261 545506088 + 4.00000+ 5 6.40000- 7 4.50000+ 5 2.46000- 6 5.00000+ 5 1.44000- 61261 545506089 + 5.50000+ 5 1.62000- 6 6.00000+ 5 3.00000- 7 6.50000+ 5 8.80000- 71261 545506090 + 7.00000+ 5 1.30000- 6 7.50000+ 5 1.16000- 6 8.00000+ 5 1.42000- 61261 545506091 + 8.50000+ 5 3.20000- 7 9.00000+ 5 7.80000- 7 9.50000+ 5 4.80000- 71261 545506092 + 1.00000+ 6 9.20000- 7 1.05000+ 6 6.60000- 7 1.10000+ 6 6.00000- 71261 545506093 + 1.15000+ 6 4.00000- 7 1.20000+ 6 0.0 + 0 1261 545506094 +-3.00000+ 7 0.0 + 0 0 5 1 21261 545506095 + 2 2 1261 545506096 + 1.00000- 5 1.88000- 1 2.00000+ 7 1.88000- 1 1261 545506097 + 0.0 + 0 0.0 + 0 0 0 1 21261 545506098 + 2 2 1261 545506099 + 1.00000- 5 1.00000+ 0 2.00000+ 7 1.00000+ 0 1261 545506100 + 0.0 + 0 0.0 + 0 0 0 1 281261 545506101 + 28 1 1261 545506102 + 0.0 + 0 0.0 + 0 7.97300+ 4 7.92325- 6 8.85900+ 4 8.65854- 61261 545506103 + 9.84300+ 4 7.02925- 6 1.09370+ 5 5.72016- 6 1.21520+ 5 4.82222- 61261 545506104 + 1.35020+ 5 3.22667- 6 1.50020+ 5 2.63947- 6 1.66690+ 5 2.07771- 61261 545506105 + 1.85220+ 5 1.40914- 6 2.05800+ 5 1.18548- 6 2.28660+ 5 1.42070- 61261 545506106 + 2.54070+ 5 1.18314- 6 2.82300+ 5 1.06471- 6 3.13670+ 5 1.11047- 61261 545506107 + 3.48520+ 5 1.27583- 6 3.87240+ 5 1.04113- 6 4.30270+ 5 8.30370- 71261 545506108 + 4.78080+ 5 7.24774- 7 5.31200+ 5 5.21857- 7 5.90220+ 5 3.97987- 71261 545506109 + 6.55800+ 5 2.71754- 7 7.28660+ 5 1.91429- 7 8.09630+ 5 1.26723- 71261 545506110 + 8.99590+ 5 1.16058- 7 9.99540+ 5 8.46389- 8 1.11060+ 6 6.07779- 81261 545506111 + 1.23400+ 6 0.0 + 0 1261 545506112 +-3.00000+ 7 0.0 + 0 0 5 1 21261 545506113 + 2 2 1261 545506114 + 1.00000- 5 4.07000- 1 2.00000+ 7 4.07000- 1 1261 545506115 + 0.0 + 0 0.0 + 0 0 0 1 21261 545506116 + 2 2 1261 545506117 + 1.00000- 5 1.00000+ 0 2.00000+ 7 1.00000+ 0 1261 545506118 + 0.0 + 0 0.0 + 0 0 0 1 281261 545506119 + 28 1 1261 545506120 + 0.0 + 0 0.0 + 0 7.97300+ 4 4.85230- 6 8.85900+ 4 4.49097- 61261 545506121 + 9.84300+ 4 4.25875- 6 1.09370+ 5 3.95806- 6 1.21520+ 5 3.61409- 61261 545506122 + 1.35020+ 5 3.29934- 6 1.50020+ 5 3.95842- 6 1.66690+ 5 3.54489- 61261 545506123 + 1.85220+ 5 2.78370- 6 2.05800+ 5 2.44045- 6 2.28660+ 5 2.05783- 61261 545506124 + 2.54070+ 5 1.75310- 6 2.82300+ 5 1.64774- 6 3.13670+ 5 1.36558- 61261 545506125 + 3.48520+ 5 1.00445- 6 3.87240+ 5 8.92223- 7 4.30270+ 5 6.98459- 71261 545506126 + 4.78080+ 5 6.17347- 7 5.31200+ 5 5.40387- 7 5.90220+ 5 3.59794- 71261 545506127 + 6.55800+ 5 2.12694- 7 7.28660+ 5 2.80295- 7 8.09630+ 5 1.94492- 71261 545506128 + 8.99590+ 5 1.07033- 7 9.99540+ 5 4.23110- 8 1.11060+ 6 3.24084- 81261 545506129 + 1.23400+ 6 0.0 + 0 1261 545506130 +-3.00000+ 7 0.0 + 0 0 5 1 21261 545506131 + 2 2 1261 545506132 + 1.00000- 5 1.28000- 1 2.00000+ 7 1.28000- 1 1261 545506133 + 0.0 + 0 0.0 + 0 0 0 1 21261 545506134 + 2 2 1261 545506135 + 1.00000- 5 1.00000+ 0 2.00000+ 7 1.00000+ 0 1261 545506136 + 0.0 + 0 0.0 + 0 0 0 1 281261 545506137 + 28 1 1261 545506138 + 0.0 + 0 0.0 + 0 7.97300+ 4 4.85230- 6 8.85900+ 4 4.49097- 61261 545506139 + 9.84300+ 4 4.25875- 6 1.09370+ 5 3.95806- 6 1.21520+ 5 3.61409- 61261 545506140 + 1.35020+ 5 3.29934- 6 1.50020+ 5 3.95842- 6 1.66690+ 5 3.54489- 61261 545506141 + 1.85220+ 5 2.78370- 6 2.05800+ 5 2.44045- 6 2.28660+ 5 2.05783- 61261 545506142 + 2.54070+ 5 1.75310- 6 2.82300+ 5 1.64774- 6 3.13670+ 5 1.36558- 61261 545506143 + 3.48520+ 5 1.00445- 6 3.87240+ 5 8.92223- 7 4.30270+ 5 6.98459- 71261 545506144 + 4.78080+ 5 6.17347- 7 5.31200+ 5 5.40387- 7 5.90220+ 5 3.59794- 71261 545506145 + 6.55800+ 5 2.12694- 7 7.28660+ 5 2.80295- 7 8.09630+ 5 1.94492- 71261 545506146 + 8.99590+ 5 1.07033- 7 9.99540+ 5 4.23110- 8 1.11060+ 6 3.24084- 81261 545506147 + 1.23400+ 6 0.0 + 0 1261 545506148 +-3.00000+ 7 0.0 + 0 0 5 1 21261 545506149 + 2 2 1261 545506150 + 1.00000- 5 2.60000- 2 2.00000+ 7 2.60000- 2 1261 545506151 + 0.0 + 0 0.0 + 0 0 0 1 21261 545506152 + 2 2 1261 545506153 + 1.00000- 5 1.00000+ 0 2.00000+ 7 1.00000+ 0 1261 545506154 + 0.0 + 0 0.0 + 0 0 0 1 281261 545506155 + 28 1 1261 545506156 + 0.0 + 0 0.0 + 0 7.97300+ 4 4.85230- 6 8.85900+ 4 4.49097- 61261 545506157 + 9.84300+ 4 4.25875- 6 1.09370+ 5 3.95806- 6 1.21520+ 5 3.61409- 61261 545506158 + 1.35020+ 5 3.29934- 6 1.50020+ 5 3.95842- 6 1.66690+ 5 3.54489- 61261 545506159 + 1.85220+ 5 2.78370- 6 2.05800+ 5 2.44045- 6 2.28660+ 5 2.05783- 61261 545506160 + 2.54070+ 5 1.75310- 6 2.82300+ 5 1.64774- 6 3.13670+ 5 1.36558- 61261 545506161 + 3.48520+ 5 1.00445- 6 3.87240+ 5 8.92223- 7 4.30270+ 5 6.98459- 71261 545506162 + 4.78080+ 5 6.17347- 7 5.31200+ 5 5.40387- 7 5.90220+ 5 3.59794- 71261 545506163 + 6.55800+ 5 2.12694- 7 7.28660+ 5 2.80295- 7 8.09630+ 5 1.94492- 71261 545506164 + 8.99590+ 5 1.07033- 7 9.99540+ 5 4.23110- 8 1.11060+ 6 3.24084- 81261 545506165 + 1.23400+ 6 0.0 + 0 1261 545506166 + 1261 500006167 + 1261 000006168 + 0 000006706 + -1 000000001 diff --git a/teseo/jcl b/teseo/jcl new file mode 100644 index 0000000..7342c6b --- /dev/null +++ b/teseo/jcl @@ -0,0 +1,213 @@ +//#BAZZO1A JOB (1J7R,IT05,,25),' TESEO GALLI ',CLASS=D,REGION=4096K, 00010000 +// TIME=4,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=#BAZZO1 00020000 +//****** TESEO PROGRAM 00030000 +//****** JCL USED TO RUN THE SAMPLE PROBLEM AT ENEA CENTER-BOLOGNA, 00040000 +//****** ON IBM - 3090 , OPERATING UNDER MVS/SP1 00050001 +//****** 00060001 +//JOBCAT DD DSN=UTIBCATA,DISP=SHR 00070000 +// DD DSN=UTIBCATB,DISP=SHR 00080000 +//*************************************************************** 00090000 +//*********** THE MAIN PROGRAM CAN BE PLACED HERE TO CHANGE 00100001 +//********** ARRAY DIMENSIONS MORE EASILY 00110000 +//********** IN THIS CASE THE FOLLOWING STEPS MUST BE INSERTED 00120000 +//*FORT EXEC PGM=FTQLARGE, 00130000 +//* PARM='NOXREF,NOMAP,SOURCE,NOLIST,OPT(3)' 00140000 +//*SYSPRINT DD SYSOUT=A 00150000 +//*SYSTERM DD SYSOUT=A 00160000 +//*SYSUT1 DD UNIT=SYSVIO,SPACE=(CYL,(1,1)), 00170000 +//* DCB=(BLKSIZE=3465,BUFNO=1) 00180000 +//*SYSUT2 DD UNIT=SYSVIO,SPACE=(TRK,(2,2)), 00190000 +//* DCB=(BLKSIZE=2048,BUFNO=1) 00200000 +//*SYSLIN DD DSN=&&OBJ, 00210000 +//* UNIT=SYSVIO,SPACE=(CYL,(3,1)), 00220000 +//* DCB=(LRECL=80,RECFM=FB,BLKSIZE=3120,BUFNO=1), 00230000 +//* DISP=(MOD,PASS) 00240000 +//*SYSIN DD * 00250000 +//*C 00260000 +//*C 00270000 +//*C =========== MAIN OF TESEO CODE ============== 00280001 +//*C 00290000 +//*C 00300000 +//*C FIX DIMENSIONS FOR MAIN ARRAY: 00310000 +//*C 00320001 +//* COMMON MAXA,AD(400000) 00330000 +//*C 00340001 +//*C THE FOLLOWING COMMONS DEFINE THE SLAVE3 ARRAYS 00350001 +//*C 00360001 +//* COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200), 00370000 +//* 1 JNT(200),N1X,N2X,NS,LX,LY,LB 00380000 +//* COMMON/DENS/JMT,JAT,JTT,JLT,LA,JNS,MNS,JX,MX 00390000 +//*C 00400000 +//*C FIX DIMENSIONS FOR MAIN ARRAY: (NUMBER OF WORDS IN AD ) 00410001 +//* MAD=400000 00420000 +//*C 00430000 +//*C SIZE FLAGS FOR SLAVE3 ARRAYS 00440001 +//* N1X=200 00450000 +//* N2X=70000 00460000 +//* MX=100 00470000 +//* JX=10000 00480000 +//*C 00490000 +//*C POINTERS FOR SLAVE3 ARRAYS 00500001 +//* LX=1 00510000 +//* LY=LX+N2X 00520000 +//* LB=LY+N2X 00530000 +//*C 00540000 +//* JMT=LB+N2X 00550000 +//* JAT=JMT+MX 00560000 +//* JTT=JAT+MX 00570000 +//* JLT=JTT+MX 00580000 +//* LA=JLT+MX 00590000 +//* MAXA=LA+JX 00600000 +//*C 00610001 +//*C TESTS IF THE SPACE IN BLANK COMMON IS SUFFICIENT 00620001 +//*C FOR THE SLAVE3 ARRAYS 00630001 +//* IF(MAXA.GT.MAD) STOP 1 00640000 +//* LAA=MAXA+1 00650000 +//* MA=MAD-MAXA 00660000 +//*C MA IS THE REMAINING SPACE IN THE BLANK COMMON 00670001 +//*C 00680000 +//* CALL GELIB(MA,AD(LAA)) 00690000 +//* STOP 00700000 +//* END 00710000 +//* 00720000 +//*********************** LINK STEP ***************************** 00730000 +//*LINK EXEC PGM=IEWL, 00740000 +//* PARM=(NOLIST,NOXREF,LET),COND=(4,LT,FORT) 00750000 +//*SYSPRINT DD SYSOUT=A 00760000 +//*SYSLIB DD DSN=SYS3.LIFORTQ,DISP=SHR 00770000 +//* DD DSN=SYS1.FORTLIB,DISP=SHR 00780000 +//* DD DSN=SYS3.USERLIB,DISP=SHR 00790000 +//* DD DSN=SYS3.CNENLIB,DISP=SHR 00800000 +//* DD DSN=SYS3.SSPLIB,DISP=SHR 00810000 +//* DD DSN=#BAZZO1.TESEO.LOAD,DISP=SHR 00820000 +//*SYSUT1 DD UNIT=SYSVIO,SPACE=(CYL,(2,1)), 00830000 +//* DCB=(BLKSIZE=1024,BUFNO=1) 00840000 +//*SYSLMOD DD DSN=&&LOAD(TESEO), 00850000 +//* UNIT=SYSVIO,SPACE=(CYL,(2,1,1)), 00860000 +//* DCB=(RECFM=U,BLKSIZE=13030,NCP=1), 00870000 +//* DISP=(MOD,PASS) 00880000 +//* LOAD MODULE OF TESEO CODE IS SUPPOSED TO BE IN THE FOLLOWING FILE 00890000 +//*LOADTES DD DSN=#BAZZO1.TESEO.LOAD,DISP=SHR 00900000 +//*SYSLIN DD DSN=&&OBJ,DISP=(OLD,DELETE) 00910000 +//* DD * 00920000 +//* INCLUDE TESEO.LOAD(QOPT2) 00930000 +//** 00940000 +//*************************************************************** 00950000 +//*=====================================================================00960000 +//* JCL TO COMPILE AND RUN THE TESEO PROGRAM 00970000 +//*=====================================================================00980000 +//* ======================== FORTRAN COMPILER 00990000 +//FORT EXEC PGM=FTQOVLY, 01000000 +// PARM='MAP,OPT(2)' 01010000 +//SYSPRINT DD DUMMY 01020000 +//SYSTERM DD SYSOUT=* 01030000 +//SYSUT1 DD UNIT=SYSVIO,SPACE=(CYL,(1,1)), 01040000 +// DCB=(BLKSIZE=3465,BUFNO=1) 01050000 +//SYSUT2 DD UNIT=SYSVIO,SPACE=(TRK,(2,2)), 01060000 +// DCB=(BLKSIZE=2048,BUFNO=1) 01070000 +//SYSLIN DD DSN=&&LOADSET, 01080000 +// UNIT=SYSVIO,SPACE=(CYL,(3,1)), 01090000 +// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120,BUFNO=1), 01100000 +// DISP=(MOD,PASS) 01110000 +//* TESEO FORTRAN SOURCE IN CATALOGED DATA SET: 01120000 +//* #BAZZO1.TESEO.FORT(SOURCE) 01130000 +//SYSIN DD DSN=#BAZZO1.TESEO.FORT(SOURCE),DISP=SHR 01140000 +//* ============================ LINK ======================= 01150000 +//LKED EXEC PGM=IEWL, 01160000 +// PARM=(LIST,MAP,LET),COND=(4,LT,FORT) 01170000 +//SYSPRINT DD SYSOUT=* 01180000 +//* FORTRAN LIBRARIES 01190000 +//SYSLIB DD DSN=SYS3.LIFORTQ,DISP=SHR 01200000 +// DD DSN=SYS1.FORTLIB,DISP=SHR 01210000 +//SYSUT1 DD UNIT=SYSVIO,SPACE=(CYL,(2,1)), 01220000 +// DCB=(BLKSIZE=1024,BUFNO=1) 01230000 +//SYSLMOD DD DSN=&&GO(TEMPNAME), 01240000 +// UNIT=SYSVIO,SPACE=(CYL,(2,1,1)), 01250000 +// DCB=(RECFM=U,BLKSIZE=6144,NCP=1), 01260000 +// DISP=(MOD,PASS) 01270000 +//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) 01280000 +//* =========================== RUN ========================= 01290000 +//GO EXEC PGM=*.LKED.SYSLMOD, 01300000 +// COND=((4,LT,FORT),(4,LT,LKED)) 01310000 +//* ======================== INDEX FILES 01320000 +//FT01F001 DD UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE), 01330000 +// DCB=(RECFM=VBS,BLKSIZE=6160) 01340000 +//FT02F001 DD UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE), 01350000 +// DCB=(RECFM=VBS,BLKSIZE=6160) 01360000 +//FT03F001 DD UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE), 01370000 +// DCB=(RECFM=VBS,BLKSIZE=6160) 01380000 +//* ========= INPUT OUTPUT ======= 01390000 +//FT05F001 DD * 01400000 +TITLE 01410000 +1 TESEO SAMPLE PROBLEM 01420000 +TITLE 01430000 + ENDFB-IV DATA FOR C-12,B-10,U-235 01440000 +TABLIN 1 01450000 +C12 13 3 21 1274 01460000 +U235 13 3 22 1261 01470000 +B10 13 3 23 1273 01480000 +FINE 01490000 +GO 01500000 +STOP 01510000 +//FT06F001 DD SYSOUT=A 01520000 +//FT11F001 DD SYSOUT=A 01530000 +//FT12F001 DD DUMMY 01540000 +//* ============ ENDFB LIBRARY TO BE READ ====== 01550000 +//FT13F001 DD DSN=#BAZZO1.TESEO.FORT(INPUT),DISP=SHR 01560000 +//* ========= FIRST GROUP OF INTERMEDIATE FILES ====== 01570000 +//FT21F001 DD UNIT=SYSDA,SPACE=(TRK,(10,10)), 01580000 +// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) 01590000 +//FT22F001 DD UNIT=SYSDA,SPACE=(TRK,(10,10)), 01600000 +// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) 01610000 +//FT23F001 DD UNIT=SYSDA,SPACE=(TRK,(10,10)), 01620000 +// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) 01630000 +//* ========= SECOND GROUP OF INTERMEDIATE FILES ====== 01640000 +//FT31F001 DD UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE), 01650000 +// DCB=(RECFM=VBS,BLKSIZE=6160) 01660000 +//FT33F001 DD UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE), 01670000 +// DCB=(RECFM=VBS,BLKSIZE=6160) 01680000 +//FT34F001 DD UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE), 01690000 +// DCB=(RECFM=VBS,BLKSIZE=6160) 01700000 +//FT35F001 DD UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE), 01710000 +// DCB=(RECFM=VBS,BLKSIZE=6160) 01720000 +//FT36F001 DD UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE), 01730000 +// DCB=(RECFM=VBS,BLKSIZE=6160) 01740000 +//FT37F001 DD UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE), 01750000 +// DCB=(RECFM=VBS,BLKSIZE=6160) 01760000 +//FT38F001 DD UNIT=SYSDA,SPACE=(TRK,(10,10)),DISP=(NEW,DELETE), 01770000 +// DCB=(RECFM=VBS,BLKSIZE=6160) 01780000 +//* ============ PRODUCED MC2-II LIBRARY ========= 01790000 +//FT51F001 DD DSN=#BAZZO1.MCC2F1,UNIT=SYSDA,DISP=(NEW,KEEP), 01800000 +// SPACE=(TRK,(1,1)),DCB=(RECFM=VBS,BLKSIZE=6160) 01810000 +//FT53F001 DD DSN=#BAZZO1.MCC2F3,UNIT=SYSDA,DISP=(NEW,KEEP), 01820000 +// SPACE=(TRK,(5,5)),DCB=(RECFM=VBS,BLKSIZE=6160) 01830000 +//FT54F001 DD DSN=#BAZZO1.MCC2F4,UNIT=SYSDA,DISP=(NEW,KEEP), 01840000 +// SPACE=(TRK,(5,5)),DCB=(RECFM=VBS,BLKSIZE=6160) 01850000 +//FT55F001 DD DSN=#BAZZO1.MCC2F5,UNIT=SYSDA,DISP=(NEW,KEEP), 01860000 +// SPACE=(TRK,(5,5)),DCB=(RECFM=VBS,BLKSIZE=6160) 01870000 +//FT56F001 DD DSN=#BAZZO1.MCC2F6,UNIT=SYSDA,DISP=(NEW,KEEP), 01880000 +// SPACE=(TRK,(5,5)),DCB=(RECFM=VBS,BLKSIZE=6160) 01890000 +//FT57F001 DD DSN=#BAZZO1.MCC2F7,UNIT=SYSDA,DISP=(NEW,KEEP), 01900000 +// SPACE=(TRK,(5,5)),DCB=(RECFM=VBS,BLKSIZE=6160) 01910000 +//FT58F001 DD DSN=#BAZZO1.MCC2F8,UNIT=SYSDA,DISP=(NEW,KEEP), 01920000 +// SPACE=(TRK,(5,5)),DCB=(RECFM=VBS,BLKSIZE=6160) 01930000 +//* =========== TEMPORARY FILES ================ 01940000 +//FT90F001 DD UNIT=SYSDA,SPACE=(CYL,(2,1)),DISP=(NEW,DELETE), 01950000 +// DCB=(RECFM=VBS,BLKSIZE=3156,LRECL=3152) 01960000 +//FT91F001 DD UNIT=SYSDA,SPACE=(CYL,(2,1)),DISP=(NEW,DELETE), 01970000 +// DCB=(RECFM=VBS,BLKSIZE=3156,LRECL=3152) 01980000 +//FT92F001 DD UNIT=SYSDA,SPACE=(CYL,(2,1)),DISP=(NEW,DELETE), 01990000 +// DCB=(RECFM=VBS,BLKSIZE=3156,LRECL=3152) 02000000 +//FT93F001 DD UNIT=SYSDA,SPACE=(CYL,(2,1)),DISP=(NEW,DELETE), 02010000 +// DCB=(RECFM=VBS,BLKSIZE=3156,LRECL=3152) 02020000 +//FT94F001 DD UNIT=SYSDA,SPACE=(CYL,(2,1)),DISP=(NEW,DELETE), 02030000 +// DCB=(RECFM=VBS,BLKSIZE=3156,LRECL=3152) 02040000 +//FT95F001 DD UNIT=SYSDA,SPACE=(CYL,(2,1)),DISP=(NEW,DELETE), 02050000 +// DCB=(RECFM=VBS,BLKSIZE=3156,LRECL=3152) 02060000 +//FT96F001 DD UNIT=SYSDA,SPACE=(CYL,(2,1)),DISP=(NEW,DELETE), 02070000 +// DCB=(RECFM=VBS,BLKSIZE=3156,LRECL=3152) 02080000 +//FT97F001 DD UNIT=SYSDA,SPACE=(CYL,(2,1)),DISP=(NEW,DELETE), 02090000 +// DCB=(RECFM=VBS,BLKSIZE=3156,LRECL=3152) 02100000 +//FT98F001 DD UNIT=SYSDA,SPACE=(CYL,(2,1)),DISP=(NEW,DELETE), 02110000 +// DCB=(RECFM=VBS,BLKSIZE=3156,LRECL=3152) 02120000 +// 02130000 diff --git a/teseo/source b/teseo/source new file mode 100644 index 0000000..9c2ba3d --- /dev/null +++ b/teseo/source @@ -0,0 +1,19663 @@ +C ============================================================ 00001000 +C ENEA - TIB - CLEMENTEL CENTER - VIA MAZZINI 2,BOLOGNA -ITALY 00002000 +C ============================================================ 00003000 +C == == 00004000 +C == T E S E O == 00005000 +C == == 00006000 +C ====================================================== 00007000 +C == A CODE WHICH PROCESS ENDFB OR JEF DATA TO OBTAIN == 00008000 +C == EIGTH BINARY LIBRARY FILES FOR THE MC2-2 CODE == 00009000 +C ====================================================== 00010000 +C == == 00011000 +C == AUTHOR : MARCELLO GALLI == 00012000 +C == DATE : 13- 8 - 1987 == 00013005 +C == == 00014000 +C == == 00015000 +C ====================================================== 00016000 +C 00017000 +C 00018000 +C MAIN PROGRAM 00019000 +C 00020000 +C THE MAIN PROGRAM DEFINES THE DIMENSION OF THE BLANK COMMON 00021000 +C AND THE AREA IN THE BLANK COMMON WHICH WILL BE USED BY THE 00022000 +C SLAVE3 ROUTINES TO STORE ENDFB OR JEF RECORDS 00023000 +C 00024000 +C TO CHANGE THE AMOUNT OF SPACE AVAILABLE TO TESEO YOU 00025000 +C MUST CHANGE THE FOLLOWING STATEMENTS: 00026000 +C COMMON MAXA,AD( ... ) 00027000 +C MAD= ... 00028000 +C TO CHANGE THE AMOUNT OF SPACE AVAILABLE TO SLAVE3 ROUTINES 00029000 +C YOU MUST CHANGE THE STATEMENTS: 00030000 +C N2X= .... 00031000 +C MX = .... 00032000 +C JX = .... 00033000 +C N1X= .... IF YOU CHANGE N1X YOU MUST CHANGE ALSO 00034000 +C THE DIMENSION OF NBT AND JNT IN COMMON RECS THROUGHOUT 00035000 +C ALL THE CODE. 00036000 +C 00037000 +C ------------------------------------------------------- 00038000 +C 00039000 + COMMON MAXA,AD(800000) 00040000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200), 00041000 + 1 JNT(200),N1X,N2X,NS,LX,LY,LB 00042000 + COMMON/DENS/JMT,JAT,JTT,JLT,LA,JNS,MNS,JX,MX 00043000 +C 00044000 +C RECS AND DENS COMMONS ARE USED BY THE SLAVE3 ROUTINES 00045000 +C BY HONEK ( BNL 50300 - ENDF 110 - (1971) ) THE ORIGINAL 00046000 +C SLAVE3 ROUTINES HAVE BEEN MODIFIED BY G.C.PANINI TO 00047000 +C ALLOW THE DINAMICAL ALLOCATION OF RECS AND DENS COMMONS. 00048000 +C THESE COMMONS CONTAIN NOW ONLY THE POINTERS TO THE BLANK 00049000 +C COMMON IN WHICH ENDFB RECORDS ARE STORED. 00050000 +C 00051000 +C 00052000 +C MAD = NUMBER OF WORDS IN BLANK COMMON AREA 00053000 +C MAXA= NUMBER OF WORDS USED BY SLAVE3 ROUTINES (COMPUTED 00054000 +C BY THIS MAIN ROTINE) 00055000 +C MA = NUMBER OF WORDS IN BLANK COMMON AVAILABLE TO TESEO 00056000 +C (COMPUTED BY THIS MAIN ROUTINE) 00057000 +C 00058000 + MAD=800000 00059000 +C 00060000 +C 00061000 +C N1X= MAXIMUM NUMBER OF INTERPOLATION RANGES IN ENDFB 00062000 +C RECORDS . THIS NUMBER MUST MATCH THE IMENSIONS OF 00063000 +C JNT AND NBT IN RECS COMMON THROUGHT THE WHOLE CODE 00064000 +C N2X= MAXIMUM NUMBER OF TABULATED POINT IN ENDFB RECORDS 00065000 +C MX = MAXIMUM NUMBER OF ENDFB RECORDS WHICH CAN BE STORED 00066000 +C IN BLANK COMMON AT THE SAME TIME 00067000 +C JX = SPACE IN BLANK COMMON TO STORE ENDFB RECORDS 00068000 +C 00069000 +C 00070000 + N1X=200 00071000 + N2X=70000 00072000 + MX=400 00073000 + JX=200000 00074000 +C 00075000 +C DEFINE POINTERS IN BLANK COMMON FOR RECS COMMON SIMULATION 00076000 + LX=1 00077000 + LY=LX+N2X 00078000 + LB=LY+N2X 00079000 +C DEFINE POINTERS IN BLANK COMMON FOR DENS COMMON SIMULATION 00080000 + JMT=LB+N2X 00081000 + JAT=JMT+MX 00082000 + JTT=JAT+MX 00083000 + JLT=JTT+MX 00084000 + LA=JLT+MX 00085000 +C 00086000 + MAXA=LA+JX 00087000 +C YOU MUST HAVE: 00088000 +C MAXA=3*N2X+4*MX+JX .LT. MAD ; OR TESEO WILL NOT BE ABLE 00089000 +C TO ALLOCATE SPACE IN BLANK COMMON 00090000 + IF(MAXA.GT.MAD) CALL ERR(8HMAIN ,0) 00091000 +C 00092000 +C 00093000 + LAA=MAXA+1 00094000 + MA=MAD-MAXA 00095000 + CALL GELIB(MA,AD(LAA)) 00096000 +C 00097000 + STOP 00098000 + END 00099000 + SUBROUTINE GELIB(MA,A) 00100000 +C **************************************************************** 00101000 +C THIS ROUTINE IS THE FIRST ROUTINE OF THE TESEO CODE. IT 00102000 +C READS INPUT COMMANDS AND CALL SUBROUTINES TO PERFORM CALCULATION 00103000 +C *************************************************************** 00104000 +C ============================================================ 00105000 +C ENEA - TIB - CLEMENTEL CENTER - VIA MAZZINI 2,BOLOGNA -ITALY 00106000 +C ============================================================ 00107000 +C == == 00108000 +C == T E S E O == 00109000 +C == == 00110000 +C ====================================================== 00111000 +C == A CODE WHICH PROCESS ENDFB OR JEF DATA TO OBTAIN == 00112000 +C == EIGTH BINARY LIBRARY FILES FOR THE MC2-2 CODE == 00113000 +C ====================================================== 00114000 +C == == 00115000 +C == AUTHOR : MARCELLO GALLI == 00116000 +C == DATE : 13 - 8 - 1987 == 00117005 +C == == 00118000 +C == == 00119000 +C ====================================================== 00120000 +C 00121000 + DIMENSION A(MA) 00122000 + DIMENSION TITL(20) 00123000 +C 00124000 +C :::::::::::::::::::::::::::::::::::::::::: 00125000 +C THIS COMMON CONTAINS THE INPUT COMMAND 00126000 + REAL*8C 00127000 + COMMON /COMM/C,IC(6),AC(4) 00128000 +C ::::::::::::::::::::::::::::::::::::::::::::::::::: 00129000 +C THIS COMMON CONTAIN THE LOGICAL UNIT SPECIFICATIONS 00130000 + COMMON/FILES/NT(4,99) 00131000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 00132000 +C 00133000 +C FILES: NT(1,.)= LOGICAL NUMBER 00134000 +C NT(2,.)= FIRST RECORD (NO MORE USED) 00135000 +C NT(3,.)= FIRST RECORD AVAILABLE 00136000 +C NT(4,.)= CURRENT RECORD 00137000 +C 00138000 +C :::::::::::::::::::::::::::::::::::::::::::: 00139000 +C THIS COMMON CONTAINS THE CALCULATION OPTIONS 00140000 + COMMON/OPZIO/ OPZ(4,8,10) 00141000 +C 00142000 +C OPZ= OPTION( PART 1,2 .. ; FILE MCC2F1,2 .. ; OPTION) 00143000 +C 00144000 +C 00145000 +C ::::::::::::::::::::::::::::::::::::::::::::::::: 00146000 +C THIS COMMON CONTAINS DIMENSIONS OF ARRAYS 00147000 + COMMON/DIM/M(5) 00148000 +C DIMENSIONI EFFETTIVE DI VARIE MATRICI : 00149000 +C M(1)=DIMENSION OF THE INPUT TABLE OF PART ONE 00150000 +C M(2)=DIMENSION OF THE INDEX OF FIRST INTERMEDIATE FILES 00151000 +C M(3)=DIMENSION OF THE INPUT TABLE OF PART TWO 00152000 +C M(4)=DIMENSION OF THE INDEX OF SECOND INTERMEDIATE FILE 00153000 +C M(5)=DIMENSION OF THE INPUT TABLE OF PART THREE 00154000 +C 00155000 +C :::::::::::::::::::::::::::::::::::::::::::::::: 00156000 +C THIS COMMON CONTAINS DIMENSIONS OF ARRAYS 00157000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 00158000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 00159000 +C 00160000 +C DIMENSION OF COMMON ARRAYS: 00161000 +C MMA= DIMENSIONI DI A (FISICAMENTE NEL BLANK COMMON,DOPO A(MAXA)) 00162000 +C INDX(MINDX1,MINDX2) 00163000 +C MIX(MMIX1,MMIX2) 00164000 +C OPZ(MOPZ1,MOPZ2,MOPZ3) 00165000 +C M(MM) 00166000 +C NT(MNT1,MNT2) 00167000 +C INDX1(MIND11,MIND12) 00168000 +C /DENS/ JMT,JAT,JTT,JLT (MX=MMX) 00169000 +C A(JX=MJX) 00170000 +C /RECS/NBT,JNT(N1X=MNX1) 00171000 +C X,Y,B (N2X=MN2X) 00172000 +C 00173000 +C 00174000 +C 00175000 +C :::::::::::::::::::::::::::::::::::::::::::::::::: 00176000 +C THIS COMMON CONTAIN THE WORKING SPACE FOR TESEO AND SLAVE300177000 +C MAXA IS THE DIMENSION OF SLAVE3 WORKING SPACE 00178000 +C 00179000 + COMMON MAXA,ADD(1) 00180000 +C 00181000 +C ::::::::::::::::::::::::::::::::::::::::::::::::: 00182000 +C 00183000 +C COMMON DENS OF SLAVE3:JMT=IDENT,JAT=LOC INIZ,JTT=TIPO REC,JNS=PR00184000 +C VUOTO IN A,MNS=PRIMO VUOTO IN JAT,JTT ECC, MNS=DIM DI A ,MX=DIM 00185000 +C JMT ECC 00186000 +C 00187000 + COMMON/DENS/JMT,JAT,JTT,JLT,LV,JNS,MNS, 00188000 + 1JX,MX 00189000 +C 00190000 +C QUESTO COMMON CONTIENE IL RECORD ENDFB LETTO DA RREC E SCRITTO 00191000 +C DA WREC ( SUBROUTINES DI SLAVE3 DI BNL ( HONEK) 00192000 +C LX,LY,LB SONO PUNTATORI NEL BLANK COMMON DEGLI SPAZI X,Y,B 00193000 +C DEL COMMON DENS DI SLAVE3 ( MODIFICHE DI PANINI PER ALLOCAZIONI 00194000 +C DINAMICHE ) 00195000 +C 00196000 +C 00197000 +C ::::::::::::::::::::::::::::::::::::::::::::::::::: 00198000 +C COMMON RESC OF SLAVE3 : MAT=MATERIALE,MF=FILE ENDFB 00199000 +C MT=REAZIONE 00200000 +C C1,C2,L1,L2,N1,N1=PARAMETRI 00201000 +C NBT=INIZIO APPLICAZ CODICE INTERPOLAZIONE 00202000 +C JNT=CODICE DI INTERPOLAZIONE 00203000 +C N1X=DIMENSIONI DI NBT,JNT 00204000 +C N2X=DIM DI X,Y,B 00205000 +C NS=NUMERO DI SEQUENZA DELLA SCHEDA 00206000 +C X,Y : COPPIE DI Y(X) TABULATE 00207000 +C B: PARAMETRI DEL RECORD LIST 00208000 +C PER PERMETTERE ALLOCAZIONI DINAMICHE NEL COMMON 00209000 +C SONO STATI MESSI LX ED LY ED LB: PUNTATORI DI 00210000 +C X,Y,B NEL BLANK COMMON 00211000 +C 00212000 + COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 00213000 + 1N1X,N2X,NS,LX,LY,LB 00214000 +C 00215000 +C ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::; 00216000 +C INDEX OF THE FIRST INTERMEDIATE FILES OR READ INTERM. FILES 00217000 + COMMON /INDX/INDX(40,200) 00218000 +C ::::::::::::::::::::::::::::::::::::::::::::::::::::: 00219000 +C THIS COMMON CONTAINS THE INPUT TABLE 00220000 + COMMON /MIX/MIX(15,300) 00221003 +C 00222000 +C :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 00223000 +C INDEX OF THE PRODUCED INTERMEDIATE FILES (OR SECOND INT. FILES 00224000 + COMMON /INDX1/INDX1(40,200) 00225000 +C 00226000 +C :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 00227000 +C THIS COMMON CONTAINS THE FIRST RECORD OF MCC2F1 PRODUCED FILE 00228000 + COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX, 00229000 + 1ETOP,DELTAU,MANY1,MMAT,NMAX 00230000 +C 00231000 +C ========================================================== 00232000 +C ========================================================== 00233000 +C ACCEPTED COMMANDS: 00234000 +C 00235000 + REAL *8 COM(24) 00236000 + DATA COM/8HSTOP ,8HFILE ,8HFILESHOW,8HTABLIN ,8HP1 00237000 + 1,8HOPTION ,8HSKIPE ,8HP2 ,8HP3 ,8HP4 00238000 + 2,8HLOADIND ,8HSAVIND ,8HINPUTSHO,8HMIXIND ,8HREW , 00239000 + 3 8HFINE ,8HEND ,8HTITLE ,8HPART2 ,8HPART3 , 00240000 + 4 8HPART4 ,8HMERGE ,8HMCC2F2 ,8HGO / 00241000 +C REMEMBER TO CHANGE MCOM IF YOU ADD COMMANDS !! 00242000 +C --------------------------------------------- 00243000 +C 00244000 +C FIX DIMENSION PARAMETERS: 00245000 +C 00246000 + MNT1=4 00247000 + MNT2=99 00248000 +C N1X=100 FIXED BY MAIN 00249000 +C N2X=2000 FIXED BY MAIN 00250000 + MN1X=N1X 00251000 + MN2X=N2X 00252000 +C JX=5000 LO FISSA IL MAIN 00253000 +C MX=100 LO FISSA IL MAIN 00254000 + MJX=JX 00255000 + MMX=MX 00256000 + MMA=MA 00257000 + MINDX1=40 00258000 + MINDX2=200 00259000 + MMIX1=15 00260000 + MMIX2=300 00261003 + MM=5 00262000 + MIND11=40 00263000 + MIND12=200 00264000 + MOPZ1=4 00265000 + MOPZ2=8 00266000 + MOPZ3=10 00267000 + MCOM=24 00268000 +C MCOM=NUMBER OF COMMANDS, (REALMENTE MAI USATO DAL PROGRAMMA) 00269000 +C 00270000 +C 00271000 +C SET ARRAYS EQUAL TO ZERO 00272000 + CALL RIEMP(0,MA,A) 00273000 + CALL RIEMP(0,MM,M) 00274000 + CALL RIEMP(0,MINDX1*MINDX2,INDX) 00275000 + CALL RIEMP(0,MMIX1*MMIX2,MIX) 00276000 + CALL RIEMP(0,MIND11*MIND12,INDX1) 00277000 +C 00278000 +C INITIALIZE OPTION COMMON AND FILE SPECIFICATION COMMON 00279000 + CALL TABNIZ(MNT1,MNT2,NT,MOPZ1,MOPZ2,MOPZ3,OPZ) 00280000 +C 00281000 +C CONTROL OF DIMENSION OF BLANK COMMON 00282000 + IF(MA.LT.1) CALL ERR(8HGELIB ,10) 00283000 +C 00284000 +C ............................ LOOP ON COMMANDS 00285000 + 10 CONTINUE 00286000 +C 00287000 + K1=1 00288000 + K2=1 00289000 + K3=6 00290000 + K4=4 00291000 +C 00292000 + CALL COMMR(K1,NI,NO,NP,K2,C,K3,IC,K4,AC) 00293000 +C 00294000 +C LOOK FOR COMMAND 00295000 + IF(C.EQ.COM(1).OR.C.EQ.COM(16).OR.C.EQ.COM(17)) STOP 00296000 +C ---------------------------------------------------- 00297000 +C ==GO == COMPLETE RUN : PART 1 + PART 2 + PART 3 00298000 + IF(C.NE.COM(24)) GO TO 501 00299000 + IC(1)=0 00300000 + IC(2)=0 00301000 + IC(3)=0 00302000 + IC(4)=0 00303000 + IC(5)=0 00304000 + IC(6)=0 00305000 + GO TO 124 00306000 + 501 IF(C.NE.COM(2)) GO TO 502 00307000 +C 00308000 +C ==FILE = FILE DEFINITION : NT( )=IC( ) 00309000 +C ----------------------------------------------------- 00310000 +C 00311000 + DO 20 I=1,MNT1 00312000 + NT(I,IC(1))=IC(I+1) 00313000 + 20 CONTINUE 00314000 + GO TO 10 00315000 +C 00316000 + 502 CONTINUE 00317000 + IF(C.NE.COM(3)) GO TO 503 00318000 +C 00319000 +C ==FILESHOW== PRINT FILES : NT( ) 00320000 +C ------------------------------------------------------------ 00321000 +C 00322000 + DO 25 I=1,MNT2 00323000 + WRITE(NO,4000)I,(NT(J,I),J=1,MNT1) 00324000 + 4000 FORMAT(' NUMBER:',I4,' LOGICAL NUMBER:',I4,' BEGINS AT RECORD:', 00325000 + 1I4,' FIRST AVAILABLE RECORD:',I4,' POSITION:',I4) 00326000 + 25 CONTINUE 00327000 + GOTO 10 00328000 + 503 CONTINUE 00329000 + IF(C.NE.COM(4)) GO TO 504 00330000 +C 00331000 +C ==TABLIN = INPUT TABLE PART: IC(1) 00332000 +C ----------------------------------------------- 00333000 + IF(IC(1).LE.0) IC(1)=1 00334000 +C 00335000 + CALL RDMIX(IC(1)) 00336000 + GO TO 10 00337000 + 504 CONTINUE 00338000 + IF(C.NE.COM(5)) GO TO 505 00339000 +C 00340000 +C ==P1 = P A R T O N E 00341000 +C ------------------------------------------------------ 00342000 +C READ AND SELECT ENDFB FILES, PRODUCES FIRST INTERMEDIATE FILES 00343000 +C 00344000 + 124 CALL P1(MA,A) 00345000 + IF(C.EQ.COM(24)) GO TO 224 00346000 + GO TO 10 00347000 + 505 CONTINUE 00348000 + IF(C.NE.COM(6)) GO TO 506 00349000 + OPZ(IC(1),IC(2),IC(3))=AC(1) 00350000 +C 00351000 +C ==OPTION = FIX CALCULATION OPTION 00352000 +C ----------------------------------------------------- 00353000 +C 00354000 + WRITE(NO,4010) IC(1),IC(2),IC(3),AC(1) 00355000 + 4010 FORMAT(' OPTION OPZ(',I4,',',I4,',',I4,') SET =',E12.5) 00356000 + WRITE(NP,4010) IC(1),IC(2),IC(3),AC(1) 00357000 + GO TO 10 00358000 + 506 CONTINUE 00359000 + IF(C.NE.COM(7)) GOTO 507 00360000 +C 00361000 +C ==SKIPE == SKIP MATERIALS OR FILES ON ENDFB TAPE 00362000 +C -------------------------------------------------------- 00363000 +C 00364000 + IF(IC(1).LE.0.OR.IC(1).GT.99) GO TO 507 00365000 + CALL SKIPE(NT(1,IC(1)),IC(2),IC(3),NDM) 00366000 + NT(4,IC(1))=NT(4,IC(1))+NDM 00367000 + WRITE(NO,4020) IC(1),IC(2),IC(3),NDM,(NT(J,IC(1)),J=1,MNT1) 00368000 + WRITE(NP,4020) IC(1),IC(2),IC(3),NDM,(NT(J,IC(1)),J=1,MNT1) 00369000 + 4020 FORMAT(' TAPE:',I5,' MF:',I5,' MT:',I5,' RECORDS:', 00370000 + 1 I5,' TAPE DESC:',(1X,4I6)) 00371000 + GO TO 10 00372000 + 507 CONTINUE 00373000 +C 00374000 + IF(C.NE.COM(8)) GO TO508 00375000 +C 00376000 +C ==P2 == P A R T T W O 00377000 +C COMPUTATIONS AND PRODUCTION OF SECOND INTERMEDIATE FILES 00378000 +C --------------------------------------------------------------- 00379000 +C 00380000 +C FORCES P2 TO REWIND ALL FILES 00381000 + CALL FORCRW 00382000 +C 00383000 + CALL P2(MA,A) 00384000 + GO TO10 00385000 + 508 CONTINUE 00386000 + IF(C.NE.COM(9)) GO TO 509 00387000 +C ==P3 == P A R T T H R E E 00388000 +C WRITES MC2-2 LIBRARY FILES 00389000 +C -------------------------------------------------------- 00390000 +C 00391000 +C FORCES P3 TO REWIND ALL FILES 00392000 + CALL FORCRW 00393000 +C 00394000 +C TO P3 AND P4 ALL THE BLANK COMMON IS MADE AVAILABLE,THEY DO 00395000 +C NOT USE /RECS/ E /DENS/ COMMONS OF SLAVE3 ROUTINES 00396000 + MAXXA=MAXA+MA 00397000 + CALL P3(MAXXA,ADD(1),MIND11,MIND12,INDX1) 00398000 + GOTO 10 00399000 + 509 CONTINUE 00400000 + IF(C.NE.COM(10)) GOTO510 00401000 +C 00402000 +C ==P4 == P A R T F O U R 00403000 +C DISMOUNT A FILE OF THE MC2-2 LIBRARY 00404000 +C -------------------------------------------------------- 00405000 +C 00406000 +C FORCES P4 TO REWIND ALL FILES 00407000 + CALL FORCRW 00408000 +C 00409000 +C A P3 E P4 VIENE PASSATO TUTTO IL BLANK COMMON,NON USANO 00410000 +C /RECS/ E /DENS/ DI SLAVE3 00411000 + MAXXA=MAXA+MA 00412000 + CALL P4(MAXXA,ADD(1) ) 00413000 + GOTO10 00414000 + 510 CONTINUE 00415000 + IF(C.NE.COM(11)) GO TO511 00416000 +C 00417000 +C ==LOADIND == FILL /INDX/ OR /INDX1/ COMMON WITH INDEXOF INT.FILE 00418000 +C ------------------------------------------------------------- 00419000 +C 00420000 +C M(I) :DIMENSION OF INDEX :I=1 FOR FIRST INTERMEDIATE FILES 00421000 +C :I=4 FOR SECOND INTERMEDIATE FILES00422000 +C IC(2):UNIT TO BE READ : =2 FOR FIRST INTERMEDIATE FILES 00423000 +C : =3 FOR SECOND INTERMEDIATE FILES 00424000 + IF(IC(1).LE.0) IC(1)=1 00425000 + K=1 00426000 + IF(IC(1).EQ.2) K=2 00427000 + IF(IC(2).LE.0) IC(2)=1+K 00428000 + IF(K.EQ.1) CALL LOADIN(M(2),IC(2),IC(3),IC(4),MINDX1,MINDX2,INDX)00429000 + IF(K.EQ.2)CALL LOADIN(M(4),IC(2),IC(3),IC(4),MIND11,MIND12,INDX1)00430000 + GOTO10 00431000 + 511 CONTINUE 00432000 + IF(C.NE.COM(12)) GOTO512 00433000 +C 00434000 +C ==SAVIND == SAVE /INDX/ OR /INDX1/ ON FILE 00435000 +C ----------------------------------------------------------- 00436000 +C 00437000 + K=IC(1) 00438000 + IF(K.LE.0) K=1 00439000 + KK1=IC(2) 00440000 + IF(IC(2).GT.0) GO TO 100 00441000 + KK1=2 00442000 + IF(K.EQ.2) KK1=3 00443000 + 100 CONTINUE 00444000 + IF(K.EQ.1) CALL SAVI(KK1,MINDX1,M(2),INDX) 00445000 + IF(K.EQ.2) CALL SAVI(KK1,MIND11,M(4),INDX1) 00446000 + GO TO 10 00447000 + 512 CONTINUE 00448000 + IF(C.NE.COM(13)) GO TO 513 00449000 +C 00450000 +C ==INPUTSHO== PRINT INPUT TABLE 00451000 +C ---------------------------------------------------- 00452000 +C 00453000 + IF(IC(1).LE.0) IC(1)=1 00454000 + NOOO=IC(2) 00455000 + IF(NOOO.LT.1) NOOO=6 00456000 + NOOO=NT(1,NOOO) 00457000 + CALL MIXSHO(IC(1),NOOO) 00458000 + GOTO 10 00459000 + 513 CONTINUE 00460000 + IF(C.NE.COM(14))GO TO 514 00461000 +C 00462000 +C ==MIXIND == EDITOR OF THE INDEX IN /INDX/ /INDX1/ OR A(.) 00463000 +C ----------------------------------------------------------------00464000 +C 00465000 + IF(IC(1).LE.0) IC(1)=1 00466000 + K=2 00467000 + IF(IC(1).EQ.2) K=4 00468000 + IF(K.EQ.2) CALL MIXIND(M(2),MINDX1,MINDX2,INDX) 00469000 + IF(K.EQ.4)CALL MIXIND(M(4),MIND11,MIND12,INDX1) 00470000 + MAAA=MA/MINDX1 00471000 + IF(K.EQ.20) CALL MIXIND(M(2),MINDX1,MAAA,ADD(1)) 00472000 + IF(K.EQ.40) CALL MIXIND(M(4),MIND11,MAAA,ADD(1)) 00473000 + GOTO10 00474000 + 514 CONTINUE 00475000 + IF(C.NE.COM(15) ) GO TO 515 00476000 +C 00477000 +C ==REW == REWIND FILE 00478000 +C --------------------------------------------------- 00479000 +C 00480000 + IF(IC(1).LE.0) GO TO 10 00481000 + CALL REW(IC(1)) 00482000 + GO TO 10 00483000 + 515 CONTINUE 00484000 + IF(C.NE.COM(18)) GO TO 516 00485000 +C 00486000 +C ==TITLE == READ AND PRINT A TITLE CARD 00487000 +C --------------------------------------------------- 00488000 +C 00489000 + READ(NI,6000) (TITL(J),J=1,20) 00490000 + 6000 FORMAT(20A4) 00491000 + WRITE(NO,6000) (TITL(J),J=1,20) 00492000 + GO TO 10 00493000 + 516 CONTINUE 00494000 + IF(C.NE.COM(19)) GO TO 517 00495000 +C 00496000 +C P A R T T W O (FOR A GREAT NUMBER OF MATERIALS00497000 +C ==PART2 == A STEP FOR EACH MATERIAL(REORDERING MATERIALS)00498000 +C ----------------------------------------------------------------00499000 +C 00500000 + 224 CONTINUE 00501000 +C FORCES P2 TO REWIND ALL FILES 00502000 + CALL FORCRW 00503000 +C 00504000 +C INPUT INDEX FILE 00505000 + NTAP=2 00506000 + IF(IC(2).GT.0.AND.IC(2).LE.99) NTAP=IC(2) 00507000 +C SCRATCH FILE FOR INDEX 00508000 + NTAP0=1 00509000 + IF(IC(1).GT.0.AND.IC(1).LE.99) NTAP0=IC(1) 00510000 +C NTP=NT(1,NTAP) 00511000 +C NTP0=NT(1,NTAP0) 00512000 +C 00513000 + LKMA=MA/MINDX1 00514000 + K0=0 00515000 + K1=1 00516000 + CALL LOADIN(MIND,NTAP,K1,K0,MINDX1,LKMA,A) 00517000 + LIMIT=MINDX1*MIND+1 00518000 + CALL ORDMD(35,KB,MINDX1,MIND,A,A(LIMIT)) 00519000 +C IN A(LIMIT) INDEX OF INDEX: A8:NOME,INIZIO,DIMENSIONE 00520000 + IF(4*KB.GT.MA-LIMIT) CALL ERR(8HGELIB ,516) 00521000 + CALL REW(NTAP0) 00522000 +C 00523000 + DO 56 I=1,KB 00524000 +C BEGINNING OF MATERIAL 00525000 + LNKKK=4*(I-1)+LIMIT-1 00526000 + NK1=NAREAL(A(LNKKK+3)) 00527000 +C DIMENSION OF INDEX OF MATERIAL 00528000 + NK2=NAREAL(A(LNKKK+4)) 00529000 +C LAST VALUE OF MATERIAL 00530000 + NK3=NK1+NK2-1 00531000 + CALL SAVI(NTAP0,MINDX1,NK2,A((NK1-1)*MINDX1+1)) 00532000 + WRITE(NP,9016) NTAP0,A(LNKKK+1),A(LNKKK+2), 00533000 + 1 NK1,NK3 00534000 + 9016 FORMAT(' WRITTEN ON TAPE:',I5,' INDEX OF:',2A4,' FROM:',I5, 00535000 + 1 ' TO:',I5) 00536000 + 56 CONTINUE 00537000 + CALL REW(NTAP0) 00538000 + DO 57 I=1,KB 00539000 + CALL LOADI1(M(2),NTAP0,MINDX1,MINDX2,INDX) 00540000 + CALL P2(MA,A) 00541000 + 57 CONTINUE 00542000 + IF(C.EQ.COM(24)) GO TO 324 00543000 + GO TO 10 00544000 + 517 CONTINUE 00545000 + IF(C.NE.COM(20)) GO TO 518 00546000 +C 00547000 +C P A R T T H R E E ( FOR A GRAT NUMBER OF MATERIALS )00548000 +C ==PART3 == INDEX STORED IN ADD(.) (BLANK COMMON) 00549000 +C ----------------------------------------------------------------00550000 +C 00551000 + 324 CONTINUE 00552000 +C FORCES P3 TO REWIND ALL FILES 00553000 + CALL FORCRW 00554000 +C 00555000 + K1=3 00556000 +C TAPE 00557000 + IF(IC(1).GT.0) K1=IC(1) 00558000 +C 00559000 + K2=1 00560000 +C POSITION IN ADD(.) 00561000 + IF(IC(2).GT.0) K2=IC(2) 00562000 + K3=0 00563000 +C NUMBER OF INDEX IN FILE (IF 0 => ALL FILE LOADED) 00564000 + IF(IC(3).GT.0) K3=IC(3) 00565000 +C 00566000 + MIND13=(MAXA+MA)/MIND11 00567000 + CALL LOADIN(M(4),K1,K2,K3,MIND11,MIND13,ADD(1)) 00568000 +C CARICA IN A L'INDICE 00569000 + 200 MAXXA=MAXA+MA-M(4)*MIND11 00570000 + IF(MAXXA.LE.0) CALL ERR(8HGELIB ,517) 00571000 + LIMIT=M(4)*MIND11+1 00572000 + MMM11=M(4) 00573000 + CALL P3(MAXXA,ADD(LIMIT),MIND11,MMM11,ADD(1)) 00574000 + GO TO 10 00575000 + 518 CONTINUE 00576000 + IF(C.NE.COM(21)) GO TO 519 00577000 +C 00578000 +C ==PART4 == P A R T F O U R (ALL MC2-2 FILES) 00579000 +C DISMOUNT THE WHOLE MC2-2 LIBRARY 00580000 +C -------------------------------------------------------- 00581000 +C 00582000 +C FORCES P4 TO REWIND ALL FILES 00583000 + CALL FORCRW 00584000 +C 00585000 + MAXXA=MAXA+MA 00586000 + IC(1)=0 00587000 + IC(2)=0 00588000 + IC(3)=0 00589000 + CALL P4(MAXXA,ADD(1)) 00590000 + GO TO 10 00591000 + 519 CONTINUE 00592000 + IF(C.NE.COM(22)) GO TO 520 00593000 +C 00594000 +C ==MERGE == MERGING OF NEW AND OLD MC2-2 LIBRARY 00595000 +C --------------------------------------------------------------- 00596000 +C 00597000 + MIND13=MAXA+MA/MIND11 00598000 + K1=1 00599000 + IF(AC(1).GT.0.) K1=AC(1) 00600000 + ICTOT=0 00601000 + K0=0 00602000 +C .... LOOP SUI POSSIBILI IC(.) 6 IC IN TOTALE IN /COMM/ 00603000 + DO 58 I=1,6 00604000 + IF(IC(I).LE.0) GO TO 58 00605000 + ICTOT=ICTOT+1 00606000 + NTPK=IC(I) 00607000 + CALL LOADIN(M(4),NTPK,K1,K0,MIND11,MIND13,ADD(1)) 00608000 + K1=M(4)+1 00609000 + 58 CONTINUE 00610000 + IF(ICTOT.GT.0) GO TO 220 00611000 +C DEFAULT : READ FROM 3 AND 4 00612000 + NTPK=3 00613000 + CALL LOADIN(M(4),NTPK,K1,K0,MIND11,MIND13,ADD(1)) 00614000 + NTPK=4 00615000 + K1=M(4)+1 00616000 + CALL LOADIN(M(4),NTPK,K1,K0,MIND11,MIND13,ADD(1)) 00617000 + 220 GO TO 200 00618000 + 520 CONTINUE 00619000 + IF(C.NE.COM(23)) GO TO 521 00620000 +C 00621000 +C ==MCC2F2 = WRITES MCC2F2 FILE CONTAINING TABULATED DATA 00622000 +C ----------------------------------------------------------------00623000 +C 00624000 + NTPE=IC(1) 00625000 + IF(NTPE.LE.0) NTPE=52 00626000 +C IC(1)=NTPE=OUTPUT FILE 00627000 + CALL FTABLE(NTPE,NO,NP,MA,A) 00628000 + GO TO 10 00629000 + 521 CONTINUE 00630000 +C ------------------------------------- 00631000 +C 00632000 +C YOU CAN INSERT HERE NEW COMMANDS ! 00633000 +C 00634000 +C ------------------------------------- 00635000 +C 00636000 + 500 CONTINUE 00637000 + WRITE(NO,5000) C,IC,AC 00638000 + 5000 FORMAT(' !!!!!!!!!!!! WARNING! COMMAND NOT RECOGNIZED. IT IS', 00639000 + 1' IGNORED!!:'/1X,A8,6I4,4E12.5) 00640000 + WRITE(NP,5000) C,IC,AC 00641000 + GO TO 10 00642000 +C 00643000 + END 00644000 + SUBROUTINE TABNIZ(MNT1,MNT2,NT,MOPZ1,MOPZ2,MOPZ3,OPZ) 00645000 +C ****************************************************** 00646000 +C 00647000 +C INITIALIZE OPTION COMMON AND FILE DESCRIPTION 00648000 +C 00649000 +C ****************************************************** 00650000 +C 00651000 + DIMENSION NT(MNT1,MNT2),OPZ(MOPZ1,MOPZ2,MOPZ3) 00652000 +C 00653000 +C INITIALIZE FILE DESCRIPTORS 00654000 + DO 10 I=1,MNT2 00655000 + NT(1,I)=I 00656000 + NT(2,I)=1 00657000 + NT(3,I)=1 00658000 + NT(4,I)=1 00659000 + 10 CONTINUE 00660000 +C 00661000 +C INITIALIZE OPTION MATRIX 00662000 +C OPTION MATRIX HAS THREE DIMENSIONS; 00663000 +C THE FIRST INDEX MEANS THE PART OF THE CODE(1=READING OF ENDFB, 00664000 +C 2=CALCULATIONS , 3= MC2-2 LIBRARY PRODUCTION, 4=MC2-2 LIBRARY 00665000 +C DISMOUNTING) 00666000 +C THE SECOND INDEX THE ENDFB FILE (FOR THE FIRST PART OF THE CODE)00667000 +C OR THE MC2-2 LIBRARY FILE (FOR PARTS 2-3-4 OF THE CODE) 00668000 +C THE THIRD INDEX IS THE OPTION NUMBER 00669000 +C 00670000 + CALL RIEMP(0.,MOPZ1*MOPZ2*MOPZ3,OPZ) 00671000 +C 00672000 +C PRINT OPTIONS : ( ALL ARE SET = 0 ) 00673000 +C THE PRINT FLAGS OPZ(.,.,1) FIX THE AMOUNT OF PRINTED OUTPUT. 00674000 +C IF THE FLAG HAS A GRAT VALUE A LOT OF OUTPUT IS PRODUCED. 00675000 +C ALL OPTIONS OPZ(.,.,1) WITH LAST INDEX=1 ARE PRINT OPTIONS 00676000 +C 00677000 +C REQUESTED PRECISION WHEN FISSION SPECTRUM REPRESENTATION 00678000 +C FOR SECONDARY ENERGY DISTRIBUTION IS TO BE TRASFORMED 00679000 +C INTO TABULATED DATA. ( 1 % ) 00680000 + OPZ(1,5,2)=0.01 00681000 +C REQUESTED PRECISION IN LINEARIZATION OF TABULATED CROSS 00682000 +C SECTIONS FOR THE DOPPLER BROADENING OF THE TABULATED CROSS 00683000 +C SECTIONS ( IF .LE. 0 , NO TABULATED CROSS SECTIONS DOPPLER 00684000 +C BROADENING IS PERFORMED) 00685000 +C OPZ(2,1,5)=0.0 00686000 +C PRECISION OF LINEARIZATION FOR DOPPLER BROADENING OF RESOLVED 00687000 +C RESONANCE CROSS SECTION WITH THE CULLEN'S METHOD 00688000 +C (IF .LE.0 , THIS METHOD IS NOT USED ) 00689000 +C OPZ(2,1,6)=0.0 00690000 +C PRECISION OF LINEARIZATION FOR DOPPLER BROADENING OF UNRESOLVED00691000 +C RESONANCE CROSS SECTION WITH THE CULLEN'S METHOD 00692000 +C (IF .LE.0 , THIS METHOD IS NOT USED ) 00693000 +C OPZ(2,1,7)=0.0 00694000 +C WHEIGHT FUNCTION FOR MULTIGROUP RESOLVED RESONANCE COMPUTATION 00695000 +C IF .LT.1 ,AN 1/E WEIGHT IS USED; 00696000 +C IF .GE.1 , A COSTANT WEIGHT IS USED 00697000 + OPZ(2,1,8)=2. 00698000 +C INTERPOLATION LAW FOR MULTIGROUP RESOLVED RESONANCE CROSS 00699000 +C SECTION COMPUTATION: 00700000 +C IF .LE.2 - LINEAR INTERPOLATION 00701000 +C IF .EQ.3 - SIGMA LINEAR IN LOG(E) IS ASSUMED 00702000 +C IF .GT.3 - LOG(SIGMA) LINEAR IN LOG(E) IS ASSUMED 00703000 + OPZ(2,1,10)=1. 00704000 +C NUMBER OF ENERGY POINT AT WHICH UNRESOLVED RESONANCE CROSS 00705000 +C SECTIONS ARE COMPUTED FOR ENERGY-ENDEPENDENT RESONANCE 00706000 +C PARAMETERS 00707000 + OPZ(2,3,2)=15. 00708000 +C MASS OPTION FOR RESOLVED RESONANCE: 00709000 +C (IF MASS.GT.OPZ RESONANCE PARAMETER 00710000 +C ARE INCLUDED IN THE MC2-2 LIBRARY AND RESONANCE CROSS SECTIONS 00711000 +C ARE NOT INCLUDED IN MULTIGROUP CROSS SECTIONS) 00712000 + OPZ(2,3,5)=100. 00713000 +C NUMBER OF NEIGHBOURING RESONANCE FOR WHICH OVERLAP IS CONSIDERED00714000 +C FOR UNRESOLVED RESONANCE COMPUTATION 00715000 +C OPZ(2,3,2)=0. 00716000 +C INTERPOLATION LAW FOR UNRESOLVED RESONANCE MULTIGROUP CROSS SECT00717000 +C IF .LE.2 - LINEAR INTERPOLATION 00718000 +C IF .EQ.3 - SIGMA LINEAR IN LOG(E) IS ASSUMED 00719000 +C IF .GT.3 - LOG(SIGMA) LINEAR IN LOG(E) IS ASSUMED 00720000 + OPZ(2,3,9)=1. 00721000 +C WHEIGHT FUNCTION FOR MULTIGROUP RESOLVED RESONANCE COMPUTATION 00722000 +C IF .LT.1 ,AN 1/E WEIGHT IS USED; 00723000 +C IF .GE.1 , A COSTANT WEIGHT IS USED 00724000 + OPZ(2,3,10)=2. 00725000 +C IF GT.0 RESOLVED RESONANCE OUT OF ENERGY RANGE ARE INCLUDED 00726000 +C IN RESONANCE PARAMETERS FILE OF MC2-2 LIBRARY 00727000 +C OPZ(2,4,2)=-3. 00728000 +C IF GT.0 GAMMA COMPETITIVE IS INCLUDED IN NEUTRON WIDTH 00729000 +C IF .GT.1 GAMMA COMPETITIVE IS INCLUDED IN TOTLA WIDTH 00730000 +C OPZ(2,4,3)=0. 00731000 +C IN THE BREIT-WIGNER INTERFERENCE TERM FOR THE R-RESONANCE 00732000 +C THE S-RESONANCE FOR WHICH: 00733000 +C (GAMM S + GAMM R).LT.(ER-ES)*THIS PARAMETER 00734000 +C ARE INCLUDED 00735000 + OPZ(2,4,6)=100000. 00736000 +C 00737000 +C 00738000 +C DEFAULTS GROUP STRUCTURE 00739000 +C TOP ENERGY 00740000 + OPZ(2,5,2)=1.4190675E+7 00741000 +C LETARGY WIDTH 00742000 + OPZ(2,5,3)=1./120. 00743000 +C NUMBER OF GROUPS 00744000 + OPZ(2,5,4)=2082. 00745000 +C MASS OPTION 00746000 +C (IF MASS.GT.OPZ RESONANCE PARAMETER 00747000 +C ARE INCLUDED IN THE MC2-2 LIBRARY AND RESONANCE CROSS SECTIONS 00748000 +C ARE NOT INCLUDED IN MULTIGROUP CROSS SECTIONS) 00749000 + OPZ(2,5,5)=100. 00750000 +C RESOLVED RESONANCE MORE FAR THAN THIS NUMBER MULTIPLIED BY THE 00751000 +C RESONANCE WIDTH ARE NOT INCLUDED IN THE MULTIBROUP RESONANCE 00752000 +C CALCULATION FOR THE ENERGY POINT 00753000 + OPZ(2,5,7)=10.E+6 00754000 +C 00755000 +C PRECISION USED IN THE GENERATION OF LINEAR-INTERPOLABLE 00756000 +C RESONANCE CROSS SECTIONS , IN THE CALCULATION OF RESOLVED 00757000 +C RESONANCE CROSS SECTIONS. ( 1 % IS USED ) 00758000 + OPZ(2,5,9)=0.01 00759000 +C SECONDARY ENERGY DISTRIBUTION ARE NOT INCLUDED IN 00760000 +C MC2-2 LIBRARY FILES FOR ENERGY GROUPS IN WHICH THE ANELASTIC 00761000 +C OR N,2N IS LESS THAN THIS VALUE. 00762000 +C OPZ(2,6,3)=0. 00763000 +C IF .GT.0 THE CHI VALUE IS AVERAGED OVER ENERGY AND NO ENERGY 00764000 +C DEPENDENT CHI IS PRODUCED (THIS VALUE MUST BE .GT.0 ) 00765000 + OPZ(2,7,2)=10. 00766000 +C LOWER AND UPPER ENERGY LIMIT (EV) OF THE ENERGY RANGE OVER WHICH 00767000 +C THE CHI VALUES ARE AVERAGED 00768000 + OPZ(2,7,3)= 1000. 00769000 + OPZ(2,7,4)=600000. 00770000 +C 00771000 +C NUMBER OF ENERGY GROUP FOR EACH BLOCK OF LEGENDRE COMPONENT 00772000 +C DATA IN MC2-2 LIBRARY 00773000 + OPZ(2,8,2)=126. 00774000 +C MAXIMUM NUMBER OF LEGENDRE EXPANSION COEFFICIENTS 00775000 +C COMPUTED FROM TABULATED DATA 00776000 + OPZ(2,8,3)=20. 00777000 +C PERCENTUAL PRECISION IN THE COMPUTATION OF LEGENDRE EXPANSION 00778000 +C COEFFICIENTS FROM TABULATED DATA 00779000 + OPZ(2,8,4)=1. 00780000 +C IF .GT.0 NO TOTAL CROSS SECTION IS COMPUTED 00781000 +C OPZ(3,5,2)=0. 00782000 +C LOGICAL NUMBER OF THE UNIT ON WHICH MULTIGROUP DATA ARE WRITTEN 00783000 +C TO BE READ BY A GRAPHIC ROUTINE. 00784000 +C IF .LE.0. NO OUTPUT IS PRODUCED FOR PLOTTING 00785000 +C OPZ(3,5,9)=0. 00786000 +C ORDER OF LEGENDRE POLINOMIAL FOR THE COMPUTATION OF THE TLJ 00787000 +C MATRIX IN THE MC2-2 LIBRARY FILE :MCC2F8 00788000 + OPZ(3,8,2)=9. 00789000 +C 00790000 +C 00791000 +C 00792000 + RETURN 00793000 + END 00794000 + SUBROUTINE FORCRW 00795000 +C ************************************* 00796000 +C FORCES REWIND OF ALL FILES BY THE READING ROUTINES. 00797000 +C IT SAYS TO THE ROUTINES THAT THE FILE POINTER IS 00798000 +C AT THE END OF THE FILE. (NT(4,.) IS AS GREAT AS POSSIBLE) 00799000 +C 00800000 +C THIS ROUTINE IS CALLED BY GELIB AND HAS BEEN INSERTED 00801000 +C TO AVOID PROBLEMS ARISEN IS SOME VERY RARE SITUATIONS 00802000 +C ******************************************************* 00803000 +C 00804000 + COMMON /FILES/NT(4,99) 00805000 + DO 10 I=1,99 00806000 + 10 NT(4,I)=2147483647 00807000 + RETURN 00808000 + END 00809000 + SUBROUTINE P1(MA,NA) 00810000 +C ***************************** 00811000 +C 00812000 +C READS ENDFB OR JEF FILES AND WRITES SELECTED SECTIONS ON 00813000 +C FIRST INTERMEDIATE FILES. IT WRITES AN INDEX OF THESE FILES. 00814000 +C THE INPUT TABLE DEFINES THE SECTIONS TO BE SELECTED. 00815000 +C CALLS SUBROUTINES P1F1,P1F2,P1F3,P1F4,P1F5. DEPENDING ON 00816000 +C THE ENDFB TAPE TO BE READ. 00817000 +C 00818000 +C ****************************** 00819000 +C 00820000 + DIMENSION NA(3,MA) 00821000 +C SPACE NA IS USED FOR INDEX OF INPUT TABLE. 00822000 +C 00823000 + DATA T/0.0/ 00824000 +C 00825000 + COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 00826000 + 1N1X,N2X,NS,LX,LY,LB 00827000 +C 00828000 + COMMON/OPZIO/ OPZ(4,8,10) 00829000 +C 00830000 + COMMON/DIM/M(5) 00831000 + EQUIVALENCE (M(1),MX) 00832000 +C 00833000 + COMMON/INDX/INDX(40,200) 00834000 +C 00835000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 00836000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 00837000 +C 00838000 + COMMON/MIX/MIX(15,300) 00839003 +C 00840000 + COMMON/FILES/NT(4,99) 00841000 + EQUIVALENCE(NO,NT(1,6)),(NI,NT(1,5)),(NP,NT(1,11)) 00842000 +C 00843000 + LIMITA=3*MMIX2+1 00844000 + LIM=MMIX2+1 00845000 + MAA=MA-LIMITA 00846000 + IF(LIMITA.GT.MA) CALL ERR(8HP1 ,0) 00847000 + IF(M(2).LT.0) M(2)=0 00848000 +C M(2) IS THE DIMENSION OF THE INDEX OF THE INTERMEDIATE FILES 00849000 +C THE INDEX IS CREATED BY THIS ROUTINE 00850000 +C CONTROL ON INPUT TABLE DIMENSION (MIX) (IN M(1)=MX): 00851000 +C IF MIX MATRIX IS EMPTY USES DEFAULT INPUT TAPE: (TAPE 8 MODE 3) 00852000 +C BUT NUCLIDE NAMES CANNOT BE SUPPLIED, SO THAT PART 2 OF THE 00853000 +C CODE CAN NOT RECOGNIZE DIFFERENT MATERIALS AND PART 3 WILL NOT 00854000 +C INSERT MATERIALS IN MC2-II LIBRARIES 00855000 + IF(MX.GT.0) GO TO 100 00856000 +C GO TO READ INPUT TAPE 00857000 +C DESCRIBES TAPE 8 TO BE READ WITH A BLANK MIX MATRIX (INPUT TABLE00858000 + WRITE(NP,9000) 00859000 + WRITE(NO,9000) 00860000 + 9000 FORMAT(' WARNING! NO INPUT TABLE HAS BEEN SUPPLIED FOR PART ', 00861000 + 1 'ONE OF THE CODE') 00862000 + MX=1 00863000 + DO 5 I=1,MMIX1 00864000 + 5 MIX(I,1)=0 00865000 + MIX(3,1)=8 00866000 + MIX(4,1)=3 00867000 + 100 CONTINUE 00868000 +C 00869000 +C ORDERS MIX(MMIX1,MX) PER VALORI DELLA RIGA 3 ( DD TAPES IN) 00870000 +C NA(3,KX) E L INDICE DI MIX ORDINATO PER NUMERI DI DD IN 00871000 +C NA(1)=VALORE ; NA(2)= INIZIO VALORE ; NA(3)= LUNGHEZZA VALORE 00872000 +C KX= NUMERO DI DIVERSI VALORI DELLA RIGA 4 DI MIX 00873000 +C 00874000 + CALL ORDM(3,KX,MMIX1,MX,MIX,NA) 00875000 +C 00876000 + CALL MIXSHO(1,NO) 00877000 + CALL MIXSHO(1,NP) 00878000 + IF(KX.LE.0) CALL ERR(8HP1 ,100) 00879000 +C ..................................... LOOP ON TAPES INPUT 00880000 + DO 20 I=1,KX 00881000 + NTEND=NA(1,I) 00882000 + NTE=NT(1,NTEND) 00883000 + NIN=NA(2,I) 00884000 + NSK=NA(3,I) 00885000 + NFI=NA(2,I)+NSK-1 00886000 + MODE=MIX(4,NIN) 00887000 +C 00888000 +C CONTROLLO DI CONSISTENZA DEL PARAMETRO MODE 00889000 +C 00890000 + DO 50 IJ=NIN,NFI 00891000 +C 00892000 + IF(MODE.NE.MIX(4,IJ)) WRITE(NO,2000)MODE,(MIX(J,IJ),J=1,MMIX1) 00893000 + IF(MODE.NE.MIX(4,IJ)) WRITE(NP,2000)MODE,(MIX(J,IJ),J=1,MMIX1) 00894000 + 2000 FORMAT(' WARNING! ENDFB TAPE TTPE:',I5,' DESCRIBED BY WRONG 00895000 + 1INPUT CARD:'/1X,2A4,8I5,5E12.5) 00896000 + 50 CONTINUE 00897000 + IF(MODE.LT.1.OR.MODE.GT.3) MODE=3 00898000 +C IL DEFAULT E PERO GIA MESSO NELLA LETTURA RDMIX 00899000 +C 00900000 +C POSIZIONA TAPE DI INPUT 00901000 + CALL REW(NTEND) 00902000 +C 00903000 + WRITE(NP,2501)NTEND,MODE,T 00904000 + WRITE(NO,2500)NTEND,MODE,T 00905000 + 2500 FORMAT(' ENDFB FILE READ : FILE NUMBER:',I4,' TYPE:',I4, 00906000 + 1' TEMPERATURE:',E12.5) 00907000 + 2501 FORMAT(' ENDFB FILE READ: FILE NUMBER:',I3,' TYPE:',I2, 00908000 + 1' TEMPERATURE:',E12.5) 00909000 +C 00910000 +C LETTURA PRIMO RECORD DEL TAPE 00911000 + CALL RECTPI(NTE,MODE,NO) 00912000 +C 00913000 +C LOOP SUI RECORDS DEL TAPE DA LEGGERE 00914000 +C READS ALL THE SPECIFIED TAPE. FOR EACH SECTION CONTROL IF 00915000 +C FLAGS :MAT,MF,MT MATCH SOME VALUE IN MIX MATRIX (INPUT TABLE) 00916000 +C 00917000 + 60 CONTINUE 00918000 +C ..........................................LOOP ON SECTIONS 00919000 + CALL RREC(1,NTE,MODE,T) 00920000 +C LEGGE RECORD HEAD 00921000 + IF(.NOT.(MAT.EQ.-1 .AND.MT.EQ.0.AND.MF.EQ.0)) GO TO 610 00922000 +C PER FINE TAPE (TEND RECORD ENCOUNTERED) 00923000 + 605 CONTINUE 00924000 + WRITE(NO,3000) NTEND,NTE 00925000 + WRITE(NP,3000) NTEND,NTE 00926000 + 3000 FORMAT(' END OF ENDFB FILE',I7,' LOGICAL UNIT NUMBER:',I5) 00927000 + GOTO 200 00928000 +C A LOOP DEI TAPES O DI MIX 00929000 + 610 CONTINUE 00930000 +C 00931000 +C ANALISI DEL RECORDS 00932000 +C 00933000 + IF(MF.GT.5) GOTO 700 00934000 + IF(MT.LE.0) GO TO 60 00935000 +C SI TRATTA DI UN SEND RECORD 00936000 + IF(MAT.LE.0) GO TO 60 00937000 +C SI TRATTA DI UN MEND RECORD 00938000 + IF(MF.LE.0) GO TO 60 00939000 +C SI TRATTA DI UN FEND 00940000 +C 00941000 +C 00942000 +C HERE A HEAD RECORD MUST BE FOUND OR YOU CAN HAVE 00943000 +C ERRORS FOR THE WRONG FORMAT OF THE NEXT READ 00944000 +C LOOP ON INPUT TABLE OF THE TAPE TO SEE IF MAT,MT IS TO BE TAKEN 00945000 +C ................................. LOOP ON MIX OF THE TAPE 00946000 +C 00947000 + DO 70 K=NIN,NFI 00948000 +C TEST ON MF( SE #0,#MF NON LO TRATTA) 00949000 + IF(MIX(7,K).NE.0.AND.MIX(7,K).NE.MF) GO TO 70 00950000 +C TEST ON MAT 00951000 + IF(MIX(6,K).NE.0.AND.MIX(6,K).NE.MAT) GO TO 70 00952000 +C IF ARRIVE HERE MAT,MT IS TO BE TAKEN 00953000 +C TEST ON MT (SECTION ) 00954000 + IF(MIX(8,K).GT.0.AND.MIX(8,K).NE.MT)GO TO 70 00955000 + IF(MF.GT.5) GO TO 700 00956000 + GO TO (701,702,703,704,705),MF 00957000 +C ---------------- ONLY FILES 1-5 USED BY MC2-2 LIBRARY ------- 00958000 + 701 CALL P1F1(MMIX1,MIX(1,K),MAA,NA(1,LIM)) 00959000 + GO TO 60 00960000 + 702 CALL P1F2(MMIX1,MIX(1,K),MAA,NA(1,LIM)) 00961000 + GO TO 60 00962000 + 703 CALL P1F3(MMIX1,MIX(1,K),MAA,NA(1,LIM)) 00963000 + GO TO 60 00964000 + 704 CALL P1F4(MMIX1,MIX(1,K),MAA,NA(1,LIM)) 00965000 + GO TO 60 00966000 + 705 CALL P1F5(MMIX1,MIX(1,K),MAA,NA(1,LIM)) 00967000 + GOTO 60 00968000 + 70 CONTINUE 00969000 + 700 CONTINUE 00970000 +C 00971000 +C IF HERE MAT,MF ARE NOT TO BE TAKEN , SECTION IS SKIPPED. 00972000 +C SINGLE SECTIONS ARE SKIPPED,NOT FILE OR MATERIALS. 00973000 +C 00974000 +C 00975000 + CALL SKIPS(MODE,NTE,1,STMP,NO) 00976000 +C 00977000 + GO TO 60 00978000 +C GO TO READ NEXT HEAD RECORD 00979000 + 200 CONTINUE 00980000 +C HERE WHEN THE ENDFB TAPE ENDS 00981000 +C 00982000 + IF(M(2).LE.0) GO TO 20 00983000 +C SAVE INDX ON TAPE NT(1 ). AL PRIMO POSTO LIBERO. 00984000 + WRITE(NP,9050) M(2) 00985000 + 9050 FORMAT(1X,I7,' VECTORS OF INDEX MATRIX SCRATCHED ON UNIT 2 ') 00986000 + CALL POSL(2) 00987000 + CALL SAVI(2,MINDX1,M(2),INDX) 00988000 + M(2)=0 00989000 +C 00990000 +C .................END OF THE LOOP ON TAPES OF INPUT TABLE. 00991000 + 20 CONTINUE 00992000 +C 00993000 + RETURN 00994000 + END 00995000 + SUBROUTINE P1F1(MMM,N,MAAA,SPAZ) 00996000 +C *************************** 00997000 +C 00998000 +C READS FILE1 ENDFB ANDE SELECT MAT SECTIONS 00999000 +C HERE MAT,MF AND THE HEAD RECORD OF MT TO READ IS IN /RECS/ 01000000 +C IN N IS THE INPUT CARD (MIX) OF THE TAPE BEING READ. 01001000 +C 01002000 +C ******************************* 01003000 +C 01004000 + DIMENSION N(MMM) 01005000 +C 01006000 + DIMENSION A(4) 01007000 +C A(4) ARE THE FOUR COEFFICIENT FOR NU 01008000 +C 01009000 + COMMON/FILES/NT(4,99) 01010000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 01011000 +C 01012000 + COMMON/OPZIO/ OPZ(4,8,10) 01013000 +C 01014000 + COMMON /INDX/AINDX(40,200) 01015000 +C 01016000 + COMMON/DIM/M(5) 01017000 +C 01018000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 01019000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 01020000 +C 01021000 + COMMON MAXA,AXYB(10000) 01022000 + COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 01023000 + 1N1X,N2X,NS,LX,LY,LB 01024000 +C 01025000 + DATA T/0.0/ 01026000 + EQUIVALENCE(OPZ(1,1,1),STMP),(IND,M(2)) 01027000 +C 01028000 + MODE=N(4) 01029000 + NTENDF=N(3) 01030000 + NTOUT=N(5) 01031000 + NTE=NT(1,NTENDF) 01032000 + NTO=NT(1,6) 01033000 +C 01034000 +C 01035000 + IF(MT.EQ.452) GO TO 452 01036000 + IF(MT.EQ.458) GO TO 458 01037000 +C REACTIONS MF=1 NUMBER MT=456,454,455,453,457 01038000 +C ARE NOT TREATED. 01039000 +C P1F1 SAREBBE CHIAMATO INUTILMENTE UN SACCO 01040000 +C DI VOLTE CON ARGOMENTO MT NON USATO SE NON CHIAMASSI LA 01041000 +C SUBROUTINE SEGUENTE CHE VA AVANTI NEL FILE FINO A SEND RECORD 01042000 +C INOLTRE IN P1 LA LETTURA DI RECORDS DI DIVERSO TIPO COME 01043000 +C FOSSERO RECORDS CONT DA ERRORE 01044000 +C 01045000 +C 01046000 + CALL SKIPS(MODE,NTE,1,STMP,NTO) 01047000 +C 01048000 + RETURN 01049000 + 452 CONTINUE 01050000 +C SECTION MT=452=NU 01051000 + WRITE(NP,9020) MAT,N(1),N(2) 01052000 + 9020 FORMAT(' NU .MATERIAL:',I5,1X,2A4) 01053000 +C 01054000 + LNU=L2 01055000 + ZA=C1 01056000 + AWR=C2 01057000 +C SET OUTPUT TAPE: 01058000 +C DEFAULT OUTPUT TAPE 01059000 + IF(NTOUT.LE.0) NTOUT=21 01060000 + NTO=NT(1,NTOUT) 01061000 + CALL POSL(NTOUT) 01062000 +C POSIZIONA NTOUT ALL'ULTIMO RECORD LIBERO 01063000 + CALL WREC(1,NTO,3) 01064000 + IF(STMP.GT.25.) CALL WREC(1,NO,4) 01065000 +C LIST O TAB1 IL RECORD 2 01066000 + CALL RREC(LNU+1,NTE,MODE,T) 01067000 +C FOR THE NU PUT IN NCOF THE NUMBER OF COEFFICIENTS 01068000 + NCOF=0 01069000 + IF(LNU.EQ.1) NCOF=N1 01070000 +C 01071000 + CALL WREC(LNU+1,NTO,3) 01072000 + IF(STMP.GT.25.) CALL WREC(LNU+1,NO,4) 01073000 +C IF MAX 4 COEFF THEY ARE PUT IN INDEX OTHERWISE ON OUTPUT TAPE01074000 + DO 20 I=1,4 01075000 + 20 A(I)=0. 01076000 + IF(LNU.NE.1) GO TO 454 01077000 + DO 30 I=1,NCOF 01078000 + 30 A(I)=AXYB(LB-1+I) 01079000 +C METTO I CEOFF IN A PER METTERLI IN INDICE 01080000 + ANSK=3+N1/6+NREST(N1,6) 01081000 + 454 CONTINUE 01082000 + IF(LNU.EQ.2)ANSK=3+N1/3+NREST(N1,3)+N2/3+NREST(N2,3) 01083000 +C IND=CURRENT POSITION OF THE INDEX BEING CREATED 01084000 + IND=IND+1 01085000 + IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX) 01086000 + CALL EMPIN(MINDX1,AINDX(1,IND),FLOAT(MAT),FLOAT(MF),FLOAT(MT),ZA,01087000 + 1AWR,0.,T,0.,0.,FLOAT(LNU),FLOAT(NCOF),A(1),A(2),A(3),A(4),0.,0.,0.01088000 + 1,0.,FLOAT(MODE), 01089000 + 2FLOAT(NTENDF),FLOAT(NTE),FLOAT(NTOUT),FLOAT(NTO),FLOAT(NT(4,NTOUT)01090000 + 3),ANSK,3.,0.,0.,5.,2.,11.,0.,0.,N(1),N(2),N(11),0.,0.,0.) 01091000 +C 01092000 +C CONTROLLO DEL SEND 01093000 + IF(NCONT(STMP,NO,NTE,MODE,MAT,MF,0).GT.0)CALLERR(8HP1F1 ,452) 01094000 +C 01095000 +C IL SEND 01096000 +C 01097000 +C METTO IL SEND SUL FILE DI OUTPUT 01098000 + CALL WREC(1,NTO,3) 01099000 +C 01100000 + NT(3,NTOUT)=NT(3,NTOUT)+ANSK 01101000 + NT(4,NTOUT)=NT(3,NTOUT) 01102000 + RETURN 01103000 + 458 CONTINUE 01104000 +C SECTION MT=458:ENERGIA PER FISSIONE.RECORD SET ONLY IN INDEX 01105000 + WRITE(NP,9010) MAT 01106000 + 9010 FORMAT(' ENERGY PER FISSION.MATERIAL:',I5) 01107000 +C 01108000 +C THE FOLLOWING ONLY FOR ENDFB5 FILES 01109000 +C POSIZIONE IN INDICE 01110000 + ZA=C1 01111000 + AWR=C2 01112000 + CALL RREC(2,NTE,MODE,T) 01113000 + IF(STMP.GT.20.) CALL WREC(2,NO,4) 01114000 +C ET=E PER FISSIONE 01115000 + AK17=AXYB(LB+16) 01116000 +C ER=E PER FISS ESCLUSI NEUTRINI 01117000 + AK15=AXYB(LB+14) 01118000 + IND=IND+1 01119000 + IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX) 01120000 + CALL EMPIN(MINDX1,AINDX(1,IND),FLOAT(MAT),FLOAT(MF),FLOAT(MT), 01121000 + 1ZA,AWR,0.,T,0.,0.,0.,0.,0.,0.,AK15,AK17,0.,0.,0.,0.,FLOAT(MODE) 01122000 + 2,FLOAT(NTENDF),FLOAT(NTE),0.,0.,0.,0.,0.,0.,0.,1.,3.,4.,0.,0. 01123000 + 3,N(1),N(2),N(15),0.,0.,0.) 01124000 +C LEGGE IL RECORD SEND E LO CONTROLLA 01125000 + IF(NCONT(STMP,NO,NTE,MODE,MAT,MF,0).GT.0)CALL ERR(8HP1F1 ,458) 01126000 +C 01127000 + RETURN 01128000 + END 01129000 + SUBROUTINE P1F2(MMM,N,MAAA,NSPAZ) 01130000 +C ********************************* 01131000 +C READ FILE 2 ENDFB AND SELECT SECTIONS 01132000 +C RESONANCES - PART 1 01133000 +C ********************************* 01134000 + DIMENSION N(MMM),NSPAZ(MAAA) 01135000 + DATA T/0.0/ 01136000 +C 01137000 + COMMON/FILES/NT(4,99) 01138000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 01139000 +C 01140000 + COMMON/OPZIO/ OPZ(4,8,10) 01141000 + EQUIVALENCE(OPZ(1,2,1),STMP) 01142000 +C 01143000 +C OPZ= OPZIONI( PARTE 1,2 ECC ; FILE MCC2F1,2 ECC ; OPZIONE) 01144000 +C 01145000 +C 01146000 + COMMON/INDX/AINDX(40,200) 01147000 +C 01148000 + COMMON/DIM/M(5) 01149000 + EQUIVALENCE(M(2),IND) 01150000 +C 01151000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 01152000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 01153000 +C 01154000 + COMMON MAXXA,AAA(1) 01155000 +C 01156000 + COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 01157000 + 1N1X,N2X,NS,LX,LY,LB 01158000 +C 01159000 +C NT(4, ) E IL RECORD CORRENTE 01160000 +C NT(3, ) E USATO PER INDX(25) PUNTATORE ALLA PRIMA SCHEDA 01161000 +C CONT DELL ISOTOPO ED E-RANGE 01162000 + IF(MT.NE.151) CALL ERR(8HP1F2 ,151) 01163000 +C FILE 2 HAS ONLY SECTION 151 01164000 + MODE=N(4) 01165000 + NTENDF=N(3) 01166000 + NTE=NT(1,NTENDF) 01167000 + NTOUT=N(5) 01168000 +C DEFINISCE TAPE DI OUTPUT 01169000 + IF(NTOUT.LE.0) NTOUT=22 01170000 + NTO=NT(1,NTOUT) 01171000 + CALL POSL(NTOUT) 01172000 +C NUMERO ISOTOPO 01173000 + NIS=N1 01174000 + ZA=C1 01175000 + AWR=C2 01176000 +C RECORD HEAD 01177000 + CALL WREC(1,NTO,3) 01178000 + NT(4,NTOUT)=NT(4,NTOUT)+1 01179000 + 111 CONTINUE 01180000 +C ............................... LOOP ISOTOPI DEL MAT(SU ENDFB 01181000 + DO 10 I=1,NIS 01182000 +C IL PRIMO CONT DI OGNI ISOTOPO 01183000 + CALL RREC(1,NTE,MODE,T) 01184000 + ZAI=C1 01185000 + ABN=C2 01186000 + LFW=L2 01187000 + NER=N1 01188000 + CALL WREC(1,NTO,3) 01189000 + NT(4,NTOUT)=NT(4,NTOUT)+1 01190000 +C ................................ LOOP SUI RANGES DI ENERGIA 01191000 + DO 20 II=1,NER 01192000 + ANEMX=0. 01193000 + AJMX=0 01194000 +C MAX NUM OF J FOR EACH L ( PER UNRESOLVED CALCR3 DI P2MCF3) 01195000 +C MAX NUM DI E (PER UNRESOLVED CALCR3 DI P2MCF3) 01196000 +C 2 : CONT FOR EACH ENERGY RANGE 01197000 + CALL RREC(1,NTE,MODE,T) 01198000 + EL=C1 01199000 + EH=C2 01200000 + LRU=L1 01201000 + LRF=L2 01202000 + CALL WREC(1,NTO,3) 01203000 +C CONTATORE NUMERO RECORDS ENDFB 01204000 + ANSKEN=0. 01205000 + NT(3,NTOUT)=NT(4,NTOUT)+1 01206000 +C PUNTATORE DOPO IL CONT DELL'ISOTOPO ED E RANGE PER L'INDICE 01207000 + NT(4,NTOUT)=NT(4,NTOUT)+1 01208000 +C SOLO SCATTERING RADIUS 01209000 + IF(LRU.EQ.0) GO TO 100 01210000 +C RESOLVED 01211000 + IF(LRU.EQ.1) GOTO 50 01212000 +C UNRESOLVED LRU=2) 01213000 +C ALL GAMMA ARE ENERGY DEPENDENT 01214000 + IF(LRF.EQ.2) GO TO 400 01215000 +C GAMMA FISSION NOT E-DEPENDENT (UNRES) 01216000 + IF(LFW.EQ.0) GO TO 200 01217000 +C GAMMA FISSION ENERGY DEPENDENT ( UNRES ) 01218000 + IF(LFW.EQ.1) GO TO 300 01219000 + CALL ERR(8HP1F2 ,49) 01220000 + 50 CONTINUE 01221000 +C RESOLVED 01222000 +C BWSL OR BWML 01223000 + IF(LRF.EQ.2.OR.LRF.EQ.1) GO TO 500 01224000 +C A A 01225000 + IF(LRF.EQ.4) GO TO 600 01226000 + IF(LRF.EQ.3) GO TO 700 01227000 + CALL ERR(8HP1F2 ,50) 01228000 + 100 CONTINUE 01229000 +C ONLY SCATTERING RADIUS 01230000 + WRITE(NP,9000) MAT,N(1),N(2),I,II 01231000 + 9000 FORMAT(' SCATTERING RADIUS. MATERIAL:',I5,1X,2A4,' ISOTOPE:', 01232000 + 1 I3,' ENERGY RANGE:',I3) 01233000 +C 01234000 +C RECORD CONT 01235000 + CALL RREC(1,NTE,MODE,T) 01236000 + SPI=C1 01237000 + AP=C2 01238000 + NLS=N1 01239000 + CALL WREC(1,NTO,3) 01240000 + NT(4,NTOUT)=NT(4,NTOUT)+1 01241000 +C FILLS INDEX 01242000 + IND=IND+1 01243000 + IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX) 01244000 + CALL EMPIN(MINDX1,AINDX(1,IND),FLOAT(MAT),FLOAT(MF),FLOAT(MT),ZA,01245000 + 1AWR,FLOAT(NIS),T,ZAI,ABN,FLOAT(LFW),FLOAT(NER),FLOAT(LRU), 01246000 + 1FLOAT(LRF),EL,EH,SPI,AP,FLOAT(NLS),0., 01247000 + 2FLOAT(MODE),FLOAT(NTENDF),FLOAT(NTE),FLOAT(NTOUT),FLOAT(NTO), 01248000 + 3FLOAT(NT(3,NTOUT)),1.,1.,FLOAT(I),FLOAT(II),1., 01249000 + 46.,0.,0.,0.,N(1),N(2),N(15),0.,0.,AWR) 01250000 + GO TO 20 01251000 + 200 CONTINUE 01252000 +C U N R E S O L V E D 01253000 +C THIRD RECORD UNRESOLVED GAMMA NOT ENERGY DEPENDENT 01254000 + WRITE(NP,9010) MAT,N(1),N(2),I,II 01255000 + 9010 FORMAT(' UNRES COSTANT IN E.MATERIAL:',I5,1X,2A4,' ISOTOPE:', 01256000 + 1 I3,' ENERGY RANGE:',I3) 01257000 +C 01258000 + CALL RREC(1,NTE,MODE,T) 01259000 + SPI=C1 01260000 + AP=C2 01261000 + NLS=N1 01262000 + CALL WREC(1,NTO,3) 01263000 + NT(4,NTOUT)=NT(4,NTOUT)+1 01264000 + ANSKEN=ANSKEN+1 01265000 + DO 22 III=1,NLS 01266000 +C LIST 01267000 + CALL RREC(2,NTE,MODE,T) 01268000 + AWRI=C1 01269000 + NJS=N2 01270000 + IF(AJMX.LT.NJS) AJMX=NJS 01271000 +C ANEMX RESTA ZERO 01272000 + CALL WREC(2,NTO,3) 01273000 + ANSKEN=ANSKEN+1 01274000 + NT(4,NTOUT)=NT(4,NTOUT)+1+NJS 01275000 + 22 CONTINUE 01276000 +C INDICE 01277000 + AKS=NJS+1+NLS 01278000 + GOTO450 01279000 + 300 CONTINUE 01280000 +C LIST RECORD (UNRESOLVED): GAMMA FISSION ENERGY DEPENDENT 01281000 + WRITE(NP,9020) MAT,N(1),N(2),I,II 01282000 + 9020 FORMAT(' UNRES GAM FISS(E) .MATERIAL:',I5,1X,2A4,' ISOTOPE:', 01283000 + 1 I3,' ENERGY RANGE:',I3) 01284000 +C 01285000 + CALL RREC(2,NTE,MODE,T) 01286000 + SPI=C1 01287000 + AP=C2 01288000 + NLS=N2 01289000 + NE=N1 01290000 + ANEMX=NE 01291000 + CALL WREC(2,NTO,3) 01292000 + ANSKEN=ANSKEN+1 01293000 + NT(4,NTOUT)=NT(4,NTOUT)+NE/6+1+NREST(NE,6) 01294000 + DO 32 III=1,NLS 01295000 +C CONT DEL NLS 01296000 + CALL RREC(1,NTE,MODE,T) 01297000 + AWRI=C1 01298000 + NJS=N1 01299000 + IF(AJMX.LT.NJS) AJMX=NJS 01300000 + CALL WREC(1,NTO,3) 01301000 + NT(4,NTOUT)=NT(4,NTOUT)+1 01302000 + ANSKEN=ANSKEN+1 01303000 + DO 33 II3=1,NJS 01304000 +C LIST 01305000 + CALL RREC(2,NTE,MODE,T) 01306000 + CALL WREC(2,NTO,MODE) 01307000 + NT(4,NTOUT)=NT(4,NTOUT)+1+1+NE/6+NREST(NE,6) 01308000 + ANSKEN=ANSKEN+1 01309000 + 33 CONTINUE 01310000 + 32 CONTINUE 01311000 +C INDICE 01312000 + GO TO 450 01313000 + 400 CONTINUE 01314000 +C ALL GAMMA E-DEPENDENT ( UNRESOLVED) BWML 01315000 + WRITE(NP,9030) MAT,N(1),N(2),I,II 01316000 + 9030 FORMAT(' UNRES GAM(E) .MATERIAL:',I5,1X,2A4,' ISOTOPE:', 01317000 + 1 I3,' ENERGY RANGE:',I3) 01318000 +C 01319000 + CALL RREC(1,NTE,MODE,T) 01320000 + SPI=C1 01321000 + AP=C2 01322000 + NLS=N1 01323000 + CALL WREC(1,NTO,3) 01324000 + NT(4,NTOUT)=NT(4,NTOUT)+1 01325000 + AKS=1 01326000 + DO 42 III=1,NLS 01327000 + CALL RREC(1,NTE,MODE,T) 01328000 + AWRI=C1 01329000 + CALL WREC(1,NTO,3) 01330000 + NT(4,NTOUT)=NT(4,NTOUT)+1 01331000 + ANSKEN=ANSKEN+1 01332000 + NJS=N1 01333000 + IF(AJMX.LT.NJS) AJMX=NJS 01334000 + DO 43 I3=1,NJS 01335000 +C RECORD LIST 01336000 + CALL RREC(2,NTE,MODE,T) 01337000 + NE=N2 01338000 + IF(ANEMX.LT.NE) ANEMX=NE 01339000 + CALL WREC(2,NTO,MODE) 01340000 + NT(4,NTOUT)=NT(4,NTOUT)+2+NE 01341000 + ANSKEN=ANSKEN+1 01342000 + 43 CONTINUE 01343000 + 42 CONTINUE 01344000 +C INDICI 01345000 + 450 CONTINUE 01346000 +C INDICE 01347000 + IND=IND+1 01348000 + IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX) 01349000 + CALL EMPIN(MINDX1,AINDX(1,IND),FLOAT(MAT),FLOAT(MF),FLOAT(MT),ZA,01350000 + 1AWR,FLOAT(NIS),T,ZAI,ABN,FLOAT(LFW),FLOAT(NER),0., 01351000 + 1FLOAT(LRF),EL,EH,SPI,AP,FLOAT(NLS),AJMX, 01352000 + 2FLOAT(MODE),FLOAT(NTENDF),FLOAT(NTE),FLOAT(NTOUT),FLOAT(NTO), 01353000 + 3FLOAT(NT(3,NTOUT)),1.,1.,FLOAT(I),FLOAT(II),1.,6 01354000 + 4.,0.,0.,0.,N(1),N(2),N(11),ANEMX,0.,AWRI) 01355000 + IND=IND+1 01356000 + IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX) 01357000 + CALL EMPIN(MINDX1,AINDX(1,IND),FLOAT(MAT),FLOAT(MF),FLOAT(MT), 01358000 + 1ZA,AWR,FLOAT(NIS),T,ZAI,ABN,FLOAT(LFW),FLOAT(NER),FLOAT(LRU), 01359000 + 2FLOAT(LRF),EL,EH,SPI,AP,FLOAT(NLS),AJMX,FLOAT(MODE),FLOAT(NTENDF),01360000 + 3FLOAT(NTE),FLOAT(NTOUT),FLOAT(NTO),FLOAT(NT(3,NTOUT)), 01361000 + 4FLOAT(NT(4,NTOUT)-1),ANSKEN,FLOAT(I),FLOAT(II),3.,5.,0.,0., 01362000 + 50.,N(1),N(2),N(15),ANEMX,0.,AWRI) 01363000 + GO TO 20 01364000 + 500 CONTINUE 01365000 +C R E S O L V E D 01366000 +C B W S L 01367000 + WRITE(NP,9040) MAT,N(1),N(2),I,II 01368000 + 9040 FORMAT(' RES : B. W. .MATERIAL:',I5,1X,2A4,' ISOTOPE:', 01369000 + 1 I3,' ENERGY RANGE:',I3) 01370000 +C 01371000 +C CONT 01372000 + CALL RREC(1,NTE,MODE,T) 01373000 + SPI=C1 01374000 + AP=C2 01375000 + NLS=N1 01376000 + CALL WREC(1,NTO,3) 01377000 + NT(4,NTOUT)=NT(4,NTOUT)+1 01378000 + ANSKEN=ANSKEN+1 01379000 + NRIS=0 01380000 + DO52 I2=1,NLS 01381000 +C LIST 01382000 + CALL RREC(2,NTE,MODE,T) 01383000 + NRS=N2 01384000 + NRIS=NRIS+NRS 01385000 + AWRI=C1 01386000 + CALL WREC(2,NTO,3) 01387000 + NT(4,NTOUT)=NT(4,NTOUT)+1+NRS 01388000 + ANSKEN=ANSKEN+1 01389000 + 52 CONTINUE 01390000 +C INDICE 01391000 + NX=0 01392000 + GO TO 650 01393000 + 600 CONTINUE 01394000 +C A A 01395000 + CALL RREC(1,NTE,MODE,T) 01396000 + SPI=C1 01397000 + AP=C2 01398000 + NLS=N1 01399000 + ANSKEN=1 01400000 + CALL WREC(1,NTO,3) 01401000 + NT(4,NTOUT)=NT(4,NTOUT)+1 01402000 +C LIST DEL BACKGROUND 01403000 + CALL RREC(2,NTO,3,T) 01404000 + LI=L1 01405000 + NX=N2 01406000 + AWRI=C1 01407000 + CALL WREC(2,NTO,MODE) 01408000 + NT(4,NTOUT)=NT(4,NTOUT)+1+NX 01409000 + ANSKEN=ANSKEN+1 01410000 + NRIS=1 01411000 + DO 62 I2=1,NLS 01412000 +C CONT 01413000 + CALL RREC(1,NTE,MODE,T) 01414000 + NT(4,NTOUT)=NT(4,NTOUT)+1 01415000 + ANSKEN=ANSKEN+1 01416000 + DO 64 I4=1,NJS 01417000 +C LIST FINALE 01418000 + CALL RREC(2,NTE,MODE,T) 01419000 + NLJ=N2 01420000 + CALL WREC(2,NTO,3) 01421000 + NT(4,NTOUT)=NT(4,NTOUT)+1+NLS*2 01422000 + NRIS=NRIS+NLJ 01423000 + 64 CONTINUE 01424000 + 62 CONTINUE 01425000 + GO TO 650 01426000 + 700 CONTINUE 01427000 +C 01428000 +C REICH -MOORE CONVERSION TO ADLER-ADLER FORMAAT 01429000 +C 01430000 + WRITE(NP,9050) MAT,I,II 01431000 + 9050 FORMAT(' RESOLVED RESONANCE: R-M TO A-A CONVERSION: MAT:',I5, 01432000 + 1 ' ISOTOPE:',I5,' ENERGY RANGE:',I5) 01433000 + WRITE(NP,9051) 01434000 + 9051 FORMAT(' WARNING !! THIS PART OF THE CODE HAS NOT BEEN TESTED!') 01435000 + CALL RREC(1,NTE,MODE,T) 01436000 + SPI=C1 01437000 + AP=C2 01438000 + NLS=N1 01439000 + CALL WREC(1,NTO,3) 01440000 + NT(4,NTOUT)=NT(4,NTOUT)+1 01441000 + ANSKEN=ANSKEN+1 01442000 + NRIS=0 01443000 + NRISL=0 01444000 + CALL DELETE(0) 01445000 + DO 70 I2=1,NLS 01446000 +C LIST 01447000 + CALL RREC(2,NTE,MODE,T) 01448000 +C NRISL=MAX NUM RISONANZE PER UN L 01449000 + IF(NRISL.LT.N2) NRISL=N2 01450000 + AWRI=C1 01451000 +C NEL SEGUITO CONTO I DIVERSI J PER OGNI L 01452000 +C LEGGO E METTO I RECORDS IN DENS 01453000 + NSPAZ(I2)=0 01454000 + AJ=500 01455000 + DO 71 I3=1,N2 01456000 + IF(AAA(6*(I3-1)+LB+1).EQ.AJ) GO TO 71 01457000 + AJ=AAA(6*(I3-1)+LB+1) 01458000 + NSPAZ(I2)=NSPAZ(I2)+1 01459000 + 71 CONTINUE 01460000 +C METTO IL LIST IN DENS 01461000 + CALL STORE(2,I2,LOF) 01462000 + IF(LOF.GT.0) CALL ERR(8HP1F2 ,71) 01463000 + 70 CONTINUE 01464000 +C FISSO GLI SPAZI PER PROGRAM POLLA 01465000 + LNLS=1 01466000 +C NUMERO J PER OGNI L 01467000 + LPAR=LNLS+NLS 01468000 +C PARAMETRI DI ADLER-ADLER PRODOTTI 01469000 + LTT=LNLS+NRISL*12 01470000 +C TT PER POLLA 01471000 + NC1=3 01472000 + NC=2 01473000 +C NC=NUMERO CANALI=2 IN ENDFB 01474000 + LER=NC1+LTT 01475000 +C ER: ENERGIE SPAZIO PER POLLA 01476000 + N2C=NRISL*4 01477000 +C N2C=SPAZIO =2 COMPLEX REAL*8 PER RISONANZA 01478000 + LEA=LER+N2C 01479000 +C EA=MI,NI DI A A PER POLLA 01480000 + LRT=LEA+N2C 01481000 +C RT= ALFA,BETA DI A A PER POLLA 01482000 + LRA=LRT+N2C 01483000 +C RA= SPAZIO PER POLLA 01484000 + LRF=LRA+N2C 01485000 +C RF= GF,HF DI AA PER POLLA 01486000 + LRC=LRF+N2C 01487000 +C RC= GC,HC DI AA PER POLLA 01488000 + LP=LRC+NRISL*NC1*NC1*2 01489000 +C P= SPAZIO PER POLLA 01490000 + LAP=LP+NC1*NC1*4*NRISL 01491000 +C A= SPAZIO PER POLLA 01492000 + LAB=LAP+NC1*NC1*4 01493000 +C B= SPAZIO PER POLLA 01494000 + LFIN=LAB+NC1*NC1*4 01495000 + IF(LFIN.GT.MAAA) CALL ERR(8HP1F2 ,700) 01496000 +C 01497000 +C RIPRENDE I RECORD DA DENSE LI TRATTA J PER J 01498000 +C GENERANDO UN LOOP SU J CHE AA HA E REICH-MOORE NO 01499000 +C 01500000 +C 01501000 + DUM=0. 01502000 + NDUM=0 01503000 +C SCRIVO PRIMO LIST DI AA 01504000 + LI=7 01505000 + LI7=42 01506000 + WRITE(NTO,1000) AWRI,DUM,LI,NDUM,LI7,LI,MAT,MF,MT 01507000 + 1000 FORMAT(2E11.4,4I11,I4,I2,I3) 01508000 + WRITE(NTO,2000) (DUM,J=1,LI7) 01509000 + 2000 FORMAT(6E11.4) 01510000 + NT(4,NTOUT)=NT(4,NTOUT)+1 01511000 + ANSKEN=ANSKEN+1 01512000 +C 01513000 +C LOOP SULLE L DI REICH MOORE 01514000 + DO 72 ILLL=1,NLS 01515000 + CALL FETCH(ILLL,LOF) 01516000 + IF(LOF.GT.0) CALL ERR(8HP1F2 , 70) 01517000 + NRS=N2 01518000 + L=L2 01519000 +C SCRIVE CONT DI AA DELL'L 01520000 + WRITE(NTO,1000) DUM,DUM,L,NDUM,NSPAZ(ILLL),NDUM 01521000 + NT(4,NTOUT)=NT(4,NTOUT)+1 01522000 + ANSKEN=ANSKEN+1 01523000 + AJ1=-500 01524000 + NRIS1=0 01525000 +C RESET POLLA 01526000 + CALL POLL0 01527000 +C LOOP ON RESONANCES OF L READ ( WRITTEN J BY J) 01528000 + DO 73 IR=1,NRS 01529000 + AJ=AAA(LB+(6*(IR-1))+1) 01530000 + 705 IF(AJ.NE.AJ1.AND.AJ1.GT.0) GO TO 710 01531000 + NRIS1=NRIS1+1 01532000 +C 01533000 +C DEFINES PARAMETERS FOR POLLA CODE 01534000 +C E0 01535000 + T3=AAA(LB+(6*(IR-1))) 01536000 +C G 01537000 + G=(2*AJ+1)/2./(2.*SPI+1.) 01538000 +C GG 01539000 + T4=AAA(LB+(6*(IR-1))+3) 01540000 +C GN ( AD E0 MICA RIDOTTA ??????) 01541000 + TT1=AAA(LB+6*(IR-1)+2) 01542000 +C GF1 01543000 + NSPAZ(LTT)=NAREAL(TT1) 01544000 + TT2=AAA(LB+(6*(IR-1))+4) 01545000 + NSPAZ(LTT+1)=NAREAL(TT2) 01546000 +C GF2 01547000 + TT3=AAA(LB+(6*(IR-1))+5) 01548000 + NSPAZ(LTT+2)=NAREAL(TT3) 01549000 +C 01550000 +C CALL POLLA 01551000 + CALL POLLA(STMP,NO,G,T3,T4,NSPAZ(LTT),NSPAZ(LER), 01552000 + 1 NSPAZ(LEA),NSPAZ(LRT), 01553000 + 2 NSPAZ(LRA),NSPAZ(LRF),NSPAZ(LRC),NSPAZ(LP),NSPAZ(LAP),NSPAZ(LAB))01554000 + GO TO 73 01555000 + 710 CONTINUE 01556000 +C QUI SE E' CAMBIATO J, ALLORA POLLA CALCOLA E SCRIVO I 01557000 +C DATI DEL J 01558000 + CALL POLL1(STMP,NO,G,T3,T4,NSPAZ(LTT),NSPAZ(LER), 01559000 + 1 NSPAZ(LEA),NSPAZ(LRT), 01560000 + 2 NSPAZ(LRA),NSPAZ(LRF),NSPAZ(LRC),NSPAZ(LP),NSPAZ(LAP),NSPAZ(LAB))01561000 +C 01562000 +C MI TRASFERISCO I PARAMETRI PRODOTTI PER SCRIVERLI IN 01563000 +C OUTPUT IN MODO ACCONCIO 01564000 + DO 75 IRR=1,NRIS1 01565000 + MU=NSPAZ(LEA+(IRR-1)*2) 01566000 + NU=NSPAZ(LEA+1+(IRR-1)*2) 01567000 +C !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!01568000 +C TO CONTROL: POLLA MANUAL PUT IN AA FORMULAE : SQRT(E) 01569000 +C ENDFB MANUAL PUT: PI*SQRT(E)/K**2 01570000 +C WITH CON K=2.196771*AWRI/(AWRI+1)*E-3 01571000 +C !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!01572000 +C PER LE NOTAZIONI E': ALFA,BETA=GT,HT DI ENDFB MANUAL 01573000 + NGT=NSPAZ(LRT+(IRR-1)*2) 01574000 + NHT=NSPAZ(LRT+(IRR-1)*2+1) 01575000 + NGF=NSPAZ(LRF+(IRR-1)*2) 01576000 + NHF=NSPAZ(LRF+(IRR-1)*2+1) 01577000 + NGC=NSPAZ(LRC+(IRR-1)*2) 01578000 + NHC=NSPAZ(LRC+(IRR-1)*2+1) 01579000 +C 01580000 + NSPAZ(LPAR+(IRR-1)*12)=MU 01581000 + NSPAZ(LPAR+(IRR-1)*12+1)=NU 01582000 + NSPAZ(LPAR+(IRR-1)*12+2)=NGT 01583000 + NSPAZ(LPAR+(IRR-1)*12+3)=NHT 01584000 + NSPAZ(LPAR+(IRR-1)*12+4)=MU 01585000 + NSPAZ(LPAR+(IRR-1)*12+5)=NU 01586000 + NSPAZ(LPAR+(IRR-1)*12+6)=NGF 01587000 + NSPAZ(LPAR+(IRR-1)*12+7)=NHF 01588000 + NSPAZ(LPAR+(IRR-1)*12+8)=MU 01589000 + NSPAZ(LPAR+(IRR-1)*12+9)=NU 01590000 + NSPAZ(LPAR+(IRR-1)*12+10)=NGC 01591000 + NSPAZ(LPAR+(IRR-1)*12+11)=NHC 01592000 + 75 CONTINUE 01593000 + N12=NRIS1*12 01594000 + WRITE(NTO,1000) AJ,DUM,NDUM,NDUM,N12,NRIS1 01595000 + WRITE(NTO,2000)((NSPAZ(LPAR+(J1-1)*12+J-1),J=1,12),J1=1,NRIS1) 01596000 + NT(4,NTOUT)=NT(4,NTOUT)+1+NRIS1*2 01597000 + ANSKEN=ANSKEN+1+NRIS1*2 01598000 + AJ1=AJ 01599000 + NRIS1=0 01600000 + CALL POLL0 01601000 + GO TO 705 01602000 + 73 CONTINUE 01603000 + 72 CONTINUE 01604000 +C 01605000 +C INDICE 01606000 +C 01607000 + 650 CONTINUE 01608000 +C INDICE 01609000 + IND=IND+1 01610000 + IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX) 01611000 + CALL EMPIN(MINDX1,AINDX(1,IND),FLOAT(MAT),FLOAT(MF),FLOAT(MT),ZA,01612000 + 1AWR,FLOAT(NIS),T,ZAI,ABN,FLOAT(LFW),FLOAT(NER),0., 01613000 + 1FLOAT(LRF),EL,EH,SPI,AP,FLOAT(NLS),0., 01614000 + 2FLOAT(MODE),FLOAT(NTENDF),FLOAT(NTE),FLOAT(NTOUT),FLOAT(NTO), 01615000 + 3FLOAT(NT(3,NTOUT)),1.,1.,FLOAT(I),FLOAT(II),1., 01616000 + 46.,0.,0.,0.,N(1),N(2),N(15),0.,0.,AWRI) 01617000 +C INDICE 01618000 + IND=IND+1 01619000 + IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX) 01620000 + CALL EMPIN(MINDX1,AINDX(1,IND),FLOAT(MAT),FLOAT(MF),FLOAT(MT), 01621000 + 1ZA,AWR,FLOAT(NIS),T,ZAI,ABN,FLOAT(LFW),FLOAT(NER),FLOAT(LRU), 01622000 + 2FLOAT(LRF),EL,EH,SPI,AP,FLOAT(NLS),0.,FLOAT(MODE), 01623000 + 3FLOAT(NTENDF),FLOAT(NTE),FLOAT(NTOUT),FLOAT(NTO),FLOAT(NT(3,NTOUT)01624000 + 4),FLOAT(NT(4,NTOUT)-1),ANSKEN,FLOAT(I),FLOAT(II),4.,5.,0.,0.,0., 01625000 + 5N(1),N(2),N(15),FLOAT(NRIS),FLOAT(NX),AWRI) 01626000 + 20 CONTINUE 01627000 +C FINE LOOP SU RANGE E 01628000 + 10 CONTINUE 01629000 +C FINE LOOP SU ISOTOPI 01630000 +C SEND RECORD 01631000 + NTST=NCONT(STMP,NO,NTE,MODE,MAT,MF,0) 01632000 + IF(NTST.NE.0) CALL ERR(8H P1F2 ,10) 01633000 +C IL SEND 01634000 +C 01635000 +C METTO IL SEND SUL FILE DI OUTPUT 01636000 + CALL WREC(1,NTO,3) 01637000 +C 01638000 + NT(4,NTOUT)=NT(4,NTOUT)+1 01639000 + NT(3,NTOUT)=NT(4,NTOUT) 01640000 + RETURN 01641000 + END 01642000 + SUBROUTINE POLLA(STMP,NO,G,T3,T4,TT,ER,EA,RT,RA,RF,RC,P,A,B) 01643000 +C ************************************************************* 01644000 +C PROGRAM POLLA TO CONVERT REICH MOORE FORMAT TO ADLER ADLER 01645000 +C G.DE SAUSSURE AND R.B. PEREZ 01646000 +C DESCRIBED IN ORNL-TM-2599 (JUNE 1969) 01647000 +C 01648000 +C MODIFIED BY MARCELLO GALLI - APRIL 1985 01649000 +C TO BE USED AS A ROUTINE FOR TESEO CODE 01650000 +C 01651000 +C *************************************************************** 01652000 + IMPLICIT REAL * 8 (A-H,O-Z) 01653000 + REAL*4 STMP,T3,T4,TT(3),T 01654000 + REAL * 8 NA(1),N0(1),LEGEND 01655000 + COMPLEX *16 Z,ZM,ZN,Z1,Z2,Z3,Z4,ZS,ZT,A,B,ER,EA,RT,RA,RF,RC,CI,CM01656000 + DIMENSION A(15),B(15),P(1500) 01657000 + DIMENSION ER(100),EA(100),RT(100),RA(100),RF(100),RC(100) 01658000 +C DATA NA/5H(9A8)/, N0/8H(9A8,I8)/ 01659000 + DATA NR/0/,K/0/ 01660000 + DATA RM/.5D0/,CI/(0.D0,1.D0)/,CM/(0.D0,.5D0)/ 01661000 + DATA NC/3/,T1/1.D-70/, T2/1.D-10/, RR/2608000.D0/ 01662000 +C TWO CHANNELS, NC=NUMBER OF CHANNELS+1=3 01663000 +C1 READ N0,LEGEND,I 01664000 +C PRINT NA,LEGEND 01665000 +C IF(I)1,2,3 01666000 +C2 READ 1008,G,NC,IK 01667000 + IF(STMP.GT.10) WRITE(NO,1001) G,NC 01668000 +C NC=NC+1 01669000 +C3 K=0 01670000 +C NR=K 01671000 + R=RR*G 01672000 + IF(STMP.GT.11) WRITE(NO,1002) 01673000 +C4 READ 1005 ,T3,T4,(TT(I),I=1,NC) 01674000 +C IF(T4)5,8,5 01675000 +C5 PRINT 1006 ,T3,T4,(TT(I),I=1,NC) 01676000 + IF(STMP.GT.11.) WRITE(NO,1006) T3,T4,(TT(I),I=1,3) 01677000 + NR=NR+1 01678000 + EA(NR)=T3-CM*T4 01679000 + ER(NR)=EA(NR) 01680000 + DO 6 I=1,NC 01681000 + T=TT(I) 01682000 + T4=ABS(T) 01683000 + EA(NR)=EA(NR)-CM*T4 01684000 + T3=SQRT(T4) 01685000 + 6 TT(I)=SIGN(T3,T) 01686000 + DO 7 I=1,NC 01687000 + DO 7 J=I,NC 01688000 + K=K+1 01689000 + 7 P(K)=TT(I)*TT(J)*RM 01690000 +C GO TO 4 01691000 + RETURN 01692000 + ENTRY POLL1(STMP,NO,G,T3,T4,TT,ER,EA,RT,RA,RF,RC,P,A,B) 01693000 +C COMPUTE POLES 01694000 + 8 DO 19 M=1,NR 01695000 + ZM=EA(M) 01696000 + Z=ZM 01697000 + 9 LC=0 01698000 + Z3=RM/ZM 01699000 + ZT=Z 01700000 + K=1 01701000 + DO 11 I=1,NC 01702000 + DO 11 J=I,NC 01703000 + LC=LC+1 01704000 + B(LC)=0. 01705000 + A(LC)=B(LC) 01706000 + IF(I-J)11,10,11 01707000 + 10 A(LC)=1. 01708000 + 11 CONTINUE 01709000 + A(1)=1./CDSQRT(ZM) 01710000 + B(1)=-Z3*A(1) 01711000 + ZS=0. 01712000 + Z4=ZS 01713000 + DO 14 N=1,NR 01714000 + IF(N-M)12,13,13 01715000 + 12 ZS=ZS-1./(DCONJG(EA(N))-ZM) 01716000 + 13 Z2=1./(ER(N)-ZM) 01717000 + ZS=ZS+Z2 01718000 + Z1=-CI*Z2 01719000 + Z2=Z1*Z2 01720000 + DO 14 L=1,LC 01721000 + A(L)=A(L)+Z1*P(K) 01722000 + B(L)=B(L)+Z2*P(K) 01723000 + 14 K=K+1 01724000 + L=0 01725000 + Z=T1 01726000 + CALL SR(A,NC,Z) 01727000 + T=Z*DCONJG(Z) 01728000 + IF(T)15,19,15 01729000 + 15 DO 17 I=1,NC 01730000 + DO 17 J=I,NC 01731000 + L=L+1 01732000 + IF(I-J)16,17,16 01733000 + 16 Z3=Z3+A(L)*B(L) 01734000 + 17 Z3=Z3+A(L)*B(L) 01735000 + Z=1./(ZS-Z3) 01736000 + ZM=ZM+Z 01737000 + 18 Z1=(ZT-Z)/ZM 01738000 + T=Z1*DCONJG(Z1) 01739000 + IF(T-T2)19,9,9 01740000 + 19 EA(M)=DCONJG(ZM) 01741000 +C PRINT 1004 01742000 + IF(STMP.GT.11.) WRITE(NO,1004) 01743000 +C COMPUTE RESIDUES 01744000 + 20 DO 27 M=1,NR 01745000 + L=1 01746000 + K=L 01747000 + ZM=0. 01748000 + ZS=1. 01749000 + DO 22 I=1,NC 01750000 + DO 22 J=I,NC 01751000 + B(L)=ZM 01752000 + A(L)=B(L) 01753000 + IF(I-J)22,21,22 01754000 + 21 B(L)=ZS 01755000 + A(L)=B(L) 01756000 + 22 L=L+1 01757000 + Z4=EA(M) 01758000 + Z3=DCONJG(Z4) 01759000 + ZT=ZS/(Z3-Z4) 01760000 + A(1)=A(1)+1./CDSQRT(Z3) 01761000 + B(1)=DCONJG(A(1)) 01762000 + DO 25 N=1,NR 01763000 + ZN=ER(N) 01764000 + Z=ZN-Z3 01765000 + Z1=-CI/Z 01766000 + ZS=ZS*Z 01767000 + Z=ZN-Z4 01768000 + Z2=-CI/Z 01769000 + ZT=ZT*Z 01770000 + DO 23 L=2,LC 01771000 + K=K+1 01772000 + A(L)=A(L)+Z1*P(K) 01773000 + 23 B(L)=B(L)+Z2*P(K) 01774000 + IF(N-M)24,25,24 01775000 + 24 Z=DCONJG(EA(N)) 01776000 + ZS=ZS/(Z-Z3) 01777000 + ZT=ZT/(Z-Z4) 01778000 + 25 K=K+1 01779000 + Z2=0. 01780000 + Z1=Z2 01781000 + CALL SR(A,NC,Z1) 01782000 + CALL SR(B,NC,Z2) 01783000 + Z4=Z1*DCONJG(Z2) 01784000 + Z1=Z1*A(1) 01785000 + Z2=Z2*B(1) 01786000 + DO 26 I=2,NC 01787000 + 26 ZM=ZM+Z4*A(I)*DCONJG(B(I)) 01788000 + ZT=DCONJG(ZT) 01789000 + ZS=CI*R*ZS 01790000 + Z3=1./CDSQRT(Z3) 01791000 + RF(M)=(ZS+ZS)*ZT*ZM 01792000 + RT(M)=-ZS*Z1*Z3 01793000 + RA(M)=(RT(M)+RT(M))*(ZT*DCONJG(Z2)-RM) 01794000 + 27 RC(M)=RA(M)-RF(M) 01795000 + 28 IF(STMP.GT.11.)WRITE(NO,1003)(EA(M),RT(M),RF(M),RC(M),M=1,NR) 01796000 +C IF(IK)30,1,29 01797000 +C29 PUNCH 1007,(EA(M),RT(M),RF(M),RC(M),M=1,NR) 01798000 +C IK=IK-2 01799000 +C IF(IK)30,1,29 01800000 + 1001 FORMAT(12H0SPIN FACTOR,F6.3,I6,17H FISSION CHANNELS) 01801000 + 1002 FORMAT(29H0INPUT REICH-MOORE PARAMETERS// 01802000 + 19X,2HE0,14X,2HGG,10X,7HGNO(MV),10X,3HGF1,11X,3HGF2, 01803000 + 212X,3HGF3,11X,3HGF4//) 01804000 + 1003 FORMAT(10X,2HMU,12X,2HNU,12X,5HALPHA,10X,4HBETA,8X,9HG-FISSION,7X,01805000 + 19HH-FISSION,6X,9HG-CAPTURE,6X,9HH-CAPTURE///(4 (F15.3,F14.3))) 01806000 + 1004 FORMAT(30H0OUTPUT ADLER-ADLER PARAMETERS//) 01807000 +C1005 FORMAT(2F10.3,3PF10.3, 4F10.3) 01808000 + 1006 FORMAT(F15.3,F14.3,3PF15.3,2(F14.3,F15.3)) 01809000 + 1007 FORMAT(4 (F10.3,F10.3)) 01810000 + 1008 FORMAT(F8.3,2I8) 01811000 +C30 CALL EXIT 01812000 + RETURN 01813000 + ENTRY POLL0 01814000 +C RESET POLLA ROUTINE 01815000 + NR=0 01816000 + RETURN 01817000 + END 01818000 + SUBROUTINE SR(F,N,B) 01819000 +C ******************************************* 01820000 +C SUBROUTINE SR IS PART OF POLLA CODE 01821000 +C **************************************** 01822000 + DIMENSION F(15) 01823000 + COMPLEX *16 C0,C1,F,A,T,D,B 01824000 + DATA C0/(0.D0,0.D0)/,C1/(1.D0,0.D0)/ 01825000 + TS=B 01826000 + B=1. 01827000 + IF(N-1)1,2,3 01828000 + 1 PRINT 99 01829000 + 99 FORMAT (3H SP) 01830000 + CALL ERR(8HSRPOLLA ,99) 01831000 + 2 B=F(1) 01832000 + F(1)=C1/B 01833000 + RETURN 01834000 + 3 K=1 01835000 + DO10M=1,N 01836000 + M1=M-1 01837000 + DO10L=M,N 01838000 + A=C0 01839000 + IF(M1)6,6,4 01840000 + 4 KL=L 01841000 + KM=M 01842000 + DO5LM=1,M1 01843000 + A=A+F(KL)*F(KM) 01844000 + J=N-LM 01845000 + KL=KL+J 01846000 + 5 KM=KM+J 01847000 + 6 T=F(K)-A 01848000 + IF(L-M)7,7,9 01849000 + 7 D=CDSQRT(T) 01850000 + F(K)=D 01851000 + B=B*T 01852000 + TT=D*DCONJG(D)-TS 01853000 + IF(TT)8,10,10 01854000 + 8 B=0. 01855000 + RETURN 01856000 + 9 F(K)=T/D 01857000 + 10 K=K+1 01858000 + K=1 01859000 + F(K)=C1/F(K) 01860000 + DO12L=2,N 01861000 + K=K+2+N-L 01862000 + T=C1/F(K) 01863000 + F(K)=T 01864000 + L1=L-1 01865000 + KL=L 01866000 + KM=0 01867000 + DO12M=1,L1 01868000 + LK=KL 01869000 + A=C0 01870000 + DO 11 LM=M,L1 01871000 + II=KM+LM 01872000 + A=A-F(KL)*F(II) 01873000 + 11 KL=KL+N-LM 01874000 + F(LK)=A*T 01875000 + J=N-M 01876000 + KL=LK+J 01877000 + 12 KM=KM+J 01878000 + K=1 01879000 + DO14M=1,N 01880000 + KL=K 01881000 + DO14L=M,N 01882000 + KM=K 01883000 + A=C0 01884000 + I1=N-L+1 01885000 + DO13LM=1,I1 01886000 + A=A+F(KL)*F(KM) 01887000 + KL=KL+1 01888000 + 13 KM=KM+1 01889000 + F(K)=A 01890000 + 14 K=K+1 01891000 + RETURN 01892000 + END 01893000 + SUBROUTINE P1F3(MMM,N,MAAA,SPAZ) 01894000 +C *********************************** 01895000 +C 01896000 +C READS FILE 3 OF ENDFB 01897000 +C SIGMA SMOOTH - PART 1 01898000 +C 01899000 +C ********************************** 01900000 + DIMENSION N(MMM) 01901000 + DATA T/0.0 / 01902000 +C 01903000 + COMMON/FILES/NT(4,99) 01904000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 01905000 +C 01906000 + COMMON/OPZIO/ OPZ(4,8,10) 01907000 + EQUIVALENCE(OPZ(1,3,1),STMP) 01908000 +C 01909000 + COMMON/DIM/M(5) 01910000 + EQUIVALENCE(M(2),IND) 01911000 +C 01912000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 01913000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 01914000 +C 01915000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200), 01916000 + 1 JNT(200),N1X,N2X,NS,LX,LY,LB 01917000 + COMMON/DENS/JMT,JAT,JTT,JLT,LA,JNS,MNS,JX,MX 01918000 +C 01919000 + COMMON /INDX/AINDX(40,200) 01920000 +C 01921000 +C 01922000 + MODE=N(4) 01923000 + NTENDF=N(3) 01924000 + NTOUT=N(5) 01925000 + NTE=NT(1,NTENDF) 01926000 +C 01927000 +C K5 E K6 INDICANO LA DESTINAZIONE DEI DATI NELLINDICE 01928000 + K5=0 01929000 + K6=0 01930000 +C SELEZIONA MT DI INTERESSE 01931000 +C MT=3 NON SERVE 01932000 + IF(MT.EQ.3) GO TO 100 01933000 + IF(MT.GE.1.AND.MT.LE.4) K5=5 01934000 +C TOT,EL,ANEL,SCATT ANEL(=SUM 51:91) 01935000 + IF(MT.EQ.16.OR.MT.EQ.18) K5=5 01936000 +C N2N DIRETTA , FISS 01937000 + IF(MT.GE.101.AND.MT.LE.107) K5=5 01938000 +C 101=CATT TOT=SUM OF 102:109 PLUS 111:114 01939000 +C N GAM , N P , N D , N T , N HE3, N ALFA 01940000 + IF(MT.EQ.4.OR.MT.EQ.16) K6=6 01941000 +C ANEL , N2N 01942000 + IF(MT.GE.51.AND.MT.LE.90) K6=6 01943000 +C ANEL DAL LIVELLO 1,2,... 40 ( O N 2N PER LR=16 MA QUESTA RAPPR. 01944000 +C CREDO NON SIA USATA) 01945000 + IF(MT.GE.6.AND.MT.LE.9) K6=6 01946000 + IF(MT.GE.6.AND.MT.LE.9) K5=5 01947000 +C N2N PRIMO NEUT DAI PRIMI LIVELLI 01948000 + IF(MT.GE.46.AND.MT.LE.49) K6=6 01949000 +C N 2N SECONDO NEUT DAI PRIMI LIVELLI 01950000 +C 01951000 +C 01952000 + IF(K5.GT.0.OR.K6.GT.0) GO TO 200 01953000 +C NON E MT DI INTERESSE SE ARRIVA QUI 01954000 + 100 CALL SKIPS(MODE,NTE,1,STMP,NO) 01955000 + RETURN 01956000 + 200 CONTINUE 01957000 +C 01958000 + WRITE(NP,9010) MAT,N(1),N(2),MT 01959000 + 9010 FORMAT(' CROSS SECTIONS. MATERIAL:',I5,1X,2A4,' REACTION:',I5) 01960000 +C 01961000 + IF(NTOUT.LE.0) NTOUT=23 01962000 + CALL POSL(NTOUT) 01963000 + NTO=NT(1,NTOUT) 01964000 + AMAT=MAT 01965000 + AMF=MF 01966000 + AMT=MT 01967000 + ZA=C1 01968000 + AWR=C2 01969000 + ALIS=L1 01970000 + ALFS=L2 01971000 +C 1: HEAD 01972000 + CALL WREC(1,NTO,3) 01973000 +C TAB1 COLLE SIGMA 01974000 + CALL RREC(3,NTE,MODE,T) 01975000 + S=C1 01976000 + Q=C2 01977000 + ALT=L1 01978000 + ALR=L2 01979000 + ANR=N1 01980000 + ANPP=N2 01981000 +C CALCOLO SCHEDE SCRITTE 01982000 + ANSK=3+N1/3+NREST(N1,3)+N2/3+NREST(N2,3) 01983000 + CALL WREC(3,NTO,3) 01984000 +C ULTIMO SEND 01985000 +C SEND RECORD 01986000 + NTST=NCONT(STMP,NO,NTE,MODE,MAT,MF,0) 01987000 + IF(NTST.NE.0) CALL ERR(8H P1F3 ,222) 01988000 +C IL SEND 01989000 +C 01990000 +C METTO IL SEND SUL FILE DI OUTPUT 01991000 + CALL WREC(1,NTO,3) 01992000 +C 01993000 + IF(K5.NE.5) GO TO 300 01994000 +C INDICE DESTINAZIONE F5 01995000 +C REAZIONI MT=102-107,1-4,18=NGAM,NP,NT,NHE3,NALF,FISS 01996000 +C 01997000 + IND=IND+1 01998000 + IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX) 01999000 + CALL EMPIN(MINDX1,AINDX(1,IND),AMAT,AMF,AMT,ZA,AWR, 02000000 + 1 0.,T,Q,0.,ALIS,ALFS,ALT,ALR, 02001000 + 2 ANR,ANPP,S,Q,0.,0., 02002000 + 3FLOAT(MODE),FLOAT(NTENDF),FLOAT(NTE),FLOAT(NTOUT),FLOAT(NTO), 02003000 + 4FLOAT(NT(3,NTOUT)),ANSK,3.,0.,0., 02004000 + 55.,0.,0.,0.,0.,N(1),N(2),N(11),0.,0.,0.) 02005000 + 300 IF(K6.NE.6) GO TO 400 02006000 + ANREC=2. 02007000 + IF(AMT.EQ.4..OR.AMT.EQ.16.) ANREC=1. 02008000 +C ANREC=2 PER DATI DI LIVELLO 02009000 +C ANREC=1 PER SIGMA 02010000 + ANWD=2. 02011000 + IF(AMT.EQ.4..OR.(AMT.GE.51..AND.AMT.LE.91..AND.LR.NE.16.))ANWD=1. 02012000 +C ANWD= 1 PER ELASTICA 02013000 +C = 2 PER N,2N 02014000 +C =3 PER MI 02015000 +C 02016000 + IND=IND+1 02017000 + IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX) 02018000 + CALL EMPIN(MINDX1,AINDX(1,IND),AMAT,AMF,AMT,ZA,AWR, 02019000 + 10.,T,Q,0.,ALIS,ALFS,ALT,ALR, 02020000 + 2ANR,ANPP,S,Q,0.,0., 02021000 + 3FLOAT(MODE),FLOAT(NTENDF),FLOAT(NTE),FLOAT(NTOUT),FLOAT(NTO), 02022000 + 4FLOAT(NT(3,NTOUT)),ANSK,3.,0.,0., 02023000 + 56.,ANREC,ANWD,0.,0.,N(1),N(2),N(15),0.,0.,0.) 02024000 + 400 IF(AMT.NE.18..AND.AMT.NE.102.) GO TO 600 02025000 +C Q PER FISS E CATT 02026000 + WD=5. 02027000 + IF(AMT.EQ.18.) WD=10. 02028000 + IND=IND+1 02029000 + IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX) 02030000 + CALL EMPIN(MINDX1,AINDX(1,IND),AMAT,AMF,AMT,ZA,AWR, 02031000 + 1 0.,T,Q,0.,ALIS,ALFS,ALT,ALR, 02032000 + 2 ANR,ANPP,S,Q,0.,0., 02033000 + 3FLOAT(MODE),FLOAT(NTENDF),FLOAT(NTE),0.,0., 02034000 + 4FLOAT(NT(3,NTOUT)),ANSK,3.,0.,0., 02035000 + 51.,3.,WD,0.,0.,N(1),N(2),N(15),0.,0.,0.) 02036000 + 600 CONTINUE 02037000 + NT(3,NTOUT)=NT(3,NTOUT)+ANSK 02038000 + NT(4,NTOUT)=NT(3,NTOUT) 02039000 + RETURN 02040000 + END 02041000 + SUBROUTINE P1F4(MMM,N,MAAA,SPAZ) 02042000 +C ********************************* 02043000 +C 02044000 +C READ ENDFB FILE 4 02045000 +C ANGOLAR DISTRIBUTIONS - PARTE 1 02046000 +C 02047000 +C HEAD RECORD IS IN /RECS/ , IN N THE INPUT TABLE CARD OF THE TAPE 02048000 +C 02049000 +C ******************************** 02050000 + DIMENSION N(MMM) 02051000 +C 02052000 + COMMON/FILES/NT(4,99) 02053000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 02054000 +C 02055000 + COMMON/OPZIO/ OPZ(4,8,10) 02056000 + EQUIVALENCE(OPZ(1,4,1),STMP) 02057000 +C 02058000 + COMMON/DIM/M(5) 02059000 + EQUIVALENCE(M(2),IND) 02060000 +C 02061000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 02062000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 02063000 +C 02064000 + DATA T/0.0/ 02065000 +C 02066000 + COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 02067000 + 1N1X,N2X,NS,LX,LY,LB 02068000 +C 02069000 + COMMON/INDX/AINDX(40,200) 02070000 +C 02071000 +C 02072000 + MODE=N(4) 02073000 + NTENDF=N(3) 02074000 + NTOUT=N(5) 02075000 + NTE=NT(1,NTENDF) 02076000 +C 02077000 +C SOLO SCATTERING ELASTICO (MT=2) E LIVELLI ANEL(MT=51:90) 02078000 + IF(MT.GE.51.AND.MT.LE.90) GOTO110 02079000 + IF(MT.EQ.2) GO TO 110 02080000 + CALL SKIPS(MODE,NTE,1,STMP,NO) 02081000 + RETURN 02082000 + 110 CONTINUE 02083000 +C 02084000 + WRITE(NP,9010) MAT,N(1),N(2),MT 02085000 + 9010 FORMAT(' ANGOLAR DISTRIBUTIONS. MATERIAL:',I5, 02086000 + 1 1X,2A4,' REACTION:',I5) 02087000 +C 02088000 + IF(NTOUT.LE.0) NTOUT=24 02089000 + CALL POSL(NTOUT) 02090000 + NTO=NT(1,NTOUT) 02091000 +C RECORD 1 : HEAD (GIA' E' IN RECS ) 02092000 + AMAT=MAT 02093000 + AMF=MF 02094000 + AMT=MT 02095000 + ZA=C1 02096000 + AWR=C2 02097000 + LVT=L1 02098000 + LTT=L2 02099000 + CALL WREC(1,NTO,3) 02100000 + ANSK=1. 02101000 + NRE=1 02102000 +C RECORD 2: LIST PER LEGENDRE CON LVT=1,CONT PER LVT=0 02103000 +C LVT=1 : DATA MATRICE U 02104000 +C LVT=0 : NON DATRA MATRICE U 02105000 +C 02106000 +C SE E UN CONT 02107000 + NTIP2=1 02108000 +C SE E UN LIST 02109000 + IF(LVT.EQ.1) NTIP2=2 02110000 + CALL RREC(NTIP2,NTE,MODE,T) 02111000 + LI=L1 02112000 + LCT=L2 02113000 + NK=N1 02114000 + NM=N2 02115000 + CALL WREC(NTIP2,NTO,3) 02116000 + ANSK=ANSK+1+NK/6+NREST(NK,6) 02117000 + NRE=NRE+1 02118000 +C NK E ZERO SE E UN CONT 02119000 + IF(LTT.EQ.0) GO TO 100 02120000 +C VA A INDICE SE E ISOTROPO 02121000 +C 02122000 +C TERZO RECORD (TAB2) 02123000 + CALL RREC(4,NTE,MODE,T) 02124000 + NR=N1 02125000 + NE=N2 02126000 + CALL WREC(4,NTO,3) 02127000 + ANSK=ANSK+NR/3+NREST(NR,3)+1 02128000 + NRE=NRE+1 02129000 + NTIP2=2 02130000 + IF(LTT.EQ.2) NTIP2=3 02131000 + AMAXPL=0. 02132000 + AMAXPT=0. 02133000 + DO 10 I=1,NE 02134000 +C RECORD 5 ( TAB1 PER LTT=2, LIST PER LTT=1 ) 02135000 + CALL RREC(NTIP2,NTE,MODE,T) 02136000 + IF(NTIP2.EQ.2) ANSK=ANSK+1+N1/6+NREST(N1,6) 02137000 + IF(NTIP2.EQ.3)ANSK=ANSK+1+N1/3+NREST(N1,3)+N2/3+NREST(N2,3) 02138000 + NRE=NRE+1 02139000 + IF(AMAXPL.LT.N1) AMAXPL=N1 02140000 + IF(AMAXPT.LT.N2) AMAXPT=N2 02141000 + CALL WREC(NTIP2,NTO,3) 02142000 + 10 CONTINUE 02143000 + 100 CONTINUE 02144000 + IF(NCONT(STMP,NO,NTE,MODE,MAT,4,0).GT.0)CALL ERR(8HP1F4 ,100) 02145000 +C 02146000 +C METTO IL SEND SUL FILE DI OUTPUT 02147000 + CALL WREC(1,NTO,3) 02148000 + ANSK=ANSK+1 02149000 + NRE=NRE+1 02150000 +C 02151000 + DEST=8. 02152000 + DEST1=4. 02153000 + DEST2=0. 02154000 + IF(AMT.EQ.2.) GO TO 200 02155000 +C SCATT LIVELLI DISCRETI MT=51:90 02156000 + DEST=6. 02157000 + DEST1=2. 02158000 + DEST2=3. 02159000 + 200 CONTINUE 02160000 +C 02161000 +C 02162000 +C INDICE 02163000 + IND=IND+1 02164000 + IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX) 02165000 + CALL EMPIN(MINDX1,AINDX(1,IND),AMAT,AMF,AMT, 02166000 + 1ZA,AWR,0.,T,0.,0.,FLOAT(LVT),FLOAT(LTT),FLOAT(LI),FLOAT(LCT), 02167000 + 2FLOAT(NK),FLOAT(NM),FLOAT(NR),FLOAT(NE),AMAXPL,AMAXPT,FLOAT(MODE),02168000 + 3FLOAT(NTENDF),FLOAT(NTE),FLOAT(NTOUT),FLOAT(NTO),FLOAT(NT(3,NTOUT)02169000 + 4),ANSK,FLOAT(NRE),0.,0.,DEST,DEST1,DEST2,0.,0.,N(1),N(2), 02170000 + 5N(11),0.,0.,0.) 02171000 + NT(3,NTOUT)=NT(3,NTOUT)+ANSK 02172000 + NT(4,NTOUT)=NT(3,NTOUT) 02173000 +C 02174000 + RETURN 02175000 + END 02176000 + SUBROUTINE P1F5(MMM,N,MAAA,SPAZ) 02177000 +C ****************************** 02178000 +C 02179000 +C READS ENDFB FILE 5 02180000 +C SECONDARY ENERGY DISTRIBUTION: PART 1 02181000 +C 02182000 +C CONVERT FISSION SPECTRUM FOR ANEL,N2N (LF=7,MT=16,91) 02183000 +C IN TABULATED DATA ( LF=1 ) 02184000 +C 02185000 +C ******************************* 02186000 + EXTERNAL FISS1 02187000 + DIMENSION N(MMM),SPAZ(MAAA),TEMP(2) 02188000 +C 02189000 + COMMON/FILES/NT(4,99) 02190000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 02191000 +C 02192000 + COMMON/OPZIO/ OPZ(4,8,10) 02193000 + EQUIVALENCE(STMP,OPZ(1,5,1)),(EUP,OPZ(2,5,2)),(DELU,OPZ(2,5,3)) 02194000 +C 02195000 + COMMON/DIM/M(5) 02196000 + EQUIVALENCE(M(2),IND) 02197000 +C 02198000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 02199000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 02200000 +C 02201000 + COMMON MAXA,AD(1) 02202000 + COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 02203000 + 1N1X,N2X,NS,LX,LY,LB 02204000 +C 02205000 + COMMON /INDX/AINDX(40,200) 02206000 +C 02207000 + DATA T/0.0/ 02208000 +C 02209000 + IF(EUP.LE.0.) EUP=1.4190675E+7 02210000 + IF(DELU.LE.0.) DELU=1./120. 02211000 + NG=OPZ(2,5,4) 02212000 + IF(NG.LE.0) NG=2083 02213000 + EINF=EUP*EXP(-NG*DELU) 02214000 + MODE=N(4) 02215000 + NTENDF=N(3) 02216000 + NTOUT=N(5) 02217000 + NTE=NT(1,NTENDF) 02218000 +C 02219000 +C TEST SUI MT CHE AMMETTE 02220000 + IF(MT.EQ.91.OR.MT.EQ.16.OR.MT.EQ.18) GOTO 111 02221000 +C MT=91 ANEL PER F6 ( PARTE CONTINUO SOPRA I LIVELLI) 02222000 +C MT=16 N,2N PER F6 ( N,2N DIRETTA 02223000 +C MT=18 CHI PER F7 02224000 +C 02225000 +C ALTRE SECTION NON VENGONO LETTE MA SALTATE 02226000 + CALL SKIPS(MODE,NTE,1,STMP,NO) 02227000 + RETURN 02228000 + 111 CONTINUE 02229000 +C 02230000 + WRITE(NP,9010) MAT,N(1),N(2),MT 02231000 + 9010 FORMAT(' ENERGY DISTRIBUTIONS. MATERIAL:',I5,1X,2A4, 02232000 + 1 ' REACTION:',I5) 02233000 +C 02234000 +C 02235000 + IF(NTOUT.LE.0) NTOUT=25 02236000 + CALL POSL(NTOUT) 02237000 + NTO=NT(1,NTOUT) 02238000 +C RECORD 1 : HEAD GIA' IN /RECS/ 02239000 + AMAT=MAT 02240000 + AMF=MF 02241000 + AMT=MT 02242000 + ZA=C1 02243000 + AWR=C2 02244000 + NK=N1 02245000 + CALL WREC(1,NTO,3) 02246000 + NT(3,NTOUT)=NT(3,NTOUT)+1 02247000 +C PUNTO AL TAB1 DOPO IL HEAD 02248000 + ANSK=0. 02249000 + NRE=0 02250000 +C ..................LOOP SULLE VARIE LEGGI 02251000 + DO 10 I=1,NK 02252000 +C REC 1 : TAB1 02253000 + CALL RREC(3,NTE,MODE,T) 02254000 + U=C1 02255000 + LT=L1 02256000 + LF=L2 02257000 + NRE=NRE+1 02258000 + ANSK=ANSK+N1/3+NREST(N1,3)+1+N2/3+NREST(N2,3) 02259000 +C -------------- VERRA CONVERTITO LF=7 IN LF=1 PER MT=16,91 02260000 + IF(LF.EQ.7.AND.MT.NE.18) L2=1 02261000 +C 02262000 + CALL WREC(3,NTO,3) 02263000 +C LF PARAMETRO DI ENDFB= 1 PER TAB, 7 PER CHI, 9 PER EVAPORAT02264000 + GO TO (100,550,550,400,550,550,200,550,200,550,400),LF 02265000 + CALL ERR(8HP1F5 ,0) 02266000 + CALL SKIPS(MODE,NTE,1,STMP,NO) 02267000 + NT(3,NTOUT)=NT(3,NTOUT)+ANSK 02268000 + GO TO 150 02269000 +C 02270000 + 100 CONTINUE 02271000 +C TABULATE LF=1 02272000 +C LEGGE TAB2 02273000 + CALL RREC(4,NTE,MODE,T) 02274000 + ANSK=ANSK+1+N1/3+NREST(N1,3) 02275000 + NRE=NRE+1 02276000 + NE=N2 02277000 + CALL WREC(4,NTO,3) 02278000 + DO 20 II=1,NE 02279000 + CALL RREC(3,NTE,MODE,T) 02280000 + ANSK=ANSK+1+N1/3+NREST(N1,3)+N2/3+NREST(N2,3) 02281000 + NRE=NRE+1 02282000 + CALL WREC(3,NTO,3) 02283000 + 20 CONTINUE 02284000 + GO TO 300 02285000 +C 02286000 + 200 CONTINUE 02287000 +C SPETTRO FISSIONE O SPETTRO EVAPORAZIONE LF=7,9 02288000 + CALL RREC(3,NTE,MODE,T) 02289000 + IF(LF.EQ.7.AND.MT.NE.18) GO TO 700 02290000 + NE=N2 02291000 + NRE=NRE+1 02292000 + ANSK=ANSK+1+N1/3+NREST(N1,3)+N2/3+NREST(N2,3) 02293000 + CALL WREC(3,NTO,3) 02294000 + GO TO 300 02295000 +C 02296000 + 700 CONTINUE 02297000 +C CONVERTE FISSION SPECTRUM IN TABULATE PER N,2N ED ANELASTICA 02298000 +C PER MT .NE. 18; LF=7 VA IN LF=1 02299000 + WRITE(NP,9015) 02300000 + WRITE(NO,9015) 02301000 + 9015 FORMAT(' FISSION SPECTRUM DATA CHANGED INTO TABULATED DATA') 02302000 +C 02303000 + NE=N2 02304000 + NRE=NRE+1 02305000 + ANSK=ANSK+1+N1/3+NREST(N1,3) 02306000 +C SCRIVE IL TAB2 02307000 + CALL WREC(4,NTO,3) 02308000 + DO 70 IE=1,NE 02309000 +C ENERGIE 02310000 + SPAZ(IE)=AD(LX+IE-1) 02311000 +C TEMPERATURE 02312000 + SPAZ(NE+IE)=AD(LY+IE-1) 02313000 + 70 CONTINUE 02314000 + DO 75 IE=1,NE 02315000 + EI=SPAZ(IE) 02316000 + TEMP(1)=SPAZ(NE+IE) 02317000 +C FATTORE DI NORMALIZZAZIONE (FOLLOWING ENDFB MANUAL) 02318000 +C U E' DATA SOPRA 02319000 +C NORMALIZZO COME ENDFB SULLE E FINO AD U 02320000 + SQRTEU=SQRT((EI-U)/TEMP(1)) 02321000 + TEMP(2)=TEMP(1)**1.5*(0.886227*ERF(SQRTEU)- 02322000 + 1 SQRTEU*EXP(-(EI-U)/TEMP(1))) 02323000 + EPS=OPZ(1,5,2) 02324000 + IF(EPS.LE.0.) EPS=0.01 02325000 + CALL GENT1(FISS1,TEMP,EINF,EI-U,EPS,LOF) 02326000 + IF(LOF.GT.0) CALL ERR(8HP1F5 ,75) 02327000 + ANSK=ANSK+1+N1/3+NREST(N1,3)+N2/3+NREST(N2,3) 02328000 + NRE=NRE+1 02329000 + CALL WREC(3,NTO,3) 02330000 + 75 CONTINUE 02331000 + LF=1 02332000 + GO TO 300 02333000 +C 02334000 +C GENERAL EVAPORATION OR ENERGY DEPENDENT WATT : LF=5,11 02335000 + 400 CALL RREC(3,NTE,MODE,T) 02336000 + NE=N2 02337000 + NRE=NRE+1 02338000 + ANSK=ANSK+1+N1/3+NREST(N1,3)+N2/3+NREST(N2,3) 02339000 + CALL WREC(3,NTO,3) 02340000 + CALL RREC(3,NTE,MODE,T) 02341000 + NF=N2 02342000 + NRE=NRE+1 02343000 + ANSK=ANSK+1+N1/3+NREST(N1,3)+N2/3+NREST(N2,3) 02344000 + CALL WREC(3,NTO,3) 02345000 +C 02346000 + 300 CONTINUE 02347000 +C INDICI ( UNO PER OGNI RANGE NK 02348000 + ANREC=0 02349000 + ANFM=7 02350000 + ANWD=0 02351000 + IF(MT.EQ.18) GO TO 390 02352000 + ANFM=6 02353000 +C 02354000 + IF(MT.EQ.91) ANWD=1 02355000 + IF(MT.EQ.16) ANWD=2 02356000 +C 02357000 + IF(LF.EQ.1) ANREC=4. 02358000 + IF(LF.EQ.9) ANREC=3. 02359000 + IF(ANREC.EQ.0.) CALL ERR(8HP1F5 ,300) 02360000 + 390 CONTINUE 02361000 +C 02362000 + IND=IND+1 02363000 + IF(IND.GT.MINDX2) CALL SCARIN(2,MINDX1,IND,AINDX) 02364000 + CALL EMPIN(MINDX1,AINDX(1,IND),AMAT,AMF,AMT, 02365000 + 1ZA,AWR,0.,T,U,0.,FLOAT(NK),FLOAT(LT),FLOAT(LF),FLOAT(NE), 02366000 + 2U,0.,0.,0.,0.,0.,FLOAT(MODE),FLOAT(NTENDF),FLOAT(NTE), 02367000 + 3FLOAT(NTOUT),FLOAT(NTO),FLOAT(NT(3,NTOUT)),ANSK,FLOAT(NRE),0.,0., 02368000 + 4ANFM,ANREC,ANWD,0.,0.,N(1),N(2),N(11),0.,0.,0.) 02369000 +C 02370000 +C PUNTA AL TAB1 DELLA LEGGE NK 02371000 + NT(3,NTOUT)=NT(3,NTOUT)+ANSK 02372000 + ANSK=0. 02373000 + NRE=0 02374000 + GO TO 560 02375000 +C 02376000 + 550 CONTINUE 02377000 +C THIS DISTRIBUTION LAW IS NOT ACCEPTED! 02378000 + CALL ERR(8HP1F5 ,550) 02379000 + CALL SKIPS(MODE,NTE,1,STMP,NO) 02380000 + NT(3,NTOUT)=NT(3,NTOUT)+ANSK 02381000 + GO TO 150 02382000 + 560 CONTINUE 02383000 + 10 CONTINUE 02384000 +C 02385000 +C METTO IL SEND SUL FILE DI OUTPUT 02386000 + 150 IF(NCONT(STMP,NO,NTE,MODE,MAT,5,0).NE.0)CALL ERR(8H P1F5 ,10) 02387000 + CALL WREC(1,NTO,3) 02388000 + NT(3,NTOUT)=NT(3,NTOUT)+1 02389000 + NT(4,NTOUT)=NT(3,NTOUT) 02390000 + RETURN 02391000 + END 02392000 + FUNCTION FISS1(X,X0) 02393000 +C ******************************************** 02394000 +C FISSION SPECTRUM FOLLOWING ENDFB MANUAL 02395000 +C FISS : FISSION SPECTRUM IN SLAVE3 DIFFERS FROM THIS ROUTINE 02396000 +C IN THE NORMALIZZATION FACTOR 02397000 +C ******************************************* 02398000 + DIMENSION X0(2) 02399000 + IF(X0(2).LE.0.) GO TO 100 02400000 + FISS1=SQRT(X)/X0(2)*EXP(-X/X0(1)) 02401000 + RETURN 02402000 + 100 FISS1=0. 02403000 + RETURN 02404000 + END 02405000 + SUBROUTINE RIEMP(K,M,NN) 02406000 +C ************************** 02407000 +C FILLS NN(M) WITH K 02408000 +C ************************** 02409000 +C 02410000 +C DIMENSION NN(M) 02411000 + DIMENSION NN(1) 02412000 + IF(M.LE.0) RETURN 02413000 + DO 10 I=1,M 02414000 + 10 NN(I)=K 02415000 + RETURN 02416000 + END 02417000 + SUBROUTINE BIANC(MA,A) 02418000 +C ******************************** 02419000 +C FILLS A(MA) WITH BLANKS 02420000 +C ******************************* 02421000 +C DIMENSION A(MA) 02422000 + DIMENSION A(1) 02423000 + IF(MA.LE.0) RETURN 02424000 + DATA BIAN/4H / 02425000 + DO 10 I=1,MA 02426000 + 10 A(I)=BIAN 02427000 + RETURN 02428000 + END 02429000 + FUNCTION AREAL(A) 02430000 +C ******************************** 02431000 +C EVITA LA CONVERSIONE AUTOMATICA 02432000 +C ******************************** 02433000 + AREAL=A 02434000 + RETURN 02435000 + END 02436000 + FUNCTION NAREAL(NA) 02437000 +C ***************************** 02438000 +C EVITA LA CONVERSIONE AUTOMATICA 02439000 +C **************************** 02440000 + NAREAL=NA 02441000 + RETURN 02442000 + END 02443000 + FUNCTION NREST(M,M1) 02444000 +C **************************************** 02445000 +C 0 IF M IS DIVISIBLE BY M1 , 1 OTHERWISE 02446000 +C **************************************** 02447000 + NREST=0 02448000 + N=M/M1 02449000 + IF(N*M1.NE.M) NREST=1 02450000 + RETURN 02451000 + END 02452000 + SUBROUTINE REW(NTT) 02453000 +C ************************************************************* 02454000 +C POSITION NTP FILE AT THE FIRST RECORD 02455000 +C AND SET THE POINTER TO THE FILE POSITION:NT(4,.) 02456000 +C MODIFIED 6-3-87 ( NT(2,.) NO MORE USED ) 02457000 +C ************************************************************* 02458000 +C 02459000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 02460000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 02461000 +C 02462000 + COMMON/FILES/NT(4,99) 02463000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 02464000 +C 02465000 + NTP=(NT(1,NTT)) 02466000 + IF(NTP.LE.0) GO TO 501 02467000 + REWIND NTP 02468000 +C SET FILE POINTER 02469000 + NT(4,NTT)=1 02470000 +C REC CORRENTE=REC INIZIO FILE 02471000 + RETURN 02472000 + 501 CONTINUE 02473000 + WRITE(NP,1000)(NT(J,NTT),J=1,MNT1) 02474000 + WRITE(NO,1000)(NT(J,NTT),J=1,MNT1) 02475000 + 1000 FORMAT(' SUB.REW:PROBABLY ERROR IN FILE DESCRIBED BY:',10I5) 02476000 + RETURN 02477000 + END 02478000 + SUBROUTINE POSL(NTP) 02479000 +C ************************************* 02480000 +C POSITION NT(1,NTP) AT THE FIRST AVAILABLE RECORD 02481000 +C NT(3,NTP) IS THE FIRST AVAILABLE RECORD ,NT(4,NT) THE CURRENT ONE 02482000 +C ******************************************* 02483000 + COMMON /FILES/NT(4,99) 02484000 + NP=NT(1,NTP) 02485000 + 200 N=NT(3,NTP)-NT(4,NTP) 02486000 + IF(N.EQ.0) RETURN 02487000 + IF(N.GT.0) GO TO 100 02488000 + REWIND NP 02489000 + NT(4,NTP)=1 02490000 + GO TO 200 02491000 + 100 CONTINUE 02492000 + DO 10 I=1,N 02493000 + 10 READ(NP) 02494000 + NT(4,NTP)=NT(3,NTP) 02495000 + RETURN 02496000 + END 02497000 + SUBROUTINE SKIPE(NTP,MF,MT,N) 02498000 +C *************************************** 02499000 +C SKIPS ON NTP (TAPE ENDFB MODE 3) 02500000 +C RECORDS UNTIL IT FIND THE END OF SPECIFIED MF OR MAT 02501000 +C *************************************** 02502000 +C 02503000 + N=0 02504000 + 10 READ(NTP,1000) MAT1,MF1,MT1 02505000 + N=N+1 02506000 + 1000 FORMAT(T67,I4,I2,I3) 02507000 + IF(MF.NE.0.AND.MF1.EQ.MF) GO TO 10 02508000 + IF(MT.NE.0.AND.MT1.EQ.MT) GO TO 10 02509000 + RETURN 02510000 + END 02511000 + SUBROUTINE SKIPS(MODE,NTP,NK,STMP,NO) 02512000 +C ******************************************************** 02513000 +C ON TAPE NT SKIPS RECORDS UNTIL IT FIND A RECORD OF TYPE: 02514000 +C SEND FOR NK=1 02515000 +C MEND FOR NK=2 02516000 +C FEND FOR NK=3 02517000 +C WRITES ON NTO FILE DEPENDING ON STMP PARAMETERS 02518000 +C ******************************************************** 02519000 +C 02520000 + DIMENSION D(66) 02521000 +C 02522000 + IF(MODE.LE.0.OR.MODE.GT.3) CALL ERR(8H SKIPS ,0) 02523000 + IF(NK.GT.3.OR.NK.LE.0) CALL ERR(8H SKIPS ,1) 02524000 + 10 CONTINUE 02525000 + IF(MODE.NE.3)GO TO 100 02526000 + READ(NTP,1000,END=500)(D(J),J=1,66),MAT,MF,MT,NSEQ 02527000 + IF(STMP.GT.20) WRITE(NO,2000) (D(J),J=1,66),MAT,MF,MT,NSEQ 02528000 + 1000 FORMAT(66A1,I4,I2,I3,I5) 02529000 + 2000 FORMAT(' RECORD SKIPPED:',66A1,I4,I2,I3,I5) 02530000 + 3000 FORMAT(' RECORD SKIPPED: MAT,MF,MT,C1,C2,L1,L2,N1,N2:', 02531000 + 13I5,2E12.5,4I11) 02532000 + GO TO 200 02533000 + 100 CONTINUE 02534000 + READ(NTP,END=500) MAT,MF,MT,C1,C2,L1,L2,N1,N2 02535000 + IF(STMP.GT.20) WRITE(NO,3000) MAT,MF,MT,C1,C2,L1,L2,N1,N2 02536000 + 200 CONTINUE 02537000 + IF(NK.EQ.1.AND.MT.LE.0) RETURN 02538000 + IF(NK.EQ.2.AND.MAT.LE.0) RETURN 02539000 + IF(NK.EQ.3.AND.MF.LE.0) RETURN 02540000 + GO TO 10 02541000 + 500 CONTINUE 02542000 + CALL ERR(8H SKIPS , 500) 02543000 + CALL ERRP(5,MODE,NK,NTP,MAT,MT) 02544000 + RETURN 02545000 + END 02546000 + SUBROUTINE RECTPI(NTE,MODE,NO) 02547000 +C ****************************************** 02548000 +C READS RECORD TPID ( FIRST ENDFB RECORD) 02549000 +C ****************************************** 02550000 + DIMENSION B(20) 02551000 + IF(MODE.NE.3) GO TO 100 02552000 +C PER BCD 02553000 + READ(NTE,1000)B 02554000 + 1000 FORMAT(20A4) 02555000 + WRITE(NO,1500) B 02556000 + 1500 FORMAT(' READ TAPE LABEL:TPID:',20A4) 02557000 +C 02558000 + RETURN 02559000 + 100 CONTINUE 02560000 +C PER BINARIO 02561000 + READ(NTE) (B(J),J=1,20) 02562000 + WRITE(NO,2000) (B(J),J=1,20) 02563000 + 2000 FORMAT(' READ TAPE LABEL: TPID=',3I10,16A4,A2) 02564000 + RETURN 02565000 + END 02566000 + FUNCTION NCONT(STMP,NO,NTP,MODE,MATT,MFF,MTT) 02567000 +C ************************************************************** 02568000 +C READ CONT RECORD; CONTROLS MAT,MF,MT = ARGUMENTS MATT,MFF,MTT 02569000 +C ************************************************************** 02570000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2 02571000 +C 02572000 + NCONT=0 02573000 + IF(NTP.GT.0) GO TO 50 02574000 + WRITE(NO,1000) MODE,NTP 02575000 + 1000 FORMAT(' WARNING! ATTEMPT TO READ A FILE NUMBER OUT OF RANGE:',2I02576000 + 110) 02577000 + NCONT=1000 02578000 + RETURN 02579000 + 50 CONTINUE 02580000 + CALL RREC(1,NTP,MODE,T) 02581000 + IF(STMP.GT.11) WRITE(NO,3000)MAT,MF,MT,C1,C2,L1,L2,N1,N2 02582000 + 3000 FORMAT(' NCONT READS RECORD:',3I5,2E12.5,4I12) 02583000 + IF(STMP.GT.11) WRITE(NO,4000) MODE,NTP,MATT,MFF,MTT,NCONT 02584000 + 4000 FORMAT(' PARAMETERS OF NCONT:MODE,NTP,MATT,MFF,MTT,NCONT=', 02585000 + 1 6I10) 02586000 + IF(MF.NE.MFF) NCONT=NCONT+100 02587000 + IF(MAT.NE.MATT) NCONT=NCONT+10 02588000 + IF(MT.NE.MTT) NCONT=NCONT+1 02589000 + RETURN 02590000 + END 02591000 + SUBROUTINE ERRORE(A,N) 02592000 +C *********************************************** 02593000 +C ERROR MESSAGE PRINTING FOR SLAVE3 ERRORS 02594000 +C *********************************************** 02595000 +C 02596000 + REAL*8 A 02597000 + COMMON /RECS/ MAT,MF,MT 02598000 + COMMON /FILES/NT(4,99) 02599000 + NO=NT(1,6) 02600000 + NP=NT(1,11) 02601000 + WRITE(NO,1000) A,N,MAT,MF,MT 02602000 + WRITE(NP,1000) A,N,MAT,MF,MT 02603000 + 1000 FORMAT(' SLAVE3 ERROR ENCOUNTERED!'/50(2H !)/ 02604000 + 1 (' ROUTINE:',A10,' ERROR NUMBER:',I10,' ENDFB IDENTIFIERS:' 02605000 + 2 ,'MAT,MF,MT=',3I10)) 02606000 + RETURN 02607000 + END 02608000 + SUBROUTINE ERR(A,I) 02609000 +C ******************* 02610000 +C ERROR MESSAGE 02611000 +C ******************* 02612000 +C 02613000 + COMMON/FILES/NT(4,99) 02614000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 02615000 + REAL*8 A 02616000 + WRITE(NO,1000)A,I 02617000 + WRITE(NP,1000)A,I 02618000 + 1000 FORMAT(1X,10(2H*!),'ERROR IN SUB:',A10,' NEAR LABEL',I10,10(1H?) 02619000 + 1) 02620000 + RETURN 02621000 + END 02622000 + SUBROUTINE ERRP(N,A1,A2,A3,A4,A5) 02623000 +C ******************************************************* 02624000 +C PRINT ERROR PARAMETERS 02625000 +C ******************************************************* 02626000 +C 02627000 + COMMON/FILES/NT(4,99) 02628000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 02629000 +C 02630000 + 1000 FORMAT(' ERROR IN PARAMETER:',I10,E20.10,A8) 02631000 + WRITE(NO,1000)A1,A1,A1 02632000 + WRITE(NP,1000)A1,A1,A1 02633000 + IF(N.LE.1 ) RETURN 02634000 + WRITE(NO,1000)A2,A2,A2 02635000 + WRITE(NP,1000)A2,A2,A2 02636000 + IF(N.LE.2 ) RETURN 02637000 + WRITE(NO,1000)A3,A3,A3 02638000 + WRITE(NP,1000)A3,A3,A3 02639000 + IF(N.LE.3 ) RETURN 02640000 + WRITE(NO,1000)A4,A4,A4 02641000 + WRITE(NP,1000)A4,A4,A4 02642000 + IF(N.LE.4 ) RETURN 02643000 + WRITE(NO,1000)A5,A5,A5 02644000 + WRITE(NP,1000)A5,A5,A5 02645000 + RETURN 02646000 + END 02647000 + SUBROUTINE EMPIN(N,A,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13, 02648000 + 1A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29, 02649000 + 2A30,A31,A32,A33,A34,A35,A36,A37,A38,A39,A40) 02650000 +C *********************************************** 02651000 +C FILL INDEX RECORD: A1,A2 ETC ARE PUT IN A(N) 02652000 +C *********************************************** 02653000 + DIMENSION A(N) 02654000 + COMMON/FILES/NT(4,99) 02655000 + EQUIVALENCE(NT(1,12),NPP) 02656000 +C 02657000 + A(1)=A1 02658000 + A(2)=A2 02659000 + A(3)=A3 02660000 + A(4)=A4 02661000 + A(5)=A5 02662000 + A(6)=A6 02663000 + A(7)=A7 02664000 + A(8)=A8 02665000 + A(9)=A9 02666000 + A(10)=A10 02667000 + A(11)=A11 02668000 + A(12)=A12 02669000 + A(13)=A13 02670000 + A(14)=A14 02671000 + A(15)=A15 02672000 + A(16)=A16 02673000 + A(17)=A17 02674000 + A(18)=A18 02675000 + A(19)=A19 02676000 + A(20)=A20 02677000 + A(21)=A21 02678000 + A(22)=A22 02679000 + A(23)=A23 02680000 + A(24)=A24 02681000 + A(25)=A25 02682000 + A(26)=A26 02683000 + A(27)=A27 02684000 + A(28)=A28 02685000 + A(29)=A29 02686000 + A(30)=A30 02687000 + A(31)=A31 02688000 + A(32)=A32 02689000 + A(33)=A33 02690000 + A(34)=A34 02691000 + A(35)=A35 02692000 + A(36)=A36 02693000 + A(37)=A37 02694000 + A(38)=A38 02695000 + A(39)=A39 02696000 + A(40)=A40 02697000 + WRITE(NPP,1234) 02698000 + WRITE(NPP,1235)(A(J),J=1,40) 02699000 + 1234 FORMAT(' FOLLOWING INDEX RECORD HAS BEEN CREATED:') 02700000 + 1235 FORMAT(1X,10E12.5) 02701000 + RETURN 02702000 + END 02703000 + SUBROUTINE RDMIX(NP123) 02704000 +C *********************************** 02705000 +C 02706000 +C READ INPUT TABLE OF PART 1,2, OR 3 DEPENDING ON N123=1,2,3 02707000 +C 02708000 +C SUPPRESSED DOUBLE NUCLIDE NAME IN INPUT(NON IN MIX VARIABLE) 02709000 +C 02710000 +C ********************************************* 02711000 +C 02712000 +C READS MIX : INPUT TABLE FOR PART ONE: 02713000 +C MIX(1-2,I)=IDENTIFIER OF MATERIAL FORMAT A8 02714000 +C MIX(3,I)=DD INPUT I4 02715000 +C MIX(4,I)=DD TYPE ENDFB = MODE I4 02716000 +C 5 =DD OUTPUT(LOGICAL NUMBER) I4 02717000 +C 6 = MAT REACTION I4 02718000 +C 7 = MF FILE ENDFB I4 02719000 +C 8 = MT MATERIAL ENDFB I4 02720000 +C 9 = IDENTIFIER FOR MATERIAL FORMAT I4 02721000 +C 10 = IDENTIFIER FOR MATERIAL FORMAT I4 02722000 +C 11 = IDENTIFIER FOR MATERIAL FORMAT I4 02723000 +C 12 = IDENTIFIER FOR MATERIAL FORMAT I4 02724000 +C 13-14 = IDENTIFIERS FORMAT E12.5 02725000 +C 15 = T = TEMPERATURE FORMAT E12.5 02726000 +C 02727000 +C 02728000 +C DEFAULTS : 02729000 +C MIX(3,.) OUT OF RANGE=8 ( NUM LOGOCO TAPE INPUT ENDFB)02730000 +C MIX(4,.) OUT OF RANGE=3 (ENDFB DA SCHEDE 02731000 +C MF=0=ALL MCF 02732000 +C MF <0 =ALL MCF EXCLUDED -MF 02733000 +C 02734000 +C 02735000 +C READS MIX : INPUT TABLE FOR PART 2 02736000 +C MIXING FATTA:1-2 A8 = OUPUT NAME (BLANK= NOME IN) 02737000 +C 3-4 A8 = INPUT NAME 02738000 +C 5 I4= OUTPUT TAPE 02739000 +C 6 I4 = OUTPUT MCCF(MC2-2 FILE) 02740000 +C 7 I4= OUTPUT RECORD 02741000 +C 8 I4= OUTPUT WORD 02742000 +C 9-12 = INTEGER PARAMETER I4 02743000 +C 13-15 E12.5 = REAL PARAMETERS 02744000 +C 02745000 +C DEFAULTS : NAME OUT MISSING = NOME INPUT 02746000 +C MCCF= 0 : ALL THE MCCF 02747000 +C MCCF NEGATIVO : ALL MCCF EXCEPT THIS 02748000 +C MIX(5)<0 : THE MATERIAL IS EXCLUDED 02749000 +C 02750000 +C 02751000 +C READS INPUT TABLE FOR PART 3 02752000 +C MIX CONTAINS: 02753000 +C MIX(1-2,I)=A8=NOME OUT(SUPPRESSED IN INPUT) 02754000 +C MIX(3-4,.)=A8=NOME IN 02755000 +C MIX(5, .) =I4= MCF 02756000 +C MIX(6, .)= I4= PARAMETERS OF MC2-2 RECORDS 02757000 +C MIX(13-15)=E 12.5=REAL PARAMETERS 02758000 +C 02759000 +C DEFAULTS: 02760000 +C NOME IN=BLANK=NOME OUT 02761000 +C MCF=0=ALL MCF 02762000 +C MCF <0 =ALL MCF EXCEPT THIS 02763000 +C 02764000 +C ************************************************************* 02765000 +C 02766000 + COMMON/FILES/NT(4,99) 02767000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)),(NPP,NT(1,12))02768000 +C 02769000 + COMMON /MIX/MIX(15,300) 02770003 + COMMON /DIM/M(5) 02771000 + COMMON/DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3, 02772000 + 1MM,MNX1,MNX2,MJX,MMX,MNT1,MNT2,MIND11,MIND12 02773000 +C 02774000 + DATA NFIN/4HFINE/ 02775000 + DIMENSION N123(3),NM(3) 02776000 + DATA N123/4H 1 ,4H 2 ,4H 3 / 02777000 +C POSIZIONE IN M (COMMON /DIM/ ) DELLE DIMENSIONI DELLA MIXING 02778000 + DATA NM/1,3,5/ 02779000 +C M(1),(3),(5)=DIM EFFETTIVE DELLE MIX DELLA PARTE 1,2,3 02780000 + DATA MM1/15/ 02781000 +C 02782000 + I=1 02783000 + CALL RIEMP(0,MMIX1*MMIX2,MIX) 02784000 + IF(NP123.LE.3.AND.NP123.GT.0) GO TO 10 02785000 + CALL ERR(8HRDMIX ,10) 02786000 +C CALL ERRP(1,NP123,DUM,DUM,DUM,DUM) 02787003 + GO TO 500 02788000 + 10 CONTINUE 02789000 + WRITE(NP,1000) N123(NP123),I 02790000 + 1000 FORMAT(' PART :',A4,'-- GIVE CARD:',I10) 02791000 +C 02792000 + K0=1 02793000 + K1=1 02794000 + K2=10 02795000 + K3=3 02796000 + K4=1 02797000 + I3=3 02798000 + IF(NP123.EQ.1) GOTO 101 02799000 +C K0=2 02800000 +C K1=2 02801000 + I3=5 02802000 + K2=8 02803000 + K4=3 02804000 + 101 CONTINUE 02805000 + CALL COMMR(K0,NI,NO,NPP,K1,MIX(K4,I),K2,MIX(I3,I),K3,MIX(13,I)) 02806000 +C 02807000 + IF(NP123.GT.1) GO TO 230 02808000 + 100 CONTINUE 02809000 + 3100 FORMAT(' READ INPUT TABLE CARD NUMB:',I5,',CONTAINING:'/1X, 02810000 + 12A4,10I5,3E12.5) 02811000 +C 02812000 + IF(MIX(1,I).EQ.NFIN) GO TO 500 02813000 + IF(MIX(3,I).LT.0) GO TO 500 02814000 +C DEFAULTS 02815000 + IF(MIX(4,I).EQ.0.OR.MIX(4,I).GT.3) MIX(4,I)=3 02816000 + IF(MIX(3,I).LE.0.OR.MIX(3,I).GT.99) MIX(3,I)=8 02817000 +C WRITE(NO,3100) I,(MIX(J,I),J=1,MM1) 02818000 + WRITE(NPP,3100) I,(MIX(J,I),J=1,MM1) 02819000 + IF(MIX(7,I).GT.0) GO TO 130 02820000 +C ESPANDE I MCCF E METTE DEFAULTS 02821000 + KMF=MIX(7,I) 02822000 + KI=I 02823000 + I=I-1 02824000 +C 02825000 + DO 15 K=1,5 02826000 + IF(KMF.EQ.-K) GO TO 15 02827000 + I=I+1 02828000 + IF(I.GT.MMIX2) GO TO 501 02829000 + DO 16 IK=1,MMIX1 02830000 + 16 MIX(IK,I)=MIX(IK,KI) 02831000 + MIX(7,I)=K 02832000 +C WRITE(NO,3100) I,(MIX(J,I),J=1,MM1) 02833000 + WRITE(NPP,3100) I,(MIX(J,I),J=1,MM1) 02834000 + 15 CONTINUE 02835000 + 130 CONTINUE 02836000 + GO TO 400 02837000 + 3200 FORMAT(' READ INPUT TABLE CARD NUMB:',I5,' CONTAINING:'/1X, 02838000 + 14A4,8I4,3E12.5) 02839000 + 230 CONTINUE 02840000 +C PARTE COMUNE A MIXING 3 E 4 02841000 +C STOPS 02842000 +C NOME OUT BIANCO= NOME IN 02843000 +C IF(MIX(1,I).NE.NBIAN.OR.MIX(2,I).NE.NBIAN) GO TO 345 02844000 + MIX(1,I)=MIX(3,I) 02845000 + MIX(2,I)=MIX(4,I) 02846000 + 345 IF(MIX(1,I).EQ.NFIN) GO TO 500 02847000 + IF(NP123.NE.2) GO TO 347 02848000 +C WRITE(NO,3200) I,(MIX(J,I),J=1,MM1) 02849000 + WRITE(NPP,3200) I,(MIX(J,I),J=1,MM1) 02850000 + IF(NP123.NE.3) GO TO 348 02851000 + 347 WRITE(NPP,3200) I,(MIX(J,I),J=1,MM1) 02852000 +C WRITE(NO,3200) I,(MIX(J,I),J=1,MM1) 02853000 + 348 IF(MIX(6,I).GT.0) GO TO 400 02854000 +C ESPANDE I MCCF E METTE DEFAULTS 02855000 + KMF=MIX(6,I) 02856000 + KI=I 02857000 + I=I-1 02858000 +C 02859000 + DO 20 K=1,8 02860000 + IF(KMF.EQ.-K) GO TO 20 02861000 + I=I+1 02862000 + IF(I.GT.MMIX2) GO TO 501 02863000 + DO 30 IK=1,MMIX1 02864000 + 30 MIX(IK,I)=MIX(IK,KI) 02865000 + MIX(6,I)=K 02866000 + IF(NP123.NE.2) GO TO 357 02867000 +C WRITE(NO,3200) I,(MIX(J,I),J=1,MM1) 02868000 + WRITE(NPP,3200) I,(MIX(J,I),J=1,MM1) 02869000 + GO TO 358 02870000 + 357 WRITE(NPP,3200) I,(MIX(J,I),J=1,MM1) 02871000 +C WRITE(NO,3200) I,(MIX(J,I),J=1,MM1) 02872000 + 358 CONTINUE 02873000 + 20 CONTINUE 02874000 +C PARTE COMUNE A MIXING 1, 2 ,3 02875000 + 400 CONTINUE 02876000 + I=I+1 02877000 + IF(I.LT.MMIX2) GO TO 10 02878000 + 501 CALL ERR(8HRDMIX ,501) 02879000 +C CALL ERRP(2,I,MMIX2,0.,0.,0.) 02880003 + I=I-1 02881000 + GO TO 10 02882000 +C NON PRENDE PIU SCHEDE MA VA AVANTI FINO ALLA SCHEDA FINE 02883000 + 500 CONTINUE 02884000 + M(NM(NP123))=I-1 02885000 + RETURN 02886000 + END 02887000 + SUBROUTINE MIXSHO(K,NOU) 02888000 +C ************************* 02889000 +C PRINTS INPUT TABLES 02890000 +C ******************************* 02891000 +C 02892000 + COMMON /FILES/NT(4,99) 02893000 + EQUIVALENCE (NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 02894000 + COMMON /MIX/MIX(15,300) 02895003 + COMMON /DIM/M(5) 02896000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 02897000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 02898000 + DIMENSION FORM(20,3),FOR(20) 02899000 + DATA FORM/4H(' C,4HARD:,4H' ,4H ,4H ,I3,4H,'=', 02900000 + 1 4H,2A4,4H,3I3,4H,I5,,4H6I3,,4H3E12,4H.5 ),8*4H , 02901000 + 2 4H(' C,4HARD:,4H' ,4H ,4H,I3,,4H'=',,4H4A4,,4H8I3,, 02902000 + 3 4H3E12,4H.5) ,10*4H , 02903000 + 4 4H(' C,4HARD:,4H' ,4H ,4H,I3,,4H'=',,4H4A4,,4H8I3,, 02904000 + 5 4H3E12,4H.5) ,10*4H / 02905000 +C 02906000 + MMM=M(2*K-1) 02907000 + WRITE(NOU,1000) K 02908000 + 1000 FORMAT(' INPUT TABLE OF PART:',I5) 02909000 + IF(K.LE.0.OR.K.GT.3) RETURN 02910000 + DO 5 I=1,20 02911000 + 5 FOR(I)=FORM(I,K) 02912000 +C 02913000 + DO 10 I=1,MMM 02914000 + WRITE(NOU,FOR) I,(MIX(J,I),J=1,MMIX1) 02915000 + 10 CONTINUE 02916000 + RETURN 02917000 + END 02918000 + SUBROUTINE COMMR(K,NI,NO,NP,MC,C,MIC,IC,MAC,AC) 02919000 +C ************************************************* 02920000 +C READS A COMMAND IN FREE FORMAT : (A8 ... PARAMETERS) 02921000 +C LEGGE UN COMANDO DATO AL MAIN IN FORMATO LIBERO 02922000 +C NELLA SCHEDA IL COMANDO VA NELLE PRIME 8 COLONNE, 02923000 +C SEGUONO I PARAMETRI IN FORMATO LIBERO,SEPARATI DA 02924000 +C SPAZIO BIANCO. 02925000 +C L(3,.)= CIFRE COME NUMERI:PRIMA DI VIRGOLA,DOPO E DI EXP 02926000 +C NL( ) = NUMERO CIFRE PRIMA,DOPO VIRGOLA ED EXP 02927000 +C NSL( )= SEGNO PARTE INTERA,DECIMALE ED EXP 02928000 +C NIC= POSIZIONE LIBERA IN IC (PARAMETRI INTERI DEL COMANDO) 02929000 +C NAC= POSIZIONE LIBERA IN AC (PARAMETRI REALI DEL COMANDO) 02930000 +C I= NUMER O DEL CARATTERE DA INTERPRETARE 02931000 +C NUMERO CIFRE PRIMA DI VIRGOLA,NL(1) 02932000 +C NUMERO COFRE DOPO LA VIRGOLA, NL(2) 02933000 +C NUMERO CIFRE EXP , NL(3) 02934000 +C SEGNO VALORE, NSL(1) 02935000 +C SEGNO EXP , NSL(3) 02936000 +C POSIZIONE LIBERA IN IC NIC 02937000 +C POSIZIONE LIBERA IN AC NAC 02938000 +C CARATTERE DA INTERPRETARE I 02939000 +C FLAG PER REALE NFLOT=1 02940000 +C 02941000 +C NFLAG 1 : CIFRE PRIMA DI VIRGOLA 02942000 +C 2 : CIFRE DOPO LA VIRGOLA 02943000 +C 3 : CIFRE EXP 02944000 +C K= FORMATO DI LETTURA 02945000 +C K=1= A8..ETC 02946000 +C K=2= 2A8..ETC 02947000 +C K=3= ..ETC 02948000 +C *************************************************** 02949000 + DIMENSION A(80),L(3,80),NL(3),NSL(3),ANUM(3) 02950000 + DIMENSION C(MC),IC(MIC),AC(MAC) 02951000 + REAL*8 C 02952000 + EQUIVALENCE (NL(1),NL1),(NL(2),NL2),(NL(3),NL3) 02953000 + DIMENSION CIF(9) 02954000 + DATA BIAN/4H / 02955000 + DATA AMENO,E,PUNTO,ZERO/4H- ,4HE ,4H. 02956000 + 1 ,4H0 / 02957000 + DATA CIF/4H1 ,4H2 ,4H3 ,4H4 ,4H5 ,4H6 ,4H7 , 02958000 + 1 4H8 ,4H9 / 02959000 + CALL RIEMP(0,MIC,IC) 02960000 + CALL RIEMP(0.,MAC,AC) 02961000 +C 02962000 +C 02963000 + NL(1)=0 02964000 + NL(2)=0 02965000 + NL(3)=0 02966000 + NSL(1)=1 02967000 + NSL(2)=1 02968000 + NSL(3)=1 02969000 + NIC=0 02970000 + NAC=0 02971000 + I=0 02972000 + NFLAG=1 02973000 + NFLOT=0 02974000 + CALL BIANC(80,A) 02975000 +C 02976000 + WRITE(NP,1000) 02977000 + IF(K.LE.0.OR.K.GT.3) K=3 02978000 + IF(K.NE.1) GO TO 2 02979000 + ILIMT=64 02980000 + READ(NI,2000) C(1),(A(J),J=1,72) 02981000 + 1000 FORMAT(' ENTER COMMAND >>>') 02982000 + 2000 FORMAT(A8,72A1) 02983000 +C WRITE(NO,3000) C(1),(A(J),J=1,72) 02984000 + WRITE(NP,3000) C(1),(A(J),J=1,72) 02985000 + 3000 FORMAT(' ACCEPTED COMMAND:',A8,72A1) 02986000 + 2 CONTINUE 02987000 + IF(K.NE.2) GOTO 3 02988000 + ILIMT=56 02989000 + READ(NI,2002) C(1),C(2),(A(J),J=1,64) 02990000 + 2002 FORMAT(2A8,64A1) 02991000 +C WRITE(NO,3002) C(1),C(2),(A(J),J=1,64) 02992000 + WRITE(NP,3002) C(1),C(2),(A(J),J=1,64) 02993000 + 3002 FORMAT(1X,2A8,64A1) 02994000 + 3 CONTINUE 02995000 + IF(K.NE.3) GOTO 4 02996000 + READ(NI,2004) (A(J),J=1,80) 02997000 + ILIMT=72 02998000 +C WRITE(NO,3004) (A(J),J=1,80) 02999000 + WRITE(NP,3004) (A(J),J=1,80) 03000000 + 2004 FORMAT(80A1) 03001000 + 3004 FORMAT(1X,80A1) 03002000 + 4 CONTINUE 03003000 +C 03004000 + 10 CONTINUE 03005000 +C LOOP SUI CARATTERI DA INTERPRETARE 03006000 + I=I+1 03007000 + IF(I.GE.ILIMT)GO TO 100 03008000 + IF(A(I).EQ.BIAN) GO TO 150 03009000 +C VA A INTERPRETARE, UN BIANCO SEPARA I VALORI 03010000 +C GUARDA SE IL CARATTERE E LA CIFRA 1-9 OPPURE 0 03011000 + DO 20 J=1,9 03012000 + IF(A(I).NE.CIF(J)) GO TO 20 03013000 + NL(NFLAG)=NL(NFLAG)+1 03014000 + L(NFLAG,NL(NFLAG))=J 03015000 + GO TO 10 03016000 + 20 CONTINUE 03017000 + IF(A(I).NE.ZERO) GO TO 200 03018000 + NL(NFLAG)=NL(NFLAG)+1 03019000 + L(NFLAG,NL(NFLAG))=0 03020000 + GO TO 10 03021000 + 200 CONTINUE 03022000 + IF(A(I).EQ.AMENO) NSL(NFLAG)=-1 03023000 + IF(A(I).EQ.PUNTO) NFLAG=2 03024000 + IF(A(I).EQ.E) NFLAG=3 03025000 + IF(A(I).EQ.PUNTO) NFLOT=1 03026000 +C CARATTERI NON CONTEMPLATI SONO IGNORATI 03027000 + GO TO 10 03028000 + 150 CONTINUE 03029000 +C INTERPRETAZIONE 03030000 + IF(NL(1).LE.0.AND.NL(2).LE.0.AND.NL(3).LE.0) GO TO 10 03031000 +C LOOP SU CIFRE PRIMA DEL PUNTO,DOPO DEL PUNTO , SU EXP ******* 03032000 + DO 30 J=1,3 03033000 + ANUM(J)=0 03034000 + IF(NL(J).LE.0) GO TO 300 03035000 + N1=NL(J) 03036000 + N2=N1 03037000 + IF(J.EQ.2) N2=0 03038000 + DO 40 JJ=1,N1 03039000 + ANUM(J)=ANUM(J)+L(J,JJ)*10.**(N2-JJ) 03040000 + 40 CONTINUE 03041000 + 300 CONTINUE 03042000 + 30 CONTINUE 03043000 + NEXP=ANUM(3)*NSL(3) 03044000 + B=(ANUM(1)+ANUM(2))*NSL(1)*NSL(2)*10.**NEXP 03045000 +C HA DEFINITO IL NUMERO ORA LO METTE NEL PARAMETRO 03046000 + IF(NFLOT.EQ.0) GOTO 400 03047000 +C LA CIFRA DOPO LA VIRGOLA, DECIMALE 03048000 + NAC=NAC+1 03049000 + IF(NAC.GT.MAC) GOTO600 03050000 + AC(NAC)=B 03051000 + GO TO 500 03052000 + 400 CONTINUE 03053000 +C E UN INTERO 03054000 + NIC=NIC+1 03055000 + IF(NIC.GT.MIC) GO TO 600 03056000 + IC(NIC)=B 03057000 + 500 CONTINUE 03058000 +C RESET INIZIALI 03059000 + DO 50 J=1,3 03060000 + NL(J)=0 03061000 + NSL(J)=1 03062000 + 50 CONTINUE 03063000 + NFLAG=1 03064000 + NFLOT=0 03065000 + GO TO 10 03066000 + 600 CONTINUE 03067000 + CALL ERR(8HCOMMR ,100) 03068000 +C 03069000 +C 03070000 + GO TO 500 03071000 + 100 CONTINUE 03072000 +C WRITE(NO,4000) C 03073000 + WRITE(NP,4000) C 03074000 + 4000 FORMAT(' ACCEPTED COMMAND: ',2A8) 03075000 +C IF(NIC.GT.0) WRITE(NO,5000) (IC(J),J=1,NIC) 03076000 + IF(NIC.GT.0) WRITE(NP,5000) (IC(J),J=1,NIC) 03077000 +C IF(NAC.GT.0) WRITE(NO,6000) (AC(J),J=1,NAC) 03078000 + IF(NAC.GT.0) WRITE(NP,6000) (AC(J),J=1,NAC) 03079000 + 5000 FORMAT(' INTEGER PARAMETERS:',10I10) 03080000 + 6000 FORMAT(' REAL PARAMETERS :',5E12.5) 03081000 + MIC=NIC 03082000 + MAC=NAC 03083000 + RETURN 03084000 + END 03085000 + SUBROUTINE MIXIND(IND,MINDX1,MINDX2,AINDX) 03086000 +C ****************************************************** 03087000 +C EDITOR OF THE INDEX OF INTERMEDIATE FILES 03088000 +C ******************************************************* 03089000 +C 03090000 + DIMENSION AINDX(MINDX1,MINDX2) 03091000 + COMMON /FILES/NT(4,99) 03092000 + EQUIVALENCE (NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 03093000 + DIMENSION C(2),IC(6),AC(4) 03094000 +C 03095000 + 10 WRITE(NP,1000) 03096000 + 1000 FORMAT(' INDEX EDITOR ENTERED: ACCEPTED OPTIONS:'/ 03097000 + 1 ' 1=WRITE,2=LOAD,3=SAVE,4=DEL,5=SEL,6=CHANGE', 03098000 + 2 ',7=DECR.ORD,8=INCR.ORD,9=NEW NAME,10=FILL,0=END') 03099000 + N2=2 03100000 + N6=6 03101000 + N4=4 03102000 +C 03103000 + CALL COMMR(3,NI,NO,NP,N2,C,N6,IC,N4,AC) 03104000 + K=IC(1) 03105000 + IF(K.LE.0) RETURN 03106000 + GO TO (100,200,300,400,500,600,700,800,900,910),K 03107000 + 100 CONTINUE 03108000 + IF(IND.GT.0) GO TO 105 03109000 + WRITE(NP,1500) 03110000 + 1500 FORMAT(' NO INDEX AVAILABLE!') 03111000 + GOTO 10 03112000 + 105 CONTINUE 03113000 + N1=IC(2) 03114000 + N2=IC(3) 03115000 + IF(N1.LE.0) N1=1 03116000 + IF(N2.GT.MINDX1.OR.N2.LT.N1) N2=IND 03117000 + NOOO=NO 03118000 + IF(IC(4).GT.0.AND.IC(4).LE.99) NOOO=IC(4) 03119000 + DO 20 I=N1,N2 03120000 + WRITE(NOOO,2000) I,(AINDX(J,I),J=1,MINDX1) 03121000 + 2000 FORMAT(' INDEX NUMBER:',I5/(1X,5E15.8)) 03122000 + 20 CONTINUE 03123000 + GO TO 10 03124000 + 200 CONTINUE 03125000 + CALL LOADIN(IND,IC(2),IC(3),IC(4),MINDX1,MINDX2,AINDX) 03126000 + GO TO 10 03127000 + 300 CONTINUE 03128000 + CALL SAVI(IC(2),MINDX1,IND,AINDX) 03129000 + GO TO 10 03130000 + 400 CONTINUE 03131000 + CALL COMPIN(IND,IC(2),IC(3),MINDX1,MINDX2,AINDX) 03132000 + GO TO 10 03133000 + 500 CONTINUE 03134000 + E1=AC(1) 03135000 + E2=AC(2) 03136000 + K1=IC(1) 03137000 + CALL SELR2(MINDX1,IND,AINDX,K1,E1,E2) 03138000 + GO TO 10 03139000 + 600 CONTINUE 03140000 + K1=IC(1) 03141000 + IF(K1.LE.0) RETURN 03142000 + N1=IC(2) 03143000 + N2=IC(3) 03144000 + IF(N1.LE.0) N1=1 03145000 + IF(N2.LT.N1) N2=N1 03146000 + A1=AC(1) 03147000 + A2=AC(2) 03148000 + DO 30 I=N1,N2 03149000 + IF(AINDX(K1,I).EQ.A1) AINDX(K1,I)=A2 03150000 + 30 CONTINUE 03151000 + GO TO 10 03152000 + 700 CONTINUE 03153000 + K1=IC(1) 03154000 + CALL ORDINA(K1,MINDX1,IND,AINDX) 03155000 + GO TO 10 03156000 + 800 CONTINUE 03157000 + K1=IC(1) 03158000 + CALL ORDIN1(K1,MINDX1,IND,AINDX) 03159000 + GO TO 10 03160000 + 900 CONTINUE 03161000 + K1=IC(1) 03162000 + IF(K1.LE.0) K1=35 03163000 + K2=K1+1 03164000 + N1=IC(2) 03165000 + IF(N1.LE.0) N1=1 03166000 + N2=IC(3) 03167000 + IF(N2.LE.0) N2=N1 03168000 + WRITE(NP,3000) K1 03169000 + 3000 FORMAT(' GIVE OLD AND NEW NAME (A8),IN INDEX POSITION:',I5) 03170000 + READ(NI,4000) A1,A2,A3,A4 03171000 + 4000 FORMAT(4A4) 03172000 + DO 90 I=N1,N2 03173000 + IF(AINDX(K1,I).NE.A1.OR.AINDX(K2,I).NE.A2) GO TO 90 03174000 + AINDX(K1,I)=A3 03175000 + AINDX(K2,I)=A4 03176000 + 90 CONTINUE 03177000 + GO TO 10 03178000 + 910 CONTINUE 03179000 + K1=IC(1) 03180000 + IF(K1.LE.0) RETURN 03181000 + N1=IC(2) 03182000 + N2=IC(3) 03183000 + IF(N1.LE.0) N1=1 03184000 + IF(N2.LT.N1) N2=N1 03185000 + A1=AC(1) 03186000 + DO 91 I=N1,N2 03187000 + AINDX(K1,I)=A1 03188000 + 91 CONTINUE 03189000 + GO TO 10 03190000 + END 03191000 + SUBROUTINE LOADIN(M,NTAP,K1,K,MINDX1,MINDX2,INDX) 03192000 +C ************************* 03193000 +C 03194000 +C LOAD IN /INDX/ THE INTERMEDIATE FILE INDEX (FOR THE FIRST GROUP) 03195000 +C OF INTERMEDIATE FILES 03196000 +C NTAP: TAPE DA CUI LEGGE 03197000 +C M : DIMENSIONI DELL INDICE LETTO 03198000 +C INDX(MINDX1,MINDX2) : INDICE LETTO 03199000 +C 03200000 +C PER K=0 LO METTE TUTTO 03201000 +C PER K=N METTE IL N CHE TROVA SU TAPE 03202000 +C K1 = POSIZIONE IN INDX CHE SI INIZIA A RIEMPIRE 03203000 +C 03204000 +C ****************************************************** 03205000 +C 03206000 +C 03207000 + DIMENSION INDX(MINDX1,MINDX2) 03208000 +C 03209000 +C 03210000 + COMMON/FILES/NT(4,99) 03211000 +C EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 03212000 +C 03213000 +C 03214000 +C 03215000 +C 03216000 +C 03217000 + IF(K1.LT.1) K1=1 03218000 + IF(NTAP.LE.0) NTAP=2 03219000 + CALL REW(NTAP) 03220000 + NTP=NT(1,NTAP) 03221000 + IK=0 03222000 +C NUMERO DELL IND CHE LEGGE 03223000 + 1 READ(NTP,END=500) IND 03224000 + IF(IND.LE.0) GO TO 10 03225000 + IK=IK+1 03226000 + IF(MINDX2.LT.IND+K1-1) CALL ERR(8H LOADIN , 10) 03227000 + DO 10 I=1,IND 03228000 + READ(NTP,END=501) ( INDX(J,I+K1-1),J=1,MINDX1) 03229000 + 10 CONTINUE 03230000 + IF(K.EQ.0.OR.K.EQ.IK) K1=K1+IND 03231000 +C CONTINUA A LEGGERE ALTRI DI SEGUITO 03232000 + IF(K.EQ.0.OR.K.NE.IK) GO TO 1 03233000 +C HA LETTO QUELLO SPECIFICO CHE DOVEVA 03234000 + 500 M=K1-1 03235000 +C SET DIMENSIONI INDICI PRIMA SERIE 03236000 + RETURN 03237000 + 501 CALL ERR(8H LOADIN , 501) 03238000 + RETURN 03239000 + END 03240000 + SUBROUTINE LOADI1(M,NTAP,MINDX1,MINDX2,INDX) 03241000 +C ************************************************************** 03242000 +C LOAD THE INDEX OF INTERMEDIATE FILE FROM NTAP (WITHOUT REWIND) 03243000 +C 03244000 +C M: LUNGHEZZA DELL'INDICE 03245000 +C NTAP: TAPE DA CUI LEGGERE 03246000 +C ************************************************************* 03247000 +C 03248000 + DIMENSION INDX(MINDX1,MINDX2) 03249000 + COMMON /FILES/NT(4,99) 03250000 + NTP=NT(1,NTAP) 03251000 + 1 READ(NTP,END=500) IND 03252000 + IF(MINDX2.LT.IND) CALL ERR(8H LOADI1 ,10) 03253000 + DO 10 I=1,IND 03254000 + READ(NTP,END=501) (INDX(J,I),J=1,MINDX1) 03255000 + NT(4,NTAP)=NT(4,NTAP)+1 03256000 + 10 CONTINUE 03257000 + M=IND 03258000 + RETURN 03259000 + 501 CALL ERR(8HLOADI1 ,501) 03260000 + RETURN 03261000 + 500 CALL ERR(8HLOADI1 ,500) 03262000 + RETURN 03263000 + END 03264000 + SUBROUTINE COMPIN(IND,K1,K2,MINDX1,MINDX2,AINDX) 03265000 +C **************************************************** 03266000 +C COMPRESS MATRIX AINDX(MINDX1,MINDX2).ELIMINANDO 03267000 +C AINDX(.,K1) AD AINDX(.,K2) COMPRESE, IND E LA SECONDA 03268000 +C DIMENSIONE DI IND ( CALATA DI K2-K1+1) 03269000 +C ****************************************************** 03270000 + DIMENSION AINDX(MINDX1,MINDX2) 03271000 + IF(K1.GT.K2) GO TO 501 03272000 + IF(K2.GT.MINDX2) K2=MINDX2 03273000 + I1=K2+1 03274000 + I2=MINDX2 03275000 + ITOT=K2-K1+1 03276000 + DO 10 I=I1,I2 03277000 + IT=I-ITOT 03278000 + DO 20 IJ=1,MINDX1 03279000 + 20 AINDX(IJ,IT)=AINDX(IJ,I) 03280000 + 10 CONTINUE 03281000 + IND=IND-ITOT 03282000 + RETURN 03283000 + 501 CALL ERR(8H,COMPIN ,501) 03284000 + RETURN 03285000 + END 03286000 + SUBROUTINE SAVI(NTT,MINDX1,IND,INDX) 03287000 +C ********************************************** 03288000 +C WRITES INDEX OF INTERMEDIATE FILES ON NTT FILE 03289000 +C ********************************************** 03290000 +C 03291000 + DIMENSION INDX(MINDX1,IND) 03292000 + COMMON/FILES/NT(4,99) 03293000 +C 03294000 + NT2=NT(1,NTT) 03295000 + WRITE(NT2) IND 03296000 + DO 10 I=1,IND 03297000 + WRITE(NT2) (INDX(J,I),J=1,MINDX1) 03298000 + 10 CONTINUE 03299000 + NT(4,2)=NT(4,2)+IND+1 03300000 + NT(3,2)=NT(4,2) 03301000 + RETURN 03302000 + END 03303000 + SUBROUTINE SCARIN(NTPI,MINDX1,MIND,INDX) 03304000 +C ***************************************** 03305000 +C WRITES INDEX ON FILE AND FREE THE INDEX MATRIX INDX 03306000 +C SCARICA SU NT(1,NTPI) L'INDICE FINO A MIND-1 03307000 +C ASSEGNA A MIND VALORE 1 03308000 +C ********************************************* 03309000 + DIMENSION INDX(MINDX1,MIND) 03310000 + COMMON /FILES/ NT(4,99) 03311000 + EQUIVALENCE (NT(1,11),NP) 03312000 + MIND=MIND-1 03313000 + CALL POSL(NTPI) 03314000 + CALL SAVI(NTPI,MINDX1,MIND,INDX) 03315000 + WRITE(NP,9000) MIND,NTPI 03316000 + 9000 FORMAT(2X,I5,' VECTORS OF INDEX MATRIX SCRATCHED ON UNIT',I5) 03317000 + MIND=1 03318000 + RETURN 03319000 + END 03320000 + SUBROUTINE ORDINA(K,N1,NP,A) 03321000 +C ************************************** 03322000 +C ORDERING ROUTINE 03323000 +C ORDINA A(N1,NP) PER VALORI DECRESCENTI DI A(K,.) 03324000 +C ************************************** 03325000 + DIMENSION A(N1,NP) 03326000 + NP1=NP-1 03327000 + IF(NP1.LT.1) RETURN 03328000 + DO 10 I=1,NP1 03329000 + I1=I+1 03330000 +C CERCA IL MAX SUI SUCCESSIVI 03331000 + KK=I 03332000 + DO 20 J=I1,NP 03333000 + IF(A(K,KK).GT.A(K,J)) GO TO 20 03334000 + KK=J 03335000 + 20 CONTINUE 03336000 +C SCAMBIO I E KK 03337000 + DO 30 JJ=1,N1 03338000 + D=A(JJ,KK) 03339000 + A(JJ,KK)=A(JJ,I) 03340000 + 30 A(JJ,I)=D 03341000 + 10 CONTINUE 03342000 + RETURN 03343000 + END 03344000 + SUBROUTINE ORDIN1(K,N1,NP,A) 03345000 +C ************************************** 03346000 +C ORDERING ROUTINE 03347000 +C ORDINA A(N1,NP) PER VALORI CRESCENTI DI A(K,.) 03348000 +C ************************************** 03349000 + DIMENSION A(N1,NP) 03350000 + NP1=NP-1 03351000 + IF(NP1.LT.1) RETURN 03352000 + DO 10 I=1,NP1 03353000 + I1=I+1 03354000 +C CERCA IL MIN SUI SUCCESSIVI 03355000 + KK=I 03356000 + DO 20 J=I1,NP 03357000 + IF(A(K,KK).LT.A(K,J)) GO TO 20 03358000 + KK=J 03359000 + 20 CONTINUE 03360000 +C SCAMBIO I E KK 03361000 + DO 30 JJ=1,N1 03362000 + D=A(JJ,KK) 03363000 + A(JJ,KK)=A(JJ,I) 03364000 + 30 A(JJ,I)=D 03365000 + 10 CONTINUE 03366000 + RETURN 03367000 + END 03368000 + SUBROUTINE ORDM(M,K,N1,N2,A,B) 03369000 +C *********************************** 03370000 +C ORDERING ROUTINE 03371000 +C 03372000 +C METTE IN A(N1,N2) VICINI QUELLI CON = GRANDEZZA NELLA 03373000 +C RIGA M 03374000 +C K+DIMENSIONI DI B 03375000 +C B(1, ) = VALORE 03376000 +C B(2, ) = INIZIO VALORE 03377000 +C B(3, ) DIMENSIONI VALORI DELLA RIGA M 03378000 +C 03379000 +C **************************************** 03380000 + DIMENSION A(N1,N2) ,B(3,N2) 03381000 + INTEGER A,B,C 03382000 +C INTERI PER METTERCI INTERI SENZA CONVERSIONI 03383000 +C I = INDICE SUI A ( E IL NUMERO DA ANALIZZARE ) 03384000 + I=1 03385000 +C K= INDICE DEI VALORI DIVERSI DELLA RIGA M 03386000 + K=0 03387000 +C ....................... LOOP SUI DIVERSI VALORI DELLA RIGA M 03388000 + 10 CONTINUE 03389000 +C SI ASSEGNA UN VALORE DI A(M DI CUI TROVARE UGUALI 03390000 + K=K+1 03391000 + B(1,K)=A(M,I) 03392000 + B(2,K)=I 03393000 + B(3,K)=0 03394000 + 200 CONTINUE 03395000 +C INCREMENTA I CONTATORI DEI VARI VALORI IN QUESTIONE (NE HA TROVAT03396000 + B(3,K)=B(3,K)+1 03397000 +C ESAMINO IL SUCCESSIVO I+1 03398000 + I=I+1 03399000 + IF(I.GT.N2) RETURN 03400000 +C NEL CASO CHE STIA ANALIZZANDO L ULTIMO 03401000 +C GUARDA SE IL NUOVO NUMERO E = 03402000 + IF(A(M,I).EQ.B(1,K)) GO TO 200 03403000 + 100 CONTINUE 03404000 +C QUI SE E DIVERSO IL SUCCESSIVO E VA SCAMBIATO CON UNO = DA CERCAR03405000 +C FRA QUELLI DODO 03406000 +C I2= INDICE DI QUELLI DOPO 03407000 + I2=I+1 03408000 +C SE STO ESAMINANDO L ULTIMO ( ED E DIVERSO LO ASSEGNO COME UN DIVER03409000 + IF(I2.GT.N2) GO TO 10 03410000 +C CERCA SUI SUCCESSIVI ALL'I ESIMO UNO = A QUELLO IN QUESTIONE 03411000 + DO 30 JJ=I2,N2 03412000 + IF(A(M,JJ).NE.B(1,K)) GO TO 30 03413000 +C SE SONO = SCAMBIO IL JJ CON L I 03414000 + DO 40 J1=1,N1 03415000 + C=A(J1,JJ) 03416000 + A(J1,JJ)=A(J1,I) 03417000 + A(J1,I)=C 03418000 + 40 CONTINUE 03419000 +C QUI ORA I ED I+1 SONO = 03420000 + GO TO 200 03421000 + 30 CONTINUE 03422000 + GOTO 10 03423000 +C NON CE NE SONO DI UGUALI 03424000 +C ALLORA IL SUCCESSIVO I NON LO SCAMBIO CON NESSUNO MA LO 03425000 +C ASSEGNO COME NUOVO VALORE DI CUI CERCARE UGUALI 03426000 + END 03427000 + SUBROUTINE ORDMD(M,K,N1,N2,A,B) 03428000 +C *********************************** 03429000 +C ORDERING ROUTINE 03430000 +C 03431000 +C METTE IN A(N1,N2) VICINI QUELLI CON = GRANDEZZA NELLA 03432000 +C RIGA M 03433000 +C K=DIMENSIONI DI B 03434000 +C B(1-2, )= VALORE ( A8 ) 03435000 +C B(3, ) = INIZIO VALORE 03436000 +C B(4, ) DIMENSIONI VALORI DELLA RIGA M 03437000 +C 03438000 +C **************************************** 03439000 + DIMENSION A(N1,N2) ,B(4,N2) 03440000 + INTEGER A,B,C 03441000 +C INTERI PER METTERCI INTERI SENZA CONVERSIONI 03442000 +C I = INDICE SUI A ( E IL NUMERO DA ANALIZZARE ) 03443000 + I=1 03444000 +C K= INDICE DEI VALORI DIVERSI DELLA RIGA M 03445000 + K=0 03446000 +C ....................... LOOP SUI DIVERSI VALORI DELLA RIGA M 03447000 + 10 CONTINUE 03448000 +C SI ASSEGNA UN VALORE DI A(M DI CUI TROVARE UGUALI 03449000 + K=K+1 03450000 + B(1,K)=A(M,I) 03451000 + B(2,K)=A(M+1,I) 03452000 + B(3,K)=I 03453000 + B(4,K)=0 03454000 + 20 CONTINUE 03455000 +C INCREMENTA I CONTATORI DEI VARI VALORI IN QUESTIONE (NE HA TROVAT03456000 + B(4,K)=B(4,K)+1 03457000 +C ESAMINO IL SUCCESSIVO I+1 03458000 + I=I+1 03459000 + IF(I.GT.N2) RETURN 03460000 +C NEL CASO CHE STIA ANALIZZANDO L ULTIMO 03461000 +C GUARDA SE IL NUOVO NUMERO E = 03462000 + IF(A(M,I).EQ.B(1,K).AND.A(M+1,I).EQ.B(2,K)) GO TO 20 03463000 + 100 CONTINUE 03464000 +C QUI SE E DIVERSO IL SUCCESSIVO E VA SCAMBIATO CON UNO = DA CERCAR03465000 +C FRA QUELLI DODO 03466000 +C I2= INDICE DI QUELLI DOPO 03467000 + I2=I+1 03468000 +C SE STO ESAMINANDO L ULTIMO ( ED E DIVERSO LO ASSEGNO COME UN DIVER03469000 + IF(I2.GT.N2) GO TO 10 03470000 +C CERCA SUI SUCCESSIVI ALL'I ESIMO UNO = A QUELLO IN QUESTIONE 03471000 + DO 30 JJ=I2,N2 03472000 + IF(A(M,JJ).NE.B(1,K).OR.A(M+1,JJ).NE.B(2,K)) GO TO 30 03473000 +C SE SONO = SCAMBIO IL JJ CON L I 03474000 + DO 40 J1=1,N1 03475000 + C=A(J1,JJ) 03476000 + A(J1,JJ)=A(J1,I) 03477000 + A(J1,I)=C 03478000 + 40 CONTINUE 03479000 +C QUI ORA I ED I+1 SONO = 03480000 + GO TO 20 03481000 + 30 CONTINUE 03482000 + GOTO 10 03483000 +C NON CE NE SONO DI UGUALI 03484000 +C ALLORA IL SUCCESSIVO I NON LO SCAMBIO CON NESSUNO MA LO 03485000 +C ASSEGNO COME NUOVO VALORE DI CUI CERCARE UGUALI 03486000 + END 03487000 + SUBROUTINE SELR2(NPK,NRS,PK,KE,EINF,ESUP) 03488000 +C ***************************************************** 03489000 +C COMPRESS PK KILLING VALUES IN A SPECIFIED RANGE 03490000 +C ELIMINA IN PK(NPK,NRS) I VALORI CON PK(KE,.) ENTRO EINF-ESUP 03491000 +C **************************************************************** 03492000 + DIMENSION PK(NPK,NRS) 03493000 + NP=NRS 03494000 + I=0 03495000 + 10 I=I+1 03496000 + 20 IF(I.GT.NP) GO TO 500 03497000 + IF(PK(KE,I).GT.EINF.AND.PK(KE,I).LE.ESUP) GO TO 100 03498000 + GO TO 10 03499000 +C ELIMINA UN ELEMENTO METTENDO L'ULTIMO AL SUO POSTO 03500000 + 100 DO 30 J=1,NPK 03501000 + 30 PK(J,I)=PK(J,NP) 03502000 + NP=NP-1 03503000 + GO TO 20 03504000 + 500 NRS=I-1 03505000 + IF(NRS.LE.0) CALL ERR(8HSELR2WAR ,500) 03506000 + RETURN 03507000 + END 03508000 + SUBROUTINE P2(MA,N) 03509000 +C ***************************************************************** 03510000 +C 03511000 +C MAIN ROUTINE FOR THE PART 2 OF THE CODE. 03512000 +C READS FROM FIRST GROUP OF INTERMEDIATE FILES THE PARTS OF 03513000 +C ENDFB SELECTED BY THE PART ONE. 03514000 +C PERFORMS ALMOST ALL THE CALCULATION TO BE DONE 03515000 +C WRITES THE SECOND GROUP OF INTERMEDIATE FILES, CONTAINING 03516000 +C DATA IN THE FORMAT OF THE MCC2 INPUT LIBRARIES MCC2F1-3-4-5-6-7-803517000 +C 03518000 +C ***************************************************************** 03519000 +C 03520000 + DIMENSION N(MA) 03521000 + REAL*8C 03522000 + COMMON /COMM/C,IC(6),AC(4) 03523000 + COMMON/FILES/NT(4,99) 03524000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)),(NP12,NT(1,12))03525000 +C 03526000 + COMMON/OPZIO/ OPZ(4,8,10) 03527000 + EQUIVALENCE (OPZ(2,1,1),STMP) 03528000 + EQUIVALENCE (EUP,OPZ(2,5,2)),(DELU,OPZ(2,5,3)) 03529000 +C 03530000 +C 03531000 + COMMON/DIM/INDDUM,IND1,INMIX,IND2 03532000 +C 03533000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 03534000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 03535000 +C 03536000 +C 03537000 + COMMON /INDX/INDX(40,200) 03538000 + COMMON /MIX/MIX(15,300) 03539003 +C 03540000 + COMMON /INDX1/INDX1(40,200) 03541000 + DATA NBIAN/4H / 03542000 +C 03543000 + IF(IND1.GT.0) GO TO 111 03544000 + WRITE(NO,8000) 03545000 + WRITE(NP,8000) 03546000 + 8000 FORMAT(' WARNING! NO INDEX OF INPUT FILES FOUND IN PART 2!', 03547000 + 1 ' ROUTINE P2 IS NON EXECUTED!') 03548000 + RETURN 03549000 +C 03550000 + 111 DO 3 J1=1,4 03551000 + WRITE(NP12,9000) J1 03552000 + 3 WRITE(NP12,9001)((OPZ(J1,J2,J3),J3=1,10),J2=1,8) 03553000 + 9000 FORMAT(' PART 2 EXECUTING . OPTION TABLE OF PART:',I4) 03554000 + 9001 FORMAT(1X,10E12.5) 03555000 +C 03556000 +C MIXING FITTIZIA UNA SCHEDA PER OGNI MCCF (ESCLUSO IL 2 ) 03557000 + IF(INMIX.GT.0) GOTO 71 03558000 + CALL RIEMP(0,MMIX1*MMIX2,MIX) 03559000 + MIX(1,1)=NBIAN 03560000 + MIX(2,1)=NBIAN 03561000 + MIX(3,1)=NBIAN 03562000 + MIX(4,1)=NBIAN 03563000 + MIX(5,1)=0 03564000 + MIX(6,1)=1 03565000 + DO 5 I=2,7 03566000 + MIX(1,I)=NBIAN 03567000 + MIX(2,I)=NBIAN 03568000 + MIX(3,I)=NBIAN 03569000 + MIX(4,I)=NBIAN 03570000 + MIX(5,I)=31+I 03571000 + MIX(6,I)=1+I 03572000 + 5 CONTINUE 03573000 + INMIX=7 03574000 + 71 CONTINUE 03575000 +C CALL MIXSHO(2,NO) 03576000 + CALL MIXSHO(2,NP) 03577006 +C 03578000 +C SET ZERO INDICE DI OUTPUT 03579000 + CALL RIEMP(0,MIND11*MIND12,INDX1) 03580000 + IND2=0 03581000 +C 03582000 +C ORDINA INDICE PER MATERIALE 03583000 +C NELLE ROUTINES MCC2F1-3-4-5-6-7-8 QUESTO ORDINAMENTO E' 03584000 +C USATO PER ABBREVIARE I CONTI IN CASO DI NUCLIDI CON 03585000 +C RECORD DI INDICE MA NON RICHIESTI NELLA MIX. 03586000 +C I LOOP NON VENGONO FATTI SULL'INDICE DIRETTAMENTE, MA 03587000 +C SUI NUCLIDI, CIOE' SULL'INDICE DELL'INDICE. COSI SCARTARE 03588000 +C UN NUCLIDE E' SALTARE IN UNA SOLA VOLTA TUTTO IL SUI INDICE, 03589000 +C SENZA GUARDARNE I RECORDS UNO PER UNO. 03590000 +C 03591000 +C I NUCLIDI VENGONO ORDINATI PER MASSE DECRESCENTI, IN MODO 03592000 +C DA ESSERE SCRITTI NEI FILES SECONDA SERIE PER MASSE DECRESCENTI03593000 +C IN CONFORMITA' A COME P3 LI CERCA. QUESTO RIDUE IL TEMPO NECESS03594000 +C A P3 CHE LI TROVA GIA IN IFLA SENZA DOVER ANDARE SU E GIU PER I03595000 +C 03596000 +C MCC2F6 ORDINA I RECORD DI INDICE DI UN SINGOLO MATERIALE 03597000 +C PER VALORI CRESCENTI DI AINDX(25,.) = POSIZIONE OCCUPATA 03598000 +C NEL FILE DI INPUT ONDE RIDURRE TEMPO DI LETTURA 03599000 +C 03600000 +C 03601000 + CALL ORDINA(5,MINDX1,IND1,INDX) 03602000 +C 03603000 +C 03604000 + CALL ORDMD(35,KB,MINDX1,IND1,INDX,N) 03605000 +C KB E LA DIMENSIONE DI N (4,KB) CON SPECIFICHE DI COME E IL INDX 03606000 + IF(KB*4.GT.MA) CALL ERR(8H P2 ,0) 03607000 +C ORDINA MIX PER MCCF 03608000 +C PASSA TUTTO UN MCCF DELLA MIX ALLE SUB DI CONTO CHE 03609000 +C CERCANO OGNI INDX NELLE MIX DEL MCCF 03610000 +C KU= POSIZIONE DELL INDICE DI MCCF 03611000 + KU=6 03612000 + CALL ORDMIC(KU,MMIX1,INMIX,MIX) 03613000 + CALL EXAM(KU,KB1,MMIX1,INMIX,MIX,N(KB*4+1)) 03614000 +C ORA A CONTIENE : N(4,KB) , N(3,KB1) CON INFORMAZIONI SULLA 03615000 +C STRUTTURA DI INDX E DI MIX 03616000 +C PER INDX : 03617000 +C N(1,2 , .)= VALORE (REAL*8 03618000 +C N(3 ,.) = INIZIO 03619000 +C N(4,.) = DIMENSIONE 03620000 +C 03621000 +C PER MIX : 03622000 +C N(1, ) = VALORE 03623000 +C N(2, ) = INIZIO VALORE 03624000 +C N(3, ) DIMENSIONE VALORE 03625000 +C 03626000 + WRITE(NP12,9010) ((N(J+(JJ-1)*4),J=1,4),JJ=1,KB) 03627000 + 9010 FORMAT(' P2: INDEX OF THE INDEX:',2A4,' FIRST CARD:',I5, 03628000 + 1 ' CARDS:',I5) 03629000 + WRITE(NP12,9020) ((N(KB*4+J+(JJ-1)*3),J=1,3),JJ=1,KB1) 03630000 + 9020 FORMAT(' P2: INDEX OF THE INPUT TABLE. MCC2 FILE:',I4, 03631000 + 1 ' FIRST CARD:',I4,' CARDS:',I4) 03632000 +C 03633000 +C MONTA WTABLE: TAVOLE DI VALORI DI FUNZIONE W PER CALCOLO DELLE 03634000 +C FUNZIONI DOPLLER. SERVE A SUBROUTINE P2MCF5 PER IL CALCOLO DEGLI03635000 +C INTEGRALI DI RISONANZA CON EFFETTO DOPPLER 03636000 +C 03637000 + N27=27 03638000 + N41=41 03639000 + N4127=N41*N27 03640000 +C 03641000 + L1=KB*4+3*KB1+1 03642000 +C TR 03643000 + L2=L1+N4127 03644000 +C TI 03645000 + L3=L2+N4127 03646000 +C TRS 03647000 + L4=L3+N4127 03648000 +C TIS 03649000 + L5=L4+N4127 03650000 +C AX (REAL *8) 03651000 + L6=L5+N41*2 03652000 +C AY (REAL *8) 03653000 + LFIN=L6+N27*2 03654000 +C 03655000 + IF(LFIN.GT.MA) CALL ERR(8H P2 ,1) 03656000 +C 03657000 + CALL WTABL(N41,N27,N(L5),N(L6),N(L1),N(L2),N(L3),N(L4)) 03658000 +C 03659000 +C STAMPA DELLE TABULAZIONI DELLA FUNZIONE W 03660000 + IF(STMP.LT.1000.) GO TO1 03661000 + N272=N27*2 03662000 + N412=N41*2 03663000 + WRITE(NO,1000) (N(L5+J-1),J=1,N412,2) 03664000 + 1000 FORMAT(' W TABLE- X INTERVAL'/(1X,10E12.5)) 03665000 + WRITE(NO,1000) (N(L6+J-1),J=1,N272,2) 03666000 + 2000 FORMAT(' W TABLE- Y INTERVAL'/(1X,10E12.5)) 03667000 + WRITE(NO,3000) (N(L1+J-1),J=1,N4127) 03668000 + 3000 FORMAT(' REAL W TABULATION ,D=0.1,-0.1.LE.X.LE.3.9,', 03669000 + 1 '0.4.LE.Y.LE.3.0'/(1X,10E12.5)) 03670000 + WRITE(NO,4000) (N(L2+J-1),J=1,N4127) 03671000 + 4000 FORMAT(' IMM W TABULATION ,D=0.1,-0.1.LE.X.LE.3.9,', 03672000 + 1 '0.4.LE.Y.LE.3.0'/(1X,10E12.5)) 03673000 + WRITE(NO,5000) (N(L3+J-1),J=1,N4127) 03674000 + 5000 FORMAT(' REAL W TABULATION ,DX=0.1:-0.1.LE.X.LE.3.9,', 03675000 + 1 'DY=0.02:0.4.LE.Y.LE.3.0'/(1X,10E12.5)) 03676000 + WRITE(NO,6000) (N(L4+J-1),J=1,N4127) 03677000 + 6000 FORMAT(' IMM W TABULATION ,DX=0.1:-0.1.LE.X.LE.3.9,', 03678000 + 1 'DY=0.02:0.4.LE.Y.LE.3.0'/(1X,10E12.5)) 03679000 + 1 CONTINUE 03680000 +C 03681000 +C RILASCIO LO SPAZIO USATO DA AX ED AY 03682000 +C LFIN=L5 03683000 +C FIX GROUP UPPER ENERGY LIMITS (NG+1 VALUES FOR USE IN SOTTOSTANTI03684000 +C ROUTINES ) 03685000 + LNG=L5 03686000 + NG=OPZ(2,5,4) 03687000 + IF(NG.LE.0) NG=2082 03688000 + LFIN=LNG+NG+2 03689000 + IF(LFIN.GT.MA) CALL ERR(8HP2 ,2) 03690000 + NG11N=NG+1 03690107 + CALL ENERG(NG11N,DELU,EUP,N(LNG)) 03691007 +C 03693000 +C 03694000 +C CERCA IL FN SUPPONENDO CHE CI SIANO INTERI IN N 03695000 +C .............. SPAZIO RIMASTO IN MA (MADIM) 03696000 +C ............ IL PRIMO POSTO LIBERO IN N (ALTROVE DELLO A)=LFIN+1 03697000 + MAPOS=LFIN+1 03698000 + MADIM=MA-MAPOS 03699000 + MPKB1=4*KB+1 03700000 +C POSIZIONE DI INDICE MIX (MPKB1) 03701000 +C 03702000 +C ******************* LOOP SUI MCCF DELLA MIXING 03703000 +C KFPOS= NUM MCCF IN MIX 03704000 +C KFIN = INIZIO IN MIX 03705000 +C KFDIM=LUNGHEZZA IN MIX 03706000 +C 03707000 + KIX=1 03708000 + 10 KFPOS=N(3*(KIX-1)+1+KB*4) 03709000 + KFIN=N(3*(KIX-1)+1+KB*4+1) 03710000 + KFDIM=N(3*(KIX-1)+1+KB*4+2) 03711000 +C 03712000 + GO TO (100,200,300,400,500,600,700,800),KFPOS 03713000 + CALL ERR(8H P2 ,200) 03714000 + 200 CONTINUE 03715000 +C LA PARTE CHE GENERA IL FILE 2 NON ESISTE 03716000 + GO TO 110 03717000 +C ARGOMENTO 1 : SPAZIO RIMASTO 03718000 +C 2 : MATRICE DI SCRATCH 03719000 +C 3 : DIMENSIONI MATRICE MIX 03720000 +C 4 : DIMENSIONI MATRICE MIX DELL FN IN QUESTINE 03721000 +C 5 : MATRICE MIX DELL FN IN QUESTIONE 03722000 +C 6: DIM DI INDICE DI INDX 03723000 +C 7: INDICI DI INDX 03724000 +C 8: DIM INDICI DI MIX 03725000 +C 9: INDICI DI MIX 03726000 +C 03727000 +C 03728000 + 100 CALL P2MCF1(MADIM,N(MAPOS),MMIX1,KFDIM, 03729000 + 1MIX(1,KFIN),KB,N(1),KB1,N(MPKB1)) 03730000 + GO TO 110 03731000 +C 03732000 + 300 CALL P2MCF3(MADIM,N(MAPOS),MMIX1,KFDIM, 03733000 + 1MIX(1,KFIN),KB,N(1),KB1,N(MPKB1)) 03734000 + GO TO 110 03735000 +C 03736000 + 400 CALL P2MCF4(MADIM,N(MAPOS),MMIX1,KFDIM, 03737000 + 1MIX(1,KFIN),KB,N(1),KB1,N(MPKB1)) 03738000 + GO TO 110 03739000 + 500 CALL P2MCF5(MADIM,N(MAPOS),MMIX1,KFDIM, 03740000 + 1MIX(1,KFIN),KB,N(1),KB1,N(MPKB1), 03741000 + 2N41,N27,N(L1),N(L2),N(L3),N(L4),NG,N(L5) ) 03742000 + GO TO 110 03743000 +C 03744000 + 600 CALL P2MCF6(MADIM,N(MAPOS),MMIX1,KFDIM, 03745000 + 1MIX(1,KFIN),KB,N(1),KB1,N(MPKB1),NG,N(L5) ) 03746000 + GO TO 110 03747000 + 700 CALL P2MCF7(MADIM,N(MAPOS),MMIX1,KFDIM, 03748000 + 1MIX(1,KFIN),KB,N(1),KB1,N(MPKB1),NG,N(L5) ) 03749000 + GO TO 110 03750000 +C 03751000 + 800 CALL P2MCF8(MADIM,N(MAPOS),MMIX1,KFDIM, 03752000 + 1MIX(1,KFIN),KB,N(1),KB1,N(MPKB1),NG,N(L5) ) 03753000 + 110 KIX=KIX+1 03754000 +C GUARDA IL VALORE SUCCESSIVO DI MCF IN MIX 03755000 + IF(KIX.LE.KB1) GOTO10 03756000 + WRITE(NP,9050) IND2 03757000 + 9050 FORMAT(' PART 2 TERMINATED. ', 03758000 + 1 I5,' VECTORS OF INDEX MATRIX WRITTEN ON UNIT 3') 03759000 + CALL POSL(3) 03760000 + CALL SAVI(3,MIND11,IND2,INDX1) 03761000 + IND2=0 03762000 + RETURN 03763000 + END 03764000 + SUBROUTINE P2MCF1(MA,A,M1,M2,MIX,MKB1,INDIND,MKB,INDMIX) 03765000 +C *********************************************************** 03766000 +C 03767000 +C COMPUTES SCATTERING RADIUS,ENERGY PER CAPTURE AND ENERGY PER 03768000 +C FISSION . THESE DATA ARE INCLUDED IN THE FILE MCC2F1 BY PART 3 03769000 +C 03770000 +C A(MA)=WORKING SPACE 03771000 +C MIX(M1,M2)=INPUT TABLE FOR MCC2F1 DATA 03772000 +C INDIND(3,MKB1)=INDEX OF AINDEX:1-2,3,4=VALUE(REAL*8),FIRS VALUE, 03773000 +C THE INDEX AINDX IS ORDERED BY MATERIAL(LENGTH. 03774000 +C INDMIX(3,MKB)= INDEX OF MIX : 1,2,3= VALUE,FIRST VALUE,LENGTH. 03775000 +C MIX IS ORDERED BY MCC2F LIBRARY FILE 03776000 +C 03777000 +C ******************************************************************03778000 +C 03779000 + DIMENSION A(MA),MIX(M1,M2),INDIND(4,MKB1),INDMIX(3,MKB) 03780000 +C ==== N100=MAX NUMBER OF ISOTOPES ==== 03781000 + DATA N100/100/ 03782000 +C 03783000 + COMMON /INDX/AINDX(40,200) 03784000 + COMMON /INDX1/AINDX1(40,200) 03785000 + COMMON /FILES/ NT(4,99) 03786000 + COMMON /DIM/ MMIX,MIND,MNX2,IND2 03787000 + EQUIVALENCE(NO,NT(1,6)),(NP,NT(1,11)),(NP12,NT(1,12)) 03788000 + COMMON/OPZIO/ OPZ(4,8,10) 03789000 + EQUIVALENCE (OPZ(2,7,1),STMP) 03790000 +C 03791000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 03792000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 03793000 +C 03794000 + WRITE(NP12,7000)((MIX(J,JJ),J=1,M1),JJ=1,M2) 03795000 + 7000 FORMAT(' P2MCF1 ENTERED. INPUT TABLE TO BE EXECUTED:'/ 03796000 + 1 (1X,2A4,1X,2A4,8I4,3E12.5)) 03797000 +C 03798000 +C 03799000 +C ........................LOOP SULL INDICE DELL'INDICE(ISOTOPI) 03800000 +C RICERCA SE GLI ELEMENTI DI IND SONO IN MIX ( DA TRATTARE) 03801000 + DO 10 IS=1,MKB1 03802000 + N1=INDIND(3,IS) 03803000 + N2=INDIND(4,IS) 03804000 + N3=N1+N2-1 03805000 +C 03806000 +C CERCA L ISOTOPO DELLA MIX 03807000 + NMT=NCERC1(MINDX1,MIND,AINDX,M1,M2,MIX,N1,35,3,1) 03808000 +C NON HA TROVATO MATERIALE NELLA MIX 03809000 + IF(NMT.LE.0.) GO TO 100 03810000 +C 03811000 + CALL RIEMP(0.0,N100*2,A) 03812000 + NIS=0 03813000 + SIGP=0. 03814000 + EFIS18=0. 03815000 + EFI428=0. 03816000 + EFISN=0. 03817000 + ECATT=0. 03818000 + ENECC=0. 03819000 +C ...................LOOP SU INDICE DEL MATERIALE 03820000 + DO 15 IR=N1,N3 03821000 +C 03822000 +C MEV/ASSORBIMENTO PER ALTRE REAZIONI 03823000 + IF(AINDX(2,IR).NE.3.) GO TO 101 03824000 +C INSERISCO LE SOLE REAZIONI ESOTERMICHE 03825000 + IF(AINDX(8,IR).LE.0.) GO TO 101 03826000 +C N,P 03827000 +C IF(AINDX(3,IR).EQ.103.) ENECC=ENECC+AINDX(8,IR)/1.E+6+ENECC 03828000 +C N,D 03829000 +C IF(AINDX(3,IR).EQ.104.) ENECC=ENECC+AINDX(8,IR)/1.E+6+ENECC 03830000 +C N,T 03831000 +C IF(AINDX(3,IR).EQ.105.) ENECC=ENECC+AINDX(8,IR)/1.E+6+ENECC 03832000 +C N,HE3 03833000 +C IF(AINDX(3,IR).EQ.106.) ENECC=ENECC+AINDX(8,IR)/1.E+6+ENECC 03834000 +C N,ALFA 03835000 + IF(AINDX(3,IR).EQ.107.) ENECC=ENECC+AINDX(8,IR)/1.E+6+ENECC 03836000 +C N,2ALFA 03837000 +C IF(AINDX(3,IR).EQ.108.) ENECC=ENECC+AINDX(8,IR)/1.E+6+ENECC 03838000 +C 03839000 + 101 IF(AINDX(30,IR).NE.1.) GOTO150 03840000 + IF(AINDX(31,IR).NE.6.) GO TO 200 03841000 +C SCATTERING RADIUS 03842000 + ANOME1=AINDX(35,IR) 03843000 + ANOME2=AINDX(36,IR) 03844000 + T=AINDX(37,IR) 03845000 + AMAT=AINDX(1,IR) 03846000 + AMF=AINDX(2,IR) 03847000 + AMT=AINDX(3,IR) 03848000 + ZA=AINDX(4,IR) 03849000 + Z=AINT(ZA/1000.) 03850000 + AA=ZA-Z*1000. 03851000 + AWR=AINDX(5,IR) 03852000 +C GUARDA I DIVERSI ISOTOPI 03853000 + IF(NIS.GT.N100) CALL ERR(8HP2MCF1 ,1) 03854000 + IF(NIS.LE.0) NIS=AINDX(6,IR) 03855000 + IF(NIS+100.GT.MA)CALL ERR(8HP2MCF1 ,2) 03856000 + IF(AINDX(6,IR).NE.NIS) CALL ERR(8HP2MCF1 ,3) 03857000 + ISO=AINDX(28,IR) 03858000 + IF(A(ISO).GT.0.) GO TO 150 03859000 +C METTE I DATI DEGLI ISOTOPI NON GIA' MONTATI. 03860000 +C OGNI ISOTOPO PUO APPARIRE DUE VOLTE, UNA PER LE 03861000 +C RESOLVED EDUNA PER LE UNRESOLVED 03862000 +C 03863000 + ABUN=AINDX(9,IR) 03864000 + IF(NIS.LE.1) ABUN=1. 03865000 + AP=AINDX(17,IR) 03866000 + A(ISO)=12.5663706*AP*AP 03867000 + SIGP=SIGP+A(ISO)*ABUN 03868000 + A(100+ISO)=ABUN 03869000 +C 03870000 + WRITE(NP,9010) AINDX(35,IR),AINDX(36,IR),SIGP 03871000 + 9010 FORMAT(1X,2A4,' SCATTERING RADIUS:',E12.5) 03872000 +C 03873000 + GO TO 150 03874000 + 200 IF(AINDX(31,IR).NE.3) GO TO 150 03875000 +C E FISS ED E CATT DALLE SMOOTH O DA MT=428 DI F1 ENDFB 03876000 +C IN ENDFB QUESTI DATI SONO IN EV , IN MCC2F1 IN MEV 03877000 + IF(AINDX(32,IR).EQ.5) ECATT=AINDX(8,IR)/1.E+6 03878000 + IF(AINDX(32,IR).EQ.10)EFIS18=AINDX(8,IR)/1.E+6 03879000 + IF(AINDX(32,IR).EQ.4)EFI428=AINDX(14,IR)/1.E+6 03880000 + IF(AINDX(32,IR).EQ.4)EFISN=AINDX(15,IR)/1.E+6 03881000 +C 03882000 + 300 CONTINUE 03883000 + 150 CONTINUE 03884000 + 15 CONTINUE 03885000 +C 03886000 +C ------------------------------SCRIVE 03887000 +C 03888000 + WRITE(NP,9020) AINDX(35,N1),AINDX(36,N1),ECATT,EFIS18,EFI428, 03889000 + 1 EFISN 03890000 + 9020 FORMAT(1X,2A4,' E CATT,EFIS FROM FILE 3:',2E12.5/ 03891000 + 1 ' EFIS ED EFIS WITH NEUTRINOS (MT=428, F1):',2E12.5) 03892000 +C 03893000 + IF(NMT.LE.M2) GO TO 410 03894000 + NOM=NAREAL(ANOME1) 03895000 + NOM1=NAREAL(ANOME2) 03896000 + NOM2=NAREAL(ANOME1) 03897000 + NOM3=NAREAL(ANOME2) 03898000 + GO TO 420 03899000 + 410 NOM=MIX(3,NMT) 03900000 + NOM1=MIX(4,NMT) 03901000 + NOM2=MIX(1,NMT) 03902000 + NOM3=MIX(2,NMT) 03903000 + AR1=AREAL(MIX(13,NMT)) 03904000 + AR2=AREAL(MIX(14,NMT)) 03905000 + AR3=AREAL(MIX(15,NMT)) 03906000 + IF(AR1.NE.0.) SIGP=AR1 03907000 + IF(AR2.NE.0.) ECATT=AR2 03908000 + IF(AR3.NE.0.) EFIS18=AR3 03909000 +C 03910000 + 420 IND2=IND2+1 03911000 + IF(IND2.GT.MIND12) CALL ERR(8HP2MCF1 ,410) 03912000 + CALL EMPIN(MIND11,AINDX1(1,IND2),AMAT,AMF,AMT,ZA,AWR, 03913000 + 1NOM,NOM1,NOM2,NOM3,0., 03914000 + 21.,0.,0.,0.,0.,0.,0.,0.,0., 03915000 + 3FLOAT(NIS),Z,AA,SIGP,EFIS18,ECATT,EFI428,EFISN,ENECC,0., 03916000 + 4A(1),A(101),A(2),A(102),A(3),A(103),A(4),A(104),A(5),A(105),T) 03917000 +C 03918000 + 100 CONTINUE 03919000 + 10 CONTINUE 03920000 + RETURN 03921000 + END 03922000 + SUBROUTINE P2MCF3(MA,A,M1,M2,MIX,MKB1,INDIND,MKB,INDMIX) 03923000 +C ********************************* 03924000 +C 03925000 +C UNRESOLVED RESONANCE PARAMETERS CALCULATION FOR MCC2F3 FILE 03926000 +C 03927000 +C IN A SPAZIO SCRATCH 03928000 +C PER INDIND: 03929000 +C (1,2 = VALORE ( REAL*8) 03930000 +C (3 = INIZIO 03931000 +C (4 = DIMENSIONI 03932000 +C 03933000 +C IN MIX LA MIXING DELL F3 03934000 +C IN INDMIX INDICE DI MIX 03935000 +C (1 ) = VALORE 03936000 +C (2 ) = INIZIO VALORE 03937000 +C (3 ) = DIMENSIONI VALORE 03938000 +C 03939000 +C 03940000 +C ********************************************** 03941000 +C 03942000 + DIMENSION A(MA),MIX(M1,M2) 03943000 + DIMENSION INDMIX(3,MKB),INDIND(4,MKB1) 03944000 + COMMON /INDX1/AINDX1(40,200) 03945000 + COMMON /INDX/AINDX(40,200) 03946000 + COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 03947000 + 1N1X,N2X,NS,LX,LY,LB 03948000 + COMMON/DENS/JMT,JAT,JTT,JLT,LV,JNS,MNS, 03949000 + 1JX,MX 03950000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 03951000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 03952000 + COMMON/DIM/M(5) 03953000 + COMMON/OPZIO/ OPZ(4,8,10) 03954000 + COMMON/FILES/NT(4,99) 03955000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 03956000 + EQUIVALENCE (OPZ(2,5,5),OPM),(OPZ(2,3,1),STMP) 03957000 + EQUIVALENCE (IND,M(2)),(IND2,M(4)),(NP12,NT(1,12)) 03958000 +C INDICE PRIMA SERIE = M(2) 03959000 +C INDICE SECONDA SERIE = M(4) 03960000 +C LA ISTRUZIONE IND2=0 STA IN SUB P2 03961000 +C 03962000 + WRITE(NP12,7000)((MIX(J,JJ),J=1,M1),JJ=1,M2) 03963000 + 7000 FORMAT(' P2MCF3 ENTERED. INPUT TABLE TO BE EXECUTED:'/ 03964000 + 1 (1X,2A4,1X,2A4,8I4,3E12.5)) 03965000 +C 03966000 +C 03967000 +C ............ LOOP SU INDICE DELL' INDICE (SUI NUCLIDI DELL'INDICE03968000 + DO 5 IS=1,MKB1 03969000 + N1S=INDIND(3,IS) 03970000 + N2S=INDIND(4,IS) 03971000 + N3S=N1S+N2S-1 03972000 +C 03973000 +C NCERC1 CERCA NELLA MIX L'ISOTOPO DELL'INDICE 03974000 +C 03975000 + NMT=NCERC1(MINDX1,IND,AINDX,M1,M2,MIX,N1S,35,3,1) 03976000 +C UNA SCHEDA MIX PREDOMINA SULL'OPZIONE DI MASSA (CHE PONE NMT=M2+2 03977000 + IF(AINDX(5,N1S).GE.OPM.AND.OPM.GT.0.AND.NMT.GT.M2) NMT=M2+2 03978000 +C L'OPZIONE DI MASSA PREDOMINA SU SCHEDA MIX BIANCA 03979000 + IF(AINDX(5,N1S).LT.OPM.AND.NMT.EQ.M2+1.AND.OPM.GT.0.) GO TO 5 03980000 + IF(NMT.LE.0) GO TO 5 03981000 +C ESCLUSIONE ESPLICITA 03982001 + IF(NMT.LE.M2.AND.MIX(7,NMT).LE.-5) GO TO 5 03983002 +C 03984000 +C ..................... LOOP SU INDICE PRIMA SERIE 03985000 + DO 10 I=N1S,N3S 03986000 + IF(AINDX(30,I).NE.3) GO TO 100 03987000 +C NON E UNA RISONANZA UNRES DA TRATTARE QUI 03988000 +C 03989000 +C 03990000 +C QUI HA ACCETTATO IL MATERIALE 03991000 +C 03992000 + WRITE(NP12,7010) AINDX(35,I),AINDX(36,I) 03993000 + 7010 FORMAT(1X,2A4) 03994000 +C 03995000 +C 03996000 +C LAVORA SULL INDICE E LETTA UNA SCHEDA DI INDICE ( DI UN ISOTOPO ED03997000 +C ENERGY RANGE) VA A TRATTARLA SENZA PREOCCUPARSI DI QUANTI ISOTOPI 03998000 +C E RANGE VENGANO TRATTATI 03999000 +C 04000000 + NLS=AINDX(18,I) 04001000 + JMX=AINDX(19,I) 04002000 + NE=AINDX(38,I) 04003000 + IF(NE.LE.0) NE=OPZ(2,3,2) 04004000 + IF(NE.LE.0) NE=15 04005000 +C SISTEMA LE MATRICI PER LA SUBROUTINE CALCR3 DI CALCOLO 04006000 +C MATRICI PER DATI DI MCCF3 04007000 + K1=1 04008000 +C JST(NLS) 04009000 + K2=K1+NLS 04010000 +C E 04011000 + K3=K2+NE 04012000 +C DELTA 04013000 + K4=K3+NE 04014000 +C GAMMA 04015000 + K5=K4+NE*JMX*NLS 04016000 +C D 04017000 + K6=K5+NE*JMX*NLS 04018000 +C GF 04019000 + K7=K6+NE*JMX*NLS 04020000 +C GNO 04021000 + K8=K7+NE*JMX*NLS 04022000 +C G 04023000 + K9=K8+JMX*NLS 04024000 +C NDFF 04025000 + K10=K9+JMX*NLS 04026000 +C NDFN 04027000 + K11=K10+JMX*NLS 04028000 +C AJ 04029000 + K12=K11+JMX*NLS 04030000 +C AMUX 04031000 + K13=K12+JMX*NLS 04032000 +C AMUN 04033000 + K14=K13+JMX*NLS 04034000 +C AMUG 04035000 + K15=K14+JMX*NLS 04036000 +C AMUF 04037000 + K16=K15+JMX*NLS 04038000 +C D 04039000 + K17=K16+JMX*NLS*NE 04040000 +C GX 04041000 + K18=K17+JMX*NLS*NE 04042000 +C GNO 04043000 + K19=K18+JMX*NLS*NE 04044000 +C GG 04045000 + K20=K19+JMX*NLS*NE 04046000 +C GF 04047000 + KFIN=K20+JMX*NLS*NE 04048000 + IF(KFIN.GT.MA) CALL ERR(8H P2MCF3 , 100) 04049000 + CALL RIEMP(0.0,KFIN,A) 04050000 +C 04051000 + CALL CALCR3(I,NMT,M1,M2,MIX,NE,JMX,NLS, 04052000 + 1A(K1),A(K2),A(K3),A(K4),A(K5),A(K6),A(K7),A(K8),A(K9),A(K10), 04053000 + 2A(K11),A(K12),A(K13),A(K14),A(K15),A(K16),A(K17),A(K18), 04054000 + 3A(K19),A(K20)) 04055000 +C 04056000 +C 04057000 + 100 CONTINUE 04058000 + 10 CONTINUE 04059000 + 5 CONTINUE 04060000 + RETURN 04061000 + END 04062000 + SUBROUTINE CALCR3(I,NMT,M1,M2,MIX,NE,JMX,NLS, 04063000 + 1JST,E,DEL, 04064000 + 2GA,D,GF,GNO,G,NDFF,NDFN, 04065000 + 3AJ,AMUX,AMUN,AMUG,AMUF,D1,GX,GNO1,GG,GF1) 04066000 +C ******************************************************************04067000 +C 04068000 +C CALCOLATIONS FOR UNRESOLVED RESONANCE PARAMETERS (CONTINUATION OF04069000 +C I= INDICE P2MCF3 ROUTINE)04070000 +C NMT = NUMERO DELLA MIX 04071000 +C M1,M2= DIMENSIONI DELLA MIX(DI MCCF3) 04072000 +C 04073000 +C ******************************************************************04074000 +C 04075000 + DIMENSION MIX(M1,M2) 04076000 + COMMON /DIM/M(5) 04077000 + COMMON /FILES/NT(4,99) 04078000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 04079000 + 1 ,(NP12,NT(1,12)) 04080000 + COMMON /INDX/AINDX(40,200) 04081000 + COMMON /INDX1/AINDX1(40,200) 04082000 + COMMON/OPZIO/ OPZ(4,8,10) 04083000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 04084000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 04085000 + COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 04086000 + 1N1X,N2X,NS,LX,LY,LB 04087000 + DIMENSION JST(NLS),E(NE),DEL(NE),GA(NE,JMX,NLS),D(NE,JMX,NLS) 04088000 + DIMENSION GF(NE,JMX,NLS),GNO(NE,JMX,NLS),G(JMX,NLS) 04089000 + DIMENSION NDFF(JMX,NLS),NDFN(JMX,NLS),AMUG(JMX,NLS) 04090000 + DIMENSION AJ(JMX,NLS),AMUX(JMX,NLS),AMUN(JMX,NLS),AMUF(JMX,NLS) 04091000 + DIMENSIOND1(NE,JMX,NLS),GX(NE,JMX,NLS),GNO1(NE,JMX,NLS) 04092000 + DIMENSION GG(NE,JMX,NLS),GF1(NE,JMX,NLS) 04093000 +C 04094000 +C 04095000 + EQUIVALENCE(IND,M(2)),(IND2,M(4)) 04096000 +C TEST SU E RANGE 04097000 + IF(AINDX(11,I).GT.2) CALL ERR(8H CALCR3 , 0) 04098000 +C POSIZIONA TAPE DI INPUT E LO DEFINISCE 04099000 + NPOST=AINDX(25,I) 04100000 + NTIN=AINDX(23,I) 04101000 + NTI=NT(1,NTIN) 04102000 + CALL POST(NTIN,NPOST) 04103000 +C POSIZIONATO AD INIZIO E RANGE E ISOTOPO DELLA SCHEDA INDICE 04104000 +C A SECONDA DEL TIPO DI RAPPRESENTAZIONE TRATTA IN MODO DIVERSO 04105000 +C DEFINISCE TAPES DI OUTPUT 04106000 + NTOUT=33 04107000 + IF(NMT.LE.M2.AND.NMT.GT.0) NTOUT=MIX(5,NMT) 04108000 + IF(NTOUT.LE.0) NTOUT=33 04109000 + NTO=NT(1,NTOUT) 04110000 + SPI=AINDX(16,I) 04111000 + AP=AINDX(17,I) 04112000 + LFW=AINDX(10,I) 04113000 + LRF=AINDX(13,I) 04114000 + T=AINDX(7,I) 04115000 + AWR=AINDX(5,I) 04116000 + AWRI=AINDX(40,I) 04117000 + IF(AINDX(12,I).NE.2) CALL ERR(8H CALC3 ,1) 04118000 +C 04119000 + WRITE(NP12,7001) NTO 04120000 + 7001 FORMAT(' CALCR3 ENTERED:UNRESOLVED PARAMETERS ON FILE:',I5) 04121000 +C 04122000 + IF(LRF.NE.2) GO TO 200 04123000 +C M L B W 04124000 +C TUTTE LE GAMMA FUNZIONE DI E 04125000 + WRITE(NP,9001) AINDX(35,I),AINDX(36,I) 04126000 + 9001 FORMAT(1X,2A4,' UNRES PARAMETERS.:ALL WIDTHS ENERGY DEPENDENT') 04127000 +C LEGGE IL CONT (CHE E GIA IN AINDX) 04128000 + CALL RREC(1,NTI,3,T) 04129000 + NLS=N1 04130000 + NT(4,NTIN)=NT(4,NTIN)+1 04131000 +C CONTROLLO MAT,MF,MT DEL RECORD LETTO 04132000 + CALL CONTR1(I,8HCALC3 ,2 ,MINDX1,MINDX2,AINDX) 04133000 + DO 10 IL=1,NLS 04134000 + READ(NTI,1000) AWRI1,DUM,L,NDUM,NJS,NDUM 04135000 + IF(L+1.NE.IL)CALLERR(8HCALCR3 ,10) 04136000 +C IF(AWRI.NE.AWRI1) CALL ERR(8HCALCR3 ,11) 04137000 + NT(4,NTIN)=NT(4,NTIN)+1 04138000 + JST(IL)=NJS 04139000 + DO 20 IJ=1,NJS 04140000 + READ(NTI,1000) AJ(IJ,IL),DUM,INT,NDUM,NKE,NE1 04141000 + READ(NTI,2000) DUM,DUM,AMUX(IJ,IL),AMUN(IJ,IL),AMUG(IJ,IL), 04142000 + 1 AMUF(IJ,IL),(E(IE),D1(IE,IJ,IL),GX(IE,IJ,IL), 04143000 + 2 GNO1(IE,IJ,IL),GG(IE,IJ,IL),GF1(IE,IJ,IL),IE=1,NE1) 04144000 + NT(4,NTIN)=NT(4,NTIN)+NE1+2 04145000 + 20 CONTINUE 04146000 + 10 CONTINUE 04147000 + GOTO 500 04148000 + 200 CONTINUE 04149000 +C S L B W 04150000 + IF(LFW.NE.1) GO TO 300 04151000 + WRITE(NP,9002) AINDX(35,I),AINDX(36,I) 04152000 + 9002 FORMAT(1X,2A4,' UNRES PARAMETERS.:FISSION WIDTH ENERGY DEPENDENT')04153000 +C SOLO GAMMA FISSION FUNZIONE DI E 04154000 +C PER LFW=1 LEGGE IL LIST COLLE E LO METTE IN A 04155000 + READ(NTI,1000) SPI,AP,NDUM,NDUM,NE1,NLS1 04156000 + 1000 FORMAT(2E11.4,4I11,I4,I2,I3) 04157000 + 2000 FORMAT(6E11.4) 04158000 + IF(NE1.NE.NE) CALL ERR(8HCALCR3 ,200) 04159000 + IF(NLS1.NE.NLS) CALL ERR(8HCALCR3 ,201) 04160000 + READ(NTI,2000) (E(IE),IE=1,NE1) 04161000 + NT(4,NTIN)=NT(4,NTIN)+NE1/6+NREST(NE1,6)+1 04162000 + DO 30 IL=1,NLS 04163000 + READ(NTI,1000) AWRI1,DUM,L,NDUM,NJS,NDUM 04164000 + IF(L+1.NE.IL)CALLERR(8HCALCR3 ,10) 04165000 + IF(AWRI.NE.AWRI1) CALL ERR(8HCALCR3 ,11) 04166000 + NT(4,NTIN)=NT(4,NTIN)+1 04167000 + JST(IL)=NJS 04168000 + DO 40 IJ=1,NJS 04169000 + READ(NTI,1000) DUM,DUM,L,MUF,NKE,NDUM 04170000 + AMUF(IJ,IL)=MUF 04171000 + READ(NTI,2000) D9,AJ(IJ,IL),AMUN(IJ,IL),GNO9,GG9,DUM, 04172000 + 1 (GF1(IE,IJ,IL),IE=1,NE1) 04173000 + NT(4,NTIN)=NT(4,NTIN)+NE1/6+NREST(NE1,6)+2 04174000 +C SIMULA LA DIPENDFNZA ENERGETICA (PIATTA) PER CHI NON LA HA 04175000 + DO 50 IE=1,NE1 04176000 + D1(IE,IJ,IL)=D9 04177000 + GNO1(IE,IJ,IL)=GNO9 04178000 + GG(IE,IJ,IL)=GG9 04179000 + 50 CONTINUE 04180000 + 40 CONTINUE 04181000 + 30 CONTINUE 04182000 + GO TO 500 04183000 +C 04184000 + 300 CONTINUE 04185000 +C GAMMA NON DIPENDFNTI DA E (NESSUNA DELLE GAMMA) 04186000 +C 04187000 + WRITE(NP,9003) AINDX(35,I),AINDX(36,I) 04188000 + 9003 FORMAT(1X,2A4,' UNRES PARAMETERS.:WIDTHS COSTANT IN ENERGY') 04189000 +C COME ETOE-II SIMULA E DIP CON 15 PUNTI A LETARGIA COSTANTE 04190000 + DELTAU=ALOG(AINDX(15,I)/AINDX(14,I))/(NE-1) 04191000 + E(1)=AINDX(14,I) 04192000 + DO 55 IE=2,NE 04193000 + 55 E(IE)=E(IE-1)*EXP(DELTAU) 04194000 +C LE ENERGIE SONO CRESCENTI QUI COME ENDFB NON DECRESCENTI 04195000 +C COME MCC2F3 ED MC2-II 04196000 +C 04197000 + READ(NTI,1000) SPI,AP,DUM,DUM,NLS1 04198000 + NT(4,NTIN)=NT(4,NTIN)+1 04199000 + IF(NLS1.NE.NLS) CALL ERR(8HCALCR3 ,60) 04200000 + DO 60 IL=1,NLS1 04201000 + READ(NTI,1000)AWRI1,DUM,L,NDUM,NKE,NJS 04202000 + IF(AWRI.NE.AWRI1) CALL ERR(8HCALCR3 ,61) 04203000 + JST(IL)=NJS 04204000 + READ(NTI,2000) (D1(1,IJ,IL),AJ(IJ,IL),AMUN(IJ,IL), 04205000 + 1 GNO1(1,IJ,IL),GG(1,IJ,IL),DUM,IJ=1,NJS) 04206000 + NT(4,NTIN)=NT(4,NTIN)+1+NJS 04207000 +C SIMULA E DIP PER CHI NON LA HA 04208000 + DO 70 IJ=1,NJS 04209000 + AMUF(IJ,IL)=1. 04210000 + DO 75 IE=2,NE 04211000 + GNO1(IE,IJ,IL)=GNO1(1,IJ,IL) 04212000 + GG(IE,IJ,IL)=GG(1,IJ,IL) 04213000 + D1(IE,IJ,IL)=D1(1,IJ,IL) 04214000 + 75 CONTINUE 04215000 + 70 CONTINUE 04216000 + 60 CONTINUE 04217000 + 500 CONTINUE 04218000 +C 04219000 +C CALCOLO DEI PARAMETRI COME LI VUOLE MCC2F3 DA ENDFB 04220000 +C 04221000 + DO 15 IL=1,NLS 04222000 + DO 25 IJ=1,NJS 04223000 + G(IJ,IL)=(2*AJ(IJ,IL)+1)/(2*(2*SPI+1)) 04224000 + NDFF(IJ,IL)=AMUF(IJ,IL) 04225000 + NDFN(IJ,IL)=AMUN(IJ,IL) 04226000 +C SE SONO GLI STESSI NON E NECESSARIO TRASFERIRLI , MA LO FACCIO 04227000 +C PER AVERE LE FORMULE SOTTOMANO 04228000 + DO 35 IE=1,NE 04229000 + GA(IE,IJ,IL)=GG(IE,IJ,IL) 04230000 + GF(IE,IJ,IL)=GF1(IE,IJ,IL) 04231000 + D(IE,IJ,IL)=D1(IE,IJ,IL) 04232000 + GNO(IE,IJ,IL)=GNO1(IE,IJ,IL) 04233000 +C CONTROLLARE CHE GA=GC E NON GA=GC+GF 04234000 +C E'CONTROLLATO E' COSI' 04235000 + 35 CONTINUE 04236000 + 25 CONTINUE 04237000 + 15 CONTINUE 04238000 + DO 45 IE=1,NE 04239000 + 45 DEL(IE)=SQRT(4*8.6167E-5*E(IE)/AWRI) 04240000 + CR=2.196771*AWRI/(AWRI+1)*(0.123*AWRI**(1./3.)+0.08)*1.E-3 04241000 + SR=2.196771*AWRI/(AWRI+1)*AP*1.E-3 04242000 +C FISSO I NOMI DELLE REGISTRAZIONI ( ESISTE UN DEFAULT IN CUI 04243000 +C ARRIVA QUI SENZA IDENTIFICATORI IL NUCLIDE E QUI NON METTO IDENTIF04244000 + IF(NMT.GT.M2) GO TO 600 04245000 + NOM=MIX(3,NMT) 04246000 + NOM1=MIX(4,NMT) 04247000 + NOM2=MIX(1,NMT) 04248000 + NOM3=MIX(2,NMT) 04249000 + GO TO 610 04250000 +C ANDREBBE MESSO ENDFB ID COME CARATTERE MA NON HO FATTO LA SUBROUT04251000 + 600 NOM=NAREAL(AINDX(35,I)) 04252000 + NOM1=NAREAL(AINDX(36,I)) 04253000 + NOM2=NAREAL(AINDX(35,I)) 04254000 + NOM3=NAREAL(AINDX(36,I)) 04255000 + 610 CONTINUE 04256000 + IF(OPZ(2,3,1).LT.10) GO TO 700 04257000 + WRITE(NO,3001) NOM,NOM1 04258000 + 3001 FORMAT(//10X,2A4/) 04259000 + WRITE(NO,3000) 04260000 + 3000 FORMAT(' PRODUCED UNRESOLVED RESONANCE PARAMETERS') 04261000 + WRITE(NO,4000) (JST(J),J=1,NLS) 04262000 + 4000 FORMAT(' JST=NUMBER OF J-RESONANCE',10I5) 04263000 + WRITE(NO,5000) (E(J),DEL(J),J=1,NE) 04264000 + 5000 FORMAT(3(' E=',E12.5,' DEL=',E12.5)) 04265000 + WRITE(NO,6000)(((JE,JJ,JL,GA(JE,JJ,JL),D(JE,JJ,JL), 04266000 + 1 GF(JE,JJ,JL),GNO(JE,JJ,JL),JE=1,NE),JJ=1,NJS),JL=1,NLS) 04267000 + 6000 FORMAT(' JE=',I4,' JJ=',I4,' JL=',I4,' GA=',E12.5,' D=', 04268000 + 1 E12.5,' GF=',E12.5,' GNO=',E12.5) 04269000 + WRITE(NO,7000)((J,JL,G(J,JL),NDFF(J,JL),NDFN(J,JL),J=1,JMX), 04270000 + 1 JL=1,NLS) 04271000 + 7000 FORMAT(' J=',I4,' JL=',I4,' G=',E12.5,' NDFF=', 04272000 + 1 I5,' NDFN=',I5) 04273000 + 700 CONTINUE 04274000 + IF(OPZ(2,3,1).LT.20) GO TO 800 04275000 + WRITE(NO,8000) ((J,L,AJ(J,L),AMUX(J,L),AMUN(J,L),AMUG(J,L), 04276000 + 1 AMUF(J,L),J=1,JMX),L=1,NLS) 04277000 + 8000 FORMAT(' ENDFB INPUT PARAMETERS:'/( 04278000 + 1' J=',I4,' L=',I4,' AJ=',E12.5,' AMUX=',E12.5, 04279000 + 2 ' AMUN=',E12.5,' AMUG=',E12.5,' AMUF=',E12.5)) 04280000 + WRITE(NO,9000) (((J,L,IE,GX(IE,J,L),GNO1(IE,J,L),GG(IE,J,L), 04281000 + 1 D1(IE,J,L),GF1(IE,J,L),J=1,JMX),L=1,NLS),IE=1,NE) 04282000 + 9000 FORMAT(' J=',I4,' L=',I4,' IE=',I4,' GX=',E12.5,' GNO1=',E12.5, 04283000 + 1 ' GG=',E12.5,' D1=',E12.5,' GF1=',E12.5) 04284000 + 800 CONTINUE 04285000 +C 04286000 +C 04287000 +C 04288000 + CALL POSL(NTOUT) 04289000 +C POSIZIONA TAPE OUT AL PRIMO RECORD LIBERO 04290000 +C SCRITTO IN ORDINE INVERSO A QUELLO DI INPUT (E CALANTI) 04291000 + WRITE(NTO) (E(NE-J+1),J=1,NE),(DEL(NE-J+1),J=1,NE), 04292000 + 1 (JST(J),J=1,NLS) 04293000 +C PER NON AVERE LIMITI DI DO DIMENSINATI DEVO FARE QUESTO MARCHINGEG04294000 +C POSSIBILE PER COME SONO IN FILA I GAMMA IN A 04295000 +C COMPRIMI GLI SPAZI VUOTI E STAMPO LA MATRICE COME UN TUTTO UNO 04296000 +C PRESS METTE IN ORDINE DI ENERGIE DECRESCENTE 04297000 +C COME MCC2F, MENTRE ENDFB E IL CONTRARIO (ORD E CRESCENTE) 04298000 +C 04299000 + CALL PRESS(NE,JMX,NLS,JST,NFIN,GA,GA) 04300000 + NFIN=NFIN+1 04301000 + CALL PRESS(NE,JMX,NLS,JST,KB,D,GA(NFIN,1,1)) 04302000 + NFIN=NFIN+KB 04303000 + CALL PRESS(NE,JMX,NLS,JST,KB,GF,GA(NFIN,1,1)) 04304000 + NFIN=NFIN+KB 04305000 + CALL PRESS(NE,JMX,NLS,JST,KB,GNO,GA(NFIN,1,1)) 04306000 + NFIN=NFIN+KB 04307000 + CALL PRESS(1,JMX,NLS,JST,KB,G,GA(NFIN,1,1)) 04308000 + NFIN=NFIN+KB 04309000 + CALL PRESS(1,JMX,NLS,JST,KB,NDFF,GA(NFIN,1,1)) 04310000 + NFIN=NFIN+KB 04311000 + CALL PRESS(1,JMX,NLS,JST,KB,NDFN,GA(NFIN,1,1)) 04312000 + NFIN=NFIN+KB-1 04313000 + WRITE(NTO) (GA(J,1,1),J=1,NFIN) 04314000 + IND2=IND2+1 04315000 + IF(IND2.GT.MIND12) CALL ERR(8H CALCR3 ,40) 04316000 + CALL EMPIN(MIND11,AINDX1(1,IND2),AINDX(1,I),AINDX(2,I),AINDX(3,I),04317000 + 1AINDX(4,I),AINDX(5,I),NOM,NOM1,NOM2,NOM3, 04318000 + 20.,3.,0.,0.,FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(4,NTOUT)), 04319000 + 32.,FLOAT(2*NE+NLS),FLOAT(NFIN),AINDX(6,I),AINDX(10,I),2., 04320000 + 1AINDX(18,I), 04321000 + 4FLOAT(JMX),FLOAT(NE),AINDX(9,I),AWRI,SR,CR,0.,0., 04322000 + 5AINDX(14,I),AINDX(15,I),AINDX(28,I),AINDX(29,I),0.,0.,0.,0.,0.) 04323000 +C 04324000 + NT(4,NTO)=NT(4,NTO)+2 04325000 + NT(3,NTO)=NT(4,NTO) 04326000 + RETURN 04327000 + END 04328000 + SUBROUTINE PRESS(NE,JMX,NLS,JST,KB,A,B) 04329000 +C *************************************** 04330000 +C COMPRESS A MATRIX 04331000 +C COMPRIME MATRICE PER SCRITTURE FILES MCCF 04332000 +C LA MATRICE A E MESSA IN B , A HA 3 INDICI 04333000 +C IL SECONDO INDICE E FUNZIONE DEL PRIMO ED 04334000 +C E SPECIFICATO IN JST 04335000 +C 04336000 +C PRESS RIBALTA L'ORDINE DELLE ENERGIE, CRESCENTI 04337000 +C IN INPUT (ENDFB) DESCRESCENTI IN OUTPUT(MCC2F3) 04338000 +C 04339000 +C ********************************************* 04340000 +C 04341000 + DIMENSION JST(NLS),A(NE,JMX,NLS),B(1) 04342000 + KB=0 04343000 + DO 10 IL=1,NLS 04344000 + NJ=JST(IL) 04345000 + DO 20 IJ=1,NJ 04346000 + DO 30 IE=1,NE 04347000 + IE1=NE-IE+1 04348000 + KB=KB+1 04349000 + B(KB)=A(IE1,IJ,IL) 04350000 + 30 CONTINUE 04351000 + 20 CONTINUE 04352000 + 10 CONTINUE 04353000 + RETURN 04354000 + END 04355000 + SUBROUTINE P2MCF4(MA,A,M1,M2,MIX,MKB1,INDIND,MKB,INDMIX) 04356000 +C ********************************* 04357000 +C 04358000 +C RESOLVED RESONANCE PARAMETERS CALCULATION FOR MCC2F4 FILE 04359000 +C 04360000 +C IN A SPAZIO SCRATCH 04361000 +C IN MIX LA MIXING DELL F3 04362000 +C IN INDMIX INDICE DI MIX 04363000 +C IN INDIND INDICE DI IND 04364000 +C PER MIX: 04365000 +C (1 ) = VALORE 04366000 +C (2 ) = INIZIO VALORE 04367000 +C (3 ) = DIMENSIONI VALORE 04368000 +C PER INDIND: 04369000 +C (1,2 = VALORE(REAL*8) 04370000 +C (3 = INIZIO 04371000 +C (4 = DIMENSIONI 04372000 +C 04373000 +C 04374000 +C 04375000 +C ********************************************** 04376000 +C 04377000 + DIMENSION A(MA),MIX(M1,M2) 04378000 + DIMENSION INDMIX(3,MKB),INDIND(4,MKB1) 04379000 + COMMON /INDX1/AINDX1(40,200) 04380000 + COMMON /INDX/AINDX(40,200) 04381000 + COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 04382000 + 1N1X,N2X,NS,LX,LY,LB 04383000 + COMMON/DENS/JMT,JAT,JTT,JLT,LV,JNS,MNS, 04384000 + 1JX,MX 04385000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 04386000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 04387000 + COMMON/DIM/M(5) 04388000 + COMMON/OPZIO/ OPZ(4,8,10) 04389000 + COMMON/FILES/NT(4,99) 04390000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 04391000 + EQUIVALENCE (NP12,NT(1,12)) 04392000 + EQUIVALENCE (OPZ(2,5,5),OPM),(OPZ(2,4,1),STMP) 04393000 + EQUIVALENCE (IND,M(2)),(IND2,M(4)) 04394000 +C INDICE PRIMA SERIE = M(2) 04395000 +C INDICE SECONDA SERIE = M(4) 04396000 +C AZZERA INDICE SERIE 2 ( CHE CREA) 04397000 +C LA ISTRUZIONE IND2=0 STA IN SUB P2 04398000 +C 04399000 + WRITE(NP12,7000)((MIX(J,JJ),J=1,M1),JJ=1,M2) 04400000 + 7000 FORMAT(' P2MCF4 ENTERED. INPUT TABLE TO BE EXECUTED:'/ 04401000 + 1 (1X,2A4,1X,2A4,8I4,3E12.5)) 04402000 +C 04403000 +C ............ LOOP SU INDICE DELL' INDICE (SUI NUCLIDI DELL'INDICE04404000 + DO 5 IS=1,MKB1 04405000 + N1S=INDIND(3,IS) 04406000 + N2S=INDIND(4,IS) 04407000 + N3S=N1S+N2S-1 04408000 +C 04409000 +C NCERC1 CERCA NELLA MIX L'ISOTOPO DELL'INDICE 04410000 +C 04411000 + NMT=NCERC1(MINDX1,IND,AINDX,M1,M2,MIX,N1S,35,3,1) 04412000 +C OPZIONE DI MASSA CHE PONE NMT=M2+2 (SU CUI PREDOMINA SCHEDA MIX)04413000 + IF(AINDX(5,N1S).GE.OPM.AND.OPM.GT.0..AND.NMT.GT.M2) NMT=M2+2 04414000 +C L'OPZIONE DI MASSA PREDOMINA SU SCHEDA MIX BIANCA 04415000 + IF(AINDX(5,N1S).LT.OPM.AND.NMT.EQ.M2+1.AND.OPM.GT.0.) GO TO 5 04416000 + IF(NMT.LE.0) GO TO 5 04417000 +C ESCLUSIONE ESPLICITA 04418001 + IF(NMT.LE.M2.AND.MIX(7,NMT).LE.-5) GO TO 5 04419001 +C 04420000 +C ..................... LOOP SU INDICE PRIMA SERIE 04421000 + DO 10 I=N1S,N3S 04422000 + IF(AINDX(30,I).NE.4) GO TO 100 04423000 +C NON E UNA RISONANZA RESOLVED DA TRATTARE QUI 04424000 +C 04425000 +C QUI HA ACCETTATO IL MATERIALE 04426000 +C 04427000 + WRITE(NP12,7010) AINDX(35,I),AINDX(36,I) 04428000 + 7010 FORMAT(1X,2A4) 04429000 +C 04430000 +C DEFINISCE TAPES DI INPUT ED OUTPUT 04431000 + NTOUT=34 04432000 + IF(NMT.LE.M2.AND.NMT.GT.0) NTOUT=MIX(5,NMT) 04433000 + IF(NTOUT.LE.0) NTOUT=34 04434000 + NTO=NT(1,NTOUT) 04435000 +C 04436000 +C LAVORA SULL INDICE E LETTA UNA SCHEDA DI INDICE ( DI UN ISOTOPO ED04437000 +C ENERGY RANGE) VA A TRATTARLA SENZA PREOCCUPARSI DI QUANTI ISOTOPI 04438000 +C E RANGE VENGANO TRATTATI 04439000 +C 04440000 +C TEST SU E RANGE 04441000 + IF(AINDX(11,I).GT.2) CALL ERR(8H P2MCF4 , 0) 04442000 +C POSIZIONA TAPE DI INPUT E LO DEFINISCE 04443000 + NPOST=AINDX(25,I) 04444000 + NTIN=AINDX(23,I) 04445000 + NTI=NT(1,NTIN) 04446000 + CALL POST(NTIN,NPOST) 04447000 +C POSIZIONATO AD INIZIO E RANGE E ISOTOPO DELLA SCHEDA INDICE 04448000 + LRF=AINDX(13,I) 04449000 +C LRF=1,2,4=BWSL,BWML,AA 04450000 + NLS=AINDX(18,I) 04451000 + IF(LRF.EQ.1.OR.LRF.EQ.2) GO TO200 04452000 + IF(LRF.EQ.4) GO TO 400 04453000 + CALL ERR(8H P2MCF4 ,200) 04454000 + 200 CONTINUE 04455000 +C .......................... B W LETTURA PARAMETRI 04456000 + READ(NTI,1000)SPI,AP,DUM,DUM,NLS1,DUM 04457000 + NT(4,NTIN)=NT(4,NTIN)+1 04458000 +C LEGE IL CONT (GIA IN INDICE ) 04459000 + 1000 FORMAT(2E11.4,4I11,I4,I2,I3) 04460000 + IF(NLS1.NE.NLS) CALL ERR(8H P2MCF4 ,30) 04461000 +C LEGGE I PARAMETRI 04462000 + NK=0 04463000 + DO 20 IL=1,NLS 04464000 + READ(NTI,1000)AWRI,QX,L,LRX,NRS6,NRS 04465000 + READ(NTI,2000)((A(NK+7*(J-1)+JJ),JJ=2,7),J=1,NRS) 04466000 + 2000 FORMAT(6E11.4) 04467000 +C COSI PERCHE LE RISONANZE DIPENDONO DA IL 04468000 + NT(4,NTIN)=NT(4,NTIN)+1+NRS 04469000 +C METTO L IN MATRICE INSIEME AI PARAMETRI 04470000 + DO 30 ILG=1,NRS 04471000 + A(NK+7*(ILG-1)+1)= L 04472000 + 30 CONTINUE 04473000 + NK=NK+7*NRS 04474000 + 20 CONTINUE 04475000 + NRS=NK/7 04476000 +C .............. DIMENSIONI PARAMETRI DA PASSARE A SUB. BW 04477000 + K1=1 04478000 +C PARTE DI PK LETTI DA ENDFB 04479000 + K2=K1+NRS*7 04480000 +C PARAMETRI DA CREARE PER MCCF 04481000 + NPK=8 04482000 + IF(LRF.EQ.2)NPK=16 04483000 + K3=K2+NRS*NPK 04484000 +C BWSL SONO 8 PARAMETRI 04485000 +C BWML SONO 16 PARAMETRI 04486000 + IF(K3.GT.MA) CALL ERR(8H P2MCF4 ,20) 04487000 + CALL BW(NRS,7,NPK,A(K1),A(K2),LRF,SPI,AWRI,AP,NTOUT,NTO, 04488000 + 1MINDX1,AINDX(1,I),M1,M2,MIX,NMT,NLS) 04489000 +C SPI E LETTO DAENDFB 04490000 +C LRF DA INDICE 04491000 +C AWRI DA ENDFB 04492000 +C AP DA ENDFB 04493000 + GO TO 100 04494000 + 400 CONTINUE 04495000 +C ................................. LETTURA A A 04496000 + READ(NTI,1000) SPI,AP,DUM,DUM,NLS1,DUM 04497000 + IF(NLS.NE.NLS1) CALL ERR(8H P2MCF4 ,400) 04498000 + READ(NTI,1000) AWRI,DUM,LI,DUM,NX6,NX 04499000 + DO 3 J=1,18 04500000 + 3 A(J)=0. 04501000 +C PER AVERE BIANCHI OVE NON LEGGE ( SERVE COSI AD SUB. AA CHE METTE 04502000 +C INDICE IL BACKGROUND 04503000 + READ(NTI,2000) (A(J),J=1,NX6) 04504000 + NT(4,NTIN)=NT(4,NTIN)+2+NX 04505000 + NLA=18 04506000 +C POSIZIONI OCCUPATE IN A ( SPAZIO PER BACKGROUND POSSIBILI (MAX NX04507000 + NRS=0 04508000 + NMA1=16 04509000 + DO 40 IL=1,NLS 04510000 + READ(NTI,1000) DUM,DUM,L,DUM,NJS,DUM 04511000 + DO 50 IJ=1,NJS 04512000 + READ(NTI,1000) AJ,DUM,DUM,DUM,NLJ12,NLJ 04513000 + READ(NTI,2000) ((A(NLA+J+(JJ-1)*NMA1),J=5,NMA1),JJ=1,NLJ) 04514000 + DO 60 IJK=1,NLJ 04515000 + A(NLA+(IJK-1)*NMA1+1)=IL 04516000 + A(NLA+(IJK-1)*NMA1+2)=IJ 04517000 + A(NLA+(IJK-1)*NMA1+3)=AJ 04518000 + A(NLA+(IJK-1)*NMA1+4)=IJK 04519000 + NLA=NLA+NMA1*NLJ 04520000 + NRS=NRS+NLS 04521000 + 60 CONTINUE 04522000 + 50 CONTINUE 04523000 + 40 CONTINUE 04524000 +C DIMENSIONI MATRICI DA PASSARE A SUB. AA 04525000 + K1=1 04526000 +C BACKGROUND 04527000 + K2=K1+18 04528000 +C RISONANZE LETTE 04529000 + K3=K2+NMA1*NRS 04530000 +C RISONANZE DA CREARE 04531000 + K4=K3+10*NRS 04532000 + NFIN=K4-1 04533000 + IF(KFIN.GT.MA) CALL ERR(8H P3MCF3 ,40) 04534000 +C PARAMETRI RISONANZE DI OUTPUT 04535000 + NPKO=10 04536000 + CALL AA(NX,A(K1),NMA1,NRS,A(K2),NPKO,NRS,A(K3),NTOUT,NTO, 04537000 + 1AP,AWRI,SPI,MINDX1,AINDX(1,I),M1,M2,MIX,NMT,NLS) 04538000 + 100 CONTINUE 04539000 + 10 CONTINUE 04540000 + 5 CONTINUE 04541000 + RETURN 04542000 + END 04543000 + SUBROUTINE BW(NRS,M7,NPK,PKIN,PKOU,LRF,SPI,AWRI,AP,NTOUT,NTO, 04544000 + 1MINDX1,AINDX,M1,M2,MIX,NMT,NLS) 04545000 +C *********************************************************** 04546000 +C 04547000 +C BWSL AND BWML RESONANCE PARAMETER 04548000 +C 04549000 +C *************************************************************** 04550000 +C 04551000 + COMMON /OPZIO/OPZ(4,8,10) 04552000 + EQUIVALENCE(OPZ(2,4,3),GAX),(OPZ(2,4,1),STMP) 04553000 + DIMENSION PKIN(M7,NRS),PKOU(NPK,NRS),AINDX(MINDX1),MIX(M1,M2) 04554000 + COMMON /FILES/NT(4,99) 04555000 + EQUIVALENCE(NO,NT(1,6)),(NP,NT(1,11)) 04556000 + COMMON /INDX1/AINDX1(40,200) 04557000 + COMMON /DIM/M(5) 04558000 + COMMON /DIMC/MMA,MINDD1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 04559000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 04560000 +C PKIN (1 =L (L=0 PER ONDA S ) 04561000 +C PKIN (2 =ER 04562000 +C 3 =AJ 04563000 +C 4 =GT 04564000 +C 5 =GN 04565000 +C 6 =GG 04566000 +C 7 =GF 04567000 + EQUIVALENCE (IND2,M(4)) 04568000 +C 04569000 + WRITE(NP,9000) AINDX(35),AINDX(36),NRS,AINDX(14),AINDX(15) 04570000 + 9000 FORMAT(1X,2A4,' BREIT-WIGNER RES. RESONANCES:',I5, 04571000 + 1 ' RANGE:',2E12.5) 04572000 +C 04573000 + EUP=OPZ(2,5,2) 04574000 + DELU=OPZ(2,5,3) 04575000 + NG=OPZ(2,5,4) 04576000 + IF(DELU.LE.0.) DELU=1./120. 04577000 + IF(NG.LE.0) NG=2082 04578000 + IF(EUP.LE.0.) EUP=1.4190675E+7 04579000 + EDOWN=EUP*EXP(-NG*DELU) 04580000 +C 04581000 +C 04582000 +C ........................... LOOP SU RISONANZE 04583000 + DO 10 IR=1,NRS 04584000 +C GI 04585000 + G=(2*PKIN(3,IR)+1)/(2*(2*SPI+1)) 04586000 +C 04587000 + GT=PKIN(5,IR)+PKIN(6,IR)+PKIN(7,IR) 04588000 + IF(GAX.GT.1) GT=PKIN(4,IR) 04589000 +C INSERISCE GX (COMPETITIVE) NEL TOTALE PER GAX>1 04590000 +C E 04591000 + PKOU(1,IR)=PKIN(2,IR) 04592000 +C SIG0 04593000 + GN=PKIN(5,IR) 04594000 + IF(GAX.GT.0) GN=PKIN(4,IR)-PKIN(6,IR)-PKIN(7,IR) 04595000 +C INSERISCE GX NELLA GN ( COME MANUALE MC2 ( DESC MCCF)) 04596000 + PKOU(2,IR)=2.6039953E+6/PKIN(2,IR)*G*((AWRI+1)/AWRI)**2*GN/GT 04597000 +C A PARTE QUELLO CHE E NEL MANUALE DI MC22 IO NON METTEREI GX NELLA04598000 +C GN VISTO CHE E GIA NELLE SMOOTHS 04599000 +C THETA 04600000 + PKOU(3,IR)=GT/SQRT(34.4668E-5*ABS(PKIN(2,IR))/AWRI) 04601000 +C AFAC 04602000 + PKOU(4,IR)=SQRT(ABS(G*PKIN(5,IR)*AP**2/GT/PKOU(2,IR)*12.56637062))04603000 +C AFAC SET ZERO FOR D AND P RESONANCES 04604000 + IF(PKIN(1,IR).GE.1) PKOU(4,IR)=0. 04605000 +C GT 04606000 + PKOU(5,IR)=GT 04607000 +C GN 04608000 + PKOU(6,IR)=PKIN(5,IR) 04609000 +C GG 04610000 + PKOU(7,IR)=PKIN(6,IR) 04611000 +C GF 04612000 + PKOU(8,IR)=PKIN(7,IR) 04613000 + IF(LRF.EQ.1) GO TO 100 04614000 +C .................................. MULTI LEVEL 04615000 +C CS=GT 04616000 + PKOU(9,IR)=PKIN(4,IR) 04617000 +C GC/GS 04618000 + PKOU(10,IR)=PKIN(6,IR)/PKOU(9,IR) 04619000 +C GF/GS 04620000 + PKOU(11,IR)=PKIN(7,IR)/PKOU(9,IR) 04621000 +C TERMINE CORRETTIVO GT+GCOR 04622000 + PKOU(12,IR)=1 04623000 +C BC=0 04624000 + PKOU(13,IR)=0 04625000 + BF=0 04626000 + PKOU(14,IR)=0 04627000 +C TERMINI DI INTERFERENZA NELLA FORMA ADLER-GAUSS 04628000 + PKOU(15,IR)=0. 04629000 + PKOU(16,IR)=0. 04630000 + 100 CONTINUE 04631000 + 10 CONTINUE 04632000 + IF(LRF.EQ.1) GO TO 200 04633000 +C CALCOLO TERMINI SIMMETRICO ED ANTISIMMETRICO DELLE FORMULE DI AD04634000 +C VENGONO MESSI IN PKOU(15,.) E PKOU(16,.) 04635000 +C 04636000 + DO 20 IRJ=1,NRS 04637000 + DO 17 IRK=1,NRS 04638000 + IF(IRJ.EQ.IRK) GOTO 17 04639000 + IF(PKIN(1,IRK).NE.PKIN(1,IRJ) ) GO TO 17 04640000 + IF(PKIN(2,IRK).EQ.PKIN(2,IRJ) ) GO TO 17 04641000 + IF(PKIN(3,IRK).NE.PKIN(3,IRJ) ) GO TO 17 04642000 +C 04643000 +C ESCLUDE DALLA SOMMATORIA I CASI : 04644000 +C AUTOINTERFERENZA ( IRK=IRJ) 04645000 +C DIVERSO L ( PKIN(1 04646000 +C DIVERSO J ( PKIN(3 04647000 +C 04648000 +C CALCOLO GAMMA TOTAL COME FUNZIONE DI E PER RISONANZA K 04649000 + IF(PKIN(1,IRK).LE.0) ESP=0.5 04650000 + IF(PKIN(1,IRK).EQ.1) ESP=1.5 04651000 + IF(PKIN(1,IRK).GE.2) ESP=2.5 04652000 + GTK=PKIN(6,IRK)+PKIN(7,IRK)+PKIN(5,IRK)* 04653000 + 1 ABS(PKIN(2,IRJ)/PKIN(2,IRK))**ESP 04654000 +C 04655000 +C CALCOLO FATTORE DI DIPENDENZA ENERGETICA 04656000 + IF(PKIN(1,IRK).LE.0) EFAC=PKIN(5,IRK)*0.5* 04657000 + 1 SQRT(ABS(PKIN(2,IRJ)/PKIN(2,IRK))) 04658000 + IF(PKIN(1,IRK).EQ.1) EFAC=0.5*PKIN(5,IRK)* 04659000 + 1 ABS(PKIN(2,IRJ))**(-0.5)*ABS(PKIN(2,IRK))**(-1.5) 04660000 + IF(PKIN(1,IRK).GE.2) EFAC=PKIN(5,IRK)*0.5* 04661000 + 1 ABS(PKIN(2,IRJ))**(-0.5)*ABS(PKIN(2,IRK))**(-3.5) 04662000 +C 04663000 + TEMP=(PKIN(2,IRJ)-PKIN(2,IRK))**2+0.25*(PKIN(4,IRJ)+GTK)**2 04664000 +C 04665000 + PKOU(15,IRJ)=PKOU(15,IRJ)+EFAC*(PKIN(4,IRJ)+GTK)/TEMP 04666000 + PKOU(16,IRJ)=PKOU(16,IRJ)+EFAC*(PKIN(2,IRJ)-PKIN(2,IRK))/TEMP 04667000 +C 04668000 + 17 CONTINUE 04669000 +C 04670000 +C SIG0=SIG0+(1+SIMM) 04671000 + PKOU(2,IRJ)=PKOU(2,IRJ)*(1+PKOU(15,IRJ)) 04672000 +C AFAC=(AFAC+ASIMM)/(1+SIMM) 04673000 +C AFAC JUST SET ZERO FOR P AND D RESONANCES 04674000 + IF(PKIN(1,IRJ).GE.1.) GO TO 201 04675000 + PKOU(4,IRJ)=(PKOU(4,IRJ)+PKOU(16,IRJ))/(1+PKOU(15,IRJ)) 04676000 +C GTA=1+SIMM 04677000 + 201 PKOU(12,IRJ)=1+PKOU(15,IRJ) 04678000 +C 04679000 + 20 CONTINUE 04680000 + 200 CONTINUE 04681000 +C 04682000 +C TOGLIE LE RISONANZE FUORI DELL'ENERGY RANGE E LE ORDINA 04683000 +C QUI SI DEVE RIORDINARE ,I PK INPUT SOPRA PERCHE AD ADLER GAUSS 04684000 +C SERVONO TUTTE LE RISONANZE PRATICAMENTE,ANCHE QUELLE FUORI RANGE04685000 +C 04686000 +C SE EINF ED EUP SONO OLTRE I LIMITI DELLA STRUTTURA GRUPPALE 04687000 +C SI RIFERISCE ALLA STRUTTURA GRUPPALE 04688000 + EEINFF=AINDX(14) 04689000 + EEUPP=AINDX(15) 04690000 + IF(EEINFF.LT.EDOWN) EEINFF=EDOWN 04691000 + IF(EEUPP.GT.EUP) EEUPP =EUP 04692000 + IF(OPZ(2,4,2).LE.0.)CALL SELR1(NPK,NRS,PKOU,1,EEINFF,EEUPP) 04693000 + CALL ORDINA(1,NPK,NRS,PKOU) 04694000 +C 04695000 +C NUMERO PARAMETRI DI OUTPUT 04696000 + NPKOU=NPK 04697000 +C TROVO E MAX RISONANZE 04698000 + EMX=FNDMX(1,NPK,NRS,PKOU) 04699000 +C CALCOLO NUMERO RECORDS ( DI MCCF, NON DELLA SECONDA SERIE ) PER F04700000 +C SCRIVO 04701000 +C ARRIVA QUI SENZA IDENTIFICATORI IL NUCLIDE E QUI NON METTO IDENTIF04702000 + IF(NMT.GT.M2) GO TO 600 04703000 + NOM=MIX(3,NMT) 04704000 + NOM1=MIX(4,NMT) 04705000 + NOM2=MIX(1,NMT) 04706000 + NOM3=MIX(2,NMT) 04707000 + GO TO 610 04708000 +C ANDREBBE MESSO ENDFB ID COME CARATTERE MA NON HO FATTO LA SUBROUT04709000 + 600 NOM=NAREAL(AINDX(35)) 04710000 + NOM1=NAREAL(AINDX(36)) 04711000 + NOM2=NAREAL(AINDX(35)) 04712000 + NOM3=NAREAL(AINDX(36)) 04713000 + 610 CONTINUE 04714000 + CALL POSL(NTOUT) 04715000 +C POSIZIONA TAPE OUT AL PRIMO RECORD LIBERO 04716000 +C WRITE(NTO) NRS,NREC,EMX 04717000 +C WRITE(NTO) NOM2,NOM3,AINDX(28) 04718000 + IWR=1 04719000 + IF(LRF.NE.1) IWR=3 04720000 +C NOME,ISOTOPO ( NON VA IN TAPES MCCF ) 04721000 +C WRITE(NTO) AINDX(6),IWR,AINDX(14),AINDX(15) 04722000 +C NUM ISOTOPO, RAPPR 1,3=BWSL,BWML,E INF, E UPP ( DA E RANGE NON DA04723000 +C RISONANZE 04724000 +C WRITE(NTO) AINDX(9),NRS 04725000 +C ABBONDANZA ISOTOPO, NUM RISONANZE 04726000 +C VA ALL INDIETRO IN MCCF, IN AVANTI IN ENERGIE IN ENDFB 04727000 +C 04728000 + DO 31 I=1,4 04729000 + 31 WRITE(NTO) (PKOU(I,J),J=1,NRS) 04730000 + WRITE(NTO) ((PKOU(I,J),J=1,NRS),I=5,6) 04731000 +C 04732000 +C I PARAMETRI 5 E 6 SONO NELLO STESSO RECORD IN MCC2F4 04733000 +C 04734000 + DO 30 I=7,NPKOU 04735000 + WRITE(NTO) (PKOU(I,J),J=1,NRS) 04736000 + 30 CONTINUE 04737000 + IF(STMP.LT.10) GO TO 700 04738000 + WRITE(NO,901) NOM,NOM1 04739000 + 901 FORMAT(//20X,2A4/) 04740000 + WRITE(NO,900) 04741000 + 900 FORMAT(' OUTPUT RESONANCE PARAMETERS' ) 04742000 +C 04743000 + WRITE(NO,1000) NRS,NPKOU,EMX 04744000 + 1000 FORMAT(' RESONANCES:',I10,' RECORDS:',I10,' E MAX:',E12.5) 04745000 + WRITE(NO,2000) NOM2,NOM3,AINDX(28) 04746000 + 2000 FORMAT(1X,2A4,' ISOTOPE:',F10.0) 04747000 + WRITE(NO,3000) AINDX(6),IWR,AINDX(14),AINDX(15) 04748000 + 3000 FORMAT(' ISOTOPE:',F10.0,' RAPPR:',I5,' ENERGY LIMITS:',2E12.5) 04749000 + WRITE(NO,4000) AINDX(9),NRS 04750000 + 4000 FORMAT(' ABUNDANCE:',E12.5,' NUMBER OF RESONANCES:',I10/ 04751000 + 1 ' E SIGMA0 THETA AFAC GT', 04752000 + 2 ' GN GC GF GAMS GCC '/ 04753000 + 3 ' GFF GTT BC BF G H') 04754000 + DO 70 I=1,NRS 04755000 + WRITE(NO,5000) (PKOU(J,I),J=1,NPKOU) 04756000 + 5000 FORMAT(1X,10E12.5) 04757000 + 70 CONTINUE 04758000 + WRITE(NO,6000) 04759000 + 6000 FORMAT(//' INPUT RESONANCE PARAMETERS') 04760000 + DO 75 I=1,NRS 04761000 + 75 WRITE(NO,5000) (PKIN(J,I),J=1,M7) 04762000 + 700 CONTINUE 04763000 +C 04764000 + ANREC=NPKOU-1 04765000 + IND2=IND2+1 04766000 + IF(IND2.GT.MIND12) CALL ERR(8H BW , 30) 04767000 + CALL EMPIN(MIND11,AINDX1(1,IND2),AINDX(1),AINDX(2),AINDX(3), 04768000 + 1 AINDX(4), 04769000 + 1AINDX(5),NOM,NOM1,NOM2,NOM3,0.,4.,0.,0.,FLOAT(NTO),FLOAT(NTOUT), 04770000 + 2FLOAT(NT(4,NTOUT)),ANREC,FLOAT(NRS),FLOAT(NPKOU),AINDX(6), 04771000 + 3FLOAT(LRF),EMX,FLOAT(IWR),SPI,AP,AINDX(9),FLOAT(NLS),0.,0.,0.,0., 04772000 + 4AINDX(14),AINDX(15),AINDX(28),AINDX(29),0.,0.,0.,0.,0.) 04773000 +C 04774000 + NT(4,NTOUT)=NT(4,NTOUT)+ANREC 04775000 + NT(3,NTOUT)=NT(4,NTOUT) 04776000 + RETURN 04777000 + END 04778000 + SUBROUTINE AA(NX,X,NI1,NI2,PKIN,NO1,NO2,PKOU,NTOUT,NTO,AP, 04779000 + 1AWRI,SPI,MINDX1,AINDX,M1,M2,MIX,NMT,NLS) 04780000 +C *************************************************************** 04781000 +C 04782000 +C ADLER-ADLER RESONANCE PARAMETERS 04783000 +C !!!!!!!!!!!!!!!!!!!! WARNING !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 04784000 +C THIS ROUTINE HAS NOT BEEN COMPLETELY TESTED !!!!!!!!!!!!!!!! 04785000 +C 04786000 +C *************************************************************** 04787000 +C 04788000 + DIMENSION X(NX),PKIN(NI1,NI2),PKOU(NO1,NO2),AINDX(MINDX1) 04789000 +C X E IL BACKGROUND 04790000 + DIMENSION MIX(M1,M2) 04791000 + COMMON /FILES/NT(4,99) 04792000 + EQUIVALENCE (NP,NT(1,11)),(NO,NT(1,6)) 04793000 + COMMON /INDX1/AINDX1(40,200) 04794000 + COMMON /OPZIO/OPZ(4,8,10) 04795000 + COMMON /DIM/M(5) 04796000 + COMMON /DIMC/MMA,MINDD1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 04797000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 04798000 +C 04799000 + NRES=NI2 04800000 + NPKIN=NI1 04801000 + NPKOU=NO1 04802000 +C PKIN : L,J,AJ,LJ,DET,DWT,GRT,GIT,DEF,DWT,GRF,GIF,DEC,DWC,GRC,GIC 04803000 +C 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 04804000 +C MI NI SIM ASIM MI NI SIM ASIM MI NI SIM ASIM 04805000 +C E G /2 G(T)H(T) G(F) H(F) G(C) H(C) 04806000 +C 04807000 + WRITE(NP,9000) AINDX(35),AINDX(36),NRES,AINDX(15),AINDX(15) 04808000 + 9000 FORMAT(1X,2A4,' ADLER-ADLER RESONANCES:',I5,' RANGE:',2E12.5) 04809000 +C 04810000 +C NUMERO DONDA DEL NEUTRONE /SQRT(E) 04811000 + AK=2.196771*AWRI/(AWRI+1)/1000. 04812000 + DO 10 I=1,NRES 04813000 + SE=SQRT(PKIN(5,I)) 04814000 + FI=AK*AP*SE 04815000 + COSF=COS(2*FI) 04816000 + SINF=SIN(2*FI) 04817000 +C IPOTESI L=0 ( PHASE SHIFT PER L=0) 04818000 +C GITI ( NORMALIZZA AFAC 04819000 + GITI=SE*(PKIN(7,I)*COSF+PKIN(8,I)*SINF) 04820000 +C E 04821000 + PKOU(1,I)=PKIN(5,I) 04822000 +C SIG0 04823000 + PKOU(2,I)=2.6039953E+6/PKOU(1,I)*((AWRI+1)/AWRI)**2*PKIN(7,I)/4* 04824000 + 1PKIN(6,I) 04825000 +C D=DELTA = SQRT(T) * THETA 04826000 + PKOU(3,I)=2.*PKIN(6,I)/SQRT(34.464E-5*ABS(PKOU(1,I))/AWRI) 04827000 +C AFAC 04828000 + PKOU(4,I)=-0.5*SE*(PKIN(8,I)*COSF-PKIN(7,I)*SINF)/ABS(GITI) 04829000 +C GAMS 04830000 + PKOU(5,I)=PKIN(6,I)*2 04831000 +C GC 04832000 + PKOU(6,I)=SE*(PKIN(15,I)*COSF+PKIN(16,I)*SINF) 04833000 +C GF 04834000 + PKOU(7,I)=SE*(PKIN(11,I)*COSF+PKIN(12,I)*SINF) 04835000 +C GT 04836000 + PKOU(8,I)=SE*(PKIN(7,I)*COSF+PKIN(8,I)*SINF) 04837000 +C BC 04838000 + PKOU(9,I)=-0.5*SE*(PKIN(16,I)*COSF-PKIN(15,I)*SINF)/PKOU(6,I) 04839000 +C BF 04840000 + PKOU(10,I)=-0.5*SE*(PKIN(12,I)*COSF-PKIN(11,I)*SINF)/PKOU(7,I) 04841000 + 10 CONTINUE 04842000 +C 04843000 +C SCARTA LE RISONANZE FUORI ENERGY RANGE E LE ORDINA IN E DECRESCE04844000 + IF(OPZ(2,4,2).LE.0)CALLSELR1(NO1,NRES,PKOU,1,AINDX(14),AINDX(15))04845000 + CALL ORDINA(1,NO1,NRES,PKOU) 04846000 +C 04847000 +C SPERIAMO DI AVERCI PRESO CON QUESTI MISCUGLI ALGEBRICI !!! ? 04848000 +C NUMERO PARAMETRI DI OUTPUT 04849000 +C TROVO E MAX 04850000 + EMX=FNDMX(1,NPKOU,NRS,PKOU) 04851000 +C CALCOLO NUMERO RECORDS ( DI MCCF2 NON DI TAPES SERIE 2 ) PER MCCF104852000 + NREC=1+NPKOU 04853000 +C SCRIVO 04854000 +C ARRIVA QUI SENZA IDENTIFICATORI IL NUCLIDE E QUI NON METTO IDENTIF04855000 + IF(NMT.GT.M2) GO TO 600 04856000 + NOM=MIX(3,NMT) 04857000 + NOM1=MIX(4,NMT) 04858000 + NOM2=MIX(1,NMT) 04859000 + NOM3=MIX(2,NMT) 04860000 + GO TO 610 04861000 +C ANDREBBE MESSO ENDFB ID COME CARATTERE MA NON HO FATTO LA SUBROUT04862000 + 600 NOM=NAREAL(AINDX(35)) 04863000 + NOM1=NAREAL(AINDX(36)) 04864000 + NOM2=NAREAL(AINDX(35)) 04865000 + NOM3=NAREAL(AINDX(36)) 04866000 + 610 CONTINUE 04867000 + CALL POSL(NTOUT) 04868000 +C POSIZIONA TAPE OUT AL PRIMO RECORD LIBERO 04869000 +C WRITE(NTO) NRES,NREC,EMX 04870000 +C WRITE(NTO) MIX(3,1),MIX(4,1),AINDX(28) 04871000 + IWR=1 04872000 + IF(LRF.NE.1) IWR=3 04873000 +C NOME,ISOTOPO ( NON VA IN TAPES MCCF ) 04874000 +C WRITE(NTO) AINDX(6),IWR,AINDX(15),AINDX(16) 04875000 +C NUM ISOTOPO, RAPPR 1,3=BWSL,BWML,E INF, E UPP ( DA E RANGE NON DA04876000 +C RISONANZE 04877000 +C WRITE(NTO) AINDX(9),NRES 04878000 +C ABBONDANZA ISOTOPO, NUM RISONANZE 04879000 + DO 30 I=1,NPKOU 04880000 + WRITE(NTO) (PKOU(I,J),J=1,NRES) 04881000 + 30 CONTINUE 04882000 + ANREC=NPKOU 04883000 + IND2=IND2+1 04884000 + IF(IND2.GT.MIND12) CALL ERR(8H AA , 30) 04885000 + CALL EMPIN(MIND11,AINDX1(1,IND2),AINDX(1),AINDX(2),AINDX(3), 04886000 + 1AINDX(4),AINDX(5),NOM,NOM1,NOM2,NOM3,0.,4.,0.,0.,FLOAT(NTO),FLOAT(04887000 + 2NTOUT),FLOAT(NT(4,NTOUT)),ANREC,FLOAT(NRES),FLOAT(NPKOU),AINDX(6),04888000 + 3FLOAT(LRF),EMX,FLOAT(IWR),SPI,AP,AINDX(9),NLS,0.,0.,0.,0., 04889000 + 4AINDX(15),AINDX(16),AINDX(28),AINDX(29),0.,0.,0.,0.,0.) 04890000 +C 04891000 + NT(4,NTOUT)=NT(4,NTOUT)+ANREC 04892000 + NT(3,NTOUT)=NT(4,NTOUT) 04893000 +C INDICE OVE METTE LE BACKGROUND ............................. 04894000 + IND2=IND2+1 04895000 + IF(IND2.GT.MIND12)CALL ERR(8H A A , 30 ) 04896000 + CALL EMPIN(MIND11,AINDX1(1,IND2),AINDX(1),AINDX(2),AINDX(3), 04897000 + 1AINDX(4),AINDX(5),NOM,NOM1,NOM2,NOM3,0., 04898000 + 15.,0.,2.,0.,0., 04899000 + 2X(1),X(2),X(3),X(4),X(5),X(6),X(7),X(8),X(9),X(10),X(11),X(12), 04900000 + 3X(13),X(14),X(15), 04901000 + 4X(16),X(17),X(18),AINDX(9) ) 04902000 + RETURN 04903000 + END 04904000 + SUBROUTINE P2MCF5(MA,A,M1,M2,MIX,MKB1,INDIND,MKB,INDMIX, 04905000 + 1 N41,N27,TR,TI,TRS,TIS,NG,E) 04906000 +C ************************************************************** 04907000 +C 04908000 +C ULTRAFINE GROUP CROSS SECTION ARE PRODUCED BY THIS ROUTINE 04909000 +C FOR MCC2F5 FILE OF MC2-2 04910000 +C 04911000 +C PRODUCE REAZIONI MT=NREAC STACCATE ( UNA REGISTRRAZIONE PER REAZ) 04912000 +C PERCHE ENDFB HA UN ASCRITTURA PER OGNI MT 04913000 +C PRODUCE RISONANZE E PARTI DI TOTALE DA SOMMARE NELLA PARTE 3 04914000 +C 04915000 +C E(NG)=LIMITI ENERGETICI SUPERIORI DEI GRUPPI (NG+1 VALORI) 04916000 +C A(MA)=SCR 04917000 +C MIX(M1,M2)=MIX DELL F5 04918000 +C INDMIX(3,KB)= INDICE DI MIX 1,2,3=VALORE,INIZIO DIMENSIONI 04919000 +C ORDINATE PER FN) 04920000 +C INDIND(4,KB1)= INDICE DI IND ( ORDINATO PER MAT) 04921000 +C TR,TI,TRS,TIS SONO SPAZI PER LA TABULAZIONE 04922000 +C DELLA FUNZIONE W UTILE PER IL CALCOLO DELLE FUNZIONI DOPPLER 04923000 +C QUESTI SPAZI SONO RIEMPITI DA WTABL CHIAMATA DA P2 04924000 +C 04925000 +C FA LOOP SU INDICE, GUARDA SE L ELEMENTO E IN MIX DI F5 04926000 +C ******************************************************************04927000 +C 04928000 +C 04929000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 04930000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 04931000 +C 04932000 +C 04933000 + DIMENSION A(MA),MIX(M1,M2),INDMIX(3,MKB),INDIND(4,MKB1),E(NG) 04934000 + DIMENSION TR(N41,N27),TI(N41,N27) 04935000 + DIMENSION TRS(N41,N27),TIS(N41,N27) 04936000 + COMMON /INDX/AINDX(40,200) 04937000 + COMMON /INDX1/AINDX1(40,200) 04938000 + COMMON /DIM/ MX1,IND,MX2,IND1 04939000 + COMMON /OPZIO/OPZ(4,8,10) 04940000 + EQUIVALENCE (STMP,OPZ(2,5,1)) 04941000 + COMMON /FILES/NT(4,99) 04942000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 04943000 + 1 ,(NP12,NT(1,12)) 04944000 + EQUIVALENCE (OPM,OPZ(2,5,5)),(EUP,OPZ(2,5,2)),(DELU,OPZ(2,5,3)) 04945000 +C 04946000 + WRITE(NP12,7000)((MIX(J,JJ),J=1,M1),JJ=1,M2) 04947000 + 7000 FORMAT(' P2MCF5 ENTERED. INPUT TABLE TO BE EXECUTED:'/ 04948000 + 1 (1X,2A4,1X,2A4,8I4,3E12.5)) 04949000 +C 04950000 + NG1=NG+1 04951000 +C 04952000 +C ............... LOOP SU INDICE DELL'INDICE 04953000 + DO 5 IS=1,MKB1 04954000 + N1S=INDIND(3,IS) 04955000 + N2S=INDIND(4,IS) 04956000 + N3S=N1S+N2S-1 04957000 +C 04958000 +C CERCO L ISOTOPO NELLA MIX E GUARDA I SEGUENTI CASI : 04959000 +C 1) SE LO TROVA 04960000 +C 2) SE TROVA UN NOME BIANCO IN MIX (=TUTTI I MATERIALI) NMT=M2+1 04961000 + NMT=NCERC1(MINDX1,IND,AINDX,M1,M2,MIX,N1S,35,3,1) 04962000 + IF(NMT.LE.0) GO TO 5 04963000 +C 04964000 +C ...............LOOP SU INDICE DEL MATERIALE 04965000 + DO 10 I=N1S,N3S 04966000 +C CONTROLLO SE E DESTINATO AD F5 04967000 + IF(AINDX(30,I).NE.5.AND.AINDX(30,I).NE.4.AND.AINDX(30,I).NE.3) 04968000 + 1 GOTO 100 04969000 +C 04970000 +C WRITE(NP,9010) AINDX(35,I),AINDX(36,I) 04971000 +C9010 FORMAT(1X,2A4) 04972000 +C 04973000 +C DEFINIZIONE DEL TAPE DI OUTPUT 04974000 + NTOUT=35 04975000 + IF(NMT.LE.M2.AND.NMT.GT.0) NTOUT=MIX(5,NMT) 04976000 + IF(NTOUT.LE.0) NTOUT=35 04977000 + NTO=NT(1,NTOUT) 04978000 +C POSIZIONE TAPE DI INPUT ( INIZIO ISOTOPO ED E- RANGE) 04979000 + NTIN=AINDX(23,I) 04980000 + NTI=NT(1,NTIN) 04981000 + NPOST=AINDX(25,I) 04982000 + CALL POST(NTIN,NPOST) 04983000 +C 04984000 +C GUARDA NELL'INDICE SE SONO RISOLTE,UNRES,SMOOTH O NI 04985000 +C 04986000 + IF(AINDX(30,I).EQ.3) GO TO 250 04987000 + IF(AINDX(30,I).EQ.4) GO TO 200 04988000 +C RISONANZE ( DA SOMMARE A SMMOOTHS NELLA PARTE 3 ) 04989000 + IF(AINDX(31,I).EQ.2) GO TO 300 04990000 +C NI DA METTERE IN RECORD 2 DI F5 04991000 +C 04992000 +C SMOOTHS ( TRATTA UNA REAZIONE PER VOLTA E FA UNA SCRITTTURA PER O04993000 +C REAZIONE. GLI MT SONO QUINDI STACCATI DA MONTARE NELLA PARTE 3 E04994000 +C TOTALE VA FATTA SOMMANDO NELLA PARTE 3. QUESTO E FATTO COSI PER C04995000 +C ENDFB CONTIENE I DIVERSI MT ( REAZIONI ) ) 04996000 +C 04997000 + IF(NMT.GT.0.AND.NMT.LE.M2.AND.MIX(9,NMT).LT.0) GO TO 100 04998000 +C 04999000 +C TEMPERATURA 05000000 + TEMPER=0. 05001000 + IF(NMT.LE.M2) TEMPER=AREAL(MIX(15,NMT)) 05002000 + TEMP=OPZ(2,5,8) 05003000 + IF(TEMPER.GT.0.) TEMP=TEMPER 05004000 + IF(TEMP.LE.0.) TEMP=300. 05005000 +C 05006000 + CALL SMOOT(NTI,NTIN,NTO,NTOUT,NMT,M2,EUP,DELU,TEMP,NG,NG1,E,A, 05007000 + 1MA-NG-2,A(NG+2),MINDX1,AINDX(1,I),M1,MIX) 05008000 + GO TO 100 05009000 + 300 CONTINUE 05010000 +C 05011000 +C NI DA METTERE IN RECORD 2 DI F2 05012000 +C 05013000 + IF(NMT.GT.0.AND.NMT.LE.M2.AND.MIX(10,NMT).LT.0) GO TO 100 05014000 +C 05015000 +C RIDEFINIZIONE TAPE DI OUTPUT. NII SCRIVE SU 37 DI DEFAULT NON 3505016000 +C 05017000 + NTOUT1=37 05018000 + IF(NMT.LE.M2.AND.NMT.GT.0) NTOUT1=MIX(10,NMT) 05019000 + IF(NTOUT1.LE.0) NTOUT1=37 05020000 + NTO1=NT(1,NTOUT1) 05021000 +C 05022000 + CALL NII(NTI,NTIN,NTO1,NTOUT1,NMT,M2,MINDX1,AINDX(1,I),M1,MIX,MA, 05023000 + 1A,EUP,DELU,NG) 05024000 + GO TO 100 05025000 + 250 CONTINUE 05026000 +C 05027000 +C RISONANZE UNRESOLVED DA SOMMARE ALLE SMOOTHS 05028000 +C 05029000 + IF(NMT.GT.0.AND.NMT.LE.M2.AND.MIX(7,NMT).LE.-5) GO TO 100 05030000 + TEMP=OPZ(2,5,8) 05031000 + NFLRIS=0 05032000 + IF(NMT.GT.M2) GO TO 255 05033000 +C SCHEDA MIX NON ESISTE ALLORA VALE IL DEFAULT 05034000 +C 05035000 + TEMPER=AREAL(MIX(15,NMT)) 05036000 + IF(TEMPER.GT.0.) TEMP=TEMPER 05037000 + SIGBK=AREAL(MIX(14,NMT)) 05038000 +C IL FLAG NLRIS E' >0 OPPURE <0 SE OCCORRE SOLO SCATT DI RIS 05039000 + NFLRIS=MIX(7,NMT) 05040000 +C MIX(7,.) < 0 SEGNALA NO RISONANZE 05041000 +C VEDERE BENE LO SCATTERING DI RISONANZA CHE DEVE CALCOLARE SEMPRE 05042000 + IF(NFLRIS.NE.0) GO TO 260 05043000 +C QUESTO SEGNALA RISONANZE DA TRATTARE 05044000 +C QUI MIX(7,.)=0 05045000 +C OPZIONE DI MASSA 05046000 + 255 IF(AINDX(5,I).LT.OPZ(2,5,5)) NFLRIS=10 05047000 + 260 CONTINUE 05048000 + IF(TEMP.LE.0.) TEMP=300. 05049000 +C FISSA ARGOMENTI PER UNRES 05050000 + NOVRLP=OPZ(2,3,8) 05051000 +C DEFAULT PER SIGMA POTENZIALE E' LA DILUIZIONE INFINITA(COME ETOE) 05052000 + IF(SIGBK.LE.0) SIGBK=1.E+5 05053000 +C 05054000 + INTERP=OPZ(2,3,9) 05055000 + IF(INTERP.LE.0) INTERP=2 05056000 +C INPUT(CALLED BY UNRES) SET INTERP=1 (COSTANT) 05057000 + ZA=AINDX(4,I) 05058000 + AM=AINDX(5,I) 05059000 + NIS=AINDX(6,I) 05060000 + MAT=AINDX(1,I) 05061000 + MF=AINDX(2,I) 05062000 + MT=AINDX(3,I) 05063000 + ZAI=AINDX(8,I) 05064000 +C ABUNDANCE IS ACCOUNTED IN PART 3, HERE EACH ISOTOPE 05065000 +C IS COMPUTED PER CONTO SUO . 05066000 + ABUNDI=1. 05067000 +C ABUNDI=AINDX(9,I) 05068000 + L1=0 05069000 + IFIS=AINDX(10,I) 05070000 +C IFIS=LFW DI ENDFB 05071000 + EL=AINDX(14,I) 05072000 + EH=AINDX(15,I) 05073000 + LRU=AINDX(12,I) 05074000 + LRF=AINDX(13,I) 05075000 + IF(LRF.GT.1) IFIS=1 05076000 +C 05077000 +C PUNTATORI PER UNRES ARRAYS: 05078000 + N150=AINDX(38,I) 05079000 + IF(N150.LE.1) N150=OPZ(2,3,2) 05080000 + IF(N150.LE.0) N150=50 05081000 +C 50 E' IL NUMERO DI PUNTI E CON CUI VENGONO RAPPRESENTATE LE GAMM05082000 +C IN UNRES QUANDO NON C'E' DIPENDENZA DA E IN ENDFB 05083000 +C NELLA CATENA ORIGINARIA SI USAVANO SOLO 15 PUNTI 05084000 +C 05085000 + N15012=N150*12 05086000 +C QUI IN : 05087000 +C A(1): SEZIONI D'URTO A GRUPPI 05088000 +C INIZIO SPAZIO VUOTO IN A: 05089000 + NL1=NG+3 05090000 +C SIGCAP 05091000 + NL2=NL1+N150 05092000 +C SIGFIS 05093000 + NL3=NL2+N150 05094000 +C SIGTOT 05095000 + NL4=NL3+N150 05096000 +C SIGSCA 05097000 + NL5=NL4+N150 05098000 +C SIGPOT 05099000 + NL6=NL5+N150 05100000 +C SIGCMP 05101000 + NL7=NL6+N150 05102000 +C ES 05103000 + NL8=NL7+N150 05104000 +C DELTA 05105000 + NL9=NL8+N150 05106000 +C PSHFTO 05107000 + NL10=NL9+N150 05108000 +C PSHFT1 05109000 + NL11=NL10+N150 05110000 +C PSHFT2 05111000 + NL12=NL11+N150 05112000 +C V1 05113000 + NL13=NL12+N150 05114000 +C V2 05115000 + NL14=NL13+N150 05116000 +C GF 05117000 + NL15=NL14+N15012 05118000 +C D 05119000 + NL16=NL15+N15012 05120000 +C GG 05121000 + NL17=NL16+N15012 05122000 +C GNO 05123000 + NL18=NL17+N15012 05124000 +C GX 05125000 + NL19=NL18+N15012 05126000 +C GAMTOT 05127000 + NL20=NL19+2000 05128000 +C GAMFIS 05129000 + NL21=NL20+2000 05130000 +C GAMCMP 05131000 + NL22=NL21+2000 05132000 +C ZETA 05133000 + NL23=NL22+1000 05134000 +C PSIZRO 05135000 + NL24=NL23+1000 05136000 +C BETPSI 05137000 + NL25=NL24+1000 05138000 +C BBETA 05139000 + NL26=NL25+4000 05140000 +C BVCTR 05141000 + NL27=NL26+5000 05142000 +C PVCTR 05143000 + NL28=NL27+5000 05144000 +C RVCTR 05145000 + NFIN=NL28+5000 05146000 +C 05147000 + IF(NFIN.GT.MA) CALL ERR(8HP2MCF5 ,200) 05148000 + CALL RIEMP(0.0,NFIN,A) 05149000 +C 05150000 + WRITE(NP,9050)AINDX(35,I),AINDX(36,I) 05151000 + 9050 FORMAT(1X,2A4, 05152000 + 1 ' UNRESOLVED MULTI-GROUP CROSS SECTIONS GENERATED') 05153000 + IF(NFLRIS.LE.0) WRITE(NP,9060) 05154000 + 9060 FORMAT(10X,' ONLY POT. SCATT CROSS SECTION GENERATED') 05155000 +C 05156000 + CALL UNRES(NTIN,INTERP,NTI,NO,NFLRIS,STMP,NOVRLP,TEMP,SIGBK, 05157000 + 1ZA,AM,MAT,MF,MT,ZAI,ABUNDI,L1,IFIS,EL,EH,LRU,LRF,NIS, 05158000 + 2N41,N27,TR,TI,TRS,TIS, 05159000 + 3N150,A(NL1),A(NL2),A(NL3), 05160000 + 4 A(NL22),A(NL23),A(NL24),A(NL25),A(NL26),A(NL27),A(NL28), 05161000 + 5 A(NL19),A(NL20),A(NL9),A(NL10),A(NL11),A(NL12),A(NL13), 05162000 + 6 A(NL7),A(NL14),A(NL15),A(NL16),A(NL17),A(NL8),A(NL21), 05163000 + 7 A(NL6),A(NL18),A(NL5) ) 05164000 + IF(NFLRIS.LE.0) GO TO 265 05165000 +C 05166000 +C CREO LO SCATTERING DI RISONANZA PER DIFFERENZA 05167000 +C TOTAL-CATT-FISS-COMPETITIVE 05168000 + DO 20 J=1,N150 05169000 + A(NL4+J-1)=A(NL3+J-1)-A(NL1+J-1)-A(NL2+J-1)-A(NL6+J-1) 05170000 +C 1 +A(NL5+J-1) 05171000 +C NON CI VA. LO SCATT POT (NON E' NELLA TOTAL) LO SOMMA P3. 05172000 + 20 CONTINUE 05173000 +C 05174000 +C CALCOLO SIGMA ( INTEGRANDO) E SCRITTURA SUL FILE DI OUTPUT (SERIE 05175000 +C 05176000 + 265 CALL INTUN(NFLRIS,INTERP,NTI,NTO,NTOUT,NMT,M2,NG,EUP,DELU,E, 05177000 + 1NG1,A,MINDX1,AINDX(1,I),M1,MIX, 05178000 + 2N150,A(NL7),A(NL1),TEMP ,MA-NL8,A(NL8)) 05179000 +C 05180000 + GOTO100 05181000 + 200 CONTINUE 05182000 +C 05183000 +C RESOLVED DA SOMMARE ALLE SMOOT NELLA PARTE 3 05184000 +C 05185000 + IF(NMT.GT.0.AND.NMT.LE.M2.AND.MIX(8,NMT).LE.-5) GOTO100 05186000 + NFLRIS=0 05187000 + TEMP=OPZ(2,5,8) 05188000 + IF(NMT.GT.M2) GO TO 455 05189000 +C SE LA SCHEDA MIX DEL MATERIALE NON ESISTE : 05190000 + TEMPER=AREAL(MIX(15,NMT)) 05191000 + IF(TEMPER.GT.0.) TEMP=TEMPER 05192000 + NFLRIS=MIX(8,NMT) 05193000 + IF(NFLRIS.NE.0) GO TO 456 05194000 +C 05195000 +C OPZIONE DI NON METTERE RISONANZE 05196000 +C OPZIONE DI MASSA 05197000 + 455 IF(AINDX(5,I).LT.OPZ(2,5,5)) NFLRIS=10 05198000 + 456 CONTINUE 05199000 +C DEFAULT TEMPERATURA=300. K 05200000 + IF(TEMP.LE.0.) TEMP=300. 05201000 +C 05202000 +C FISSA ARGOMENTI PER SUBROUTINE RES (RESOLVED RESONANCES) 05203000 +C 05204000 + NDOP=MIX(11,NMT) 05205000 + EL=AINDX(14,I) 05206000 + EH=AINDX(15,I) 05207000 + LRF=AINDX(13,I) 05208000 + NRIS=AINDX(38,I) 05209000 +C 05210000 +C DIMENSIONAMENTI (IT SHOULD BE NBACK=0, BUT VS FORTRAN DOESN'T 05211000 +C LIKE NEGETIVE DIMENSION IN DUMMY ARGUMENTS) 05212000 + NBACK=1 05213000 + NPK=7 + 6 05214000 +C +6 E' PER A.G. E PK PER ACCELERARE RES 05215000 + IF(LRF.EQ.4) NPK=14 05216000 + IF(LRF.EQ.4) NBACK=3 05217000 +C 05218000 +C 05219000 +C AVANTI STANNO ENERGIE : E 05220000 +C SIGMA UFG: SIG(NG+1) IN A(1) 05221000 + NL1=NG+3 05222000 +C PARAMETRI RISONANZA PK(NPK,NRIS) 05223000 + NL2=NL1+NRIS*NPK 05224000 +C BACKGROUND DI ADLER ADLER BACK(6,NBACK) 05225000 + NL3=NL2+6*NBACK 05226000 +C SPAZIO AUSILIARIO PER E RISONANZA 05227000 + NL4=NL3+NRIS+1 05228000 +C SPAZIO AUSILIARIO PER GAMMA RISONANZE 05229000 + NL5=NL4+NRIS+1 05230000 +C 05231000 +C SPAZIO RIMASTO UTILIZZABILE PER PUNTI 05232000 +C DI INTERPOLAZIONE PUNTO(NPMX,3),PUNTO1(NPMX,2) 05233000 + NPMX=(MA-NL5)/9 05234000 +C PUNTO(NPMX,5) 05235000 + NL6=NL5+NPMX*5 05236000 +C PUNTO(NPMX,4) 05237000 +C 05238000 + IF(NPMX.LE.0) CALL ERR(8HP2MCF5 ,100) 05239000 +C 05240000 +C 05241000 + CALL RES(NTI,NTIN,NTO,NTOUT,NMT,NFLRIS,NDOP,TEMP, 05242000 + 1 N41,N27,TR,TI,TRS,TIS, 05243000 + 2 LRF,EH,EL,NG,E,A,NPK,NRIS,A(NL1), 05244000 + 3 NBACK,A(NL2),NPMX,A(NL3),A(NL4),A(NL5),A(NL6), 05245000 + 4 MINDX1,AINDX(1,I),M1,M2,MIX,MAT,MF,MT,EUP,DELU) 05246000 +C 05247000 +C 05248000 + 100 CONTINUE 05249000 + 10 CONTINUE 05250000 + 5 CONTINUE 05251000 + RETURN 05252000 + END 05253000 + SUBROUTINE SMOOT(NTI,NTIN,NTO,NTOUT,NMT,M2,EUP,DELU,TEMP, 05254000 + 1NG,NG1,E,SIG,MA,N,MINDX1,AINDX,M1,MIX) 05255000 +C ******************************************************************05256000 +C 05257000 +C ULTRAFINE GROUP SMOOTH CROSS SECTIONS 05258000 +C FOR EACH MT A RECORD IS PRODUCED 05259000 +C 05260000 +C ******************************************************************05261000 +C 05262000 + DIMENSION E(NG1) 05263000 + DIMENSION SIG(NG),N(MA),AINDX(MINDX1),MIX(M1,M2) 05264000 + COMMON /OPZIO/OPZ(4,8,10) 05265000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 05266000 + 1 ,(NP12,NT(1,12)) 05267000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200), 05268000 + 1 JNT(200),N1X,N2X,NS,LX,LY,LB 05269000 + COMMON MAXA,AD( 1) 05270000 + COMMON /DIMC/MMA,MIND1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 05271000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 05272000 + COMMON /FILES/ NT(4,99) 05273000 + COMMON /INDX1/AINDX1(40,200) 05274000 + COMMON /DIM/ NMX,MIND,NMX2,IND2 05275000 +C 05276000 + REAL*8 NOME(11) 05277000 + DATA NOME/8HELASTIC ,8H FISSION ,8HCAPTURE ,8H N,P , 05278000 + 1 8H N,D ,8H N,H3 ,8H N,HE3 ,8H N,ALFA , 05279000 + 2 8H TOTAL ,8H N,2N ,8HANELAST / 05280000 +C 05281000 +C ESCLUDE L'ANELASTICA MT=3 05282000 + IF(AINDX(3).EQ.3.) RETURN 05283000 +C 05284000 + WRITE(NP12,7000) 05285000 + 1 AINDX(35),AINDX(36),AINDX(1),AINDX(2),AINDX(3),TEMP 05286000 + 7000 FORMAT(1X,2A4,' SMOOTHS: MAT:',F5.0,' MF:',F3.0,' MT:',F5.0, 05287000 + 1 ' T=',E12.5) 05288000 +C 05289000 +C LETTURA DELL HEAD DEL MAT,MT 05290000 + CALL RREC(1,NTI,3,TEMP) 05291000 +C CONTROLLO MAT,MF,MT 05292000 + IF(MAT.NE.AINDX(1).OR.MF.NE.AINDX(2).OR.MT.NE.AINDX(3)) 05293000 + 1 CALL ERR(8H SMOOT ,0) 05294000 +C LETTURA TAB1 05295000 + CALL RREC(3,NTI,3,TEMP) 05296000 + NT(4,NTIN)=NT(4,NTIN)+3+N1/3+N2/3+NREST(N1,3)+NREST(N2,3) 05297000 +C 05298000 +C 05299000 +C ====== CULLEN METHOD FOR DOPPLER BROADENEING OF TABULATED SIGMA05300000 +C 05301000 +C PER USARE IL METODO DI ALLARGAMENTO DOPLER DI CULLEN SI FA: 05302000 +C 1) USANDO N(MA) COME SPAZIO DI LAVORO SI CREA COPPIE E-SIGMA 05303000 +C CON LEGGE LINEARE - USANDO METODO TIPO RES CHE E'VELOCE NON 05304000 +C RIORDINANDO. 05305000 +C 2) SI CHIAMA IL PROGRAMMA DI CULLEN CHE ALLARGA DOPPLER LE E-SI05306000 +C 3) SI INTEGRA CON ROUTINE INTS1 05307000 +C 4) SI VA ALLA 200 (SCRITTURA) 05308000 +C 05309000 + IF(OPZ(2,1,5).LE.0.) GO TO 150 05310000 + PRECIS=OPZ(2,1,5) 05311000 +C SPAZI PER BROAD ROUTINE ETC 05312000 + LKT=1 05313000 +C KT : TABULAZIONE TAB1 ESPANSA 05314000 + LSS1=N2+LKT 05315000 +C NUM MAX PUNTI PER LINEARIZZAZIONE 05316000 + LTNP=(MA-LSS1)/6 05317000 +C SPAZI 05318000 + LEP=LSS1 05319000 +C EP - A 05320000 + LSP=LEP+LTNP 05321000 +C SP - C 05322000 + LEF=LSP+LTNP 05323000 +C EF 05324000 + LSF=LEF+LTNP 05325000 +C SF 05326000 + LKP=LSF+LTNP 05327000 +C KP - EA 05328000 + LSA=LKP+LTNP 05329000 +C SA 05330000 + LFIN=LSA+LTNP 05331000 +C 05332000 + IF(LFIN.GT.MA) CALL ERR(8HSMOOTH ,150) 05333000 +C 05334000 +C ESPANDE TABULAZIONE DEL TAB1 05335000 + CALL FILTB2(N1,N2,N(LKT),NBT,JNT) 05336000 +C LINEARIZZA 05337000 + EDOWN=EUP*EXP(-NG*DELU) 05338000 + NF=LTNP 05339000 + CALL LINSI1(N2,AD(LX),AD(LY),N(LKT),NF,N(LEF),N(LSF), 05340000 + 1 N(LEP),N(LSP),N(LKP),PRECIS,EUP,EDOWN) 05341000 + WRITE(NP,1001) AINDX(35),AINDX(36),NF,TEMP 05342000 + IF(STMP.LE.500) GO TO 148 05343000 + WRITE(NO,1001) AINDX(35),AINDX(36),NF,TEMP 05344000 + 1001 FORMAT(1X,2A4,' LINEAR INTERPOLATED CROSS SECTIONS. POINTS:', 05345000 + 1 I7,' TEMPERATURE:',1PE11.2) 05346000 + WRITE(NO,1002) (N(LEF-1+J),N(LSF-1+J),J=1,NF) 05347000 + 1002 FORMAT(' ENERGY - SIGMA '/(1X,10E12.5)) 05348000 + 148 CONTINUE 05349000 +C LINEAR DOPPLER BROADENING 05350000 + AWR=AINDX(5) 05351000 + DO 5 I=1,NF 05352000 + 5 N(LKP+I-1)=N(LEF+I-1) 05353000 +C IN LEF LE ENERGIE ED ANCHE IN LKP=LEA 05354000 +C A BROAD VANNO PASSATE E CRESCENTI DOPO RIBALTO 05355000 + CALL BROAD(NF,TEMP,AWR,N(LEF),N(LSF),N(LKP),N(LSA),N(LEP),N(LSP)) 05356000 +C INTEGRATES AT UFG ( INTERP LIN, PESO 1/E) 05357000 +C 05358000 + CALL RIBA(NF,N(LSA)) 05359000 + CALL RIBA(NF,N(LEF)) 05360000 +C 05361000 + CALL RIEMP(0.0,NG,SIG) 05362000 + NDUMMM=1 05363000 + ANDUMM=1. 05364000 + CALL INTS1(ANDUMM,NDUMMM,NG,E,SIG,NF,N(LEF),N(LSA)) 05365000 + WRITE(NP,9010) AINDX(35),AINDX(36),TEMP,NF 05366000 + 9010 FORMAT(' DOPPLER BRADENED TABULATED CROSS-SECTION, T=',1PE11.2, 05367000 + 1 ' POINTS:',I10) 05368000 + GO TO 200 05369000 +C 05370000 +C INTEGRAZIONE 05371000 + 150 DO 10 I=1,NG 05372000 + E2=E(I+1) 05373000 + E1=E(I) 05374000 +C GRATE= SUBROUTINE INTEGRANTE ( IN RECS) DI SLAVE3 05375000 + CALL GRATE(E2,E1,SIG(I)) 05376000 + SIG(I)=SIG(I)/(E1-E2) 05377000 + 10 CONTINUE 05378000 +C SCRITTURA 05379000 +C ARRIVA QUI SENZA IDENTIFICATORI IL NUCLIDE E QUI NON METTO IDENTIF05380000 + 200 IF(NMT.GT.M2) GO TO 600 05381000 + NOM=MIX(3,NMT) 05382000 + NOM1=MIX(4,NMT) 05383000 + NOM2=MIX(1,NMT) 05384000 + NOM3=MIX(2,NMT) 05385000 + GO TO 610 05386000 +C ANDREBBE MESSO ENDFB ID COME CARATTERE MA NON HO FATTO LA SUBROUT05387000 + 600 NOM=NAREAL(AINDX(35)) 05388000 + NOM1=NAREAL(AINDX(36)) 05389000 + NOM2=NAREAL(AINDX(35)) 05390000 + NOM3=NAREAL(AINDX(36)) 05391000 + 610 CONTINUE 05392000 + CALL POSL(NTOUT) 05393000 +C POSIZIONA TAPE OUT AL PRIMO RECORD LIBERO 05394000 +C WRITE(NTO)NOM2,NOM3,MAT,MF,MT 05395000 +C PRIMO RECORD NOME( MAT,MF,MT NON SERVONO AD F5) 05396000 + IF(OPZ(2,5,1).GT.100.) WRITE(NO,1000)NOM2,NOM3,MAT,MF,MT 05397000 + 1000 FORMAT(' PART 2: MULTI GROUP CROSS SECTION PRODUCED:'/ 05398000 + 1 1X,2A4,3I10) 05399000 +C CALCOLO FLAGS DI SPECIFICA REAZIONI PER L'INDICE E LA PARTE 3 05400000 +C 05401000 + CALL SOGLM(0.0,NLAST,NG,SIG) 05402000 + CALL SOGLM1(0.0,NFIRST,NG,SIG) 05403000 + IF(NFIRST.GT.NLAST) CALL ERR(8HSMOOTH ,610) 05404000 + IF(NLAST.LE.0) GO TO 500 05405000 + REAZ=0. 05406000 + REAZ1=1. 05407000 + REAZ2=0. 05408000 +C ELASTICA 05409000 + IF(MT.EQ.2) REAZ=1. 05410000 +C FISSION 05411000 + IF(MT.EQ.18) REAZ=2. 05412000 +C N,GAMM-N,P-N,H3-N,HE3-N,ALFA 05413000 + IF(MT.GE.102.AND.MT.LE.107) REAZ=MT-99 05414000 +C TOTAL 05415000 + IF(MT.EQ.1) REAZ=9. 05416000 +C N,2N 05417000 + IF(MT.EQ.16) REAZ=10. 05418000 +C ANEL 05419000 + IF(MT.EQ.4) REAZ=11. 05420000 +C 05421000 + NREAZ=REAZ 05422000 +C 05423000 +C WRITE(NTO)(N(J),J=1,14) 05424000 + WRITE(NTO) (SIG(J),J=NFIRST,NLAST) 05425000 + WRITE(NP,2001) NOM2,NOM3,MT,NOME(NREAZ),NFIRST,NLAST 05426000 + 2001 FORMAT(1X,2A4,' REACTION :',I5,1X,A8,1X,' FIRST GROUP:',I5, 05427000 + 1 ' LAST GROUP:', I5) 05428000 +C IN F5 E PREVISTO CHE I VALORI SIANO PRESENTI ANDANDO ALLE BASSE E05429000 + IF(OPZ(2,5,1).LE.101) GO TO 100 05430000 + WRITE(NO,2000)NOM2,NOM3, MT,NOME(NREAZ),NFIRST,NLAST 05431000 + IF(OPZ(2,5,1).LE.105) GO TO 100 05432000 + WRITE(NO,3000) (SIG(J),J=NFIRST,NLAST) 05433000 + 2000 FORMAT(1X,2A4,' REACTION :',I5,2X,A8,20X,' FIRST GROUP:',I5, 05434000 + 1 ' LAST GROUP:', I5) 05435000 + 3000 FORMAT(1X,10E12.5) 05436000 + 100 CONTINUE 05437000 + IND2=IND2+1 05438000 + IF(IND2.GT.MIND12)CALL ERR(8H SMOOT ,20) 05439000 + CALL EMPIN(MIND11,AINDX1(1,IND2),AINDX(1),AINDX(2),AINDX(3), 05440000 + 1AINDX(4),AINDX(5),NOM,NOM1,NOM2,NOM3,0. 05441000 + 2,5.,3.,0.,FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(3,NTOUT)),1.,0.,0., 05442000 + 3 FLOAT(NG),EUP,DELU, 05443000 + 2 REAZ,FLOAT(NLAST),REAZ1,REAZ2, 0.,FLOAT(NFIRST),0.,AINDX(8),0., 05444000 + 5 0.,0.,0.,0.,0.,0.,0.,0.,TEMP) 05445000 +C 05446000 + NT(4,NTOUT)=NT(4,NTOUT)+1 05447000 + NT(3,NTOUT)=NT(4,NTOUT) 05448000 +C IL SEND RECORD(GIA CONTATO PRIMA PER NT(4,NTIN) ) 05449000 + 500 CALL RREC(1,NTI,3,TEMP) 05450000 +C 05451000 + RETURN 05452000 + END 05453000 + SUBROUTINE UNRES(NTIN,INTERP,INPP,NOUTT,NFLRIS,STMP,NOVRPP,TEMP, 05454000 + 1SIGBK,ZA,AMMM,MATT,MF,MT,ZAI,ABUNDD,L1,IFISS,EL,EH,LRU,LRF,NIS, 05455000 + 2N41,N27,TR,TI,TRS,TIS, 05456000 + 3N150,SIGCAP,SIGFIS,SIGTOT,ZETA,PSIZRO,BETPSI,BBETA, 05457000 + 4BVCTR,PVCTR,RVCTR,GAMTOT,GAMFIS,PSHFT0,PSHFT1,PSHFT2,V1,V2, 05458000 + 5ES,GF,D,GG,GNO,DELTA,GAMCMP,SIGCMP,GX,SIGPOT ) 05459000 +C ************************************************************** 05460000 +C 05461000 +C MAIN ROUTINE OF THE UNRES PROGRAM BY TOPPEL.MODIFIED FOR TESEO. 05462000 +C THIS PROGRAM COMPUTES UNRESOLVED RESONANCE CROSS SECTIONS 05463000 +C BY MC2-2 ALGORITHMS 05464000 +C 05465000 +C *********************************************************** 05466000 +C 05467000 +C PROGRAM TO CALCULATE UNRESOLVED RESONANCE CROSS SECTIONS FROM 05468000 +C ENDF/B DATA. THIS PROGRAM IS BASED UPON THE UNRESOLVED RESONANCE 05469000 +C CALCULATION OF THE MCC-2 CODE AS PROGRAMMED BY B.J.TOPPEL. 05470000 +C THE PRESENT CODE PROVIDES A STANDALONE CAPABILITY WHICH READS 05471000 +C ENDF/B BCD CARD INPUT DIRECTLY. IT IS PROGRAMMED IN SUCH A WAY 05472000 +C THAT IT MAY BE EASILY INCORPORATED INTO LARGER PROGRAMS SUCH AS 05473000 +C THE SELF-SHIELDING FACTOR PROGRAMS ETOX OR MINX. IT SHOULD 05474000 +C ALSO PROVIDE ENDF/B DATA EVALUATORS WITH A BETTER TOOL THAN THE 05475000 +C CURRENT UR CODE OR MENDEL-BEER METHODS WHICH ARE RESTRICTED 05476000 +C TO INFINITE DILUTE CALCULATIONS. 05477000 +C 05478000 +C 05479000 +CIBM 05480000 + DOUBLE PRECISION CAPTUR,FISION,TOTAL,COMPET,SCAPOT 05481000 +CIBM 05482000 + COMMON /OUTPUT/ NOUT,INP 05483000 + DIMENSION TR(N41,N27),TI(N41,N27),TRS(N41,N27),TIS(N41,N27) 05484000 +C COMMON/RATION/ ARG,PSIEZ 05485000 + COMMON/INTEGL/ BETA,THETA,A,FJ,RHO,HH,TEST1,FJN,FJ2N,TERM2,FJT 05486000 +C COMMON/REAIMW/AX,WHY,REW,AIMW 05487000 + COMMON /DRCUNR/ TEMPM,ABUNDI,AM,CMCOR,LSTI,JSTI,IFIS, 05488000 + 1 NPORTR,NHERM,NHERM2,NOVRLP,MAT,NPT1,RPENTR, 05489000 + 2 RPSHFT,NGUS13,NGUS9,WATE13,WATE9,SIGP 05490000 + COMMON /UNRDAT/ ETA(5), 05491000 + 1 AVGGM(5),AVGGM2(5),AVGTO(5),AVGTO2(5),AVGR2(5), 05492000 + 2 VECTOR(5),AVGFS(5),AVGFS2(5),E1(10),E2(10), 05493000 + 3 ANORM(10),A11(25),A12(25),D11(25),D12(25), 05494000 + 4 AMATRX(25), 05495000 + 8 JST(3),G(12),NDFN(12),NDFF(12), 05496000 + A AVGCS(5),AVGCS2(5), 05497000 + B NDFX(12) 05498000 + DIMENSION SIGCAP(N150),SIGFIS(N150),SIGTOT(N150),ZETA(1000), 05499000 + 1 PSIZRO(1000),BETPSI(1000),BBETA(4000),BVCTR(5000), 05500000 + 2 PVCTR(5000),RVCTR(5000),GAMTOT(2000),GAMFIS(2000), 05501000 + 3 PSHFT0(N150),PSHFT1(N150),PSHFT2(N150),V1(N150), 05502000 + 4 V2(N150),ES(N150),GF(N150,12),D(N150,12),GG(N150,12), 05503000 + 5 GNO(N150,12),DELTA(N150),GAMCMP(2000),SIGCMP(N150), 05504000 + 6 GX(N150,12) 05505000 + DIMENSION SIGPOT(N150) 05506000 +C 05507000 + DATA CAPTUR/7HCAPTURE/,FISION/7HFISSION/, 05508000 + 1 TOTAL/7H TOTAL /,COMPET/8HCOMPET. /,SCAPOT/8HPOT.SCAT/ 05509000 +C 05510000 +C 05511000 + INP=INPP 05512000 + NOUT=NOUTT 05513000 + MAT=MATT 05514000 + ABUNDI=ABUNDD 05515000 + NOVRLP=NOVRPP 05516000 + AM=AMMM 05517000 + IFIS=IFISS 05518000 +C 05519000 +C SIMULAZIONE DEL LOOP SU ISOTOPI CHE QUI E STATO SOPPRESSO 05520000 +C VENGONO FISSATE LE VARIABILI CHE IL LOOP DEFINIVA 05521000 + TEMPM=TEMP 05522000 +C IT=1 05523000 +C ISIG=1 05524000 + SIGP=SIGBK 05525000 +C IS=1 05526000 +C 05527000 +C 05528000 +C IL RECORD HEAD INIZIALE STA IN ARGOMENTO 05529000 + IF(NFLRIS.LE.0) GO TO 100 05530000 +C 05531000 +C SET CONSTANTS 05532000 +C 05533000 +C 10 POINT PORTER-THOMAS INTEGRATION. THE CHOICE OF 10 DETERMINES 05534000 +C THE DIMENSION OF X AND THE INITIALIZATION OF X IN SUBROUTINE 05535000 +C UNRINT 05536000 +C 05537000 +C 05538000 +C************************ 05539000 + NPORTR=10 05540000 +C************************ 05541000 +C 05542000 +C 05543000 +C 10 POINT GAUSS-HERMITE INTEGRATION. THE CHOICE OF 10 DETERMINES 05544000 +C THE DIMENSIONS OF XGH, WGH, AND E3 AND THE INITIALIZATION OF XGH, 05545000 +C WGH, AND 53 IN SUBROUTINE UNRINT. NHERM2=NHERM/2 05546000 +C 05547000 +C 05548000 +C************************ 05549000 + NHERM=10 05550000 + NHERM2=5 05551000 +C************************ 05552000 +C 05553000 +C 05554000 +C 13 POINT GAUSS-JACOBI INTEGRATION. THE CHOICE OF 13 DETERMINES 05555000 +C THE DIMENSION OF ZLP AND THE INITIALIZATION OF ZLP IN SUBROUTINE 05556000 +C QUICKJ 05557000 +C 05558000 +C 05559000 +C************************ 05560000 + NGUS13=13 05561000 +C************************ 05562000 +C 05563000 +C 05564000 +C WATE13=PI/13 05565000 +C 05566000 +C************************ 05567000 + WATE13=0.2416609734 05568000 +C************************ 05569000 +C 05570000 +C 9 POINT GAUSS-JACOBI INTEGRATION. THE CHOICE OF 9 DETERMINES 05571000 +C THE DIMENSION OF ALP AND THE INITIALIZATION OF ALP IN SUBROUTINE 05572000 +C QUICKJ 05573000 +C 05574000 +C************************ 05575000 + NGUS9=9 05576000 +C************************ 05577000 +C 05578000 +C WATE9=PI/9 05579000 +C 05580000 +C************************ 05581000 + WATE9=0.349065850504 05582000 +C************************ 05583000 +C 05584000 +C 05585000 +C READS MATERIAL AND COMPUTES SIGPOT=POTENTIAL SCATTERING 05586000 +C USING ENDFB FORMULAE 05587000 + 100 CALL INPUT(NTIN,INTERP,ZAI,L1,IFIS,EL,EH,LRU,LRF, 05588000 + 3N150,SIGCAP,SIGFIS,SIGTOT,ZETA,PSIZRO,BETPSI,BBETA, 05589000 + 4BVCTR,PVCTR,RVCTR,GAMTOT,GAMFIS,PSHFT0,PSHFT1,PSHFT2,V1,V2, 05590000 + 5ES,GF,D,GG,GNO,DELTA,GAMCMP,SIGCMP,GX,SIGPOT ) 05591000 +C 05592000 + IF(NFLRIS.LE.0) GO TO 200 05593000 +C 05594000 +C 05595000 + CALL UNRINT(N41,N27,TR,TI,TRS,TIS, 05596000 + 3N150,SIGCAP,SIGFIS,SIGTOT,ZETA,PSIZRO,BETPSI,BBETA, 05597000 + 4BVCTR,PVCTR,RVCTR,GAMTOT,GAMFIS,PSHFT0,PSHFT1,PSHFT2,V1,V2, 05598000 + 5ES,GF,D,GG,GNO,DELTA,GAMCMP,SIGCMP,GX,SIGPOT ) 05599000 +C 05600000 +C RIBALTA TUTTE LE UNRES PER AVERLE PER E DECRESCENTI 05601000 + CALL RIBA(NPT1,SIGCAP) 05602000 + CALL RIBA(NPT1,SIGFIS) 05603000 + CALL RIBA(NPT1,SIGCMP) 05604000 + CALL RIBA(NPT1,SIGTOT) 05605000 + 200 CALL RIBA(NPT1,SIGPOT) 05606000 + CALL RIBA(NPT1,ES) 05607000 +C 05608000 +C VENGONO CALCOLATE (EX /UNRDAT/) : SIGCAP(NPT1),SIGFIS(NPT1), 05609000 +C SIGTOT(NPT1) , SIGCMP(NPT1) 05610000 + IF(STMP.LT.10) GO TO 400 05611000 + WRITE (NOUT,1040) SIGP,TEMPM 05612000 + WRITE (NOUT,1025) (I,ES(I),I=1,NPT1) 05613000 + WRITE (NOUT,1050) SCAPOT,(I,SIGPOT(I),I=1,NPT1) 05614000 + IF(NFLRIS.LE.0) GO TO 400 05615000 + WRITE (NOUT,1050) CAPTUR,(I,SIGCAP(I),I=1,NPT1) 05616000 + IF (IFIS.NE.0) WRITE (NOUT,1050) FISION,(I,SIGFIS(I),I=1,NPT1) 05617000 + WRITE (NOUT,1050) TOTAL,(I,SIGTOT(I),I=1,NPT1) 05618000 + WRITE (NOUT,1050) COMPET,(I,SIGCMP(I),I=1,NPT1) 05619000 + 1000 FORMAT(12I6) 05620000 + 1010 FORMAT(6E12.5) 05621000 + 1020 FORMAT(A3) 05622000 + 1025 FORMAT(' ENERGY POINTS :'/7(1H ,2X,I3,1P1E12.4)) 05623000 + 1030 FORMAT(1H1,36X,14HISOTOPE NUMBER,I2,33H OF UNRESOLVED RESONANCE MA05624000 + 1TERIAL,I6/1H ,36X,57H=============================================05625000 + 2============/1H0,48X,34HUNRESOLVED RESONANCE ENERGY POINTS// 05626000 + 37(1H ,2X,I3,1P1E12.4)) 05627000 + 1040 FORMAT(1H0,43X,6HSIGP =,1P1E12.4,14H TEMPERATURE =,1P1E12.4/ 05628000 + 11H ,43X,44(1H=)) 05629000 + 1050 FORMAT(1H0,42X,21HUNRESOLVED RESONANCE ,A7,15H CROSS SECTIONS// 05630000 + 17(1H ,2X,I3,1P1E12.4)) 05631000 + 3000 FORMAT(2E11.4,4I11,I4,I2,I3) 05632000 +C 05633000 + 400 RETURN 05634000 + END 05635000 + SUBROUTINE INPUT(NTIN,INTERP,ZAI,L1,IFISS,EL,EH,LRU,LRF, 05636000 + 3N150,SIGCAP,SIGFIS,SIGTOT,ZETA,PSIZRO,BETPSI,DMM, 05637000 + 4BVCTR,PVCTR,RVCTR,GAMTOT,GAMFIS,PSHFT0,PSHFT1,PSHFT2,V1,V2, 05638000 + 5ES,GF,D,GG,GN0,DEL,GAMCMP,SIGCMP,GX,SIGPOT ) 05639000 +C ********************************************* 05640000 +C I DATI IN ARGOMENTO SONO I PRIMI 2 RECORDS CONT DI ENDFB CHE 05641000 +C NON VENGONO PIU LETTI IN QUESTA SUBROUTINE, MA IN QUELLA CHE 05642000 +C LA CHIAMA . CI SONO POI THE ARRAYS OF COMMON /UNRDAT/ NOW 05643000 +C PLACED IN ARGOMENTO ALLE SUBROUTINES 05644000 +C 05645000 +C HO INTRODOTTO IL CALCOLO DI SIGMA SCATTERING POTENZIALE CHE POI 05646000 +C IN UNRINT METTO IN SIGP. 05647000 +C QUI VIENE CALCOLATA UNA SIGP1: SEZIONE D'URTO GEOMETRICA= 05648000 +C 4 * PIGREC *(AP)**2 CHE POI NON VIENE USATA DA NESSUNA 05649000 +C PARTE POICHE IN /DRCUNR/ MANCA L'ULTIMO NOME SIGP 05650000 +C ( 8 - 85 - GALLI) 05651000 +C 05652000 +C 05653000 +C SUBROUTINE INPUT READS THE BCD INPUT DATA DESCRIBING THE 05654000 +C UNRESOLVED RESONANCE PARAMETERS. THE INPUT FORMAT IS CONSISTENT 05655000 +C WITH ENDF/B SPECIFICATIONS. THIS SUBROUTINE IS BASED UPON CODE 05656000 +C WRITTEN BY C.G. STENBERG FOR THE PROGRAM ETOE-2. 05657000 +C 05658000 +C 05659000 +C SUBPROGRAMS CALLED BY SUBROUTINE INPUT 05660000 +C 05661000 +C ALOG FORTRAN LOGARITHMIC FUNCTION 05662000 +C ATAN FORTRAN ARC TANGENT FUNCTION (SINGLE PRECISION) 05663000 +C SQRT FORTRAN SQUARE ROOT FUNCTION (SINGLE PRECISION) 05664000 +C 05665000 +C COMMON BLOCK IS DIMENSIONED FOR 150 ENERGY POINTS, 05666000 +C 3 L STATES, 12 SEQUENCES (SUM OVER J FOR ALL L STATES) 05667000 +C 05668000 +C COMMON /UNRDAT/ SIGCAP(150),SIGFIS(150),SIGTOT(150),ETA(5), 05669000 +C 1 AVGGM(5),AVGGM2(5),AVGTO(5),AVGTO2(5),AVGR2(5), 05670000 +C 2 VECTOR(5),AVGFS(5),AVGFS2(5),E1(10),E2(10), 05671000 +C 3 ANORM(10),A11(25),A12(25),D11(25),D12(25), 05672000 +C 4 AMATRX(25),ZETA(1000),PSIZRO(1000),BETPSI(1000), 05673000 +C 5 DMM(4000),BVCTR(5000),PVCTR(5000),RVCTR(5000), 05674000 +C 6 GAMTOT(2000),GAMFIS(2000),PSHFT0(150),PSHFT1(150),05675000 +C 7 PSHFT2(150),V1(150),V2(150),ES(150), 05676000 +C 8 JST(3),G(12),NDFN(12),NDFF(12),GF(150,12), 05677000 +C 9 D(150,12),GG(150,12),GN0(150,12),DEL(150), 05678000 +C A GAMCMP(2000),SIGCMP(150),AVGCS(5),AVGCS2(5), 05679000 +C B NDFX(12),GX(150,12) 05680000 + COMMON /UNRDAT/ ETA(5), 05681000 + 1 AVGGM(5),AVGGM2(5),AVGTO(5),AVGTO2(5),AVGR2(5), 05682000 + 2 VECTOR(5),AVGFS(5),AVGFS2(5),E1(10),E2(10), 05683000 + 3 ANORM(10),A11(25),A12(25),D11(25),D12(25), 05684000 + 4 AMATRX(25), 05685000 + 8 JST(3),G(12),NDFN(12),NDFF(12), 05686000 + A AVGCS(5),AVGCS2(5), 05687000 + B NDFX(12) 05688000 + DIMENSION SIGCAP(N150),SIGFIS(N150),SIGTOT(N150),ZETA(1000), 05689000 + 1 PSIZRO(1000),BETPSI(1000),DMM(4000),BVCTR(5000), 05690000 + 2 PVCTR(5000),RVCTR(5000),GAMTOT(2000),GAMFIS(2000), 05691000 + 3 PSHFT0(N150),PSHFT1(N150),PSHFT2(N150),V1(N150), 05692000 + 4 V2(N150),ES(N150),GF(N150,12),D(N150,12),GG(N150,12), 05693000 + 5 GN0(N150,12),DEL(N150),GAMCMP(2000),SIGCMP(N150), 05694000 + 6 GX(N150,12) 05695000 + DIMENSION SIGPOT(N150) 05696000 +C 05697000 + COMMON /DRCUNR/ TEMPM,ABUNDI,AM,CMCOR,LSTI,JSTI,IFIS, 05698000 + 1 NPORTR,NHERM,NHERM2,NOVRLP,MAT,NPT1,RPENTR, 05699000 + 2 RPSHFT,NGUS13,NGUS9,WATE13,WATE9 05700000 + COMMON /OUTPUT/ NOUT,INP 05701000 +C 05702000 + COMMON/FILES/NT(4,99) 05703000 + COMMON/OPZIO/OPZ(4,8,10) 05704000 +C 05705000 +C INTERPOLATION PARAMETER OF ENDFB ( DEFAULT IS LINEAR=2) 05706000 +C INTERP=2=OPZ(2,3,9) FISSATO IN P2MCF5 05707000 +C THIS PARAMETER IS NOT READ IN THIS ROUTINE 05708000 +C 05709000 +C NUMBER OF UNRESOLVED ENERGY POINTS WHEN ALL ENERGY INDEPENDENT 05710000 +C PARAMETERS ARE GIVEN 05711000 +C 05712000 + LNEUU=OPZ(2,3,2) 05713000 + IF(LNEUU.LE.0) LNEUU=15 05714000 +C ETOE-II ED UNRES USANO SOLO 15 PUNTI 05715000 +C 05716000 +C ISOTOPE CONTROL RECORD 05717000 +C 05718000 +C NON VENGONO LETTI PIU QUESTI, MA SONO DATI IN ARGOMENTO 05719000 +C READ (INP,3000) ZAI,ABUNDI,L1,IFIS 05720000 +C READ (INP,3000) EL,EH,LRU,LRF 05721000 +C 05722000 +C THE L-STATES AND J-STATES ARE COMBINED INTO SEQUENCES-ISQ 05723000 +C 05724000 + ISQ=0 05725000 + IF (LRF.EQ.2) GO TO 255 05726000 + IF (IFIS.NE.0) GO TO 250 05727000 +C 05728000 +C ISOTOPE IS NON-FISSIONABLE. ALL ENERGY INDEPENDENT PARAMETERS. 05729000 +C LRU=2,LRF=1,AND LFW=0 05730000 +C 05731000 + READ(INP,3000)SPI,A,LIS,L2,N1 05732000 + NT(4,NTIN)=NT(4,NTIN)+1 05733000 + LSTI=N1 05734000 +C SIGP1=12.56637062*A*A*ABUNDI 05735000 + IF(N1.LE.0)GOTO245 05736000 + DO 345 IL=1,N1 05737000 + READ (INP,3000) AWRI,DUM2,L,L2,N2,JST(IL),MAT,MF,MT, 05738000 + 1 (DMM(I),I=1,N2) 05739000 + NT(4,NTIN)=NT(4,NTIN)+1+JST(IL) 05740000 + INTERP=1 05741000 + IF(N2.LE.0)GOTO245 05742000 + DO 344 I=1,N2,6 05743000 + ISQ=ISQ+1 05744000 + G(ISQ)=(DMM(I+1)+.5)/(2.*SPI+1.) 05745000 + NDFN(ISQ)=DMM(I+2) 05746000 + NDFF(ISQ)=1 05747000 + NDFX(ISQ)=0 05748000 + DO 244 IX=1,LNEUU 05749000 + GF(IX,ISQ)=0. 05750000 + GX(IX,ISQ)=0. 05751000 + D(IX,ISQ)=DMM(I) 05752000 + GG(IX,ISQ)=DMM(I+4) 05753000 + GN0(IX,ISQ)=DMM(I+3) 05754000 + 244 CONTINUE 05755000 + 344 CONTINUE 05756000 + 345 CONTINUE 05757000 + 245 CONTINUE 05758000 + RPENTR=2.196771E-4*AWRI/(AWRI+1.)*(1.23*(AWRI)**(1./3.)+0.8) 05759000 + RPSHFT=2.196771E-3*AWRI/(AWRI+1.)*A 05760000 + NPT1=LNEUU 05761000 + IF (NPT1.EQ.0) NPT1=15 05762000 +C 05763000 +C CALCULATE ENERGIES USING EQUAL LETHARGYS. 05764000 +C 05765000 + DE=LNEUU-1 05766000 + DE=ALOG(EH/EL)/DE 05767000 + DE=EXP(DE) 05768000 + ES(1)=EL 05769000 + LNEU1=LNEUU-1 05770000 + DO 248 I=2,LNEU1 05771000 + ES(I)=ES(I-1)*DE 05772000 + 248 CONTINUE 05773000 + ES(LNEUU)=EH 05774000 + DO 249 IX=1,LNEUU 05775000 + DEL(IX)=SQRT(ES(IX)*3.44672E-4/AWRI) 05776000 + 249 CONTINUE 05777000 + GO TO 260 05778000 +C 05779000 +C UNRESOLVED DATA IN FISSIONABLE FORM. FISSION WIDTHS GIVEN. 05780000 +C LRU=2,LRF=1,AND LFW=1 05781000 +C 05782000 + 250 CONTINUE 05783000 + READ(INP,3000)SPI,A,LIS,L2,N1,N2,MAT,MF,MT,(DMM(I),I=1,N1) 05784000 + NT(4,NTIN)=NT(4,NTIN)+1+N1/6+NREST(N1,6) 05785000 + INTERP=1 05786000 + DO 251 I=1,N1 05787000 + ES(I)=DMM(I) 05788000 + 251 CONTINUE 05789000 + NPT1=N1 05790000 + LSTI=N2 05791000 +C SIGP1=12.56637062*A*A*ABUNDI 05792000 + IF(N2.LE.0)GO TO 254 05793000 + DO 253 IL=1,N2 05794000 + READ(INP,3000)AWRI,DUM2,L,L2,N3 05795000 + NT(4,NTIN)=NT(4,NTIN)+1 05796000 + JST(IL)=N3 05797000 + DO 352 IJ=1,N3 05798000 + ISQ=ISQ+1 05799000 + READ(INP,3000)DUM1,DUM2,L1,NDFF(ISQ),NDUM,NDUM,MAT,MF,MT, 05800000 + 1DUM3,AJ,DUM5,DUM6,DUM7,DUM8,(DMM(I),I=1,N1) 05801000 + NT(4,NTIN)=NT(4,NTIN)+2+N1/6+NREST(N1,6) 05802000 + NDFN(ISQ)=DUM5 05803000 + NDFX(ISQ)=0 05804000 + G(ISQ)=(AJ+.5)/(2.*SPI+1.) 05805000 + DO 252 I=1,N1 05806000 + GF(I,ISQ)=DMM(I) 05807000 + GX(I,ISQ)=0. 05808000 + D(I,ISQ)=DUM3 05809000 + GG(I,ISQ)=DUM7 05810000 + GN0(I,ISQ)=DUM6 05811000 + DEL(I)=SQRT(ES(I)*3.44672E-4/AWRI) 05812000 + 252 CONTINUE 05813000 + 352 CONTINUE 05814000 + 253 CONTINUE 05815000 + 254 CONTINUE 05816000 + RPENTR=2.196771E-4*AWRI/(AWRI+1.)*(1.23*(AWRI)**(1./3.)+0.8) 05817000 + RPSHFT=2.196771E-3*AWRI/(AWRI+1.)*A 05818000 + GO TO 260 05819000 +C 05820000 +C UNRESOLVED DATA WITH ALL ENERGY-DEPENDENT PARAMETERS 05821000 +C LRU=2,LRF=2,LFW=0 OR 1 05822000 +C 05823000 + 255 CONTINUE 05824000 + READ(INP,3000)SPI,A,LIS,L2,N1,N2 05825000 + NT(4,NTIN)=NT(4,NTIN)+1 05826000 + LSTI=N1 05827000 +C SIGP1=12.56637062*A*A*ABUNDI 05828000 + DO 259 IL=1,N1 05829000 + READ(INP,3000)AWRI,DUM2,L,L2,N3,N4 05830000 + NT(4,NTIN)=NT(4,NTIN)+1 05831000 + JST(IL)=N3 05832000 + DO 258 IJ=1,N3 05833000 + ISQ=ISQ+1 05834000 + READ(INP,3000)AJ,DUM2,L1,L2,N5,NPT1,MAT,MF,MT,(DMM(I),I=1,N5) 05835000 + NT(4,NTIN)=NT(4,NTIN)+1+N5/6+NREST(N5,6) 05836000 +C 05837000 +C SET INTEPOLATION PARAMETER FOR INTS ROUTINE ( SI PRENDE LA LEGGE 05838000 +C PIU COMPLICATA) 05839000 + IF(L1.GT.INTERP) INTERP=L1 05840000 +C 05841000 + NDFX(ISQ)=DMM(3) 05842000 + NDFN(ISQ)=DMM(4) 05843000 + NDFF(ISQ)=DMM(6) 05844000 + G(ISQ)=(AJ+.5)/(2.*SPI+1.) 05845000 + IE=1 05846000 + DO 256 I=7,N5,6 05847000 +C 05848000 +C IT IS ASSUMED THAT THE SAME ENERGIES ARE USED FOR ALL SEQUENCES 05849000 +C 05850000 + ES(IE)=DMM(I) 05851000 + DEL(IE)=SQRT(ES(IE)*3.44672E-4/AWRI) 05852000 + D(IE,ISQ)=DMM(I+1) 05853000 + GX(IE,ISQ)=DMM(I+2) 05854000 + GN0(IE,ISQ)=DMM(I+3) 05855000 + GG(IE,ISQ)=DMM(I+4) 05856000 + GF(IE,ISQ)=DMM(I+5) 05857000 + IE=IE+1 05858000 + 256 CONTINUE 05859000 + 258 CONTINUE 05860000 + 259 CONTINUE 05861000 + RPENTR=2.196771E-4*AWRI/(AWRI+1.)*(1.23*(AWRI)**(1./3.)+0.8) 05862000 + RPSHFT=2.196771E-3*AWRI/(AWRI+1.)*A 05863000 + 260 CONTINUE 05864000 +C 05865000 +C CALCULATE THE CENTER OF MASS CORRECTION FACTOR FOR USE IN 05866000 +C SIGMA 0 05867000 +C 05868000 + CMCOR=(AM+1.0)*(AM+1.0)/(AM*AM) 05869000 +C ?????????? NON DOVREBBE ESSERE AWRI INVECE DI AM ????? 05870000 +C AD OGNI MODO LA DIFFERENZA E' PICCOLA 05871000 +C 05872000 +C 05873000 +C CALCULATE DELTA SUB 0, DELTA SUB 1, AND DELTA SUB 2, THE 05874000 +C L=0,1, AND 2 PHASE SHIFTS 05875000 +C 05876000 +C CALCOLO DI K (NUMERO D'ONDA) 05877000 + CAPPA2=(2.196771E-3*AWRI/(AWRI+1))**2 05878000 +C 05879000 + DO 300 N=1,NPT1 05880000 +C RPENTR E' IL RHO NELLE NOTAZIONI DEL MANUALE DI ENDFB 05881000 +C RPSHFT IL RHO SOPRASSEGNATO 05882000 +C PSHFT0-1-2 IL FHI 05883000 +C V1-2 I V (PAGINA D.19 DEL MANUALE DI ENDFB-V) 05884000 + RPENT1=RPENTR*SQRT(ES(N)) 05885000 + RPSHF1=RPSHFT*SQRT(ES(N)) 05886000 + PSHFT0(N)=RPSHF1 05887000 + X=RPSHF1 05888000 + PSHFT1(N)=X-ATAN(X) 05889000 + X2=3.0*X/(3.0-X*X) 05890000 + PSHFT2(N)=X-ATAN(X2) 05891000 +C 05892000 +C CALCULATE THE L=1 AND L=2 PENETRATION FACTORS 05893000 +C 05894000 + X=RPENT1*RPENT1 05895000 + V1(N)=X/(1.0+X) 05896000 + V2(N)=X*X/(9.0+X*(3.0+X)) 05897000 +C CALCOLO DELLA SEZIONE D'URTO POTENZIALE DI SCATTERING 05898000 +C LE FORMULE SONO QUELLE DEL MANUALE DI ENDFB-V 05899000 + SIGPOT(N)=12.5663706/CAPPA2/ES(N)* 05900000 + 1 (SIN(PSHFT0(N))**2 + 05901000 + 2 3*SIN(PSHFT1(N))**2 + 5*SIN(PSHFT2(N))**2 ) 05902000 + 300 CONTINUE 05903000 +C 05904000 +C DETERMINE SUM OVER ALL L OF JST(L) 05905000 +C 05906000 + JSTI=0 05907000 + DO 310 L=1,LSTI 05908000 + JSTI=JSTI+JST(L) 05909000 + 310 CONTINUE 05910000 + 3000 FORMAT(2E11.4,4I11,I4,I2,I3/(6E11.4)) 05911000 + RETURN 05912000 + END 05913000 + SUBROUTINE INTUN(NFLRIS,INTERP,NTI,NTO,NTOUT,NMT,M2,NG,EUP,DELU,E,05914000 + 1MA,SIG,MINDX1,AINDX,M1,MIX,N150,ES,SIGU,T ,MAA,A) 05915000 +C ******************************************************************05916000 +C 05917000 +C ULTRAFINE GROUP RESONANCE CROSS SECTIONS COMPUTED FROM CROSS 05918000 +C SECTIONS COMPUTED AT E* POINTS BY UNRES IN COMMON /UNRDAT/ 05919000 +C 05920000 +C ******************************************************************05921000 +C 05922000 +C LE SIGU CONTENGONO : CATTURA,FISSIONE,TOTAL,SCATTERING 05923000 +C (OTTENUTO DA TOTAL-FISSIONE-CATTURA), LO SCATTERING POTENZIALE 05924000 +C 05925000 + DIMENSION E(NG),SIG(MA),AINDX(MINDX1),MIX(M1,M2),A(MAA) 05926000 + DIMENSION ES(N150),SIGU(N150,5) 05927000 + DIMENSION N(14) 05928000 +C 05929000 + REAL*8 NOME(5) 05930000 + DATA NOME/8HCAPTURE ,8HFISSION ,8HTOTAL ,8HSCATTER ,8HPOT.SCAT/05931000 +C 05932000 + COMMON/FILES/NT(4,99) 05933000 + EQUIVALENCE(NO,NT(1,6)),(PESO,OPZ(2,3,10)),(NP,NT(1,11)) 05934000 + COMMON /OPZIO/OPZ(4,8,10) 05935000 + EQUIVALENCE (OPZ(2,5,1),STMP) 05936000 + COMMON /DIM/NMX,MIND,MNX2,IND2 05937000 + COMMON /DIMC/MDUMD(15),MIND11,MIND12 05938000 + COMMON/INDX1/AINDX1(40,200) 05939000 + IF(NG.GT.MA) CALL ERR(8H INTUN , 0) 05940000 +C 05941000 + N1=1 05942000 + IF(NFLRIS.LE.0) N1=5 05943000 + N2=5 05944000 +C 05945000 +C LOOP SU CATT,FISS,TOT,SCATT,SCATT POT 05946000 + DO 10 I=N1,N2 05947000 +C 05948000 +C INTEGRAZIONE SIGMA UNRES DA ES A GRUPPI ULTRAFINI 05949000 +C LEGGE DI INTERPOLAZIONE : LIN,S-LOG E, LOG-LOG DEFINED BY INTERP 05950000 +C OPZIONE DI ANDAMENTO FLUSSO : 1/E 05951000 +C 05952000 +C 05953000 +C NOTE ON CULLEN METHOD INSERTION 05954000 +C PER INSERIRE QUI LE METODOLOGIE DI CULLEN SI FA: 05955000 +C 1) SI LINEARIZZA LA TABULAZIONE E-SIGMA 05956000 +C 2) SI ALLARGA DOPPLER CON IL PROGRAMMA DI GABRIELE 05957000 +C 3) SI VA AVANTI CHE SOTTO INTS1 INTEGRA ( A 100 ) 05958000 +C 4) SI FA CORRERE UNRES SENZA ALLARGARE (T=0) 05959000 +C 05960000 + IF(OPZ(2,1,6).LE.0) GO TO 150 05961000 + PRECIS=OPZ(2,1,6) 05962000 +C SPAZI 05963000 + LKT=1 05964000 +C KT ESPANSO 05965000 + LSS1=LKT+N150 05966000 + LTNP=(MAA-LSS1)/6 05967000 + LEP=LSS1 05968000 +C EP - A 05969000 + LSP=LEP+LTNP 05970000 +C SP - C 05971000 + LEF=LSP+LNTP 05972000 +C EF 05973000 + LSF=LSP+LNTP 05974000 +C SF 05975000 + LKP=LSF+LNTP 05976000 +C KP - EA 05977000 + LSA=LKP+LNTP 05978000 +C SA 05979000 + LFIN=LSA+LNTP 05980000 +C 05981000 + IF(LFIN.GT.MAA) CALL ERR(8HINTUN ,150) 05982000 + DO 20 IJ=1,N150 05983000 + A(IJ)=AREAL(INTERP) 05984000 + 20 CONTINUE 05985000 + EINFER=EUP*EXP(-(NG+1)*DELU) 05986000 + CALL LINSI1(N150,ES,SIGU(1,I),A(LKT),LNTP,A(LEF),A(LSF),A(LEP), 05987000 + 1 A(LSP),A(LKP),PRECIS,EINFER,EUP+100.) 05988000 + AWR=AINDX(5) 05989000 + NF=LNTP 05990000 + CALL BROAD(NF,TEMP,AWR,A(LEF),A(LSF),A(LKP), 05991000 + 1 A(LSA),A(LEP),A(LSP) ) 05992000 +C INTEGRA A 2000 PUNTI 05993000 + CALL RIEMP(0.0,NG,SIG) 05994000 + CALL INTS1(PESO,INTERP,NG,E,SIG,NF,A(LEF),A(LSA)) 05995000 + GO TO 200 05996000 +C 05997000 + 150 CALL RIEMP(0.0,NG,SIG) 05998000 +C 05999000 + CALL INTS1(PESO,INTERP,NG,E,SIG,N150,ES,SIGU(1,I)) 06000000 +C 06001000 +C SCRITTURA SU TAPES 06002000 +C ARRIVA QUI SENZA IDENTIFICATORI IL NUCLIDE E QUI NON METTO IDENTIF06003000 + 200 IF(NMT.GT.M2) GO TO 600 06004000 + NOM=MIX(3,NMT) 06005000 + NOM1=MIX(4,NMT) 06006000 + NOM2=MIX(1,NMT) 06007000 + NOM3=MIX(2,NMT) 06008000 + GO TO 610 06009000 +C ANDREBBE MESSO ENDFB ID COME CARATTERE MA NON HO FATTO LA SUBROUT06010000 + 600 NOM=NAREAL(AINDX(35)) 06011000 + NOM1=NAREAL(AINDX(36)) 06012000 + NOM2=NAREAL(AINDX(35)) 06013000 + NOM3=NAREAL(AINDX(36)) 06014000 + 610 CONTINUE 06015000 + CALL POSL(NTOUT) 06016000 +C POSIZIONA TAPE OUT AL PRIMO RECORD LIBERO 06017000 +C LE RISONANZE HANNO SOLO MT=151 06018000 +C WRITE(NTO) NOM2,NOM3,MAT,MF,MT 06019000 +C FLAGS DEL TIPO DI REAZIONE : 06020000 + REAZ=0. 06021000 + IF(I.EQ.1) REAZ=3. 06022000 + IF(I.EQ.2) REAZ=2. 06023000 + IF(I.EQ.3) REAZ=5. 06024000 + IF(I.EQ.4) REAZ=1. 06025000 + IF(I.EQ.5) REAZ=4. 06026000 + CALL SOGLM(0.0,NLAST,NG,SIG) 06027000 + CALL SOGLM1(0.0,NFIRST,NG,SIG) 06028000 + IF(NLAST.LT.NFIRST) CALL ERR(8HINTUN ,610) 06029000 + IF(NLAST.LE.0) GO TO 10 06030000 +C 06031000 +C WRITE(NTO)(N(J),J=1,14) 06032000 + WRITE(NTO)(SIG (J),J=NFIRST,NLAST) 06033000 +C 06034000 + IF(STMP.GT.100.)WRITE(NO,1000) NOM2,NOM3 06035000 + 1000 FORMAT(' PART 2: UNRESOLVED RESONANCE MULTIGROUP ', 06036000 + 1'CROSS SECTION PRODUCED:'/ 06037000 + 2 1X,2A4,3I10) 06038000 + IF(STMP.GT.100.) 06039000 + 1 WRITE(NO,2000) NOM2,NOM3,NOME(I),NFIRST,NLAST,T 06040000 + WRITE(NP,2001) NOM2,NOM3,NOME(I),NFIRST,NLAST,T 06041000 + 2000 FORMAT(1X,2A4,' REACTION: ',A8,5X, 06042000 + 1 'FIRST GROUP:',I5,' LAST GROUP:',I5,' TEMPERATURE:',E12.5)06043000 + 2001 FORMAT(1X,2A4,' REACTION:',A8,5X, 06044000 + 1 'FIRST GROUP:',I4,' LAST GROUP:',I4,' TEMPER:',F5.0) 06045000 + IF(STMP.GT.100) WRITE(NO,3000) (SIG(J),J=NFIRST,NLAST) 06046000 + 3000 FORMAT(1X,10E12.5) 06047000 +C 06048000 + IND2=IND2+1 06049000 + IF(IND2.GT.MIND12) CALL ERR(8H INTUN ,10) 06050000 + CALL EMPIN(MIND11,AINDX1(1,IND2),AINDX(1),AINDX(2),AINDX(3), 06051000 + 1AINDX(4),AINDX(5),NOM,NOM1,NOM2,NOM3,AINDX(6), 06052000 + 25.,3.,1.,FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(3,NTOUT)),1.,0.,0., 06053000 + 3FLOAT(NG),EUP,DELU,0.,FLOAT(NLAST),2.,REAZ,0.,FLOAT(NFIRST),0., 06054000 + 60.,AINDX(14),AINDX(15),0.,0.,AINDX(28),AINDX(9),AINDX(5),0.,0.,T) 06055000 + NT(4,NTOUT)=NT(4,NTOUT)+1 06056000 + NT(3,NTOUT)=NT(4,NTOUT) 06057000 + 10 CONTINUE 06058000 + RETURN 06059000 + END 06060000 + SUBROUTINE RES(NTI,NTIN,NTO,NTOUT,NMT,NFLRIS,NDOP,TEMP, 06061000 + 1 N41,N27,TR,TI,TRS,TIS, 06062000 + 2 LRF,EH,EL,NG,E,SIG, 06063000 + 3 NPK,NRIS,PK,NBACK,BACK,NPMX,ERIS,GAM,PUNTO,PUNTO1, 06064000 + 4 MINDX1,AINDX,M1,M2,MIX,MAT,MF,MT,EUP,DELU) 06065000 +C *****************************************************************06066000 +C RESOLVED RESONANCE CROSS SECTION COMPUTED FROM RESONANCE PARAMETER06067000 +C 06068000 +C == ALLO SCATTERING SI DEVE SOMMARE LO SCATTERING POTENZIALE.. 06069000 +C NON VIENE GENERATA UNA TOTAL . SE LA GENERARE POI LA 06070000 +C PARTE TERZA SOMMANDO I CONTRIBUTI==== 06071000 +C 06072000 +C !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! AA NOT JET IMPLEMENTED !!!! 06073000 +C USA PER LE RISONANZE LE FORMULE DEL MANUALE DI ENDFB 06074000 +C INTERPOLA LE SEZIONI D'URTO FINO A POTERLE RAPPRESENTARE 06075000 +C CON APPROSSIMAZIONE LINEARE . POI INTEGRA LA FUNZIONE LINEARE 06076000 +C CON PESO (FLUSSO) 1/E . 06077000 +C 06078000 +C DI QUESTO GRUPPO DI ROUTINES FANNO PARTE: 06079000 +C SUBROUTINE ORDED : PER ORDINARE LE RISONANZE PER ENERGIA 06080000 +C SUBROUTINE INTS1 : INTEGRAZIONE A GRUPPI DI UNA TABULAZIONE 06081000 +C SUBROUTINE SIGR : FORMULE DELLE SEZIONI D'URTO ALLARGATE DOPLE06082000 +C FUNCTION FIL : CALCOLO ANGOLO DI FASE DI FORMULE DELLE SIGM06083000 +C SUBROUTINE GEDEP : CALCOLO GN ED ER DIP DA E IN FORM. DELLE SIG06084000 +C SUBROUTINE QUICKW: PARTE REALE ED IMM DI FUNZ W PER FUNZ DOPPLE06085000 +C 06086000 +C LE VARIABILI DI QUESTA ROUTINE SONO: 06087000 +C PK(NPK,NRIS)=PAR DI RIS: PER BW: L,ER,AJ,GT,GN,GG,GF 06088000 +C IN PIU PK A.G. PER BWML (OPPURE VUOTI): +G,H 06089000 +C IN PIU PER ACCELERARE PK CALCOLATI IN RES: 06090000 +C ROE*SQRT(ER) , ZETA=GT/DELTR , DELTR 06091000 +C PUNTO(NPMX,5)=PUNTO INTERPOLATO: E ,PUNTO PREC A DX, 06092000 +C SIGMA CATT,FISS,SCATT ) 06093000 +C PUNTO1(NPMX,4)= PUNTI ORDINATI : ENERGIA, SIGMA CATT,FISS 06094000 +C SCATT ) 06095000 +C (LO SCATTERING POTENZIALE VA SOVRAPPOSTO 06096000 +C ALLO SCATTERING DI RISONANZA ) 06097000 +C 06098000 +C BACK(6,NBACK) = BACKGROUND DI ADLER-ADLER 06099000 +C E(NG) = ENERGIE ESTREMO SUPERIORE GRUPPI ULTRAFINI 06100000 +C SIG(NG)= SIGMA CALCOLATE A GRUPPI ULTRAFINI 06101000 +C ERIS(NRIS),GAM(NRIS)=ERIS E GAM PER ROUTINE LINSIG 06102000 +C *****************************************************************06103000 +C 06104000 + DIMENSION TR(N41,N27),TI(N41,N27),TRS(N41,N27),TIS(N41,N27) 06105000 + DIMENSION E(NG),SIG(NG),PK(NPK,NRIS),BACK(6,NBACK),PUNTO(NPMX,5) 06106000 + DIMENSION AINDX(MINDX1),MIX(M1,M2), PUNTO1(NPMX,4) 06107000 + DIMENSION ERIS(NRIS),GAM(NRIS) 06108000 + COMMON/DIM/NMX,MIND,MNX2,IND2 06109000 + COMMON/DIMC/MDIMD(15),MIND11,MIND12 06110000 + COMMON/INDX1/AINDX1(40,200) 06111000 + COMMON /OPZIO/OPZ(4,8,10) 06112000 + COMMON/FILES/NT(4,99) 06113000 + EQUIVALENCE(OPZ(2,5,9),PRECIS),(OPZ(2,5,1),STMP) 06114000 + EQUIVALENCE(OPZ(2,4,6),ADLRGS) 06115000 + EQUIVALENCE (NO,NT(1,6)),(NPP,NT(1,11)) 06116000 +C 06117000 + REAL*8 NOME(4) 06118000 + DATA NOME/8HCAPTURE ,8HFISSION ,8HSCATTER ,8HPOT.SCAT / 06119000 +C 06120000 + NFLGOU=0 06121000 +C NFLGOU FLAGS NO RESONANCES IN ENERGY RANGE 06122000 +C INTERP=OPZ(2,1,10) 06123000 +C IF(INTERP.LE.0) INTERP=1 06124000 + INTERP=1 06125000 +C LINEAR INTERPOLATION IS FORCED BEING LINEAR INTERPOLABLE THE 06126000 +C COMPUTED CROSS SECTIONS 06127000 + PESO=OPZ(2,1,8) 06128000 + IF(PESO.LE.0.) PESO=2. 06129000 +C 06130000 +C 06131000 + AWRI=AINDX(5) 06132000 + AP=AINDX(17) 06133000 +C INIZIALIZZAZAIONI PER PARAMETRI DA USARE IN RES 06134000 + CAPPAE=2.196771E-3*AWRI/(AWRI+1) 06135000 +C K/SQRT(E)=NUMERO D'ONDA NEUTRONE 06136000 + CAPPE2=12.56637/CAPPAE**2 06137000 + ACR=.123*AWRI**(1./3.)+.08 06138000 +C ACR = CHANNEL RADIUS 06139000 + ROE=ACR*CAPPAE 06140000 +C RHO FOR SCHIFT FACTORS COMPUTATION 06141000 +C 06142000 +C FLAGS SEGNALANTI SE SONO STATI FATTI I PEZZI: 06143000 +C RISONANZA 1 - ESUP 06144000 +C ESUP - EINF 06145000 +C EINF - LAST RESONANCE OPPURE ULTIMO GRUPPO 06146000 +C 06147000 + NFLAG1=0 06148000 + NFLAG2=0 06149000 + NFLAG3=0 06150000 +C 06151000 +C LETTURA RISONANZE ( TAPE POSIZIONATO DA SUB. P2MCF5) 06152000 +C 06153000 + N1=0 06154000 + WRITE(NPP,9050) 06155000 + 9050 FORMAT(10X,' RES. RESOLVED MULTI-GROUP CROSS SECTIONS ') 06156000 + IF(NDOP.GE.0) WRITE(NPP,9055) TEMP 06157000 + 9055 FORMAT(8X,' DOPPLER BROADENED TO TEMPERATURE:',E12.5) 06158000 + IF(NFLRIS.LE.0) WRITE(NPP,9060) 06159000 + IF(NFLRIS.LE.0.AND.OPZ(2,4,2).LT.-3.) GO TO 490 06160000 + 9060 FORMAT(8X,' ONLY POT. SCATT CROSS SECTION GENERATED') 06161000 +C .............................. B W 06162000 + IF(LRF.GT.2) GO TO 200 06163000 + READ(NTI,1000) SPI,AP,DUM,DUM,NLS 06164000 + NT(4,NTIN)=NT(4,NTIN)+1 06165000 + 1000 FORMAT(2E11.4,4I11,I4,I2,I3/(6E11.4)) 06166000 + DO 10 IL=1,NLS 06167000 + READ(NTI,1000) AWRI,QX,LL,LRX,NRS6,NRS,MAT,MF,MT, 06168000 + 1 ((PK(J,JJ+N1),J=2,7),JJ=1,NRS) 06169000 + NT(4,NTIN)=NT(4,NTIN)+1+NRS 06170000 + DO 15 IKL=1,NRS 06171000 + PK(10,IKL+N1)=ROE*SQRT(ABS(PK(2,IKL+N1))) 06172000 + PK(12,IKL+N1)=(2.*PK(3,IKL+N1)+1.)/(4.*SPI+2.) 06173000 + PK(13,IKL+N1)=SQRT(34.4668E-5*ABS(PK(2,IKL+N1))/AWRI*TEMP) 06174000 + PK(11,IKL+N1)=PK(4,IKL+N1)/PK(13,IKL+N1) 06175000 + 15 PK(1,IKL+N1)=IL 06176000 + N1=N1+NRS 06177000 + 10 CONTINUE 06178000 +C 06179000 + GO TO 300 06180000 +C 06181000 +C .............................. A A 06182000 + 200 CONTINUE 06183000 + READ(NTI,1000) SPI,AP,DUM,DUM,NLS 06184000 + READ(NTI,1000)AWRI,DUM,LI,DUM,NX6,NX,MAT,MF,MT, 06185000 + 1 ((BACK(J,JJ),J=1,6),JJ=1,NX) 06186000 + NT(4,NTIN)=NT(4,NTIN)+2+NX 06187000 + DO 20 IL=1,NLS 06188000 + READ(NTI,1000) DUM,DUM,DUM,DUM,NJS 06189000 + NT(4,NTIN)=NT(4,NTIN)+1 06190000 + DO 25 IJ=1,NJS 06191000 + READ(NTI,1000) AJ,DUM,DUM,DUM,NLJ12,NLJ,MAT,MF,MT, 06192000 + 1 ((PK(J,JJ+N1),J=3,14),JJ=1,NLJ) 06193000 + NT(4,NTIN)=NT(4,NTIN)+2*NLJ+1 06194000 + DO 27 IKL=1,NLJ 06195000 + PK(2,IKL+N1)=AJ 06196000 + 27 PK(1,IKL+N1)=IL 06197000 + 25 N1=N1+NLJ 06198000 + 20 CONTINUE 06199000 +C 06200000 + 300 CONTINUE 06201000 + IF(N1.NE.NRIS) CALL ERR(8HRES ,300) 06202000 +C 06203000 +C FINE LETTURA PARAMETRI ,. NEI PK CI SONO I PARAMETRI CHE ORA 06204000 +C VENGONO ORDINATI PER ENERGIE DECRESCENTI 06205000 + NKE=2 06206000 + IF(LRF.EQ.4)NKE=3 06207000 +C PER A A LA ENERGIA E' IN POSIZIONE 3, PER B W IN POS 1 06208000 +C 06209000 + CALL ORDINA(NKE,NPK,NRIS,PK) 06210000 +C 06211000 + IF(LRF.NE.2.OR.ADLRGS.LE.0.) GO TO 301 06212000 +C GENERATION OF ADLER GAUSS PARAMETERS FOR BWML 06213000 + DO 16 IR=1,NRIS 06214000 + PK(8,IR)=0. 06215000 + PK(9,IR)=0. 06216000 + GR=PK(4,IR) 06217000 + GNR=PK(5,IR) 06218000 + DO 17 IS=1,NRIS 06219000 + IF(IS.EQ.IR) GO TO 17 06220000 +C INTERFERENZA SOLO FRA RISONANZA STESSO L,J 06221000 + IF(PK(1,IS).NE.PK(1,IR).OR.PK(3,IS).NE.PK(3,IR)) GO TO 17 06222000 + DE=ABS(PK(2,IR)-PK(2,IS)) 06223000 +C SI E' VISTO CHE SI DEVONO TENERE PRATICAMENTE TUTTE, ANCHE QUELL06224000 +C FUORI E RANGE 06225000 + IF(DE.GT.(GR+PK(4,IS))*ADLRGS) GO TO 17 06226000 + GS=PK(4,IS) 06227000 + GNS=PK(5,IS) 06228000 + L=PK(1,IS) 06229000 + ES=PK(2,IS) 06230000 + ER=PK(2,IR) 06231000 +C LA RISONANZA S VA CONTATA ALL'ENERGIA DELLA RISONANZA R 06232000 +C SI TRATTA DI DIFFERENZE PICCOLE:NON CONTANO TANTO IN ESL, 06233000 +C CHE ENTRA IN SOMMA, O GS , MA CONTA IN GGRS OVE GNS E' FATTORE 06234000 + CALL GEDEP(L,ER,ES,GNS,ROE,ESL,GNSL) 06235000 + DE=ER-ESL 06236000 + GAMPIU=GR+GS-GNS+GNSL 06237000 + GGRS=GNR*GNSL 06238000 + DENOMI=1./(DE*DE+GAMPIU*GAMPIU*0.25) 06239000 + PK(8,IR)=PK(8,IR)+GGRS*GAMPIU*DENOMI 06240000 + PK(9,IR)=PK(9,IR)+GGRS*DE*DENOMI 06241000 + 17 CONTINUE 06242000 + IF(PK(8,IR).NE.0.) PK(8,IR)=PK(8,IR)*0.5 06243000 + 16 CONTINUE 06244000 +C 06245000 +C 06246000 + 301 CONTINUE 06247000 +C 06248000 +C STAMPE DEI PARAMETRI (SOLO PER BWML E BWSL ) 06249000 + IF(STMP.LT.150.) GO TO 302 06250000 + IF(LRF.GT.2) GO TO 302 06251000 + WRITE(NO,1005) AINDX(35),AINDX(36) 06252000 + 1005 FORMAT(//20X,2A4/) 06253000 + WRITE(NO,1010) 06254000 + 1010 FORMAT(' BREIT WIGNER RESONANCE PARAMETERS:'/ 06255000 + 1 ' RIS = L , E , J , GT , GN , GG , GF ' 06256000 + 2 ,'(FOR BWML: G , H ) , RHO SQRT(E),GAM/DELT=ZETA, G ,DELTR') 06257000 + ZERO=0.0 06258004 + DO 30 I=1,NRIS 06259000 + IF(ADLRGS.GT.0.) WRITE(NO,1020) I,(PK(J,I),J=1,NPK) 06260004 + IF(ADLRGS.LE.0.) WRITE(NO,1020) I,(PK(J,I),J=1,7),ZERO,ZERO, 06261004 + 1 (PK(J,I),J=10,NPK) 06262004 + 1020 FORMAT(1X,I4,'=',F4.1,E10.3,1X,F4.1,10E10.3) 06263000 + 30 CONTINUE 06264000 + 302 CONTINUE 06265000 +C 06266000 +C IL LOWER LIMIT OF THE MC2-2 LIBRARY IS E(NG). IF E(NG)>EL 06267000 +C E(NG) IS USED INSTEAD OF EL (E' INUTILE CALCOLARE ROBA 06268000 +C SOTTO ENERGIA DELLA LIBRERIA) (USO NG+1 PER EVITARE GUAI 06269007 +C IN INTS1) 06270007 + ELGR=EUP*EXP(-DELU*(NG+1)) 06271007 + ELL=AMAX1(ELGR,EL) 06272000 +C 06273000 +C LOOK FOR THE FIRST RESONANCE IN THE RANGE 06274000 +C 06275000 + NRISF=1 06276000 + DO 70 I=1,NRIS 06277000 + IF(EH.LT.PK(NKE,I)) GO TO 70 06278000 + NRISF=I 06279000 + GO TO 700 06280000 + 70 CONTINUE 06281000 + CALL ERR(8HRES WR ,70) 06282000 + NFLGOU=NRIS 06283000 +C ALL RESONANCES ABOVE THE ENERGY RANGE 06284000 +C 06285000 +C LOOKS FOR THE LAST RESONANCE IN THE RANGE 06286000 +C 06287000 + 700 NRISL=NRIS 06288000 + DO 75 I=1,NRIS 06289000 + I1=NRIS-I+1 06290000 + IF(ELL.GT.PK(NKE,I1)) GO TO 75 06291000 + NRISL=I1 06292000 + GO TO 750 06293000 + 75 CONTINUE 06294000 + CALL ERR(8HRES WR ,75) 06295000 + NFLGOU=1 06296000 +C ALL RESONANCES BELOW THE ENERGY RANGE 06297000 + 750 CONTINUE 06298000 + NRISL1=NRISL+1 06299000 + IF(NRISL1-NRISF.LE.0) CALL ERR(8H RES ,750) 06300000 + WRITE(NPP,9070) EH,EL,NRISF,NRISL,NRIS 06301000 + 9070 FORMAT(' UPPER E:',E9.4,' INF E:',E9.4,' FIRST RES:', 06302000 + 1 I5,' LAST RES:',I5,' TOT RES:',I5) 06303000 +C 06304000 +C LE RIS SONO QUI ORDINATE DECRESCENTI IN ENERGIA 06305000 +C NP= CONTATORE PUNTI INSERITI 06306000 + NP=0 06307000 +C 06308000 + IF(NFLRIS.LE.0) WRITE(NPP,9080) 06309000 + 9080 FORMAT(10X,' RESONANCES OUT OF ENERGY RANGE HAVE BEEN ADDED') 06310000 +C 06311000 +C NFLRIS SEGNALA DI NON INSERIRE RISONANZE. IN QUESTO CASO 06312000 +C VENGONO INSERITI I SOLI CONTRIBUTI DALLE RISONANZE FITTIZIE 06313000 +C FUORI DELL'ENERGY RANGE. QUESTI SERVONO IN GENERE A FAR TORNAR06314000 +C UNA SEZIONE D'URTO TIPO 1/V ALLE BASSE ENERGIE (ENTRO IL 06315000 +C RANGE ENERGETICO DELLE RISONANZE). 06316000 +C QUESTI CONTRIBUTI VANNO AGGIUNTI QUI PERCHE MC2-2 POI 06317000 +C TRATTERA' SOLO LE RISONANZE ENTRO IL RANGE ENERGETICO. 06318000 +C 06319000 + NSCART=0 06320000 + IF(NFLRIS.LE.0) NSCART=1 06321000 + NE=0 06322000 +C 06323000 + IF(NFLGOU.LE.0) GO TO 455 06324000 +C NO RESONANCES IN THE RANGE ( ONLY EH AND ELL POINTS ARE INSERTED) 06325000 + NE=NE+1 06326000 + ERIS(NE)=EH 06327000 + GAM(NE)=PK(4,NFLGOU) 06328000 + NE=NE+1 06329000 + ERIS(NE)=ELL 06330000 + GAM(NE)=PK(4,NFLGOU) 06331000 + GO TO 463 06332000 +C 06333000 +C VEDE SE IN EH E' UNA RISONANZA 06334000 + 455 IF(PK(NKE,NRISF).EQ.EH) GO TO 460 06335000 +C SE IL PRIMO PUNTO NON COINCIDE CON EH METTE EH FRA I PUNTI 06336000 + ERIS(1)=EH 06337000 + GAM(1)=PK(4,NRISF) 06338000 + NE=1 06339000 + 460 CONTINUE 06340000 +C METTO NEI PUNTI DELIMITANTI GLI INTERVALLI LE 06341000 +C RISONANZE DA NRISF SAD NRISL 06342000 + DO 81 I=NRISF,NRISL 06343000 + NE=NE+1 06344000 + ERIS(NE)=PK(NKE,I) 06345000 + 81 GAM(NE)=PK(4,I) 06346000 +C VEDE SE DEVE INSERIRE EL COME ULTIMO PUNTO O SE IN EL STA UNA RIS06347000 + IF(PK(NKE,NRISL).EQ.ELL) GO TO 462 06348000 + NE=NE+1 06349000 + ERIS(NE)=ELL 06350000 + GAM(NE)=PK(4,NRISL) 06351000 +C 06352000 + 462 CONTINUE 06353000 +C L'ULTIMO PUNTO ERA GIA' INSERITO COME ULTIMO NELL'INTERV06354000 +C PRIMA RIS- EH SE L'INTERVALLO ESISTE. 06355000 +C SE IL PUNTO E' GIA' INSERITO LO TOLGO, CHE ALTRIMENTI VI06356000 +C CONTATO DOPPIO. 06357000 + IF(NFLAG1.GT.0) NP=NP-1 06358000 + 463 NP1=NP+1 06359000 + NPPP=1 06360000 + CALL LINSIG(NPK,NRIS,PK,NE,ERIS,GAM,NPPP,NPMX, 06361000 + 1 PUNTO(NP1,1),PUNTO(NP1,2),PUNTO(NP1,3),PUNTO(NP1,4),PUNTO(NP1,5),06362000 + 2 PUNTO1(NP1,1),PUNTO1(NP1,2),PUNTO1(NP1,3),PUNTO1(NP1,4), 06363000 + 3 NDOP,TEMP,LRF,AWRI,SPI,AP,CAPPAE,CAPPE2,ROE, 06364000 + 4 N41,N27,TR,TI,TRS,TIS,NBACK,BACK,NSCART,ELL,EH) 06365000 + NFLAG2=NPPP 06366000 + NP=NP+NPPP 06367000 + 480 CONTINUE 06368000 + 490 CONTINUE 06369000 +C 06370000 + N111=1 06371000 +C ONLY POTENTIAL SCATTERING 06372000 + IF(NFLAG1.LE.0.AND.NFLAG2.LE.0.AND.NFLAG3.LE.0) N111=4 06373000 +C 06374000 +C .......... LOOP SU CATTURA,FISSIONE,SCATT(SENZA POT),SCAT POT 06375000 + DO 29 IC1=N111,4 06376000 + IC=IC1+1 06377000 + IF(IC1.NE.4) GO TO 500 06378000 +C POTENTIAL SCATTERING 06379000 +C IS COMPUTED AT ULTRA FINE GROUPS BOUNDARIES 06380000 +C AND IS SUPPOSED ABBASTANZA FLAT TO BE CONSIDERED LINEAR 06381000 +C INTERPOLABLE IN AN ULTRAFINE GROUP 06382000 +C 06383000 +C SIGMA POTENTIAL IS STORED IN PUNTO1(.,4) WHERE SIGMA SCATTERING 06384000 +C HAD BEEN BEFORE 06385000 +C 06386000 + IC=4 06387000 +C 06388000 +C N1=1 06389000 + DO 95 I=1,NG 06390000 + IF(E(I).LT.EH) GO TO 950 06391000 + 95 CONTINUE 06392000 + 950 N1=I 06393000 + DO 96 I=1,NG 06394000 + I1=NG-I+1 06395000 + IF(E(I1).GT.ELL) GO TO 960 06396000 + 96 CONTINUE 06397000 + 960 N2=I1 06398000 + IF(N2.LT.0.OR.N2.LE.N1)CALL ERR(8H RES ,960) 06399000 + NP=N2-N1+1+2 06400000 + PUNTO1(1,1)=EH 06401000 + I3=1 06402000 + DO 97 I=N1,N2 06403000 + I3=I3+1 06404000 + 97 PUNTO1(I3,1)=E(I) 06405000 + PUNTO1(NP,1)=ELL 06406000 +C 06407000 + CALL SCATP(NP,PUNTO1(1,1),PUNTO1(1,IC),CAPPAE,AP,CAPPE2) 06408000 + IF(NPMX.LT.NP) CALL ERR(8HRES ,500) 06409000 + 500 CONTINUE 06410000 +C 06411000 + IF(NP.GT.NPMX) CALL ERR(8H RES ,510) 06412000 +C =============== OUTPUT FOR PLOTTER =============== 06413000 +C IF(OPZ(2,2,2).LE.0.) GO TO 510 06414000 +C NUMER0=0 06415000 +C NOO=OPZ(2,2,2) 06416000 +C NOO=NT(1,NOO) 06417000 +C NWDS=2*NP+10 06418000 +C WRITE(NOO) NWDS,AINDX(35),AINDX(36),NOME(IC1),IC1,MAT, 06419000 +C 1 OPZ(2,5,7),PRECIS,NUMER0,NP,(PUNTO1(J,1),PUNTO1(J,IC),J=1,NP) 06420000 +C510 CONTINUE 06421000 +C 06422000 +C NOTE ON INSERTION OF CULLEN METHOD 06423000 +C PER INSERIRE IL METODO DI CULLEN SI PROCEDE COSI: 06424000 +C 0) SI FA CORRERE RES SENZA DOPPLER BROADENING 06425000 +C 1) SI ALLARGA LA TABULAZIONE CON CULLEN QUI (E' GIA' LINEARE) 06426000 +C 2) SI PROCEDE COME SOTTO 06427000 +C 06428000 + IF(OPZ(2,1,7).LE.0.) GO TO 555 06429000 +C POT SCATT IS NOT DOPPLER BROADENED 06430000 + IF(IC1.EQ.4) GO TO 555 06431000 + IF(TEMP.LE.0.) GO TO 555 06432000 +C 06433000 + AWR=AINDX(5) 06434000 +C A BROAD VANNO PASSATI SIGMA E ENERGIE CRESCENTI 06435000 +C INDI VANNO RIBALTATE PRIMA E DOPO 06436000 + DO 99 I=1,NP 06437000 + PUNTO(I,3)=PUNTO1(NP-I+1,1) 06438000 + 99 CONTINUE 06439000 + CALL RIBA(NP,PUNTO1(1,IC)) 06440000 +C 06441000 + IF(NP+100.GT.NPMX) CALL ERR(8HRES ,99) 06442000 +C 06443000 + CALL BROAD(NP,TEMP,AWR,PUNTO(1,3), 06444000 + 1 PUNTO1(1,IC),PUNTO(1,2),PUNTO(1,1),PUNTO(1,4), 06445000 + 2 PUNTO(1,5) ) 06446000 +C 06447000 + CALL RIBA(NP,PUNTO(1,1)) 06448000 +C 06449000 + CALL RIEMP( 0.0,NG,SIG) 06450000 + CALL INTS1(PESO,INTERP,NG,E,SIG,NP,PUNTO1(1,1),PUNTO(1,1)) 06451000 + GO TO 560 06452000 +C 06453000 +C INTEGRA A GRUPPI ULTRAFINI ( STESSA ROUTINE DELLE UNRESOLVED, 06454000 +C PESO 1/E ) 06455000 + 555 CALL RIEMP(0.0,NG,SIG) 06456000 + CALL INTS1(PESO,INTERP,NG,E,SIG,NP,PUNTO1(1,1),PUNTO1(1,IC)) 06457000 +C 06458000 +C SCRITTURA SU TAPES ( COME UNRES) 06459000 +C 06460000 +C ARRIVA QUI SENZA IDENTIFICATORI IL NUCLIDE E QUI NON METTO IDENTIF06461000 + 560 IF(NMT.GT.M2) GO TO 600 06462000 + NOM=MIX(3,NMT) 06463000 + NOM1=MIX(4,NMT) 06464000 + NOM2=MIX(1,NMT) 06465000 + NOM3=MIX(2,NMT) 06466000 + GO TO 610 06467000 +C ANDREBBE MESSO ENDFB ID COME CARATTERE MA NON HO FATTO LA SUBROUT06468000 + 600 NOM=NAREAL(AINDX(35)) 06469000 + NOM1=NAREAL(AINDX(36)) 06470000 + NOM2=NAREAL(AINDX(35)) 06471000 + NOM3=NAREAL(AINDX(36)) 06472000 + 610 CONTINUE 06473000 + CALL POSL(NTOUT) 06474000 +C POSIZIONA TAPE OUT AL PRIMO RECORD LIBERO 06475000 +C LE RISONANZE HANNO SOLO MT=151 06476000 +C WRITE(NTO) NOM2,NOM3,MAT,MF,MT 06477000 +C INDICI PER IL RECORD 2 06478000 + REAZ=0. 06479000 + IF(IC1.EQ.1) REAZ=3. 06480000 + IF(IC1.EQ.2) REAZ=2. 06481000 + IF(IC1.EQ.3) REAZ=1. 06482000 + IF(IC1.EQ.4) REAZ=4. 06483000 +C NLAST= GRUPPO SOTTO CUI LA SIGMA E' NULLA 06484000 + CALL SOGLM(0.0,NLAST,NG,SIG) 06485000 + CALL SOGLM1(0.0,NFIRST,NG,SIG) 06486000 + IF(NFIRST.GT.NLAST) CALL ERR(8H,RES , 50) 06487000 + WRITE(NPP,1100) NOM2,NOM3,NOME(IC1),NP,EH,ELL,NFIRST,NLAST 06488000 + IF(NLAST.LE.0) GO TO 29 06489000 +C 06490000 +C WRITE(NTO)(N(J),J=1,14) 06491000 + WRITE(NTO)(SIG (J),J=NFIRST,NLAST) 06492000 +C 06493000 + 1100 FORMAT(1X,2A4,1X,A8, 06494000 + 1 ' POINTS:',I9,' E LIM.:',E9.4,E9.4,' GROUPS:',2I5) 06495000 + IF(STMP.LT.1000.) GO TO 650 06496000 + WRITE(NO,1100) NOM2,NOM3,NOME(IC1),NP,EH,ELL,NFIRST,NLAST 06497000 + WRITE(NO,1201) 06498000 + 1201 FORMAT(5(1X,' ENERGY , SIGMA ')) 06499000 + WRITE(NO,1300)(PUNTO1(J,1),PUNTO1(J,IC),J=1,NP) 06500000 + 1300 FORMAT(1X,10E12.5) 06501000 + 650 CONTINUE 06502000 + IF(STMP.GT.100.)WRITE(NO,1500) NOM2,NOM3,MAT,MF,MT 06503000 + 1500 FORMAT(' PART 2: RESOLVED RESONANCE ', 06504000 + 1 'MULTI GROUP CROSS SECTION PRODUCED:'/ 06505000 + 2 1X,2A4,3I10) 06506000 + IF(NDOP.GE.0.AND.STMP.GT.100.) WRITE(NPP,9055) TEMP 06507000 + IF(STMP.GT.101) WRITE(NO,2000) NOME(IC1),NFIRST,NLAST 06508000 + 2000 FORMAT(' REACTION: ',A8,20X,'FIRST GROUP:',I5,' LAST GROUP:',I5) 06509000 + IF(STMP.GT.105) WRITE(NO,3000) (SIG(J),J=NFIRST,NLAST) 06510000 + 3000 FORMAT(1X,10E12.5) 06511000 +C 06512000 + IND2=IND2+1 06513000 + IF(IND2.GT.MIND12) CALL ERR(8H RES ,25) 06514000 + CALL EMPIN(MIND11,AINDX1(1,IND2),AINDX(1),AINDX(2),AINDX(3), 06515000 + 1AINDX(4),AINDX(5),NOM,NOM1,NOM2,NOM3,AINDX(6), 06516000 + 25.,3.,2.,FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(3,NTOUT)),1.,0.,0., 06517000 + 3FLOAT(NG),EUP,DELU,0.,FLOAT(NLAST),3.,REAZ,FLOAT(LRF), 06518000 + 4 FLOAT(NFIRST),0.,0.,EH,ELL,0.,0.,AINDX(28),AINDX(9),AINDX(5), 06519000 + 60.,FLOAT(NDOP),TEMP) 06520000 + NT(4,NTOUT)=NT(4,NTOUT)+1 06521000 + NT(3,NTOUT)=NT(4,NTOUT) 06522000 +C 06523000 + 29 CONTINUE 06524000 +C ............. FINE LOOP SU REAZIONI:CATT,FISS,SCATT,SCATT POT 06525000 + RETURN 06526000 + END 06527000 + SUBROUTINE SIGRR(SC,SF,SS,E,NDOP,TEMP, 06528000 + 1 LRF,AWRI,SPI,AP,CAPPAE,CAPPE2,ROE, 06529000 + 2 NPK,NRIS,PK,N41,N27,TR,TI,TRS,TIS,NBACK,BACK,NSCART,EINF,ESUP) 06530000 +C ********************************************************* 06531000 +C 06532000 +C DOPPLER BROADENED RESONANCE CROSS SECTION AT ENERGY E 06533000 +C ONLY BREIT WIGNER SINGLE OR MULTI LEVEL IS USED !!!!!!!!! 06534000 +C 06535000 +C NSCART PARAMETER SCARTA RISONANZE ENTRO EINF,ESUP 06536000 +C NDOP .LT. 0 - NO DOPPLER 06537000 +C LRF=1,2,4 = BWSL, BWML, A A 06538000 +C E = ENERGIA 06539000 +C TEMP= TEMPERATURARISONA 06540000 +C PK= PER BW = L,ER, AJ,GT,GN,GC,GF 06541000 +C +G,H DI ADLER GAUSS PER BWML (POS 8,9 ) 06542000 +C + ROE*SQRT(ER) ,ZETA=GT/DELTR (POS 10,11) 06543000 +C + G,DELTR (POSIZ 12, 13 ) 06544000 +C BACK(6,NBACK)= BACKGROUND DI ADLER ADLER 06545000 +C CAPPE2=4*PIGREC/KAPPA**2 ( SENZA L'E) 06546000 +C CAPPAE=KAPPA/SQRT(E) (SENZA L'E) 06547000 +C ************************************************************ 06548000 +C 06549000 + DIMENSION TR(N41,N27),TI(N41,N27),TRS(N41,N27),TIS(N41,N27) 06550000 + DIMENSION PK(NPK,NRIS),BACK(6,NBACK) 06551000 + COMMON/OPZIO/OPZ(4,8,10) 06552000 + EQUIVALENCE(OPZ(2,5,7),DELNUM),(OPZ(2,4,6),ADLRGS) 06553000 + DATA SQRPI/1.772453851/ 06554000 + DIMENSION FI(3),COSF2(3),SINF2(3),SIN2F(3) 06555000 +C 06556000 + ABSE=ABS(E) 06557000 + PICA24=CAPPE2/ABSE 06558000 + SQRTE=SQRT(ABSE) 06559000 + RHOE=ROE*SQRTE 06560000 + RO=CAPPAE*SQRTE*AP 06561000 +C 06562000 + FI(1)=RO 06563000 + FI(2)=RO-ATAN(RO) 06564000 + FI(3)=RO-ATAN(3.*RO/(3.-RO*RO)) 06565000 + DO 5 I=1,3 06566000 + FI2=FI(I)*2 06567000 + SINF2(I)=SIN(FI2) 06568000 + COSF2(I)=COS(FI2) 06569000 + SIN2F(I)=SIN(FI(I))**2 06570000 + 5 CONTINUE 06571000 +C 06572000 +C 06573000 + SC=0. 06574000 + SF=0. 06575000 + SS=0. 06576000 +C 06577000 + DO 10 IR=1,NRIS 06578000 + ER=PK(2,IR) 06579000 + IF(NSCART.GT.0.AND.ER.GE.EINF.AND.ER.LE.ESUP) GO TO 10 06580000 + GT=PK(4,IR) 06581000 +C DELTR=SQRT(34.4668E-5*ABS(ER)/AWRI*TEMP) 06582000 + DELTR=PK(13,IR) 06583000 + ALARG=DELTR 06584000 + IF(GT.GT.ALARG)ALARG=GT 06585000 + IF(ABS(E-ER).GT.ALARG*DELNUM) GO TO 10 06586000 +C 06587000 +C RHOER=RO*SQRT(ER) 06588000 + RHOER=PK(10,IR) 06589000 +C 06590000 +C G=(2*PK(3,IR)+1)/(4*SPI+2) 06591000 + G=PK(12,IR) 06592000 + GRC=PK(6,IR) 06593000 + GRF=PK(7,IR) 06594000 +C CATTURA E FISSIONE 06595000 + L=PK(1,IR) 06596000 + GN=PK(5,IR) 06597000 +C CALCOLO DIPENDENZA DA E DI ER E DI GN 06598000 +C ROUTINE NOT USED TO FASTEN:CALL GEDEP(L,E,ER,GN,ROE,ERL,GNL) 06599000 + IF(L.GT.1) GO TO 102 06600000 + ERL=ER 06601000 + GNL=GN*RHOE/RHOER 06602000 + GO TO 401 06603000 + 102 IF(L.GT.2) GO TO 103 06604000 + DENE=1.+RHOE*RHOE 06605000 + DENER=1.+RHOER*RHOER 06606000 + PFE=RHOE**3/DENE 06607000 +C DOPPLER BROADENING DO NOT USES E DEPENDENCE IN ER 06608000 + IF(NDOP.LT.0) ERL=ER+(1./DENE-1./DENER)/2./PFE*GN 06609000 + GNL=GN*PFE/(RHOER**3)*DENER 06610000 + GO TO 401 06611000 + 103 CONTINUE 06612000 + DENE=9.+3.*RHOE*RHOE+RHOE**4 06613000 + DENER=9.+3.*RHOER**2+RHOER**4 06614000 + PFE=RHOE**5/DENE 06615000 +C DOPPLER BROADENING DO NOT USES E DEPENDENCE IN ER 06616000 + IF(NDOP.LT.0) ERL=ER+((18.+3.*RHOER**3)/DENER- 06617000 + 1 (18.+3.*RHOE **3)/DENE )/2./PFE*GN 06618000 + GNL=GN*PFE/(RHOER**5)*DENER 06619000 + 401 CONTINUE 06620000 +C 06621000 +C 06622000 +C ERL=ER 06623000 + GTL=GT-GN+GNL 06624000 +C GTL=GT 06625000 +C 06626000 + IF(NDOP.LT.0.OR.GT.EQ.0) GO TO 260 06627000 +C 06628000 +C DOPPLER BROADENING 06629000 +C 06630000 +C DOPPLER FORMALISM DOES NOT USE ENERGY DEPENDECE FOR ER AND GT 06631000 +C 06632000 +C DELTA IS DELTA AT RESONANCE IN DOPPLER BROADENING APPROXIMAT06633000 +C 06634000 +C DELT=SQRT(34.4668E-5*ABS(E)/AWRI*TEMP) 06635000 +C ZETA=GT/DELTR 06636000 + ZETA=PK(11,IR) 06637000 +C 06638000 + IF(E.NE.ER) GO TO 200 06639000 + AY=ZETA*0.5 06640000 + AIMW=0. 06641000 + CALL WZERO(AY,REAW) 06642000 + GO TO 210 06643000 + 200 CONTINUE 06644000 +C 06645000 + Y=2./GT*(E-ER) 06646000 +C 06647000 +C PSI(ZETA,Y)=ZETA*SQRT(PI)/2*REAL PART OF W(ZETA*Y/2,ZETA/2) 06648000 +C CHI(ZETA,Y)=ZETA*SQRT(PI)*IMM PART OF W(ZETA*Y/2,ZETA/2) 06649000 +C LA PARTE REALE ED IMMAGINARIA DELLA FUNZIONE W 06650000 +C LA CALCOLA QUICKW(N41,N27,TR,TI,TRS,TIS,AX,AY,REW,AIMW) 06651000 +C CHE USA TABULAZIONI DI W PRODOTTE DALLA WTABL 06652000 +C (CHE A SUA VOLTA USA LA ROUTINE W) 06653000 +C NEL PICCO DELLLA RISONANZA (PER X=0 , SI PUO USARE WZERO(Y,REW) 06654000 +C CHE FORNISCE VELOCEMENTE LA PARTE REALE DI W. 06655000 +C PER ALTRI DETTAGLI VEDI IL MANUALE DI MC2-2 06656000 +C 06657000 + AY=ZETA*0.5 06658000 + AX=AY*Y 06659000 + CALL QUICKW(N41,N27,TR,TI,TRS,TIS,AX,AY,REAW,AIMW) 06660000 +C 06661000 + 210 PSI=ZETA*SQRPI*REAW*0.5 06662000 + PIFAC=PICA24*G/(GT*GT) 06663000 + SIGR=PIFAC*GNL*PSI 06664000 + SC=SIGR*GRC+SC 06665000 + SF=SIGR*GRF+SF 06666000 +C RESONANCE SCATTERING 06667000 + CHI=ZETA*SQRPI/2.*AIMW 06668000 + T1= GNL*COSF2(L)*PSI 06669000 + T2= GT*SINF2(L)*CHI 06670000 + T3=-2. *(GT-GN)*PSI*SIN2F(L) 06671000 + IF(ADLRGS.LE.0..OR.LRF.NE.2) GO TO 211 06672000 +C 06673000 +C ================ NON SOLO LA DIPENDENZA ENERGETICA DEI TERMINI 06674000 +C DI INTERFERENZA E' APPROSSIMATA, MA IL FATTO CHE SI POSSA ESTRAR06675000 +C DALL'INTEGRALE DOPPLER LA E E' DUBBIO =========================06676000 + EFACTR=E/ABS(ER) 06677000 + IF(L.GT.1) EFACTR=(E/ABS(ER))**(2*L-1) 06678000 + T1=T1+(PSI*PK(8,IR) + CHI*PK(9,IR))*GT/GNL *EFACTR 06679000 + 211 SS=SS+PIFAC*(T1+T2+T3)*GNL 06680000 + GO TO 10 06681000 + 260 CONTINUE 06682000 +C 06683000 +C NO DOPPLER BROADENING : ACCOUNTED FOR GTL AND ERL E DEPENDENCE 06684000 +C 06685000 + PIFAC=PICA24*G/(4.*(E-ERL)**2+(GTL*GTL)) 06686000 + SIGR=PIFAC*GNL 06687000 + SC=SIGR*GRC+SC 06688000 + SF=SIGR*GRF+SF 06689000 + 300 CONTINUE 06690000 +C SCATTERING DI RISONANZA 06691000 + T1= GNL*COSF2(L) 06692000 + T2=2.*(E-ERL) *SINF2(L) 06693000 + T3=-2.* (GTL-GNL)*SIN2F(L) 06694000 +C 06695000 + IF(ADLRGS.LE.0..OR.LRF.NE.2) GO TO 301 06696000 + EFACTR=E/ABS(ER) 06697000 + IF(L.GT.1) EFACTR=(E/ABS(ER))**(2*L-1) 06698000 + T1=T1+(PK(8,IR)*GTL+2.*(E-ERL)*PK(9,IR))*EFACTR/GNL 06699000 +C 06700000 +C ========= LA DIPENDENZA ENERGETICA DEL TERMINE DI 06701000 +C INTERFERENZA E' APPROSSIMATA, IN QUANTO SI DOVREBBERO 06702000 +C RICALCOLARE PK(8-9,.) AD OGNI E ===================== 06703000 +C ============ IN QUESTO MODO SI SUPPONE CHE IL DENOM DEL 06704000 +C TERMINE DI INTERFERENZA IN PK(8-9,.) NON DIP DA E ====== 06705000 +C PK(8-9,.) SONO CALCOLATE AD ER, SOLO IL FATTORE GNR*GNS 06706000 +C A NUMERATORE E' RIPORTATO DA ER AD E TRAMITE EFACTR ==== 06707000 +C ======================================================== 06708000 + 301 SS=SS+PIFAC*(T1+T2+T3)*GNL 06709000 + 10 CONTINUE 06710000 +C ............... END OF LOOP ON RESONANCES 06711000 + RETURN 06712000 + END 06713000 + SUBROUTINE GEDEP(L,E,ER,GN,ROE,ERL,GNL) 06714000 +C ********************************************** 06715000 +C CALCOLO DIPENDENZA DALL'ENERGIA DI ER E GN 06716000 +C SECONDO LE FORMULE DI ENDFB 06717000 +C L=1 SAREBBE LA P0 (L=0) 06718000 +C ********************************************* 06719000 +C 06720000 + RHOE=ROE*SQRT(ABS(E)) 06721000 + RHOER=ROE*SQRT(ABS(ER)) 06722000 + GO TO (100,200,300),L 06723000 + 100 CONTINUE 06724000 +C SHIFT FACTOR FOR ENERGY E AND ER ( L=0) 06725000 + SFE=0. 06726000 + SFER=0. 06727000 +C PENETRATION FACTOR FOR ENERGY E AND ER (L=0) 06728000 + PFE=RHOE 06729000 + PFER=RHOER 06730000 + GO TO 400 06731000 + 200 CONTINUE 06732000 +C SAME FOR L=1 06733000 + DENE=1.+RHOE**2 06734000 + DENER=1.+RHOER**2 06735000 + SFE=1./DENE 06736000 + SFER=1./DENER 06737000 + PFE=(RHOE**3)/DENE 06738000 + PFER=(RHOER**3)/DENER 06739000 + GO TO 400 06740000 + 300 CONTINUE 06741000 +C SAME FOR L=2 06742000 + DENE =9.+3.*RHOE**2+RHOE**4 06743000 + DENER=9.+3.*RHOER**2+RHOER**4 06744000 + SFE=(18.+3.*RHOE**3)/DENE 06745000 + SFER=(18.+3.*RHOER**3)/DENER 06746000 + PFE=RHOE**5/DENE 06747000 + PFER=RHOER**5/DENER 06748000 + 400 CONTINUE 06749000 + ERL=ER+(SFER-SFE)/2./PFE*GN 06750000 + GNL=PFE*GN/PFER 06751000 + RETURN 06752000 + END 06753000 + FUNCTION FIL(E,L,CAPPAE,AP) 06754000 +C *********************************** 06755000 +C PHASE ANGLE FOR RESOLVED RESONANCE COMPUTATION 06756000 +C **************************************** 06757000 +C 06758000 + RO=CAPPAE*SQRT(ABS(E))*AP 06759000 + GO TO(100,200,300),L 06760000 + 100 FIL=RO 06761000 + RETURN 06762000 + 200 FIL=RO-ATAN(RO) 06763000 + RETURN 06764000 + 300 FIL=RO-ATAN(3.*RO/(3.-RO**2)) 06765000 + RETURN 06766000 + END 06767000 + SUBROUTINE SCATP(NE,E,SIG,CAPPAE,AP,CAPPE2) 06768000 +C ******************************************** 06769000 +C COMPUTES POTENTIAL SCATTERING CROSS SECTION 06770000 +C ******************************************* 06771000 + DIMENSION E(NE),SIG(NE) 06772000 +C 06773000 +C ENERGY IS SUPPOSED TO BE ALWAYS GT THAN ZERO 06774000 +C 06775000 + DO 10 IE=1,NE 06776000 + PICA24=CAPPE2/E(IE) 06777000 + RO=CAPPAE*SQRT(E(IE))*AP 06778000 + FI1=RO 06779000 + FI2=RO-ATAN(RO) 06780000 + FI3=RO-ATAN(3.*RO/(3.-RO**2)) 06781000 + SIG(IE)=PICA24*(SIN(FI1)**2+3.*SIN(FI2)**2+5*SIN(FI3)**2) 06782000 + 10 CONTINUE 06783000 + RETURN 06784000 + END 06785000 + SUBROUTINE LINSIG(NPK,NRIS,PK,NE,E,GM,NP,MAXNP, 06786000 + 1 EP,SC,SF,SS,KP,EPFIN,SCFIN,SFFIN,SSFIN,NDOP,TEMP,LRF, 06787000 + 2 AWRI,SPI,AP,CAPPAE,CAPPE2,ROE, 06788000 + 3 N41,N27,TR,TI,TRS,TIS,NBACK,BACK,NSCART,EINF,ESUP) 06789000 +C ************************************************************* 06790000 +C PRODUCES LINEAR INTERPOLABLE TABULATION OF CROSS SECTION 06791000 +C FROM RESONANCE PARAMETERS 06792000 +C ************************************************************* 06793000 +C 06794000 + DIMENSION PK(NPK,NRIS),E(NE),GM(NE) 06795000 + DIMENSION SC(MAXNP),SF(MAXNP),SS(MAXNP),EP(MAXNP),KP(MAXNP), 06796000 + 1 EPFIN(MAXNP),SCFIN(MAXNP),SFFIN(MAXNP),SSFIN(MAXNP), 06797000 + 2 TR(N41,N27),TI(N41,N27),TRS(N41,N27),TIS(N41,N27),BACK(6,NBACK) 06798000 +C 06799000 + COMMON /OPZIO/OPZ(4,8,10) 06800000 + EQUIVALENCE(PRECIS,OPZ(2,5,9)) 06801000 +C 06802000 +C 06803000 + DIMENSION ANUMG(9) 06804000 + DATA NUMG/9/,ANUMG/1.,2.,4.,6.,10.,20.,40.,60.,100./ 06805000 +C 06806000 +C FIX FIRST POINT OF FIRST INTERVAL 06807000 +C 06808000 + EP(NP)=E(1) 06809000 + KP(NP)=0 06810000 + CALL SIGRR(SC(NP),SF(NP),SS(NP),EP(NP),NDOP,TEMP,LRF,AWRI, 06811000 + 1 SPI,AP,CAPPAE,CAPPE2,ROE,NPK,NRIS,PK, 06812000 + 2 N41,N27,TR,TI,TRS,TIS,NBACK,BACK,NSCART,EINF,ESUP) 06813000 + NPREC=NP 06814000 + NP=NP+1 06815000 +C 06816000 +C .......... LOOP ON ENERGY INTERVALS (DEFINED BY RESONANCE PEACKS06817000 + DO 10 IE=2,NE 06818000 +C FIX FIRST POINT OF INTERVAL ( A POINT ) 06819000 + NPA=NPREC 06820000 + EA=EP(NPA) 06821000 + SIGCA=SC(NPA) 06822000 + SIGFA=SF(NPA) 06823000 + SIGSA=SS(NPA) 06824000 +C FIX SECOND POINT OF INTERVAL ( B POINT) 06825000 + EP(NP)=E(IE) 06826000 +C KP IS (FOR EACH POINT) THE NUMBER OF THE NEXT PO06827000 +C KP=0 MEANS THAT THE INTERVAL IS FINISHED 06828000 + KP(NP)=0 06829000 + CALL SIGRR(SC(NP),SF(NP),SS(NP),EP(NP),NDOP,TEMP,LRF,AWRI, 06830000 + 1 SPI,AP,CAPPAE,CAPPE2,ROE,NPK,NRIS,PK, 06831000 + 2 N41,N27,TR,TI,TRS,TIS,NBACK,BACK,NSCART,EINF,ESUP) 06832000 +C 06833000 + NPB=NP 06834000 + NP=NP+1 06835000 + IF(NP.GT.MAXNP) CALL ERR(8HLINSIG ,0) 06836000 + EB=EP(NPB) 06837000 +C FOLLOWING DATA ARE REDEFINED AFTER (AFTER CONVERGENCE IMPROVEMENT06838000 +C SIGCB=SC(NPB) 06839000 +C SIGFB=SF(NPB) 06840000 +C SIGSB=SS(NPB) 06841000 +C NPREC REMEMBER B POINT WHICH WILL BE USED AS AN A POINT IN 06842000 +C NEXT SUBINTERVAL 06843000 + NPREC=NPB 06844000 +C THE NUMBER OF THE POINT FOLLOWING A IS STORED IN KP(A) FOR 06845000 +C REORDERING ROUTINE 06846000 +C 06847000 +C 06848000 + NPREC1=NPB 06849000 + IF(OPZ(2,4,5).LT.0.)GO TO 300 06850000 +C 06851000 +C 06852000 +C CONVERGENCE IMPROVEMENT: INSERT POINTS BETWEEN THE TWO 06853000 +C RESONANCE PEACKS FOR A BEST FITTING 06854000 +C OF THE RESONANCE SHAPE (THIS METHOD 06855000 +C HAS BEEN USED BY CULLEN IN RECENT CODE06856000 +C REMEMBER THAT INTERVALS AND RESONANCES ARE IN DECREASING ENERGY 06857000 +C ORDER 06858000 + EALF=EA-(EA-EB)/2. 06859000 +C 06860000 +C NPREC1 CONTAINS THE B POINT OF THE FIRST SUBINTERVAL 06861000 +C TO BE SUBDIVIDED (OTHERWISE LOST AFTER CONVERGENCE IMPROVEMENT 06862000 +C (IT IS THE FIRST POINT ADDED IN CONVERGENCE IMPROVEMENT LOOPS) 06863000 + NPREC1=0 06864000 +C 06865000 +C ........... LOOP TO INSERT POINTS AT MULTIPLE OF RESONANCE WHIDT 06866000 + DO 20 IG=1,NUMG 06867000 + E1=EA-GM(IE-1)*ANUMG(IG) 06868000 + IF(E1.LT.EALF) GO TO 200 06869000 +C HALF POINT HAS BEEN REACHED, OTHERWISE INSERT E1 POINT 06870000 + EP(NP)=E1 06871000 + KP(NP)=NP+1 06872000 + IF(NPREC1.LE.0) NPREC1=NP 06873000 + CALL SIGRR(SC(NP),SF(NP),SS(NP),EP(NP),NDOP,TEMP,LRF,AWRI, 06874000 + 1 SPI,AP,CAPPAE,CAPPE2,ROE,NPK,NRIS,PK, 06875000 + 2 N41,N27,TR,TI,TRS,TIS,NBACK,BACK,NSCART,EINF,ESUP) 06876000 + NP=NP+1 06877000 + 20 CONTINUE 06878000 + 200 CONTINUE 06879000 +C INSERT EALF POINT 06880000 + EP(NP)=EALF 06881000 + KP(NP)=NP+1 06882000 + IF(NPREC1.LE.0) NPREC1=NP 06883000 + CALL SIGRR(SC(NP),SF(NP),SS(NP),EP(NP),NDOP,TEMP,LRF,AWRI, 06884000 + 1 SPI,AP,CAPPAE,CAPPE2,ROE,NPK,NRIS,PK, 06885000 + 2 N41,N27,TR,TI,TRS,TIS,NBACK,BACK,NSCART,EINF,ESUP) 06886000 + NP=NP+1 06887000 +C INSERT POINTS BETWEEN HALF POINT AND THE PEAK OF SECOND RESONANCE 06888000 + DO 30 IG=1,NUMG 06889000 + IG1=NUMG-IG+1 06890000 + E1=EB+GM(IE)*ANUMG(IG1) 06891000 + IF (E1.GT.EALF) GO TO 30 06892000 +C ADDING IS FINISCHED OR ADD E1 POINT 06893000 + EP(NP)=E1 06894000 + KP(NP)=NP+1 06895000 + CALL SIGRR(SC(NP),SF(NP),SS(NP),EP(NP),NDOP,TEMP,LRF,AWRI, 06896000 + 1 SPI,AP,CAPPAE,CAPPE2,ROE,NPK,NRIS,PK, 06897000 + 2 N41,N27,TR,TI,TRS,TIS,NBACK,BACK,NSCART,EINF,ESUP) 06898000 + NP=NP+1 06899000 + 30 CONTINUE 06900000 +C LAST POINT OF INTERVAL IS POINT B 06901000 + KP(NP-1)=NPB 06902000 + 300 CONTINUE 06903000 +C 06904000 +C 06905000 +C ................... LOOP IN WHICH POINTS ARE ADDED TO SUBDIVIDE 06906000 +C THE INTERVAL IN LINEAR INTERPOLABLE 06907000 +C SUBINTERVALS. THIS LOOP BEGIN WITH THE 06908000 +C LEFTMOST SUBINTERVAL DEFINED BY END 06909000 +C POINTS(NPA:NPREC1) 06910000 + NPB=NPREC1 06911000 + EB=EP(NPB) 06912000 + SIGCB=SC(NPB) 06913000 + SIGFB=SF(NPB) 06914000 + SIGSB=SS(NPB) 06915000 +C 06916000 + 40 CONTINUE 06917000 +C IF(EA-EB) EXCEEDES COMPUTER PRECISION STOP SUBDIV06918000 + IF(ABS((EA-EB)/EA).LT.0.0001) GO TO 400 06919000 + EC=(EA-EB)/2.+EB 06920000 +C EC.GT.0 IS ASSUMED 06921000 +C IF(ABS(EC.LT.1.E-2)EC=1.E-2 06922006 + SIGLIC=(SIGCB-SIGCA)/(EB-EA)*(EC-EA)+SIGCA 06923000 + SIGLIF=(SIGFB-SIGFA)/(EB-EA)*(EC-EA)+SIGFA 06924000 + SIGLIS=(SIGSB-SIGSA)/(EB-EA)*(EC-EA)+SIGSA 06925000 + CALL SIGRR(SC1,SF1,SS1,EC,NDOP,TEMP,LRF,AWRI, 06926000 + 1 SPI,AP,CAPPAE,CAPPE2,ROE,NPK,NRIS,PK, 06927000 + 2 N41,N27,TR,TI,TRS,TIS,NBACK,BACK,NSCART,EINF,ESUP) 06928000 +C CONVERGENCE TEST(SEE IF LINEAR INTERPOLABLE) 06929000 + IF(ABS(SIGLIC).LT.1.E-5) GO TO 420 06930000 + IF(ABS((SIGLIC-SC1)/SIGLIC).GT.PRECIS) GO TO 450 06931000 + 420 IF(ABS(SIGLIF).LT.1.E-5) GO TO 422 06932000 + IF(ABS((SIGLIF-SF1)/SIGLIF).GT.PRECIS) GO TO 450 06933000 + 422 IF(ABS(SIGLIS).LT.1.E-5) GO TO 400 06934000 + IF(ABS((SIGLIS-SS1)/SIGLIS).GT.PRECIS) GO TO 450 06935000 +C CONVERGENCE HAS BEEN REACHED 06936000 + 400 CONTINUE 06937000 +C NEXT SUBINTERVAL IS TO BE SUBDIVIDED 06938000 +C NEW A POINT IS OLD B ( PUT B IN A) 06939000 +C KP(A) IS DEFINED AS THE POINT AFTER A FOR REORDERING ROUTINE 06940000 + KP(NPA)=NPB 06941000 +C DEFINE NEW A POINT 06942000 + NPA=NPB 06943000 + EA=EB 06944000 + SIGCA=SIGCB 06945000 + SIGFA=SIGFB 06946000 + SIGSA=SIGSB 06947000 +C NEW B POINT IS THE ONE FOLLOWING NEW A POINT 06948000 + NPB=KP(NPA) 06949000 + IF(NPB.LE.0) GO TO 10 06950000 +C SUBINTERVALS ARE FINISHED.KP(NPB) WILL BE DEFINED AT 06951000 +C AT NEXT TURN IN LOOP 10 OR 40 06952000 + EB=EP(NPB) 06953000 + SIGCB=SC(NPB) 06954000 + SIGFB=SF(NPB) 06955000 + SIGSB=SS(NPB) 06956000 + GO TO 40 06957000 + 450 CONTINUE 06958000 +C CONVERGENCE HAS NOT BEEN REACHED. ADD C POINT 06959000 + EP(NP)=EC 06960000 + SC(NP)=SC1 06961000 + SF(NP)=SF1 06962000 + SS(NP)=SS1 06963000 + KP(NP)=NPB 06964000 + NP=NP+1 06965000 +C NP MUST ALWAYS LESS THAN NPMAX. TO FASTEN THE INNER LOOP 06966000 +C THIS CONDITION IS CHECKED ONLY IN LOOP 10 06967000 +C IF(NP.GT.MAXNP) CALL ERR(8HLINSIG ,450) 06968000 +C NEW POINT B IS POINT C JUST ADDED 06969000 + NPB=NP-1 06970000 + EB=EP(NPB) 06971000 + SIGCB=SC(NPB) 06972000 + SIGFB=SF(NPB) 06973000 + SIGSB=SS(NPB) 06974000 + GO TO 40 06975000 +C END OF LOOP ON SUBINTERVAL SUBDIVISION 06976000 + 10 CONTINUE 06977000 + NP=NP-1 06978000 +C 06979000 +C ORDERING ROUTINE 06980000 + CALL ORDPU1(NP,EP,SC,SF,SS,KP,EPFIN,SCFIN,SFFIN,SSFIN) 06981000 + RETURN 06982000 + END 06983000 + SUBROUTINE LINSI1(NE,E,S,KT,NF,EF,SF,EP,SP,KP,PRECIS,E1,E2) 06984000 +C *************************************************** 06985000 +C LINEARIZE TABULATED ENDFB DATA 06986000 +C BETWEEN E1,E2 ENERGY LIMITS 06987000 +C -- ENERGY IN INCREASING ORDER -- 06988000 +C KT E S (N) INPUT 06989000 +C ES SF (NF) OUTPUT (ORDERED POINTS) 06990000 +C EP SP KP SCRATCH SPACE FOR INSERTED POINTS 06991000 +C PRECIS REQUIRED PRECISION 06992000 +C 06993000 +C *************************************************** 06994000 +C 06995000 + DIMENSION E(NE),S(NE),KT(NE),EF(NF),SF(NF) 06996000 + DIMENSION EP(NF),SP(NF),KP(NF) 06997000 +C 06998000 +C FIND FIRST E -POINT 06999000 + N1=1 07000000 + DO 5 I=1,NE 07001000 + IF(E(I).LT.E2) GO TO 5 07002000 + N1=I-1 07003000 + GOTO 100 07004000 + 5 CONTINUE 07005000 +C 07006000 +C FIND LAST E POINT 07007000 + 100 N2=NE 07008000 + DO 6 I=1,NE 07009000 + I1=NE-I+1 07010000 + IF(E(I1).GT.E1) GO TO 6 07011000 + N2=I1+1 07012000 + GO TO 101 07013000 + 6 CONTINUE 07014000 + 101 CONTINUE 07015000 +C 07016000 +C NP= COUNTERS FOR INSERTED POINTS 07017000 + NP=1 07018000 +C FIRST POINT 07019000 + EP(1)=E(N1) 07020000 + SP(1)=S(N1) 07021000 + KP(1)=0 07022000 +C KP WILL BE REDEFINED AFTER 07023000 + NPREC=1 07024000 + NP=NP +1 07025000 + N11=N1+1 07026000 + DO 10 IE=N11,N2 07027000 +C FIX FIRST POINT OF INTERVAL 07028000 + NPA=NPREC 07029000 + EA=EP(NPA) 07030000 + SIGA=SP(NPA) 07031000 + KTIE=KT(IE) 07032000 +C FIX SECOND POINT OF INTERVAL 07033000 + EP(NP)=E(IE) 07034000 + KP(NP)=0 07035000 + SP(NP)=S(IE) 07036000 +C 07037000 + NPB=NP 07038000 + NP=NP+1 07039000 + IF(NP.GT.NF) CALL ERR(8HLINSI1 ,0) 07040000 + EB=EP(NPB) 07041000 + SIGB=SP(NPB) 07042000 + NPREC=NPB 07043000 + KP(NPA)=NPB 07044000 +C ................. LOOP TO SUBDIVIDE INTERVALS 07045000 + 40 CONTINUE 07046000 + IF(EA.LT.1.E-10) GO TO 102 07047000 + IF(ABS((EA-EB)/EA).LT.0.0001) GO TO 400 07048000 + 102 CONTINUE 07049000 + EC=(EB-EA)/2.+EA 07050000 + IF(ABS(EC).LT.1.E-2) EC=1.E-4 07051000 + CALL TERP1(EA,SIGA,EB,SIGB,EC,SIGC,KTIE) 07052000 + 105 SIGLIN=(SIGB-SIGA)/(EB-EA)*(EC-EA)+SIGA 07053000 + IF(ABS(SIGLIN).LT.1.E-5) GO TO 400 07054000 + IF(ABS((SIGLIN-SIGC)/SIGLIN).GT.PRECIS) GO TO 450 07055000 + 400 CONTINUE 07056000 +C NEXT SUBINTERVAL MUST BE SUBDIVIDED 07057000 +C CONVERGENCE HAS BEEN REACHED 07058000 +C NEW POINT A IS OLD POINT B ( PUT B IN A) 07059000 + KP(NPA)=NPB 07060000 +C NEW A POINT 07061000 + NPA=NPB 07062000 + EA=EB 07063000 + SIGA=SIGB 07064000 +C NEW B POINT 07065000 + NPB=KP(NPA) 07066000 + IF(NPB.LE.0) GO TO 10 07067000 +C INTERVAL IS EXAUSTED 07068000 + EB=EP(NPB) 07069000 + SIGB=SP(NPB) 07070000 + GO TO 40 07071000 + 450 CONTINUE 07072000 +C CONVERGENCE HAS NOT BEEN REACHED 07073000 +C ADD POINT C 07074000 + EP(NP)=EC 07075000 + SP(NP)=SIGC 07076000 + KP(NP)=NPB 07077000 + NP=NP+1 07078000 + IF(NP.GT.NF) CALL ERR(8HLINSI1 , 450) 07079000 +C NEW POINT B IS POINT C JUST ADDED 07080000 + NPB=NP-1 07081000 + EB=EP(NPB) 07082000 + SIGB=SP(NPB) 07083000 + GO TO 40 07084000 +C END OF LOOP ON SUBINTERVAL DIVISION 07085000 + 10 CONTINUE 07086000 + NP=NP-1 07087000 + NF=NP 07088000 + CALL ORDPU3(NP,EP,SP,KP,NF,EF,SF) 07089000 +C NF=NUMBER OF FINAL POINTS :RETURNED FROM ORDPU2 07090000 + RETURN 07091000 + END 07092000 + SUBROUTINE BROAD(N,T,AWR,E,S,EA,SA,C,A) 07093000 +C ****************************************** 07094000 +C 07095000 +C DOPPLER BROADENING OF LINEAR TABULATED CROSS SECTIONS 07096000 +C FOLLOWING THE METHOD IN : CULLEN WEISBIN 07097000 +C NUCL SCI ENG 60,199 (1976) 07098000 +C 07099000 +C THIS ROUTINE HAS BEEN WRITTEN BY GABRIELE FIONI 07100000 +C 07101000 +C 07102000 +C WARNING! : THIS ROUTINE IS NOT SUITED FOR VERY LOW ENERGY 07103000 +C 07104000 +C SUBROUTINE PER ALLARGARE DOPPLER SEZIONI D'URTO 07105000 +C 07106000 +C ARGOMENTI: N NUMERO DI PUNTI DA ALLARGARE 07107000 +C T TEMPERATURA A CUI SI VUOLE ALLARGARE 07108000 +C AWR NUMERO DI MASSA DEL NUCLIDE CONSIDERATO 07109000 +C E ARRAY CONTENENTE ENERGIA DEI PT 07110000 +C S VALORI SEZIONI D'URTO RELATIVE AD E 07111000 +C SA ARRAY SEZIONI ALLARGATE 07112000 +C EA ENERGIE DELLE MEDESIME 07113000 +C C , A :WORK ARRAYS 07114000 +C 07115000 +C ENERGIE E SIGMA INPUT ED OUTPUT SONO IN ORDINE DI ENERG CRESCENTE 07116000 +C 07117000 +C ************************************************************** 07118000 +C 07119000 +C 07120000 + COMMON /FILES/NT(4,99) 07121000 + DIMENSION A(N),C(N),E(N),S(N),EA(N),SA(N),IDISC(30) 07122000 + DOUBLE PRECISION SUP,SINF,PI,RAIPI,DER,DEX,F1ORA,F1PRE,F2ORA,F2PRE07123000 + C,SINT1,SINT2 07124000 + DATA PI/3.14159265358979/ 07125000 + ALFA=11605.3*AWR/T 07126000 + RAIPI=1.0/DSQRT(PI) 07127000 + NO=NT(1,6) 07128000 + NP=NT(1,11) 07129000 +C WRITE(NP,9000) T 07130000 +C WRITE(NO,9000) T 07131000 +C9000 FORMAT(' DOPPLER BROADENING OF THE TABULATED CROSS SECTION', 07132000 +C 1 ' TEMPERATURE:',E12.5) 07133000 +C 07134000 +C CONVERSIONE DA ENERGIA A VELOCITA'(Y**2=ALFA*EA) 07135000 +C 07136000 + DO 10 L=1,N 07137000 + IF(E(L).LT.1.0E-12) E(L)=1.0E-12 07138000 + 10 EA(L)=SQRT(ALFA*E(L)) 07139000 +C CREAZIONE TABELLA DI DISCONTINUITA' 07140000 + NM1=N-1 07141000 + K=0 07142000 + DO 11 I=1,NM1 07143000 + IF(EA(I).NE.EA(I+1)) GOTO 11 07144000 + K=K+1 07145000 + IDISC(K)=I 07146000 + 11 CONTINUE 07147000 + KDISC=K+1 07148000 + IDISC(KDISC)=N 07149000 +C 07150000 +C CALCOLO COSTANTI AK & CK 07151000 +C 07152000 + DO 15 K=1,N 07153000 + EK1=EA(K+1)**2 07154000 + EK=EA(K)**2 07155000 + EDIF=EK1-EK 07156000 + IF(EDIF.EQ.0.) GOTO 13 07157000 + A(K)=(EK1*S(K)-EK*S(K+1))/EDIF 07158000 + C(K)=(S(K+1)-S(K))/EDIF 07159000 + GOTO 15 07160000 + 13 IF(K.EQ.1) GOTO 15 07161000 + A(K)=A(K-1) 07162000 + C(K)=C(K-1) 07163000 + 15 CONTINUE 07164000 +C 07165000 +C *************** CALCOLO INTEGRALE SIGMA* (Y,T) ***************** 07166000 +C 07167000 +C LOOP SU TUTTI I VALORI PER ALLARGARLI 07168000 +C 07169000 + NCW=0 07170000 + NLL=1 07171000 + DO 500 LP=1,KDISC 07172000 + NHH=IDISC(LP) 07173000 + DO 100 I=NLL,NHH 07174000 + Y=EA(I) 07175000 + IF(Y.GT.4.) GOTO 20 07176000 +C 07177000 +C SCRITTA DI WARNING CAUSATA DAL NON VERIFICARSI DELLA CONDIZIONE 07178000 +C AE/KT > 16. IN QUESTO CASO BISOGNEREBBE CALCOLARE ANCHE L'ALTRO 07179000 +C PEZZO DELL'INTEGRALE. NEI CALCOLI A CUI E' DESTINATE LA CATENA 07180000 +C C2RV, DETTO CALCOLO E' TRASCURABILE: INFLUENZA SOLO GRUPPI ALTI 07181000 +C NCW=NCW+1 07182000 +C IF(NCW.GT.1) GOTO 18 07183000 +C WRITE(NO,1000) E(I) 07184000 + WRITE(NP,1000) E(I) 07185000 + 1000 FORMAT(' WARNING!! APPROXIMATED DOPPLER BROADENING ! ENERGY:', 07186000 + 1 E12.5) 07187000 + 18 SA(I)=S(I) 07188000 + GOTO 100 07189000 + 20 YY=Y*Y 07190000 + Y3=YY*Y*4 07191000 + Y4=YY*YY 07192000 + DERF1C=0.5+YY 07193000 + DERF2C=0.75+3*YY+Y4 07194000 + DEXF2C=1.5+6*YY 07195000 + YC=4*Y 07196000 + KINF=I+1 07197000 + SINT1=0. 07198000 + SINT2=0. 07199000 +C 07200000 +C INTEGRALE SOPRA IL PUNTO Y 07201000 +C 07202000 +C SONO ALL'ESTREMO DESTRO DELL'INTERVALLO? (SI=CONTINUARE COME 1/V) 07203000 +C DISCONTINUITA' A DESTRA? 07204000 + IF(I.EQ.NHH) GOTO 33 07205000 +C SONO NEL RANGE DI DISCONTINUITA' ? 07206000 + IF((Y+4).GT.EA(NHH)) GOTO 33 07207000 + F1ORA=-2*RAIPI*Y 07208000 + F2ORA=-RAIPI*(YC+Y3) 07209000 + DO 30 J=KINF,N 07210000 +C VALORI INTEGRALI PRECEDENTE INTERVALLO 07211000 + F1PRE=F1ORA 07212000 + F2PRE=F2ORA 07213000 +C LIMITI INTERVALLO 07214000 + SUP=EA(J)-Y 07215000 + IF(SUP.LT.4.) GOTO 25 07216000 + SUP=4. 07217000 +C CALCOLO VALORI DUE INTEGRALI 07218000 + 25 DER=DERF(SUP) 07219000 + DEX=DEXP(-SUP*SUP) 07220000 + F1ORA=DERF1C*DER-RAIPI*(SUP+2*Y)*DEX 07221000 + F2ORA=DERF2C*DER-RAIPI*(SUP*(DEXF2C+SUP*(YC+SUP))+Y3+YC)*DEX 07222000 + SINT1=A(J-1)*(F1ORA-F1PRE)+SINT1 07223000 + SINT2=C(J-1)*(F2ORA-F2PRE)+SINT2 07224000 + IF(SUP.GE.4.) GOTO 35 07225000 + 30 CONTINUE 07226000 +C CONTINUAZIONE NELLA DISCONTINUITA' 07227000 + 33 SINT1=SINT1+S(I)*EA(I)*(Y+RAIPI) 07228000 +C 07229000 +C INTEGRALE SOTTO Y 07230000 +C 07231000 +C NON CI SONO PUNTI A SINISTRA? 07232000 + 35 KORA=0 07233000 +C DISCONTINUITA' A SINISTRA ? 07234000 + IF(I.EQ.NLL) GOTO 53 07235000 +C RANGE DI DISCONTINUITA' A SINISTRA? 07236000 + IF((Y-4).LT.EA(NLL)) GOTO 53 07237000 + NM1=I-1 07238000 + KORA=I 07239000 + F1ORA=-2*RAIPI*Y 07240000 + F2ORA=-RAIPI*(YC+Y3) 07241000 + DO 50 J=1,NM1 07242000 + KORA=KORA-1 07243000 + IF(KORA.LE.0) GOTO 60 07244000 + SINF=EA(KORA)-Y 07245000 + IF(SINF.GT.-4.) GOTO 40 07246000 + SINF=-4. 07247000 + 40 F1PRE=F1ORA 07248000 + F2PRE=F2ORA 07249000 + DER=DERF(SINF) 07250000 + DEX=DEXP(-SINF*SINF) 07251000 + F1ORA=DERF1C*DER-RAIPI*(SINF+2*Y)*DEX 07252000 + F2ORA=DERF2C*DER-RAIPI*(SINF*(DEXF2C+SINF*(YC+SINF))+Y3+YC)*DEX 07253000 + SINT1=A(KORA)*(F1PRE-F1ORA)+SINT1 07254000 + SINT2=C(KORA)*(F2PRE-F2ORA)+SINT2 07255000 + IF(SINF.LE.-4.) GOTO 60 07256000 + 50 CONTINUE 07257000 +C CONTINUAZIONE PER DISCONTINUITA' SINISTRA 07258000 + 53 SINT1=SINT1+S(I)*EA(I)*(Y-RAIPI) 07259000 + 60 SA(I)=1/(2*YY)*(SINT1+SINT2) 07260000 + 100 CONTINUE 07261000 + NLL=NHH+1 07262000 + 500 CONTINUE 07263000 + RETURN 07264000 + END 07265000 + SUBROUTINE NII(NTI,NTIN,NTO,NTOUT,NMT,M2,MINDX1,AINDX,M1,MIX,MA,A,07266000 + 1EUP,DELU,NG) 07267000 +C ******************************************************************07268000 +C NI COEFFICIENTS COMPUTATION FOR MCC2F5 FILE, RECORD 2 07269000 +C NI=A0+A1E+A2E**2+A3 E**3 07270000 +C ******************************************************************07271000 +C 07272000 +C PUNTI AGGIUNTI PER L'ENERGIA 07273000 + DIMENSION EADD(19),IT(6) 07274000 + DATA EADD/.1E6,.25E6,.5E6,.75E6,1.E6,1.25E6,1.5E6,1.75E6,2.E6, 07275000 + A2.5E6,3.E6,3.5E6,4.E6,5.E6,6.5E6,9.E6,10.E6,12.E6,15.E6/ 07276000 +C 07277000 +C 07278000 + COMMON /INDX1/INDX1(40,200) 07279000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200), 07280000 + 1 JNT(200),N1X,N2X,NS,LX,LY,LB 07281000 +C 07282000 + COMMON MAXA,AD(10000) 07283000 +C 07284000 + COMMON/FILES/NT(4,99) 07285000 + EQUIVALENCE(NP,NT(1,11)),(NO,NT(1,6)) 07286000 + COMMON/OPZIO/ OPZ(4,8,10) 07287000 +C 07288000 + COMMON /DIMC/MMA,MIND1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 07289000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 07290000 +C 07291000 + DIMENSION AINDX(MINDX1),A(MA),MIX(M1,M2) 07292000 + COMMON /DIM/M(3),IND2 07293000 +C 07294000 + WRITE(NP,9000) AINDX(35),AINDX(36) 07295000 + 9000 FORMAT(1X,2A4,' NU CALCULATED') 07296000 +C 07297000 +C PER I 4 COEFF CHE DESCRIVONO NI 07298000 + DO 10 I=1,4 07299000 + 10 A(I)=0. 07300000 + IF(AINDX(10).EQ.2) GO TO 100 07301000 + IF(AINDX(10).NE.1) CALL ERR(8H NI ,0 ) 07302000 +C NON IN UN LIST COME ESPRESSIONE POLINIMIALE, MA 4 COEFF MAX(COME 07303000 +C F5 ) NELL INDICE 07304000 +C SCRITTURA (SOLO DELL INDICE) PER 4 COEFF 07305000 + IF(AINDX(11).LE.0) CALL ERR(8H NI ,1) 07306000 + NC=AINDX(11) 07307000 + DO 20 I=1,NC 07308000 + 20 A(I)=AINDX(11+I) 07309000 + ANTO=0. 07310000 + ANTOUT=0. 07311000 + AREC1=0. 07312000 + ARECN=0. 07313000 + ANWDS=0. 07314000 + NUME=0. 07315000 + AKT=0. 07316000 +C VA A SCRIVERE NELL INDICE 07317000 + GO TO 200 07318000 + 100 CONTINUE 07319000 +C TABULATO IN UN TAB1 07320000 + NTIN=AINDX(23) 07321000 + NTI=NT(1,NTIN) 07322000 +C HEAD RECORD IS NOT READ. NPOST INCREASED BY 1 07323000 + NPOST=AINDX(25) +1 07324000 + CALL POST(NTIN,NPOST) 07325000 + T=AINDX(7) 07326000 +C LETTURA RECORDS IN RECS 07327000 +C LETTURA HEAD NON EFFETTUATA ANCHE SE SI PUNTA LI' 07328000 +C CALL RREC(1,NTI,3,T) 07329000 +C LETTURA TAB1 07330000 + CALL RREC(3,NTI,3,T) 07331000 + NT(4,NTIN)=NT(4,NTIN)+1+N2/3+NREST(N2,3)+N1/3+NREST(N1,3) 07332000 +C 07333000 +C SET ENERGY POINTS 07334000 + DO 30 I=1,N2 07335000 + 30 A(4+I)=AD(LX+I-1) 07336000 + DO 40 I=1,19 07337000 + 40 A(N2+4+I)=EADD(I) 07338000 + NUME=N2+19 07339000 + LLA=4+NUME+1 07340000 +C A(1) : A(4) = NU COEFFICIENTS 07341000 +C A(5) : A(5+N2+19) = TAB1 ENERGIES + ADDED ENERGY 07342000 +C ( N2+19 =NUME) POINTS 07343000 +C A(LLA):A(LLA+NUME)= Y(X) OBTAINED BY INTERPOLATION 07344000 +C A(LLKT):A(LLKT+NUME)= INTERPOLATION CODES 07345000 +C 07346000 + LLKT=LLA+NUME+1 07347000 + CALL TERP1T(N1,N2,NBT,JNT,A(LLKT)) 07348000 + IF(LLKT+NUME.GT.MA) CALL ERR(8H NII ,40) 07349000 + CALL ORD(NUME,A(5)) 07350000 + DO 50 I=1,NUME 07351000 + CALL TERPET(AD(LX),AD(LY),A(LLKT),N2,A(4+I),A(LLA+I-1), 07352000 + 1 LFLAG,LFLAG1) 07353000 + 50 CONTINUE 07354000 + CALL GNUFT(A(5),A(LLA),NUME,A) 07355000 +C 07356000 +C SCRIVE SU FILE NTO LA TABULAZIONE DEL NU DELLA PARTE 2 DI MCC2F707357000 + CALL POSL(NTOUT) 07358000 + ANTO=NTO 07359000 + ANTOUT=NTOUT 07360000 + AREC1=NT(3,NTOUT) 07361000 + ARECN=1. 07362000 + NUME=N2 07363000 + ANWDS=NUME*2 07364000 + AKT=3. 07365000 + IF(N1.GT.1) GO TO 110 07366000 + KT=JNT(1) 07367000 +C MUTA LA TABULAZ DI ENDFB IN QUELLA DI MC2-2 07368000 + IF(KT.EQ.1) AKT=0. 07369000 + IF(KT.EQ.2) AKT=3. 07370000 + IF(KT.EQ.3) AKT=2. 07371000 + IF(KT.EQ.4) AKT=4. 07372000 + IF(KT.EQ.5) AKT=1. 07373000 + GO TO 120 07374000 + 110 CALL ERR(8HNII ,110) 07375000 +C LINEAR INTERPOLATION IS ASSUMED 07376000 + 120 CONTINUE 07377000 + WRITE(NTO) (AD(NUME-J+LX),J=1,NUME),(AD(NUME-J+LY),J=1,NUME) 07378000 + NT(4,NTOUT)=NT(4,NTOUT)+1 07379000 + NT(3,NTOUT)=NT(4,NTOUT) 07380000 +C 07381000 + 200 CONTINUE 07382000 +C ARRIVA QUI SENZA IDENTIFICATORI IL NUCLIDE E QUI NON METTO IDENTIF07383000 + IF(NMT.GT.M2) GO TO 600 07384000 + NOM=MIX(3,NMT) 07385000 + NOM1=MIX(4,NMT) 07386000 + NOM2=MIX(1,NMT) 07387000 + NOM3=MIX(2,NMT) 07388000 + GO TO 610 07389000 +C ANDREBBE MESSO ENDFB ID COME CARATTERE MA NON HO FATTO LA SUBROUT07390000 + 600 NOM=NAREAL(AINDX(35)) 07391000 + NOM1=NAREAL(AINDX(36)) 07392000 + NOM2=NAREAL(AINDX(35)) 07393000 + NOM3=NAREAL(AINDX(36)) 07394000 + 610 CONTINUE 07395000 +C METTE SOLO IN INDICE NON IN FILE SECONDA SERIE 07396000 + IND2=IND2+1 07397000 + IF(IND2.GT.MIND12) CALL ERR(8H NII ,610) 07398000 + CALL EMPIN (MIND11,INDX1(1,IND2), 07399000 + 1AINDX(1),AINDX(2),AINDX(3),AINDX(4),AINDX(5), 07400000 + 2NOM,NOM1,NOM2,NOM3,0.,5.,2.,11.,ANTO,ANTOUT,AREC1,ARECN,ANWDS, 07401000 + 3 FLOAT(NUME),FLOAT(NG),EUP,DELU,0.,0.,5.,0., 07402000 + 4AINDX(10),AINDX(11),AKT, 07403000 + 50.,0.,0.,0.,A(1),A(2),A(3),A(4), 07404000 + 60.,0.,0.) 07405000 + RETURN 07406000 + END 07407000 + SUBROUTINE TERPET(X,Y,IT,NX,Z,A,M,L) 07408000 +C ************************************************************ 07409000 +C THIS ROUTINE HAS BEEN TAKEN FROM ETOE CODE 07410000 +C ******************************************************** 07411000 +C 07412000 +C SUBROUTINE TERP INTERPOLATES BETWEEN VALUES OF Y. 07413000 +C MODIFIED BY D.M. GREEN 10/3/66 TO EXTRAPOLATE 07414000 +C 07415000 +C X,Y COORDINATE PAIRS SUPPLIED TO SUBROUTINE TERP. 07416000 +C IT INTERPOLATION SCHEME. GIVEN FOR EACH X,Y PAIR. 07417000 +C NX NUMBER OF X,Y PAIRS GIVEN. 07418000 +C Z GIVEN VALUE OF X. 07419000 +C A INTERPOLATED VALUE OF Y(Z). 07420000 +C M VALUE OF Z LIES BETWEEN X(M) AND X(M+1) OR =X(M)07421000 +C L =0 NORMAL RETURN. 07422000 +C =1 Z LESS THAN X(1). 07423000 +C =2 Z GREATER THAN X(NX). 07424000 +C 07425000 +C SUBROUTINES CALLED BY SUBROUTINE TERP. 07426000 +C 07427000 +C DLOG FORTRAN NATURAL LOGRITHM (DOUBLE PRECISION). 07428000 +C DEXP FORTRAN EXPONENTIAL FUNCTION (DOUBLE PRECISION).07429000 +C ERROR PRINTS AND CONTROLS ERROR MESSAGES 07430000 +C 07431000 +C 07432000 +C DECLARE LITERIAL CONSTANTS AS DOUBLE PRECISION 07433000 +C 07434000 + DOUBLE PRECISION SUBNAM 07435000 + DIMENSION X(1),Y(1),IT(1) 07436000 + DATA SUBNAM/6HTERPET/ 07437000 +C 07438000 +C***********************************************************************07439000 +C 07440000 +C CHANGE DOUBLE PRECISION SYSTEM FUNCTION TO SINGLE PRECISION. 07441000 +C 07442000 +C DLOG(X)=ALOG(X) 07443000 +C DEXP(X)=EXP(X) 07444000 +C 07445000 +C***********************************************************************07446000 +C 07447000 + L=0 07448000 + IF(Z-X(1))20,30,30 07449000 + 20 CONTINUE 07450000 + L=1 07451000 + M=1 07452000 + GO TO 60 07453000 + 30 CONTINUE 07454000 + IF(NX.LE.0) GO TO 41 07455000 + DO 40 N=1,NX 07456000 + M=N-1 07457000 + IF(X(N)-Z) 40,50,60 07458000 + 40 CONTINUE 07459000 + 41 CONTINUE 07460000 + L=2 07461000 + M=NX-1 07462000 + GO TO 60 07463000 + 50 CONTINUE 07464000 + M=N 07465000 + A=Y(N) 07466000 + GO TO 160 07467000 + 60 CONTINUE 07468000 + INT=IT(M+1) 07469000 + IF(INT) 70,70,80 07470000 + 70 CONTINUE 07471000 +C 07472000 +C ******************************************************************07473000 +C 07474000 +C ERROR=10000 07475000 +C INTERPOLATION CODE FOR M+1 POINT IS NOT A POSITIVE NUMBER. 07476000 +C SET EQUAL TO 2. 07477000 +C 07478000 +C ******************************************************************07479000 +C 07480000 + NERR=10000 07481000 + CALL ERRORE(SUBNAM,NERR) 07482000 + INT=2 07483000 + GO TO 100 07484000 + 80 CONTINUE 07485000 + IF(INT-5) 100,100,90 07486000 + 90 CONTINUE 07487000 +C 07488000 +C ******************************************************************07489000 +C 07490000 +C ERROR=20000 07491000 +C INTERPOLATION CODE IS GREATER THAN 5. SET EQUAL TO 2. 07492000 +C 07493000 +C ******************************************************************07494000 +C 07495000 + NERR=20000 07496000 + CALL ERRORE(SUBNAM,NERR) 07497000 + INT=2 07498000 + 100 CONTINUE 07499000 + X1=X(M) 07500000 + X2=X(M+1) 07501000 + Y1=Y(M) 07502000 + Y2=Y(M+1) 07503000 + GO TO (110,120,130,140,150),INT 07504000 + 110 CONTINUE 07505000 + A=Y1 07506000 + GO TO 160 07507000 + 120 CONTINUE 07508000 + IF(X2.EQ.X1) GO TO 110 07509000 + A=Y1+(Z-X1)*(Y2-Y1)/(X2-X1) 07510000 + GO TO 160 07511000 + 130 CONTINUE 07512000 + T1=Z/X1 07513000 + T2=X2/X1 07514000 + IF(T1.LE.0.) GO TO 120 07515000 + IF(T2.LE.0.) GO TO 120 07516000 + IF(T2.EQ.1.) GO TO 110 07517000 + A=Y1+ALOG(T1)*(Y2-Y1)/ALOG(T2) 07518000 + GO TO 160 07519000 + 140 CONTINUE 07520000 + T3=Y2/Y1 07521000 + IF(T3.LE.0.) GO TO 120 07522000 + A=Y1*T3**((Z-X1)/(X2-X1)) 07523000 + GO TO 160 07524000 + 150 CONTINUE 07525000 + T1=Z/X1 07526000 + T2=X2/X1 07527000 + T3=Y2/Y1 07528000 + IF(T1.LE.0.) GO TO 140 07529000 + IF(T2.LE.0.) GO TO 140 07530000 + IF(T2.EQ.1.) GO TO 110 07531000 + IF(T3.LE.0.) GO TO 130 07532000 + A=Y1*T3**(ALOG(T1)/ALOG(T2)) 07533000 + 160 RETURN 07534000 + END 07535000 + SUBROUTINE TERP1T(NR,NP,NBT,INT,IT) 07536000 +C *************************************************** 07537000 +C THIS ROUTINE HAS BEEN TAKEN FROM ETOE PROGRAM 07538000 +C *************************************************** 07539000 +C 07540000 +C SUBROUTINE TERP1 SETS UP THE IT ARRAY NEEDED FOR SUBROUTINE 07541000 +C TERP. 07542000 +C 07543000 +C NR NUMBER OF INTERPOLATION REGIONS PROVIDED BY 07544000 +C ENDF/B. 07545000 +C NP NUMBER OF X,Y PAIRS GIVEN. 07546000 +C NBT NBT(M) IS THE VALUE OF THE TABULATED PAIRS 07547000 +C SEPARATING THE M AND M+1 INTERPOLATION REGIONS. 07548000 +C SUPPLIED BY DAMMET. 07549000 +C INT INT(M) IS THE INTERPOLATION SCHEME 07550000 +C IDENTIFICATION NUMBER USED IN THE M TH REGION. 07551000 +C SUPPLIED BY DAMMET. 07552000 +C IT INTERPOLATION SCHEME. GIVEN FOR EACH X,Y PAIR. 07553000 +C 07554000 + DIMENSION NBT(NR),INT(NR),IT(NP) 07555000 + IF(NR.LE.0) RETURN 07556000 + N2=0 07557000 + DO 10 IR=1,NR 07558000 + N1=N2+1 07559000 + N2=NBT(IR) 07560000 + IF(N2.LT.N1)GO TO 10 07561000 + DO 9 I=N1,N2 07562000 + IT(I)=INT(IR) 07563000 + 9 CONTINUE 07564000 + 10 CONTINUE 07565000 + 11 RETURN 07566000 + END 07567000 + SUBROUTINE GNUFT(X,Y,N,AA) 07568000 +C ***************************************************** 07569000 +C 07570000 +C ROUTINE TAKEN FROM ETOE CODE 07571000 +C QUESTA SUBROUTINE E' STATA PRESA DA ETOE-II. MEDIANTE IL 07572000 +C METODO DEI MINIMI QUADRATI RESTITUISCE I COEFFICIENTI DEL 07573000 +C POLINOMIO DEL TERZO ORDINE CHE FITTA IL NU 07574000 +C 07575000 +C X,Y COORDINATE PUNTI DA FITTARE 07576000 +C N NUMERO DI COPPIE 07577000 +C K ORDINE DEL POLINOMIO (PER NOI SOLO K=3) 07578000 +C AA COEFFICIENTI DEL POLINOMIO 07579000 +C 07580000 +C SUBROUTINES CHIAMATE 07581000 +C SMEQ CALCOLA I COEFFICIENTI DEL SISTEMA DEI MINIMI 07582000 +C 07583000 +C 07584000 + DIMENSION X(N),Y(N),A(4,5),AA(4) 07585000 + M2=2 07586000 + M4=4 07587000 + M5=5 07588000 +C SBIANCA ARRAY A(I,J) 07589000 + DO 10 J=1,5 07590000 + DO 10 I=1,4 07591000 + A(I,J)=0. 07592000 + 10 CONTINUE 07593000 +C 07594000 +C FORMA MATRICE A(I,J)-VEDI TEORIA MINIMI QUADRATI 07595000 +C HILDEBRAND-"INTRODUCTION TO NUMERICAL ANALYSIS" 07596000 +C 07597000 + IF (N.LE.0) GOTO25 07598000 + DO 20 I=1,N 07599000 + X2=X(I)**2 07600000 + X4=X2**2 07601000 + A(1,2)=A(1,2)+X(I) 07602000 + A(1,3)=A(1,3)+X2 07603000 + A(1,4)=A(1,4)+X2*X(I) 07604000 + A(2,4)=A(2,4)+X4 07605000 + A(3,4)=A(3,4)+X4*X(I) 07606000 + A(4,4)=A(4,4)+X4*X2 07607000 + A(1,5)=A(1,5)+Y(I) 07608000 + A(2,5)=A(2,5)+Y(I)*X(I) 07609000 + A(3,5)=A(3,5)+Y(I)*X2 07610000 + A(4,5)=A(4,5)+Y(I)*X2*X(I) 07611000 + 20 CONTINUE 07612000 + 25 CONTINUE 07613000 + A(1,1)=N 07614000 + A(2,1)=A(1,2) 07615000 + A(2,2)=A(1,3) 07616000 + A(2,3)=A(1,4) 07617000 + A(3,1)=A(1,3) 07618000 + A(3,2)=A(2,3) 07619000 + A(3,3)=A(2,4) 07620000 + A(4,1)=A(1,4) 07621000 + A(4,2)=A(2,4) 07622000 + A(4,3)=A(3,4) 07623000 + CALL SMEQ(M4,M4,M5,A) 07624000 +C CALCOLO E STAMPA ERRORE 07625000 +C WRITE (85,1600) 07626000 +C DO 29 I=1,N 07627000 +C X2=((A(4,5)*X(I)+A(3,5))*X(I)+A(2,5))*X(I)+A(1,5) 07628000 +C X4=0. 07629000 +C IF(Y(I).NE.0.) X4=100.*(X2-Y(I))/Y(I) 07630000 +C WRITE (85,1601) X(I),Y(I),X2,X4 07631000 +C 29 CONTINUE 07632000 +C 07633000 +C CARICAMENTO COEFFICIENTI IN AA (SI TROVANO NEL TERMINE NOTO) 07634000 +C 07635000 + DO 30 I=1,4 07636000 + AA(I)=A(I,5) 07637000 + 30 CONTINUE 07638000 +C1600 FORMAT(45H0 ENERGY GNU IN GNU FIT ERROR ) 07639000 +C1601 FORMAT(1X,1P4E11.3) 07640000 + RETURN 07641000 + END 07642000 + SUBROUTINE SMEQ(N,NX1,NX2,A) 07643000 +C ******************************************** 07644000 +C 07645000 +C SUBROUTINE PRESA INTEGRALMENTE DA ETOE-II 07646000 +C EFFETTUA IL CALCOLO PER OTTENERE I COEFFICIENTI DI UN 07647000 +C SISTEMA DI N EQUAZIONI. 07648000 +C 07649000 +C N NUMERO DELLE EQUAZIONI 07650000 +C NX1,NX2 DIMENSIONI DI A 07651000 +C A MATRICE DATA 07652000 +C 07653000 +C 07654000 + DIMENSION A(NX1,NX2) 07655000 + N1=N-1 07656000 + IF(N1.LE.0)GOTO 11 07657000 + DO 10 I=1,N1 07658000 + I2=I+1 07659000 + DO 10 J=I,N 07660000 + A(I,J+1)=A(I,J+1)/A(I,I) 07661000 + DO 10 I1=I2,N 07662000 + A(I1,J+1)=A(I1,J+1)-A(I1,I)*A(I,J+1) 07663000 + 10 CONTINUE 07664000 + 11 CONTINUE 07665000 + A(N,N+1)=A(N,N+1)/A(N,N) 07666000 + IF(N1.LE.0) GOTO 21 07667000 + DO 20 I=1,N1 07668000 + I1=N-I 07669000 + DO 20 J=1,I 07670000 + J1=N-J+1 07671000 + A(I1,N+1)=A(I1,N+1)-A(I1,J1)*A(J1,N+1) 07672000 + 20 CONTINUE 07673000 + 21 RETURN 07674000 + END 07675000 + SUBROUTINE P2MCF6(MA,A,M1,M2,MIX,KB1,INDIND,KB,INDMIX,NG,E) 07676000 +C *******************************************************8 07677000 +C 07678000 +C SECONDARY ENERGY DISTRIBUTION FOR FILE MCC2F6 07679000 +C 07680000 +C *********************************************************** 07681000 +C 07682000 +C 07683000 +C IN A SPAZIO SCRATCH , IN E LE ENERGIE DEI GRUPPI(NG+1 VALORI) 07684000 +C IN MIX LA MIXING DELL F3 07685000 +C IN INDMIX INDICE DI MIX 07686000 +C (1 ) = VALORE 07687000 +C (2 ) = INIZIO VALORE 07688000 +C (3 ) = DIMENSIONI VALORE 07689000 +C PER INDIND: 07690000 +C (1,2 = VALORE ( REAL*8) 07691000 +C (3 = INIZIO 07692000 +C (4 = DIMENSIONI 07693000 +C 07694000 +C 07695000 +C 07696000 +C ********************************************** 07697000 +C 07698000 + DIMENSION A(MA),MIX(M1,M2),E(NG) 07699000 + DIMENSION INDMIX(3,KB),INDIND(4,KB1) 07700000 + COMMON /INDX1/AINDX1(40,200) 07701000 + COMMON /INDX/AINDX(40,200) 07702000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 07703000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 07704000 + COMMON/DIM/M(5) 07705000 + EQUIVALENCE (M(2),IND) 07706000 + COMMON/OPZIO/ OPZ(4,8,10) 07707000 + COMMON/FILES/NT(4,99) 07708000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 07709000 + EQUIVALENCE (OPZ(2,6,1),STMP),(NP12,NT(1,12)) 07710000 +C NUMERO SOTTO CUI SIGMA SONO CONSIDERATE NULLE 07711000 + EQUIVALENCE(OPZ(2,6,3),EPS) 07712000 +C DEFINIZIONE STRUTTURA ENERGETICA 07713000 + EQUIVALENCE(EUP,OPZ(2,5,2)),(DELU,OPZ(2,5,3)) 07714000 +C 07715000 +C GLI IR SONO I NUMERI DEI RECORD DI INDICE CONTENENTE IL DAT07716000 + WRITE(NP12,7000)((MIX(J,JJ),J=1,M1),JJ=1,M2) 07717000 + 7000 FORMAT(' P2MCF6 ENTERED. INPUT TABLE TO BE EXECUTED:'/ 07718000 + 1 (1X,2A4,1X,2A4,8I4,3E12.5)) 07719000 +C 07720000 + IRANEL=0 07721000 + IRN2N=0 07722000 +C 07723000 +C 07724000 +C LOOP SUI MATERIALI DELL INDICE .......................... 07725000 +C L INDICE E ORDINATO PER MATERIALI, IL LOOP E SULL INDICE DI 07726000 +C IND(NOMI MATERIALI) 07727000 +C 07728000 +C 07729000 + DO 10 IS=1,KB1 07730000 +C N1,N2,N3 = LIMITI DI ENTRO CUI E' IL MATERIALE IN IND07731000 + N1S=INDIND(3,IS) 07732000 + N2S=INDIND(4,IS) 07733000 + N3S=N1S+N2S-1 07734000 +C NCERC E LA POSIZIONE DELL ISOTOPO IN MIX 07735000 + NMT=NCERC1(MINDX1,IND,AINDX,M1,M2,MIX,N1S,35,3,1) 07736000 +C 07737000 + IF(NMT.LE.0) GO TO 10 07738000 +C SE IL MATERIALE NON E' IN MIX VIENE SALTATO 07739000 +C 07740000 + WRITE(NP,9010) AINDX(35,N1S),AINDX(36,N1S) 07741000 + 9010 FORMAT(1X,2A4) 07742000 +C 07743000 +C IN A(1) 07744000 +C NG*4 VALORI 07745000 +C MATRICE DI INDICI VARI E SIGMA PER IL MATERIALE 07746000 + LMA=NG*4+1 07747000 + N4=4 07748000 +C 07749000 +C LMA= LIMITE DI RIEMPIMENTO IN A 07750000 +C 07751000 + IF(LMA.GT.MA) CALL ERR(8HP2MCF6 ,0) 07752000 + CALL RIEMP(0.0,LMA,A) 07753000 +C 07754000 +C REWINDS TAPES DI SCR( LE SUBROUTINES CHE CI SCRIVONO SCRIVONO IN 07755000 +C SEQUENZA E NON REWINDANO) 07756000 + DO 5 I=1,9 07757000 + CALL REW(89+I) 07758000 + 5 CONTINUE 07759000 +C 07760000 +C AZZERA SOGLIE N,2, ED ANELASTICHE ; NUMERO LIVELLI E NUMERO 07761000 +C SPETTRI 07762000 + NINEL=0 07763000 + N2NTH=0 07764000 + NLVN2N=0 07765000 + NLVAN=0 07766000 + NEVAN=0 07767000 + NEVN2N=0 07768000 + NLVANM=0 07769000 + NEINTN=0 07770000 + NEINTL=0 07771000 + LN=LMA 07772000 + LL=LMA 07773000 +C 07774000 +C ............. LOOP SULLE LE REGISTRAZIONI DEL MATERIALE IN INDICE 07775000 +C ORDINA L'INDICE DEL MATERIALE PER VALORI CRESCENTI DELLA 07776000 +C POSIZIONE NEL FILE DI INPUT ONDE SIA PIU PROBABILE DI TROVARLI 07777000 +C IN FILA E RIDURRE IL TEMPO DI LETTURA 07778000 + N1SN3S=N3S-N1S+1 07779000 + CALL ORDIN1(25,MINDX1,N1SN3S,AINDX(1,N1S)) 07780000 +C 07781000 + DO 20 IR=N1S,N3S 07782000 +C SCARTA DATI NON DESTINATI AD MFF2F6 07783000 +C CERCA CHE TIPO DI DATO E 07784000 +C VENGONO TRATTATI: 07785000 +C FILE ENDFB: 3 MT: 4 : ANEL SCATT TOT 07786000 +C 3 16 : N,2N 07787000 +C 3 51-90 : LIVELLI ANEL 07788000 +C 3 91 : ANEL SCATT CONTINUO 07789000 +C 3 6-9 : LIVELLI N,2N (PRIMO N) 07790000 +C 3 46-54 : LIVELLI N,2N (SECONDO N) 07791000 +C 4 51-90 : MI MEDIO LIVELLI ANEL 07792000 + IF(AINDX(30,IR).NE.6.) GO TO 200 07793000 + IF(AINDX(31,IR).NE.1.) GO TO 210 07794000 +C 07795000 +C SIGIN E SIGN2N = SEZIONI D'URTO A GRUPPO ANEL ED N,2N 07796000 +C 07797000 + CALL P2F6SG(NG,N4,A,NGLIM,EPS,IR,E) 07798000 +C NGLIM E' L'ULTIMO GRUPPO DIVERSO DA 0 07799000 + IF(AINDX(32,IR).EQ.1.) NINEL=NGLIM 07800000 + IF(AINDX(32,IR).EQ.2.) N2NTH=NGLIM 07801000 + GO TO 200 07802000 + 210 CONTINUE 07803000 + IF(AINDX(31,IR).NE.2) GO TO 220 07804000 +C 07805000 +C LIVELLI DISCRETI 07806000 +C 07807000 +C 91,IL CONTINUO NON VA MESSO COME SIGMA QUI ANCHE SE 07808000 +C EVENTUALMENTE P1 LO FA 07809000 + IF(AINDX(3,IR).EQ.91.) GO TO 200 07810000 +C 07811000 + MALMA1=MA-LMA+1 07812000 + CALL P2F6LV(NG,N4,A,NLVN2N,NLVAN,NLVANM,IR,MALMA1,A(LMA),E) 07813000 + GO TO 200 07814000 + 220 IF(AINDX(31,IR).NE.3) GO TO 230 07815000 +C 07816000 +C SPETTRO DI EVAPORAZIONE 07817000 +C 07818000 + MALMA1=MA-LMA+1 07819000 + CALL P2F6EV(NG,N4,A,NEVN2N,NEVAN,IR,MALMA1,A(LMA),E) 07820000 + GO TO 200 07821000 + 230 CONTINUE 07822000 + IF(AINDX(31,IR).NE.4) GO TO 240 07823000 +C 07824000 +C TABULATI 07825000 +C 07826000 + MALMA1=MA-LMA+1 07827000 + CALL P2F6TB(NG,N4,A,IR,MALMA1,A(LMA),NEINTN,NEINTL,LN,LL,LMA,E) 07828000 +C 07829000 + IF(AINDX(32,IR).EQ.1.) IRANEL=IR 07830000 + IF(AINDX(32,IR).EQ.2.) IRN2N=IR 07831000 + GOTO200 07832000 + 240 CONTINUE 07833000 + CALL ERR(8HP2MCF6IN ,200) 07834000 +C 07835000 +C DISTRIBUZIONE NON CONTEMPLATA 07836000 +C 07837000 + 200 CONTINUE 07838000 + 20 CONTINUE 07839000 +C FINE LOOP SULLE DIVERSE REGISTRAZIONI DELL ISOTOPO ..............07840000 +C 07841000 + NDUM=MAX0(NLVN2N,NLVAN,NEVAN,NEVN2N, 07842000 + 1 NEINTN,NEINTL) 07843000 + IF(NDUM.GT.0) GO TO 201 07844000 + WRITE(NP,9011) 07845000 + 9011 FORMAT(10X,' ANELASTIC AND N2N DATA NOT GIVEN') 07846000 +C 07847000 + RETURN 07848000 + 201 IF(NLVAN.GT.NLVANM) CALL ERR(8HP2MCF6 ,20) 07849000 +C CONTROLLA CHE PER OGNI LIV ANEL CI SIA UN MI 07850000 +C PUO ESSERCI UN NUMERO MAGGIORE DI MI PERCHE CERTI LIVELLI 07851000 +C POSSONO ESSERE SALTATI SE SONO SOPRA ETOP 07852000 +C ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 07853000 +C USA IL PIU GRANDE DEI DUE PER FISSARE GLI SPAZI 07854000 + NLVAN1=MAX0(NLVAN,NLVANM) 07855000 + NLVAN=MIN0(NLVAN,NLVANM) 07856000 +C ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,07857000 +C 07858000 +C 07859000 +C RILETTURA DEI SCR E SCRITTURA DELL ISOTOPO ( ORDINATO PER GRUPPO 07860000 +C 07861000 +C A QUESTO PUNTO SONO PRESENTI : 07862000 +C SCR: NT(1,90) = PER OGNI LIVELLO ANEL (NLVAN)MTT,IR,NSG,AVGMU(NG07863000 +C NT(1,91) = MTT,IR,NSG,SIGLEV(NG) 07864000 +C NT(1,92) = N2N (NLVN2N) IR,NSG,SIGN(NG) 07865000 +C NT(1,93) = PER OGNI SPETTRO EV (NEVAN) IR,NSG,P(NG) 07866000 +C NT(1,94) = IR,TETA(NG) 07867000 +C NT(1,95) = PER OGNI SPETTRO N2N (NEVN2N) IR,NSG,P(NG) 07868000 +C NT(1,96) = IR,TETA(NG) 07869000 +C NT(1,97) = PER OGNI GRUPPO NG TABULAZ. EL(NEINTL) 07870000 +C NT(1,98) = N2N(NEINTN) 07871000 +C 07872000 +C IN A( NG,5) : 07873000 +C A(. ,1)=SIGIN(NG) SCRITTO DA P2F6SG 07874000 +C 2 =SIGN2N(NG) 07875000 +C 3 = KT ANELASTICA SCRITTO DA P2F6TB 07876000 +C 4 = KT N,2N 07877000 +C IN A(NG*4+LL) = EINT(NEINTL) ENERGIE DI ARRIVO TABULAZIONE ANE07878000 +C +LN = EINTN(NEINTN) ENERGIE DI ARRIVA TABULAZ. N,2N 07879000 +C 07880000 +C LMA= LIMITE RIEMPIMENTO IN A:E' FISSATO FUORI LOOP 20, 07881000 +C INCREMENTATO DA P2F6TB CHE AGGIUNGE E DI ARRIVO DEI DATI TABULATI07882000 +C 07883000 +C CALCOLO NGPASS: NUMERO GRUPPI CHE SI POSSONO TRATTARE IN UNA VOLTA07884000 +C CON LO SPAZIO A DISPOSIZIONE IN A 07885000 +C 07886000 +C CALCOLO SPAZIO DISPONIBILE( LA PARTTE FRA () SERVE ALLA P2F6RB 07887000 +C PER METTERCI COMPATTATA LA ROBA DA SCRIVERE SU REC 3-4 DI MCF6 07888000 + NSPAZ=MA-LMA-NEVAN-NLVN2N-NLVAN1-2*(NLVAN1+NLVN2N+NEVAN+NEVN2N)- 07889000 + 1 MAX0(2*NLVAN1+NLVN2N+2*NEVAN+2*NEVN2N, 07890000 + 2 NEINTL+NEINTN,NEINTL+NEINTN+NLVAN1+NEVAN+NLVN2N) 07891000 +C SPAZIO PER UN GRUPPO: 07892000 + NSPZGR=NEINTL+NEINTN+2*NEVAN+2*NEVN2N+NLVN2N+NLVAN1*2 07893000 +C NUMERO GRUPPI DI UN PASSO 07894000 + NGPASS=NSPAZ/NSPZGR 07895000 + IF(NGPASS.GT.NG) NGPASS=NG 07896000 + IF(NGPASS.LT.1) CALL ERR(8HP2MCF6 ,30) 07897000 +C 07898000 +C CREAZIONE PUNTATORI 07899000 +C .....................ROBA IN MEMORIA FINO AD ORA 07900000 + L1=LMA 07901000 +C ..................... SPAZIO PPER EGAM 07902000 + L2=L1+NLVAN1 07903000 +C ................................GAMN2N 07904000 + L3=L2+NLVN2N 07905000 +C ................................. U 07906000 + L4=L3+NEVAN 07907000 +C ................................. SIGLEV 07908000 + L5=L4+NLVAN1*NGPASS 07909000 +C ................................. AVGMU 07910000 + L6=L5+NLVAN1*NGPASS 07911000 +C ................................. SIGN 07912000 + L7=L6+NLVN2N*NGPASS 07913000 +C ................................. TSTAT 07914000 + L8=L7+NEVAN*NGPASS 07915000 +C ................................. PIN 07916000 + L9=L8+NEVAN*NGPASS 07917000 +C ................................. TN2N 07918000 + L10=L9+NEVN2N*NGPASS 07919000 +C ................................. PN2N 07920000 + L11=L10+NEVN2N*NGPASS 07921000 +C ................................. PINTAB 07922000 + L12=L11+NEINTL 07923000 +C ................................. PNNTAB 07924000 + L13=L12+NEINTN 07925000 +C ................................. IR(LIV ANEL)IRLVA 07926000 + L14=L13+NLVAN1 07927000 +C ................................. IR(LIV N2N) IRLVN 07928000 + L15=L14+NLVN2N 07929000 +C ................................. IR(EVAP ANEL)IREVA 07930000 + L16=L15+NEVAN 07931000 +C ................................. IR(EVAP N,2N)IREVN 07932000 + L17=L16+NEVN2N 07933000 +C ................................. NSG( LIV ANEL)NSGLVA 07934000 + L18=L17+NLVAN1 07935000 +C ................................. NSG (LIV N,2N)NSGLVN 07936000 + L19=L18+NLVN2N 07937000 +C ................................. NSG (EVAP ANEL)NSGEVA 07938000 + L20=L19+NEVAN 07939000 +C ................................. NSG (EVAP N,2N)NSGEVN 07940000 + L21=L20+NEVN2N 07941000 +C ................................. NORDLA (ORDINE LIV ANEL) 07942000 + L22=L21+NLVAN1 07943000 +C ................................. NORDLN (ORDINE LIV N,2N) 07944000 + L23=L22+NLVN2N 07945000 +C ................................. NORDSA (ORDINE SPET ANEL) 07946000 + L24=L23+NEVAN 07947000 +C ................................. NORDSN (ORDINE SPET N,2N) 07948000 + L25=L24+NEVN2N 07949000 +C 07950000 +C 07951000 + LIMIT=L25 07952000 + IF(LIMIT.GT.MA) CALL ERR(8HP2MCF6 ,31) 07953000 + IF(LIMIT.GT.MA) WRITE(NP,9998) MA,LMA,LL,LN,NLVAN1,NLVN2N, 07954000 + 1 NEVAN,NEVN2N,NGPASS,NSPAZ,NSPZGR,NEINTL,NEINTN 07955000 + 9998 FORMAT(' MA,LMA,LL,LN,NLVAN,NLVN2N,NEVAN,NEVN2N,NGPASS,NSPAZ,',07956000 + 1 'NSPZGR,NEINTL,NEINTN:'/(1X,13I5)) 07957000 +C 07958000 + NLCAN=LIMIT-L1 07959000 + CALL RIEMP(0.0,NLCAN,A(LMA)) 07960000 +C 07961000 +C =====FOR FORTRAN VS COMPILERS (DUMMY DIMENSIONS CANNOT BE .LE.0)07962000 + MDIMLA=NLVAN 07963000 + MDIMLN=NLVN2N 07964000 + MDIMEA=NEVAN 07965000 + MDIMEN=NEVN2N 07966000 + MDIMTA=NEINTL 07967000 + MDIMTN=NEINTN 07968000 + MDIMLM=NLVANM 07969000 + IF(MDIMLA.LE.0) MDIMLA=1 07970000 + IF(MDIMLN.LE.0) MDIMLN=1 07971000 + IF(MDIMEA.LE.0) MDIMEA=1 07972000 + IF(MDIMEN.LE.0) MDIMEN=1 07973000 + IF(MDIMTA.LE.0) MDIMTA=1 07974000 + IF(MDIMTN.LE.0) MDIMTN=1 07975000 + IF(MDIMLM.LE.0) MDIMLM=1 07976000 +C 07977000 + CALL P2F6RB(IRANEL,IRN2N,NMT,NG,A(1),A(NG+1),A(2*NG+1),A(3*NG+1), 07978000 + 1 NEINTL,A(LL),NEINTN,A(LN), NLVAN,NLVANM, 07979000 + 2 A(L1),NLVN2N,A(L2),NEVAN,A(L3),NEVN2N,MA-LIMIT,A(LIMIT+1), 07980000 + 3 NGPASS, 07981000 + 4 A(L4),A(L5),A(L6),A(L7),A(L8),A(L9),A(L10),A(L11),A(L12), 07982000 + 5 A(L13),A(L14),A(L15),A(L16),A(L17),A(L18),A(L19),A(L20), 07983000 + 6 A(L21),A(L22),A(L23),A(L24), 07984000 + 7 M1,M2,MIX, 07985000 + 8 MDIMLA,MDIMLN,MDIMEA,MDIMEN,MDIMTA,MDIMTN,MDIMLM) 07986000 +C 07987000 +C 07988000 + 10 CONTINUE 07989000 +C CLOSE FILES 07990000 + DO 55 I=1,9 07991000 + CALL REW(89+I) 07992000 + 55 CONTINUE 07993000 + RETURN 07994000 + END 07995000 + SUBROUTINE P2F6RB(IRANEL,IRN2N,NMT,NG,SIGIN,SIGN2N,KTL,KTN, 07996000 + 1 NEINTL,EINTL,NEINTN,EINTN, 07997000 + 2 NLVAN,NLVANM,EGAM,NLVN2N,GAMN2N,NEVAN,U,NEVN2N, 07998000 + 3 MA,A,NGPAS1, 07999000 + 4 SIGLEV,AVGMU,SIGN,TSTAT,PIN,TN2N,PN2N,PINTAB,PNNTAB, 08000000 + 5 IRLVA,IRLVN,IREVA,IREVN,NSGLVA,NSGLVN,NSGEVA,NSGEVN, 08001000 + 6 NORDLA,NORDLN,NORDSA,NORDSN, 08002000 + 7 M1,M2,MIX, 08003000 + 8 MDIMLA,MDIMLN,MDIMEA,MDIMEN,MDIMTA,MDIMTN,MDIMLM) 08004000 +C *************************************************************** 08005000 +C 08006000 +C REORDERS ANELASTIN AND N,2N SECONDARY ENERGY DISTRIBUTION DATA 08007000 +C LEGGE FILES DI SCRATCH E SCRIVE IL NUCLIDE NEI FILES DELLA 08008000 +C SECONDA SERIE 08009000 +C 08010000 +C SIGIN(NG) = SIGMA A GRUPPI DA P2F6SG PER REC 2 DI MCF6 (ANELASTIC08011000 +C SIGN2N(NG)= (N,2N )08012000 +C KTL (NG) =LEGGE INTERP E' P2F6TB REC 2 (ANEL) 08013000 +C KTN (NG) = (N,2N) 08014000 +C EINTL(NEINTL)=E' ARRIVO TAB 1 (ANEL) 08015000 +C EINTN(NEINTN)= (N,2N) 08016000 +C 08017000 +C IR SONO I NUMERI DEI RECORD DELL'INDICE CORRISPONDENTI AI DATI 08018000 +C UN IR PER OGNI LIVELLO ED SPETTRO EV 08019000 +C 08020000 +C NSG SONO I GRUPPI DI SOGLIA SOTTO CUI NON C'E' NULLA PER 08021000 +C OGNI LIVELLO E SPETTRO EV 08022000 +C 08023000 +C IR ED NSG SONO LETTI DAI FILES SCRATCH OVE SONO STATI MESSI 08024000 +C *************************************************************** 08025000 +C 08026000 + LOGICAL TNINEL,TN2NTH,TNLEVL,TN2NLV,TMAX1,TMAX2,TMAX3,TMAX4 08027000 +C 08028000 + COMMON /OPZIO/OPZ(4,8,10) 08029000 + EQUIVALENCE (OPZ(2,6,3),EPS),(OPZ(2,6,1),STMP) 08030000 + EQUIVALENCE(OPZ(2,5,2),EUP),(OPZ(2,5,3),DELTAU) 08031000 + DIMENSION MIX(M1,M2) 08032000 + COMMON/INDX/AINDX(40,200) 08033000 + COMMON/INDX1/AINDX1(40,200) 08034000 + COMMON /DIM/NMX,MIND,NMX2,IND2 08035000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 08036000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 08037000 + COMMON /FILES/NT(4,99) 08038000 + EQUIVALENCE (NO,NT(1,6)),(NP,NT(1,11)) 08039000 + EQUIVALENCE (NT1,NT(1,91)),(NT2,NT(1,92)),(NT3,NT(1,93)) 08040000 + EQUIVALENCE (NT4,NT(1,94)),(NT5,NT(1,95)),(NT6,NT(1,96)) 08041000 + EQUIVALENCE (NT7,NT(1,97)),(NT8,NT(1,98)),(NT0,NT(1,90)) 08042000 +C 08043000 +C DIMENSION SIGIN(NG),SIGN2N(NG),KTL(NG),KTN(NG), 08044000 +C 1 EINTL(NEINTL),EINTN(NEINTN),A(MA),EGAM(NLVAN),GAMN2N(NLVN2N) 08045000 +C DIMENSION U(NEVAN) 08046000 +C DIMENSION SIGLEV(NLVAN,NGPAS1),SIGN(NLVN2N,NGPAS1), 08047000 +C 1 AVGMU(NLVANM,NGPAS1),TSTAT(NEVAN,NGPAS1),PIN(NEVAN,NGPAS1), 08048000 +C 2 PN2N(NEVN2N,NGPAS1),PINTAB(NEINTL),PNNTAB(NEINTN) 08049000 +C 3 ,TN2N(NEVN2N,NGPAS1) 08050000 +C DIMENSION IRLVA(NLVAN),IRLVN(NLVN2N),IREVA(NEVAN),IREVN(NEVN2N), 08051000 +C 1 NSGLVA(NLVAN),NSGLVN(NLVN2N),NSGEVA(NEVAN),NSGEVN(NEVN2N), 08052000 +C 2 NORDLA(NLVAN),NORDLN(NLVN2N),NORDSA(NEVAN),NORDSN(NEVN2N) 08053000 +C 08054000 +C 08055000 + DIMENSION SIGIN(NG),SIGN2N(NG),KTL(NG),KTN(NG), 08056000 + 1 EINTL(MDIMTA),EINTN(MDIMTN),A(MA),EGAM(MDIMLA),GAMN2N(MDIMLN) 08057000 + DIMENSION U(MDIMEA) 08058000 + DIMENSION SIGLEV(MDIMLA,NGPAS1),SIGN(MDIMLN,NGPAS1), 08059000 + 1 AVGMU(MDIMLM,NGPAS1),TSTAT(MDIMEA,NGPAS1),PIN(MDIMEA,NGPAS1), 08060000 + 2 PN2N(MDIMEN,NGPAS1),PINTAB(MDIMTA),PNNTAB(MDIMTN) 08061000 + 3 ,TN2N(MDIMEN,NGPAS1) 08062000 + DIMENSION IRLVA(MDIMLA),IRLVN(MDIMLN), 08063000 + 1 IREVA(MDIMEA),IREVN(MDIMEN), 08064000 + 1 NSGLVA(MDIMLA),NSGLVN(MDIMLN),NSGEVA(MDIMEA),NSGEVN(MDIMEN), 08065000 + 2 NORDLA(MDIMLA),NORDLN(MDIMLN),NORDSA(MDIMEA),NORDSN(MDIMEN) 08066000 +C 08067000 +C 08068000 +C DETERMINA SOGLIE DI REAZIONI TABULATE ( SE ESISTONO O NO ) 08069000 +C PER RECORD 5 DI F1 08070000 +C 08071000 + WRITE(NP,9000) 08072000 + 9000 FORMAT(' P2F6RB : REORDERS DATA') 08073000 +C 08074000 +C FLAG DI ESISTENZA PER TABULAZIONI (REC 5 DI F1) 08075000 + CALL SOGL(0,NSGKL,NG,KTL) 08076000 + MAX2=0 08077000 + IF(NSGKL.GT.0) MAX2=1 08078000 + TMAX2=.TRUE. 08079000 + IF(MAX2.GT.0) TMAX2=.FALSE. 08080000 + CALL SOGL(0,NSGKN,NG,KTN) 08081000 + MAX4=0 08082000 + IF(NSGKN.GT.0) MAX4=1 08083000 + TMAX4=.TRUE. 08084000 + IF(MAX4.GT.0) TMAX4=.FALSE. 08085000 +C SOGLIE PER SIGIN E SIGN2N (RECORD 5 DI F1) 08086000 + CALL SOGL(EPS,NINEL,NG,SIGIN) 08087000 + CALL SOGL(EPS,N2NTH,NG,SIGN2N) 08088000 +C ALTRI PARAMETRI PER RECORD 5 DI F1 08089000 +C ( ESISTENZA E NUMERO LIVELLI E SPETTRI ) 08090000 + NLEVLS=NLVAN 08091000 + TNLEVL=.TRUE. 08092000 + IF(NLEVLS.GT.0) TNLEVL=.FALSE. 08093000 + N2NLVS=NLVN2N 08094000 + TN2NLV=.TRUE. 08095000 + IF(N2NLVS.GT.0) TN2NLV=.FALSE. 08096000 + MAX1=NEVAN 08097000 + TMAX1=.TRUE. 08098000 + IF(MAX1.GT.0) TMAX1=.FALSE. 08099000 + MAX3=NEVN2N 08100000 + TMAX3=.TRUE. 08101000 + IF(MAX3.GT.0) TMAX3=.FALSE. 08102000 + NSINK1=NEINTL 08103000 + NSINK2=NEINTN 08104000 + NUMREC=1 08105000 + IF(MAX1.GT.0.OR.MAX3.GT.0) NUMREC=NUMREC+1 08106000 + IF(MAX2.GT.0.OR.MAX4.GT.0) NUMREC=NUMREC+1 08107000 +C NOME MATERIALE (NOME OUT DELLA MIXING) 08108000 + NOME1=MIX(1,NMT) 08109000 + NOME2=MIX(2,NMT) 08110000 +C SOGLIA: GRUPPO SOTTO CUI NON C'E NULLA: 08111000 + NMAX=MAX0(NINEL,N2NTH) 08112000 + IF(NMAX.LT.1) CALL ERR(8HP2F6RB ,10) 08113000 +C 08114000 +C QUI ANCORA NON SI SA QUANTO E LUNGO IL RECORD MASSIMO 08115000 + MAXREC=0 08116000 + AMAXW4=0 08117000 +C 08118000 +C 08119000 +C FISSA IL FILE DI OUTPUT 08120000 + NTOUT=36 08121000 + IF(NMT.LE.M2.AND.NMT.GT.0) NTOUT=MIX(5,NMT) 08122000 + IF(NTOUT.LE.0) NTOUT=36 08123000 + NTO=NT(1,NTOUT) 08124000 + CALL POSL(NTOUT) 08125000 +C I DATI TABULATI SONO NEI DUE FILES 97 E 98,UN RECORD PER GRUPP08126000 + CALL REW(97) 08127000 + CALL REW(98) 08128000 +C 08129000 + WRITE(NP,9005) NMAX,NGPAS1 08130000 + 9005 FORMAT(' GROUP LIMIT:',I5,' GROUPS FOR EACH PASS:',I5) 08131000 +C 08132000 +C .............................. LOOP SUI GRUPPI (TRATTATI A NGPASS 08133000 +C PER VOLTA FINO AD ANMAX ) 08134000 +C PRIMO GRUPPO TRATTATO 08135000 + NGI=1 08136000 + 10 CONTINUE 08137000 +C ULTIMO GRUPPO TRATTATO 08138000 + NGF=NGI+NGPAS1-1 08139000 + IF(NGF.GT.NMAX) NGF=NMAX 08140000 +C L'ULTIMO GRUPPO TRATTATO PUO ESSERE MENO DI NGPAS1+NGI (SE NG 08141000 +C NON E' DIVISIBILE PER NGPAS1 ) 08142000 + NGPASS=NGF-NGI+1 08143000 +C REWINDS INPUT FILES 08144000 +C NEI FILES UN SOLO RECORD CONTIENE TUTTI I GRUPPI.I FILES08145000 +C VENGONO REWINDATI A OGNI GIRO E SOLO GLI NPASS 08146000 +C GRUPPI CHE SERVONO SONO LETTI. ESCLUSE LE TABULAZIONI 08147000 +C CHE SONO SCRITTE UN GRUPPO PER RECORD. 08148000 + DO 20 I=1,7 08149000 + CALL REW(89+I) 08150000 + 20 CONTINUE 08151000 +C N1,N12,N11=INDICI PER I DO IMPLICITI DI LETTURA 08152000 + N1=NGI-1 08153000 + N12=NGI-1+2 08154000 + N11=NGI-1+1 08155000 +C 08156000 +C LETTURE GRUPPI DA NGI AD NGF 08157000 +C 08158000 +C LIVELLI ANELASTICI 08159000 +C 08160000 + WRITE(NP,9010) NLVAN,NT1,NT0,NGI,NGF 08161000 + 9010 FORMAT(1X,I5,' ANEL LEVELS AND MU FROM UNITS:',2I4, 08162000 + 1 5X,'GROUPS FROM:',I5,' TO:',I5) 08163000 +C 08164000 + IF (NLVAN.LE.0) GO TO 301 08165000 + DO 30 I=1,NLVAN 08166000 + IF(NGI.NE.1) GO TO 298 08167000 + READ(NT1) MTT, IRLVA(MTT),NSGLVA(MTT),(SIGLEV(MTT,J),J=1,NGPASS) 08168000 + GO TO 30 08169000 + 298 READ(NT1)MTT,(DUM,J=1,N12),(SIGLEV(MTT,J),J=1,NGPASS) 08170000 + 30 CONTINUE 08171000 + DO 31 I=1,NLVANM 08172000 + IF(NGI.NE.1) GO TO 299 08173000 + READ(NT0) MTT,DUM,DUM,(AVGMU(MTT,J),J=1,NGPASS) 08174000 + GO TO 31 08175000 + 299 READ(NT0)MTT,(DUM,J=1,N12),(AVGMU(MTT,J),J=1,NGPASS) 08176000 + 31 CONTINUE 08177000 + 301 CONTINUE 08178000 +C LIVELLI N,2N 08179000 +C 08180000 + WRITE(NP,9020) NLVN2N,NT2,NGI,NGF 08181000 + 9020 FORMAT(1X,I5,' N2N LEVELS FROM UNIT:',8X,I4, 08182000 + 1 9X,'GROUPS FROM:',I5,' TO:',I5) 08183000 +C 08184000 + IF(NLVN2N.LE.0) GO TO 302 08185000 + DO 32 I=1,NLVN2N 08186000 + IF(NGI.EQ.1) READ(NT2) IRLVN(I),NSGLVN(I),(SIGN(I,J),J=1,NGPASS) 08187000 + IF(NGI.NE.1) READ(NT2)(DUM,J=1,N12),(SIGN(I,J),J=1,NGPASS) 08188000 + 32 CONTINUE 08189000 + 302 CONTINUE 08190000 +C SPETTRI EVAP ANELASTICI 08191000 +C 08192000 + WRITE(NP,9030) NEVAN,NT3,NT4,NGI,NGF 08193000 + 9030 FORMAT(1X,I5,' EVAP PROB AND TEMP FROM UNITS:',2I4, 08194000 + 1 5X,'GROUPS FROM:',I5,' TO:',I5) 08195000 +C 08196000 + IF(NEVAN.LE.0) GO TO 303 08197000 + DO 33 I=1,NEVAN 08198000 + IF(NGI.NE.1) GO TO 333 08199000 + READ(NT3)IREVA(I),NSGEVA(I),(PIN(I,J),J=1,NGPASS) 08200000 + READ(NT4)DUM,(TSTAT(I,J),J=1,NGPASS) 08201000 + GO TO 33 08202000 + 333 CONTINUE 08203000 + READ(NT3)(DUM,J=1,N12),(PIN(I,J),J=1,NGPASS) 08204000 + READ(NT4)(DUM,J=1,N11),(TSTAT(I,J),J=1,NGPASS) 08205000 + 33 CONTINUE 08206000 + 303 CONTINUE 08207000 +C SPETTRI EVAP N,2N 08208000 +C 08209000 + WRITE(NP,9040) NEVN2N,NT5,NT6,NGI,NGF 08210000 + 9040 FORMAT(1X,I5,' N2N EVAP PROB AND TEMP FROM UNITS:',2I4, 08211000 + 1 ' GROUPS FROM:',I5,' TO:',I5) 08212000 +C 08213000 + IF(NEVN2N.LE.0) GO TO 305 08214000 + DO 35 I=1,NEVN2N 08215000 + IF(NGI.NE.1) GO TO 355 08216000 + READ(NT5) IREVN(I),NSGEVN(I),(PN2N(I,J),J=1,NGPASS) 08217000 + READ(NT6) DUM,(TN2N(I,J),J=1,NGPASS) 08218000 + GO TO 35 08219000 + 355 CONTINUE 08220000 + READ(NT5)(DUM,J=1,N12),(PN2N(I,J),J=1,NGPASS) 08221000 + READ(NT6)(DUM,J=1,N11),(TN2N(I,J),J=1,NGPASS) 08222000 + 35 CONTINUE 08223000 + 305 CONTINUE 08224000 +C 08225000 +C 08226000 + IF(NGI.NE.1) GO TO 100 08227000 +C AL PRIMO GIRO CALCOLA SOGLIE ED ESTREMI VARI DI PRESENZA DATI 08228000 +C CIOE TUTTA LA ROBA INDIPENDENTE DAL GRUPPO MA DEDUCIBILE SOLO 08229000 +C IN BASE A DATI PRESENTI SUI SCRATCH 08230000 +C 08231000 +C DEFINESCE I VETTORI CONTENENTI L'ORDINAMENTO DEI LIVELLI E 08232000 +C SPETTRI ( ORDINATI PER SOGLIE DESCRESCENTI, QUELLI CHE 08233000 +C SPARISCONO PIU A BASSE ENERGIE SONO PER ULTIMI ) 08234000 +C QUESTO ORDINAMENTO E' DEFINITO NEI VETTORI NORDLA, 08235000 +C NORDLN,NORDSA,NORDSN, USATI DALLE ROUTINES CHE ORDINANO. 08236000 +C 08237000 + IF(NLVAN.GT.0) CALL ORDSOG(NLVAN,NSGLVA,NORDLA) 08238000 + IF(NLVN2N.GT.0)CALL ORDSOG(NLVN2N,NSGLVN,NORDLN) 08239000 + IF(NEVAN.GT.0) CALL ORDSOG(NEVAN,NSGEVA,NORDSA) 08240000 + IF(NEVN2N.GT.0)CALL ORDSOG(NEVN2N,NSGEVN,NORDSN) 08241000 +C 08242000 +C EGAM, U, GAMN2N PER RECORD 1 DI F6 08243000 + IF(NLVAN.LE.0) GO TO 45 08244000 + DO 41 I=1,NLVAN 08245000 + 41 EGAM(NORDLA(I))=-AINDX(8,IRLVA(I)) 08246000 + 45 IF(NEVAN.LE.0) GO TO 47 08247000 + DO 42 I=1,NEVAN 08248000 + 42 U(NORDSA(I))=AINDX(8,IREVA(I)) 08249000 + 47 IF(NLVN2N.LE.0) GO TO 49 08250000 + DO 43 I=1,NLVN2N 08251000 + 43 GAMN2N(NORDLN(I))=-AINDX(8,IRLVN(I)) 08252000 + 49 CONTINUE 08253000 +C 08254000 +C DEVE ESSERE CHE I DATI SIANO IN FILAPER SOGLIA: IL PRIMO 08255000 +C GRUPPO LI HA TUTTI, ANDANDO AVANTI POI PER PRIMO SPARISCE 08256000 +C L'ULTIMO,POI IL PENULTIMO ECC. 08257000 +C SE NON E' COSI' I DATI DI RECORD 1 NON SI RIESCONO A FAR 08258000 +C CORRISPONDERE A QUELLI DEI RECORD 2 E 3 IN MCC2F6 08259000 +C 08260000 + IF(NLVAN.LE.0) GO TO 345 08261000 + WRITE(NP,9045)(NSGLVA(J),J=1,NLVAN) 08262000 + WRITE(NP,9049)(NORDLA(J),J=1,NLVAN) 08263000 + 9045 FORMAT(' ANEL LEVELS UP TO GROUP:',10I5) 08264000 + 345 IF(NLVN2N.LE.0) GO TO 346 08265000 + WRITE(NP,9046) (NSGLVN(J),J=1,NLVN2N) 08266000 + WRITE(NP,9049) (NORDLN(J),J=1,NLVN2N) 08267000 + 9046 FORMAT(' N2N LEVELS UP TO GROUP:',10I5) 08268000 + 346 IF(NEVAN.LE.0) GO TO 347 08269000 + WRITE(NP,9047) (NSGEVA(J),J=1,NEVAN) 08270000 + WRITE(NP,9049) (NORDSA(J),J=1,NEVAN) 08271000 + 9047 FORMAT(' EVAP SPECTR ANEL UP TO GROUP:',10I5) 08272000 + 347 IF(NEVN2N.LE.0) GO TO 348 08273000 + WRITE(NP,9048) (NSGEVN(J),J=1,NEVN2N) 08274000 + WRITE(NP,9049) (NORDSN(J),J=1,NEVN2N) 08275000 + 9048 FORMAT(' EVAP SPECTR N2N UP TO GROUP:',10I5) 08276000 + 9049 FORMAT(' OUTPUT ORDER:',10I5) 08277000 +C 08278000 +C SCRIVE DATI NON DIPENDENTI DA GRUPPO 08279000 +C 08280000 +C RECORD 5 DI MCC2F1 08281000 + 348 NWDS=14 08282000 + WRITE(NTO)NWDS,NOME1,NOME2,NINEL,N2NTH,NLEVLS,N2NLVS,MAX1,MAX2, 08283000 + 1MAX3,MAX4,NSINK1,NSINK2,NUMREC,MAXREC 08284000 + NT(3,NTOUT)=NT(3,NTOUT)+1 08285000 +C 08286000 + IF(STMP.GT.100) WRITE(NO,1000) 08287000 + 1NWDS,NOME1,NOME2,NINEL,N2NTH,NLEVLS,N2NLVS,MAX1,MAX2, 08288000 + 2MAX3,MAX4,NSINK1,NSINK2,NUMREC,MAXREC 08289000 + 1000 FORMAT(' PART 2 FOR FILE MCC2F6 :WORDS:',I5,2X,2A4/1X, 08290000 + 1 'N2NTH,NLEVLS,N2NLVS,MAX1 ,MAX2 ,MAX3 ,MAX4 ,NSINK1,NSINK1,', 08291000 + 2 'NUMREC,MAXREC'/15I6) 08292000 +C 08293000 +C NUMREC(IG) E' NUMERO RECORD DEL GRUPPO ( E' IL MAX(NINEL,N2NTH) 08294000 +C LO CALCOLA IN REALTA' LA PARTE 3 08295000 +C 08296000 +C RECORD 1 DI MCC2F6 08297000 +C 08298000 + NWDS=NLVAN+NEVAN+NLVN2N+NEINTL+NEINTN 08299000 +C DIMENSIONI DEL RECORD 2 MASSIME 08300000 + MAXREC=14 08301000 + IF(MAXREC.LT.NWDS) MAXREC=NWDS 08302000 +C 08303000 + L=1 08304000 + IF(NLVAN.GT.0)CALL TRASF1(NLVAN,NORDLA,EGAM,A(L)) 08305000 + L=L+NLVAN 08306000 + IF(NEVAN.GT.0)CALL TRASF1(NEVAN,NORDSA,U,A(L)) 08307000 + L=L+NEVAN 08308000 + IF(NLVN2N.GT.0)CALL TRASF1(NLVN2N,NORDLN,GAMN2N,A(L)) 08309000 + L=L+NLVN2N 08310000 + IF(NEINTL.GT.0)CALL TRASF(NEINTL,EINTL,A(L)) 08311000 + L=L+NEINTL 08312000 + IF(NEINTN.GT.0)CALL TRASF(NEINTN,EINTN,A(L)) 08313000 + L=L+NEINTN 08314000 +C 08315000 +C ADESSO SONO TUTTI IN FILA SENZA BUCHI 08316000 +C 08317000 + WRITE(NTO)NWDS,(A(J),J=1,NWDS) 08318000 + NT(3,NTOUT)=NT(3,NTOUT)+1 08319000 +C 08320000 + IF(STMP.GT.101) WRITE(NO,2000)NWDS, 08321000 + 1 NLVAN,NEVAN,NLVN2N,NEINTL,NEINTN,(A(J),J=1,NWDS) 08322000 + 2000 FORMAT(' WORDS:',I4,' NLVAN:',I5,' NEVAN:',I5,' NLVN2N',I5, 08323000 + 1 ' NEINTL:',I5,' NEINTN:',I5/ 08324000 + 2 ' EGAM(NLVAN),U(NEVAN),GAMN2N(NLVN2N),EINTL(NEINTL),', 08325000 + 3 ' EINTN(NEINTN):'/1X,(10E12.5)) 08326000 + 100 CONTINUE 08327000 +C 08328000 +C .....................LOOP SUI NGPASS GRUPPI (SCRITTURA) 08329000 +C (SUI GRUPPI DEL PASSO ) 08330000 +C PER TABULAZ NULLE SCRIVO 2 RECORDS 08331000 + DO 50 IG=1,NGPASS 08332000 + NGC=NGI+IG-1 08333000 +C 08334000 +C LETTURA DATI TABULATI DEL GRUPPO 08335000 + IF(MAX2.LE.0) GO TO 306 08336000 + IF(KTL(NGC).LT.0) GO TO 306 08337000 +C 08338000 + WRITE(NP,9050) NEINTL,NT7,NGC 08339000 + 9050 FORMAT(1X,I5,' ANEL TABULATED VALUES FROM UNIT:',I4,' GROUP:',I5)08340000 +C 08341000 + READ(NT7)(PINTAB(J),J=1,NEINTL) 08342000 + NT(3,97)=NT(3,97)+1 08343000 + GO TO 307 08344000 + 306 IF(NEINTL.GT.0) CALL RIEMP(0.0,NEINTL,PINTAB) 08345000 + 307 IF(MAX4.LE.0) GOTO 308 08346000 + IF(KTN(NGC).LE.0) GO TO 308 08347000 +C 08348000 + WRITE(NP,9060) NEINTL,NT7,NGC 08349000 + 9060 FORMAT(1X,I5,' N2N TABULATED VALUES FROM UNIT:',I4,' GROUP:',I5)08350000 +C 08351000 + READ(NT8)(PNNTAB(J),J=1,NEINTN) 08352000 + NT(3,98)=NT(3,98)+1 08353000 + GO TO 309 08354000 + 308 IF(NEINTN.GT.0) CALL RIEMP(0.0,NEINTN,PNNTAB) 08355000 + 309 CONTINUE 08356000 +C 08357000 +C NUMERO EVAPORAZIONI ANEL,N2N NINEVP,N2NTAB E NUM LIVELLI 08358000 + NINEVP=NSUMG1(NGC,NEVAN,NSGEVA) 08359000 + N2NEVP=NSUMG1(NGC,NEVN2N,NSGEVN) 08360000 + NLVS=NSUMG1(NGC,NLVAN,NSGLVA) 08361000 + N2NLV=NSUMG1(NGC,NLVN2N,NSGLVN) 08362000 +C 08363000 +C LIMITI TABULAZIONI 08364000 +C 08365000 + CALL LIMIT(EPS,NSTRT1,NEND1,NEINTL,PINTAB) 08366000 + CALL LIMIT(EPS,NSTRT2,NEND2,NEINTN,PNNTAB) 08367000 + NINTAB=0 08368000 + IF(NEND1.GE.NSTRT1.AND.NEND1.GT.0) NINTAB=1 08369000 + N2NTAB=0 08370000 + IF(NEND2.GE.NSTRT2.AND.NEND2.GT.0) N2NTAB=1 08371000 +C 08372000 +C MC2-2 E LA PARTE 4 PER CALCOLARE IL NUMERO PAROLE DEL 08373000 +C RECORD 4 FANNO SEMPLICEMENTE NEND-NSTRT+1 SENZA CONTROLLARE 08374000 +C NINTAB ED N2NTAB. PER QUESTO DEVE ESSERE , SE NON CI SONO 08375000 +C DATI TABULATI, NEND-NSTRT=-1 . QUI IMPONGO CHE QUESTO SI 08376000 +C VERIFICHI. 08377000 + IF(NINTAB.GT.0) GO TO 450 08378000 + NSTRT1=0 08379000 + NEND1=-1 08380000 + 450 IF(N2NTAB.GT.0) GO TO 460 08381000 + NSTRT2=0 08382000 + NEND2=-1 08383000 + 460 CONTINUE 08384000 +C 08385000 +C 08386000 +C SCRITTURA DIP DAL GRUPPO : RECORD 2 DI MCC2F6 08387000 +C 08388000 +C MUTO I CODICI DI ENDFB IN QUELLI DI MC2-2 : 08389000 +C 1 IN 0 ; 2 IN 3 ; 3 IN 2 ; 4 IN 4 ; 5 IN 1 08390000 +C COST LIN-LIN LNX-Y X-LNY LNX-LNY 08391000 +C 08392000 + KTL1=0 08393000 +C IF(KTL(NGC).EQ.1) KTL1=0 08394000 + IF(KTL(NGC).EQ.2) KTL1=3 08395000 + IF(KTL(NGC).EQ.3) KTL1=2 08396000 + IF(KTL(NGC).EQ.4) KTL1=4 08397000 + IF(KTL(NGC).EQ.5) KTL1=1 08398000 + KTN1=0 08399000 +C IF(KTN(NGC).EQ.1) KTN1=0 08400000 + IF(KTN(NGC).EQ.2) KTN1=3 08401000 + IF(KTN(NGC).EQ.3) KTN1=2 08402000 + IF(KTN(NGC).EQ.4) KTN1=4 08403000 + IF(KTN(NGC).EQ.5) KTN1=1 08404000 +C 08405000 + TNINEL=.FALSE. 08406000 + IF(NGC.GT.NINEL) TNINEL=.TRUE. 08407000 + TN2NTH=.FALSE. 08408000 + IF(NGC.GT.N2NTH) TN2NTH=.TRUE. 08409000 +C 08410000 + NWDS=0 08411000 + IF(TNINEL) GO TO 401 08412000 + NWDS=NWDS+1 08413000 + A(NWDS)=SIGIN(NGC) 08414000 + 401 IF(TN2NTH) GO TO 402 08415000 + NWDS=NWDS+1 08416000 + A(NWDS)=SIGN2N(NGC) 08417000 + 402 IF(TNINEL) GO TO 404 08418000 + IF(TMAX1) GO TO 403 08419000 + NWDS=NWDS+1 08420000 + A(NWDS)=AREAL(NINEVP) 08421000 + 403 IF(TMAX2) GO TO 404 08422000 + NWDS=NWDS+1 08423000 + A(NWDS)=AREAL(NINTAB) 08424000 + 404 IF(TN2NTH) GO TO 406 08425000 + IF(TMAX3) GO TO 405 08426000 + NWDS=NWDS+1 08427000 + A(NWDS)=AREAL(N2NEVP) 08428000 + 405 IF(TMAX4) GO TO 406 08429000 + NWDS=NWDS+1 08430000 + A(NWDS)=AREAL(N2NTAB) 08431000 + 406 IF(TNINEL.OR.TMAX2) GO TO 407 08432000 + NWDS=NWDS+1 08433000 + A(NWDS)=AREAL(NSTRT1) 08434000 + NWDS=NWDS+1 08435000 + A(NWDS)=AREAL(NEND1) 08436000 + 407 IF(TN2NTH.OR.TMAX4) GO TO 408 08437000 + NWDS=NWDS+1 08438000 + A(NWDS)=AREAL(NSTRT2) 08439000 + NWDS=NWDS+1 08440000 + A(NWDS)=AREAL(NEND2) 08441000 + 408 IF(TMAX2.OR.TNINEL) GO TO 409 08442000 + NWDS=NWDS+1 08443000 + A(NWDS)=AREAL(KTL1) 08444000 + 409 IF(TMAX4.OR.TN2NTH) GO TO 410 08445000 + NWDS=NWDS+1 08446000 + A(NWDS)=AREAL(KTN1) 08447000 + 410 IF(TNINEL.OR.TNLEVL) GO TO 411 08448000 + NWDS=NWDS+1 08449000 + A(NWDS)=AREAL(NLVS) 08450000 + 411 IF(TN2NTH.OR.TN2NLV) GO TO 412 08451000 + NWDS=NWDS+1 08452000 + A(NWDS)=AREAL(N2NLV) 08453000 + 412 CONTINUE 08454000 + WRITE(NTO)NWDS,(A(J),J=1,NWDS) 08455000 + NT(3,NTOUT)=NT(3,NTOUT)+1 08456000 +C 08457000 + IF(STMP.GT.102) WRITE(NO,3000) NGC, 08458000 + 1 SIGIN(NGC),SIGN2N(NGC),NINEVP,NINTAB,N2NEVP,N2NTAB, 08459000 + 1 NSTRT1,NEND1,NSTRT2,NEND2,KTL1,KTN1,NLVS,N2NLV 08460000 + 3000 FORMAT(' GROUP:',I4,' SIGIN=',E12.5,' SIGN2N=',E12.5/1X, 08461000 + 1 'NINEVP,NINTAB,N2NEVP,N2NTAB,NSTRT1,NEND1,NSTRT2,NEND2,KTL, ', 08462000 + 2 'KTN ,NLVS ,N2NLV:'/1X,2I5,2X,2I5,10I6) 08463000 +C 08464000 +C : RECORD 3 DI MCC2F6 08465000 + L=1 08466000 + IF(NLVS.GT.0)CALL TRASF1(NLVS,NORDLA,SIGLEV(1,IG),A(L)) 08467000 + L=L+NLVS 08468000 + IF(NLVS.GT.0)CALL TRASF1(NLVS,NORDLA,AVGMU(1,IG),A(L)) 08469000 + L=L+NLVS 08470000 + IF(N2NLV.GT.0)CALL TRASF1 (N2NLV,NORDLN,SIGN(1,IG),A(L)) 08471000 + L=L+N2NLV 08472000 + IF(NINEVP.GT.0)CALL TRASF1 (NINEVP,NORDSA,TSTAT(1,IG),A(L)) 08473000 + L=L+NINEVP 08474000 + IF(NINEVP.GT.0)CALL TRASF1 (NINEVP,NORDSA,PIN(1,IG),A(L)) 08475000 + L=L+NINEVP 08476000 + IF(N2NEVP.GT.0)CALL TRASF1 (N2NEVP,NORDSN,TN2N(1,IG),A(L)) 08477000 + L=L+N2NEVP 08478000 + IF(N2NEVP.GT.0)CALL TRASF1 (N2NEVP,NORDSN,PN2N(1,IG),A(L)) 08479000 + L=L+N2NEVP 08480000 + IF(L.GT.MA) CALL ERR(8HP2MCF6RB ,50) 08481000 + NWDS=L-1 08482000 + IF(MAXREC.LT.NWDS) MAXREC=NWDS 08483000 + WRITE(NTO) NWDS,(A(J),J=1,NWDS) 08484000 +C QUESTO SCRIVE UN RECORD ANCHE SE NWDS=0, P4 ANCHE. 08485000 +C E' PIU' FACILE LEGGERE UN RECORD VUOTO CHE CAPIRE 08486000 +C SE ESISTE O NO IN P3 08487000 +C 08488000 + IF(STMP.GT.103) WRITE(NO,4000) NWDS,(A(J),J=1,NWDS) 08489000 + 4000 FORMAT(' RECORD 3 : WORDS:',I5,' SIGLEV(NLVS),AVGMU(NLVS),SIGN(N2N08490000 + 1LV),TSTAT(NINEVP),PIN(NINEVP),TN2N(NINTAB),PN2N(NINTAB):'/ 08491000 + 2 (1X,10E12.5) ) 08492000 +C 08493000 + NT(3,NTOUT)=NT(3,NTOUT)+1 08494000 +C 08495000 +C SCRIVE: RECORD 4 DI F6 : TABULAZIONI 08496000 + NWDS=0 08497000 + L=1 08498000 + IF(NEND1.LE.0) GO TO 505 08499000 + CALL TRASF (NEND1-NSTRT1+1,PINTAB(NSTRT1),A(L)) 08500000 + NWDS=NEND1-NSTRT1+1 08501000 + IF(NWDS.GT.0)L=L+NWDS 08502000 + 505 IF(NEND2.LE.0) GO TO 506 08503000 + CALL TRASF(NEND2-NSTRT2+1,PNNTAB(NSTRT2),A(L)) 08504000 + NWDS=NEND2-NSTRT2+1 08505000 + IF(NWDS.GT.0)L=L+NWDS 08506000 + 506 NWDS=L -1 08507000 + IF(MAXREC.LT.NWDS) MAXREC=NWDS 08508000 + IF(AMAXW4.LT.NWDS) AMAXW4=NWDS 08509000 + IF(NWDS.LE.0) GO TO 50 08510000 + WRITE(NTO) NWDS,(A(J),J=1,NWDS) 08511000 + NT(3,NTOUT)=NT(3,NTOUT)+1 08512000 +C 08513000 + IF(STMP.GT.104) WRITE(NO,5000) NWDS,NSTRT1,NEND1,NSTRT2,NEND2, 08514000 + 1 (A(J),J=1,NWDS) 08515000 + 5000 FORMAT(' TABULATED DATA: WORDS:',I8,' ANEL LIMITS:',2I10, 08516000 + 1 ' N2N LIMITS:',2I10/1X,(1X,10E12.5) ) 08517000 +C 08518000 + 50 CONTINUE 08519000 +C ........... FINE LOOP SUI GRUPPI DEL PASSO(50) 08520000 + IF(NGF.EQ.NMAX) GO TO 600 08521000 + NGI=NGF+1 08522000 + GO TO 10 08523000 +C ................ FINE LOOP 10 DI LETTURA E SCRITTURA SUI PASSI(10)08524000 + 600 CONTINUE 08525000 +C 08526000 +C RIEMPIMENTO INDICE 08527000 +C 08528000 +C RICERCA IR ( CERCA DEI .NE.0 NEI NUMERI RECORD IR 08529000 + CALL CERCM(IR1,0,NLVAN,IRLVA) 08530000 + CALL CERCM(IR2,0,NLVN2N,IRLVN) 08531000 + CALL CERCM(IR3,0,NEVAN,IREVA) 08532000 + CALL CERCM(IR4,0,NEVN2N,IREVN) 08533000 + IR=MAX0(IR1,IR2,IR3,IR4,IRANEL,IRN2N) 08534000 + IF(IR.LE.0) CALL ERR(8HP2F6RB ,600) 08535000 +C 08536000 + IF(NMT.GT.M2) GO TO 700 08537000 + NOM1=MIX(3,NMT) 08538000 + NOM2=MIX(4,NMT) 08539000 + NOM3=MIX(1,NMT) 08540000 + NOM4=MIX(2,NMT) 08541000 + GO TO 710 08542000 +C ANDREBBE MESSO ENDFB ID COME CARATTERE MA NON HO FATTO LA SUBROUT08543000 + 700 NOM1=NAREAL(AINDX(35,IR)) 08544000 + NOM2=NAREAL(AINDX(36,IR)) 08545000 + NOM3=NAREAL(AINDX(35,IR)) 08546000 + NOM4=NAREAL(AINDX(36,IR)) 08547000 + 710 CONTINUE 08548000 + ANUMRE=NT(3,NTOUT)-NT(4,NTOUT) 08549000 + IND2=IND2+1 08550000 + IF(IND2.GT.MIND12) CALL ERR(8HP2F6RB ,650) 08551000 + CALL EMPIN(MIND11,AINDX1(1,IND2),AINDX(1,IR),AINDX(2,IR), 08552000 + 1 AINDX(3,IR),AINDX(4,IR),AINDX(5,IR), 08553000 + 2 NOM1,NOM2,NOM3,NOM4,0., 08554000 + 3 6.,0.,0.,FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(4,NTOUT)), 08555000 + 4ANUMRE,AMAXW4,0.,FLOAT(NG),EUP,DELTAU,0., 08556000 + 5FLOAT(NINEL),FLOAT(N2NTH),FLOAT(NLEVLS),FLOAT(N2NLVS), 08557000 + 6FLOAT(MAX1),FLOAT(MAX2),FLOAT(MAX3),FLOAT(MAX4), 08558000 + 7FLOAT(NSINK1),FLOAT(NSINK2),FLOAT(NUMREC),FLOAT(MAXREC), 08559000 + 8 FLOAT(NMAX),0.,0.,0.,0.) 08560000 + NT(4,NTOUT)=NT(3,NTOUT) 08561000 + RETURN 08562000 + END 08563000 + SUBROUTINE P2F6SG(NG,MNTBG2,ANTBG,NGLIM,EPS,IR,E) 08564000 +C ****************************************************** 08565000 +C SIGIN AND SIGN2N COMPUTATION: ULTRAFINE GROUP CROSS SECTIONS 08566000 +C FOR SECONDARY ENERGY DISTRIBUTION FILE MCC2F6 08567000 +C LEGGE SIGIN E SIGN2N LE INTEGRA A GRUPPI E LETIENE IN ANTBG 08568000 +C ************************************************************** 08569000 +C 08570000 + DIMENSION ANTBG(NG,MNTBG2),E(NG) 08571000 +C 08572000 + COMMON/FILES/NT(4,99) 08573000 + EQUIVALENCE(NO,NT(1,6)),(NP,NT(1,11)) 08574000 + COMMON /INDX/AINDX(40,200) 08575000 +C 08576000 + WRITE(NP,9010) AINDX(3,IR) 08577000 + 9010 FORMAT(' P2F6SG : MULTI-GROUP SCATT CROSS SECTIONS',E12.5) 08578000 +C 08579000 +C NENEL=1 PER ANEL, 2 PER N2N 08580000 + N2NEL=AINDX(32,IR) 08581000 + IF(N2NEL.NE.1.AND.N2NEL.NE.2) CALL ERR(8HP2F6SG ,0) 08582000 + CALL INTEGG(NG,ANTBG(1,N2NEL),IR,E,1,0,0) 08583000 + NGLIM=1 08584000 + DO 10 I=1,NG 08585000 + IF(ANTBG(I,N2NEL).GT.EPS) NGLIM=I 08586000 + 10 CONTINUE 08587000 + RETURN 08588000 + END 08589000 + SUBROUTINE P2F6LV(NG,MNTBG2,ANTBG,NLVN2N,NLVAN,NLVANM,IR,MA,A,E) 08590000 +C **************************************************************** 08591000 +C DISCRETE LEVELS DATA COMPUTATIONS 08592000 +C LEGGE MU MEDIO, SIGLEV E SIGN LIVELLI ANEL ED N,2N 08593000 +C **************************************************************** 08594000 +C 08595000 + DIMENSION E(NG) 08596000 + COMMON/FILES/NT(4,99) 08597000 + EQUIVALENCE(NP,NT(1,11)) 08598000 + COMMON/OPZIO/OPZ(4,8,10) 08599000 + EQUIVALENCE (OPZ(2,6,3),EPS) 08600000 + COMMON /INDX/AINDX(40,200) 08601000 + COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 08602000 + 1N1X,N2X,NS,LX,LY,LB 08603000 + COMMON MAXA,AD(3000) 08604000 + DIMENSION ANTBG(NG,MNTBG2),A(MA) 08605000 + EQUIVALENCE(NT(1,90),NT90),(NT(1,91),NT91),(NT(1,92),NT92) 08606000 +C 08607000 + WRITE(NP,9000) AINDX(3,IR),AINDX(32,IR) 08608000 + 9000 FORMAT(' P2F6LV : DISCRETE LEVEL:',F10.0, 08609000 + 1 ' REACTION (1=ANEL,2=N2N,3=MU) :',F5.0) 08610000 +C 08611000 + IF(MA.LT.NG) CALL ERR(8HP2F6LV ,0) 08612000 +C 08613000 +C MU MEDIO 08614000 +C MEDIO MU A GRUPPI E LO METTO IN SCR 90 08615000 + IF(AINDX(32,IR).NE.3) GO TO 100 08616000 +C 08617000 +C MI MEDIO PER LIVELLI DISCRETI: MT=51-90 DA FILE 4 ENDFB 08618000 +C I LIVELLI DISCRETI SU F4 DOVREBBERO ESSERE DATI IN C M 08619000 +C SENZA MATRICE DI TRASFORMAZIONE 08620000 +C 08621000 +C LETTURA 08622000 +C 08623000 + T=AINDX(7,IR) 08624000 + NTIN=AINDX(23,IR) 08625000 + NTI=NT(1,NTIN) 08626000 + NPOST=AINDX(25,IR) 08627000 + CALL POST(NTIN,NPOST) 08628000 +C HEAD 08629000 + CALL RREC(1,NTI,3,T) 08630000 + NT(4,NTIN)=NT(4,NTIN)+1 08631000 + LVT=L1 08632000 + LTT=L2 08633000 +C EVENTUALI LIST 08634000 + IF(LVT.NE.1) GO TO 101 08635000 + CALL RREC(2,NTI,3,T) 08636000 + NT(4,NTIN)=NT(4,NTIN)+1 08637000 + LCT=L2 08638000 + IF(LCT.EQ.2) GO TO 101 08639000 +C SECONDO IL MANUALE DI ENDFB QUESTO LIST NON ESISTE E I DATI SONO 08640000 +C SONO IN CM. IN CASO CONTRARIO SI DOVREBBE USARE LA MATRICE DI TR08641000 +C DI TRASFORMAZIONE DI QUESTO LIST PER PORTARE I DATI IN C M 08642000 + CALL ERR(8HP2F6LVIN ,101) 08643000 + GO TO 102 08644000 + 101 CALL RREC(1,NTI,3,T) 08645000 + LI=L1 08646000 + LCT=L2 08647000 + NT(4,NTIN)=NT(4,NTIN)+1 08648000 + IF(LTT.EQ.0) GO TO 190 08649000 +C TAB2 COLLA TABULAZIONE IN E 08650000 + CALL RREC(4,NTI,3,T) 08651000 + NT(4,NTIN)=NT(4,NTIN)+1+NREST(N1,3)+N1/3 08652000 + 102 NE=N2 08653000 + NR=N1 08654000 +C PREPARO ARRAY (NE,3) IN A CON ( E , KT , MI) 08655000 + LE=1 08656000 +C ENERGIE 08657000 + LKT=LE+NE 08658000 +C INTERPOLATION CODE KT (COME INTEGER) 08659000 + LMI=LKT+NE 08660000 +C MI MEDIO SU ANGOLI AD ENERGIA E 08661000 + LIMIT=LMI+NE 08662000 +C 08663000 + IF(LIMIT+NG.GT.MA) CALL ERR(8HP2F6LV ,102) 08664000 +C 08665000 +C METTE LA TABULAZIONE DEL TAB2 IN A COME NUMERO INTERO 08666000 + CALL FILTB2(NR,NE,A(LKT),NBT,JNT) 08667000 + IF(LTT.NE.2) GO TO 120 08668000 +C 08669000 +C FUNZIONI TABULATE 08670000 + DO 10 IE=1,NE 08671000 +C TAB1 08672000 + CALL RREC(3,NTI,3,NT) 08673000 + NT(4,NTIN)=NT(4,NTIN)+1+N1/3+NREST(N1,3)+N2/3+NREST(N2,3) 08674000 +C ENERGIA 08675000 + A(IE)=C2 08676000 +C CALCOLO MI MEDIO 08677000 + CALL GRATP(AMI,AD(LX),AD(LY)) 08678000 + A(LMI+IE-1)=AMI 08679000 + 10 CONTINUE 08680000 + GO TO130 08681000 + 120 CONTINUE 08682000 +C LEGENDRE 08683000 + DO 20 IE=1,NE 08684000 +C LIST 08685000 + CALL RREC(2,NTI,3,T) 08686000 + NL=N1 08687000 + NT(4,NTIN)=NT(4,NTIN)+1+N1/6+NREST(N1,6) 08688000 +C ENERGIA 08689000 + A(IE)=C2 08690000 +C CALCOLO MI MEDIO 08691000 + IF(NL.LT.1) CALL ERR(8H P2F6LV ,20) 08692000 + A(LMI+IE-1)=AD(LB) 08693000 + 20 CONTINUE 08694000 + GO TO 130 08695000 + 190 CONTINUE 08696000 +C ISOTROPO 08697000 + NE=2 08698000 + LE=1 08699000 + LKT=3 08700000 + LMI=5 08701000 + LIMIT=LMI+NE 08702000 + IF(LIMIT+NG.GT.MA) CALL ERR(8HP2F6LV ,190) 08703000 + A(1)=E(NG) 08704000 + A(2)=E(1) 08705000 + A(3)=AREAL(1) 08706000 + A(4)=A(3) 08707000 + A(5)=0. 08708000 + A(6)=A(5) 08709000 + 130 CONTINUE 08710000 +C 08711000 +C INTREGRAZIONE A GRUPPI DEL MI MEDIO(E) 08712000 + CALL RIEMP(0.0,NG,A(LIMIT)) 08713000 +C RIBALTA LE E DI ENDFB PER AVERE E DECRESCENTI PER INTS2 08714000 + CALL RIBA(NE,A(LKT)) 08715000 + CALL RIBA(NE,A(LE)) 08716000 + CALL RIBA(NE,A(LMI)) 08717000 + CALL INTS2(1,A(LKT),NG,E,A(LIMIT),NE,A(LE),A(LMI)) 08718000 +C RIVERSO SULLO SCR 90 A(LIMIT) CON MI MEDIO A GRUPPI 08719000 + CALL SOGL(EPS,NSG,NG,A(LIMIT)) 08720000 +C ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 08721000 +C NON INSERISCE I LIVELLI CON E MIN > E TOP 08722000 +C MA I MU LI INSERISCE TUTTI ( NON SI DISTINGUE IL 08723000 +C LIVELLO SOPRA DALL'ISOTROPIA 08724000 +C ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 08725000 +C 08726000 + NLVANM=NLVANM+1 08727000 +C NUMERO I LIVELLI PER RITROVARMELI MEGIO NELLA P2F6RB 08728000 +C E PER AVERE SEMPRE UNA SICURA CORRISPONDENZA FRA MI E SIGLEV 08729000 + MTT=AINDX(3,IR)-50. 08730000 + WRITE(NT90) MTT,IR,NSG,(A(LIMIT+J-1),J=1,NG) 08731000 + NT(3,90)=NT(3,90)+1 08732000 + NT(4,90)=NT(3,90) 08733000 + RETURN 08734000 + 100 CONTINUE 08735000 +C ANELASTICO 08736000 +C MEDIO A GRUPPI E LO METTO IN A 08737000 + IF(AINDX(32,IR).NE.1) GO TO 200 08738000 + CALL INTEGG(NG,A,IR,E,1,0,0) 08739000 +C RIVERSO SULLO SCRATCH 91 A 08740000 +C LO SCATCH E REWINDATO DA P2MCF6 E QUI SCRITTO IN SEQUENZA 08741000 + CALL SOGL(EPS,NSG,NG,A) 08742000 +C ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 08743000 +C NON INSERISCE I LIVELLI CON E MIN > E TOP 08744000 + IF(NSG.LT.1)WRITE(NP,9010) 08745000 + 9010 FORMAT(' THIS LEVEL IS SKIPPED') 08746000 + IF(NSG.LT.1) RETURN 08747000 +C ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 08748000 +C 08749000 + NLVAN=NLVAN+1 08750000 +C NUMERO I LIVELLI PER RITROVARMELI MEGIO NELLA P2F6RB 08751000 +C E PER AVERE SEMPRE UNA SICURA CORRISPONDENZA FRA MI E SIGLEV 08752000 + MTT=AINDX(3,IR)-50. 08753000 + WRITE(NT91) MTT,IR,NSG,(A(J),J=1,NG) 08754000 + NT(3,91)=NT(3,91)+1 08755000 + NT(4,91)=NT(3,91) 08756000 + RETURN 08757000 + 200 CONTINUE 08758000 +C N2N 08759000 +C MEDIO A GRUPPI E METTE IN A 08760000 + IF(AINDX(32,IR).NE.2) GO TO 300 08761000 + CALL INTEGG(NG,A,IR,E,1,0,0) 08762000 +C DIVIDO PER 2 ( N,2N) PER I MT CHE HANNO UN N SOLO (IL 16 NE HA 2)08763000 + IF(AINDX(3,IR).NE.16) CALL NORM(NG,A,2.) 08764000 +C METTO LE N,2N NELLO SCR 92 08765000 +C IL FILE 92 E REWINDATO DA P2MCF6 08766000 + CALL SOGL(EPS,NSG,NG,A) 08767000 +C ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 08768000 +C NON INSERISCE I LIVELLI CON E MIN > E TOP 08769000 + IF(NSG.LT.1)WRITE(NP,9010) 08770000 + IF(NSG.LT.1) RETURN 08771000 +C ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 08772000 +C 08773000 + NLVN2N=NLVN2N+1 08774000 + WRITE(NT92) IR,NSG,(A(J),J=1,NG) 08775000 + NT(3,92)=NT(3,92)+1 08776000 + NT(4,92)=NT(3,92) 08777000 + RETURN 08778000 + 300 CONTINUE 08779000 +C QUI ARRIVA PER ERRORE IN AINDX(32,.) CHE DEVE ESSERE 1 O 2 O 3 08780000 + CALL ERR(8HP2FGLV ,300) 08781000 + RETURN 08782000 + END 08783000 + SUBROUTINE P2F6EV(NG,N5,NA,NEVN2N,NEVAN,IR,MA,A,E) 08784000 +C *************************************************** 08785000 +C 08786000 +C EVAPORATION SPECTRUM 08787000 +C 08788000 +C **************************************************** 08789000 +C 08790000 + DIMENSION NA(NG,N5),A(MA),E(NG) 08791000 + COMMON/OPZIO/OPZ(4,8,10) 08792000 + EQUIVALENCE(OPZ(2,6,3),EPS) 08793000 + COMMON/FILES/NT(4,99) 08794000 + EQUIVALENCE(NP,NT(1,11)) 08795000 + EQUIVALENCE(NT(1,93),NT93),(NT(1,94),NT94),(NT(1,95),NT95) 08796000 + EQUIVALENCE (NT(1,96),NT96) 08797000 + COMMON/INDX/AINDX(40,200) 08798000 +C 08799000 + WRITE(NP,9000) AINDX(3,IR) 08800000 + 9000 FORMAT(' P2F6EV : EVAPORATION SPECTRUM',F5.0) 08801000 +C 08802000 + IF(MA.LT.NG*2) CALL ERR(8HP2F6EV ,0) 08803000 +C 08804000 +C MEDIO P(E) SUL GRUPPO 08805000 + CALL INTEGG(NG,A,IR,E,1,1,0) 08806000 +C 08807000 +C INTEGRO THETA SUL GRUPPO 08808000 + CALL INTEGG(NG,A(NG+1),IR,E,1,1,1) 08809000 +C 08810000 +C ANELASTICHE 08811000 + IF(AINDX(32,IR).NE.1) GO TO 200 08812000 + NEVAN=NEVAN+1 08813000 + CALL SOGL(EPS,NSG,NG,A) 08814000 + WRITE(NT93) IR,NSG,(A(J),J=1,NG) 08815000 + WRITE(NT94) IR,(A(NG+J),J=1,NG) 08816000 + NT(3,93)=NT(3,93)+1 08817000 + NT(3,94)=NT(3,94)+1 08818000 + NT(4,93)=NT(4,93)+1 08819000 + NT(4,94)=NT(4,94)+1 08820000 + RETURN 08821000 + 200 CONTINUE 08822000 +C N,2, 08823000 + IF(AINDX(32,IR).NE.2.) GO TO300 08824000 + NEVN2N=NEVN2N+1 08825000 + CALL SOGL(EPS,NSG,NG,A) 08826000 + WRITE(NT95) IR,NSG,(A(J),J=1,NG) 08827000 + WRITE(NT96) IR,(A(NG+J),J=1,NG) 08828000 + NT(3,95)=NT(3,95)+1 08829000 + NT(4,95)=NT(4,95)+1 08830000 + NT(3,96)=NT(3,96)+1 08831000 + NT(4,96)=NT(4,96)+1 08832000 + RETURN 08833000 + 300 CONTINUE 08834000 + CALL ERR(8HP2F6EV ,300) 08835000 + RETURN 08836000 + END 08837000 + SUBROUTINE P2F6TB(NG,MNTBG2,NTBG,IR,MA,A,NEINTN,NEINTL,LN,LL,LMA, 08838000 + 1 E) 08839000 +C **************************************************************** 08840000 +C 08841000 +C TABULATED ENERGY DISTRIBUTION 08842000 +C 08843000 +C RESTITUISCE: LMA: INDICE DI FINO A DOVE E' PIENO NTBG((NG,5)+..) 08844000 +C LL ED LN : INDIRIZZO DI EINTL ED EINTN IN A 08845000 +C NEINTN E NEINTL : NUMERO ENERGIE EINTL ED EINTN DI ARRIVO 08846000 +C DELLA TABULAZIONE 08847000 +C 08848000 +C NTBG(1,NG) - SIGIN 08849000 +C 2 - SIGN2N 08850000 +C 3 - KTL 08851000 +C 4 - KTN 08852000 +C 08853000 +C **************************************************************** 08854000 +C 08855000 + DIMENSION NTBG(NG,MNTBG2),A(MA),E(NG),EXX(2),PXX(2) 08856000 + EQUIVALENCE(EXX(1),EX1),(EXX(2),EX2),(PXX(1),PX1),(PXX(2),PX2) 08857000 + COMMON /OPZIO/OPZ(4,8,10) 08858000 + EQUIVALENCE(OPZ(2,6,3),EPS),(OPZ(2,5,2),EUP),(OPZ(2,5,3),DELU) 08859000 + EQUIVALENCE(OPZ(2,5,4),ANG) 08860000 + COMMON MAXA,AD(3000) 08861000 + COMMON/DENS/JMT,JAT,JTT,JLT,LA,JNS,MNS,JX,MX 08862000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 08863000 + 1 N1X,N2X,NS,LX,LY,LB 08864000 + COMMON/INDX/AINDX(40,200) 08865000 + COMMON/FILES/NT(4,99) 08866000 + EQUIVALENCE(NP,NT(1,11)),(NO,NT(1,6)) 08867000 +C 08868000 + WRITE(NP,9000) AINDX(3,IR) 08869000 + 9000 FORMAT(' P2F6TB : TABULATED FUNCTIONS',E12.5) 08870000 +C 08871000 + T=AINDX(37,IR) 08872000 +C ANELASTICHE ON N,2N 08873000 + N2NEL=AINDX(32,IR) 08874000 + IF(N2NEL.NE.1.AND.N2NEL.NE.2) CALL ERR(8HP2F6TB ,0) 08875000 +C PER SEGNALARE AD P2F6RB CHE CERTI GRUPPI NON CI SONO 08876000 + MEN1=-1 08877000 + CALL RIEMP(MEN1,NG,NTBG(1,2+N2NEL)) 08878000 +C POSIZIONAMENTO FILE DI INPUT 08879000 + NTIN=AINDX(23,IR) 08880000 + NTI=NT(1,NTIN) 08881000 + NPOST=AINDX(25,IR) 08882000 + CALL POST(NTIN,NPOST) 08883000 +C POSIZIONAMENTO TAPE DI OUTPUT 08884000 + NTOUT=97 08885000 + IF(N2NEL.EQ.2) NTOUT=98 08886000 + NTO=NT(1,NTOUT) 08887000 +C VIENE POSIZIONATO DEL MAIN 08888000 +C PULISCE DENS 08889000 + CALL DELETE(0) 08890000 +C LETTURA TAB1 CON P(E) 08891000 + CALL RREC(3,NTI,3,T) 08892000 + NT(4,NTIN)=NT(4,NTIN)+1+N1/3+NREST(N1,3)+N2/3+NREST(N2,3) 08893000 +C LO METTE IN DENS COL NUMERO 1 08894000 + CALL STORE(3,1,LOF) 08895000 + IF(LOF.GT.0) CALL ERR(8HP2F6TB ,1) 08896000 +C LEGGE TAB2 08897000 + CALL RREC(4,NTI,3,T) 08898000 + NT(4,NTIN)=NT(4,NTIN)+N1/3+NREST(N1,3)+1 08899000 +C NUMERO ENERGIE DI PARTENZA 08900000 + NE=N2 08901000 +C PUNTATORI 08902000 + LNE=1 08903000 +C LE E DEL TAB2(E DI PARTENZA) VENGONO MESSE IN A(1) : NE VALORI 08904000 + LNEKT=LNE+NE 08905000 +C KT : INTERPOLAZIONI DEL TAB2 A(LNEKT) :NE VALORI (QUANTE LE E 08906000 + LEINT=LNEKT+NE 08907000 +C E' DI ARRIVO EINT : A(LEINT) : NEINT VALORI 08908000 +C 08909000 +C METTO LEGGI DI TABULAZIONE IN A 08910000 + CALL FILTB2(N1,NE,A(LNEKT),NBT,JNT) 08911000 +C METTE IN DENS AL NUMERO 2 08912000 + CALL STORE(4,2,LOF) 08913000 + IF(LOF.GT.0) CALL ERR(8HP2F6TB ,2) 08914000 +C 08915000 +C NUMERO ENERGIE .E' L'INTERSEZIONE DELL ENERGIE DEI DIVERSI TAB1 08916000 + NEINT=0 08917000 +C 08918000 +C LOOP SUI TAB1 DELLE DIVERSE ENERGIE DI PARTENZA ................ 08919000 +C CHE VENGONO LETTI E MESSI IN /DENS/ 08920000 + KT=-1 08921000 + DO 10 IE=1,NE 08922000 +C LEGGE TAB1 08923000 + CALL RREC(3,NTI,3,T) 08924000 + NT(4,NTIN)=NT(4,NTIN)+1+N1/3+N2/3+NREST(N1,3)+NREST(N2,3) 08925000 +C ENERGIA 08926000 + A(IE)=C2 08927000 +C PUNTI E' DI INTERPOLAZIONE VENGONO MESSI TUTTI IN FILA INSIEME 08928000 +C POI VENGONO RIORDINATI ED I RIDONDANTI VENGONO ELIMINATI 08929000 +C 08930000 +C PER PERFETTA COERENZA CON ETOE-II BISOGNA NON INSERIRE I PUNTI 08931000 +C DI ARRIVO CORRISPONDENTI AD E DI PARTENZA SOPRA ETOP=E(1) 08932000 +C IF(C2.GT.E(1)) GO TO 101 08933000 +C IN QUESTO MODO SI EVITA DI AVERE DELLE E DI ARRIVO IN PIU' 08934000 +C CUI POI NON ARRIVA ALCUN CONTRIBUTO. QUESTO RENDE RIDONDANTE 08935000 +C LA CHIAMATA ALLA ROUTINE INFER SOTTO ( OVE ELIMINA LE E DI 08936000 +C ARRIVO > DEL PRIMO GRUPPO E(1) 08937000 +C COSI PERO' SI ELIMINANO ANCHE LE E DI ARRIVO CHE HANNO 08938000 +C CONTRIBUTO DALLE E FRA ETOP E LA PRIMA E DI PARTENZA TABULATA 08939000 +C SOTTO ETOP.BISOGNEREBBE METTERE LE E DI ARRIVO E POI RISCARTARLE08940000 +C AL GIRO DOPO SPOSTANDO INDIETRO I PUNTATORI SE NON SI E' SOTTO 08941000 +C ETOP. IN MODO DA TENERE GLI ARRIVI PARTITI DALLA E SUBITO 08942000 +C SOPRA ETOP FINO ALLA E SUBITO SOTTO. 08943000 +C E' COMPLICATO. LASCIO QUALCHE E IN PIU'.MC2-2 FUNZIONA LO STESSO 08944000 +C 08945000 + DO 15 IE1=1,N2 08946000 + 15 A(LEINT+NEINT+IE1-1)=AD(LX+IE1-1) 08947000 + NEINT=NEINT+N2 08948000 +C ESAME DELLE LEGGI DI INTERPOLAZIONE ,CHE DEVONO ESSERE 08949000 +C COSTANTI SU TUTTO IL RANGE DELLE ENERGIE DI ARRIVO 08950000 +C ANZI SUPPONGO CHE SIANO COSTANTI! 08951000 +C 08952000 + IF(KT.EQ.-1)KT=JNT(1) 08953000 + DO 20 IKT=1,N1 08954000 + IF(JNT(IKT).EQ.KT) GO TO 100 08955000 + KT=2 08956000 +C CALL ERR(8H P2F6TB , 100) 08957000 + WRITE(NP,7000) MAT,MT 08958000 + WRITE(NO,7000) MAT,MT 08959000 + 7000 FORMAT(' WARNING! LINEAR INTERPOLATION IS ASSUMED IN TABULATED' 08960000 + 1 ,' DATA, MAT=',I5,' MT=',I4) 08961000 + 100 CONTINUE 08962000 + 20 CONTINUE 08963000 +C SE LE LEGGI DI INTERPOLAZIONE NON SONO COSTANTI SU 08964000 +C TUTTO IL RANGE DELLE ENERGIE DI ARRIVO, NON SI PUO 08965000 +C ASSEGNARE UNA LEGGE DI INTERPOLAZIONE PER F6, E NEPPURE 08966000 +C INTEGRARE IN DE F(E IN E') CON E' A DIVERSE LEGGI 08967000 +C DI INTERPOLAZIONE A SECONDA DI E 08968000 +C 08969000 +C SE LE TABULAZIONI NON SONO SEMPRE QUELLE 08970000 +C QUI SI DOVREBBE RIDURRE AD UNA TABULAZIONE CON UNICA LEGGE; 08971000 +C SI PROCEDEREBBE COSI': 08972000 +C LOOP SU INTERVALLI ; 08973000 +C SE E' DIVERSO AGGIUNGE PUNTI DI ENERGIA FINCHE' 2 PUNTI NON SONO08974000 +C CIRCA UGUALI CALCOLATI COLLE 2 DIVERSE INTERPOLAZIONI 08975000 +C I PUNTI AGGIUNTI VANNO MESSI IN A COGLI ALTRI,NON IN TAB1, OVE 08976000 +C NON SERVONO, VISTE COME SONO FATTE LE COSE DOPO 08977000 +C SU SCR 98 PER N2N 08978000 +C METTE IN DENS NUMERO 2+IE 08979000 + 101 CALL STORE(3,2+IE,LOF) 08980000 + IF(LOF.GT.0) CALL ERR(8HP2F6TB ,10) 08981000 + 10 CONTINUE 08982000 +C 08983000 +C RIBALTO LE E SU CUI INTERPOLA ED I RELATIVI CODICI DI 08984000 +C INTERPOLAZIONE PER AVERLE NELLO STESSO ORDINE DEI GRUPPI 08985000 + CALL RIBA(NE,A(LNE) ) 08986000 + CALL RIBA(NE,A(LNEKT)) 08987000 +C 08988000 +C RIORDINO ED ELIMINO LE E DI ARRIVO DOPPIE 08989000 + NEINT1=NEINT 08990000 + CALL ORDIND(1,1,NEINT,NEINT1,A(LEINT)) 08991000 +C 08992000 +C ORA A E' PIENO FINO AD A(LBG=LEINT+NEINT )2* NE VALORI+E: EINT 08993000 +C IN A(LBG+ ) METTE I VALORI DI SIGMA DEL GRUPPO (NEINT VALORI) 08994000 +C OCCUPATI FINO ALLE F INTEGRATI A GRUPPI 08995000 + LBG=LEINT+NEINT 08996000 +C 08997000 +C ELIMINO LE ENERGIE DI ARRIVO MAGGIORI DEL PRIMO GRUPPO 08998000 + CALL INFER(E(1),LIM,NEINT,A(LEINT)) 08999000 + IF(LIM.GT.1) LIM=LIM-1 09000000 + LEINT=LEINT+LIM-1 09001000 + NEINT=NEINT-LIM+1 09002000 +C SPOSTO L'INDIRIZZO DI EINT AL PRIMO ABBASTANZA PICCOLO DA 09003000 +C STARE SOTTO LA E DEL PRIMO GRUPPO 09004000 +C 09005000 +C FISSA LIMITI ENERGETICI E INTERVALLO INTERPOLAZIONE IN F(E,E') 09006000 +C GUARDA I VALORI DI E RELATIVI AL TAB2 09007000 +C 09008000 +C LOOK FOR THE FIRST ENERGY GROUP 09009000 + DO 50 I=2,NG 09010000 + IF(A(1).LT.E(I)) GO TO 50 09011000 + NGI=I-1 09012000 + GO TO 500 09013000 + 50 CONTINUE 09014000 + NGI=NG 09015000 +C LOOK FOR THE LAST ENERGY GROUP 09016000 + 500 NG1=NGI+1 09017000 + IF(NG1.LE.NG) GO TO 200 09018000 + GO TO 204 09019000 + 200 DO 55 I=NG1,NG 09020000 + IF(A(NE).LT.E(I)) GO TO 55 09021000 + NGF=I-1 09022000 + IF(A(NE).EQ.E(I)) NGF=I 09023000 + GO TO 205 09024000 + 55 CONTINUE 09025000 + 204 NGF=NG 09026000 + 205 CONTINUE 09027000 +C METTE IN RECS IL TAB1 DEI P(E) 09028000 + CALL FETCH(1,LOF) 09029000 + IF(LOF.GT.0) CALL ERR(8HP2F6TB ,205) 09030000 + IEX=1 09031000 +C FISSA VALORI DI E DI PARTENZA FRA CUI INTERPOLARE, 09032000 +C VALORI DI P CORRISPONDENTI E CODICI DI INTERPOLAZIONE IN 09033000 +C E PER F( E IN E' ) 09034000 +C 09035000 +C CERCA IL PRIMO INTERVALLO DI INTERPOLAZIONE 09036000 + CALL INFER(E(NGI),LIM,NE,A) 09037000 + IEX=LIM-1 09038000 + IF(IEX.LE.0) IEX=1 09039000 + IF(IEX.GE.NE) RETURN 09040000 +C 09041000 + EX1=A(IEX) 09042000 + EX2=A(IEX+1) 09043000 + KINT=NAREAL(A(LNEKT+IEX-1)) 09044000 +C RICAVA P(EX1) , P(EX2) 09045000 + CALL TERP2(EX1,PX1,1) 09046000 + CALL TERP2(EX2,PX2,1) 09047000 + DO 60 IG=NGI,NGF 09048000 + E1=E(IG) 09049000 + E2=E(IG+1) 09050000 + CALL RIEMP(0.,NEINT,A(LBG)) 09051000 + IF(E2.LT.EX2) GO TO 300 09052000 +C NORMALE INTEGRAZIONE CON ESTREMI DI INTERPOLAZIONE ESTERNI 09053000 +C AGLI ESTREMI DI INTEGRAZIONE 09054000 + CALL GRATTE(E1,E2,EX1,EX2,PX1,PX2,IEX,NE,KINT,NEINT, 09055000 + 1 A(LBG),A(LEINT) ) 09056000 + GO TO 600 09057000 + 300 CONTINUE 09058000 + IF(E1.LT.EX2) GO TO 310 09059000 +C ESTREMI DI INTERPOLAZIONE ENTRAMBI SOPRA TUTTI I GRUPPI 09060000 +C 09061000 +C IL PUNTO DI INTERPOLAZIONE FINISCE A META DEL GRUPPO. 09062000 +C INTEGRA SULLA PRIMA PARTE POI CAMBIA I LIMITI DI INTERPOLAZIONE 09063000 +C ED INTEGRA SULLA SECONDA PARTE, SE ESISTE(INTERP=INTEGR A DX) 09064000 + IF(IG.EQ.NGI.AND.IEX.EQ.1) GO TO 310 09065000 +C CASO DEL PRIMO GRUPPO CON IL SUO PRIMO PEZZO VUOTO 09066000 +C 09067000 + CALL GRATTE(E1,EX2,EX1,EX2,PX1,PX2,IEX,NE,KINT,NEINT, 09068000 + 1 A(LBG),A(LEINT) ) 09069000 +C NUMERI RECORDS) , NEX1,NEX2, POSIZIONI;EX1,EX2 ENERGIE;KINT CODIC09070000 +C DI INTERPOLAZIONE IN E 09071000 +C 09072000 + 310 IEX=IEX+1 09073000 +C SALTO I VALORI DOPPI CHE POSSONO ESISTERE NELLE TABULAZIONI 09074000 + IF(A(IEX).EQ.A(IEX+1)) IEX=IEX+1 09075000 + IF(IEX.GE.NE) GO TO 600 09076000 + EX1=EX2 09077000 + PX1=PX2 09078000 + KINT=NAREAL(A(LNEKT+IEX-1)) 09079000 + EX2=A(IEX+1) 09080000 + CALL TERP2(EX2,PX2,1) 09081000 + IF(E2.EQ.EX1) GO TO 600 09082000 + IF(E2.LT.EX2) GO TO 320 09083000 +C IN QUESTO CASO DEVO ANCORA INTEGRARE SU UN PEZZO DEL GRUPPO 09084000 + CALL GRATTE(EX1,E2,EX1,EX2,PX1,PX2,IEX,NE,KINT,NEINT, 09085000 + 1 A(LBG),A(LEINT) ) 09086000 + GO TO 600 09087000 + 320 CONTINUE 09088000 +C QUI SE TUTTO IL RANGE DI INTERPOLAZIONE E' COMPRESO 09089000 +C NEL GRUPPO , ALLORA INTEGRO IL RANGE E VADO AVANTI 09090000 +C NELLO STESSO GRUPPO 09091000 + CALL GRATTE(EX1,EX2,EX1,EX2,PX1,PX2,IEX,NE,KINT,NEINT, 09092000 + 1 A(LBG),A(LEINT) ) 09093000 + GO TO 310 09094000 +C 09095000 + 600 CONTINUE 09096000 +C SCRITTURA TABULAZIONI SU NTOUT( PER IL GRUPPO IN QUESTIONE) 09097000 +C DIVIDE I DATI PER L'INTERVALLO ENERGETICO (SONO MEDIE) 09098000 + DE=E1-E2 09099000 + DO 70 J=1,NEINT 09100000 + 70 A(LBG+J-1)=A(LBG+J-1)/DE 09101000 + NTBG(IG,2+N2NEL)=KT 09102000 +C KT DEVE ESSERE EGUALE DA PER TUTTO . ALTRIMENTI ANDREBBE 09103000 +C PRODOTTO DA GRATTE ( CHE LO HA TRAMITE IPDS ) PER OGNI ENERG09104000 +C DI PARTENZA E NEI CASI IN CUI LE DUE ENERGIE DI 09105000 +C PARTENZA LO HANNO DIVERSO COME CI SI ARRANGIA? 09106000 +C 09107000 + WRITE(NTO)(A(LBG+J-1),J=1,NEINT) 09108000 + 60 CONTINUE 09109000 +C CONSERVA LE ENERGIE DI INTERPOLAZIONE EINT 09110000 +C LL ED LN SONO I L POSTO IN A IN CUI SONO LE ENERGIE PER ANEL ED N09111000 + IF(NEINT.GT.NG) CALL ERR(8HP2F6TB ,50) 09112000 + CALL TRASF(NEINT,A(LEINT),A(1)) 09113000 + IF(N2NEL.EQ.1) NEINTL=NEINT 09114000 + IF(N2NEL.EQ.2) NEINTN=NEINT 09115000 + IF(N2NEL.EQ.1) LL=LMA 09116000 + IF(N2NEL.EQ.2) LN=LMA 09117000 + LMA=LMA+NEINT 09118000 + RETURN 09119000 + END 09120000 + SUBROUTINE P2MCF7(MA,A,M1,M2,MIX,MKB1,INDIND,MKB,INDMIX,NG,E) 09121000 +C *********************************************************** 09122000 +C 09123000 +C FISSION SPECTRUM DATA FOR FILE MCC2F7 09124000 +C A(MA)=SCR SPACE 09125000 +C MIX(M1,M2)=MIX DELL F7 09126000 +C INDMIX(3,MKB)= INDICE DI MIX : 1,2,3= VALORE,INIZIO,DURATA 09127000 +C MIX E' ORDINATA PER FN 09128000 +C INDIND(3,MKB1)=INDICE DI IND :1-2,3,4=VALORE(REAL*8),INIZIO,DURAT09129000 +C IND E' ORDINATA PER MAT 09130000 +C 09131000 +C ******************************************************************09132000 +C 09133000 + DATA ZERO,UNO/0.,1./ 09134000 + DIMENSION A(MA),MIX(M1,M2),INDIND(4,MKB1),INDMIX(3,MKB),E(NG) 09135000 + COMMON /INDX/AINDX(40,200) 09136000 + COMMON /INDX1/AINDX1(40,200) 09137000 + COMMON /FILES/ NT(4,99) 09138000 + COMMON /DIM/ MMIX,MIND,MNX2,IND2 09139000 + EQUIVALENCE(NO,NT(1,6)),(NP,NT(1,11)),(NP12,NT(1,12)) 09140000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200), 09141000 + 1 JNT(200),N1X,N2X,NS,LX,LY,LB 09142000 + COMMON MAXA,AD( 4000) 09143000 + COMMON/OPZIO/ OPZ(4,8,10) 09144000 + EQUIVALENCE (OPZ(2,7,1),STMP),(COST,OPZ(2,7,2)) 09145000 + EQUIVALENCE (OPZ(2,7,3),EUNO),(OPZ(2,7,4),EDUE) 09146000 +C 09147000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 09148000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 09149000 +C 09150000 + WRITE(NP12,7000)((MIX(J,JJ),J=1,M1),JJ=1,M2) 09151000 + 7000 FORMAT(' P2MCF7 ENTERED. INPUT TABLE TO BE EXECUTED:'/ 09152000 + 1 (1X,2A4,1X,2A4,8I4,3E12.5)) 09153000 +C 09154000 +C IN A HO : 09155000 +C A(1) 09156000 +C ALFA ( O P DI WATT) 09157000 +C A(NG+1) 09158000 +C BETA ( A A DI WATT) 09159000 +C A(2*NG+1) 09160000 +C TAU ( O C DI WATT) 09161000 +C A(3*NG+1) 09162000 + LE=3*NG+1 09163000 +C E RIBALTATE PER ESSERE USATE DA TERP2,GRATE 09164000 +C A(4*NG+1) 09165000 + LIMIT=4*NG 09166000 + IF(LIMIT.GT.MA) CALL ERR(8HP2MCF7 , 15) 09167000 + DO 20 I=1,NG 09168000 + 20 A(3*NG+I)=E(NG-I+1) 09169000 +C HO RIBALTATO LE E PER USARLE MEGLIO IN TERP2 09170000 +C 09171000 +C ........................LOOP SULL INDICE 09172000 +C RICERCA SE GLI ELEMENTI DI IND SONO IN MIX ( DA TRATTARE) 09173000 + DO 10 IS=1,MKB1 09174000 + N1S=INDIND(3,IS) 09175000 + N2S=INDIND(4,IS) 09176000 + N3S=N1S+N2S-1 09177000 +C 09178000 +C CERCA L ISOTOPO DELLA MIX 09179000 + NMT=NCERC1(MINDX1,IND,AINDX,M1,M2,MIX,N1S,35,3,1) 09180000 +C NON HA TROVATO MATERIALE NELLA MIX 09181000 + IF(NMT.LE.0.) GO TO 100 09182000 +C 09183000 +C ...................LOOP SU INDICE DEL MATERIALE 09184000 + DO 15 IR=N1S,N3S 09185000 +C CERCA SE IL MATERIALE E DESTINATO AD F7 ED E SPETTRO DI FISSIONE 09186000 + IF(AINDX(3,IR).NE.18.) GOTO 150 09187000 + IF(AINDX(30,IR).NE.7.) GO TO 150 09188000 + IF(AINDX(12,IR).NE.7..AND.AINDX(12,IR).NE.9..AND.AINDX(12,IR).NE. 09189000 + 1 11.) CALL ERR(8HP2MCF7 ,170) 09190000 + L79=0 09191000 + IF(AINDX(12,IR).EQ.7.) L79=1 09192000 + IF(AINDX(12,IR).EQ.9.) L79=2 09193000 + IF(AINDX(12,IR).EQ.11.) L79=1 09194000 +C L79 E' L'INDIRIZZO IN A DI BETA E TAU,TEMPERATURA PER RAPPR 7 O 09195000 + LL79=L79*NG+1 09196000 + IF(L79.LE.0) GO TO 150 09197000 +C 09198000 + COST1=COST 09199000 + IF(NMT.LE.M2) COST1=MIX(12,NMT) 09200000 +C COST1 =OPZIONE PER IL FORCED E INDEPENDENT CHI 09201000 +C ENERGY LIMITS FOR FORCED E ENDEPENDENT CHI 09202000 + E111=E(NG) 09203000 + E222=E(1) 09204000 + IF(EUNO.LE.0.OR.EDUE.LE.0.) GO TO 170 09205000 + E111=EUNO 09206000 + E222=EDUE 09207000 + 170 IF(NMT.GT.M2) GO TO 180 09208000 + E11=AREAL(MIX(13,NMT)) 09209000 + E22=AREAL(MIX(14,NMT)) 09210000 + IF(E11.LE.0..OR.E22.LE.0.) GO TO 180 09211000 + E111=E11 09212000 + E222=E22 09213000 + 180 CONTINUE 09214000 +C 09215000 + T=AINDX(37,IR) 09216000 +C 09217000 +C DEFINIZIONE TAPE DI OUTPUT 09218000 + NTOUT=0 09219000 + IF(NMT.LE.M2.AND.NMT.GT.0) NTOUT=MIX(5,NMT) 09220000 + 171 IF(NTOUT.LE.0) NTOUT=37 09221000 + NTO=NT(1,NTOUT) 09222000 + CALL POSL(NTOUT) 09223000 +C DEF TAPE DI INPUT 09224000 + NTIN=AINDX(23,IR) 09225000 + NTI=NT(1,NTIN) 09226000 + NPOST=AINDX(25,IR) 09227000 + CALL POST(NTIN,NPOST) 09228000 +C 09229000 +C FISSION SPECTRUM LF=7 OPPURE LF=9 ( WATT) SONO LE LEGGI AMMESSE D09230000 +C MC2-2 09231000 +C IN PIU' C'E' WATT E DEPENDENT (LF=11) COME USATO NON E' CHIARO 09232000 +C 09233000 +C 09234000 + ANREC=0. 09235000 +C 09236000 +C L'OPZIONE DI CHI VECTOR NON E' ACCETTATA DA MC2-2 09237000 +C CONTRARIAMENTE A QUANTO PARREBBE DALLA DESCRIZIONE DI MCC2F7 09238000 +C DEI MANUALI 09239000 + COST1=0. 09240000 + IF(COST1.LE.0.) GO TO 300 09241000 +C -------------INTERPOLATION AND CHI VECTOR 09242000 + WRITE(NP,9010) AINDX(35,IR),AINDX(36,IR) 09243000 + 9010 FORMAT(1X,2A4,' CHI VECTOR OPTION USED') 09244000 +C 09245000 +C LEGGO P(E) (TAB1) 09246000 + CALL RREC(3,NTI,3,T) 09247000 + ANREC=ANREC+1+N1/3+N2/3+NREST(N1,3)+NREST(N2,3) 09248000 + CALL DTERP2(A(LE),A(1),NG,AD(LX),AD(LY),AD(LB)) 09249000 +C LETTO THETA(E) (TAB1) 09250000 + CALL RREC(3,NTI,3,T) 09251000 + ANREC=ANREC+1+N1/3+N2/3+NREST(N1,3)+NREST(N2,3) 09252000 + CALL DTERP2(A(LE),A(LL79),NG,AD(LX),AD(LY),AD(LB)) 09253000 +C 09254000 + IF(AINDX(12,IR).NE.11.) GO TO 250 09255000 +C LEGGE ED INTERPOLA IL TERZO RECORD TAB1 (PER WATT SPECTRUM)(L79=109256000 + LL80=(L79+1)*NG+1 09257000 + CALL RREC(3,NTI,3,T) 09258000 + ANREC=ANREC+1+N1/3+N2/3+NREST(N1,3)+NREST(N2,3) 09259000 + CALL DTERP2(A(LE),A(LL80),NG,AD(LX),AD(LY),AD(LB)) 09260000 +C 09261000 + 250 NGFIN=NG 09262000 + GO TO 500 09263000 +C 09264000 + 300 CONTINUE 09265000 +C ---------------MEDIA E CHI FATTO SCALARE 09266000 + WRITE(NP,9020) AINDX(35,IR),AINDX(36,IR),E111,E222 09267000 + 9020 FORMAT(1X,2A4,' CHI MEDIATED BETWEEN ENERGY LIMITS:',2E12.5) 09268000 +C 09269000 +C LEGGO P(E) (TAB1) 09270000 + CALL RREC(3,NTI,3,T) 09271000 + ANREC=ANREC+1+N1/3+N2/3+NREST(N1,3)+NREST(N2,3) 09272000 + CALL GRATE(E111,E222,ANS) 09273000 + A(1)=ANS/(E222-E111) 09274000 +C LETTO THETA(E) (TAB1) 09275000 + CALL RREC(3,NTI,3,T) 09276000 + ANREC=ANREC+1+N1/3+N2/3+NREST(N1,3)+NREST(N2,3) 09277000 + CALL GRATE(E111,E222,ANS) 09278000 + A(L79*NG+1)=ANS/(E222-E111) 09279000 +C 09280000 + IF(AINDX(12,IR).NE.11.)GO TO 260 09281000 +C LEGGE E MEDIA IL TERZO TAB1 PER WATT SPECTRUM 09282000 + CALL RREC(3,NTI,3,T) 09283000 + ANREC=ANREC+1+N1/3+N2/3+NREST(N1,3)+NREST(N2,3) 09284000 + CALL GRATE(E111,E222,ANS) 09285000 + A((L79+1)*NG+1)=ANS/(E222-E111) 09286000 +C 09287000 + 260 NGFIN=1 09288000 + 500 CONTINUE 09289000 +C 09290000 + NT(4,NTIN)=NT(4,NTIN)+ANREC 09291000 +C 09292000 + IF(AINDX(12,IR).EQ.11.)GO TO 400 09293000 + CALL RIEMP(1.,NGFIN,A((3-L79)*NG+1)) 09294000 + IF(L79.EQ.2) GO TO 400 09295000 + DO 40 I=1,NGFIN 09296000 + 40 A(I)=1.-A(I) 09297000 + 400 CONTINUE 09298000 +C 09299000 +C ------------------------------SCRIVE 09300000 +C 09301000 +C VIENE SCRITTO ANCHE UNO SPETTRO DI WATT NON MEGLIO IDENTIFICATO 09302000 +C CHE MCC2 LEGGE , MA E' SEMPRE NULLO E NON E' PREVISTO NEL MANUAL09303000 +C DI MC2-2 09304000 +C IN JEF ESISTONO NUCLIDI CON SPETTRO DI WATT QUINDI LO METTO. 09305000 + IF(NMT.LE.M2) GO TO 410 09306000 + NOM=NAREAL(AINDX(35,IR)) 09307000 + NOM1=NAREAL(AINDX(36,IR)) 09308000 + NOM2=NAREAL(AINDX(35,IR)) 09309000 + NOM3=NAREAL(AINDX(36,IR)) 09310000 + GO TO 420 09311000 + 410 NOM=MIX(3,NMT) 09312000 + NOM1=MIX(4,NMT) 09313000 + NOM2=MIX(1,NMT) 09314000 + NOM3=MIX(2,NMT) 09315000 + 420 CONTINUE 09316000 +C WRITE(NTO) NOM2,NOM3,MAT,MF,MT 09317000 +C WRITE(NTO) NGFIN 09318000 + IF(AINDX(12,IR).NE.11.) GO TO 430 09319000 +C SARANNO GIUSTI I PARAMETRI ? 09320000 + WRITE(NTO)(ZERO,ZERO,ZERO,J=1,NGFIN), 09321000 + 1 (A(NGFIN-J+1),J=1,NGFIN),(A(NG+NGFIN-J+1),J=1,NGFIN), 09322000 + 2 (A(2*NG+NGFIN-J+1),J=1,NGFIN) 09323000 + GO TO 440 09324000 + 430 WRITE(NTO)(A(NG+NGFIN-J+1),J=1,NGFIN), 09325000 + 1(A(NGFIN-J+1),J=1,NGFIN),(A(2*NG+NGFIN-J+1),J=1,NGFIN), 09326000 + 2 (ZERO,J=1,NGFIN),(UNO,UNO,J=1,NGFIN) 09327000 + 440 IF(STMP.LT.50) GO TO 600 09328000 + WRITE(NO,1000) NOM2,NOM3,MAT,MF,MT 09329000 + 1000 FORMAT(' MATERIAL: ',2A4,' MAT:',I5,' MF:',I5,' MT:',I5) 09330000 + WRITE(NO,2000) NGFIN,AINDX(12,IR) 09331000 + 2000 FORMAT(' NUMBER OF CHI VALUES:',I5,' SPECTRUM FLAG:',I5) 09332000 + IF(AINDX(12,IR).NE.11.) GO TO 605 09333000 + WRITE(NO,3005) (J,A(NGFIN-J+1),A(NG+NGFIN-J+1),A(2*NG+NGFIN-J+1),09334000 + 1 J=1,NGFIN) 09335000 + 3005 FORMAT(' GROUP , A (WATT) , B (WATT) , C (WATT)'/1X, 09336000 + 1 (1X,I5,5X,3E12.5)) 09337000 + GO TO 600 09338000 + 605 WRITE(NO,3000) (J,A(NG+NGFIN-J+1),A(NGFIN-J+1),A(2*NG+NGFIN-J+1),09339000 + 1 J=1,NGFIN) 09340000 + 3000 FORMAT(' GROUP , BETA , ALFA , TAU '/1X, 09341000 + 1 (1X,I5,5X,3E12.5)) 09342000 + 600 CONTINUE 09343000 +C 09344000 + IND2=IND2+1 09345000 + IF(IND2.GT.MIND12) CALL ERR(8HP2MCF7 ,600) 09346000 + CALL EMPIN(MIND11,AINDX1(1,IND2), 09347000 + 1AINDX(1,IR),AINDX(2,IR),AINDX(3,IR), 09348000 + 2AINDX(4,IR),AINDX(5,IR),NOM,NOM1,NOM2,NOM3,0., 09349000 + 37.,1.,0.,FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(4,NTOUT)),3., 09350000 + 4FLOAT(NGFIN),0.,OPZ(2,5,4),OPZ(2,5,3),OPZ(2,5,4),AINDX(10,IR), 09351000 + 5AINDX(12,IR),AINDX(13,IR),AINDX(8,IR),0.,0.,0.,COST1,E111,E222, 09352000 + 60.,0.,0.,0.,0.,0.,0.,0.) 09353000 +C 09354000 + NT(4,NTOUT)=NT(4,NTOUT)+1 09355000 + NT(3,NTOUT)=NT(4,NTOUT) 09356000 +C 09357000 + 150 CONTINUE 09358000 + 15 CONTINUE 09359000 + 100 CONTINUE 09360000 + 10 CONTINUE 09361000 +C 09362000 + RETURN 09363000 + END 09364000 + SUBROUTINE P2MCF8(MA,A,M1,M2,MIX,KB1,INDIND,KB,INDMIX,NG,E) 09365000 +C *********************************************************** 09366000 +C 09367000 +C ANGULAR DISTRIBUTION FOR ELASTIC SCATTERING (FOR MCC2F8 FILE) 09368000 +C 09369000 +C *********************************************************** 09370000 +C 09371000 +C 09372000 +C IN A SPAZIO SCRATCH 09373000 +C IN MIX LA MIXING DELL F3 09374000 +C IN INDMIX INDICE DI MIX 09375000 +C (1 ) = VALORE 09376000 +C (2 ) = INIZIO VALORE 09377000 +C (3 ) = DIMENSIONI VALORE 09378000 +C IN INDIND INDICE DI IND 09379000 +C (1,2 = VALORE ( REAL*8) 09380000 +C (3 = INIZIO 09381000 +C (4 = DIMENSIONI 09382000 +C 09383000 +C 09384000 +C 09385000 +C ********************************************** 09386000 +C 09387000 + DIMENSION A(MA),MIX(M1,M2),E(NG) 09388000 + DIMENSION INDMIX(3,KB),INDIND(4,KB1) 09389000 + COMMON /INDX1/AINDX1(40,200) 09390000 + COMMON /INDX/AINDX(40,200) 09391000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 09392000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 09393000 + COMMON/DIM/M(5) 09394000 + EQUIVALENCE (M(2),IND) 09395000 + COMMON/OPZIO/ OPZ(4,8,10) 09396000 + EQUIVALENCE (OPZ(2,8,1),STMP),(NP12,NT(1,12)) 09397000 + COMMON/FILES/NT(4,99) 09398000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 09399000 + WRITE(NP12,7000)((MIX(J,JJ),J=1,M1),JJ=1,M2) 09400000 + 7000 FORMAT(' P2MCF8 ENTERED. INPUT TABLE TO BE EXECUTED:'/ 09401000 + 1 (1X,2A4,1X,2A4,8I4,3E12.5)) 09402000 +C 09403000 + MANY1=OPZ(2,8,2) 09404000 +C LOOP SUI MATERIALI DELL ' INDICE 09405000 +C QUI IL LOOP E' STRUTTURATO COME F6, CORRE SUI MATERIALI E 09406000 +C POI GUARDA PER OGNI MATERIALE LE SUE SCHEDE DI INDICE 09407000 +C ALTRIMENTI ESISTE L'ALTRA POSSIBILITA' DI FARLO CORRERE 09408000 +C SULL'INDICE DIRETTAMENTE,SCARTANDO POI I RECORDS DI INDICE 09409000 +C CHE NON SERVONO 09410000 +C 09411000 + DO 10 IS=1,KB1 09412000 + N1=INDIND(3,IS) 09413000 + N2=INDIND(4,IS) 09414000 + N3=N1+N2-1 09415000 +C CERCA L'ISOTOPO IN MIX (NMT E' LA POSIZIONE IN MIX) 09416000 + NMT=NCERC1(MINDX1,IND,AINDX,M1,M2,MIX,N1,35,3,1) 09417000 + IF(NMT.LE.0) GO TO 100 09418000 + WRITE(NP,9010) AINDX(35,N1),AINDX(36,N1) 09419000 + 9010 FORMAT(1X,2A4,' SUB.P2MCF8: ANGULAR SCATTERING') 09420000 + IF(STMP.GT.0) WRITE(NO,1000) AINDX(35,N1),AINDX(36,N1) 09421000 + 1000 FORMAT(//2A4,5X,' ANGULAR SCATTERING DATA'/) 09422000 +C 09423000 +C LOOP SU PARTE DI INDICE RELATIVA AL MATERIALE 09424000 + DO 20 IR=N1,N3 09425000 +C SCARTA I RECORDS NON DI F8 09426000 + IF(AINDX(30,IR).NE.8.) GO TO 200 09427000 +C LI=1 : ISOTROPO 09428000 + LI=AINDX(12,IR) 09429000 + IF(LI.EQ.1) GO TO 200 09430000 +C CERCA CHE TIPO DI DATO E' 09431000 + LTT=AINDX(11,IR) 09432000 + IF(LTT.NE.1) GO TO 300 09433000 +C E' ESPRESSA IN TERMINI DI FUNZIONI DI LEGENDRE 09434000 +C 09435000 +C SPAZIO PER MATRICI VARIE 09436000 +C 09437000 +C NUMERO RANGES DI INTERPOLAZIONE ( LO ZERO E' COMPRESO) 09438000 + 110 NR=AINDX(16,IR) 09439000 +C NUMERO MAX DI PL 09440000 + IPTMAX=AINDX(18,IR) 09441000 + IF(LTT.EQ.2) IPTMAX=OPZ(2,8,3) 09442000 + IF(IPTMAX.LE.0) IPTMAX=20 09443000 +C NM E' IL NUMERO DI PL DELLA MATRICE V 09444000 + NM=AINDX(15,IR) 09445000 +C NUMERO DI ENERGIE 09446000 + NE=AINDX(17,IR) 09447000 +C LUNGHEZZA MATRICE DI TRASFORMAZIONE 09448000 + NK=AINDX(14,IR) 09449000 +C NUMERO MAX DI PASSI (SPAZIO DI 1 GRUPPO/GRUPPI DI 1 PASSO) 09450000 + NPSMX=NG/MANY1+1 09451000 +C 09452000 + L1=1 09453000 +C ER(NE) ENERGIE DI LEGENDRE 09454000 + L2=L1+NE 09455000 +C KT(NR) LEGGI DI INTERPOLAZIONE (ENDFB) 09456000 + L3=L2+NR 09457000 +C KT1(NR) LEGGI DI INTERPOLAZIONE (MC2-2) 09458000 + L4=L3+NR 09459000 +C NGR(IR) GRUPPI ESTREMI DI INTERPOLAZIONE 09460000 + L5=L4+NR 09461000 +C F(IPTMAX,MANY1) COEFF DI LEGENDRE(PER MANY1 E) 09462000 + L6=L5+MANY1*IPTMAX 09463000 +C MATRICE V (NK) =V(NM+1,NM+1)(SAREBBE NM NON IPTMAX) 09464000 + L7=L6+NK 09465000 +C NUMERO PL PER OGNI ENERGIA NPLE(NE) 09466000 + L8=L7+NE 09467000 +C LEUFLE(NG): NUMERO ENERGIA DI TABULAZIONE PER OGNI GRUPPO09468000 + L9=L8+NG 09469000 +C IPT(NPASS) :NUM COEFF DI LEGENDRE PER OGNI PASSO 09470000 + L10=L9+NPSMX 09471000 +C 09472000 + LIMIT=L10 09473000 + IF(LIMIT.GT.MA) CALL ERR(8HP2MCF8 ,1) 09474000 + CALL P2F8LG(M1,M2,MIX,NMT,IR,NE,NG,E,A(L1),NR,A(L2),A(L3),A(L4), 09475000 + 1 IPTMAX,MANY1,A(L5),A(L6),A(L7),A(L8),NPSMX, 09476000 + 2 A(L9),MA-LIMIT,A(L10)) 09477000 +C 09478000 + GO TO 200 09479000 + 300 CONTINUE 09480000 +C TABULATE DA TRASFORMARE IN LEGENDRE 09481000 + IF(LTT.EQ.2) GO TO 110 09482000 +C LO FA P2F8LG SUPPONENDO CHE I DATI SIANO INTERPOLABILI 09483000 +C LINEARMENTE IN MI 09484000 + CALL ERR(8HP2MCF8IN ,300) 09485000 + 200 CONTINUE 09486000 + 20 CONTINUE 09487000 +C FINE LOOP SU SCHEDE DELL'ISOTOPO ................... 09488000 + 100 CONTINUE 09489000 + 10 CONTINUE 09490000 +C FINE LOOP SU ISOTOPI (SULL'INDICE NELL'ORDINE) 09491000 + RETURN 09492000 + END 09493000 + SUBROUTINE P2F8LG(M1,M2,MIX,NMT,IR,NE,NG,E,ER,NR,KT,KT1,NGR, 09494000 + 1 IPTMAX,MANY1,F,V,NPL,LEUFLE,NPSMX,IPT,MA,A) 09495000 +C ************************************************************* 09496000 +C 09497000 +C ANGULAR DISTRIBUTION FOR ELASTIC SCATTERING (CONTINUATION OF 09498000 +C P2MCF8 ROUTINE ) 09499000 +C 09500000 +C MIX(M1,M2)= TABELLA DI INPUT DELL'ISOTOPO 09501000 +C NMT= NUMERO DELLA MIX DELL'ISOTOPO 09502000 +C IR = NUMERO DELLA REGISTRAZIONE DELL'INDICE 09503000 +C NE = NUMERO DELLE ENERGIE TABULATE 09504000 +C NG = NUMERO GRUPPI 09505000 +C NR = NUMERO DEI RANGE DI INTERPOLAZIONE 09506000 +C E(NG)=ENERGIE SUP DEI GRUPPI 09507000 +C ER(NR)=ENERGIE DI INTERPOLAZIONE 09508000 +C KT(NR)=LEGGI DI INTERPOLAZIONE DI ENDFB 09509000 +C KT1(NR)=LEGGI DI INTERPOLAZIONE DI MC2-2 09510000 +C NGR(NR)=GRUPPO CUI SI APPLICA UNA LEGGE DI INTERPOLAZIONE 09511000 +C F(IPTMAX,MANY1)=COEFFICIENTI DI LEGENDRE 09512000 +C V(IPTMAX,MANY1)=MATRICE DI TRASFORMAZIONE AL C.M. 09513000 +C NPL(NE)= NUMERO DI PL PER OGNI ER 09514000 +C LEUFLE(NE)= ENERGIA DI TABULAZIONE PER OGNI GRUPPO 09515000 +C IPT(NSPMX)=NUMERO PL PER OGNI PASSO 09516000 +C 09517000 +C 09518000 +C *************************************************************** 09519000 + DIMENSION KT(NR),NGR(NR),E(NG),F(IPTMAX,MANY1),V(IPTMAX,IPTMAX) 09520000 + DIMENSION A(MA),NPL(NE),IPT(NPSMX),ER(NE),LEUFLE(NG),MIX(M1,M2) 09521000 + DIMENSION KT1(NR) 09522000 + COMMON /INDX/AINDX(40,200) 09523000 + COMMON /INDX1/AINDX1(40,200) 09524000 + COMMON /DIM/ MX1,IND,MX2,IND2 09525000 + COMMON /OPZIO/OPZ(4,8,10) 09526000 + EQUIVALENCE (OPZ(2,8,1),STMP),(EUP,OPZ(2,5,2)),(DELU,OPZ(2,5,3)) 09527000 + EQUIVALENCE (OPZ(2,8,3),PLMX) 09528000 + COMMON /FILES/NT(4,99) 09529000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)) 09530000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 09531000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 09532000 +C 09533000 + COMMON/DENS/JMT,JAT,JTT,JLT,LA,JNS,MNS,JX,MX 09534000 + COMMON MAXA,AD(1) 09535000 +C 09536000 +C 09537000 + COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 09538000 + 1N1X,N2X,NS,LX,LY,LB 09539000 +C 09540000 +C STIMA DEL MAX NUMERO PL PER TABULATI IN LEGENDRE 09541000 +C ( IN QUESTO CASO IPTMAX E' OPZ(2,8,3) OPPURE 20) 09542000 +C 09543000 + IPMX=IPTMAX 09544000 + IF(PLMX.GT.0) IPMX=PLMX 09545000 + IF(IPMX.LE.0) IPMX=1 09546000 +C 09547000 +C TEMPERATURA 09548000 + T=AINDX(37,IR) 09549000 + IF(MA.LT.IPTMAX) CALL ERR(8HP2F8LG ,0) 09550000 +C 09551000 +C 09552000 +C LCT : 1=LAB,2=C.M. 09553000 + LCT=AINDX(13,IR) 09554000 +C LVT=1=DATA MATRICE V 09555000 + LVT=AINDX(10,IR) 09556000 +C LTT : 1=LEGENDRE,2=TABULATE 09557000 + LTT=AINDX(11,IR) 09558000 +C 09559000 + IF(LTT.EQ.2) CALL COEGEN(IPMX,A(1)) 09560000 +C GENERA COEFF DELLE FORMULE DI RODRIGUEZ PER I POL DI LEGENDRE 09561000 +C 09562000 +C 09563000 +C TAPE DI INPUT 09564000 + NTIN=AINDX(23,IR) 09565000 + NTI=NT(1,NTIN) 09566000 + NPOST=AINDX(25,IR) 09567000 + CALL POST(NTIN,NPOST) 09568000 +C PULISCE DENS 09569000 + CALL DYDELE(AD(JMT),AD(JAT),AD(JTT),AD(JLT),AD(LA),0) 09570000 +C LETTURA : LEGGE HEAD 09571000 + CALL RREC(1,NTI,3,T) 09572000 + NT(4,NTIN)=NT(4,NTIN)+1 09573000 +C 09574000 + IF(LVT.NE.L1.OR.LTT.NE.L2) CALL ERR(8HP2F8LG ,1) 09575000 + IF(LVT.NE.0) GO TO 100 09576000 +C CONT ( NON C'E' LA MATRICE V ) 09577000 + CALL RREC(1,NTI,3,T) 09578000 + NT(4,NTIN)=NT(4,NTIN)+1 09579000 + GO TO 200 09580000 + 100 CONTINUE 09581000 +C LIST RECORD CON MATRICE V 09582000 + CALL RREC(2,NTI,3,T) 09583000 + NT(4,NTIN)=NT(4,NTIN)+1+N1/6+NREST(N1,6) 09584000 +C NM=N2 09585000 +C METTE IN V LA MATRICE LETTA DA REC 09586000 +C DO 10 I=1,NM+1 09587000 +C DO 10 J=1,NM+1 09588000 +C V(J,I)=AD(LB-1+IPTMAX*(I-1)+J) 09589000 +C10 CONTINUE 09590000 + 200 CONTINUE 09591000 +C LEGGE TAB2 COLLA TABULAZIONE DELLE ENERGIE 09592000 + CALL RREC(4,NTI,3,T) 09593000 + NT(4,NTIN)=NT(4,NTIN)+1+N1/3+NREST(N1,3) 09594000 +C LI RICORDO PER STABILIRE IL PUNTO SOTTO CUI E' ISOTROPO 09595000 + KT11=JNT(1) 09596000 + NBT11=NBT(1) 09597000 +C LO METTE IN DENS ,COL NUMERO 1 09598000 + CALL STORE(4,1,LOF) 09599000 + IF(LOF.GE.1) CALL ERR(8HP2F8LG ,100) 09600000 + NERIS=0 09601000 + DO 20 IE=1,NE 09602000 + IF(LTT.NE.2) GO TO 210 09603000 +C LEGGE I TAB1 COLLE TABULAZIONI 09604000 + CALL RREC(3,NTI,3,T) 09605000 + NT(4,NTIN)=NT(4,NTIN)+1+NREST(N1,3)+N1/3+NREST(N2,3)+N2/3 09606000 +C 09607000 +C TRASFORMA IL TAB1 LETTO IN UN LIST COLLE PL 09608000 +C QUESTO PROCEDIMENTO E' POSSIBILE SOLO SE LA 09609000 +C TABULAZIONE E' LINEARE IN MI, ALTRIMENTI NON 09610000 +C SI PUO' PRIMA FARE INTEGRALI E PL IL MU E POI 09611000 +C INTEGRARE IN E. OCCORRE FARE IL CONTRARIO (SEMPRE 09612000 +C CHE IN E SIA LINEARE ) 09613000 +C 09614000 +C 09615000 + LBB=IPMX*IPMX*2+1 09616000 +C PUNTATORE A SPAZIO PER COEFF LEGENDRE REAL*8 09617000 + IF(MA.LT.LBB+IPMX*2) CALL ERR(8HP2F8LG ,210) 09618000 + CALL TABPL(N2X,AD(LX),AD(LY),AD(LB),A(LBB),IPMX,A(1)) 09619000 + GO TO 220 09620000 +C 09621000 +C LEGGE I RECORDS LIST COLLE PL PER OGNI ENERGIA DI TABULAZIONE 09622000 + 210 CALL RREC(2,NTI,3,T) 09623000 + NT(4,NTIN)=NT(4,NTIN)+1+NREST(N1,6)+N1/6 09624000 + 220 NPL(IE)=N1 09625000 + ER(IE)=C2 09626000 +C CERCA SE A QUESTA E E' ISOTROPO 09627000 +C (BASTAVA POI PRENDERE IL PUNTO 2 CHE I PRIMI DUE PUNTI 09628000 +C FISSANO IN GENERE IN ENDFB LA ZONA ISOTROPA) 09629000 + IF(NERIS.NE.0) GO TO 260 09630000 +C NERIS .NE. 0 SE HA TROVATO GIA UNA E NON ISOTROPA 09631000 + DO 25 IPIS=1,N1 09632000 + IF(AD(LB+IPIS-1).NE.0.) GO TO 250 09633000 + 25 CONTINUE 09634000 +C E' ISOTROPO:HA PL NULLE:NON ASSEGNO NERIS CHE RESTA ZERO 09635000 + GO TO 260 09636000 +C AL PRIMO NON ISOTROPO ASSEGNO NERIS 09637000 + 250 NERIS=IE-1 09638000 + IF(NBT11.GE.IE.AND.KT11.EQ.1) NERIS=IE 09639000 +C PER INTERP COST UN PUNTO 0. SEGNALA ISOTROPIA FINO ALLA PRIMA E 09640000 +C CON COEFF NON NULLI.INDI E' QUI E NON NEL PREC CHE ARRIVA ISOTROP09641000 + IF(NERIS.LE.0) NERIS=1 09642000 + 260 CONTINUE 09643000 +C 09644000 +C IN DENS CON NUMERI PROGRESSIVI 09645000 + CALL STORE(2,1+IE,LOF) 09646000 + IF(LOF.GE.1) CALL ERR(8HP2F8LG ,260) 09647000 + 20 CONTINUE 09648000 +C 09649000 +C CREO KT(IR) ED NGR(IR) 09650000 +C METTO IL TAB2 IN RECS 09651000 + CALL FETCH(1,LOF) 09652000 + IF(LOF.NE.0) CALL ERR(8HP2F8LG ,20) 09653000 + IF(NR.NE.N1) CALL ERR(8HP2F8LG ,21) 09654000 + NR=N1 09655000 + NE1=1 09656000 + DO 30 I=1,NR 09657000 + KT(I)=JNT(NR-I+1) 09658000 +C CORRE SULLE ENERGIE UFG ANDANDO IN GIU A CERCARE LA ENERGIA 09659000 +C E SOTTO LA ER(NBT(I)) CUI INIZIA LA TABULAZIONE JNT 09660000 + IF(NE1.GT.NG) GO TO 300 09661000 + INBT=NBT(NR-I+1) 09662000 + DO 40 IE=NE1,NG 09663000 + IF(ER(INBT).GT.E(IE)) GO TO 400 09664000 + 40 CONTINUE 09665000 + IE=NG 09666000 + 400 CONTINUE 09667000 + NGR(I)=IE-1 09668000 + IF(NGR(I).LE.0) NGR(I)=1 09669000 + NE1=IE 09670000 + 30 CONTINUE 09671000 + 300 CONTINUE 09672000 +C 09673000 +C CALCOLO NPASS ,NUMERO PASSI FINO ALLA E SOTTO CUI09674000 +C LO SCATTERING E' ISOTROPO 09675000 + DO 50 I=1,NG 09676000 + IF(E(I).LT.ER(NERIS)) GO TO 500 09677000 + 50 CONTINUE 09678000 + NGEIS=NG 09679000 + GO TO 501 09680000 + 500 NGEIS=I-1 09681000 + IF(NGEIS.GT.NG) NGEIS=NG 09682000 + IF(NGEIS.LT.1) NGEIS=1 09683000 + 501 NPASS=NGEIS/(MANY1-1)+NREST(NGEIS,MANY1-1) 09684000 +C MANY1-1 PERCHE' IL PRIMO VALORE DI UN PASSO E' EGUALE ALL'ULTIMO 09685000 +C DEL PASSO PRECEDENTE 09686000 +C 09687000 +C PER CALCOLO IPT:CALCOLO LEUFLE, PER OGNI GRUPPO E L'ENERGIA DELL 09688000 +C TABULAZIONE CHE LO PRECEDE.(MUTA GRUPPI IN ER) 09689000 +C 09690000 +C LOOP SUGLI INTERVALLI ER DI INTERPOLAZIONE 09691000 +C GUARDA QUALI E SONO COMPRESE NELL'INTERVALLO 09692000 + IE=1 09693000 + NE1=NE-1 09694000 + DO 60 I=1,NE1 09695000 + IER=NE-I+1 09696000 + 61 IF(E(IE).LE.ER(IER-1)) GO TO 60 09697000 + LEUFLE(IE)=IER 09698000 + IE=IE+1 09699000 + IF(IE.GT.NG) GO TO 600 09700000 + GO TO 61 09701000 + 60 CONTINUE 09702000 + 600 CONTINUE 09703000 +C 09704000 +C CALCOLA IPT,NUMERO DEI PL CHE OGNI BLOCCO HA 09705000 + DO 65 I=1,NPASS 09706000 +C LIMITI GRUPPI DI UN PASSO 09707000 + LL1=LL2 09708000 + IF(I.EQ.1) LL1=1 09709000 +C PER IL SOLITO FATTO CHEIL PRIMO VALORE DI UN BLOCCO E' 09710000 +C EGUALE ALL'ULTIMO VALORE DEL BLOCCO PRECEDENTE 09711000 + LL2=LL1+MANY1-1 09712000 + IF(LL2.GT.NG) LL2=NG 09713000 + IPT(I)=1 09714000 + DO 67 IJ=LL1,LL2 09715000 + IF(IPT(I).LT.NPL(LEUFLE(IJ))) IPT(I)=NPL(LEUFLE(IJ)) 09716000 + 67 CONTINUE 09717000 + 65 CONTINUE 09718000 +C 09719000 +C TAPE DI OUTPUT 09720000 + NTOUT=0 09721000 + IF(NMT.GT.0.AND.NMT.LE.M2) NTOUT=MIX(5,NMT) 09722000 + IF(NTOUT.LE.0) NTOUT=38 09723000 + NTO=NT(1,NTOUT) 09724000 + CALL POSL(NTOUT) 09725000 + LGTH=2*NR 09726000 + IL=NPASS 09727000 +C ------------------- RECORD 1 09728000 + WRITE(NTO) LGTH,NR,IL,(IPT(J),J=1,NPASS) 09729000 + IF(STMP.GT.1000.) WRITE(NO,1000) LGTH,NR,IL,(IPT(J),J=1,NPASS) 09730000 + 1000 FORMAT(' ELASTIC SCATTERING ANGOLAR DISTRIBUTION : MCC2F8 FILE:' 09731000 + 1 /' LGTH,NR,IL,IPT(NPASS)',3I5/(1X,20I5) ) 09732000 +C 09733000 +C ------------------- RECORD 2 09734000 + IF(NMT.GT.M2) GO TO 700 09735000 + NOM1=MIX(3,NMT) 09736000 + NOM2=MIX(4,NMT) 09737000 + NOM3=MIX(1,NMT) 09738000 + NOM4=MIX(2,NMT) 09739000 + GO TO 710 09740000 +C ANDREBBE MESSO ENDFB ID COME CARATTERE MA NON HO FATTO LA SUBROUT09741000 + 700 NOM1=NAREAL(AINDX(35,IR)) 09742000 + NOM2=NAREAL(AINDX(36,IR)) 09743000 + NOM3=NAREAL(AINDX(35,IR)) 09744000 + NOM4=NAREAL(AINDX(36,IR)) 09745000 + 710 CONTINUE 09746000 +C 09747000 + WRITE(NTO) NOM1,NOM2 09748000 + IF(STMP.GT.1000.)WRITE(NO,2000) NOM1,NOM2 09749000 + 2000 FORMAT(1X,2A4) 09750000 +C ------------------- RECORD 3 09751000 +C 09752000 +C TRASFORMA LEGGI DI ENDFB IN LEGGI DI MC2-2, SECONDO: 09753000 +C ENDFB CODE INTERP. LAW MC2-2 CODE 09754000 +C 1 COSTANT 0 09755000 +C 2 X LINEAR IN Y 3 09756000 +C 3 LN X LINEAR IN Y 2 09757000 +C 4 X LINEAR IN LN Y 4 09758000 +C 5 LN X LINEAR IN LN Y 1 09759000 +C 09760000 + DO 90 I=1,NR 09761000 + J=KT(I) 09762000 + GO TO (901,902,903,904,905),J 09763000 + CALL ERR(8HP2F8LG ,90) 09764000 + KT1(I)=0 09765000 + GO TO 90 09766000 + 901 KT1(I)=0 09767000 + GO TO 90 09768000 + 902 KT1(I)=3 09769000 + GO TO 90 09770000 + 903 KT1(I)=2 09771000 + GO TO 90 09772000 + 904 KT1(I)=4 09773000 + GO TO 90 09774000 + 905 KT1(I)=1 09775000 + 90 CONTINUE 09776000 +C 09777000 + WRITE(NTO)(KT1(NR-J+1),J=1,NR),(NGR(NR-J+1),J=1,NR) 09778000 + IF(STMP.GT.1000.)WRITE(NO,3000)(KT1(NR-J+1),NGR(NR-J+1),J=1,NR) 09779000 + 3000 FORMAT(' KT,NGR:',5(1X,I5,1X,I5,5X)) 09780000 + NT(3,NTOUT)=NT(3,NTOUT)+3 09781000 +C 09782000 +C ................................. LOOP SU NPASS 09783000 + DO 70 IP=1,NPASS 09784000 + CALL RIEMP(0.0,IPTMAX*MANY1,F) 09785000 + LL1=LL2 09786000 + IF(IP.EQ.1) LL1=1 09787000 +C L'ULTIMO DATO DI UN PASSO E' EGUALE AL PRIMO DEL PASSO PRECEDENTE09788000 + LL2=LL1+MANY1-1 09789000 + IF(LL2.GT.NG) LL2=NG 09790000 +C LOOP SU UFG DEL PASSO 09791000 + IMAN=0 09792000 + DO 80 IEU=LL1,LL2 09793000 + IMAN=IMAN+1 09794000 +C ENERGIA TABULATE (RECORD LIST) DELL'UFG 09795000 + IREC=LEUFLE(IEU) 09796000 +C LOCATE RECORD IN DENS (JA=RECORD ADDRESS) 09797000 + CALL LRIDS(1+IREC,JA1,LNT) 09798000 + CALL LRIDS(1+IREC-1,JA2,LNT1) 09799000 + IF(LNT.GT.0.OR.LNT1.GT.0) CALL ERR(8HP2F8LG ,86) 09800000 +C 09801000 +C ..................... LOOP SULLE PL 09802000 + N1PL=IPT(IP) 09803000 + E1=ER(IREC) 09804000 + E2=ER(IREC-1) 09805000 + DO 85 IPL=1,N1PL 09806000 +C DA(LA-1+JA+IPL+8) E' LA F1,F2 CERCATA . F1 PER JA1; F2 PER JA2 09807000 + IADDP1=LA-1+JA1+IPL+8 09808000 + IADDP2=LA-1+JA2+IPL+8 09809000 + F1=0. 09810000 + F2=0. 09811000 + IF(NPL(IREC).GE.IPL) F1=AD(IADDP1) 09812000 + IF(NPL(IREC-1).GE.IPL) F2=AD(IADDP2) 09813000 +C FISSO CODICE DI INTERPOLAZIONE 09814000 +C DEFAULT E' LINEARE (RECCOMENDED IN ENDFB MANUAL) 09815000 + KTINT=2 09816000 + DO 86 IT=1,NR 09817000 + IF(IEU.GT.NGR(NR-IT+1)) GO TO 866 09818000 + 86 CONTINUE 09819000 + GOTO 807 09820000 + 866 CONTINUE 09821000 + KTINT=KT(NR-IT+1) 09822000 + 807 CONTINUE 09823000 +C 09824000 + CALL TERP1(E2,F2,E1,F1,E(IEU),VAL,KTINT) 09825000 + F(IPL,IMAN)=VAL 09826000 +C .........................FINE LOOP SULLE PL 09827000 + 85 CONTINUE 09828000 +C EVENTUALE TRASFORMAZIONE DI SISTEMA DI RIFERIMENTO 09829000 +C LE REGOLE DI ENDFB PREVEDONO CHE SI SIA GIA IN C.M. 09830000 +C IF(LVT.EQ.1.AND.LCT.EQ.2) CALL MATPER(IPTMAX,V,F(1,IMAN),A) 09831000 + 80 CONTINUE 09832000 +C .........................FINE LOOP SUI GRUPPI DEL PASSO 09833000 +C SCRIVE IL PASSO 09834000 + NWDS=N1PL*MANY1 09835000 + WRITE(NTO) ((F(J,JJ),J=1,N1PL),JJ=1,MANY1) 09836000 + NT(3,NTOUT)=NT(3,NTOUT)+1 09837000 + IF(STMP.LE.1001.)GO TO 801 09838000 + DO 95 I=1,N1PL 09839000 + WRITE(NO,4000) I,IP,MANY1,(F(I,J),J=1,MANY1) 09840000 + 4000 FORMAT(' LEGENDRE COEFF:',I10,' STEP:',I10,' MANY1:',I10/ 09841000 + 11X,(1X,10E12.5)) 09842000 + 95 CONTINUE 09843000 + 801 CONTINUE 09844000 + 70 CONTINUE 09845000 +C ......................... FINE LOOP SUI PASSI 09846000 +C 09847000 +C 09848000 +C RIEMPIE INDICE 09849000 +C 09850000 + ANREC=NT(3,NTOUT)-NT(4,NTOUT) 09851000 + IPTMAX=MAXX(NPASS,IPT) 09852000 + IND2=IND2+1 09853000 + IF(IND2.GT.MIND12) CALL ERR(8HP2F8LG ,70) 09854000 + CALL EMPIN(MIND11,AINDX1(1,IND2), 09855000 + 1AINDX(1,IR),AINDX(2,IR),AINDX(3,IR),AINDX(4,IR),AINDX(5,IR), 09856000 + 2 NOM1,NOM2,NOM3,NOM4, 09857000 + 3 0.,8.,1.,0.,FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(4,NTOUT)),ANREC, 09858000 + 4 0.,0.,FLOAT(NG),EUP,DELU,FLOAT(NPASS),0.,FLOAT(IPTMAX), 09859000 + 5 FLOAT(MANY1),FLOAT(LGTH),FLOAT(NR),FLOAT(IL),0.,0.,0.,0.,0.,0., 09860000 + 6 0.,0.,0.,0.,0.) 09861000 + NT(4,NTOUT)=NT(3,NTOUT) 09862000 + RETURN 09863000 + END 09864000 + SUBROUTINE TABPL(MX,X,Y,B,BB,IPMX,C) 09865000 +C **************************************************** 09866000 +C TRASFORMS A TABULATED DISTRIBUTION INTO A LIST RECORD 09867000 +C CONTAINING LEGENDRE POLINOMIAL COEFFICIENTS 09868000 +C *************************************************** 09869000 + REAL*8 C,PPLX,PPL,PL,AA,BB(MX),X1,X2,Y1,Y2,VALPL,PPL4 09870000 + DIMENSION X(MX),Y(MX),B(MX),C(IPMX,IPMX) 09871000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 09872000 + 1 N1X,N2X,NS,LX,LY,LB 09873000 + COMMON/OPZIO/ OPZ(4,8,10) 09874000 + COMMON/FILES/NT(4,99) 09875000 + EQUIVALENCE(NP,NT(1,11)),(OPZ(2,8,1),STMP),(NO,NT(1,6)) 09876000 +C EQUIVALENCE(PLMX,OPZ(2,8,3)) 09877000 +C PLMX E' IL MAX NUMERO DI PL AMMESSO (DEFINISCE IPMX NELL 09878000 +C ROUTINE P2F8LG (CHIAMANTE)) 09879000 + DIFPL=OPZ(2,8,4) 09880000 + IF(DIFPL.LE.0.) DIFPL=1. 09881000 +C DIFPL E' LA PRECISIONE RICHIESTA NELLE PL 09882000 +C 09883000 + NPL=0 09884000 +C ................. LOOP SULLE PL 09885000 + DO 5 IL=1,IPMX 09886000 + N22=0 09887000 + BB(IL)=0. 09888000 +C ................ LOOP SUI RANGE DI INTERPOLAZIONE 09889000 + DO 10 IR=1,N1 09890000 + KT=JNT(IR) 09891000 +C 09892000 + IF(KT.LE.2.OR.KT.EQ.4) GO TO 110 09893000 + CALL ERR(8HTABPL ,110) 09894000 + WRITE(NP,1000)MAT,MF,MT,IR,KT 09895000 + WRITE(NO,1000)MAT,MF,MT,IR,KT 09896000 + 1000 FORMAT(' WARNING! LINEAR INTERPOLATION IS SUPPOSED FOR ', 09897000 + 1 ' TAB1 RECORD IN ANGULAR DISTRIBUTION.'/ 09898000 + 2 ' MAT=',I5,' MF=',I5,' MT=',I5,' RANGE:',I4,' INTERP CODE:',I4) 09899000 + 110 CONTINUE 09900000 +C 09901000 + N11=N22+1 09902000 + N22=NBT(IR) 09903000 +C ................... LOOP SUI PUNTI DEL RANGE IR 09904000 + IF(N11.LE.1) N11=2 09905000 + IF(N22.LT.N11) CALL ERR(8HTABPL ,20) 09906000 +C 09907000 + IF(KT.NE.4) GO TO 115 09908000 + DO 25 IP=N11,N22 09909000 + X1=DBLE(X(IP-1)) 09910000 + X2=DBLE(X(IP)) 09911000 + IF(X1.EQ.X2) GO TO 25 09912000 + Y1=DBLE(Y(IP-1)) 09913000 + Y2=DBLE(Y(IP)) 09914000 + AA=DLOG(Y2/Y1)/(X2-X1) 09915000 + BB(IL)=BB(IL)+Y1*PPL4(X2,X1,AA,IL,IPMX,C) 09916000 + NPL=IL 09917000 + 25 CONTINUE 09918000 + GO TO 116 09919000 + 115 CONTINUE 09920000 +C 09921000 + DO 20 IP=N11,N22 09922000 +C I LIMITI DEL LOOP SONO PRESI IN MODO DA USARE COME ESTREMI DI 09923000 +C INTEGRAZIONE IP ED IP-1 09924000 +C 09925000 + IF(KT.EQ.1) GO TO 20 09926000 +C UN TERMINE COSTANTE DA SOLO CONTRIBUTO ALLA P0, CHE NON E' 09927000 +C IN ENDFB POICHE' SI USA P0=1 09928000 +C 09929000 + X1=DBLE(X(IP-1)) 09930000 + X2=DBLE(X(IP)) 09931000 + IF(X1.EQ.X2) GO TO 20 09932000 + Y1=DBLE(Y(IP-1)) 09933000 + Y2=DBLE(Y(IP)) 09934000 + AA=(Y2-Y1)/(X2-X1) 09935000 + BB(IL)=BB(IL)+AA*(PPLX(IL,X2,IPMX,C)-PPLX(IL,X1,IPMX,C)) + 09936000 + 1 (Y1-AA*X1)*(PPL(IL,X2,IPMX,C)-PPL(IL,X1,IPMX,C)) 09937000 + NPL=IL 09938000 + 20 CONTINUE 09939000 + 116 CONTINUE 09940000 + 10 CONTINUE 09941000 +C 09942000 +C HA FATTO LA PL NUMERO IL , ORA VEDE SE E' BASTANTE 09943000 + DIFTOT=0. 09944000 + DIFFT=0. 09945000 + TOTY=0. 09946000 + DO 30 IP=1,N2 09947000 + X1=DBLE(X(IP)) 09948000 + Y1=DBLE(Y(IP)) 09949000 +C 0.5 E' IL CONTRIBUTO DELLA P0 ( Y E' NORMALIZZATO AD 1 ) 09950000 + VALPL=0.5 09951000 + DO 40 ILL=1,NPL 09952000 + VALPL=VALPL+(2*ILL+1)/2.*BB(ILL)*PL(ILL,X1,IPMX,C) 09953000 +C WRITE(NP,9999) ILL,VALPL,Y1,X1 09954000 +C9999 FORMAT(' PL :',I5,' VALUE OBTAINED:',E12.5,' REAL VALUE:',E12.5, 09955000 +C 1 ' COS(THETA):',E12.5) 09956000 + 40 CONTINUE 09957000 + DIFFT=DIFFT+DABS(VALPL-Y1) 09958000 + TOTY=TOTY+Y1 09959000 + IF(Y1.EQ.0.) GO TO 401 09960000 + DIFF=DABS(VALPL-Y1)/Y1*100. 09961000 + GO TO 402 09962000 + 401 DIFF=DABS(VALPL)/100. 09963000 + 402 DIFTOT=DIFTOT+DIFF 09964000 + 30 CONTINUE 09965000 + DIFTOT=DIFTOT/N2 09966000 + IF(DIFTOT.LT.DIFPL) GO TO 100 09967000 +C SE LA DIFFERENZA FRA PL E TABULATI E' PICCOLA SMETTE 09968000 +C 09969000 + IF(KT.EQ.4.AND.IL.GT.5) GO TO 105 09970000 +C TO COMPUTE LEGENDRE COMPONENTS .GT. ABOUT 6 09971000 +C DUE TO NUMERICAL PROBLEM YOU SHOULD HAVE A PXEA ROUTINE WRITTEN09972000 +C USING EXTENDED PRECISION (REAL*16) 09973000 +C 09974000 +C 09975000 + 5 CONTINUE 09976000 + 105 DIFFT1=DIFFT/TOTY*100. 09977000 + WRITE(NO,2000)DIFFT1,MAT,MT 09978000 + WRITE(NP,2000) DIFFT1,MAT,MT 09979000 + 2000 FORMAT(' WARNING! LOSS OF PRECISION IN PL REPRESENTATION OF', 09980000 + 1 ' ANGULAR DISTRIBUTION.'/' GLOBAL ERROR (%) :',1PE8.1, 09981000 + 2 ' MAT=',I5,' MT=',I5) 09982000 + 100 CONTINUE 09983000 + DIFFT=DIFFT/TOTY*100. 09984000 + WRITE(NP,3000) C2,NPL,DIFFT 09985000 + 3000 FORMAT(' ENERGY:',1PE11.4,'NUMBER OF PL:',I4,1X, 09986000 + 1 ' GLOBAL ERROR (%) :',1PE8.1) 09987000 +C 09988000 +C TRASFORMO IL RECORD TAB1 IN UN LIST 09989000 + DO 50 I=1,N2 09990000 + X(I)=0. 09991000 + 50 Y(I)=0. 09992000 + DO 60 I=1,N1 09993000 + JNT(I)=0 09994000 + 60 NBT(I)=0 09995000 + N1=NPL 09996000 + DO 70 I=1,N1 09997000 + 70 B(I)=BB(I) 09998000 + N2=0 09999000 + RETURN 10000000 + END 10001000 + SUBROUTINE COEGEN(N,C) 10002000 +C ********************* 10003000 +C LEGENDRE POLINOMIAL COEFFICIENTS COMPUTATION 10004000 +C C(COEFF,PL) E LE PL PARTONO DA 1 CHE LA 0 E' PL0=1. 10005000 +C C SONO I COEFF DELLE POTENZE DI X NELLA FORMULA DI 10006000 +C RODRIGUEZ. C(1,N) E' IL COEFF DI X**N , C(2,N) DI X**(N-1) ECC. 10007000 +C 10008000 +C ***************************************** 10009000 +C 10010000 + REAL*8 FATT,COST,C,K 10011000 + DIMENSION C(N,N) 10012000 + CALL RIEMP(0.0,2*N*N,C) 10013000 +C ............... LOOP SULLE PL 10014000 + DO 10 IL=1,N 10015000 + COST=FATT(2*IL)/FATT(IL)**2/2.D0**IL 10016000 +C ............... LOOP SUI COEFF 10017000 + C(1,IL)=COST 10018000 + IF(N.LT.2) RETURN 10019000 + DO 20 I=2,N 10020000 + K=2*I-2 10021000 + IF(N-K.LT.0) GO TO 20 10022000 + C(I,IL)=C(I-1,IL)*(IL-K+1.)*(IL-K+2.)/K/(2.*IL-K+1.)*(-1.) 10023000 + 20 CONTINUE 10024000 + 10 CONTINUE 10025000 + RETURN 10026000 + END 10027000 + FUNCTION FATT(N) 10028000 +C ****************************** 10029000 +C FATT E' IL FATTORIALE DI N 10030000 +C ****************************** 10031000 + REAL*8 FATT 10032000 + FATT=1.D0 10033000 + DO 10 I=1,N 10034000 + 10 FATT=FATT*I 10035000 + RETURN 10036000 + END 10037000 + FUNCTION PPLX(N,X,NPX,C) 10038000 +C ********************************** 10039000 +C FA LA PRIMITIVA DI PN(X)*X 10040000 +C ******************************** 10041000 + REAL*8 C,PPLX,X 10042000 + DIMENSION C(NPX,NPX) 10043000 + IF(N.LE.0) GO TO 100 10044000 + PPLX=0.D0 10045000 + IF(DABS(X).LT.1.D-70) RETURN 10046000 +C IN QUESTO CASO VIENE ZERO 10047000 + NDD=DABS(DLOG10(DABS(X))) 10048000 +C NDD PUO ESSERE GRANDE E NEGATIVO(ES X=1.E-13)POTREBBE DARE OVERFLO10049000 + IF(NDD.GT.0) N3=70/NDD 10050000 + IF(NDD.EQ.0) N3=70 10051000 +C 70 E' CIRCA IL MAX EXP POSSIBILE 10052000 + DO 10 I=1,N 10053000 + K=2*I-2 10054000 + IF(N-K.LT.0) GO TO 10 10055000 +C QUESTO RENDE N2 SEMPRE POSITIVO 10056000 + N2=N-K+2 10057000 +C EVITA OVERFLOW PECCATO CONSUMI TEMPO! 10058000 +C IMPONGO ALL'EXP DI X**N2 DI ESSERE < 70 10059000 + N4=MIN0(N2,N3) 10060000 +C 10061000 + PPLX=PPLX+X**N4/N2*C(I,N) 10062000 + 10 CONTINUE 10063000 + RETURN 10064000 +C P0 10065000 + 100 PPLX=X*X*.5D0 10066000 + RETURN 10067000 + END 10068000 + FUNCTION PL(N,X,NPX,C) 10069000 +C ************************************** 10070000 +C FA IL POLINOMIO DI LEGENDRE PN(X) 10071000 +C ***************************** 10072000 + REAL*8 C,PL,X 10073000 + DIMENSION C(NPX,NPX) 10074000 + PL=0.D0 10075000 + IF(DABS(X).GT.1.D-70) GO TO 101 10076000 + N3=70 10077000 + GO TO 102 10078000 + 101 NDD=DABS(DLOG10(DABS(X))) 10079000 + IF(NDD.GT.0) N3=70/NDD 10080000 + IF(NDD.EQ.0) N3=70 10081000 + 102 DO 10 I=1,N 10082000 +C K=2*I-2 10083000 + N2=N-2*I+2 10084000 + IF(N2.GT.0) GO TO 200 10085000 + IF(N2.EQ.0) PL=PL+C(I,N) 10086000 + GO TO 10 10087000 + 200 N4=MIN0(N2,N3) 10088000 +C 10089000 + PL=PL+X**N4*C(I,N) 10090000 + 10 CONTINUE 10091000 + RETURN 10092000 + END 10093000 + FUNCTION PPL(N,X,NPX,C) 10094000 +C ************************************* 10095000 +C PRIMITIVA DI PN(X) 10096000 +C ************************************* 10097000 + REAL*8 C,PPL,X 10098000 + DIMENSION C(NPX,NPX) 10099000 + IF(N.LE.0) GO TO 100 10100000 + PPL=0.D0 10101000 + IF(DABS(X).LT.1.D-70) RETURN 10102000 + NDD=DABS(DLOG10(DABS(X))) 10103000 + IF(NDD.GT.0) N3=70/NDD 10104000 + IF(NDD.EQ.0) N3=70 10105000 + DO 10 I=1,N 10106000 + K=2*I-2 10107000 + IF(N-K.LT.0) GO TO 10 10108000 + N2=N-K+1 10109000 +C EVITA OVERFLOW PECCATO CONSUMI TEMPO! 10110000 +C IMPONGO ALL'EXP DI X**N2 DI ESSERE < 70 10111000 + N4=MIN0(N2,N3) 10112000 +C 10113000 + PPL=PPL+X**N4/N2*C(I,N) 10114000 + 10 CONTINUE 10115000 + RETURN 10116000 +C P0 10117000 + 100 PPL=X 10118000 + RETURN 10119000 + END 10120000 + FUNCTION PPL4(X,X1,A,N,IPMX,C) 10121000 +C ******************************************* 10122000 +C INTEGRALE FRA X1 ED X DI (PN*EXP(A*(X-X1)) 10123000 +C ************************************************ 10124000 + REAL*8 X,X1,A,C,PXEA,PPL4,PPL 10125000 + DIMENSION C(IPMX,IPMX) 10126000 + IF(A.EQ.0.D0) GOTO 200 10127000 + IF(N.LE.0) GO TO 100 10128000 + PPL4=0.D0 10129000 + DO 10 I=1,N 10130000 + N2=N-2*I+2 10131000 + IF(N2.LT.0) GO TO 10 10132000 + PPL4=PPL4+C(I,N)*PXEA(X,X1,A,N2) 10133000 + 10 CONTINUE 10134000 + RETURN 10135000 +C P0 IS UNITY 10136000 + 100 PPL4=PXEA(X,X1,A,N) 10137000 + RETURN 10138000 + 200 PPL4=PPL(N,X,IPMX,C)-PPL(N,X1,IPMX,C) 10139000 + RETURN 10140000 + END 10141000 + FUNCTION PXEA(X2,X1,A,N) 10142000 +C *********************************** 10143000 + IMPLICIT REAL*8 (A-H,O-Z) 10144000 + IF(A.EQ.0.D0) GO TO 200 10145000 + PROD=-1.D0 10146000 + UNA=1.D0/A 10147000 + ESP=DEXP(A*(X2-X1)) 10148000 + SUM=0.D0 10149000 + IF(N.LE.0) GO TO 100 10150000 +C PRIMO TERMINE ( X **N ) 10151000 + PROD=UNA 10152000 + SUM=(X2**N*ESP-X1**N)*PROD 10153000 + IF(N.LE.1) GO TO 100 10154000 + DO 10 I=2,N 10155000 + J=N-I+1 10156000 +C I=N-J+1 10157000 + PROD=PROD*UNA*(-1)*(J+1) 10158000 + SUM=SUM+PROD*(X2**J*ESP-X1**J) 10159000 + 10 CONTINUE 10160000 + 100 CONTINUE 10161000 +C ULTIMO TERMINE (X**0=1 10162000 + PROD=PROD*UNA*(-1) 10163000 + SUM=SUM+PROD*(ESP-1) 10164000 + PXEA=SUM 10165000 + RETURN 10166000 + 200 PXEA=0.D0 10167000 + IF(N.EQ.0) RETURN 10168000 + PXEA=(X2**(N+1)-X1**(N+1))/(N+1) 10169000 + RETURN 10170000 + END 10171000 + SUBROUTINE POST(NTP,N) 10172000 +C **************************** 10173000 +C 10174000 +C POSITION FILE NT(1,NTP) AT RECORD N 10175000 +C 10176000 +C ************************************************* 10177000 +C 10178000 + COMMON /FILES/NT(4,99) 10179000 + NTT=NT(1,NTP) 10180000 + 50 NSK=N-NT(4,NTP) 10181000 + IF(NSK) 100,200,300 10182000 + 300 CONTINUE 10183000 + DO 10 I=1,NSK 10184000 + 10 READ(NTT,1500) 10185000 + 1500 FORMAT(A80) 10186000 + NT(4,NTP)=N 10187000 + 200 RETURN 10188000 + 100 CONTINUE 10189000 + REWIND NTT 10190000 + NT(4,NTP)=1 10191000 + GO TO 50 10192000 + END 10193000 + FUNCTION NCERC1(M1,M2,IND,M3,M4,MIX,N,K1,K2,K3) 10194000 +C ***************************************************** 10195000 +C LOOK FOR INDEX MATERIAL IN INPUT TABLE 10196000 +C GUARDA UN ISOTOPO DELL INDICE PRIMA SERIE SE E IN MIX 10197000 +C SE IL NOME IN MIX E BIANCO CI SONO TUTTI 10198000 +C E IL NUMERO DELLA MIX IN CUI E L ISOTOPO OD M4+1 SE 10199000 +C L ISOTOPO NON E IN MIX , MA VA MESSO 10200000 +C IND(M1,M2)=INDICE 10201000 +C MIX(M3,M4)=MIX 10202000 +C NCERC : POSOZIONE ISOTOPO IN MIX =0 SE NON TROVATO 10203000 +C = POSIZIONI IN MIX IN CUI E 10204000 +C =M4+1 SE NON CI E MA LO METTE 10205000 +C ( BIANCO INPUT NAME ) 10206000 +C =-1 SE ESCLUSO (MIX(5).LT.0) 10207000 +C N= ISOTOPO DELL INDICE 10208000 +C K1= POSIZIONE NELL INDICE DEL NOME 10209000 +C K2= POSIZIONE NELLA MIX DEL NOME DELL ISOTOPO 10210000 +C K3= NOME DI OUTPUT 10211000 +C 10212000 +C **************************************************************** 10213000 +C 10214000 + INTEGER BIANC 10215000 + DIMENSION IND(M1,M2),MIX(M3,M4) 10216000 + DATA BIANC/4H / 10217000 + NCERC1=0 10218000 +C NON LO CONSIDERO ALL INIZIO ( COME NON TROVATO L ISOTOPO) 10219000 + DO 10 I=1,M4 10220000 +C UN NOME BIANCO IN MIX SEGNALA DI METTERLO 10221000 + IF(MIX(K2,I).EQ.BIANC.AND.MIX(K2+1,I).EQ.BIANC)NCERC1=M4+1 10222000 + IF(IND(K1,N).NE.MIX(K2,I).OR.IND(K1+1,N).NE.MIX(K2+1,I))GOTO 10 10223000 +C QUI LO HA TROVATO 10224000 + NCERC1=I 10225000 +C GUARDA SE E ESCLUSO 10226000 + IF(MIX(5,I).GE.0) RETURN 10227000 + NCERC1=-1 10228000 + RETURN 10229000 + 10 CONTINUE 10230000 +C QUI NON LO HA TROVATO 10231000 +C RESTA ZERO 10232000 + RETURN 10233000 + END 10234000 + SUBROUTINE CONTR1(I,AK,NK,MINDX1,MINDX2,INDX) 10235000 +C *********************************** 10236000 +C CONTROL OF MAT,MF,MT FLAGS IN INDEX 10237000 +C CONFRONTA IN /RECS/ MAT,MF,MT CON INDX E SE NON VA 10238000 +C BENE LO SEGNALA 10239000 +C 10240000 +C ****************************************************** 10241000 +C 10242000 + COMMON /RECS/M(3) 10243000 + COMMON /FILES/ NT(4,99) 10244000 + DIMENSION INDX(MINDX1,MINDX2) 10245000 + LOGICAL T 10246000 + T=.FALSE. 10247000 + DO 10 IJ=1,3 10248000 + T=T.OR.(FLOAT(INDX(IJ,I)).NE.M(I)) 10249000 + 10 CONTINUE 10250000 + IF(T) RETURN 10251000 + WRITE(NO,1000) AK,NT 10252000 + 1000 FORMAT(' SUBROUTINE CONTR FOUD INDEX ERROR:',A8,I10) 10253000 + WRITE(NO,2000) I,(INDX(J,I),J=1,MINDX1) 10254000 + 2000 FORMAT(' INDEX:',10E12.5) 10255000 + WRITE(NO,3000) 10256000 + 3000 FORMAT(' FOR RECS RECORD :') 10257000 + CALL WREC(1,NO,4) 10258000 + CALL WREC(2,NO,4) 10259000 + CALL WREC(3,NO,4) 10260000 + RETURN 10261000 + END 10262000 + SUBROUTINE SELR1(NPK,NRS,PK,KE,EINF,ESUP) 10263000 +C ***************************************************** 10264000 +C SELECT RESONANCES 10265000 +C ELIMINA IN PK(NPK,NRS) I VALORI CON PK(KE,.) FUORI EINF-ESUP 10266000 +C **************************************************************** 10267000 + DIMENSION PK(NPK,NRS) 10268000 + NP=NRS 10269000 + I=0 10270000 + 10 I=I+1 10271000 + 20 IF(I.GT.NP) GO TO 500 10272000 + IF(PK(KE,I).LT.EINF.OR.PK(KE,I).GT.ESUP) GO TO 100 10273000 + GO TO 10 10274000 +C ELIMINA UN ELEMENTO METTENDO L'ULTIMO AL SUO POSTO 10275000 + 100 DO 30 J=1,NPK 10276000 + 30 PK(J,I)=PK(J,NP) 10277000 + NP=NP-1 10278000 + GO TO 20 10279000 + 500 NRS=I-1 10280000 + IF(NRS.LE.0) CALL ERR(8HSELR1WAR ,500) 10281000 + RETURN 10282000 + END 10283000 + SUBROUTINE ENERG(NG1,DELU,EUP,E) 10284000 +C ************************************** 10285000 +C COMPUTES ENERGY BOUNDARIES 10286000 +C ************************************** 10287000 + DIMENSION E(NG1) 10288000 + REAL*8 DEUP,DDELU,EDEL 10289000 +C SET DEFAULTS BUT 10290000 +C DEFAULTS ARE JUST SET IN SUBROUTINE TABNIZ 10291000 + DEUP=EUP 10292000 + DDELU=DELU 10293000 + IF(DEUP.LE.0) DEUP=1.419D+7 10294000 + IF(DDELU.LE.0) DDELU=1./120. 10295000 + IF(NG1.LE.0) NG1=2083 10296000 +C 10297000 + EDEL=DEXP(-DDELU) 10298000 + E(1)=DEUP 10299000 + DO 10 I=2,NG1 10300000 + 10 E(I)=E(I-1)*EDEL 10301000 +C 10302000 + RETURN 10303000 + END 10304000 + SUBROUTINE NORM(MA,A,C) 10305000 +C ************************************** 10306000 +C DIVIDE A(MA) PER C 10307000 +C ************************************** 10308000 + DIMENSION A(MA) 10309000 + DO 10 I=1,MA 10310000 + 10 A(I)=A(I)/C 10311000 + RETURN 10312000 + END 10313000 + FUNCTION NSUMG1(NG,M,NL) 10314000 +C ****************************************** 10315000 +C CONTA I NL(M)>=NG 10316000 +C ************************************ 10317000 +C DIMENSION NL(M) 10318000 + DIMENSION NL(1) 10319000 + NSUMG1=0 10320000 + IF(M.LE.0) RETURN 10321000 + DO 10 I=1,M 10322000 + IF(NL(I).GE.NG) NSUMG1=NSUMG1+1 10323000 + 10 CONTINUE 10324000 + RETURN 10325000 + END 10326000 + SUBROUTINE INFER(E,LIM,N,A) 10327000 +C ************************************** 10328000 +C CERCA IL PRIMO PIU PICCOLO DI E IN A(N) 10329000 +C *************************************** 10330000 + DIMENSION A(N) 10331000 + DO 10 I=1,N 10332000 + IF(A(I).GT.E) GO TO 10 10333000 + LIM=I 10334000 + RETURN 10335000 + 10 CONTINUE 10336000 + LIM=N 10337000 + RETURN 10338000 + END 10339000 + FUNCTION MAXX(N,M) 10340000 +C *********************************** 10341000 +C MASSIMO DEL VETTORE M(N) 10342000 +C *********************************** 10343000 + DIMENSION M(N) 10344000 + MAXX=-99999 10345000 + DO 10 I=1,N 10346000 + IF(MAXX.LT.M(I)) MAXX=M(I) 10347000 + 10 CONTINUE 10348000 + RETURN 10349000 + END 10350000 + SUBROUTINE FILTB2(NR,NE,KT,NBT,JNT) 10351000 +C ******************************************* 10352000 +C RIEMPIE UN VETTORE LUNGO NE COLLA TABULAZIONE RELATIVA 10353000 +C ******************************************* 10354000 + DIMENSION KT(NE),JNT(100),NBT(100) 10355000 + NR1=1 10356000 + DO 10 IR=1,NR 10357000 + NR2=NBT(IR) 10358000 + IF(NR2.LT.NR1) CALL ERR(8HFILTB2 ,15) 10359000 + DO 15 IE=NR1,NR2 10360000 + 15 KT(IE)=JNT(IR) 10361000 + NR1=NR2 10362000 + 10 CONTINUE 10363000 + RETURN 10364000 + END 10365000 + SUBROUTINE SOGLM(EPS,NSG,NG,SIG) 10366000 +C ************************************* 10367000 +C 10368000 +C DETERMINA IL POSTO NSG SOTTO CUI ABS(SIG)<=EPS 10369000 +C 10370000 +C ********************************************************* 10371000 + DIMENSION SIG(NG) 10372000 + DO 10 I=1,NG 10373000 + I1=NG-I+1 10374000 + IF(ABS(SIG(I1)).GT.EPS) GO TO 100 10375000 + 10 CONTINUE 10376000 + NSG=0 10377000 + RETURN 10378000 + 100 CONTINUE 10379000 + NSG=I1 10380000 + RETURN 10381000 + END 10382000 + SUBROUTINE SOGLM1(EPS,NSG,NG,SIG) 10383000 +C ************************************* 10384000 +C 10385000 +C DETERMINA IL POSTO NSG SOPRA CUI ABS(SIG)<=EPS 10386000 +C 10387000 +C ********************************************************* 10388000 + DIMENSION SIG(NG) 10389000 + DO 10 I=1,NG 10390000 + IF(ABS(SIG(I)).GT.EPS) GO TO 100 10391000 + 10 CONTINUE 10392000 + NSG=0 10393000 + RETURN 10394000 + 100 CONTINUE 10395000 + NSG=I 10396000 + RETURN 10397000 + END 10398000 + SUBROUTINE SOGL(EPS,NSG,NG,SIG) 10399000 +C ************************************* 10400000 +C 10401000 +C DETERMINA IL POSTO NSG SOTTO CUI SIG<=EPS 10402000 +C 10403000 +C ********************************************************* 10404000 + DIMENSION SIG(NG) 10405000 + DO 10 I=1,NG 10406000 + I1=NG-I+1 10407000 + IF(SIG(I1).GT.EPS) GO TO 100 10408000 + 10 CONTINUE 10409000 + NSG=0 10410000 + RETURN 10411000 + 100 CONTINUE 10412000 + NSG=I1 10413000 + RETURN 10414000 + END 10415000 + SUBROUTINE RIBA(N,A) 10416000 +C ***************************** 10417000 +C RIBALTA IL VATTORE A(N) 10418000 +C **************************** 10419000 + DIMENSION A(N) 10420000 + N1=N/2 10421000 + DO 10 I=1,N1 10422000 + I1=N-I+1 10423000 + D=A(I) 10424000 + A(I)=A(I1) 10425000 + A(I1)=D 10426000 + 10 CONTINUE 10427000 + RETURN 10428000 + END 10429000 + SUBROUTINE TRASF(M,A,B) 10430000 +C ********************************* 10431000 +C METTE A IN B 10432000 +C ******************************** 10433000 +C DIMENSION A(M),B(M) 10434000 + DIMENSION A(1),B(1) 10435000 + IF(M.LE.0) RETURN 10436000 + DO 10 I=1,M 10437000 + B(I)=A(I) 10438000 + 10 CONTINUE 10439000 + RETURN 10440000 + END 10441000 + SUBROUTINE TRASF1(M,N,A,B) 10442000 +C ********************************* 10443000 +C METTE A IN B NELL'ORDINE SPECIFICATO DA N 10444000 +C ************************************** 10445000 +C DIMENSION A(M),B(M),N(M) 10446000 + DIMENSION A(1),B(1),N(1) 10447000 + IF(M.LE.0) RETURN 10448000 + DO 10 I=1,M 10449000 + B(N(I))=A(I) 10450000 + 10 CONTINUE 10451000 + RETURN 10452000 + END 10453000 + FUNCTION FNDMX(K,M1,M2,A) 10454000 +C ***************************** 10455000 +C 10456000 +C TROVA IN A(M1,M2) IL MAX DELLA COL A(K, ) 10457000 +C 10458000 +C ********************************************** 10459000 +C 10460000 + DIMENSION A(M1,M2) 10461000 + FNDMX=1.E-30 10462000 + DO 10 I=1,M2 10463000 + IF(A(K,I).GT.FNDMX) FNDMX=A(K,I) 10464000 + 10 CONTINUE 10465000 + RETURN 10466000 + END 10467000 + SUBROUTINE EXAM(M,K,N1,N2,NA,NB) 10468000 +C ******************************************* 10469000 +C 10470000 +C ESAMINA A ( COLONNA M) E FA MATRICE NB: 10471000 +C NB(1,.)=VALORE IN A(M, ) 10472000 +C NB(2, )=INIZIO DEL VALORE 10473000 +C NB(3, )=DIMENSIONI DEL VALORE DI A(M, ) 10474000 +C K= DIMENSIONI DI B 10475000 +C 10476000 +C **************************************************** 10477000 + DIMENSION NA(N1,N2),NB(3,N2) 10478000 + IF(M.EQ.0.OR.M.GT.N1) CALL ERR(8H EXAM ,0) 10479000 + K=1 10480000 + NB(1,K)=NA(M,1) 10481000 + NB(2,K)=1 10482000 + NB(3,K)=1 10483000 + IF(N2.LT.2) RETURN 10484000 + DO 10 I=2,N2 10485000 + IF(NA(M,I).NE.NB(1,K))GO TO 100 10486000 +C QUI SE SONO UGUALI INCREMENTA LE DIMENSIONI DI B(3,K) 10487000 + NB(3,K)=NB(3,K)+1 10488000 + GO TO 10 10489000 + 100 CONTINUE 10490000 +C CAMBIA B 10491000 + K=K+1 10492000 + NB(1,K)=NA(M,I) 10493000 + NB(2,K)=I 10494000 + NB(3,K)=1 10495000 + 10 CONTINUE 10496000 + RETURN 10497000 + END 10498000 + SUBROUTINE LIMIT(EPS,N1,N2,N,A) 10499000 +C *************************************** 10500000 +C IN A(N) CERCA I LIMITI N1,N2 FRA CUI CI SONO VALORI >EPS 10501000 +C ********************************************************** 10502000 +C DIMENSION A(N) 10503000 + DIMENSION A(1) 10504000 + IF(N.LE.0) GO TO 300 10505000 + N1=1 10506000 + N2=N 10507000 + DO 10 I=1,N 10508000 + IF(A(I).GT.EPS) GOTO100 10509000 + 10 CONTINUE 10510000 + I=0 10511000 + 100 N1=I 10512000 + DO 20 I=1,N 10513000 + II=N-I+1 10514000 + IF(A(II).GT.EPS) GO TO 200 10515000 + 20 CONTINUE 10516000 + II=0 10517000 + 200 N2=II 10518000 + RETURN 10519000 + 300 N1=0 10520000 + N2=0 10521000 + RETURN 10522000 + END 10523000 + SUBROUTINE CERCM(NUM,K,M,N) 10524000 +C ******************************** 10525000 +C CERCA IL PRIMO N(M) >K E LO METTE IN NUM 10526000 +C ************************************ 10527000 +C DIMENSION N(M) 10528000 + DIMENSION N(1) 10529000 + NUM=K 10530000 + IF(M.LE.0) RETURN 10531000 + DO 10 I=1,M 10532000 + IF(N(I).LE.K) GO TO 10 10533000 + NUM=N(I) 10534000 + RETURN 10535000 + 10 CONTINUE 10536000 + RETURN 10537000 + END 10538000 + SUBROUTINE ORDMIC(M,N1,N2,NA) 10539000 +C ******************************** 10540000 +C 10541000 +C ORDINA NA PER VALORI CRESCENTI DELLA COLONNA M 10542000 +C !!!!!!!!!!!!!!!! ORDIN1 E' PIU' EFFICIENTE !!!!!!!!!!!!!!! 10543000 +C 10544000 +C *********************************** 10545000 +C 10546000 + DIMENSION NA(N1,N2) 10547000 +C 10548000 + DO 10 KI=1,N2 10549000 +C CERCA IL PIU PICCOLO SUI SUCCESSIVI ( DA KI+1=I1) 10550000 + I1=KI+1 10551000 + IF(I1.GT.N2) GOTO 10 10552000 + DO 10 I=I1,N2 10553000 + IF(NA(M,KI).LE.NA(M,I)) GO TO 10 10554000 +C SCAMBIO I ED K 10555000 + DO 20 II=1,N1 10556000 + ND=NA(II,KI) 10557000 + NA(II,KI)=NA(II,I) 10558000 + NA(II,I)=ND 10559000 + 20 CONTINUE 10560000 + 10 CONTINUE 10561000 + RETURN 10562000 + END 10563000 + SUBROUTINE ORDPU1(NP,EP,SC,SF,SS,KP,EP1,SC1,SF1,SS1) 10564000 +C ********************************************************** 10565000 +C ORDINA LE TABULAZIONI EP SC SF SS (NP) IN BASE A KP 10566000 +C METTE QUELLO CHE OTTIENE IN SC1 SF1 SS1 10567000 +C ********************************************************** 10568000 +C 10569000 + DIMENSION EP(NP),SC(NP),SF(NP),SS(NP),EP1(NP),SC1(NP),SS1(NP) 10570000 + DIMENSION SF1(NP),KP(NP) 10571000 + NEXT=1 10572000 + DO 10 I=1,NP 10573000 + EP1(I)=EP(NEXT) 10574000 + SC1(I)=SC(NEXT) 10575000 + SF1(I)=SF(NEXT) 10576000 + SS1(I)=SS(NEXT) 10577000 + NEXT=KP(NEXT) 10578000 + 10 CONTINUE 10579000 + RETURN 10580000 + END 10581000 + SUBROUTINE ORDPU3(NP,EP,SP,KP,NF,EF,SF) 10582000 +C *********************************************** 10583000 +C ORDINA LA TABULAZIONE EP SP (NP) IN BASE A KP 10584000 +C METTE QUELLO CHE OTTIENE IN EF SF (NF) 10585000 +C NON ELIMINA I DOPPIONI (CONTRARIAMENTE A ORDPU2) 10586000 +C *********************************************** 10587000 +C 10588000 + DIMENSION EP(NP),SP(NP),KP(NP),EF(NF),SF(NF) 10589000 + NEXT=1 10590000 + DO 10 I=1,NP 10591000 + EF(I)=EP(NEXT) 10592000 + SF(I)=SP(NEXT) 10593000 + NEXT=KP(NEXT) 10594000 + 10 CONTINUE 10595000 + NF=NP 10596000 + RETURN 10597000 + END 10598000 + SUBROUTINE ORD(N,A) 10599000 +C ************************************** 10600000 +C ORDINA A PER VALORI CRESCENTI 10601000 +C ******************************************** 10602000 + DIMENSION A(N) 10603000 + N1=N-1 10604000 + DO 10 I=1,N1 10605000 + N2=I+1 10606000 + DO 20 J=N2,N 10607000 + IF(A(I).LE.A(J)) GO TO 20 10608000 + D=A(I) 10609000 + A(I)=A(J) 10610000 + A(J)=D 10611000 + 20 CONTINUE 10612000 + 10 CONTINUE 10613000 + RETURN 10614000 + END 10615000 + SUBROUTINE ORDIND(K,N1,NP,NPMX,A) 10616000 +C *************************************** 10617000 +C ORDINA A(NP,N1) PER VALORI DECRESCENTI DI A (.,K) 10618000 +C ELIMINA I VALORI EGUALI DI A (.,K) METTENDOLI ALLA FINE 10619000 +C E CALANDO DI CONSEGUENZA NP 10620000 +C ************************************************** 10621000 + DIMENSION A(NPMX,N1) 10622000 + I=0 10623000 +C LOOP SUI NUOVI POSTI I 10624000 + 10 I=I+1 10625000 + IF(I.GE.NP) RETURN 10626000 +C CERCA IL MAX SUI SUCCESSIVI 10627000 + J=I 10628000 + 20 J=J+1 10629000 + 25 IF(J.GT.NP) GO TO 10 10630000 + IF(A(I,K).GT.A(J,K)) GO TO 20 10631000 + IF(A(I,K).EQ.A(J,K)) GO TO 100 10632000 +C SCAMBIA 10633000 + 110 DO 30 JJ=1,N1 10634000 + D=A(I,JJ) 10635000 + A(I,JJ)=A(J,JJ) 10636000 + 30 A(J,JJ)=D 10637000 + GO TO 20 10638000 +C ELIMINA L'ELEMENTO 10639000 + 100 DO 40 JJ=1,N1 10640000 + D=A(J,JJ) 10641000 + A(J,JJ)=A(NP,JJ) 10642000 + 40 A(NP,JJ)=D 10643000 + NP=NP-1 10644000 + GO TO 25 10645000 + END 10646000 + SUBROUTINE ORDSOG(N,NSG,NORD) 10647000 +C *********************************** 10648000 +C DEFINISCE NORD, CONTENENTE L'ORDINAMENTO 10649000 +C DECRESCENTE DEI NUMERI IN NSG 10650000 +C ***************************************** 10651000 +C 10652000 +C DIMENSION NSG(N),NORD(N) 10653000 + DIMENSION NSG(1),NORD(1) 10654000 + IF(N.LE.0) RETURN 10655000 + DO 10 I=1,N 10656000 + 10 NORD(I)=0 10657000 + DO 20 I=1,N 10658000 +C K E' IL PRIMO NON ASSEGNATO 10659000 + DO 30 K=1,N 10660000 + IF(NORD(K).LE.0) GO TO 300 10661000 + 30 CONTINUE 10662000 + CALL ERR(8HORDSOG ,300) 10663000 + 300 DO 40 J=1,N 10664000 +C NORD.NE.0 =>NSG ORDER DEFINED 10665000 + IF(NORD(J).GT.0) GO TO 40 10666000 + IF(NSG(J).LE.NSG(K)) GOTO 40 10667000 + K=J 10668000 + 40 CONTINUE 10669000 + NORD(K)=I 10670000 + 20 CONTINUE 10671000 + RETURN 10672000 + END 10673000 + SUBROUTINE GRATTE(E1,E2,EX1,EX2,PX1,PX2,IEX,NE,KINT,NEINT,A,EINT) 10674000 +C ************************************************************** 10675000 +C 10676000 +C INTEGRATION ROUTINE 10677000 +C INTEGRA PER OGNI EI F(E,EI) FRA E1 ED E2, INTERPOLANDO 10678000 +C FRA EX1 ED EX2 10679000 +C 10680000 +C E1,E2 = ESTREMI DI INTEGRAZIONE 10681000 +C NE1,NE2 = 2 RECORDS (DI 2 ENERGIE E) DI F(E,.) FRA CUI INTEGRA 10682000 +C EX1,EX2 =ENERGIE ALL'ESTREMO DELL'INTERVALLO DI INTERPOLAZIONE 10683000 +C F(E1,.) F(E2,.) 10684000 +C KINT= CODICE DI INTERPOLAZIONE FRA E1 ED E2 10685000 +C 10686000 +C **************************************************************** 10687000 +C 10688000 + DIMENSION A(NEINT),EINT(NEINT) 10689000 +C COMMON /RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 10690000 +C 1N1X,N2X,NS,LX,LY,LB 10691000 +C COMMON/DENS/JMT,JAT,JTT,JLT,LV,JNS,MNS,JX,MX 10692000 + NEX1=NE-IEX+1 10693000 +C NUMERO DEL RECORD TAB1 IN DENS,CONTANDO CHE IN DENS SONO 10694000 +C PER E CRESCENTI COME ENDFB, IN P2F6TB IN E DECRESCENTI 10695000 + NEX2=NEX1-1 10696000 +C LOCATE RECORDS IN DENS FOR F(E1,.) F(E2,.) ( IL RECORD 1 E' P(E)10697000 +C IL RECORD 2 E' IL TAB2 ) I TAB1 SONO IL NUMERO NEX+2 10698000 + CALL LRIDS(NEX1+2,JAF1,LNT) 10699000 + IF(LNT.GT.1) CALL ERR(8HGRATTE ,2) 10700000 + CALL LRIDS(NEX2+2,JAF2,LNT) 10701000 + IF(LNT.GT.1) CALL ERR(8HGRATTE ,3) 10702000 + DO 10 I=1,NEINT 10703000 +C ESCLUDO IL CASO OVE GUADAGNA E NELL'URTO 10704000 + IF(EINT(I).GT.E1) GO TO 10 10705000 +C PROCURO I VALORI DI F(NEX1,E(I)) F(NEX2,E(I)) INTERPOLANDO SU E(I10706000 + NPF1=1 10707000 + CALL IPDS(JAF1,NPF1,EINT(I),FX1EI,IPF1) 10708000 + NPF2=1 10709000 + CALL IPDS(JAF2,NPF2,EINT(I),FX2EI,IPF2) 10710000 +C MOLTIPLICO P PER F ( QUESTO SUPPONE P SMOOTH RISPETTO AD F O CHE 10711000 +C ABBIANO LA STESSA LEGGE DI INTERPOLAZIONE OPPURE NON SI PUO' 10712000 +C FARE IL PRODOTTO E POI INTEGRARE IL PRODOTTO CON LA LEGGE DI INTE10713000 +C INTERPOLAZIONE DELLE ENERGIE E DI F 10714000 + EF1=FX1EI*PX1 10715000 + EF2=FX2EI*PX2 10716000 +C INTEGRO P*F SULLE E DI PARTENZA E1-E2 10717000 + CALL ECSI(EX2,EF2,EX1,EF1,E2,E1,KINT,B) 10718000 + A(I)=A(I)+B 10719000 + 10 CONTINUE 10720000 + RETURN 10721000 + END 10722000 + SUBROUTINE INTEGG(NG,SIG,IR,E,M,IHED,IPOST) 10723000 +C *************************************** 10724000 +C 10725000 +C INTEGRATION ROUTINE 10726000 +C INTEGRO O MEDIO A GRUPPI IL RECORD ENDFB IN INDICE INDX(.,IR) 10727000 +C LO METTE IN SIG , NON LEGGE IL SEND FINALE DI ENDFB 10728000 +C PER M >=1 MEDIA ALTRIMENTI INTEGRA 10729000 +C PER IHED >0 NON LEGGE L'HEAD 10730000 +C PER IPOST >0 NON POSIZIONA IL FILE 10731000 +C *********************************************************** 10732000 +C 10733000 + DIMENSION SIG(NG),E(NG) 10734000 + COMMON /FILES/NT(4,99) 10735000 + EQUIVALENCE(NT(1,6),NO) 10736000 + COMMON/INDX/AINDX(40,200) 10737000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2 10738000 +C COMMON /OPZIO/ OPZ(4,8,10) 10739000 +C EQUIVALENCE (OPZ(2,6,1),STMP) 10740000 +C COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 10741000 +C 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 10742000 +C 10743000 +C DEFINISCE E POSIZIONA IL FILE DI INPUT 10744000 + T=AINDX(7,IR) 10745000 + NTIN=AINDX(23,IR) 10746000 + NTI=NT(1,NTIN) 10747000 + IF(IPOST.GT.0) GO TO 100 10748000 + NPOST=AINDX(25,IR) 10749000 + CALL POST(NTIN,NPOST) 10750000 +C 10751000 + 100 IF(IHED.GT.0) GO TO 200 10752000 +C LETTURA DELL HEAD DEL MAT,MT 10753000 + CALL RREC(1,NTI,3,T) 10754000 + NT(4,NTIN)=NT(4,NTIN)+1 10755000 +C LETTURA TAB1 10756000 + 200 CALL RREC(3,NTI,3,T) 10757000 + NT(4,NTIN)=NT(4,NTIN)+1+N1/3+NREST(N1,3)+N2/3+NREST(N2,3) 10758000 +C 10759000 +C INTEGRAZIONE 10760000 + DO 10 I=1,NG 10761000 + E1=E(I) 10762000 + E2=E(I+1) 10763000 +C GRATE= SUBROUTINE INTEGRANTE ( IN RECS) DI SLAVE3 10764000 + CALL GRATE(E2,E1,SIG(I)) 10765000 + IF(M.GT.0) SIG(I)=SIG(I)/(E1-E2) 10766000 + 10 CONTINUE 10767000 + RETURN 10768000 + END 10769000 + SUBROUTINE GRATP(AMED,X,Y) 10770000 +C ****************************************** 10771000 +C CALCOLO DI AINT(X * Y(X) ) IN UN TAB1 ( AINT(Y(X)=1 PER DEF 10772000 +C ****************************************** 10773000 +C 10774000 + DIMENSION X(200),Y(200) 10775000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 10776000 + 1 N1X,N2X,NS,LX,LY,LB 10777000 + NI1=1 10778000 + AINT=0. 10779000 + DO 10 IR=1,N1 10780000 + KT=JNT(IR) 10781000 + NI2=NBT(IR)-1 10782000 +C L'ULTIMO NUMERO DEL RANGE NON HA INTEGRALE ASSOCIATO 10783000 + DO 20 IE=NI1,NI2 10784000 + X1=X(IE) 10785000 + X2=X(IE+1) 10786000 + Y1=Y(IE) 10787000 + Y2=Y(IE+1) 10788000 + GO TO (100,200,300,900,500),KT 10789000 + 900 CALL ERR(8HGRATPIN ,900) 10790000 + GO TO 600 10791000 +C LEGGE COSTANTE 10792000 + 100 AINT=Y1/2.*(X2**2-X1**2) +AINT 10793000 + GO TO 600 10794000 +C LEGGE LINEARE 10795000 + 200 AN=(Y2-Y1)/(X2-X1) 10796000 + AINT=AN*(X2**3-X1**3)/3.+(AN*X1+Y1)/2.*(X2**2-X1**2) +AINT 10797000 + GO TO 600 10798000 +C LN(X) - Y 10799000 + 300 ALGX1=ALOG(X1) 10800000 + ALGX2=ALOG(X2) 10801000 + X12=X1**2 10802000 + X22=X2**2 10803000 + AN=(Y2-Y1)/(ALGX2-ALGX1) 10804000 + AINT=(Y1-AN*ALGX1)/2.*(X22-X12)+X22*(ALGX2/2.-0.25)- 10805000 + 1 X12*(ALGX1/2.-0.25) +AINT 10806000 + GO TO 600 10807000 +C LN (X) - LN (Y) 10808000 + 500 AN=(ALOG(Y2)-ALOG(Y1))/(ALOG(X2)-ALOG(X1)) 10809000 + AINT=Y1/X1**AN/(AN+2)*(X2**(AN+2)-X1**(AN+2)) +AINT 10810000 + 600 CONTINUE 10811000 + 20 CONTINUE 10812000 + NI1=NBT(IR) 10813000 + 10 CONTINUE 10814000 +C CALL GRATE(-1.,1.,ANS) 10815000 +C AMED=AINT/ANS 10816000 +C IL DI CUI SOPRA NON SERVE PER LA NORMALIZZ DI P IN ENDFB 10817000 + AMED=AINT 10818000 + RETURN 10819000 + END 10820000 + SUBROUTINE INTS1(PESO,INTERP,NG,E,SIG,NP,ES,SIGU) 10821000 +C ***************************************************** 10822000 +C 10823000 +C INTEGRATION ROUTINE 10824000 +C INTEGRA A GRUPPI ULTRA FINI E(NG)-SIG(NG) , UNA 10825000 +C TABULAZIONE ES(NP)-SIGU(NP) CON LEGGI DI 10826000 +C INTERPOLAZIONE INTERP=<2,3,>3=LIN,SIGMA-LOG E,LOG-LOG 10827000 +C PESO= 1,>1 =COSTANTE,1/E 10828000 +C 10829000 +C QUESTA ROUTINE NON ORDINA E NON AZZERA SIG 10830000 +C ********************************************************** 10831000 +C 10832000 + DIMENSION E(NG),SIG(NG),ES(NP),SIGU(NP) 10833000 + REAL*8 ETEGL,ETEGR,AN,ALGES,ALGES1,ALGE,ALGE1,DELTAU,ESA 10834000 + REAL*8 DENUM 10835000 +C LOOK FOR THE FIRST ENERGY GROUP 10836000 + DO 10 I=1,NG 10837000 + IF(ES(1).LT.E(I)) GO TO 10 10838000 + NGI=I-1 10839000 + GO TO 100 10840000 + 10 CONTINUE 10841000 + CALL ERR(8H INTS1 ,10) 10842000 + RETURN 10843000 + 100 CONTINUE 10844000 +C LOOK FOR THE LAST ENERGY GROUP 10845000 + NG1=NGI+1 10846000 + IF(NG1.LE.NG) GO TO 150 10847000 + CALL ERR(8HINTS1 ,150) 10848000 + RETURN 10849000 + 150 CONTINUE 10850000 + DO 20 I=NG1,NG 10851000 + IF(ES(NP).LT.E(I)) GOTO 20 10852000 + NGF=I-1 10853000 + IF(ES(NP).EQ.E(I)) NGF=I 10854000 + GOTO 200 10855000 + 20 CONTINUE 10856000 + NGF=NG 10857000 + 200 CONTINUE 10858000 +C 10859000 +C LOOP ON ULTRA-FINE GROUPS INVOLVED 10860000 + KKL1=1 10861000 + DO 30 IG=NGI,NGF 10862000 + IG1=IG+1 10863000 + IF(IG1.GT.NG+1)GO TO 500 10864000 +C SONO FINITI I GRUPPI. L'INTEGRALE E' FINITO 10865000 + ALGE=E(IG) 10866000 + ALGE1=E(IG1) 10867000 + IF(PESO.LE.1.) GO TO 301 10868000 + DENUM=DLOG(ALGE1/ALGE) 10869000 + GO TO 35 10870000 + 301 DENUM=ALGE1-ALGE 10871000 +C USA IL PRECEDENTE A DESTRA COME PUNTO A SINISTRA SE E' 10872000 +C PASSATO OLTRE IN ENERGIA 10873000 + 35 ITERPL=KKL1 10874000 +C 10875000 +C CERCA GLI ESTREMI DI INTEGRAZIONE E DI INTERPOLAZIONE A SINISTRA 10876000 +C SE E(IG) ED E(ITERPL) SONO EGUALI I PUNTI DI INTERP ED INTEGR 10877000 +C COINCIDONO . SE ES(ITERPL) E' PRIMA DELL'ENERGIA E(IG) 10878000 +C IL PUNTO DI INTERPOLAZIONE E' E(ITERPL),IL PUNTO DI INTEGRAZIONE10879000 +C E' E(IG) 10880000 +C 10881000 + ETEGL=E(IG) 10882000 +C SE ES(ITERPL) E' DOPO E(IG) ALLORA IL PUNTO DI INTERPOLAZIONE 10883000 +C ES(ITERPL) E' ANCHE PUNTO DI INIZIO INTEGRAZIONE 10884000 + IF(E(IG).GT.ES(ITERPL)) ETEGL=ES(ITERPL) 10885000 +C FISSA PUNTO DI INTERPOLAZIONE E DI INTEGRAZIONE A DESTRA. 10886000 + ITERPR=ITERPL+1 10887000 + IF(ITERPR.GT.NP) GO TO 550 10888000 +C NON HA PIU' PUNTI DI INTERPOLAZIONE A DESTRA, L'INTEGRALE E' 10889000 +C FINITO (E' A META' GRUPPO VA A DIVIDERE PER DENUM ) 10890000 + ETEGR=E(IG1) 10891000 + IF(ES(ITERPR).LT.ETEGR) GO TO 310 10892000 +C SE L'ENERGIA DI INTERPOLAZIONE E' PRIMA DELLA FINE DEL GRUPPO 10893000 +C ALLORA SI INTEGRA FINO ALLA FINE DEL GRUPPO . 10894000 +C SIA IN QUESTO CASO SIA IN CASO SIANO EGUALI SI SEGNA CHE 10895000 +C AL PROSSIMO GIRO IL PUNTO DI INTERPOLAZIONE A DESTRA 10896000 +C DIVIENE PUNTO DI INTERPOLAZIONE A SINISTRA 10897000 + KKL1=ITERPR 10898000 + ETEGR=ES(ITERPR) 10899000 + 310 CONTINUE 10900000 +C 10901000 +C NOW INTEGRATION FOLLOWS: 10902000 +C 10903000 +C ITERPL AND ITERPR ARE THE LEFT AND RIGHT INTERPOLATION POINTS 10904000 +C ETEGR AND ETEGL ARE THE LEFT AND RIGHT INTEGRATION POINTS 10905000 +C 10906000 +C UTILIZZA FORMULE DI PAG. 25-26 DEL MANUALE DI MC2-I 10907000 +C PESO 1/E OPPURE COST (COERENTE CON LE SMOOT):PESO=2,1.. 10908000 + IF(INTERP.NE.3) GO TO 600 10909000 +C LEGGE SIGMA - LOG E 10910000 + ALGES1=ALOG(ES(ITERPR)) 10911000 + ALGES=ALOG(ES(ITERPL)) 10912000 + AN=(SIGU(ITERPR)-SIGU(ITERPL))/(ALGES1-ALGES) 10913000 + ALGE1=DLOG(ETEGR) 10914000 + ALGE=DLOG(ETEGL) 10915000 + IF(PESO.GT.1.) GO TO 601 10916000 + SIG(IG)=SIG(IG)+AN* 10917000 + 1 (ETEGR*ALGE1-ETEGL*ALGE-ETEGR+ETEGL)+ 10918000 + 2 (SIGU(ITERPL)-AN*ALGES)*(ETEGR-ETEGL) 10919000 + GOTO400 10920000 + 601 CONTINUE 10921000 + DELTAU=DLOG(ETEGR/ETEGL) 10922000 + SIG(IG)=AN/2.*(ALGE1**2-ALGE**2)+(SIGU(ITERPL)-AN*ALGES)*DELTAU+ 10923000 + 1 SIG(IG) 10924000 + GO TO 400 10925000 + 600 CONTINUE 10926000 + IF(INTERP.LE.2) GO TO 450 10927000 +C LEGGE LOGE - LOG SIGMA 10928000 + IF(SIGU(ITERPR).EQ.0..OR.SIGU(ITERPL).EQ.0.) GO TO 450 10929000 +C IN QUESTI CASI IL LOGRITMO E" INDEFINITO,INTERPOLO LINEARE10930000 + ALGES1=ALOG(ES(ITERPR)) 10931000 + ALGES=ALOG(ES(ITERPL)) 10932000 + AN=(ALOG(ABS(SIGU(ITERPR)))-ALOG(ABS(SIGU(ITERPL))))/ 10933000 + 1 (ALGES1-ALGES) 10934000 + ESA=ES(ITERPL)**AN 10935000 + IF(PESO.GT.1.) GO TO 402 10936000 + SIG(IG)=SIG(IG)+SIGU(ITERPL)/ESA/ 10937000 + 1 (AN+1)*(ETEGR**(AN+1)-ETEGL**(AN+1)) 10938000 + GO TO 400 10939000 + 402 CONTINUE 10940000 + EA=ETEGL**AN 10941000 + EA1=ETEGR**AN 10942000 + SIG(IG)=+SIGU(ITERPL)/ESA/AN*(EA1-EA)+ 10943004 + 1 SIG(IG) 10944000 + GO TO 400 10945000 + 450 CONTINUE 10946000 +C LEGGE LINEARE 10947000 +C TO AVOID OVERFLOWS 10948000 + IF(ABS(ES(ITERPR)-ES(ITERPL)).LT.1.E-20) GO TO 400 10949000 + AN=(SIGU(ITERPR)-SIGU(ITERPL))/(ES(ITERPR)-ES(ITERPL)) 10950000 + IF(PESO.GT.1.) GO TO 403 10951000 + DDDDDD=SIG(IG)+AN/2.*(ETEGR*ETEGR-ETEGL*ETEGL)+ 10952000 + 1 (SIGU(ITERPL)-AN*ES(ITERPL))*(ETEGR-ETEGL) 10953000 + SIG(IG)=DDDDDD 10954000 + GO TO 400 10955000 + 403 CONTINUE 10956000 + DELTAU=DLOG(ETEGR/ETEGL) 10957000 + DDDDDD=AN*(ETEGR-ETEGL)+(SIGU(ITERPL)-AN*ES(ITERPL))*DELTAU+ 10958000 + 1 SIG(IG) 10959000 + SIG(IG)=DDDDDD 10960000 + 400 CONTINUE 10961000 +C NEL CASO SOTTOCONTEMPLATO NON HA FINITO IL GRUPPO 10962000 + IF(E(IG1).LT.ETEGR) GOTO35 10963000 + SIG(IG)=SIG(IG)/DENUM 10964000 + 30 CONTINUE 10965000 + 500 CONTINUE 10966000 + RETURN 10967000 + 550 SIG(NGF)=SIG(NGF)/DENUM 10968000 + RETURN 10969000 +C DA QUI ESCE SE FINISCE I PUNTI DI INTERPOLAZ A META DI 10970000 +C UN GRUPPO.ALLORA DEVE ANCORA DIVIDERE PER IL DENUM 10971000 +C RICORDARE CHE TUTTE LE SIGMA A GRUPPI VANNO DIVISE PER 10972000 +C LO STESSO DENOM DEL GRUPPO PERCHE POI VANNO SOMMATE INSIEME 10973000 + END 10974000 + SUBROUTINE INTS2(PESO,KT,NG,E,SIG,NP,ES,SIGU) 10975000 +C ***************************************************** 10976000 +C INTEGRATION ROUTINE 10977000 +C MEDIA A GRUPPI ULTRA FINI E(NG)-SIG(NG) , UNA 10978000 +C TABULAZIONE ES(NP)-SIGU(NP) CON LEGGI DI 10979000 +C INTERPOLAZIONE INTERP=<2,3,>3=LIN,SIGMA-LOG E,LOG-LOG 10980000 +C PESO= 1,>1 =COSTANTE,1/E 10981000 +C 10982000 +C QUESTA ROUTINE NON ORDINA E NON AZZERA SIG 10983000 +C 10984000 +C DIFFERISCE DA INTS1 PERCHE LE INTERPOLAZIONI SONO IN UN VETTORE 10985000 +C LUNGO NP INVECE CHE UNA LEGGE DI INTERPOLAZIONE SOLA 10986000 +C E' INSERITA LEGGE COSTANTE E I CODICI DI INTERPOLAZIONE 10987000 +C SONO RESI COERENTI CON QUELLI DI ENDFB 10988000 +C 10989000 +C AGGIUNTA POSSIBILITA' DI INTERVALLO DI ES ESTESO AD ES>E 10990000 +C 10991000 +C ********************************************************** 10992000 +C 10993000 + DIMENSION E(NG),SIG(NG),ES(NP),SIGU(NP),KT(NP) 10994000 + REAL*8 ETEGL,ETEGR,AN,ALGES,ALGES1,ALGE,ALGE1,DELTAU,ESA 10995000 + REAL*8 DENUM 10996000 +C LOOK FOR THE FIRST ENERGY GROUP 10997000 + DO 10 I=1,NG 10998000 + IF(ES(1).LT.E(I)) GO TO 10 10999000 + NGI=I-1 11000000 + IF(NGI.LT.1) NGI=1 11001000 + GO TO 100 11002000 + 10 CONTINUE 11003000 + CALL ERR(8H INTS2 ,10) 11004000 + RETURN 11005000 + 100 CONTINUE 11006000 +C LOOK FOR THE LAST ENERGY GROUP 11007000 + NG1=NGI+1 11008000 + IF(NG1.LE.NG) GO TO 150 11009000 + CALL ERR(8HINTS2 ,150) 11010000 + RETURN 11011000 + 150 CONTINUE 11012000 + DO 20 I=NG1,NG 11013000 + IF(ES(NP).LT.E(I)) GOTO 20 11014000 + NGF=I-1 11015000 + IF(ES(NP).EQ.E(I)) NGF=I 11016000 + GOTO 200 11017000 + 20 CONTINUE 11018000 + NGF=NG 11019000 + 200 CONTINUE 11020000 +C 11021000 +C RICERCA DEL PRIMO PUNTO ES ( IL PIU VICINO AD E(1) ) 11022000 + DO 25 I=1,NP 11023000 + IF(ES(I).LT.E(1)) GO TO 250 11024000 + 25 CONTINUE 11025000 + KKL1=1 11026000 + GO TO 260 11027000 + 250 KKL1=I-1 11028000 + IF(KKL1.LE.0) KKL1=1 11029000 + 260 CONTINUE 11030000 +C 11031000 +C LOOP ON ULTRA-FINE GROUPS INVOLVED 11032000 + DO 30 IG=NGI,NGF 11033000 + IG1=IG+1 11034000 + IF(IG1.GT.NG+1)GO TO 500 11035000 +C SONO FINITI I GRUPPI. L'INTEGRALE E' FINITO 11036000 + ALGE=E(IG) 11037000 + ALGE1=E(IG1) 11038000 + IF(PESO.LE.1.) GO TO 301 11039000 + DENUM=DLOG(ALGE1/ALGE) 11040000 + GO TO 35 11041000 + 301 DENUM=ALGE1-ALGE 11042000 +C USA IL PRECEDENTE A DESTRA COME PUNTO A SINISTRA SE E' 11043000 +C PASSATO OLTRE IN ENERGIA 11044000 + 35 ITERPL=KKL1 11045000 +C 11046000 +C CERCA GLI ESTREMI DI INTEGRAZIONE E DI INTERPOLAZIONE A SINISTRA 11047000 +C SE E(IG) ED E(ITERPL) SONO EGUALI I PUNTI DI INTERP ED INTEGR 11048000 +C COINCIDONO . SE ES(ITERPL) E' PRIMA DELL'ENERGIA E(IG) 11049000 +C IL PUNTO DI INTERPOLAZIONE E' E(ITERPL),IL PUNTO DI INTEGRAZIONE11050000 +C E' E(IG) 11051000 +C 11052000 + ETEGL=E(IG) 11053000 +C SE ES(ITERPL) E' DOPO E(IG) ALLORA IL PUNTO DI INTERPOLAZIONE 11054000 +C ES(ITERPL) E' ANCHE PUNTO DI INIZIO INTEGRAZIONE 11055000 + IF(E(IG).GT.ES(ITERPL)) ETEGL=ES(ITERPL) 11056000 +C FISSA PUNTO DI INTERPOLAZIONE E DI INTEGRAZIONE A DESTRA. 11057000 + ITERPR=ITERPL+1 11058000 + IF(ITERPR.GT.NP) GO TO 550 11059000 +C NON HA PIU' PUNTI DI INTERPOLAZIONE A DESTRA, L'INTEGRALE E' 11060000 +C FINITO (E' A META' GRUPPO VA A DIVIDERE PER DENUM ) 11061000 + ETEGR=E(IG1) 11062000 + IF(ES(ITERPR).LT.ETEGR) GO TO 310 11063000 +C SE L'ENERGIA DI INTERPOLAZIONE E' PRIMA DELLA FINE DEL GRUPPO 11064000 +C ALLORA SI INTEGRA FINO ALLA FINE DEL GRUPPO . 11065000 +C SIA IN QUESTO CASO SIA IN CASO SIANO EGUALI SI SEGNA CHE 11066000 +C AL PROSSIMO GIRO IL PUNTO DI INTERPOLAZIONE A DESTRA 11067000 +C DIVIENE PUNTO DI INTERPOLAZIONE A SINISTRA 11068000 + KKL1=ITERPR 11069000 + ETEGR=ES(ITERPR) 11070000 + 310 CONTINUE 11071000 +C 11072000 +C NOW INTEGRATION FOLLOWS: 11073000 +C 11074000 +C ITERPL AND ITERPR ARE THE LEFT AND RIGHT INTERPOLATION POINTS 11075000 +C ETEGR AND ETEGL ARE THE LEFT AND RIGHT INTEGRATION POINTS 11076000 +C 11077000 +C UTILIZZA FORMULE DI PAG. 25-26 DEL MANUALE DI MC2-I 11078000 +C PESO 1/E OPPURE COST (COERENTE CON LE SMOOT):PESO=2,1.. 11079000 + INTERP=KT(ITERPL) 11080000 + IF(INTERP.NE.3) GO TO 600 11081000 +C LEGGE SIGMA - LOG E 11082000 + ALGES1=ALOG(ES(ITERPR)) 11083000 + ALGES=ALOG(ES(ITERPL)) 11084000 + AN=(SIGU(ITERPR)-SIGU(ITERPL))/(ALGES1-ALGES) 11085000 + ALGE1=DLOG(ETEGR) 11086000 + ALGE=DLOG(ETEGL) 11087000 + IF(PESO.GT.1.) GO TO 601 11088000 + SIG(IG)=SIG(IG)+AN* 11089000 + 1 (ETEGR*ALGE1-ETEGL*ALGE-ETEGR+ETEGL)+ 11090000 + 2 (SIGU(ITERPL)-AN*ALGES)*(ETEGR-ETEGL) 11091000 + GOTO400 11092000 + 601 CONTINUE 11093000 + DELTAU=DLOG(ETEGR/ETEGL) 11094000 + SIG(IG)=AN/2.*(ALGE1**2-ALGE**2)+(SIGU(ITERPL)-AN*ALGES)*DELTAU+ 11095000 + 1 SIG(IG) 11096000 + GO TO 400 11097000 + 600 CONTINUE 11098000 + IF(INTERP.NE.5) GO TO 450 11099000 +C LEGGE LOGE - LOG SIGMA 11100000 + ALGES1=ALOG(ES(ITERPR)) 11101000 + ALGES=ALOG(ES(ITERPL)) 11102000 + AN=(ALOG(SIGU(ITERPR))-ALOG(SIGU(ITERPL)))/(ALGES1-ALGES) 11103000 + ESA=ES(ITERPL)**AN 11104000 + IF(PESO.GT.1) GO TO 402 11105000 + SIG(IG)=SIG(IG)+SIGU(ITERPL)/ESA/ 11106000 + 1 (AN+1)*(ETEGR**(AN+1)-ETEGL**(AN+1)) 11107000 + GO TO 400 11108000 + 402 CONTINUE 11109000 + EA=ETEGL**AN 11110000 + EA1=ETEGR**AN 11111000 + SIG(IG)=+SIGU(ITERPL)/ESA/AN*(EA1-EA)+ 11112004 + 1 SIG(IG) 11113000 + GO TO 400 11114000 + 450 CONTINUE 11115000 + IF(INTERP.NE.2) GO TO 700 11116000 +C LEGGE LINEARE 11117000 + AN=(SIGU(ITERPR)-SIGU(ITERPL))/(ES(ITERPR)-ES(ITERPL)) 11118000 + IF(PESO.GT.1.) GO TO 403 11119000 + SIG(IG)=SIG(IG)+AN/2.*(ETEGR*ETEGR-ETEGL*ETEGL)+ 11120000 + 1 (SIGU(ITERPL)-AN*ES(ITERPL))*(ETEGR-ETEGL) 11121000 + GO TO 400 11122000 + 403 CONTINUE 11123000 + DELTAU=DLOG(ETEGR/ETEGL) 11124000 + SIG(IG)=AN*(ETEGR-ETEGL)+(SIGU(ITERPL)-AN*ES(ITERPL))*DELTAU+ 11125000 + 1 SIG(IG) 11126000 + GO TO 400 11127000 + 700 IF(INTERP.NE.1) GO TO 800 11128000 + IF(PESO.GT.1) GO TO 710 11129000 + SIG(IG)=SIGU(ITERPL)+SIG(IG) 11130000 + GO TO 400 11131000 + 710 SIG(IG)=SIGU(ITERPL)*DLOG(ETEGR/ETEGL)+SIG(IG) 11132000 + GO TO 400 11133000 + 800 CALL ERR(8HINTS2 ,800) 11134000 + 400 CONTINUE 11135000 +C NEL CASO SOTTOCONTEMPLATO NON HA FINITO IL GRUPPO 11136000 + IF(E(IG1).LT.ETEGR) GOTO35 11137000 + SIG(IG)=SIG(IG)/DENUM 11138000 + 30 CONTINUE 11139000 + 500 CONTINUE 11140000 + RETURN 11141000 + 550 SIG(NGF)=SIG(NGF)/DENUM 11142000 + RETURN 11143000 +C DA QUI ESCE SE FINISCE I PUNTI DI INTERPOLAZ A META DI 11144000 +C UN GRUPPO.ALLORA DEVE ANCORA DIVIDERE PER IL DENUM 11145000 +C RICORDARE CHE TUTTE LE SIGMA A GRUPPI VANNO DIVISE PER 11146000 +C LO STESSO DENOM DEL GRUPPO PERCHE POI VANNO SOMMATE INSIEME 11147000 + END 11148000 + SUBROUTINE FTABLE(NTPE,NO,NP,MA,A) 11149000 +C *************************************************************** 11150000 +C THIS IS A MODIFIED VERSION OF THE FTABLE ROUTINE OF ETOE CODE 11151000 +C *************************************************************** 11152000 +C 11153000 +C THIS SUBROUTINE CONTROLS THE CALCULATION AND WRITING OF FILE 2 11154000 +C OF THE MC**2-2 LIBRARY 11155000 +C 11156000 +C SUBROUTINES CALLED BY SUBROUTINE FTABLE 11157000 +C 11158000 +C WTABLE CONTROLS THE CALCULATION AND WRITING OF THE 11159000 +C COURSE AND FINE, REAL AND IMAGINARY PARTS 11160000 +C OF THE W TABLE 11161000 +C E3 CONTROLS THE CALCULATION AND WRITING OF THE 11162000 +C E3 FUNCTION 11163000 +C EXPFCT CALCULATES AN EXPONENTIAL FUNCTION FOR MC**2-2 11164000 +C LIBRARY FILE 2 11165000 +C ESCAPE GENERATES TABLES USED BY RABBLE TO COMPUTE 11166000 +C REGIONAL FIRST FLIGHT ESCAPE AND TRANSMISSION 11167000 +C PROBABILITIES 11168000 +C FXPTBL CALCULATE THE INTERCEPTS AND SLOPES USED 11169000 +C FOR THE CALCULATION OF THE EXPONENTIAL EXP(-X) 11170000 +C ETABLE CALCULATES THE EXPONENTIAL INTEGRALS 11171000 +C E3(X) AND E4(X) 11172000 +C 11173000 +C DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN 11174000 +C ORDER TO PRESERVE ACCURACY 11175000 +C 11176000 + DOUBLE PRECISION BLK,EXPON 11177000 +C 11178000 + COMMON/OPZIO/OPZ(4,8,10) 11179000 +C 11180000 + COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS, 11181000 + 1NPASS,NPL,IPTMAX,ETOP,DELTAU 11182000 +C DATA EXPON/6HEXPON / 11183000 + DIMENSION A(MA) 11184000 +C DEFINE OPTIONS 11185000 + STMP=OPZ(3,2,1) 11186000 + NGROUP=OPZ(2,5,4) 11187000 + ETOP=OPZ(2,5,2) 11188000 + DELTAU=OPZ(2,5,3) 11189000 +C DEFAULT OPTIONS 11190000 + IF(NGROUP.LE.0.) NGROUP=2082 11191000 + IF(DELTAU.LE.0.) DELTAU=1./120. 11192000 + IF(ETOP.LE.0.) ETOP=1.4190675E+7 11193000 +C 11194000 + WRITE(NO,1000) NGROUP,ETOP,DELTAU 11195000 + 1000 FORMAT(///10X,'FILE MCC2F2 PRODUCED FOR',I5,' ENERGY GROUPS,', 11196000 + 1 'TOP ENERGY=',E12.5,' LETARGY INTERVAL:',E12.5//) 11197000 +C 11198000 +C 11199000 +C DEFINE POINTERS 11200000 + N41=41 11201000 + N27=27 11202000 + LAX=1 11203000 + LAY=LAX+ N41*2 11204000 + LTR=LAY+ N27*2 11205000 + LTI=LTR+ N27*N41 11206000 + LTRS=LTI+ N27*N41 11207000 + LTIS=LTRS+ N27*N41 11208000 + LEXE3=LTIS+N27*N41 11209000 + LENE3=LEXE3+1001*2 11210000 +C 11211000 + IF(LENE3+1001.GT.MA) CALL ERR(8HFTABLE ,0) 11212000 +C 11213000 + M4=4 11214000 + NG2=NGROUP*2 11215000 +C 11216000 + REWIND NTPE 11217000 +C 11218000 +C CALCULATE AND WRITE THE W TABLE 11219000 +C 11220000 + CALL WTABL(N41,N27,A(LAX),A(LAY),A(LTR),A(LTI),A(LTRS),A(LTIS)) 11221000 +C 11222000 + LTI1=LTI-1 11223000 + LTRS1=LTRS-1 11224000 + LTIS1=LTIS-1 11225000 + LEXE31=LEXE3-1 11226000 +C 11227000 + WRITE(NTPE) (A(J),J=LTR,LTI1) 11228000 + WRITE(NTPE) (A(J),J=LTI,LTRS1) 11229000 + WRITE(NTPE) (A(J),J=LTRS,LTIS1) 11230000 + WRITE(NTPE) (A(J),J=LTIS,LEXE31) 11231000 + IF(STMP.LE.100) GO TO 100 11232000 + WRITE(NO,2000) (A(J),J=LTR,LTI1) 11233000 + 2000 FORMAT(10X,' W TABLE REAL , COARSE TABULATION'/(1X,10E12.5)) 11234000 + WRITE(NO,3000) (A(J),J=LTI,LTRS1) 11235000 + 3000 FORMAT(10X,' W TABLE IMM. , COARSE TABULATION'/(1X,10E12.5)) 11236000 + WRITE(NO,4000) (A(J),J=LTRS,LTIS1) 11237000 + 4000 FORMAT(10X,' W TABLE REAL , FINE TABULATION'/(1X,10E12.5)) 11238000 + WRITE(NO,5000) (A(J),J=LTIS,LEXE31) 11239000 + 5000 FORMAT(10X,' W TABLE IMM. , FINE TABULATION'/(1X,10E12.5)) 11240000 +C 11241000 + 100 WRITE(NP,9010) 11242000 + 9010 FORMAT(' FILE MCC2F2: W TABLE PRODUCED') 11243000 +C 11244000 +C 11245000 +C CALCULATE AND WRITE THE EXPONENTIAL INTEGRAL 11246000 +C 11247000 + CALL E3(NTPE,STMP,NO,A(LEXE3),A(LENE3)) 11248000 +C 11249000 + WRITE(NP,9020) 11250000 + 9020 FORMAT(' FILE MCC2F2: EXPONENTIAL INTEGRAL TABLE PRODUCED') 11251000 +C 11252000 +C CALCULATE AND WRITE THE EXPONENTIAL FUNCTION 11253000 +C 11254000 + CALL EXPFCT(NTPE,NO,STMP,A(1)) 11255000 +C 11256000 + WRITE(NP,9030) 11257000 + 9030 FORMAT(' FILE MCC2F2: EXPONENTIAL FUNCTION TABLE PRODUCED') 11258000 +C 11259000 +C CALCULATE AND WRITE THE FIRST FLIGHT ESCAPE AND TRANSMISSION 11260000 +C PROBABILITIES 11261000 +C 11262000 + LA1=1 11263000 + LA11=LA1+181*51 11264000 + LA2=LA11+181*26 11265000 + LA3=LA2+ 181*51 11266000 + LA4=LA3+ 181 11267000 +C 11268000 + CALL ESCAPE(NTPE,NO,STMP,A(LA1),A(LA11),A(LA2),A(LA3),A(LA4)) 11269000 +C 11270000 + WRITE(NP,9040) 11271000 + 9040 FORMAT(' FILE MCC2F2: ESCAPE AND TRASMISSION TABLE PRODUCED') 11272000 +C 11273000 +C CALCULATE AND WRITE EXPONENTIAL INTEGRALS AND FUNCTIONS 11274000 +C 11275000 + LXYK=1 11276000 + LTAB=LXYK+2044 11277000 +C 11278000 + CALL FXPTBL(XYKZ,A(LXYK)) 11279000 + CALL ETABLE(NTPE,NO,STMP,XYKZ,A(LXYK),A(LTAB)) 11280000 +C 11281000 + WRITE(NP,9050) 11282000 + 9050 FORMAT(' FILE MCC2F2: EXPONENTIAL INTEGRALS AND FUNCTIONS PRODUC11283000 + 1ED') 11284000 +C 11285000 +C REWIND DATA SET LMCCF2 11286000 +C 11287000 + REWIND NTPE 11288000 + RETURN 11289000 + END 11290000 + SUBROUTINE FXPTBL(XYKZ,XYK) 11291000 +C ******************************************************** 11292000 +C THIS IS A MODIFIED VERSION OF FXPTBL ROUTINE OF ETOE CODE 11293000 +C *************************************************************** 11294000 +C 11295000 +C SUBROUTINE FXPTBL CALCULATES THE INTERCEPTS Y(I) AND SLOPES M(I) 11296000 +C USED FOR THE CALCULATION OF THE EXPONENTIAL EXP(-X) ACCORDING TO 11297000 +C THE LINEAR INTERPOLATION SCHEME EXP(-X)=Y(I)+M(I)*X WHERE 11298000 +C 0.LE.I.LT.1022. THE ARGUEMENT X MAY RANGE BETWEEN 0 AND 18, 11299000 +C INCLUSIVE. AREAS ARE PRESERVED UNDER THE CURVE WHICH IS CONTINUOUS11300000 +C REF. ARNE P. OLSON, A FAST EXPONENTIAL SUBROUTINE FOR CALCULATING 11301000 +C COLLISION PROBABILITIES ON THE IBM/360, ANL-7710, P.447, 11302000 +C JANUARY (1971). 11303000 +C 11304000 +C SUBPROGRAMS CALLED BY SUBROUTINE FXPTBL 11305000 +C 11306000 +C DEXP FORTRAN EXPONENTIAL FUNCTION (DOUBLE PRECISION) 11307000 +C 11308000 +C DECLARE VARIABLES REQUIRED FOR PRECISION TO BE DOUBLE PRECISION 11309000 +C 11310000 + DOUBLE PRECISION ELIM,XLEN,C1,C2 11311000 +C 11312000 +C THE CALCULATED INTERCEPTS AND SLOPES ARE RETURNED IN COMMON BLOCK 11313000 +C EXCOM. XYKZ AND XYK(I),I=1,1022 ARE THE 1023 VALUES OF THE Y 11314000 +C INTERCEPTS. XYK(I),I=1023,2044 ARE THE 1022 VALUES OF THE SLOPES 11315000 +C 11316000 + DIMENSION XYK(2044) 11317000 + ELIM=18.D0 11318000 + NPNT=1023 11319000 + NINT=NPNT-1 11320000 + XNINT=NINT 11321000 + NIN=NINT-1 11322000 + XLEN=ELIM/XNINT 11323000 + C1=DEXP(-XLEN) 11324000 + C2=2.D0*(1.D0-C1)/((1.D0+C1)*XLEN) 11325000 + XYKZ=C2 11326000 + DO 20 I=2,NPNT 11327000 + C2=C1*C2 11328000 + J=I-1 11329000 + JP=J+NPNT 11330000 + XYK(J)=C2 11331000 + IF (J.EQ.1) GO TO 10 11332000 + XYK(JP-1)=-(XYK(J)-XYK(J-1))/XLEN 11333000 + GO TO 20 11334000 + 10 CONTINUE 11335000 + XYK(JP-1)=-(XYK(J)-XYKZ)/XLEN 11336000 + 20 CONTINUE 11337000 + DO 30 J=1,NIN 11338000 + XJ=J 11339000 + JP=J+NPNT 11340000 + XYK(J)=XYK(J)+XJ*XLEN*XYK(JP) 11341000 + 30 CONTINUE 11342000 + RETURN 11343000 + END 11344000 + SUBROUTINE EI(X,NX,ENX) 11345000 +C ****************************************************************11346000 +C THIS IS A MODIFIED VERSION OF THE EI ROUTINE OF ETOE CODE 11347000 +C *************************************************************8 11348000 +C 11349000 +C SUBROUTINE EI CALCULATES THE EXPONENTIAL INTEGRAL E3 11350000 +C 11351000 +C X ARGUMENT 11352000 +C NX NUMBER OF VALUES TO BE CALCULATED 11353000 +C ENX COMPUTED EXPONENTIAL INTEGRAL 11354000 +C 11355000 +C SUBROUTINES CALLED BY SUBROUTINE EI 11356000 +C 11357000 +C DEXP FORTRAN EXPONENTIAL FUNCTION (DOUBLE PRECISION) 11358000 +C DLOG FORTRAN NATURAL LOGARITHM FUNCTION (DOUBLE 11359000 +C PRECISION) 11360000 +C DFLOAT FORTRAN FUNCTION. CHANGES FIXED POINT NUMBER 11361000 +C INTO FLOATING POINT NUMBER (DOUBLE PRECISION) 11362000 +C 11363000 +C DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER 11364000 +C TO PRESERVE ACCURACY. 11365000 +C 11366000 + DOUBLE PRECISION X,ENX,A,B,C 11367000 + DIMENSION ENX(1) 11368000 + IF(X.GT.1.D-30) GO TO 250 11369000 + ENX(1)=1.0D+30 11370000 + IF(NX.EQ.1) GO TO 150 11371000 + DO 240 I=2,NX 11372000 + A=I 11373000 + ENX(I)=1.D0/(A-1.D0) 11374000 + 240 CONTINUE 11375000 + GO TO 150 11376000 + 250 CONTINUE 11377000 + IF(X.LT.75.D0) GO TO 280 11378000 + DO 270 I=1,NX 11379000 + ENX(I)=0.D0 11380000 + 270 CONTINUE 11381000 + GO TO 150 11382000 + 280 CONTINUE 11383000 + A=DEXP(-X) 11384000 + IF(X.GT.1.D0) GO TO 120 11385000 + B=DLOG(X) 11386000 + IF(X.GT.1.D-3) GO TO 110 11387000 + ENX(1)=X-B-0.577215665 11388000 + GO TO 130 11389000 + 110 CONTINUE 11390000 + ENX(1)=-0.577215665-B+X*(1.D0+X*(-0.25D0+X*(0.055555555+X* 11391000 + 1(-0.010416666+X*(0.16666666D-02+X*(-0.23148148D-03+X* 11392000 + 2(0.28344671D-04+X*(-0.31001984D-05+X*0.30619244D-06)))))))) 11393000 + GO TO 130 11394000 + 120 CONTINUE 11395000 + B=0.23729050+X*(4.53079235+X*(5.12669020+X)) 11396000 + C=2.47663307+X*(8.66601262+X*(6.12652717+X)) 11397000 + ENX(1)=((A/X)*B)/C 11398000 + 130 CONTINUE 11399000 + IF(NX.EQ.1) GO TO 150 11400000 + DO 140 I=2,NX 11401000 + B=DFLOAT(I)-1.D0 11402000 + ENX(I)=(A-X*ENX(I-1))/B 11403000 + 140 CONTINUE 11404000 + 150 CONTINUE 11405000 + RETURN 11406000 + END 11407000 + SUBROUTINE ESCAPE(NTPE,LTPO,STMP,A1,A11,A2,A3,A4) 11408000 +C *************************************************************** 11409000 +C THIS IS A MODIFIED VERSION OF THE ESCAPE ROUTINE OF ETOE CODE 11410000 +C *************************************************************** 11411000 +C 11412000 +C 11413000 +C PROGRAM TO GENERATE TABLES USED BY RABBLE TO COMPUTE REGIONAL 11414000 +C FIRST FLIGHT ESCAPE AND TRANSMISSION PROBABILITIES 11415000 +C Z = SIGMA * OUTER RADIUS 11416000 +C X = (INNER RADIUS) / (OUTER RADIUS) 11417000 +C TABLE A1 TRANSMISSION PROBABILITY INNER TO OUTER SURFACE FOR 11418000 +C CYLINDRICAL GEOMETRY 11419000 +C TABLE A2 TRANSMISSION PROBABILITY OUTER TO OUTER SURFACE FOR 11420000 +C CYLINDRICAL GEOMETRY 11421000 +C TABLE A3 EXPONENTIAL INTEGRAL OF ORDER TWO 11422000 +C TABLE A4 EXPONENTIAL INTEGRAL OF ORDER FOUR 11423000 +C 11424000 +C RANGE OF X DX 11425000 +C 0.0-0.4 0.01 11426000 +C 0.4-1.0 0.02 11427000 +C 1.0-2.6 0.04 11428000 +C 2.6-5.0 0.06 11429000 +C 5.0-8.0 0.10 11430000 +C 11431000 +C SUBROUTINES CALLED BY SUBROUTINE ESCAPE 11432000 +C 11433000 +C KI3 CALCULATES THIRD ORDER BICKLEY FUNCTION 11434000 +C IBCOM# FORTRAN I/O ROUTINE 11435000 +C DCOS FORTRAN COSINE FUNCTION (DOUBLE PRECISION) 11436000 +C DLOG FORTRAN NATURAL LOGARITHM FUNCTION (DOUBLE 11437000 +C PRECISION) 11438000 +C DSQRT FORTRAN SQUARE ROOT FUNCTION(DOUBLE 11439000 +C PRECISION) 11440000 +C DEXP FORTRAN EXPONENTIAL FUNCTION (DOUBLE PRECISION) 11441000 +C 11442000 + IMPLICIT REAL*8 (B-H,O-Z) 11443000 + DIMENSION A1(181,51) 11444000 + DIMENSION A11(181,26),A2(181,51),A3(181),A4(181) 11445000 +C 11446000 + DO 160 I=1,181 11447000 + IF(I.GT.41) GO TO 10 11448000 + Z=I-1 11449000 + Z=.01*Z 11450000 + GO TO 50 11451000 + 10 CONTINUE 11452000 + IF(I.GT.71) GO TO 20 11453000 + Z=I-21 11454000 + Z=.02*Z 11455000 + GO TO 50 11456000 + 20 CONTINUE 11457000 + IF(I.GT.111) GO TO 30 11458000 + Z=I-46 11459000 + Z=.04*Z 11460000 + GO TO 50 11461000 + 30 CONTINUE 11462000 + IF(I.GT.151) GO TO 40 11463000 + Z=I-71 11464000 + Z=.2+.06*Z 11465000 + GO TO 50 11466000 + 40 CONTINUE 11467000 + Z=I-101 11468000 + Z=.1*Z 11469000 + 50 CONTINUE 11470000 + N=-1 11471000 + DO 120 J=1,50 11472000 + X=J-1 11473000 + X=.02*X 11474000 + X2=X*X 11475000 + Q=Z/(1.-X) 11476000 + T1=.0 11477000 + T2=.0 11478000 + DO 110 K=1,8 11479000 + DO 110 L=1,7 11480000 + W=.9817477D-02 11481000 + GO TO (80,70,90,60,90,70,90),L 11482000 + 60 CONTINUE 11483000 + W=W+.9817477D-02 11484000 + 70 CONTINUE 11485000 + W=W+.39269908D-01 11486000 + GO TO 90 11487000 + 80 CONTINUE 11488000 + IF(K.GT.L) GO TO 100 11489000 + 90 CONTINUE 11490000 + H=6*K+L-7 11491000 + Y=DCOS(.327249234D-01*H) 11492000 + Y2=Y*Y 11493000 + FY3=2.*Q*Y 11494000 + FY2=2.*Q*DSQRT(1.-X2*(1.-Y2)) 11495000 + CALL KI3(Z2,FY2) 11496000 + CALL KI3(Z3,FY3) 11497000 + XT2=Y*(Z3-X*Z2) 11498000 + IF(N.EQ.1) GO TO 100 11499000 + FY1=.5*FY2-Q*Y*X 11500000 + CALL KI3(Z1,FY1) 11501000 + XT1=Y*Z1 11502000 + 100 CONTINUE 11503000 + T2=T2+W*XT2 11504000 + IF(N.EQ.1) GO TO 110 11505000 + T1=T1+W*XT1 11506000 + 110 CONTINUE 11507000 + A1(I,J)=1.2732395*T1 11508000 + A2(I,J)=1.2732395*T2 11509000 + N=-N 11510000 + 120 CONTINUE 11511000 + EX=DEXP(-Z) 11512000 + IF(I.GT.1) GO TO 130 11513000 + A1(I,51)=1. 11514000 + A3(I)=1. 11515000 + A4(I)=.3333333 11516000 + GO TO 155 11517000 + 130 CONTINUE 11518000 + IF(Z.GT.1.) GO TO 140 11519000 + T=-DLOG(Z)-.57721566+Z*(.99999193-Z*(.24991055-Z*(.05519968-Z*( 11520000 + X .00976004-.00107857*Z)))) 11521000 + GO TO 150 11522000 + 140 CONTINUE 11523000 + T=(EX/Z)*(.2677737343+Z*(8.634760892+Z*(18.05901697+Z*(8.57332874 11524000 + X +Z))))/(3.958496923+Z*(21.09965308+Z*(25.63295615+Z*( 11525000 + X 9.573322345+Z)))) 11526000 + 150 CONTINUE 11527000 + A3(I)=EX-Z*T 11528000 + A1(I,51)=EX-Z*A3(I) 11529000 + A4(I)=(EX-.5*Z*A1(I,51))/3. 11530000 + 155 CONTINUE 11531000 + A2(I,51)=.0 11532000 + 160 CONTINUE 11533000 + K=0 11534000 + DO 170 J=1,51,2 11535000 + K=K+1 11536000 + DO 170 I=1,181 11537000 + A11(I,K)=A1(I,J) 11538000 + 170 CONTINUE 11539000 + IF(STMP.LT.10.) GO TO 1111 11540000 + WRITE(LTPO,1000) 11541000 + WRITE(LTPO,1500)((I,J,A11(I,J),I=1,181),J=1,26) 11542000 + WRITE(LTPO,1100) 11543000 + WRITE(LTPO,1500)((I,J,A2(I,J),I=1,181),J=1,51) 11544000 + 1111 CONTINUE 11545000 +C 11546000 +C WRITE FIRST FLIGHT TRANSMISSION PROBABILITIES 11547000 +C 11548000 +C NWDS=14299 NO LONGER WRITE A3 AND A4 INTO FIRST FLIGHT 11549000 +C TRANSMISSION PROBABILITIES RECORD 11550000 +C NWDS=13937 11551000 +C 11552000 + WRITE(NTPE) A11,A2 11553000 +C 11554000 + 1000 FORMAT(1H1,40X,48HTRANSMISSION PROBABILITY, INNER TO OUTER SURFACE11555000 + 1 /41X,12HI,J,T1(I,J) /) 11556000 + 1100 FORMAT(1H1,40X,48HTRANSMISSION PROBABILITY, OUTER TO OUTER SURFACE11557000 + 1 /41X,12HI,J,T2(I,J) /) 11558000 + 1500 FORMAT(4(2X,2I6,1PE14.5)) 11559000 + 1600 FORMAT(6(2X,I6,1PE14.5)) 11560000 + RETURN 11561000 + END 11562000 + SUBROUTINE ETABLE(NTPE,LTPO,STMP,XYKZ,XYK,TAB) 11563000 +C *************************************************************** 11564000 +C THIS IS A MODIFIED VERSION OF THE ETABLE ROUTINE OF ETOE CODE 11565000 +C *************************************************************** 11566000 +C 11567000 +C SUBROUTINE ETABLE CALCULATES THE EXPONENTIAL INTEGRALS E3(X) AND 11568000 +C E4(X) FOR THE TABULAR RANGE 0(0.01)2(0.02)4(0.08)6.4. THE 11569000 +C TABULATED VALES OF E3 AND E4 ARE RETURNED IN TAB 11570000 +C 11571000 +C SUBPROGRAMS CALLED BY SUBROUTINE ETABLE 11572000 +C 11573000 +C EXP FORTRAN EXPONENTIAL FUNCTION 11574000 +C ALOG FORTRAN NATURAL LOGARITM FUNCTION 11575000 +C 11576000 + DIMENSION TAB(662) 11577000 + DIMENSION XYK(2044) 11578000 +C EQUIVALENCE (E3(1),TAB(1)) 11579000 +C 11580000 +C 11581000 + DO 100 I=1,331 11582000 + IF(I.GT.201) GO TO 110 11583000 + FI=I-1 11584000 + X=FI*0.01+1.0E-09 11585000 + GO TO 120 11586000 + 110 CONTINUE 11587000 + IF(I.GT.301) GO TO 130 11588000 + FI=I-101 11589000 + X=FI*0.02 11590000 + GO TO 120 11591000 + 130 CONTINUE 11592000 + FI=I-251 11593000 + X=FI*0.08 11594000 + 120 CONTINUE 11595000 + FAC=EXP(-X) 11596000 + IF(X.GT.1.0) GO TO 140 11597000 +C 11598000 +C POLYNOMIAL EXPANSION FOR E1(X) FOR X .LE. 1.0 11599000 +C 11600000 + TAB(I)=-ALOG(X)-0.57721566+X*(0.99999193+X*(-0.24991055+X* 11601000 + 1 (0.05519968+X*(-0.00976004+X*0.00107857)))) 11602000 + GO TO 150 11603000 + 140 CONTINUE 11604000 +C 11605000 +C POLYNOMIAL EXPANSION FOR E1(X) FOR X .GT.1.0 11606000 +C 11607000 + TAB(I)=(FAC/X)*(0.2677737343+X*(8.6347608925+X*(18.0590169730+X* 11608000 + 1 (8.5733287401+X))))/(3.9584969228+X*(21.099653082711609000 + 2 +X*(25.6329561486+X*(9.5733223454+X)))) 11610000 + 150 CONTINUE 11611000 +C 11612000 +C E2=E2(X)=EXP(-X)-X*E1(X) 11613000 +C 11614000 + E2=FAC-X*TAB(I) 11615000 +C 11616000 +C E3(X)=0.5*(EXP(-X)-X*E2(X)) 11617000 +C 11618000 + TAB(I)=0.5*(FAC-X*E2) 11619000 +C 11620000 +C E4(X)=(EXP(-X)-X*E3(X))/3 11621000 +C 11622000 + I331=I+331 11623000 + TAB(I331)=0.33333333*(FAC-X*TAB(I)) 11624000 + 100 CONTINUE 11625000 +C 11626000 +C WRITE EXPONENTIAL INTEGRALS AND FUNCTIONS 11627000 +C 11628000 + I1=1 11629000 + I1022=1022 11630000 + IF(STMP.LT.10.) GO TO 1111 11631000 + WRITE(LTPO,1200) 11632000 + WRITE(LTPO,1000)I1,XYKZ,(I,XYK(I-I1),I=2,1023) 11633000 + WRITE(LTPO,1400) 11634000 + WRITE(LTPO,1000)(I,XYK(I+I1022),I=1,1022) 11635000 + WRITE(LTPO,1600) 11636000 + WRITE(LTPO,1000)(I,TAB(I),I=1,331) 11637000 + WRITE(LTPO,1800) 11638000 + WRITE(LTPO,1000)(I,TAB(I+331),I=1,331) 11639000 + 1111 CONTINUE 11640000 +C 11641000 + NWDS=2707 11642000 +C 11643000 + WRITE(NTPE) XYKZ,XYK,TAB 11644000 +C 11645000 + 1000 FORMAT(7(I6,1PE12.5)) 11646000 + 1200 FORMAT(1H1,40X,38HORDINATES Y(I) FOR EXP(-X)=Y(I)-M(I)*X / 11647000 + 141X,7HI, EXPY /) 11648000 + 1400 FORMAT(1H1,40X,35HSLOPES M(I) FOR EXP(-X)=Y(I)-M(I)*X / 11649000 + 141X,7HI, EXPM /) 11650000 + 1600 FORMAT(1H1,40X,21HEXPONENTIAL INTEGRAL /41X,8HI, E3(I) /) 11651000 + 1800 FORMAT(1H1,40X,21HEXPONENTIAL INTEGRAL /41X,8HI, E4(I) /) 11652000 + RETURN 11653000 + END 11654000 + SUBROUTINE EXPFCT(NTPE,LTPO,STMP,EXPON) 11655000 +C ************************************************************ 11656000 +C THIS ROUTINE IS A MODIFIED VERSION OF ROUTINE EXPON OF ETOE CODE11657000 +C ****************************************************************11658000 +C 11659000 +C SUBROUTINE EXPFCT CALCULATES AN EXPONENTIAL FUNCTION 11660000 +C FOR MC**2-2 LIBRARY FILE 2 11661000 +C 11662000 +C SUBROUTINES CALLED BY SUBROUTINE EXPFCT 11663000 +C 11664000 +C IBCOM# FORTRAN I/O ROUTINE 11665000 +C DEXP FORTRAN EXPONENTIAL FUNCTION (DOUBLE PRECISION) 11666000 +C 11667000 +C DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER 11668000 +C TO PRESERVE ACCURACY 11669000 +C 11670000 + DOUBLE PRECISION C,DELTAU 11671000 + DIMENSION EXPON(1) 11672000 + COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS, 11673000 + 1NPASS,NPL,IPTMAX,ETOP,DU 11674000 +C 11675000 + DELTAU=DU 11676000 + C=DEXP(-DELTAU) 11677000 + NG21=NGROUP*2-1 11678000 + DO 100 I=1,NG21 11679000 + IF(-(1./C)**(NGROUP-I).LT.-180.D0)GOTO101 11680000 +C THIS ISTRUCTION GIVES DEXP UNDERFLOW 11681000 + EXPON(I)=(1.+(1./C)**(NGROUP-I))*DEXP(-(1./C)**(NGROUP-I)) 11682000 + GO TO 100 11683000 + 101 EXPON(I)=0. 11684000 + 100 CONTINUE 11685000 + IF(STMP.GT.10.) WRITE (LTPO,1000) (I,EXPON(I),I=1,NG21) 11686000 + NWDS=NG21 11687000 +C 11688000 + WRITE(NTPE) (EXPON(J),J=1,NWDS) 11689000 +C 11690000 + 1000 FORMAT (1H1,40X,20HEXPONENTIAL FUNCTION/(5(2X,I6,1PE13.6))) 11691000 + RETURN 11692000 + END 11693000 + SUBROUTINE E3(NTPE,STMP,LTPO,AX,EN) 11694000 +C ************************************************************ 11695000 +C THIS IS A MODIFIED ETOE ROUTINE 11696000 +C *********************************************************** 11697000 +C 11698000 +C SUBROUTINE E3 CONTROLS THE CALCULATION AND WRITING OF THE E3 11699000 +C FUNCTION 11700000 +C 11701000 +C SUBROUTINES CALLED BY SUBROUTINE E3 11702000 +C 11703000 +C EI CALCULATES THE EXPONENTIAL INTEGRAL E3 11704000 +C IBCOM# FORTRAN I/O ROUTINE 11705000 +C 11706000 +C DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER 11707000 +C TO PRESERVE ACCURACY. 11708000 +C 11709000 + DOUBLE PRECISION ENX,X,AX,DELX 11710000 + DIMENSION AX(1001),EN(1001),ENX(3) 11711000 +C 11712000 + NWDS=1001 11713000 + NX=3 11714000 + AX(1)=0.0D0 11715000 + AX(2)=0.01D0 11716000 + DELX=0.01D0 11717000 + DO 100 I=3,1001 11718000 + AX(I)=AX(I-1)+DELX 11719000 + 100 CONTINUE 11720000 + DO 200 I=1,1001 11721000 + X=AX(I) 11722000 + CALL EI(X,NX,ENX) 11723000 + EN(I)=ENX(3) 11724000 + 200 CONTINUE 11725000 +C 11726000 + WRITE(NTPE) EN 11727000 +C 11728000 + IF(STMP.LT.10) RETURN 11729000 + WRITE(LTPO,1000) 11730000 + WRITE(LTPO,2000)(AX(I),EN(I),I=1,1001) 11731000 + 1000 FORMAT(1H1/6X,1HX,10X,5HE3(X) /) 11732000 + 2000 FORMAT(1PE11.3,E15.6) 11733000 + RETURN 11734000 + END 11735000 + SUBROUTINE KI3(Z,X) 11736000 +C ************************************************************* 11737000 +C THIS ROUTINE HAS BEEN TAKEN FROM ETOE CODE 11738000 +C ************************************************************* 11739000 +C 11740000 +C SUBROUTINE KI3 CALCULATES THE THIRD ORDER BICKLEY FUNCTION 11741000 +C 11742000 +C X ARGUMENT 11743000 +C Z CALCULATED BICKLEY FUNCTION 11744000 +C 11745000 +C SUBROUTINES CALLED BY SUBROUTINE KI3 11746000 +C 11747000 +C DSQRT FORTRAN SQUARE ROOT FUNCTION (DOUBLE PRECISION) 11748000 +C DEXP FORTRAN EXPONENTIAL FUNCTION (DOUBLE PRECISION) 11749000 +C 11750000 + IMPLICIT REAL*8 (A-H,O-Z) 11751000 + IF(X.GT..0) GO TO 10 11752000 + Z=.785398163D-00 11753000 + GO TO 30 11754000 + 10 CONTINUE 11755000 + IF(X.LT.30.) GO TO 20 11756000 + IF(X.LT.160.) GO TO 15 11757000 + Z=0.0 11758000 + GO TO 30 11759000 + 15 CONTINUE 11760000 + Z=DEXP(-X)*DSQRT(1.570796/X)*(1.-(1.625-5.13281/X)/X) 11761000 + GO TO 30 11762000 + 20 CONTINUE 11763000 + ZD=.16852107+X*(5.05688558+X*(34.1521732+X*(79.7244201+X*( 11764000 + X 78.79235419+X*(34.81496948+X*(6.561524932+.4172698268*X)))))) 11765000 + ZN=.13235614+X*(3.86932674+X*(23.8493885+X*(44.6280232+X*( 11766000 + X 29.46275616+X*(7.112371513+.522969883*X))))) 11767000 + Z=DEXP(-X)*DSQRT(1.+X)*ZN/ZD 11768000 + 30 CONTINUE 11769000 + IF(Z.LT.1.D-50)Z=0.0 11770000 + RETURN 11771000 + END 11772000 + SUBROUTINE P3(MA,NA,ML1,ML2,AINDX1) 11773000 +C *************************************************** 11774000 +C THIS IS THE MAIN ROUTINE FOR THE PART 3 OF THE CODE. 11775000 +C IT READS THE SECOND GROUP OF INTERMEDIATE FILES AND WRITES THE 11776000 +C MC2-2 LIBRARY FILES MCC2F1-3-4-5-6-7-8 11777000 +C **************************************************** 11778000 +C 11779000 + DIMENSION NA(MA),AINDX1(ML1,ML2) 11780000 + DATA NBIANC/4H / 11781000 + COMMON/FILES/NT(4,99) 11782000 + EQUIVALENCE(NI,NT(1,5)),(NO,NT(1,6)),(NP,NT(1,11)),(NPP,NT(1,12))11783000 +C 11784000 +C FILES: NT(1,.)= NUM LOGICO 11785000 +C NT(2,.)= REC INIZIALE (NO MORE USED ) 11786000 +C NT(3,.)=PRIMO REC LIBERO 11787000 +C NT(4,.)=RECORD CORRENTE 11788000 +C 11789000 + COMMON/OPZIO/ OPZ(4,8,10) 11790000 + EQUIVALENCE (OPZ(3,1,1),STMP) 11791000 +C 11792000 +C OPZ= OPZIONI( PARTE 1,2 ECC ; FILE MCC2F1,2 ECC ; OPZIONE) 11793000 +C 11794000 +C 11795000 + COMMON/DIM/M(5) 11796000 + EQUIVALENCE (M(4),IND),(M(5),KMIX) 11797000 +C DIMENSIONI EFFETTIVE DI VARIE MATRICI : M(1)=DIM MIX SERIE 1 FILE11798000 +C M(2)=DIM INDICE PRIMA SER11799000 +C M(3)=DIM MIX SECONDA SERI11800000 +C M(4)=DIM INDICE SECONDA S11801000 +C M(5)=DIM MIX TERZA SERIE 11802000 +C 11803000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 11804000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 11805000 +C 11806000 + COMMON /INDX/NTABL(40,200) 11807000 +C INDICI PRIMA SERIE ; ORA USATI PER TABELLA FATTA CON MIXING 11808000 + COMMON /MIX/MIX(15,300) 11809003 +C MIXING ISOTOPI DA TRATTARE 11810000 +C 11811000 +C ALTRI INDICI TAPES DI OUTPUT (INDX ED INDX1 SONO SCAMBIATI 11812000 +C RISPETTO A P2: P2 LEGGE INDX SCRIVE INDX1,QUI LEGGE INDX1 11813000 +C USA INDX COME SPAZIO SCRATCH 11814000 + COMMON/RC1F1/ NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX, 11815000 + 1ETOP,DELTAU,MANY1,MMAT,NMAX,MAXREC 11816000 +C MAXREC E' UN DATO DEL RECORD 5 DI F1, MA E' MESSO IN /RC1F1/ 11817000 +C PER COMODITA'. 11818000 +C 11819000 + DIMENSION NRC1F1(13) 11820000 + EQUIVALENCE (NRC1F1(1),NMAT) 11821000 +C 11822000 +C SE NON ESISTE INDICE PARTE 2 11823000 + IF(M(4).GT.0) GOTO 110 11824000 + WRITE(NO,9000) 11825000 + WRITE(NP,9000) 11826000 + 9000 FORMAT(' WARNING! PART 3 CAN NOT FIND THE INDEX OF THE DATA!' 11827000 + 1 ,' PART 3 NOT EXECUTED') 11828000 + RETURN 11829000 + 110 CONTINUE 11830000 +C ANNULLA COMMON /RC1F1/ ED NA(MA) 11831000 + CALL RIEMP(0.,14,NMAT) 11832000 + CALL RIEMP(0.,MA,NA) 11833000 +C 11834000 +C ESPANDE IN NOME BIANCO NELLA MIX A RAPPRESENTARE TUTTI I 11835000 +C NOMI DI NUCLIDI DELL'INDICE 11836000 + IF(KMIX.LE.0) GO TO 401 11837000 + KKMIX=KMIX 11838000 +C .......... LOOP SULLA MIX E PER OGNI NOME BIANCO AGGIUNGE 11839000 + DO 5 I=1,KKMIX 11840000 + IF(MIX(1,I).NE.NBIANC.OR.MIX(2,I).NE.NBIANC) GO TO5 11841000 +C ........ LOOP SU INDICE ED AGGIUNGE TUTTI I NUCLIDI DELL'INDICE 11842000 + KMIX1=KMIX+1 11843000 + DO 6 IJ=1,IND 11844000 + NA1=NAREAL(AINDX1(8,IJ)) 11845000 + NA2=NAREAL(AINDX1(9,IJ)) 11846000 +C ESCLUDO NUCLIDI CON NOME BIANCO (USUALLY CODE ERRORS ) 11847000 + IF(NA1.EQ.NBIANC.AND.NA2.EQ.NBIANC) GO TO 6 11848000 + IF(NA1.EQ.0.AND.NA2.EQ.0) GO TO 6 11849000 + IF(AREAL(NA1).EQ.0.0.AND.AREAL(NA2).EQ.0.0) GO TO 6 11850000 + IF(KMIX.LT.KMIX1) GO TO402 11851000 +C ......... LOOP PER VEDERE SE LO HA GIA' MESSO 11852000 + DO 7 IJJ=KMIX1,KMIX 11853000 + IF(NA1.EQ.MIX(1,IJJ).AND.NA2.EQ.MIX(2,IJJ)) GO TO 6 11854000 + 7 CONTINUE 11855000 + 402 CONTINUE 11856000 +C AGGIUNGE 11857000 + KMIX=KMIX+1 11858000 + MIX(1,KMIX)=NA1 11859000 + MIX(2,KMIX)=NA2 11860000 + MIX(3,KMIX)=NA1 11861000 + MIX(4,KMIX)=NA2 11862000 + DO 8 J=5,15 11863000 + 8 MIX(J,KMIX)=MIX(J,I) 11864000 + 6 CONTINUE 11865000 + 5 CONTINUE 11866000 +C 11867000 +C SE NON ESISTE MIX FA UNA MIX FITTIZIA E CONTEMPORANEAMENTE IL SUO11868000 +C INDICE PRENDENDO TUTTI I MATERIALI DALL'INDICE DEI TAPES 11869000 + 401 KMAT=0 11870000 + IF(M(5).GT.0) GO TO 400 11871000 + N1=M(4) 11872000 + DO 42 IR=1,N1 11873000 + NA1=NAREAL(AINDX1(8,IR)) 11874000 + NA2=NAREAL(AINDX1(9,IR)) 11875000 +C ESCLUDO NUCLIDI CON NOME BIANCO (USUALLY CODE ERRORS ) 11876000 + IF(NA1.EQ.NBIANC.AND.NA2.EQ.NBIANC) GO TO 42 11877000 + IF(NA1.EQ.0.AND.NA2.EQ.0) GO TO 42 11878000 + IF(KMAT.LE.0) GO TO 410 11879000 +C GUARDA NELLA MIX GIA FATTA SE C'E' 11880000 + DO 45 I=1,KMAT 11881000 + IF(NA1.EQ.NA(1+(I-1)*4).AND.NA2.EQ.NA(2+(I-1)*4)) GO TO 420 11882000 + 45 CONTINUE 11883000 +C METTE IL MATERIALE (CHE NON C'E') NELLA MIX CHE STA FACENDO 11884000 + 410 KMAT=KMAT+1 11885000 + MIX(1,KMAT)=NA1 11886000 + MIX(3,KMAT)=NA1 11887000 + MIX(2,KMAT)=NA2 11888000 + MIX(4,KMAT)=NA2 11889000 + DO 47 II=5,15 11890000 + 47 MIX(II,KMAT)=0 11891000 + NA(1+(KMAT-1)*4)=NA1 11892000 + NA(2+(KMAT-1)*4)=NA2 11893000 +C POSIZIONE DEL NOME NELLA MIX (INDICE DELLA MIX) 11894000 + NA(3+(KMAT-1)*4)=KMAT 11895000 + NA(4+(KMAT-1)*4)=1 11896000 + 420 CONTINUE 11897000 + 42 CONTINUE 11898000 + KMIX=KMAT 11899000 + GOTO 430 11900000 + 400 CONTINUE 11901000 +C ORDINA MIX PER MATERIALI OUT, CREA KMAT=NUMERO MATERIALI 11902000 +C E CREA MATRICE A(4,K)=NOME,NOME(A8IN DUE) ,INIZIO VALORE,LUNGHEZZ11903000 + CALL ORDMD(1,K,MMIX1,KMIX,MIX,NA) 11904000 + KMAT=K 11905000 +C 11906000 + 430 CALL RIEMP(0,MINDX1*MINDX2,NTABL) 11907000 + CALL MIXSHO(3,NP) 11908006 +C A PIENO FINO A: A(4*KMAT) : INDICE DI MIX 11909000 +C 11910000 +C ORDINA AINDX1 PER MATERIALE E FA MATRICE DI INDICE DELL'INDICE 11911000 + CALL ORDMD(8,KIND,MIND11,IND,AINDX1,NA(4*KMAT+1)) 11912000 +C 11913000 +C A PIENO FINO A: A(4*KMAT + 4*KIND): INDICE DI AIND 11914000 +C 11915000 +C PUTATORE ALLA TAVOLA DEGLI ISOTOPI 11916000 + LISTAB=4*KMAT+4*KIND+1 11917000 +C DIMENSIONE TAVOLA DEGLI ISOTOPI (INCREMENTATO POI MENTRE LA FA)11918000 + NISTAB=0 11919000 + NISO=0 11920000 +C 11921000 +C 11922000 +C RIEMPIE LA TABELLA DI CREAZIONE MCCF 11923000 +C 11924000 +C FISSA I NOMI DEI MATERIALI 11925000 + DO 10 I=1,KMAT 11926000 + NTABL(1,I)=NA(1+(I-1)*4) 11927000 + NTABL(2,I)=NA(2+(I-1)*4) 11928000 + 10 CONTINUE 11929000 +C 11930000 +C ........... LOOP SUI MATERIALI OUTPUT (DI INDICE DI MIX) 11931000 + DO 15 I=1,KMAT 11932000 + N1=NA(3+(I-1)*4) 11933000 + N2=NA(4+(I-1)*4)+N1-1 11934000 +C 11935000 +C ... LOOP SU MIXING DEL MATERIALE QUESTIONE 11936000 + DO 20 IMX=N1,N2 11937000 + IF(IMX.GT.N1) GO TO 202 11938000 +C CERCA NELL INDICE DELL' INDICE IL NOME OUT 11939000 +C INDIVIDUA I RECORD DELL'INDICE DEL MATERIALE IN CUI CERCARE 11940000 +C 11941000 + DO 21 J=1,KIND 11942000 + KKINDN=(J-1+KMAT)*4 11943000 + IF(MIX(3,IMX).EQ.NA(1+KKINDN).AND. 11944000 + 1 MIX(4,IMX).EQ.NA(2+KKINDN)) GO TO 201 11945000 + 21 CONTINUE 11946000 + NI1=1 11947000 + NI2=IND 11948000 + CALL ERR(8HP3 ,201) 11949000 + GO TO 20 11950000 + 201 NI1=NA(3+KKINDN) 11951000 + NI2=NA(4+KKINDN)+NI1-1 11952000 +C ........................... LOOP SULL'INDICE DEL MATERIALE 11953000 + 202 DO 30 IIND=NI1,NI2 11954000 +C VEDE SE E L MCCF N 11955000 + IF(AINDX1(11,IIND).NE.MIX(6,IMX).AND.MIX(6,IMX).NE.0) GO TO 30 11956000 +C VEDE SE E IL NOME INPUT I 11957000 + IF( NAREAL(AINDX1(8,IIND)).EQ.MIX(3,IMX) 11958000 + 1 .AND.NAREAL(AINDX1(9,IIND)).EQ.MIX(4,IMX)) GO TO 203 11959000 + CALL ERR(8HP3 ,202) 11960000 + GOTO 30 11961000 +C QUI HA TROVATO NOME E NUMERO MCF (OPPURE MCF=0) 11962000 + 203 NPOST=0 11963000 + NMCF=AINDX1(11,IIND) 11964000 +C DETERMINA PEZZO DELLA TABELLA IN CUI VA IL NUMERO DELL INDICE 11965000 +C F1 SIGMA POTENZIALE DI BACKGROUD 11966000 + IF(NMCF.EQ.1) NPOST=3 11967000 +C F3 SIGMA UNRES 11968000 + IF(NMCF.EQ.3) NPOST=4 11969000 +C F4 PK UNRESOLVED 11970000 + IF(NMCF.EQ.4) NPOST=5 11971000 +C F7 FISSION SPECTRUM 11972000 + IF(NMCF.EQ.7) NPOST=6 11973000 +C F6: DISTRIBUZIONI ANEL, N,2N 11974000 + IF(NMCF.EQ.6) NPOST=32 11975000 +C F5 SMMOOTH PIU RESTO 11976000 + IF(NMCF.EQ.8) NPOST=33 11977000 +C 11978000 + IF(NMCF.NE.5) GO TO 100 11979000 +C F5 SMOOTHS 11980000 +C DETERMINO IN CHE POSIZIONE DELLATAVOLA VA ( ESISTE UNA POSIZIONE 11981000 +C PER OGNI REAZIONE CON DENTRO IL NUMERO DELL INDICE) 11982000 +C DETERMINO IL TIPO DI DATO : SMMOOTH,UNRES,RES 11983000 + INCR=0 11984000 +C SMOOTHS 11985000 + IF(AINDX1(25,IIND).EQ.1.) INCR=6 11986000 +C UNRESOLVED 11987000 + IF(AINDX1(25,IIND).EQ.2.) INCR=15 11988000 +C RESOLVED 11989000 + IF(AINDX1(25,IIND).EQ.3.) INCR=20 11990000 +C BACK DI A.A. 11991000 + IF(AINDX1(25,IIND).EQ.4.) INCR=25 11992000 +C NI 11993000 + IF(AINDX1(25,IIND).EQ.5.) INCR=31 11994000 +C 11995000 +C A SECONDA DELLA REAZIONE FISSA IL PUNTO=0 11996000 + INCR1=0 11997000 +C SCARTA I CASI SENZA TIPO DI REAZIONE ,ALTRIMENTI METTO 11998000 +C ( PER SMMOOTH,RES,UNRES) ULTERIORE INCREMENTO A SECONDA DEL 11999000 +C TIPO DI REAZIONE : TOT,EL ,ANEL,NG,FISS, ETC 12000000 + IF(AINDX1(25,IIND).EQ.1.) INCR1=AINDX1(23,IIND) 12001000 + IF(AINDX1(25,IIND).GE.2.AND.AINDX1(25,IIND).LE.4.) 12002000 + 1 INCR1=AINDX1(26,IIND) 12003000 + IF(AINDX1(26,IIND).EQ.4.) INCR1=4 12004000 +C 12005000 +C ANELASTICA DA SOMMARE ALLA TOTAL: POS=39=INCR1+INCR=33+6 12006000 + IF(AINDX1(23,IIND).EQ.10.) INCR1=33 12007000 +C N,2N DA SOMMARE ALLA TOTAL: POS=40=INCR1+INCR=34+6 12008000 + IF(AINDX1(23,IIND).EQ.11.) INCR1=34 12009000 + IF(INCR.NE.31.AND.INCR1.LE.0) GO TO 30 12010000 + 200 CONTINUE 12011000 +C 12012000 +C QUI HO DETERMINATO IL POSTO IN CUI VA LA COORDINATA DELL INDICE 12013000 +C ORA VEDO SE LA DEVO METTERE OPPURE NO, A SECONDA DI CHE MI DICE 12014000 +C LA MIX. CALCOLA IL POSTO COLLA MIX E SE NON COINCIDONO( E LA 12015000 +C MIX NON E' NULLA) SALTO IL MATERIALE 12016000 +C INCREMENTO DETERMINATO IN BASE A MIX 12017000 + INCRM=0 12018000 +C SMOOTH 12019000 + IF(MIX(7,IMX).EQ.1) INCRM=6 12020000 +C UNRES 12021000 + IF(MIX(7,IMX).EQ.2) INCRM=15 12022000 +C RESOLVED 12023000 + IF(MIX(7,IMX).EQ.3) INCRM=20 12024000 +C BACK DI A.A. 12025000 + IF(MIX(7,IMX).EQ.4) INCRM=25 12026000 +C NU 12027000 + IF(MIX(7,IMX).EQ.5) INCRM=31 12028000 + INCRM1=MIX(8,IMX) 12029000 + IF(INCRM1.EQ.10.) INCRM1=5 12030000 + IF(INCRM1.EQ.11.) INCRM1=4 12031000 + IF(INCRM1.EQ.12.)INCRM1=39 12032000 + IF(INCRM1.EQ.13.) INCRM1=40 12033000 + IF(MIX(8,IMX).GT.11) INCRM1=0 12034000 +C CONFRONTO DEI 2 INCREMENTI 12035000 + IF(INCRM.NE.0.AND.INCRM.NE.INCR) GO TO 30 12036000 + IF(INCRM1.NE.0.AND.INCRM1.NE.INCR1) GO TO 30 12037000 +C ASSEGNAZIONE INDICE 12038000 + NPOST=INCR+INCR1 12039000 + 300 CONTINUE 12040000 + 100 CONTINUE 12041000 + IF(NPOST.LE.0) 12042000 + 1CALL ERR(8HP3 ,100) 12043000 +C 12044000 +C NU TABULATO VA NEL POSTO 36 12045000 + IF(NPOST.EQ.31.AND.AINDX1(14,IIND).GT.0.) NPOST=36 12046000 +C SE NU TABULATO E' NELLO STESSO RECORD DI INDICE DEL NU COEFFICI12047000 +C ALLORA VA ANCHE NEL POSTO 31 DI NTABL 12048000 + IF(NPOST.EQ.36.AND.AINDX1(34,IIND).GT.0.) NTABL(31,I)=IIND 12049000 +C 12050000 +C STRUTTURA AD ISOTOPI PER RES ED UNRES SOMMATE ALLE SMOOTHS 12051000 +C FA TAVOLA DI ISOTOPI PER OGNUNA DELLE 10 REAZIONI RISONANTI E 12052000 +C PER OGNI REAZIONE NISO VALORI DI IND CUI RIFERIRSI NELLE SOMME 12053000 +C IN NTABL VIENE MESSO(CON SEGNO -) L'INDIRIZZO DELLA 12054000 +C TAVOLA DEGLI ISOTOPI DELLA REAZIONE 12055000 +C 12056000 + IF(NPOST.LT.16.OR.NPOST.GT.25) GO TO 301 12057000 + IF(AINDX1(10,IIND).LE.1.) GO TO 301 12058000 +C SE NISO E' .GT.1 DEVE FARE LA TAVOLA DEI NUCLIDI 12059000 + NISO=AINDX1(10,IIND) 12060000 +C 12061000 +C ===== SI SUPPONE CHE L'ISOTOPO NUMERO 1 ESISTA SEMPRE 12062000 +C IN CASO CONTRARIO SI DOVRANNO CERCARE GLI ALTRI, PER AVERE NISO12063000 +C E POI CONTROLLARE CHE NISO SIA COERENTE E SPERARE DI AVERCI PRE12064000 +C CHE QUI NON SI SA QUANTI ISOTOPI CI SONO ============== 12065000 +C 12066000 + ISO=AINDX1(35,IIND) 12067000 +C NELLA POSIZIONE NPOST DELLA TAVOLA STA CON SEGNO - L'ADDRESS 12068000 +C DELLA REAZIONE NELLA TAVOLA DEI NUCLIDI 12069000 + IF(NTABL(NPOST,I).NE.0.AND.NTABL(NPOST,I).NE.(-((NPOST-16)*NISO+12070000 + 1 1+NISTAB))) CALL ERR(8HP3 ,301) 12071000 + NTABL(NPOST,I)=-((NPOST-16)*NISO+1+NISTAB) 12072000 +C IL NUMERO DELL'INDICE E' NELLA TABELLA DEGLI ISOTOPI 12073000 + NTB=((NPOST-16)*NISO+ISO)+NISTAB+LISTAB-1 12074000 + IF(NA(NTB).GT.0) CALL ERR(8HP3 ,302) 12075000 + NA(NTB)=IIND 12076000 + GO TO 30 12077000 +C 12078000 + 301 NTABL(NPOST,I)=IIND 12079000 +C 12080000 + 30 CONTINUE 12081000 + 20 CONTINUE 12082000 + NISTAB=NISTAB+NISO*10 12083000 + NISO=0 12084000 + 15 CONTINUE 12085000 +C 12086000 +C ORDINAMENTO E SISTEMAZIONE TAVOLA DEI NUCLIDI 12087000 +C 12088000 + CALL ORDTAB(MINDX1,KMAT,NTABL,ML1,ML2,AINDX1) 12089000 +C 12090000 +C 12091000 + WRITE(NP,1000) (I,I=3,20) 12092000 + DO 58 I=1,KMAT 12093000 + 58 WRITE(NP,2000)(NTABL(J,I),J=1,20) 12094000 + WRITE(NP,1000) (I,I=21,40) 12095000 + DO 59 I=1,KMAT 12096000 + 59 WRITE(NP,2000)NTABL(1,I),NTABL(2,I),(NTABL(J,I),J=21,MINDX1) 12097000 + WRITE(NP,1010) NISTAB 12098000 + 1010 FORMAT(' TABLE OF ISOTOPES: (TABLE LENGTH:',I10,')') 12099000 + NK11=LISTAB+NISTAB-1 12100000 + IF(NISTAB.GT.0) WRITE(NP,2010) (NA(J),J=LISTAB,NK11) 12101000 + 2010 FORMAT(1X,10I7) 12102000 +C 12103000 + 1000 FORMAT(30X,'PART 3 - MC2-II FILES WRITENER '/ 12104000 + 120X,' TABLE OF INPUT MATERIALS:'/1X,(8X,40I5)) 12105000 + 2000 FORMAT(1X,2A4,38I5) 12106000 +C 12107000 +C FISSO CODICE DI ESISTENZA FILES 12108000 + NFLG1=NEXDI1(0,3,3,MINDX1,KMAT,INDX) 12109000 +C NEXDI1 DIVERSO DA ZERO SE NELLE COL DA 3 A 3 NTABL(MINDX1,KM).NE.012110000 + NFLG3=NEXDI1(0,4,4,MINDX1,KMAT,NTABL) 12111000 + NFLG4=NEXDI1(0,5,5,MINDX1,KMAT,NTABL) 12112000 + NFLG5=NEXDI1(0,7,31,MINDX1,KMAT,NTABL) 12113000 + NFLG6=NEXDI1(0,32,32,MINDX1,KMAT,NTABL) 12114000 + NFLG7=NEXDI1(0,6,6,MINDX1,KMAT,NTABL) 12115000 + NFLG8=NEXDI1(0,33,34,MINDX1,KMAT,NTABL) 12116000 +C 12117000 +C AZZERA DATI IN COMMON CHE E RECORD 1 DI F1 12118000 + DO 40 IKJ=1,13 12119000 + 40 NRC1F1(IKJ)=0 12120000 +C 12121000 +C FISSO SPAZIO PER FILE 1 IN A (PIENA FINO A 4*KMAT+4*KIND)+NISTAB 12122000 +C 12123000 +C IF ISOTOPE TABLE DOESN'T EXIST NISTAB IS SET 1 TO AVOID DIM .LE.0 12124000 + IF(NISTAB.LE.0) NISTAB=1 12125000 +C 12126000 +C DETERMINO POSIZIONE INIZIALE DEI DATI PER I RECORDS DI F1 12127000 + NREC2=1+(KMAT+KIND)*4 +NISTAB 12128000 +C SPAZIO PER RECORD 2 ( NOMI MAT) 12129000 + NREC3=NREC2+2*KMAT 12130000 +C RECORD 3 : A,Z,ENDF ID,EFISS,ECATT, PER OGNI MAT 12131000 + NREC4=NREC3+5*KMAT 12132000 +C RECORD 4 : SPECIFICHE DI UNRES E RES 12133000 + NREC5=NREC4+5*KMAT 12134000 +C RECORD 5 : SPECIFICHE F6 ( ANEL,N2N ECC ) 12135000 +C 12 PAROLE + 1 PAROLA PER GRUPPO+ 1 PAROLA (OPZ(2,5,4)=NG 12136000 + NREC6=NREC5+12*KMAT+OPZ(2,5,4)+1 12137000 +C RECORD 6 : SIGP 12138000 +C 12139000 + NREC7=NREC6+KMAT 12140000 +C 12141000 + IF(NREC7.GT.MA) CALL ERR(8H P3 ,20) 12142004 +C IF(NREC7.GT.MA) CALL ERRP(2,MA,NREC7,0.,0.,0.) 12143000 +C 12144000 + IF(NFLG3.GT.0)CALL P3MCF3(KMAT,NA(NREC2),NA(NREC3),NA(NREC4), 12145000 + 1NA(NREC5),NA(NREC6),MA-NREC7,NA(NREC7),NA(1),KIND,NA(KMAT*4+1), 12146000 + 2 ML1,ML2,AINDX1) 12147000 +C 12148000 + IF(NFLG4.GT.0)CALL P3MCF4(KMAT,NA(NREC2),NA(NREC3),NA(NREC4), 12149000 + 1NA(NREC5),NA(NREC6),MA-NREC7,NA(NREC7),NA(1),KIND,NA(KMAT*4+1), 12150000 + 2 ML1,ML2,AINDX1) 12151000 +C 12152000 + IF(NFLG5.GT.0)CALL P3MCF5(KMAT,NA(NREC2),NA(NREC3),NA(NREC4), 12153000 + 1NA(NREC5),NA(NREC6),MA-NREC7,NA(NREC7),NISTAB,NA(LISTAB), 12154000 + 2 ML1,ML2,AINDX1) 12155000 +C 12156000 + IF(NFLG6.GT.0)CALL P3MCF6(KMAT,NA(NREC2),NA(NREC3),NA(NREC4), 12157000 + 1NA(NREC5),NA(NREC6),MA-NREC7,NA(NREC7), 12158000 + 2 ML1,ML2,AINDX1) 12159000 +C 12160000 + IF(NFLG7.GT.0)CALL P3MCF7(KMAT,NA(NREC2),NA(NREC3),NA(NREC4), 12161000 + 1NA(NREC5),NA(NREC6),MA-NREC7,NA(NREC7), 12162000 + 2 ML1,ML2,AINDX1) 12163000 +C 12164000 + IF(NFLG8.GT.0)CALL P3MCF8(KMAT,NA(NREC2),NA(NREC3),NA(NREC4), 12165000 + 1NA(NREC5),NA(NREC6),MA-NREC7,NA(NREC7), 12166000 + 2 ML1,ML2,AINDX1) 12167000 +C 12168000 + IF(NFLG1.GT.0)CALL P3MCF1(KMAT,NA(NREC2),NA(NREC3),NA(NREC4), 12169000 + 1NA(NREC5),NA(NREC6),MA-NREC7,NA(NREC7), 12170000 + 2 ML1,ML2,AINDX1) 12171000 + RETURN 12172000 + END 12173000 + SUBROUTINE ORDTAB(M1,KMAT,NTABL,ML1,ML2,AINDX1) 12174000 +C ***************************************************** 12175000 +C THIS ROUTINE ORDERS THE MATERIALS TABLE FOR DECREASING 12176000 +C MASS NUMBERS 12177000 +C ***************************************************** 12178000 +C 12179000 + DIMENSION AINDX1(ML1,ML2),NTABL(M1,KMAT) 12180000 + COMMON/FILES/NT(4,99) 12181000 + EQUIVALENCE (NO,NT(1,6)),(NP,NT(1,11)) 12182000 + DIMENSION NHIDR(2) 12183000 + DATA NHIDR/4HHYDR,4HGN / 12184000 +C 12185000 +C LA TABELLA VIENE ORDINATA IN BASE AD A : AINDX1(5,NTABL(3,IS)12186000 +C VIENE ORDINATA PER NUMERI DI MASSA DECRESCENTI 12187000 + IF(KMAT.LE.0) RETURN 12188000 +C 12189000 + DO 10 IS=1,KMAT 12190000 + KAI=NTABL(3,IS) 12191000 + IF(KAI.GT.0.AND.KAI.LE.ML2) GO TO 100 12192000 + CALL ERR(8HORDTAB ,100) 12193000 + GO TO10 12194000 + 100 AI=AINDX1(5,KAI) 12195000 + I1=IS+1 12196000 + IF(I1.GT.KMAT) GO TO 300 12197000 + DO 20 IS1=I1,KMAT 12198000 + KAI1=NTABL(3,IS1) 12199000 + IF(KAI1.LE.0.OR.KAI.GT.ML2) GO TO 200 12200000 + AI1=AINDX1(5,KAI1) 12201000 + IF(AI1.LE.AI) GO TO 20 12202000 +C SCAMBIA 12203000 + DO 30 I=1,M1 12204000 + NDUM=NTABL(I,IS) 12205000 + NTABL(I,IS)=NTABL(I,IS1) 12206000 + NTABL(I,IS1)=NDUM 12207000 + 30 CONTINUE 12208000 + AI=AI1 12209000 + 20 CONTINUE 12210000 + 200 CONTINUE 12211000 + 10 CONTINUE 12212000 + 300 CONTINUE 12213000 +C L'ULTIMO IL PIU LEGGERE, SE E' H LA CHIAMA 12214000 +C COL NOME HYDRGN 12215000 +C 12216000 + IF(NTABL(3,KMAT).LE.0.OR.NTABL(3,KMAT).GT.ML2) GOTO500 12217000 + IF(AINDX1(5,NTABL(3,KMAT)).GT.1.5) GO TO 500 12218000 + IF(NTABL(1,KMAT).EQ.NHIDR(1).AND.NTABL(2,KMAT).EQ.NHIDR(2)) 12219000 + 1 GO TO 500 12220000 + WRITE(NP,1000) NTABL(1,KMAT),NTABL(2,KMAT),NHIDR 12221000 + WRITE(NO,1000) NTABL(1,KMAT),NTABL(2,KMAT),NHIDR 12222000 + 1000 FORMAT(' WARNING! NAME: ',2A4,' ,RECOGNIZED AS HYDROGEN,' 12223000 + 1 ,' HAS BEEN CHANGED INTO: ',2A4,' AS REQUIRED BY MC2-2') 12224000 + NTABL(1,KMAT)=NHIDR(1) 12225000 + NTABL(2,KMAT)=NHIDR(2) 12226000 + 500 RETURN 12227000 + END 12228000 + SUBROUTINE P3MCF3(NNUC,NAME,NREC3,NREC4,NREC5,SIGP,MA,NA, 12229000 + 1 INDMIX,KIND,INDIND,ML1,ML2,AINDX1) 12230000 +C ******************************************************* 12231000 +C FILE MCC2F3 GENERATION:UNRESOLVED RESONANCE PARAMETERS 12232000 +C FA FILE MCC2F3 . IN ARGOMENTI NA: SPAZIO DI LAVORO ED I 12233000 +C DIVERSI RECORDS DI MCC2F1 12234000 +C 12235000 +C INDIND(4,KIND) = INDICE DI IND: NOME(REAL*8) INIZIO DURATA 12236000 +C INDMIX(4,NNUC) = INDICE DI MIX: " " " 12237000 +C 12238000 +C ************************************************************** 12239000 +C 12240000 + DIMENSION NREC3(5,NNUC),NREC4(5,NNUC),NREC5(12,NNUC) 12241000 + DIMENSION SIGP(NNUC),NA(MA),INDIND(4,KIND),INDMIX(4,NNUC) 12242000 + DIMENSION AINDX1(ML1,ML2) 12243000 + REAL*8 NAME(NNUC) 12244000 +C 12245000 + COMMON/FILES/NT(4,99) 12246000 + EQUIVALENCE (NO,NT(1,6)),(NP,NT(1,11)) 12247000 + COMMON /DIM/M(5) 12248000 + EQUIVALENCE (M(2),MIND) 12249000 +C IN DIM IN M(4) STA ANCHE NNUC, LUNGHEZZA DI INDX ( NUMERO ISOTOP 12250000 + COMMON /RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL, 12251000 + 1IPTMAX,ETOP,DELTAU,MANY1,MMAT,NMAX 12252000 + COMMON/INDX/NTABL(40,200) 12253000 + COMMON/OPZIO/ OPZ(4,8,10) 12254000 + EQUIVALENCE (OPZ(3,3,1),STMP) 12255000 +C 12256000 + WRITE(NP,9999) 12257000 + 9999 FORMAT(' P3MCF3 ENTERED : UNRESOLVED RESONANCE PARAMETERS') 12258000 +C 12259000 +C COSTRUISCO SPAZI PER RECORDS 1,2,3 12260000 +C CON DATI DELL INDICE 12261000 +C 12262000 +C GLI INDIRIZZI IN QUESTA ROUTINE, CONTRARIAMENTE ALLA 12263000 +C PRATICA CORRENTE IN QUESTO PROGRAMMA SONO IL NUMERO 12264000 +C DI LOCAZIONI CHE PRECEDONO IL DATO E NON, COME 12265000 +C USUALMENTE, LA PRIMA LOCAZIONE DEL DATO. 12266000 +C 12267000 + NR1=0 12268000 +C INIZIO DI RECORD 1 DI F3 ( NOMI REAL*8) I NOMI SONO INDICATI 12269000 +C NEL RESTO DEL PROGRAMMA COME NA(1) NON NA(NR1+1) 12270000 + NR2=NR1+2*NNUC 12271000 +C POSIZIONAMENTO DELLE PAROLE DEL RECORD 2 ( SPECIFICHE GENERALI) 12272000 + NR2NIS=NR2 12273000 +C .................. NOMI MATERIALI 12274000 + NR2IFI=NNUC+NR2NIS 12275000 +C .................. IFI ( FLAG DI FISSIONE) 12276000 + NR2ISK=NR2IFI+NNUC 12277000 +C .................. ISK NUMERO DEI RECORDS 12278000 + NR2LSM=NR2ISK+NNUC 12279000 + NR2LS1=NR2LSM+1 12280000 +C .................. LST MAX ( DEL FILE MCC2F3 12281000 + NR2JSM=NR2LSM+1 12282000 + NR2JS1=NR2JSM+1 12283000 +C .................. JST MAX ( DI MCC2F3 12284000 + NR2NPM=NR2JSM+1 12285000 + NR2NP1=NR2NPM+1 12286000 +C .................. NPTMAX (DI MCC2F3 12287000 +C RECORD 3 12288000 + NR3=NR2NPM+1 12289000 + IF(NR3.GT.MA) CALL ERR(8HP3MCF3 ,0) 12290000 +C 12291000 +C IL RECORD 3 PER MCF3 VIENE QUINDI PREPARATO IN QUESTO MODO: 12292000 +C ABUND,A,RPF,LST,NPT,RPS,NADD 12293000 +C 1 2 3 4 5 6 7 / POSIZ=(NUNRMT-1)(7*(NUM ISO-1)+NR312294000 +C TUTTI I DATI DEL RECORD SONO VERI E PROPRI DATI DEL RECORD 3 DI M12295000 +C MCF3 , SALVO NADD, CHE E IL NUMERO DEL RECORD DI INDX CHE CONTIEN12296000 +C L ISOTOPO 12297000 +C 12298000 +C QUESTA ROBA VA MESSA QUI PER IL CALCOLO DEL MAX CHE VA IN RECORD 12299000 +C 12300000 +C NMNG E IL NUMERO DEI GRUPPI DI QUESTI 7 VALORI CHE VIENE RIEMPITO12301000 +C 12302000 + CALL RIEMP(0.0,MA,NA) 12303000 +C 12304000 +C NUMERO DI MATERIALI UNRES PER F1:NUNRMT 12305000 + NUNRMT=0 12306000 + NMNG=0 12307000 +C ----------------- CALCOLO DATI DEI RECORDS 1 - 2 -------------12308000 +C 12309000 +C .....................LOOP SU MATERIALI ( SULLE RIGHE DELLA TAVOLA12310000 +C RIEMPIMENTO RECORD 3 12311000 + DO 10 IM=1,NNUC 12312000 + NINDX=NTABL(4,IM) 12313000 + IF(NINDX.LE.0) GO TO 10 12314000 +C SALTA SE NON E' UN F3 DEL MATERIALE ( ESISTE UN ALMENO DI SPECIFI12315000 +C DI MCF3 NELLA TAVOLA OPPURE P3MCF3 NON SAREBBE STATA CHIAMATA) 12316000 + NUNRMT=NUNRMT+1 12317000 +C NUNRMT E' UN DATO DI MCF1 12318000 + NOM=NAREAL(AINDX1(8,NINDX)) 12319000 + NOM1=NAREAL(AINDX1(9,NINDX)) 12320000 +C NOM,NOM1 DEFINISCONO IL NOME DI INPUT CHE NON E' QUELLO 12321000 +C DELLA TABELLA NTABL, CONTENENTE IL NOME DI OUTPUT. 12322000 + NISO=AINDX1(20,NINDX) 12323000 + IF(NISO.LE.0) CALL ERR(8HP3MCF3 ,1) 12324000 +C .................. DEFINIZIONE PARTE DI IND DEL MATERIALE 12325000 + DO 20 I=1,KIND 12326000 + IF(NOM.EQ.INDIND(1,I).AND.NOM1.EQ.INDIND(2,I)) GO TO 151 12327000 + 20 CONTINUE 12328000 + CALL ERR(8HP3MCF3 ,20) 12329000 + GO TO 10 12330000 + 151 NI1=INDIND(3,I) 12331000 + NI2=NI1+INDIND(4,I)-1 12332000 +C ............. LOOP SU INDICE DI INTERESSE 12333000 + DO 30 IND=NI1,NI2 12334000 +C CERCO GLI ISOTOPI. QUANDO NE TROVO UNO LO METTO NEL SUO POSTO 12335000 +C POI ALLA FINE CONTROLLO SE CI SONO TUTTI. 12336000 + IF(AINDX1(11,IND).NE.3.) GO TO 30 12337000 + NUMIS=AINDX1(34,IND) 12338000 + IF(NUMIS.LE.0.OR.NUMIS.GT.NISO) GO TO 30 12339000 + NPOST=NR3+(NMNG+NUMIS-1)*7 12340000 +C SE L'ISOTOPO E' GIA STATO PRESO NON LO RIPRENDE 12341000 + IF(AREAL(NA(NPOST+1)).GT.0.)GO TO 30 12342000 +C TROVATO L'ISOTOPO LO METTE NEL RECORD 3 12343000 +C 12344000 +C 12345000 +C ABBONDANZA ISOTOPO 12346000 + NA(NPOST+1)=NAREAL(AINDX1(26,IND)) 12347000 +C A 12348000 + NA(NPOST+2)=NAREAL(AINDX1(27,IND)) 12349000 +C RPF 12350000 + NA(NPOST+3)=NAREAL(AINDX1(29,IND)) 12351000 +C LST 12352000 + NA(NPOST+4)=AINDX1(23,IND) 12353000 +C NPT 12354000 + NA(NPOST+5)=AINDX1(25,IND) 12355000 +C RPS 12356000 + NA(NPOST+6)=NAREAL(AINDX1(28,IND)) 12357000 +C 12358000 +C POSIZIONE DELL INDICE 12359000 + NA(NPOST+7)=IND 12360000 +C 12361000 +C MASSIMI DI RECORD 3-4 CONTENUTI NEL RECORD 2: 12362000 +C 12363000 + IF(NA(NR2LS1).LT.AINDX1(23,IND))NA(NR2LS1)=AINDX1(23,IND) 12364000 +C 12365000 + IF(NA(NR2JS1).LT.AINDX1(24,IND))NA(NR2JS1)=AINDX1(24,IND) 12366000 +C 12367000 + IF(NA(NR2NP1).LT.AINDX1(25,IND))NA(NR2NP1)=AINDX1(25,IND) 12368000 +C 12369000 +C METTO EMAX ED EMIN IN F1 12370000 + IF(AREAL(NREC4(4,NUNRMT)).LT.AINDX1(33,IND)) 12371000 + 1 NREC4(4,NUNRMT)=NAREAL(AINDX1(33,IND)) 12372000 +C 12373000 + IF(AREAL(NREC4(5,NUNRMT)).LE.0.) 12374000 + 1 NREC4(5,NUNRMT)=NAREAL(AINDX1(32,IND)) 12375000 + IF(AREAL(NREC4(5,NUNRMT)).GT.AINDX1(32,IND)) 12376000 + 1 NREC4(5,NUNRMT)=NAREAL(AINDX1(32,IND)) 12377000 +C 12378000 +C FINE LOOP SU IND DEL MAT PER RICERCA ISOTOPO.................... 12379000 + 30 CONTINUE 12380000 + NMNG=NMNG+NISO 12381000 +C 12382000 +C CONTROLLO DI AVER TROVATO TUTTI GLI ISOTOPI 12383000 + DO 31 J=1,NISO 12384000 + IF(NAREAL(NA(NPOST+J)).GT.0.) GO TO 31 12385000 + CALL ERR(8HP3MCF3 , 31) 12386000 +C CALL ERRP(5,IM,NUNRMT,NISO,J,NA) 12387000 + 31 CONTINUE 12388000 +C 12389000 +C IL SEGUITO NON DIPENDE DA ISOTOPI 12390000 +C 12391000 +C ------------------- DATI DEL RECORD 1 ----------------- 12392000 +C NOMI MATERIALI IN DOPPIA 12393000 + NA(1+2*(NUNRMT-1))=NTABL(1,IM) 12394000 + NA(2*NUNRMT)=NTABL(2,IM) 12395000 +C NISO 12396000 + NA(NR2NIS+NUNRMT)=AINDX1(20,NINDX) 12397000 +C IFI 12398000 + NA(NR2IFI+NUNRMT)=AINDX1(21,NINDX) 12399000 +C ISK 12400000 + NA(NR2ISK+NUNRMT)=AINDX1(22,NINDX)+1 12401000 +C FINE LOOP SU TAVOLA ( NUCLIDI ) IM 12402000 +C 12403000 + 10 CONTINUE 12404000 + NR4=NR3+NMNG*7 12405000 +C 12406000 +C ------------------ SCRITTURE E LETTURE ----------------- 12407000 +C 12408000 +C DEFINIZIONE TAPE DI OUTPUT ( E IL NUMERO 53 DELLA TAVOLA NT) 12409000 + NTOUT=53 12410000 + NTO=NT(1,NTOUT) 12411000 + CALL REW(NTOUT) 12412000 +C ------------------------------------ SCRIVE RECORD 1 12413000 + N1=2*NUNRMT 12414000 + WRITE(NTO) (NA(J),J=1,N1) 12415000 + WRITE(NO,1000)(NA(J),J=1,N1) 12416000 + WRITE(NP,1001)(NA(J),J=1,N1) 12417000 + 1000 FORMAT(///20X,'FILE MCC2F3 PRODUCED - UNRESOLVED RESONANCE', 12418000 + 1 ' PARAMETERS' 12419000 + 2 ///20X,' MATERIALS:'// 12420000 + 3 1X,(10(2X,2A4))) 12421000 + 1001 FORMAT(1X,'FILE MCC2F3 PRODUCED. MATERIALS:' 12422000 + 1 /(10(2X,2A4))) 12423000 +C 12424000 +C ---------------------------------- SCRIVE RECORD 2 12425000 +C 12426000 + WRITE(NTO) (NA(NR2NIS+J),J=1,NUNRMT),(NA(NR2IFI+J),J=1,NUNRMT), 12427000 + 1(NA(NR2ISK+J),J=1,NUNRMT),NA(NR2LS1),NA(NR2JS1),NA(NR2NP1) 12428000 + IF(STMP.GT.1001) WRITE(NO,2000) 12429000 + 1 NUNRMT,NA(NR2LS1),NA(NR2JS1),NA(NR2NP1), 12430000 + 2 (J,NA(NR2NIS+J),NA(NR2IFI+J),NA(NR2ISK+J),J=1,NUNRMT) 12431000 + 2000 FORMAT(//20X,'RECORD 2:'/' UNRESOLVED RESONANCE MATERIALS:', 12432000 + 1I5,5X,' LSTMAX:',I5,5X,'JSTMAX:',I5,5X,'NPTMAX:',I5/ 12433000 + 2' MATERIAL , NISO , IFI , ISK '/1X,(1X,I6,3I10)) 12434000 +C 12435000 +C ..................... LOOP SU MATERIALI ............... 12436000 +C 12437000 + NMNG=0 12438000 +C SONO IGRUPPI DI 7 GIA LETTI (DEI MATERIALI PRECEDENTI(TUTTI GLI I12439000 +C ISOTOPI) 12440000 + DO 40 IM=1,NNUC 12441000 +C 12442000 + NINDX=NTABL(4,IM) 12443000 + IF(NINDX.LE.0) GO TO 40 12444000 + NISO=AINDX1(20,NINDX) 12445000 +C 12446000 +C ------------------------------------SCRITTURA RECORD 3 12447000 +C 12448000 + WRITE (NTO)((NA(NR3+NMNG+7*(J-1)+JJ),J=1,NISO),JJ=1,6) 12449000 + IF(STMP.GT.1003.) 12450000 + 1WRITE(NO,3000)IM,(J,(NA(NR3+NMNG+7*(J-1)+JJ),JJ=1,6),J=1,NISO) 12451000 + 3000 FORMAT(/20X,'RECORD 3 , MATERIAL:',I5/ 12452000 + 1' ISOTOPE , ABUND , A , RPF , LST, NPT , RPS'/ 12453000 + 2 1X,(1X,I5,3X,3E12.5,2I5,E12.5)) 12454000 +C 12455000 +C ------------------------------- RECORD 4 E RECORD 5 12456000 +C 12457000 + DO 50 IS=1,NISO 12458000 +C POSIZIONE DELL'ISOTOPO NELL'INDICE 12459000 + NINDP=NA(NR3+NMNG+7*(IS-1)+7) 12460000 +C DEFINIZIONE POSIZIONE SUL FILE 12461000 + NTIN=AINDX1(15,NINDP) 12462000 + NTI=NT(1,NTIN) 12463000 + NRECI=AINDX1(16,NINDP) 12464000 + CALL POST1(NTIN,NRECI) 12465000 +C IN QUESTO INDEX LA PARTE 2 METTE LE PAROLE DEI RECORDS 4 E 5 , CO12466000 +C NON DEVO RICALCOLARLE CHE E COMPLICATO 12467000 + NL4=AINDX1(18,NINDP) 12468000 + NL5=AINDX1(19,NINDP) 12469000 +C USA SPAZIO A RIMASTO 12470000 + IF(NR4+NL4+1.GT.MA) CALL ERR(8HP3MCF3 ,50) 12471000 + IF(NR4+NL5+1.GT.MA) CALL ERR(8HP3MCF3 ,51) 12472000 + READ(NTI)(NA(NR4+J),J=1,NL4) 12473000 + WRITE(NTO)(NA(NR4+J),J=1,NL4) 12474000 + READ(NTI)(NA(NR4+J),J=1,NL5) 12475000 + WRITE(NTO)(NA(NR4+J),J=1,NL5) 12476000 +C 12477000 + NT(4,NTI)=NT(4,NTI)+2 12478000 + 50 CONTINUE 12479000 + NMNG=NMNG+NISO*7 12480000 +C 12481000 +C NMNG E IL NUMERO DI GRUPPI DI 7 LETTI NELLO SPAZIO NA PER IL RECOR12482000 +C 12483000 + 40 CONTINUE 12484000 +C ........................................... FINE LOOP MATERIALI 12485000 + CALL REW(NTOUT) 12486000 + RETURN 12487000 + END 12488000 + SUBROUTINE P3MCF4(NNUC,NAME,NREC3,NREC4,NREC5,SIGP,MA,NA, 12489000 + 1 INDMIX,KIND,INDIND,ML1,ML2,AINDX1) 12490000 +C **************************************************************** 12491000 +C FILE MCC2F4 GENERATION: RESOLVED RESONANCE PARAMETERS 12492000 +C FA FILE MCF4 IN ARGOMENTO : SPAZIO DI LAVORO NA ED I DIVERSI 12493000 +C RECORDS DI MC2F1 12494000 +C INDIND(4,KIND)=INDICE DI INDX 12495000 +C INDMIX(4,NNUC)=INDICE DI MIX 12496000 +C 12497000 +C **************************************************************** 12498000 +C 12499000 + DIMENSION SIGP(NNUC),NA(MA),INDIND(4,KIND),INDMIX(4,NNUC) 12500000 + DIMENSION NREC3(5,1),NREC4(5,1),NREC5(12,1) 12501000 + DIMENSION AINDX1(ML1,ML2) 12502000 + REAL*8 NAME(NNUC) 12503000 +C 12504000 + COMMON/FILES/NT(4,99) 12505000 + EQUIVALENCE (NT(1,6),NO),(NP,NT(1,11)) 12506000 + COMMON /DIM/M(5) 12507000 + EQUIVALENCE(M(2),MIND) 12508000 + COMMON /INDX/NTABL(40,200) 12509000 + COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX, 12510000 + 1ETOP,DELTAU,MANY1,MMAT,NMAX 12511000 + COMMON/OPZIO/OPZ(4,8,10) 12512000 + EQUIVALENCE (OPZ(3,4,1),STMP) 12513000 +C 12514000 + WRITE(NP,9999) 12515000 + 9999 FORMAT(' P3MCF4 ENTERED : RESOLVED RESONANCE PARAMETERS') 12516000 +C 12517000 +C 12518000 +C COSTRUZIONE SPAZI PER I RECORDS 1,2,3 12519000 +C 12520000 +C INIZIO RECORD 1 DI F4 12521000 + NR1=0 12522000 +C ------------------ INIZIO RECORD 2 12523000 + NR2=NR1+NNUC*2 12524000 +C POSIZIONE PAROLE DELE RECORD 2 (SPECIFICHE GENERALI) 12525000 + NR2NIS=NR2 12526000 +C NOMI MATERALI 12527000 + NR2IWR=NR2NIS+NNUC 12528000 +C IWR: TIPO RAPPRESENTAZIONE 12529000 + NR2EL=NR2IWR+NNUC 12530000 +C E INF 12531000 + NR2EU=NR2EL+NNUC 12532000 +C ENERGIA UPPER 12533000 +C ---------------- RECORD 3 : INIZIO 12534000 + NR3=NR2EU+NNUC 12535000 + CALL RIEMP(0.0,MA,NA) 12536000 + IF(NR3.GT.MA) CALL ERR(8HP3MCF4 ,0) 12537000 +C NUOVO RES PER F2 12538000 + NRESMT=0 12539000 +C RIEMPIMENTO RECORD 3 ( TUTTO COME P3MCF3 LA STRUTTURA) 12540000 + NMNG=0 12541000 +C ...................................LOOP SU MATERIALI( RIGHE DELLA12542000 +C TAVOLA) 12543000 + DO 10 IM=1,NNUC 12544000 + NINDX=NTABL(5,IM) 12545000 + IF(NINDX.LE.0) GO TO 10 12546000 +C SALTA SE NON CI E F4 NELLA TAVOLA 12547000 + NRESMT=NRESMT+1 12548000 + NOM=NAREAL(AINDX1(8,NINDX)) 12549000 + NOM1=NAREAL(AINDX1(9,NINDX)) 12550000 + NISO=AINDX1(20,NINDX) 12551000 + IF(NISO.LE.0) CALL ERR(8HP3MCF4 ,1) 12552000 +C CERCA IL NOME NELL'INDICE DELL'INDICE 12553000 + DO 20 I=1,KIND 12554000 + IF(NOM.EQ.INDIND(1,I).AND.NOM1.EQ.INDIND(2,I))GOTO 151 12555000 + 20 CONTINUE 12556000 + CALL ERR(8HP3MCF4 ,20) 12557000 + GO TO 10 12558000 + 151 NI1=INDIND(3,I) 12559000 + NI2=NI1+INDIND(4,I)-1 12560000 +C LOOP SU INDICE DEL MATERIALE (CERCA ISOTOPI) 12561000 + DO 30 IND=NI1,NI2 12562000 +C 12563000 + IF(AINDX1(11,IND).NE.4.) GO TO 30 12564000 + NUMIS=AINDX1(34,IND) 12565000 + IF(NUMIS.LE.0.OR.NUMIS.GT.NISO) GO TO 30 12566000 + NPOST=NR3+(NMNG+NUMIS-1)*3 12567000 + IF(AREAL(NA(NPOST+1)).GT.0.) GO TO 30 12568000 +C 12569000 +C ----------------- RIEMPIE IL RECORD 3 (PER ISOTOPO TROVATO) 12570000 +C ABBONDANZA 12571000 + NA(NPOST+1)=NAREAL(AINDX1(26,IND)) 12572000 +C NUMERO RISONANZE 12573000 + NA(NPOST+2)=AINDX1(18,IND) 12574000 +C POSIZIONE NELL INDICE 12575000 + NA(NPOST+3)=IND 12576000 +C E INF 12577000 + IF(NA(NR2EU+NRESMT).EQ.0) NA(NR2EL+NRESMT)=NAREAL(AINDX1(32,IND)) 12578000 + IF(AREAL(NA(NR2EL+NRESMT)).GT.AINDX1(32,IND)) 12579000 + 1 NA(NR2EL+NRESMT)=NAREAL(AINDX1(32,IND)) 12580000 +C E UPPER 12581000 + IF(NAREAL(NA(NR2EU+NRESMT)).LT.AINDX1(33,IND)) 12582000 + 1 NA(NR2EU+NRESMT)=NAREAL(AINDX1(33,IND)) 12583000 + 30 CONTINUE 12584000 +C CONTROLLO DI AVER TROVATO TUTTI GLI ISOTOPI 12585000 + DO 31 J=1,NISO 12586000 + NPOST=NR3+(NMNG+J-1)*3+1 12587000 + IF(NAREAL(NA(NPOST)).GT.0.) GO TO 31 12588000 + CALL ERR(8HP3MCF4 , 31) 12589000 +C CALL ERRP(5,IM,NUNRMT,NISO,J,NA(NPOST)) 12590000 + 31 CONTINUE 12591000 + NMNG=NMNG+NISO 12592000 +C 12593000 +C RIEMPIO IL RECORD 1 ( SUPPONGO COERENZA FRA I VARI PEZZI DI NTAB12594000 +C , CIOE STESSO NUM ISOTOPI ETC O E IL CAOS, I SINGOLI ISOTOPI DEVO12595000 +C ESSERE COERENTI 12596000 +C 12597000 +C ------------------------------RECORD 1 12598000 + NA(1+2*(NRESMT-1))=NTABL(1,IM) 12599000 + NA(2*NRESMT)=NTABL(2,IM) 12600000 +C ----------------------------- RECORD 2 12601000 + NA(NR2NIS+NRESMT)=AINDX1(20,NINDX) 12602000 +C -------------------------------NISO 12603000 + NA(NR2IWR+NRESMT)=AINDX1(23,NINDX) 12604000 +C -------------------------------IWR : TIPO RAPPRESENTAZIONE 12605000 +C 12606000 + 10 CONTINUE 12607000 +C FINE LOOP SU IM: TAVOLA DEI NUCLIDI ; HA FATTO RECORDS 1,2,3 12608000 + NR4=NR3+NMNG*3 12609000 +C 12610000 +C -------------------- LEGGE RECORD RESTANTI E SCRIVE 12611000 +C DEFINIZIONE TAPE DI OUTPUT ( E IL 54 DELLA TAVOLA NT ) 12612000 + NTOUT=54 12613000 + NTO=NT(1,NTOUT) 12614000 + CALL REW(NTOUT) 12615000 +C --------------------SCRIVE RECORD 1 12616000 + N1=2*NRESMT 12617000 + WRITE(NTO) (NA(J),J=1,N1) 12618000 + WRITE(NO,1000)(NA(J),J=1,N1) 12619000 + WRITE(NP,1001)(NA(J),J=1,N1) 12620000 + 1000 FORMAT(///20X,'FILE MCC2F4 PRODUCED - RESOLVED RESONANCE', 12621000 + 1 ' PARAMETERS' 12622000 + 2 ///20X,'MATERIALS:'/ 12623000 + 3 1X,(10(2X,2A4))) 12624000 + 1001 FORMAT(1X,'FILE MCC2F4 PRODUCED. MATERIALS:' 12625000 + 1 /(10(2X,2A4))) 12626000 +C 12627000 +C --------------------- SCRIVE RECORD 2 12628000 + WRITE(NTO) (NA(NR2NIS+J),J=1,NRESMT),(NA(NR2IWR+J),J=1,NRESMT), 12629000 + 1(NA(NR2EL+J),J=1,NRESMT),(NA(NR2EU+J),J=1,NRESMT) 12630000 + IF(STMP.GT.1001) WRITE(NO,2000) 12631000 + 1 NRESMT, 12632000 + 2 (J,NA(NR2NIS+J),NA(NR2IWR+J),NA(NR2EL+J),NA(NR2EU+J),J=1,NRESMT) 12633000 + 2000 FORMAT(//20X,'RECORD 2:'/' RESOLVED RESONANCE MATERIALS:',I5/ 12634000 + 15X,' MATERIAL , NISO , IWR , EL ,EU'/(1X,3I10,2E12.5))12635000 +C 12636000 +C LOOP SUI MATERIALI ............................................ 12637000 + NMNG=0 12638000 +C 12639000 +C IM CORRE SU TUTTI I NUCLIDI, IMM SUI SOLI RISONANTI. 12640000 +C 12641000 + IMM=0 12642000 + DO 40 IM=1,NNUC 12643000 + NINDX=NTABL(5,IM) 12644000 + IF(NINDX.LE.0) GO TO 40 12645000 + IMM=IMM+1 12646000 + NISO=AINDX1(20,NINDX) 12647000 +C ----------------------- SCRITTURA RECORD 3 12648000 + WRITE(NTO) ((NA(NR3+NMNG+3*(J-1)+JJ),J=1,NISO),JJ=1,2) 12649000 + IF(STMP.GT.1003.) 12650000 + 1WRITE(NO,3000)IMM,(J,(NA(NR3+NMNG+3*(J-1)+JJ),JJ=1,2),J=1,NISO) 12651000 + 3000 FORMAT(/20X,'RECORD 3 , MATERIAL:',I5/ 12652000 + 1' ISOTOPE , ABUND , NRES '/ 12653000 + 2 (1X,I5,3X,E12.5,I10)) 12654000 +C 12655000 +C TENGO DATI PER F1 12656000 +C 12657000 +C NUMERO RECORDS SCRITTI PER QUESTI NUCLIDI 12658000 + NREC4(2,IMM)=1 12659000 +C E DELLA UPPER RESONANCE 12660000 + NREC4(3,IMM)=0 12661000 +C LOOP SU ISOTOPI ........................................... 12662000 + DO 50 IS=1,NISO 12663000 +C POSIZIONE DELL'ISOTOPO NELL'INDICE 12664000 + NINDP=NA(NR3+NMNG+3*(IS-1)+3) 12665000 +C E DELLA UPPER RESONANCE 12666000 + IF(AREAL(NREC4(3,IMM)).LT.AINDX1(22,NINDP)) 12667000 + 1 NREC4(3,IMM)=NAREAL(AINDX1(22,NINDP)) 12668000 +C 12669000 +C DEFINIZIONE POSIZIONE SUL FILE DEL ISOTOPO 12670000 + NTIN=AINDX1(15,NINDP) 12671000 + NTI=NT(1,NTIN) 12672000 + NRECI=AINDX1(16,NINDP) 12673000 + CALL POST1(NTIN,NRECI) 12674000 +C 12675000 +C 12676000 + NPK=AINDX1(19,NINDP) 12677000 + IF(NPK.LT.7)CALL ERR(8HP2MCF4 , 59) 12678000 + NRES=AINDX1(18,NINDP) 12679000 +C PER F1 NUMERO DI RISONANZE DEL NUCLIDE ( SOMMA SU ISOTOPI) 12680000 + NREC4(1,IMM)=NREC4(1,IMM)+NRES 12681000 + IF(MA.LT.NR3+NMNG*3+NRES) CALL ERR(8HP3MCF4 ,60) 12682000 + DO 59 IPK=1,4 12683000 + READ(NTI)(NA(NR4+J),J=1,NRES) 12684000 + IF(STMP.GT.1010.)WRITE(NO,4000)IPK,(NA(NR4+J),J=1,NRES) 12685000 + 4000 FORMAT(' RESONANCE PARAMETER:',I5/(1X,10E12.5)) 12686000 + 59 WRITE(NTO)(NA(NR4+J),J=1,NRES) 12687000 + IF(AINDX1(23,NINDP).NE.1..AND.AINDX1(23,NINDP).NE.3.)GOTO 610 12688000 + NRES2=NRES*2 12689000 +C PER BWML E BWSL 2 PARAMETRI STANNO IN UN SOLO RECORD 12690000 + READ(NTI)(NA(NR4+J),J=1,NRES2) 12691000 + WRITE(NTO)(NA(NR4+J),J=1,NRES2) 12692000 + IF(STMP.LE.1010.) GO TO 610 12693000 + IPK=5 12694000 + WRITE(NO,4000)IPK,(NA(NR4+J),J=1,NRES) 12695000 + IPK=6 12696000 + WRITE(NO,4000)IPK,(NA(NR4+NRES+J),J=1,NRES) 12697000 + 610 IF(AINDX1(23,NINDP).NE.2.) GO TO 620 12698000 + READ(NTI)(NA(NR4+J),J=1,NRES) 12699000 + WRITE(NTO)(NA(NR4+J),J=1,NRES) 12700000 + IPK=5 12701000 + IF(STMP.GT.1010.)WRITE(NO,4000)IPK,(NA(NR4+J),J=1,NRES) 12702000 + READ(NTI)(NA(NR4+J),J=1,NRES) 12703000 + WRITE(NTO)(NA(NR4+J),J=1,NRES) 12704000 + IPK=6 12705000 + IF(STMP.GT.1010.)WRITE(NO,4000)IPK,(NA(NR4+J),J=1,NRES) 12706000 + 620 NPK1=7 12707000 + DO 60 IPK=NPK1,NPK 12708000 + READ(NTI)(NA(NR4+J),J=1,NRES) 12709000 + IF(STMP.GT.1010.)WRITE(NO,4000)IPK,(NA(NR4+J),J=1,NRES) 12710000 +C PER BWML IL PARAMETRO 16 (INTERFERENZA SIMMETRICO) NON C'E' 12711000 + IF(AINDX1(23,NINDP).EQ.3.AND.IPK.EQ.NPK) GO TO 630 12712000 + 60 WRITE(NTO)(NA(NR4+J),J=1,NRES) 12713000 + 630 CONTINUE 12714000 + NT(4,NTIN)=NT(4,NTIN)+NPK 12715000 +C PER F1 : NUMERO DI RECORDS 12716000 + NREC4(2,IMM)=NREC4(2,IMM)+NPK 12717000 + IF(AINDX1(23,NINDP).EQ.2.) GO TO 50 12718000 +C PER BW 2 PARAMETRI STANNO NELLO STESSO RECORD 12719000 + NT(4,NTIN)=NT(4,NTIN)-1 12720000 + NREC4(2,IMM)=NREC4(2,IMM)-1 12721000 +C PER BWML IL PARAMETRO 16 NON VIENE SCRITTO 12722000 + IF(AINDX1(23,NINDP).EQ.3.) NREC4(2,IMM)=NREC4(2,IMM)-1 12723000 + 50 CONTINUE 12724000 +C ........................... FINE LOOP SU ISOTOPI 12725000 + NMNG=NMNG+NISO*3 12726000 + 40 CONTINUE 12727000 +C ........................... FINE LOOP TAVOLA NUCLIDI 12728000 + CALL REW(NTOUT) 12729000 + RETURN 12730000 + END 12731000 + SUBROUTINE P3MCF5(NNUC,NAME,NREC3,NREC4,NREC5,SIGP,MA,A, 12732000 + 1 MISTAB,NISTAB,ML1,ML2,AINDX1) 12733000 +C ***************************************************** 12734000 +C 12735000 +C FILE MCC2F5 GENERATION: SMOOTH CROSS SECTIONS 12736000 +C 12737000 +C ****************************************************** 12738000 +C 12739000 + DIMENSION A(MA),NREC3(5,NNUC),NREC4(5,NNUC),NREC5(12,NNUC) 12740000 + DIMENSION SIGP(NNUC),NISTAB(MISTAB),AINDX1(ML1,ML2) 12741000 + REAL*8 NAME(NNUC) 12742000 + COMMON/FILES/NT(4,99) 12743000 + EQUIVALENCE (NT(1,11),NP),(NO,NT(1,6)) 12744000 + COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX, 12745000 + 1ETOP,DELTAU,MANY1,MMAT,NMAX 12746000 + COMMON /DIMC/MMMMMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 12747000 + 1,MMMMM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 12748000 +C 12749000 + COMMON/INDX/NTABL(40,200) 12750000 + COMMON/DIM/M(5) 12751000 +C 12752000 + WRITE(NP,9999) 12753000 + 9999 FORMAT(' P3MCF5 ENTERED: SMOOTH CROSS SECTIONS') 12754000 +C 12755000 + NMAT=NNUC 12756000 + CALL CNTRI(NNUC,M(2),GROUP,20,7,30, 12757000 + 1 ML1,ML2,AINDX1,MINDX1,MINDX2,NTABL) 12758000 + CALL CNTRI(NNUC,M(2),GROUP,20,39,40, 12759000 + 1 ML1,ML2,AINDX1,MINDX1,MINDX2,NTABL) 12760000 + NGROUP=GROUP 12761000 + NG=NGROUP 12762000 + CALL CNTRI(NNUC,M(2),ETOP,21,7,30, 12763000 + 1 ML1,ML2,AINDX1,MINDX1,MINDX2,NTABL) 12764000 + CALL CNTRI(NNUC,M(2),DELTAU,22,39,40, 12765000 + 1 ML1,ML2,AINDX1,MINDX1,MINDX2,NTABL) 12766000 + CALL CNTRI(NNUC,M(2),ETOP,21,7,30, 12767000 + 1 ML1,ML2,AINDX1,MINDX1,MINDX2,NTABL) 12768000 + CALL CNTRI(NNUC,M(2),DELTAU,22,39,40, 12769000 + 1 ML1,ML2,AINDX1,MINDX1,MINDX2,NTABL) 12770000 + N1=1 12771000 + N9=11 12772000 + N2=N1+NGROUP*N9+1 12773000 + MMA=MA-N2 12774000 + IF(MMA.LT.NG) CALL ERR(8HP3MCF5 ,0) 12775000 + CALL P3F51(NNUC,NAME,NREC3,NREC4,NREC5,SIGP,NG,N9,A(N1),MMA,A(N2),12776000 + 1 MISTAB,NISTAB,ML1,ML2,AINDX1) 12777000 + RETURN 12778000 + END 12779000 + SUBROUTINE P3F51(NNUC,NAME,NREC3,NREC4,NREC5,SIGP,NG,N9,SIG,MA,A, 12780000 + 1 MISTAB,NISTAB,ML1,ML2,AINDX1) 12781000 +C ***************************************************************** 12782000 +C CONTINUATION OF P3MCF5 ROUTINE 12783000 +C NUC E'=NMAT , NGROUP=NG, C'E' SOVRABBONDANZA DI PARAMETRI 12784000 +C QUI LA PARTE 3 SOMMA SOLO, IN BASE AD INDICI, PER FARE TOTAL 12785000 +C ECC. NELL'INPUT ALLA PARTE 3 ( MIXING) SI DEVE DECIDERE 12786000 +C COSA FARE 12787000 +C 12788000 +C ******************************************************************12789000 +C 12790000 + DIMENSION A (MA), SIG(N9,NG),NISTAB(MISTAB) 12791000 + DIMENSION NAME(2,NNUC),AINDX1(ML1,ML2) 12792000 + DIMENSION SIGP(NNUC) 12793000 + DIMENSION NREC3(5,NNUC),NREC4(5,NNUC),NREC5(12,NNUC) 12794000 + COMMON/FILES/NT(4,99) 12795000 + EQUIVALENCE(OPZ(3,5,9),GRAFIC),(NP,NT(1,11)) 12796000 + COMMON/OPZIO/OPZ(4,8,10) 12797000 + EQUIVALENCE(OPZ(3,5,1),STMP),(OPZ(3,5,2),TOT),(NO,NT(1,6)) 12798000 + COMMON/INDX/NTABL(40,200) 12799000 + COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX,ETOP12800000 + 1,DELTAU,MANY1,MMAT,NMAX 12801000 + COMMON/DIM/M(5) 12802000 + EQUIVALENCE(M(2),MMIND) 12803000 + DIMENSION NSUMT(40) 12804000 + REAL*8 NOME(11) 12805000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 12806000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 12807000 +C 12808000 + DATA NSUMT/0,0,0,0,0, 0,1,2,3,4,5,6,7,8,0, 12809000 + 1 1,2,3,1,0, 1,2,3,1,0, 1,2,3,1,0, 0,0,0,0,0, 0,0,0,10,11/ 12810000 +C NSUMT SONO I POSTI IN CUI VANNO SOMMATE LE SEZIONE 12811000 +C D'URTO CUI LA TAVOLA FA RIFERIMENTO 12812000 +C LO SCATT POTENZIALE DEVE ESSERE NELLA 1:ELASTICA 12813000 +C LA TOTALE NON VIENE USATA , MA E' RICALCOLATA. 12814000 +C 12815000 + DATA NOME/8HELASTIC ,8HFISSION ,8HCAPTURE ,8H N,P , 12816000 + 1 8H N,D ,8H N,H3 ,8H N,HE3 ,8H N,ALFA , 12817000 + 2 8H TOTAL ,8H N,2N ,8H ANEL / 12818000 + DIMENSION NRC(9),ANU(4) 12819000 +C 12820000 +C DEFINIZIONE FILE DI OUTPUT 12821000 + NTOUT=55 12822000 + NTO=NT(1,NTOUT) 12823000 + CALL REW(NTOUT) 12824000 + WRITE(NO,1010) 12825000 + 1010 FORMAT(//20X,' FILE MCC2F5 PRODUCED - SMOOTH CROSS SECTIONS') 12826000 +C LOOP SU ISOTOPI ........................................ 12827000 + DO 10 I=1,NNUC 12828000 +C RECORD 1 12829000 + NAM1=NTABL(1,I) 12830000 + NAM2=NTABL(2,I) 12831000 +C CREA RECORD 2 DI F1 12832000 + NAME(1,I)=NAM1 12833000 + NAME(2,I)=NAM2 12834000 + WRITE(NP,9000) NAM1,NAM2 12835000 + 9000 FORMAT(1X,2A4) 12836000 +C RECORD 2 DI F5 INIZIALIZZAZIONE 12837000 + NREAC=0 12838000 + DO 15 IJ=1,9 12839000 + 15 NRC(IJ)=0 12840000 + DO 16 IJ=1,4 12841000 + 16 ANU(IJ)=0. 12842000 + CALL RIEMP(0.0,NG*N9,SIG) 12843000 +C 12844000 +C RICERCA DEL NU 12845000 + IND=NTABL(31,I) 12846000 + IF(IND.LE.0) GO TO100 12847000 +C NU ( E' IN INDICE 12848000 + DO 20 IJ=1,4 12849000 + 20 ANU(IJ)=AINDX1(33+IJ,IND) 12850000 + 100 CONTINUE 12851000 +C REAZIONI VARIE 12852000 + DO 30 IC=7,40 12853000 + IND=NTABL(IC,I) 12854000 + IF(IND.EQ.0) GO TO 30 12855000 +C NSUMT E' PER OGNI POSTO DELLA TAVOLA IL POSTO IN CUI VA 12856000 +C SOMMATA LA SIGMA CONTENUTA, NELL'ORDINE: 12857000 +C NEL,NF,NGAMMA,NP,ND,NH3,NHE3,NALFA,TOT 12858000 +C PER TUTTI I TIPI DI ROBA CHE POI VA MESSA IN F5 (DA UNRES,RES ECC12859000 +C 12860000 + INDNN=IND 12861000 + ABUND=1. 12862000 +C ..........LOOP SU ISOTOPI DEL NUCLIDE ........................ 12863000 + IF(IND.GT.0) GO TO 301 12864000 +C ========= IL PRIMO NUCLIDE CI DEVE SEMPRE ESSERE,PERCHE' DA LUI12865000 +C SI RICAVA NISO ============= 12866000 + IF(-IND.GT.MISTAB) CALL ERR(8HP3F51 ,101) 12867000 + IND1N=NISTAB(-IND) 12868000 + IF(IND1N.LE.0.OR.IND1N.GT.ML2) CALL ERR(8HP3F51 ,100) 12869000 + NISO=AINDX1(10,IND1N) 12870000 + IF(NISO.LE.0) CALL ERR(8HP3F51 ,35) 12871000 +C 12872000 + IIJJ=-IND-1 12873000 + 35 IIJJ=IIJJ+1 12874000 + IF(IIJJ.GT.NISO-IND-1) GO TO 305 12875000 + INDNN=NISTAB(IIJJ) 12876000 + IF(INDNN.LE.0) GO TO 300 12877000 + ABUND=AINDX1(36,INDNN) 12878000 + ISO=AINDX1(35,INDNN) 12879000 + NREC=NSUMT(IC) 12879105 + IF(NREC.LE.0) GOTO 30 12879205 + WRITE(NP,9010) ISO,ABUND,NISO,INDNN 12880000 + 9010 FORMAT(' ISOTOPE:',I4,' ABUNDANCE:',E12.5,' NISO:',I4,' INDEX:',12881000 + 1 I10 ) 12882000 + 301 NREC=NSUMT(IC) 12885005 + IF(NREC.LE.0) GO TO 30 12886005 + NLAST=AINDX1(24,INDNN) 12887000 + NFIRST=AINDX1(28,INDNN) 12888000 + IF(NFIRST.GT.NG.OR.NFIRST.LE.0) CALL ERR(8HP3F51 ,301) 12889000 + IF(NLAST.GT.NG.OR.NLAST.LE.0) CALL ERR(8HP3F51 ,302) 12890000 + IF(NFIRST.GT.NLAST) CALL ERR(8HP3F51 ,303) 12891000 +C TAPE DI INPUT 12892000 + NTIN=AINDX1(15,INDNN) 12893000 + NTI=NT(1,NTIN) 12894000 + NRECI=AINDX1(16,INDNN) 12895000 + CALL POST1(NTIN,NRECI) 12896000 +C RECORD 2 AGGIUNGO GLI INDICI DI ESISTENZA (CONTENGONO IL NUMERO 12897000 +C DI GRUPPI PIENI ) 12898000 +C 12899000 + IF(NRC(NREC).LT.NLAST) NRC(NREC)=NLAST 12900000 + READ(NTI) (A(J),J=NFIRST,NLAST) 12901000 + NT(4,NTIN)=NT(4,NTIN)+1 12902000 + DO 40 IJ=NFIRST,NLAST 12903000 + SIG(NREC,IJ)=SIG(NREC,IJ)+A(IJ)*ABUND 12904000 + 40 CONTINUE 12905000 + 300 CONTINUE 12906000 +C FINE DEL LOOP SU ISOTOPI ................... 12907000 + IF(IND.LT.0) GO TO 35 12908000 + 305 WRITE(NP,9020) NOME(NSUMT(IC)) 12909000 + 9020 FORMAT(' READ DATA FOR REACTION : ',A8) 12910000 +C FINE DEL LOOP SU REAZIONI................... 12911000 + 30 CONTINUE 12912000 +C SOMMANDO CREO LA TOTALE. NELLE RISONANZE RISOLTE UNA 12913000 +C TOTALE NON VIENE PRODOTTA, INDI DEVO SOMMARE TUTTO 12914000 +C E NON POSSO USARE LA TOTALE SOMMA DELLE TOTALI 12915000 +C DELLA PARTE 2. 12916000 + IF(TOT.GT.0) GO TO 450 12917000 + WRITE(NP,9025) 12918000 + 9025 FORMAT(' TOTAL CROSS SECTION GENERATED') 12919000 + DO 43 J=1,NG 12920000 + 43 SIG(9,J)=0.0 12921000 +C 12922000 + DO 45 II=1,8 12923000 + IF(NRC(9).LT.NRC(II)) NRC(9)=NRC(II) 12924000 + DO 45 J=1,NG 12925000 + 45 SIG(9,J)=SIG(9,J)+SIG(II,J) 12926000 + DO 46 J=1,NG 12927000 + 46 SIG(9,J)=SIG(9,J)+SIG(10,J)+SIG(11,J) 12928000 + 450 CONTINUE 12929000 +C 12930000 +C ORA HA FATTO LE SIGMA E IL RECORD 2 FA N REAZIONI DEL RECORD 2 12931000 + NREAC=0 12932000 + DO 50 IJ=1,9 12933000 + IF(NRC(IJ).GT.0) NREAC=NREAC+1 12934000 + 50 CONTINUE 12935000 +C SCRITTURA DELL' ISOTOPO 12936000 +C PRIMO RECORD: NOME ISOTOPO 12937000 + WRITE(NTO) NAM1,NAM2 12938000 + WRITE(NO,1000) NAM1,NAM2 12939000 + 1000 FORMAT(//20X,' MULTIGROUP DATA PRODUCED FOR', 12940000 + 1 ' MATERIAL : ',2A4) 12941000 +C SECONDO RECORD 12942000 + WRITE(NP,9030) NAM1,NAM2,NREAC,(NRC(J),J=1,9) 12943000 + 9030 FORMAT(1X,2A4,' , ',I4,' REACTIONS, FLAGS:',9I5) 12944000 + WRITE(NTO) NREAC,(NRC(J),J=1,9),(ANU(J),J=1,4) 12945000 + IF(STMP.GT.101.) WRITE(NO,2000) NREAC,(NRC(J),J=1,9), 12946000 + 1 (ANU(J),J=1,4) 12947000 + 2000 FORMAT(1X,' CROSS SECTION FLAGS:',10I10/' NU COEFF:',4E12.5) 12948000 +C ALTRI RECORDS SCRITTI A SECONDA DEI FLAG DI ESISTENZA 12949000 + DO 60 IJ=1,9 12950000 + NLAST=NRC(IJ) 12951000 + IF(NLAST.LE.0) GO TO 600 12952000 + WRITE(NTO) ( SIG(IJ,J),J=1,NLAST) 12953000 + WRITE(NP,9040) NOME(IJ),NLAST 12954000 + 9040 FORMAT(1X,' REACTION:',A8,' LAST GROUP:',I10) 12955000 +C OUTPUT PER GRAFICO 12956000 + IF(GRAFIC.LE.0.) GO TO 550 12957000 + NTGRF=GRAFIC 12958000 + NTGR=NT(1,NTGRF) 12959000 + NWDS=NLAST+10 12960000 + NDUM=0 12961000 + NDUM1=1 12962000 + WRITE(NTGR)NWDS,NAME(1,I),NAME(2,I),NOME(IJ),IJ,I,NDUM,NDUM,12963000 + 1 NDUM1,NLAST,(SIG(IJ,J),J=1,NLAST) 12964000 + 550 IF(STMP.GT.110.) WRITE(NO,3000)NOME(IJ),(SIG(IJ,J),J=1,NLAST) 12965000 + 3000 FORMAT(1X,A8,' CROSS SECTION :'/(1X,10E12.5)) 12966000 + 600 CONTINUE 12967000 + 60 CONTINUE 12968000 + 10 CONTINUE 12969000 +C FINE DEI LOOP SUI MATERIALI .....................................12970000 + CALL REW(NTOUT) 12971000 + RETURN 12972000 + END 12973000 + SUBROUTINE P3MCF6(NNUC,NAME,NREC3,NREC4,NREC5,SIGP,MA,A,ML1,ML2, 12974000 + 1 AINDX1)12975000 +C ************************************************************ 12976000 +C 12977000 +C FILE MCC2F6 GENERATION: ANELASTIC AND N,2N SECONDARY ENERGY 12978000 +C DISTRIBUTION 12979000 +C ******************************************************* 12980000 +C 12981000 +C IN ARGOMENTO: NNUC=NUMERO NUCLIDI ( DI MCC2F1) 12982000 +C NAME(NNUC) NOME NUCLIDE ( RECORD 1 DI MCC2F1) REAL*8 12983000 +C NREC3 RECORD 3 DI MCC2F1 12984000 +C NREC4 4 12985000 +C NREC5 5 12986000 +C SIGP RECORD DI MCC2F1 12987000 +C A(MA) SPAZIO DI LAVORO 12988000 +C 12989000 +C ****************************************************** 12990000 +C 12991000 + DIMENSION NREC5(12,NNUC) 12992000 +C E' IL RECORD 5 DI MCC2F1 FATTO COSI': 12993000 +C NOME,NOME,NINEL,N2NTH,NLEVLS,N2NLEV,MAX1,MAX2,MAX3,MAX4, 12994000 +C NSINK1,NSINK2,NUMREC(1 PAROLA PER GRUPPO),MAXREC 12995000 +C MAXREC E' VERAMENTE MESSO NON IN ARRAY NREC5, MA IN /RC1F1/ 12996000 +C 12997000 +C 12998000 + DIMENSION A(MA),AINDX1(ML1,ML2) 12999000 + COMMON/FILES/NT(4,99) 13000000 + EQUIVALENCE (NO,NT(1,6)),(NP,NT(1,11)) 13001000 + COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX, 13002000 + 1ETOP,DELTAU,MANY1,MMAT,NMAX,MAXREC 13003000 + COMMON/INDX/NTABL(40,200) 13004000 + COMMON/DIM/M(5) 13005000 + COMMON /OPZIO/ OPZ(4,8,10) 13006000 + EQUIVALENCE (STMP,OPZ(3,6,1)) 13007000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 13008000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 13009000 +C 13010000 + WRITE(NP,9999) 13011000 + 9999 FORMAT(' P3MCF6 ENTERED: ENERGY DISTRIBUTIONS') 13012000 +C 13013000 +C 13014000 + NG=OPZ(2,5,4) 13015000 +C 13016000 +C CALCOLO NUMERO NUCLIDI DI F6 PER RECORD 1 DI F1 13017000 +C DEFINIZIONE FILE DI OUTPUT 13018000 + NTOUT=56 13019000 + NTO=NT(1,56) 13020000 + CALL REW(NTOUT) 13021000 +C INIZIALIZZA RECORD 1 DI F1 (MAX NUM GRUPPI IN F6) 13022000 + NMAX=0 13023000 + MAXREC=0 13024000 +C INIZIALIZZA NUMREC(NMAX); IL MAX DI NMAX E' NG 13025000 + CALL RIEMP(0.,NG,NREC5(12+1,NNUC)) 13026000 + LIMIT=0 13027000 +C 13028000 +C LETTURA RECORD 1 13029000 +C 13030000 + INUC=0 13031000 +C MAX LUNGHEZZA RECORD PER UN SINGOLO NUCLIDE 13032000 + MAXRCM=0 13033000 +C ................... LOOP SUI NUCLIDI DELLA TAVOLA 13034000 + DO 10 IS=1,NNUC 13035000 + IND=NTABL(32,IS) 13036000 + IF(IND.LE.0) GO TO 10 13037000 + INUC=INUC+1 13038000 +C POSIZIONAMENTO FILE DI INPUT 13039000 + NTIN=AINDX1(15,IND) 13040000 + NTI=NT(1,NTIN) 13041000 + NRECI=AINDX1(16,IND) 13042000 + CALL POST1(NTIN,NRECI+1) 13043000 +C NON LEGGE IL RECORD 5 DI F1 LO PRENDE DALL'INDICE 13044000 + NREC5(1,INUC)=NTABL(1,IS) 13045000 + NREC5(2,INUC)=NTABL(2,IS) 13046000 + DO 15 I=3,12 13047000 + NREC5(I,INUC)=AINDX1(21+I,IND) 13048000 + 15 CONTINUE 13049000 +C DETERMINO IL NUMERO DI GRUPPO MAX CHE ESISTE PER OGNI NUCLIDE 13050000 + NMING=MAX1(AINDX1(24,IND),AINDX1(25,IND)) 13051000 + NMING1=AINDX1(36,IND) 13052000 + IF(NMING1.NE.NMING) CALL ERR(8HP3MCF6 ,15) 13053000 + IF(NMAX.LT.NMING) NMAX=NMING 13054000 +C MAXRCM E' PER LEGGERE E' IL MAX LUNGHEZZA DEL RECORD DI UN 13055000 +C MATERIALE, INVECE MAXREC E' LA LUNGHEZZA MAX DI UNO DEI RECORDS 13056000 +C CON DENTRO TUTTI I MATERIALI 13057000 + IF(MAXRCM.LT.AINDX1(35,IND)) MAXRCM=AINDX1(35,IND) 13058000 +C LEGGE RECORD 1 DI F6 13059000 + READ(NTI) NWDS,(A(LIMIT+J),J=1,NWDS) 13060000 + NT(4,NTIN)=NT(4,NTIN)+1 13061000 +C CI METTE DENTRO IL RECORD SUCCESSIVO DA LEGGERE (IN AINDX1(39,IND13062000 + AINDX1(39,IND)=NT(4,NTIN) 13063000 + LIMIT=LIMIT+NWDS 13064000 + 10 CONTINUE 13065000 + IF(MAXRCM.LE.0) CALL ERR(8HP3MCF6 ,10) 13066000 + MMAT=INUC 13067000 + IF(MMAT.LE.0) CALL ERR(8HP3MCF6 ,11) 13068000 +C SCRIVE IL RECORD 1 13069000 + WRITE(NTO) (A(J),J=1,LIMIT) 13070000 + IF(MAXREC.LT.LIMIT) MAXREC=LIMIT 13071000 + NT(3,NTOUT)=NT(3,NTOUT)+1 13072000 + NT(4,NTOUT)=NT(3,NTOUT) 13073000 + IF(STMP.LE.100.) GO TO 105 13074000 + WRITE(NO,1000) (A(J),J=1,LIMIT) 13075000 + 1000 FORMAT(' FILE MCC2F6 CREATION : RECORD 1 PRODUCED:'/ 13076000 + 1 (1X,6E12.5)) 13077000 +C 13078000 +C RECORDS 2,3,4 13079000 +C 13080000 + 105 NGRMX=(MA-MAXRCM*MMAT)/((MAXRCM+1)*MMAT*3) 13081000 + IF(NGRMX.LE.0) NGRMX=1 13082000 + WRITE(NP,9998) NGRMX,MAXRCM 13083000 + 9998 FORMAT(' IN EACH PASS ',I4,' GROUPS ARE READ. MAX REC FOR A' 13084000 + 1 ,' MATERIAL:',I10) 13085000 + NPASSI=NMAX/NGRMX 13086000 + IF(NGRMX*NPASSI.LT.NMAX) NPASSI=NPASSI+1 13087000 +C 13088000 +C IN A METTO UNA MATRICE LARGA MAXRCM*MMAT (MEGLIO SAREBBE MAXREC 13089000 +C PER IL RECORD DA SCRIVERE 13090000 +C 13091000 +C IN A METTO ANCHE UNA MATRICE (MMAT,3,NGRMX) CON LE LUNGHEZZE DEI13092000 +C RECORDS DA LEGGERE E DA SCIVERE 13093000 +C 13094000 +C LLIMW PUNTA ALLA MATRICE COL NUMERO DI PAROLE DEI RECORDS 13095000 + LLIMW= MAXRCM*MMAT+1 13096000 +C 13097000 +C IN A SIMULO UNA MATRICE (MAXRCM,MMAT,3,NGRMX) OVE NGRMX E' 13098000 +C IL NUMERO MAX DI GRUPPI CHE SI RIESCE A TRATTARE IN UNA VOLTA 13099000 +C 13100000 +C LLIMR PUNTA AI RECORDS DA LEGGERE 13101000 + LLIMR=LLIMW+NGRMX*3*MMAT 13102000 +C 13103000 +C ............................ LOOP SUI GRUPPI DI GRUPPI 13104000 + DO 20 IP=1,NPASSI 13105000 + NGI=NGRMX*(IP-1)+1 13106000 + NGF=NGI+NGRMX-1 13107000 + IF(NGF.GT.NMAX) NGF=NMAX 13108000 + NGTOT=NGF-NGI+1 13109000 +C AZZERA L'ARRAY DEI LIMITI DEI RECORDS 13110000 + CALL RIEMP(0,MMAT*3*NGRMX,A(LLIMW)) 13111000 +C 13112000 + INUC=0 13113000 +C .................. LETTURA: UN LOOP SUI NUCLIDI: 13114000 + DO 40 I=1,NNUC 13115000 + IND=NTABL(32,I) 13116000 + IF(IND.LE.0) GO TO 40 13117000 + INUC=INUC+1 13118000 +C POSIZIONO FILE DI INPUT 13119000 + NTIN=AINDX1(15,IND) 13120000 + NTI=NT(1,NTIN) 13121000 + NRECI=AINDX1(39,IND) 13122000 + CALL POST1(NTIN,NRECI) 13123000 +C LETTURA DI NGRMX RECORDS E CALCOLO DEI LIMITI RELATIVI 13124000 + CALL READ6(NTIN,NT(4,NTIN),NGI,NGTOT,INUC,NREC5(3,INUC), 13125000 + 1 NREC5(4,INUC),NREC5(7,INUC),NREC5(8,INUC),NREC5(9,INUC), 13126000 + 2NREC5(10,INUC), 13127000 + 3 AINDX1(1,IND),MAXRCM,MMAT,NGRMX,A(LLIMW),A(LLIMR)) 13128000 + 40 CONTINUE 13129000 +C 13130000 +C SCRITTURA DEI NGRMX GRUPPI DEL PASSO 13131000 +C .................. LOOP SUI GRUPPI 13132000 + DO 50 IG=1,NGTOT 13133000 + NGC=NGI+IG-1 13134000 + INR=0 13135000 +C .................LOOP SUI TRE RECORDS 13136000 + DO 60 IR=1,3 13137000 +C METTE INSIEME IN A I RECORDS DI TUTTI I NUCLIDI 13138000 + NWDS=1 13139000 + CALL COMPAT(IR,NWDS,IG,MAXRCM,MMAT,NGRMX,A,A(LLIMW),A(LLIMR)) 13140000 + IF(NWDS.LE.0) GO TO 60 13141000 + WRITE(NTO) (A(J),J=1,NWDS) 13142000 + IF(NWDS.GT.MAXREC) MAXREC=NWDS 13143000 + NT(3,NTOUT)=NT(3,NTOUT)+1 13144000 + NT(4,NTOUT)=NT(3,NTOUT) 13145000 + INR=INR+1 13146000 + IF(IR.NE.1) GO TO 501 13147000 + IF(STMP.LT.102.) GO TO 501 13148000 + WRITE(NO,5001) IG,(A(J),J=1,NWDS) 13149000 + 5001 FORMAT(' RECORD 2: GRUPPO:',I5 /(1X,20I4)) 13150000 + GO TO 502 13151000 + 501 IF(STMP.LT.103.) GO TO 502 13152000 + IRR23=IR+1 13153000 + WRITE(NO,5002) IRR23,IG,(A(J),J=1,NWDS) 13154000 + 5002 FORMAT(' RECORD:',I5,' GRUPPO:',I5/(1X,10E12.5)) 13155000 + 502 CONTINUE 13156000 + 60 CONTINUE 13157000 + NREC5(12+NGC,NNUC)=INR 13158000 + 50 CONTINUE 13159000 +C .......................... FINE LOOP SCRITTURA GRUPPI 13160000 + 20 CONTINUE 13161000 +C .......................... FINE LOOP SUI PASSI 13162000 + WRITE(NO,7000) 13163000 + 7000 FORMAT(//20X,' FILE MCC2F6 PRODUCED - ANELASTIC AND N,2N DATA') 13164000 + CALL REW(NTOUT) 13165000 + RETURN 13166000 + END 13167000 + SUBROUTINE READ6(NTI,NT4NT,NGI,NGTOT,INUC,NINEL,N2NTH,MAX1,MAX2, 13168000 + 1 MAX3,MAX4,AINDX1,MAXRCM,MMAT,NGRMX,LIMITI,RECORD) 13169000 +C *************************************************************** 13170000 +C LEGGE RECORDS DEL NUCLIDE INUC PER NGRMX GRUPPI E NE 13171000 +C RICORDA LE LUNGHEZZA ( IN LIMITI) 13172000 +C *************************************************************** 13173000 + DIMENSION AINDX1(40),LIMITI(MMAT,3,NGRMX) 13174000 + INTEGER RECORD(MAXRCM,MMAT,3,NGRMX) 13175000 +C 13176000 + DO 10 IG=1,NGTOT 13177000 +C RECORD 2 13178000 + NGC=NGI+IG-1 13179000 + IF(NINEL.LT.NGC.AND.N2NTH.LT.NGC) GO TO 10 13180000 + READ(NTI) NWDS,(RECORD(J,INUC,1,IG),J=1,NWDS) 13181000 + LIMITI(INUC,1,IG)=NWDS 13182000 + NT4NT=NT4NT+1 13183000 +C CERCA SE ESISTE IL RECORD 4 ( LIMITI E' AZZERATO ALL'INIZIO ) 13184000 + NINTAB=0 13185000 + N2NTAB=0 13186000 + N1=4 13187000 + IF(N2NTH.LT.NGC) N1=N1-1 13188000 + IF(MAX1.LT.1) N1=N1-1 13189000 + IF(NINEL.LT.NGC.OR.MAX2.LT.1) N1=0 13190000 +C 13191000 + N2=2 13192000 + IF(NINEL.GT.NGC) N2=N2+1 13193000 + IF(MAX1.GT.0.AND.NINEL.GT.NGC) N2=N2+1 13194000 + IF(MAX2.GT.0.AND.NINEL.GT.NGC) N2=N2+1 13195000 + IF(MAX3.GT.0.AND.N2NTH.GT.NGC) N2=N2+1 13196000 + IF(N2NTH.LT.NGC.OR.MAX4.LT.1) N2=0 13197000 + IF(N1.GT.0) NINTAB=RECORD(N1,INUC,1,IG) 13198000 + IF(N2.GT.0) N2NTAB=RECORD(N2,INUC,1,IG) 13199000 +C READS RECORD 3 13200000 + READ(NTI) NWDS,(RECORD(J,INUC,2,IG),J=1,NWDS) 13201000 + LIMITI(INUC,2,IG)=NWDS 13202000 + NT4NT=NT4NT+1 13203000 +C READS RECORD 4 SE ESISTE 13204000 + IF(NINTAB.LE.0.AND.N2NTAB.LE.0) GO TO 10 13205000 + READ(NTI) NWDS,(RECORD(J,INUC,3,IG),J=1,NWDS) 13206000 + LIMITI(INUC,3,IG)=NWDS 13207000 + NT4NT=NT4NT+1 13208000 + 10 CONTINUE 13209000 +C .................. FINE LOOP SUI GRUPPI 13210000 + AINDX1(39)=NT4NT 13211000 +C IN AINDX1 RI CORDA DOVE E' ARRIVATO A LEGGERE 13212000 + RETURN 13213000 + END 13214000 + SUBROUTINE COMPAT(NREC,NWDS,IG,MAXRCM,MMAT,NGRMX,A,LIMITI,RECORD)13215000 +C **************************************************************** 13216000 +C COSTRUISCE UN RECORD DI OUTPUT DI UN GRUPPO CON I RECORDS DI 13217000 +C TUTTI I NUCLIDI 13218000 +C NREC E' IL TIPO DI RECORD 13219000 +C *************************************************************** 13220000 + DIMENSIONA(NWDS),LIMITI(MMAT,3,NGRMX),RECORD(MAXRCM,MMAT,3,NGRMX)13221000 + NWDS=0 13222000 + DO 10 IM=1,MMAT 13223000 + LIMIT=LIMITI(IM,NREC,IG) 13224000 + IF(LIMIT.LE.0) GO TO 10 13225000 + DO 20 J=1,LIMIT 13226000 + 20 A(NWDS+J)=RECORD(J,IM,NREC,IG) 13227000 + NWDS=NWDS+LIMIT 13228000 + 10 CONTINUE 13229000 + RETURN 13230000 + END 13231000 + SUBROUTINE P3MCF7(NNUC,NAME,NREC3,NREC4,NREC5,SIGP,MA,NA, 13232000 + 1 ML1,ML2,AINDX1) 13233000 +C ***************************************************** 13234000 +C FILE MCC2F7 GENERATION: FISSION SPECTRUM DATA 13235000 +C ******************************************************** 13236000 +C 13237000 + COMMON/FILES/NT(4,99) 13238000 + EQUIVALENCE (NT(1,11),NP) 13239000 + COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPL,IPTMAX,ETOP, 13240000 + 1DELTAU,MANY1,MMAT,NMAX 13241000 + DIMENSION AINDX1(ML1,ML2) 13242000 + COMMON/INDX/NTABL(40,200) 13243000 + COMMON /OPZIO/OPZ(4,8,10) 13244000 + COMMON/DIM/M(5) 13245000 + EQUIVALENCE(M(2),MIND),(OPZ(3,7,1),STMP),(NT(1,6),NO) 13246000 + DIMENSION NA(MA) 13247000 +C 13248000 + WRITE(NP,9999) 13249000 + 9999 FORMAT(' P3MCF7 ENTERED : FISSION SPECTRUM') 13250000 +C 13251000 +C SPAZI PER RECORDS 1,2,3 13252000 + NRC0=0 13253000 +C PER MEMORIZZARE GLI INDICI NEL PRIMO LOOP SULLATAVOLA E 13254000 +C RIUTILIZZARLI NEL SECONDO LOOP SENZA LOPPARE ANCORA PER TROVARLI 13255000 + NRC1=NRC0+NNUC 13256000 +C NOMI REAL*8 13257000 + NRC2=NRC1+NNUC*2 13258000 +C ICHI 13259000 + NRC3=NRC2+NNUC 13260000 + MSORS=0 13261000 +C LOOP SU NUCLIDI ( TAVOLA) 13262000 + DO 10 I=1,NNUC 13263000 + IND=NTABL(6,I) 13264000 + IF(IND.LE.0) GO TO 100 13265000 +C RECORD 1 DI F1 13266000 + MSORS=MSORS+1 13267000 +C MEMORIZZAZIONE INDICE PER NON DOVERSI RIGUARDARE TUTTA LA TAVOLA 13268000 +C SECONDO LOOP 13269000 + NA(NRC0+MSORS)=IND 13270000 +C RECORD 2 DI F7 ( ICHI) 13271000 + NA(NRC2+MSORS)=AINDX1(18,IND) 13272000 +C RECORD 1 DI F7 ( NOMI) 13273000 + NA(NRC1+MSORS*2-1)=NTABL(1,I) 13274000 + NA(NRC1+MSORS*2)=NTABL(2,I) 13275000 + 100 CONTINUE 13276000 + 10 CONTINUE 13277000 + IF(MSORS.LE.0) RETURN 13278000 +C MA SE E CHIAMATO F7 VUOL DIRE CHE NE ESISTE ALMENO 1 DI SPETTRO D13279000 +C FISSIONE 13280000 + NTOUT=57 13281000 + NTO=NT(1,NTOUT) 13282000 + CALL REW(NTOUT) 13283000 +C SCRITTURE 13284000 + N1=2*MSORS 13285000 +C RECORD 1 13286000 + WRITE(NTO) (NA(NRC1+J),J=1,N1) 13287000 + WRITE(NO,1000) (NA(NRC1+J),J=1,N1) 13288000 + WRITE(NP,1001) (NA(NRC1+J),J=1,N1) 13289000 + 1000 FORMAT(///20X,' FILE MCC2F7 PRODUCED - FISSION SPECTRUM '///20X, 13290000 + 1 ' SOURCE NAMES:'//(1X,10(2X,2A4))) 13291000 + 1001 FORMAT(' FILE MCC2F7 PRODUCED,', 13292000 + 1 ' SOURCE NAMES:'/(1X,10(2X,2A4))) 13293000 +C RECORD 2 13294000 + WRITE(NTO) (NA(NRC2+J),J=1,MSORS) 13295000 + IF(STMP.GT.101.)WRITE(NO,2000) (J,NA(NRC2+J),J=1,MSORS) 13296000 + 2000 FORMAT( ' SOURCE:',I10,5X,' GROUP DEPENDENCE FLAG:',I10) 13297000 + DO 20 I=1,MSORS 13298000 + IND=NA(NRC0+I) 13299000 + ICHI=NA(NRC2+I) 13300000 +C FIX DD DI INPPUT 13301000 + NTIN=AINDX1(15,IND) 13302000 + NTI=NT(1,NTIN) 13303000 + NRECI=AINDX1(16,IND) 13304000 + CALL POST1(NTIN,NRECI) 13305000 +C RECORD 3 13306000 + N1=NRC3+1 13307000 + N2=6*ICHI+N1-1 13308000 + READ(NTI)(NA(J),J=N1,N2) 13309000 + WRITE(NTO)(NA(J),J=N1,N2) 13310000 + NT(4,NTIN)=NT(4,NTIN)+1 13311000 + IF(STMP.GT.110.) WRITE(NO,3000) I,(NA(J),J=N1,N2) 13312000 + 3000 FORMAT(' SOURCE:',I5,' CHI VALUES:'/(1X,10E12.5)) 13313000 + 20 CONTINUE 13314000 +C 13315000 +C ESISTE LA POSSIBILITA' DI AVERE DATI TABULATI DEL NU SUL FILE 13316000 +C MCC2F7 ( COSA CONTEMPLATA DA MC2-2 MA NON DAL SUO MANUALE) 13317000 +C 13318000 +C TRATTO QUI LA SECONDA PARTE DI F7 CON I DATI TABULATI DEL NU 13319000 + L1=1 13320000 +C NUMNU 13321000 + L2=NNUC+L1 13322000 +C KT 13323000 + L3=L2+NNUC 13324000 + LFIN=L3 13325000 + IF(LFIN.GT.MA) CALL ERR(8HP3MCF7 ,20) 13326000 + CALL P3MC7N(NTO,NTOUT,NNUC,NA(L1),NA(L2),MA-LFIN,NA(LFIN), 13327000 + 1 ML1,ML2,AINDX1) 13328000 +C 13329000 + CALL REW(NTOUT) 13330000 + RETURN 13331000 + END 13332000 + SUBROUTINE P3MC7N(NTO,NTOUT,NNUC,NUMNU,KT,MA,A,ML1,ML2,AINDX1) 13333000 +C ************************************************************ 13334000 +C NU TABULATED ON MCC2F7 ******** 13335000 +C ************************************************************ 13336000 + DIMENSION NUMNU(NNUC),KT(NNUC),A(MA),AINDX1(ML1,ML2) 13337000 + COMMON/FILES/NT(4,99) 13338000 + EQUIVALENCE (NT(1,11),NP) 13339000 + COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPL,IPTMAX,ETOP, 13340000 + 1DELTAU,MANY1,MMAT,NMAX 13341000 + COMMON/INDX/NTABL(40,200) 13342000 + COMMON /OPZIO/OPZ(4,8,10) 13343000 + COMMON/DIM/M(5) 13344000 + EQUIVALENCE(M(2),MIND),(OPZ(3,7,1),STMP),(NT(1,6),NO) 13345000 +C 13346000 +C FIX NUM NU E KT (INTERPOLAZ) PER OGNI NUCLIDE 13347000 +C 13348000 + DO 10 I=1,NNUC 13349000 + IND=NTABL(36,I) 13350000 + IF(IND.LE.0) GO TO 100 13351000 + NUMNU(I)=AINDX1(19,IND) 13352000 + KT(I)=AINDX1(29,IND) 13353000 + GO TO 10 13354000 + 100 NUMNU(I)=0 13355000 + IF(NTABL(31,I).GT.0) NUMNU(I)=1 13356000 + KT(I)=0 13357000 + 10 CONTINUE 13358000 + WRITE(NTO) (NUMNU(J),J=1,NNUC),(KT(J),J=1,NNUC) 13359000 + IF(STMP.GT.120.) WRITE(NO,1000) (J,NUMNU(J),KT(J),J=1,NNUC) 13360000 + 1000 FORMAT(' NUCLIDE:',I5,' NU NUMBER:',I5,' INTERP CODE:',I5) 13361000 +C 13362000 + DO 20 I=1,NNUC 13363000 + IF(NUMNU(I).LE.1) GO TO 20 13364000 +C LETTURA 13365000 + IND=NTABL(36,I) 13366000 + NTIN=AINDX1(15,IND) 13367000 + NTI=NT(1,NTIN) 13368000 + NRECI=AINDX1(16,IND) 13369000 + CALL POST1(NTIN,NRECI) 13370000 + NWDS=AINDX1(18,IND) 13371000 + READ(NTI) (A(J),J=1,NWDS) 13372000 + NT(4,NTIN)=NT(4,NTIN)+1 13373000 + NUM=AINDX1(19,IND) 13374000 + WRITE(NTO) (A(J),J=1,NWDS) 13375000 + IF(STMP.GT.130.) WRITE(NO,2000) (A(J),A(J+NUM),J=1,NUM) 13376000 + 2000 FORMAT(2(' ENERGY:',E12.5,' NU:',E12.5)) 13377000 + 20 CONTINUE 13378000 + RETURN 13379000 + END 13380000 + SUBROUTINE P3MCF8(NNUC,NAME,NREC3,NREC4,NREC5,SIGP,MA,A, 13381000 + 1 ML1,ML2,AINDX1) 13382000 +C ************************************************************ 13383000 +C 13384000 +C MCC2F8 FILE GENERATION: ANGULAR DISTRIBUTION FOR ELASTIC SCATTER13385000 +C 13386000 +C ******************************************************* 13387000 +C 13388000 +C IN ARGOMENTO: NNUC=NUMERO NUCLIDI ( DI MCC2F1) 13389000 +C NAME(NNUC) NOME NUCLIDE ( RECORD 1 DI MCC2F1) REAL*8 13390000 +C NREC3 RECORD 3 DI MCC2F1 13391000 +C NREC4 4 13392000 +C NREC5 5 13393000 +C SIGP RECORD 6 DI MCC2F1 13394000 +C A(MA) SPAZIO DI LAVORO 13395000 +C 13396000 +C ****************************************************** 13397000 +C 13398000 + DIMENSION A(MA),AINDX1(ML1,ML2),NREC5(12,NNUC) 13399000 + COMMON/FILES/NT(4,99) 13400000 + EQUIVALENCE (NO,NT(1,6)),(NP,NT(1,11)) 13401000 + COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX, 13402000 + 1ETOP,DELTAU,MANY1,MMAT,NMAX 13403000 + COMMON/INDX/NTABL(40,200) 13404000 + COMMON /OPZIO/OPZ(4,8,10) 13405000 + EQUIVALENCE (STMP,OPZ(3,8,1)) 13406000 +C 13407000 + WRITE(NP,9999) 13408000 + 9999 FORMAT(' P3MCF8 ENTERED: ANGULAR DISTRIBUTIONS') 13409000 +C 13410000 +C 13411000 +C DEFINIZIONE FILES DI OUTPUT 13412000 + NTOUT=58 13413000 + NTO=NT(1,NTOUT) 13414000 + CALL REW(NTOUT) 13415000 +C 13416000 +C ............. LOOP SU TABELLA DI P3 ( NTABL) 13417000 +C RECORD 1 DI F1 13418000 + NPL=0 13419000 + IPTMAX=0 13420000 + NPASS=0 13421000 + MANY1=OPZ(2,8,2) 13422000 + IF(MANY1.LE.0) MANY1=126 13423000 + INUC=0 13424000 + WRITE(NO,1010) 13425000 + 1010 FORMAT(//20X,' FILE MCC2F8 PRODUCED - ELASTIC SCATTERING DATA') 13426000 +C FISSA IPTMAX , MAX DI IPT SU TUTTI I NUCLIDI 13427000 +C FISSA NPASS NUMERO DI PASSI MAX SU TUTTI I NUCLIDI 13428000 + DO 10 IS=1,NNUC 13429000 + IND=NTABL(33,IS) 13430000 + IF(IND.LE.0) GO TO 10 13431000 +C PL 13432000 + IF(NPASS.LT.AINDX1(23,IND)) NPASS=AINDX1(23,IND) 13433000 + IF(MANY1.NE.AINDX1(26,IND)) CALL ERR(8HP3MCF8 , 9) 13434000 + IF(IPTMAX.LT.AINDX1(25,IND)) IPTMAX=AINDX1(25,IND) 13435000 +C TJ,FACK 13436000 + IF(NPL.LT.AINDX1(24,IND)) NPL=AINDX1(24,IND) 13437000 + INUC=INUC+1 13438000 + 10 CONTINUE 13439000 + IF(OPZ(3,8,2).GT.0.) NPL=OPZ(3,8,2) 13440000 + IF(NPL.LE.0) NPL=9 13441000 + NPL1=NPL+1 13442000 + IPTMX1=IPTMAX+1 13443000 + IF(NPL.GT.IPTMX1) NPL=IPTMX1 13444000 +C NINUC E' IL NUMERO DEI NUCLIDI DI F8 13445000 + IF(NNUC.NE.INUC) CALL ERR(8HP3MCF8WR ,10) 13446000 + NINUC=INUC 13447000 +C FISSA SPAZI PER RECORD 1 (USO NMAT DI F1)=NNUC, NON NINUC, 13448000 +C NUMERO NUCLIDI FISSATO QUI. NEGLI ALTRI POSTI USO SEMPRE NINUC) 13449000 +C 13450000 +C CONTRARIAMENTE AL SOLITO I PUNTATORI INDICANO IL NUMERO DI LOCAZI13451000 +C PRECEDENTI IL DATO IN MEMORIA. PIU COMODO PER LETTURE E SCRITTUR13452000 +C 13453000 + LLGTH=0 13454000 +C LGTH 13455000 + LIR=LLGTH+NNUC 13456000 +C IR 13457000 + LIL=LIR+NNUC 13458000 +C IL 13459000 + LIPT=LIL+NNUC 13460000 +C IPT 13461000 + LIMIT=LIPT+NPASS*NNUC 13462000 +C 13463000 + IF(LIMIT.GT.MA) CALL ERR(8HP3MCF8 ,11) 13464000 + CALL RIEMP(0.0,LIMIT,A) 13465000 +C LETTURA RECORD 1 E SCRITTURA 13466000 +C (RECORD 1 SERVE PER LEGGERE RECORD 4 ED INDI VIENE CREATO A PARTE13467000 +C ................... LOOP SUI NUCLIDI DELLA TAVOLA 13468000 + INUC=0 13469000 + DO 20 IS=1,NNUC 13470000 + IND=NTABL(33,IS) 13471000 +C CONTEMPLO LA POSSIBILITA CHE ESISTANO NUCLIDI SENZA PL, 13472000 +C ANCHE SE QUESTO IN MCC2F8 NON E' PRECISATO 13473000 + IF(IND.LE.0)CALL ERR(8HP3MCF8WR ,105) 13474000 + IF(IND.LE.0) GO TO 200 13475000 + INUC=INUC+1 13476000 +C POSIZIONE FILE DI INPUT 13477000 + NTIN=AINDX1(15,IND) 13478000 + NTI=NT(1,NTIN) 13479000 + NRECI=AINDX1(16,IND) 13480000 + CALL POST1(NTIN,NRECI) 13481000 +C NPASSI NUMERO PASSI DEL NUCLIDE 13482000 + NPASSI=AINDX1(23,IND) 13483000 +C FOLLOWING 5 INSTRUCTIONS TO ALLOW CONPILATION BY VS FORTRAN 13484000 +C OF THE FOLLOWING STATEMENT: 13485000 +C READ(NTI) A(LLGTH+INUC),A(LIR+INUC),A(LIL+INUC), 13486000 +C 1 (A(LIPT+(INUC-1)*NPASS+J),J=1,NPASSI) 13487000 + LVS1=LLGTH+INUC 13488000 + LVS2=LIR+INUC 13489000 + LVS3=LIL+INUC 13490000 + LVS4=LIPT+(INUC-1)*NPASS 13491000 + READ(NTI)A(LVS1),A(LVS2),A(LVS3),(A(LVS4+J),J=1,NPASSI) 13492000 +C IPTMAX DEL MATERIALE 13493000 + IPTMXM=MAXX(NPASSI,A(LIPT+(INUC-1)*NPASS+1)) 13494000 + AM=AINDX1(5,IND) 13495000 + IF(AM.GT.1.)GO TO 105 13496000 + Q3=0 13497000 + GO TO 106 13498000 + 105 Q3=ALOG((AM+1.)/(AM-1.))**2/3. 13499000 + 106 N26=2 13500000 + N50=50 13501000 + IF(DELTAU.GE.Q3) N50=54 13502000 + IF(DELTAU.GE.Q3) N26=6 13503000 +C PER MC2-2 LGTH=NUMERO WORDS RECORD DEI TLJ E: 13504000 +C PER I TLJ IL NUMERO DELLE PAROLE REAL*8 13505000 +C PER KT,NG IL NUMERO DELLE PAROLE REAL*4 13506000 + NWDS3=2*(NAREAL(A(LIR+INUC)))+(N50+IPTMXM*(NPL+N26)+NPL) 13507000 + A(LLGTH+INUC)=AREAL(NWDS3) 13508000 + NT(4,NTIN)=NT(4,NTIN)+1 13509000 + 200 CONTINUE 13510000 + 20 CONTINUE 13511000 +C SCRITTURA DEL RECORD 1 13512000 +C NEL RECORD 1 ANCHE EVENTUALI NUCLIDI SENZA PL 13513000 +C USO NNUC , NON NINUC 13514000 + N1=NPASS*NNUC 13515000 + WRITE(NTO) (A(LLGTH+J),J=1,NNUC),(A(LIR+J),J=1,NNUC), 13516000 + 1 (A(LIL+J),J=1,NNUC),(A(LIPT+J),J=1,N1) 13517000 +C 13518000 + IF(STMP.LT.10) GO TO 210 13519000 + WRITE(NO,1000) NINUC,NPASS 13520000 + 1000 FORMAT(' RECORD 1 OF FILE MCC2F8 PRODUCED: NUCLIDES:',I5, 13521000 + 1 ' NUMBER OF PASS:',I5) 13522000 + WRITE(NO,2000) (J,A(LLGTH+J),A(LIR+J),A(LIL+J),J=1,NNUC) 13523000 + 2000 FORMAT(' NUCLIDE,LENGTH OF RECORD 3,INTERP CODE,NUMB OF BLOCKS' 13524000 + 1 /(1X,I5,2X,3I10)) 13525000 + WRITE(NO,3000) (A(LIPT+J),J=1,N1) 13526000 + 3000 FORMAT(' IPT: NUMBER OF LEGENDRE COMP FOR EACH PASS AND MATERIAL'13527000 + 1 /(10I10)) 13528000 + 210 CONTINUE 13529000 + NT(3,NTOUT)=NT(3,NTOUT)+1 13530000 + NT(4,NTOUT)=NT(3,NTOUT) 13531000 +C 13532000 + MXIR=MAXX(NNUC,A(LIR+1)) 13533000 + MXXPT=MAXX(NPASS*INUC,A(LIPT+1)) 13534000 +C 13535000 +C DEFINIZIONE SPAZI 13536000 +C HO SOVRADIMENSIONATO TUTTO 13537000 +C LIMIT=LIMITE CUI A E PIENO 13538000 + LNOME=LIMIT 13539000 +C NOME (REAL*8) 13540000 + LKT=LNOME+2 13541000 +C KT 13542000 + LNG=LKT+MXIR 13543000 +C NG 13544000 + LTLJ=LNG+MXIR 13545000 +C TLJ 13546000 + LTLJ1=LTLJ+(NPL1*IPTMX1)*2 13547000 +C TLJ1 E FAC 13548000 + LTLJ2=LTLJ1+(6*IPTMX1)*2 13549000 +C TLJ2 13550000 + LFACK=LTLJ2+2*2*MAX0(IPTMX1,6) 13551000 +C FACK 13552000 + LFN=LFACK+(6*6)*2 13553000 +C FN 13554000 + LVV=LFN+IPTMX1*IPTMX1*2 13555000 +C VV (SCR PER TMATRIX) 13556000 + LLLPP=MAX0(IPTMX1*3/2,30) 13557000 + LPN=LVV+IPTMX1*LLLPP*2 13558000 +C PN ( SCR PER PN PER TMATRIX) 13559000 + LIMIT=LPN+MANY1*MXXPT 13560000 + LIMIT1=LPN+MANY1*128*2 13561000 + LIMIT=MAX0(LIMIT,LIMIT1) 13562000 + IF(LIMIT.GT.MA) CALL ERR(8HP3MCF8 ,210) 13563000 + IF(LIMIT1.GT.MA) CALL ERR(8HP3MCF8 ,211) 13564000 + CALL P3MF81(NTO,NTOUT,NNUC,NINUC,NPASS,MANY1,NPL,NPL1,IPTMAX, 13565000 + 1 IPTMX1,MXIR,MXXPT, 13566000 + 2 A(LLGTH+1),A(LIR+1),A(LIL+1),A(LIPT+1),A(LNOME),A(LKT),A(LNG), 13567000 + 3 A(LTLJ),A(LTLJ1),A(LTLJ2),A(LFACK),A(LFN),A(LVV),A(LPN), 13568000 + 4 MA-LIMIT,A(LIMIT),ML1,ML2,AINDX1) 13569000 +C 13570000 + WRITE(NP,9000) 13571000 + 9000 FORMAT(' FILE MCC2F8 PRODUCED : ELASTIC SCATTERING DATA') 13572000 + CALL REW(NTOUT) 13573000 + RETURN 13574000 + END 13575000 + SUBROUTINE P3MF81(NTO,NTOUT,NNUC,NINUC,NPASS,MANY1,NPL,NPL1, 13576000 + 1 IPTMAX,IPTMX1,MXIR,MAXPT, 13577000 + 2 LGTH,IR,IL,IPT,NOME,KT,NG,TLJ,FAC,TLJ2,FACK,FN,VV,PN,MA,A, 13578000 + 3 ML1,ML2,AINDX1) 13579000 +C ******************************************************************13580000 +C CONTINUATION OF ROUTINE P3MCF8 13581000 +C SEGUITO DI P3MCF8 - TRATTA RECORDS 2,3,4 DI F8 13582000 +C I TLJ1 SONO CONTENUTI IN FAC(5-6,.) 13583000 +C 13584000 +C ************************************************************* 13585000 +C 13586000 + DIMENSION IPT(NPASS,NINUC),LGTH(NINUC),IR(NINUC),IL(NINUC) 13587000 + REAL*8 NOME,TLJ(NPL1,IPTMX1),TLJ2(2,IPTMX1),FACK(6,6), 13588000 + 1 FAC(6,IPTMX1), 13589000 + 2 VV(IPTMX1,1),PN(IPTMX1,1) 13590000 + DIMENSION KT(MXIR),NG(MXIR),FN(MAXPT,MANY1),A(MA) 13591000 + DIMENSION AINDX1(ML1,ML2) 13592000 +C 13593000 +C TLJ2 E' NEI FACK(5:6,.) 13594000 +C 13595000 + COMMON/FILES/NT(4,99) 13596000 + COMMON/INDX/NTABL(40,200) 13597000 + COMMON/OPZIO/OPZ(4,8,10) 13598000 + EQUIVALENCE(OPZ(2,5,3),DELTAU),(NO,NT(1,6)),(NP,NT(1,11)) 13599000 + EQUIVALENCE(STMP,OPZ(3,8,1)) 13600000 +C 13601000 +C 13602000 +C LOOP SUI NUCLIDI ( TAVOLA FATTA DA P3: NTABL) 13603000 +C 13604000 + INUC=0 13605000 + DO 10 IS=1,NNUC 13606000 + IND=NTABL(33,IS) 13607000 + IF(IND.LE.0) GO TO 100 13608000 +C 13609000 + INUC=INUC+1 13610000 +C LETTURA DELLA PL 13611000 +C 13612000 +C POSIZIONAMENTO FILES 13613000 + NTIN=AINDX1(15,IND) 13614000 + NTI=NT(1,NTIN) 13615000 + NRECI=AINDX1(16,IND) +2 13616000 + CALL POST1(NTIN,NRECI) 13617000 +C SALTA RECORD 1 (LETTO IN P3MCF8 E RECORD 2 ( NOME NUCLIDE) ) 13618000 + NOM1=NTABL(1,IS) 13619000 + NOM2=NTABL(2,IS) 13620000 + WRITE(NTO) NOM1,NOM2 13621000 + IF(STMP.GT.100.) WRITE(NO,1000) NOM1,NOM2 13622000 + 1000 FORMAT( ' MATERIAL:',2A4) 13623000 +C RECORD 3 13624000 + IR1=IR(INUC) 13625000 +C IL NUMERO DI PL PUO' ESSERE DIVERSO PER DIVERSI NUCLIDI 13626000 +C RICALCOL LE TLJ IN OGNI CASO. 13627000 +C IF(AINDX1(18,IND).GE.0..AND.AINDX1(12,IND).EQ.3.) GOTO400 13628000 + READ(NTI)(KT(J),J=1,IR1),(NG(J),J=1,IR1) 13629000 + NT(4,NTIN)=NT(4,NTIN)+1 13630000 +C 13631000 + 400 AM=AINDX1(5,IND) 13632000 + IF(AM.GT.1.) GO TO 405 13633000 + Q3=0. 13634000 + GO TO 406 13635000 + 405 Q3=ALOG((AM+1.)/(AM-1.))**2/3. 13636000 + 406 IPTMXM=AINDX1(25,IND) 13637000 + IPTXM1=IPTMXM+1 13638000 +C LETTURA DEI TLJ SOPPRESSA (VENGONO RICALCOLATI SEMPRE)13639000 +C IF(AINDX1(18,IND).LE.0..OR.AINDX1(12,IND).NE.3.) GOTO200 13640000 +C LETTURA DEI TLJ SE ESISTONO 13641000 +C IF(DELTAU.GE.Q3) 13642000 +C 1 READ(NTI) (KT(J),J=1,IR1),(NG(J),J=1,IR1), 13643000 +C 2 ((TLJ(J,JJ),J=2,NPL1),JJ=1,IPTXM1), 13644000 +C 3 ((FAC(J,JJ),J=5,6),JJ=1,IPTXM1), 13645000 +C 4 ((TLJ2(J,JJ),J=1,2),JJ=1,6), 13646000 +C 5 ((FACK(J,JJ),J=1,6),JJ=1,6),((FAC(J,JJ),J=1,4),JJ=1,IPTXM1) 13647000 +C IF(DELTAU.LT.Q3) 13648000 +C 1 READ(NTI) (KT(J),J=1,IR1),(NG(J),J=1,IR1), 13649000 +C 2 ((TLJ(J,JJ),J=2,NPL1),JJ=1,IPTXM1), 13650000 +C 3 ((FAC(J,JJ),J=5,6),JJ=1,IPTXM1), 13651000 +C 4 ((TLJ2(J,JJ),J=1,2),JJ=1,6), 13652000 +C 5 ((FACK(J,JJ),J=1,6),JJ=1,6) 13653000 +C NT(4,NTIN)=NT(4,NTIN)+1 13654000 +C CREAZIONE DEI TLJ 13655000 +C GO TO 300 13656000 +C200 CONTINUE 13657000 + CALL MODPAR(AM,FACK) 13658000 +C TMATRX ACCETTA IPTMX1 SOLO FINO A 20 (MUST BE IPTMX1<=20 ) 13659000 + IF(IPTMX1.GT.21) CALL ERR(8HP3MF81IN ,200) 13660000 + CALL TMATRX(AM,FAC,PN,TLJ,TLJ2,VV,NPL1,IPTMX1,DELTAU,IPTXM1,Q3) 13661000 + 300 IF(DELTAU.GE.Q3) 13662000 + 1WRITE(NTO) (KT(J),J=1,IR1),(NG(J),J=1,IR1), 13663000 + 2 ((TLJ(J,JJ),J=2,NPL1),JJ=1,IPTXM1), 13664000 + 3 ((FAC(J,JJ),J=5,6),JJ=1,IPTXM1), 13665000 + 4 ((TLJ2(J,JJ),J=1,2),JJ=1,6), 13666000 + 5 ((FACK(J,JJ),J=1,6),JJ=1,6),((FAC(J,JJ),J=1,4),JJ=1,IPTXM1) 13667000 + IF(DELTAU.LT.Q3) 13668000 + 1WRITE(NTO) (KT(J),J=1,IR1),(NG(J),J=1,IR1), 13669000 + 2 ((TLJ(J,JJ),J=2,NPL1),JJ=1,IPTXM1), 13670000 + 3 ((FAC(J,JJ),J=5,6),JJ=1,IPTXM1), 13671000 + 4 ((TLJ2(J,JJ),J=1,2),JJ=1,6), 13672000 + 5 ((FACK(J,JJ),J=1,6),JJ=1,6) 13673000 + IF(STMP.LT.1000.) GO TO 350 13674000 + WRITE(NO,2000) (KT(J),NG(J),J=1,IR1) 13675000 + 2000 FORMAT(4(' KT:',I5,' NG:',I5)) 13676000 + WRITE(NO,3000)NPL1,IPTMX1,((TLJ(J,JJ),J=2,NPL1),JJ=1,IPTXM1) 13677000 + 3000 FORMAT(' TLJ: (NPL1=',I5,'IPTMX1=',I5,')'/(1X,10E12.5)) 13678000 + WRITE(NO,4000)((FAC(J,JJ),J=5,6),JJ=1,IPTXM1) 13679000 + 4000 FORMAT(' FAC:',10E12.5) 13680000 + WRITE(NO,5000) ((TLJ2(J,JJ),J=1,2),JJ=1,6) 13681000 + 5000 FORMAT(' TLJ2:',10E12.5) 13682000 + WRITE(NO,6000) 13683000 + 5 ((FACK(J,JJ),J=1,6),JJ=1,6) 13684000 + 6000 FORMAT(' FACK:',10E12.5) 13685000 + IF(DELTAU.GE.Q3) WRITE(NO,7000) 13686000 + 5 ((FAC(J,JJ),J=1,4),JJ=1,IPTXM1) 13687000 + 7000 FORMAT(' FAC: ',10E12.5) 13688000 +C 13689000 + 350 IL1=IL(INUC) 13690000 + DO 20 IP=1,IL1 13691000 + IP1=IPT(IP,INUC) 13692000 + READ(NTI)((FN(J,JJ),J=1,IP1),JJ=1,MANY1) 13693000 + NT(4,NTIN)=NT(4,NTIN)+1 13694000 + WRITE(NTO)((FN(J,JJ),J=1,IP1),JJ=1,MANY1) 13695000 + IF(STMP.GT.1020.) WRITE(NO,8000) 13696000 + 1 ((FN(J,JJ),J=1,IP1),JJ=1,MANY1) 13697000 + 8000 FORMAT(' FN:',10E12.5) 13698000 + 20 CONTINUE 13699000 + 100 CONTINUE 13700000 + 10 CONTINUE 13701000 + RETURN 13702000 + END 13703000 + SUBROUTINE P3MCF1(NNUC,NAME,REC3,REC4,REC5,SIGP,MA,A, 13704000 + 1 ML1,ML2,AINDX1) 13705000 +C ****************************************************** 13706000 +C FILE MCC2F1 GENERATION: GENERAL DATA 13707000 +C 13708000 +C IN ARGOMENTO: NNUC=NUMERO NUCLIDI ( DI MCC2F1) 13709000 +C NAME(NNUC) NOME NUCLIDE ( RECORD 1 DI MCC2F1) REAL*8 13710000 +C REC3 RECORD 3 DI MCC2F1 13711000 +C REC4 4 13712000 +C REC5 5 13713000 +C SIGP RECORD DI MCC2F1 13714000 +C A(MA) SPAZIO DI LAVORO 13715000 +C 13716000 +C ****************************************************** 13717000 +C 13718000 + DIMENSION REC3(5,NNUC),REC4(5,NNUC),REC5(12,NNUC),SIGP(NNUC) 13719000 +C 13720000 +C INTEGER REC5(12,NNUC) 13721000 +C E' IL RECORD 5 DI MCC2F1 FATTO COSI': 13722000 +C NOME,NOME,NINEL,N2NTH,NLEVLS,N2NLEV,MAX1,MAX2,MAX3,MAX4, 13723000 +C NSINK1.NSINK2,NUMREC(1 PAROLA PER GRUPPO),MAXREC 13724000 +C 13725000 +C 13726000 + DIMENSION A(MA),AINDX1(ML1,ML2) 13727000 + COMMON/FILES/NT(4,99) 13728000 + EQUIVALENCE(NO,NT(1,6)),(NP,NT(1,11)) 13729000 + COMMON/RC1F1/NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX, 13730000 + 1ETOP,DELTAU,MANY1,MMAT,NMAX,MAXREC 13731000 + COMMON/INDX/NTABL(40,200) 13732000 + COMMON/DIM/M(5) 13733000 + COMMON/OPZIO/OPZ(4,8,10) 13734000 + EQUIVALENCE( STMP,OPZ(3,1,1)) 13735000 +C 13736000 + WRITE(NP,9999) 13737000 + 9999 FORMAT(' P3MCF1 ENTERED: GENERAL DATA FILE') 13738000 +C 13739000 +C 13740000 + NTOUT=51 13741000 + NTO=NT(1,NTOUT) 13742000 + CALL REW(NTOUT) 13743000 +C RECORD 1 MESSO DALLE DIVERSE SUBROUTINES DI P3 IN COMMON /RC1F1/ 13744000 +C NNUC=LUNGHEZZA TAVOLA COI NOMI DEI NUCLIDI 13745000 + NMAT=NNUC 13746000 + NGROUP=OPZ(2,5,4) 13747000 + ETOP=OPZ(2,5,2) 13748000 + DELTAU=OPZ(2,5,3) 13749000 +C 13750000 + WRITE(NTO) NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX, 13751000 + 1 ETOP,DELTAU,MANY1,MMAT,NMAX 13752000 + WRITE(NO,1000) NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL, 13753000 + 1 IPTMAX,ETOP,DELTAU,MANY1,MMAT,NMAX 13754000 + 1000 FORMAT('0 FILE MCC2F1 PRODUCED - GENERAL DATA.'// 13755000 + 1 ' NUMBER OF MATERIALS (NMAT):',I5/ 13756000 + 2 ' NUMBER OF ENERGY GROUPS (NGROUP):',I5/ 13757000 + 3 ' RESOLVED RESONANCE MATERIALS (NRESMT):',I5/ 13758000 + 4 ' UNRESOLVED RESONANCE MATERIALS (NUNRMT):',I5/ 13759000 + 5 ' NUMBER OF FISSION SOURCES (MSORS):',I5/ 13760000 + 6 ' NUMBER OF STEPS FOR ELASTIC SCATTERING DATA (NPASS):',I5/ 13761000 + 7 ' NUMBER OF LEGENDRE POLINOMIAL COEFFICIENTS (NPL):',I5/ 13762000 + 8 ' MAXIMUN NUMBER OF LEGENDRE COMPONENTS (IPTMAX):',I5/ 13763000 + 9 ' TOP ENERGY OF MULTIGROUP SCHEME (ETOP):',E12.5/ 13764000 + A ' LETARGY INTERVAL (DELTAU):',E12.5/ 13765000 + B ' STEP LENGTH FOR LEGENDRE POLINOMIAL (MANY1):',I5/ 13766000 + C ' NUMBER OF MATERIALS IN THE ENERGY DISTRIBUTION FILE (MMAT):',I513767000 + D/' NUMBER OF GROUPS IN THE ENERGY DISTRIBUTION FILE (NMAX):',I5///13768000 + E ) 13769000 +C 13770000 +C RECORD 2 (NOMI DELLA TABELLE NTABL) (NAME NON E' USATO) 13771000 + WRITE(NTO) (NTABL(1,J),NTABL(2,J),J=1,NMAT) 13772000 + WRITE(NO,2000) (NTABL(1,J),NTABL(2,J),J=1,NMAT) 13773000 + 2000 FORMAT(' MATERIALS:'/(10(5X,2A4))) 13774000 + DO 10 IS=1,NNUC 13775000 + IND=NTABL(3,IS) 13776000 + IF(IND.GT.0) GO TO 100 13777000 + CALL ERR(8HP3MCF1 ,100) 13778000 + 100 CONTINUE 13779000 +C A 13780000 + REC3(1,IS)=AINDX1(5,IND) 13781000 +C Z 13782000 + NDUM=AINDX1(21,IND) 13783000 + REC3(2,IS)=AREAL(NDUM) 13784000 +C MAT 13785000 + NDUM=AINDX1(1,IND) 13786000 + REC3(3,IS)=AREAL(NDUM) 13787000 +C E FISS , E CATT ( DA SMOOTHS) + E PER N,ALFA,NH ETC 13788000 + REC3(5,IS)=AINDX1(25,IND)+AINDX1(28,IND) 13789000 + REC3(4,IS)=AINDX1(24,IND) 13790000 +C QUESTO E/FISS NON COMPRENDE I NEUTRINI (DA MT=18) 13791000 + SIGP(IS)=AINDX1(23,IND) 13792000 + 10 CONTINUE 13793000 +C 13794000 +C SCRIVE RECORD 3 13795000 + WRITE(NTO) ((REC3(J,I),I=1,NMAT),J=1,5) 13796000 + WRITE(NO,4000)(I,NTABL(1,I),NTABL(2,I), 13797000 + 1 (REC3(J,I),J=1,5),I=1,NMAT) 13798000 + 4000 FORMAT(/' MATERIAL , A',12X,', Z , MAT , E FISS ,', 13799000 + 1 ' E CAPT '/ 13800000 + 2 (1X,I5,1X,2A4,E12.5,I10,I10,2E12.5)) 13801000 +C 13802000 +C SCRIVE RECORD 4 13803000 + WRITE(NTO) ((REC4(I,J),J=1,NRESMT),I=1,3), 13804000 + 1 ((REC4(I,J),J=1,NUNRMT),I=4,5) 13805000 + WRITE(NO,5000)((REC4(I,J),I=1,3),J=1,NRESMT) 13806000 + 5000 FORMAT(/ ' RESOLVED RESONANCES,RECORDS,E MAX RESOLVED'/ 13807000 + 1 (1X,I10,I15,3X,E12.5)) 13808000 + WRITE(NO,6000)((REC4(I,J),I=4,5),J=1,NUNRMT) 13809000 + 6000 FORMAT(/' INF ENERGY , UPPER ENERGY (UNRESOLVED RESONANCE DATA)13810000 + 1 '/(1X,E12.5,4X,E12.5)) 13811000 +C 13812000 +C SCRIVE RECORD 5 13813000 + WRITE(NTO)(REC5(1,J),REC5(2,J),J=1,MMAT), 13814000 + 1 ((REC5(I,J),J=1,MMAT),I=3,12),(REC5(12+J,NNUC),J=1,NMAX),MAXREC 13815000 + WRITE(NO,7000)((REC5(I,J),I=1,12),J=1,MMAT) 13816000 + 7000 FORMAT(//' NAME',6X,'NINEL,N2NTH,NLEVLS,N2NLEV,', 13817000 + 1 'MAX1,MAX2, MAX3, MAX4,', 13818000 + 2 'NSINK1,NSINK2 (FILE MCC2F6 PARAMETERS)'/(1X,2A4,10I6)) 13819000 + WRITE(NO,8000) MAXREC,(REC5(12+J,NNUC),J=1,NMAX) 13820000 + 8000 FORMAT(' MAXIMUM NUMBER OF RECORDS MAXREC:',I10// 13821000 + 2 ' NUMBER OF RECORDS FOR EACH GROUP (FILE MCC2F6):' 13822000 + 1 /(1X,30I4)) 13823000 + 13824000 +C 13825000 +C RECORD 6 : SIGP 13826000 + WRITE(NTO) (SIGP(J),J=1,NMAT) 13827000 + WRITE(NO,9000) (NTABL(1,J),NTABL(2,J),SIGP(J),J=1,NMAT) 13828000 + 9000 FORMAT(/' SCATTERING RADIUS:'/(3(5X,2A4,1X,E12.5))) 13829000 + CALL REW(NTOUT) 13830000 + RETURN 13831000 + END 13832000 + SUBROUTINE P4(MA,A) 13833000 +C ******************************* 13834000 +C 13835000 +C READS THE FILES OF MC2-II : MCC2F1,3,4,5,6,7,8 . 13836000 +C PUT THEM IN THE FORMAT OF THE SECOND GROUP OF INTERMEDIATE FILES 13837000 +C AND WRITES THEIR INDEX, TO ALLOW MERGING OF LIBRARIES 13838000 +C 13839000 +C ********************************************************** 13840000 +C 13841000 +C IL COMANDO DI QUESTA PARTE CONSTA DI UN NUMERO DI FILE MCC2F... 13842000 +C ED ALCUNI NUMERI INTERI: 13843000 +C IC(1)=NUMERO FILE MCC2F1, 3 , 4,5,6,7,8 13844000 +C IC(2)= NUMERO LOGICO FILE INPUT 13845000 +C IC(3)= NUMERO LOGICO FILE OUTPUT 13846000 +C SE IC(1)=0 LI FA TUTTI 13847000 +C SE IC=-N LI FA TUTTI MA NON IL NUMERO N 13848000 +C 13849000 +C ****************************************************** 13850000 + DIMENSION A(MA) 13851000 + COMMON/FILES/NT(4,99) 13852000 + EQUIVALENCE (NT(1,6),NO),(NT(1,11),NP),(OPZ(4,1,1),STMP) 13853000 + COMMON/OPZIO/OPZ(4,5,10) 13854000 + COMMON/COMM/C,IC(6),AC(4) 13855000 + REAL*8 C 13856000 + COMMON/RC1F1/ NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL,IPTMAX, 13857000 + 1ETOP,DELTAU,MANY1,MMAT,NMAX,MAXREC 13858000 + COMMON/DIM/MDI1,MDI2,MDI3,IND 13859000 + COMMON/INDX1/AINDX1(40,200) 13860000 +C 13861000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 13862000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 13863000 +C 13864000 + DATA NFLGF1/0/ 13865000 + DATA LIMIT/1/ 13866000 +C 13867000 +C MCC2F1, SEMPRE RICHIESTO, 13868000 +C VA LETTO ALMENO UNA VOLTA NEL CORSO DEL RUN 13869000 +C 13870000 + 9001 FORMAT(' PART 4 : READING OF A MC2-2 INPUT LIBRARY TO BE UPDATED')13871000 + 9000 FORMAT('0 FILE MCC2F',I1,' INPUT FILE NUMBER:',I4, 13872000 + 1 ' OUTPUT FILE NUMBER:',I4) 13873000 + IF(NFLGF1.LE.0.AND.ICCCC.NE.1.AND.ICCCC.NE.0.AND.ICCCC.GE.-1) 13874000 + 1 CALL ERR(8HP4 ,100) 13875000 +C 13876000 +C CERCA IL FILE CHE DEVE SMONTARE 13877000 + IF(IC(1).GT.8.OR.IC(1).LT.-8) RETURN 13878000 + WRITE(NP,9001) 13879000 + IF(IC(1).NE.1.AND.IC(1).GT.0) GO TO 200 13880000 + IF(IC(1).EQ.-1) GO TO 200 13881000 + ICCCC=1 13882000 + NTIN=IC(2) 13883000 + IF(NTIN.LE.0) NTIN=41 13884000 +C 13885000 + WRITE(NO,9000) ICCCC,NTIN 13886000 + NTI=NT(1,NTIN) 13887000 + CALL REW(NTIN) 13888000 + 100 CONTINUE 13889000 + READ(NTI,END=555) NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL, 13890000 + 1 IPTMAX,ETOP,DELTAU,MANY1,MMAT,NMAX 13891000 + WRITE(NO,1000) NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL, 13892000 + 1 IPTMAX,ETOP,DELTAU,MANY1,MMAT,NMAX 13893000 + 1000 FORMAT('0 CONTENTS OF MC2-2 FILES TO UPDATE:'/ 13894000 + 1 ' NUMBER OF MATERIALS (NMAT):',I5/' ENERGY GROUPS (NGROUP):',I5/ 13895000 + 2 ' RESOLVED RES.MATERIALS (NRESMT):',I5/' UNRESOLVED RESONANCE', 13896000 + 3 ' MATERIALS (NUNRMT):',I5/' FISSION SOURCES (MSORS):',I5/ 13897000 + 4 ' PASSES FOR ELASTIC SCATTERING DATA (NPASS):',I5/ 13898000 + 5 ' LEGENDRE POLINOMIAL COEFFICIENTS (NPL):',I5/' MAX LEGENDRE' 13899000 + 6 ,' COMPONENTS (IPTMAX):',I5/' TOP ENERGY (ETOP):',E12.5/ 13900000 + 7 ' LETARGY INTERVAL (DELTAU):',E12.5/ 13901000 + 8 ' PASS LENGTH FOR LEGENDRE POLINOMIAL (MANY1):',I5/' ANELASTIC' 13902000 + 9,' AND N,2N MATERIALS (MMAT):',I5/' GROUPS OF ANEL AND N,2N DATA' 13903000 + A,' (NMAX):',I5//) 13904000 +C SPAZI PER RECORDS DEL FILE F1 13905000 + LRC2=1 13906000 +C RECORD 2 13907000 +C NAMES ( REAL*8) 13908000 + LRC3=LRC2+2*NMAT 13909000 +C RECORD 3 13910000 +C A,Z,MAT,EFISS,ECATT 13911000 + LRC4=LRC3+5*NMAT 13912000 +C RECORD 4 13913000 +C RESONANCES 13914000 + LRC41=LRC4 13915000 + LRC42=LRC4+NRESMT 13916000 + LRC43=LRC42+NRESMT 13917000 + LRC44=LRC43+NRESMT 13918000 + LRC45=LRC44+NUNRMT 13919000 +C 13920000 + LRC5=LRC45+NUNRMT 13921000 +C RECORD 5 13922000 +C ANEL,N2N ENERGY DISTRIBUTIONS 13923000 + LRC51=LRC5 13924000 +C NOME 13925000 + LRC52=LRC5+2*MMAT 13926000 +C NINEL 13927000 + LRC53=LRC52+MMAT 13928000 +C N2NTH 13929000 + LRC54=LRC53+MMAT 13930000 +C NLEVLS 13931000 + LRC55=LRC54+MMAT 13932000 +C N2NLVS 13933000 + LRC56=LRC55+MMAT 13934000 +C MAX1 13935000 + LRC57=LRC56+MMAT 13936000 +C MAX2 13937000 + LRC58=LRC57+MMAT 13938000 +C MAX3 13939000 + LRC59=LRC58+MMAT 13940000 +C MAX4 13941000 + LRC60=LRC59+MMAT 13942000 +C NSINK1 13943000 + LRC61=LRC60+MMAT 13944000 +C NSINK2 13945000 + LRC62=LRC61+MMAT 13946000 +C NUMREC 13947000 + LRC63=LRC62+NMAX 13948000 +C MAXREC 13949000 + LRC6=LRC63+1 13950000 +C RECORD 6 13951000 +C SIGP 13952000 + LIMIT=LRC6+NMAT +1 13953000 + IF(LIMIT.GT.MA) CALL ERR(8H P4 ,0) 13954000 +C 13955000 +C LETTURA DI F1 13956000 + N1=2*NMAT 13957000 + READ(NTI) (A(LRC2+J-1),J=1,N1) 13958000 + READ(NTI)((A(LRC3-1+5*(J-1)+JJ),J=1,NMAT),JJ=1,5) 13959000 + N1=3*NRESMT+2*NUNRMT 13960000 + READ(NTI)(A(LRC4+J-1),J=1,N1) 13961000 +C RESONANCE RECORD 13962000 + N1=12*MMAT+1+NMAX 13963000 + READ(NTI)(A(LRC5+J-1),J=1,N1) 13964000 +C MCC2F6 RECORD 13965000 + MAXREC=NAREAL(A(LRC63)) 13966000 + N1=NMAT 13967000 + READ(NTI)(A(LRC6+J-1),J=1,N1) 13968000 +C THE FOLLOWING STATEMENTS TO ALLOW COMPILATION BY VS FORTRAN 13969000 +C OF THE STATEMENT: 13970000 +C WRITE(NO,2000) (A(LRC2+2*J-2),A(LRC2+2*J-1),A(LRC6+J-1), 13971000 +C 1 (A(LRC3-1+5*(J-1)+JJ),JJ=1,5),J=1,NMAT) 13972000 + DO 10 J=1,NMAT 13973000 + LVS1=LRC2+2*J-2 13974000 + LVS2=LRC2+2*J-1 13975000 + LVS3=LRC6+J-1 13976000 + LVS4=LRC3-1+5*(J-1) 13977000 + WRITE(NO,2000) A(LVS1),A(LVS2),A(LVS3),(A(LVS4+JJ),JJ=1,5) 13978000 + 10 CONTINUE 13979000 + 2000 FORMAT(1X,2A4,' SIGP:',E12.5,' A:',F6.2,' Z:',I5,' MAT',I5, 13980000 + 1' E FISS:',E12.5,' E CATT:',E12.5) 13981000 + NT(3,NTIN)=NT(3,NTIN)+6 13982000 + NFLGF1=NTI 13983000 + CALL P4MCF1(NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL, 13984000 + 1IPTMAX,ETOP,DELTAU,MANY1,MMAT,NMAX, 13985000 + 2 A(LRC2),A(LRC3),A(LRC6) ,MA-LIMIT,A(LIMIT+1)) 13986000 + CALL REW(NTIN) 13987000 +C 13988000 + 200 CONTINUE 13989000 + IF(IC(1).EQ.2) CALL ERR(8HP4INIMPL ,200) 13990000 +C 13991000 +C 13992000 + 300 CONTINUE 13993000 + IF(IC(1).NE.3.AND.IC(1).GT.0) GO TO 400 13994000 + IF(IC(1).EQ.-3) GO TO 400 13995000 + ICCCC=3 13996000 + NTIN=IC(2) 13997000 + IF(NTIN.LE.0) NTIN=43 13998000 +C 13999000 + WRITE(NO,9000) ICCCC,NTIN 14000000 +C SPAZI PER LETTURE RECORDS 1 ETC DI F3 14001000 + L1=LIMIT 14002000 +C NOME 14003000 + L2=L1+NUNRMT*2 14004000 +C NISO 14005000 + L3=L2+NUNRMT 14006000 +C IFI 14007000 + L4=L3+NUNRMT 14008000 +C ISK 14009000 + L5=L4+NUNRMT 14010000 +C 14011000 + LIMIT1=L5 14012000 +C 14013000 + CALL P4MCF3(NTIN,MMAT,NGROUP,NRESMT,NUNRMT, 14014000 + 1 A(LRC2),A(LRC3),A(LRC41),A(LRC42),A(LRC43),A(LRC44),A(LRC45), 14015000 + 2 A(L1),A(L2),A(L3),A(L4),MA-LIMIT1,A(LIMIT1+1)) 14016000 + CALL REW(NTIN) 14017000 +C 14018000 + 400 CONTINUE 14019000 + IF(IC(1).NE.4.AND.IC(1).GT.0) GO TO 500 14020000 + IF(IC(1).EQ.-4) GO TO 500 14021000 + ICCCC=4 14022000 + NTIN=IC(2) 14023000 + IF(NTIN.LE.0) NTIN=44 14024000 +C 14025000 + WRITE(NO,9000) ICCCC,NTIN 14026000 +C SPAZI PER RECORDS 1 E 2 DI F4 14027000 + L1=LIMIT 14028000 +C NOME 14029000 + L2=L1+NRESMT*2 14030000 +C NISO 14031000 + L3=L2+NRESMT 14032000 +C IWR 14033000 + L4=L3+NRESMT 14034000 +C EL 14035000 + L5=L4+NRESMT 14036000 +C EU 14037000 + L6=L5+NRESMT 14038000 +C 14039000 + LIMIT1=L6+1 14040000 +C 14041000 + CALL P4MCF4(NTIN,NMAT,NGROUP,NRESMT, 14042000 + 1A(LRC2),A(LRC3),A(LRC41),A(LRC42),A(LRC43), 14043000 + 2 A(L1),A(L2),A(L3),A(L4),A(L5),MA-LIMIT1,A(LIMIT1+1)) 14044000 + CALL REW(NTIN) 14045000 +C 14046000 +C 14047000 + 500 CONTINUE 14048000 + IF(IC(1).NE.5.AND.IC(1).GT.0) GO TO 600 14049000 + IF(IC(1).EQ.-5) GO TO 600 14050000 + ICCCC=5 14051000 + NTIN=IC(2) 14052000 + NTOUT=IC(3) 14053000 + IF(NTOUT.LE.0) NTOUT=65 14054000 + IF(NTIN.LE.0) NTIN=45 14055000 +C 14056000 + WRITE(NO,9000) ICCCC,NTIN,NTOUT 14057000 + CALL P4MCF5(NTIN,NTOUT,NMAT,NGROUP, 14058000 + 1ETOP,DELTAU,A(LRC2),A(LRC3),MA,A(LIMIT+1)) 14059000 + CALL REW(NTIN) 14060000 +C 14061000 + 600 CONTINUE 14062000 + IF(IC(1).NE.6.AND.IC(1).GT.0) GO TO 700 14063000 + IF(IC(1).EQ.-6) GO TO 700 14064000 + ICCCC=6 14065000 + NTIN=IC(2) 14066000 + NTOUT=IC(3) 14067000 + IF(NTOUT.LE.0) NTOUT=66 14068000 + IF(NTIN.LE.0) NTIN=46 14069000 +C 14070000 + WRITE(NO,9000) ICCCC,NTIN,NTOUT 14071000 + NTI=NT(1,NTIN) 14072000 + CALL REW(NTIN) 14073000 +C SPAZI VARI PER LETTURA INDICI DI INDICI 14074000 + L1=LIMIT 14075000 + L2=L1+MMAT 14076000 + LIMIT1=L2+MMAT 14077000 + CALL P4MCF6(NTIN,NTOUT,NMAT,NGROUP, 14078000 + 1 ETOP,DELTAU,MMAT,NMAX, 14079000 + 2 A(LRC2),A(LRC3),A(LRC5), 14080000 + 3 A(LRC52),A(LRC53),A(LRC54),A(LRC55),A(LRC56),A(LRC57), 14081000 + 4 A(LRC58),A(LRC59),A(LRC60),A(LRC61),A(LRC62),MAXREC, 14082000 + 5 A(L1),A(L2),MA-LIMIT1,A(LIMIT1+1)) 14083000 + CALL REW(NTIN) 14084000 +C 14085000 +C 14086000 +700 CONTINUE 14087000 + IF(IC(1).NE.7.AND.IC(1).GT.0) GO TO 800 14088000 + IF(IC(1).EQ.-7) GO TO 800 14089000 + ICCCC=7 14090000 + NTIN=IC(2) 14091000 + NTOUT=IC(3) 14092000 + IF(NTOUT.LE.0) NTOUT=67 14093000 + IF(NTIN.LE.0) NTIN=47 14094000 +C 14095000 + WRITE(NO,9000) ICCCC,NTIN,NTOUT 14096000 +C SPAZI VARI PER LETTURE 14097000 + L1=LIMIT 14098000 + L2=L1+2*MSORS 14099000 + L3=L2+MSORS 14100000 + L4=L3+NMAT 14101000 + LIMIT1=L4+NMAT 14102000 +C 14103000 + CALL P4MCF7(NTIN,NTOUT,NMAT,NGROUP,MSORS, 14104000 + 1 ETOP,DELTAU, 14105000 + 2 A(LRC2),A(LRC3), 14106000 + 5 A(L1),A(L2),A(L3),A(L4),MA-LIMIT1,A(LIMIT1+1)) 14107000 + CALL REW(NTIN) 14108000 +C 14109000 + 800 CONTINUE 14110000 + IF(IC(1).NE.8.AND.IC(1).GT.0) GO TO 900 14111000 + IF(IC(1).EQ.-8) GO TO 900 14112000 + ICCCC=8 14113000 + NTIN=IC(2) 14114000 + NTOUT=IC(3) 14115000 + IF(NTOUT.LE.0) NTOUT=68 14116000 + IF(NTIN.LE.0) NTIN=48 14117000 +C 14118000 + WRITE(NO,9000) ICCCC,NTIN,NTOUT 14119000 + L1=LIMIT 14120000 +C LGTH 14121000 + L2=L1+NMAT 14122000 +C IR 14123000 + L3=L2+NMAT 14124000 +C IL 14125000 + L4=L3+NMAT 14126000 +C IPT 14127000 + LIMIT1=L4+NMAT*NPASS 14128000 +C 14129000 + CALL P4MCF8(NTIN,NTOUT,NMAT,NGROUP,NPASS,NPL, 14130000 + 1IPTMAX,ETOP,DELTAU,MANY1, 14131000 + 2 A(LRC2),A(LRC3), 14132000 + 5 A(L1),A(L2),A(L3),A(L4),MA-LIMIT1,A(LIMIT1+1)) 14133000 + CALL REW(NTIN) 14134000 + 900 CONTINUE 14135000 + IND=IND+1 14136000 + CALL SCARIN(4,MIND11,IND,AINDX1) 14137000 + RETURN 14138000 + 555 WRITE(NP,9555) NTI 14139000 + WRITE(NO,9555) NTI 14140000 + 9555 FORMAT(' !!! WARNING !! NO FILE MCC2F1 TO BE UPDATED FOUND ON' 14141000 + 1 ,' UNIT:',I4) 14142000 + RETURN 14143000 + END 14144000 + SUBROUTINE P4MCF1(NMAT,NGROUP,NRESMT,NUNRMT,MSORS,NPASS,NPL, 14145000 + 1 IPTMAX,ETOP,DELTAU,MANY1,MMAT,NMAX,NAME,NREC3,SIGP,MA,A) 14146000 +C **************************************************************** 14147000 +C FILE MCC2F1 14148000 +C SMONTA FILE MCC2F1 E SCRIVE RECORD INDICE CON RECORD 6=SIGP 14149000 +C IL FILE MCC2F1 LO LEGGE P4 14150000 +C 14151000 +C ******************************************************** 14152000 +C 14153000 + COMMON/DIM/M(5) 14154000 + EQUIVALENCE(M(4),IND) 14155000 + COMMON/INDX1/AINDX1(40,200) 14156000 +C 14157000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 14158000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 14159000 +C 14160000 + DIMENSION NREC3(5,NMAT),SIGP(NMAT),NAME(NMAT) 14161000 +C 14162000 + DO 10 IM=1,NMAT 14163000 + ZA=1000.0*(NREC3(2,IM))+AREAL(NREC3(1,IM)) 14164000 + NA=AREAL(NREC3(1,IM)) 14165000 +C 14166000 + IND=IND+1 14167000 + IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1) 14168000 + CALL EMPIN(MIND11,AINDX1(1,IND),FLOAT(NREC3(3,IM)), 14169000 + 1 -1. ,0.,ZA,NREC3(1,IM), 14170000 + 2 NAME(IM*2-1),NAME(IM*2),NAME(IM*2-1),NAME(IM*2),0., 14171000 + 3 1.,0.,0.,0.,0.,0.,0.,0.,0.,0., 14172000 + 4 FLOAT(NREC3(2,IM)),FLOAT(NA),SIGP(IM), 14173000 + 5 NREC3(4,IM),NREC3(5,IM),0.,0.,0.,0.,SIGP(IM), 14174000 + 6 1.,0.,0.,0.,0.,0.,0.,0.,0.,0.) 14175000 +C 14176000 + 10 CONTINUE 14177000 + RETURN 14178000 + END 14179000 + SUBROUTINE P4MCF3(NTIN,NMAT,NGROUP,NRESMT,NUNRMT, 14180000 + 1 NAME,NREC3,NRES,NREC,EMAXR,EMAXU,EMINU, 14181000 + 2 NAMUN,NISO,IFI,ISK,MA,NA) 14182000 +C ******************************************************************14183000 +C 14184000 +C READS FILE MCC2F3 14185000 +C 14186000 +C IL FILE NON VIENE REALMENTE SMONTATO, NE E' SOLO FATTO UN INDICE14187000 +C 14188000 +C *************************************************************** 14189000 +C 14190000 + DIMENSION NAME(NMAT),NREC3(5,NMAT),NRES(NRESMT),NREC(NRESMT) 14191000 + DIMENSION EMAXU(NUNRMT),EMINU(NUNRMT),NAMUN(NUNRMT),NISO(NUNRMT) 14192000 + DIMENSION IFI(NUNRMT),ISK(NUNRMT),NA(MA),EMAXR(NRESMT) 14193000 +C 14194000 +C COMMONS: 14195000 + COMMON/FILES/NT(4,99) 14196000 + EQUIVALENCE (NO,NT(1,6)),(NP,NT(1,11)) 14197000 + COMMON/INDX1/AINDX1(40,200) 14198000 + COMMON/COMM/C,IC(6),AC(4) 14199000 + COMMON/DIM/M1,M2,M3,IND 14200000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 14201000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 14202000 +C 14203000 +C 14204000 +C FILE INPUT 14205000 + NTI=NT(1,NTIN) 14206000 + CALL REW(NTIN) 14207000 +C LETTURA RECORD 1 14208000 + N1=NUNRMT*2 14209000 + READ(NTI,END=555)(NAMUN(J),J=1,N1) 14210000 +C LETTURA RECORD 2 14211000 + READ(NTI)(NISO(J),J=1,NUNRMT),(IFI(J),J=1,NUNRMT), 14212000 + 1 (ISK(J),J=1,NUNRMT),LSTMAX,JSTMAX,NPTMAX 14213000 + WRITE(NP,1000) NTI,(NAMUN(2*J-1),NAMUN(2*J),EMAXU(J),EMINU(J), 14214000 + 1 NISO(J),IFI(J),ISK(J),J=1,NUNRMT) 14215000 + 1000 FORMAT(' UNRESOLVED RESONANCE FILE MCC2F3 READ ON UNIT:',I5/ 14216000 + 2 (1X,2A4,' EMAX:',E12.5,' EMIN:',E12.5,' NISO:',I5,' IFI:',I4, 14217000 + 3 ' ISK:',I4)) 14218000 + NT(4,NTIN)=NT(4,NTIN)+2 14219000 + DO 10 IN=1,NUNRMT 14220000 + NIS=NISO(IN) 14221000 + N1=6*NIS 14222000 +C LETTURA RECORD 3 14223000 + READ(NTI)(NA(J),J=1,N1) 14224000 + NT(4,NTIN)=NT(4,NTIN)+1 14225000 +C 14226000 + DO 20 IS=1,NIS 14227000 + NPT=NA(NIS*4+IS) 14228000 + LST=NA(NIS*3+IS) 14229000 + L1=N1+1 14230000 +C ES(NPT) 14231000 + L2=L1+NPT 14232000 +C DEL(NPT) 14233000 + L3=L2+NPT 14234000 +C JST(LST) 14235000 + L4=L3+LST-1 14236000 +C 14237000 + READ(NTI) (NA(J),J=L1,L4) 14238000 + N1=L4+1 14239000 + N2=0 14240000 + DO 30 IJ=L3,L4 14241000 + 30 N2=N2+NA(IJ) 14242000 + N2=N2*(4*NPT+3) + N1-1 14243000 + IF(N2.GT.MA) CALL ERR(8HP4MCF3 ,30) 14244000 + READ(NTI) (NA(J),J=N1,N2) 14245000 +C 14246000 +C RIEMPIE L'INDICE 14247000 +C CERCA IL MATERIALE ( L'ORDINE IN CUI E' IN F1) 14248000 + I=IDENT8(NMAT,NAMUN(IN*2-1),NAME) 14249000 + IF(I.LE.0) CALL ERR(8HP4MCF3 ,40) 14250000 +C I E' IL NUMERO DEL NUCLIDE NEI RECORDS DI F1 14251000 +C 14252000 + IND=IND+1 14253000 + IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1) 14254000 + CALL EMPIN(MIND11,AINDX1(1,IND),FLOAT(NREC3(3,I)),-3.,0.,0., 14255000 + 1 NREC3(1,I),NAMUN(IN*2-1),NAMUN(IN*2),NAMUN(IN*2-1),NAMUN(IN*2), 14256000 + 2 0.,3.,0.,0.,FLOAT(NTI),FLOAT(NTIN),FLOAT(NT(4,NTIN)),2., 14257000 + 3 FLOAT(L4-L1+1),FLOAT(N2-N1+1),FLOAT(NIS),FLOAT(IFI(IN)),2., 14258000 + 4 FLOAT(LST),FLOAT(JSTMAX),FLOAT(NPT), 14259000 + 5 NA(IS),NA(NIS+IS),NA(NIS*5+IS),NA(NIS*2+IS),0.,0., 14260000 + 6 EMINU(IN),EMAXU(IN),FLOAT(IS),0.,0.,0.,0.,0.,0.) 14261000 + NT(4,NTIN)=NT(4,NTIN)+2 14262000 + 20 CONTINUE 14263000 + 10 CONTINUE 14264000 +C FINE LOOP ISOTOPI E MATERIALE ............................... 14265000 + RETURN 14266000 + 555 WRITE(NP,9555) NTI 14267000 + WRITE(NO,9555) NTI 14268000 + 9555 FORMAT(' !!! WARNING !! NO FILE MCC2F3 TO BE UPDATED FOUND ON' 14269000 + 1 ,' UNIT:',I4) 14270000 + RETURN 14271000 + END 14272000 + SUBROUTINE P4MCF4(NTIN,NMAT,NGROUP,NRESMT, 14273000 + 1 NAME,NREC3,NRES,NREC,EMAXR, 14274000 + 2 NAMER,NISO,IWR,EL,EU,MA,A) 14275000 +C ************************************************************* 14276000 +C 14277000 +C READS FILE MCC2F4 14278000 +C 14279000 +C NON VIENE REALMENTE SMONTATO, NE VIENE SOLO FATTO UN INDICE 14280000 +C 14281000 +C ******************************************************* 14282000 +C 14283000 + DIMENSION NAMER(NRESMT),NISO(NRESMT),IWR(NRESMT),EL(NRESMT), 14284000 + 1 EU(NRESMT),NAME(NMAT),NREC3(5,NMAT),A(MA),EMAXR(NRESMT) 14285000 +C 14286000 +C COMMONS: 14287000 + COMMON/FILES/NT(4,99) 14288000 + EQUIVALENCE (NO,NT(1,6)),(NP,NT(1,11)) 14289000 + COMMON/INDX1/AINDX1(40,200) 14290000 + COMMON/DIM/M1,M2,M3,IND 14291000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 14292000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 14293000 +C 14294000 +C FILE INPUT 14295000 + NTI=NT(1,NTIN) 14296000 + CALL REW(NTIN) 14297000 +C 14298000 +C LETTURA RECORD 1 E RECORD 2 14299000 + N1=2*NRESMT 14300000 + READ(NTI,END=555) (NAMER(J),J=1,N1) 14301000 + READ(NTI) (NISO(J),J=1,NRESMT),(IWR(J),J=1,NRESMT), 14302000 + 1(EL(J),J=1,NRESMT),(EU(J),J=1,NRESMT) 14303000 + NT(4,NTIN)=NT(4,NTIN)+2 14304000 + WRITE(NP,1000) NTI,(NAMER(2*J-1),NAMER(2*J),NISO(J),IWR(J), 14305000 + 2 EL(J),EU(J),EMAXR(J),J=1,NRESMT) 14306000 + 1000 FORMAT(' RESOLVED RESONANCE FILE MCC2F4 READ ON UNIT:',I5/ 14307000 + 1 (1X,2A4,' NISO:',I4,' IWR:',I4,' EL:',E12.5,' EU:',E12.5, 14308000 + 2 ' EMAXR:',E12.5)) 14309000 + DO 10 IM=1,NRESMT 14310000 + IW=IWR(IM) 14311000 + ELL=EL(IM) 14312000 + EUU=EU(IM) 14313000 + NIS=NISO(IM) 14314000 + L1=1 14315000 +C ABUN 14316000 + L2=NIS+L1 14317000 +C NRGYS 14318000 + L3=L2+NIS-1 14319000 +C 14320000 + IF(MA.LT.L3) CALL ERR(8HP4MCF4 ,39) 14321000 + READ(NTI) (A(J),J=L1,L3) 14322000 + NT(4,NTIN)=NT(4,NTIN)+1 14323000 +C 14324000 + DO 20 IS=1,NIS 14325000 + ABU=A(L1+IS-1) 14326000 + NRGY=NAREAL(A(L2+IS-1)) 14327000 + NRGY2=NRGY*2 14328000 +C 14329000 +C NUMERO DI PARAMETRI 14330000 + NRCF=8 14331000 + IF(IW.EQ.2) NRCF=10 14332000 + IF(IW.EQ.3) NRCF=16 14333000 +C 14334000 +C NUMERO RECORDS (I PARAMETRI 5 E 6 SONO IN UN SOLO RECORD PER BW) 14335000 + NREC=7 14336000 + IF(IW.EQ.2) NREC=10 14337000 + IF(IW.EQ.3) NREC=15 14338000 +C 14339000 + DO 30 IR=1,NREC 14340000 + 30 READ(NTI) 14341000 +C 14342000 +C 14343000 +C IDENTIFICAZIONE NUMERO NUCLIDE IN F1 : =I 14344000 + I=IDENT8(NMAT,NAMER(IM*2-1),NAME) 14345000 +C RIEMPIE INDICE 14346000 + IND=IND+1 14347000 + IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1) 14348000 + CALL EMPIN(MIND11,AINDX1(1,IND),FLOAT(NREC3(3,I)),-4.,0.,0., 14349000 + 1NREC3(1,I),NAMER(IM*2-1),NAMER(IM*2),NAMER(IM*2-1),NAMER(IM*2), 14350000 + 2 0.,4.,0.,0.,FLOAT(NTI),FLOAT(NTIN),FLOAT(NT(4,NTIN)),FLOAT( 14351000 + 3 NREC),FLOAT(NRGY),FLOAT(NRCF),FLOAT(NIS),FLOAT(IW),EMAXR(IM), 14352000 + 4 FLOAT(IW),0.,0.,ABU,0.,0.,0.,0.,0.,ELL,EUU, 14353000 + 5 FLOAT(IS),0.,0.,0.,0.,0.,0.) 14354000 + NT(4,NTIN)=NT(4,NTIN)+NREC 14355000 +C FINE LOOPS............................................. 14356000 + 20 CONTINUE 14357000 + 10 CONTINUE 14358000 + RETURN 14359000 + 555 WRITE(NP,9555) NTI 14360000 + WRITE(NO,9555) NTI 14361000 + 9555 FORMAT(' !!! WARNING !! NO FILE MCC2F4 TO BE UPDATED FOUND ON' 14362000 + 1 ,' UNIT:',I4) 14363000 + RETURN 14364000 + END 14365000 + SUBROUTINE P4MCF5(NTIN,NTOUT,NMAT,NGROUP, 14366000 + 1 ETOP,DELTAU,NOM,NREC3,MA,A) 14367000 +C **************************************************************** 14368000 +C 14369000 +C FILE MCC2F5 OF MC2-II 14370000 +C 14371000 +C SOLO UNA ANELASTICA VIENE PRODOTTA, IL RESTO NON VIENE 14372000 +C REALMENTE SMONTATO MA SE NE FA SOLO L'INDICE 14373000 +C 14374000 +C **************************************************************** 14375000 +C 14376000 + DIMENSION NOM(NMAT),NREC3(5,NMAT),A(MA) 14377000 + DIMENSION NFLG(10),ANMT(10) 14378000 + DATA ANMT/0.,2.,18.,102.,103.,104.,105.,106.,107.,1./ 14379000 +C 14380000 +C COMMONS: 14381000 + COMMON/FILES/NT(4,99) 14382000 + EQUIVALENCE (NO,NT(1,6)),(NP,NT(1,11)) 14383000 + COMMON/INDX1/AINDX1(40,200) 14384000 + COMMON/DIM/M1,M2,M3,IND 14385000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 14386000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 14387000 +C 14388000 +C 14389000 + LTOT=NGROUP+5 14390000 + NGR2=LTOT+NGROUP-1 14391000 +C FILE INPUT 14392000 + NTI=NT(1,NTIN) 14393000 + CALL REW(NTIN) 14394000 +C FILE DI OUTPUT 14395000 + NTO=NT(1,NTOUT) 14396000 + CALL POSL(NTOUT) 14397000 + IF(MA.LT.NGROUP+LTOT) CALL ERR(8HP4MCF5 ,0) 14398000 + WRITE(NP,1000) NTI 14399000 + 1000 FORMAT(' SMOOTH CROSS SECTION FILE MCC2F5 READ ON UNIT:',I5) 14400000 + DO 10 IM=1,NMAT 14401000 + CALL RIEMP(0,NGROUP,A(LTOT)) 14402000 + READ(NTI,END=555) NOM1,NOM2 14403000 + READ(NTI) NFLG,A0,A1,A2,A3 14404000 + NT(4,NTIN)=NT(4,NTIN)+2 14405000 +C 14406000 + IF(A0.EQ.0.AND.A1.EQ.0..AND.A2.EQ.0..AND.A3.EQ.0.) GO TO 100 14407000 + IND=IND+1 14408000 + IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1) 14409000 + CALL EMPIN(MIND11,AINDX1(1,IND),FLOAT(NREC3(3,IM)),-5.,18.,0., 14410000 + 1NREC3(1,IM),NOM(IM*2-1),NOM(IM*2),NOM1,NOM2,0.,5.,2.,11. 14411000 + 2 ,0.,0.,0.,0.,0.,0.,FLOAT(NGROUP),ETOP,DELTAU,0.,0., 14412000 + 3 5.,0.,1.,0.,0.,0.,0.,0.,0.,A0,A1,A2,A3,0.,0.,0.) 14413000 +C 14414000 + 100 DO 20 IR=2,10 14415000 + NFL=NFLG(IR) 14416000 + IF(NFL.LE.0) GO TO 20 14417000 + READ(NTI) (A(J),J=1,NFL) 14418000 + WRITE(NP,2000) NOM1,NOM2,ANMT(IR),NFL 14419000 + 2000 FORMAT(1X,2A4,' MT=',F4.0,' READ FROM GROUP 1 TO GROUP:',I5) 14420000 + IND=IND+1 14421000 + IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1) 14422000 + CALL EMPIN(MIND11,AINDX1(1,IND),FLOAT(NREC3(3,IM)),-5.,ANMT(IR), 14423000 + 1 0.,NREC3(1,IM),NOM(IM*2-1),NOM(IM*2),NOM1,NOM2,0.,5.,3.,0., 14424000 + 2 FLOAT(NTI),FLOAT(NTIN),FLOAT(NT(4,NTIN)),1.,0.,0., 14425000 + 3 FLOAT(NGROUP),ETOP,DELTAU,FLOAT(IR-1),FLOAT(NFL),1.,0.,0.,1., 14426000 + 4 0.,0.,0., 0.,0.,0., 0.,0.,0., 0.,0.,0.) 14427000 + NT(4,NTIN)=NT(4,NTIN)+1 14428000 +C 14429000 + IF(IR.EQ.10) GO TO 200 14430000 + DO 30 I=1,NFL 14431000 + 30 A(LTOT+I-1)=A(LTOT+I-1)+A(I) 14432000 + GO TO 20 14433000 +C FA UNA NELASTICA , DALLA TOTAL MENO TUTTE LE SUE COMPONENTI, DAT14434000 +C CHE P3 RICREALA TOTAL PER SOMMA ( COSI QUESTA ANELASTICA VIENE A14435000 +C CONTENERE TUTTO QUELLO CHE NON E' NELLE PRIME 7 REAZIONI) 14436000 + 200 DO 40 I=1,NFL 14437000 + 40 A(LTOT+I-1)=A(I)-A(LTOT+I-1) 14438000 + WRITE(NTO) (A(J),J=LTOT,NGR2) 14439000 + WRITE(NP,3000) NOM1,NOM2 14440000 + 3000 FORMAT(1X,2A4,' ANELASTIC CROSS SECTION GENERATED') 14441000 + IND=IND+1 14442000 + IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1) 14443000 + CALL EMPIN(MIND11,AINDX1(1,IND),FLOAT(NREC3(3,IM)),-5.,4.,0., 14444000 + 1 NREC3(1,IM),NOM(IM*2-1),NOM(IM*2),NOM1,NOM2,0.,5.,3.,0., 14445000 + 2 FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(3,NTOUT)),1.,0.,0., 14446000 + 3 FLOAT(NGROUP),ETOP,DELTAU,11.,FLOAT(NGROUP),1.,0.,0.,1., 14447000 + 4 0.,0.,0., 0.,0.,0., 0.,0.,0., 0.,0.,0.) 14448000 + NT(3,NTOUT)=NT(3,NTOUT)+1 14449000 + NT(4,NTOUT)=NT(3,NTOUT) 14450000 + 20 CONTINUE 14451000 + 10 CONTINUE 14452000 + RETURN 14453000 + 555 WRITE(NP,9555) NTI 14454000 + WRITE(NO,9555) NTI 14455000 + 9555 FORMAT(' !!! WARNING !! FILE MCC2F5 TO BE UPDATED INCOMPLETE,' 14456000 + 1 ,' UNIT:',I4) 14457000 + RETURN 14458000 + END 14459000 + SUBROUTINE P4MCF6(NTIN,NTOUT,NMAT,NGROUP, 14460000 + 1 ETOP,DELTAU,MMAT,NMAX,NOMI,NREC3,ANAME, 14461000 + 2 NINEL,N2NTH,NLEVLS,N2NLVS,MAX1,MAX2,MAX3,MAX4, 14462000 + 3 NSINK1,NSINK2,NUMREC,MAXREC,NRC1I,NRC1L,MA,A) 14463000 +C ************************************************************ 14464000 +C 14465000 +C FILE MCC2F6 : DISTRIBUZIONI ENERGETICHE REAZIONI DI 14466000 +C SCATTERING ANELASTICO ED N,2N 14467000 +C NRC1I : INIZIO DATI DI 1 NUCLIDE IN RECORD 1 DI F6 14468000 +C NRC1L : LUNGHEZZA DATI DI UN NUCLIDE IN RECORD 1 DI F6 14469000 +C 14470000 +C ************************************************************** 14471000 +C 14472000 + DIMENSION NOMI(NMAT),AR2(14),NREC3(5,NMAT) 14473000 + DIMENSION ANAME(MMAT),NINEL(MMAT),N2NTH(MMAT),NLEVLS(MMAT), 14474000 + 1 MAX1(MMAT),MAX2(MMAT),MAX3(MMAT),MAX4(MMAT),NSINK1(MMAT), 14475000 + 2 NSINK2(MMAT),NUMREC(NMAX) 14476000 + DIMENSION A(MA),NRC1I(MMAT),NRC1L(MMAT),N2NLVS(MMAT) 14477000 +C 14478000 +C 14479000 +C COMMONS: 14480000 + COMMON /OPZIO/OPZ(4,8,10) 14481000 + EQUIVALENCE (OPZ(4,6,1),STMP),(NT(1,6),NO),(NT(1,11),NP) 14482000 + COMMON/FILES/NT(4,99) 14483000 + COMMON/INDX1/AINDX1(40,200) 14484000 + COMMON/DIM/M1,M2,M3,IND 14485000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 14486000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 14487000 +C 14488000 +C FILE INPUT 14489000 + NTI=NT(1,NTIN) 14490000 + CALL REW(NTIN) 14491000 +C FILE DI OUTPUT 14492000 + NTO=NT(1,NTOUT) 14493000 + CALL POSL(NTOUT) 14494000 + WRITE(NP,1000) NTI 14495000 + 1000 FORMAT(' ENERGY DISTRIBUTION FILE MCC2F6 READ FROM UNIT:',I5) 14496000 +C LOOP SU MATERIALI ......................................... 14497000 +C CALCOLA PER OGNI MATERIALE LE DIMENSIONI DEL RECORD 1,2,3 14498000 +C CALCOLA POSIZIONE DEI DATI DEI VARI NUCLIDI NEL RECORD 1 14499000 + NRC1I(1)=1 14500000 + NRC1L(1)=NLEVLS(1)+MAX1(1)+N2NLVS(1)+NSINK1(1)+NSINK2(1) 14501000 + IF(MMAT.LT.2) GO TO 55 14502000 + DO 5 I=2,MMAT 14503000 + NRC1L(I)=NLEVLS(I)+MAX1(I)+N2NLVS(I)+NSINK1(I)+NSINK2(I) 14504000 + NRC1I(I)=NRC1I(I-1)+NRC1L(I-1) 14505000 + 5 CONTINUE 14506000 + 55 NRC1=NRC1I(MMAT)+NRC1L(MMAT) -1 14507000 + IF(NRC1+MAXREC+1.GT.MA) CALL ERR(8HP4MCF6 ,0) 14508000 + READ(NTI,END=555) (A(J),J=1,NRC1) 14509000 + NT(4,NTIN)=NT(4,NTIN)+1 14510000 + LIMIT=NRC1 +1 14511000 +C IL RECORD 1 LO TENGO IN MEMORIA CON TUTTI I MATERIALI 14512000 +C LOOP SUI NUCLIDI ( LETTURA DI UN NUCLIDE ) ............... 14513000 + DO 10 IM=1,MMAT 14514000 + NUMREM=2 14515000 + MAXREM=0 14516000 +C LETTURA DI 1 MATERALE 14517000 +C RICERCA DEL MATERIALE : I=POSIZ DEL MAT IN F1 14518000 + I=IDENT8(NMAT,ANAME(IM*2-1),NOMI) 14519000 +C LEGGE TUTTO FINO AL MATERIALE IN QUESTIONE 14520000 +C POSIZIONE AD INIZIO LOOP SUI GRUPPI 14521000 + CALL REW(NTIN) 14522000 + READ(NTI) 14523000 + NT(4,NTIN)=NT(4,NTIN)+1 14524000 +C SCRIVE RECORD DEL MATERIALE (RECORD 5 DI MCC2F1) 14525000 + WRITE(NTO) ANAME(IM*2-1),ANAME(IM*2),NINEL(IM),N2NTH(IM), 14526000 + 1 NLEVLS(IM),N2NLVS(IM), 14527000 + 1 MAX1(IM),MAX2(IM),MAX3(IM),MAX4(IM),NSINK1(IM),NSINK2(IM), 14528000 + 2 NUMREC,MAXREC 14529000 +C SCRIVE RECORD 1 DI F6 14530000 + N1=NRC1I(IM) 14531000 + N2=N1+NRC1L(IM)-1 14532000 + WRITE(NTO) NRC1L(IM),(A(J),J=N1,N2) 14533000 + IF(MAXREM.LT.NRC1L(IM)) MAXREM=NRC1L(IM) 14534000 + NT3OU=2 14535000 + WRITE(NP,9000) ANAME(IM*2-1),ANAME(IM*2),NINEL(IM),N2NTH(IM), 14536000 + 1 NLEVLS(IM),N2NLVS(IM),MAX1(IM),MAX3(IM),MAX2(IM),MAX4(IM) 14537000 + 9000 FORMAT(1X,2A4,' N2N,ANEL GROUPS:',I4,I5,' LEVELS:',2I3, 14538000 + 1 ' EVAP.SPEC.:',2I3,' TAB.:',2I2) 14539000 + IF(STMP.GT.10.) 14540000 + 1WRITE(NO,1100) ANAME(IM*2-1),ANAME(IM*2),NINEL(IM),N2NTH(IM), 14541000 + 2 NLEVLS(IM),N2NLVS(IM), 14542000 + 3 MAX1(IM),MAX2(IM),MAX3(IM),MAX4(IM),NSINK1(IM),NSINK2(IM), 14543000 + 4 MAXREC,NUMREC 14544000 + 1100 FORMAT(1X,2A4,' PARAMETERS: NINEL, N2NTH,NLELVS,N2NLVS, MAX1,' 14545000 + 1,'MAX2 MAX3 , MAX4 ,NSINK1,NSINK2, MAXREC, NUMREC:'/(20X,12I7)) 14546000 + IF(STMP.GT.100.) WRITE(NO,2000) (A(J),J=N1,N2) 14547000 + 2000 FORMAT(' RECORD 1 READ:'/(1X,10E12.5)) 14548000 + DO 15 IG=1,NMAX 14549000 +C SE IL GRUPPO E' SOTTO SOGLIA NON VIENE SCRITTO E NON VIENE LETTO 14550000 +C ( NON C'E' PIU NULLA SU MCC2F6 PER IL MATERIALE ) MCC2F6 VIENE 14551000 +C POI RIAVVOLTO PER LEGGERCI IL NUCLIDE SUCCESSIVO 14552000 +C 14553000 + IF(NINEL(IM).LT.IG.AND.N2NTH(IM).LT.IG) GOTO 160 14554000 +C 14555000 +C RECORD 2 14556000 +C 14557000 +C SUMJ LEGGE IL RECORD 2 DEL GRUPPO. PER IL NUCLIDE IN QUESTIONE 14558000 +C CALCOLA I VALORI DEI PARAMETRI SIGIN,SIGN2N,...N2NLV 14559000 +C CALCOLA IL NUMERO DI PAROLE DEL RECORD 3 E 4 14560000 +C 14561000 + CALL SUMJ(IG,IM,NTI,NR,NWDS,NPDS3,NPDS4,NWDS3,NWDS4,NFLAG4, 14562000 + 1 NFLAG3, 14563000 + 1 A(LIMIT),MMAT,SIGIN,SIGN2N,NINEVP, 14564000 + 2 NINTAB,N2NEVP,N2NTAB,NSTRT1,NEND1,NSTRT2,NEND2,KT1,KT2,NLVS, 14565000 + 3 N2NLV,NINEL,N2NTH,NLEVLS,N2NLVS,MAX1,MAX2,MAX3,MAX4) 14566000 + NT(4,NTIN)=NT(4,NTIN)+1 14567000 +C 14568000 +C IN A(NWDS) C'E' IL RECORD 2 ED ANCHE IN SIGIN,SIGN2N ECC. 14569000 +C 14570000 +C NR : PAROLE DEL RECORD 2 PRECEDENTI IL NUCLIDE 14571000 +C NWDS: PAROLE DEL RECORD 2 DEL NUCLIDE 14572000 +C NWDS3: PAROLE RECORD 3 DEL MAT 14573000 +C NPDS3: PAROLE DEL RECORD 3 PRECEDENTI IL MAT 14574000 +C NWDS4,NPDS4: IDEM PER RECORD 4, NR,NWDS: IDEM PER RECORD 2 14575000 +C NFLAG4: SEGNALA SE ESISTE UN RECORD 4 NEL GRUPPO, ANCHE SE 14576000 +C IL NUCLIDE E I NUCLIDI PRECEDENTI NON HANNO RECORD 4 14577000 +C NFLAG3 ANALOGAMENTE SEGNALA L'ESISTENZA DI UN RECORD 3 14578000 +C 14579000 +C 14580000 + N1=NR+LIMIT 14581000 + N2=N1+NWDS-1 14582000 + WRITE(NTO) NWDS,(A(J),J=N1,N2) 14583000 + NT3OU=NT3OU+1 14584000 + IF(STMP.LT.101) GO TO 101 14585000 + WRITE(NO,8887) SIGIN,SIGN2N,NINEVP,NINTAB,N2NEVP,N2NTAB, 14586000 + 1 NSTRT1,NEND1,NSTRT2,NEND2,KT1,KT2,NLVS,N2NLV 14587000 + 8887 FORMAT(' REC 2 :SIGIN,SIGN2N:',2E12.5/ 14588000 + 1' NINEVP,NINTAB,N2NEVP,N2NTAB,NSTRT1,NEND1,NSTRT2,NEND2,' 14589000 + 2,'KT1,KT2,NLVS,N2NLV'/1X,12I6) 14590000 +C IF(IG.LE.NINEL(IM).AND.IG.LE.N2NTH(IM)) GO TO 102 14591000 +C WRITE(NO,3000) (A(J),J=N1,N2) 14592000 +C3000 FORMAT(' RECORD 2 READ:',E12.5,12I5) 14593000 +C GOTO101 14594000 +C102 WRITE(NO,4000) (A(J),J=N1,N2) 14595000 +C4000 FORMAT(' RECORD 2 READ:',2E12.5,12I5) 14596000 + 101 CONTINUE 14597000 +C 14598000 +C RECORD 3 14599000 + N1=NPDS3+LIMIT 14600000 + N2=N1+NWDS3-1 14601000 + IF(NWDS3.LE.0) GO TO 105 14602000 + READ(NTI) (A(J),J=LIMIT,N2) 14603000 + NT(4,NTIN)=NT(4,NTIN)+1 14604000 + WRITE(NTO) NWDS3,(A(J),J=N1,N2) 14605000 + IF(NWDS3.GT.MAXREM) MAXREM=NWDS3 14606000 + NT3OU=NT3OU+1 14607000 + IF(STMP.GT.200) WRITE(NO,5000) (A(J),J=N1,N2) 14608000 + 5000 FORMAT(' RECORD 3 READ:'/(1X,10E12.5)) 14609000 + GO TO 106 14610000 + 105 WRITE(NTO) NWDS3,DUM,DUM,DUM 14611000 + NT3OU=NT3OU+1 14612000 +C IL RECORD 3 VA SCRITTO IN TUTTI I MODI,COSI' FA P2 14613000 +C P3 LEGGE SEMPRE UN RECORD 3 ANCHE SE VUOTO. 14614000 +C E' PIU' SEMPLICE LEGGERE UN RECORD VUOTO CHE 14615000 +C ESAMINARE IN P3 SE ESISTE O NO 14616000 +C 14617000 +C SUL FILE DI INPUT, SE C'E', 14618000 +C IL RECORD 3 VA SALTATO IN TUTTI I MODI ANCHE SE IL NUCIDE IM 14619000 +C O NUCLIDI PRECEDENTI NON CI SONO 14620000 + IF(NFLAG3.LE.0.AND.NPDS3.LE.0) GO TO 106 14621000 + READ(NTI) DUM 14622000 + NT(4,NTIN)=NT(4,NTIN)+1 14623000 +C 14624000 +C RECORD 4 14625000 + 106 N1=NPDS4+LIMIT 14626000 + N2=N1+NWDS4-1 14627000 + IF(NWDS4.LE.0) GO TO 150 14628000 + READ(NTI) (A(J),J=LIMIT,N2) 14629000 + NT(4,NTIN)=NT(4,NTIN)+1 14630000 + WRITE(NTO) NWDS4,(A(J),J=N1,N2) 14631000 + NUMREM=3 14632000 + IF(NWDS4.GT.MAXREM) MAXREM=NWDS4 14633000 + NT3OU=NT3OU+1 14634000 + IF(STMP.GT.300) WRITE(NO,6000) (A(J),J=N1,N2) 14635000 + 6000 FORMAT(' RECORD 4 READ:'/(1X,10E12.5)) 14636000 + GOTO 15 14637000 +C 14638000 + 150 CONTINUE 14639000 +C SALTA IL RECORD 4 DEL GRUPPO SE ESISTE E NON E' STATO LETTO 14640000 + IF(NFLAG4.LE.0.AND.NPDS4.LE.0) GO TO 15 14641000 + READ(NTI) DUM 14642000 + NT(4,NTIN)=NT(4,NTIN)+1 14643000 +C 14644000 + 15 CONTINUE 14645000 +C FINE LOOP SUI GRUPPI .................................. 14646000 + 160 NMAXIM=MAX0(NINEL(IM),N2NTH(IM)) 14647000 +C RIEMPIE INDICE 14648000 + IND=IND+1 14649000 + IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1) 14650000 + CALL EMPIN(MIND11,AINDX1(1,IND),FLOAT(NREC3(3,I)),-6.,0.,0., 14651000 + 1 NREC3(1,I),NOMI(2*I-1),NOMI(2*I),ANAME(2*IM-1),ANAME(2*IM),0., 14652000 + 2 6.,0.,0.,FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(3,NTOUT)), 14653000 + 3 FLOAT(NT3OU),FLOAT(MAXREM),0.,FLOAT(NGROUP),ETOP,DELTAU,0., 14654000 + 4 FLOAT(NINEL(IM)),FLOAT(N2NTH(IM)),FLOAT(NLEVLS(IM)), 14655000 + 4 FLOAT(N2NLVS(IM)),FLOAT(MAX1(IM)),FLOAT(MAX2(IM)), 14656000 + 4 FLOAT(MAX3(IM)),FLOAT(MAX4(IM)),FLOAT(NSINK1(IM)), 14657000 + 5 FLOAT(NSINK2(IM)),FLOAT(NUMREM),FLOAT(MAXREM),FLOAT(NMAXIM), 14658000 + 6 0.,0.,0.,0.) 14659000 +C 14660000 + NT(3,NTOUT)=NT(3,NTOUT)+NT3OU 14661000 + NT(4,NTOUT)=NT(3,NTOUT) 14662000 + 10 CONTINUE 14663000 +C FINE LOP SUI NUCLIDI ......................................... 14664000 + RETURN 14665000 + 555 WRITE(NP,9555) NTI 14666000 + WRITE(NO,9555) NTI 14667000 + 9555 FORMAT(' !!! WARNING !! FILE MCC2F6 TO BE UPDATED NOT FOUND!' 14668000 + 1 ,' UNIT:',I4) 14669000 + RETURN 14670000 + END 14671000 + SUBROUTINE SUMJ(IG,IM,NTI,NR,NWDS,NPDS3,NPDS4,NWDS3,NWDS4,NFLAG4, 14672000 + 1 NFLAG3, 14673000 + 1 NA,MMAT,SIGIN,SIGN2N,NINEVP,NINTAB,N2NEVP, 14674000 + 1 N2NTAB,NSTRT1,NEND1,NSTRT2,NEND2,KT1,KT2,NLVS,N2NLV,NINEL,N2NTH, 14675000 + 2 NLEVLS,N2NLVS,MAX1,MAX2,MAX3,MAX4) 14676000 +C *************************************************************** 14677000 +C LEGGE IL RECORD 2 DI F6 CALCOLANDOSI QUANTO E' LUNGA LA PARTE 14678000 +C PRIMA DEL MATERIALE DA LEGGERE. IL RECORD E' MESSO IN A(NWDS) 14679000 +C E NEI SIGIN,SIGN2N ECC. 14680000 +C NWDS3,NWDS4,NPDS3,NPDS4: DATI DI LUNGHEZZA RECORD 3 E 4 14681000 +C *****************************************************************14682000 +C 14683000 + DIMENSION NINEL(MMAT),N2NTH(MMAT),NLEVLS(MMAT),N2NLVS(MMAT) 14684000 + DIMENSION MAX1(MMAT),MAX2(MMAT),MAX3(MMAT),MAX4(MMAT) 14685000 + DIMENSION NA(NWDS) 14686000 + INTEGER SIGIN,SIGN2N 14687000 +C 14688000 + NR=0 14689000 + IM1=IM-1 14690000 + IF(IM1.LE.0) GO TO 500 14691000 +C CALCOLO PAROLE PRECEDENTI IL PRIMO NUCLIDE NEL RECORD 2 14692000 + DO 20 IMM=1,IM1 14693000 + IF(NINEL(IMM).LT.IG) GO TO 300 14694000 + NR=NR+1 14695000 + IF(MAX1(IMM).GT.0) NR=NR+1 14696000 + IF(MAX2(IMM).GT.0) NR=NR+4 14697000 + IF(NLEVLS(IMM).GT.0) NR=NR+1 14698000 + 300 IF(N2NTH(IMM).LT.IG) GO TO 400 14699000 + NR=NR+1 14700000 + IF(MAX3(IMM).GT.0) NR=NR+1 14701000 + IF(MAX4(IMM).GT.0) NR=NR+4 14702000 + IF(N2NLVS(IMM).GT.0) NR=NR+1 14703000 + 400 CONTINUE 14704000 + 20 CONTINUE 14705000 + 500 CONTINUE 14706000 +C FINE DEL CALCOLO DEI PRECEDENTI 14707000 +C CALCOLO DELLE PAROLE DEL RECORD 2 DEL NUCLIDE 14708000 + NWDS=0 14709000 + IF(NINEL(IM).LT.IG) GO TO 600 14710000 + NWDS=NWDS+1 14711000 + IF(MAX1(IM).GT.0) NWDS=NWDS+1 14712000 + IF(MAX2(IM).GT.0) NWDS=NWDS+4 14713000 + IF(NLEVLS(IM).GT.0) NWDS=NWDS+1 14714000 + 600 IF(N2NTH(IM).LT.IG) GO TO 700 14715000 + NWDS=NWDS+1 14716000 + IF(MAX3(IM).GT.0) NWDS=NWDS+1 14717000 + IF(MAX4(IM).GT.0) NWDS=NWDS+4 14718000 + IF(N2NLVS(IM).GT.0) NWDS=NWDS+1 14719000 + 700 CONTINUE 14720000 +C CALCOLO PAROLE SUCCESSIVE AL NUCLIDE NEL RECORD 2 14721000 + NRDOPO=0 14722000 + IM2=IM+1 14723000 + IF(IM2.GT.MMAT) GO TO 750 14724000 + DO 25 IMM=IM2,MMAT 14725000 + IF(NINEL(IMM).LT.IG) GO TO 350 14726000 + NRDOPO=NRDOPO+1 14727000 + IF(MAX1(IMM).GT.0) NRDOPO=NRDOPO+1 14728000 + IF(MAX2(IMM).GT.0) NRDOPO=NRDOPO+4 14729000 + IF(NLEVLS(IMM).GT.0) NRDOPO=NRDOPO+1 14730000 + 350 IF(N2NTH(IMM).LT.IG) GO TO 450 14731000 + NRDOPO=NRDOPO+1 14732000 + IF(MAX3(IMM).GT.0) NRDOPO=NRDOPO+1 14733000 + IF(MAX4(IMM).GT.0) NRDOPO=NRDOPO+4 14734000 + IF(N2NLVS(IMM).GT.0) NRDOPO=NRDOPO+1 14735000 + 450 CONTINUE 14736000 + 25 CONTINUE 14737000 + 750 CONTINUE 14738000 + N1=NR+NWDS+NRDOPO 14739000 + IF(N1.LE.0) GO TO 800 14740000 + READ(NTI) (NA(J),J=1,N1) 14741000 + 800 CONTINUE 14742000 +C 14743000 +C CALCOLO DELLE PAROLE PRECEDENTI IL NUCLIDE NEI RECORD 3 E 4 14744000 + NPDS3=0 14745000 + NPDS4=0 14746000 + J=1 14747000 + IF(NR.LE.0) GO TO 850 14748000 + DO 85 IMM=1,IM1 14749000 +C CERCA NINEVP DEL NUCLIDE IMM 14750000 + IF(NINEL(IMM).GE.IG) J=J+1 14751000 + IF(N2NTH(IMM).GE.IG) J=J+1 14752000 + IF(NINEL(IMM).LT.IG.OR.MAX1(IMM).LE.0) GO TO 852 14753000 + NPDS3=NPDS3+NA(J)*2 14754000 + J=J+1 14755000 +C CERCA N2NEVP DEL NUCLIDE IMM 14756000 + 852 IF(NINEL(IMM).GE.IG.AND.MAX2(IMM).GT.0) J=J+1 14757000 + IF(N2NTH(IMM).LT.IG.OR.MAX3(IMM).LE.0) GO TO 854 14758000 + NPDS3=NPDS3+NA(J)*2 14759000 + J=J+1 14760000 +C CERCA NSTRT1,NEND1 DEL NUCLIDE IMM 14761000 + 854 IF(N2NTH(IMM).GE.IG.AND.MAX4(IMM).GT.0) J=J+1 14762000 + IF(NINEL(IMM).LT.IG.OR.MAX2(IMM).LE.0) GO TO 856 14763000 + NPDS4=NPDS4+NA(J+1)-NA(J)+1 14764000 + J=J+2 14765000 +C CERCA NSTRT2,NEND2 DEL NUCLIDE IMM 14766000 + 856 IF(N2NTH(IMM).LT.IG.OR.MAX4(IMM).LE.0) GO TO 857 14767000 + NPDS4=NPDS4+NA(J+1)-NA(J)+1 14768000 + J=J+2 14769000 +C CERCA NLVS DEL NUCLIDE IMM 14770000 + 857 IF(NINEL(IMM).GE.IG.AND.MAX2(IMM).GT.0) J=J+1 14771000 + IF(N2NTH(IMM).GE.IG.AND.MAX4(IMM).GT.0) J=J+1 14772000 + IF(NINEL(IMM).LT.IG.OR.NLEVLS(IMM).LE.0) GO TO860 14773000 + NPDS3=NPDS3+NA(J)*2 14774000 + J=J+1 14775000 +C CERCA N2NLV DEL NUCLIDE IN QUESTIONE 14776000 + 860 IF(N2NTH(IMM).LT.IG.OR.N2NLVS(IMM).LE.0) GO TO 85 14777000 + NPDS3=NPDS3+NA(J) 14778000 + J=J+1 14779000 + 85 CONTINUE 14780000 + 850 CONTINUE 14781000 +C 14782000 +C FINE CALCOLO NUMERO PAROLE PRECEDENTI IL NUCLIDE NEL REC3,414783000 +C 14784000 +C QUI ASSEGNA GLI SCALARI 14785000 + SIGIN=0 14786000 + SIGN2N=0 14787000 + NINEVP=0 14788000 + NINTAB=0 14789000 + N2NEVP=0 14790000 + N2NTAB=0 14791000 + NSTRT1=0 14792000 + NEND1=0 14793000 + NSTRT2=0 14794000 + NEND2=0 14795000 + KT1=0 14796000 + KT2=0 14797000 + NLVS=0 14798000 + N2NLV=0 14799000 +C 14800000 + IF(J.NE.NR+1) CALL ERR(8HSUMJ ,900) 14801000 + IF(NINEL(IM).LT.IG) GO TO 900 14802000 + SIGIN=NA(J) 14803000 + J=J+1 14804000 + 900 IF(N2NTH(IM).LT.IG) GO TO 910 14805000 + SIGN2N=NA(J) 14806000 + J=J+1 14807000 + 910 IF(NINEL(IM).LT.IG.OR.MAX1(IM).LE.0) GO TO 920 14808000 + NINEVP=NA(J) 14809000 + J=J+1 14810000 + 920 IF(NINEL(IM).LT.IG.OR.MAX2(IM).LE.0) GO TO 930 14811000 + NINTAB=NA(J) 14812000 + J=J+1 14813000 + 930 IF(N2NTH(IM).LT.IG.OR.MAX3(IM).LE.0) GO TO 940 14814000 + N2NEVP=NA(J) 14815000 + J=J+1 14816000 + 940 IF(N2NTH(IM).LT.IG.OR.MAX4(IM).LE.0) GO TO 950 14817000 + N2NTAB=NA(J) 14818000 + J=J+1 14819000 + 950 IF(NINEL(IM).LT.IG.OR.MAX2(IM).LE.0) GO TO 960 14820000 + NSTRT1=NA(J) 14821000 + J=J+1 14822000 + NEND1=NA(J) 14823000 + J=J+1 14824000 + 960 IF(N2NTH(IM).LT.IG.OR.MAX4(IM).LE.0) GO TO 970 14825000 + NSTRT2=NA(J) 14826000 + J=J+1 14827000 + NEND2=NA(J) 14828000 + J=J+1 14829000 + 970 IF(NINEL(IM).LT.IG.OR.MAX2(IM).LE.0) GO TO 980 14830000 + KT1=NA(J) 14831000 + J=J+1 14832000 + 980 IF(N2NTH(IM).LT.IG.OR.MAX4(IM).LE.0) GO TO 990 14833000 + KT2=NA(J) 14834000 + J=J+1 14835000 + 990 IF(NINEL(IM).LT.IG.OR.NLEVLS(IM).LE.0) GO TO 995 14836000 + NLVS=NA(J) 14837000 + J=J+1 14838000 + 995 IF(N2NTH(IM).LT.IG.OR.N2NLVS(IM).LE.0) GO TO 996 14839000 + N2NLV=NA(J) 14840000 + J=J+1 14841000 +C 14842000 + 996 NWDS3=2*(N2NEVP+NINEVP+NLVS)+N2NLV 14843000 + NWDS4=0 14844000 + IF(NINTAB.GT.0) NWDS4=NWDS4+(NEND1-NSTRT1+1) 14845000 + IF(N2NTAB.GT.0) NWDS4=NWDS4+(NEND2-NSTRT2+1) 14846000 +C 14847000 +C IL CONTROLLO SU NINTAB,N2NTAB NON SEMPRE SI TROVA. IN MC214848000 +C NON ESISTE. PER CUI DEVE ESSERE NEND1-NSTRT1=-1 14849000 +C 14850000 + NFLAG3=0 14851000 + NFLAG4=0 14852000 +C SOLO NEL CASO IL RECORD 4 SIA COSTITUITO DA DATI DI NUCLIDI 14853000 +C SUCCESSIVI AL IMM ;LA SUA LETTURA VERREBBE SALTATA SE NON SI 14854000 +C ATTIVA NFLAG4 14855000 +C IDEM PER RECORD 3 CON NFLAG3 14856000 + IF(IM2.GT.MMAT.OR.NRDOPO.LE.0) RETURN 14857000 + DO 95 IMM=IM2,MMAT 14858000 +C CERCA NINEVP DEL NUCLIDE IMM 14859000 + IF(NINEL(IMM).GE.IG) J=J+1 14860000 + IF(N2NTH(IMM).GE.IG) J=J+1 14861000 + IF(NINEL(IMM).LT.IG.OR.MAX1(IMM).LE.0) GO TO 952 14862000 + NFLAG3=NFLAG3+NA(J)*2 14863000 + J=J+1 14864000 +C CERCA N2NEVP DEL NUCLIDE IMM 14865000 + 952 IF(NINEL(IMM).GE.IG.AND.MAX2(IMM).GT.0) J=J+1 14866000 + IF(N2NTH(IMM).LT.IG.OR.MAX3(IMM).LE.0) GO TO 954 14867000 + NFLAG3=NFLAG3+NA(J)*2 14868000 + J=J+1 14869000 +C CERCA NSTRT1,NEND1 DEL NUCLIDE IMM 14870000 + 954 IF(N2NTH(IMM).GE.IG.AND.MAX4(IMM).GT.0) J=J+1 14871000 + IF(NINEL(IMM).LT.IG.OR.MAX2(IMM).LE.0) GO TO 956 14872000 + NFLAG4=NFLAG4+NA(J+1)-NA(J)+1 14873000 + J=J+2 14874000 +C CERCA NSTRT2,NEND2 DEL NUCLIDE IMM 14875000 + 956 IF(N2NTH(IMM).LT.IG.OR.MAX4(IMM).LE.0) GO TO 957 14876000 + NFLAG4=NFLAG4+NA(J+1)-NA(J)+1 14877000 + J=J+2 14878000 +C CERCA NLVS DEL NUCLIDE IMM 14879000 + 957 IF(NINEL(IMM).GE.IG.AND.MAX2(IMM).GT.0) J=J+1 14880000 + IF(N2NTH(IMM).GE.IG.AND.MAX4(IMM).GT.0) J=J+1 14881000 + IF(NINEL(IMM).LT.IG.OR.NLEVLS(IMM).LE.0) GO TO 958 14882000 + NFLAG3=NFLAG3+NA(J)*2 14883000 + J=J+1 14884000 +C CERCA N2NLV DEL NUCLIDE IN QUESTIONE 14885000 + 958 IF(N2NTH(IMM).LT.IG.OR.N2NLVS(IMM).LE.0) GO TO 95 14886000 + NFLAG3=NFLAG3+NA(J) 14887000 + J=J+1 14888000 + 95 CONTINUE 14889000 + RETURN 14890000 + END 14891000 + SUBROUTINE P4MCF7(NTIN,NTOUT,NMAT,NGROUP,MSORS, 14892000 + 1ETOP,DELTAU,NOMI,NREC3,NAM,ICHI,NUMNU,KT,MA,A) 14893000 +C ************************************************************** 14894000 +C 14895000 +C READS FILE MCC2F7 OF MC2-II 14896000 +C 14897000 +C ********************************************************* 14898000 +C 14899000 + DIMENSION NAM(MSORS),ICHI(MSORS),NOMI(NMAT),NREC3(5,NMAT),A(MA) 14900000 + DIMENSION NUMNU(NMAT),KT(NMAT) 14901000 +C 14902000 +C COMMONS: 14903000 + COMMON/FILES/NT(4,99) 14904000 + COMMON/INDX1/AINDX1(40,200) 14905000 + COMMON/COMM/C,IC(6),AC(4) 14906000 + COMMON/DIM/M1,M2,M3,IND 14907000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 14908000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 14909000 + EQUIVALENCE (NO,NT(1,6)),(NP,NT(1,11)) 14910000 +C 14911000 +C FILE INPUT 14912000 + NTI=NT(1,NTIN) 14913000 + CALL REW(NTIN) 14914000 +C FILE DI OUTPUT 14915000 + NTO=NT(1,NTOUT) 14916000 + CALL POSL(NTOUT) 14917000 +C 14918000 + N1=2*MSORS 14919000 + READ(NTI,END=555) (NAM(J),J=1,N1) 14920000 + READ(NTI) (ICHI(J),J=1,MSORS) 14921000 + NT(4,NTIN)=NT(4,NTIN)+2 14922000 + WRITE(NP,1000) NTI,(NAM(J),J=1,N1) 14923000 + 1000 FORMAT(' SOURCE FILE READ FROM UNIT:',I5/(10X,' SOURCES:',10A4)) 14924000 + DO 10 IM=1,MSORS 14925000 + I=IDENT8(NMAT,NAM(IM*2-1),NOMI) 14926000 + ICH=ICHI(IM) 14927000 + N1=6*ICH 14928000 + READ(NTI) (A(J),J=1,N1) 14929000 + NT(4,NTIN)=NT(4,NTIN)+1 14930000 + WRITE(NTO) (A(J),J=1,N1) 14931000 + NT(3,NTOUT)=NT(3,NTOUT)+1 14932000 + IND=IND+1 14933000 + IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1) 14934000 + CALL EMPIN(MIND11,AINDX1(1,IND),FLOAT(NREC3(3,I)),-7.,18., 14935000 + 10.,NREC3(1,I),NOMI(2*I-1),NOMI(2*I),NAM(2*IM-1),NAM(2*IM), 14936000 + 2 0.,7.,1.,0.,FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(4,NTOUT)), 14937000 + 3 1.,FLOAT(ICH),0.,FLOAT(NGROUP),ETOP,DELTAU, 14938000 + 4 0.,0.,0.,0.,0.,0.,0.,0.,0.,0. ,0.,0.,0.,0.,0.,0.,0.,0.) 14939000 + NT(4,NTOUT)=NT(3,NTOUT) 14940000 + 10 CONTINUE 14941000 +C 14942000 +C SECONDA PARTE COL NU TABULATO (NON LO SMONTA,NE FA UN INDICE)14943000 +C 14944000 + READ(NTI) (NUMNU(J),J=1,NMAT),(KT(J),J=1,NMAT) 14945000 + ANTCON=NT(4,NTIN) 14946000 + NT(4,NTIN)=NT(4,NTIN)+1 14947000 + DO 20 IM=1,NMAT 14948000 + IF(NUMNU(IM).LE.1) GO TO 20 14949000 + ANTCON=ANTCON+1. 14950000 + ANUM=NUMNU(IM)*2 14951000 + IND=IND+1 14952000 + IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1) 14953000 + CALL EMPIN(MIND11,AINDX1(1,IND), 14954000 + 1 FLOAT(NREC3(3,IM)),-5.,18.,0.,NREC3(1,IM),NOMI(2*IM-1),NOMI(2*IM)14955000 + 2, NOMI(2*IM-1),NOMI(2*IM),0., 14956000 + 3 5.,2.,11.,FLOAT(NTI),FLOAT(NTIN),ANTCON,1.,ANUM, 14957000 + 4 FLOAT(NUMNU(IM)),FLOAT(NGROUP),ETOP,DELTAU, 14958000 + 5 0.,0.,5.,0.,2.,0.,FLOAT(KT(IM)),0., 14959000 + 6 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.) 14960000 +C 14961000 + 20 CONTINUE 14962000 + RETURN 14963000 + 555 WRITE(NP,9555) NTI 14964000 + WRITE(NO,9555) NTI 14965000 + 9555 FORMAT(' !!! WARNING !! FILE MCC2F7 TO BE UPDATED NOT FOUND!' 14966000 + 1 ,' UNIT:',I4) 14967000 + RETURN 14968000 + END 14969000 + SUBROUTINE P4MCF8(NTIN,NTOUT,NMAT,NGROUP,NPASS,NPL, 14970000 + 1IPTMAX,ETOP,DELTAU,MANY1,NOMI,NREC3, 14971000 + 2 LGTH,IR,IL,IPT,MA,A) 14972000 +C ********************************************************8 14973000 +C 14974000 +C READS FILE MCC2F8 : DISTRIBUZIONI ANGOLARI SCATT ELASTICO 14975000 +C 14976000 +C ************************************************************ 14977000 +C 14978000 + REAL*8 NOME 14979000 + DIMENSION NOMI(NMAT),NREC3(5,NMAT),A(MA),NOM11(2) 14980000 + DIMENSION LGTH(NMAT),IR(NMAT),IL(NMAT),IPT(NPASS,NMAT) 14981000 + EQUIVALENCE(NOME,NOM11(1)),(NT(1,6),NO),(NT(1,11),NP) 14982000 + EQUIVALENCE (STMP,OPZ(4,8,1)) 14983000 +C 14984000 +C 14985000 +C COMMONS: 14986000 + COMMON /OPZIO/OPZ(4,8,10) 14987000 + COMMON/FILES/NT(4,99) 14988000 + COMMON/INDX1/AINDX1(40,200) 14989000 + COMMON/DIM/M1,M2,M3,IND 14990000 + COMMON /DIMC/MMA,MINDX1,MINDX2,MMIX1,MMIX2,MOPZ1,MOPZ2,MOPZ3 14991000 + 1,MM,MN1X,MN2X,MJX,MMX,MNT1,MNT2,MIND11,MIND12 14992000 +C 14993000 +C FILE INPUT 14994000 + NTI=NT(1,NTIN) 14995000 + CALL REW(NTIN) 14996000 +C FILE DI OUTPUT 14997000 + NTO=NT(1,NTOUT) 14998000 + CALL POSL(NTOUT) 14999000 + READ(NTI,END=555) (LGTH(J),J=1,NMAT),(IR(J),J=1,NMAT), 15000000 + 1 (IL(J),J=1,NMAT),((IPT(J,JJ),J=1,NPASS),JJ=1,NMAT) 15001000 + NT(4,NTIN)=NT(4,NTIN)+1 15002000 + WRITE(NP,1000) NTI 15003000 + 1000 FORMAT(' ANGULAR DISTRIBUTION FILE MCC2F8 READ FROM UNIT:',I5) 15004000 +C .......................... LOOP SU ISOTOPI 15005000 + DO 10 IM=1,NMAT 15006000 + IRIM=IR(IM) 15007000 + LGTHIM=LGTH(IM) 15008000 + ILIM=IL(IM) 15009000 + IPTMXM=MAXX(NPASS,IPT(1,IM)) 15010000 +C ISOTOPO IN F1 POSTO = ISOTOPO IN F8 (LO CERCO LO STE15011000 + READ(NTI) NOME 15012000 + I=IDENT8(NMAT,NOME,NOMI) 15013000 + WRITE(NP,9010) NOME,I,LGTHIM,IRIM,ILIM 15014000 + 9010 FORMAT(1X,A8,' NUMBER:',I3,' LENGTH (LGTH):',I5, 15015000 + 1 ' INTERP. (IR):',I2,' BLOCKS (IL):',I4) 15016000 + AMASS=AREAL(NREC3(1,I)) 15017000 + Q=ALOG(((AMASS+1)/(AMASS-1))**2)/3. 15018000 + N2IR=2*IRIM 15019000 + IF(DELTAU.GE.Q) N3=N2IR+2*(54+IPTMXM*(NPL+6)+NPL) 15020000 + IF(DELTAU.LT.Q) N3=N2IR+2*(50+IPTMXM*(NPL+2)+NPL) 15021000 + IF(N3.GT.MA) CALL ERR(8HP4MCF8 ,0) 15022000 + READ(NTI) (A(J),J=1,N3) 15023000 + NT(4,NTIN)=NT(4,NTIN)+2 15024000 + WRITE(NTO) LGTHIM,IRIM,ILIM,(IPT(J,IM),J=1,NPASS) 15025000 + WRITE(NTO) NOME 15026000 + WRITE(NTO) (A(J),J=1,N3) 15027000 + WRITE(NO,1010) NOME 15028000 + 1010 FORMAT(1X,2A4) 15029000 + IF(STMP.LT.100) GO TO 101 15030000 + WRITE(NO,2000) LGTHIM,IRIM,ILIM,(IPT(J,IM),J=1,NPASS) 15031000 + 2000 FORMAT(' PARAMETERS: LGTH=',I5,' IR=',I5,' IL=',I5/ 15032000 + 1 (5X,' IPT=',20I5)) 15033000 + IF(STMP.LT.200) GO TO 101 15034000 + WRITE(NO,3000) (A(J),J=1,N3,2) 15035000 + 3000 FORMAT(' TLJ FACTORS DATA:'/(1X,10E12.5)) 15036000 + 101 CONTINUE 15037000 + NT3OU=3 15038000 +C 15039000 + DO 20 IP=1,ILIM 15040000 + N4=MANY1*IPT(IP,IM) 15041000 + IF(N4.GT.MA) CALL ERR(8HP4MCF8 ,0) 15042000 + READ(NTI) (A(J),J=1,N4) 15043000 + NT(4,NTIN)=NT(4,NTIN)+1 15044000 + WRITE(NTO) (A(J),J=1,N4) 15045000 + NT3OU=NT3OU+1 15046000 + IF(STMP.GT.300) WRITE(NO,4000) IP,IPT(IP,IM),(A(J),J=1,N4) 15047000 + 4000 FORMAT( ' LEGENDRE COEFFICIENTS: PASS:',I5,'ORDER:',I5/ 15048000 + 1 (1X,10E12.5)) 15049000 + 20 CONTINUE 15050000 + NT(3,NTOUT)=NT(3,NTOUT)+NT3OU 15051000 + IND=IND+1 15052000 + IF(IND.GT.MIND12) CALL SCARIN(4,MIND11,IND,AINDX1) 15053000 + CALL EMPIN(MIND11,AINDX1(1,IND),FLOAT(NREC3(3,IM)),-8.,2.,0., 15054000 + 1NREC3(1,I),NOMI(2*I-1),NOMI(2*I),NOM11(1),NOM11(2),0.,8.,3.,0., 15055000 + 2 FLOAT(NTO),FLOAT(NTOUT),FLOAT(NT(4,NTOUT)),FLOAT(NT3OU), 15056000 + 3 FLOAT(N3-N2IR),0.,FLOAT(NGROUP),ETOP,DELTAU, 15057000 + 4 FLOAT(NPASS),FLOAT(NPL),FLOAT(IPTMXM),FLOAT(MANY1),FLOAT(LGTHIM),15058000 + 5 FLOAT(IRIM),FLOAT(ILIM),0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.) 15059000 + NT(4,NTOUT)=NT(3,NTOUT) 15060000 +C 15061000 + 10 CONTINUE 15062000 + RETURN 15063000 + 555 WRITE(NP,9555) NTI 15064000 + WRITE(NO,9555) NTI 15065000 + 9555 FORMAT(' !!! WARNING !! FILE MCC2F8 TO BE UPDATED NOT FOUND!' 15066000 + 1 ,' UNIT:',I4) 15067000 + RETURN 15068000 + END 15069000 + FUNCTION NEXDI1(VAL,I1,I2,M1,M2,A) 15070000 +C ******************************************* 15071000 +C 15072000 +C NEXDI1= VALORE PRIMO POSTO IN CUI E , NELLE 15073000 +C RIGHE DA I1 AD I2 DI A(M1,M2) , UN 15074000 +C VALORE DIVERSO DA VAL 15075000 +C 15076000 +C ******************************************************* 15077000 +C 15078000 + DIMENSION A(M1,M2) 15079000 + NEXDI1=0 15080000 + DO 10 I=1,M2 15081000 + DO 20 J=I1,I2 15082000 + IF(A(J,I).NE.VAL) GO TO 500 15083000 + 20 CONTINUE 15084000 + 10 CONTINUE 15085000 + RETURN 15086000 + 500 NEXDI1=I 15087000 + RETURN 15088000 + END 15089000 + SUBROUTINE CNTRI(NNUC,MIND,ANG,NCIN,NCOL,NCOL1, 15090000 + 1 ML1,ML2,AINDX1,ML3,ML4,NTABL) 15091000 +C ************************************************ 15092000 +C 15093000 +C CONTROLLA IL VALORE DI NG IN COL NCIN DI INDX 15094000 +C PER GLI INDX INDIVIDUATI DAL VALORE NELLE COLONNE DA 15095000 +C NCOL AD NCOL1 DI NTABL 15096000 +C NNUC E IL DIM 2 EFFETTIVA DI NTABL 15097000 +C MIND E IL DIM 2 EFFETTIVA DI INDX 15098000 +C 15099000 +C ********************************************************8 15100000 +C 15101000 +C 15102000 + DIMENSION AINDX1(ML1,ML2),NTABL(ML3,ML4) 15103000 + IF(NCOL1.LT.NCOL) CALL ERR(8HCNTRI ,0) 15104000 + NFLAG=0 15105000 + DO 10 I=1,NNUC 15106000 + DO 20 IJ=NCOL,NCOL1 15107000 + IND=NTABL(IJ,I) 15108000 + IF(IND.LE.0) GO TO 20 15109000 +C QUESTA LO FA SOLA LA PRIMA VOLT ( INIZIALIZZA ) ANG 15110000 + IF(NFLAG.NE.0) GOTO 100 15111000 + ANG=AINDX1(NCIN,IND) 15112000 + NFLAG=IND 15113000 + 100 CONTINUE 15114000 +C CONTROLLI 15115000 + IF(ANG.EQ.AINDX1(NCIN,IND)) GO TO 200 15116000 + CALL ERR(8H CNTRI ,100) 15117000 + CALL ERRP(4,AINDX1(NCIN,IND),IND,I,IJ,0) 15118000 + 200 CONTINUE 15119000 + 20 CONTINUE 15120000 + 10 CONTINUE 15121000 + RETURN 15122000 + END 15123000 + SUBROUTINE POST1(NTP,N) 15124000 +C **************************** 15125000 +C 15126000 +C POSIZIONA IL TAPE NT(1,NTP) AL RECORD N. LETTURA SENZA FORMAT 15127000 +C 15128000 +C ************************************************* 15129000 +C 15130000 + COMMON /FILES/NT(4,99) 15131000 + NTT=NT(1,NTP) 15132000 + 50 NSK=N-NT(4,NTP) 15133000 + IF(NSK) 100,200,300 15134000 + 300 CONTINUE 15135000 + DO 10 I=1,NSK 15136000 + 10 READ(NTT) 15137000 + NT(4,NTP)=N 15138000 + 200 RETURN 15139000 + 100 CONTINUE 15140000 + REWIND NTT 15141000 + NT(4,NTP)=1 15142000 + GO TO 50 15143000 + END 15144000 + FUNCTION IDENT8(N,A,B) 15145000 +C **************************** 15146000 +C 15147000 +C IDENT8 E' LA POSIZIONE DI A IN B(N) 15148000 +C 15149000 +C *************************************** 15150000 +C 15151000 + REAL*8 A,B(N) 15152000 + DO 10 I=1,N 15153000 + IF(A.EQ.B(I)) GO TO 100 15154000 + 10 CONTINUE 15155000 + IDENT8=0 15156000 + RETURN 15157000 + 100 CONTINUE 15158000 + IDENT8=I 15159000 + RETURN 15160000 + END 15161000 +C ***************************************************** 15162000 +C 15163000 +C ROUTINES TAKEN FROM ETOE-II TO GENERATE 15164000 +C TLJ FUNCTIONS ETC. FOR MC2-II FILE MCC2F8 15165000 +C 15166000 +C ***************************************************** 15167000 +C 15168000 +C 15169000 + BLOCK DATA 15170000 +C 15171000 +C WRITTEN BY R.F.BERLAND ATOMICS INTERNATIONAL 7/66 15172000 +C BLOCK DATA STORES FROM 0 TO 100 FACTORIAL IN ARGUMENT 15173000 +C AND EXPONENT FORM. 15174000 +C REFERENCE - R.F.BERLAND,CHAD - CODE TO HANDLE ANGULAR 15175000 +C DATA,NAA-SR-11231,DEC.1965 15176000 +C 15177000 +C NFAC(I) EXPONENT FOR I-1 FACTORIAL. 15178000 +C FAC(I) ARGUMENT FOR I-1 FACTORIAL. 15179000 +C 15180000 +C SUBROUTINES USING BLOCK DATA. 15181000 +C 15182000 +C CLEB CALCULATES CLEBSCH-GORDAN COEFFICIENTS. 15183000 +C MATRIX CALCULATES ZERO ORDER T AND ZERO ORDER T 15184000 +C INVERSE MATRIX ELEMENTS. 15185000 +C 15186000 +C 15187000 +C DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER 15188000 +C TO PRESERVE ACCURACY. 15189000 +C 15190000 + IMPLICIT REAL*8 (A-H,O-Z,$) 15191000 + COMMON/FACTRL/FAC(101),NFAC(101) 15192000 +C 15193000 + DATA FAC/1.0,1.0,2.0,6.0,2.4,1.2,7.2,5.04,4.03215194000 + 1,3.6288,3.6288,3.99168,4.790016,6.2270208,8.7178291,1.3076744, 15195000 + 22.0922790,3.5568743,6.4023737,1.2164510,2.4329020,5.1090942, 15196000 + 31.1240007,2.5852017,6.2044840,1.5511210,4.0329146,1.0888869, 15197000 + 43.0488834,8.8417620,2.6525286,8.2228387,2.6313084,8.6833176, 15198000 + 52.9523280,1.0333148,3.7199333,1.3763753,5.2302262,2.0397882, 15199000 + 68.1591528,3.3452527,1.4050061,6.0415263,2.6582716,1.1962222, 15200000 + 75.5026222,2.5862324,1.2413916,6.0828186,3.0414093,1.5511188, 15201000 + 88.0658175,4.2748833,2.3084370,1.2696403,7.1099859,4.0526920, 15202000 + 92.3505613,1.3868312,8.3209871,5.0758021,3.1469973,1.9826083, 15203000 + X1.2688693,8.2476506,5.4434494,3.6471111,2.4800355,1.7112245, 15204000 + X1.1978572,8.5047859,6.1234458,4.4701155,3.3078854,2.4809141, 15205000 + X1.8854947,1.4518309,1.1324281,8.9461821,7.1569457,5.7971260, 15206000 + X4.7536433,3.9455240,3.3142401,2.8171041,2.4227095,2.1077573, 15207000 + X1.8548264,1.6507955,1.4857160,1.3520015,1.2438414,1.1567725, 15208000 + X1.0873662,1.0329978,9.9167793,9.6192760,9.4268904,2*9.3326215 / 15209000 + DATA NFAC/0,0,0,0,1,2,2,3,4,5,6,7,8,9,10,12,13,14, 15210000 + 115,17,18,19,21,22,23,25,26,28,29,30,32,33,35,36,38,40,41,43,44,46,15211000 + 247,49,51,52,54,56,57,59,61,62,64,66,67,69,71,73,74,76,78,80,81,83,15212000 + 385,87,89,90,92,94,96,98,100,101,103,105,107,109,111,113,115,116, 15213000 + 4118,120,122,124,126,128,130,132,134,136,138,140,142,144,146,148, 15214000 + 5149,151,153,155,157/ 15215000 + END 15216000 + FUNCTION CLEB(I1,I2,I3) 15217000 +C 15218000 +C WRITTEN BY R.F.BERLAND ATOMICS INTERNATIONAL 7/66 15219000 +C FUNCTION CLEB COMPUTES THE CLEBSCH-GORDAN COEFFICIENTS. 15220000 +C REFERENCE - R.F.BERLAND,CHAD - CODE TO HANDLE ANGULAR 15221000 +C DATA,NAA-SR-11231,DEC.1965 15222000 +C 15223000 +C I1,I2,I3 INDICES FOR DESIRED COEFFICIENT. 15224000 +C 15225000 +C SUBROUTINES CALLED BY FUNCTION CLEB. 15226000 +C 15227000 +C DSQRT FORTRAN SQUARE ROOT FUNCTION (DOUBLE 15228000 +C PRECISION). 15229000 +C MOD FORTRAN MODULAR ARITHMETIC ROUTINE. 15230000 +C 15231000 +C DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER 15232000 +C TO PRESERVE ACCURACY. 15233000 +C 15234000 + IMPLICIT REAL*8 (A-H,O-Z,$) 15235000 + COMMON/FACTRL/FAC(101),NFAC(101) 15236000 +C 15237000 + CLEB=0.0 15238000 + N1=I1+I2-I3+1 15239000 + IF(N1.LE.0) GO TO 99 15240000 + N2=I1-I2+I3+1 15241000 + IF(N2.LE.0) GO TO 99 15242000 + N3=-I1+I2+I3+1 15243000 + IF(N3.LE.0) GO TO 99 15244000 + IT=I1+I2+I3 15245000 + IF(MOD(IT,2).NE.0) GO TO 99 15246000 + N4=IT+2 15247000 + NEPT=NFAC(N1)+NFAC(N2)+NFAC(N3)-NFAC(N4) 15248000 + ARG=FAC(N1)*FAC(N2)*FAC(N3)/FAC(N4) 15249000 + Z1=ARG*10.0**NEPT 15250000 + D123=DSQRT(Z1) 15251000 + IS=IT/2 15252000 + SIGNX=1 15253000 + IF(MOD(IS+I3,2).EQ.1) SIGNX=-1 15254000 + IA=IS+1 15255000 + IB=IS-I1+1 15256000 + IC=IS-I2+1 15257000 + ID=IS-I3+1 15258000 + NEPT=NFAC(IA)-NFAC(IB)-NFAC(IC)-NFAC(ID) 15259000 + ARG=FAC(IA)/(FAC(IB)*FAC(IC)*FAC(ID)) 15260000 + Z1=2*I3+1 15261000 + CLEB=SIGNX*DSQRT(Z1)*D123*ARG*10.0**NEPT 15262000 + 99 RETURN 15263000 + END 15264000 + SUBROUTINE MODPAR(AM,FACK) 15265000 +C *********************************************************** 15266000 +C 15267000 +C SUBROUTINE MODPAR CALCULATES THE MASS DEPENDENT CONSTANTS 15268000 +C USED IN THE CALCULATION OF CONTINUOUS SLOWING DOWN MODERATING 15269000 +C PARAMETERS. 15270000 +C 15271000 +C AM RATIO OF THE NUCLEAR MASS OF THE MATERIAL 15272000 +C TO THAT OF THE NEUTRON. 15273000 +C FACK MASS DEPENDENT CONSTANTS. 15274000 +C 15275000 +C SUBROUTINES CALLED BY SUBROUTINE MODPAR 15276000 +C 15277000 +C IBCOM# FORTRAN I/O ROUTINE 15278000 +C 15279000 +C DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER 15280000 +C TO PRESERVE ACCURACY. 15281000 +C 15282000 + IMPLICIT REAL*8 (A-H,O-Z,$) 15283000 + REAL*4 AM 15284000 + COMMON/FILES/NT(4,99) 15285000 + COMMON /OPZIO/OPZ(4,8,10) 15286000 + EQUIVALENCE(NT(1,6),LTPO),(STMP,OPZ(3,8,1)) 15287000 +C 15288000 + DIMENSION FACK(6,6) 15289000 + A=AM 15290000 + ALPHA=((A-1.)/(A+1.))**2 15291000 + GAM=2./(1.-ALPHA) 15292000 + BET=(1.+ALPHA)/(1.-ALPHA) 15293000 + DO 20 J=1,6 15294000 + DO 10 I=1,6 15295000 + FACK(I,J)=0.0 15296000 + 10 CONTINUE 15297000 + 20 CONTINUE 15298000 + FACK(1,1)=GAM 15299000 + FACK(2,1)=-1.*GAM*BET 15300000 + FACK(2,2)=GAM*GAM 15301000 + FACK(3,1)=(1.5*BET*BET-.5)*GAM 15302000 + FACK(3,2)=-3.*BET*GAM*GAM 15303000 + FACK(3,3)=1.5*GAM*GAM*GAM 15304000 + FACK(4,1)=(3.*BET-5.*(BET**3))*GAM*.5 15305000 + FACK(4,2)=(7.5*(BET**2)-1.5)*(GAM**2) 15306000 + FACK(4,3)=-7.5*BET*(GAM**3) 15307000 + FACK(4,4)=2.5*(GAM**4) 15308000 + FACK(5,1)=(4.375*(BET**4)-3.75*(BET**2)+.375)*GAM 15309000 + FACK(5,2)=-1.*(17.5*(BET**3)-7.5*BET)*(GAM**2) 15310000 + FACK(5,3)=(26.25*(BET**2)-3.75)*(GAM**3) 15311000 + FACK(5,4)=-17.5*BET*(GAM**4) 15312000 + FACK(5,5)=4.375*(GAM**5) 15313000 + FACK(6,1)=-1.*(7.875*(BET**5)-8.75*(BET**3)+1.875*BET)*GAM 15314000 + FACK(6,2)=(39.375*(BET**4)-26.25*(BET**2)+1.875)*(GAM**2) 15315000 + FACK(6,3)=-1.*(78.75*(BET**3)-26.25*BET)*(GAM**3) 15316000 + FACK(6,4)=(78.75*(BET**2)-8.75)*(GAM**4) 15317000 + FACK(6,5)=-39.375*BET*(GAM**5) 15318000 + FACK(6,6)=7.875*(GAM**6) 15319000 + IF(STMP.LT.50) RETURN 15320000 + WRITE(LTPO,1320) 15321000 + WRITE(LTPO,1350) 15322000 + DO 100 J=1,6 15323000 + N=J-1 15324000 + WRITE(LTPO,1300)N,(FACK(J,K),K=1,6) 15325000 + 100 CONTINUE 15326000 + 1300 FORMAT(2X,I2,4X,1P6E15.7) 15327000 + 1320 FORMAT( 80H0 MASS DEPENDENT CONSTANTS FOR CONTINOUS SLOWING DOWN P15328000 + 1ARAMETERS. FACK(L,L') /) 15329000 + 1350 FORMAT(6H0 L/L',8X,1H1,14X,1H2,14X,1H3,14X,1H4,14X,1H5,14X,1H6 /) 15330000 + RETURN 15331000 + END 15332000 + SUBROUTINE LEGPOL(PN,Z,MIPT1) 15333000 +C *******************************************************8 15334000 +C 15335000 +C SUBROUTINE LEGPOL CALCULATES LEGENDRE POLYNOMIALS BY A 15336000 +C RECURSIVE METHOD. 15337000 +C 15338000 +C PN LEGENDRE POLYNOMIALS. 15339000 +C Z VALUE AT WHICH LEGENDRE POLYNOMIALS ARE TO 15340000 +C BE CALCULATED. 15341000 +C MIPT1 HIGHEST ORDER POLYNOMIALS TO BE CALCULATED. 15342000 +C 15343000 +C SUBROUTINES CALLED BY SUBROUTINE LEGPOL. 15344000 +C 15345000 +C DFLOAT FORTRAN FUNCTION. CHANGES FIXED POINT NUMBER 15346000 +C INTO FLOATING POINT NUMBER (DOUBLE PRECISION). 15347000 +C 15348000 +C DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER 15349000 +C TO PRESERVE ACCURACY. 15350000 +C 15351000 + IMPLICIT REAL*8 (A-H,O-Z) 15352000 + DIMENSION PN(MIPT1,1),Z(1) 15353000 + NMAX1=MIPT1-1 15354000 + DO 10 J=1,128 15355000 + PN(1,J)=1.D0 15356000 + PN(2,J)=Z(J) 15357000 + IF (MIPT1.LT.3) GO TO 10 15358000 + DO 20 I=2,NMAX1 15359000 + G=Z(J)*PN(I,J) 15360000 + PN(I+1,J)=G-PN(I-1,J)+G-(G-PN(I-1,J))/DFLOAT(I) 15361000 + 20 CONTINUE 15362000 + 10 CONTINUE 15363000 + RETURN 15364000 + END 15365000 + SUBROUTINE MATRIX(GG,T,M,MM,LAB) 15366000 +C ******************************************************** 15367000 +C 15368000 +C WRITTEN BY R.F.BERLAND ATOMICS INTERNATIONAL 7/66 15369000 +C MATRIX COMPUTES THE TRANSFORMATION MATRICES T OR 15370000 +C T INVERSE FOR LEGENDRE COEFFICIENTS WITH F0(E)=1 15371000 +C NORMALIZATION. 15372000 +C A RECURSIVE METHOD IS USED. 15373000 +C REFERENCE - R.F.BERLAND,CHAD - CODE TO HANDLE ANGULAR 15374000 +C DATA,NAA-SR-11231,DEC.1965 15375000 +C 15376000 +C GG RATIO OF THE NUCLEAR MASS OF THE MATERIAL 15377000 +C TO THAT OF THE NEUTRON. 15378000 +C T TRANSFORMATION MATRIX. 15379000 +C M NUMBER OF ROWS IN T MATRIX. 15380000 +C MM NUMBER OF COLUMNS IN T MATRIX (SHOULD INITIALLY 15381000 +C BE SET TO MIN(1.5*M,30) TO PRESERVE THE 15382000 +C ACCURACY IN THE GENERATION OF THE ELEMENTS UP 15383000 +C TO T(M,M)). THE PRESENT SIZE OF BLOCK DATA 15384000 +C LIMITS THE NUMBER OF COLUMNS TO SLIGHTLY 15385000 +C ABOVE 30. 15386000 +C LAB =0,T MATRIX IS GENERATED (CM TO LAB). 15387000 +C =1,T INVERSE IS GENERATED (LAB TO CM). 15388000 +C 15389000 +C SUBROUTINES CALLED BY SUBROUTINE MATRIX. 15390000 +C DABS FORTRAN ABSOLUTE VALUE FUNCTION (DOUBLE 15391000 +C PRECISION). 15392000 +C DSQRT FORTRAN SQUARE ROOT FUNCTION (DOUBLE 15393000 +C PRECISION). 15394000 +C MIN0 FORTRAN MINIMUM VALUE FUNCTION-INTEGER 15395000 +C CLEB CALCULATE CLEBSCH-GORDAN COEFFICIENTS 15396000 +C 15397000 +C DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER 15398000 +C TO PRESERVE ACCURACY. 15399000 +C 15400000 + IMPLICIT REAL*8 (A-H,O-Z,$) 15401000 + COMMON/FACTRL/FAC(101),NFAC(101) 15402000 + REAL*4 GG 15403000 +C 15404000 + DIMENSION T(M,MM) 15405000 +C 15406000 + AWR=GG 15407000 + G=1./AWR 15408000 + IF(MM.LE.0)GOTO 21 15409000 + DO 20 I=1,MM 15410000 + IF(M.LE.0)GOTO 20 15411000 + DO 19 L=1,M 15412000 + T(L,I)=0.0 15413000 + 19 CONTINUE 15414000 + 20 CONTINUE 15415000 + 21 CONTINUE 15416000 + T(1,1)=1.0 15417000 + IF(LAB.EQ.0) GO TO 100 15418000 + T(2,1)=-2.0*G/3.0 15419000 + T(2,3)=2.0*G/3.0 15420000 + M2=MIN0(M,MM/2,15) 15421000 + MUP=0 15422000 + R=G*G/(1.0-G*G) 15423000 + IF(M2.LE.0)GOTO51 15424000 + DO 50 I=1,M2 15425000 + I1=I-1 15426000 + RM=(-R)**I1/DSQRT(1.0+R) 15427000 + SUM=0.0 15428000 + DO 30 K=1,20 15429000 + K1=K-1 15430000 + SN=K1+I1 15431000 + DIV=(1.0-4.0*SN*SN)*4.0**K1 15432000 + IA=K1+2*I1+2 15433000 + IB=IA+K1 15434000 + IC=K+I1 15435000 + ID=2*K1+4*I 15436000 + ARG=FAC(IA)*FAC(IB)**2/(FAC(K)*FAC(ID)*FAC(IC)**2) 15437000 + NEPT=NFAC(IA)+2*NFAC(IB)-NFAC(K)-NFAC(ID)-2*NFAC(IC) 15438000 + TERM=(-R)**K1*(ARG*10.0**NEPT)/DIV 15439000 + SUM=SUM+TERM 15440000 + IF(DABS(TERM).LT.1.0E-32) GO TO 40 15441000 + IF(DABS(RM*SUM).LT.1.0E-32) GO TO 40 15442000 + 30 CONTINUE 15443000 + 40 CONTINUE 15444000 + Z1=4*I1+3 15445000 + IT=2*I 15446000 + X1=2.0*Z1*RM*SUM 15447000 + T(2,IT)=X1 15448000 + IF(MUP.NE.0) GO TO 48 15449000 + IF(DABS(X1).GE.1.0E-16) GO TO 50 15450000 + MUP=IT-2 15451000 + 48 CONTINUE 15452000 + IF(DABS(X1).LT.1.0E-32) GO TO 120 15453000 + 50 CONTINUE 15454000 + 51 CONTINUE 15455000 + IF(MUP.EQ.0) MUP=M 15456000 + GO TO 120 15457000 + 100 CONTINUE 15458000 + T(2,1)=2.0*G/3.0 15459000 + T(2,2)=1.0-.6*G**2 15460000 + MUP=0 15461000 + IF(MM.LE.2)GOTO 111 15462000 + DO 110 I=3,MM 15463000 + I1=I-1 15464000 + Z1=I1 15465000 + Z2=I1+2 15466000 + Z3=2*I1-1 15467000 + Z4=2*I1+3 15468000 + I2=I1-1 15469000 + X1=(Z1/Z3-Z2*G**2/Z4)*(-G)**I2 15470000 + T(2,I)=X1 15471000 + IF(MUP.NE.0) GO TO 105 15472000 + IF(DABS(X1).GE.1.0E-16) GO TO 110 15473000 + MUP=I1 15474000 + 105 CONTINUE 15475000 + IF(DABS(X1).LT.1.0E-32) GO TO 120 15476000 + 110 CONTINUE 15477000 + 111 CONTINUE 15478000 + IF(MUP.EQ.0) MUP=M 15479000 + 120 CONTINUE 15480000 + MUP=MM 15481000 + ILO=1 15482000 + IF(M.LE.2)GOTO 161 15483000 + DO 160 L=3,M 15484000 + L1=L-2 15485000 + Z1=2*L1+1 15486000 + Z2=L1+1 15487000 + Z3=L1 15488000 + ILOW=ILO 15489000 + DO 150 I=ILOW,MM 15490000 + I1=I-1 15491000 + SUM=-Z3*T(L1,I)/Z2 15492000 + IF(MUP.LE.0)GOTO 145 15493000 + DO 140 N1=1,MUP 15494000 + X2=T(2,N1) 15495000 + IF(DABS(X2).EQ.0.0) GO TO 140 15496000 + N2=N1-1 15497000 + MAX=N2+I1+1 15498000 + IF(MAX.GT.MM) MAX=MM 15499000 + MIN=IABS(N2-I1)+1 15500000 + SUM1=0.0 15501000 + IF(MAX.LT.MIN)GOTO 131 15502000 + DO 130 M1=MIN,MAX,2 15503000 + X1=T(L1+1,M1) 15504000 +C IF(DABS(X1).LT.1.0E-16) GO TO 130 15505000 + M2=M1-1 15506000 + SUM1=SUM1+CLEB(N2,M2,I1)**2*X1 15507000 + 130 CONTINUE 15508000 + 131 CONTINUE 15509000 + SUM=SUM+Z1*X2*SUM1/Z2 15510000 + 140 CONTINUE 15511000 + 145 CONTINUE 15512000 +C IF(I.GE.L) GO TO 147 15513000 +C IF(G.GT.0.3) GO TO 147 15514000 +C IF(DABS(SUM).GE.DABS(T(L-1,I))) GO TO 148 15515000 +C 147 CONTINUE 15516000 + T(L,I)=SUM 15517000 +C GO TO 150 15518000 +C 148 CONTINUE 15519000 +C ILO=I+1 15520000 + 150 CONTINUE 15521000 + 160 CONTINUE 15522000 + 161 RETURN 15523000 + END 15524000 + SUBROUTINE TMATRI(AM,FAC,PN,TLJ,TLJ2,NPL,MIPT1,NMAX,DU) 15525000 +C ******************************************************* 15526000 +C 15527000 +C SUBROUTINE TMATRI CALCULATES 'INCOMPLETE' T MATRIX ELEMENTS AND 15528000 +C ALSO CALCULATES SECOND ORDER T MATRIX ELEMENTS. 15529000 +C 15530000 +C AM RATIO OF THE NUCLEAR MASS OF THE MATERIAL 15531000 +C TO THAT OF THE NEUTRON. 15532000 +C FAC 'INCOMPLETE' T MATRIX ELEMENTS. 15533000 +C PN LEGENDRE POLYNOMIALS. 15534000 +C TLJ ZERO ORDER T MATRIX ELEMENTS. 15535000 +C TLJ2 SECOND ORDER T MATRIX ELEMENTS. 15536000 +C NPL HIGHEST ORDER PERMITTED FOR EXTENDED TRANSPORT 15537000 +C APPROXIMATION +1. 15538000 +C MIPT1 MAXIMUM NUMBER OF LEGENDRE COEFFICIENTS 15539000 +C NMAX =MIPT1 15540000 +C DU ULTRAFINE GROUP LETHARGY WIDTH. 15541000 +C 15542000 +C SUBROUTINES CALLED BY SUBROUTINE TMATRI. 15543000 +C 15544000 +C DEXP FORTRAN EXPONENTIAL FUNCTION (DOUBLE PRECISION).15545000 +C DLOG FORTRAN NATURAL LOGRITHM (DOUBLE PRECISION). 15546000 +C LEGPOL CALCULATES LEGENDRE POLYNOMIALS. 15547000 +C 15548000 +C DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER 15549000 +C TO PRESERVE ACCURACY. 15550000 +C 15551000 + IMPLICIT REAL*8 (A-H,O-Z) 15552000 + REAL*4 AM,DU 15553000 + DIMENSION W(64),W1(22),W2(42),X(64),Z(128),PN(MIPT1,1),FAC(6,1), 15554000 + 1TLJ(NPL,1),TLJ2(2,1) 15555000 + EQUIVALENCE (W(1),W1(1)),(W(23),W2(1)) 15556000 + DATA W1/4.4938096029D-04,1.0458126793D-03,1.6425030187D-03, 15557000 + 12.2382884310D-03,2.8327514714D-03,3.4255260409D-03, 15558000 + 24.0162549837D-03,4.6045842567D-03,5.1901618327D-03, 15559000 + 35.7726375429D-03,6.3516631617D-03,6.9268925669D-03, 15560000 + 47.4979819256D-03,8.0645898905D-03,8.6263777986D-03, 15561000 + 59.1830098717D-03,9.7341534150D-03,1.0279479016D-02, 15562000 + 61.0818660740D-02,1.1351376324D-02,1.1877307373D-02, 15563000 + 71.2396139544D-02/ 15564000 + DATA W2/1.2907562739D-02,1.3411271289D-02,1.3906964133D-02, 15565000 + 11.4394345004D-02,1.4873122602D-02,1.5343010769D-02, 15566000 + 21.5803728659D-02,1.6255000910D-02,1.6696557801D-02, 15567000 + 31.7128135423D-02,1.7549475827D-02,1.7960327185D-02, 15568000 + 41.8360443937D-02,1.8749586940D-02,1.912752361D-02, 15569000 + 51.9494028059D-02,1.9848881233D-02,2.0191871042D-02, 15570000 + 62.0522792487D-02,2.0841447781D-02,2.1147646468D-02, 15571000 + 72.1441205539D-02,2.1721949538D-02,2.1989710668D-02, 15572000 + 82.2244328894D-02,2.2485652033D-02,2.2713535850D-02, 15573000 + 92.2927844144D-02,2.3128448824D-02,2.3315229994D-02, 15574000 + A2.3488076016D-02,2.3646883584D-02,2.3791557781D-02, 15575000 + B2.3922012137D-02,2.4038168681D-02,2.4139957989D-02, 15576000 + C2.4227319223D-02,2.4300200168D-02,2.4358557265D-02, 15577000 + D2.4402355634D-02,2.4431569100D-02,2.4446180197D-02/ 15578000 + DATA X/.99982488795,.99907745998,.99773324863,.99579275853, 15579000 + 1.99325711290,.99012781849,.98640674272,.98209610844,.97719849146, 15580000 + 2.97171681875,.96565436643,.95901475785,.95180196134,.94402028783, 15581000 + 3.93567438828,.92676925088,.91731019808,.90730288340,.89675328805, 15582000 + 4.88566771734,.87405279696,.86191546894,.84926298758,.83610291506, 15583000 + 5.82244311696,.80829175751,.79365729476,.77854847551,.76297433004, 15584000 + 6.74694416680,.73046756674,.71355437768,.69621470837,.67845892245, 15585000 + 7.66029763227,.64174169256,.62280219391,.60349045616,.58381802163, 15586000 + 8.56379664823,.54343830241,.52275515205,.50175955914,.48046407240, 15587000 + 9.45888141983,.43702450104,.41490637955,.39254027503,.36993955535, 15588000 + A.34711772860,.32408843502,.30086543888,.27746262018,.25389396642, 15589000 + B.23017356423,.20631559090,.18233430598,.15824404271,.13405919946, 15590000 + C.10979423113,.85463640504D-01,.61081969604D-01, 15591000 + D.36663790969D-01,.12223698961D-01/ 15592000 + A=AM 15593000 + ALPHA=((A-1.)/(A+1.))**2 15594000 + Q=1./ALPHA 15595000 + Q=DLOG(Q) 15596000 + MARK=0 15597000 + V=1.D0 15598000 + DELT=DU 15599000 + 25 CONTINUE 15600000 + AINT=(2.*DEXP(-DELT)-(1.+ALPHA))/(1.-ALPHA) 15601000 + A1=(V-AINT)*0.5 15602000 + B1=(V+AINT)*0.5 15603000 + DO 30 I=1,64 15604000 + J=I+64 15605000 + Z(I)=A1*X(I)+B1 15606000 + Z(J)=-A1*X(I)+B1 15607000 + 30 CONTINUE 15608000 + CALL LEGPOL(PN,Z,MIPT1) 15609000 + DO 60 N=1,NMAX 15610000 + SUM=0. 15611000 + SUM1=0. 15612000 + SUM2=0. 15613000 + SUM3=0. 15614000 + SUM4=0. 15615000 + SUM5=0. 15616000 + DO 40 I=1,64 15617000 + J=I+64 15618000 + F=PN(N,I) 15619000 + G=PN(N,J) 15620000 + SUM=SUM+W(I)*(F+G) 15621000 + ARF=0.5D0*(1.+ALPHA+(1.-ALPHA)*Z(I)) 15622000 + ARG=0.5D0*(1.+ALPHA+(1.-ALPHA)*Z(J)) 15623000 + ARF=1.D0/ARF 15624000 + ARG=1.D0/ARG 15625000 + U1=DLOG(ARF) 15626000 + U2=DLOG(ARG) 15627000 + U3=0.5*U1 15628000 + U4=0.5*U2 15629000 + U3=((A+1.)*DEXP(-U3)-(A-1.)*DEXP(U3))*0.5 15630000 + U4=((A+1.)*DEXP(-U4)-(A-1.)*DEXP(U4))*0.5 15631000 + SUM1=SUM1+W(I)*(F*U1+G*U2) 15632000 + SUM2=SUM2+W(I)*(F*U3+G*U4) 15633000 + SUM3=SUM3+W(I)*(F*U1*U3+G*U2*U4) 15634000 + IF(MARK.NE.2) GO TO 40 15635000 + IF(N.GT.6) GO TO 40 15636000 + SUM4=SUM4+W(I)*(F*U1*U1+G*U2*U2) 15637000 + SUM5=SUM5+W(I)*(F*U1*U1*U3+G*U2*U2*U4) 15638000 + 40 CONTINUE 15639000 + M=N-1 15640000 + AX=0.5D0*A1*(2*M+1) 15641000 + Y1=AX*SUM 15642000 + Y2=-AX*SUM1 15643000 + Y3=AX*SUM2 15644000 + Y4=-AX*SUM3 15645000 + IF (MARK.GT.0) GO TO 45 15646000 + FAC(1,N)=DELT*Y1+Y2 15647000 + FAC(3,N)=DELT*Y3+Y4 15648000 + GO TO 60 15649000 + 45 CONTINUE 15650000 + IF (MARK.EQ.2) GO TO 50 15651000 + FAC(2,N)=DELT*Y1+Y2 15652000 + FAC(4,N)=DELT*Y3+Y4 15653000 + GO TO 60 15654000 + 50 CONTINUE 15655000 + IF(N.GT.6) GO TO 60 15656000 + AX2=(2.*M+1.)/4 15657000 + TLJ2(1,N)=AX2*SUM4 15658000 + TLJ2(2,N)=AX2*SUM5 15659000 + 60 CONTINUE 15660000 + MARK=MARK+1 15661000 + IF (MARK.EQ.1) DELT=DELT+DELT 15662000 + IF (MARK.EQ.2) DELT=Q 15663000 + IF (MARK.LT.3) GO TO 25 15664000 + RETURN 15665000 + END 15666000 + SUBROUTINE TMATRX(AM,FAC1,PN,TLJ,TLJ2,VV,NPL1,MIPT1,DU,MAXPT1,Q3) 15667000 +C **************************************************************** 15668000 +C 15669000 +C SUBROUTINE TMATRX CONTROLS THE CALCULATION AND PRINT OUT OF 15670000 +C THE T MATRIX ELEMENTS. 15671000 +C 15672000 +C AM RATIO OF THE NUCLEAR MASS OF THE MATERIAL 15673000 +C TO THAT OF THE NEUTRON. 15674000 +C FAC1 'INCOMPLETE' T MATRIX ELEMENTS AND FIRST ORDER 15675000 +C T MATRIX ELEMENTS. 15676000 +C PN LEGENDRE POLYNOMIALS. 15677000 +C TLJ ZERO ORDER T MATRIX ELEMENTS. 15678000 +C TLJ2 SECOND ORDER T MATRIX ELEMENTS. 15679000 +C VV ZERO ORDER T MATRIX ELEMENTS. OBTAINED FROM 15680000 +C SUBROUTINE MATRIX. 15681000 +C NPL1 HIGHEST ORDER PERMITTED FOR EXTENDED TRANSPORT 15682000 +C APPROXIMATION +1. 15683000 +C MIPT1 MAXIMUM NUMBER OF LEGENDRE COEFFICIENTS 15684000 +C FOR THIS PROBLEM +1. 15685000 +C DU ULTRAFINE GROUP LETHARGY WIDTH. 15686000 +C MAXPT1 MAXIMUM NUMBER OF LEGENDRE COEFFICIENTS 15687000 +C FOR THIS MATERIAL +1. 15688000 +C Q3 EQUAL TO ALOG(((AWR(M)+1.)/(AWR(M)-1.)))**2/3. 15689000 +C WHERE AWR(M) IS THE RATIO OF THE NUCLEAR MASS 15690000 +C OF THE MATERIAL TO THAT OF THE NEUTRON. 15691000 +C 15692000 +C SUBROUTINES CALLED BY SUBROUTINE TMATRX. 15693000 +C 15694000 +C MATRIX CALCULATES ZERO ORDER T MATRIX ELEMENTS. 15695000 +C TMATRI CALCULATES 'INCOMPLETE' T MATRIX ELEMENTS. 15696000 +C TMATRY CALCULATES FIRST ORDER T MATRIX ELEMENTS. 15697000 +C IBCOM# FORTRAN I/O ROUTINE 15698000 +C 15699000 +C DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER 15700000 +C TO PRESERVE ACCURACY. 15701000 +C 15702000 + DOUBLE PRECISION PN,VV,FAC1,TLJ,TLJ2 15703000 + DIMENSION FAC1(6,1),PN(MIPT1,1),TLJ(NPL1,1),TLJ2(2,1),VV(1),M(6) 15704000 + COMMON/FILES/NT(4,99) 15705000 + COMMON/OPZIO/OPZ(4,8,10) 15706000 + EQUIVALENCE (NT(1,6),LTPO),(OPZ(3,8,1),STMP) 15707000 +C 15708000 +C CALCULATE 0 MOMENT OF T L J WHERE BOTH L AND J RANGE 15709000 +C FROM 0 TO MIPT. 15710000 +C 15711000 + LAB=0 15712000 + MIPT1M=3*MIPT1/2 15713000 + CALL MATRIX(AM,VV,MIPT1,MIPT1M,LAB) 15714000 + DO 80 L=2,NPL1 15715000 + K=L 15716000 + DO 70 J=1,MIPT1 15717000 + TLJ(L,J)=VV(K) 15718000 + K=K+MIPT1 15719000 + 70 CONTINUE 15720000 + 80 CONTINUE 15721000 +C 15722000 +C CALCULATE 'INCOMPLETE' T MATRIX ELEMENTS AND 15723000 +C 2 MOMENT OF T 0 J AND 2 MOMENT OF T 1 J FOR J RANGING 15724000 +C FROM 0 TO MIPT. 15725000 +C 15726000 + CALL TMATRI(AM,FAC1,PN,TLJ,TLJ2,NPL1,MIPT1,MIPT1,DU) 15727000 +C 15728000 +C CALCULATE 1 MOMENT OF T 0 J AND 1 MOMENT OF T 1 J FOR 15729000 +C J RANGING FEOM 0 TO MIPT. 15730000 +C 15731000 + CALL TMATRY(AM,FAC1,TLJ,MIPT1,NPL1) 15732000 +C 15733000 +C PRINT OUT THE ABOVE CALCULATIONS. 15734000 +C IF REQUESTED 15735000 + IF(STMP.LT.50) RETURN 15736000 +C 15737000 +C 15738000 + WRITE(LTPO,1410) 15739000 + IF(DU.LT.Q3) GO TO 91 15740000 + DO 90 I=1,MAXPT1 15741000 + N=I-1 15742000 + WRITE(LTPO,1200)(N,FAC1(J,I),J=1,6) 15743000 + 90 CONTINUE 15744000 + GO TO 94 15745000 + 91 CONTINUE 15746000 + DO 93 I=1,MAXPT1 15747000 + N=I-1 15748000 + WRITE(LTPO,1201)(N,FAC1(J,I),J=5,6) 15749000 + 93 CONTINUE 15750000 + 94 CONTINUE 15751000 + WRITE(LTPO,1420) 15752000 + DO 95 I=1,6 15753000 + N=I-1 15754000 + WRITE(LTPO,1200)N,TLJ2(1,I),N,TLJ2(2,I) 15755000 + 95 CONTINUE 15756000 + DO 98 I=1,6 15757000 + M(I)=I 15758000 + 98 CONTINUE 15759000 + K=2 15760000 + IF(NPL1.LE.7) GO TO 100 15761000 + L=7 15762000 + GO TO 112 15763000 + 100 CONTINUE 15764000 + L=NPL1 15765000 + 112 CONTINUE 15766000 + WRITE(LTPO,1430)(M(I),I=1,6) 15767000 + DO 114 I=1,MAXPT1 15768000 + N=I-1 15769000 + WRITE(LTPO,1200)(N,TLJ(J,I),J=K,L) 15770000 + 114 CONTINUE 15771000 + DO 115 I=1,6 15772000 + M(I)=M(I)+6 15773000 + 115 CONTINUE 15774000 + K=L+1 15775000 + IF(NPL1.LE.L) GO TO 120 15776000 + L=NPL1 15777000 + IF(L.GT.(K+5)) L=K+5 15778000 + GO TO 112 15779000 + 120 CONTINUE 15780000 + 1200 FORMAT(6(2X,I3,1PE15.7)) 15781000 + 1201 FORMAT(82X,I3,1PE15.7,2X,I3,1E15.7) 15782000 + 1410 FORMAT(127H0 J FAC 1 J FAC 2 J FAC 315783000 + 1 J FAC 4 J 1 MOMENT T 0 J J 1 MOMENT T 1 J 15784000 + 2 /) 15785000 + 1420 FORMAT(45H0 J 2 MOMENT T 0 J J 2 MOMENT T 1 J /) 15786000 + 1430 FORMAT(15H0 J 0 MOMENT ,I2,18HJ J 0 MOMENT ,I2,18HJ 15787000 + 1J 0 MOMENT ,I2,18HJ J 0 MOMENT ,I2,18HJ J 0 MOMENT 15788000 + 2 ,I2,18HJ J 0 MOMENT ,I2,2HJ /) 15789000 + RETURN 15790000 + END 15791000 + SUBROUTINE TMATRY(GG,FAC1,TLJ,MIPT1,NPL1) 15792000 +C ********************************************************** 15793000 +C 15794000 +C SUBROUTINE TMATRY CALCULATES FIRST ORDER T MATRIX ELEMENTS. 15795000 +C 15796000 +C AM RATIO OF THE NUCLEAR MASS OF THE MATERIAL 15797000 +C TO THAT OF THE NEUTRON. 15798000 +C FAC1 FIRST ORDER T MATRIX ELEMENTS. 15799000 +C TLJ ZERO ORDER T MATRIX ELEMENTS. 15800000 +C MIPT1 MAXIMUM NUMBER OF LEGENDRE COEFFICIENTS 15801000 +C FOR THIS PROBLEM +1. 15802000 +C NPL1 HIGHEST ORDER PERMITTED FOR EXTENDED TRANSPORT 15803000 +C APPROXIMATION +1. 15804000 +C 15805000 +C SUBROUTINES CALLED BY SUBROUTINE TMATRY. 15806000 +C 15807000 +C CLEB CALCULATES CLEBSCH-GORDEN COEFFICIENTS. 15808000 +C DABS FORTRAN ABSOLUTE VALUE ROUTINE (DOUBLE 15809000 +C DLOG FORTRAN LOGARITHM FUNCTION (DOUBLE PRECISION) 15810000 +C PRECISION). 15811000 +C IABS FORTRAN ABSOLUTE VALUE ROUTINE FOR INTEGERS. 15812000 +C 15813000 +C DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER 15814000 +C TO PRESERVE ACCURACY. 15815000 +C 15816000 + IMPLICIT REAL*8 (A-H,O-Z) 15817000 + REAL*4 GG 15818000 + DIMENSION FAC1(6,2),TLJ(NPL1,1) 15819000 + COMMON/FACTRL/FAC(101),NFAC(101) 15820000 + A=GG 15821000 + MM=MIPT1 15822000 + ALPHA=((A-1.)/(A+1.))**2 15823000 + ALP=1.-ALPHA 15824000 + Q=DLOG(1./ALPHA) 15825000 +C CALCULATE FIRST MOMENT OF T SUB 0,N 15826000 +C 15827000 + FAC1(5,1)=-(1.-ALPHA*Q/ALP) 15828000 + FAC1(5,2)=3.*((1.+ALPHA)/(2*ALP)-ALPHA*Q/(ALP*ALP)) 15829000 + DO 20 L=3,MM 15830000 + SUM=0.0 15831000 + ISGN=1 15832000 + IF (L.NE.2*(L/2)) ISGN=-1 15833000 + N=L-1 15834000 + ISGN=ISGN*(N+L) 15835000 + NN=N 15836000 + IF (N.EQ.0) NN=N+1 15837000 + DO 30 K=NN,60 15838000 + IA=K+1 15839000 + IB=K-N+1 15840000 + IC=K+L+1 15841000 + ARG=FAC(IA)**2/(FAC(IB)*FAC(IC)) 15842000 + NEPT=2*NFAC(IA)-NFAC(IB)-NFAC(IC) 15843000 + P1=K 15844000 + TERM=ALP**K*(ARG*10.0**NEPT)/P1 15845000 + SUM=SUM+TERM 15846000 + IF (TERM.LE.SUM*1.E-06) GO TO 25 15847000 + IF (TERM.LT.1.0E-42) GO TO 25 15848000 + 30 CONTINUE 15849000 + 25 SIGN=ISGN 15850000 + FAC1(5,L)=SIGN*SUM 15851000 + XX=FAC1(5,L) 15852000 + IF(DABS(XX).LT.1.D-46) GO TO 21 15853000 + 20 CONTINUE 15854000 + 21 CONTINUE 15855000 +C 15856000 +C CALCULATE FIRST MOMENT OF T SUB 1,N 15857000 +C 15858000 + ILO=1 15859000 + DO 150 I=ILO,MM 15860000 + N=I-1 15861000 + SUM=0.0 15862000 + DO 140 N1=1,MIPT1 15863000 + X2=TLJ(2,N1) 15864000 + IF (X2.EQ.0) GO TO 140 15865000 + K=N1-1 15866000 + MAX=K+N+1 15867000 + IF (MAX.GT.MM) MAX=MM 15868000 + MIN=IABS(K-N) +1 15869000 + SUM1=0.0 15870000 + DO 130 M1=MIN,MAX,2 15871000 + X1=FAC1(5,M1) 15872000 + IF (DABS(X1).LT.1.0E-40) GO TO 130 15873000 + M2=M1-1 15874000 + SUM1=SUM1+CLEB(K,M2,N)**2*X1 15875000 + 130 CONTINUE 15876000 + SUM=SUM+X2*SUM1 15877000 + 140 CONTINUE 15878000 + 150 FAC1(6,I)=SUM 15879000 + RETURN 15880000 + END 15881000 +C ********************************************************* 15882000 +C THE FOLLOWING ROUTINES COMPUTES THE W FUNCION 15883000 +C FOR THE CALCULATION OF DOPPLER FUNCTIONS 15884000 +C THESE ROUTINES ARE TAKEN FROM MC2-2 AND ETOE CODE 15885000 +C 15886000 + SUBROUTINE QUICKW(N41,N27,TR,TI,TRS,TIS,AX,Y,REW,AIMW) 15887000 +C ******************************************************** 15888000 +C 15889000 +C SUBROUTINE QUICKW CALCULATES THE REAL AND IMAGINARY PARTS 15890000 +C OF W(X,Y). 15891000 +C 15892000 +C TR REAL PART OF W(X,Y) TABULATED AT INCREMENTS 15893000 +C OF 0.1 FOR -0.1.LE.X.LE.3.9 AND 0.4.LE.Y.LE.3.0 15894000 +C TI IMAGINARY PART OF W(X,Y) TABULATED AT INCREMENTS15895000 +C OF 0.1 FOR -0.1.LE.X.LE.3.9 AND 0.4.LE.Y.LE.3.0 15896000 +C TRS REAL PART OF W(X,Y) TABULATED AT INCREMENTS OF 15897000 +C OF 0.1 FOR -0.1.LE.X.LE.3.9 AND AT INCREMENTS OF15898000 +C 0.02 FOR -0.02.LE.Y.LE.0.5 15899000 +C TIS IMAGINARY PART OF W(X,Y) TABULATED AT INCREMENTS15900000 +C OF 0.1 FOR -0.1.LE.X.LE.3.9 AND AT INCREMENTS OF15901000 +C 0.02 FOR -0.02.LE.Y.LE.0.5 15902000 +C 15903000 +C COMMON/REAIMW/AX,Y,REW,AIMW 15904000 +C COMMON /TABDAT/ TR(41,27),TI(41,27),TRS(41,27),TIS(41,27) 15905000 + DIMENSION TR(N41,N27),TI(N41,N27),TRS(N41,N27),TIS(N41,N27) 15906000 +C 15907000 +C C1=1/ SQRT(PI) 15908000 +C 15909000 + DATA C1/0.5641895835/,C2/0.2752551/, 15910000 + 1 C3/2.724745/,C4/0.5124242/, 15911000 + 2 C5/0.05176536/,HALF/0.5/,TEN/10.0/, 15912000 + 4 D1/0.4613135/,D2/0.1901635/,D3/0.09999216/, 15913000 + 5 D4/1.7844927/,D5/0.002883894/,D6/5.5253437/,FIFTY/50.0/ 15914000 +C 15915000 +C 15916000 +C 15917000 + X=AX 15918000 + XABS=ABS(X) 15919000 + IF(XABS.LE.3.9.AND.Y.LE.3.0) GO TO 100 15920000 + A1=(X+Y)*(X-Y) 15921000 + A2=2.0*X*Y 15922000 + A3=A2*A2 15923000 + TEMP1=A2*X 15924000 + TEMP2=A2*Y 15925000 + IF(XABS.GT.6.0.OR.Y.GT.6.0) GO TO 110 15926000 + GO TO 150 15927000 + 110 CONTINUE 15928000 + IF(XABS.GT.100.0.OR.Y.GT.100.0) GO TO 400 15929000 + GO TO 200 15930000 + 100 CONTINUE 15931000 +C 15932000 +C SIX POINT TABLE INTERPOLATION FOR 0.LE.ABS(X).LE.3.9 15933000 +C 15934000 + AKI= SIGN(1. ,AX) 15935000 + X=XABS 15936000 + TEMPOR=TEN*X 15937000 + II=TEMPOR 15938000 + I=II+2 15939000 + P=TEMPOR-II 15940000 + P2=P*P 15941000 + HP=HALF*P 15942000 + HP2=HALF*P2 15943000 + A2=HP2-HP 15944000 + IF(Y.LT.0.5) GO TO 210 15945000 +C 15946000 +C Y.GE.0.5 15947000 +C 15948000 + TEMPOR=TEN*Y 15949000 + JJ=TEMPOR 15950000 + J=JJ-3 15951000 + N=J-1 15952000 + Q=TEMPOR-JJ 15953000 + Q2=Q*Q 15954000 + PQ=P*Q 15955000 + HQ=HALF*Q 15956000 + HQ2=HALF*Q2 15957000 + A1=HQ2-HQ 15958000 + A3=1. +PQ-P2-Q2 15959000 + A4=HP2-PQ+HP 15960000 + A5=HQ2-PQ+HQ 15961000 + REW=A1*TR(I,N )+A2*TR(I-1,J)+A3*TR(I,J)+A4*TR(I+1,J)+A5*TR(I,J+1)15962000 + 1+PQ*TR(I+1,J+1) 15963000 + IF(AX.EQ.0.0) GO TO 120 15964000 + AIMW=A1*TI(I,N )+A2*TI(I-1,J)+A3*TI(I,J)+A4*TI(I+1,J)+A5*TI(I,J+115965000 + 1)+PQ*TI(I+1,J+1) 15966000 + AIMW=AIMW*AKI 15967000 + RETURN 15968000 + 210 CONTINUE 15969000 +C 15970000 +C Y.LT.0.5 15971000 +C 15972000 + TEMPOR=FIFTY*Y 15973000 + JJ=TEMPOR 15974000 + J=JJ+2 15975000 + N=J-1 15976000 + Q=TEMPOR-JJ 15977000 + Q2=Q*Q 15978000 + PQ=P*Q 15979000 + HQ=HALF*Q 15980000 + HQ2=HALF*Q2 15981000 + A1=HQ2-HQ 15982000 + A3=1. +PQ-P2-Q2 15983000 + A4=HP2-PQ+HP 15984000 + A5=HQ2-PQ+HQ 15985000 + REW=A1*TRS(I,N )+A2*TRS(I-1,J)+A3*TRS(I,J)+A4*TRS(I+1,J)+ 15986000 + 1A5*TRS(I,J+1)+PQ*TRS(I+1,J+1) 15987000 + IF(AX.EQ.0) GO TO 120 15988000 + AIMW=A1*TIS(I,N )+A2*TIS(I-1,J)+A3*TIS(I,J)+A4*TIS(I+1,J)+ 15989000 + 1A5*TIS(I,J+1)+PQ*TIS(I+1,J+1) 15990000 + AIMW=AIMW*AKI 15991000 + RETURN 15992000 +C 15993000 +C RATIONAL APPROXIMATION FOR X.GT.3.9 OR Y.GT.3.0 BUT X AND Y .LE.6 15994000 +C 15995000 + 150 CONTINUE 15996000 + A4=A1-D2 15997000 + A5=A1-D4 15998000 + A6=A1-D6 15999000 + E1=D1/(A4*A4+A3) 16000000 + E2=D3/(A5*A5+A3) 16001000 + E3=D5/(A6*A6+A3) 16002000 + REW=E1*(TEMP1-A4*Y)+E2*(TEMP1-A5*Y)+E3*(TEMP1-A6*Y) 16003000 + IF(AX.EQ.0.0) GO TO 120 16004000 + AIMW=E1*(A4*X+TEMP2)+E2*(A5*X+TEMP2)+E3*(A6*X+TEMP2) 16005000 + RETURN 16006000 +C 16007000 +C RATIONAL APPROXIMATION FOR X.GT.6 OR Y.GT.6 BUT X AND Y .LE.100 16008000 +C 16009000 + 200 CONTINUE 16010000 + A4=A1-C2 16011000 + A5=A1-C3 16012000 + F1=C4/(A4*A4+A3) 16013000 + F2=C5/(A5*A5+A3) 16014000 + REW=F1*(TEMP1-A4*Y)+F2*(TEMP1-A5*Y) 16015000 + IF(AX.EQ.0.0) GO TO 120 16016000 + AIMW=F1*(A4*X+TEMP2)+F2*(A5*X+TEMP2) 16017000 + RETURN 16018000 +C 16019000 +C ASYMPTOTIC TERM FOR X.GT.100 OR Y.GT.100 16020000 +C 16021000 + 400 CONTINUE 16022000 + TEST=X*X+Y*Y 16023000 + A1=C1/TEST 16024000 + REW=Y*A1 16025000 + AIMW=X*A1 16026000 + RETURN 16027000 +C 16028000 +C AIMW=0. FOR X=0. 16029000 +C 16030000 + 120 CONTINUE 16031000 + AIMW=0.0 16032000 + RETURN 16033000 + END 16034000 + SUBROUTINE WZERO(ARG,PSIEZ) 16035000 +C ********************************************************** 16036000 +C 16037000 +C SUBROUTINE WZERO CALCULATES THE REAL PART OF W(0,ARG) USING A 16038000 +C RATIONAL APPROXIMATION FOR EXP(ARG*ARG)*ERFC(ARG) 16039000 +C OR VARIOUS RATIONAL APPROXIMATIONS FOR ARG .GE. 2.0 16040000 +C 16041000 +C COMMON/RATION/ ARG,PSIEZ 16042000 +C 16043000 +C SET CONSTANTS FOR RATIONAL APPROXIMATIONS IN DATA STATEMENT 16044000 +C 16045000 + DATA W21/0.5124242/,W22/0.05176536/,Y21/0.2752551/, 16046000 + 1 Y22/2.724745/,W31/0.4613135/,W32/0.09999216/, 16047000 + 2 W33/0.002883894/,Y31/0.1901635/,Y32/1.7844927/, 16048000 + 3 Y33/5.5253437/ 16049000 + IF(ARG.GE.2.0) GO TO 100 16050000 +C 16051000 +C RATIONAL APPROXIMATION 7.1.26 ON PAGE 299 IN HANDBOOK OF 16052000 +C MATHEMATICAL FUNCTIONS WITH FORMULAS, GRAPHS, AND MATHEMATICAL 16053000 +C TABLES, EDITED BY MILTON ABRAMOWITZ AND IRENE A. STEGUN, 16054000 +C NBS APPLED MATHEMATICS SERIES 55, JUNE 1964 16055000 +C 16056000 + T=1.0/(1.0+0.3275911*ARG) 16057000 + PSIEZ=T*(0.254829592+T*(-0.284496736+T*(1.421413741+T* 16058000 + 1 (-1.453152027+T*(1.061405429))))) 16059000 + RETURN 16060000 + 100 CONTINUE 16061000 +C 16062000 +C RATIONAL APPROXIMATIONS BASED ON FORMULAS ON PAGE 328 OF ABOVE 16063000 +C REFERENCED HANDBOOK 16064000 +C 16065000 + IF(ARG.GT.6.0) GO TO 120 16066000 + X=ARG*ARG 16067000 + PSIEZ=ARG*(W31/(X+Y31)+W32/(X+Y32)+W33/(X+Y33)) 16068000 + RETURN 16069000 + 120 CONTINUE 16070000 + IF(ARG.GT.100.0) GO TO 130 16071000 + X=ARG*ARG 16072000 + PSIEZ=ARG*(W21/(X+Y21)+W22/(X+Y22)) 16073000 + RETURN 16074000 + 130 CONTINUE 16075000 +C 16076000 +C 0.5641895835 IS 1/SQRT(PI) 16077000 +C 16078000 + PSIEZ=0.5641895835/ARG 16079000 + RETURN 16080000 + END 16081000 + SUBROUTINE WTABL(N41,N27,AX,AY,TR,TI,TRS,TIS) 16082000 +C ********************************************************** 16083000 +C !!! ATTENZIONE A AX ED AY CHE SONO IN DOUDLE PREC !!! 16084000 +C 16085000 +C SUBROUTINE WTABLE CONTROLS THE CALCULATION AND WRITING OF THE 16086000 +C COURSE AND FINE, REAL AND IMAGINARY PARTS OF THE W TABLE 16087000 +C 16088000 +C SUBROUTINES CALLED BY SUBROUTINE WTABLE 16089000 +C 16090000 +C W CALCULATES REAL AND IMAGINARY COMPLEX 16091000 +C PROBABILITY INTEGRALS 16092000 +C IBCOM# FORTRAN I/O ROUTINE 16093000 +C 16094000 +C DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER 16095000 +C TO PRESERVE ACCURACY. 16096000 +C 16097000 + DOUBLE PRECISION X,Y,REW,AIMW,DELX,DELY,AX,AY 16098000 +C COMMON /UNRDAT/ AX(41),AY(27) 16099000 +C COMMON /TABDAT/ TR(41,27),TI(41,27),TRS(41,27),TIS(41,27) 16100000 + DIMENSION AX(N41),AY(N27) 16101000 + DIMENSION TR(N41,N27),TI(N41,N27),TRS(N41,N27),TIS(N41,N27) 16102000 + AX(1)=-0.1D0 16103000 + AX(2)=0.0D0 16104000 + DELX=0.1D0 16105000 + DO 130 I=3,41 16106000 + AX(I)=AX(I-1)+DELX 16107000 + 130 CONTINUE 16108000 + AY(1)=0.4D0 16109000 + AY(2)=0.5D0 16110000 + DELY=0.1D0 16111000 + DO 140 J=3,27 16112000 + AY(J)=AY(J-1)+DELY 16113000 + 140 CONTINUE 16114000 + 160 CONTINUE 16115000 + DO 170 I=2,41 16116000 + X=AX(I) 16117000 + DO 170 J=1,27 16118000 + Y=AY(J) 16119000 + CALL W(X,Y,REW,AIMW) 16120000 + TR (I,J)=REW 16121000 + TI (I,J)=AIMW 16122000 + 170 CONTINUE 16123000 + DO 180 J=1,27 16124000 + TR (1,J)=TR (3,J) 16125000 + TI (1,J)=-TI (3,J) 16126000 + TI (2,J)=0. 16127000 + 180 CONTINUE 16128000 + AY(1)=-0.02D0 16129000 + AY(2)=0.0D0 16130000 + DELY=0.02D0 16131000 + DO 190 J=3,27 16132000 + AY(J)=AY(J-1)+DELY 16133000 + 190 CONTINUE 16134000 + DO 270 I=2,41 16135000 + X=AX(I) 16136000 + DO 270 J=1,27 16137000 + Y=AY(J) 16138000 + CALL W(X,Y,REW,AIMW) 16139000 + TRS(I,J)=REW 16140000 + TIS(I,J)=AIMW 16141000 + 270 CONTINUE 16142000 + DO 280 J=1,27 16143000 + TRS(1,J)=TRS(3,J) 16144000 + TIS(1,J)=-TIS(3,J) 16145000 + TIS(2,J)=0. 16146000 + 280 CONTINUE 16147000 + RETURN 16148000 + END 16149000 + SUBROUTINE W(REZ,AIM1,REW,AIMW) 16150000 +C *********************************************************** 16151000 +C 16152000 +C SUBROUTINE W CALCULATES REW(REZ,AIM1) AND AIMW(REZ,AIM1) THE 16153000 +C REAL AND IMAGINARY COMPLEX PROBABILITY INTEGRALS 16154000 +C 16155000 +C REZ ARGUMENT REZ AT WHICH REW AND AIMW ARE TO BE 16156000 +C CALCULATED 16157000 +C AIM1 ARGUMENT AIM1 AT WHICH REW AND AIMW ARE TO BE 16158000 +C CALCULATED 16159000 +C REW REAL COMPLEX PROBABILITY INTEGRAL W 16160000 +C AIMW IMAGINARY COMPLEX PROBABILITY INTEGRAL W 16161000 +C 16162000 +C SUBROUTINES CALLED BY SUBROUTINE W 16163000 +C 16164000 +C DABS FORTRAN ABSOLUTE VALUE FUNCTION (DOUBLE 16165000 +C PRECISION) 16166000 +C DEXP FORTRAN EXPONENTIAL FUNCTION (DOUBLE PRECISION) 16167000 +C DCOS FORTRAN COSINE FUNCTION (DOUBLE PRECISION) 16168000 +C DSIN FORTRAN SINE FUNCTION (DOUBLE PRECISION) 16169000 +C 16170000 +C DECLARE DOUBLE PRECISION ALL VARIABLES WHICH ARE NEEDED IN ORDER 16171000 +C TO PRESERVE ACCURACY. 16172000 +C 16173000 + IMPLICIT REAL*8 (A-H,O-Z) 16174000 + REW=0. 16175000 + AIMW=0. 16176000 + AIMZ=DABS(AIM1) 16177000 + ABREZ=DABS(REZ) 16178000 + IF ((ABREZ+AIMZ).NE.0) GO TO 10 16179000 + REW=1. 16180000 + AIMW=0. 16181000 + RETURN 16182000 + 10 CONTINUE 16183000 + R2=REZ*REZ 16184000 + AI2=AIMZ*AIMZ 16185000 + IF (ABREZ+1.25D0*AIMZ.LE.5.) GO TO 40 16186000 + 20 CONTINUE 16187000 + IF (ABREZ+1.1D0*AIMZ-6.6D0) 190,190,180 16188000 + 30 CONTINUE 16189000 + IF (ABREZ+1.43333D0*AIMZ-4.3D0) 210,210,200 16190000 + 40 CONTINUE 16191000 + IF (ABREZ+1.863636D0*AIMZ-4.1D0) 130,130,60 16192000 + 50 CONTINUE 16193000 + IF (AIMZ-1.5) 120,220,220 16194000 + 60 CONTINUE 16195000 + IF (AIMZ-1.4D0) 170,170,30 16196000 + 70 CONTINUE 16197000 + IF (ABREZ+1.07317D0*AIMZ-4.4D0) 210,210,200 16198000 + 80 CONTINUE 16199000 + IF (ABREZ-2.7D0) 290,300,300 16200000 + 90 CONTINUE 16201000 + IF (ABREZ.LT.3.1D0) GO TO 80 16202000 + 100 CONTINUE 16203000 + IF (ABREZ-3.4D0) 310,320,320 16204000 + 110 CONTINUE 16205000 + IF (R2+1.18D0*AI2-5.76D0) 50,90,90 16206000 + 120 CONTINUE 16207000 + IF (R2+1.7227D0*AI2-4.41D0) 270,280,280 16208000 + 130 CONTINUE 16209000 + IF (R2+1.71D0*AI2-2.89D0) 150,110,110 16210000 + 140 CONTINUE 16211000 + IF (R2+1.69D0*AI2-1.69D0) 250,260,260 16212000 + 150 CONTINUE 16213000 + IF (R2+2.0408D0*AI2-1.0) 160,140,140 16214000 + 160 CONTINUE 16215000 + IF (R2+1.5625D0*AI2-0.25D0) 230,240,240 16216000 + 170 CONTINUE 16217000 + IF (ABREZ+1.43333D0*AIMZ-4.3D0) 220,220,70 16218000 + 180 CONTINUE 16219000 + NMAX=1 16220000 + GO TO 340 16221000 + 190 CONTINUE 16222000 + NMAX=2 16223000 + GO TO 340 16224000 + 200 CONTINUE 16225000 + NMAX=3 16226000 + GO TO 340 16227000 + 210 CONTINUE 16228000 + NMAX=4 16229000 + GO TO 340 16230000 + 220 CONTINUE 16231000 + NMAX=6 16232000 + GO TO 340 16233000 + 230 CONTINUE 16234000 + NMAX=2 16235000 + GO TO 330 16236000 + 240 CONTINUE 16237000 + NMAX=3 16238000 + GO TO 330 16239000 + 250 CONTINUE 16240000 + NMAX=4 16241000 + GO TO 330 16242000 + 260 CONTINUE 16243000 + NMAX=5 16244000 + GO TO 330 16245000 + 270 CONTINUE 16246000 + NMAX=6 16247000 + GO TO 330 16248000 + 280 CONTINUE 16249000 + NMAX=7 16250000 + GO TO 330 16251000 + 290 CONTINUE 16252000 + NMAX=8 16253000 + GO TO 330 16254000 + 300 CONTINUE 16255000 + NMAX=9 16256000 + GO TO 330 16257000 + 310 CONTINUE 16258000 + NMAX=10 16259000 + GO TO 330 16260000 + 320 CONTINUE 16261000 + NMAX=11 16262000 + 330 CONTINUE 16263000 + KW=2 16264000 + AIMZ=AIM1 16265000 + GO TO 400 16266000 + 340 CONTINUE 16267000 + KW=1 16268000 + IF (AIM1.GE.0) GO TO 350 16269000 + KW=2 16270000 + AIMZ=AIM1 16271000 + GO TO 400 16272000 +C 16273000 +C W IS OBTAINED FROM ASYMPTOTIC SERIES 16274000 +C 16275000 + 350 CONTINUE 16276000 + RV=R2+R2 -AI2-AI2 16277000 + AK=4.*REZ*AIMZ 16278000 + EL=AK 16279000 + H=0. 16280000 + B=0. 16281000 + A=0. 16282000 + TEMPM=0. 16283000 + TEMEL=0. 16284000 + G=1. 16285000 + C=-1.1283792*AIMZ 16286000 + D=1.1283792*REZ 16287000 + AM=RV-1. 16288000 + AAK=1. 16289000 + K=0 16290000 + 360 CONTINUE 16291000 + AJTEMP=AAK+AAK 16292000 + TEMP4=(1.-AJTEMP)*AJTEMP 16293000 + AJP=RV-(4.*AAK+1.) 16294000 + GO TO 460 16295000 + 370 CONTINUE 16296000 + AAK=AAK+1. 16297000 + K=K+1 16298000 + PR=REW 16299000 + PI=AIMW 16300000 + AMAGN=TEMPM*TEMPM + TEMEL*TEMEL 16301000 + REW=(TEMPC*TEMPM+TEMPD*TEMEL)/AMAGN 16302000 + AIMW=(TEMPM*TEMPD-TEMEL*TEMPC)/AMAGN 16303000 + IF (DABS(REW-PR)-1.D-6) 380,360,360 16304000 + 380 CONTINUE 16305000 + IF (REZ.EQ.0.) GO TO 500 16306000 + IF (DABS(AIMW-PI)-1.D-6) 390,360,360 16307000 + 390 CONTINUE 16308000 + RETURN 16309000 +C 16310000 +C WT IS OBTAINED FROM TAYLOR SERIES 16311000 +C 16312000 + 400 CONTINUE 16313000 + TEMP1=R2+AI2 16314000 + TEMP2=2.*TEMP1*TEMP1 16315000 + AJ=-(R2-AI2)/TEMP2 16316000 + AK=2.*REZ*AIMZ/TEMP2 16317000 + C=0. 16318000 + B=0. 16319000 + AJSIG=0. 16320000 + D=0. 16321000 + JSIG=0 16322000 + G=0. 16323000 + H=0. 16324000 + EL=0. 16325000 + A=1. 16326000 + AM=1. 16327000 + SIGP=1.5 16328000 + EXPON=DEXP(TEMP2*AJ) 16329000 + EXPC=EXPON*DCOS(TEMP2*AK) 16330000 + EXPS=-EXPON*DSIN(TEMP2*AK) 16331000 + SIG2P=SIGP+SIGP 16332000 + 410 CONTINUE 16333000 + AJ4SIG=4.*AJSIG 16334000 + AJ4SM1=AJ4SIG-1. 16335000 + TEMP3=1./(AJ4SM1*(AJ4SIG+3.)) 16336000 + TT4=SIG2P*(AJSIG+AJSIG-1.) 16337000 + TEMP4=TT4/(AJ4SM1*(AJ4SIG+1.)*(AJ4SIG-3.)*AJ4SM1) 16338000 + AJP=AJ+TEMP3 16339000 + GO TO 460 16340000 + 420 CONTINUE 16341000 + AJSIG=AJSIG+1. 16342000 + JSIG=JSIG+1 16343000 + TEMP7=(AM*AM+EL*EL)*1.7724539 16344000 + REF=(AIMZ*(C*AM+D*EL)-REZ*(AM*D-C*EL))/TEMP7/TEMP1 16345000 + AIMF=(AIMZ*(AM*D-C*EL)+REZ*(C*AM+D*EL))/TEMP7/TEMP1 16346000 + PR=REW 16347000 + PI=AIMW 16348000 + REW=EXPC-REF 16349000 + AIMW=EXPS-AIMF 16350000 + IF (DABS(REW-PR)-1.D-6) 430,450,450 16351000 + 430 CONTINUE 16352000 + IF (REZ.EQ.0.) GO TO 500 16353000 + IF (DABS(AIMW-PI)-1.D-6) 440,450,450 16354000 + 440 CONTINUE 16355000 + RETURN 16356000 + 450 CONTINUE 16357000 + SIG2P=AJSIG+AJSIG 16358000 + GO TO 410 16359000 + 460 CONTINUE 16360000 + TEMPC=AJP*C+TEMP4*A-AK*D 16361000 + TEMPD=AJP*D+TEMP4*B+AK*C 16362000 + TEMEL=AJP*EL+TEMP4*H+AK*AM 16363000 + TEMPM=AJP*AM+TEMP4*G-AK*EL 16364000 + A=C 16365000 + B=D 16366000 + G=AM 16367000 + H=EL 16368000 + C=TEMPC 16369000 + D=TEMPD 16370000 + AM=TEMPM 16371000 + EL=TEMEL 16372000 + IF (DABS(TEMPM)+DABS(TEMEL)-1.D15) 480,470,470 16373000 + 470 CONTINUE 16374000 + C=1.D-15*C 16375000 + D=1.D-15*D 16376000 + AM=1.D-15*AM 16377000 + EL=1.D-15*EL 16378000 + TEMPC=1.D-15*TEMPC 16379000 + TEMPD=1.D-15*TEMPD 16380000 + TEMPM=1.D-15*TEMPM 16381000 + TEMEL=1.D-15*TEMEL 16382000 + GO TO 490 16383000 + 480 CONTINUE 16384000 + IF (DABS(TEMPM)+DABS(TEMEL).GT.1.D-15) GO TO 490 16385000 + C=1.D15*C 16386000 + D=1.D15*D 16387000 + AM=1.D15*AM 16388000 + EL=1.D15*EL 16389000 + TEMPC=1.D15*TEMPC 16390000 + TEMPD=1.D15*TEMPD 16391000 + TEMPM=1.D15*TEMPM 16392000 + TEMEL=1.D15*TEMEL 16393000 + 490 CONTINUE 16394000 + GO TO (370,420,510),KW 16395000 + 500 CONTINUE 16396000 + AIMW=0.0 16397000 + 510 CONTINUE 16398000 + RETURN 16399000 + END 16400000 + SUBROUTINE UNRINT ( 16401000 + 2N41,N27,TR,TI,TRS,TIS, 16402000 + 3N150,SIGCAP,SIGFIS,SIGTOT,ZETA,PSIZRO,BETPSI,BBETA, 16403000 + 4BVCTR,PVCTR,RVCTR,GAMTOT,GAMFIS,PSHFT0,PSHFT1,PSHFT2,V1,V2, 16404000 + 5ES,GF,D,GA,GNO,DELTA,GAMCMP,SIGCMP,GX,SIGPOT ) 16405000 +C *************************************************************** 16406000 +C 16407000 +C SUBROUTINE UNRINT IS TAKEN FROM UNRES PROGRAM,WRITTEN BY TOPPEL 16408000 +C (ANL) 16409000 +C 16410000 +C 16411000 +C SUBROUTINE UNRINT CALCULATES THE SINGLE LEVEL UNRESOLVED 16412000 +C RESONANCE INTEGRAL INCLUDING INTERFERENCE SCATTERING. SELF 16413000 +C OVERLAP IS ACCOUNTED FOR TO SECOND ORDER. THE OVERLAP INTEGRAL 16414000 +C CAN BE WRITTEN AS A FIRST ORDER TERM, SAY K1, MINUS A SECOND 16415000 +C ORDER TERM, SAY K2. K1 AND K2 EACH CONSIST OF TWO TERMS, A 16416000 +C LEAD TERM AND A SECOND TERM. THE SECOND TERMS OF K1 AND K2, 16417000 +C SAY L1 AND L2, REQUIRE EVALUATING FOURIER TRANSFORMS OF 16418000 +C VARIOUS EXPRESSIONS. 16419000 +C 16420000 +C SIGCAP UNRESOLVED RESONANT CAPTURE CROSS SECTIONS 16421000 +C SIGFIS UNRESOLVED RESONANT FISSION CROSS SECTIONS 16422000 +C SIGTOT UNRESOLVED RESONANCE TOTAL CROSS SECTIONS 16423000 +C SIGCMP UNRESOLVED RESONANCE COMPETITIVE CROSS SECTIONS 16424000 +C ETA ABSOLUTE VALUE OF THE RATIO OF THE GAUSS- 16425000 +C HERMITE QUADRATURE POINTS TO THE NORMALIZATION 16426000 +C FACTOR ALPHA 16427000 +C GAMTOT AVERAGE TOTAL WIDTHS WORKING ARRAY 16428000 +C GAMFIS AVERAGE FISSION WIDTHS WORKING ARRAY 16429000 +C GAMCMP AVERAGE COMPETITIVE WIDTHS WORKING ARRAY 16430000 +C ZETA RATIO OF TOTAL WIDTHS TO DOPPLER WIDTHS 16431000 +C WORKING ARRAY 16432000 +C PSIZRO PSI(THETA,0) WORKING ARRAY 16433000 +C BETPSI BETA+PSIZRO WORKING ARRAY 16434000 +C BBETA WORKING ARRAY FOR BETA AND WEIGHT. BETA IS THE 16435000 +C RATIO OF SIGMA POTENTIAL TO SIGMA ZERO. 16436000 +C WEIGHT IS THE PRODUCT OF TWO OF THE W VALUES 16437000 +C WHERE W ARE THE PORTER-THOMAS INTEGRATION 16438000 +C WEIGHTS. THE WEIGHTS ARE STORED OFFSET BY 16439000 +C 2*NPORTR*NPORTR BEYOND THE BETAS 16440000 +C E1 WORKING ARRAY 16441000 +C E2 WORKING ARRAY 16442000 +C AMATRX WORKING ARRAY USED DURING MATRIX INVERSION 16443000 +C BVCTR VECTOR B IN A*P=B 16444000 +C AVGGM WORKING ARRAY FOR SECOND TERM OF FIRST 16445000 +C ORDER OVERLAP TERM 16446000 +C AVGFS WORKING ARRAY FOR SECOND TERM OF FIRST 16447000 +C ORDER OVERLAP TERM 16448000 +C AVGTO WORKING ARRAY FOR SECOND TERM FO FIRST 16449000 +C ORDER OVERLAP TERM 16450000 +C AVGCS WORKING ARRAY FOR SECOND TERM OF FIRST 16451000 +C ORDER OVERLAP TERM 16452000 +C NDIM ONE HALF OF THE ORDER OF THE GAUSS-HERMITE 16453000 +C INTEGRATION, NHERM/2 16454000 +C D11 WORKING ARRAY FOR THE LEFT PARTITION OF 16455000 +C THE INVERSE OF MATRIX A IN A*P=B 16456000 +C D12 WORKING ARRAY FOR THE RIGHT PARTITION OF 16457000 +C THE INVERSE OF MATRIX A IN A*P=B 16458000 +C A11 WORKING ARRAY FOR THE LEFT PARTITION OF 16459000 +C THE MATRIX A IN A*P=B 16460000 +C A12 WORKING ARRAY FOR THE RIGHT PARTITION OF 16461000 +C THE MATRIX A IN A*P=B 16462000 +C PVCTR VECTOR P IN A*P=B 16463000 +C RVCTR R VECTOR IN A*R=V 16464000 +C AVGGM2 WORKING ARRAY FOR THE SECOND TERM OF THE SECOND 16465000 +C ORDER OVERLAP TERM 16466000 +C AVGFS2 WORKING ARRAY FOR THE SECOND TERM OF THE SECOND 16467000 +C ORDER OVERLAP TERM 16468000 +C AVGTO2 WORKING ARRAY FOR THE SECOND TERM OF THE SECOND 16469000 +C ORDER OVERLAP TERM 16470000 +C AVGCS2 WORKING ARRAY FOR THE SECOND TERM OF THE SECOND 16471000 +C ORDER OVERLAP TERM 16472000 +C AVGR2 WORKING ARRAY FOR THE SECOND TERM OF THE SECOND 16473000 +C ORDER OVERLAP TERM 16474000 +C ANORM WORKING ARRAY FOR THE DIAGONAL ELEMENTS OF 16475000 +C VECTOR WORKING ARRAY 16476000 +C NPTI NUMBER OF ENERGY POINTS E STAR AT WHICH 16477000 +C UNRESOLVED RESONANCE INTEGRALS WILL BE 16478000 +C CALCULATED FOR THE CURRENT ISOTOPE 16479000 +C ES ENERGY POINTS E STAR AT WHICH RESONANCE 16480000 +C INTEGRALS WILL BE EVALUATED FOR CURRENT ISOTOPE 16481000 +C DELTA DOPPLER LINE WIDTHS 16482000 +C JST NUMBER OF CHANNEL SPIN STATES ASSOCIATED WITH 16483000 +C A PARTICULAR ANGULAR MOMENTUM STATE L 16484000 +C GA AVERAGE RADIATION WIDTHS, EV 16485000 +C D AVERAGE LEVEL SPACINGS, EV 16486000 +C GF AVERAGE FISSION WIDTHS, EV 16487000 +C GNO AVERAGE REDUCED NEUTRON WIDTHS, EV 16488000 +C GX AVERAGE COMPETITIVE WIDTHS, EV 16489000 +C G STATISTICAL FACTOR (2J+1)/(2*(2I+1)) WHERE 16490000 +C J IS THE CHANNEL SPIN AND I IS THE SPIN OF THE 16491000 +C TARGET NUCLEUS 16492000 +C NDFF NUMBER OF DEGREES OF FREEDOM IN THE FISSION 16493000 +C WIDTH DISTRIBUTION (1,2,3, OR 4) 16494000 +C NDFN NUMBER OF DEGREES OF FREEDOM IN THE NEUTRON 16495000 +C WIDTH DISTRIBUTION (1 OR 2) 16496000 +C NDFX NUMBER OF DEGREES OF FREEDOM IN THE COMPETITIVE 16497000 +C WIDTH DISTRIBUTION (0,1,2,3, OR 4) 16498000 +C PSHFT0 L=0 PHASE SHIFTS 16499000 +C PSHFT1 L=1 PHASE SHIFTS 16500000 +C PSHFT2 L=2 PHASE SHIFTS 16501000 +C V1 L=1 PENETRATION FACTORS 16502000 +C V2 L=2 PENETRATION FACTORS 16503000 +C 16504000 +C SIGPOT SCATT POTENZIALE DI RISONANZA (INSERTED BY GALLI) 16505000 +C 16506000 +C SUBPROGRAMS CALLED BY SUBROUTINE UNRINT 16507000 +C 16508000 +C QUICKW PROGRAM SUBROUTINE TO OBTAIN THE REAL AND 16509000 +C IMAGINARY PARTS OF THE W FUNCTION. QUICKW IS 16510000 +C AN ENTRY POINT OF SUBROUTINE QUICK1 16511000 +C SQRT FORTRAN SQUARE ROOT FUNCTION (SINGLE PRECISION) 16512000 +C QUICKJ CALCULATES THE RESONANCE INTEGRALS INCLUDING 16513000 +C INTERFERENCE SCATTERING 16514000 +C ABS FORTRAN ABSOLUTE VALUE FUNCTION 16515000 +C (SINGLE PRECISION) 16516000 +C EXP FORTRAN EXPONENTIAL FUNCTION (SINGLE 16517000 +C PRECISION) 16518000 +C WZERO CALCULATES THE REAL PART OF W(0,ARG) 16519000 +C ALOG FORTRAN LOGARITM FUNCTION (SINGLE PRECISION) 16520000 +C COS FORTRAN COSINE FUNCTION (SINGLE PRECISION) 16521000 +C TAN FORTRAN TANGENT FUNCTION (SINGLE PRECISION) 16522000 +C MATRI1 INVERTS A SQUARE MATRIX 16523000 +C 16524000 +C 16525000 + DIMENSION X(40),XGH(10),WGH(10),E3(5),W(40) 16526000 +C 16527000 + COMMON /DRCUNR/ TEMPM,ABUNDI,AM,CMCOR,LSTI,JSTI,IFIS, 16528000 + 1 NPORTR,NHERM,NHERM2,NOVRLP,MAT,NPTI,RPENTR, 16529000 + 2 RPSHFT,NGUS13,NGUS9,WATE13,WATE9,SIGP11 16530000 + COMMON/INTEGL/ BETA,THETA,A,FJ,PSIZ,H,TEST1,FJN,FJ2N,TERM2,FJT 16531000 +C COMMON/RATION/ARG,PSIEZ 16532000 +C COMMON /UNRDAT/ SIGCAP(150),SIGFIS(150),SIGTOT(150),ETA(5), 16533000 +C 1 AVGGM(5),AVGGM2(5),AVGTO(5),AVGTO2(5),AVGR2(5), 16534000 +C 2 VECTOR(5),AVGFS(5),AVGFS2(5),E1(10),E2(10), 16535000 +C 3 ANORM(10),A11(5,5),A12(5,5),D11(5,5),D12(5,5), 16536000 +C 4 AMATRX(5,5),ZETA(1000),PSIZRO(1000),BETPSI(1000), 16537000 +C 5 BBETA(4000),BVCTR(5,1000),PVCTR(5,1000), 16538000 +C 6 RVCTR(5,1000),GAMTOT(2000),GAMFIS(2000), 16539000 +C 7 PSHFT0(150),PSHFT1(150), 16540000 +C 7 PSHFT2(150),V1(150),V2(150),ES(150), 16541000 +C 8 JST(3),G(12),NDFN(12),NDFF(12),GF(150,12), 16542000 +C 9 D(150,12),GA(150,12),GNO(150,12),DELTA(150), 16543000 +C A GAMCMP(2000),SIGCMP(150),AVGCS(5),AVGCS2(5), 16544000 +C B NDFX(12),GX(150,12) 16545000 + COMMON /UNRDAT/ ETA(5), 16546000 + 1 AVGGM(5),AVGGM2(5),AVGTO(5),AVGTO2(5),AVGR2(5), 16547000 + 2 VECTOR(5),AVGFS(5),AVGFS2(5),E1(10),E2(10), 16548000 + 3 ANORM(10),A11(5,5),A12(5,5),D11(5,5),D12(5,5), 16549000 + 4 AMATRX(5,5), 16550000 + 8 JST(3),G(12),NDFN(12),NDFF(12), 16551000 + A AVGCS(5),AVGCS2(5), 16552000 + B NDFX(12) 16553000 + DIMENSION SIGCAP(N150),SIGFIS(N150),SIGTOT(N150),ZETA(1000), 16554000 + 1 PSIZRO(1000),BETPSI(1000),BBETA(4000),BVCTR(5,1000), 16555000 + 2 PVCTR(5,1000),RVCTR(5,1000),GAMTOT(2000),GAMFIS(2000), 16556000 + 3 PSHFT0(N150),PSHFT1(N150),PSHFT2(N150),V1(N150), 16557000 + 4 V2(N150),ES(N150),GF(N150,12),D(N150,12),GA(N150,12), 16558000 + 5 GNO(N150,12),DELTA(N150),GAMCMP(2000),SIGCMP(N150), 16559000 + 6 GX(N150,12) 16560000 +C 16561000 + DIMENSION SIGPOT(N150) 16562000 + DIMENSION TI(N41,N27),TR(N41,N27),TRS(N41,N27),TIS(N41,N27) 16563000 +C 16564000 +C CONSTANTS FOR PORTER-THOMAS INTEGRATION. X(1)-X(10) ARE FOR 1 16565000 +C DEGREE OF FREEDOM, X(11)-X(20) ARE FOR 2 DEGREES OF FREEDOM, ETC. 16566000 + DATA X/ 3.0013465E-03,7.8592886E-02,4.3282415E-01,1.3345267E+00, 16567000 + 1 3.0481846E+00,5.8263198E+00,9.9452656E+00,1.5782128E+01, 16568000 + 2 2.3996824E+01,3.6216208E+01, 16569000 + 3 1.3219203E-02,7.2349624E-02,1.9089473E-01,3.9528842E-01, 16570000 + 4 7.4083443E-01,1.3498293E+00,2.5297983E+00,5.2384894E+00, 16571000 + 5 1.3821772E+01,7.5647525E+01, 16572000 + 6 1.0004488E-03,2.6197629E-02,1.4427472E-01,4.4484223E-01, 16573000 + 7 1.0160615E+00,1.9421066E+00,3.3150885E+00,5.2607092E+00, 16574000 + 8 7.9989414E+00,1.2072069E+01, 16575000 + 9 1.3219203E-02,7.2349624E-02,1.9089473E-01,3.9528842E-01, 16576000 + A 7.4083443E-01,1.3498293E+00,2.5297983E+00,5.2384894E+00, 16577000 + B 1.3821772E+01,7.5647525E+01/ 16578000 +C 16579000 +C CORRESPONDING WEIGHTS FOR THE PORTER-THOMAS INTEGRATION 16580000 +C 16581000 + DATA W/ 1.1120413E-01,2.3546798E-01,2.8440987E-01,2.2419127E-01, 16582000 + 1 1.0967668E-01,3.0493789E-02,4.2930874E-03,2.5827047E-04, 16583000 + 2 4.9031965E-06,1.4079206E-08, 16584000 + 3 3.3773418E-02,7.9932171E-02,1.2835937E-01,1.7652616E-01, 16585000 + 4 2.1347043E-01,2.1154965E-01,1.3365186E-01,2.2630659E-02, 16586000 + 5 1.6313638E-05,0.0, 16587000 + 6 3.3376214E-04,1.8506108E-02,1.2309946E-01,2.9918923E-01, 16588000 + 7 3.3431475E-01,1.7766657E-01,4.2695894E-02,4.0760575E-03, 16589000 + 8 1.1766115E-04,5.0989546E-07, 16590000 + 9 1.7623788E-03,2.1517749E-02,8.0979849E-02,1.8797998E-01, 16591000 + A 3.0156335E-01,2.9616091E-01,1.0775649E-01,2.5171914E-03, 16592000 + B 8.9630388E-10,0.0/ 16593000 +C 16594000 +C ABSCISSA FOR 10 POINT GAUSS-HERMITE INTEGRATION 16595000 +C 16596000 + DATA XGH/3.436159119,2.532731674,1.756683649,1.036610830, 16597000 + 1 0.3429013272,-3.436159119,-2.532731674,-1.756683649, 16598000 + 2 -1.036610830,-0.3429013272/ 16599000 +C 16600000 +C WEIGHTS FOR 10 POINT GAUSS-HERMITE INTEGRATION 16601000 +C 16602000 + DATA WGH/0.7640432855E-5,0.1343645747E-2,0.3387439446E-1, 16603000 + 1 0.2401386111,0.6108626337,0.7640432855E-5, 16604000 + 2 0.1343645747E-2,0.3387439446E-1,0.2401386111, 16605000 + 3 0.6108626337/ 16606000 +C 16607000 +C E3=EXP(XGH*XGH) 16608000 +C 16609000 + DATA E3/0.1342138216E06,0.6107756657E03,0.2188797595E02, 16610000 + 1 0.2928709882E01,0.1124773093E01/ 16611000 +C 16612000 +C 16613000 +C 0.636619772 IS 2/PI 16614000 +C 1.591549431 IS 1/(2*PI) 16615000 +C 0.101321184 IS 1/(PI*PI) 16616000 +C 1.253314137 IS SQRT OF (PI/2) 16617000 +C 0.353553391 IS 1/(2*SQRT(2)) 16618000 +C 0.707106781 IS 1/(SQRT(2)) 16619000 +C 0.626657069 IS SQRT(PI)/(2*SQRT(2)) 16620000 +C 0.797884561 IS SQRT(2/PI) 16621000 +C 0.318309886 IS 1/PI 16622000 +C 0.392699082 IS PI/8 16623000 +C 1.570796327 IS PI/2 16624000 +C 0.7853981633 IS PI/4 16625000 +C 0.8862269254 IS SQRT(PI)/2 16626000 +C 16627000 +C 16628000 +C ELIMINATE ANY 0 FROM THE NDFF AND NDFN ARRAYS 16629000 +C ALLOW A MAXIMUM OF 4 DEGREES OF FREEDOM FOR COMPETITIVE WIDTH 16630000 +C 16631000 + DO 350 I=1,JSTI 16632000 + IF(NDFF(I).EQ.0) NDFF(I)=1 16633000 + IF(NDFN(I).EQ.0) NDFN(I)=1 16634000 + IF (NDFX(I).GT.4) NDFX(I)=4 16635000 + 350 CONTINUE 16636000 +C 16637000 +C INTFIS IS SET EQUAL TO 1 FOR NON-FISSILE MATERIALS AND 16638000 +C SET TO NPORTR FOR FISSILE MATERIALS. INTFIS IS A LOOP INDEX 16639000 +C LIMIT FOR THE PORTER THOMAS INTEGRATION OF THE FISSION WIDTHS 16640000 +C 16641000 + INTFIS=1 16642000 + IF (IFIS.NE.0) INTFIS=NPORTR 16643000 +C 16644000 +C OFFSET IN ARRAYS GAMTOT, GAMFIS, AND BBETA FOR USE IN THE 16645000 +C ASYMPTOTIC TERMS OF THE GAUSS-HERMITE INTEGRATION 16646000 +C 16647000 + JOG1=NPORTR*NPORTR 16648000 + IF(IFIS.EQ.1) JOG1=JOG1*NPORTR 16649000 +C 16650000 +C OFFSET IN ARRAY BBETA FOR THE WEIGHTS WHICH ARE THE PRODUCT OF 16651000 +C TWO OF THE W VALUES 16652000 +C 16653000 + JOG2=2*JOG1 16654000 + SQTTEM=SQRT(TEMPM) 16655000 +C 16656000 +C INITIALIZE SIGCAP, SIGFIS, SIGTOT, SIGCMP 16657000 +C 16658000 + DO 140 N=1,NPTI 16659000 +C 16660000 + SIGCMP(N)=0. 16661000 + SIGCAP(N)=0. 16662000 + SIGTOT(N)=0. 16663000 + SIGFIS(N)=0. 16664000 + 140 CONTINUE 16665000 +C 16666000 +C 16667000 +C LOOP OVER ENERGY POINTS E STAR 16668000 +C 16669000 + DO 100 NN=1,NPTI 16670000 + DEL=DELTA(NN)*SQTTEM 16671000 +C 16672000 +C RECIPROCAL OF DELTA, THE DOPPLER LINE WIDTH 16673000 +C 16674000 + DELTIN=1.0/DEL 16675000 + SRE=SQRT(ES(NN)) 16676000 + JOG=0 16677000 +C 16678000 + SIGP = SIGP11+SIGPOT(NN) 16679000 +C 16680000 +C LOOP OVER L STATES 16681000 +C 16682000 + DO 130 LL=1,LSTI 16683000 +C 16684000 +C SET PENETRATION FACTORS AND PHASE ANGLES 16685000 +C 16686000 + IF(LL.NE.1) GO TO 192 16687000 + V=1.0 16688000 + ANGLE=PSHFT0(NN) 16689000 + GO TO 190 16690000 + 192 CONTINUE 16691000 + IF(LL.NE.2) GO TO 194 16692000 + V=V1(NN) 16693000 + ANGLE=PSHFT1(NN) 16694000 + GO TO 190 16695000 + 194 CONTINUE 16696000 + V=V2(NN) 16697000 + ANGLE=PSHFT2(NN) 16698000 + 190 CONTINUE 16699000 +C 16700000 +C INTERFERENCE FACTOR A 16701000 +C 16702000 + ANGLE2=2.0*ANGLE 16703000 + A=0.5*TAN(ANGLE2) 16704000 + FACTOR=COS(ANGLE2) 16705000 + JS=JST(LL) 16706000 + IF(LL.GT.1) JOG=JOG+JST(LL-1) 16707000 +C 16708000 +C LOOP OVER J STATES 16709000 +C 16710000 + DO 130 JJ=1,JS 16711000 + BARJ=0. 16712000 + TBARJ=0. 16713000 + FBARJ=0. 16714000 + BARJN=0. 16715000 + TBARJN=0. 16716000 + FBARJN=0. 16717000 + CBARJ=0. 16718000 + CBARJN=0. 16719000 + FC=0. 16720000 + FC2=0. 16721000 + FG=0. 16722000 + FG2=0. 16723000 + FF=0. 16724000 + FF2=0. 16725000 + FT=0. 16726000 + FT2=0. 16727000 + OVG=0. 16728000 + OVF=0. 16729000 + OVT=0. 16730000 + OVC=0. 16731000 + OVERLC=0. 16732000 + OVERLG=0. 16733000 + OVERLF=0. 16734000 + OVERLT=0. 16735000 + INS=0 16736000 + IAS=0 16737000 + AVGAM=0. 16738000 + AVIND=0. 16739000 + AVINDF=0. 16740000 + AVINDT=0. 16741000 + AVINDC=0. 16742000 + SEC=0. 16743000 + TBARJ2=0. 16744000 + SEG=0. 16745000 + SEF=0. 16746000 + SET=0. 16747000 + JL=JJ+JOG 16748000 + NDNOFF=NPORTR*(NDFN(JL)-1) 16749000 + NDFOFF=NPORTR*(NDFF(JL)-1) 16750000 + NDXOFF=NPORTR*(NDFX(JL)-1) 16751000 +C 16752000 +C CHECK TO DETERMINE WHETHER THERE IS A COMPETITIVE WIDTH 16753000 +C 16754000 + INTCMP=1 16755000 + GXX=GX(NN,JL) 16756000 + IF (GXX.GT.0.0.AND.NDXOFF.GE.0) INTCMP=NPORTR 16757000 + AMU=NDFN(JL) 16758000 + AVD=D(NN,JL) 16759000 + AVD1=1.0/AVD 16760000 + GAMCAP=GA(NN,JL) 16761000 +C 16762000 +C PORTER-THOMAS AVERAGING FOR THE LEAD TERM OF THE RESONANCE 16763000 +C INTEGRALS AND THE LEAD TERMS OF THE FIRST AND SECOND ORDER PARTS 16764000 +C OF THE OVERLAP INTEGRALS 16765000 +C 16766000 +C PORTER-THOMAS INTEGRATION FOR THE COMPETITIVE WIDTH 16767000 +C 16768000 + DO 200 L=1,INTCMP 16769000 + WGTX=1.0 16770000 + IF (INTCMP.EQ.1) GO TO 500 16771000 + INDEXC=L+NDXOFF 16772000 + WGTX=W(INDEXC) 16773000 + GXX=GX(NN,JL)*X(INDEXC) 16774000 + 500 CONTINUE 16775000 +C 16776000 +C PORTER-THOMAS INTEGRATION FOR THE NEUTRON WIDTH 16777000 +C 16778000 + DO 200 J=1,NPORTR 16779000 + INDEXN=J+NDNOFF 16780000 + GN=GNO(NN,JL)*SRE*V*AMU*X(INDEXN) 16781000 + WEIGHT=WGTX*W(INDEXN) 16782000 +C 16783000 +C PORTER-THOMAS INTEGRATION FOR FISSION WIDTH 16784000 +C 16785000 + DO 200 K=1,INTFIS 16786000 + IF(IFIS.EQ.0) GO TO 210 16787000 + INDEXF=K+NDFOFF 16788000 + WEIGHT=WGTX*W(INDEXN)*W(INDEXF) 16789000 + GFF=GF(NN,JL)*X(INDEXF) 16790000 + GAM=GN+GFF+GAMCAP+GXX 16791000 + THETA=GAM*DELTIN 16792000 + WHY=0.5*THETA 16793000 + SIG0=ABUNDI*2.6039953E06*G(JL)*GN*CMCOR/(ES(NN)*GAM) 16794000 + BETA=SIGP/(SIG0*FACTOR) 16795000 + BETA1=1.0/BETA 16796000 + BETA1P=BETA1*1.570796327 16797000 +C*****CALL QUICKJ*******************************************************16798000 + CALL QUICKJ(N41,N27,TR,TI,TRS,TIS) 16799000 +C 16800000 +C THE RESONANCE INTEGRAL IS RETURNED IN FJ IN COMMON/INTEGL/ 16801000 +C THE RESONANCE INTEGRAL WITHOUT INTERFERENCE SCATTERING IS 16802000 +C RETURNED IN FJN IN COMMON/INTEGL/ 16803000 +C 16804000 +C 16805000 + GO TO 220 16806000 +C 16807000 +C THE MATERIAL IS NOT FISSILE 16808000 +C 16809000 + 210 CONTINUE 16810000 + GAM=GN+GAMCAP+GXX 16811000 + THETA=GAM*DELTIN 16812000 + WHY=0.5*THETA 16813000 + SIG0=ABUNDI*2.6039953E06*G(JL)*GN*CMCOR/(ES(NN)*GAM) 16814000 + BETA=SIGP/(SIG0*FACTOR) 16815000 + BETA1=1.0/BETA 16816000 + BETA1P=BETA1*1.570796327 16817000 +C*****CALL QUICKJ*******************************************************16818000 + CALL QUICKJ(N41,N27,TR,TI,TRS,TIS) 16819000 +C 16820000 +C THE RESONANCE INTEGRAL IS RETURNED IN FJ IN COMMON/INTEGL/ 16821000 +C THE RESONANCE INTEGRAL WITHOUT INTERFERENCE SCATTERING IS 16822000 +C RETURNED IN FJN IN COMMON/INTEGL/. THE INTEGRAL OF 16823000 +C BETA*PSI/(BETA+PSI)**2 WITHOUT INTERFERENCE SCATTERING IS 16824000 +C RETURNED IN FJ2N IN COMMON/INTEGL/. THE TOTAL RESONANCE INTEGRAL 16825000 +C IS RETURNED IN FJT IN COMMON/INTEGL/ 16826000 +C 16827000 + 220 CONTINUE 16828000 + BARJ=BARJ+FJ*WEIGHT 16829000 + BARJN=BARJN+FJN*WEIGHT 16830000 + GW=GAM*WEIGHT 16831000 + TBARJ=TBARJ+FJT*GW 16832000 + TBARJN=TBARJN+FJN*GW 16833000 + IF(IFIS.EQ.0) GO TO 225 16834000 + GFW=GFF*WEIGHT 16835000 + FBARJ=FBARJ+FJ*GFW 16836000 + FBARJN=FBARJN+FJN*GFW 16837000 + 225 CONTINUE 16838000 + GXW=GXX*WEIGHT 16839000 + CBARJ=CBARJ+FJ*GXW 16840000 + CBARJN=CBARJN+FJN*GXW 16841000 +C EVALUATE 1/BETA TIMES THE INTEGRAL OF PSI**2/(BETA+PSI) 16842000 +C ****** LE PRIME DUE RIGHE DENTRO IF ERANO FUORI. H NON E DEFINITO 16843004 +C *** PER IF VERIFICATO, DAVA OVERFLOW ** GALLI - 16 - 7 - 87 ***** 16844004 + IF(TEST1.LT.4.5) GO TO 235 16845000 + TEMPID=BETA1P*PSIZ/H-TERM2 16846004 + AVIND=AVIND+TEMPID*WEIGHT 16847004 + AVINDT=AVINDT+GW *TEMPID 16848000 + IF(IFIS.EQ.1) AVINDF=AVINDF+GFW*TEMPID 16849000 + AVINDC=AVINDC+GXW*TEMPID 16850000 + GO TO 255 16851000 + 235 CONTINUE 16852000 + BETAFJ=BETA1P-FJN 16853000 + AVIND=AVIND+BETAFJ*WEIGHT 16854000 + AVINDT=AVINDT+GW *BETAFJ 16855000 + IF(IFIS.EQ.1) AVINDF=AVINDF+GFW*BETAFJ 16856000 + AVINDC=AVINDC+GXW*BETAFJ 16857000 + 255 CONTINUE 16858000 +C 16859000 +C EVALUATE GAMMA TOTAL*BETA*PSI/(BETA+PSI)**2 16860000 +C 16861000 + TBARJ2=TBARJ2+FJ2N*GW 16862000 +C 16863000 +C EVALUATE GAMMA TOTAL*SQRT((BETA+1)/BETA) 16864000 +C 16865000 + AVGAM=AVGAM+GW *SQRT((BETA+1.0)*BETA1) 16866000 +C 16867000 +C TEST1 IS USED TO CHECK FOR APPLICABILITY OF THE ASYMPTOTIC 16868000 +C EXPRESSIONS FOR THE FOURIER TRANSFORM OF PSI/(PSI+BETA) 16869000 +C 16870000 + IF(TEST1.GE.2.5) GO TO 230 16871000 +C 16872000 +C SET UP FOR NON-ASYMPTOTIC TERMS OF THE GAUSS-HERMITE 16873000 +C INTEGRATION. INS IS THE NUMBER OF PORTER THOMAS POINTS GOING 16874000 +C TO THE NON-ASYMPTOTIC PART OF THE OVERLAP INTEGRAL 16875000 +C 16876000 + INS=INS+1 16877000 + IF(INS.GT.2000) CALL ERR(8HUNRINT ,230) 16878000 + BBETA(INS)=BETA 16879000 + GAMTOT(INS)=GAM 16880000 + INSOFF=INS+JOG2 16881000 + IF(INSOFF.GT.4000) CALL ERR(8HUNRINT ,231) 16882000 + BBETA(INSOFF)=WEIGHT 16883000 + IF(IFIS.EQ.1) GAMFIS(INS)=GFF 16884000 + GAMCMP(INS)=GXX 16885000 + GO TO 200 16886000 +C 16887000 +C SET UP FOR ASYMPTOTIC TERMS OF THE GAUSS-HERMITE 16888000 +C INTEGRATION. IAS IS THE NUMBER OF PORTER THOMAS POINTS GOING 16889000 +C TO THE ASYMPTOTIC PART OF THE OVERLAP INTEGRALS 16890000 +C 16891000 + 230 CONTINUE 16892000 + IAS=IAS+1 16893000 + IF(IAS.GT.1000) CALL ERR(8HUNRINT ,232) 16894000 + ZETA(IAS)=THETA 16895000 +C 16896000 +C ASYMPTOTIC TERMS FOR GAM, GFF, AND BETA STORED OFFSET IN GAMTOT, 16897000 +C GAMFIS, AND BBETA ARRAYS. JOG1 WAS SET AT THE BEGINNING OF THE 16898000 +C SUBROUTINE 16899000 +C 16900000 + JJJ=IAS+JOG1 16901000 + IF(JJJ.GT.2000) CALL ERR(8HUNRINT ,233) 16902000 + GAMTOT(JJJ)=GAM 16903000 + IF(IFIS.EQ.1) GAMFIS(JJJ)=GFF 16904000 + GAMCMP(JJJ)=GXX 16905000 + BBETA(JJJ)=BETA 16906000 + KKK=JJJ+JOG2 16907000 + IF(KKK.GT.4000) CALL ERR(8HUNRINT ,235) 16908000 + BBETA(KKK)=WEIGHT 16909000 +C 16910000 +C PSIZ AND H ARE CALCULATED IN SUBROUTINE QUICKJ AND PASSED IN 16911000 +C COMMON/INTEGL/ BUT ONLY FOR TEST1.GE.4.5 16912000 +C 16913000 + IF(TEST1.GE.4.5) GO TO 215 16914000 + ARG=1.41421356237*WHY 16915000 +C*****CALL WZERO********************************************************16916000 + CALL WZERO(ARG,PSIEZ) 16917000 + PSIZ=0.8862269254*ARG*PSIEZ 16918000 + H=PSIZ+BETA 16919000 + 215 CONTINUE 16920000 + PSIZRO(IAS)=PSIZ 16921000 + BETPSI(IAS)=H 16922000 + 200 CONTINUE 16923000 +C 16924000 +C AVERAGE OF GAMMAX*J/AVERAGE D FOR X EQUAL CAPTURE AND FISSION, 16925000 +C GAMMA TOTAL*J/AVERAGE D, GAMMAX/(BETA*AVERAGE D), 16926000 +C GAMMA TOTAL/(BETA*AVERAGE D), AND (BETA/AVERAGE D)* 16927000 +C PSI/(BETA+PSI)**2 16928000 +C 16929000 + BARJ= BARJ*GAMCAP*AVD1 16930000 + TBARJ= TBARJ*AVD1 16931000 + IF(IFIS.EQ.1) FBARJ= FBARJ*AVD1 16932000 + CBARJ=CBARJ*AVD1 16933000 +C 16934000 +C TEST TO SEE IF THE OVERLAP INTEGRAL IS TO BE IGNORED. THIS IS 16935000 +C USER DETERMINED. THE OVERLAP INTEGRAL CAN BE WRITTEN AS K1-K2 16936000 +C WHERE K1= A LEAD TERM-L1 AND K2= A LEAD TERM-L2. L1 AND L2 REQUIRE16937000 +C INTEGRATION OVER THE CORRELATION FUNCTION WHICH GIVES THE 16938000 +C PROBABILITY OF A RESONANCE K BEING FOUND AT A SEPARATION EK-EJ 16939000 +C FROM A RESONANCE J 16940000 +C 16941000 +C 16942000 +C GO TO 240 IF THERE IS NO OVERLAP INTEGRAL. THIS IS USER SPECIFIED 16943000 +C 16944000 + IF(NOVRLP.LE.0) GO TO 240 16945000 +C 16946000 +C TEST WHETHER OVERLAP CAN BE IGNORED OWING TO AN EXCESSIVELY 16947000 +C LARGE VALUE FOR BETA. THIS WILL BE REFLECTED IN A SMALL VALUE 16948000 +C FOR TBARJ2 WHICH IS INVERSELY PROPORTIONAL TO BETA 16949000 +C 16950000 + IF(TBARJ2.LT.1.0E-10) GO TO 240 16951000 + BARJN= BARJN*GAMCAP*AVD1 16952000 + TBARJN= TBARJN*AVD1 16953000 + AVIND= AVIND*GAMCAP*AVD1 16954000 + AVINDT= AVINDT*AVD1 16955000 + IF(IFIS.EQ.0) GO TO 245 16956000 + FBARJN= FBARJN*AVD1 16957000 + AVINDF= AVINDF*AVD1 16958000 + 245 CONTINUE 16959000 + CBARJN=CBARJN*AVD1 16960000 + AVINDC=AVINDC*AVD1 16961000 + TBARJ2= TBARJ2*AVD1 16962000 +C 16963000 +C COMBINE TERMS TO OBTAIN THE LEAD TERM OF K2, THE SECOND ORDER 16964000 +C TERM OF THE OVERLAP INTEGRAL. THE LEAD TERM OF K1, THE FIRST 16965000 +C ORDER TERM ONLY INVOLVES BARJN AND TBARJN 16966000 +C 16967000 + SEG=AVIND*TBARJ2 16968000 + SET=AVINDT*TBARJ2 16969000 + IF(IFIS.EQ.1) SEF=AVINDF*TBARJ2 16970000 + SEC=AVINDC*TBARJ2 16971000 +C 16972000 +C ALPHA IS THE FACTOR TO CONVERT THE OVERLAP INTEGRAL TO THE 16973000 +C GAUSS-HERMITE FORM 16974000 +C 16975000 + ALPHA=SQRT(0.5*DEL*DEL+.1013212*AVD*AVD+AVGAM*AVGAM) 16976000 + ALPHA1=1.0/ALPHA 16977000 + ALPHA2=ALPHA1*ALPHA1 16978000 + DO 250 N=1,NHERM2 16979000 +C 16980000 +C INITIALIZE WORKING ARRAYS FOR USE IN CALCULATING L1 AND L2 THE 16981000 +C SECOND TERMS OF THE FIRST AND SECOND ORDER TERMS OF THE OVERLAP 16982000 +C INTEGRALS AND SET ETA, E1, AND E2 16983000 +C 16984000 + AVGGM(N)=0. 16985000 + AVGGM2(N)=0. 16986000 + AVGCS(N)=0. 16987000 + AVGCS2(N)=0. 16988000 + AVGFS(N)=0. 16989000 + AVGFS2(N)=0. 16990000 + AVGTO(N)=0. 16991000 + AVGTO2(N)=0. 16992000 + AVGR2(N)=0. 16993000 + ETA(N)=XGH(N)*ALPHA1 16994000 + ARG1=ETA(N)*ETA(N) 16995000 + E1(N)=EXP((AVGAM*AVGAM+.1013212*AVD*AVD)*ARG1) 16996000 + N5=N+NHERM2 16997000 +C 16998000 +C INVOKE THE SYMMETRY PROPERTY OF E1 16999000 +C 17000000 + E1(N5)=E1(N) 17001000 + E2(N)=EXP(0.25*DEL*DEL*ARG1) 17002000 +C 17003000 +C INVOKE THE SYMMETRY PROPERTY OF E2 17004000 +C 17005000 + E2(N5)=E2(N) 17006000 + 250 CONTINUE 17007000 +C 17008000 +C GO TO 260 IF THERE ARE NO NON-ASYMPTOTIC CONTRIBUTIONS 17009000 +C 17010000 + IF(INS.EQ.0) GO TO 260 17011000 +C 17012000 +C OBTAIN THE FOURIER TRANSFORM OF THE J INTEGRAL AND RELATED 17013000 +C QUANTITES FOR THE NON-ASYMPTOTIC CASES FOR USE IN THE EVALUATION 17014000 +C OF THE TERMS L1 AND L2. THIS REQUIRES SOLUTION OF AN INTEGRAL 17015000 +C EQUATION USING MATRIX INVERSION 17016000 +C 17017000 + DO 270 NINS=1,INS 17018000 + BBB=BBETA(NINS) 17019000 + GMM=GAMTOT(NINS) 17020000 +C 17021000 +C SET UP THE ELEMENTS FOR MATRICES A11, A12, AND AMATRX AND THE 17022000 +C ELEMENTS OF THE B VECTOR, AND NORMALIZE THE DIAGONAL ELEMENTS 17023000 +C OF MATRIX A11 (AND AMATRX) TO UNITY 17024000 +C 17025000 + DO 280 I=1,NHERM2 17026000 + YY=XGH(I) 17027000 + ARG1=ETA(I) 17028000 + BVCTR(I,NINS)=1.253314137*EXP(-0.5*GMM*ARG1) 17029000 +C 17030000 +C DIAGONAL ELEMENT OF MATRIX A IN A*P=B 17031000 +C 17032000 + ANORM(I)=E2(I)*(BBB+0.25*GMM*WGH(I)*E3(I)*ALPHA1) 17033000 + VECTOR(I)=BVCTR(I,NINS)/ANORM(I) 17034000 + DO 280 J=1,NHERM 17035000 + XX=XGH(J) 17036000 + FCTR=0.25*GMM*ALPHA1*WGH(J)*E1(J)*E2(J)*EXP(0.5*DEL*DEL* 17037000 + 1 XX*YY*ALPHA2-0.5*GMM*ABS(YY-XX)*ALPHA1)/ANORM(I) 17038000 + IF(I.EQ.J) GO TO 290 17039000 + IF(J.LE.NHERM2) GO TO 285 17040000 + J5=J-NHERM2 17041000 + A12(I,J5)=FCTR 17042000 + GO TO 280 17043000 + 285 CONTINUE 17044000 + A11(I,J)=FCTR 17045000 + GO TO 280 17046000 + 290 CONTINUE 17047000 + A11(I,J)=1.0 17048000 + 280 CONTINUE 17049000 +C 17050000 +C THE CODING THROUGH STATEMENT 340 ACCOMPLISHES THE INVERSION OF 17051000 +C THE MATRIX A IN A*P=B 17052000 +C 17053000 + DO 300 J=1,NHERM2 17054000 + DO 300 I=1,NHERM2 17055000 + AMATRX(I,J)=A11(I,J) 17056000 + 300 CONTINUE 17057000 +C 17058000 +C A11 AND AMATRX ARE NOW EACH THE UPPER LEFT PARTITION OF MATRIX A 17059000 +C AND A12 IS THE UPPER RIGHT PARTITION OF MATRIX A IN A*P=B 17060000 +C 17061000 +C*****CALL MATRIX***(MATRI1 IN THIS VERSION OF THE ROUTINE )************17062000 + CALL MATRI1(A11,NHERM2) 17063000 +C 17064000 +C A11 IS NOW THE INVERSE OF THE UPPER LEFT PARTITION OF A11, 1/A11 17065000 +C 17066000 + DO 310 J=1,NHERM2 17067000 + DO 310 K=1,NHERM2 17068000 +C 17069000 +C D11 WILL BE THE UPPER LEFT PARTITION OF THE INVERSE OF MATRIX A IN17070000 +C A*P=B 17071000 +C 17072000 + D11(J,K)=0. 17073000 + DO 320 M1=1,NHERM2 17074000 + IF(J.GT.1) GO TO 335 17075000 +C 17076000 +C USE D12 AS A TEMPORARY WORKING ARRAY 17077000 +C 17078000 + D12(M1,K)=0. 17079000 + DO 330 N=1,NHERM2 17080000 + D12(M1,K)=D12(M1,K)+A11(M1,N)*A12(N,K) 17081000 + 330 CONTINUE 17082000 +C 17083000 +C D12 IS NOW (1/A11)*A12 17084000 +C 17085000 + 335 CONTINUE 17086000 + D11(J,K)=D11(J,K)+A12(J,M1)*D12(M1,K) 17087000 + 320 CONTINUE 17088000 +C 17089000 +C D11 IS NOW A12*(1/A11)*A12 17090000 +C 17091000 + D11(J,K)=AMATRX(J,K)-D11(J,K) 17092000 +C 17093000 +C D11 IS NOW A11-A12*(1/A11)*A12 17094000 +C 17095000 + 310 CONTINUE 17096000 +C*****CALL MATRIX*******************************************************17097000 + CALL MATRI1(D11,NHERM2) 17098000 +C 17099000 +C D11 IS NOW THE LEFT PARTITION OF THE INVERSE OF MATRIX A IN A*P=B 17100000 +C 17101000 + DO 360 K=1,NHERM2 17102000 + DO 360 J=1,NHERM2 17103000 + AMATRX(J,K)=-D12(J,K) 17104000 + 360 CONTINUE 17105000 +C 17106000 +C AMATRX IS NOW -(1/A11)*A12 17107000 +C 17108000 + DO 340 K=1,NHERM2 17109000 + DO 340 J=1,NHERM2 17110000 +C 17111000 +C D12 WILL BE THE UPPER RIGHT PARTITION OF THE INVERSE OF MATRIX A 17112000 +C IN A*P=B 17113000 +C 17114000 + D12(J,K)=0. 17115000 + DO 340 I=1,NHERM2 17116000 + D12(J,K)=D12(J,K)+AMATRX(J,I)*D11(I,K) 17117000 + 340 CONTINUE 17118000 +C 17119000 +C D12 IS NOW THE UPPER RIGHT PARTITION OF THE INVERSE OF MATRIX A IN17120000 +C A*P=B 17121000 +C 17122000 +C 17123000 +C THE INVERSION OF MATRIX A IN A*P=B IS NOW COMPLETE 17124000 +C 17125000 +C 17126000 +C COMPUTE THE P VECTOR IN A*P=B USING P=D*B WHERE P IS THE 17127000 +C FOURIER TRANSFORM OF THE J INTEGRAL FOR THE NON-ASYMPTOTIC CASES 17128000 +C 17129000 + DO 370 I=1,NHERM2 17130000 + PVCTR(I,NINS)=0. 17131000 + DO 370 J=1,NHERM2 17132000 + PVCTR(I,NINS)=PVCTR(I,NINS)+VECTOR(J)*(D11(I,J)+D12(I,J)) 17133000 + 370 CONTINUE 17134000 +C 17135000 +C COMPUTE THE R VECTOR IN A*R=V USING R=D*V WHERE R IS MINUS 17136000 +C BETA TIMES THE BETA DERIVATIVE OF THE FOURIER TRANSFORM 17137000 +C OF THE J INTEGRAL FOR THE NON-ASYMPTOTIC CASES. 17138000 +C 17139000 + DO 380 I=1,NHERM2 17140000 + RVCTR(I,NINS)=0. 17141000 + DO 380 J=1,NHERM2 17142000 + ANORM1=1.0/ANORM(J) 17143000 + RVCTR(I,NINS)=RVCTR(I,NINS)+PVCTR(J,NINS)*E2(J)*ANORM1* 17144000 + 1 (D11(I,J)+D12(I,J)) 17145000 + 380 CONTINUE 17146000 + DO 385 I=1,NHERM2 17147000 + RVCTR(I,NINS)=RVCTR(I,NINS)*BBB 17148000 + 385 CONTINUE 17149000 + 270 CONTINUE 17150000 +C 17151000 +C PERFORM THE PORTER-THOMAS STATISTICAL AVERAGING FOR GAMMAX*P, 17152000 +C GAMMAX*(FOURIER TRANSFORM OF PSI)/BETA, AND GAMMA TOTAL*R 17153000 +C TO BE USED IN THE GAUSS-HERMITE INTEGRATION FOR THE EVALUATION 17154000 +C OF L1 AND L2 17155000 +C 17156000 + DO 400 I=1,NHERM2 17157000 +C 17158000 +C AVGGM, AVGFS, AVGTO, AVGGM2, AVGFS2, AVGTO2, AND AVGR2 HAVE BEEN 17159000 +C INITIALIZED EARLIER 17160000 +C 17161000 + DO 400 NINS=1,INS 17162000 + INSOFF=NINS+JOG2 17163000 + WEIGHT=BBETA(INSOFF) 17164000 + GW=WEIGHT*GAMTOT(NINS) 17165000 + IF(IFIS.EQ.1) GFW=WEIGHT*GAMFIS(NINS) 17166000 + GXW=WEIGHT*GAMCMP(NINS) 17167000 + AVGGM(I)=AVGGM(I)+PVCTR(I,NINS)*WEIGHT 17168000 + IF(IFIS.EQ.1) AVGFS(I)=AVGFS(I)+PVCTR(I,NINS)*GFW 17169000 + AVGCS(I)=AVGCS(I)+PVCTR(I,NINS)*GXW 17170000 + AVGTO(I)=AVGTO(I)+PVCTR(I,NINS)*GW 17171000 + AVGGM2(I)=AVGGM2(I)+(BVCTR(I,NINS)/BBETA(NINS))*WEIGHT 17172000 + AVGTO2(I)=AVGTO2(I)+BVCTR(I,NINS)*GW /BBETA(NINS) 17173000 + IF(IFIS.EQ.1) AVGFS2(I)=AVGFS2(I)+BVCTR(I,NINS)*GFW / 17174000 + 1 BBETA(NINS) 17175000 + AVGCS2(I)=AVGCS2(I)+BVCTR(I,NINS)*GXW/BBETA(NINS) 17176000 + AVGR2(I)=AVGR2(I)+RVCTR(I,NINS)*GW 17177000 + 400 CONTINUE 17178000 + 260 CONTINUE 17179000 +C 17180000 +C COMPUTE THE FOURIER TRANSFORMS OF THE J INTEGRALS AND RELATED 17181000 +C QUATITIES FOR THE ASYMPTOTIC CASES (IF ANY) FOR USE IN THE 17182000 +C EVALUATION OF THE TERMS L1 AND L2 17183000 +C 17184000 + DO 410 I=1,NHERM2 17185000 + AVGG=0. 17186000 + AVGG2=0. 17187000 + AVGF=0. 17188000 + AVGF2=0. 17189000 + AVGT=0. 17190000 + AVGT2=0. 17191000 + AVR=0. 17192000 + AVGC=0. 17193000 + AVGC2=0. 17194000 +C 17195000 +C GO TO 420 IF THERE ARE NO ASYMPTOTIC CONTRIBUTIONS 17196000 +C 17197000 + IF(IAS.EQ.0) GO TO 420 17198000 + ARG1=ETA(I) 17199000 + TEM=0.353553391*ARG1*DEL 17200000 + ARG=TEM 17201000 +C*****CALL WZERO********************************************************17202000 + CALL WZERO(ARG,PSIEZ) 17203000 + B1=EXP(ARG*ARG)-PSIEZ 17204000 + Q=1.0 17205000 +C 17206000 +C PORTER-THOMAS STATISTICAL AVERAGING FOR GAMMAX*P, 17207000 +C GAMMAX*(FOURIER TRANSFORM OF PSI**2/(BETA*(BETA+PSI)), AND GAMMA 17208000 +C TOTAL*R TO BE USED IN THE GAUSS-HERMITE INTEGRATION 17209000 +C 17210000 + DO 430 NIAS=1,IAS 17211000 + TEST6=BETPSI(NIAS)/PSIZRO(NIAS) 17212000 +C 17213000 +C OFFSET FOR GAMTOT, GAMFIS, AND BBETA ARRAYS 17214000 +C 17215000 + NNN=NIAS+JOG1 17216000 + NNNOFF=NNN+JOG2 17217000 + WEIGHT=BBETA(NNNOFF) 17218000 + GW=WEIGHT*GAMTOT(NNN) 17219000 + IF(IFIS.EQ.1) GFW=WEIGHT*GAMFIS(NNN) 17220000 + GXW=WEIGHT*GAMCMP(NNN) 17221000 + IF(TEST6.GE.25.0) GO TO 460 17222000 + ARG=TEM+0.707106781*ZETA(NIAS) 17223000 +C*****CALL WZERO********************************************************17224000 + CALL WZERO(ARG,PSIEZ) 17225000 + B2=PSIEZ 17226000 +C 17227000 +C Q3=(1+2*(RHO-U)/(BETA+RHO))*BETA/(BETA+RHO)...SEE FRA-TM-16, EQ.4617228000 +C 17229000 + Q=1.0+(PSIZRO(NIAS)-0.626657069*ZETA(NIAS)*(B1+B2))/BETPSI(NIAS) 17230000 + 460 CONTINUE 17231000 + Q2=BETPSI(NIAS)/BBETA(NNN)-Q 17232000 +C 17233000 +C Q=1+(RHO-U)/(BETA+RHO)...SEE FRA-TM-16, EQ.33 17234000 +C 17235000 + Q3=(Q-0.5)*2.0*BBETA(NNN)/BETPSI(NIAS) 17236000 + EE1=EXP(-0.5*GAMTOT(NNN)*ARG1)/BETPSI(NIAS) 17237000 + AVGG=AVGG+EE1*Q*WEIGHT 17238000 + IF(IFIS.EQ.1) AVGF=AVGF+EE1*Q*GFW 17239000 + AVGC=AVGC+EE1*Q*GXW 17240000 + AVGT=AVGT+EE1*Q*GW 17241000 + AVGG2=AVGG2+EE1*Q2*WEIGHT 17242000 + IF(IFIS.EQ.1) AVGF2=AVGF2+EE1*Q2*GFW 17243000 + AVGC2=AVGC2+EE1*Q2*GXW 17244000 + AVGT2=AVGT2+EE1*Q2*GW 17245000 + AVR=AVR+EE1*Q3*GW 17246000 + 430 CONTINUE 17247000 + 420 CONTINUE 17248000 +C 17249000 +C COMBINE THE FOURIER TRANSFORMS OF THE J INTEGRALS, OF 17250000 +C PSI**2/(BETA+PSI), AND OF R FOR THE ASYMPTOTIC AND NON-ASYMPTOTIC 17251000 +C CASES 17252000 +C 17253000 + OVLG=(AVGG+0.797884561*AVGGM(I)*E2(I))*GAMCAP 17254000 + OVLF=0. 17255000 + IF(IFIS.EQ.1) OVLF=(AVGF+0.797884561*AVGFS(I)*E2(I)) 17256000 + OVLC=(AVGC+0.797884561*AVGCS(I)*E2(I)) 17257000 + OVLT=(AVGT+0.797884561*AVGTO(I)*E2(I)) 17258000 + OVLG2=(AVGG2+0.797884561*(AVGGM2(I)-AVGGM(I)*E2(I)))*GAMCAP 17259000 + OVLF2=0. 17260000 + IF(IFIS.EQ.1) OVLF2=(AVGF2+0.797884561*(AVGFS2(I)-AVGFS(I)*E2(I)))17261000 + OVLC2=(AVGC2+0.797884561*(AVGCS2(I)-AVGCS(I)*E2(I))) 17262000 + OVLT2=(AVGT2+0.797884561*(AVGTO2(I)-AVGTO(I)*E2(I))) 17263000 + OVLR=(AVR+0.797884561*AVGR2(I)*E2(I)) 17264000 +C 17265000 +C ARGUMENT FOR THE DYSON FUNCTION 17266000 +C 17267000 + QQ=0.318309886*AVD*ARG1 17268000 + QQ2=0.5*QQ 17269000 + QQ1=1.0+QQ 17270000 + QQM1=QQ-1.0 17271000 + IF(QQ.GT.2.0) GO TO 440 17272000 + DYSON=QQ2*ALOG(QQ1)-QQM1 17273000 + GO TO 450 17274000 + 440 CONTINUE 17275000 + DYSON=QQ2*ALOG(QQ1/QQM1)-1.0 17276000 +C 17277000 +C GAUSS-HERMITE INTEGRATION OF THE SECOND TERM L1 OF THE FIRST ORDER17278000 +C OVERLAP TERM 17279000 +C 17280000 + 450 CONTINUE 17281000 + TEMP2=2.0*WGH(I)*OVLT*DYSON*E1(I)*AVD1 17282000 + FG=FG+OVLG*TEMP2 17283000 + IF(IFIS.EQ.1) FF=FF+OVLF*TEMP2 17284000 + FC=FC+OVLC*TEMP2 17285000 + FT=FT+OVLT*TEMP2 17286000 +C 17287000 +C GAUSS-HERMITE INTEGRATION OF THE SECOND TERM L2 OF THE SECOND 17288000 +C ORDER OVERLAP TERM 17289000 +C 17290000 + TEMP22=2.0*WGH(I)*OVLR*DYSON*E1(I)*AVD1 17291000 + FG2=FG2+OVLG2*TEMP22 17292000 + IF(IFIS.EQ.1) FF2=FF2+OVLF2*TEMP22 17293000 + FC2=FC2+OVLC2*TEMP22 17294000 + FT2=FT2+OVLT2*TEMP22 17295000 + 410 CONTINUE 17296000 +C 17297000 +C COMBINE L1 AND L2 17298000 +C 17299000 + OVERLG=0.392699082*(FG-FG2)*ALPHA1 17300000 + IF(IFIS.EQ.1) OVERLF=0.392699082*(FF-FF2)*ALPHA1 17301000 + OVERLC=0.392699082*(FC-FC2)*ALPHA1 17302000 + OVERLT=0.392699082*(FT-FT2)*ALPHA1 17303000 +C 17304000 +C COMBINE THE FIRST AND SECOND TERMS OF THE FIRST AND SECOND 17305000 +C ORDER TERMS TO OBTAIN THE COMPLETE OVERLAP INTEGRALS 17306000 +C 17307000 + OVG=(BARJN*TBARJN-SEG-OVERLG) 17308000 + IF(OVG.LT.0.) GO TO 470 17309000 + IF(IFIS.EQ.1) OVF=(FBARJN*TBARJN-SEF-OVERLF) 17310000 + OVC=(CBARJN*TBARJN-SEC-OVERLC) 17311000 + OVT=(TBARJN*TBARJN-SET-OVERLT) 17312000 + GO TO 240 17313000 + 470 CONTINUE 17314000 + OVG=0. 17315000 +C 17316000 +C TRANSFER TO STATEMENT 240 IF NOVRLP.NE.0. IN THIS CASE 17317000 +C OVG, OVF, AND OVT ARE ALL ZERO 17318000 +C 17319000 + 240 CONTINUE 17320000 +C 17321000 +C FLUX CORRECTION FACTOR. THIS IS THE DENOMINATOR FOR THE 17322000 +C CAPTURE AND FISSION CROSS SECTIONS 17323000 +C 17324000 + FLXCF=1.0-TBARJ+OVT 17325000 + FLXCF1=1.0/FLXCF 17326000 + CNUM=(BARJ-OVG)/FACTOR 17327000 + TNUM=(TBARJ-OVT) 17328000 + IF(IFIS.EQ.1) FNUM=(FBARJ-OVF)/FACTOR 17329000 + XNUM=(CBARJ-OVC)/FACTOR 17330000 + SIGCAP(NN)=SIGCAP(NN)+CNUM*FLXCF1 17331000 + SIGTOT(NN)=SIGTOT(NN)+TNUM*FLXCF1 17332000 + IF(IFIS.EQ.1) SIGFIS(NN)=SIGFIS(NN)+FNUM*FLXCF1 17333000 + SIGCMP(NN)=SIGCMP(NN)+XNUM*FLXCF1 17334000 + 130 CONTINUE 17335000 + SIGCAP(NN)=SIGCAP(NN)*SIGP*ABUNDI 17336000 + SIGTOT(NN)=SIGTOT(NN)*SIGP*ABUNDI 17337000 + IF(IFIS.EQ.1) SIGFIS(NN)=SIGFIS(NN)*SIGP*ABUNDI 17338000 + SIGCMP(NN)=SIGCMP(NN)*SIGP*ABUNDI 17339000 + 100 CONTINUE 17340000 + RETURN 17341000 + END 17342000 + SUBROUTINE MATRI1(A,N) 17343000 +C 17344000 +C SUBROUTINE MATRIX INVERTS THE SQUARE MATRIX A OF DIMENSION N. 17345000 +C N IS LIMITED TO 99 BY THE DIMENSION OF VARIABLE INDEX. 17346000 +C MATRIX IS BASED ON THE ANL LIBRARY ROUTINE MATINV ANL F402S. 17347000 +C MODIFIED BY A. HINDS 3 JULY 1975. 17348000 +C 17349000 +C A ARRAY CONTAINING THE MATRIX TO BE INVERTED 17350000 +C AT INPUT, AND THE INVERSE MATRIX ON OUTPUT 17351000 +C N DIMENSION OF MATRIX A 17352000 +C 17353000 +C 17354000 +C SUBPROGRAMS CALLED BY SUBROUTINE MATRIX 17355000 +C 17356000 +C ABS FORTRAN ABSOLUTE VALUE FUNCTION 17357000 +C 17358000 + DIMENSION A(1),INDEX(99) 17359000 +C 17360000 +C INITIALIZE ARRAY OF POINTERS TO COLUMNS NOT YET PIVOTED. 17361000 +C 17362000 + NMAT = N*N 17363000 + DO 20 I=1,N 17364000 + INDEX (I) = I 17365000 + 20 CONTINUE 17366000 +C 17367000 +C PERFORM SUCCESSIVE PIVOT OPERATIONS (GRAND LOOP) 17368000 +C 17369000 + M = N 17370000 + DO 550 I=1,N 17371000 +C 17372000 +C 17373000 + JI = 0 17374000 + JISAVE = 0 17375000 + AMAX = 0.0 17376000 + DO 105 KK = 1,M 17377000 + KX = (INDEX (KK) - 1) * N 17378000 + JK = KX + INDEX (1) 17379000 + DO 100 JJ = 1,M 17380000 + IF ( ABS (A (JK) ) .LE. AMAX) GO TO 100 17381000 + AMAX = ABS (A (JK)) 17382000 + JI = JK 17383000 + 100 JK = KX + INDEX (JJ+1) 17384000 + IF (JI .NE. JISAVE) II = KK 17385000 + JISAVE = JI 17386000 + 105 CONTINUE 17387000 +C 17388000 + ICOLUM = INDEX (II) 17389000 + IROW = JI - (ICOLUM - 1) * N 17390000 +C 17391000 + INDEX (II) = INDEX (M) 17392000 +C PACK PIVOT ROW AND COLUMN INDICES FOR FINAL COLUMN EXCHANGE. 17393000 + INDEX (M) = 4096 * IROW + ICOLUM 17394000 + M = M - 1 17395000 +C 17396000 + AMAX = A (JI) 17397000 +C 17398000 +C RETURN IF MATRIX IS SINGULAR (ZERO PIVOT) AFTER COLUMN INTERCHANGE17399000 +C 17400000 + IF ( AMAX .NE. 0.0) GO TO 110 17401000 +10100 CONTINUE 17402000 +C***********************************************************************17403000 +C 17404000 +C FATAL ERROR -10100. DETERMINANT IS SINGULAR. 17405000 +C 17406000 +C***********************************************************************17407000 + 110 CONTINUE 17408000 +C 17409000 +C INTERCHANGE ROWS TO PUT PIVOT ELEMENT ON DIAGONAL 17410000 +C 17411000 + IF (IROW.EQ.ICOLUM) GO TO 260 17412000 + JK = IROW 17413000 + DO 200 IK = ICOLUM,NMAT,N 17414000 + SWAP = A (JK) 17415000 + A (JK) = A (IK) 17416000 + A (IK) = SWAP 17417000 + JK = JK + N 17418000 + 200 CONTINUE 17419000 +C 17420000 +C DIVIDE PIVOT ROW BY PIVOT ELEMENT 17421000 +C 17422000 + 260 CONTINUE 17423000 + II = (ICOLUM - 1) * N + ICOLUM 17424000 + A (II) = 1.0 17425000 + DO 350 IK = ICOLUM,NMAT,N 17426000 + A (IK) = A (IK) / AMAX 17427000 + 350 CONTINUE 17428000 +C 17429000 +C REDUCE NON-PIVOT ROWS TWO AT A TIME. 17430000 +C 17431000 + JI = (ICOLUM - 1) * N + 1 17432000 + NMAX = N - MOD (N,2) 17433000 + DO 500 J = 1,NMAX,2 17434000 + T = 0.0 17435000 + IF (J .EQ. ICOLUM) GO TO 430 17436000 + T = - A (JI) 17437000 + A (JI) = 0.0 17438000 + 430 CONTINUE 17439000 + T1 = 0.0 17440000 + IF ( (J+1) .EQ. ICOLUM) GO TO 440 17441000 + T1 = - A (JI+1) 17442000 + A (JI+1) = 0.0 17443000 + 440 CONTINUE 17444000 + JK = J 17445000 + DO 450 IK = ICOLUM,NMAT,N 17446000 + A (JK) = A (JK) + A (IK) * T 17447000 + A (JK + 1) = A (JK + 1) + A (IK) * T1 17448000 + JK = JK + N 17449000 + 450 CONTINUE 17450000 + JI = JI + 2 17451000 + 500 CONTINUE 17452000 +C IF AN ODD NUMBER OF ROWS REDUCE THE LAST ONE HERE. 17453000 + IF ( MOD(N,2) .EQ. 0 .OR. N .EQ. ICOLUM) GO TO 530 17454000 + NI = N * ICOLUM 17455000 + T = - A (NI) 17456000 + A (NI) = 0.0 17457000 + JK = N 17458000 + DO 510 IK = ICOLUM,NMAT,N 17459000 + A (JK) = A (JK) + A (IK) * T 17460000 + JK = JK + N 17461000 + 510 CONTINUE 17462000 + 530 CONTINUE 17463000 + 550 CONTINUE 17464000 +C 17465000 +C INTERCHANGE COLUMNS AFTER ALL PIVOT OPERATIONS HAVE BEEN PERFORMED17466000 +C 17467000 + DO 710 I=1,N 17468000 + K = INDEX (I) / 4096 17469000 + ICOLUM = INDEX (I) - 4096 * K 17470000 + IF(K.EQ.ICOLUM) GO TO 720 17471000 + JK = (K - 1) * N + 1 17472000 + JI = (ICOLUM - 1) * N + 1 17473000 + DO 705 J=1,N 17474000 + SWAP = A (JK) 17475000 + A (JK) = A (JI) 17476000 + A (JI) = SWAP 17477000 + JI = JI + 1 17478000 + JK = JK + 1 17479000 + 705 CONTINUE 17480000 + 720 CONTINUE 17481000 + 710 CONTINUE 17482000 +C 17483000 + RETURN 17484000 + END 17485000 + SUBROUTINE QUICKJ(N41,N27,TR,TI,TRS,TIS) 17486000 +C ************************************************************ 17487000 +C 17488000 +C SUBROUTINE QUICKJ CALCULATES THE ISOLATED J INTEGRAL INCLUDING 17489000 +C INTERFERENCE SCATTERING FOR THE SINGLE LEVEL REPRESENTATION. 17490000 +C QUICKJ ALSO CALCULATES THE J INTEGRAL EXCLUDING INTERFERENCE 17491000 +C SCATTERING AND THE INTEGRAL OF BETA*PSI/(BETA+PSI)**2 17492000 +C 17493000 +C SUBPROGRAMS CALLED BY SUBROUTINE QUICKJ 17494000 +C 17495000 +C QUICKW PROGRAM SUBROUTINE TO OBTAIN THE REAL AND 17496000 +C IMAGINARY PARTS OF THE W FUNCTION. QUICKW IS 17497000 +C AN ENTRY POINT OF SUBROUTINE QUICK1 17498000 +C ALOG FORTRAN LOGARITHM FUNCTION (SINGLE PRECISION) 17499000 +C SQRT FORTRAN SQUARE ROOT FUNCTION (SINGLE PRECISION) 17500000 +C WZERO CALCULATES THE REAL PART OF W(0,ARG) 17501000 +C EXP FORTRAN EXPONENTIAL FUNCTION (SINGLE PRECISION) 17502000 +C 17503000 + DIMENSION TR(N41,N27),TI(N41,N27),TRS(N41,N27),TIS(N41,N27) 17504000 + DIMENSION ZLP(6),ALP(4),AN(6),BM(6),ZLP1(6),ALP1(4) 17505000 + COMMON/INTEGL/ BETA,THETA,A,FJ,RHO,HH,TEST1,FJN,FJ2N,TERM2,FJT 17506000 +C COMMON/REAIMW/AX,WHY,REW,AIMW 17507000 +C COMMON/RATION/ ARG,PSIEZ 17508000 + COMMON /DRCUNR/ TEMPM,ABUNDI,AM,CMCOR,LSTI,JSTI,IFIS, 17509000 + 1 NPORTR,NHERM,NHERM2,NOVRLP,MAT,NPT1,RPENTR, 17510000 + 2 RPSHFT,NGUS13,NGUS9,WATE13,WATE9 17511000 +C 17512000 +C ZLP=U/SQRT(1.0-U*U) WHERE U ARE THE 13 POINT GAUSS-JACOBI 17513000 +C QUADRATURE ABSCISSAE 17514000 +C 17515000 + DATA ZLP/8.235740955,2.636783295,1.448750112,0.8859226935, 17516000 + 1 0.5248404873,0.2464778630/ 17517000 +C 17518000 +C ALP=V/SQRT(1.0-V*V) WHERE V ARE THE 9 POINT GAUSS-JACOBI 17519000 +C QUADRATURE ABSCISSAE 17520000 +C 17521000 + DATA ALP/5.671281817,1.732050807,0.8390996312,0.3639702342/ 17522000 +C 17523000 +C 17524000 +C ZLP1=1.0/(1.0-U*U) WHERE U ARE THE 13 POINT GAUSS-JACOBI 17525000 +C QUADRATURE ABSCISSAE 17526000 +C 17527000 + DATA ZLP1/68.82742908,7.952626149,3.098876889,1.784859018, 17528000 + 1 1.275457537,1.060751336/ 17529000 +C 17530000 +C ALP1=1.0/(1.0-V*V) WHERE V ARE THE 9 POINT GAUSS-JACOBI 17531000 +C QUADRATURE ABSCISSAE 17532000 +C 17533000 + DATA ALP1/33.16343745,4.0,1.704088191,1.132474331/ 17534000 +C 17535000 +C CONSTANTS FOR SUM IN LARGE BETA APPROXIMATION TO THE RESONANCE 17536000 +C INTEGRALS 17537000 +C 17538000 + DATA AN/ 0.1666666667,0.3333333333E-1,0.7142857142E-2, 17539000 + 1 0.1587301587E-2,0.3607503607E-3,0.832500832E-4/ 17540000 +C 17541000 + DATA BM/ 0.1666666667,0.5555555555E-1,0.1234567901E-1, 17542000 + 1 0.2057613168E-2,0.2743484224E-3,0.3048315805E-4/ 17543000 +C 17544000 +C 17545000 + TOTJ=0. 17546000 + TOTI=0. 17547000 + TOTM=0. 17548000 + TOTJ2=0. 17549000 + ZETA=THETA 17550000 + ASQ=A*A 17551000 + WHY=0.5*ZETA 17552000 +C 17553000 +C OBTAIN PSI(THETA,0) 17554000 +C 17555000 + ARG=WHY 17556000 +C*****CALL WZERO********************************************************17557000 + CALL WZERO(ARG,PSIEZ) 17558000 +C 17559000 +C 1.77245380509 IS SQRT(PI) 17560000 +C 17561000 + PSIZ=1.7724538509*WHY*PSIEZ 17562000 + H=BETA+PSIZ 17563000 + TEST1=H/PSIZ 17564000 +C 17565000 +C LARGE BETA APPROXIMATION AT STATEMENT 100 17566000 +C 17567000 + IF(TEST1.GE.4.5)GO TO 100 17568000 +C 17569000 +C ZERO POINT FOR GAUSS-JACOBI QUADRATURE 17570000 +C 17571000 + AINTZ=0.5/TEST1 17572000 +C 17573000 +C DETERMINE APPROPRIATE FACTOR C FOR GAUSS-JACOBI INTEGRATION 17574000 +C 17575000 + IF(ZETA.GT.2.5) GO TO 110 17576000 + IF(BETA.GE.0.018)GO TO 120 17577000 + IF(ZETA.GE.0.5) GO TO 110 17578000 + IF(TEST1.GE.1.2) GO TO 120 17579000 + BB=4.*(1.8971+ALOG(1.+.7532929*ZETA/BETA))/(ZETA*ZETA) 17580000 + TEST2=BB*BETA 17581000 + IF(TEST2.GT.0.03)GO TO 130 17582000 + 110 CONTINUE 17583000 + C=0.7071*SQRT((1.0+BETA)/BETA) 17584000 + NGAUSS=NGUS9 17585000 + NGAUS2=(NGAUSS-1)/2 17586000 + WEIGHT=WATE9 17587000 +C 17588000 +C GAUSS-JACOBI 9 POINT INTEGRATION FOR J AND I INTEGRALS 17589000 +C 17590000 + DO 330 I=1,NGAUS2 17591000 + ALPI=ALP1(I) 17592000 + AX=WHY*ALP(I)*C 17593000 +C*****CALL QUICKW*******************************************************17594000 + CALL QUICKW(N41,N27,TR,TI,TRS,TIS,AX,WHY,REW,AIMW) 17595000 +C 17596000 +C 1.7724538509 IS SQRT(PI) 17597000 +C 17598000 + PSI=1.7724538509*WHY*REW 17599000 + AKI=1.7724538509*ZETA*AIMW 17600000 + DEN=BETA+PSI 17601000 + RAT=PSI*ALPI/DEN 17602000 + RAT2=BETA*RAT/DEN 17603000 + AKISQ=AKI*AKI*ASQ 17604000 + TEMP=DEN*DEN-AKISQ 17605000 + TOTJ=TOTJ+RAT 17606000 + TOTJ2=TOTJ2+RAT2 17607000 + IF(ASQ.EQ.0.) GO TO 330 17608000 + TOTM=TOTM+ALPI*AKISQ/(A*TEMP) 17609000 + TOTI=TOTI+(AKISQ/TEMP)*RAT 17610000 + 330 CONTINUE 17611000 + GO TO 200 17612000 + 120 CONTINUE 17613000 + C=2.5/WHY 17614000 + GO TO 140 17615000 + 130 CONTINUE 17616000 + IF(TEST2.LT.1.0)GO TO 150 17617000 + FAC=1.+.018*(BETA-.00128)/(BETA+.00128)+.08*(TEST1-1.0) 17618000 + C=.8292* SQRT( BB)*FAC 17619000 + GO TO 140 17620000 + 150 CONTINUE 17621000 + C=0.7071*SQRT(BB+(1.0+BETA)/BETA) 17622000 + 140 CONTINUE 17623000 + NGAUSS=NGUS13 17624000 + NGAUSS=(NGAUSS-1)/2 17625000 + WEIGHT=WATE13 17626000 +C 17627000 +C GAUSS-JACOBI 13 POINT INTEGRATION FOR J AND I INTEGRALS 17628000 +C 17629000 + DO 180 I=1,NGAUSS 17630000 + ZLPI=ZLP1(I) 17631000 + AX=WHY*ZLP(I)*C 17632000 +C*****CALL QUICKW*******************************************************17633000 + CALL QUICKW(N41,N27,TR,TI,TRS,TIS,AX,WHY,REW,AIMW) 17634000 + PSI=1.7724538509 *WHY*REW 17635000 + AKI=1.7724538509 *ZETA*AIMW 17636000 + DEN=BETA+PSI 17637000 + RAT=PSI*ZLPI/DEN 17638000 + RAT2=BETA*RAT/DEN 17639000 + AKISQ=AKI*AKI*ASQ 17640000 + TEMP=DEN*DEN-AKISQ 17641000 + TOTJ=TOTJ+RAT 17642000 + TOTJ2=TOTJ2+RAT2 17643000 + IF(ASQ.EQ.0.) GO TO 180 17644000 + TOTM=TOTM+ZLPI*AKISQ/(A*TEMP) 17645000 + TOTI=TOTI+(AKISQ/TEMP)*RAT 17646000 + 180 CONTINUE 17647000 + 200 CONTINUE 17648000 +C 17649000 +C ADD IN ZERO POINT FOR THE J INTEGRAL. THE I AND M INTEGRALS HAVE 17650000 +C NO ZERO POINT CONTRIBUTION. 17651000 +C 17652000 + TOTJ=TOTJ+AINTZ 17653000 +C 17654000 +C MULTIPLY BY C AND THE WEIGHTING FACTOR, EITHER PI/13 OR PI/9 17655000 +C 17656000 + TOTJ=TOTJ*C*WEIGHT 17657000 + TOTM=TOTM*C*WEIGHT 17658000 + TOTJ2=TOTJ2*C*WEIGHT 17659000 + TOTI=TOTI*C*WEIGHT 17660000 + GO TO 190 17661000 +C 17662000 +C LARGE BETA APPROXIMATION 17663000 +C 17664000 + 100 CONTINUE 17665000 +C 17666000 +C 1.41421356237 IS SQRT(2) 17667000 +C 17668000 + ARG=1.41421356237*WHY 17669000 +C*****CALL WZERO********************************************************17670000 + CALL WZERO(ARG,PSIEZ) 17671000 +C 17672000 +C 0.8862269254 IS 0.5*SQRT(PI) 17673000 +C 17674000 + RHO=0.8862269254*ARG*PSIEZ 17675000 + RHO2=RHO*RHO 17676000 + HH=BETA+RHO 17677000 + HH1=1.0/HH 17678000 +C 17679000 +C FOR BETA .GE. 1.0E10, USE THE INFINITELY DILUTE LIMIT 17680000 +C 17681000 + IF(BETA.LT.1.0E10) GO TO 160 17682000 + TOTJ=1.57079632680*HH1 17683000 + TOTJ2=TOTJ*HH1 17684000 + TERM2=0. 17685000 + GO TO 190 17686000 + 160 CONTINUE 17687000 + HH3=HH1*HH1*HH1 17688000 + HH4=HH3*HH1 17689000 +C 17690000 +C FIRST TERM OF THE ASYMPTOTIC FORM OF J 17691000 +C 17692000 +C 17693000 +C 1.57079632680 IS PI/2 17694000 +C 17695000 + TOTJ=1.57079632680*HH1 17696000 + TOTJ2=TOTJ*BETA*HH1 17697000 + ZETA2=ZETA*ZETA 17698000 + IF(ZETA.GT.2.5) GO TO 360 17699000 +C 17700000 +C 0.8164965809 IS SQRT(2/3) 17701000 +C 17702000 + ARG=0.8164965809*WHY 17703000 +C*****CALL WZERO********************************************************17704000 + CALL WZERO(ARG,PSIEZ) 17705000 +C 17706000 +C 1.772453851 IS SQRT(PI) 17707000 +C 17708000 + PS3=1.772453851*ARG*PSIEZ 17709000 +C 17710000 +C 2.170803764 IS SQRT(3*PI/2) 17711000 +C 17712000 + ZEX=2.170803764*ZETA*EXP(ZETA2/6.0) 17713000 + S=0. 17714000 + SUM=0. 17715000 + PROD=1.0 17716000 +C 17717000 +C USE 6 TERMS IN THE SERIES USED FOR THE EVALUATION OF THE INTEGRAL 17718000 +C OF PSI**3. THIS DETERMINES THE DIMENSIONS OF AN AND BM AND 17719000 +C THE INITIALIZATION OF AN AND BM 17720000 +C 17721000 + DO 350 I=1,6 17722000 + PROD=PROD*ZETA2 17723000 + SUM=SUM+BM(I)*PROD 17724000 + S=S+AN(I)*(SUM +0.25) 17725000 + 350 CONTINUE 17726000 + S=S+0.25 17727000 +C 17728000 +C INTEGRAL OF PSI**3 17729000 +C 17730000 + PSIZ3=1.570796327*(RHO*(3.0*PS3-ZEX)+1.5*ZETA2*S) 17731000 + GO TO 370 17732000 + 360 CONTINUE 17733000 + X=0.666666667*ZETA2 17734000 + X1=1.0/X 17735000 + X12=X1*X1 17736000 +C 17737000 +C E1 IS A RATIONAL EXPRESSION FOR X*EXP(X)*E1(X) 17738000 +C 17739000 + IF(X.GE.10.0) GO TO 300 17740000 + E1=(X*(X+2.334733)+0.250621)/(X*(X+3.330657)+1.681534) 17741000 + GO TO 310 17742000 + 300 CONTINUE 17743000 + E1=(X*(X+4.03640)+1.15198)/(X*(X+5.03637)+4.19160) 17744000 + 310 CONTINUE 17745000 + H1=1.0-E1 17746000 + H2=X1-H1 17747000 + H3=2.22222222*X12-1.11111111*H2 17748000 + H4=7.77777778*X1*X12-1.16666667*H3 17749000 +C 17750000 +C 0.589048622 IS 3PI/16 17751000 +C 0.392699082 IS PI/8 17752000 +C 17753000 + PSIZ3=0.589048622*E1-0.392699082*(H1-H2+H3-H4) 17754000 + 370 CONTINUE 17755000 +C 17756000 +C ADD IN THE SECOND TERM TO THE ASYMPTOTIC FORM FOR J 17757000 +C 17758000 +C 17759000 +C 4.71238898 IS 3*PI/2 17760000 +C 17761000 + TERM2=(PSIZ3-1.570796327*RHO2)*HH3 17762000 + TOTJ=TOTJ+TERM2 17763000 + TOTJ2=TOTJ2+(3.0*PSIZ3-4.71238898*RHO2)*HH4*BETA 17764000 + TOTI=1.33333333*ASQ*PSIZ3*HH3 17765000 +C 17766000 +C 6.283185307 IS 2*PI AND 2.666666667 IS 8/3 17767000 +C 17768000 + TOTM=(6.283185307*(BETA*RHO+3.0*RHO2)-2.666666667*PSIZ3)*A*HH3 17769000 + 190 CONTINUE 17770000 +C 17771000 +C COMBINE J AND I INTEGRALS 17772000 +C 17773000 + FJ=TOTJ+TOTI 17774000 +C 17775000 +C FJT IS THE TOTAL RESONANCE INTEGRAL 17776000 +C 17777000 + FJT=FJ-A*TOTM 17778000 +C 17779000 +C FJN IS THE J INTEGRAL WITHOUT INTERFERENCE SCATTERING 17780000 +C 17781000 + FJN=TOTJ 17782000 +C 17783000 +C FJ2N IS THE INTEGRAL OF BETA*PSI/(BETA+PSI)**2 WITHOUT 17784000 +C INTERFERENCE SCATTERING 17785000 +C 17786000 + FJ2N=TOTJ2 17787000 + RETURN 17788000 + END 17789000 +C 17790000 + SUBROUTINE WREC(JT,NT,MODE) 17791000 +C ******************************************************* 17792000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 17793000 + * N1X,N2X,NS,LX,LY,LB 17794000 + COMMON MAXA,A(1) 17795000 +C----- 17796000 + CALL DYWREC(JT,NT,MODE,A(LX),A(LY),A(LB)) 17797000 + RETURN 17798000 + END 17799000 + SUBROUTINE DYWREC(JT,NT,MODE,X,Y,B) 17800000 +C ************************************************** 17801000 +C DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI) 17802000 +C ************************************************** 17803000 + DIMENSION X(1),Y(1),B(1) 17804000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 17805000 + * N1X,N2X,NS,LX,LY,LB 17806000 +C=====WRITE ONE RECORD ON ENDF/B TAPE===================================17807000 +C JT = RECORD TYPE, 1-CONT, 2-LIST, 3-TAB1, 4-TAB2, 5-HOL LIST 17808000 +C 6-TPID 17809000 +C NT = OUTPUT TAPE NUMBER. IF NT.LE.0, WRITE IS IGNORED. 17810000 +C MODE=1 BINARY TAPE, STANDARD ARRANGEMENT. 17811000 +C =2 BINARY TAPE, ALTERNATE ARRANGEMENT. 17812000 +C =3 BCD CARD IMAGE TAPE FOR PUNCHING. 17813000 +C =4 EXPANDED AND INTERPRETED PRINT TAPE. 17814000 +C-----ERROR STOP 108, JT OUT OF RANGE 1-6 17815000 +C ERROR STOP 109, MODE OUT OF RANGE 1-4 17816000 +C-----PRELIMINARY TESTS 17817000 + IF(NT.LE.0)GOTO 330 17818000 + IF(JT.LT.1)GOTO 10 17819000 + IF(JT.LE.6)GOTO 20 17820000 + 10 CALL ERRORE(8HSLAVE3 ,108) 17821000 + 20 IF(MODE.LT.1)GOTO 30 17822000 + IF(MODE.LE.4)GOTO 40 17823000 + 30 CALL ERRORE(8HSLAVE3 ,109) 17824000 + 40 GOTO( 50 , 120 , 190 , 260 ),MODE 17825000 +C-----BINARY TAPE, STANDARD ARRANGEMENT 17826000 + 50 GOTO( 60 , 70 , 80 , 90 , 70 , 100 ), JT 17827000 + 60 WRITE(NT)MAT,MF,MT,C1,C2,L1,L2,N1,N2 17828000 + GOTO 110 17829000 + 70 WRITE(NT)MAT,MF,MT,C1,C2,L1,L2,N1,N2,(B(N),N=1,N1) 17830000 + GOTO 110 17831000 + 80 WRITE(NT)MAT,MF,MT,C1,C2,L1,L2,N1,N2,(NBT(N),JNT(N),N=1,N1), 17832000 + *(X(N),Y(N),N=1,N2) 17833000 + GOTO 110 17834000 + 90 WRITE(NT)MAT,MF,MT,C1,C2,L1,L2,N1,N2,(NBT(N),JNT(N),N=1,N1) 17835000 + GO TO 110 17836000 + 100 WRITE (NT) MAT,MF,MT,(B(N),N=1,17) 17837000 + 110 GOTO 330 17838000 +C-----BINARY TAPE, ALTERNATE ARRANGEMENT 17839000 + 120 GOTO( 130 , 140 , 150 , 160 , 140 , 170 ), JT 17840000 + 130 WRITE(NT)MF,MAT,MT,C1,C2,L1,L2,N1,N2 17841000 + GOTO 180 17842000 + 140 WRITE(NT)MF,MAT,MT,C1,C2,L1,L2,N1,N2,(B(N),N=1,N1) 17843000 + GOTO 180 17844000 + 150 WRITE(NT)MF,MAT,MT,C1,C2,L1,L2,N1,N2,(NBT(N),JNT(N),N=1,N1), 17845000 + *(X(N),Y(N),N=1,N2) 17846000 + GOTO 180 17847000 + 160 WRITE(NT)MF,MAT,MT,C1,C2,L1,L2,N1,N2,(NBT(N),JNT(N),N=1,N1) 17848000 + GO TO 180 17849000 + 170 WRITE (NT) MF,MAT,MT,(B(N),N=1,17) 17850000 + 180 GOTO 330 17851000 +C-----BCD CARD IMAGE TAPE 17852000 + 190 GOTO( 200 , 210 , 220 , 230 , 240 , 250 ), JT 17853000 + 200 CALL PUCONT(NT,X,Y,B) 17854000 + GOTO 330 17855000 + 210 CALL PULIST(NT,X,Y,B) 17856000 + GOTO 330 17857000 + 220 CALL PUTAB1(NT,X,Y,B) 17858000 + GOTO 330 17859000 + 230 CALL PUTAB2(NT,X,Y,B) 17860000 + GOTO 330 17861000 + 240 CALL PUHOL(NT,X,Y,B) 17862000 + GOTO 330 17863000 + 250 CALL PUTPID(NT,X,Y,B) 17864000 + GO TO 330 17865000 +C-----EXPANDED AND INTERPRETED PRINT 17866000 + 260 GOTO( 270 , 280 , 290 , 300 , 310 , 320 ), JT 17867000 + 270 CALL PRCONT(NT,X,Y,B) 17868000 + GOTO 330 17869000 + 280 CALL PRLIST(NT,X,Y,B) 17870000 + GOTO 330 17871000 + 290 CALL PRTAB1(NT,X,Y,B) 17872000 + GOTO 330 17873000 + 300 CALL PRTAB2(NT,X,Y,B) 17874000 + GOTO 330 17875000 + 310 CALL PRHOL(NT,X,Y,B) 17876000 + GO TO 330 17877000 + 320 CALL PRTPID(NT,X,Y,B) 17878000 +C-----FINISHED 17879000 + 330 RETURN 17880000 + END 17881000 + SUBROUTINE DELETE(MA) 17882000 +C ******************************************** 17883000 +C=====DELETE RECORD MA FROM DENSE STORAGE===============================17884000 +C IF MA=0, CLEAR DENSE STORAGE 17885000 +C-----NO ERROR STOPS 17886000 + COMMON MAXA,A(1) 17887000 + COMMON/DENS/LJMT,LJAT,LJTT,LJLT,LARRAY,JNS,MNS,JX,MX 17888000 + CALL DYDELE(A(LJMT),A(LJAT),A(LJTT),A(LJLT),A(LARRAY), 17889000 + 1 MA) 17890000 + RETURN 17891000 + END 17892000 + SUBROUTINE DYDELE(JMT,JAT,JTT,JLT,A, MA) 17893000 +C ******************************************** 17894000 + DIMENSION JMT(1),JAT(1),JTT(1),JLT(1),A(1) 17895000 + COMMON/DENS/LJMT,LJAT,LJTT,LJLT,LARRAY,JNS,MNS,JX,MX 17896000 +C=====TEST MA 17897000 + 100 IF(MA)200,102,200 17898000 +C=====CLEAR DENSE STORAGE 17899000 + 102 MNS=1 17900000 + JNS=1 17901000 + DO110M=1,MX 17902000 + JMT(M)=0 17903000 + JAT(M)=0 17904000 + JLT(M)=0 17905000 + 110 JTT(M)=0 17906000 + DO120J=1,JX 17907000 + 120 A(J)=0.0 17908000 + GOTO300 17909000 +C=====DELETE RECORD MA, SEARCH FOR LOCATION 17910000 + 200 IF(MNS.LE.1)GOTO300 17911000 + MNSP=MNS-1 17912000 + DO210M=1,MNSP 17913000 + MP=M 17914000 + IF(JMT(M).EQ.MA)GOTO220 17915000 + 210 CONTINUE 17916000 + GOTO300 17917000 + 220 JA=JAT(MP) 17918000 + JL=JLT(MP) 17919000 +C-----CLOSE UP ARRAY A(J) 17920000 + JP=JNS-JA-JL 17921000 + IF(JP)240,240,222 17922000 + 222 DO230N=1,JP 17923000 + J1=JA+N-1 17924000 + J2=J1+JL 17925000 + 230 A(J1)=A(J2) 17926000 + 240 JNS=JNS-JL 17927000 + DO250N=1,JL 17928000 + J=JNS+N-1 17929000 + 250 A(J)=0.0 17930000 +C-----CLOSE UP J TABLES 17931000 + MXP=MNS-MP-1 17932000 + IF(MXP)270,270,252 17933000 + 252 DO260M=1,MXP 17934000 + M1=MP+M-1 17935000 + JMT(M1)=JMT(M1+1) 17936000 + JTT(M1)=JTT(M1+1) 17937000 + 260 JLT(M1)=JLT(M1+1) 17938000 + 270 MNS=MNS-1 17939000 + JMT(MNS)=0 17940000 + JAT(MNS)=0 17941000 + JTT(MNS)=0 17942000 + JLT(MNS)=0 17943000 + MXP=MXP-1 17944000 + IF(MXP)300,300,272 17945000 + 272 DO 280 M=1,MXP 17946000 + M1=MP+M 17947000 + 280 JAT(M1)=JAT(M1-1)+JLT(M1-1) 17948000 +C=====FINISHED 17949000 + 300 RETURN 17950000 + END 17951000 + SUBROUTINE IPDS(JA,NP,XP,YP,IP) 17952000 +C ************************************************ 17953000 +C DYNAMIC ALLOCATION VERSION OF IPDS 17954000 +C ********************************************** 17955000 + COMMON MAXA,AD( 3000) 17956000 + COMMON/DENS/JMT,JAT,JTT,JLT,LA,JNS,MNS,JX,MX 17957000 + CALL IPDSDY(JA,NP,XP,YP,IP,AD(JMT),AD(JAT),AD(JTT), 17958000 + 1 AD(JLT),AD(LA),AD(LA)) 17959000 + RETURN 17960000 + END 17961000 + SUBROUTINE IPDSDY(JA,NP,XP,YP,IP,JMT,JAT,JTT,JLT,A,LA) 17962000 +C ******************************************************** 17963000 +C 17964000 +C=====INTERPOLATE POINT IN /DENS/ STORAGE===============================17965000 +C JA - STARTING INDEX IN /DENS/ ARRAY A OF THE TAB1 RECORD 17966000 +C XP - GIVEN VALUE OF X 17967000 +C YP - CORRESPONDING(DESIRED) VALUE OF Y 17968000 +C IP - INTERPOLATION CODE USED TO COMPUTE YP 17969000 +C NP - INDEX OF X AND Y ARRAYS SUCH THAT XP LIES 17970000 +C BETWEEN X(NP) AND X(NP+1). IF NP.GT.0 ON INPUT, IT 17971000 +C IS USED TO START SEARCH. 17972000 +C JA, XP, AND NP(GUESSED VALUE OR 0) ARE GIVEN AS INPUT 17973000 +C YP, IP, AND NP(CORRECT VALUE) ARE OUTPUT FROM S.R. 17974000 +C IF XP.LT.X(1), YP=0.0, NP=0, IP=1 17975000 +C IF XP.GT.X(N2), YP=0.0, NP=N2+1, IP=1, WHERE N2 IS THE 17976000 +C NUMBER OF X,Y VALUES GIVEN IN THE TAB1 RECORD. 17977000 +C-----ERROR STOP 314, IMPROPER INTERPOLATION TABLE 17978000 + COMMON/DENS/LJMT,LJAT,LJTT,LJLT,LLA,JNS,MNS,JX,MX 17979000 +C COMMON/DENS/JMT(100),JAT(100),JTT(100),JLT(100),A(11000), 17980000 +C * JNS,MNS,JX,MX 17981000 + DIMENSION JMT(100),JAT(100),JTT(100),JLT(100),A(1100) 17982000 + DIMENSION LA(1) 17983000 +C EQUIVALENCE (A(1),LA(1)) 17984000 +C-----INITIALIZE 17985000 + N1=LA(JA+7) 17986000 + N2=LA(JA+8) 17987000 + J1=JA+9 17988000 + J2=J1+2*N1 17989000 +C-----TEST FOR XP OUT OF RANGE 17990000 + IF(XP.GE.A(J2))GOTO 10 17991000 + YP=0.0 17992000 + NP=0 17993000 + IP=1 17994000 + GOTO 70 17995000 + 10 K=J2+2*(N2-1) 17996000 + IF(XP.LE.A(K))GOTO 20 17997000 + YP=0.0 17998000 + NP=N2+1 17999000 + IP=1 18000000 + GOTO 70 18001000 +C-----SEARCH TABLE FOR PROPER PANEL 18002000 + 20 IF(NP.LE.0)NP=1 18003000 + IF(NP.GE.N2)NP=N2-1 18004000 + K=J2+2*(NP-1) 18005000 + IF(XP.LT.A(K))NP=1 18006000 + N2P=N2-1 18007000 + DO 30 N=NP,N2P 18008000 + NPP=N+1 18009000 + K=J2+2*N 18010000 + IF(XP.LT.A(K))GOTO 40 18011000 + 30 CONTINUE 18012000 + YP=A(K+1) 18013000 + IP=2 18014000 + NP=N2+1 18015000 + GOTO 70 18016000 +C-----FIND INTERPOLATION CODE 18017000 + 40 DO 50 M=1,N1 18018000 + MP=M 18019000 + K=J1+2*(M-1) 18020000 + IF(NPP.LE.LA(K))GOTO 60 18021000 + 50 CONTINUE 18022000 + CALL ERRORE(8HSLAVE3 ,314) 18023000 + 60 IP=LA(K+1) 18024000 +C-----INTERPOLATE 18025000 + K=J2+2*(NPP-2) 18026000 + CALL TERP1(A(K),A(K+1),A(K+2),A(K+3),XP,YP,IP) 18027000 + NP=NPP-1 18028000 +C-----FINISHED 18029000 + 70 RETURN 18030000 + END 18031000 + SUBROUTINE LRIDS(MA,JA,LNT) 18032000 +C ************************************** 18033000 +C DYNAMIC ALLOCATION VERSION 18034000 +C ******************************** 18035000 + COMMON MAXA,AD( 3000) 18036000 + COMMON/DENS/JMT,JAT,JTT,JLT,LA,JNS,MNS,JX,MX 18037000 + CALL LRIDDY(MA,JA,LNT,AD(JMT),AD(JAT),AD(JTT), 18038000 + 1 AD(JLT),AD(LA),AD(LA)) 18039000 + RETURN 18040000 + END 18041000 + SUBROUTINE LRIDDY(MA,JA,LNT,JMT,JAT,JTT,JLT,A,LA) 18042000 +C ******************************************************** 18043000 +C 18044000 +C=====LOCATE RECORD IN DENSE STORAGE====================================18045000 +C MA - RECORD INDENT 18046000 +C JA - STARTING INDEX IN ARRAY A FOR RECORD MA 18047000 +C LNT =0, NORMAL RETURN 18048000 +C =1, RECORD MA NOT IN DENSE STORAGE 18049000 +C-----NO ERROR STOPS 18050000 + COMMON/DENS/LJMT,LJAT,LJTT,LJLT,LLA,JNS,MNS,JX,MX 18051000 +C COMMON/DENS/JMT(100),JAT(100),JTT(100),JLT(100),A(11000), 18052000 +C * JNS,MNS,JX,MX 18053000 + DIMENSION JMT(100),JAT(100),JTT(100),JLT(100),A(1100) 18054000 + DIMENSION LA(1) 18055000 +C EQUIVALENCE (A(1),LA(1)) 18056000 + LNT=0 18057000 + MXP=MNS-1 18058000 + IF(MXP.LE.0)GOTO 20 18059000 + IF(MA.EQ.0)GOTO 20 18060000 + DO 10 M=1,MXP 18061000 + JA=JAT(M) 18062000 + IF(JMT(M).EQ.MA)GOTO 30 18063000 + 10 CONTINUE 18064000 + 20 LNT=1 18065000 + 30 RETURN 18066000 + END 18067000 + SUBROUTINE FETCH(MA,LNT) 18068000 +C ************************************** 18069000 +C DYNAMIC ALLOCATION VERSION 18070000 +C ******************************** 18071000 + COMMON MAXA,AD( 3000) 18072000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200), 18073000 + 1 JNT(200),N1X,N2X,NS,LX,LY,LB 18074000 + COMMON/DENS/JMT,JAT,JTT,JLT,LA,JNS,MNS,JX,MX 18075000 + CALL FETCHD(MA,LNT,AD(JMT),AD(JAT),AD(JTT), 18076000 + 1 AD(JLT),AD(LA),AD(LA),AD(LX),AD(LY),AD(LB) ) 18077000 + RETURN 18078000 + END 18079000 + SUBROUTINE FETCHD(MA,LNT,JMT,JAT,JTT,JLT,A,LA,X,Y,B) 18080000 +C ******************************************************** 18081000 +C 18082000 +C=====FETCH RECORD FROM DENSE STORAGE===================================18083000 +C MA - RECORD IDENT TO BE FETCHED 18084000 +C LNT=0, RECORD FOUND AND MOVED TO COMMON/RECS/ 18085000 +C =1, RECORD NOT IN DENSE STORAGE 18086000 +C-----NO ERROR STOPS 18087000 +C COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18088000 +C * X(5000),Y(5000),B(5000),N1X,N2X,NS 18089000 +C COMMON/DENS/JMT(100),JAT(100),JTT(100),JLT(100),A(11000), 18090000 +C * JNS,MNS,JX,MX 18091000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200), 18092000 + 1 JNT(200),N1X,N2X,NS,LX,LY,LB 18093000 + COMMON/DENS/LJMT,LJAT,LJTT,LJLT,LLA,JNS,MNS,JX,MX 18094000 + DIMENSION JMT(100),JAT(100),JTT(100),JLT(100),A(1100) 18095000 + DIMENSION X(5000),Y(5000),B(5000) 18096000 + DIMENSION LA(1) 18097000 +C EQUIVALENCE (A(1),LA(1)) 18098000 +C-----SEARCH FOR RECORD 18099000 + LNT=0 18100000 + IF(MNS.LE.1)GOTO 20 18101000 + MNSP=MNS-1 18102000 + DO 10 M=1,MNSP 18103000 + MP=M 18104000 + IF(JMT(M).EQ.MA)GOTO 30 18105000 + 10 CONTINUE 18106000 + 20 LNT=1 18107000 + GOTO 130 18108000 + 30 JA=JAT(MP) 18109000 + JT=JTT(MP) 18110000 + IF(JT.EQ.6)GOTO 110 18111000 +C-----MOVE FIRST 9 WORDS 18112000 + MAT=LA(JA) 18113000 + MF=LA(JA+1) 18114000 + MT=LA(JA+2) 18115000 + C1=A(JA+3) 18116000 + C2=A(JA+4) 18117000 + L1=LA(JA+5) 18118000 + L2=LA(JA+6) 18119000 + N1=LA(JA+7) 18120000 + N2=LA(JA+8) 18121000 + JA=JA+9 18122000 +C-----MOVE REMAINDER OF RECORD 18123000 + GOTO( 130 , 40 , 60 , 90 , 40 ),JT 18124000 + 40 DO 50 N=1,N1 18125000 + J=JA+N-1 18126000 + 50 B(N)=A(J) 18127000 + GOTO 130 18128000 + 60 DO 70 N=1,N1 18129000 + J=JA+2*(N-1) 18130000 + NBT(N)=LA(J) 18131000 + 70 JNT(N)=LA(J+1) 18132000 + JA=JA+2*N1 18133000 + DO 80 N=1,N2 18134000 + J=JA+2*(N-1) 18135000 + X(N)=A(J) 18136000 + 80 Y(N)=A(J+1) 18137000 + GOTO 130 18138000 + 90 DO 100 N=1,N1 18139000 + J=JA+2*(N-1) 18140000 + NBT(N)=LA(J) 18141000 + 100 JNT(N)=LA(J+1) 18142000 + GOTO 130 18143000 +C-----TPID RECORD 18144000 + 110 MAT=LA(JA) 18145000 + MF=LA(JA+1) 18146000 + MT=LA(JA+2) 18147000 + DO 120 N=1,17 18148000 + J=JA+2+N 18149000 + 120 B(N)=A(J) 18150000 +C-----FINISHED 18151000 + 130 RETURN 18152000 + END 18153000 + SUBROUTINE TERP1(X1,Y1,X2,Y2,X,Y,I) 18154000 +C ************************************************ 18155000 +C=====INTERPOLATE ONE POINT=============================================18156000 +C (X,Y) IS THE INTERPOLATED POINT 18157000 +C I IS THE INTERPOLATION CODE 18158000 +C NOTE- IF A NEGATIVE OR ZERO ARGUMENT OF A LOG IS 18159000 +C DETECTED, THE INTERPOLATION CODE IS AUTOMATICALLY 18160000 +C CHANGED FROM LOG TO LINEAR 18161000 +C-----ERROR STOP 133, INTERPOLATION CODE OUT OF RANGE 18162000 +C ERROR STOP 134, ZERO OR NEG VALUE CANNOT BE 18163000 +C INTERPOLATED BY LOGS 18164000 +C-----ERROR STOP 135, X1=X2 (DISCONTINUITY) 18165000 + XA=X1 18166000 + YA=Y1 18167000 + XB=X2 18168000 + YB=Y2 18169000 + XP=X 18170000 + II=I 18171000 + IF(XA.EQ.XB) CALL ERRORE(8HSLAVE3 ,135) 18172000 + IF(II) 10 , 10 , 20 18173000 + 10 CALL ERRORE(8HSLAVE3 ,133) 18174000 + 20 IF(II-5) 30 , 30 , 10 18175000 + 30 GO TO ( 40 , 50 , 60 , 110 , 140 ),II 18176000 + 40 YP=YA 18177000 + GO TO 200 18178000 + 50 YP=YA+(XP-XA)*(YB-YA)/(XB-XA) 18179000 + GO TO 200 18180000 + 60 IF(XA) 50 , 50 , 70 18181000 + 70 IF(XB) 50 , 50 , 80 18182000 + 80 IF(XP) 90 , 90 , 100 18183000 + 90 CALL ERRORE(8HSLAVE3 ,134) 18184000 + 100 YP=YA+ALOG(XP/XA)*(YB-YA)/ALOG(XB/XA) 18185000 + GO TO 200 18186000 + 110 IF(YA) 50 , 50 , 120 18187000 + 120 IF(YB) 50 , 50 , 130 18188000 + 130 YP=YA*EXP((XP-XA)*ALOG(YB/YA)/(XB-XA)) 18189000 + GO TO 200 18190000 + 140 IF(YA) 60 , 60 , 150 18191000 + 150 IF(YB) 60 , 60 , 160 18192000 + 160 IF(XA) 130 , 130 , 170 18193000 + 170 IF(XB) 130 , 130 , 180 18194000 + 180 IF(XP) 90 , 90 , 190 18195000 + 190 YP=YA*EXP(ALOG(XP/XA)*ALOG(YB/YA)/ALOG(XB/XA)) 18196000 + 200 Y=YP 18197000 + RETURN 18198000 + END 18199000 + SUBROUTINE RREC(JT,NT,MODE,T) 18200000 +C ********************************************************* 18201000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18202000 + * N1X,N2X,NS,LX,LY,LB 18203000 + COMMON MAXA,A(1) 18204000 +C----- 18205000 + CALL DYRREC(JT,NT,MODE,T,A(LX),A(LY),A(LB)) 18206000 + RETURN 18207000 + END 18208000 + SUBROUTINE DYRREC(JT,NT,MODE,T,X,Y,B) 18209000 +C ************************************************** 18210000 +C DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI) 18211000 +C ************************************************** 18212000 + DIMENSION X(1),Y(1),B(1) 18213000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18214000 + * N1X,N2X,NS,LX,LY,LB 18215000 +C=====READ ONE RECORD FROM ENDF/B TAPE==================================18216000 +C JT = RECORD TYPE, 1-CONT, 2-LIST, 3-TAB1, 4-TAB2, 5-HOL LIST 18217000 +C 6-TPID 18218000 +C NT = INPUT TAPE NUMBER. 18219000 +C MODE=1 BINARY TAPE, STANDARD ARRANGEMENT 18220000 +C =2 BINARY TAPE, ALTERNATE ARRANGEMENT 18221000 +C =3 BCD CARD IMAGE TAPE 18222000 +C T = TEMPERATURE(KELVIN). IF T.GE.0 AND RECORD HAS A TEMPERATURE 18223000 +C DEPENDENCE, DATA WILL BE EVALUATED AT T. IF T.LT.0, ONLY 18224000 +C FIRST RECORD WILL BE READ. 18225000 +C-----ERROR STOP 99, NT NOT DEFINED 18226000 +C ERROR STOP 100, JT OUT OF RANGE 1-6 18227000 +C ERROR STOP 101, MODE OUT OF RANGE 1-3 18228000 +C ERROR STOP 102, T NOT IN RANGE GIVEN IN DATA 18229000 +C ERROR STOP 103, INTERPOLATION TABLE TOO LONG OR 0 18230000 +C ERROR STOP 104, LIST TOO LONG OR 0 18231000 +C ERROR STOP 105, TABULATION TOO LONG OR .LT.2 18232000 +C ERROR STOP 106, IMPROPER TEMPERATURE DEPENDENCE 18233000 +C-----ERROR STOP 107, MAT, MF, MT INCORRECT FOR JT=2, 3, 4, 5 18234000 +C-----PRELIMINARY TESTS 18235000 + IF(NT.LE.0)CALL ERRORE(8HSLAVE3 ,99) 18236000 + IF(JT.LT.1)GOTO 10 18237000 + IF(JT.LE.6)GOTO 20 18238000 + 10 CALL ERRORE(8HSLAVE3 ,100) 18239000 + 20 IF(MODE.LT.1)GOTO 30 18240000 + IF(MODE.LE.3)GOTO 40 18241000 + 30 CALL ERRORE(8HSLAVE3 ,101) 18242000 + 40 GOTO( 50 , 110 , 200 , 310 , 390 , 430 ),JT 18243000 +C-----JT=1, CONT RECORD 18244000 + 50 GOTO( 60 , 70 , 80 ),MODE 18245000 + 60 READ(NT)MAT,MF,MT,C1,C2,L1,L2,N1,N2 18246000 + GOTO 100 18247000 + 70 READ(NT)MF,MAT,MT,C1,C2,L1,L2,N1,N2 18248000 + GOTO 100 18249000 + 80 READ(NT, 90 )C1,C2,L1,L2,N1,N2,MAT,MF,MT 18250000 + 90 FORMAT(2E11.0,4I11,I4,I2,I3) 18251000 + 100 GOTO 710 18252000 +C-----JT=2, LIST RECORD 18253000 + 110 GOTO( 120 , 130 , 140 ),MODE 18254000 + 120 READ(NT)MAT,MF,MT,C1,C2,L1,L2,N1,N2,(B(N),N=1,N1) 18255000 + GOTO 160 18256000 + 130 READ(NT)MF,MAT,MT,C1,C2,L1,L2,N1,N2,(B(N),N=1,N1) 18257000 + GOTO 160 18258000 + 140 READ(NT, 150 )C1,C2,L1,L2,N1,N2,MAT,MF,MT,(B(N),N=1,N1) 18259000 + 150 FORMAT(2E11.0,4I11,I4,I2,I3/(6E11.0)) 18260000 + 160 IF(N1.GT.N2X)GOTO 170 18261000 + IF(N1.GE.1)GOTO 180 18262000 + 170 CALL ERRORE(8HSLAVE3 ,104) 18263000 + 180 IF(L1.LE.0)GOTO 690 18264000 + IF(T.LT.0.0)GOTO 690 18265000 + IF (MF.EQ.2) GO TO 690 18266000 + NP=N1 18267000 + DO 190 N=1,NP 18268000 + 190 Y(N)=B(N) 18269000 + GOTO 490 18270000 +C-----JT=3, TAB1 RECORD 18271000 + 200 GOTO( 210 , 220 , 230 ),MODE 18272000 + 210 READ(NT)MAT,MF,MT,C1,C2,L1,L2,N1,N2,(NBT(N),JNT(N),N=1,N1),(X(N),Y18273000 + *(N),N=1,N2) 18274000 + GOTO 260 18275000 + 220 READ(NT)MF,MAT,MT,C1,C2,L1,L2,N1,N2,(NBT(N),JNT(N),N=1,N1),(X(N),Y18276000 + *(N),N=1,N2) 18277000 + GOTO 260 18278000 + 230 READ(NT, 240 )C1,C2,L1,L2,N1,N2,MAT,MF,MT,(NBT(N),JNT(N),N=1,N1) 18279000 + 240 FORMAT(2E11.0,4I11,I4,I2,I3/(6I11)) 18280000 + READ(NT, 250 )(X(N),Y(N),N=1,N2) 18281000 + 250 FORMAT(6E11.0) 18282000 + 260 IF(N1.GT.N1X)GOTO 270 18283000 + IF(N1.GE.1)GOTO 280 18284000 + 270 CALL ERRORE(8HSLAVE3 ,103) 18285000 + 280 IF(N2.GT.N2X)GOTO 290 18286000 + IF(N2.GE.2)GOTO 300 18287000 + 290 CALL ERRORE(8HSLAVE3 ,105) 18288000 + 300 IF(L1.EQ.0)GOTO 690 18289000 + IF(T.LT.0.0)GOTO 690 18290000 + IF (MF.EQ.2) GO TO 690 18291000 + NP=N2 18292000 + GOTO 490 18293000 +C-----JT=4, TAB2 RECORD 18294000 + 310 GOTO( 320 , 330 , 340 ),MODE 18295000 + 320 READ(NT)MAT,MF,MT,C1,C2,L1,L2,N1,N2,(NBT(N),JNT(N),N=1,N1) 18296000 + GOTO 360 18297000 + 330 READ(NT)MF,MAT,MT,C1,C2,L1,L2,N1,N2,(NBT(N),JNT(N),N=1,N1) 18298000 + GOTO 360 18299000 + 340 READ(NT, 350 )C1,C2,L1,L2,N1,N2,MAT,MF,MT,(NBT(N),JNT(N),N=1,N1) 18300000 + 350 FORMAT(2E11.0,4I11,I4,I2,I3/(6I11)) 18301000 + 360 IF(N1.GT.N1X)GOTO 370 18302000 + IF(N1.GE.1)GOTO 380 18303000 + 370 CALL ERRORE(8HSLAVE3 ,103) 18304000 + 380 IF(N2.GT.N2X) GO TO 290 18305000 + IF(N2.LT.2) GO TO 290 18306000 + GO TO 690 18307000 +C-----JT=5, HOL LIST 18308000 + 390 GOTO( 110 , 110 , 400 ),MODE 18309000 + 400 READ(NT, 410 )C1,C2,L1,L2,NCD,N2,MAT,MF,MT 18310000 + 410 FORMAT(2E11.0,4I11,I4,I2,I3) 18311000 + N1=17*NCD 18312000 + IF(N1.LE.0)GOTO 170 18313000 + READ(NT, 420 )(B(N),N=1,N1) 18314000 + 420 FORMAT(16A4,A2) 18315000 + IF(N1.GT.N2X)GOTO 170 18316000 + GOTO 690 18317000 +C-----JT=6, TPID RECORD 18318000 + 430 GO TO ( 440 , 450 , 460 ), MODE 18319000 + 440 READ (NT) MAT,MF,MT,(B(N),N=1,17) 18320000 + GO TO 480 18321000 + 450 READ (NT) MF,MAT,MT, (B(N),N=1,17) 18322000 + GO TO 480 18323000 + 460 READ (NT, 470 ) (B(N),N=1,17), MAT,MF,MT 18324000 + 470 FORMAT(16A4,A2,I4,I2,I3) 18325000 + 480 GO TO 710 18326000 +C-----TEMPERATURE DEPENDENCE 18327000 + 490 IF(L1.GE.1)GOTO 510 18328000 + 500 CALL ERRORE(8HSLAVE3 ,106) 18329000 + 510 LT=L1 18330000 + TA=C1 18331000 + IF(T.GE.TA)GOTO 520 18332000 + CALL ERRORE(8HSLAVE3 ,102) 18333000 + 520 IF(T.EQ.TA)GOTO 610 18334000 + 530 GOTO( 540 , 540 , 550 ),MODE 18335000 + 540 READ(NT)Z,Z,Z,TB,Z,IC,Z,NP1,Z,(B(N),N=1,NP1) 18336000 + GOTO 570 18337000 + 550 READ(NT, 560 )TB,IC,NP1,(B(N),N=1,NP1) 18338000 + 560 FORMAT(E11.0,11X,I11,11X,I11/(6E11.0)) 18339000 + 570 LT=LT-1 18340000 + IF(NP1.NE.NP)GOTO 500 18341000 + IF(TB.LT.TA)GOTO 500 18342000 + IF(IC.LT.1)GOTO 500 18343000 + IF(IC.GT.5)GOTO 500 18344000 + IF(T.LE.TB)GOTO 590 18345000 + TA=TB 18346000 + DO 580 N=1,NP 18347000 + 580 Y(N)=B(N) 18348000 + IF(LT.LE.0)GOTO 500 18349000 + GOTO 530 18350000 + 590 DO 600 N=1,NP 18351000 + CALL TERP1(TA,Y(N),TB,B(N),T,Z,IC) 18352000 + 600 Y(N)=Z 18353000 + 610 GOTO( 640 , 620 , 640 , 640 ),JT 18354000 + 620 DO 630 N=1,NP 18355000 + 630 B(N)=Y(N) 18356000 + 640 IF(LT.LE.0)GOTO 680 18357000 + DO 670 L=1,LT 18358000 + GOTO( 650 , 650 , 660 ),MODE 18359000 + 650 READ(NT)Z,Z,Z,TB,Z,IC,Z,NP1,Z,(B(N),N=1,NP1) 18360000 + GOTO 670 18361000 + 660 READ(NT, 560 )TB,IC,NP1,(B(N),N=1,NP1) 18362000 + 670 CONTINUE 18363000 + 680 GOTO 690 18364000 +C-----CHECK MAT, MF, AND MT FOR JT=2, 3, 4, 5 18365000 + 690 IF(MAT.LE.0)GOTO 700 18366000 + IF(MF.LE.0)GOTO 700 18367000 + IF(MT.LE.0)GOTO 700 18368000 + GOTO 710 18369000 + 700 CALL ERRORE(8HSLAVE3 ,107) 18370000 +C-----FINISHED 18371000 + 710 RETURN 18372000 + END 18373000 + SUBROUTINE CXFP(X,F,S,N) 18374000 +C ************************************************************* 18375000 +C=====CONVERT X FOR PUNCHING ===========================================18376000 +C X - FLOATING POINT NUMBER = F*10.0**N 18377000 +C F - 0.999995 LE F LT 9.999995 18378000 +C S - SIGN (HOLLERITH + OR -) OF EXPONENT 18379000 +C N - EXPONENT 18380000 + DATA SP/1H+/,SM/1H-/ 18381000 + IF(X.NE.0.0) GO TO 10 18382000 + F=0.0 18383000 + S=SP 18384000 + N=0 18385000 + RETURN 18386000 + 10 N=ALOG10(ABS(X)) 18387000 + IF(ABS(X)-1.0) 40 , 20 , 20 18388000 + 20 F=X/10.0**N 18389000 + S=SP 18390000 + IF(ABS(F)-9.999995) 70 , 30 , 30 18391000 + 30 F=F/10.0 18392000 + N=N+1 18393000 + GO TO 70 18394000 + 40 N=1-N 18395000 + F=X*10.0**N 18396000 + S=SM 18397000 + IF(ABS(F)-9.999995) 70 , 50 , 50 18398000 + 50 F=F/10.0 18399000 + N=N-1 18400000 + IF(N) 60 , 60 , 70 18401000 + 60 S=SP 18402000 + 70 CONTINUE 18403000 + RETURN 18404000 + END 18405000 + SUBROUTINE PRCONT(NT,X,Y,B) 18406000 +C=====PRINT CONT TYPE RECORD ===========================================18407000 +C ************************************************** 18408000 +C DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI) 18409000 +C ************************************************** 18410000 + DIMENSION X(1),Y(1),B(1) 18411000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18412000 + * N1X,N2X,NS,LX,LY,LB 18413000 + IF(MAT.LT.0) GO TO 20 18414000 + IF(MAT.EQ.0) GO TO 80 18415000 + IF(MF.EQ.0) GO TO 60 18416000 + IF(MT.EQ.0) GO TO 40 18417000 + WRITE(NT, 10 )C1,C2,L1,L2,N1,N2,MAT,MF,MT,NS 18418000 + 10 FORMAT(5H0CONT,9X,2HC1,11X,2HC2, 18419000 + *11X,2HL1,11X,2HL2,11X,2HN1,11X,2HN2,8X, 18420000 + *3HMAT,16H MF MT SEQ/E20.4,E13.4,I9,3I13,I11,I4,I5,I7) 18421000 + GO TO 100 18422000 + 20 WRITE(NT, 30 ) MAT,MF,MT,NS 18423000 + 30 FORMAT(5H0TEND,19X,11HEND OF TAPE,53X,I4,I4,I5,I7) 18424000 + GO TO 100 18425000 + 40 WRITE(NT, 50 ) MAT,MF,MT,NS 18426000 + 50 FORMAT(5H0SEND,4X,14HEND OF SECTION,65X,I4,I4,I5,I7) 18427000 + GO TO 100 18428000 + 60 WRITE(NT, 70 ) MAT,MF,MT,NS 18429000 + 70 FORMAT(5H0FEND,9X,11HEND OF FILE,63X,I4,I4,I5,I7) 18430000 + GO TO 100 18431000 + 80 WRITE(NT, 90 ) MAT,MF,MT,NS 18432000 + 90 FORMAT(5H0MEND,14X,15HEND OF MATERIAL,54X,I4,I4,I5,I7) 18433000 + 100 NS=NS+1 18434000 + RETURN 18435000 + END 18436000 + SUBROUTINE PRHOL(NT,X,Y,B) 18437000 +C=====PRINT HOLLERITH LIST RECORD=======================================18438000 +C ************************************************** 18439000 +C DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI) 18440000 +C ************************************************** 18441000 + DIMENSION X(1),Y(1),B(1) 18442000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18443000 + * N1X,N2X,NS,LX,LY,LB 18444000 + NCD=N1/17 18445000 + WRITE(NT, 10 ) C1,C2,L1,L2,NCD,N2,MAT,MF,MT,NS 18446000 + 10 FORMAT(5H0COMM,9X,2HC1,11X,2HC2,11X,2HL1, 18447000 + *11X,2HL2,10X,3HNCD,11X,2HN2,8X, 18448000 + *3HMAT,16H MF MT SEQ/E20.4,E13.4,I9,3I13,I11,I4,I5,I7) 18449000 + NS=NS+1 18450000 + NI=1 18451000 + DO 30 NC=1,NCD 18452000 + NF=NI+16 18453000 + WRITE(NT, 20 ) (B(N),N=NI,NF),MAT,MF,MT,NS 18454000 + 20 FORMAT(1H /(10X,16A4,A2,9X,I7,I4,I5,I7)) 18455000 + NS=NS+1 18456000 + 30 NI=NI+17 18457000 + RETURN 18458000 + END 18459000 + SUBROUTINE PRLIST(NT,X,Y,B) 18460000 +C=====PRINT LIST TYPE RECORD============================================18461000 +C ************************************************** 18462000 +C DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI) 18463000 +C ************************************************** 18464000 + DIMENSION X(1),Y(1),B(1) 18465000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18466000 + * N1X,N2X,NS,LX,LY,LB 18467000 + WRITE(NT, 10 ) C1,C2,L1,L2,N1,N2,MAT,MF,MT,NS 18468000 + 10 FORMAT(5H0LIST,9X,2HC1,11X,2HC2, 18469000 + *11X,2HL1,11X,2HL2,11X,2HN1,11X,2HN2,8X, 18470000 + *3HMAT,16H MF MT SEQ/E20.4,E13.4,I9,3I13,I11,I4,I5,I7) 18471000 + NS=NS+1 18472000 + WRITE(NT, 20 ) 18473000 + 20 FORMAT(5H (N),7X,4HB(N),9X,6HB(N+1),7X, 18474000 + *6HB(N+2),7X,6HB(N+3),7X,6HB(N+4), 18475000 + *7X,6HB(N+5)) 18476000 + NI=1 18477000 + NF=6 18478000 + 30 IF(NF-N1) 40 , 40 , 70 18479000 + 40 WRITE(NT, 50 )NI,(B(N),N=NI,NF),MAT,MF,MT,NS 18480000 + 50 FORMAT(2H (,I3,2H) ,6E13.4,I7,I4,I5,I7) 18481000 + NS=NS+1 18482000 + IF(NF-N1) 60 , 190 , 190 18483000 + 60 NI=NI+6 18484000 + NF=NI+5 18485000 + GO TO 30 18486000 + 70 NE=N1-NI+1 18487000 + GO TO( 80 , 100 , 120 , 140 , 160 ),NE 18488000 + 80 WRITE(NT, 90 )NI,(B(N),N=NI,N1),MAT,MF,MT,NS 18489000 + 90 FORMAT(2H (,I3,2H) , E13.4,65X,I7,I4,I5,I7) 18490000 + GO TO 180 18491000 + 100 WRITE(NT, 110 )NI,(B(N),N=NI,N1),MAT,MF,MT,NS 18492000 + 110 FORMAT(2H (,I3,2H) ,2E13.4,52X,I7,I4,I5,I7) 18493000 + GO TO 180 18494000 + 120 WRITE(NT, 130 )NI,(B(N),N=NI,N1),MAT,MF,MT,NS 18495000 + 130 FORMAT(2H (,I3,2H) ,3E13.4,39X,I7,I4,I5,I7) 18496000 + GO TO 180 18497000 + 140 WRITE(NT, 150 )NI,(B(N),N=NI,N1),MAT,MF,MT,NS 18498000 + 150 FORMAT(2H (,I3,2H) ,4E13.4,26X,I7,I4,I5,I7) 18499000 + GO TO 180 18500000 + 160 WRITE(NT, 170 )NI,(B(N),N=NI,N1),MAT,MF,MT,NS 18501000 + 170 FORMAT(2H (,I3,2H) ,5E13.4,13X,I7,I4,I5,I7) 18502000 + 180 NS=NS+1 18503000 + 190 RETURN 18504000 + END 18505000 + SUBROUTINE PRTAB1(NT,X,Y,B) 18506000 +C=====PRINT TAB1 TYPE RECORD============================================18507000 +C ************************************************** 18508000 +C DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI) 18509000 +C ************************************************** 18510000 + DIMENSION X(1),Y(1),B(1) 18511000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18512000 + * N1X,N2X,NS,LX,LY,LB 18513000 + NR=N1 18514000 + NP=N2 18515000 + WRITE(NT, 10 )C1,C2,L1,L2,NR,NP,MAT,MF,MT,NS 18516000 + 10 FORMAT(5H0TAB1,9X,2HC1,11X,2HC2, 18517000 + *11X,2HL1,11X,2HL2,11X,2HNR,11X,2HNP,8X, 18518000 + *3HMAT,16H MF MT SEQ/E20.4,E13.4,I9,3I13,I11,I4,I5,I7) 18519000 + NS=NS+1 18520000 + WRITE(NT, 20 ) 18521000 + 20 FORMAT(5H (N),7X,6HNBT(N),7X,6HINT(N), 18522000 + *7X,8HNBT(N+1),5X,8HINT(N+1),5X, 18523000 + *8HNBT(N+2),5X,8HINT(N+2)) 18524000 + NI=1 18525000 + NF=3 18526000 + 30 IF(NF-NR) 40 , 40 , 70 18527000 + 40 WRITE(NT, 50 )NI,(NBT(N),JNT(N),N=NI,NF),MAT,MF,MT,NS 18528000 + 50 FORMAT(3H ( ,I2,1H),I10,5I13,I11,I4,I5,I7) 18529000 + NS=NS+1 18530000 + IF(NF-NR) 60 , 130 , 130 18531000 + 60 NI=NI+3 18532000 + NF=NI+2 18533000 + GO TO 30 18534000 + 70 IF(NF-NR-1) 130 , 100 , 80 18535000 + 80 WRITE(NT, 90 )NI,(NBT(N),JNT(N),N=NI,NR),MAT,MF,MT,NS 18536000 + 90 FORMAT(3H ( ,I2,1H),I10,I13,52X,I11,I4,I5,I7) 18537000 + GO TO 120 18538000 + 100 WRITE(NT, 110 )NI,(NBT(N),JNT(N),N=NI,NR),MAT,MF,MT,NS 18539000 + 110 FORMAT(3H ( ,I2,1H),I10,3I13,26X,I11,I4,I5,I7) 18540000 + 120 NS=NS+1 18541000 + 130 WRITE(NT, 140 ) 18542000 + 140 FORMAT(5H (N),7X,4HX(N),9X,4HY(N), 18543000 + *9X,6HX(N+1),7X,6HY(N+1),7X,6HX(N+2), 18544000 + *7X,6HY(N+2)) 18545000 + NI=1 18546000 + NF=3 18547000 + 150 IF(NF-NP) 160 , 160 , 190 18548000 + 160 WRITE(NT, 170 )NI,(X(N),Y(N),N=NI,NF),MAT,MF,MT,NS 18549000 + 170 FORMAT(2H (,I3,2H) ,6E13.4,I7,I4,I5,I7) 18550000 + NS=NS+1 18551000 + IF(NF-NP) 180 , 250 , 250 18552000 + 180 NI=NI+3 18553000 + NF=NI+2 18554000 + GO TO 150 18555000 + 190 IF(NF-NP-1) 250 , 220 , 200 18556000 + 200 WRITE(NT, 210 )NI,(X(N),Y(N),N=NI,NP),MAT,MF,MT,NS 18557000 + 210 FORMAT(2H (,I3,2H) ,2E13.4,52X,I7,I4,I5,I7) 18558000 + GO TO 240 18559000 + 220 WRITE(NT, 230 )NI,(X(N),Y(N),N=NI,NP),MAT,MF,MT,NS 18560000 + 230 FORMAT(2H (,I3,2H) ,4E13.4,26X,I7,I4,I5,I7) 18561000 + 240 NS=NS+1 18562000 + 250 RETURN 18563000 + END 18564000 + SUBROUTINE PRTAB2(NT,X,Y,B) 18565000 +C=====PRINT TAB2 TYPE RECORD============================================18566000 +C ************************************************** 18567000 +C DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI) 18568000 +C ************************************************** 18569000 + DIMENSION X(1),Y(1),B(1) 18570000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18571000 + * N1X,N2X,NS,LX,LY,LB 18572000 + NR=N1 18573000 + NP=N2 18574000 + WRITE(NT, 10 )C1,C2,L1,L2,NR,NP,MAT,MF,MT,NS 18575000 + 10 FORMAT(5H0TAB2,9X,2HC1,11X,2HC2,11X, 18576000 + *2HL1,11X,2HL2,11X,2HNR,11X,2HNP,8X, 18577000 + *3HMAT,16H MF MT SEQ/E20.4,E13.4,I9,3I13,I11,I4,I5,I7) 18578000 + NS=NS+1 18579000 + WRITE(NT, 20 ) 18580000 + 20 FORMAT(5H (N),7X,6HNBT(N),7X, 18581000 + *6HINT(N),7X,8HNBT(N+1),5X,8HINT(N+1),5X, 18582000 + *8HNBT(N+2),5X,8HINT(N+2)) 18583000 + NI=1 18584000 + NF=3 18585000 + 30 IF(NF-NR) 40 , 40 , 70 18586000 + 40 WRITE(NT, 50 )NI,(NBT(N),JNT(N),N=NI,NF),MAT,MF,MT,NS 18587000 + 50 FORMAT(3H ( ,I2,1H),I10,5I13,I11,I4,I5,I7) 18588000 + NS=NS+1 18589000 + IF(NF-NR) 60 , 130 , 130 18590000 + 60 NI=NI+3 18591000 + NF=NI+2 18592000 + GOTO 30 18593000 + 70 IF(NF-NR-1) 130 , 100 , 80 18594000 + 80 WRITE(NT, 90 )NI,(NBT(N),JNT(N),N=NI,NR),MAT,MF,MT,NS 18595000 + 90 FORMAT(3H ( ,I2,1H),I10,I13,52X,I11,I4,I5,I7) 18596000 + GOTO 120 18597000 + 100 WRITE(NT, 110 )NI,(NBT(N),JNT(N),N=NI,NR),MAT,MF,MT,NS 18598000 + 110 FORMAT(3H ( ,I2,1H),I10,3I13,26X,I11,I4,I5,I7) 18599000 + 120 NS=NS+1 18600000 + 130 RETURN 18601000 + END 18602000 + SUBROUTINE PRTPID(NT,X,Y,B) 18603000 +C=====PRINT TPID RECORD ================================================18604000 +C ************************************************** 18605000 +C DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI) 18606000 +C ************************************************** 18607000 + DIMENSION X(1),Y(1),B(1) 18608000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18609000 + * N1X,N2X,NS,LX,LY,LB 18610000 + WRITE (NT, 10 ) (B(N),N=1,17), MAT 18611000 + 10 FORMAT(5H0TPID,82X,5HLABEL/10X,16A4,A2,9X,I7) 18612000 + NS=NS+1 18613000 + RETURN 18614000 + END 18615000 + SUBROUTINE PUCONT(NT,X,Y,B) 18616000 +C=====PUNCH CONT TYPE RECORD ===========================================18617000 +C ************************************************** 18618000 +C DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI) 18619000 +C ************************************************** 18620000 + DIMENSION X(1),Y(1),B(1) 18621000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18622000 + * N1X,N2X,NS,LX,LY,LB 18623000 + IF(MT.LE.0) GO TO 20 18624000 + CALL CXFP(C1,F1,S1,J1) 18625000 + CALL CXFP(C2,F2,S2,J2) 18626000 + WRITE(NT, 10 )F1,S1,J1,F2,S2,J2,L1,L2,N1,N2,MAT,MF,MT,NS 18627000 + 10 FORMAT(2(F8.5,A1,I2),4I11,I4,I2,I3,I5) 18628000 + GO TO 40 18629000 + 20 WRITE(NT, 30 )MAT,MF,MT,NS 18630000 + 30 FORMAT(66X,I4,I2,I3,I5) 18631000 + 40 NS=NS+1 18632000 + RETURN 18633000 + END 18634000 + SUBROUTINE PUHOL(NT,X,Y,B) 18635000 +C=====PUNCH HOLLERITH LIST RECORD=======================================18636000 +C ************************************************** 18637000 +C DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI) 18638000 +C ************************************************** 18639000 + DIMENSION X(1),Y(1),B(1) 18640000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18641000 + * N1X,N2X,NS,LX,LY,LB 18642000 + DIMENSION F(6),S(6),J(6) 18643000 + NCD=N1/17 18644000 + CALL CXFP(C1,F(1),S(1),J(1)) 18645000 + CALL CXFP(C2,F(2),S(2),J(2)) 18646000 + WRITE(NT, 10 ) F(1),S(1),J(1),F(2),S(2),J(2),L1,L2,NCD,N2,MAT,MF,M18647000 + *T,NS 18648000 + 10 FORMAT(2(F8.5,A1,I2),4I11,I4,I2,I3,I5) 18649000 + NS=NS+1 18650000 + NI=1 18651000 + DO 30 NC=1,NCD 18652000 + NF=NI+16 18653000 + WRITE(NT, 20 ) (B(N),N=NI,NF),MAT,MF,MT,NS 18654000 + 20 FORMAT(16A4,A2,I4,I2,I3,I5) 18655000 + NS=NS+1 18656000 + 30 NI=NI+17 18657000 + RETURN 18658000 + END 18659000 + SUBROUTINE PULIST(NT,X,Y,B) 18660000 +C=====PUNCH LIST TYPE RECORD============================================18661000 +C ************************************************** 18662000 +C DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI) 18663000 +C ************************************************** 18664000 + DIMENSION X(1),Y(1),B(1) 18665000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18666000 + * N1X,N2X,NS,LX,LY,LB 18667000 + DIMENSION F(6),S(6),J(6) 18668000 + CALL CXFP(C1,F(1),S(1),J(1)) 18669000 + CALL CXFP(C2,F(2),S(2),J(2)) 18670000 + WRITE(NT, 10 )F(1),S(1),J(1),F(2),S(2),J(2),L1,L2,N1,N2,MAT,MF,MT,18671000 + *NS 18672000 + 10 FORMAT(2(F8.5,A1,I2),4I11,I4,I2,I3,I5) 18673000 + NS=NS+1 18674000 + NI=1 18675000 + 20 NE=N1-NI+1 18676000 + KX=6 18677000 + IF(NE-6) 30 , 40 , 40 18678000 + 30 KX=NE 18679000 + 40 DO 50 K=1,KX 18680000 + N=NI+K-1 18681000 + 50 CALL CXFP(B(N),F(K),S(K),J(K)) 18682000 + IF(NE-6) 90 , 60 , 60 18683000 + 60 WRITE(NT, 70 )(F(K),S(K),J(K),K=1,6),MAT,MF,MT,NS 18684000 + 70 FORMAT(6(F8.5,A1,I2),I4,I2,I3,I5) 18685000 + NS=NS+1 18686000 + IF(NE-6) 210 , 210 , 80 18687000 + 80 NI=NI+6 18688000 + GO TO 20 18689000 + 90 GO TO ( 100 , 120 , 140 , 160 , 180 ),NE 18690000 + 100 WRITE(NT, 110 )(F(K),S(K),J(K),K=1,1),MAT,MF,MT,NS 18691000 + 110 FORMAT(1(F8.5,A1,I2),55X,I4,I2,I3,I5) 18692000 + GO TO 200 18693000 + 120 WRITE(NT, 130 )(F(K),S(K),J(K),K=1,2),MAT,MF,MT,NS 18694000 + 130 FORMAT(2(F8.5,A1,I2),44X,I4,I2,I3,I5) 18695000 + GO TO 200 18696000 + 140 WRITE(NT, 150 )(F(K),S(K),J(K),K=1,3),MAT,MF,MT,NS 18697000 + 150 FORMAT(3(F8.5,A1,I2),33X,I4,I2,I3,I5) 18698000 + GO TO 200 18699000 + 160 WRITE(NT, 170 )(F(K),S(K),J(K),K=1,4),MAT,MF,MT,NS 18700000 + 170 FORMAT(4(F8.5,A1,I2),22X,I4,I2,I3,I5) 18701000 + GO TO 200 18702000 + 180 WRITE(NT, 190 )(F(K),S(K),J(K),K=1,5),MAT,MF,MT,NS 18703000 + 190 FORMAT(5(F8.5,A1,I2),11X,I4,I2,I3,I5) 18704000 + 200 NS=NS+1 18705000 + 210 RETURN 18706000 + END 18707000 + SUBROUTINE PUTAB1(NT,X,Y,B) 18708000 +C=====PUNCH TAB1 TYPE RECORD ===========================================18709000 +C ************************************************** 18710000 +C DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI) 18711000 +C ************************************************** 18712000 + DIMENSION X(1),Y(1),B(1) 18713000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18714000 + * N1X,N2X,NS,LX,LY,LB 18715000 + DIMENSION F(6),S(6),J(6) 18716000 + NR=N1 18717000 + NP=N2 18718000 + CALL CXFP(C1,F(1),S(1),J(1)) 18719000 + CALL CXFP(C2,F(2),S(2),J(2)) 18720000 + WRITE(NT, 10 )F(1),S(1),J(1),F(2),S(2),J(2),L1,L2,NR,NP,MAT,MF,MT,18721000 + *NS 18722000 + 10 FORMAT(F8.5,A1,I2,F8.5,A1,I2,4I11,I4,I2,I3,I5) 18723000 + NS=NS+1 18724000 + NI=1 18725000 + NF=3 18726000 + 20 IF(NF-NR) 30 , 30 , 60 18727000 + 30 WRITE(NT, 40 )(NBT(N),JNT(N),N=NI,NF),MAT,MF,MT,NS 18728000 + 40 FORMAT(6I11,I4,I2,I3,I5) 18729000 + NS=NS+1 18730000 + IF(NF-NR) 50 , 120 , 120 18731000 + 50 NI=NI+3 18732000 + NF=NI+2 18733000 + GO TO 20 18734000 + 60 IF(NF-NR-1) 120 , 90 , 70 18735000 + 70 WRITE(NT, 80 )(NBT(N),JNT(N),N=NI,NR),MAT,MF,MT,NS 18736000 + 80 FORMAT(2I11,44X,I4,I2,I3,I5) 18737000 + GO TO 110 18738000 + 90 WRITE(NT, 100 ) (NBT(N),JNT(N),N=NI,NR),MAT,MF,MT,NS 18739000 + 100 FORMAT(4I11,22X,I4,I2,I3,I5) 18740000 + 110 NS=NS+1 18741000 + 120 NI=1 18742000 + NF=3 18743000 + 130 IF(NF-NP) 140 , 140 , 180 18744000 + 140 DO 150 K=1,6,2 18745000 + N=NI+K/2 18746000 + CALL CXFP(X(N),F(K),S(K),J(K)) 18747000 + 150 CALL CXFP(Y(N),F(K+1),S(K+1),J(K+1)) 18748000 + WRITE(NT, 160 )(F(K),S(K),J(K),K=1,6),MAT,MF,MT,NS 18749000 + 160 FORMAT(6(F8.5,A1,I2),I4,I2,I3,I5) 18750000 + NS=NS+1 18751000 + IF(NF-NP) 170 , 250 , 250 18752000 + 170 NI=NI+3 18753000 + NF=NI+2 18754000 + GO TO 130 18755000 + 180 IF(NF-NP-1) 250 , 210 , 190 18756000 + 190 CALL CXFP(X(NI),F(1),S(1),J(1)) 18757000 + CALL CXFP(Y(NI),F(2),S(2),J(2)) 18758000 + WRITE(NT, 200 )(F(K),S(K),J(K),K=1,2),MAT,MF,MT,NS 18759000 + 200 FORMAT(2(F8.5,A1,I2),44X,I4,I2,I3,I5) 18760000 + GO TO 240 18761000 + 210 DO 220 K=1,4,2 18762000 + N=NI+K/2 18763000 + CALL CXFP(X(N),F(K),S(K),J(K)) 18764000 + 220 CALL CXFP(Y(N),F(K+1),S(K+1),J(K+1)) 18765000 + WRITE(NT, 230 )(F(K),S(K),J(K),K=1,4),MAT,MF,MT,NS 18766000 + 230 FORMAT(4(F8.5,A1,I2),22X,I4,I2,I3,I5) 18767000 + 240 NS=NS+1 18768000 + 250 CONTINUE 18769000 + RETURN 18770000 + END 18771000 + SUBROUTINE PUTAB2(NT,X,Y,B) 18772000 +C=====PUNCH TAB2 TYPE RECORD ===========================================18773000 +C ************************************************** 18774000 +C DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI) 18775000 +C ************************************************** 18776000 + DIMENSION X(1),Y(1),B(1) 18777000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18778000 + * N1X,N2X,NS,LX,LY,LB 18779000 + DIMENSION F(6),S(6),J(6) 18780000 + NR=N1 18781000 + NP=N2 18782000 + CALL CXFP(C1,F(1),S(1),J(1)) 18783000 + CALL CXFP(C2,F(2),S(2),J(2)) 18784000 + WRITE(NT, 10 )F(1),S(1),J(1),F(2),S(2),J(2),L1,L2,NR,NP,MAT,MF,MT,18785000 + *NS 18786000 + 10 FORMAT(F8.5,A1,I2,F8.5,A1,I2,4I11,I4,I2,I3,I5) 18787000 + NS=NS+1 18788000 + NI=1 18789000 + NF=3 18790000 + 20 IF(NF-NR) 30 , 30 , 60 18791000 + 30 WRITE(NT, 40 )(NBT(N),JNT(N),N=NI,NF),MAT,MF,MT,NS 18792000 + 40 FORMAT(6I11,I4,I2,I3,I5) 18793000 + NS=NS+1 18794000 + IF(NF-NR) 50 , 120 , 120 18795000 + 50 NI=NI+3 18796000 + NF=NI+2 18797000 + GO TO 20 18798000 + 60 IF(NF-NR-1) 120 , 90 , 70 18799000 + 70 WRITE(NT, 80 )(NBT(N),JNT(N),N=NI,NR),MAT,MF,MT,NS 18800000 + 80 FORMAT(2I11,44X,I4,I2,I3,I5) 18801000 + GO TO 110 18802000 + 90 WRITE(NT, 100 ) (NBT(N),JNT(N),N=NI,NR),MAT,MF,MT,NS 18803000 + 100 FORMAT(4I11,22X,I4,I2,I3,I5) 18804000 + 110 NS=NS+1 18805000 + 120 RETURN 18806000 + END 18807000 + SUBROUTINE PUTPID(NT,X,Y,B) 18808000 +C=====PUNCH TPID RECORD ================================================18809000 +C ************************************************** 18810000 +C DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI) 18811000 +C ************************************************** 18812000 + DIMENSION X(1),Y(1),B(1) 18813000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18814000 + * N1X,N2X,NS,LX,LY,LB 18815000 + NZ=0 18816000 + WRITE (NT, 10 ) (B(N),N=1,17), MAT,NZ,NZ,NZ 18817000 + 10 FORMAT(16A4,A2,I4,I2,I3,I5) 18818000 + NS=NS+1 18819000 + RETURN 18820000 + END 18821000 + SUBROUTINE STORE(JT,MA,LOF) 18822000 +C **************************************************************** 18823000 +C=====STORE RECORD IN DENSE STORAGE=====================================18824000 +C JT = RECORD TYPE, 1-CONT, 2-LIST, 3-TAB1, 4-TAB2, 5-HOL, 6-TPID 18825000 +C MA = IDENT OF RECORD TO BE STORED. IF A RECORD WITH 18826000 +C THE SAME IDENT IS ALREADY STORED, IT IS DELETED. 18827000 +C LOF= OVERFLOW INDICATOR NORMALLY ZERO. IF LOF=1, RECORD 18828000 +C WILL NOT FIT. 18829000 +C-----ERROR STOP 300, JT NOT IN RANGE 1-6 18830000 +C ERROR STOP 301, MA=0 NOT ALLOWED 18831000 + COMMON MAXA,A(1) 18832000 + COMMON/DENS/LJMT,LJAT,LJTT,LJLT,LARRAY,JNS,MNS,JX,MX 18833000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18834000 + 1 N1X,N2X,NS,LX,LY,LB 18835000 + CALL DYSTOR(A(LJMT),A(LJAT),A(LJTT),A(LJLT),A(LARRAY),A(LARRAY), 18836000 + 1 A(LX),A(LY),A(LB), 18837000 + 2 JT,MA,LOF) 18838000 + RETURN 18839000 + END 18840000 + SUBROUTINE DYSTOR(JMT,JAT,JTT,JLT,A,LA,X,Y,B,JT,MA,LOF) 18841000 +C ****************************************************** 18842000 + DIMENSION JMT(1),JAT(1),JTT(1),JLT(1),A(1),LA(1) 18843000 + COMMON/DENS/LJMT,LJAT,LJTT,LJLT,LARRAY,JNS,MNS,JX,MX 18844000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18845000 + 1 N1X,N2X,NS,LX,LY,LB 18846000 + DIMENSION X(1),Y(1),B(1) 18847000 +C-----INITIALIZE ANT TEST JT AND MA 18848000 + 100 LOF=0 18849000 + IF(MA)114,112,114 18850000 + 112 CALL ERRORE(6HDENSST,301) 18851000 + 114 IF((JT.LT.1).OR.(JT.GT.6))CALL ERRORE(6HDENSST,300) 18852000 +C-----TEST FOR RECORD WITH SAME IDENT 18853000 + 110 IF(MNS.LE.1)GOTO130 18854000 + MNSP=MNS-1 18855000 + DO120M=1,MNSP 18856000 + IF(JMT(M).EQ.MA)CALL DELETE(MA) 18857000 + 120 CONTINUE 18858000 + IF(MNS.GT.MX)GOTO320 18859000 +C-----TEST FOR TOO MANY VALUES 18860000 + 130 GOTO(140,150,160,170,150,180),JT 18861000 + 140 JL=9 18862000 + GOTO190 18863000 + 150 JL=9+N1 18864000 + GOTO190 18865000 + 160 JL=9+2*(N1+N2) 18866000 + GOTO190 18867000 + 170 JL=9+2*N1 18868000 + GOTO190 18869000 + 180 JL=20 18870000 + 190 IF((JNS+JL-1).GT.JX)GOTO320 18871000 +C-----MOVE FIRST 9 WORDS 18872000 + 200 LA(JNS)=MAT 18873000 + LA(JNS+1)=MF 18874000 + LA(JNS+2)=MT 18875000 + A(JNS+3)=C1 18876000 + A(JNS+4)=C2 18877000 + LA(JNS+5)=L1 18878000 + LA(JNS+6)=L2 18879000 + LA(JNS+7)=N1 18880000 + LA(JNS+8)=N2 18881000 +C-----MOVE REST OF RECORD 18882000 + 210 GOTO(310,220,240,270,220,290),JT 18883000 + 220 DO230N=1,N1 18884000 + J=JNS+8+N 18885000 + 230 A(J)=B(N) 18886000 + GOTO310 18887000 + 240 DO250N=1,N1 18888000 + J=JNS+7+2*N 18889000 + LA(J)=NBT(N) 18890000 + 250 LA(J+1)=JNT(N) 18891000 + JP=JNS+7+2*N1 18892000 + DO260N=1,N2 18893000 + J=JP+2*N 18894000 + A(J)=X(N) 18895000 + 260 A(J+1)=Y(N) 18896000 + GOTO310 18897000 + 270 DO280N=1,N1 18898000 + J=JNS+7+2*N 18899000 + LA(J)=NBT(N) 18900000 + 280 LA(J+1)=JNT(N) 18901000 + GOTO310 18902000 + 290 DO300N=1,17 18903000 + J=JNS+2+N 18904000 + 300 A(J)=B(N) 18905000 +C-----UPDATE TABLES AND COUNTERS 18906000 + 310 JMT(MNS)=MA 18907000 + JTT(MNS)=JT 18908000 + JAT(MNS)=JNS 18909000 + JLT(MNS)=JL 18910000 + MNS=MNS+1 18911000 + JNS=JNS+JL 18912000 + GOTO400 18913000 +C-----OVERFLOW 18914000 + 320 LOF=1 18915000 +C-----FINISHED 18916000 + 400 RETURN 18917000 + END 18918000 + SUBROUTINE TERP2(XP,YP,NX) 18919000 +C ************************************** 18920000 +C 18921000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18922000 + * N1X,N2X,NS,LX,LY,LB 18923000 + DIMENSION XP(NX),YP(NX) 18924000 + COMMON MAXA,A(1) 18925000 +C----- 18926000 + CALL DTERP2(XP,YP,NX,A(LX),A(LY),A(LB)) 18927000 + RETURN 18928000 + END 18929000 + SUBROUTINE DTERP2(XP,YP,NX,X,Y,B) 18930000 +C ************************************* 18931000 +C DYNAMIC ALLOCATION VERSION OF TERP2 FROM SLAVE3 18932000 +C ************************************************** 18933000 +C 18934000 +C=====FORM A NEW TABLE BY INTERPOLATION=================================18935000 +C XP(N),N=1,NX IS THE TABLE OF X AT WHICH Y IS WANTED 18936000 +C YP(N),N=1,NX IS THE TABLE OF Y TO BE COMPUTED BY 18937000 +C INTERPOLATION IN THE TAB1 RECORD IN /RECS/ 18938000 +C DISCONTINUITIES ARE TREATED PROPERLY 18939000 +C-----ERROR STOP 130, X NOT IN INCREASING ORDER 18940000 +C ERROR STOP 131, XP NOT IN INCREASING ORDER 18941000 +C-----ERROR STOP 132, INTERPOLATION TABLE INCORRECT 18942000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18943000 + * N1X,N2X,NS,LX,LY,LB 18944000 + DIMENSION XP(1),YP(1),X(1),Y(1),B(1) 18945000 + NST=1 18946000 + NSTP=1 18947000 + DO 210 M=1,NX 18948000 + XA=XP(M) 18949000 + IF(XA-X(1)) 10 , 20 , 20 18950000 + 10 YP(M)=0.0 18951000 + GOTO 210 18952000 + 20 DO 30 N=NST,N2 18953000 + NSTP=N 18954000 + NA=N 18955000 + IF(XA-X(N)) 160 , 40 , 30 18956000 + 30 CONTINUE 18957000 + GOTO 10 18958000 + 40 IF(NA-N2) 50 , 150 , 150 18959000 + 50 IF(X(NA)-X(NA+1)) 150 , 70 , 60 18960000 + 60 CALL ERRORE(8H TERP2 ,130) 18961000 + 70 IF(M-1) 140 , 140 , 80 18962000 + 80 IF(XP(M-1)-XP(M)) 110 , 100 , 90 18963000 + 90 CALL ERRORE(8H TERP2 ,131) 18964000 + 100 NA=NA+1 18965000 + GOTO 150 18966000 + 110 IF(M-NX) 120 , 150 , 150 18967000 + 120 IF(XP(M)-XP(M+1)) 130 , 150 , 90 18968000 + 130 YP(M)=0.5*(Y(NA)+Y(NA+1)) 18969000 + GOTO 210 18970000 + 140 IF(XP(M)-XP(M+1)) 100 , 150 , 90 18971000 + 150 YP(M)=Y(NA) 18972000 + GOTO 210 18973000 + 160 K=1 18974000 + 170 IF(NA-NBT(K)) 200 , 200 , 180 18975000 + 180 K=K+1 18976000 + IF(K-N1) 170 , 170 , 190 18977000 + 190 CALL ERRORE(8H TERP2 ,132) 18978000 + 200 I=JNT(K) 18979000 + CALL TERP1(X(NA-1),Y(NA-1),X(NA),Y(NA),XA,YP(M),I) 18980000 + 210 NST=NSTP 18981000 + RETURN 18982000 + END 18983000 + SUBROUTINE GRATE(XLP,XHP,ANS) 18984000 +C ********************************************************8 18985000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 18986000 + * N1X,N2X,NS,LX,LY,LB 18987000 + COMMON MAXA,A(1) 18988000 +C----- 18989000 + CALL DGRATE(XLP,XHP,ANS,A(LX),A(LY),A(LB)) 18990000 + RETURN 18991000 + END 18992000 + SUBROUTINE DGRATE(XLP,XHP,ANS,X,Y,B) 18993000 +C ********************************************************8 18994000 +C=====INTEGRATE TAB1 FUNCTION===========================================18995000 +C THE TAB1 FUNCTION IS IN COMMON/RECS/ 18996000 +C XLP AND XHP ARE THE INTEGRATION LIMITS 18997000 +C ANS IS THE ANSWER 18998000 +C-----ERROR STOP 315, INTERPOLATION TABLE INCORRECT 18999000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 19000000 + * N1X,N5X,NS,LX,LY,LB 19001000 + DIMENSION X(1),Y(1),B(1) 19002000 +C-----SWITCH LIMITS IF NECESSARY AND INITIALIZE 19003000 + ANS=0.0 19004000 + XL=XLP 19005000 + XH=XHP 19006000 + IF(XL-XH) 20 , 250 , 10 19007000 + 10 XL=XHP 19008000 + XH=XLP 19009000 +C-----LOCATE XL IN TABLE, XL GTHN OR EQUAL TO X(NL) 19010000 + 20 IF(XL-X(1)) 30 , 40 , 40 19011000 + 30 XL=X(1) 19012000 + IF(XH-XL) 250 , 250 , 40 19013000 + 40 DO 50 N=1,N2 19014000 + NL=N-1 19015000 + IF(XL-X(N)) 60 , 50 , 50 19016000 + 50 CONTINUE 19017000 + GO TO 250 19018000 +C-----LOCATE XH IN TABLE, XH GTHN X(NH) 19019000 + 60 IF(XH-X(N2)) 80 , 80 , 70 19020000 + 70 XH=X(N2) 19021000 + NH=N2-1 19022000 + GO TO 100 19023000 + 80 DO 90 N=NL,N2 19024000 + NH=N-1 19025000 + IF(XH-X(N)) 100 , 100 , 90 19026000 + 90 CONTINUE 19027000 +C-----FIND STARTING INTERPOLATION CODE 19028000 + 100 M=1 19029000 + 110 IF(NL+1-NBT(M)) 140 , 140 , 120 19030000 + 120 M=M+1 19031000 + IF(M-N1) 110 , 110 , 130 19032000 + 130 CALL ERRORE(8H GRATE ,315) 19033000 + 140 I=JNT(M) 19034000 +C=====SUM OVER PANELS 19035000 + IF(NH-NL) 150 , 150 , 160 19036000 +C-----ONLY ONE PANEL 19037000 + 150 CALL ECSI(X(NL),Y(NL),X(NL+1),Y(NL+1),XL,XH,I,ANS) 19038000 + GO TO 230 19039000 +C-----DO FIRST PANEL 19040000 + 160 CALL ECSI(X(NL),Y(NL),X(NL+1),Y(NL+1),XL,X(NL+1),I,ANS) 19041000 + N=NL 19042000 +C-----DO INTERMEDIATE PANELS 19043000 + 170 N=N+1 19044000 + 180 IF(N+1-NBT(M)) 200 , 200 , 190 19045000 + 190 M=M+1 19046000 + IF(M-N1) 180 , 180 , 130 19047000 + 200 I=JNT(M) 19048000 + IF(N-NH) 210 , 220 , 220 19049000 + 210 CALL ECSI(X(N),Y(N),X(N+1),Y(N+1),X(N),X(N+1),I,AN) 19050000 + ANS=ANS+AN 19051000 + GO TO 170 19052000 +C-----DO LAST PANEL 19053000 + 220 CALL ECSI(X(N),Y(N),X(N+1),Y(N+1),X(N),XH,I,AN) 19054000 + ANS=ANS+AN 19055000 +C=====FINISHED 19056000 + 230 IF(XLP-XHP) 250 , 250 , 240 19057000 + 240 ANS=-ANS 19058000 + 250 RETURN 19059000 + END 19060000 + SUBROUTINE ECSI(X3,Y3,X4,Y4,X1,X2,I,ANS) 19061000 +C ****************************************** 19062000 +C=====COMPUT INTEGRAL OF Y(X)===========================================19063000 +C Y(X) DEFINED BY THE END POINTS (X3,Y3), (X4,Y4), AND THE 19064000 +C INTERPOLATION CODE I. X1 AND X2 ARE THE INTEGRATION LIMITS. 19065000 +C-----ERROR STOP 19066000 +C 110 INTERPOLATION CODE OUT OF RANGE 19067000 +C X1 AND X2 MAY LIE OUTSIDE X3 AND X4 19068000 + ANS=0.0 19069000 + IF(X4-X3) 160 , 160 , 10 19070000 + 10 IP=I 19071000 + IF(IP) 20 , 20 , 30 19072000 + 20 CALL ERRORE(8H ECSI ,110) 19073000 + 30 IF(IP-5) 40 , 40 , 20 19074000 + 40 GOTO( 50 , 60 , 70 , 100 , 130 ),IP 19075000 +C-----Y CONSTANT 19076000 + 50 ANS=(X2-X1)*Y3 19077000 + GO TO 160 19078000 +C-----Y LINEAR IN X 19079000 + 60 B=(Y4-Y3)/(X4-X3) 19080000 + A=Y3-B*X3 19081000 + ANS=(X2-X1)*(A+0.5*B*(X2+X1)) 19082000 + GO TO 160 19083000 +C-----Y LINEAR IN LN(X) 19084000 + 70 IF((X3.LE.0.0).OR.(X4.LE.0.0)) GO TO 60 19085000 + B=(Y4-Y3)/ALOG(X4/X3) 19086000 + Z=(X2-X1)/X1 19087000 + IF(ABS(Z)-0.15) 80 , 80 , 90 19088000 + 80 ANS=(X2-X1)*(Y3+B*ALOG(X1/X3))+(0.5*B*X1*Z*Z)* 19089000 + *(1.0+Z*(-0.3333333+Z*(0.16666667-0.1*Z))) 19090000 + GO TO 160 19091000 + 90 ANS=(X2-X1)*(Y3+B*ALOG(X1/X3))+B*X1* 19092000 + *(1.0+(X2/X1)*(ALOG(X2/X1)-1.0)) 19093000 + GO TO 160 19094000 +C-----LN(Y) LINEAR IN X 19095000 + 100 IF((Y3.LE.0.0).OR.(Y4.LE.0.0))GO TO 60 19096000 + B=ALOG(Y4/Y3)/(X4-X3) 19097000 + A=ALOG(Y3)-B*X3 19098000 + Z=(X2-X1)*B 19099000 + IF(ABS(Z)-0.1) 110 , 110 , 120 19100000 + 110 ANS=EXP(A+B*X1)*(X2-X1)*(1.0+Z*(0.5+0.16666667*Z)) 19101000 + GO TO 160 19102000 + 120 ANS=EXP(A+B*X1)*(EXP(Z)-1.0)/B 19103000 + GO TO 160 19104000 +C-----LN(Y) LINEAR IN LN(X) 19105000 + 130 IF((X3.LE.0.0).OR.(X4.LE.0.0)) GO TO 100 19106000 + IF((Y3.LE.0.0).OR.(Y4.LE.0.0))GO TO 70 19107000 + B=ALOG(Y4/Y3)/ALOG(X4/X3) 19108000 + Z=(B+1.0)*ALOG(X2/X1) 19109000 + IF(ABS(Z)-0.1) 140 , 140 , 150 19110000 + 140 ANS=Y3*X1*((X1/X3)**B)*ALOG(X2/X1)*(1.+Z*(0.5+0.16666667*Z)) 19111000 + GO TO 160 19112000 + 150 ANS=Y3*X1*((X1/X3)**B)*(((X2/X1)**(B+1.0))-1.0)/(B+1.0) 19113000 + GO TO 160 19114000 +C-----FINISHED 19115000 + 160 RETURN 19116000 + END 19117000 + SUBROUTINE CROP(XL,XH,EPS,LOF) 19118000 +C ************************************************** 19119000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 19120000 + * N1X,N2X,NS,LX,LY,LB 19121000 + COMMON MAXA,A(1) 19122000 +C----- 19123000 + CALL DYCROP(XL,XH,EPS,LOF,A(LX),A(LY),A(LB)) 19124000 + RETURN 19125000 + END 19126000 + SUBROUTINE DYCROP(XL,XH,EPS,LOF,X,Y,B) 19127000 +C ************************************************** 19128000 +C DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI) 19129000 +C ************************************************** 19130000 + DIMENSION X(5),Y(5),B(5) 19131000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 19132000 + * N1X,N2X,NS,LX,LY,LB 19133000 +C=====CROP A TAB1 RECORD================================================19134000 +C A TAB1 RECORD IN /RECS/ IS CROPPED AND ONLY THE PORTION 19135000 +C BETWEEN X=XL AND X=XH IS RETAINED. PORTIONS OF THE RANGE 19136000 +C NOT DEFINED BY THE ORIGINAL TAB1 RECORD ARE SET TO ZERO. 19137000 +C UNNECESSARY POINTS ARE ELIMINATED IF THEY CAN BE 19138000 +C PREDICTED BY INTERPOLATION BETWEEN ADJACENT POINTS TO 19139000 +C RELATIVE ACCURACY OF EPS. 19140000 +C LOF=0, NORMAL RETURN 19141000 +C =1, RECORD TOO LARGE, REPEAT WITH LARGER EPS. 19142000 +C-----ERROR STOP 312, TAB1 RECORD INCORRECT 19143000 +C ERROR STOP 313, NBT, JNT TABLES TOO LARGE 19144000 +C COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(100),JNT(100), 19145000 +C * X(5000),Y(5000),B(5000),N1X,N2X,NS 19146000 + LOF=0 19147000 +C-----CROP UPPER END 19148000 + IF(X(N2).LE.XH)GOTO 50 19149000 + DO 10 N=1,N2 19150000 + NP=N 19151000 + IF(X(N).GE.XH)GOTO 20 19152000 + 10 CONTINUE 19153000 + 20 IF(NP.LE.1)GOTO 140 19154000 + DO 30 M=1,N1 19155000 + MP=M 19156000 + IF(NP.LE.NBT(M))GOTO 40 19157000 + 30 CONTINUE 19158000 + CALL ERRORE(8HSLAVE3 ,312) 19159000 + 40 I=JNT(MP) 19160000 + CALL TERP1(X(NP-1),Y(NP-1),X(NP),Y(NP),XH,YP,I) 19161000 + X(NP)=XH 19162000 + Y(NP)=YP 19163000 + N2=NP 19164000 + N1=MP 19165000 +C-----CROP LOWER END 19166000 + 50 IF(X(1).GE.XL)GOTO 150 19167000 + DO 60 N=1,N2 19168000 + NP=N 19169000 + IF(X(N).GT.XL)GOTO 70 19170000 + 60 CONTINUE 19171000 + GOTO 140 19172000 + 70 DO 80 M=1,N1 19173000 + MP=M 19174000 + IF(NP.LE.NBT(M))GOTO 90 19175000 + 80 CONTINUE 19176000 + CALL ERRORE(8HSLAVE3 ,312) 19177000 + 90 I=JNT(MP) 19178000 + CALL TERP1(X(NP-1),Y(NP-1),X(NP),Y(NP),XL,YP,I) 19179000 + X(NP-1)=XL 19180000 + Y(NP-1)=YP 19181000 + ND=NP-2 19182000 + IF(ND.LE.0)GOTO 150 19183000 + N2=N2-ND 19184000 + DO 100 N=1,N2 19185000 + K=N+ND 19186000 + X(N)=X(K) 19187000 + 100 Y(N)=Y(K) 19188000 + DO 110 M=1,N1 19189000 + 110 NBT(M)=NBT(M)-ND 19190000 + ND=MP-1 19191000 + IF(ND.LE.0)GOTO 130 19192000 + N1=N1-ND 19193000 + DO 120 M=1,N1 19194000 + K=M+ND 19195000 + NBT(M)=NBT(K) 19196000 + 120 JNT(M)=JNT(K) 19197000 + 130 GOTO 150 19198000 +C-----ENTIRE RANGE ZERO 19199000 + 140 X(1)=XL 19200000 + Y(1)=0.0 19201000 + X(2)=XH 19202000 + Y(2)=0.0 19203000 + N2=2 19204000 + NBT(1)=2 19205000 + JNT(1)=2 19206000 + N1=1 19207000 + GOTO 300 19208000 +C-----ELIMINATE UNNECESSARY POINTS 19209000 + 150 IF(EPS.LE.0.0)GOTO 210 19210000 + IF(N2.LE.2)GOTO 210 19211000 + M=1 19212000 + N=2 19213000 + 160 IF(N.LE.NBT(M))GOTO 170 19214000 + M=M+1 19215000 + IF(M.LE.N1)GOTO 160 19216000 + CALL ERRORE(8HSLAVE3 ,312) 19217000 + 170 I=JNT(M) 19218000 + IF(N+1.GT.NBT(M))GOTO 200 19219000 + IF(ABS(Y(N)).LE.1.0E-10)GOTO 200 19220000 + CALL TERP1(X(N-1),Y(N-1),X(N+1),Y(N+1),X(N),YP,I) 19221000 + IF(ABS((Y(N)-YP)/Y(N)).GT.EPS)GOTO 200 19222000 + NP=N+1 19223000 + DO 180 K=NP,N2 19224000 + X(K-1)=X(K) 19225000 + 180 Y(K-1)=Y(K) 19226000 + N2=N2-1 19227000 + DO 190 K=M,N1 19228000 + 190 NBT(K)=NBT(K)-1 19229000 + IF(N.GE.N2) GO TO 210 19230000 + GOTO 160 19231000 + 200 N=N+1 19232000 + IF(N.LT.N2)GOTO 160 19233000 +C-----ADD ZEROS TO UPPER END 19234000 + 210 IF(X(N2).GE.XH)GOTO 240 19235000 + IF(N2+2.GT.N2X)GOTO 290 19236000 + X(N2+1)=X(N2) 19237000 + Y(N2+1)=0.0 19238000 + X(N2+2)=XH 19239000 + Y(N2+2)=0.0 19240000 + N2=N2+2 19241000 + IF(JNT(N1).NE.2)GOTO 220 19242000 + NBT(N1)=N2 19243000 + GOTO 230 19244000 + 220 IF(N1+1.GT.N1X)CALL ERRORE(8HSLAVE3 ,313) 19245000 + N1=N1+1 19246000 + NBT(N1)=N2 19247000 + JNT(N1)=2 19248000 + 230 CONTINUE 19249000 +C-----ADD ZEROS TO LOWER END 19250000 + 240 IF(X(1).LE.XL)GOTO 300 19251000 + IF(N2+2.GT.N2X)GOTO 290 19252000 + DO 250 N=1,N2 19253000 + K=N2-N+1 19254000 + X(K+2)=X(K) 19255000 + 250 Y(K+2)=Y(K) 19256000 + X(1)=XL 19257000 + Y(1)=0.0 19258000 + X(2)=X(3) 19259000 + Y(2)=0.0 19260000 + N2=N2+2 19261000 + DO 260 M=1,N1 19262000 + 260 NBT(M)=NBT(M)+2 19263000 + IF(JNT(1).EQ.2)GOTO 280 19264000 + IF(N1+1.GT.N1X)CALL ERRORE(8HSLAVE3 ,313) 19265000 + DO 270 M=1,N1 19266000 + K=N1-M+1 19267000 + NBT(K+1)=NBT(K) 19268000 + 270 JNT(K+1)=JNT(K) 19269000 + NBT(1)=3 19270000 + JNT(1)=2 19271000 + N1=N1+1 19272000 + 280 GOTO 300 19273000 +C-----OVERFLOW 19274000 + 290 LOF=1 19275000 +C-----FINISHED 19276000 + 300 RETURN 19277000 + END 19278000 + SUBROUTINE GENT1(FUNC,CON,XL,XH,EPS,LOF) 19279000 +C ************************************************** 19280000 + EXTERNAL FUNC 19281000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 19282000 + * N1X,N2X,NS,LX,LY,LB 19283000 + COMMON MAXA,A(1) 19284000 + DIMENSION CON(2) 19285000 +C----- 19286000 + CALL DYGNT1(FUNC,CON,XL,XH,EPS,LOF,A(LX),A(LY),A(LB)) 19287000 + RETURN 19288000 + END 19289000 + SUBROUTINE DYGNT1(FUNC,CON,XL,XH,EPS,LOF,X,Y,B) 19290000 +C ************************************************** 19291000 +C DYNAMIC ALLOCATION VERSION OF SLAVE3 (PANINI) 19292000 +C ************************************************** 19293000 + DIMENSION X(1),Y(1),B(1) 19294000 + COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(200),JNT(200), 19295000 + * N1X,N2X,NS,LX,LY,LB 19296000 +C=====GENERATE TAB1 FOR AN ANALYTIC FUNCTION============================19297000 +C FUNC IS THE NAME OF A FUNCTION SUBPROGRAM CALLED BY 19298000 +C Y=FUNC(X,CON), WHERE CON(N) IS A LIST OF 19299000 +C AUXILLIARY CONSTANTS NEEDED TO EVALUATE THE FUNCTION. 19300000 +C XL AND XH ARE THE LOWER AND UPPER LIMITS OF X TO BE USED. 19301000 +C EPS IS A RELATIVE ERROR CRITERION. 19302000 +C LOF=0, NORMAL RETURN 19303000 +C =1, TAB1 RECORD IS TOO LARGE 19304000 +C-----THE RESULTING TAB1 RECORD APPEARS IN COMMON/RECS/ 19305000 +C COMMON/RECS/MAT,MF,MT,C1,C2,L1,L2,N1,N2,NBT(100),JNT(100), 19306000 +C * X(5000),Y(5000),B(5000),N1X,N2X,NS 19307000 + DIMENSION TX(9),TY(9),ICTA(5),ERTA(5),ICTB(5),ERTB(5),CON(2) 19308000 + EXTERNAL FUNC 19309000 +C=====INITIALIZE 19310000 + LOF=0 19311000 + NR=0 19312000 + NP=1 19313000 + X(1)=XL 19314000 + Y(1)=FUNC(XL,CON) 19315000 + TX(1)=X(1) 19316000 + TY(1)=Y(1) 19317000 + DEL=(XH-XL)/100.0 19318000 +C-----SET UP STRING OF 4 MORE POINTS 19319000 + 10 DO 20 N=2,5 19320000 + TX(N)=TX(N-1)+DEL 19321000 + 20 TY(N)=FUNC(TX(N),CON) 19322000 + 30 DO 40 IC=2,5 19323000 + 40 ICTA(IC)=1 19324000 + K=5 19325000 +C=====CONSIDER POINT K, TEST INTERMEDIATE VALUES 19326000 + 50 DO 60 IC=2,5 19327000 + ICTB(IC)=ICTA(IC) 19328000 + 60 ERTB(IC)=ERTA(IC) 19329000 + DO 80 N=1,K 19330000 + IF(TX(N).GT.0.0)GOTO 70 19331000 + ICTA(3)=0 19332000 + ICTA(5)=0 19333000 + 70 IF(TY(N).GT.0.0)GOTO 80 19334000 + ICTA(4)=0 19335000 + ICTA(5)=0 19336000 + 80 CONTINUE 19337000 + IPC=0 19338000 + KMO=K-1 19339000 + DO 110 IC=2,5 19340000 + IF(ICTA(IC).EQ.0)GOTO 110 19341000 + ERX=0.0 19342000 + DO 100 N=2,KMO 19343000 + CALL TERP1(TX(1),TY(1),TX(K),TY(K),TX(N),TYP,IC) 19344000 + IF(TY(N).NE.0.0) GOTO 81 19345000 + ERR=ABS(TYP-TY(N)) 19346000 + GOTO 82 19347000 + 81 ERR=ABS((TYP-TY(N))/TY(N)) 19348000 + 82 IF(ERR.LE.EPS)GOTO 90 19349000 + ICTA(IC)=0 19350000 + GOTO 110 19351000 + 90 IF(ERR.GT.ERX)ERX=ERR 19352000 + 100 CONTINUE 19353000 + ERTA(IC)=ERX 19354000 + IPC=1 19355000 + 110 CONTINUE 19356000 + IF(IPC.EQ.0)GOTO 170 19357000 + IF(TX(K).LT.XH) GO TO 130 19358000 + K=K+1 19359000 + DO 120 IC=2,5 19360000 + ICTB(IC)=ICTA(IC) 19361000 + 120 ERTB(IC)=ERTA(IC) 19362000 + GO TO 180 19363000 +C-----AT LEAST ONE CODE WORKS 19364000 + 130 IF(K.GE.9)GOTO 150 19365000 +C -K.LT.9, ADD ANOTHER POINT AND TRY AGAIN 19366000 + 140 K=K+1 19367000 + TX(K)=TX(K-1)+DEL 19368000 + TY(K)=FUNC(TX(K),CON) 19369000 + GOTO 50 19370000 +C -K.EQ.9, DOUBLE SPACING, ADD ANOTHER POINT AND TRY AGAIN 19371000 + 150 DO 160 N=2,5 19372000 + M=2*N-1 19373000 + TX(N)=TX(M) 19374000 + 160 TY(N)=TY(M) 19375000 + DEL=2.0*DEL 19376000 + K=5 19377000 + GOTO 140 19378000 +C-----ALL CODES FAILED 19379000 + 170 IF(K.GT.5)GOTO 180 19380000 +C -HALVE SPACING AND TRY AGAIN 19381000 + DEL=DEL/2.0 19382000 + TX(5)=TX(3) 19383000 + TY(5)=TY(3) 19384000 + TX(3)=TX(2) 19385000 + TY(3)=TY(2) 19386000 + TX(2)=TX(1)+DEL 19387000 + TY(2)=FUNC(TX(2),CON) 19388000 + TX(4)=TX(3)+DEL 19389000 + TY(4)=FUNC(TX(4),CON) 19390000 + GOTO 30 19391000 +C=====OK, ACCEPT LAST GOOD POINT 19392000 + 180 K=K-1 19393000 + IF(TX(K).LE.XH)GOTO 190 19394000 + TX(K)=XH 19395000 + TY(K)=FUNC(XH,CON) 19396000 + 190 IF(NR.LE.0)GOTO 200 19397000 + ICL=JNT(NR) 19398000 + IF(ICTB(ICL).EQ.0)GOTO 200 19399000 + NBT(NR)=NP+1 19400000 + GOTO 220 19401000 + 200 ERM=1.0E+10 19402000 + DO 210 IC=2,5 19403000 + IF(ICTB(IC).EQ.0)GOTO 210 19404000 + IF(ERTB(IC).GT.ERM)GOTO 210 19405000 + ERM=ERTB(IC) 19406000 + ICP=IC 19407000 + 210 CONTINUE 19408000 + NR=NR+1 19409000 + IF(NR.GT.N1X)GOTO 230 19410000 + NBT(NR)=NP+1 19411000 + JNT(NR)=ICP 19412000 + 220 NP=NP+1 19413000 + IF(NP.GT.N2X)GOTO 230 19414000 + X(NP)=TX(K) 19415000 + Y(NP)=TY(K) 19416000 + IF(TX(K).GE.XH)GOTO 240 19417000 + DEL=(TX(K)-TX(1))/4.0 19418000 + TX(1)=TX(K) 19419000 + TY(1)=TY(K) 19420000 + GOTO 10 19421000 +C-----OVERFLOW ERROR 19422000 + 230 LOF=1 19423000 +C=====FINISHED 19424000 + 240 N1=NR 19425000 + N2=NP 19426000 + RETURN 19427000 + END 19428000 + FUNCTION FISS(X,X0) 19429000 +C *************************************** 19430000 +C=====EVALUATE SIMPLE FISSION SPECTRUM==================================19431000 + FISS=SQRT((4.0*X)/(3.1415927*X0**3))*EXP(-X/X0) 19432000 + RETURN 19433000 + END 19434000 +C ***************************************************************819435000 +C ================================================================19436000 +C INDEX OF ROUTINES OF TESEO CODE 19437000 +C ================================================================19438000 +C NAME FUNCTION STATEMENT19439000 +C ----------------------------------------------------------------19440000 +C MAIN FIX DIMENSIONS OF THE BLANK COMMON 1 19441000 +C GELIB READS USER COMMAND, CALL SUBROUTINES 1000 19442000 +C TABNIZ DEFINES COMPUTATION PARAMETERS 6450 19443000 +C FORCRW FORCES ROUTINES TO REWIND FILES 7950 19444000 +C P1 DRIVER FOR PART 1 OF THE CODE 8100 19445000 +C P1F1 READS ENDFB FILE 1 9960 19446000 +C P1F2 READS ENDFB FILE 2 11300 19447000 +C POLLA # CONVERTS REICH-MOORE TO ADLER-ADLER FORMAT 16430 19448000 +C POLL0 # ENTRY OF POLLA ROUTINE 19449000 +C POLL1 # ENTRY OF POLLA ROUTINE 19450000 +C SR # PART OF POLLA CODE 18190 19451000 +C P1F3 READS ENDFB FILE 3 18940 19452000 +C P1F4 READS ENDFB FILE 4 20420 19453000 +C P1F5 READS ENDFB FILE 5 21770 19454000 +C FISS1 * FISSION SPECTRUM FORMULA 23930 19455000 +C RIEMP FILLS A MATRIX WITH A NUMBER 24060 19456000 +C BIANC FILLS A MATRIX WITH BLANKS 24180 19457000 +C AREAL * USES AN INTEGER NUMBER AS A REAL ONE 24300 19458000 +C NAREAL* USES A REAL NUMBER AS AN INTEGER ONE 24370 19459000 +C NREST * TEST OF DIVISIBILITY 24440 19460000 +C REW REWIND A FILE 24530 19461000 +C POSL POSITION A FILE AT THE FIRST AVAILABLE RECORD 24790 19462000 +C SKIPE SKIPS ENDFB SECTIONS 24980 19463000 +C SKIPS SKIPS ENDFB RECORDS 25120 19464000 +C RECTPI READ TPID ENDFB RECORD (FIRST RECORD) 25470 19465000 +C NCONT * READ CONT RECORD AND CONTROLS MAT,MF,MT 25670 19466000 +C ERRORE PRINT ERROR MESSAGE FOR SLAVE3 ROUTINES 25920 19467000 +C ERR PRINT ERROR MESSAGE 26090 19468000 +C ERRP PRINT ERROR PARAMETERS 26230 19469000 +C EMPIN FILLS LINE OF INDEX MATRIX 26480 19470000 +C RDMIX READS INPUT TABLE 27040 19471000 +C MIXSHO PRINTS INPUT TABLE 28880 19472000 +C COMMR READS A COMMAND IN FREE FORMAT 29190 19473000 +C MIXIND EDITOR FOR INDEX OF INTERMEDIATE FILES 30860 19474000 +C LOADIN READS INDEX 31920 19475000 +C LOADI1 READS INDEX 32410 19476000 +C COMPIN REMOVES DATA FROM INDEX MATRIX 32650 19477000 +C SAVI WRITES INDEX MATRIX INTO A FILE 32870 19478000 +C SCARIN WRITES INDEX MATRIX INTO A FILE 33040 19479000 +C ORDINA ORDERING ROUTINE 33210 19480000 +C ORDIN1 ORDERING ROUTINE 33450 19481000 +C ORDM ORDERING ROUTINE 33690 19482000 +C ORDMD ORDERING ROUTINE 34280 19483000 +C SELR2 REMOVES DATA FROM A MATRIX 34880 19484000 +C P2 DRIVER FOR PART 2 OF TESEO CODE 35090 19485000 +C P2MCF1 COMPUTATIONS FOR FILE MCC2F1 OF MC2-II 37650 19486000 +C P2MCF3 COMPUTATION FOR FILE MCC2F3 39230 19487000 +C CALCR3 UNRESOLVED RESONANCE DATA 40630 19488000 +C PRESS COMPRESS A MATRIX ( UNRESOLVED RESONANCE DATA) 43290 19489000 +C P2MCF4 COMPUTATIONS FOR FILE MCC2F4 43560 19490000 +C BW BREIT-WIGNER RESONANCE PARAMETERS 45440 19491000 +C AA ADLER-ADLER RESONANCE PARAMETERS 47790 19492000 +C P2MCF5 COMPUTATIONS FOR FILE MCC2F5 49050 19493000 +C SMOOT SMOOTH CROSS SECTION COMPUTATION 52540 19494000 +C UNRES UNRESOLVED RESONANCE CROSS SECTIONS 54540 19495000 +C INPUT READS DATA (UNRESOLVED RESONANCE CROOS SECTIONS)56360 19496000 +C INTUN UNRESOLVED RESONANCE CALCULATION 59140 19497000 +C RES RESOLVED RESONANCE CALCULATION 60610 19498000 +C SIGRR RESOLVED RESONANCE CROSS SECTION FORMULAE 65280 19499000 +C GEDEP ENERGY DEPENDENCE OF RESONANCE PARAMETERS 67140 19500000 +C FIL PHASE ANGLE 67540 19501000 +C SCATP POTENTIAL SCATTERING 67680 19502000 +C LINSIG LINEAR TABULATION FROM RESONANCE PARAMETERS 67860 19503000 +C LINSI1 LINEARIZE ENDFB TABULATION 69840 19504000 +C BROAD @ DOPPLER BROADENING OF TABULATED CROSS SECTIONS 70930 19505000 +C NII NU CALCULATION 72660 19506000 +C TERPET $ INTERPOLATION 74080 19507000 +C TERP1T $ INTERPOLATION PARAMETERS 75360 19508000 +C GNUFT $ POLINOMIAL FIT 75680 19509000 +C SMEQ $ POLINOMIAL COEFFICIENTS 76430 19510000 +C P2MCF6 COMPUTATION FOR FILE MCC2F6 76760 19511000 +C P2F6RB REORDERS ENERGY DISTRIBUTION DATA 79960 19512000 +C P2F6SG ANELASTIC AND N,2N MULTIGROUP CROSS SECTIONS 85640 19513000 +C P2F6LV DISCRETE LEVELS FOR ANELASTIC AND N,2N 85900 19514000 +C P2F6EV EVAPORATION SPECTRUM FOR ANEL. AND N,2N 87840 19515000 +C P2F6TB TABULATED DATA FOR ANEL. AND N,2N DATA 88380 19516000 +C P2MCF7 CALCULATIONS FOR FILE MCC2F7 91210 19517000 +C P2MCF8 CALCULATIONS FOR FILE MCC2F8 93650 19518000 +C P2F8LG CONTINUATION OF P2MCF8 ROUTINE 94940 19519000 +C TABPL ELASTIC SCATTERING TABULATED DATA INTO LEG. POL.98650 19520000 +C COEGEN LEGENDRE POLINOMIAL COEFFICIENTS 100020 19521000 +C FATT * FACTORIAL 100280 19522000 +C PPLX * INTEGRAL OF LEGENDRE POLINOMIAL*X 100380 19523000 +C PL * LEGENDRE POLINOMIAL 100690 19524000 +C PPL * INTEGRAL OF LEGENDRE POLINOMIAL 100940 19525000 +C PPL4 * INTEGRAL OF LEGENDRE POLINOMIAL*EXP(.. 101210 19526000 +C PXEA * INTEGRAL OF FUNCTION OF LEGENDRE POLINOMIAL 101420 19527000 +C POST SET POSITION OF A FILE 101720 19528000 +C NCERC1 * LOOK FOR MATERILAL IN INPUT TABLE 101940 19529000 +C CONTR1 CONTROL OF MAT,MF,MT FLAGS 102350 19530000 +C SELR1 SELECTS RESONANCES 102630 19531000 +C ENERG ULTRAFINE GROUP ENERGY BOUNDARIES 102840 19532000 +C NORM NORMALIZES 103570 19533000 +C NSUMG1 * TESTS A VECTOR 103140 19534000 +C INFER * LOOKS FOR MINIMUM VALUE IN A VECTOR 103270 19535000 +C MAXX * LOOKS FOR MAXIMUM VALUE IN A VECTOR 103400 19536000 +C FILTB2 EXPANDS INTERPOLATION PARAMETERS 103510 19537000 +C SOGLM FIND ENERGY THRESHOLD FOR MULTIGROUP DATA 103660 19538000 +C SOGLM1 FIND THE RANGE OF MULTIGROUP DATA 103830 19539000 +C SOGL FIND THRESHOLD 103990 19540000 +C RIBA TURNS OVER A VECTOR 104160 19541000 +C TRASF FILLS A VECTOR WITH ANOTHER VECTOR 104300 19542000 +C TRASF1 FILLS A VECTOR 104420 19543000 +C FNDMX * FIND MAXIMUM FOR A ROW IN A MATRIX 104540 19544000 +C EXAM ANALYZE A VECTOR 104680 19545000 +C LIMIT THRESHOLD FOR A VECTOR 104990 19546000 +C CERCM FINDS A VALUE IN A VECTOR 105240 19547000 +C ORDMIC ORDERING ROUTINE 105390 19548000 +C ORDPU1 ORDERING ROUTINE 105460 19549000 +C ORDPU3 ORDERING ROUTINE 105820 19550000 +C ORD ORDERING ROUTINE 105990 19551000 +C ORDIND ORDERING ROUTINE 106160 19552000 +C ORDSOG ORDERING ROUTINE 106470 19553000 +C GRATTE INTEGRATION ROUTINE 106740 19554000 +C INTEGG INTEGRATION ROUTINE 107230 19555000 +C GRATP INTEGRATION ROUTINE 107700 19556000 +C INTS1 INTEGRATION ROUTINE 108210 19557000 +C INTS2 INTEGRATION ROUTINE 109750 19558000 +C FTABLE $ CALCULATIONS FOR FILE MCC2F2 111490 19559000 +C FXPTBL $ CALCULATIONS FOR FILE MCC2F2 112910 19560000 +C EI $ CALCULATIONS FOR FILE MCC2F2 113450 19561000 +C ESCAPE $ CALCULATIONS FOR FILE MCC2F2 114080 19562000 +C ETABLE $ CALCULATIONS FOR FILE MCC2F2 115630 19563000 +C EXPFCT $ CALCULATIONS FOR FILE MCC2F2 116550 19564000 +C E3 $ CALCULATIONS FOR FILE MCC2F2 116940 19565000 +C KI3 $ CALCULATIONS FOR FILE MCC2F2 117360 19566000 +C P3 DRIVER FOR PART 3 OF TESEO CODE 117730 19567000 +C ORDTAB ORDERS MUCLIDE TO BE PRODUCED 121740 19568000 +C P3MCF3 PRODUCES FILE MCC2F3 122290 19569000 +C P3MCF4 PRODUCES FILE MCC2F4 124890 19570000 +C P3MCF5 PRODUCES FILE MCC2F5 127320 19571000 +C P3F51 CONTINUATION OF P3MCF5 ROUTINE 127800 19572000 +C P3MCF6 PRODUCES FILE MCC2F6 129740 19573000 +C READ6 READS DATA FOR P3MCF6 ROUTINE 131680 19574000 +C COMPAT ASSEMBLING OF DATA FOR FILE MCC2F6 132150 19575000 +C P3MCF7 PRODUCES FILE MCC2F7 132320 19576000 +C P3MC7N PRODUCES FILE MCC2F7 ( NU DATA ) 133330 19577000 +C P3MCF8 PRODUCES FILE MCC2F8 133810 19578000 +C P3MF81 CONTINUATION OF P3MCF8 ROUTINE 135760 19579000 +C P3MCF1 PRODUCES FILE MCC2F1 137040 19580000 +C P4 DRIVER FOR PART 4 OF TESEO CODE 138330 19581000 +C P4MCF1 READS MCC2F1 FILE 141450 19582000 +C P4MCF3 READS MCC2F3 FILE 141800 19583000 +C P4MCF4 READS MCC2F4 FILE 142730 19584000 +C P4MCF5 READS MCC2F5 FILE 143660 19585000 +C P4MCF6 READS MCC2F6 FILE 144600 19586000 +C SUMJ COMPUTES POSITIONS OF MCC2F6 DATA 146720 19587000 +C P4MCF7 READS MCC2F7 FILE 148920 19588000 +C P4MCF8 READS MCC2F8 FILE 149700 19589000 +C NEXDI1 * FIND A VALUE IN A MATRIX 150700 19590000 +C CNTRI TESTS ON INDEX MATRIX 150900 19591000 +C POST1 POSITIONS A FILE 151240 19592000 +C IDENT8 * POSITION OF A DATA IN A VECTOR 151450 19593000 +C BLOCK DATA $ FOR MCC2F8 DATA 151700 19594000 +C CLEB $ COMPUTES TABULATED DATA FOR MCC2F8 152170 19595000 +C MODPAR $ COMPUTES TABULATED DATA FOR MCC2F8 152650 19596000 +C LEGPOL $ COMPUTES TABULATED DATA FOR MCC2F8 153330 19597000 +C MATRIX $ COMPUTES TABULATED DATA FOR MCC2F8 153660 19598000 +C TMATRI $ COMPUTES TABULATED DATA FOR MCC2F8 155250 19599000 +C TMATRX $ COMPUTES TABULATED DATA FOR MCC2F8 156670 19600000 +C TMATRY $ COMPUTES TABULATED DATA FOR MCC2F8 157920 19601000 +C QUICKW $ CALCULATION OF DOPPLER FUNCTIONS 158870 19602000 +C WZERO $ CALCULATION OF DOPPLER FUNCTIONS 160350 19603000 +C WTABL $ CALCULATION OF DOPPLER FUNCTIONS 160820 19604000 +C W $ CALCULATION OF DOPPLER FUNCTIONS 161500 19605000 +C UNRINT + UNRESOLVED RESONANCE CROSS SECTIONS 164010 19606000 +C MATRIX1+ UNRESOLVED RESONANCE CROSS SECTIONS 173430 19607000 +C QUICKJ + UNRESOLVED RESONANCE CROSS SECTIONS 174860 19608000 +C WREC - WRITE ENDFB RECORD 177910 19609000 +C DYWREC - WRITE ENDFB RECORD 178000 19610000 +C DELETE - CLEAR STORAGE 178820 19611000 +C DYDELE - CLEAR STORAGE 178930 19612000 +C IPDS - INTERPOLATION ROUTINE 179520 19613000 +C IPDSDY - INTERPOLATION ROUTINE 179620 19614000 +C LRIDS - LOCATES RECORD IN STORAGE 180320 19615000 +C LRIDDY - LOCATES RECORD IN STORAGE 180420 19616000 +C FETCH - FETCH A RECORD FROM STORAGE 180680 19617000 +C FETCHD - FETCH A RECORD FROM STORAGE 180800 19618000 +C TERP1 - INTERPOLATION ROUTINE 181540 19619000 +C RREC - READS ENDFB RECORD 182000 19620000 +C DYRREC - READS ENDFB RECORD 182090 19621000 +C CXFP - FORMATS RECORD FOR OUTPUT 183740 19622000 +C PRCONT - PRINT CONT ENDFB RECORD 184060 19623000 +C PRHOL - PRINT HOLL ENDFB RECORD 184370 19624000 +C PRLIST - PRINT LIST ENDFB RECORD 184600 19625000 +C PRTAB1 - PRINT TAB1 ENDFB RECORD 185060 19626000 +C PRTAB2 - PRINT TAB2 ENDFB RECORD 185650 19627000 +C PRTPID - PRINT TPID ENDFB RECORD 186030 19628000 +C PUCONT - PRINT CONT ENDFB RECORD (IN CARD FORM) 186160 19629000 +C PUHOL - PRINT HOLL ENDFB RECORD ( IN CARD FORM) 186350 19630000 +C PULIST - PRINT LIST ENDFB RECORD ( IN CARD FORM ) 186600 19631000 +C PUTAB1 - PRINT TAB1 ENDFB RECORD ( IN CARD FORM) 187080 19632000 +C PUTAB2 - PRINT TAB2 ENDFB RECORD (IN CARD FORM) 187720 19633000 +C PUTPID - PRINT TPID ENDFB RECORD ( IN CARD FORM) 188080 19634000 +C STORE - STORE RECORD IN STORAGE 188220 19635000 +C DYSTOR - STORE RECORD IN STORAGE 188410 19636000 +C TERP2 - INTERPOLATION ROUTINE 189190 19637000 +C DTERP2 - INTERPOLATION ROUTINE 189300 19638000 +C GRATE - INTEGRATION ROUTINE 189840 19639000 +C DGRATE - INTEGRATION ROUTINE 189930 19640000 +C ECSI - INTEGRATION ROUTINE 190610 19641000 +C CROP - COMPRESS A RECORD 191180 19642000 +C DYCROP - COMPRESS A RECORD 191270 19643000 +C GENT1 - GENERATE TAB1 DATA FROM A FUNCTION 192790 19644000 +C DYGNT1 - GENERATES TAB1 DATA FROM A FUNCTION 192900 19645000 +C FISS - FISSION SPECTRUM FORMULA 194290 19646000 +C --------------------------------------------------------------- 19647000 +C * MEANS THAT THE ROUTINE IS A FUNCTION 19648000 +C # ROUTINE FROM POLLA CODE ( ORNL-TM-2599 BY G.DE SAUSSURE 19649000 +C AND R.B. PEREZ (1969) ) 19650000 +C @ ROUTINE WRITTEN BY G. FIONI 19651000 +C $ ROUTINE FROM ETOE CODE (APDA-219 , ENDF-120 (1968) , 19652000 +C BY D,M,GREEN AND T.A. PITTERLE) 19653000 +C + ROUTINE FROM MC2-II CODE ( ANL-8144 ,ENDF 239 (1976) 19654000 +C BY H.HENRYSON II,B.J. TOPPEL AND 19655000 +C C.G. STENBERG ) 19656000 +C - ROUTINE FROM SLAVE3 PROGRAM BY HONEK (ENDF-110 , 19657000 +C BNL 50300 (1971) ) 19658000 +C SLAVE# ROUTINES HAVE BEEN MODIFYED BY G. PANINI 19659000 +C TO ALLOW DYNAMIC ALLOCATION OF STORAGE 19660000 +C ______________________________________________________________ 19661000 + STOP 19662000 + END 19663000 diff --git a/teseo/tape b/teseo/tape new file mode 100644 index 0000000..be6ab98 --- /dev/null +++ b/teseo/tape @@ -0,0 +1,62 @@ +//#BAZZO1I JOB (1J7R,IT05),GALLI,CLASS=T,REGION=2048K, 00000100 +// MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=#BAZZO1,TIME=(,30) 00000200 +//******************************************************** 00000201 +//***** JCL TO GENERATE TESEO TAPE ********************* 00000210 +//***** WITH SAMPLE PROBLEM AND TESEO SOURCE ************ 00000220 +//******************************************************** 00000230 +/*SETUP TESEO 00000300 +//JOBCAT DD DSN=UTIBCATA,DISP=SHR 00000410 +// DD DSN=UTIBCATB,DISP=SHR 00000420 +//*********************************** SOURCE 00000428 +//A EXEC PGM=IEBGENER 00000430 +//SYSPRINT DD SYSOUT=A 00000500 +//SYSIN DD DUMMY 00000600 +//SYSUT1 DD DSN=#BAZZO1.TESEO.FORT(SOURCE),DISP=SHR 00000800 +//SYSUT2 DD UNIT=SELF4,VOL=SER=TESEO,DISP=(NEW,PASS), 00001000 +// LABEL=(1,NL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160,DEN=4) 00001100 +//*********************************** INPUT 00001110 +//B EXEC PGM=IEBGENER 00001200 +//SYSPRINT DD SYSOUT=A 00001300 +//SYSIN DD DUMMY 00001400 +//SYSUT1 DD DSN=#BAZZO1.TESEO.FORT(INPUT),DISP=SHR 00001500 +//SYSUT2 DD UNIT=SELF4,VOL=SER=TESEO,DISP=(NEW,PASS), 00002100 +// LABEL=(2,NL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160,DEN=4) 00002200 +//*********************************** JCL TO RUN SAMPLE PROBLEM 00002210 +//C EXEC PGM=IEBGENER 00002300 +//SYSPRINT DD SYSOUT=A 00002400 +//SYSIN DD DUMMY 00002500 +//SYSUT1 DD DSN=#BAZZO1.TESEO.FORT(JCL),DISP=SHR 00002600 +//SYSUT2 DD UNIT=SELF4,VOL=SER=TESEO,DISP=(NEW,PASS), 00003200 +// LABEL=(3,NL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160,DEN=4) 00003300 +//*********************************** THIS JOB ***************** 00003320 +//D EXEC PGM=IEBGENER 00003330 +//SYSPRINT DD SYSOUT=A 00003340 +//SYSIN DD DUMMY 00003350 +//SYSUT1 DD DSN=#BAZZO1.TESEO.FORT(TAPE),DISP=SHR 00003360 +//SYSUT2 DD UNIT=SELF4,VOL=SER=TESEO,DISP=(NEW,PASS), 00003370 +// LABEL=(4,NL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160,DEN=4) 00003380 +//*************************** TSO COMMANDS TO RUN SAMPLE PROBLEM 00003390 +//E EXEC PGM=IEBGENER 00003400 +//SYSPRINT DD SYSOUT=A 00003500 +//SYSIN DD DUMMY 00003600 +//SYSUT1 DD DSN=#BAZZO1.TESEO.FORT(TSO),DISP=SHR 00003700 +//SYSUT2 DD UNIT=SELF4,VOL=SER=TESEO,DISP=(NEW,PASS), 00004300 +// LABEL=(5,NL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160,DEN=4) 00004400 +//************ PRINTED OUTPUT OF THE SAMPLE PROBLEM ************** 00005530 +//F EXEC PGM=IEBGENER 00005600 +//SYSPRINT DD SYSOUT=A 00005700 +//SYSIN DD DUMMY 00005800 +//SYSUT1 DD DSN=#BAZZO1.MGOUT.DATA,DISP=SHR 00005900 +//SYSUT2 DD UNIT=SELF4,VOL=SER=TESEO,DISP=(NEW,PASS), 00006500 +// LABEL=(6,NL),DCB=(RECFM=FBA,LRECL=133,BLKSIZE=13300,DEN=4) 00006600 +//**************************************************************** 00006610 +//******************** LOAD MODULE ******************************* 00006620 +//************ COMPILED BY FORTRAN H ENHANCED OPTIMIZATION 2 ***** 00006630 +//G EXEC PGM=IEBGENER 00006640 +//SYSPRINT DD SYSOUT=A 00006650 +//SYSIN DD DUMMY 00006660 +//SYSUT1 DD DSN=#BAZZO1.TESEO.LOAD(QOPT2),DISP=SHR 00006670 +//SYSUT2 DD UNIT=SELF4,VOL=SER=TESEO,DISP=(NEW,PASS), 00006680 +// LABEL=(7,NL),DCB=(RECFM=U,BLKSIZE=19069,DEN=4) 00006690 +//POI EXEC ANALTAPE,VOL=TESEO,DEN=4,DEV=SELF 00006691 +// 00006700 diff --git a/teseo/tso b/teseo/tso new file mode 100644 index 0000000..7019671 --- /dev/null +++ b/teseo/tso @@ -0,0 +1,97 @@ +/* TSO PROCEDURE TO RUN TESEO SAMPLE PROBLEM IN AN INTERACTIVE WAY 00010001 +/* THE LOAD MODULE OF THE TESEO CODE IS SUPPOSED TO BE IN 00020001 +/* A DATA SET NAMED: TESEO.LOAD(QOPT2) 00030001 +/* THE FOLLOWING STATEMENT COMPILE AND LINK TESEO CODE 00040001 +/* FORVSCL TESEO.FORT LOADSET(TESEO.LOAD(VS)) 00050001 +/* FORTQCL TESEO.FORT LOADSET(TESEO.LOAD(QOPT2)) OPT(2) LARGE 00060001 +/* FORVSCL IS AN ENEA PROCEDURE TO COMPILE AND LINK BY FORTRAN VS IBM 00070001 +/* FORTQCL IS AN ENEA PROCEDURE TO COMPILE AND LINK BY FORTRAN IV 00080001 +/* -HEXTENDED -ENHANCHED COMPILER 00090001 +/* THE SPACE TO BE ALLOCATED ON FILES DEPENDS ON THE NUMBER OF MATERIALS00100001 +/* 00110001 +PROC 0 MEMBER(QOPT2) OUTPUT(*) LIBRARY(ENDFBIV.CU35B.DATA) NEW 00120001 + IF &NEW^=NEW THEN SET NEW=SHR 00130001 +CONTROL PROMPT,LIST,MSG 00140001 +WRITE ======== INDEX FILES ======= 00150000 +ALLOCATE DD(FT01F001) SPACE(10,10) TR UNIT(SYSDA) NEW,+ 00160000 + RECFM(V B S) BLKSIZE(6160) REUSE 00170001 +ALLOCATE DD(FT02F001) SPACE(10,10) TR UNIT(SYSDA) NEW,+ 00180001 + RECFM(V B S) BLKSIZE(6160) REUSE 00190001 +ALLOCATE DD(FT03F001) SPACE(10,10) TR UNIT(SYSDA) NEW,+ 00200001 + RECFM(V B S) BLKSIZE(6160) REUSE 00210001 +WRITE ========= INPUT OUTPUT ======= 00220000 +ALLOCATE DD(FT05F001) DSN(*) SHR REUSE 00230000 +ALLOCATE DD(FT06F001) DSN(&OUTPUT) SHR REUSE 00240000 +ALLOCATE DD(FT11F001) DSN(*) SHR REUSE 00250000 +ALLOCATE DD(FT12F001) DUMMY REUSE 00260000 +/* WRITE ============ ENDFB LIBRARY TO BE READ ====== 00270000 +ALLOCATE DD(FT13F001) DSN(&LIBRARY) SHR REUSE 00280000 +WRITE ========= FIRST GROUP OF INTERMEDIATE FILES ====== 00290000 +ALLOCATE DD(FT21F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+ 00300000 + RECFM(F B) LRECL(80) BLKSIZE(6160) 00310001 +ALLOCATE DD(FT22F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+ 00320001 + RECFM(F B) LRECL(80) BLKSIZE(6160) 00330001 +ALLOCATE DD(FT23F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+ 00340001 + RECFM(F B) LRECL(80) BLKSIZE(6160) 00350001 +WRITE ========= SECOND GROUP OF INTERMEDIATE FILES ====== 00360001 +ALLOCATE DD(FT31F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+ 00370001 + RECFM(V B S) BLKSIZE(6160) 00380001 +ALLOCATE DD(FT33F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+ 00390001 + RECFM(V B S) BLKSIZE(6160) 00400001 +ALLOCATE DD(FT34F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+ 00410001 + RECFM(V B S) BLKSIZE(6160) 00420001 +ALLOCATE DD(FT35F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+ 00430001 + RECFM(V B S) BLKSIZE(6160) 00440001 +ALLOCATE DD(FT36F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+ 00450001 + RECFM(V B S) BLKSIZE(6160) 00460001 +ALLOCATE DD(FT37F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+ 00470001 + RECFM(V B S) BLKSIZE(6160) 00480001 +ALLOCATE DD(FT38F001) SPACE(10,10) TR UNIT(SYSDA) REUSE,+ 00490001 + RECFM(V B S) BLKSIZE(6160) 00500001 + WRITE ============ PRODUCED MC2-II LIBRARY ========= 00510001 +ALLOCATE DD(FT51F001) DSN(MCC2F1) &NEW TR SPACE(1,1) REUSE,+ 00520001 + RECFM(V B S) BLKSIZE(6160) 00530001 +ALLOCATE DD(FT52F001) DUMMY REUSE REUSE 00540001 +ALLOCATE DD(FT53F001) DSN(MCC2F3) &NEW TR SPACE(5,5) REUSE,+ 00550001 + RECFM(V B S) BLKSIZE(6160) 00560000 +ALLOCATE DD(FT54F001) DSN(MCC2F4) &NEW TR SPACE(5,5) REUSE,+ 00570001 + RECFM(V B S) BLKSIZE(6160) 00580001 +ALLOCATE DD(FT55F001) DSN(MCC2F5) &NEW TR SPACE(20,10) REUSE,+ 00590001 + RECFM(V B S) BLKSIZE(6160) 00600001 +ALLOCATE DD(FT56F001) DSN(MCC2F6) &NEW TR SPACE(20,10) REUSE,+ 00610001 + RECFM(V B S) BLKSIZE(6160) 00620001 +ALLOCATE DD(FT57F001) DSN(MCC2F7) &NEW TR SPACE(1,1) REUSE,+ 00630001 + RECFM(V B S) BLKSIZE(6160) 00640001 +ALLOCATE DD(FT58F001) DSN(MCC2F8) &NEW TR SPACE(20,10) REUSE,+ 00650000 + RECFM(V B S) BLKSIZE(6160) 00660000 +WRITE ============ SCRATCH FILES FOR MCC2F6 ROUTINE ======== 00670000 +ALLOCATE DD(FT90F001) SPACE(20,10) TR UNIT(SYSDA) REUSE,+ 00680000 + RECFM(V B S) BLKSIZE(6160) 00690001 +ALLOCATE DD(FT91F001) SPACE(20,10) TR UNIT(SYSDA) REUSE,+ 00700000 + RECFM(V B S) BLKSIZE(6160) 00710001 +ALLOCATE DD(FT92F001) SPACE(20,10) TR UNIT(SYSDA) REUSE,+ 00720000 + RECFM(V B S) BLKSIZE(6160) 00730001 +ALLOCATE DD(FT93F001) SPACE(20,10) TR UNIT(SYSDA) REUSE,+ 00740000 + RECFM(V B S) BLKSIZE(6160) 00750001 +ALLOCATE DD(FT94F001) SPACE(20,10) TR UNIT(SYSDA) REUSE,+ 00760000 + RECFM(V B S) BLKSIZE(6160) 00770001 +ALLOCATE DD(FT95F001) SPACE(20,10) TR UNIT(SYSDA) REUSE,+ 00780000 + RECFM(V B S) BLKSIZE(6160) 00790001 +ALLOCATE DD(FT96F001) SPACE(20,10) TR UNIT(SYSDA) REUSE,+ 00800000 + RECFM(V B S) BLKSIZE(6160) 00810001 +ALLOCATE DD(FT97F001) SPACE(20,10) TR UNIT(SYSDA) REUSE,+ 00820000 + RECFM(V B S) BLKSIZE(6160) 00830001 +ALLOCATE DD(FT98F001) SPACE(20,10) TR UNIT(SYSDA) REUSE,+ 00840000 + RECFM(V B S) BLKSIZE(6160) 00850001 +WRITE ============ CALL TESEO CODE ======= 00860000 +CALL TESEO.LOAD(&MEMBER) 00870000 +/* INPUT TO BE GIVEN TO THE CODE: 00880000 +/*TITLE 00890001 +/*1 TESEO SAMPLE PROBLEM - 3 NUCLIDE LIBRARY GENERATION 00900001 +/*TABLIN 1 00910000 +/*B10 13 3 21 1273 00920000 +/*C12 13 3 22 1274 00930000 +/*U235 13 3 23 1261 00940000 +/*FINE 00950000 +/*GO 00960000 +/*STOP 00970000