Update SEMENTE.f90