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/pincell_mpo_concat_proc/MPOconcat.c2m | 32 ++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 PyGan/data/pincell_mpo_concat_proc/MPOconcat.c2m (limited to 'PyGan/data/pincell_mpo_concat_proc/MPOconcat.c2m') diff --git a/PyGan/data/pincell_mpo_concat_proc/MPOconcat.c2m b/PyGan/data/pincell_mpo_concat_proc/MPOconcat.c2m new file mode 100644 index 0000000..1701041 --- /dev/null +++ b/PyGan/data/pincell_mpo_concat_proc/MPOconcat.c2m @@ -0,0 +1,32 @@ +**************************************************************** +* * +* Procedure : MPOconcat.c2m * +* Purpose : Perform a MPO file concatenation * +* Author : A. Hebert * +* * +* CALL : * +* MPOconcat :: MyMpo1 MyMpo2 MyMpoCat ; * +* * +* Input objects: * +* MyMpo1 : first MPO file to concat * +* MyMpo2 : second MPO file to concat * +* MyMpoCat : result of the concatenation * +* * +**************************************************************** +STRING MyMpo1 MyMpo2 MyMpoCat ; + :: >>MyMpo1<< >>MyMpo2<< >>MyMpoCat<< ; +MODULE MPO: END: ; +HDF5_FILE MyMpo1 :: FILE <> ; +HDF5_FILE MyMpo2 :: FILE <> ; +HDF5_FILE MyMpoCat :: FILE <> ; + +************************************************************************ +* Concatenation of two MPO files * +************************************************************************ + MyMpoCat := MyMpo1 ; + MyMpoCat := MPO: MyMpoCat MyMpo2 :: + EDIT 10 + ; + +ECHO "MPOconcat completed" ; +END: ; -- cgit v1.2.3