dcdatetimevalidcaltype.f90

Go to the documentation of this file.

! -*- mode: f90; coding: utf-8 -*-
!-----------------------------------------------------------------------
! Copyright (c) 2000-2026 Gtool Development Group. All rights reserved.
!-----------------------------------------------------------------------
!>
!> @author    Yasuhiro MORIKAWA
!> @copyright Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. see [COPYRIGHT](@ref COPYRIGHT) in detail
!> @en
!> @brief Check if calendar type is valid in dc_date_types
!> @details
!> Procedures described in this file are provided from "dc_date" module.
!> @enden
!>
!> @ja
!> @brief 暦法が dc_date_types で有効なものかどうかを調べる
!> @details
!> このファイルで提供される手続き群は dc_date モジュールにて提供されます。
!> @endja
!>
 
!> @en
!> @brief Check if calendar type is valid
!> @details
!> Returns .true. if the given calendar type is valid in dc_date_types,
!> .false. otherwise.
!>
!> @param[in] caltype Calendar type to check
!> @return .true. if valid, .false. otherwise
!> @enden
!>
!> @ja
!> @brief 暦法が有効かどうかをチェック
!> @details
!> 与えられる暦法が dc_date_types 内で有効であれば
!> .true. を, それ以外の場合は .false. を返します.
!>
!> @param[in] caltype チェックする暦法
!> @return 有効な場合は .true., それ以外は .false.
!> @endja
function dcdatetimevalidcaltype(caltype) result(result)
 
  use dc_date_types, only: prepared_caltypes
  implicit none
  integer, intent(in):: caltype
  logical:: result
  integer:: caltypes_size, i
continue
  result = .false.
  caltypes_size = size(prepared_caltypes) - 1
  do i = 0, caltypes_size
    if (caltype == prepared_caltypes(i)) then
      result = .true.
      exit
    end if
  end do
end function dcdatetimevalidcaltype