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