dc_present Module Reference

Data Types
interface	present_and_eq
interface	present_and_ne
interface	present_select

Functions/Subroutines
logical function, public	present_and_true (arg)
logical function, public	present_and_false (arg)
logical function, public	present_and_zero (arg)
logical function, public	present_and_nonzero (arg)
logical function	present_and_eq_integer (arg, val)
logical function	present_and_eq_real (arg, val)
logical function	present_and_eq_double (arg, val)
logical function	present_and_ne_integer (arg, val)
logical function	present_and_ne_real (arg, val)
logical function	present_and_ne_double (arg, val)
logical function, public	present_and_not_empty (arg)
character(string) function	present_select_char (invalid, default, c0, c1, c2, c3, c4, c5, c6, c7, c8, c9)
integer function	present_select_int (invalid, default, d0, d1, d2, d3, d4, d5, d6, d7, d8, d9)
real function	present_select_real (invalid, default, r0, r1, r2, r3, r4, r5, r6, r7, r8, r9)
real(dp) function	present_select_double (invalid, default, f0, f1, f2, f3, f4, f5, f6, f7, f8, f9)
character(string) function	present_select_char_auto (invalid, default, c0, c1, c2, c3, c4, c5, c6, c7, c8, c9)
integer function	present_select_int_auto (invalid, default, d0, d1, d2, d3, d4, d5, d6, d7, d8, d9)
real function	present_select_real_auto (invalid, default, r0, r1, r2, r3, r4, r5, r6, r7, r8, r9)
real(dp) function	present_select_double_auto (invalid, default, f0, f1, f2, f3, f4, f5, f6, f7, f8, f9)

Function/Subroutine Documentation

present_and_eq_double()

logical function dc_present::present_and_eq_double ( real(dp), intent(in), optional  arg, real(dp), intent(in)  val  )

private

Definition at line 196 of file dc_present.f90.

    !
    ! arg が省略されておらず、且つ val と等しい場合、
    ! <tt>.true.</tt> が返ります。
    !
    logical :: result
    real(DP),intent(in),optional :: arg
    real(DP),intent(in) :: val
  continue
    if(present(arg)) then
      if(arg==val) then
        result=.true.
      else
        result=.false.
      endif
    else
      result=.false.
    endif

present_and_eq_integer()

logical function dc_present::present_and_eq_integer ( integer, intent(in), optional  arg, integer, intent(in)  val  )

private

Definition at line 156 of file dc_present.f90.

    !
    ! arg が省略されておらず、且つ val と等しい場合、
    ! <tt>.true.</tt> が返ります。
    !
    logical :: result
    integer,intent(in),optional :: arg
    integer,intent(in) :: val
  continue
    if(present(arg)) then
      if(arg==val) then
        result=.true.
      else
        result=.false.
      endif
    else
      result=.false.
    endif

present_and_eq_real()

logical function dc_present::present_and_eq_real ( real, intent(in), optional  arg, real, intent(in)  val  )

private

Definition at line 176 of file dc_present.f90.

    !
    ! arg が省略されておらず、且つ val と等しい場合、
    ! <tt>.true.</tt> が返ります。
    !
    logical :: result
    real,intent(in),optional :: arg
    real,intent(in) :: val
  continue
    if(present(arg)) then
      if(arg==val) then
        result=.true.
      else
        result=.false.
      endif
    else
      result=.false.
    endif

present_and_false()

logical function, public dc_present::present_and_false

(

logical, intent(in), optional

arg

)

Definition at line 99 of file dc_present.f90.

Referenced by gtvarcopyattrall(), historycopyvariable1(), historycreate1(), historycreate2(), historyputcharex(), historyputdoubleex(), historyputintex(), and historyputrealex().

    !
    ! arg が省略されておらず、且つ <tt>.false.</tt> の場合、
    ! <tt>.true.</tt> が返ります。
    !
    logical :: result
    logical,intent(in),optional :: arg
  continue
    if(present(arg)) then
      if(arg) then
        result=.false.
      else
        result=.true.
      endif
    else
      result=.false.
    endif

Here is the caller graph for this function:

present_and_ne_double()

logical function dc_present::present_and_ne_double ( real(dp), intent(in), optional  arg, real(dp), intent(in)  val  )

private

Definition at line 256 of file dc_present.f90.

    !
    ! arg が省略されておらず、且つ val と等しくない場合、
    ! <tt>.true.</tt> が返ります。
    !
    logical :: result
    real(DP),intent(in),optional :: arg
    real(DP),intent(in) :: val
  continue
    if(present(arg)) then
      if(arg/=val) then
        result=.true.
      else
        result=.false.
      endif
    else
      result=.false.
    endif

present_and_ne_integer()

logical function dc_present::present_and_ne_integer ( integer, intent(in), optional  arg, integer, intent(in)  val  )

private

Definition at line 216 of file dc_present.f90.

    !
    ! arg が省略されておらず、且つ val と等しくない場合、
    ! <tt>.true.</tt> が返ります。
    !
    logical :: result
    integer,intent(in),optional :: arg
    integer,intent(in) :: val
  continue
    if(present(arg)) then
      if(arg/=val) then
        result=.true.
      else
        result=.false.
      endif
    else
      result=.false.
    endif

present_and_ne_real()

logical function dc_present::present_and_ne_real ( real, intent(in), optional  arg, real, intent(in)  val  )

private

Definition at line 236 of file dc_present.f90.

    !
    ! arg が省略されておらず、且つ val と等しくない場合、
    ! <tt>.true.</tt> が返ります。
    !
    logical :: result
    real,intent(in),optional :: arg
    real,intent(in) :: val
  continue
    if(present(arg)) then
      if(arg/=val) then
        result=.true.
      else
        result=.false.
      endif
    else
      result=.false.
    endif

