blob: e738481225ca443f3fe60247db532483549ba369 (
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
|
*DECK DimCell.c2m
*----
* Name : DimCell.c2m
* Type : DRAGON procedure
* Use : Dimensions for Gentilly-2 cell
* Author : G. Marleau
* Date : 2006/03/01
* Reference : Gentilly-2 .
*
* Procedure called as:
*
* DimCell :: >>rcool<< >>rpt<< >>rgap<< >>rct<<
* >>LPitch<< >>BLength<< ;
*
* Output data:
* rcool : outer coolant radius
* rpt : outer radius of pressure tube
* rgap : outer radius of gap
* rct : outer radius of calandria tube
* LPitch : Lattice pitch
* BLength : Bundle length
*----
* Definition of the input and output data structures and
* of the input and output parameters for this procedure
*----
REAL rcool rpt rgap rct LPitch BLength :=
5.168878 5.60320 6.44780 6.587482 28.575 49.53 ;
:: <<rcool>> <<rpt>> <<rgap>> <<rct>> <<LPitch>> <<BLength>> ;
QUIT .
|
