module typesandkinds
  integer, parameter :: slen = 1024
  integer, parameter :: dimnamelen = 20
end module typesandkinds