present_and_nonzero()

logical function, public dc_present::present_and_nonzero

(

integer, intent(in), optional

arg

)

Definition at line 137 of file dc_present.f90.

    !
    ! arg が省略されておらず、且つ 0 ではない場合、
    ! <tt>.true.</tt> が返ります。
    !
    logical :: result
    integer,intent(in),optional :: arg
  continue
    if(present(arg)) then
      if(arg==0) then
        result=.false.
      else
        result=.true.
      endif
    else
      result=.false.
    endif

present_and_not_empty()

logical function, public dc_present::present_and_not_empty

(

character(len=*), intent(in), optional

arg

)

Definition at line 276 of file dc_present.f90.

Referenced by dc_iounit::fileopen(), historyautocreate1(), historyautocreate2(), historyautocreate3(), historycreate1(), historycreate2(), historygetdouble0(), historygetdouble1(), historygetdouble2(), historygetdouble3(), historygetdouble4(), historygetdouble5(), historygetdouble6(), historygetdouble7(), historygetint0(), historygetint1(), historygetint2(), historygetint3(), historygetint4(), historygetint5(), historygetint6(), historygetint7(), historygetreal0(), historygetreal1(), historygetreal2(), historygetreal3(), historygetreal4(), historygetreal5(), historygetreal6(), historygetreal7(), historyputcharex(), historyputdoubleex(), historyputintex(), historyputrealex(), hstnmlinfoadd(), hstnmlinfoallnamevalid(), hstnmlinfoallvarinicheck(), hstnmlinfocreate(), hstnmlinfodelete(), hstnmlinfoinquire(), hstnmlinfooutputstep(), hstnmlinfooutputvalid(), hstnmlinfosetvalidname(), and lookup_growable_url().

    !
    ! arg が省略されておらず、且つ空文字ではない場合、
    ! <tt>.true.</tt> が返ります。
    !
    logical :: result
    character(len=*),intent(in),optional :: arg
  continue
    if(present(arg)) then
      if(arg=="") then
        result=.false.
      else
        result=.true.
      endif
    else
      result=.false.
    endif

Here is the caller graph for this function:

present_and_true()

logical function, public dc_present::present_and_true

(

logical, intent(in), optional

arg

)

Definition at line 80 of file dc_present.f90.

