--- trunk/libf/dyn3d/vlspltqs.f	2010/04/06 17:52:58	32
+++ trunk/libf/dyn3d/vlspltqs.f	2011/01/25 15:11:05	39
@@ -470,6 +470,7 @@
       use comvert
       use logic
       use comgeom
+      USE nr_util, ONLY : pi
       IMPLICIT NONE
 c
 c