cleaninng states.F90