Function Csin

Part of:

package f2cl-lib
( csin < x > )