dcdatetimevalidcaltype.f90

Go to the documentation of this file.

! -*- mode: f90; coding: utf-8 -*-
!-----------------------------------------------------------------------
! Copyright (c) 2000-2026 Gtool Development Group. All rights reserved.
!-----------------------------------------------------------------------
 
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