blob: 71fb6514ee2381dab9e10a40229fc3dd812f4934 (
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
|
***********************************************************
* *
* Procedure : SetReflPro.c2m *
* Purpose : Reactor reflector specifications *
* Author(s) : M. Guyot (2010) *
* *
* CALL : MACRO := SetReflPro CPOREFL ; *
* *
***********************************************************
PARAMETER MACRO CPOREFL ::
::: LINKED_LIST
MACRO CPOREFL ; ;
MODULE CRE: END: ;
STRING NamCpo1 ;
EVALUATE NamCpo1 := 'MIXTMOD 1' ;
MACRO := CRE: CPOREFL ::
EDIT 5 NMIX 60 READ
COMPO CPOREFL MIX 2 <<NamCpo1>>
ENDMIX ;
END: ;
QUIT .
|
