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 /Ganlib/data/testgan2_proc | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Ganlib/data/testgan2_proc')
| -rw-r--r-- | Ganlib/data/testgan2_proc/Macrolib | 73 | ||||
| -rw-r--r-- | Ganlib/data/testgan2_proc/TESTproc.c2m | 37 |
2 files changed, 110 insertions, 0 deletions
diff --git a/Ganlib/data/testgan2_proc/Macrolib b/Ganlib/data/testgan2_proc/Macrolib new file mode 100644 index 0000000..936c8c8 --- /dev/null +++ b/Ganlib/data/testgan2_proc/Macrolib @@ -0,0 +1,73 @@ +-> 1 12 10 2 <- +GROUP +-> 2 0 0 -1 <- 00000001 +-> 3 12 2 4 <- +NTOT0 + 3.01200002E-02 3.01200002E-02 2.91200001E-02 4.01600003E-02 +-> 3 12 2 4 <- +NUSIGF + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 4 <- +DIFF + 1.89999998E+00 1.50000000E+00 1.50000000E+00 2.00000000E+00 +-> 3 12 2 4 <- +H-FACTOR + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 2 4 <- +SCAT00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> 3 12 1 4 <- +IPOS00 + 1 2 3 4 +-> 3 12 1 4 <- +NJJS00 + 1 1 1 1 +-> 3 12 1 4 <- +IJJS00 + 1 1 1 1 +-> 3 12 2 4 <- +SIGW00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> -3 0 0 0 <- +-> 2 0 0 -1 <- 00000002 +-> 3 12 2 4 <- +NTOT0 + 8.30320120E-02 8.50319937E-02 1.26031995E-01 1.00240000E-02 +-> 3 12 2 4 <- +NUSIGF + 1.65000007E-01 1.35000005E-01 1.35000005E-01 0.00000000E+00 +-> 3 12 2 4 <- +DIFF + 4.39999998E-01 4.00000006E-01 4.00000006E-01 3.00000012E-01 +-> 3 12 2 4 <- +H-FACTOR + 1.65000007E-01 1.35000005E-01 1.35000005E-01 0.00000000E+00 +-> 3 12 2 8 <- +SCAT00 + 0.00000000E+00 1.99999996E-02 0.00000000E+00 1.99999996E-02 0.00000000E+00 + 1.99999996E-02 0.00000000E+00 3.99999991E-02 +-> 3 12 1 4 <- +IPOS00 + 1 3 5 7 +-> 3 12 1 4 <- +NJJS00 + 2 2 2 2 +-> 3 12 1 4 <- +IJJS00 + 2 2 2 2 +-> 3 12 2 4 <- +SIGW00 + 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 +-> -3 0 0 0 <- +-> 1 12 3 3 <- +SIGNATURE + 4 4 4 +L_MACROLIB +-> 1 12 1 40 <- +STATE-VECTOR + 2 4 1 1 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 +-> -1 0 0 0 <- diff --git a/Ganlib/data/testgan2_proc/TESTproc.c2m b/Ganlib/data/testgan2_proc/TESTproc.c2m new file mode 100644 index 0000000..ec89f58 --- /dev/null +++ b/Ganlib/data/testgan2_proc/TESTproc.c2m @@ -0,0 +1,37 @@ +* Library procedure +PARAMETER FLUX2 MACRO :: + EDIT 1 + ::: SEQ_ASCII FLUX2 ; + ::: LINKED_LIST MACRO ; + ; +REAL KEFF ; +:: >>KEFF<< +; +MODULE UTL: DELETE: ADD: END: ; +LINKED_LIST FLUX MACRO2 MACRO3 ; +SEQ_ASCII FLUX3 ; +PROCEDURE assertS ; +* +UTL: MACRO :: DIR ; +MACRO2 := MACRO ; +MACRO3 := MACRO ; +UTL: MACRO2 :: DIR ; +MACRO3 := ADD: MACRO3 MACRO2 ; +* +FLUX := UTL: :: CREA 'K-EFFECTIVE' 1 = 1.703945 ; +FLUX := UTL: FLUX :: CREA 'DOUBLE-INFO' 5 = 1.1D0 1.2D0 1.3D0 1.4D0 1.5D0 ; +MACRO3 := MACRO3 FLUX ; +UTL: MACRO3 :: DIR ; +FLUX := UTL: FLUX :: CREA 'SIGNATURE' 3 = 'L_FL' 'UX' ' ' ; +UTL: FLUX :: DIR DUMP ; +FLUX2 := FLUX ; +FLUX3 := FLUX ; +FLUX := UTL: FLUX :: ERAS ; ! erase the contents of object FLUX +FLUX := FLUX FLUX2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.703945 ; +FLUX := DELETE: FLUX ; +ECHO "procedure TESTproc completed" ; +* +END: ; +* +QUIT "XREF" . |