diff --git a/matlab/D3D/mdsplus_func/mdsput.m b/matlab/D3D/mdsplus_func/mdsput.m
deleted file mode 100644
index 85eba8a7cfc8e31382893502ce8e62197db96142..0000000000000000000000000000000000000000
--- a/matlab/D3D/mdsplus_func/mdsput.m
+++ /dev/null
@@ -1,41 +0,0 @@
-function status = mdsput(node,expr,varargin)
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%  SYNTAX:  status = mdsput(node,expr,varargin)
-%
-%  PURPOSE:  puts data in MDS data base
-%
-%  INPUT:
-%	node
-%	expr
-%	varargin
-%
-%  OUTPUT:
-%	status
- 
-%  RESTRICTIONS:
-%
-%  METHOD:  
-%
-%  Adapted for mdsvalue by: Basil P. DUVAL, May 2000
-%  MODIFIED BY: Mike Walker     ON      6/5/01          for use at DIII-D
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-% mdsput(node,d1)
-%           node='target::node',d1=data
-% mdsput(node,expr,d1,d2,d3...)
-%           node='target::node',expr='sin($1)',d1,d2,d3...=data
-% if d1 is expressed as class mdscvt, data is translated before sending
-% d1 = mdscvt(data,'CONVERSION')
-% CONVERSION 'd'='G_FLOAT';'f'='F_FLOAT';'q'='QUADWORD';'l'='LONG';'s'='WORD';'c'='BYTE';
-% 'Q'='QUADWORD_UNSIGNED';'L'='LONG_UNSIGNED';'S'='WORD_UNSIGNED';'C'='BYTE_UNSIGNED';'t'='TEXT';
-%
-
-% defaults
-if nargin < 2, error('Specify the node and the content.'), end
-if nargin < 3 , varargin{1} = expr; expr = '$1'; end
-
-cmd = ['TreePut($1' sprintf(',$%d',2:length(varargin)+2) ')'];
-
-stat = mdsipmex(cmd,node,expr,varargin{1:end});
-
-if nargout, status = stat; end