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