dcdatetimevalidcaltype.f90

Path: dcdatetimevalidcaltype.f90
Last Update: Tue Dec 12 00:10:04 JST 2006

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

Authors:Yasuhiro MORIKAWA
Version:$Id: dcdatetimevalidcaltype.f90,v 1.1 2006/12/11 15:10:04 morikawa Exp $
Tag Name:$Name: gt4f90io-20070729 $
Copyright:Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
License:See COPYRIGHT

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

Required files

Methods

Included Modules

dc_date_types

Public Instance methods

Function :
result :logical
caltype :integer, intent(in)

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

[Source]

function DCDateTimeValidCaltype(caltype) result(result)
  !
  ! 与えられる暦法が dc_date_types 内で有効であれば
  ! .true. を, それ以外の場合は .false. を返します.
  !
  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

[Validate]