dccaltochar.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
character(string) function	dccaltochar1 (cal)
	暦情報の文字列変換

Function/Subroutine Documentation

dccaltochar1()

character(string) function dccaltochar1

(

type(dc_cal), intent(in)

cal

)

暦情報の文字列変換

Author

Yasuhiro MORIKAWA

Copyright

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

このファイルに記載される手続き群は dc_calendar モジュールから提供されます.

DC_CAL 型変数を文字列に変換

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 が暦のタイプ (文字数は任意), 以降は一年の月数等の情報となります.

Parameters

[in]

cal

暦情報を収めたオブジェクト

Returns

暦情報の文字列表現

Definition at line 52 of file dccaltochar.f90.

 
  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)))
 

References dc_calendar_internal::dccaltype_str(), dc_types::string, and dc_types::token.

Here is the call graph for this function: