program Fg_05_09;

uses
   Utils;

var
   Lambda,Omega,B: Double;

begin
   Compile_Full_Dataset(325,1917,True,'North');
   
   Write_Shifts(0.0,14.33,3.40,'North','FG05',False); 

   Write_Profile('FG06');   

   Compute_Method(0,180,5,14.15,14.45,0.01,3.40,3.40,0.0,'North',mtSimple,False,False,Lambda,Omega,B);
   Compute_Omega_Vector;
   Write_Vector('FG07A');

   Compute_Method(0,180,5,14.15,14.45,0.001,3.40,3.40,0.0,'North',mtSimple,False,False,Lambda,Omega,B);
   Compute_Omega_Vector;
   Write_Vector('FG07B');

   Compute_Method(0,180,5,14.33,14.33,0.0,3.0,5.0,0.02,'North',mtSimple,False,False,Lambda,Omega,B);
   Compute_B_Vector;
   Write_Vector('FG08A');

   Compute_Method(0,180,5,14.33,14.33,0.0,3.0,5.0,0.001,'North',mtSimple,False,False,Lambda,Omega,B);
   Compute_B_Vector;
   Write_Vector('FG08B');

   Compute_Method(0,360,1,14.272,14.272,0.0,3.40,3.40,0.0,'North',mtSimple,False,False,Lambda,Omega,B);
   Compute_Lambda_Vector;
   Write_Vector('FG09');
 
end.