package Glib;
	require Exporter;
	our @ISA	=qw(Exporter);
	our @EXPORT =qw(wsynoptic);

#-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=--==--=-=
# SUBROUTINAS
#-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=--=---=-=-=-=--=-=-=-=-=-=-=-=-=-
#-------------------------------------------------------------------------------
#  wsynoptic - Dado um horario GMT qualquer, retorna o valor do horário
#              sinótico principal mais proximo (0,6,12,ou 18 GMT)
#
#              Paraametro de entrada: $hora (de 00 gmt a 23 )
#-------------------------------------------------------------------------------
     sub wsynoptic2 {
          my $hora=@_[0];
          my $gmt="00";
          if ($hora< 21)  {$gmt="18";}
          if ($hora< 18)  {$gmt="12";}
          if ($hora< 12)  {$gmt="06";}
          if ($hora< 6)  {$gmt="00";}
          return $gmt
        }
    
      sub wsynoptic{
	     my $aux=int(@_[0]/60/60/6);
	     $aux=$aux*60*60*6;
	     return $aux
     }