Get local machine time zone in Fortran

time_zone.f90

program main
!! prints local machine timezone offset from UTC in hours
!! based on https://github.com/wavebitscientific/datetime-fortran/pull/80/files

use, intrinsic :: iso_fortran_env, only: real64

implicit none

character(len=5) :: zone
integer :: values(8)
integer :: hour, minute

real(real64), parameter :: m2h = 1 / 60._real64

real(real64) :: machinetimezone
! Obtain local machine time zone information
call date_and_time(zone=zone, values=values)
read(zone(1:3), '(i3)') hour
read(zone(4:5), '(i2)') minute

if(hour<0)then
  machinetimezone = hour - minute * m2h
else
  machinetimezone = hour + minute * m2h
end if

print *, machinetimezone

end program