dcdatetimevalidcaltype.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
logical function	dcdatetimevalidcaltype (caltype)
	暦法が dc_date_types で有効なものかどうかを調べる

Function/Subroutine Documentation

dcdatetimevalidcaltype()

logical function dcdatetimevalidcaltype

(

integer, intent(in)

caltype

)

暦法が dc_date_types で有効なものかどうかを調べる

Author

Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. see COPYRIGHT in detail

このファイルで提供される手続き群は dc_date モジュールにて提供されます。

暦法が有効かどうかをチェック

与えられる暦法が dc_date_types 内で有効であれば .true. を, それ以外の場合は .false. を返します.

Parameters

[in]

caltype

チェックする暦法

Returns

有効な場合は .true., それ以外は .false.

Definition at line 41 of file dcdatetimevalidcaltype.f90.

 
  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

References dc_date_types::caltype, and dc_date_types::prepared_caltypes.