--- trunk/libf/dyn3d/prather.f	2010/04/06 17:52:58	32
+++ trunk/dyn3d/prather.f	2013/11/15 18:45:49	76
@@ -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=======================================================================