!**********************************************************
!*

  MACRO GEOMETRY MODULE shwdat();

!*    Displays a list of principle design data.
!*
!*    (C)Microform AB 1998-09-23, J.Kjellander
!*
!**********************************************************

  INT    status;
  FLOAT  k1(1),k2(2),k3(3),k4(4);
  FLOAT  displ;

BEGINMODULE

   lst_ini("Current principle design data !");
!*
!***LOA.
!***Length over all.
!*
   status:=getdat_gm("LOA",k1);
   if status = 1 then
     lst_lin("LOA    Length over all             = "+str(k1(1)/1E3,-8,3)+" meters");
   else
     lst_lin("LOA    Length over all             = "+"Not defined");
   endif;
!*
!***MAXBEAM.
!***Max beam.
!*
   status:=getdat_gm("MAXBEAM",k3);
   if status = 3 then
     lst_lin("Bmax   Max beam                    = "+str(k3(3)/1E3,-8,3)+" meters");
     lst_lin("        @ x-station                = "+str(k3(1)/1E3,-8,3)+" meters");
     lst_lin("        @ y-waterline              = "+str(k3(2)/1E3,-8,3)+" meters");
   else
     lst_lin("Bmax   Max beam                    = "+"Not defined");
   endif;
!*
!***MAXDRAUGHT.
!***Max draught of canoe body.
!*
   status:=getdat_gm("MAXDRAUGHT",k3);
   if status = 3 then
     lst_lin("Tc     Max draught of canoe body   = "+str(k3(2)/1E3,-8,2)+" meters");
     lst_lin("        @ x-station                = "+str(k3(1)/1E3,-8,3)+" meters");
     lst_lin("        @ z-buttock                = "+str(k3(3)/1E3,-8,3)+" meters");
   else
     lst_lin("Tc     Max draught of canoe body   = "+"Not defined");
   endif;

   lst_lin("");
!*
!***SAILAREA.
!***Sail area.
!*
   status:=getdat_gm("SAILAREA",k1);
   if status = 1 then
     lst_lin("As     Sail area                   = "+str(k1(1)/1E6,-8,2)+" meters²");
   else
     lst_lin("As     Sail area                   = "+"Not defined");
   endif;

   lst_lin("");
!*
!***DENSITY_WATER.
!***Density of water.
!*
   status:=getdat_gm("DENSITY_WATER",k1);
   if status = 1 then
     lst_lin("< Density of water = "+str(k1(1)*1E9,-6,4)+" kg/m³ >");
   else
     lst_lin("< Density of water = "+"Not defined >");
   endif;

   lst_exi();

ENDMODULE

!**********************************************************