module typesandkinds
   implicit none
   save
   private
   public slen
   integer, parameter :: slen = 1024
end module typesandkinds