Referenced by dc_args::dcargsget0(), dc_args::dcargshelp0(), dc_args::dcargsstrict0(), dcdatetimetocharcal(), gtvarcopyattrall(), gtvaropen(), gtvaropenbydimord(), historyaddvariable1(), historyautocreate1(), historyautocreate2(), historyautocreate3(), historyclose(), historycreate1(), historycreate2(), historycreate3(), historygetdouble0(), historygetdouble0pointer(), historygetdouble0pointertimed(), historygetdouble0pointertimei(), historygetdouble0pointertimer(), historygetdouble0timed(), historygetdouble0timei(), historygetdouble0timer(), historygetdouble1(), historygetdouble1pointer(), historygetdouble1pointertimed(), historygetdouble1pointertimei(), historygetdouble1pointertimer(), historygetdouble1timed(), historygetdouble1timei(), historygetdouble1timer(), historygetdouble2(), historygetdouble2pointer(), historygetdouble2pointertimed(), historygetdouble2pointertimei(), historygetdouble2pointertimer(), historygetdouble2timed(), historygetdouble2timei(), historygetdouble2timer(), historygetdouble3(), historygetdouble3pointer(), historygetdouble3pointertimed(), historygetdouble3pointertimei(), historygetdouble3pointertimer(), historygetdouble3timed(), historygetdouble3timei(), historygetdouble3timer(), historygetdouble4(), historygetdouble4pointer(), historygetdouble4pointertimed(), historygetdouble4pointertimei(), historygetdouble4pointertimer(), historygetdouble4timed(), historygetdouble4timei(), historygetdouble4timer(), historygetdouble5(), historygetdouble5pointer(), historygetdouble5pointertimed(), historygetdouble5pointertimei(), historygetdouble5pointertimer(), historygetdouble5timed(), historygetdouble5timei(), historygetdouble5timer(), historygetdouble6(), historygetdouble6pointer(), historygetdouble6pointertimed(), historygetdouble6pointertimei(), historygetdouble6pointertimer(), historygetdouble6timed(), historygetdouble6timei(), historygetdouble6timer(), historygetdouble7(), historygetdouble7pointer(), historygetdouble7pointertimed(), historygetdouble7pointertimei(), historygetdouble7pointertimer(), historygetdouble7timed(), historygetdouble7timei(), historygetdouble7timer(), historygetint0(), historygetint0pointer(), historygetint0pointertimed(), historygetint0pointertimei(), historygetint0pointertimer(), historygetint0timed(), historygetint0timei(), historygetint0timer(), historygetint1(), historygetint1pointer(), historygetint1pointertimed(), historygetint1pointertimei(), historygetint1pointertimer(), historygetint1timed(), historygetint1timei(), historygetint1timer(), historygetint2(), historygetint2pointer(), historygetint2pointertimed(), historygetint2pointertimei(), historygetint2pointertimer(), historygetint2timed(), historygetint2timei(), historygetint2timer(), historygetint3(), historygetint3pointer(), historygetint3pointertimed(), historygetint3pointertimei(), historygetint3pointertimer(), historygetint3timed(), historygetint3timei(), historygetint3timer(), historygetint4(), historygetint4pointer(), historygetint4pointertimed(), historygetint4pointertimei(), historygetint4pointertimer(), historygetint4timed(), historygetint4timei(), historygetint4timer(), historygetint5(), historygetint5pointer(), historygetint5pointertimed(), historygetint5pointertimei(), historygetint5pointertimer(), historygetint5timed(), historygetint5timei(), historygetint5timer(), historygetint6(), historygetint6pointer(), historygetint6pointertimed(), historygetint6pointertimei(), historygetint6pointertimer(), historygetint6timed(), historygetint6timei(), historygetint6timer(), historygetint7(), historygetint7pointer(), historygetint7pointertimed(), historygetint7pointertimei(), historygetint7pointertimer(), historygetint7timed(), historygetint7timei(), historygetint7timer(), historygetreal0(), historygetreal0pointer(), historygetreal0pointertimed(), historygetreal0pointertimei(), historygetreal0pointertimer(), historygetreal0timed(), historygetreal0timei(), historygetreal0timer(), historygetreal1(), historygetreal1pointer(), historygetreal1pointertimed(), historygetreal1pointertimei(), historygetreal1pointertimer(), historygetreal1timed(), historygetreal1timei(), historygetreal1timer(), historygetreal2(), historygetreal2pointer(), historygetreal2pointertimed(), historygetreal2pointertimei(), historygetreal2pointertimer(), historygetreal2timed(), historygetreal2timei(), historygetreal2timer(), historygetreal3(), historygetreal3pointer(), historygetreal3pointertimed(), historygetreal3pointertimei(), historygetreal3pointertimer(), historygetreal3timed(), historygetreal3timei(), historygetreal3timer(), historygetreal4(), historygetreal4pointer(), historygetreal4pointertimed(), historygetreal4pointertimei(), historygetreal4pointertimer(), historygetreal4timed(), historygetreal4timei(), historygetreal4timer(), historygetreal5(), historygetreal5pointer(), historygetreal5pointertimed(), historygetreal5pointertimei(), historygetreal5pointertimer(), historygetreal5timed(), historygetreal5timei(), historygetreal5timer(), historygetreal6(), historygetreal6pointer(), historygetreal6pointertimed(), historygetreal6pointertimei(), historygetreal6pointertimer(), historygetreal6timed(), historygetreal6timei(), historygetreal6timer(), historygetreal7(), historygetreal7pointer(), historygetreal7pointertimed(), historygetreal7pointertimei(), historygetreal7pointertimer(), historygetreal7timed(), historygetreal7timei(), historygetreal7timer(), historygettattrchar0(), historygettattrdouble0(), historygettattrdouble1(), historygettattrint0(), historygettattrint1(), historygettattrreal0(), historygettattrreal1(), historyputcharex(), historyputdoubleex(), historyputintex(), historyputrealex(), hstnmlinfoadd(), hstnmlinfoallnamevalid(), hstnmlinfoallvarinicheck(), hstnmlinfocreate(), hstnmlinfodelete(), hstnmlinfoinquire(), hstnmlinfooutputstep(), hstnmlinfooutputvalid(), hstnmlinfosetvalidname(), lookup_growable_url(), putlinedouble1(), putlinedouble2(), putlinedouble3(), putlinedouble4(), putlinedouble5(), putlinedouble6(), putlinedouble7(), putlineint1(), putlineint2(), putlineint3(), putlineint4(), putlineint5(), putlineint6(), putlineint7(), putlinereal1(), putlinereal2(), putlinereal3(), putlinereal4(), putlinereal5(), putlinereal6(), and putlinereal7().

    !
    ! arg が省略されておらず、且つ <tt>.true.</tt> の場合、
    ! <tt>.true.</tt> が返ります。
    !
    logical :: result
    logical,intent(in),optional :: arg
  continue
    if(present(arg)) then
      if(arg) then
        result=.true.
      else
        result=.false.
      endif
    else
      result=.false.
    endif

present_and_zero()

logical function, public dc_present::present_and_zero

(

integer, intent(in), optional

arg

)

Definition at line 118 of file dc_present.f90.

    !
    ! arg が省略されておらず、且つ 0 の場合、
    ! <tt>.true.</tt> が返ります。
    !
    logical :: result
    integer,intent(in),optional :: arg
  continue
    if(present(arg)) then
      if(arg==0) then
        result=.true.
      else
        result=.false.
      endif
    else
      result=.false.
    endif

present_select_char()

character(string) function dc_present::present_select_char ( character(*), intent(in)  invalid, character(*), intent(in)  default, character(*), intent(in), optional  c0, character(*), intent(in), optional  c1, character(*), intent(in), optional  c2, character(*), intent(in), optional  c3, character(*), intent(in), optional  c4, character(*), intent(in), optional  c5, character(*), intent(in), optional  c6, character(*), intent(in), optional  c7, character(*), intent(in), optional  c8, character(*), intent(in), optional  c9  )

private

Definition at line 308 of file dc_present.f90.

    !
    ! 省略可能な引数 c0 〜 c9 のうち、
    ! 省略されておらず、且つ invalid と等しくないものを 1 つ返します。
    ! 優先順位が最も高いものは c0 で、
    ! 最も低いのは c9 です。
    ! c0 〜 c9 の全てが省略されているか
    ! もしくは invalid と同様な場合は default が返ります。
    !
    implicit none
    character(*)     ,intent(in)          :: invalid
    character(*)     ,intent(in)          :: default
    character(*)     ,intent(in),optional :: c0
    character(*)     ,intent(in),optional :: c1
    character(*)     ,intent(in),optional :: c2
    character(*)     ,intent(in),optional :: c3
    character(*)     ,intent(in),optional :: c4
    character(*)     ,intent(in),optional :: c5
    character(*)     ,intent(in),optional :: c6
    character(*)     ,intent(in),optional :: c7
    character(*)     ,intent(in),optional :: c8
    character(*)     ,intent(in),optional :: c9
    character(STRING)                         :: result

    !=== Variables for internal work
    logical                 :: specified
    character(*),  parameter:: subname = 'present_select_Char'
  continue

