moving a subroutine

Fraktalism/evolvopick.f90

@@ -60,20 +60,5 @@ program evolvopick
   enddo
 
 !-----------------------------------------------------
-  contains
-
-
-
-  subroutine interp4dp (ina, inb, out, dpk)
-    double precision, dimension(4), intent(in)   :: ina, inb
-    double precision, dimension(4), intent(out)  :: out
-    double precision, intent(in)                 :: dpk
-    integer                                      :: foo
-
-    do foo=1, 4
-      out(foo) = (ina(foo) * (1.0-dpk)) + (inb(foo) * (dpk))
-    enddo
-
-  end subroutine
 
 end program evolvopick

Fraktalism/fraktals.f90

@@ -151,7 +151,18 @@ end subroutine lorentz_0
 !-----------------------------------------------------------
 !           -- some support functions --
 !-----------------------------------------------------------
+!       usage : evolvopick
+  subroutine interp4dp (ina, inb, out, dpk)
+    double precision, dimension(4), intent(in)   :: ina, inb
+    double precision, dimension(4), intent(out)  :: out
+    double precision, intent(in)                 :: dpk
+    integer                                      :: foo
 
+    do foo=1, 4
+      out(foo) = (ina(foo) * (1.0-dpk)) + (inb(foo) * (dpk))
+    enddo
+
+  end subroutine
 !-----------------------------------------------------------
 
 function dist0 (x, y)