27 #include <fms_platform.h>
29 integer,
parameter :: r16_kind=quad_kind, r8_kind=double_kind, r4_kind=float_kind, &
30 c8_kind=double_kind, c4_kind=float_kind, &
31 l8_kind=long_kind, l4_kind=int_kind, &
32 i8_kind=long_kind, i4_kind=int_kind, i2_kind=short_kind, &
34 integer,
parameter :: FMS_PATH_LEN = fms_max_path_len
35 integer,
parameter :: FMS_FILE_LEN = fms_max_file_len
37 end module platform_mod