module dc_types implicit none integer, parameter:: DOUBLE = kind(0.0d0) integer, parameter:: TOKEN = 32 integer, parameter:: STRING = 500 end module