summaryrefslogtreecommitdiff
path: root/Donjon/data/Reflector_beavrs_DF-RT_proc
diff options
context:
space:
mode:
Diffstat (limited to 'Donjon/data/Reflector_beavrs_DF-RT_proc')
-rw-r--r--Donjon/data/Reflector_beavrs_DF-RT_proc524
1 files changed, 524 insertions, 0 deletions
diff --git a/Donjon/data/Reflector_beavrs_DF-RT_proc b/Donjon/data/Reflector_beavrs_DF-RT_proc
new file mode 100644
index 0000000..6e8ee38
--- /dev/null
+++ b/Donjon/data/Reflector_beavrs_DF-RT_proc
@@ -0,0 +1,524 @@
+*DECK AdaptIsot.c2m
+*======================================================
+* Name: AdaptIsot.c2m
+* Type: DRAGON procedure
+* Use: Adapt automatically the list of isotopes according
+* to the chosen microlib
+* Adapte automatiquement la liste des isotopes en
+* fonction de la bibliotheque microscopique choisie
+* Author: M. Cordiez 07.2015
+* [Altran | IRSN/PSN-EXP/SNC/LNR]
+*------------------------------------------------------
+* Procedure called as:
+*------------------------------------------------------
+*
+* Input Required:
+* > Nuclear_Database
+* Output Provided:
+* < Molar_Masses
+*======================================================
+PARAMETER ListeIsot ListeAutop ::
+ ::: LINKED_LIST ListeIsot ListeAutop ; ;
+MODULE UTL: END: ;
+STRING NuclData ;
+STRING LibType ; ! Type de bibliotheque (ENDFBVII0...)
+INTEGER NbBibli := 9 ;
+EVALUATE NbBibli := NbBibli 2 * ; ! Nom des isotopes ecrits sur deux variables
+*------------------------------------------------------
+:: >>NuclData<< >>LibType<< ;
+
+*------------------------------------------------------
+* Identifiant numerique des bibliotheques
+*------------------------------------------------------
+INTEGER LibId ;
+STRING LibGenre ;
+! Identifiant de la bibliotheque pour ListeIsot
+ECHO "LibType=" LibType ;
+IF LibType 'ENDFVI8' = THEN
+ EVALUATE LibId := 1 ;
+ EVALUATE LibGenre := 'DRAGON' ;
+ELSEIF LibType 'ENDFVII0' = THEN
+ EVALUATE LibId := 8 1 * 1 + ;
+ EVALUATE LibGenre := 'DRAGON' ;
+ELSEIF LibType 'ENDFVII1' = THEN
+ EVALUATE LibId := 8 2 * 1 + ;
+ EVALUATE LibGenre := 'DRAGON' ;
+ELSEIF LibType 'JEF22' = THEN
+ EVALUATE LibId := 8 3 * 1 + ;
+ EVALUATE LibGenre := 'DRAGON' ;
+ELSEIF LibType 'JEFF31' = THEN
+ EVALUATE LibId := 8 4 * 1 + ;
+ EVALUATE LibGenre := 'DRAGON' ;
+ELSEIF LibType 'JEFF311' = THEN
+ EVALUATE LibId := 8 5 * 1 + ;
+ EVALUATE LibGenre := 'DRAGON' ;
+ELSEIF LibType 'JEFF312' = THEN
+ EVALUATE LibId := 8 6 * 1 + ;
+ EVALUATE LibGenre := 'DRAGON' ;
+ELSEIF LibType 'CEA514T2' = THEN
+ EVALUATE LibId := 8 7 * 1 + ;
+ EVALUATE LibGenre := 'APXSM' ;
+ELSEIF LibType 'CLA99CEA93' = THEN
+ EVALUATE LibId := 8 8 * 1 + ;
+ EVALUATE LibGenre := 'APLIB3' ;
+ELSE
+ ECHO "Cette bibliotheque n'est pas repertoriee..." ;
+ENDIF ;
+ECHO "AdaptIsot: LibId=" LibId "LibGenre=" LibGenre ;
+
+:: <<LibId>> <<LibGenre>> ;
+
+*------------------------------------------------------
+* Rq: les listes UTL acceptent seulement les chaines de caracteres de
+* 4 caracteres. On ecrit donc les isotopes sur deux variables qui
+* seront concatenees par la suite.
+*------------------------------------------------------
+
+* Liste des noms des isotopes
+
+! ENDFBVI8 ENDFBVII0 ENDFBVII1 JEF2.2
+! JEFF3.1 JEFF3.1.1 JEFF3.1.2 CEA514T2
+! CLA99CEA93
+ListeIsot := UTL: :: CREA 'H2O ' <<NbBibli>> =
+'FALS' 'E ' 'FALS' 'E ' 'FALS' 'E ' 'FALS' 'E '
+'FALS' 'E ' 'FALS' 'E ' 'FALS' 'E ' 'FALS' 'E '
+'H2O ' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'H1 ' <<NbBibli>> =
+'H1_H' '2O ' 'H1_H' '2O ' 'H1_H' '2O ' 'H1_H' '2O '
+'H1_H' '2O ' 'H1_H' '2O ' 'H1_H' '2O ' 'H1_H' '2O '
+'H1_H' '2O ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'B10 ' <<NbBibli>> =
+'B10 ' ' ' 'B10 ' ' ' 'B10 ' ' ' 'B10 ' ' '
+'B10 ' ' ' 'B10 ' ' ' 'B10 ' ' ' 'B10 ' ' '
+'B10 ' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'B11 ' <<NbBibli>> =
+'B11 ' ' ' 'B11 ' ' ' 'B11 ' ' ' 'B11 ' ' '
+'B11 ' ' ' 'B11 ' ' ' 'B11 ' ' ' 'B11 ' ' '
+'B11 ' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'CNat ' <<NbBibli>> =
+'C0 ' ' ' 'C0 ' ' ' 'C0 ' ' ' 'C0 ' ' '
+'C0 ' ' ' 'C0 ' ' ' 'C0 ' ' ' 'C ' ' '
+'C ' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'N14 ' <<NbBibli>> =
+'N14 ' ' ' 'N14 ' ' ' 'N14 ' ' ' 'N14 ' ' '
+'N14 ' ' ' 'N14 ' ' ' 'N14 ' ' ' 'N14 ' ' '
+'N14 ' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'O16 ' <<NbBibli>> =
+'O16 ' ' ' 'O16 ' ' ' 'O16 ' ' ' 'O16 ' ' '
+'O16 ' ' ' 'O16 ' ' ' 'O16 ' ' ' 'O16 ' ' '
+'O16 ' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Al27 ' <<NbBibli>> =
+'Al27' ' ' 'Al27' ' ' 'Al27' ' ' 'Al27' ' '
+'Al27' ' ' 'Al27' ' ' 'Al27' ' ' 'Al27' ' '
+'Al27' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'SiNat' <<NbBibli>> =
+'Si0 ' ' ' 'FALS' 'E ' 'FALS' 'E ' 'Si0 ' ' '
+'Si0 ' ' ' 'FALS' 'E ' 'FALS' 'E ' 'Si_n' 'at '
+'Si ' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Si28 ' <<NbBibli>> =
+'FALS' 'E ' 'Si28' ' ' 'Si28' ' ' 'FALS' 'E '
+'FALS' 'E ' 'Si28' ' ' 'Si28' ' ' 'Si28' ' '
+'FALS' 'E ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Si29 ' <<NbBibli>> =
+'FALS' 'E ' 'Si29' ' ' 'Si29' ' ' 'FALS' 'E '
+'FALS' 'E ' 'Si29' ' ' 'Si29' ' ' 'Si29' ' '
+'FALS' 'E ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Si30 ' <<NbBibli>> =
+'FALS' 'E ' 'Si30' ' ' 'Si30' ' ' 'FALS' 'E '
+'FALS' 'E ' 'Si30' ' ' 'Si30' ' ' 'Si30' ' '
+'FALS' 'E ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'TiNat' <<NbBibli>> =
+'Ti0 ' ' ' 'FALS' 'E ' 'FALS' 'E ' 'Ti0 ' ' '
+'Ti0 ' ' ' 'FALS' 'E ' 'FALS' 'E ' 'Ti_n' 'at '
+'Ti ' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Ti46 ' <<NbBibli>> =
+'FALS' 'E ' 'Ti46' ' ' 'Ti46' ' ' 'Ti46' ' '
+'FALS' 'E ' 'Ti46' ' ' 'Ti46' ' ' 'Ti46' ' '
+'FALS' 'E ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Ti47 ' <<NbBibli>> =
+'FALS' 'E ' 'Ti47' ' ' 'Ti47' ' ' 'FALS' 'E '
+'FALS' 'E ' 'Ti47' ' ' 'Ti47' ' ' 'Ti47' ' '
+'FALS' 'E ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Ti48 ' <<NbBibli>> =
+'FALS' 'E ' 'Ti48' ' ' 'Ti48' ' ' 'FALS' 'E '
+'FALS' 'E ' 'Ti48' ' ' 'Ti48' ' ' 'Ti48' ' '
+'FALS' 'E ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Ti49 ' <<NbBibli>> =
+'FALS' 'E ' 'Ti49' ' ' 'Ti49' ' ' 'FALS' 'E '
+'FALS' 'E ' 'Ti49' ' ' 'Ti49' ' ' 'Ti49' ' '
+'FALS' 'E ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Ti50 ' <<NbBibli>> =
+'FALS' 'E ' 'Ti50' ' ' 'Ti50' ' ' 'FALS' 'E '
+'FALS' 'E ' 'Ti50' ' ' 'Ti50' ' ' 'Ti50' ' '
+'FALS' 'E ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Cr50 ' <<NbBibli>> =
+'Cr50' ' ' 'Cr50' ' ' 'Cr50' ' ' 'Cr50' ' '
+'Cr50' ' ' 'Cr50' ' ' 'Cr50' ' ' 'Cr50' ' '
+'Cr50' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Cr52 ' <<NbBibli>> =
+'Cr52' ' ' 'Cr52' ' ' 'Cr52' ' ' 'Cr52' ' '
+'Cr52' ' ' 'Cr52' ' ' 'Cr52' ' ' 'Cr52' ' '
+'Cr52' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Cr53 ' <<NbBibli>> =
+'Cr53' ' ' 'Cr53' ' ' 'Cr53' ' ' 'Cr53' ' '
+'Cr53' ' ' 'Cr53' ' ' 'Cr53' ' ' 'Cr53' ' '
+'Cr53' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Cr54 ' <<NbBibli>> =
+'Cr54' ' ' 'Cr54' ' ' 'Cr54' ' ' 'Cr54' ' '
+'Cr54' ' ' 'Cr54' ' ' 'Cr54' ' ' 'Cr54' ' '
+'Cr54' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Mn55 ' <<NbBibli>> =
+'Mn55' ' ' 'Mn55' ' ' 'Mn55' ' ' 'Mn55' ' '
+'Mn55' ' ' 'Mn55' ' ' 'Mn55' ' ' 'Mn55' ' '
+'Mn55' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Fe54 ' <<NbBibli>> =
+'Fe54' ' ' 'Fe54' ' ' 'Fe54' ' ' 'Fe54' ' '
+'Fe54' ' ' 'Fe54' ' ' 'Fe54' ' ' 'Fe54' ' '
+'Fe54' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Fe56 ' <<NbBibli>> =
+'Fe56' ' ' 'Fe56' ' ' 'Fe56' ' ' 'Fe56' ' '
+'Fe56' ' ' 'Fe56' ' ' 'Fe56' ' ' 'Fe56' ' '
+'Fe56' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Fe57 ' <<NbBibli>> =
+'Fe57' ' ' 'Fe57' ' ' 'Fe57' ' ' 'Fe57' ' '
+'Fe57' ' ' 'Fe57' ' ' 'Fe57' ' ' 'Fe57' ' '
+'Fe57' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Fe58 ' <<NbBibli>> =
+'Fe58' ' ' 'Fe58' ' ' 'Fe58' ' ' 'Fe58' ' '
+'Fe58' ' ' 'Fe58' ' ' 'Fe58' ' ' 'Fe58' ' '
+'Fe58' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Co59 ' <<NbBibli>> =
+'Co59' ' ' 'Co59' ' ' 'Co59' ' ' 'Co59' ' '
+'Co59' ' ' 'Co59' ' ' 'Co59' ' ' 'Co59' ' '
+'Co59' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Ni58 ' <<NbBibli>> =
+'Ni58' ' ' 'Ni58' ' ' 'Ni58' ' ' 'Ni58' ' '
+'Ni58' ' ' 'Ni58' ' ' 'Ni58' ' ' 'Ni58' ' '
+'Ni58' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Ni60 ' <<NbBibli>> =
+'Ni60' ' ' 'Ni60' ' ' 'Ni60' ' ' 'Ni60' ' '
+'Ni60' ' ' 'Ni60' ' ' 'Ni60' ' ' 'Ni60' ' '
+'Ni60' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Ni61 ' <<NbBibli>> =
+'Ni61' ' ' 'Ni61' ' ' 'Ni61' ' ' 'Ni61' ' '
+'Ni61' ' ' 'Ni61' ' ' 'Ni61' ' ' 'Ni61' ' '
+'Ni61' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Ni62 ' <<NbBibli>> =
+'Ni62' ' ' 'Ni62' ' ' 'Ni62' ' ' 'Ni62' ' '
+'Ni62' ' ' 'Ni62' ' ' 'Ni62' ' ' 'Ni62' ' '
+'Ni62' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Ni64 ' <<NbBibli>> =
+'Ni64' ' ' 'Ni64' ' ' 'Ni64' ' ' 'Ni64' ' '
+'Ni64' ' ' 'Ni64' ' ' 'Ni64' ' ' 'Ni64' ' '
+'Ni64' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'ZrNat' <<NbBibli>> =
+'Zr0 ' ' ' 'FALS' 'E ' 'FALS' 'E ' 'Zr0 ' ' '
+'Zr0 ' ' ' 'FALS' 'E ' 'FALS' 'E ' 'Zr_n' 'at '
+'Zr ' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Zr90 ' <<NbBibli>> =
+'Zr90' ' ' 'Zr90' ' ' 'Zr90' ' ' 'Zr90' ' '
+'FALS' 'E ' 'Zr90' ' ' 'Zr90' ' ' 'Zr90' ' '
+'Zr90' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Zr91 ' <<NbBibli>> =
+'Zr91' ' ' 'Zr91' ' ' 'Zr91' ' ' 'Zr91' ' '
+'FALS' 'E ' 'Zr91' ' ' 'Zr91' ' ' 'Zr91' ' '
+'Zr91' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Zr92 ' <<NbBibli>> =
+'Zr92' ' ' 'Zr92' ' ' 'Zr92' ' ' 'Zr92' ' '
+'FALS' 'E ' 'Zr92' ' ' 'Zr92' ' ' 'Zr92' ' '
+'Zr92' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Zr93 ' <<NbBibli>> =
+'Zr93' ' ' 'Zr93' ' ' 'Zr93' ' ' 'Zr93' ' '
+'FALS' 'E ' 'Zr93' ' ' 'Zr93' ' ' 'Zr93' ' '
+'Zr93' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Zr94 ' <<NbBibli>> =
+'Zr94' ' ' 'Zr94' ' ' 'Zr94' ' ' 'Zr94' ' '
+'FALS' 'E ' 'Zr94' ' ' 'Zr94' ' ' 'Zr94' ' '
+'Zr94' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Zr95 ' <<NbBibli>> =
+'Zr95' ' ' 'Zr95' ' ' 'Zr95' ' ' 'Zr95' ' '
+'FALS' 'E ' 'Zr95' ' ' 'Zr95' ' ' 'Zr95' ' '
+'Zr95' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Zr96 ' <<NbBibli>> =
+'Zr96' ' ' 'Zr96' ' ' 'Zr96' ' ' 'Zr96' ' '
+'FALS' 'E ' 'Zr96' ' ' 'Zr96' ' ' 'Zr96' ' '
+'Zr96' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Nb93 ' <<NbBibli>> =
+'Nb93' ' ' 'Nb93' ' ' 'Nb93' ' ' 'Nb93' ' '
+'Nb93' ' ' 'Nb93' ' ' 'Nb93' ' ' 'Nb93' ' '
+'Nb93' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Mo95 ' <<NbBibli>> =
+'Mo95' ' ' 'Mo95' ' ' 'Mo95' ' ' 'Mo95' ' '
+'Mo95' ' ' 'Mo95' ' ' 'Mo95' ' ' 'Mo95' ' '
+'Mo95' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Ag107' <<NbBibli>> =
+'Ag10' '7 ' 'Ag10' '7 ' 'Ag10' '7 ' 'Ag10' '7 '
+'Ag10' '7 ' 'Ag10' '7 ' 'Ag10' '7 ' 'Ag10' '7 '
+'Ag10' '7 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Ag109' <<NbBibli>> =
+'Ag10' '9 ' 'Ag10' '9 ' 'Ag10' '9 ' 'Ag10' '9 '
+'Ag10' '9 ' 'Ag10' '9 ' 'Ag10' '9 ' 'Ag10' '9 '
+'Ag10' '9 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Cd106' <<NbBibli>> =
+'FALS' 'E ' 'Cd10' '6 ' 'Cd10' '6 ' 'Cd10' '6 '
+'FALS' 'E ' 'Cd10' '6 ' 'Cd10' '6 ' 'Cd10' '6 '
+'Cd10' '6 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Cd108' <<NbBibli>> =
+'FALS' 'E ' 'Cd10' '8 ' 'Cd10' '8 ' 'Cd10' '8 '
+'FALS' 'E ' 'Cd10' '8 ' 'Cd10' '8 ' 'Cd10' '8 '
+'Cd10' '8 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Cd110' <<NbBibli>> =
+'Cd11' '0 ' 'Cd11' '0 ' 'Cd11' '0 ' 'Cd11' '0 '
+'Cd11' '0 ' 'Cd11' '0 ' 'Cd11' '0 ' 'Cd11' '0 '
+'Cd11' '0 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Cd111' <<NbBibli>> =
+'Cd11' '1 ' 'Cd11' '1 ' 'Cd11' '1 ' 'Cd11' '1 '
+'Cd11' '1 ' 'Cd11' '1 ' 'Cd11' '1 ' 'Cd11' '1 '
+'Cd11' '1 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Cd112' <<NbBibli>> =
+'Cd11' '2 ' 'Cd11' '2 ' 'Cd11' '2 ' 'Cd11' '2 '
+'Cd11' '2 ' 'Cd11' '2 ' 'Cd11' '2 ' 'Cd11' '2 '
+'Cd11' '2 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Cd113' <<NbBibli>> =
+'Cd11' '3 ' 'Cd11' '3 ' 'Cd11' '3 ' 'Cd11' '3 '
+'Cd11' '3 ' 'Cd11' '3 ' 'Cd11' '3 ' 'Cd11' '3 '
+'Cd11' '3 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Cd114' <<NbBibli>> =
+'Cd11' '4 ' 'Cd11' '4 ' 'Cd11' '4 ' 'Cd11' '4 '
+'Cd11' '4 ' 'Cd11' '4 ' 'Cd11' '4 ' 'Cd11' '4 '
+'Cd11' '4 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Cd116' <<NbBibli>> =
+'Cd11' '6 ' 'Cd11' '6 ' 'Cd11' '6 ' 'Cd11' '6 '
+'Cd11' '6 ' 'Cd11' '6 ' 'Cd11' '6 ' 'Cd11' '6 '
+'Cd11' '6 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'In113' <<NbBibli>> =
+'FALS' 'E ' 'FALS' 'E ' 'FALS' 'E ' 'FALS' 'E '
+'FALS' 'E ' 'FALS' 'E ' 'FALS' 'E ' 'FALS' 'E '
+'In11' '3 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'In115' <<NbBibli>> =
+'FALS' 'E ' 'In11' '5 ' 'In11' '5 ' 'In11' '5 '
+'In11' '5 ' 'In11' '5 ' 'In11' '5 ' 'In11' '5 '
+'In11' '5 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'InNat' <<NbBibli>> =
+'In0 ' ' ' 'FALS' 'E ' 'FALS' 'E ' 'FALS' 'E '
+'FALS' 'E ' 'FALS' 'E ' 'FALS' 'E ' 'FALS' 'E '
+'FALS' 'E ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Sn112' <<NbBibli>> =
+'FALS' 'E ' 'Sn11' '2 ' 'Sn11' '2 ' 'Sn11' '2 '
+'FALS' 'E ' 'Sn11' '2 ' 'Sn11' '2 ' 'Sn11' '2 '
+'Sn11' '2 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Sn114' <<NbBibli>> =
+'FALS' 'E ' 'Sn11' '4 ' 'Sn11' '4 ' 'Sn11' '4 '
+'FALS' 'E ' 'Sn11' '4 ' 'Sn11' '4 ' 'Sn11' '4 '
+'Sn11' '4 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Sn115' <<NbBibli>> =
+'Sn11' '5 ' 'Sn11' '5 ' 'Sn11' '5 ' 'Sn11' '5 '
+'Sn11' '5 ' 'Sn11' '5 ' 'Sn11' '5 ' 'Sn11' '5 '
+'Sn11' '5 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Sn116' <<NbBibli>> =
+'Sn11' '6 ' 'Sn11' '6 ' 'Sn11' '6 ' 'Sn11' '6 '
+'Sn11' '6 ' 'Sn11' '6 ' 'Sn11' '6 ' 'Sn11' '6 '
+'Sn11' '6 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Sn117' <<NbBibli>> =
+'Sn11' '7 ' 'Sn11' '7 ' 'Sn11' '7 ' 'Sn11' '7 '
+'Sn11' '7 ' 'Sn11' '7 ' 'Sn11' '7 ' 'Sn11' '7 '
+'Sn11' '7 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Sn118' <<NbBibli>> =
+'Sn11' '8 ' 'Sn11' '8 ' 'Sn11' '8 ' 'Sn11' '8 '
+'Sn11' '8 ' 'Sn11' '8 ' 'Sn11' '8 ' 'Sn11' '8 '
+'Sn11' '8 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Sn119' <<NbBibli>> =
+'Sn11' '9 ' 'Sn11' '9 ' 'Sn11' '9 ' 'Sn11' '9 '
+'Sn11' '9 ' 'Sn11' '9 ' 'Sn11' '9 ' 'Sn11' '9 '
+'Sn11' '9 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Sn120' <<NbBibli>> =
+'Sn12' '0 ' 'Sn12' '0 ' 'Sn12' '0 ' 'Sn12' '0 '
+'Sn12' '0 ' 'Sn12' '0 ' 'Sn12' '0 ' 'Sn12' '0 '
+'Sn12' '0 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Sn122' <<NbBibli>> =
+'Sn12' '2 ' 'Sn12' '2 ' 'Sn12' '2 ' 'Sn12' '2 '
+'Sn12' '2 ' 'Sn12' '2 ' 'Sn12' '2 ' 'Sn12' '2 '
+'Sn12' '2 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Sn124' <<NbBibli>> =
+'Sn12' '4 ' 'Sn12' '4 ' 'Sn12' '4 ' 'Sn12' '4 '
+'Sn12' '4 ' 'Sn12' '4 ' 'Sn12' '4 ' 'Sn12' '4 '
+'Sn12' '4 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Gd154' <<NbBibli>> =
+'Gd15' '4 ' 'Gd15' '4 ' 'Gd15' '4 ' 'Gd15' '4 '
+'Gd15' '4 ' 'Gd15' '4 ' 'Gd15' '4 ' 'Gd15' '4 '
+'Gd15' '4 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Gd155' <<NbBibli>> =
+'Gd15' '5 ' 'Gd15' '5 ' 'Gd15' '5 ' 'Gd15' '5 '
+'Gd15' '5 ' 'Gd15' '5 ' 'Gd15' '5 ' 'Gd15' '5 '
+'Gd15' '5 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Gd156' <<NbBibli>> =
+'Gd15' '6 ' 'Gd15' '6 ' 'Gd15' '6 ' 'Gd15' '6 '
+'Gd15' '6 ' 'Gd15' '6 ' 'Gd15' '6 ' 'Gd15' '6 '
+'Gd15' '6 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Gd157' <<NbBibli>> =
+'Gd15' '7 ' 'Gd15' '7 ' 'Gd15' '7 ' 'Gd15' '7 '
+'Gd15' '7 ' 'Gd15' '7 ' 'Gd15' '7 ' 'Gd15' '7 '
+'Gd15' '7 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Gd158' <<NbBibli>> =
+'Gd15' '8 ' 'Gd15' '8 ' 'Gd15' '8 ' 'Gd15' '8 '
+'Gd15' '8 ' 'Gd15' '8 ' 'Gd15' '8 ' 'Gd15' '8 '
+'Gd15' '8 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Gd160' <<NbBibli>> =
+'Gd16' '0 ' 'Gd16' '0 ' 'Gd16' '0 ' 'Gd16' '0 '
+'Gd16' '0 ' 'Gd16' '0 ' 'Gd16' '0 ' 'Gd16' '0 '
+'Gd16' '0 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'U234 ' <<NbBibli>> =
+'U234' ' ' 'U234' ' ' 'U234' ' ' 'U234' ' '
+'U234' ' ' 'U234' ' ' 'U234' ' ' 'U234' ' '
+'U234' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'U235 ' <<NbBibli>> =
+'U235' ' ' 'U235' ' ' 'U235' ' ' 'U235' ' '
+'U235' ' ' 'U235' ' ' 'U235' ' ' 'U235' ' '
+'U235' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'U236 ' <<NbBibli>> =
+'U236' ' ' 'U236' ' ' 'U236' ' ' 'U236' ' '
+'U236' ' ' 'U236' ' ' 'U236' ' ' 'U236' ' '
+'U236' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'U238 ' <<NbBibli>> =
+'U238' ' ' 'U238' ' ' 'U238' ' ' 'U238' ' '
+'U238' ' ' 'U238' ' ' 'U238' ' ' 'U238' ' '
+'U238' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Pu238' <<NbBibli>> =
+'Pu23' '8 ' 'Pu23' '8 ' 'Pu23' '8 ' 'Pu23' '8 '
+'Pu23' '8 ' 'Pu23' '8 ' 'Pu23' '8 ' 'Pu23' '8 '
+'Pu23' '8 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Pu239' <<NbBibli>> =
+'Pu23' '9 ' 'Pu23' '9 ' 'Pu23' '9 ' 'Pu23' '9 '
+'Pu23' '9 ' 'Pu23' '9 ' 'Pu23' '9 ' 'Pu23' '9 '
+'Pu23' '9 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Pu240' <<NbBibli>> =
+'Pu24' '0 ' 'Pu24' '0 ' 'Pu24' '0 ' 'Pu24' '0 '
+'Pu24' '0 ' 'Pu24' '0 ' 'Pu24' '0 ' 'Pu24' '0 '
+'Pu24' '0 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Pu241' <<NbBibli>> =
+'Pu24' '1 ' 'Pu24' '1 ' 'Pu24' '1 ' 'Pu24' '1 '
+'Pu24' '1 ' 'Pu24' '1 ' 'Pu24' '1 ' 'Pu24' '1 '
+'Pu24' '1 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Pu242' <<NbBibli>> =
+'Pu24' '2 ' 'Pu24' '2 ' 'Pu24' '2 ' 'Pu24' '2 '
+'Pu24' '2 ' 'Pu24' '2 ' 'Pu24' '2 ' 'Pu24' '2 '
+'Pu24' '2 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Am241' <<NbBibli>> =
+'Am24' '1 ' 'Am24' '1 ' 'Am24' '1 ' 'Am24' '1 '
+'Am24' '1 ' 'Am24' '1 ' 'Am24' '1 ' 'Am24' '1 '
+'Am24' '1 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Na23 ' <<NbBibli>> =
+'Na23' ' ' 'Na23' ' ' 'Na23' ' ' 'Na23' ' '
+'Na23' ' ' 'Na23' ' ' 'Na23' ' ' 'Na23' ' '
+'Na23' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Knat ' <<NbBibli>> =
+'K0 ' ' ' 'FALS' 'E ' 'FALS' 'E ' 'K0 ' ' '
+'K0 ' ' ' 'FALS' 'E ' 'FALS' 'E ' 'K_na' 't '
+'K ' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'K39 ' <<NbBibli>> =
+'FALS' 'E ' 'K39 ' ' ' 'K39 ' ' ' 'K39 ' ' '
+'FALS' 'E ' 'K39 ' ' ' 'K39 ' ' ' 'K39 ' ' '
+'FALS' 'E ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'K40 ' <<NbBibli>> =
+'FALS' 'E ' 'K40 ' ' ' 'K40 ' ' ' 'K40 ' ' '
+'FALS' 'E ' 'K40 ' ' ' 'K40 ' ' ' 'K40 ' ' '
+'FALS' 'E ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'K41 ' <<NbBibli>> =
+'FALS' 'E ' 'K41 ' ' ' 'K41 ' ' ' 'K41 ' ' '
+'FALS' 'E ' 'K41 ' ' ' 'K41 ' ' ' 'K41 ' ' '
+'FALS' 'E ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'S32 ' <<NbBibli>> =
+'S32 ' ' ' 'S32 ' ' ' 'S32 ' ' ' 'S32 ' ' '
+'S32 ' ' ' 'S32 ' ' ' 'S32 ' ' ' 'S32 ' ' '
+'S32 ' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'S33 ' <<NbBibli>> =
+'FALS' 'E ' 'S33 ' ' ' 'S33 ' ' ' 'S33 ' ' '
+'S33 ' ' ' 'S33 ' ' ' 'S33 ' ' ' 'S33 ' ' '
+'S33 ' ' ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'S34 ' <<NbBibli>> =
+'FALS' 'E ' 'S34 ' ' ' 'S34 ' ' ' 'S34 ' ' '
+'S34 ' ' ' 'S34 ' ' ' 'S34 ' ' ' 'S34 ' ' '
+'S34 ' ' ' ;
+! Hafnium
+ListeIsot := UTL: ListeIsot :: CREA 'Hf174' <<NbBibli>> =
+'Hf17' '4 ' 'Hf17' '4 ' 'Hf17' '4 ' 'Hf17' '4 '
+'Hf17' '4 ' 'Hf17' '4 ' 'Hf17' '4 ' 'Hf17' '4 '
+'Hf17' '4 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Hf176' <<NbBibli>> =
+'Hf17' '6 ' 'Hf17' '6 ' 'Hf17' '6 ' 'Hf17' '6 '
+'Hf17' '6 ' 'Hf17' '6 ' 'Hf17' '6 ' 'Hf17' '6 '
+'Hf17' '6 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Hf177' <<NbBibli>> =
+'Hf17' '7 ' 'Hf17' '7 ' 'Hf17' '7 ' 'Hf17' '7 '
+'Hf17' '7 ' 'Hf17' '7 ' 'Hf17' '7 ' 'Hf17' '7 '
+'Hf17' '7 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Hf178' <<NbBibli>> =
+'Hf17' '8 ' 'Hf17' '8 ' 'Hf17' '8 ' 'Hf17' '8 '
+'Hf17' '8 ' 'Hf17' '8 ' 'Hf17' '8 ' 'Hf17' '8 '
+'Hf17' '8 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Hf179' <<NbBibli>> =
+'Hf17' '9 ' 'Hf17' '9 ' 'Hf17' '9 ' 'Hf17' '9 '
+'Hf17' '9 ' 'Hf17' '9 ' 'Hf17' '9 ' 'Hf17' '9 '
+'Hf17' '9 ' ;
+ListeIsot := UTL: ListeIsot :: CREA 'Hf180' <<NbBibli>> =
+'Hf18' '0 ' 'Hf18' '0 ' 'Hf18' '0 ' 'Hf18' '0 '
+'Hf18' '0 ' 'Hf18' '0 ' 'Hf18' '0 ' 'Hf18' '0 '
+'Hf18' '0 ' ;
+
+* Liste des noms des isotopes contenant les donnees d'autoprotection
+
+ListeAutop := UTL: :: CREA 'ZrNat' 3 =
+'Zr_n' 'atSS' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Ag107' 3 =
+'Ag10' '7SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Ag109' 3 =
+'Ag10' '9SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'In115' 3 =
+'In11' '5SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Gd154' 3 =
+'Gd15' '4SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Gd155' 3 =
+'Gd15' '5SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Gd156' 3 =
+'Gd15' '6SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Gd157' 3 =
+'Gd15' '7SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Gd158' 3 =
+'Gd15' '8SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Gd160' 3 =
+'Gd16' '0SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'U235 ' 3 =
+'U235' 'SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'U236 ' 3 =
+'U236' 'SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'U238 ' 3 =
+'U238' 'SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Pu238' 3 =
+'Pu23' '8SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Pu239' 3 =
+'Pu23' '9SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Pu240' 3 =
+'Pu24' '0SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Pu241' 3 =
+'Pu24' '1SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Pu242' 3 =
+'Pu24' '2SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Am241' 3 =
+'Am24' '1SS ' ' ' ;
+! Hafnium
+ListeAutop := UTL: ListeAutop :: CREA 'Hf174' 3 =
+'Hf17' '4SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Hf176' 3 =
+'Hf17' '6SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Hf177' 3 =
+'Hf17' '7SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Hf178' 3 =
+'Hf17' '8SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Hf179' 3 =
+'Hf17' '9SS ' ' ' ;
+ListeAutop := UTL: ListeAutop :: CREA 'Hf180' 3 =
+'Hf18' '0SS ' ' ' ;
+
+*------------------------------------------------------
+END: ;
+QUIT "LIST" .
generated by cgit v1.2.3 (git 2.46.0) at 2026-02-16 22:42:01 +0000