dc_calendar_generic.f90

Go to the documentation of this file.

!= dc_calendar より提供される手続の引用仕様宣言
!= Interface of procedures provided from dc_calendar
!
! Authors::   Yasuhiro MORIKAWA
! Version::   $Id: dc_calendar_generic.f90,v 1.9 2009-12-29 16:10:02 morikawa Exp $
! Tag Name::  $Name:  $
! Copyright:: Copyright (C) GFD Dennou Club, 2009-. All rights reserved.
! License::   See COPYRIGHT[link:../../COPYRIGHT]

module dc_calendar_generic
  != dc_calendar より提供される手続の引用仕様宣言
  != Interface of procedures provided from dc_calendar
  !
  ! モジュールの概要や使用法については, dc_calendar 
  ! を参照ください. 
  !
  ! See "dc_calendar" for brief of this module and usage. 
  !
  !== Procedures List
  !
  ! 暦に関する手続
  !
  ! Procedures for calendar
  !
  ! DCCalCreate        :: 暦の設定
  ! DCCalInquire       :: 暦情報の問い合わせ
  ! DCCalConvertByUnit :: 単位の変換
  ! DCCalConvertToSec  :: 時間の秒への変換
  ! DCCalConvertToMin  :: 時間の分への変換
  ! DCCalConvertToHour :: 時間の時への変換
  ! DCCalConvertToDay  :: 時間の日への変換
  ! DCCalDefault       :: デフォルトの暦情報の取得
  ! DCCalToChar        :: 暦情報の文字列への変換
  ! DCCalParseUnit     :: 単位の解釈
  ! ------------       ::
  ! DCCalCreate        :: Set calendar
  ! DCCalInquire       :: Inquire information of calendar 
  ! DCCalConvertByUnit :: Convert of unit
  ! DCCalConvertToSec  :: Convert time into second
  ! DCCalConvertToMin  :: Convert time into minute
  ! DCCalConvertToHour :: Convert time into hour
  ! DCCalConvertToDay  :: Convert time into day
  ! DCCalDefault       :: Get information of default calendar
  ! DCCalToChar        :: Convert calender information into strings
  ! DCCalParseUnit     :: Parse units
  !
  !
  ! 日時に関する手続
  !
  ! Procedures for date
  !
  ! DCCalDateCreate        :: 日時の設定
  ! DCCalDateInquire       :: 日時の問い合わせ
  ! DCCalDateEval          :: 日時の算出
  ! DCCalDateDifference    :: 日時差の算出
  ! DCCalDateEvalSecOfYear :: 年始めからの通秒の算出
  ! DCCalDateEvalDayOfYear :: 年始めからの通日の算出
  ! DCCalDateEvalSecOfDay  :: 日始めからの通秒の算出
  ! DCCalDateChkLeapYear   :: 閏年かどうかの判定
  ! DCCalDateCurrent       :: 実時間の取得
  ! DCCalDateParseStr      :: 日時を示す文字列 (YYYY-MM-DDThh:mm:ss.sTZD) の解釈
  ! DCCalDateToChar        :: 日時の文字列 (YYYY-MM-DDThh:mm:ss.sTZD) への変換
  ! ------------           ::
  ! DCCalDateCreate        :: Set date
  ! DCCalDateInquire       :: Inquire date
  ! DCCalDateEval          :: Evaluate date
  ! DCCalDateDifference    :: Evaluate difference of date
  ! DCCalDateEvalSecOfYear :: Evaluate second of year
  ! DCCalDateEvalDayOfYear :: Evaluate day of year
  ! DCCalDateEvalSecOfDay  :: Evaluate second of day
  ! DCCalDateChkLeapYear   :: Judge whether it is a leap year
  ! DCCalDateCurrent       :: Get actual time
  ! DCCalDateParseStr      :: Parse a string of date (YYYY-MM-DDThh:mm:ss.sTZD) 
  ! DCCalDateToChar        :: Convert date into a string (YYYY-MM-DDThh:mm:ss.sTZD) 
  !

  implicit none

  interface dccalcreate
    subroutine dccalcreate1( cal_type, cal, err )
      use dc_calendar_types, only: dc_cal
      character(*), intent(in):: cal_type
      type(dc_cal), intent(out), optional, target:: cal
      logical, intent(out), optional:: err
    end subroutine dccalcreate1

    subroutine dccalcreate2( month_in_year, day_in_month, &
      &                      hour_in_day, min_in_hour, sec_in_min, &
      &                      cal, err )
      use dc_calendar_types, only: dc_cal
      use dc_types, only: dp
      integer, intent(in):: month_in_year
      integer, intent(in):: day_in_month(:)
      integer, intent(in):: hour_in_day, min_in_hour
      real(DP), intent(in):: sec_in_min
      type(dc_cal), intent(out), optional, target:: cal
      logical, intent(out), optional:: err
    end subroutine dccalcreate2
  end interface

  interface dccaldefault
    subroutine dccaldefault1( cal )
      use dc_calendar_types, only: dc_cal
      type(dc_cal), intent(out):: cal
    end subroutine dccaldefault1
  end interface

  interface dccalinquire
    subroutine dccalinquire1( cal_type, &
      &                       month_in_year, &
      &                       day_in_month, day_in_month_ptr, &
      &                       hour_in_day, min_in_hour, sec_in_min, &
      &                       cal, err )
      use dc_calendar_types, only: dc_cal
      use dc_types, only: dp
      character(*), intent(out), optional:: cal_type
      integer, intent(out), optional:: month_in_year
      integer, intent(out), optional:: day_in_month(:)
      integer, pointer, optional:: day_in_month_ptr(:)
      integer, intent(out), optional:: hour_in_day, min_in_hour
      real(DP), intent(out), optional:: sec_in_min
      type(dc_cal), intent(in), optional, target:: cal
      logical, intent(out), optional:: err
    end subroutine dccalinquire1
  end interface

  interface dccaltochar
    function dccaltochar1( cal ) result(result)
      use dc_calendar_types, only: dc_cal
      use dc_types, only: string
      character(STRING):: result
      type(dc_cal), intent(in):: cal
    end function dccaltochar1
  end interface

  interface dccalconvertbyunit
    function dccalconvertbyunit1( in_time, in_unit, out_unit, cal ) result( out_time )
      use dc_calendar_types, only: dc_cal
      use dc_types, only: dp
      real(DP):: out_time
      real(DP), intent(in):: in_time
      character(*), intent(in):: in_unit
      character(*), intent(in):: out_unit
      type(dc_cal), intent(in), optional, target:: cal
    end function dccalconvertbyunit1

    function dccalconvertbyunit2( in_time, in_unit, out_unit, cal ) result( out_time )
      use dc_calendar_types, only: dc_cal
      use dc_types, only: dp
      real(DP):: out_time
      real(DP), intent(in):: in_time
      integer, intent(in):: in_unit
      integer, intent(in):: out_unit
      type(dc_cal), intent(in), optional, target:: cal
    end function dccalconvertbyunit2
  end interface

  interface dccalconverttosec

    function dccalconverttosec1( in_time, in_unit, cal ) result( out_time )
      use dc_calendar_types, only: dc_cal
      use dc_types, only: dp
      real(DP):: out_time
      real(DP), intent(in):: in_time
      character(*), intent(in):: in_unit
      type(dc_cal), intent(in), optional, target:: cal
    end function dccalconverttosec1

    function dccalconverttosec2( in_time, in_unit, cal ) result( out_time )
      use dc_calendar_types, only: dc_cal
      use dc_types, only: dp
      real(DP):: out_time
      real(DP), intent(in):: in_time
      integer, intent(in):: in_unit
      type(dc_cal), intent(in), optional, target:: cal
    end function dccalconverttosec2

  end interface

  interface dccalconverttomin

    function dccalconverttomin1( in_time, in_unit, cal ) result( out_time )
      use dc_calendar_types, only: dc_cal
      use dc_types, only: dp
      real(DP):: out_time
      real(DP), intent(in):: in_time
      character(*), intent(in):: in_unit
      type(dc_cal), intent(in), optional, target:: cal
    end function dccalconverttomin1

    function dccalconverttomin2( in_time, in_unit, cal ) result( out_time )
      use dc_calendar_types, only: dc_cal
      use dc_types, only: dp
      real(DP):: out_time
      real(DP), intent(in):: in_time
      integer, intent(in):: in_unit
      type(dc_cal), intent(in), optional, target:: cal
    end function dccalconverttomin2

  end interface

  interface dccalconverttohour

    function dccalconverttohour1( in_time, in_unit, cal ) result( out_time )
      use dc_calendar_types, only: dc_cal
      use dc_types, only: dp
      real(DP):: out_time
      real(DP), intent(in):: in_time
      character(*), intent(in):: in_unit
      type(dc_cal), intent(in), optional, target:: cal
    end function dccalconverttohour1

    function dccalconverttohour2( in_time, in_unit, cal ) result( out_time )
      use dc_calendar_types, only: dc_cal
      use dc_types, only: dp
      real(DP):: out_time
      real(DP), intent(in):: in_time
      integer, intent(in):: in_unit
      type(dc_cal), intent(in), optional, target:: cal
    end function dccalconverttohour2

  end interface

  interface dccalconverttoday

    function dccalconverttoday1( in_time, in_unit, cal ) result( out_time )
      use dc_calendar_types, only: dc_cal
      use dc_types, only: dp
      real(DP):: out_time
      real(DP), intent(in):: in_time
      character(*), intent(in):: in_unit
      type(dc_cal), intent(in), optional, target:: cal
    end function dccalconverttoday1

    function dccalconverttoday2( in_time, in_unit, cal ) result( out_time )
      use dc_calendar_types, only: dc_cal
      use dc_types, only: dp
      real(DP):: out_time
      real(DP), intent(in):: in_time
      integer, intent(in):: in_unit
      type(dc_cal), intent(in), optional, target:: cal
    end function dccalconverttoday2

  end interface

  interface dccalparseunit
    subroutine dccalparseunit1( unit_str, unit_sym, err )
      character(*), intent(in):: unit_str
      integer, intent(out):: unit_sym
      logical, intent(out), optional:: err
    end subroutine dccalparseunit1
  end interface

  interface dccaldatecreate
    subroutine dccaldatecreate1( year, month, day, hour, min, sec, date, zone, err )
      use dc_calendar_types, only: dc_cal_date
      use dc_types, only: dp
      integer, intent(in):: year, month, day, hour, min
      real(DP), intent(in):: sec
      type(dc_cal_date), intent(out), optional, target:: date
      character(*), intent(in), optional:: zone
      logical, intent(out), optional:: err
    end subroutine dccaldatecreate1

    subroutine dccaldatecreate2( date_str, date, err )
      use dc_calendar_types, only: dc_cal_date
      character(*), intent(in):: date_str
      type(dc_cal_date), intent(out), optional, target:: date
      logical, intent(out), optional:: err
    end subroutine dccaldatecreate2
  end interface

  interface dccaldatecurrent
    subroutine dccaldatecurrent1( date, err )
      use dc_calendar_types, only: dc_cal_date
      type(dc_cal_date), intent(out):: date
      logical, intent(out), optional:: err
    end subroutine dccaldatecurrent1
  end interface

  interface dccaldateparsestr
    subroutine dccaldateparsestr1( date_str, &
      & year, month, day, hour, min, sec, zone, &
      & err )
      use dc_types, only: dp
      character(*), intent(in):: date_str
      integer, intent(out):: year, month, day, hour, min
      real(DP), intent(out):: sec
      character(*), intent(out):: zone
      logical, intent(out), optional:: err
    end subroutine dccaldateparsestr1
  end interface

  interface dccaldateinquire
    subroutine dccaldateinquire1( year, month, day, hour, min, sec, zone, &
      & elapse_sec, date, cal, err )
      use dc_calendar_types, only: dc_cal_date, dc_cal
      use dc_types, only: dp
      integer, intent(out), optional:: year, month, day, hour, min
      real(DP), intent(out), optional:: sec
      character(*), intent(out), optional:: zone
      real(DP), intent(in), optional:: elapse_sec
      type(dc_cal_date), intent(in), optional, target:: date
      type(dc_cal), intent(in), optional, target:: cal
      logical, intent(out), optional:: err
    end subroutine dccaldateinquire1

    subroutine dccaldateinquire2( date_str, elapse_sec, date, cal, err )
      use dc_types, only: dp
      use dc_calendar_types, only: dc_cal_date, dc_cal
      character(*), intent(out):: date_str
      real(DP), intent(in), optional:: elapse_sec
      type(dc_cal_date), intent(in), optional, target:: date
      type(dc_cal), intent(in), optional, target:: cal
      logical, intent(out), optional:: err
    end subroutine dccaldateinquire2
  end interface

  interface dccaldatetochar
    function dccaldatetochar1( year, month, day, hour, min, sec, zone ) &
      & result(result)
      use dc_types, only: string, dp, token
      character(STRING):: result
      integer, intent(in):: year, month, day, hour, min
      real(DP), intent(in):: sec
      character(*), intent(in), optional:: zone
    end function dccaldatetochar1
  end interface

  interface dccaldateeval
    subroutine dccaldateevalymdhms1( year, month, day, hour, min, sec, elapse_sec, cal, date, err )
      use dc_calendar_types, only: dc_cal, dc_cal_date
      use dc_types, only: dp
      integer, intent(in):: year, month, day, hour, min
      real(DP), intent(in):: sec, elapse_sec
      type(dc_cal), intent(in), optional, target:: cal
      type(dc_cal_date), intent(out), optional, target:: date
      logical, intent(out), optional:: err
    end subroutine dccaldateevalymdhms1

    subroutine dccaldateevalymdhms2( year, month, day, hour, min, sec, elapse_time, units, cal, date, err )
      use dc_calendar_types, only: dc_cal, dc_cal_date
      use dc_types, only: dp
      integer, intent(in):: year, month, day, hour, min
      real(DP), intent(in):: sec, elapse_time
      character(*), intent(in):: units
      type(dc_cal), intent(in), optional, target:: cal
      type(dc_cal_date), intent(out), optional, target:: date
      logical, intent(out), optional:: err
    end subroutine dccaldateevalymdhms2

    subroutine dccaldateevalid1( init_date, elapse_sec, cal, date, err )
      use dc_calendar_types, only: dc_cal, dc_cal_date
      use dc_types, only: dp
      type(dc_cal_date), intent(in):: init_date
      real(DP), intent(in):: elapse_sec
      type(dc_cal), intent(in), optional, target:: cal
      type(dc_cal_date), intent(out), optional, target:: date
      logical, intent(out), optional:: err
    end subroutine dccaldateevalid1

    subroutine dccaldateevalid2( init_date, elapse_time, units, cal, date, err )
      use dc_calendar_types, only: dc_cal, dc_cal_date
      use dc_types, only: dp
      type(dc_cal_date), intent(in):: init_date
      real(DP), intent(in):: elapse_time
      character(*), intent(in):: units
      type(dc_cal), intent(in), optional, target:: cal
      type(dc_cal_date), intent(out), optional, target:: date
      logical, intent(out), optional:: err
    end subroutine dccaldateevalid2

    subroutine dccaldateevalym2ym1( &
      & year1, month1, day1, hour1, min1, sec1, &
      & elapse_sec, &
      & year2, month2, day2, hour2, min2, sec2, &
      & cal, err )
      use dc_calendar_types, only: dc_cal_date, dc_cal
      use dc_types, only: dp
      integer, intent(in):: year1, month1, day1, hour1, min1
      real(DP), intent(in):: sec1, elapse_sec
      integer, intent(out):: year2, month2, day2, hour2, min2
      real(DP), intent(out):: sec2
      type(dc_cal), intent(in), optional, target:: cal
      logical, intent(out), optional:: err
    end subroutine dccaldateevalym2ym1

    subroutine dccaldateevalym2ym2( &
      & year1, month1, day1, hour1, min1, sec1, &
      & elapse_time, units, &
      & year2, month2, day2, hour2, min2, sec2, &
      & cal, err )
      use dc_calendar_types, only: dc_cal_date, dc_cal
      use dc_types, only: dp
      integer, intent(in):: year1, month1, day1, hour1, min1
      real(DP), intent(in):: sec1, elapse_time
      character(*), intent(in):: units
      integer, intent(out):: year2, month2, day2, hour2, min2
      real(DP), intent(out):: sec2
      type(dc_cal), intent(in), optional, target:: cal
      logical, intent(out), optional:: err
    end subroutine dccaldateevalym2ym2

  end interface

  interface dccaldatedifference
    function dccaldatedifference1( start_date, end_date, cal ) result(sec)
      use dc_calendar_types, only: dc_cal_date, dc_cal
      use dc_types, only: dp
      type(dc_cal_date), intent(in):: start_date, end_date
      type(dc_cal), intent(in), optional, target:: cal
      real(DP):: sec
    end function dccaldatedifference1
  end interface

  interface dccaldateevalsecofyear
    function dccaldateevalsecofyear1( elapse_sec, date, cal ) result(result)
      use dc_calendar_types, only: dc_cal_date, dc_cal
      use dc_types, only: dp
      real(DP), intent(in):: elapse_sec
      type(dc_cal_date), intent(in), optional, target:: date
      type(dc_cal), intent(in), optional, target:: cal
      real(DP):: result
    end function dccaldateevalsecofyear1
  end interface

  interface dccaldateevaldayofyear
    function dccaldateevaldayofyear1( elapse_sec, date, cal ) result(result)
      use dc_calendar_types, only: dc_cal_date, dc_cal
      use dc_types, only: dp
      real(DP), intent(in):: elapse_sec
      type(dc_cal_date), intent(in), optional, target:: date
      type(dc_cal), intent(in), optional, target:: cal
      real(DP):: result
    end function dccaldateevaldayofyear1
  end interface

  interface dccaldateevalsecofday
    function dccaldateevalsecofday1( elapse_sec, date, cal ) result(result)
      use dc_calendar_types, only: dc_cal_date, dc_cal
      use dc_types, only: dp
      real(DP), intent(in):: elapse_sec
      type(dc_cal_date), intent(in), optional, target:: date
      type(dc_cal), intent(in), optional, target:: cal
      real(DP):: result
    end function dccaldateevalsecofday1
  end interface

  interface dccaldatechkleapyear
    function dccaldatechkleapyear1( elapse_sec, date, cal ) result(result)
      use dc_calendar_types, only: dc_cal_date, dc_cal
      use dc_types, only: dp
      real(DP), intent(in):: elapse_sec
      type(dc_cal_date), intent(in), optional, target:: date
      type(dc_cal), intent(in), optional, target:: cal
      logical:: result
    end function dccaldatechkleapyear1
  end interface

end module dc_calendar_generic