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