dccaltochar.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, 2009-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. see [COPYRIGHT](@ref COPYRIGHT) in detail
!> @en
!> @brief Convert calendar information into strings
!> @details
!> Procedures described in this file are provided from "dc_calendar" module.
!> @enden
!>
!> @ja
!> @brief 暦情報の文字列変換
!> @details
!> このファイルに記載される手続き群は dc_calendar モジュールから提供されます.
!> @endja
!>
 
!> @en
!> @brief Convert DC_CAL variable to character string
!> @details
!> Convert a dc_calendar_types#DC_CAL variable `cal` into
!> a character variable `result`.
!> The format is as follows.
!>
!>     CCCC:month_in_year=MM,day_in_month=(/DD1,.../),hour_in_day=hh,min_in_hour=mm,sec_in_min=ss
!>
!> CCCC is a type of calendar (number of characters is arbitrary).
!> The rest is information about number of months of a year, etc.
!>
!> @param[in] cal An object that stores information of calendar
!> @return Character representation of the calendar information
!> @enden
!>
!> @ja
!> @brief DC_CAL 型変数を文字列に変換
!> @details
!> dc_calendar_types#DC_CAL 型変数 `cal` を文字型変数 `result`
!> へ変換して返します.
!> 書式は下記のようになります.
!>
!>     CCCC:month_in_year=MM,day_in_month=(/DD1,.../),hour_in_day=hh,min_in_hour=mm,sec_in_min=ss
!>
!> CCCC が暦のタイプ (文字数は任意), 以降は一年の月数等の情報となります.
!>
!> @param[in] cal 暦情報を収めたオブジェクト
!> @return 暦情報の文字列表現
!> @endja
function dccaltochar1( cal ) result(result)
 
  use dc_calendar_types, only: dc_cal
  use dc_calendar_internal,only: dccaltype_str
  use dc_types, only: string, token
  use dc_string, only: tochar, cprintf, stoa, tochar
  use dc_message, only: messagenotify
  implicit none
  character(STRING):: result
  type(dc_cal), intent(in):: cal
 
  character(TOKEN):: cal_str
continue
 
  cal_str = dccaltype_str( cal % cal_type )
 
  result = cprintf('%c:month_in_year=%d,day_in_month=(/%c/),hour_in_day=%d,min_in_hour=%d,sec_in_min=%f', &
    & i = (/ cal % month_in_year, cal % hour_in_day, cal % min_in_hour /), &
    & d = (/ cal % sec_in_min /), &
    & c1=trim(cal_str), c2=trim(tochar(cal % day_in_month)))
 
end function dccaltochar1