--- veclib.f	2006-08-24 14:59:47.000000000 -0700
+++ veclib.f	2006-08-24 15:02:02.000000000 -0700
@@ -101,12 +101,8 @@
   implicit none
   integer n
   _REAL_  x(n), y(n)
-# ifdef MASSLIB
-    call vtanh ( y, x, n )
-# else
-    y(1:n) = tanh(x(1:n))
-# endif
-                                                                                                                                                             
+  y(1:n) = tanh(x(1:n))
+
   return
 end subroutine vdtanh
 !--------------------------------------------------------------