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