* $Id$
C
C
C
	FUNCTION FTOTRIG(X)
#include "hiparnt.inc"
	OMG=OMG0(X)*HINT1(60)/HIPR1(31)/2.0
	FTOTRIG=1.0-EXP(-2.0*OMG)
	RETURN
	END