program Fg_18_24;

uses
   Utils;

var
   Lambda,Omega,B: Double;

begin
   Compile_Full_Dataset(325,1917,True,'North');

   Compute_Method(0,180,1,14.33,14.33,0.0,3.40,3.40,0.0,'North',mtShifts,False,False,Lambda,Omega,B);
   Write_Shifts(Lambda,Omega,B,'North','FG19',False);
   Eliminate_Longitudes;
   Write_Phases('FG20');

   Compute_Method(0,180,1,12.00,16.00,0.001,3.40,3.40,0.0,'North',mtShifts,False,False,Lambda,Omega,B);
   Compute_Omega_Vector;
   Write_Vector('FG21');

   Compute_Method(0,180,1,14.20,14.40,0.0001,3.40,3.40,0.0,'North',mtShifts,False,False,Lambda,Omega,B);
   Compute_Omega_Vector;
   Write_Vector('FG22');
   Write_Shifts(Lambda,Omega,B,'North','',False);
   Eliminate_Longitudes;
   Write_Phases('FG23');

   Compile_Full_Dataset(325,1917,False,'South');

   Compute_Method(0,180,1,14.20,14.40,0.0001,3.39,3.39,0.0,'South',mtShifts,False,False,Lambda,Omega,B);
   Compute_Omega_Vector;
   Write_Vector('FG24');

end.