!!$    call BeginSub(subname, 'invalid=%c default=%c',  &
!!$      &        c1=trim(invalid), c2=trim(default)   )
    specified = .false.

    if ( present(c0) ) then
      if ( len(trim(c0)) > len(trim(invalid)) ) then
        result = c0
        specified = .true.
      else
        if ( trim(c0) /= invalid(:len(trim(c0))) ) then
          result = c0
          specified = .true.
        endif
      end if
    end if

    if ( present(c1) .and. .not. specified) then
      if ( len(trim(c1)) > len(trim(invalid)) ) then
        result = c1
        specified = .true.
      else
        if ( trim(c1) /= invalid(:len(trim(c1))) ) then
          result = c1
          specified = .true.
        endif
      end if
    end if
    if ( present(c2) .and. .not. specified) then
      if ( len(trim(c2)) > len(trim(invalid)) ) then
        result = c2
        specified = .true.
      else
        if ( trim(c2) /= invalid(:len(trim(c2))) ) then
          result = c2
          specified = .true.
        endif
      end if
    end if
    if ( present(c3) .and. .not. specified) then
      if ( len(trim(c3)) > len(trim(invalid)) ) then
        result = c3
        specified = .true.
      else
        if ( trim(c3) /= invalid(:len(trim(c3))) ) then
          result = c3
          specified = .true.
        endif
      end if
    end if
    if ( present(c4) .and. .not. specified) then
      if ( len(trim(c4)) > len(trim(invalid)) ) then
        result = c4
        specified = .true.
      else
        if ( trim(c4) /= invalid(:len(trim(c4))) ) then
          result = c4
          specified = .true.
        endif
      end if
    end if
    if ( present(c5) .and. .not. specified) then
      if ( len(trim(c5)) > len(trim(invalid)) ) then
        result = c5
        specified = .true.
      else
        if ( trim(c5) /= invalid(:len(trim(c5))) ) then
          result = c5
          specified = .true.
        endif
      end if
    end if
    if ( present(c6) .and. .not. specified) then
      if ( len(trim(c6)) > len(trim(invalid)) ) then
        result = c6
        specified = .true.
      else
        if ( trim(c6) /= invalid(:len(trim(c6))) ) then
          result = c6
          specified = .true.
        endif
      end if
    end if
    if ( present(c7) .and. .not. specified) then
      if ( len(trim(c7)) > len(trim(invalid)) ) then
        result = c7
        specified = .true.
      else
        if ( trim(c7) /= invalid(:len(trim(c7))) ) then
          result = c7
          specified = .true.
        endif
      end if
    end if
    if ( present(c8) .and. .not. specified) then
      if ( len(trim(c8)) > len(trim(invalid)) ) then
        result = c8
        specified = .true.
      else
        if ( trim(c8) /= invalid(:len(trim(c8))) ) then
          result = c8
          specified = .true.
        endif
      end if
    end if
    if ( present(c9) .and. .not. specified) then
      if ( len(trim(c9)) > len(trim(invalid)) ) then
        result = c9
        specified = .true.
      else
        if ( trim(c9) /= invalid(:len(trim(c9))) ) then
          result = c9
          specified = .true.
        endif
      end if
    end if

    if (.not. specified) then
      result = default
    end if

!!$    call EndSub(subname, "result=%c", c1=trim(result))

present_select_char_auto()

character(string) function dc_present::present_select_char_auto ( logical, intent(in)  invalid, character(*), intent(in)  default, character(*), intent(in), optional  c0, character(*), intent(in), optional  c1, character(*), intent(in), optional  c2, character(*), intent(in), optional  c3, character(*), intent(in), optional  c4, character(*), intent(in), optional  c5, character(*), intent(in), optional  c6, character(*), intent(in), optional  c7, character(*), intent(in), optional  c8, character(*), intent(in), optional  c9  )

private

Definition at line 828 of file dc_present.f90.

    !
    ! invalid に <tt>.false.</tt> を与えた場合、省略可能な引数
    ! c0 〜 c9 のうち、
    ! 省略されておらず且つ優先順位が最も高いものを
    ! 1 つ返します。優先順位が最も高いのは c0 で、
    ! 最も低いのは c9 です。
    !
    ! invarlid が .true. の場合は、
    ! 空文字 (空白のみの場合も空文字と扱う) は省略されている
    ! のと同様に扱われ、優先順位に関わらず無視されます。
    ! 与えられた引数の全てが空文字の場合は default が返ります。
    !
    implicit none
    logical          ,intent(in)          :: invalid
    character(*)     ,intent(in)          :: default
    character(*)     ,intent(in),optional :: c0
    character(*)     ,intent(in),optional :: c1
    character(*)     ,intent(in),optional :: c2
    character(*)     ,intent(in),optional :: c3
    character(*)     ,intent(in),optional :: c4
    character(*)     ,intent(in),optional :: c5
    character(*)     ,intent(in),optional :: c6
    character(*)     ,intent(in),optional :: c7
    character(*)     ,intent(in),optional :: c8
    character(*)     ,intent(in),optional :: c9
    character(STRING)                         :: result

    !=== Variables for internal work
    logical                 :: specified
    character(*),  parameter:: subname = "present_select_Char_auto"
  continue

