anchor.diff:  
     INTEGER :: hour,minute
   
  +  ! Obtain local machine time zone information
     CALL date_and_time(zone=zone,values=values)
   
     READ(UNIT=zone(1:3),FMT='(I3)')hour
  
positive.code: PUBLIC :: strptime
  PUBLIC :: tm2date
  
  ! Constants:
  INTEGER,PARAMETER :: real_dp = KIND(1d0)
  
  REAL(KIND=real_dp),PARAMETER :: one = 1d0      ! 1
  REAL(KIND=real_dp),PARAMETER :: d2h = 24d0     ! day    -> hour
  REAL(KIND=real_dp),PARAMETER :: h2d = one/d2h  ! hour   -> day
  
negative.code:   INTEGER            :: days,hours,minutes,seconds,milliseconds
    INTEGER            :: sign_
  
    daysDiff = date2num(d0)-date2num(d1)
  
    IF(daysDiff < 0)THEN
      sign_ = -1
  