1 2! KGEN-generated Fortran source file 3! 4! Filename : shr_kind_mod.F90 5! Generated at: 2015-03-31 09:44:40 6! KGEN version: 0.4.5 7 8 9 10 MODULE shr_kind_mod 11 !---------------------------------------------------------------------------- 12 ! precision/kind constants add data public 13 !---------------------------------------------------------------------------- 14 PUBLIC 15 INTEGER, parameter :: shr_kind_r8 = selected_real_kind(12) ! 8 byte real 16 ! 4 byte real 17 ! native real 18 ! 8 byte integer 19 ! 4 byte integer 20 INTEGER, parameter :: shr_kind_in = kind(1) ! native integer 21 ! short char 22 ! mid-sized char 23 ! long char 24 ! extra-long char 25 ! extra-extra-long char 26 27 ! write subroutines 28 ! No subroutines 29 ! No module extern variables 30 END MODULE shr_kind_mod 31