dcdatetimeparseunits.f90

Go to the documentation of this file.

! -*- mode: f90; coding: utf-8 -*-
!-----------------------------------------------------------------------
! Copyright (c) 2000-2026 Gtool Development Group. All rights reserved.
!-----------------------------------------------------------------------
 
function dcdatetimeparseunits(str) result(symbol)
 
  use dc_types, only: token
  use dc_date_types, only: unit_year, unit_month, unit_day, &
    & unit_hour, unit_min, unit_sec, unit_nondim, &
    & unit_symbol_year, unit_symbol_month, unit_symbol_day, &
    & unit_symbol_hour, unit_symbol_min, unit_symbol_sec, &
    & unit_symbol_nondim, unit_symbol_err
  use dc_string, only: strieq
  implicit none
  character(*), intent(in):: str
  integer:: symbol
  integer:: unit_str_size, i
  character(TOKEN):: unit
continue
  unit = adjustl(str)
  unit_str_size = size(unit_nondim)
  do i = 1, unit_str_size
    if (strieq(trim(unit), trim(unit_nondim(i)))) then
      symbol = unit_symbol_nondim
      return
    end if
  end do
 
  unit_str_size = size(unit_sec)
  do i = 1, unit_str_size
    if (strieq(trim(unit), trim(unit_sec(i)))) then
      symbol = unit_symbol_sec
      return
    end if
  end do
 
  unit_str_size = size(unit_min)
  do i = 1, unit_str_size
    if (strieq(trim(unit), trim(unit_min(i)))) then
      symbol = unit_symbol_min
      return
    end if
  end do
 
  unit_str_size = size(unit_hour)
  do i = 1, unit_str_size
    if (strieq(trim(unit), trim(unit_hour(i)))) then
      symbol = unit_symbol_hour
      return
    end if
  end do
 
  unit_str_size = size(unit_day)
  do i = 1, unit_str_size
    if (strieq(trim(unit), trim(unit_day(i)))) then
      symbol = unit_symbol_day
      return
    end if
  end do
 
  unit_str_size = size(unit_month)
  do i = 1, unit_str_size
    if (strieq(trim(unit), trim(unit_month(i)))) then
      symbol = unit_symbol_month
      return
    end if
  end do
 
  unit_str_size = size(unit_year)
  do i = 1, unit_str_size
    if (strieq(trim(unit), trim(unit_year(i)))) then
      symbol = unit_symbol_year
      return
    end if
  end do
 
  symbol = unit_symbol_err
 
end function dcdatetimeparseunits