module galapagos
    use numz
    type thefit
      sequence
      real(b8) val
      integer index     ! ,proc,to,buff
    end type thefit
end module