!!$    call BeginSub(subname, 'invalid=%y default=%c',  &
!!$      &        l=(/invalid/), c1=trim(default)   )
    specified = .false.

    if ( present(c0) ) then
       if ( trim(c0) /= '' ) then
          result = c0
          specified = .true.
       endif
    end if

    if ( present(c1) .and. .not. specified ) then
       if ( trim(c1) /= '' ) then
          result = c1
          specified = .true.
       endif
    end if
    if ( present(c2) .and. .not. specified ) then
       if ( trim(c2) /= '' ) then
          result = c2
          specified = .true.
       endif
    end if
    if ( present(c3) .and. .not. specified ) then
       if ( trim(c3) /= '' ) then
          result = c3
          specified = .true.
       endif
    end if
    if ( present(c4) .and. .not. specified ) then
       if ( trim(c4) /= '' ) then
          result = c4
          specified = .true.
       endif
    end if
    if ( present(c5) .and. .not. specified ) then
       if ( trim(c5) /= '' ) then
          result = c5
          specified = .true.
       endif
    end if
    if ( present(c6) .and. .not. specified ) then
       if ( trim(c6) /= '' ) then
          result = c6
          specified = .true.
       endif
    end if
    if ( present(c7) .and. .not. specified ) then
       if ( trim(c7) /= '' ) then
          result = c7
          specified = .true.
       endif
    end if
    if ( present(c8) .and. .not. specified ) then
       if ( trim(c8) /= '' ) then
          result = c8
          specified = .true.
       endif
    end if
    if ( present(c9) .and. .not. specified ) then
       if ( trim(c9) /= '' ) then
          result = c9
          specified = .true.
       endif
    end if

    if (.not. specified) then
       result = default
    end if

!!$    call EndSub(subname, "result=%c", c1=trim(result))

present_select_double()

real(dp) function dc_present::present_select_double ( real(dp), intent(in)  invalid, real(dp), intent(in)  default, real(dp), intent(in), optional  f0, real(dp), intent(in), optional  f1, real(dp), intent(in), optional  f2, real(dp), intent(in), optional  f3, real(dp), intent(in), optional  f4, real(dp), intent(in), optional  f5, real(dp), intent(in), optional  f6, real(dp), intent(in), optional  f7, real(dp), intent(in), optional  f8, real(dp), intent(in), optional  f9  )

private

Definition at line 710 of file dc_present.f90.

    !
    ! 省略可能な引数 f0 〜 f9 のうち、
    ! 省略されておらず、且つ invalid と等しくないものを 1 つ返します。
    ! 優先順位が最も高いものは f0 で、
    ! 最も低いのは f9 です。
    ! f0 〜 f9 の全てが省略されているか
    ! もしくは invalid と同様な場合は default が返ります。
    !
    implicit none
    real(DP)     ,intent(in)          :: invalid
    real(DP)     ,intent(in)          :: default
    real(DP)     ,intent(in),optional :: f0
    real(DP)     ,intent(in),optional :: f1
    real(DP)     ,intent(in),optional :: f2
    real(DP)     ,intent(in),optional :: f3
    real(DP)     ,intent(in),optional :: f4
    real(DP)     ,intent(in),optional :: f5
    real(DP)     ,intent(in),optional :: f6
    real(DP)     ,intent(in),optional :: f7
    real(DP)     ,intent(in),optional :: f8
    real(DP)     ,intent(in),optional :: f9
    real(DP)                         :: result

    !=== Variables for internal work
    logical                 :: specified
    character(*),  parameter:: subname = 'present_select_Double'
  continue

!!$    call BeginSub(subname, &
!!$      &        'invalid=%f default=%f',  &
!!$      &        d=(/invalid, default/))
    specified = .false.

    if ( present(f0) ) then
      if ( f0 /= invalid ) then
        result = f0
        specified = .true.
      endif
    end if

    if ( present(f1) .and. .not. specified ) then
      if ( f1 /= invalid ) then
        result = f1
        specified = .true.
      endif
    end if
    if ( present(f2) .and. .not. specified ) then
      if ( f2 /= invalid ) then
        result = f2
        specified = .true.
      endif
    end if
    if ( present(f3) .and. .not. specified ) then
      if ( f3 /= invalid ) then
        result = f3
        specified = .true.
      endif
    end if
    if ( present(f4) .and. .not. specified ) then
      if ( f4 /= invalid ) then
        result = f4
        specified = .true.
      endif
    end if
    if ( present(f5) .and. .not. specified ) then
      if ( f5 /= invalid ) then
        result = f5
        specified = .true.
      endif
    end if
    if ( present(f6) .and. .not. specified ) then
      if ( f6 /= invalid ) then
        result = f6
        specified = .true.
      endif
    end if
    if ( present(f7) .and. .not. specified ) then
      if ( f7 /= invalid ) then
        result = f7
        specified = .true.
      endif
    end if
    if ( present(f8) .and. .not. specified ) then
      if ( f8 /= invalid ) then
        result = f8
        specified = .true.
      endif
    end if
    if ( present(f9) .and. .not. specified ) then
      if ( f9 /= invalid ) then
        result = f9
        specified = .true.
      endif
    end if

    if (.not. specified) then
      result = default
    end if

!!$    call EndSub(subname, "result=%f", &
!!$      &      d=(/result/))

present_select_double_auto()

real(dp) function dc_present::present_select_double_auto ( logical, intent(in)  invalid, real(dp), intent(in)  default, real(dp), intent(in), optional  f0, real(dp), intent(in), optional  f1, real(dp), intent(in), optional  f2, real(dp), intent(in), optional  f3, real(dp), intent(in), optional  f4, real(dp), intent(in), optional  f5, real(dp), intent(in), optional  f6, real(dp), intent(in), optional  f7, real(dp), intent(in), optional  f8, real(dp), intent(in), optional  f9  )

private

