SUBROUTINE  fctut(  tps,  gt  )
      USE numerics
      IMPLICIT  NONE
      REAL(rp),  INTENT(IN)   ::  tps
      REAL(rp),  INTENT(OUT)  ::  gt
      END  SUBROUTINE  fctut