function []=gcompare(s1,s2)
// GCOMPARE : GCOMPARE ( [ 'file1' ; 'file2' ] , [ 'var1' ; 'var2' ...] ) 
// Copyright (C) 2001 Michel Juillard
// 
//  This optional command plots the trajectories of a list of
//  variables in two different simulations. One plot is drawn
//  for each variable. The trajectories must have been previously
//  saved by the instruction DYNASAVE. The simulation in file1
//  is refered to as the base simulation.
 
 
global('dsmpl_','iter_','ykmin_');
global('nvx','nvy','x','y','lag1');
 
ftest(s1,s2);
 
ix = (1-lag1(1):size(x,2)-lag1(1))';
i = (lag1(1):size(ix,1)-lag1(2)+1)';
 
if dsmpl_==0 then
  i = (ykmin_:size(y,2))';
else
  i = (dsmpl_(1):dsmpl_(2))';
end
 
for k = 1:size(x,1)
  xset('window',max(winsid()+1))
  max(winsid());
  mtlb_plot(ix(i),x(k,i),ix(i),y(k,i));
  xtitle(' ','Periods',' ');
  xtitle('Variable '+s2(k,:),' ',' ');
  l = min(i)+1;
  ll = max(i)-1;
  xstring(l,x(k,l),s1(1,:));
  xstring(ll,y(k,ll),s1(2,:));
end
 
// 06/18/01 MJ corrected treatment of dsmpl_
// 06/24/01 MJ removed color specification