Definition at line 1252 of file dc_present.f90.

    !
    ! invalid に <tt>.false.</tt> を与えた場合、省略可能な引数
    ! f0 〜 f9 のうち、
    ! 省略されておらず且つ優先順位が最も高いものを
    ! 1 つ返します。優先順位が最も高いのは f0 で、
    ! 最も低いのは f9 です。
    !
    ! invarlid が .true. の場合は、
    ! 0 は省略されている
    ! のと同様に扱われ、優先順位に関わらず無視されます。
    ! 与えられた引数の全てが 0 の場合は default が返ります。
    !
    implicit none
    logical          ,intent(in)          :: invalid
    real(DP)     ,intent(in)          :: default
    real(DP)     ,intent(in),optional :: f0
    real(DP)     ,intent(in),optional :: f1
    real(DP)     ,intent(in),optional :: f2
    real(DP)     ,intent(in),optional :: f3
    real(DP)     ,intent(in),optional :: f4
    real(DP)     ,intent(in),optional :: f5
    real(DP)     ,intent(in),optional :: f6
    real(DP)     ,intent(in),optional :: f7
    real(DP)     ,intent(in),optional :: f8
    real(DP)     ,intent(in),optional :: f9
    real(DP)                         :: result

    !=== Variables for internal work
    logical                 :: specified
    character(*),  parameter:: subname = "present_select_Double_auto"
  continue

