code provided by:
carine.costa@usp.br
University of Sao Paulo