Initial commit from Polytechnique Montreal

1 files changed, 46 insertions, 0 deletions

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 <<an2d>> <<densur>> REND
+;
+
+END: ;
+QUIT .