From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001 From: stainer_t Date: Mon, 8 Sep 2025 13:48:49 +0200 Subject: Initial commit from Polytechnique Montreal --- PyGan/data/testVVER_proc/vverTRACK.c2m | 46 ++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 PyGan/data/testVVER_proc/vverTRACK.c2m (limited to 'PyGan/data/testVVER_proc/vverTRACK.c2m') diff --git a/PyGan/data/testVVER_proc/vverTRACK.c2m b/PyGan/data/testVVER_proc/vverTRACK.c2m new file mode 100644 index 0000000..e3c0642 --- /dev/null +++ b/PyGan/data/testVVER_proc/vverTRACK.c2m @@ -0,0 +1,46 @@ +**************************************************************** +* * +* Procedure : vverTRACK.c2m * +* Purpose : Tracking and figure * +* Author : L.Fede * +* * +* CALL : * +* UOX_TBH FIG1.ps TRACK TF_EXC := vverTRACK GEOM * +* * +**************************************************************** + +* --- +* INPUT & OUTPUT PARAMETERS +* --- +PARAMETER UOX_TBH FIG1.ps TRACK TF_EXC GEOM :: +::: SEQ_ASCII UOX_TBH ; +::: SEQ_ASCII FIG1.ps ; +::: LINKED_LIST TRACK ; +::: SEQ_BINARY TF_EXC ; +::: LINKED_LIST GEOM ; ; + +* --- +* STRUCTURES AND MODULES +* --- +MODULE G2S: SALT: END: ; + +SEQ_ASCII _BURN :: FILE './_BURN_rowland.txt' ; +SEQ_ASCII _LIBR :: FILE './_LIB_rowland.txt' ; +SEQ_ASCII _EDIT :: FILE './_EDIT_rowland.txt' ; + +INTEGER an2d := 12 ; ! ANGULAR QUADRATURE PARAMETER +REAL densur := 20.0 ; ! DENSITY OF INTEGRATION LINES CM^-1 + +* --- +* TRACKING +* --- +UOX_TBH FIG1.ps := G2S: GEOM :: DRAWMIX ; + +TRACK TF_EXC := SALT: UOX_TBH :: + EDIT 3 + ALLG + TISO <> <> REND +; + +END: ; +QUIT . -- cgit v1.2.3