moving a subroutine

2022-04-04 19:40:04 +02:00
parent c45658e181
commit 15cb51c6bc
2 changed files with 11 additions and 15 deletions
--- a/Fraktalism/evolvopick.f90
+++ b/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