program main
implicit none 
integer :: s 
integer :: HH ! hour
integer :: MM ! minute
integer :: SS ! second
print*, "enter the values of HH,MM,SS"
read*, HH,MM,SS
s = ((HH*3600)+(MM*60)+SS)
 print*, "second",s 
end program main