CP2K: dbcsr_kinds.f90 Source File

CP2K 2.4 (Revision 12889)
00001 !-----------------------------------------------------------------------------!
00002 !   CP2K: A general program to perform molecular dynamics simulations         !
00003 !   Copyright (C) 2000 - 2013  CP2K developers group                          !
00004 !-----------------------------------------------------------------------------!
00005 
00006 ! *****************************************************************************
00010 MODULE dbcsr_kinds
00011 
00012   IMPLICIT NONE
00013 
00014   PRIVATE
00015 
00016   PUBLIC :: sp, dp
00017   PUBLIC :: int_1, int_2, int_4, int_8
00018   PUBLIC :: real_4, real_8
00019   PUBLIC :: int_1_size, int_2_size, int_4_size, int_8_size
00020   PUBLIC :: real_4_size, real_8_size
00021   PUBLIC :: default_string_length
00022 
00023   INTEGER, PARAMETER :: real_4 = SELECTED_REAL_KIND ( 6, 30 )
00024   INTEGER, PARAMETER :: real_8 = SELECTED_REAL_KIND ( 14, 200 )
00025   INTEGER, PARAMETER :: real_4_size = 4
00026   INTEGER, PARAMETER :: real_8_size = 8
00027 
00028   INTEGER, PARAMETER :: int_1  = SELECTED_INT_KIND(2)
00029   INTEGER, PARAMETER :: int_1_size = BIT_SIZE(INT(0, int_1))/8
00030 
00031   INTEGER, PARAMETER :: int_2  = SELECTED_INT_KIND(4)
00032   INTEGER, PARAMETER :: int_2_size = BIT_SIZE(INT(0, int_2))/8
00033 
00034   INTEGER, PARAMETER :: int_4 = SELECTED_INT_KIND(5)
00035   INTEGER, PARAMETER :: int_4_size = BIT_SIZE(INT(0, int_4))/8
00036 
00037   INTEGER, PARAMETER :: int_8 = SELECTED_INT_KIND(10)
00038   INTEGER, PARAMETER :: int_8_size = BIT_SIZE(INT(0, int_8))/8
00039 
00040   INTEGER, PARAMETER :: sp = real_4
00041   INTEGER, PARAMETER :: dp = real_8
00042 
00043   INTEGER, PARAMETER :: default_string_length=80
00044 
00045 END MODULE dbcsr_kinds
00046