--- trunk/phylmd/yamada4.f	2014/03/05 14:57:53	82
+++ trunk/phylmd/yamada4.f	2014/07/02 18:39:15	99
@@ -2,9 +2,7 @@
 
   IMPLICIT NONE
 
-  real, parameter:: kap = 0.4
-  private
-  public yamada4
+  real, parameter, private:: kap = 0.4
 
 contains