dccaldefault.f90

Go to the documentation of this file.

! -*- mode: f90; coding: utf-8 -*-
!-----------------------------------------------------------------------
! Copyright (c) 2000-2026 Gtool Development Group. All rights reserved.
!-----------------------------------------------------------------------
!>
!> @author    Youhei SASAKI, Yasuhiro MORIKAWA
!> @copyright Copyright (C) GFD Dennou Club, 2009-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. see [COPYRIGHT](@ref COPYRIGHT) in detail
!> @en
!> @brief Get information of default calendar
!> @details
!> Procedures described in this file are provided from "dc_calendar" module.
!> @enden
!>
!> @ja
!> @brief デフォルトの暦情報の取得
!> @details
!> このファイルに記載される手続き群は dc_calendar モジュールから提供されます.
!> @endja
!>
 
!> @en
!> @brief Get the default calendar settings
!> @details
!> Default calendar in "dc_calendar" is returned.
!> The default calendar is set by dc_calendar_generic#DCCalCreate
!> without optional argument `cal`.
!> If the DCCalCreate is not called, the calendar becomes Gregorian calendar.
!>
!> @param[out] cal An object that stores information of calendar
!> @enden
!>
!> @ja
!> @brief デフォルトの暦設定を取得
!> @details
!> dc_calendar においてデフォルト設定となっている暦を返します.
!> このデフォルトの暦は, dc_calendar_generic#DCCalCreate
!> において省略可能引数 `cal` を省略して指定された暦が該当します.
!> ただし DCCalCreate が呼び出されていない場合にはグレゴリオ暦となります.
!>
!> @param[out] cal 暦情報を収めたオブジェクト
!> @endja
subroutine dccaldefault1( cal )
 
  use dc_calendar_types, only: dc_cal
  use dc_calendar_internal, only: default_cal, default_cal_set
  use dc_trace, only: beginsub, endsub
  implicit none
  type(dc_cal), intent(out):: cal
 
  ! 作業変数
  ! Work variables
  !
  type(dc_cal), pointer:: calp =>null()
  character(*), parameter:: subname = 'DCCalDefault1'
continue
  call beginsub( subname )
 
  ! オブジェクトのポインタ割付
  ! Associate pointer of an object
  !
  calp => default_cal
  if ( .not. calp % initialized ) call default_cal_set
 
  ! 各要素への値の設定
  ! Configure elements
  !
  cal % cal_type = calp % cal_type
 
  allocate( cal % day_in_month( calp % month_in_year ) )
  cal % month_in_year = calp % month_in_year
  cal % day_in_month  = calp % day_in_month
  cal % hour_in_day   = calp % hour_in_day
  cal % min_in_hour   = calp % min_in_hour
  cal % sec_in_min    = calp % sec_in_min
 
  ! 終了処理, 例外処理
  ! Termination and Exception handling
  !
  cal % initialized = .true.
  nullify( calp )
  call endsub( subname )
end subroutine dccaldefault1