module global_test  ! stuff used by the fitness function
    integer,pointer,dimension(:) :: test_vect 
    integer my_color
end module