| Path: | dc_utils/dcdatetimege.f90 |
| Last Update: | Mon May 25 19:01:34 +0900 2009 |
| Authors: | Yasuhiro MORIKAWA |
| Version: | $Id: dcdatetimege.f90,v 1.1 2009-05-25 10:01:34 morikawa Exp $ |
| Tag Name: | $Name: gtool5-20100705 $ |
| Copyright: | Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved. |
| License: | See COPYRIGHT |
| Function : | |
| result : | logical |
| diff1 : | type(DC_DIFFTIME), intent(in) |
| diff2 : | type(DC_DIFFTIME), intent(in) |
2 つの引数の日時差を比較します. 1 つ目の引数に格納される日時差が 2 つ目の引数に格納される日時差 よりも大きい場合かもしくは等しい場合, .true. が返ります.
logical function dcdatetime_ge_ff(diff1, diff2) result(result)
!
! 2 つの引数の日時差を比較します.
! 1 つ目の引数に格納される日時差が 2 つ目の引数に格納される日時差
! よりも大きい場合かもしくは等しい場合, .true. が返ります.
!
use dc_date_generic, only: operator(<)
use dc_date_types, only: DC_DATETIME, DC_DIFFTIME
implicit none
type(DC_DIFFTIME), intent(in):: diff1, diff2
continue
result = .not. diff1 < diff2
end function dcdatetime_ge_ff
| Function : | |
| result : | logical |
| diff : | type(DC_DIFFTIME), intent(in) |
| factor : | integer, intent(in) |
2 つの引数の日時差を比較します. 1 つ目の引数に格納される日時差が 2 つ目の引数に格納される日時差 よりも大きい場合かもしくは等しい場合, .true. が返ります.
logical function dcdatetime_ge_fi(diff, factor) result(result)
!
! 2 つの引数の日時差を比較します.
! 1 つ目の引数に格納される日時差が 2 つ目の引数に格納される日時差
! よりも大きい場合かもしくは等しい場合, .true. が返ります.
!
use dc_date_generic, only: operator(<)
use dc_date_types, only: DC_DATETIME, DC_DIFFTIME
implicit none
type(DC_DIFFTIME), intent(in):: diff
integer, intent(in):: factor
continue
result = .not. diff < factor
end function dcdatetime_ge_fi
| Function : | |
| result : | logical |
| factor : | integer, intent(in) |
| diff : | type(DC_DIFFTIME), intent(in) |
2 つの引数の日時差を比較します. 1 つ目の引数に格納される日時差が 2 つ目の引数に格納される日時差 よりも大きい場合かもしくは等しい場合, .true. が返ります.
logical function dcdatetime_ge_if(factor, diff) result(result)
!
! 2 つの引数の日時差を比較します.
! 1 つ目の引数に格納される日時差が 2 つ目の引数に格納される日時差
! よりも大きい場合かもしくは等しい場合, .true. が返ります.
!
use dc_date_generic, only: operator(<)
use dc_date_types, only: DC_DATETIME, DC_DIFFTIME
implicit none
integer, intent(in):: factor
type(DC_DIFFTIME), intent(in):: diff
continue
result = .not. factor < diff
end function dcdatetime_ge_if
| Function : | |
| result : | logical |
| time1 : | type(DC_DATETIME), intent(in) |
| time2 : | type(DC_DATETIME), intent(in) |
2 つの引数の日時を比較します. 1 つ目の引数に格納される日時が 2 つ目の引数に格納される日時 よりも進んでいる場合かもしくは等しい場合, .true. が返ります.
logical function dcdatetime_ge_tt(time1, time2) result(result)
!
! 2 つの引数の日時を比較します.
! 1 つ目の引数に格納される日時が 2 つ目の引数に格納される日時
! よりも進んでいる場合かもしくは等しい場合, .true. が返ります.
!
use dc_date_generic, only: operator(<)
use dc_date_types, only: DC_DATETIME, DC_DIFFTIME
implicit none
type(DC_DATETIME), intent(in):: time1, time2
continue
result = .not. time1 < time2
end function dcdatetime_ge_tt