dc/d84/dc__types_8f90_source.html

 !== Kind type parameter value
 !
 ! Authors::   Yasuhiro MORIKAWA, Eizi TOYODA
 ! Version::   $Id: dc_types.f90,v 1.1 2009-03-20 09:09:52 morikawa Exp $
 ! Tag Name::  $Name:  $
 ! Copyright:: Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
 ! License::   See COPYRIGHT[link:../../COPYRIGHT]
 !
 ! This file provides dc_types
 !

 module dc_types
   !
   !== Overview
   !
   ! 種別型パラメタを提供します。
   !
   !
   implicit none
   private
   public :: dp, sp
   public :: token, string
   public :: stdin, stdout, stderr
   public :: nf_kind_int1
   public :: nf_kind_int2

   integer, parameter:: dp  = kind(0.0d0) ! Double Precision.
                                          ! 倍精度実数型変数の種別型パラメタ
                                          ! として用います。
   integer, parameter:: sp  = kind(0.0e0) ! Single Precision.

   integer, parameter:: token  = 32       ! Token.
                                          ! 単語やキーワードを保持する                                         ! 文字型変数の種別型パラメタ
                                         ! として用います。

  integer, parameter:: STRING = 256      ! String.
                                         ! 文字列を保持する
                                         ! 文字型変数の種別型パラメタ
                                         ! として用います。
                                         !
                                         !--
                                         !開発者向け情報
                                         !
                                         ! 256 という値に深い理由はありません.
                                         ! 必要ならばより大きな値を設定
                                         ! しても構いません.
                                         ! ただし 8 バイト境界となるよう,
                                         ! 8 の倍数となっていることを
                                         ! 推奨します.
                                         !
                                         ! SR11000 の最適化
                                         ! FORTRAN90 を使用する場合に
                                         ! はだいたい 255 以下に
                                         ! 指定する必要があります.
                                         !
                                         !++

  integer, parameter:: STDIN  = 5        ! 標準入力の装置番号
  integer, parameter:: STDOUT = 6        ! 標準出力の装置番号
  integer, parameter:: STDERR = 0        ! 標準エラー出力の装置番号

  ! netCDF Fortran インターフェイスの型パラメタ
  ! (netcdf.inc には存在しない)
  !
  integer, parameter:: NF_KIND_INT1 = selected_int_kind(2)
  integer, parameter:: NF_KIND_INT2 = selected_int_kind(4)
end module
                                          ! 文字型変数の種別型パラメタ
                                          ! として用います。

   integer, parameter:: string = 256      ! String.
                                          ! 文字列を保持する                                         ! 文字型変数の種別型パラメタ
                                         ! として用います。
                                         !
                                         !--
                                         !開発者向け情報
                                         !
                                         ! 256 という値に深い理由はありません.
                                         ! 必要ならばより大きな値を設定
                                         ! しても構いません.
                                         ! ただし 8 バイト境界となるよう,
                                         ! 8 の倍数となっていることを
                                         ! 推奨します.
                                         !
                                         ! SR11000 の最適化
                                         ! FORTRAN90 を使用する場合に
                                         ! はだいたい 255 以下に
                                         ! 指定する必要があります.
                                         !
                                         !++

  integer, parameter:: STDIN  = 5        ! 標準入力の装置番号
  integer, parameter:: STDOUT = 6        ! 標準出力の装置番号
  integer, parameter:: STDERR = 0        ! 標準エラー出力の装置番号

  ! netCDF Fortran インターフェイスの型パラメタ
  ! (netcdf.inc には存在しない)
  !
  integer, parameter:: NF_KIND_INT1 = selected_int_kind(2)
  integer, parameter:: NF_KIND_INT2 = selected_int_kind(4)
end module
                                          ! 文字型変数の種別型パラメタ
                                          ! として用います。
                                          !
                                          !--
                                          !開発者向け情報                                         !
                                         ! 256 という値に深い理由はありません.
                                         ! 必要ならばより大きな値を設定
                                         ! しても構いません.
                                         ! ただし 8 バイト境界となるよう,
                                         ! 8 の倍数となっていることを
                                         ! 推奨します.
                                         !
                                         ! SR11000 の最適化
                                         ! FORTRAN90 を使用する場合に
                                         ! はだいたい 255 以下に
                                         ! 指定する必要があります.
                                         !
                                         !++

  integer, parameter:: STDIN  = 5        ! 標準入力の装置番号
  integer, parameter:: STDOUT = 6        ! 標準出力の装置番号
  integer, parameter:: STDERR = 0        ! 標準エラー出力の装置番号

  ! netCDF Fortran インターフェイスの型パラメタ
  ! (netcdf.inc には存在しない)
  !
  integer, parameter:: NF_KIND_INT1 = selected_int_kind(2)
  integer, parameter:: NF_KIND_INT2 = selected_int_kind(4)
