diff options
| author | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
|---|---|---|
| committer | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
| commit | 7dfcc480ba1e19bd3232349fc733caef94034292 (patch) | |
| tree | 03ee104eb8846d5cc1a981d267687a729185d3f3 /Trivac/data/Ktests_proc/ptrack1.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Trivac/data/Ktests_proc/ptrack1.c2m')
| -rwxr-xr-x | Trivac/data/Ktests_proc/ptrack1.c2m | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/Trivac/data/Ktests_proc/ptrack1.c2m b/Trivac/data/Ktests_proc/ptrack1.c2m new file mode 100755 index 0000000..cb925a6 --- /dev/null +++ b/Trivac/data/Ktests_proc/ptrack1.c2m @@ -0,0 +1,56 @@ +********************************************* +* Procedure : ptrack1.c2m * +* Author : D. Sekki (04/2008) * +********************************************* +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +LINKED_LIST GEOM ; +INTEGER MaxReg degre quadr ; +STRING method ; +REAL precf ; + :: >>MaxReg<< >>method<< >>degre<< + >>quadr<< >>precf<< ; +GEOM := GEO: :: CAR1D 10 EDIT 0 + X- ZERO X+ ZERO + MIX 2 1 1 1 1 3 3 3 3 2 + MESHX 0.0 40.0 117.5 195.0 272.5 + 350.0 427.5 505.0 582.5 660.0 700.0 ; +MACRO := MAC: :: + EDIT 0 NGRO 2 NMIX 3 NIFI 1 READ INPUT + MIX 1 + DIFF 1.264E+00 9.328E-01 + TOTAL 8.154E-03 4.100E-03 + NUSIGF 0.000E+00 4.562E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + CHI 1.000E+00 0.000E+00 + MIX 2 + DIFF 1.310E+00 8.695E-01 + TOTAL 1.018E-02 2.117E-04 + SCAT 1 1 0.0 2 2 0.0 1.018E-02 + OVERV 1.000E-07 5.000E-06 + CHI 0.000E+00 0.000E+00 + MIX 3 + DIFF 1.264E+00 9.328E-01 + TOTAL 8.154E-03 4.100E-03 + NUSIGF 0.000E+00 4.562E-03 + SCAT 1 1 0.0 2 2 0.0 7.368E-03 + OVERV 1.000E-07 5.000E-06 + CHI 1.000E+00 0.000E+00 ; +IF method "MCFD" = THEN + TRACK := TRIVAT: GEOM :: EDIT 0 + MAXR <<MaxReg>> MCFD <<degre>> ; +ELSEIF method "PRIM" = THEN + TRACK := TRIVAT: GEOM :: EDIT 0 + MAXR <<MaxReg>> PRIM <<degre>> ; +ELSEIF method "DUAL" = THEN + TRACK := TRIVAT: GEOM :: EDIT 0 + MAXR <<MaxReg>> DUAL <<degre>> <<quadr>> ; +ENDIF ; +GEOM := DELETE: GEOM ; +SYSTEM := TRIVAA: MACRO TRACK :: EDIT 0 UNIT ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 1 + EXTE <<precf>> ; +END: ; +QUIT . |