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

  MACRO GEOMETRY MODULE shwconst();

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

  INT    status;
  FLOAT  k(1);

BEGINMODULE

   lst_ini("Current constants !");
!*
!***Density of water.
!*
   status:=getdat_gm("DENSITY_WATER",k);
   if status = 1 then
     lst_lin("rho    Density of water            = "+str(k(1)*1E9,-8,4)+" kg/m³");
   else
     lst_lin("rho    Density of water            = "+"Not defined");
   endif;

   lst_exi();

ENDMODULE

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