end module
                                          !
                                          ! 256 という値に深い理由はありません.
                                          ! 必要ならばより大きな値を設定                                         ! しても構いません.
                                         ! ただし 8 バイト境界となるよう,
                                         ! 8 の倍数となっていることを
                                         ! 推奨します.
                                         !
                                         ! SR11000 の最適化
                                         ! FORTRAN90 を使用する場合に
                                         ! はだいたい 255 以下に
                                         ! 指定する必要があります.
                                         !
                                         !++

  integer, parameter:: STDIN  = 5        ! 標準入力の装置番号
  integer, parameter:: STDOUT = 6        ! 標準出力の装置番号
  integer, parameter:: STDERR = 0        ! 標準エラー出力の装置番号

  ! netCDF Fortran インターフェイスの型パラメタ
  ! (netcdf.inc には存在しない)
  !
  integer, parameter:: NF_KIND_INT1 = selected_int_kind(2)
  integer, parameter:: NF_KIND_INT2 = selected_int_kind(4)
end module
                                          ! しても構いません.
                                          ! ただし 8 バイト境界となるよう,
                                          ! 8 の倍数となっていることを                                         ! 推奨します.
                                         !
                                         ! SR11000 の最適化
                                         ! FORTRAN90 を使用する場合に
                                         ! はだいたい 255 以下に
                                         ! 指定する必要があります.
                                         !
                                         !++

  integer, parameter:: STDIN  = 5        ! 標準入力の装置番号
  integer, parameter:: STDOUT = 6        ! 標準出力の装置番号
  integer, parameter:: STDERR = 0        ! 標準エラー出力の装置番号

  ! netCDF Fortran インターフェイスの型パラメタ
  ! (netcdf.inc には存在しない)
  !
  integer, parameter:: NF_KIND_INT1 = selected_int_kind(2)
  integer, parameter:: NF_KIND_INT2 = selected_int_kind(4)
end module
                                          ! 推奨します.
                                          !
                                          ! SR11000 の最適化
                                          ! FORTRAN90 を使用する場合に                                         ! はだいたい 255 以下に
                                         ! 指定する必要があります.
                                         !
                                         !++

  integer, parameter:: STDIN  = 5        ! 標準入力の装置番号
  integer, parameter:: STDOUT = 6        ! 標準出力の装置番号
  integer, parameter:: STDERR = 0        ! 標準エラー出力の装置番号

  ! netCDF Fortran インターフェイスの型パラメタ
  ! (netcdf.inc には存在しない)
  !
  integer, parameter:: NF_KIND_INT1 = selected_int_kind(2)
  integer, parameter:: NF_KIND_INT2 = selected_int_kind(4)
end module
                                          ! はだいたい 255 以下に                                         ! 指定する必要があります.
                                         !
                                         !++

  integer, parameter:: STDIN  = 5        ! 標準入力の装置番号
  integer, parameter:: STDOUT = 6        ! 標準出力の装置番号
  integer, parameter:: STDERR = 0        ! 標準エラー出力の装置番号

  ! netCDF Fortran インターフェイスの型パラメタ
  ! (netcdf.inc には存在しない)
  !
  integer, parameter:: NF_KIND_INT1 = selected_int_kind(2)
  integer, parameter:: NF_KIND_INT2 = selected_int_kind(4)
end module
                                          ! 指定する必要があります.
                                          !
                                          !++

   integer, parameter:: stdin  = 5        ! 標準入力の装置番号  integer, parameter:: STDOUT = 6        ! 標準出力の装置番号
  integer, parameter:: STDERR = 0        ! 標準エラー出力の装置番号

  ! netCDF Fortran インターフェイスの型パラメタ
  ! (netcdf.inc には存在しない)
  !
  integer, parameter:: NF_KIND_INT1 = selected_int_kind(2)
  integer, parameter:: NF_KIND_INT2 = selected_int_kind(4)
end module
   integer, parameter:: stdout = 6        ! 標準出力の装置番号  integer, parameter:: STDERR = 0        ! 標準エラー出力の装置番号

  ! netCDF Fortran インターフェイスの型パラメタ
  ! (netcdf.inc には存在しない)
  !
  integer, parameter:: NF_KIND_INT1 = selected_int_kind(2)
  integer, parameter:: NF_KIND_INT2 = selected_int_kind(4)
end module
   integer, parameter:: stderr = 0        ! 標準エラー出力の装置番号
  ! netCDF Fortran インターフェイスの型パラメタ
  ! (netcdf.inc には存在しない)
  !
  integer, parameter:: NF_KIND_INT1 = selected_int_kind(2)
  integer, parameter:: NF_KIND_INT2 = selected_int_kind(4)
end module

   ! netCDF Fortran インターフェイスの型パラメタ
   ! (netcdf.inc には存在しない)
   !
   integer, parameter:: nf_kind_int1 = selected_int_kind(2)
   integer, parameter:: nf_kind_int2 = selected_int_kind(4)
 end module
dc_types::token
integer, parameter, public token
Definition: dc_types.f90:32

dc_types::string
integer, parameter, public string
Definition: dc_types.f90:37

dc_types::nf_kind_int1
integer, parameter, public nf_kind_int1
Definition: dc_types.f90:66

dc_types::dp
integer, parameter, public dp
Definition: dc_types.f90:27

dc_types::stdout
integer, parameter, public stdout
Definition: dc_types.f90:60

dc_types::nf_kind_int2
integer, parameter, public nf_kind_int2
Definition: dc_types.f90:67

dc_types
Definition: dc_types.f90:12

dc_types::sp
integer, parameter, public sp
Definition: dc_types.f90:30

dc_types::stdin
integer, parameter, public stdin
Definition: dc_types.f90:59

dc_types::stderr
integer, parameter, public stderr
Definition: dc_types.f90:61