module dc_types

    implicit none

    integer, parameter:: DOUBLE = kind(0.0d0)
    integer, parameter:: TOKEN = 32
    integer, parameter:: STRING = 500

end module