dc_types.f90

Go to the documentation of this file.

!-----------------------------------------------------------------------
! Copyright (c) 2000-2026 Gtool Development Group. All rights reserved.
!-----------------------------------------------------------------------
!>
!> @author    Youhei SASAKI, Yasuhiro MORIKAWA, Eizi TOYODA
!> @copyright Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved. <br/>
!> License is BSD-2-Clause. see [COPYRIGHT](@ref COPYRIGHT) in detail
!> @ja
!> @brief 種別型パラメタを提供します。
!> @details
!>
!> このモジュールは Fortran 2003 の機能, 具体的には `ISO_C_BINDING` と
!> `ISO_FORTRAN_ENV` と同じ型を提供します.
!>
!> dc_types | intrinsic modules |  types
!> ---------|------------------ |---------------
!> `SP`     | ISO_C_BINDING     | `C_FLOAT`
!> `DP`     | ISO_C_BINDING     | `C_DOUBLE`
!> `I4`     | `ISO_C_BINDING`   | `C_INT`
!> `I8`     | `ISO_C_BINDING`   | `C_LONG_LONG`
!> `STDIN`  | ISO_FORTRAN_ENV   | `INPUT_UNIT`
!> `STDOUT` | ISO_FORTRAN_ENV   | `OUTPUT_UNIT`
!> `STRERR` | ISO_FORTRAN_ENV   | `ERROR_UNIT`
!>
!> などです．
!> @warning 言語混在プログラミング(例えば Fortran から C の関数を呼ぶなど)
!> を行ないたい場合には本モジュールの使用前に,
!> 変数の型を確認して下さい.
!>
!> @note F2008 をサポートする場合には I4 → int32, I8 → int64 に変更予定です
!> @endja
!>
!> @en
!> @brief Provides kind type parameter values.
!> @details
!> This module using F2003 feature, especially `ISO_C_BINDING, ISO_FORTRAN_ENV`.
!>
!> dc_types | intrinsic modules |  types
!> ---------|------------------ |---------------
!> `SP`     | `ISO_C_BINDING`   | `C_FLOAT`
!> `DP`     | `ISO_C_BINDING`   | `C_DOUBLE`
!> `I4`     | `ISO_C_BINDING`   | `C_INT`
!> `I8`     | `ISO_C_BINDING`   | `C_LONG_LONG`
!> `STDIN`  | `ISO_FORTRAN_ENV` | `INPUT_UNIT`
!> `STDOUT` | `ISO_FORTRAN_ENV` | `OUTPUT_UNIT`
!> `STRERR` | `ISO_FORTRAN_ENV` | `ERROR_UNIT`
!>
!> @warning If you want to try mixed-language programing
!> (e.g., Fortran calling C function),
!> Please check type of variables before use this module.
!>
!> @note When supporting F2008, it is planned to change from I4 → int32, I8 → int64
!> @enden
 
module dc_types
  use, intrinsic :: iso_c_binding,    &
    & only: c_int,                    &
    &       c_long_long,              &
    &       c_float,                  &
    &       c_double
  use, intrinsic :: iso_fortran_env,  &
    & only: input_unit,               &
    &       output_unit,              &
    &       error_unit
  implicit none
  private
  public :: sp
  public :: sp_eps
  public :: dp
  public :: dp_eps
  public :: i4
  public :: i8
  public :: token
  public :: string
  public :: stdin
  public :: stdout
  public :: stderr
 
  !> @var SP
  !> @en Single Precision Real number. @enden
  !> @ja 単精度実数型変数 @endja
  integer, parameter  :: sp     = c_float
 
  !> @var SP_EPS
  !> @en Machine epsilon for single precision real number. @enden
  !> @ja 単精度実数型変数のマシンイプシロン. @endja
  real(sp), parameter :: sp_eps = epsilon(0.0e0)
 
  !> @var DP
  !> @en Double Precision Real number @enden
  !> @ja 倍精度実数型変数 @endja
  integer, parameter  :: dp     = c_double
 
  !> @var DP_EPS
  !> @en Machine epsilon for dobule precision real number. @enden
  !> @ja 倍精度実数型変数のマシンイプシロン. @endja
  real(dp), parameter :: dp_eps = epsilon(0.0d0)
 
  !> @var I4
  !> @en Single Precision Ineger, same as 'integer' @enden
  !> @ja 単精度の整数型です. 'integer' と同じです.  @endja
  integer, parameter :: i4 = c_int
 
  !> @var I8
  !> @en Double Precision Ineger, same as 'integer(8)' @enden
  !> @ja 倍精度の整数型です. 'integer(8)' と同じです.  @endja
  integer, parameter :: i8 = c_long_long
 
  !> @var STDIN
  !> @en Unit number for Standard INPUT @enden
  !> @ja 標準入力の装置番号 @endja
  integer, parameter  :: stdin  = input_unit
 
  !> @var STDOUT
  !> @en Unit number for Standard OUTPUT @enden
  !> @ja 標準出力の装置番号 @endja
  integer, parameter  :: stdout = output_unit
 
  !> @var STDERR
  !> @en Unit number for Standard ERROR @enden
  !> @ja 標準エラー出力の装置番号 @endja
  integer, parameter  :: stderr = error_unit
 
 
  !> @var TOKEN
  !> @en Character length for word, token @enden
  !> @ja 単語やキーワードを保持する文字型変数の種別型パラメタ @endja
  integer, parameter  :: token  = 32
 
  !> @var STRING
  !> @en Character length for string @enden
  !> @ja 文字列を保持する 文字型変数の種別型パラメタ
  !> @note 256 という値に深い理由はありません.
  !>       必要ならばより大きな値を設定しても構いません.
  !>       ただし 8 バイト境界となるよう, 8 の倍数となっていることを推奨します.
  !> @endja
  integer, parameter  :: string = 256
 
  !> @namespace dc_types
end module dc_types