!!$    call BeginSub(subname, &
!!$      &        'invalid=%y default=%f',  &
!!$      &        l=(/invalid/), d=(/default/))
    specified = .false.

    if ( present(f0) ) then
       if ( .not. invalid ) then
          result = f0
          specified = .true.
       elseif ( f0 /= 0.0_dp ) then
          result = f0
          specified = .true.
       endif
    end if

    if ( present(f1) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = f1
          specified = .true.
       elseif ( f1 /= 0.0_dp ) then
          result = f1
          specified = .true.
       endif
    end if
    if ( present(f2) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = f2
          specified = .true.
       elseif ( f2 /= 0.0_dp ) then
          result = f2
          specified = .true.
       endif
    end if
    if ( present(f3) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = f3
          specified = .true.
       elseif ( f3 /= 0.0_dp ) then
          result = f3
          specified = .true.
       endif
    end if
    if ( present(f4) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = f4
          specified = .true.
       elseif ( f4 /= 0.0_dp ) then
          result = f4
          specified = .true.
       endif
    end if
    if ( present(f5) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = f5
          specified = .true.
       elseif ( f5 /= 0.0_dp ) then
          result = f5
          specified = .true.
       endif
    end if
    if ( present(f6) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = f6
          specified = .true.
       elseif ( f6 /= 0.0_dp ) then
          result = f6
          specified = .true.
       endif
    end if
    if ( present(f7) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = f7
          specified = .true.
       elseif ( f7 /= 0.0_dp ) then
          result = f7
          specified = .true.
       endif
    end if
    if ( present(f8) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = f8
          specified = .true.
       elseif ( f8 /= 0.0_dp ) then
          result = f8
          specified = .true.
       endif
    end if
    if ( present(f9) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = f9
          specified = .true.
       elseif ( f9 /= 0.0_dp ) then
          result = f9
          specified = .true.
       endif
    end if

    if (.not. specified) then
       result = default
    end if

!!$    call EndSub(subname, "result=%f", &
!!$      &      d=(/result/))

present_select_int()

integer function dc_present::present_select_int ( integer, intent(in)  invalid, integer, intent(in)  default, integer, intent(in), optional  d0, integer, intent(in), optional  d1, integer, intent(in), optional  d2, integer, intent(in), optional  d3, integer, intent(in), optional  d4, integer, intent(in), optional  d5, integer, intent(in), optional  d6, integer, intent(in), optional  d7, integer, intent(in), optional  d8, integer, intent(in), optional  d9  )

private

Definition at line 474 of file dc_present.f90.

    !
    ! 省略可能な引数 d0 〜 d9 のうち、
    ! 省略されておらず、且つ invalid と等しくないものを 1 つ返します。
    ! 優先順位が最も高いものは d0 で、
    ! 最も低いのは d9 です。
    ! d0 〜 d9 の全てが省略されているか
    ! もしくは invalid と同様な場合は default が返ります。
    !
    implicit none
    integer     ,intent(in)          :: invalid
    integer     ,intent(in)          :: default
    integer     ,intent(in),optional :: d0
    integer     ,intent(in),optional :: d1
    integer     ,intent(in),optional :: d2
    integer     ,intent(in),optional :: d3
    integer     ,intent(in),optional :: d4
    integer     ,intent(in),optional :: d5
    integer     ,intent(in),optional :: d6
    integer     ,intent(in),optional :: d7
    integer     ,intent(in),optional :: d8
    integer     ,intent(in),optional :: d9
    integer                         :: result

    !=== Variables for internal work
    logical                 :: specified
    character(*),  parameter:: subname = 'present_select_Int'
  continue

!!$    call BeginSub(subname, &
!!$      &        'invalid=%d default=%d',  &
!!$      &        i=(/invalid, default/))
    specified = .false.

    if ( present(d0) ) then
      if ( d0 /= invalid ) then
        result = d0
        specified = .true.
      endif
    end if

    if ( present(d1) .and. .not. specified ) then
      if ( d1 /= invalid ) then
        result = d1
        specified = .true.
      endif
    end if
    if ( present(d2) .and. .not. specified ) then
      if ( d2 /= invalid ) then
        result = d2
        specified = .true.
      endif
    end if
    if ( present(d3) .and. .not. specified ) then
      if ( d3 /= invalid ) then
        result = d3
        specified = .true.
      endif
    end if
    if ( present(d4) .and. .not. specified ) then
      if ( d4 /= invalid ) then
        result = d4
        specified = .true.
      endif
    end if
    if ( present(d5) .and. .not. specified ) then
      if ( d5 /= invalid ) then
        result = d5
        specified = .true.
      endif
    end if
    if ( present(d6) .and. .not. specified ) then
      if ( d6 /= invalid ) then
        result = d6
        specified = .true.
      endif
    end if
    if ( present(d7) .and. .not. specified ) then
      if ( d7 /= invalid ) then
        result = d7
        specified = .true.
      endif
    end if
    if ( present(d8) .and. .not. specified ) then
      if ( d8 /= invalid ) then
        result = d8
        specified = .true.
      endif
    end if
    if ( present(d9) .and. .not. specified ) then
      if ( d9 /= invalid ) then
        result = d9
        specified = .true.
      endif
    end if

    if (.not. specified) then
      result = default
    end if

!!$    call EndSub(subname, "result=%d", &
!!$      &      i=(/result/))

present_select_int_auto()

integer function dc_present::present_select_int_auto ( logical, intent(in)  invalid, integer, intent(in)  default, integer, intent(in), optional  d0, integer, intent(in), optional  d1, integer, intent(in), optional  d2, integer, intent(in), optional  d3, integer, intent(in), optional  d4, integer, intent(in), optional  d5, integer, intent(in), optional  d6, integer, intent(in), optional  d7, integer, intent(in), optional  d8, integer, intent(in), optional  d9  )

private

Definition at line 948 of file dc_present.f90.

    !
    ! invalid に <tt>.false.</tt> を与えた場合、省略可能な引数
    ! d0 〜 d9 のうち、
    ! 省略されておらず且つ優先順位が最も高いものを
    ! 1 つ返します。優先順位が最も高いのは d0 で、
    ! 最も低いのは d9 です。
    !
    ! invarlid が .true. の場合は、
    ! 0 は省略されている
    ! のと同様に扱われ、優先順位に関わらず無視されます。
    ! 与えられた引数の全てが 0 の場合は default が返ります。
    !
    implicit none
    logical          ,intent(in)          :: invalid
    integer     ,intent(in)          :: default
    integer     ,intent(in),optional :: d0
    integer     ,intent(in),optional :: d1
    integer     ,intent(in),optional :: d2
    integer     ,intent(in),optional :: d3
    integer     ,intent(in),optional :: d4
    integer     ,intent(in),optional :: d5
    integer     ,intent(in),optional :: d6
    integer     ,intent(in),optional :: d7
    integer     ,intent(in),optional :: d8
    integer     ,intent(in),optional :: d9
    integer                         :: result

    !=== Variables for internal work
    logical                 :: specified
    character(*),  parameter:: subname = "present_select_Int_auto"
  continue

!!$    call BeginSub(subname, &
!!$      &        'invalid=%y default=%d',  &
!!$      &        l=(/invalid/), i=(/default/))
    specified = .false.

    if ( present(d0) ) then
       if ( .not. invalid ) then
          result = d0
          specified = .true.
       elseif ( d0 /= 0 ) then
          result = d0
          specified = .true.
       endif
    end if

    if ( present(d1) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = d1
          specified = .true.
       elseif ( d1 /= 0 ) then
          result = d1
          specified = .true.
       endif
    end if
    if ( present(d2) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = d2
          specified = .true.
       elseif ( d2 /= 0 ) then
          result = d2
          specified = .true.
       endif
    end if
    if ( present(d3) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = d3
          specified = .true.
       elseif ( d3 /= 0 ) then
          result = d3
          specified = .true.
       endif
    end if
    if ( present(d4) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = d4
          specified = .true.
       elseif ( d4 /= 0 ) then
          result = d4
          specified = .true.
       endif
    end if
    if ( present(d5) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = d5
          specified = .true.
       elseif ( d5 /= 0 ) then
          result = d5
          specified = .true.
       endif
    end if
    if ( present(d6) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = d6
          specified = .true.
       elseif ( d6 /= 0 ) then
          result = d6
          specified = .true.
       endif
    end if
    if ( present(d7) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = d7
          specified = .true.
       elseif ( d7 /= 0 ) then
          result = d7
          specified = .true.
       endif
    end if
    if ( present(d8) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = d8
          specified = .true.
       elseif ( d8 /= 0 ) then
          result = d8
          specified = .true.
       endif
    end if
    if ( present(d9) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = d9
          specified = .true.
       elseif ( d9 /= 0 ) then
          result = d9
          specified = .true.
       endif
    end if

    if (.not. specified) then
       result = default
    end if

!!$    call EndSub(subname, "result=%d", &
!!$      &      i=(/result/))

present_select_real()

real function dc_present::present_select_real ( real, intent(in)  invalid, real, intent(in)  default, real, intent(in), optional  r0, real, intent(in), optional  r1, real, intent(in), optional  r2, real, intent(in), optional  r3, real, intent(in), optional  r4, real, intent(in), optional  r5, real, intent(in), optional  r6, real, intent(in), optional  r7, real, intent(in), optional  r8, real, intent(in), optional  r9  )

private

Definition at line 592 of file dc_present.f90.

    !
    ! 省略可能な引数 r0 〜 r9 のうち、
    ! 省略されておらず、且つ invalid と等しくないものを 1 つ返します。
    ! 優先順位が最も高いものは r0 で、
    ! 最も低いのは r9 です。
    ! r0 〜 r9 の全てが省略されているか
    ! もしくは invalid と同様な場合は default が返ります。
    !
    implicit none
    real     ,intent(in)          :: invalid
    real     ,intent(in)          :: default
    real     ,intent(in),optional :: r0
    real     ,intent(in),optional :: r1
    real     ,intent(in),optional :: r2
    real     ,intent(in),optional :: r3
    real     ,intent(in),optional :: r4
    real     ,intent(in),optional :: r5
    real     ,intent(in),optional :: r6
    real     ,intent(in),optional :: r7
    real     ,intent(in),optional :: r8
    real     ,intent(in),optional :: r9
    real                         :: result

    !=== Variables for internal work
    logical                 :: specified
    character(*),  parameter:: subname = 'present_select_Real'
  continue

!!$    call BeginSub(subname, &
!!$      &        'invalid=%r default=%r',  &
!!$      &        r=(/invalid, default/))
    specified = .false.

    if ( present(r0) ) then
      if ( r0 /= invalid ) then
        result = r0
        specified = .true.
      endif
    end if

    if ( present(r1) .and. .not. specified ) then
      if ( r1 /= invalid ) then
        result = r1
        specified = .true.
      endif
    end if
    if ( present(r2) .and. .not. specified ) then
      if ( r2 /= invalid ) then
        result = r2
        specified = .true.
      endif
    end if
    if ( present(r3) .and. .not. specified ) then
      if ( r3 /= invalid ) then
        result = r3
        specified = .true.
      endif
    end if
    if ( present(r4) .and. .not. specified ) then
      if ( r4 /= invalid ) then
        result = r4
        specified = .true.
      endif
    end if
    if ( present(r5) .and. .not. specified ) then
      if ( r5 /= invalid ) then
        result = r5
        specified = .true.
      endif
    end if
    if ( present(r6) .and. .not. specified ) then
      if ( r6 /= invalid ) then
        result = r6
        specified = .true.
      endif
    end if
    if ( present(r7) .and. .not. specified ) then
      if ( r7 /= invalid ) then
        result = r7
        specified = .true.
      endif
    end if
    if ( present(r8) .and. .not. specified ) then
      if ( r8 /= invalid ) then
        result = r8
        specified = .true.
      endif
    end if
    if ( present(r9) .and. .not. specified ) then
      if ( r9 /= invalid ) then
        result = r9
        specified = .true.
      endif
    end if

    if (.not. specified) then
      result = default
    end if

!!$    call EndSub(subname, "result=%r", &
!!$      &      r=(/result/))

present_select_real_auto()

real function dc_present::present_select_real_auto ( logical, intent(in)  invalid, real, intent(in)  default, real, intent(in), optional  r0, real, intent(in), optional  r1, real, intent(in), optional  r2, real, intent(in), optional  r3, real, intent(in), optional  r4, real, intent(in), optional  r5, real, intent(in), optional  r6, real, intent(in), optional  r7, real, intent(in), optional  r8, real, intent(in), optional  r9  )

private

Definition at line 1100 of file dc_present.f90.

    !
    ! invalid に <tt>.false.</tt> を与えた場合、省略可能な引数
    ! r0 〜 r9 のうち、
    ! 省略されておらず且つ優先順位が最も高いものを
    ! 1 つ返します。優先順位が最も高いのは r0 で、
    ! 最も低いのは r9 です。
    !
    ! invarlid が .true. の場合は、
    ! 0 は省略されている
    ! のと同様に扱われ、優先順位に関わらず無視されます。
    ! 与えられた引数の全てが 0 の場合は default が返ります。
    !
    implicit none
    logical          ,intent(in)          :: invalid
    real     ,intent(in)          :: default
    real     ,intent(in),optional :: r0
    real     ,intent(in),optional :: r1
    real     ,intent(in),optional :: r2
    real     ,intent(in),optional :: r3
    real     ,intent(in),optional :: r4
    real     ,intent(in),optional :: r5
    real     ,intent(in),optional :: r6
    real     ,intent(in),optional :: r7
    real     ,intent(in),optional :: r8
    real     ,intent(in),optional :: r9
    real                         :: result

    !=== Variables for internal work
    logical                 :: specified
    character(*),  parameter:: subname = "present_select_Real_auto"
  continue

!!$    call BeginSub(subname, &
!!$      &        'invalid=%y default=%r',  &
!!$      &        l=(/invalid/), r=(/default/))
    specified = .false.

    if ( present(r0) ) then
       if ( .not. invalid ) then
          result = r0
          specified = .true.
       elseif ( r0 /= 0.0 ) then
          result = r0
          specified = .true.
       endif
    end if

    if ( present(r1) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = r1
          specified = .true.
       elseif ( r1 /= 0.0 ) then
          result = r1
          specified = .true.
       endif
    end if
    if ( present(r2) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = r2
          specified = .true.
       elseif ( r2 /= 0.0 ) then
          result = r2
          specified = .true.
       endif
    end if
    if ( present(r3) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = r3
          specified = .true.
       elseif ( r3 /= 0.0 ) then
          result = r3
          specified = .true.
       endif
    end if
    if ( present(r4) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = r4
          specified = .true.
       elseif ( r4 /= 0.0 ) then
          result = r4
          specified = .true.
       endif
    end if
    if ( present(r5) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = r5
          specified = .true.
       elseif ( r5 /= 0.0 ) then
          result = r5
          specified = .true.
       endif
    end if
    if ( present(r6) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = r6
          specified = .true.
       elseif ( r6 /= 0.0 ) then
          result = r6
          specified = .true.
       endif
    end if
    if ( present(r7) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = r7
          specified = .true.
       elseif ( r7 /= 0.0 ) then
          result = r7
          specified = .true.
       endif
    end if
    if ( present(r8) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = r8
          specified = .true.
       elseif ( r8 /= 0.0 ) then
          result = r8
          specified = .true.
       endif
    end if
    if ( present(r9) .and. .not. specified ) then
       if ( .not. invalid ) then
          result = r9
          specified = .true.
       elseif ( r9 /= 0.0 ) then
          result = r9
          specified = .true.
       endif
    end if

    if (.not. specified) then
       result = default
    end if

!!$    call EndSub(subname, "result=%r", &
!!$      &      r=(/result/))