Initial commit from Polytechnique Montreal

1 files changed, 271 insertions, 0 deletions

diff --git a/Dragon/data/proc_CNG/LCNG_U2_nDf.c2m b/Dragon/data/proc_CNG/LCNG_U2_nDf.c2m
new file mode 100644
index 0000000..4ee621a
--- /dev/null
+++ b/Dragon/data/proc_CNG/LCNG_U2_nDf.c2m
@@ -0,0 +1,271 @@
+*----------
+* Definition des parametres de la procedure
+* 
+PARAMETER   Biblio  ::
+  EDIT 1
+    ::: LINKED_LIST  Biblio          ;
+  ;
+REAL
+  TempComb TempCalo
+  TempPres TempMode TempCala
+  ;
+STRING 
+  LibName
+  ;
+INTEGER
+   CF11  CF12  CF13  CF14 
+   CF21i CF22i CF23i CF24i
+   CF31i CF32i CF33i CF34i
+   CF41i CF42i CF43i CF44i
+   CF21e CF22e CF23e CF24e
+   CF31e CF32e CF33e CF34e
+   CF41e CF42e CF43e CF44e
+   VF11  VF12  VF13  VF14 
+   VF21i VF22i VF23i VF24i
+   VF31i VF32i VF33i VF34i
+   VF41i VF42i VF43i VF44i
+   VF21e VF22e VF23e VF24e
+   VF31e VF32e VF33e VF34e
+   VF41e VF42e VF43e VF44e
+   COOL  PT    HEG   CT
+   MOD   SH    VOID
+  ;
+*
+*  reccupere information transferee a la procedure
+*
+:: 
+  >>TempComb<< >>TempCalo<<
+  >>TempPres<<
+  >>TempMode<< >>TempCala<<
+  >>LibName<<
+  >>CF11<<  >>CF12<<  >>CF13<<  >>CF14<< 
+
+  >>CF21i<< >>CF22i<< >>CF23i<< >>CF24i<<
+  >>CF31i<< >>CF32i<< >>CF33i<< >>CF34i<<
+  >>CF41i<< >>CF42i<< >>CF43i<< >>CF44i<<
+
+  >>CF21e<< >>CF22e<< >>CF23e<< >>CF24e<<
+  >>CF31e<< >>CF32e<< >>CF33e<< >>CF34e<<
+  >>CF41e<< >>CF42e<< >>CF43e<< >>CF44e<<
+
+  >>VF11<<  >>VF12<<  >>VF13<<  >>VF14<< 
+
+  >>VF21i<< >>VF22i<< >>VF23i<< >>VF24i<<
+  >>VF31i<< >>VF32i<< >>VF33i<< >>VF34i<<
+  >>VF41i<< >>VF42i<< >>VF43i<< >>VF44i<<
+
+  >>VF21e<< >>VF22e<< >>VF23e<< >>VF24e<<
+  >>VF31e<< >>VF32e<< >>VF33e<< >>VF34e<<
+  >>VF41e<< >>VF42e<< >>VF43e<< >>VF44e<<
+
+  >>COOL<<  >>PT<<    >>HEG<<   >>CT<<
+  >>MOD<<   >>SH<<    >>VOID<<
+  ;  
+* 
+*  Structures de donnees locales et
+*  modules  et parametres
+*
+MODULE
+  LIB:
+  ;
+STRING   IsoU5    IsoU8    IsoO16   IsoH1    
+         IsoD2    IsoB10   IsoZr    IsoFe4
+         IsoFe6   IsoFe7   IsoFe8   IsoCr0
+         IsoCr2   IsoCr3   IsoCr4   IsoNi8
+         IsoNi0   IsoNi1   IsoNi2   IsoNi4 
+         IsoNb    IsoHe4   IsoDy0   IsoDy1
+         IsoDy2   IsoDy3   IsoDy4
+  :=            
+         "U235"   "U238"   "O16"    "H1_H2O" 
+         "H2_D2O" "B10"    "Zr0"     "Fe54"  
+         "Fe56"   "Fe57"   "Fe58"   "Cr50"
+         "Cr52"   "Cr53"   "Cr54"   "Ni58"
+         "Ni60"   "Ni61"   "Ni62"   "Ni64"     
+         "Nb93"   "He4"    "Dy160"  "Dy161"
+         "Dy162"  "Dy163"  "Dy164"
+  ; 
+REAL 
+  Ftemp Ctemp Mtemp PTtemp CTtemp             :=
+  TempComb 273. +
+  TempCalo 273. +
+  TempMode 273. +
+  TempPres 273. +
+  TempCala 273. +
+  ;                         
+ECHO "Temperature combustible    =" TempComb  "C"  ;
+ECHO "Temperature caloporteur    =" TempCalo  "C"  ;
+*
+*  section efficace microscopiques de LibName
+*
+Biblio   := LIB: ::
+  EDIT 1
+  NMIX <<SH>>
+  CTRA APOL
+  PTSL
+  ANIS 2
+  MIXS LIB: DRAGON FIL: <<LibName>>
+* caloporteur
+*---
+  MIX  <<COOL>>  <<Ctemp>> 
+    H1  = <<IsoH1>>  4.7720E-02 
+    O16 = <<IsoO16>> 2.3860E-02
+* tube de pression
+*---
+  MIX  <<PT>>  <<PTtemp>>
+    ZR  = <<IsoZr>>  4.1780E-02  2 IRSET PTSL NONE 
+    NB  = <<IsoNb>>  1.0877E-03 
+    FE4 = <<IsoFe4>> 1.9854E-06
+    FE6 = <<IsoFe6>> 3.0055E-05
+    FE7 = <<IsoFe7>> 6.8192E-07
+    FE8 = <<IsoFe8>> 8.9171E-08
+    CR0 = <<IsoCr0>> 2.7556E-07
+    CR2 = <<IsoCr2>> 5.1102E-06
+    CR3 = <<IsoCr3>> 5.6848E-07
+    CR4 = <<IsoCr4>> 1.3891E-07
+    NI8 = <<IsoNi8>> 1.6108E-06 
+    NI0 = <<IsoNi0>> 5.9980E-07
+    NI1 = <<IsoNi1>> 2.5647E-08
+    NI2 = <<IsoNi2>> 8.0447E-08
+    NI4 = <<IsoNi4>> 1.9850E-08
+    B10 = <<IsoB10>> 9.5090E-08
+* gap d'helium 
+*---
+  MIX  <<HEG>>  <<CTtemp>>     
+    HE4 = <<IsoHe4>> 2.0877E-04
+* tube de calandre
+*---
+  MIX  <<CT>>  <<CTtemp>>   
+    ZR  = <<IsoZr>>  4.2364E-02  2 IRSET PTSL NONE 
+    FE4 = <<IsoFe4>> 5.7861E-06
+    FE6 = <<IsoFe6>> 8.7588E-05
+    FE7 = <<IsoFe7>> 1.9873E-06
+    FE8 = <<IsoFe8>> 2.5991E-07
+    CR0 = <<IsoCr0>> 3.4408E-06
+    CR2 = <<IsoCr2>> 6.3805E-05
+    CR3 = <<IsoCr3>> 7.0983E-06
+    CR4 = <<IsoCr4>> 1.7342E-06
+    NI8 = <<IsoNi8>> 2.5562E-05
+    NI0 = <<IsoNi0>> 9.5185E-06
+    NI1 = <<IsoNi1>> 4.0700E-07
+    NI2 = <<IsoNi2>> 1.2765E-06
+    NI4 = <<IsoNi4>> 3.1510E-07
+    B10 = <<IsoB10>> 2.3551E-07
+* moderateur
+*--- 
+   MIX  <<MOD>>  <<Mtemp>>
+    H1  = <<IsoH1>>  6.4950E-05 
+    D2  = <<IsoD2>>  6.4886E-02
+    O16 = <<IsoO16>> 3.2398E-02
+* crayon 1e anneau
+*---
+  MIX <<CF11>> <<Ftemp>>
+   O16 = <<IsoO16>> 4.5117E-02
+   U5  = <<IsoU5>>  1.6252E-04 1 IRSET PTSL NONE
+   U8  = <<IsoU8>>  2.2396E-02 1 IRSET PTSL NONE 
+  MIX <<CF12>> COMB <<CF11>> 1.
+  MIX <<CF13>> COMB <<CF11>> 1.
+  MIX <<CF14>> COMB <<CF11>> 1.
+  MIX <<VF11>> COMB <<CF11>> 1.
+  MIX <<VF12>> COMB <<CF11>> 1.
+  MIX <<VF13>> COMB <<CF11>> 1.
+  MIX <<VF14>> COMB <<CF11>> 1.
+* crayon 2e anneau
+*---
+  MIX <<CF21i>> <<Ftemp>> 
+    O16 = <<IsoO16>> 4.5124E-02
+    U5  = <<IsoU5>>  4.5689E-04  1 IRSET PTSL NONE 
+    U8  = <<IsoU8>>  2.2105E-02  1 IRSET PTSL NONE 
+  MIX <<CF22i>> COMB <<CF21i>> 1.
+  MIX <<CF23i>> COMB <<CF21i>> 1.
+  MIX <<CF24i>> COMB <<CF21i>> 1.
+
+  MIX <<CF21e>> COMB <<CF21i>> 1.
+  MIX <<CF22e>> COMB <<CF21i>> 1.
+  MIX <<CF23e>> COMB <<CF21i>> 1.
+  MIX <<CF24e>> COMB <<CF21i>> 1.
+
+  MIX <<VF21i>> COMB <<CF21i>> 1.
+  MIX <<VF22i>> COMB <<CF21i>> 1.
+  MIX <<VF23i>> COMB <<CF21i>> 1.
+  MIX <<VF24i>> COMB <<CF21i>> 1.
+
+  MIX <<VF21e>> COMB <<CF21i>> 1.
+  MIX <<VF22e>> COMB <<CF21i>> 1.
+  MIX <<VF23e>> COMB <<CF21i>> 1.
+  MIX <<VF24e>> COMB <<CF21i>> 1.
+* crayons 3e anneau
+*---
+  MIX <<CF31i>> <<Ftemp>>   
+    O16 = <<IsoO16>> 4.3808E-02
+    U5  = <<IsoU5>>  4.4357E-04  1 IRSET PTSL NONE 
+    U8  = <<IsoU8>>  2.1461E-02  1 IRSET PTSL NONE 
+  MIX <<CF32i>> COMB <<CF31i>> 1.
+  MIX <<CF33i>> COMB <<CF31i>> 1.
+  MIX <<CF34i>> COMB <<CF31i>> 1.
+
+  MIX <<CF31e>> COMB <<CF31i>> 1.
+  MIX <<CF32e>> COMB <<CF31i>> 1.
+  MIX <<CF33e>> COMB <<CF31i>> 1.
+  MIX <<CF34e>> COMB <<CF31i>> 1.
+
+  MIX <<VF31i>> COMB <<CF31i>> 1.
+  MIX <<VF32i>> COMB <<CF31i>> 1.
+  MIX <<VF33i>> COMB <<CF31i>> 1.
+  MIX <<VF34i>> COMB <<CF31i>> 1.
+
+  MIX <<VF31e>> COMB <<CF31i>> 1.
+  MIX <<VF32e>> COMB <<CF31i>> 1.
+  MIX <<VF33e>> COMB <<CF31i>> 1.
+  MIX <<VF34e>> COMB <<CF31i>> 1.
+* crayons 4e anneau
+*---
+  MIX <<CF41i>> <<Ftemp>> 
+    O16 = <<IsoO16>> 4.3808E-02
+    U5  = <<IsoU5>>  4.4357E-04  1 IRSET PTSL NONE 
+    U8  = <<IsoU8>>  2.1461E-02  1 IRSET PTSL NONE 
+  MIX <<CF42i>> COMB <<CF41i>> 1.
+  MIX <<CF43i>> COMB <<CF41i>> 1.
+  MIX <<CF44i>> COMB <<CF41i>> 1.
+
+  MIX <<CF41e>> COMB <<CF41i>> 1.
+  MIX <<CF42e>> COMB <<CF41i>> 1.
+  MIX <<CF43e>> COMB <<CF41i>> 1.
+  MIX <<CF44e>> COMB <<CF41i>> 1.
+
+  MIX <<VF41i>> COMB <<CF41i>> 1.
+  MIX <<VF42i>> COMB <<CF41i>> 1.
+  MIX <<VF43i>> COMB <<CF41i>> 1.
+  MIX <<VF44i>> COMB <<CF41i>> 1.
+
+  MIX <<VF41e>> COMB <<CF41i>> 1.
+  MIX <<VF42e>> COMB <<CF41i>> 1.
+  MIX <<VF43e>> COMB <<CF41i>> 1.
+  MIX <<VF44e>> COMB <<CF41i>> 1.
+* gaine crayon
+*---
+  MIX <<SH>>  <<PTtemp>> 
+    ZR  = <<IsoZr>>  4.9656E-02  2 IRSET PTSL NONE   
+    FE4 = <<IsoFe4>> 1.0341E-05
+    FE6 = <<IsoFe6>> 1.5654E-04
+    FE7 = <<IsoFe7>> 3.5509E-06
+    FE8 = <<IsoFe8>> 4.6451E-07
+    CR0 = <<IsoCr0>> 3.9532E-06
+    CR2 = <<IsoCr2>> 7.3306E-05
+    CR3 = <<IsoCr3>> 8.1553E-06
+    CR4 = <<IsoCr4>> 1.9925E-06
+    NI8 = <<IsoNi8>> 3.7378E-06
+    NI0 = <<IsoNi0>> 1.3918E-06
+    NI1 = <<IsoNi1>> 5.9514E-08
+    NI2 = <<IsoNi2>> 1.8668E-07
+    NI4 = <<IsoNi4>> 4.6062E-08
+    B10 = <<IsoB10>> 2.7058E-07
+* void
+*---
+  MIX <<VOID>> <<Ctemp>> 
+    H1  = <<IsoH1>>  6.6918E-05
+    O16 = <<IsoO16>> 3.3459E-05
+  ;
+*  
+*  terminer execution
+*
+QUIT "LIST" .