diff options
Diffstat (limited to 'Dragon/data/salmacro_proc/geomProc.c2m')
| -rw-r--r-- | Dragon/data/salmacro_proc/geomProc.c2m | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/Dragon/data/salmacro_proc/geomProc.c2m b/Dragon/data/salmacro_proc/geomProc.c2m new file mode 100644 index 0000000..cdc7940 --- /dev/null +++ b/Dragon/data/salmacro_proc/geomProc.c2m @@ -0,0 +1,41 @@ +**************************************************************** +* * +* Procedure : geomProc.c2m * +* Purpose : flux calculation using a SALOME geometry * +* Author : A. Hebert * +* * +* CALL : * +* Flux := geomProc GeoSurfacic Macro :: (data) ; * +* * +* Output object: * +* Flux : Flux * +* * +* Input object: * +* GeoSurfacic: surfacic file generated by SALOME * +* Macro : macrolib * +* * +* Input data: * +* delr : distance between tracks * +* an2d : number of angles in radial plane * +* * +**************************************************************** +PARAMETER Flux GeoSurfacic Macro :: + ::: LINKED_LIST Flux Macro ; + ::: SEQ_ASCII GeoSurfacic ; ; +MODULE SALT: MCCGT: ASM: FLU: END: ; +LINKED_LIST TRACK ABC FLUX ; +SEQ_BINARY TF_EXC ; +INTEGER an2d ; :: >>an2d<< ; +REAL delr ; :: >>delr<< ; +REAL densur := 1.0 delr / ; + +TRACK TF_EXC := SALT: GeoSurfacic :: + EDIT 5 + TSPC EQW2 <<an2d>> <<densur>> REND +; +TRACK := MCCGT: TRACK TF_EXC :: + CACB 4 AAC 80 TMT EPSI 1E-5 MCU 2500 ; +ABC := ASM: Macro TRACK TF_EXC :: ARM EDIT 1 ; +Flux := FLU: Macro ABC TRACK TF_EXC :: + EDIT 1 TYPE K ; +END: ; |