update TENSOR.f90