Index: mttroot/mtt/bin/trans/m/dm2fr.m
==================================================================
--- mttroot/mtt/bin/trans/m/dm2fr.m
+++ mttroot/mtt/bin/trans/m/dm2fr.m
@@ -8,10 +8,13 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.3  1996/08/15 11:53:44  peter
+% %% Now has u0 input vector
+% %%
 % %% Revision 1.2  1996/08/15 10:24:28  peter
 % %% Includes u0 argument.
 % %%
 % %% Revision 1.1  1996/08/10 14:11:28  peter
 % %% Initial revision
@@ -30,11 +33,11 @@
 fr = zeros(N,Ny);
 i = 0;
 for w = W'
   i = i+1;
   FR = C*( (E*j*w - A) \ B ) + D;
-  fr(i,:) = FR';
+  fr(i,:) = conj(FR');
 end;