Initial commit from Polytechnique Montreal

1 files changed, 32 insertions, 0 deletions

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 <<MyMpo1>> ;
+HDF5_FILE MyMpo2 :: FILE <<MyMpo2>> ;
+HDF5_FILE MyMpoCat :: FILE <<MyMpoCat>> ;
+
+************************************************************************
+*  Concatenation of two MPO files                                      *
+************************************************************************
+  MyMpoCat := MyMpo1 ;
+  MyMpoCat := MPO:  MyMpoCat MyMpo2 ::
+    EDIT 10
+  ;
+
+ECHO "MPOconcat completed" ;
+END: ;