blob: c98da05a230df3870f51a7df600f5520186a782f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
* DRAGON CREEP PROCEDURE DECK
***********************************************************************
* Purpose:
* define pressure tube dimensions.
*
* author:
* MAJID FASSI FEHRI 09/08/30
* CNSC
*
* Modified:
* Richard CHAMBON 11/02/21
* Ecole Polytechnique
*
* Notes:
* ICREEP = -1 for average creep in the core (used in 3D calculations)
*
***********************************************************************
MODULE END: ;
INTEGER ICREEP ;
REAL PtRin PtRout ;
:: >>ICREEP<< ;
* PT NOMINAL DIAMETER
IF ICREEP 0 = THEN
EVALUATE PtRin PtRout := 5.16890 5.60320 ;
* CREPT PT
ENDIF ;
:: <<PtRin>> <<PtRout>> ;
END: ;
|
