pdispm

 This function is the link between matlab and the pdisp.dll file 

 It calculates the plasma dispersion function for a complex argument

   INPUTS:
           - x: argument [1,nx] complex

   OUTPUTS:
   
           - Z: Z(x) [1,nx] complex

 by J. Decker, 10/27/05

0001 function Z = pdispm(x)
0002 %
0003 % This function is the link between matlab and the pdisp.dll file
0004 %
0005 % It calculates the plasma dispersion function for a complex argument
0006 %
0007 %   INPUTS:
0008 %           - x: argument [1,nx] complex
0009 %
0010 %   OUTPUTS:
0011 %
0012 %           - Z: Z(x) [1,nx] complex
0013 %
0014 % by J. Decker, 10/27/05
0015 %
0016 nx = length(x);
0017 %
0018 if nx > 1001,
0019     error('The input vector is too long')
0020 end
0021 %
0022 xr = zeros(1,1001);
0023 xi = zeros(1,1001);
0024 %
0025 xr(1:nx) = real(x(:))';
0026 xi(1:nx) = imag(x(:))';
0027 %
0028 [Zr,Zi] = pdisp(nx,xr,xi);
0029 %
0030 Z = Zr(1:nx) + i*Zi(1:nx);
0031 %
0032 
0033