SUBROUTINE wrt_hessian
      RETURN
      END SUBROUTINE wrt_hessian