diff --git a/matlab/tfgm/tf_tools/gen_gabmul_operator.m b/matlab/tfgm/tf_tools/gen_gabmul_operator.m
new file mode 100644
index 0000000000000000000000000000000000000000..e34720b8b8f704ec5eb16b4e389d92b1207db6f3
--- /dev/null
+++ b/matlab/tfgm/tf_tools/gen_gabmul_operator.m
@@ -0,0 +1,23 @@
+function [gabmul_op, varargout] = gen_gabmul_operator(dgt, idgt, mask)
+%% GEN_GABMUL_OPERATOR computes a Gabor multiplier
+% [gabmul_op, varargout] = gen_gabmul_operator(dgt, idgt, mask)
+%
+% Inputs:
+%     - dgt: Gabor transform operator
+%     - idgt: inverse Gabor  transform operator
+%     - mask: binary known mask
+% Output:
+%     - gabmul_op: gabor multiplier- handle function
+%
+% Author : A. Marina KREME
+% e-mail : ama-marina.kreme@lis-lab.fr/ama-marina.kreme@univ-amu.fr
+% Created: 2020-28-01
+%%
+
+ 
+
+gabmul_op = @(x)idgt(mask.*dgt(x));
+varargout{1} = mask;
+
+
+end
\ No newline at end of file