--- trunk/libf/dyn3d/tourabs.f	2011/01/06 17:52:19	38
+++ trunk/libf/dyn3d/tourabs.f	2011/01/25 15:11:05	39
@@ -25,6 +25,7 @@
       use logic
       use comgeom
       use filtreg_m, only: filtreg
+      USE nr_util, ONLY : pi
 
       IMPLICIT NONE
 c