diff --git a/comfunc.c b/comfunc.c
index a7ff572..75e69cb 100644
--- a/comfunc.c
+++ b/comfunc.c
@@ -1328,11 +1328,18 @@ c_ilog(COMPLEX *c, ZVALUE base)
 
 
 /*
- * Calculate the complex versed sine within the specified accuracy.
+ * c_versin - versed sine for COMPLEX values
  *
  * This uses the formula:
  *
  *	versin(x) = 1 - cos(x)
+ *
+ * given:
+ *	q	    complex value to pass to the trig function
+ *	epsilon	    error tolerance / precision for trig calculation
+ *
+ * returns:
+ *	complex value result of trig function on q with error epsilon
  */
 COMPLEX *
 c_versin(COMPLEX *c, NUMBER *epsilon)
@@ -1367,11 +1374,18 @@ c_versin(COMPLEX *c, NUMBER *epsilon)
 
 
 /*
- * Calculate the complex versed cosine within the specified accuracy.
+ * c_coversin - coversed sine for COMPLEX values
  *
  * This uses the formula:
  *
  *	coversin(x) = 1 - sin(x)
+ *
+ * given:
+ *	q	    complex value to pass to the trig function
+ *	epsilon	    error tolerance / precision for trig calculation
+ *
+ * returns:
+ *	complex value result of trig function on q with error epsilon
  */
 COMPLEX *
 c_coversin(COMPLEX *c, NUMBER *epsilon)
diff --git a/func.c b/func.c
index cf57267..24b14de 100644
--- a/func.c
+++ b/func.c
@@ -10614,6 +10614,9 @@ f_version(void)
 }
 
 
+/*
+ * f_versin - versed sine
+ */
 S_FUNC VALUE
 f_versin(int count, VALUE **vals)
 {
@@ -10665,6 +10668,9 @@ f_versin(int count, VALUE **vals)
 }
 
 
+/*
+ * f_coversin - coversed sine
+ */
 S_FUNC VALUE
 f_coversin(int count, VALUE **vals)
 {
diff --git a/qtrans.c b/qtrans.c
index 4621de6..38d912e 100644
--- a/qtrans.c
+++ b/qtrans.c
@@ -1975,11 +1975,20 @@ qacoth(NUMBER *q, NUMBER *epsilon)
 
 
 /*
- * versed sine - this calls qsincos() and discards the value of sin.
+ * qversin - versed sine for NUMBER values
  *
  * This uses the formula:
  *
  *	versin(x) = 1 - cos(x)
+ *
+ * This calls qsincos() and discards the value of sin.
+ *
+ * given:
+ *	q	    real value to pass to the trig function
+ *	epsilon	    error tolerance / precision for trig calculation
+ *
+ * returns:
+ *	real value result of trig function on q with error epsilon
  */
 NUMBER *
 qversin(NUMBER *q, NUMBER *epsilon)
@@ -2006,11 +2015,20 @@ qversin(NUMBER *q, NUMBER *epsilon)
 
 
 /*
- * versed cosine - this calls qsincos() and discards the value of cos.
+ * qversin - coversed sine for NUMBER values
  *
  * This uses the formula:
  *
  *	coversin(x) = 1 - sin(x)
+ *
+ * This calls qsincos() and discards the value of cos.
+ *
+ * given:
+ *	q	    real value to pass to the trig function
+ *	epsilon	    error tolerance / precision for trig calculation
+ *
+ * returns:
+ *	real value result of trig function on q with error epsilon
  */
 NUMBER *
 qcoversin(NUMBER *q, NUMBER *epsilon)