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 /PyGan/data/Equivalence_SPH_APEX_proc/Umzone5x5.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'PyGan/data/Equivalence_SPH_APEX_proc/Umzone5x5.c2m')
| -rw-r--r-- | PyGan/data/Equivalence_SPH_APEX_proc/Umzone5x5.c2m | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/PyGan/data/Equivalence_SPH_APEX_proc/Umzone5x5.c2m b/PyGan/data/Equivalence_SPH_APEX_proc/Umzone5x5.c2m new file mode 100644 index 0000000..c51598a --- /dev/null +++ b/PyGan/data/Equivalence_SPH_APEX_proc/Umzone5x5.c2m @@ -0,0 +1,43 @@ +**************************************************************** +* * +* Procedure : Umzone5x5.c2m * +* Purpose : Define the macro-geometry * +* Author : A. Hebert * +* * +* CALL : * +* Geom := Umzone5x5 ; * +* * +* Input object: * +* ApexName : Apex file name * +* * +* Output objects: * +* Geom : macro-geometry * +* ncals : number of calculations in the Apex file * +* * +**************************************************************** +PARAMETER Geom :: + ::: LINKED_LIST Geom ; ; +MODULE GEO: HUTL: END: ; +STRING ApexName ; + :: >>ApexName<< ; +HDF5_FILE UOX_5x5 :: FILE <<ApexName>> ; +INTEGER ncals ; +* +REAL side1 := 1.26 ; +REAL side2 := side1 1.26 + ; +REAL side3 := side2 1.26 + ; +REAL side4 := side3 1.26 + ; +REAL side5 := side4 1.26 + ; +Geom := GEO: :: CAR2D 5 5 (*ASSEMBLY 5 X 5*) + X- DIAG X+ REFL + Y- REFL Y+ DIAG + MESHX 0.0 <<side1>> <<side2>> <<side3>> <<side4>> <<side5>> + MIX 6 5 4 5 6 + 3 2 3 5 + 1 2 4 + 3 5 + 6 +; +HUTL: UOX_5x5 :: GREP 'NCALS' 1 >>ncals<< ; + :: <<ncals>> ; +END: ; |