--- trunk/libf/dyn3d/prather.f	2010/04/06 17:52:58	32
+++ trunk/libf/dyn3d/prather.f	2012/09/20 13:00:41	66
@@ -5,8 +5,9 @@
       use dimens_m
       use paramet_m
       use comconst
-      use comvert
+      use disvert_m
       use comgeom
+      USE nr_util, ONLY : pi
       IMPLICIT NONE
 
 c=======================================================================