diff options
Diffstat (limited to 'PyGan/data/pincell_mpo_concat_proc/MPOconcat.c2m')
| -rw-r--r-- | PyGan/data/pincell_mpo_concat_proc/MPOconcat.c2m | 32 |
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: ; |